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.

Copyright:FO~ <strong>Interest</strong> <strong>Group</strong> SSB MNEMONIC AFSEMFLER PAGE 41<br />

FDB TOR, SUB, BRAN<br />

F EXPEC6-*<br />

EXPEC3 FDB DUP,CLITER<br />

FCB SD ( carriage return 1<br />

FDB EQUAL,ZBRF.N<br />

FDB EXPEC4-*<br />

FDB LEAVE,DROP,BL,ZERO,BRAN<br />

FDB EXPEC5-*<br />

EXPEC4 FDB DUP<br />

EXPEC5 FDB I ,CSTORE, ZERO, I ,CNEP, STORE<br />

EXPEC6 FDB EMIT,2WQP<br />

FDB EXPEC2-*<br />

FDB DROP<br />

FDB SEMIS<br />

* ====== >> 129 > 130 <br />

FCB $80<br />

FDE QUERY-8<br />

NULL FDB IXCOL, BLK , AT, ZBRAN<br />

FDB NULL2-*<br />

mlE ONE, BLK, PSTORE<br />

FDB ZEm,IN,STORE,BLK,AT,BSCR,K>D<br />

FDB ZEQU<br />

* check for end of screen<br />

FDB ZFRAN<br />

FDB NULL1-*<br />

FDB QEXEC , FROMR , DROP<br />

NULLJ FDE BRAN<br />

FDB NULL3-*<br />

NULL2 FDB FFCMR,DROP<br />

NULL3 FDB SEMIS<br />

*<br />

* ######>> screen 47 > 133 > 134

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

Saved successfully!

Ooh no, something went wrong!