Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
ASM86 VER 1.0 SOURCE: FORTH.A86 Fig <strong>Forth</strong> <strong>8086</strong>/88 Ver 1.0<br />
EJECT<br />
. ************<br />
; * SIGN *<br />
. ************<br />
I<br />
I<br />
DB<br />
DB<br />
DB<br />
DW<br />
SIGN DW<br />
DW<br />
DW<br />
DW<br />
DW<br />
Di4<br />
DW<br />
SIGN1 DW<br />
DIG<br />
;<br />
DB<br />
DB<br />
DB<br />
DW<br />
DIGS DW<br />
DIGS1 DW<br />
DW<br />
DW<br />
DW<br />
84H<br />
'SIG'<br />
'N1+80H<br />
EDIGS-5<br />
DOCOL<br />
ROT<br />
ZLESS<br />
ZBRAN ; I F<br />
OFFSET SIGN1-$<br />
LIT, 2DH<br />
HOLD ; ENDIF<br />
SEMIS<br />
81H<br />
'#'+80H<br />
SIGN-7<br />
DOCOL<br />
BASE<br />
AT<br />
MSMOD<br />
ROT<br />
LIT, 9<br />
OVER<br />
LESS<br />
ZBRAN ; I F<br />
OFFSET DIG1-$<br />
LIT, 7<br />
PLUS ; EYLIF<br />
LIT, 30H<br />
PLUS<br />
HOLD<br />
SEMIS<br />
8 2H<br />
'#I<br />
'S '+80H<br />
DIG-4<br />
DOCOL<br />
DIG<br />
OVER<br />
OVER<br />
ORR<br />
; BEGIN<br />
PAGE 185
Change language