#:/DOMAC INC MACCOUNT:BNE DOMAC1 6D/INC MACCOUNTª1 ON/DOMAC1 JSR CHECKBYTE iX/CMP #$00:BEQ DOMACD‘E ‚b/CMP #'::BEQ DOMACD‘E ›l/CMP #'!:BEQ DOMACD‘E ¨v/JMP ¡MAC À€/DOMACD‘E JMP DOPASS îŠ/DO€1 LDA #$20:BIT FLAGS:BVS ¤€MAC:JMP DO€ 	”/¤€MAC JMP DO€MAC '	ž/DO°G BIT S¤REFLAGS:BVC °GNODISK >	¨/LDA #$08:JSR $FFC3 n	²/°GNODISK LDA #$20:BIT S¤REFLAGS:BEQ °GNOHEX ¢	¼/LDX #$04:JSR $FFC9:LDA #$0D:JSR $FFD2:JSR $FFCC ¹	Æ/LDA #$04:JSR $FFC3 î	Ð/°GNOHEX LDA S¤REFLAGS:¯ #%10011111:STA S¤REFLAGS 
Ú/BIT FLAGS:BVC °GNOASSADDR 
ä/JSR ASSADDR L
î/°GNOASSADDR:JSR CHECKBYTE:CMP #'²:BEQ DO°G1 g
ø/CMP #$B2:BNE DO°G2 ! ² |
0DO°G1 JSR ËTBYTE —
0DO°G2 LDA #$00:STA $04 £
0JSR ¡½R é
 0LDA $FB:STA CURRAD:STA MCURRAD:LDA $FC:STA CURRADª1:STA MCURRADª1 *0JSR CHECKBYTE:CMP #',:BNE °GNOALT 40JSR ËTBYTE e>0LDA #$00:STA $04:JSR ¡½R:LDA $FB:STA MCURRAD:LDA $FC:STA MCURRADª1 ¥H0°GNOALT LDA MCURRAD:STA STARTAD:LDA MCURRADª1:STA STARTADª1 ½R0SYN¤PASS JMP DOPASS Õ\0DOBYT JSR CHECKBYTE ïf0CMP #$00:BEQ SYN¤PASS p0CMP #'::BEQ SYN¤PASS !z0CMP #'!:BEQ SYN¤PASS ;„0CMP #$22:BEQ BYTQUOTE XŽ0LDA #$80:STA $04:JSR ¡½R n˜0LDA $FC:BNE ¡WARN ‚¢0BIT $04:BVC ¡OK ™¬0¡WARN JSR OVERWARN ±¶0¡OK LDA $FB:STA BUF ¾À0LDY #$01 ÏÊ0JSR S¤RECODE æÔ0BYT‚ JSR CHECKBYTE ÿÞ0CMP #',:BNE SYN¤PASS è0JSR ËTBYTE ò0JMP DOBYT 2ü0BYTQUOTE JSR ¡W°D C1JSR S¤RECODE P1JMP BYT‚ g1DOW° JSR CHECKBYTE €$1CMP #$00:BEQ W°¤PASS ˜.1CMP #'::BEQ W°¤PASS °81CMP #'!:BEQ W°¤PASS ÅB1LDA #$00:STA $04 ÑL1JSR ¡½R ÷V1LDA $FB:STA BUF:LDA $FC:STA BUFª1 `1LDY #$02 j1JSR S¤RECODE 't1JSR CHECKBYTE ?~1CMP #',:BNE W°¤PASS Nˆ1JSR ËTBYTE [’1JMP DOW° rœ1W°¤PASS JMP DOPASS •¦1¡ÆII INY:LDA ($14),Y:BNE ¡ÆII1 ª°1LDA #$20:DEY:RTS Çº1¡ÆII1 CMP #$AA:BCC GARTS ÜÄ1CMP #$AF:BCC GA1 óÎ1CMP #$B1:BCC GARTS 
