You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Copyight:<strong><strong>FOR</strong>TH</strong> <strong>Interest</strong> <strong>Group</strong><br />
AND B #$3F<br />
INX<br />
STX PD<br />
LDX PA0<br />
LDF A 0,X<br />
m<br />
STX<br />
CBA<br />
PA<br />
BNE<br />
PFIND2 LDX<br />
PFIND4<br />
PA<br />
LDA A<br />
TNX<br />
STX<br />
0,X<br />
PA<br />
LDX PD<br />
LDA B 0,X<br />
INX<br />
STX<br />
TST B<br />
PD<br />
BPL<br />
AND B<br />
CBP<br />
PFIND8<br />
#$7F<br />
BEQ FOUND<br />
PFIND3LDX 0,X<br />
BNE PFINDl<br />
*<br />
t not found :<br />
*<br />
llAl 4F<br />
llA2 5F<br />
llA3 7E 10 32<br />
CLR A<br />
CLR B<br />
JMP PUSHBA<br />
llA6 11<br />
llA7 27 DE<br />
llA9 DE EO<br />
PFIm CBA<br />
BEQ<br />
PFIND4 LDX<br />
PFIND2<br />
PD<br />
llAB E6 00 PFIND9 LDA B 0,X<br />
llAD 08 INX<br />
llAE 2A FB BPL PFJND9<br />
llBO 20 EB<br />
*<br />
BRA PFIND3<br />
found :<br />
FOUND LDAA PD<br />
LDA B PIN1<br />
A m B t4<br />
ADC A<br />
PSH B<br />
PSH A<br />
#O<br />
m A<br />
PC<br />
PSH A<br />
CLR A<br />
PSH A<br />
m B #1<br />
JMP PUSHBA<br />
PSH A<br />
CLR A<br />
PSH A<br />
SSB MNEMONIC ASSEMBLER PAGE 13<br />
update PD<br />
get count from arg<br />
initialize PA<br />
compare lengths<br />
is dict entry neg. ?<br />
clear sign<br />
get new link<br />
continue if link not=O<br />
scan forward to end of this name<br />
compute CFA