25.10.2013 Views

fig-FORTH FOR 6800 - Forth Interest Group

fig-FORTH FOR 6800 - Forth Interest Group

fig-FORTH FOR 6800 - Forth Interest Group

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

Co~right:FDR"lT <strong>Interest</strong> <strong>Group</strong> SSF MNEMONIC ESSEMELER PAGE 5<br />

*<br />

This system is shown with one user, but edditional users<br />

may be added by allocating additional user tables:<br />

UORIG2 RMB 64 data table for user #2<br />

* Some of this stuff gets initialized during<br />

* COLD start and N4RM start:<br />

* [ names correspond to <strong><strong>FOR</strong>TH</strong> words of similar (no X) name I<br />

*<br />

OK- $100<br />

WRTG RMB 6<br />

XSPZER RMB 2<br />

XRZERO RME3 2<br />

XTIB Rm 2<br />

XWIIXH RElB 2<br />

mRN RMJ3 2<br />

XFENCE RElB 2<br />

XDP RMB 2<br />

XVOCL RMl3 2<br />

XBLX m 2<br />

XIN RME? 2<br />

xm RMB 2<br />

XSCR REB 2<br />

XOFsFl' m 2<br />

Xrnh'r RME? 2<br />

XCURF RMB 2<br />

XSTATE RME 2<br />

XBASE RyE 2<br />

XDPL RMB 2<br />

XFLD RME 2<br />

XCSP RMB 2<br />

XRNUMRME 2<br />

XHLD RMB 2<br />

XDELRY RMB 2<br />

XCOLUM 2<br />

IOSTAT RME 2<br />

m 2<br />

F!MB 2<br />

RME 2<br />

RME3 2<br />

3 reserved variables<br />

initial top of data stack for this user<br />

initial top of return stack<br />

start of terminal input buffer<br />

name field width<br />

warning message mode (0 = no disc)<br />

fence for FOE-ET<br />

dictionary pointer<br />

vocabulary linking<br />

disc block being accessed<br />

scan pointer into the block<br />

cursor posit ion<br />

disc screen being accessed ( O=terminal )<br />

disc sector offset for multi-disc<br />

last mrd in primary seerch vocabulary<br />

last word in extensible vocabulary<br />

flag for 'interpret' or 'compile' modes<br />

nunber base for I/O numeric conversion<br />

decimal pint place<br />

current stack position, for compile checks<br />

carriage return delay count<br />

carriage width<br />

last acia status from write/read<br />

( 4 spares! )<br />

*<br />

end of user table, start of corrunon system variables<br />

XUSE<br />

XPREV<br />

*<br />

RMB<br />

WB<br />

RMB<br />

2<br />

2<br />

4<br />

( spares 1

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!