Ø1CMP #$B4:BCS GARTS  â1E° #%10001111:RTS <ì1GA1 CMP #$AA:BEQ GAPLUS Uö1CMP #$AB:BEQ GAMINUS n 2CMP #$AC:BEQ GAMULTI …
2CMP #$AD:BEQ GADIV ‘2LDA #'® Ÿ2GARTS RTS ¶(2GAPLUS LDA #'ª:RTS Î22GAMINUS LDA #'«:RTS æ<2GAMULTI LDA #'¬:RTS üF2GADIV LDA #'­:RTS P2OUTLAB– LDX #$03:BNE OUTLABYY 7Z2OUTLABELS LDX LABDEV fd2OUTLABYY LDA #$00:STA S¤REFLAGS:STA LABDEV n2LDA FIRSTLABAD:STA $02 žx2LDA FIRSTLABADª1:STA $03 ¾‚2LDA #$03:LDY #$FF:JSR $FFBA ßŒ2LDA #$00:JSR $FFBD:JSR $FFC0 ö–2LDX #$03:JSR $FFC9   2JSR ™ $ª2BYT 13,"VALUE COUNT LABEL",13,0 M´2OUTLABLOOP JSR $FFE1:BEQ OUTLABBREAK q¾2LDA $03:CMP LASTLABADª1:BNE OL1 ‹È2LDA $02:CMP LASTLABAD  Ò2OL1 BCC DOOUTLAB ºÜ2OUTLABBREAK JSR $FFCC Ñæ2LDA #$03:JMP $FFC3 éð2DOOUTLAB JSR ALLRAM ú2LDY #$02:LDA ($02),Y:DEY:°A ($02),Y:BNE DOL1 )3JSR N°MMEM @3LDA #$12:JSR $FFD2 O3JSR ALLRAM s"3DOL1 DEY:LDA ($02),Y:BMI OUTMAC ,3LDY #$03:LDA ($02),Y:TAX ¤63INY:LDA ($02),Y »@3PHA:JSR N°MMEM:PLA ÊJ3JSR OUTHEX ÙT3JMP OLNAME ï^3OUTMAC JSR N°MMEM ùh3JSR ™ r3BYT "MACRO",0 )|3OLNAME LDA #$20:JSR $FFD2 8†3JSR ALLRAM U3LDY #$01:LDA ($02),Y:TAX iš3INY:LDA ($02),Y €¤3PHA:JSR N°MMEM:PLA ®3JSR OUTHEX œ¸3LDY #$05 ³Â3LDA #$20:JSR $FFD2 ÇÌ3OLN1 JSR ALLRAM åÖ3LDA ($02),Y:BEQ OUTLABD‘E üà3PHA:JSR N°MMEM:PLA ê3JSR OUTKEYW°D ô3INY:BNE OLN1 8þ3OUTLABD‘E JSR N°MMEM O4LDA #$0D:JSR $FFD2 k4TYA:SEC:ADC $02:STA $02 ˆ4LDA $03:ADC #$00:STA $03 ›&4JMP OUTLABLOOP ´04OUTKEYW°D BPL OKWÆII Ì:4CMP #$FF:BEQ OKWÆII ÝD4SBC #$7E:TAX éN4STY $49 öX4LDY #$FF b4OKWLOOP1 DEX:BEQ OKWTHIS Jl4OKWLOOP2 INY:LDA $A09E,Y:BPL OKWLOOP2:BMI OKWLOOP1 rv4OKWTHIS INY:LDA $A09E,Y:BMI OKWLAST €€4JSR $FFD2 Š4JMP OKWTHIS ¤”4OKWLAST LDY $49 ¯ž4¯ #$7F Ä¨4OKWÆII JMP $FFD2 Ð N!!20000 ú*NDOOPT JSR CHECKBYTE:CMP #'M:BNE OPT¨á %4NJSR ËTBYTE:JSR ¡½R:BIT FLAGS:BVC DOOPT C>NLDA $FB:°A $FC:BEQ OPTNOá uHNLDA S¤REFLAGS:°A #$80:STA S¤REFLAGS:BMI DOOPT ­RNOPTNOá LDA S¤REFLAGS:¯ #$7F:STA S¤REFLAGS:BPL DOOPT Ë\NOPT¨á CMP #'H:BNE OPT¨HEX fNJSR ËTBYTE:LDA #$04:STA $FB:JSR CHECKBYTE:CMP #',:BNE OPTHEX1 $pNJSR ËTBYTE:JSR ¡½R DzNOPTHEX1 BIT FLAGS:BVC DOOPT k„NLDA #$20:BIT S¤REFLAGS:BEQ OPTHEX2 ŸŽNLDX #$04:JSR $FFC9:LDA #$0D:JSR $FFD2:JSR $FFCC ¶˜NLDA #$04:JSR $FFC3 ¢NOPTHEX2 LDX $FB:LDY #$FF:LDA #$04:JSR $FFBA:LDA #$00:JSR $FFBD:JSR $FFC0 +¬NLDA S¤REFLAGS:°A #$20:STA S¤REFLAGS B¶NLDA #80:STA HEXCNT PÀNJMP DOOPT qÊNOPT¨HEX CMP #'D:BNE OPT¨DISK ‰ÔNJSR ËTBYTE:JSR ¡W°D ¿ÞNBIT FLAGS:BVC OPTDISK0:BIT S¤REFLAGS:BVC OPTDISK2 ÖèNLDA #$08:JSR $FFC3 %òNOPTDISK2 LDA #',:STA BUF,Y:INY:LDA #'P:STA BUF,Y:INY:LDA #',:STA BUF,Y:INY aüNLDA #'W:STA BUF,Y:INY:TYA:LDX #³BUF:LDY #±BUF:JSR $FFBD nOLDX #$08 ‰OOPTDISK0 JSR CHECKBYTE ¢OCMP #',:BNE OPTDISK1 ¹$OJSR ËTBYTE:JSR ¡½R Å.OLDX $FB é8OOPTDISK1 BIT FLAGS:BVC ¤OPTLOOP BOLDA #$08:TAY:JSR $FFBA:JSR $FFC0 6LOLDA S¤REFLAGS:°A #$40:STA S¤REFLAGS …VOLDX #$08:JSR $FFC9:LDA MCURRAD:JSR $FFD2:LDA MCURRADª1:JSR $FFD2:JSR $FFCC œ`O¤OPTLOOP JMP DOOPT ½jOOPT¨DISK CMP #'L:BNE OPT¨LAB ÚtOJSR ËTBYTE:JSR CHECKBYTE û~OLDX #$03:CMP #',:BNE OPTLAB1 ˆOJSR ËTBYTE:JSR ¡½R:LDX $FB ;’OOPTLAB1 STX LABDEV:JMP DOOPT ]œOOPT¨LAB CMP #'S:BNE OPT¨START l¦OJSR ËTBYTE ˜°OLDA #³$A000:STA $FB:LDA #±$A000:STA $FC ÀºOJSR CHECKBYTE:CMP #',:BNE OPTSTART1 ×ÄOJSR ËTBYTE:JSR ¡½R ÎOOPTSTART1 LDA PASS:CMP #$01:BNE START¤DOOPT 8ØOLDA FIRSTLABAD:CMP LASTLABAD:BNE OPTSTARTERR mâOLDA FIRSTLABADª1:CMP LASTLABADª1:BNE OPTSTARTERR –ìOLDA $FB:STA FIRSTLABAD:STA LASTLABAD ÃöOLDA $FC:STA FIRSTLABADª1:STA LASTLABADª1 Ý PSTART¤DOOPT JMP DOOPT ö
POPTSTARTERR JSR ERR° PBYT 1,"LABELTABLE NOT EMPTY",0 'PJMP DOOPT @(POPT¨START JMP DOPASS LØY!!23000 bâYØCR JSR CHECKBYTE |ìYCMP #$00:BEQ SCR¤PASS •öYCMP #'::BEQ SCR¤PASS ® ZCMP #'!:BEQ SCR¤PASS È
ZCMP #$22:BEQ SCRQUOTE åZLDA #$80:STA $04:JSR ¡½R ýZLDA $FC:BNE SCRWARN (ZBIT $04:BVC SCROK ,2ZSCRWARN JSR OVERWARN ><ZSCROK LDA $FB `FZSTA BUF:LDY #$01:JSR S¤RECODE PZSCR‚ JSR CHECKBYTE:CMP #', ZZBNE SCR¤PASS §dZJSR ËTBYTE:JMP ØCR ÁnZSCRQUOTE JSR ¡W°D:TYA ÖxZBEQ SCR‚:TAX:DEX ‚ZMAC:LOOP® LDA BUF,X:JSR ¤SCREEN:STA BUF,X ŒZDEX:BPL LOOP® 0–ZJSR S¤RECODE:JMP SCR‚ <À]!!24000 _Ê]DOCOD LDA #$00:STA $04:JSR ¡½R ŒÔ]LDA $FC:BEQ CODEADD:CMP #$FF:BEQ CODESUB ²Þ]STA CODADDª2:LDA $FB:STA CODADDª1 Êè]SCR¤PASS JMP DOPASS êò]CODEADD LDA $FB:BEQ ¤NOCODE 5 ü]STA CODEBYTE:LDA #³DOCODEADD:STA CODADDª1:LDA #±DOCODEADD:STA CODADDª2 D ^JMP DOPASS  ^¤NOCODE LDA #³NOCODE:STA CODADDª1:LDA #±NOCODE:STA CODADDª2:JMP DOPASS £ ^CODESUB LDA $FB î $^STA CODEBYTE:LDA #³DOCODESUB:STA CODADDª1:LDA #±DOCODESUB:STA CODADDª2 ý .^JMP DOPASS '!8^DOCODEADD CLC:ADC CODEBYTE:NOCODE RTS _!B^DOCODESUB E° #$FF:CLC:ADC #$01:CLC:ADC CODEBYTE:RTS k!¨a!!25000 !²aPAD¤SYN JSR SYNTAX:JMP DOPASS º!¼aDOPAD JSR CHECKBYTE:CMP #$00:BEQ PAD¤SYN Ò!ÆaCMP #'::BEQ PAD¤SYN ê!ÐaCMP #'!:BEQ PAD¤SYN "ÚaMAC:LDA #$00:STA $04:JSR ¡½R /"äaLDA $FB:STA $FD:LDA $FC:STA $FE Q"îaJSR CHECKBYTE:CMP #',:BEQ J1® z"øaLDA #$00:STA $FB:STA $FC:BEQ NOWARN® ¦"bJ1® JSR ËTBYTE:LDA #$80:STA $04:JSR ¡½R Ò"bBIT $04:BVS DOWARN®:LDA $FC:BEQ NOWARN® #bDOWARN® LDA $FD:PHA:LDA $FE:PHA:JSR OVERWARN:PLA:STA $FE:PLA:STA $FD ?# bNOWARN® LDA $FD:°A $FE:BEQ D‘E® ^#*bLDA $FB:LDY $FE:BNE WHOLE® ~#4bLDY $FD:CPY #BUFÃ:BCC LOOP® “#>bWHOLE® LDY #BUFÃ ·#HbLOOP® STA BUF«1,Y:DEY:BNE LOOP® Ó#RbLOOP1® LDA $FE:BNE SUB® õ#\bLDA $FD:CMP #BUFÃª1:BCC LAST® #$fbSUB® LDA $FD:SEC:SBC #BUFÃ:STA $FD:BCS š® /$pbDEC $FE M$zbš® LDY #BUFÃ:JSR S¤RECODE \$„bJMP LOOP1® w$ŽbLAST® TAY:JSR S¤RECODE ‹$˜bD‘E® JMP DOPASS —$y!!31000 ¿$"yFIND JSR $0073:CMP #$00:BEQ FINDD‘E Ì$,yLDY #$00 %6yFINDLOOP1 STA BUF,Y:INY:LDA ($7A),Y:BNE FINDLOOP1 %@ySTA BUF,Y 4%JyLDA $2B:STA $FD:LDA $2C:STA $FE b%TyFINDLOOP2 LDA $FD:STA $FB:LDA $FE:STA $FC Ÿ%^yLDY #$00:LDA ($FB),Y:STA $FD:INY:LDA ($FB),Y:BEQ FINDD‘E ·%hySTA $FE:INY:INY:INY ß%ryFINDLOOP3 LDA ($FB),Y:BEQ FINDLOOP2 ô%|ySTY $14:LDX #$00 &†yFINDLOOP4 LDA BUF,X:BEQ FINDFOUND 5&yCMP ($FB),Y:BNE FIND‚3 O&šyINY:INX:BNE FINDLOOP4 t&¤yFIND‚3 LDY $14:INY:BNE FINDLOOP3 ’&®yFINDD‘E PLA:PLA:JMP $A474 Ö&¸yFINDFOUND LDA $0300:STA FINDADDRLOª1:LDA $0301:STA FINDADDRHIª1 'ÂyLDA #³FINDADDRLO:STA $0300:LDA #±FINDADDRLO:STA $0301 D'ÌyLDA $0328:STA FINDLOª1:LDA $0329:STA FINDHIª1 x'ÖyLDA #³FINDRTS:STA $0328:LDA #±FINDRTS:STA $0329 œ'àyLDA $FB:STA $5F:LDA $FC:STA $60 ã'êyLDY #$02:LDA ($5F),Y:STA $14:TAX:INY:LDA ($5F),Y:STA $15:JMP $A6E8 (ôyFINDADDRLO LDA #³$E38B:STA $0300 -(þyFINDADDRHI LDA #±$E38B:STA $0301 O(zFINDLO LDA #³$F6ED:STA $0328 q(zFINDHI LDA #±$F6ED:STA $0329 (zJSR $A82C:JMP FINDLOOP2 (&zFINDRTS RTS ©( }!!32000 à(
}¡DEC LDA CURRBASAD:STA $14:LDA CURRBASADª1:STA $15 í(}LDY #$00 *)}GDLOOP LDA ($14),Y:CMP #$20:BNE GDNOSPACE:INY:BNE GDLOOP m)(}GDNOSPACE CMP #'0:BCC GDNODEC:CMP #1ª'9:BCS GDNODEC1:JMP GVDEC })2}GDNODEC SEC Ž)<}GDNODEC1 RTS š)è€!!33000 ²)ò€DOBLO JSR CHECKBYTE Ì)ü€CMP #$00:BEQ BLO¤PASS å)CMP #'::BEQ BLO¤PASS þ)CMP #'!:BEQ BLO¤PASS *LDA #$80:STA $04:JSR ¡½R /*$LDA $FB:STA BUF <*.LDY #$01 M*8JSR S¤RECODE _*BJSR CHECKBYTE x*LCMP #',:BNE BLO¤PASS ‘*VJSR ËTBYTE:JMP DOBLO ©*`BLO¤PASS JMP DOPASS µ*Ð„!!34000 Í*Ú„DOBHI JSR CHECKBYTE ç*ä„CMP #$00:BEQ BLO¤PASS  +î„CMP #'::BEQ BLO¤PASS +ø„CMP #'!:BEQ BLO¤PASS 6+…LDA #$80:STA $04:JSR ¡½R J+…LDA $FC:STA BUF W+…LDY #$01 h+ …JSR S¤RECODE z+*…JSR CHECKBYTE “+4…CMP #',:BNE BLO¤PASS ¬+>…JSR ËTBYTE:JMP DOBHI ¸+¸ˆ!!35000 Æ+ÂˆDOHEX !!! Ò+ Œ!!36000 ß+ªŒ¡MAC !!! ü+´ŒJSR UNIMP:JMP DOPASS !!! ,PÃ!!50000 4,ZÃOP1 OPA1²¬ª3«OP1:BYT  0,"DLNRSSXXX",255 \,dÃOPB1²¬ª5«OP1:BYT 0,"CCEIMNPRVV",255 ‚,nÃOPC1²¬ª5«OP1:BYT 0,"LLLLMPPR",255 ¤,xÃOPD1²¬ª3«OP1:BYT 0,"CEEE",255 Ã,‚ÃOPE1²¬ª2«OP1:BYT 0,"O",255 å,ŒÃOPI1²¬ª3«OP1:BYT 0,"NNNN",255 -–ÃOPJ1²¬ª2«OP1:BYT 0,"MS",255 )- ÃOPL1²¬ª3«OP1:BYT 0,"ADDDSS",255 H-ªÃOPN1²¬ª1«OP1:BYT 0,"O",255 h-´ÃOPO1²¬ª2«OP1:BYT 0,"AR",255 Š-¾ÃOPP1²¬ª2«OP1:BYT 0,"HHLL",255 ®-ÈÃOPR1²¬ª3«OP1:BYT 0,"LOORTT",255 Ö-ÒÃOPS1²¬ª8«OP1:BYT 0,"ABEEEKKTTT",255 ú-ÜÃOPT1²¬ª3«OP1:BYT 0,"AASXXY",255 .æÃOPNO²¬«OP1:BYT 0,255 1.ðÃOP2 BYT 0,"CRDRLOALS",255 L.úÃBYT 0,"CSQTIELKCS",255 e.ÄBYT 0,"CDIVPXYS",255 z.ÄBYT 0,"MCXY",255 Œ.ÄBYT 0,"R",255 ¡."ÄBYT 0,"CSXY",255 ´.,ÄBYT 0,"PR",255 Ë.6ÄBYT 0,"XAXYER",255 Ý.@ÄBYT 0,"P",255 ð.JÄBYT 0,"LA",255 /TÄBYT 0,"APAP",255 /^ÄBYT 0,"ALRAIS",255 7/hÄBYT 0,"XCCDIBWAXY",255 N/rÄBYT 0,"XYXASA",255 p/|ÄOPTAB BYT OPA1,OPB1,OPC1,OPD1 –/†ÄBYT OPE1,OPNO,OPNO,OPNO,OPI1,OPJ1 ¼/ÄBYT OPNO,OPL1,OPNO,OPN1,OPO1,OPP1 Ø/šÄBYT OPNO,OPR1,OPS1,OPT1 ä/DÅ!!50500 0NÅPTAB1 BYT "BBBCDEHLMOOPSTW" $0XÅPTAB2 BYT "HLYOENENAPRACXO" D0bÅPTAB3 BYT "IOTDFDXKCTGDRTR" P0¨Å!!50600 r0²ÅOPJMPLO BLO DOBHI,DOBLO,DOBYT 0¼ÅBLO DOCOD,DO–,DO€1,DOHEX ®0ÆÅBLO DOLNK,DOMAC,DOOPT,DO°G Ë0ÐÅBLO DOPAD,ØCR,DOBYT,DOW° í0ÚÅOPJMPHI BHI DOBHI,DOBLO,DOBYT 
1äÅBHI DOCOD,DO–,DO€1,DOHEX )1îÅBHI DOLNK,DOMAC,DOOPT,DO°G F1øÅBHI DOPAD,ØCR,DOBYT,DOW° R18Ç!!51000 d1BÇDP JMP BREAK r1LÇDPRTS RTS 1VÇS¤RE¤PASS JSR S¤RECODE ®1`ÇMAC:DOPASS JSR $FFE1:BEQ DP Î1jÇJSR ¡W°D:CPY #$00:BEQ DPRTS ë1tÇLDA BUF:CMP #'.:BNE DPOP 2~ÇLDX #$00:DEY:BEQ DOPASS 92ˆÇLOOP® LDA BUFª1,X:STA BUF,X:INX:DEY:BNE LOOP® R2’ÇTXA:TAY:BNE DPPSEUDO g2œÇ¤DPNO3 JMP DPNO3 „2¦ÇDPOP CPY #$03:BNE ¤DPNO3 ¥2°ÇLDA BUF:CMP #'A:BCC DPPSEUDO ¾2ºÇCMP #'U:BCS DPPSEUDO Ù2ÄÇTAX:LDA OPTAB«'A,X:TAX ú2ÎÇLDA BUFª1:CMP OP1,X:BEQ DPC2 
3ØÇBCC DPDOWN1 63âÇDPUP1 INX:CMP OP1,X:BEQ DPUP2:BCS DPUP1 G3ìÇBCC DPPSEUDO s3öÇDPUP2 LDA BUFª2:CMP OP2,X:BEQ ¤DPOPTHIS ‹3 ÈLDA BUFª1:BCS DPUP1 œ3
ÈBCC DPPSEUDO Ç3ÈDPC2 LDA BUFª2:CMP OP2,X:BEQ ¤DPOPTHIS ß3ÈLDA BUFª1:BCS DPUP1 4(ÈDPDOWN1 DEX:CMP OP1,X:BEQ DPDOWN2:BCC DPDOWN1 "42ÈBCS DPPSEUDO P4<ÈDPDOWN2 LDA BUFª2:CMP OP2,X:BEQ ¤DPOPTHIS j4FÈLDA BUFª1:BCC DPDOWN1 ‹4PÈDPPSEUDO CPY #$03:BNE DPPNO3 ©4ZÈLDA #$08:STA $02:LDX #$07 Ð4dÈDPPL1 LDA BUF:CMP PTAB1,X:BEQ DPP2 à4nÈBCC DPPDOWN  5xÈDPPUP LSR $02:BEQ ¤DOLABEL1 "5‚ÈTXA:CLC:ADC $02:TAX:BPL DPPL1 J5ŒÈDPP2 LDA BUFª1:CMP PTAB2,X:BEQ DPP3 X5–ÈBCS DPPUP z5 ÈDPPDOWN LSR $02:BEQ ¤DOLABEL1 œ5ªÈTXA:SEC:SBC $02:TAX:BPL DPPL1 ¶5´È¤DOLABEL1 JMP DOLABEL Ñ5¾È¤DPOPTHIS JMP DPOPTHIS 6ÈÈDPP3 LDA BUFª2:CMP PTAB3,X:BCC DPPDOWN:BNE DPPUP H6ÒÈDPPTHIS MAC:LDA OPJMPLO,X:STA JMP®ª1:LDA OPJMPHI,X:STA JMP®ª2 [6ÜÈJMP® JMP DOBYT z6æÈDPPNO3 CPY #$02:BNE DPPNO2 Ÿ6ðÈLDA BUF:CMP #$B0:BNE DPPNO31 ! ° Â6úÈLDA BUFª1:CMP #'G:BNE ¤DOLABEL à6ÉLDX #$0A:BNE DPPTHIS ! °G 7ÉDPPNO31 CMP #'W:BNE ¤DOLABEL )7ÉLDA BUFª1:CMP #$B0:BNE ¤DOLABEL ! ° G7"ÉLDX #$0E:BNE DPPTHIS ! W° d7,ÉDPNO3 CPY #$02:BNE DPNO2 ƒ76ÉLDA #'E:CMP BUF:BNE DPNO31 «7@ÉLDA #$B0:CMP BUFª1:BNE ¤DOLABEL ! ° É7JÉLDX #40:JMP DPOPTHIS ! E° ô7TÉDPNO31 LDA #$B0:CMP BUF:BNE DPNO32 ! ° 8^ÉLDA #'A:CMP BUFª1:BNE DPPNO3 38hÉLDX #65:JMP DPOPTHIS ! °A Y8rÉDPNO32 LDA #'R:CMP BUF:BNE DPPNO3 8|ÉLDA #$B0:CMP BUFª1:BNE ¤DOLABEL ! ° Ÿ8†ÉLDX #76:JMP DPOPTHIS ! R° ¸8É¤DOLABEL JMP DOLABEL Ø8šÉDPNO2 CPY #$01:BNE ¤DOLABEL ü8¤ÉLDA BUF:CMP #$AF:BNE DPPNO2 ! ¯ 9®ÉLDX #3:JMP DPOPTHIS ! ¯ 99¸ÉDPPNO2 CPY #$01:BNE ¤DOLABEL ]9ÂÉLDA BUF:CMP #$80:BNE DPNO22 ! € x9ÌÉLDX #5:JMP DPPTHIS ! € ›9ÖÉDPNO22 CMP #$96:BNE DPNO23 ! – ¶9àÉLDX #4:JMP DPPTHIS ! – Ú9êÉDPNO23 CMP #$AC:BEQ DPNO23X ! ¬ ñ9ôÉCMP #'¬:BNE DPNO24 :þÉDPNO23X LDX #$0A:JMP DPPTHIS ! °G 7:ÊDPNO24 CMP #'A:BNE ¤DOLABEL D:ÊJSR ERR° `:ÊBYT 1,"ILLEGAL LABEL",0 o:&ÊJMP DOPASS {: Ë!!52000 ž:*ËMAC:DPILLADR LDY BL®:BNE CODE® «:4ËJSR ERR° Ó:>ËBYT 128,"ILLEGAL ADDRESSING MODE",0 â:HËJMP DOPASS ,;RËDPOPTHIS LDA ADTABLO,X:STA $26:LDA ADTABHI,X:STA $27:LDA #$00:STA BL® L;\ËJSR ¡AD:STA ADMODE:LDY #$FF w;fËLOOP® INY:LDA ($26),Y:BMI DPILLADR:INY ¯;pËTAX:LDA BNETAB®,X:STA BNE®ª1:BNE® BNE #$00:BNETAR¡® Ð;zËBNE078® CPX ADMODE:BNE LOOP® <„ËLDA ($26),Y:STA BUF:LDA $FB:STA BUFª1:LDY #$02:CODE® JMP S¤RE¤PASS ,<ŽË¤BNEA® JMP BNEA® C<˜Ë¤BNE9B® JMP BNE9B® Œ<¢ËBNE135® CPX ADMODE:BEQ BNE1352®:INX:CPX ADMODE:BNE LOOP®:LDA ($26),Y Ø<¬ËSTA BUF:LDA $FB:STA BUFª1:LDA #$00:STA BUFª2:LDA #$03:STA BL®:BNE LOOP® ÷<¶ËBNEC® CPX ADMODE:BNE LOOP® <=ÀËBNE1352® LDA ($26),Y:STA BUF:LDA $FB:STA BUFª1:LDA $FC:STA BUFª2 W=ÊËLDY #$03:JMP S¤RE¤PASS {=ÔËBNE246® CPX ADMODE:BEQ BNE2462® ˜=ÞËDEX:CPX ADMODE:BNE LOOP® Ï=èËLDA ($26),Y:STA BUF:LDA $FB:STA BUFª1:JSR OVERWARN ê=òËLDY #$02:JMP S¤RE¤PASS >üËBNE2462® LDA ($26),Y:STA BUF:LDA $FB:STA BUFª1 8>ÌLDY #$02:JMP S¤RE¤PASS Y>ÌBNE9B® CPX ADMODE:BNE ¤LOOP® ˆ>ÌLDA ($26),Y:STA BUF:LDY #$01:JMP S¤RE¤PASS >$Ì¤LOOP® JMP LOOP® Û>.ÌBNEA® LDA ADMODE:CMP #$01:BEQ BNEAOK®:CMP #$02:BNE ¤LOOP® û>8ÌBNEAOK® LDA ($26),Y:STA BUF ?BÌLDA $FB:SEC:SBC CURRAD:STA $FB ;?LÌLDA $FC:SBC CURRADª1:TAY \?VÌLDA $FB:SEC:SBC #$02:STA $FB ¨?`ÌTYA:SBC #$00:BNE BRANCHBACK:LDA $FB:CMP #$80:BCC BRANCHOK:BCS BRANCHERR Î?jÌBRANCHBACK CMP #$FF:BNE BRANCHERR ð?tÌLDA $FB:CMP #$80:BCS BRANCHOK @~ÌBRANCHERR JSR ERR° +@ˆÌBYT 128,"BRANCH OUT OF RANGE",0 a@’ÌBRANCHOK LDA $FB:STA BUFª1:LDY #$02:JMP S¤RE¤PASS ‚@œÌBNETAB® BYT BNE078®«BNETAR¡® ¬@¦ÌBYT BNE135®«BNETAR¡®,BNE246®«BNETAR¡® Ö@°ÌBYT BNE135®«BNETAR¡®,BNE246®«BNETAR¡®  AºÌBYT BNE135®«BNETAR¡®,BNE246®«BNETAR¡® *AÄÌBYT BNE078®«BNETAR¡®,BNE078®«BNETAR¡® SAÎÌBYT ¤BNE9B®«BNETAR¡®,¤BNEA®«BNETAR¡® {AØÌBYT ¤BNE9B®«BNETAR¡®,BNEC®«BNETAR¡® ‰AâÌBL® BYT 0 šAìÌADMODE BYT 0 ¦Aâ!!58000 ÄAšâADTABLO BLO 0,ADCAD,ALRAD âA¤âBLO ¯AD,ARRAD,ASLAD,ASOAD  B®âBLO AXAAD,AXLAD,AXSAD,0,0  B¸âBLO BCCAD,BCSAD,BEQAD,BITAD @BÂâBLO BMIAD,BNEAD,BPLAD,BRKAD XBÌâBLO BVCAD,BVSAD,0,0 xBÖâBLO CLCAD,CLDAD,CLIAD,CLVAD ˜BàâBLO CMPAD,CPXAD,CPYAD,CRSAD ¤BêâBLO 0,0 ÄBôâBLO DCMAD,DECAD,DEXAD,DEYAD ÐBþâBLO 0,0 áBãBLO E°AD,0,0 CãBLO INCAD,INSAD,INXAD,INYAD CãBLO 0,0 %C&ãBLO JMPAD,JSRAD,0,0 EC0ãBLO LAXAD,LDAAD,LDXAD,LDYAD ]C:ãBLO LSEAD,LSRAD,0,0 oCDãBLO NOPAD,0,0 †CNãBLO OALAD,°AAD,0,0 ¦CXãBLO PHAAD,PHPAD,PLAAD,PLPAD ²CbãBLO 0,0 ÑClãBLO RLAAD,ROLAD,R°AD,RRAAD éCvãBLO RTIAD,RTSAD,0,0 	D€ãBLO SAXAD,SBCAD,SECAD,SEDAD )DŠãBLO SEIAD,SKBAD,SKWAD,STAAD AD”ãBLO STXAD,STYAD,0,0 aDžãBLO TAXAD,TAYAD,TSXAD,TXAAD uD¨ãBLO TXSAD,TYAAD “D²ãADTABHI BHI 0,ADCAD,ALRAD ±D¼ãBHI ¯AD,ARRAD,ASLAD,ASOAD ÏDÆãBHI AXAAD,AXLAD,AXSAD,0,0 ïDÐãBHI BCCAD,BCSAD,BEQAD,BITAD EÚãBHI BMIAD,BNEAD,BPLAD,BRKAD 'EäãBHI BVCAD,BVSAD,0,0 GEîãBHI CLCAD,CLDAD,CLIAD,CLVAD gEøãBHI CMPAD,CPXAD,CPYAD,CRSAD sEäBHI 0,0 “EäBHI DCMAD,DECAD,DEXAD,DEYAD ŸEäBHI 0,0 °E äBHI E°AD,0,0 ÐE*äBHI INCAD,INSAD,INXAD,INYAD ÜE4äBHI 0,0 ôE>äBHI JMPAD,JSRAD,0,0 FHäBHI LAXAD,LDAAD,LDXAD,LDYAD ,FRäBHI LSEAD,LSRAD,0,0 >F\äBHI NOPAD,0,0 UFfäBHI OALAD,°AAD,0,0 uFpäBHI PHAAD,PHPAD,PLAAD,PLPAD FzäBHI 0,0  F„äBHI RLAAD,ROLAD,R°AD,RRAAD ¸FŽäBHI RTIAD,RTSAD,0,0 ØF˜äBHI SAXAD,SBCAD,SECAD,SEDAD øF¢äBHI SEIAD,SKBAD,SKWAD,STAAD G¬äBHI STXAD,STYAD,0,0 0G¶äBHI TAXAD,TAYAD,TSXAD,TXAAD DGÀäBHI TXSAD,TYAAD †GÊäADCAD BYT 0,$69,1,$6D,2,$65,3,$7D,4,$75,5,$79,7,$71,8,$61,255 žGÔäALRAD BYT 0,$6B,255 ÞGÞä¯AD BYT 0,$29,1,$2D,2,$25,3,$3D,4,$35,5,$39,7,$31,8,$21,255 öGèäARRAD BYT 0,$6B,255 -HòäASLAD BYT 1,$0E,2,$06,3,$1E,4,$16,9,$0A,11,$0A,255 oHüäASOAD BYT 0,$0B,1,$0F,2,$07,3,$1F,4,$17,5,$1B,7,$13,8,$03,255 ‡HåAXAAD BYT 0,$8B,255 ŸHåAXLAD BYT 7,$93,255 ÉHåAXSAD BYT 1,$8F,2,$87,6,$97,8,$83,255 èH$åBCCAD BYT 0,$90,10,$90,255 I.åBCSAD BYT 0,$B0,10,$B0,255 &I8åBEQAD BYT 0,$F0,10,$F0,255 DIBåBITAD BYT 1,$2C,2,$24,255 cILåBMIAD BYT 0,$30,10,$30,255 ‚IVåBNEAD BYT 0,$D0,10,$D0,255 ¡I`åBPLAD BYT 0,$10,10,$10,255 ºIjåBRKAD BYT 11,$00,255 ÙItåBVCAD BYT 0,$50,10,$50,255 øI~åBVSAD BYT 0,$70,10,$70,255 JˆåCLCAD BYT 11,$18,255 *J’åCLDAD BYT 11,$D8,255 CJœåCLIAD BYT 11,$58,255 \J¦åCLVAD BYT 11,$B8,255 žJ°åCMPAD BYT 0,$C9,1,$CD,2,$C5,3,$DD,4,$D5,5,$D9,7,$D1,8,$C1,255 ÂJºåCPXAD BYT 0,$E0,1,$EC,2,$E4,255 æJÄåCPYAD BYT 0,$C0,1,$CC,2,$C4,255 ÿJÎåCRSAD BYT 11,$02,255 ;KØåDCMAD BYT 1,$CF,2,$C7,3,$DF,4,$D7,5,$DB,7,$D3,8,$C3,255 eKâåDECAD BYT 1,$CE,2,$C6,3,$DE,4,$D6,255 ~KìåDEXAD BYT 11,$CA,255 —KöåDEYAD BYT 11,$88,255 ØK æE°AD BYT 0,$49,1,$4D,2,$45,3,$5D,4,$55,5,$59,7,$51,8,$41,255 L
æINCAD BYT 1,$EE,2,$E6,3,$FE,4,$F6,255 DLæINSAD BYT 0,$4B,1,$EF,2,$E7,3,$FF,4,$F7,5,$FB,7,$F3,8,$E3,255 ]LæINXAD BYT 11,$E8,255 vL(æINYAD BYT 11,$C8,255 •L2æJMPAD BYT 1,$4C,12,$6C,255 ­L<æJSRAD BYT 1,$20,255 ãLFæLAXAD BYT 1,$AF,2,$A7,4,$B7,5,$BF,7,$B3,8,$A3,255 %MPæLDAAD BYT 0,$A9,1,$AD,2,$A5,3,$BD,4,$B5,5,$B9,7,$B1,8,$A1,255 UMZæLDXAD BYT 0,$A2,1,$AE,2,$A6,5,$BE,6,$B6,255 …MdæLDYAD BYT 0,$A0,1,$AC,2,$A4,3,$BC,4,$B4,255 ÁMnæLSEAD BYT 1,$4F,2,$47,3,$5F,4,$57,5,$5B,7,$53,8,$43,255 øMxæLSRAD BYT 1,$4E,2,$46,3,$5E,4,$56,9,$4A,11,$4A,255 N‚æNOPAD BYT 11,$EA,255 )NŒæOALAD BYT 0,$AB,255 jN–æ°AAD BYT 0,$09,1,$0D,2,$05,3,$1D,4,$15,5,$19,7,$11,8,$01,255 ƒN æPHAAD BYT 11,$48,255 œNªæPHPAD BYT 11,$08,255 µN´æPLAAD BYT 11,$68,255 ÎN¾æPLPAD BYT 11,$28,255 OÈæRLAAD BYT 0,$2B,1,$2F,2,$27,3,$3F,4,$37,5,$3B,7,$33,8,$23,255 GOÒæROLAD BYT 1,$2E,2,$26,3,$3E,4,$36,9,$2A,11,$2A,255 }OÜæR°AD BYT 1,$6E,2,$66,3,$7E,4,$76,9,$6A,11,$6A,255 ¹OææRRAAD BYT 1,$6F,2,$67,3,$7F,4,$77,5,$7B,7,$73,8,$63,255 ÚOðæRTIAD BYT 11:NMI BYT $40,255 óOúæRTSAD BYT 11,$60,255 PçSAXAD BYT 0,$CB,255 MPçSBCAD BYT 0,$E9,1,$ED,2,$E5,3,$FD,4,$F5,5,$F9,7,$F1,8,$E1,255 fPçSECAD BYT 11,$38,255 P"çSEDAD BYT 11,$F8,255 ˜P,çSEIAD BYT 11,$78,255 ¶P6çSKBAD BYT 0,$80,2,$80,255 ÎP@çSKWAD BYT 1,$0C,255 
QJçSTAAD BYT 1,$8D,2,$85,3,$9D,4,$95,5,$99,7,$91,8,$81,255 .QTçSTXAD BYT 1,$8E,2,$86,6,$96,255 RQ^çSTYAD BYT 1,$8C,2,$84,4,$94,255 kQhçTAXAD BYT 11,$AA,255 „QrçTAYAD BYT 11,$A8,255 Q|çTSXAD BYT 11,$BA,255 ¶Q†çTXAAD BYT 11,$8A,255 ÏQçTXSAD BYT 11,$9A,255 èQšçTYAAD BYT 11,$98,255 ôQ`ê!!60000 (RjêRS BYT "LOAD ",34,"0:*",34,",8,1",13,"RUN",13,0 CRtêF1 BYT "SYS 32768,2",0 ^R~êF2 BYT "SYS 32771,2",0 wRˆêF3 BYT "SYS 32774",0 “R’êF4 BYT "SYS 32777",13,0 ËRœêF5 BYT "LÏ ",34,34,"0:,8,1:",13,0 èR¦êF6 BYT "SAVE ",34,"0:",0 S°êF7 BYT "SYS 32783,8,",34,"$0:*",34,13,0 3SºêF8 BYT "SYS 32783,8,",34,0 ]SÄêFUNCTAB W° RS,F1,F3,F5,F7,F2,F4,F6,F8 kS6ÿ!!65334 1 €S7ÿ€ "ASS PART 1",8   