REM > AtEco240/lst REM Source for Acorn Atom Econet 2.40 REM Econet Version 2: REM 2-byte station numbers REM frame is stn,net,ctrl,port,data REM immediates are &84,&98,&88,&8C,&9C,&90,&94 PEEK,... REM broadcasts are dest=&FF REM stations &EF+ are protected NMIV =&0200:BRKV =&0202:IRQV =&0204:CLIV=&0206 WRCHV=&0208:RDCHV=&020A:LOADV=&020C:SAVEV=&020E RDARV=&0210:STARV=&0212:BGETV=&0214:BPUTV=&0216 FINDV=&0218:SHUTV=&021A:IND1V=&021C:IND2V=&021E load%=&A000 DIM mcode% &1014 FOR P=0 TO 1 P%=load%:O%=mcode% [OPT P*3+4 .exec% .LA000 LDA #&00 :\ A000 A9 00 ). BNE LA018 :\ A002 D0 14 P. BIT &B001 :\ A004 2C 01 B0 ,.0 BMI LA013 :\ A007 30 0A 0. JSR LA0C8 :\ A009 20 C8 A0 H LDA #&C0 :\ A00C A9 C0 )@ STA &B400 :\ A00E 8D 00 B4 ..4 PLA :\ A011 68 h RTI :\ A012 40 @ .LA013 BVS LA018 :\ A013 70 03 p. JMP LA000 :\ A015 4C 00 A0 L. .LA018 TYA :\ A018 98 . PHA :\ A019 48 H TXA :\ A01A 8A . PHA :\ A01B 48 H LDX #&06 :\ A01C A2 06 ". .LA01E LDA LA0A5,X:STA &0239,X :\ Copy some settings to &238-&23F DEX:BNE LA01E LDA #&28:STA &021C :\ A029 8D 1C 02 ... LDA #&D1:STA &021D :\ A02E 8D 1D 02 ... LDA #LA15A AND 255:STA &0204 :\ Hook into IRQV LDA #LA15A DIV 256:STA &0205 LDA #&0E:STA &0200 :\ A03D 8D 00 02 ... LDA #&A1:STA &0201 :\ A042 8D 01 02 ... JSR LA0C8 :\ A045 20 C8 A0 H LDA #&00 :\ A048 A9 00 ). BNE LA08F :\ A04A D0 43 PC LDX #&0B :\ A04C A2 0B ". .LA04E LDA LA0AB,X:STA &800A,X :\ A051 9D 0A 80 ... DEX:BNE LA04E :\ A055 D0 F7 Pw CLD :\ A057 D8 X LDA &B404 :\ A058 AD 04 B4 -.4 LDX #&2F :\ A05B A2 2F "/ SEC :\ A05D 38 8 .LA05E SBC #&64 :\ A05E E9 64 id INX :\ A060 E8 h BCS LA05E :\ A061 B0 FB 0{ ADC #&64 :\ A063 69 64 id STX &801D :\ A065 8E 1D 80 ... LDX #&2F :\ A068 A2 2F "/ .LA06A SBC #&0A :\ A06A E9 0A i. INX :\ A06C E8 h BCS LA06A :\ A06D B0 FB 0{ ADC #&3A :\ A06F 69 3A i: STX &801E :\ A071 8E 1E 80 ... STA &801F :\ A074 8D 1F 80 ... LDA #&20 :\ A077 A9 20 ) AND &B401 :\ A079 2D 01 B4 -.4 BEQ LA089 :\ A07C F0 0B p. LDX #&05 :\ A07E A2 05 ". .LA080 LDA LA0B6,X :\ A080 BD B6 A0 =6 STA &8016,X :\ A083 9D 16 80 ... DEX :\ A086 CA J BNE LA080 :\ A087 D0 F7 Pw .LA089 JSR LA700 :\ A089 20 00 A7 .' JMP LA09A :\ A08C 4C 9A A0 L. .LA08F LDX #&0C :\ A08F A2 0C ". .LA091 LDA LA0BB,X :\ A091 BD BB A0 =; JSR &FFE9 :\ A094 20 E9 FF i. DEX :\ A097 CA J BNE LA091 :\ A098 D0 F7 Pw .LA09A PLA :\ A09A 68 h TAX :\ A09B AA * PLA :\ A09C 68 h TAY :\ A09D A8 ( LDA #&00 :\ A09E A9 00 ). BNE LA0A4 :\ A0A0 D0 02 P. PLA :\ A0A2 68 h RTI :\ A0A3 40 @ .LA0A4 CLI :\ A0A4 58 X .LA0A5 RTS :\ A0A5 60 ` \ Default Econet settings \ ----------------------- .LA0A6 ORA (&00,X) :\ A0A6 01 00 .. EQUB &02 :\ A0A8 02 . JMP LA34B :\ Entry to Network Transmit \ Econet startup message - bytes poked into screen memory \ ------------------------------------------------------- \ Changes startup message from ACORN ATOM to ACORN ATOM ECONET 2.40 \ EQUB &05:EQUB &03:EQUB &0F :\ "ECO" EQUB &0E:EQUB &05:EQUB &14 :\ "NET" EQUS " 2.40" :\ " 2.40" .LA0B7 EQUB &8E:EQUB &8F:EQUB &83 :\ "NOC" EQUB &8C:EQUB &8B :\ "LK" .LA0BC EQUB &0D :\ A0BC 0D . EQUS "04.2 TENOCE" .LA0C8 LDA #&D0 :\ A0C8 A9 D0 )P STA &C2 :\ A0CA 85 C2 .B LDA #&FF :\ A0CC A9 FF ). STA &C3 :\ A0CE 85 C3 .C LDA #&01 :\ A0D0 A9 01 ). STA &C0 :\ A0D2 85 C0 .@ ORA &023A :\ A0D4 0D 3A 02 .:. STA &023A :\ A0D7 8D 3A 02 .:. .LA0DA LDA #&C1 :\ A0DA A9 C1 )A STA &B400 :\ A0DC 8D 00 B4 ..4 LDA #&1E :\ A0DF A9 1E ). STA &B403 :\ A0E1 8D 03 B4 ..4 LDA #&80 :\ A0E4 A9 80 ). STA &B401 :\ A0E6 8D 01 B4 ..4 .LA0E9 LDA #&02 :\ A0E9 A9 02 ). STA &B400 :\ A0EB 8D 00 B4 ..4 .LA0EE LDA #&63 :\ A0EE A9 63 )c STA &B401 :\ A0F0 8D 01 B4 ..4 .LA0F3 RTS :\ A0F3 60 ` .LA0F4 LDA &B400 :\ A0F4 AD 00 B4 -.4 STA &0236 :\ A0F7 8D 36 02 .6. LDA &B401 :\ A0FA AD 01 B4 -.4 STA &0237 :\ A0FD 8D 37 02 .7. JSR LA0EE :\ A100 20 EE A0 n LDX &FF :\ A103 A6 FF &. RTS :\ A105 60 ` .LA106 LDA #&10 :\ A106 A9 10 ). .LA108 BIT &B400 :\ A108 2C 00 B4 ,.4 BEQ LA108 :\ A10B F0 FB p{ RTS :\ A10D 60 ` PLA :\ A10E 68 h STA &0220 :\ A10F 8D 20 02 . . PLA :\ A112 68 h STA &0221 :\ A113 8D 21 02 .!. PLA :\ A116 68 h STA &0222 :\ A117 8D 22 02 .". PLA :\ A11A 68 h STA &0223 :\ A11B 8D 23 02 .#. TXA :\ A11E 8A . STA &0224 :\ A11F 8D 24 02 .$. TYA :\ A122 98 . STA &0225 :\ A123 8D 25 02 .%. LDA &B400 :\ A126 AD 00 B4 -.4 STA &0226 :\ A129 8D 26 02 .&. LDA &B401 :\ A12C AD 01 B4 -.4 STA &0227 :\ A12F 8D 27 02 .'. .LA132 JMP LA132 :\ A132 4C 32 A1 L2! .LA135 JMP (&021C) :\ A135 6C 1C 02 l.. .LA138 LDA #&04 :\ A138 A9 04 ). AND &B401 :\ A13A 2D 01 B4 -.4 BNE LA14E :\ A13D D0 0F P. .LA13F LDA &B400 :\ A13F AD 00 B4 -.4 STA &0236 :\ A142 8D 36 02 .6. LDA &B401 :\ A145 AD 01 B4 -.4 STA &0237 :\ A148 8D 37 02 .7. JSR LA0DA :\ A14B 20 DA A0 Z .LA14E JSR LA0EE :\ A14E 20 EE A0 n PLA :\ A151 68 h RTI :\ A152 40 @ .LA153 LDA #&22 :\ A153 A9 22 )" STA &B400 :\ A155 8D 00 B4 ..4 PLA :\ A158 68 h RTI :\ A159 40 @ \ Econet IRQ handler \ ================== .LA15A BIT &B400 :\ A15A 2C 00 B4 ,.4 BPL LA135 :\ A15D 10 D6 .V LDA #&01 :\ A15F A9 01 ). BIT &B401 :\ A161 2C 01 B4 ,.4 BEQ LA138 :\ A164 F0 D2 pR LDA &B402 :\ Get byte, ADDRESS_LO CMP #&FF :\ BCS LA173 :\ Destination=&FF - broadcast CMP &B404 :\ Compare with my station number BNE LA153 :\ No match, jump to go idle CLC :\ .LA173 LDA #&01 :\ .LA175 BIT &B400 :\ BPL LA175 :\ Wait for bit 7 BEQ LA13F :\ bit0=0, LDA &B402 :\ Get byte, ADDRESS_HI BNE LA153 :\ Not net=0, not for us, jump to go idle BCS LA186 :\ DEC &023A :\ \ A frame that is destined for us \ ------------------------------- \ Frame is: \ flag dest.stn dest.net src.stn src.net ctrl port addr16 addr16 \ &C8 &C9 &CA &CB \ .LA186 TYA :\ A186 98 . PHA :\ A187 48 H TXA :\ A188 8A . PHA :\ A189 48 H TSX :\ A18A BA : STX &FF :\ A18B 86 FF .. LDX #&00 :\ A18D A2 00 ". LDY #&F8 :\ Get eight more bytes JSR LA2F3 :\ Get the rest of the frame LDA &CB:BNE LA1A8 :\ Jump if port<>0, not immediate operation LDA #&C8:STA &C6 :\ Point to received frame at &00C8 LDA #&00:STA &C7 LDY #&02 :\ Point to control byte JSR LA4C9 :\ Do the immediate operation .LA1A5 JMP LA2C2 :\ A1A5 4C C2 A2 LB" .LA1A8 LDA &0230 :\ A1A8 AD 30 02 -0. STA &C6 :\ A1AB 85 C6 .F LDA &0231 :\ A1AD AD 31 02 -1. STA &C7 :\ A1B0 85 C7 .G JSR LA226 :\ A1B2 20 26 A2 &" TYA :\ A1B5 98 . PHA :\ A1B6 48 H JSR LA2CB :\ A1B7 20 CB A2 K" JSR LA25A :\ A1BA 20 5A A2 Z" LDY &C1 :\ A1BD A4 C1 $A JSR LA2F3 :\ A1BF 20 F3 A2 s" JSR LA2CB :\ A1C2 20 CB A2 K" PLA :\ A1C5 68 h TAY :\ A1C6 A8 ( DEY :\ A1C7 88 . LDA &C3 :\ A1C8 A5 C3 %C STA (&C6),Y :\ A1CA 91 C6 .F DEY :\ A1CC 88 . LDA &C2 :\ A1CD A5 C2 %B STA (&C6),Y :\ A1CF 91 C6 .F DEY :\ A1D1 88 . DEY :\ A1D2 88 . DEY :\ A1D3 88 . LDA &C9 :\ A1D4 A5 C9 %I STA (&C6),Y :\ A1D6 91 C6 .F DEY :\ A1D8 88 . LDA &C8 :\ A1D9 A5 C8 %H STA (&C6),Y :\ A1DB 91 C6 .F DEY :\ A1DD 88 . LDA &CB :\ A1DE A5 CB %K STA (&C6),Y :\ A1E0 91 C6 .F DEY :\ A1E2 88 . LDA &CA :\ A1E3 A5 CA %J ORA #&80 :\ A1E5 09 80 .. STA (&C6),Y :\ A1E7 91 C6 .F BNE LA1A5 :\ A1E9 D0 BA P: .LA1EB LDA &B400 :\ A1EB AD 00 B4 -.4 LDA &B401 :\ A1EE AD 01 B4 -.4 .LA1F1 JSR LA0EE :\ A1F1 20 EE A0 n LDY #&E7 :\ A1F4 A0 E7 g LDA #&04 :\ A1F6 A9 04 ). BIT &B401 :\ A1F8 2C 01 B4 ,.4 BEQ LA20A :\ A1FB F0 0D p. LDA #&10 :\ A1FD A9 10 ). BIT &B400 :\ A1FF 2C 00 B4 ,.4 BEQ LA1F1 :\ A202 F0 ED pm STY &B401 :\ A204 8C 01 B4 ..4 JMP LA220 :\ A207 4C 20 A2 L " .LA20A LDA #&10 :\ A20A A9 10 ). BIT &B400 :\ A20C 2C 00 B4 ,.4 BEQ LA1F1 :\ A20F F0 E0 p` LDA #&04 :\ A211 A9 04 ). LDY #&FF :\ A213 A0 FF . .LA215 BIT &B401 :\ A215 2C 01 B4 ,.4 BNE LA1F1 :\ A218 D0 D7 PW DEY :\ A21A 88 . BNE LA215 :\ A21B D0 F8 Px JMP LA3FE :\ A21D 4C FE A3 L~# .LA220 LDY #&44 :\ A220 A0 44 D STY &B400 :\ A222 8C 00 B4 ..4 RTS :\ A225 60 ` .LA226 BIT &023A :\ A226 2C 3A 02 ,:. BPL LA257 :\ A229 10 2C ., LDY #&00 :\ A22B A0 00 . .LA22D LDA (&C6),Y :\ A22D B1 C6 1F BEQ LA257 :\ A22F F0 26 p& BMI LA2A4 :\ A231 30 71 0q INY :\ A233 C8 H LDA (&C6),Y :\ A234 B1 C6 1F BEQ LA23C :\ A236 F0 04 p. CMP &CB :\ A238 C5 CB EK BNE LA2A5 :\ A23A D0 69 Pi .LA23C INY :\ A23C C8 H LDA (&C6),Y :\ A23D B1 C6 1F BNE LA248 :\ A23F D0 07 P. INY :\ A241 C8 H LDA (&C6),Y :\ A242 B1 C6 1F BEQ LA253 :\ A244 F0 0D p. BNE LA24F :\ A246 D0 07 P. .LA248 CMP &C8 :\ A248 C5 C8 EH BNE LA2A6 :\ A24A D0 5A PZ INY :\ A24C C8 H LDA (&C6),Y :\ A24D B1 C6 1F .LA24F CMP &C9 :\ A24F C5 C9 EI BNE LA2A7 :\ A251 D0 54 PT .LA253 INY :\ A253 C8 H JMP LA492 :\ A254 4C 92 A4 L.$ .LA257 JMP LA2B1 :\ A257 4C B1 A2 L1" .LA25A BIT &B400 :\ A25A 2C 00 B4 ,.4 BPL LA25A :\ A25D 10 FB .{ LDA #&01 :\ A25F A9 01 ). BIT &B401 :\ A261 2C 01 B4 ,.4 BEQ LA28E :\ A264 F0 28 p( LDA &B402 :\ A266 AD 02 B4 -.4 BEQ LA270 :\ A269 F0 05 p. CMP &B404 :\ A26B CD 04 B4 M.4 BNE LA28D :\ A26E D0 1D P. .LA270 JSR LA294 :\ A270 20 94 A2 ." LDA &B402 :\ A273 AD 02 B4 -.4 BNE LA28C :\ A276 D0 14 P. LDA &B402 :\ A278 AD 02 B4 -.4 CMP &C8 :\ A27B C5 C8 EH BNE LA28B :\ A27D D0 0C P. JSR LA294 :\ A27F 20 94 A2 ." LDA &B402 :\ A282 AD 02 B4 -.4 CMP &C9 :\ A285 C5 C9 EI BNE LA28A :\ A287 D0 01 P. RTS :\ A289 60 ` .LA28A INX :\ A28A E8 h .LA28B INX :\ A28B E8 h .LA28C INX :\ A28C E8 h .LA28D INX :\ A28D E8 h .LA28E TXA :\ A28E 8A . BPL LA2B1 :\ A28F 10 20 . JMP LA3F4 :\ A291 4C F4 A3 Lt# .LA294 LDA #&01 :\ A294 A9 01 ). .LA296 BIT &B400 :\ A296 2C 00 B4 ,.4 BPL LA296 :\ A299 10 FB .{ BEQ LA29E :\ A29B F0 01 p. RTS :\ A29D 60 ` .LA29E TXA :\ A29E 8A . BEQ LA2BB :\ A29F F0 1A p. JMP LA3FE :\ A2A1 4C FE A3 L~# .LA2A4 INY :\ A2A4 C8 H .LA2A5 INY :\ A2A5 C8 H .LA2A6 INY :\ A2A6 C8 H .LA2A7 INY :\ A2A7 C8 H INY :\ A2A8 C8 H INY :\ A2A9 C8 H INY :\ A2AA C8 H INY :\ A2AB C8 H BEQ LA2B1 :\ A2AC F0 03 p. JMP LA22D :\ A2AE 4C 2D A2 L-" .LA2B1 INX :\ A2B1 E8 h INX :\ A2B2 E8 h INX :\ A2B3 E8 h INX :\ A2B4 E8 h .LA2B5 INX :\ A2B5 E8 h INX :\ A2B6 E8 h .LA2B7 INX :\ A2B7 E8 h .LA2B8 INX :\ A2B8 E8 h .LA2B9 INX :\ A2B9 E8 h INX :\ A2BA E8 h .LA2BB STX &0234 :\ A2BB 8E 34 02 .4. JSR LA0F4 :\ A2BE 20 F4 A0 t TXS :\ A2C1 9A . .LA2C2 JSR LA0C8 :\ A2C2 20 C8 A0 H PLA :\ A2C5 68 h TAX :\ A2C6 AA * PLA :\ A2C7 68 h TAY :\ A2C8 A8 ( PLA :\ A2C9 68 h RTI :\ A2CA 40 @ .LA2CB LDA #&A3 :\ A2CB A9 A3 )# STA &B401 :\ A2CD 8D 01 B4 ..4 LDA #&04 :\ A2D0 A9 04 ). .LA2D2 BIT &B400 :\ A2D2 2C 00 B4 ,.4 BPL LA2D2 :\ A2D5 10 FB .{ BIT &B401 :\ A2D7 2C 01 B4 ,.4 BEQ LA2B5 :\ A2DA F0 D9 pY LDA #&EF :\ A2DC A9 EF )o STA &B401 :\ A2DE 8D 01 B4 ..4 LDA #&F0 :\ A2E1 A9 F0 )p .LA2E3 BIT &B400 :\ A2E3 2C 00 B4 ,.4 BEQ LA2E3 :\ A2E6 F0 FB p{ BVC LA2B5 :\ A2E8 50 CB PK JMP LA0EE :\ A2EA 4C EE A0 Ln .LA2ED TXA :\ A2ED 8A . BEQ LA2B9 :\ A2EE F0 C9 pI JMP LA3FC :\ A2F0 4C FC A3 L|# .LA2F3 LDA &B400 :\ A2F3 AD 00 B4 -.4 LDA #&43 :\ A2F6 A9 43 )C STA &B401 :\ A2F8 8D 01 B4 ..4 .LA2FB LDA #&01 :\ A2FB A9 01 ). .LA2FD BIT &B400 :\ A2FD 2C 00 B4 ,.4 BPL LA2FD :\ A300 10 FB .{ BEQ LA31A :\ A302 F0 16 p. LDA &B402 :\ A304 AD 02 B4 -.4 STA (&C2),Y :\ A307 91 C2 .B INY :\ A309 C8 H BEQ LA314 :\ A30A F0 08 p. LDA &B402 :\ A30C AD 02 B4 -.4 STA (&C2),Y :\ A30F 91 C2 .B INY :\ A311 C8 H BNE LA2FB :\ A312 D0 E7 Pg .LA314 INC &C3 :\ A314 E6 C3 fC DEC &C0 :\ A316 C6 C0 F@ BNE LA2FB :\ A318 D0 E1 Pa .LA31A JSR LA106 :\ A31A 20 06 A1 .! TXA :\ A31D 8A . BNE LA324 :\ A31E D0 04 P. LDA #&84 :\ A320 A9 84 ). BNE LA326 :\ A322 D0 02 P. .LA324 LDA #&04 :\ A324 A9 04 ). .LA326 STA &B401 :\ A326 8D 01 B4 ..4 LDA #&02 :\ A329 A9 02 ). BIT &B401 :\ A32B 2C 01 B4 ,.4 BEQ LA2ED :\ A32E F0 BD p= CLC :\ A330 18 . BPL LA33D :\ A331 10 0A .. LDA &C0 :\ A333 A5 C0 %@ BEQ LA2ED :\ A335 F0 B6 p6 LDA &B402 :\ A337 AD 02 B4 -.4 STA (&C2),Y :\ A33A 91 C2 .B SEC :\ A33C 38 8 .LA33D CLD :\ A33D D8 X TYA :\ A33E 98 . ADC &C2 :\ A33F 65 C2 eB STA &C2 :\ A341 85 C2 .B LDY &C3 :\ A343 A4 C3 $C BCC LA348 :\ A345 90 01 .. INY :\ A347 C8 H .LA348 STY &C3 :\ A348 84 C3 .C RTS :\ A34A 60 ` \ Network Transmit \ ================ \ XY=>control block \ XY+0/1 flag \ XY+2/3 dest stn \ XY+4/5 start address \ XY+6/7 end address \ XY+8/9 immediate parameters .LA34B PHP :\ A34B 08 . PHA :\ A34C 48 H TYA :\ A34D 98 . PHA :\ A34E 48 H TXA :\ A34F 8A . PHA :\ A350 48 H CLD :\ A351 D8 X SEI :\ A352 78 x LDA #&20 :\ A353 A9 20 ) AND &B401 :\ A355 2D 01 B4 -.4 BEQ LA35D :\ A358 F0 03 p. JMP LA3F3 :\ A35A 4C F3 A3 Ls# .LA35D STX &C6 :\ A35D 86 C6 .F STY &C7 :\ A35F 84 C7 .G TSX :\ A361 BA : STX &FF :\ A362 86 FF .. LDX #&80 :\ A364 A2 80 ". JSR LA1EB :\ A366 20 EB A1 k! LDY #&04 :\ A369 A0 04 . JSR LA492 :\ A36B 20 92 A4 .$ LDY #&01 :\ A36E A0 01 . LDA (&C6),Y :\ A370 B1 C6 1F BNE LA37B :\ A372 D0 07 P. TAY :\ A374 A8 ( JSR LA4C9 :\ A375 20 C9 A4 I$ JMP LA38B :\ A378 4C 8B A3 L.# .LA37B JSR LA479 :\ A37B 20 79 A4 y$ SEC :\ A37E 38 8 JSR LA3B0 :\ A37F 20 B0 A3 0# JSR LA481 :\ A382 20 81 A4 .$ CLC :\ A385 18 . LDY &C1 :\ A386 A4 C1 $A JSR LA395 :\ A388 20 95 A3 .# .LA38B LDY #&00 :\ A38B A0 00 . TXA :\ A38D 8A . STA (&C6),Y :\ A38E 91 C6 .F JMP LA409 :\ A390 4C 09 A4 L.$ .LA393 INC &C3 :\ A393 E6 C3 fC .LA395 LDA (&C2),Y :\ A395 B1 C2 1B .LA397 BIT &B400 :\ A397 2C 00 B4 ,.4 BPL LA397 :\ A39A 10 FB .{ BVC LA3ED :\ A39C 50 4F PO STA &B402 :\ A39E 8D 02 B4 ..4 INY :\ A3A1 C8 H BEQ LA3AC :\ A3A2 F0 08 p. LDA (&C2),Y :\ A3A4 B1 C2 1B STA &B402 :\ A3A6 8D 02 B4 ..4 INY :\ A3A9 C8 H BNE LA395 :\ A3AA D0 E9 Pi .LA3AC DEC &C0 :\ A3AC C6 C0 F@ BNE LA393 :\ A3AE D0 E3 Pc .LA3B0 LDA #&BF :\ A3B0 A9 BF )? STA &B401 :\ A3B2 8D 01 B4 ..4 LDA #&45 :\ A3B5 A9 45 )E STA &B400 :\ A3B7 8D 00 B4 ..4 .LA3BA BIT &B400 :\ A3BA 2C 00 B4 ,.4 BPL LA3BA :\ A3BD 10 FB .{ BVC LA3ED :\ A3BF 50 2C P, LDA #&90 :\ A3C1 A9 90 ). STA &B401 :\ A3C3 8D 01 B4 ..4 LDA #&02 :\ A3C6 A9 02 ). STA &B400 :\ A3C8 8D 00 B4 ..4 LDA #&08 :\ A3CB A9 08 ). .LA3CD BIT &B400 :\ A3CD 2C 00 B4 ,.4 BPL LA3CD :\ A3D0 10 FB .{ BEQ LA3ED :\ A3D2 F0 19 p. LDA #&63 :\ A3D4 A9 63 )c STA &B401 :\ A3D6 8D 01 B4 ..4 LDA #&40 :\ A3D9 A9 40 )@ STA &B400 :\ A3DB 8D 00 B4 ..4 TXA :\ A3DE 8A . BEQ LA3E3 :\ A3DF F0 02 p. BMI LA3E6 :\ A3E1 30 03 0. .LA3E3 JMP LA0E9 :\ A3E3 4C E9 A0 Li .LA3E6 LDA #&00 :\ A3E6 A9 00 ). STA &B400 :\ A3E8 8D 00 B4 ..4 BEQ LA432 :\ A3EB F0 45 pE .LA3ED TXA :\ A3ED 8A . BNE LA3FB :\ A3EE D0 0B P. JMP LA2B8 :\ A3F0 4C B8 A2 L8" .LA3F3 INX :\ A3F3 E8 h .LA3F4 INX :\ A3F4 E8 h INX :\ A3F5 E8 h INX :\ A3F6 E8 h INX :\ A3F7 E8 h INX :\ A3F8 E8 h .LA3F9 INX :\ A3F9 E8 h .LA3FA INX :\ A3FA E8 h .LA3FB INX :\ A3FB E8 h .LA3FC INX :\ A3FC E8 h INX :\ A3FD E8 h .LA3FE LDY #&00 :\ A3FE A0 00 . TXA :\ A400 8A . ORA #&40 :\ A401 09 40 .@ STA (&C6),Y :\ A403 91 C6 .F JSR LA0F4 :\ A405 20 F4 A0 t TXS :\ A408 9A . .LA409 JSR LA0C8 :\ A409 20 C8 A0 H PLA :\ A40C 68 h TAX :\ A40D AA * PLA :\ A40E 68 h TAY :\ A40F A8 ( PLA :\ A410 68 h PLP :\ A411 28 ( RTS :\ A412 60 ` .LA413 TXA :\ A413 8A . BNE LA3FA :\ A414 D0 E4 Pd JMP LA2B7 :\ A416 4C B7 A2 L7" .LA419 JSR LA41C :\ A419 20 1C A4 .$ .LA41C JSR LA41F :\ A41C 20 1F A4 .$ .LA41F LDA (&C6),Y :\ A41F B1 C6 1F BCC LA426 :\ A421 90 03 .. LDA &00C8,Y :\ A423 B9 C8 00 9H. .LA426 BIT &B400 :\ A426 2C 00 B4 ,.4 BPL LA426 :\ A429 10 FB .{ BVC LA413 :\ A42B 50 E6 Pf INY :\ A42D C8 H .LA42E STA &B402 :\ A42E 8D 02 B4 ..4 RTS :\ A431 60 ` .LA432 JSR LA106 :\ A432 20 06 A1 .! LDA #&82 :\ A435 A9 82 ). STA &B400 :\ A437 8D 00 B4 ..4 .LA43A LDA #&0A :\ A43A A9 0A ). .LA43C BIT &B400 :\ A43C 2C 00 B4 ,.4 BEQ LA43C :\ A43F F0 FB p{ LDA #&08 :\ A441 A9 08 ). BIT &B400 :\ A443 2C 00 B4 ,.4 BEQ LA457 :\ A446 F0 0F p. LDA #&23 :\ A448 A9 23 )# STA &B401 :\ A44A 8D 01 B4 ..4 TXA :\ A44D 8A . ORA #&20 :\ A44E 09 20 . BCS LA454 :\ A450 B0 02 0. ORA #&00 :\ A452 09 00 .. .LA454 TAX :\ A454 AA * BNE LA43A :\ A455 D0 E3 Pc .LA457 LDA #&10 :\ A457 A9 10 ). BIT &B400 :\ A459 2C 00 B4 ,.4 BNE LA3F9 :\ A45C D0 9B P. JSR LA106 :\ A45E 20 06 A1 .! LDA #&08 :\ A461 A9 08 ). BIT &B400 :\ A463 2C 00 B4 ,.4 BEQ LA3FE :\ A466 F0 96 p. TXA :\ A468 8A . ORA #&10 :\ A469 09 10 .. TAX :\ A46B AA * BCC LA478 :\ A46C 90 0A .. .LA46E LDA #&44 :\ A46E A9 44 )D STA &B400 :\ A470 8D 00 B4 ..4 LDA #&E7 :\ A473 A9 E7 )g STA &B401 :\ A475 8D 01 B4 ..4 .LA478 RTS :\ A478 60 ` .LA479 JSR LA481 :\ A479 20 81 A4 .$ LDY #&00 :\ A47C A0 00 . JMP LA41C :\ A47E 4C 1C A4 L.$ .LA481 LDY #&02 :\ A481 A0 02 . CLC :\ A483 18 . .LA484 JSR LA41C :\ A484 20 1C A4 .$ LDA &B404 :\ A487 AD 04 B4 -.4 JSR LA426 :\ A48A 20 26 A4 &$ LDA #&00 :\ A48D A9 00 ). JMP LA42E :\ A48F 4C 2E A4 L.$ .LA492 SEC :\ A492 38 8 LDA (&C6),Y :\ A493 B1 C6 1F INY :\ A495 C8 H INY :\ A496 C8 H SBC (&C6),Y :\ A497 F1 C6 qF STA &C1 :\ A499 85 C1 .A DEY :\ A49B 88 . LDA (&C6),Y :\ A49C B1 C6 1F SBC #&00 :\ A49E E9 00 i. STA &C3 :\ A4A0 85 C3 .C INY :\ A4A2 C8 H LDA (&C6),Y :\ A4A3 B1 C6 1F STA &C2 :\ A4A5 85 C2 .B INY :\ A4A7 C8 H LDA (&C6),Y :\ A4A8 B1 C6 1F SEC :\ A4AA 38 8 SBC &C3 :\ A4AB E5 C3 eC STA &C0 :\ A4AD 85 C0 .@ INY :\ A4AF C8 H INY :\ A4B0 C8 H LDA (&C6),Y :\ A4B1 B1 C6 1F STA &CD :\ A4B3 85 CD .M CLC :\ A4B5 18 . ADC &C0 :\ A4B6 65 C0 e@ STA &CF :\ A4B8 85 CF .O DEY :\ A4BA 88 . LDA (&C6),Y :\ A4BB B1 C6 1F STA &CC :\ A4BD 85 CC .L SEC :\ A4BF 38 8 SBC &C1 :\ A4C0 E5 C1 eA STA &CE :\ A4C2 85 CE .N BCS LA4C8 :\ A4C4 B0 02 0. DEC &CF :\ A4C6 C6 CF FO .LA4C8 RTS :\ A4C8 60 ` \ Do an immediate operation \ ------------------------- \ src.stn src.net ctrl port addr addr addr addr \ &C8 &C9 &CA &CB &CC &CD &CE &CF \ .LA4C9 LDA (&C6),Y :\ Get control byte TAY :\ LDA &C8 :\ Get station number CMP #&EF :\ Stations &EF+ are priviledged LDA &023B :\ Get protection mask BCC LA4D7 :\ Use it for normal station LDA #&00 :\ Use &00 for priviledged station .LA4D7 CPY #&84:BNE LA525 :\ Jump if not Imm#&84 \ Immediate &84 - PEEK(?) \ ----------------------- ROR A :\ A4DB 6A j TXA :\ A4DC 8A . BPL LA50A :\ A4DD 10 2B .+ .LA4DF LDY #&04 :\ A4DF A0 04 . JSR LA492 :\ A4E1 20 92 A4 .$ JSR LA479 :\ A4E4 20 79 A4 y$ LDY #&04 :\ A4E7 A0 04 . LDX #&00 :\ A4E9 A2 00 ". SEC :\ A4EB 38 8 JSR LA58C :\ A4EC 20 8C A5 .% JSR LA106 :\ A4EF 20 06 A1 .! JSR LA0DA :\ A4F2 20 DA A0 Z LDX #&80 :\ A4F5 A2 80 ". LDY #&02 :\ A4F7 A0 02 . LDA (&C6),Y :\ A4F9 B1 C6 1F STA &C8 :\ A4FB 85 C8 .H INY :\ A4FD C8 H LDA (&C6),Y :\ A4FE B1 C6 1F STA &C9 :\ A500 85 C9 .I JSR LA25A :\ A502 20 5A A2 Z" LDY &C1 :\ A505 A4 C1 $A JMP LA2F3 :\ A507 4C F3 A2 Ls" .LA50A BCS LA567 :\ A50A B0 5B 0[ .LA50C LDY #&04 :\ A50C A0 04 . JSR LA492 :\ A50E 20 92 A4 .$ LDA &B400 :\ A511 AD 00 B4 -.4 JSR LA46E :\ A514 20 6E A4 n$ LDY #&00 :\ A517 A0 00 . SEC :\ A519 38 8 JSR LA484 :\ A51A 20 84 A4 .$ LDY &C1 :\ A51D A4 C1 $A JSR LA395 :\ A51F 20 95 A3 .# JMP LA106 :\ A522 4C 06 A1 L.! .LA525 CPY #&98:BNE LA542 :\ Jump if not Imm#&98 \ Immediate &98 - another type of PEEK \ ------------------------------------ ROR A :\ A529 6A j TXA :\ A52A 8A . BPL LA530 :\ A52B 10 03 .. JMP LA4DF :\ A52D 4C DF A4 L_$ .LA530 BCS LA567 :\ A530 B0 35 05 CLC :\ A532 18 . LDA #&12 :\ A533 A9 12 ). ADC &08 :\ A535 65 08 e. STA &08 :\ A537 85 08 .. LDA #&A7 :\ A539 A9 A7 )' ADC &09 :\ A53B 65 09 e. STA &09 :\ A53D 85 09 .. JMP LA50C :\ A53F 4C 0C A5 L.% .LA542 ROR A :\ A542 6A j CPY #&88:BNE LA57D :\ Jump if not Imm#&88 \ Immediate &88 \ ------------- ROR A :\ A547 6A j TXA :\ A548 8A . BPL LA567 :\ A549 10 1C .. LDY #&04 :\ A54B A0 04 . JSR LA492 :\ A54D 20 92 A4 .$ JSR LA479 :\ A550 20 79 A4 y$ LDY #&04 :\ A553 A0 04 . SEC :\ A555 38 8 JSR LA419 :\ A556 20 19 A4 .$ SEC :\ A559 38 8 JSR LA3B0 :\ A55A 20 B0 A3 0# JSR LA481 :\ A55D 20 81 A4 .$ CLC :\ A560 18 . LDY &C1 :\ A561 A4 C1 $A JSR LA395 :\ A563 20 95 A3 .# RTS :\ A566 60 ` .LA567 BCS LA593 :\ A567 B0 2A 0* LDY #&04 :\ A569 A0 04 . JSR LA492 :\ A56B 20 92 A4 .$ JSR LA2CB :\ A56E 20 CB A2 K" JSR LA25A :\ A571 20 5A A2 Z" LDY &C1 :\ A574 A4 C1 $A JSR LA2F3 :\ A576 20 F3 A2 s" JSR LA2CB :\ A579 20 CB A2 K" RTS :\ A57C 60 ` .LA57D ROR A :\ A57D 6A j CPY #&8C:BNE LA5A8 ROR A :\ A582 6A j TXA :\ A583 8A . BPL LA593 :\ A584 10 0D .. .LA586 JSR LA479 :\ A586 20 79 A4 y$ LDY #&04 :\ A589 A0 04 . CLC :\ A58B 18 . .LA58C JSR LA419 :\ A58C 20 19 A4 .$ CLC :\ A58F 18 . JMP LA3B0 :\ A590 4C B0 A3 L0# .LA593 BCS LA5DB :\ A593 B0 46 0F .LA595 JSR LA2CB :\ A595 20 CB A2 K" LDA &CE :\ A598 A5 CE %N PHA :\ A59A 48 H JSR LA0C8 :\ A59B 20 C8 A0 H LDA &CF :\ A59E A5 CF %O LDY &C9 :\ A5A0 A4 C9 $I LDX &C8 :\ A5A2 A6 C8 &H PLP :\ A5A4 28 ( JMP (&00CC) :\ A5A5 6C CC 00 lL. .LA5A8 CPY #&9C :\ A5A8 C0 9C @. BNE LA5C0 :\ A5AA D0 14 P. ROR A :\ A5AC 6A j TXA :\ A5AD 8A . BPL LA5B3 :\ A5AE 10 03 .. JMP LA586 :\ A5B0 4C 86 A5 L.% .LA5B3 BCS LA5DB :\ A5B3 B0 26 0& LDA #&0C:STA &CC :\ Set addr=&A70C LDA #&A7:STA &CD JMP LA595 :\ A5BD 4C 95 A5 L.% .LA5C0 ROR A :\ A5C0 6A j CPY #&90 :\ A5C1 C0 90 @. BNE LA5CD :\ A5C3 D0 08 P. ROR A :\ A5C5 6A j TXA :\ A5C6 8A . BPL LA5CA :\ A5C7 10 01 .. RTS :\ A5C9 60 ` .LA5CA BCS LA5DB :\ A5CA B0 0F 0. RTS :\ A5CC 60 ` .LA5CD ROR A :\ A5CD 6A j CPY #&94 :\ A5CE C0 94 @. BNE LA5DA :\ A5D0 D0 08 P. ROR A :\ A5D2 6A j TXA :\ A5D3 8A . BPL LA5D7 :\ A5D4 10 01 .. RTS :\ A5D6 60 ` .LA5D7 BCS LA5DB :\ A5D7 B0 02 0. RTS :\ A5D9 60 ` .LA5DA INX :\ A5DA E8 h .LA5DB INX :\ A5DB E8 h TXA :\ A5DC 8A . BMI LA5E2 :\ A5DD 30 03 0. JMP LA2B1 :\ A5DF 4C B1 A2 L1" .LA5E2 JMP LA3F3 :\ A5E2 4C F3 A3 Ls# ROL A :\ A5E5 2A * ROL A :\ A5E6 2A * ROL A :\ A5E7 2A * ROL A :\ A5E8 2A * ROL A :\ A5E9 2A * ROL A :\ A5EA 2A * ROL A :\ A5EB 2A * ROL A :\ A5EC 2A * ROL A :\ A5ED 2A * ROL A :\ A5EE 2A * ROL A :\ A5EF 2A * ROL A :\ A5F0 2A * ORA &3A20 :\ A5F1 0D 20 3A . : JSR &2020 :\ A5F4 20 20 20 ROL A :\ A5F7 2A * ORA &3A20 :\ A5F8 0D 20 3A . : JSR &2020 :\ A5FB 20 20 20 ROL A :\ A5FE 2A * JSR &6F43 :\ A5FF 20 43 6F Co BVS LA67D :\ A602 70 79 py ADC (&69) :\ A604 72 69 ri EQUB &67 :\ A606 67 g PLA :\ A607 68 h STZ &20,X :\ A608 74 20 t PLP :\ A60A 28 ( EQUB &63 :\ A60B 63 c AND #&20 :\ A60C 29 20 ) BVC LA671 :\ A60E 50 61 Pa ADC &6C,X :\ A610 75 6C ul JSR &6F42 :\ A612 20 42 6F Bo ROR &0D64 :\ A615 6E 64 0D nd. JSR &203A :\ A618 20 3A 20 : JSR &2A20 :\ A61B 20 20 2A * JSR &2020 :\ A61E 20 20 20 JSR &2020 :\ A621 20 20 20 AND (&39),Y :\ A624 31 39 19 SEC :\ A626 38 8 AND (&20),Y :\ A627 31 20 1 JSR &2020 :\ A629 20 20 20 JSR &6F54 :\ A62C 20 54 6F To BVS LA696 :\ A62F 70 65 pe SEI :\ A631 78 x BVS LA6A6 :\ A632 70 72 pr ADC &73 :\ A634 65 73 es EQUB &73 :\ A636 73 s JSR &744C :\ A637 20 4C 74 Lt STZ &0D :\ A63A 64 0D d. JSR &203A :\ A63C 20 3A 20 : JSR &2A20 :\ A63F 20 20 2A * JSR &2020 :\ A642 20 20 20 JSR &2020 :\ A645 20 20 20 JSR &2020 :\ A648 20 20 20 JSR &2020 :\ A64B 20 20 20 JSR &2020 :\ A64E 20 20 20 AND (&20),Y :\ A651 31 20 1 BVC LA6C4 :\ A653 50 6F Po ADC (&74) :\ A655 72 74 rt ADC &67,X :\ A657 75 67 ug ADC (&6C,X) :\ A659 61 6C al JSR &6C50 :\ A65B 20 50 6C Pl ADC (&63,X) :\ A65E 61 63 ac ADC &0D :\ A660 65 0D e. JSR &203A :\ A662 20 3A 20 : JSR &2A20 :\ A665 20 20 2A * JSR &2020 :\ A668 20 20 20 JSR &2020 :\ A66B 20 20 20 JSR &2020 :\ A66E 20 20 20 .LA671 JSR &2020 :\ A671 20 20 20 JSR &2020 :\ A674 20 20 20 EQUB &43 :\ A677 43 C ADC (&6D,X) :\ A678 61 6D am EQUB &62 :\ A67A 62 b ADC (&69) :\ A67B 72 69 ri .LA67D STZ &67 :\ A67D 64 67 dg ADC &20 :\ A67F 65 20 e EQUB &43 :\ A681 43 C EQUB &42 :\ A682 42 B AND &20,X :\ A683 35 20 5 SEC :\ A685 38 8 EOR (&46,X) :\ A686 41 46 AF ORA &3A20 :\ A688 0D 20 3A . : JSR &2020 :\ A68B 20 20 20 ROL A :\ A68E 2A * JSR &2020 :\ A68F 20 20 20 JSR &2020 :\ A692 20 20 20 JSR &2020 :\ A695 20 20 20 JSR &2020 :\ A698 20 20 20 JSR &2020 :\ A69B 20 20 20 EOR &6E :\ A69E 45 6E En EQUB &67 :\ A6A0 67 g JMP (&6E61) :\ A6A1 6C 61 6E lan STZ &0D :\ A6A4 64 0D d. .LA6A6 JSR &203A :\ A6A6 20 3A 20 : JSR &2A20 :\ A6A9 20 20 2A * JSR &2020 :\ A6AC 20 20 20 JSR &2020 :\ A6AF 20 20 20 JSR &2020 :\ A6B2 20 20 20 JSR &2020 :\ A6B5 20 20 20 JSR &2020 :\ A6B8 20 20 20 EQUB &54 :\ A6BB 54 T ADC &6C :\ A6BC 65 6C el JSR &4143 :\ A6BE 20 43 41 CA EOR &2042 :\ A6C1 4D 42 20 MB .LA6C4 ROL &35,X :\ A6C4 36 35 65 AND (&32),Y :\ A6C6 31 32 12 SEC :\ A6C8 38 8 EQUB &43 :\ A6C9 43 C EQUB &4B :\ A6CA 4B K JSR &2020 :\ A6CB 20 20 20 JSR &2020 :\ A6CE 20 20 20 EOR (&63,X) :\ A6D1 41 63 Ac EQUB &6B :\ A6D3 6B k ROR &776F :\ A6D4 6E 6F 77 now JMP (&6465) :\ A6D7 6C 65 64 led EQUB &67 :\ A6DA 67 g ADC &20 :\ A6DB 65 20 e EQUB &54 :\ A6DD 54 T SEI :\ A6DE 78 x BVC LA730 :\ A6DF 50 4F PO EQUB &4B :\ A6E1 4B K EOR &20 :\ A6E2 45 20 E EQUB &73 :\ A6E4 73 s EQUB &63 :\ A6E5 63 c EQUB &6F :\ A6E6 6F o ADC &74,X :\ A6E7 75 74 ut JSR &7266 :\ A6E9 20 66 72 fr ADC (&6D,X) :\ A6EC 61 6D am ADC &78 :\ A6EE 65 78 ex LDA #&A6 :\ A6F0 A9 A6 )& PHA :\ A6F2 48 H LDA #&FB :\ A6F3 A9 FB ){ PHA :\ A6F5 48 H PHP :\ A6F6 08 . PHA :\ A6F7 48 H JMP LA000 :\ A6F8 4C 00 A0 L. CLI :\ A6FB 58 X RTS :\ A6FC 60 ` JMP LA6EF :\ A6FD 4C EF A6 Lo& .LA700 JMP LA72A :\ A700 4C 2A A7 L*' JMP LA748 :\ A703 4C 48 A7 LH' JMP LA754 :\ A706 4C 54 A7 LT' JMP LA7F7 :\ A709 4C F7 A7 Lw' .LA70C JMP LA717 :\ A70C 4C 17 A7 L.' JMP LA8A6 :\ A70F 4C A6 A8 L&( EOR (&A0,X) :\ A712 41 A0 A BRK :\ A714 00 . BRK :\ A715 00 . BRK :\ A716 00 . .LA717 CMP #&01 :\ A717 C9 01 I. BNE LA722 :\ A719 D0 07 P. STX &0228 :\ A71B 8E 28 02 .(. STY &0229 :\ A71E 8C 29 02 .). RTS :\ A721 60 ` .LA722 CMP #&02 :\ A722 C9 02 I. BNE LA729 :\ A724 D0 03 P. JMP LADA3 :\ A726 4C A3 AD L#- .LA729 RTS :\ A729 60 ` .LA72A LDA #&67 :\ A72A A9 67 )g EOR #&60 :\ A72C 49 60 I` STA &8015 :\ A72E 8D 15 80 ... LDX #&15 :\ A731 A2 15 ". .LA733 LDA LA775,X :\ A733 BD 75 A7 =u' STA &0206,X :\ A736 9D 06 02 ... DEX :\ A739 CA J BPL LA733 :\ A73A 10 F7 .w .LA73C LDX #&07 :\ A73C A2 07 ". .LA73E LDA LA78B,X :\ A73E BD 8B A7 =.' STA &0228,X :\ A741 9D 28 02 .(. DEX :\ A744 CA J BPL LA73E :\ A745 10 F7 .w RTS :\ A747 60 ` .LA748 LDX #&15 :\ A748 A2 15 ". .LA74A LDA &FF9C,X :\ A74A BD 9C FF =.. STA &0206,X :\ A74D 9D 06 02 ... DEX :\ A750 CA J BPL LA74A :\ A751 10 F7 .w RTS :\ A753 60 ` .LA754 JSR LA748 :\ A754 20 48 A7 H' JSR LA75C :\ A757 20 5C A7 \' BMI LA73C :\ A75A 30 E0 0` .LA75C LDX #&03 :\ A75C A2 03 ". .LA75E LDA LA777,X :\ A75E BD 77 A7 =w' STA &0208,X :\ A761 9D 08 02 ... DEX :\ A764 CA J BPL LA75E :\ A765 10 F7 .w RTS :\ A767 60 ` .LA768 PHA :\ A768 48 H LDA #&54 :\ A769 A9 54 )T STA &022A :\ A76B 8D 2A 02 .*. LDA #&A9 :\ A76E A9 A9 )) STA &022B :\ A770 8D 2B 02 .+. PLA :\ A773 68 h RTS :\ A774 60 ` .LA775 EQUB &37 :\ A775 37 7 LDA LAF84 :\ A776 AD 84 AF -./ DEX :\ A779 CA J LDX LAAED :\ A77A AE ED AA .m* ASL &AA,X :\ A77D 16 AA .* EQUB &1B :\ A77F 1B . LDY LABFB :\ A780 AC FB AB ,{+ EQUB &D3 :\ A783 D3 S EQUB &AB :\ A784 AB + LDX &AB,Y :\ A785 B6 AB 6+ ADC &3DAB,X :\ A787 7D AB 3D }+= LDY &0000 :\ A78A AC 00 00 ,.. EQUB &54 :\ A78D 54 T LDA #&FE :\ A78E A9 FE )~ BRK :\ A790 00 . EQUB &EB :\ A791 EB k BRK :\ A792 00 . .LA793 LDX #&00 :\ A793 A2 00 ". .LA795 LDA &0119,X :\ A795 BD 19 01 =.. BMI LA7A9 :\ A798 30 0F 0. BNE LA79E :\ A79A D0 02 P. LDA #&0D :\ A79C A9 0D ). .LA79E JSR &FFE9 :\ A79E 20 E9 FF i. INX :\ A7A1 E8 h BNE LA795 :\ A7A2 D0 F1 Pq .LA7A4 LDA #&20 :\ A7A4 A9 20 ) BIT &B001 :\ A7A6 2C 01 B0 ,.0 .LA7A9 RTS :\ A7A9 60 ` .LA7AA LDY #&00 :\ A7AA A0 00 . .LA7AC LDA &0100,Y :\ A7AC B9 00 01 9.. INY :\ A7AF C8 H CMP #&0D :\ A7B0 C9 0D I. BNE LA7AC :\ A7B2 D0 F8 Px .LA7B4 LDA &0100,Y :\ A7B4 B9 00 01 9.. STA &011B,Y :\ A7B7 99 1B 01 ... DEY :\ A7BA 88 . BPL LA7B4 :\ A7BB 10 F7 .w INY :\ A7BD C8 H JSR LA7F7 :\ A7BE 20 F7 A7 w' BEQ LA7D8 :\ A7C1 F0 15 p. ASL A :\ A7C3 0A . TAX :\ A7C4 AA * LDA LA7E3,X :\ A7C5 BD E3 A7 =c' STA &D0 :\ A7C8 85 D0 .P LDA LA7E4,X :\ A7CA BD E4 A7 =d' STA &D1 :\ A7CD 85 D1 .Q LDA #&A7 :\ A7CF A9 A7 )' PHA :\ A7D1 48 H LDA #&D7 :\ A7D2 A9 D7 )W PHA :\ A7D4 48 H JMP (&00D0) :\ A7D5 6C D0 00 lP. .LA7D8 LDX #&2F :\ A7D8 A2 2F "/ PHA :\ A7DA 48 H LDA #&0D :\ A7DB A9 0D ). .LA7DD STA &0110,X :\ A7DD 9D 10 01 ... DEX :\ A7E0 CA J BPL LA7DD :\ A7E1 10 FA .z .LA7E3 PLA :\ A7E3 68 h .LA7E4 RTS :\ A7E4 60 ` .LA7E5 PLX :\ A7E5 FA z LDA #&CA :\ A7E6 A9 CA )J TAX :\ A7E8 AA * ROR A :\ A7E9 6A j LDY LACE2 :\ A7EA AC E2 AC ,b, STA &A9,X :\ A7ED 95 A9 .) STA &A9,X :\ A7EF 95 A9 .) SBC &F0AC,X :\ A7F1 FD AC F0 },p LDY LAD04 :\ A7F4 AC 04 AD ,.- .LA7F7 JSR LA883 :\ A7F7 20 83 A8 .( .LA7FA JSR LA85B :\ A7FA 20 5B A8 [( .LA7FD JSR LA80C :\ A7FD 20 0C A8 .( LDA &011A :\ A800 AD 1A 01 -.. BEQ LA808 :\ A803 F0 03 p. JMP LA8C8 :\ A805 4C C8 A8 LH( .LA808 LDA &0119 :\ A808 AD 19 01 -.. RTS :\ A80B 60 ` .LA80C JSR LA83A :\ A80C 20 3A A8 :( .LA80F LDY #&D0 :\ A80F A0 D0 P LDA #&0F :\ A811 A9 0F ). .LA813 STA &DC :\ A813 85 DC .\ LDA #&00 :\ A815 A9 00 ). STA &DB :\ A817 85 DB .[ .LA819 LDA &0000,Y :\ A819 B9 00 00 9.. BMI LA82F :\ A81C 30 11 0. INC &DA :\ A81E E6 DA fZ BNE LA819 :\ A820 D0 F7 Pw INC &DB :\ A822 E6 DB f[ BNE LA819 :\ A824 D0 F3 Ps DEC &DC :\ A826 C6 DC F\ BNE LA819 :\ A828 D0 EF Po LDA #&02 :\ A82A A9 02 ). JMP LA8C8 :\ A82C 4C C8 A8 LH( .LA82F PHA :\ A82F 48 H LDA &023A :\ A830 AD 3A 02 -:. AND #&7F :\ A833 29 7F ). STA &023A :\ A835 8D 3A 02 .:. PLA :\ A838 68 h RTS :\ A839 60 ` .LA83A LDX #&08 :\ A83A A2 08 ". .LA83C LDA LA852,X :\ A83C BD 52 A8 =R( STA &D0,X :\ A83F 95 D0 .P DEX :\ A841 CA J BPL LA83C :\ A842 10 F8 .x JSR LA899 :\ A844 20 99 A8 .( JMP LA8E9 :\ A847 4C E9 A8 Li( .LA84A BRA LA7E5 :\ A84A 80 99 .. BRK :\ A84C 00 . BRK :\ A84D 00 . ASL &01,X :\ A84E 16 01 .. ROR &01 :\ A850 66 01 f. .LA852 EQUB &7F :\ A852 7F . DEY :\ A853 88 . BRK :\ A854 00 . BRK :\ A855 00 . ORA &FF01,Y :\ A856 19 01 FF ... EQUB &FF :\ A859 FF . BRK :\ A85A 00 . .LA85B LDY #&07 :\ A85B A0 07 . .LA85D LDX LA84A,Y :\ A85D BE 4A A8 >J( STX &D0,Y :\ A860 96 D0 .P DEY :\ A862 88 . BPL LA85D :\ A863 10 F8 .x JSR LA899 :\ A865 20 99 A8 .( LDA #&60 :\ A868 A9 60 )` LDY #&30 :\ A86A A0 30 0 BNE LA8A4 :\ A86C D0 36 P6 .LA86E LDA #&05 :\ A86E A9 05 ). .LA870 TAY :\ A870 A8 ( .LA871 LDA (&00,X) :\ A871 A1 00 !. STA &0116,Y :\ A873 99 16 01 ... CMP #&0D :\ A876 C9 0D I. BEQ LA898 :\ A878 F0 1E p. INY :\ A87A C8 H INC &00,X :\ A87B F6 00 v. BNE LA871 :\ A87D D0 F2 Pr INC &01,X :\ A87F F6 01 v. BNE LA871 :\ A881 D0 EE Pn .LA883 LDX #&88 :\ A883 A2 88 ". STX &0116 :\ A885 8E 16 01 ... STY &0117 :\ A888 8C 17 01 ... PHA :\ A88B 48 H LDX #&02 :\ A88C A2 02 ". .LA88E LDA &0224,X :\ A88E BD 24 02 =$. STA &0118,X :\ A891 9D 18 01 ... DEX :\ A894 CA J BPL LA88E :\ A895 10 F7 .w PLA :\ A897 68 h .LA898 RTS :\ A898 60 ` .LA899 LDA &022C :\ A899 AD 2C 02 -,. STA &D2 :\ A89C 85 D2 .R LDA &022D :\ A89E AD 2D 02 --. STA &D3 :\ A8A1 85 D3 .S RTS :\ A8A3 60 ` \ Do Network Transmit from &00D0 .LA8A4 LDX #&D0 :\ A8A4 A2 D0 "P \ Do Network Transmit from zero page \ X=>control block, A=retries, Y=delay between retries .LA8A6 PHA :\ A8A6 48 H TYA :\ A8A7 98 . PHA :\ A8A8 48 H LDA &00,X :\ A8A9 B5 00 5. PHA :\ A8AB 48 H LDY #&00 :\ A8AC A0 00 . JSR &023D :\ A8AE 20 3D 02 =. LDA &00,X :\ A8B1 B5 00 5. ROL A :\ A8B3 2A * BPL LA8CF :\ A8B4 10 19 .. PLA :\ A8B6 68 h STA &00,X :\ A8B7 95 00 .. PLA :\ A8B9 68 h TAY :\ A8BA A8 ( PLA :\ A8BB 68 h CLC :\ A8BC 18 . SBC #&00 :\ A8BD E9 00 i. BEQ LA8C6 :\ A8BF F0 05 p. JSR LA8D4 :\ A8C1 20 D4 A8 T( BNE LA8A6 :\ A8C4 D0 E0 P` .LA8C6 LDA #&01 :\ A8C6 A9 01 ). .LA8C8 LDX #&19 :\ A8C8 A2 19 ". LDY #&01 :\ A8CA A0 01 . JMP (&022A) :\ A8CC 6C 2A 02 l*. .LA8CF PLA :\ A8CF 68 h PLA :\ A8D0 68 h TAY :\ A8D1 A8 ( PLA :\ A8D2 68 h RTS :\ A8D3 60 ` \ Delay for count in Y \ -------------------- .LA8D4 CPY #&00 :\ A8D4 C0 00 @. BEQ LA8E8 :\ A8D6 F0 10 p. PHA :\ A8D8 48 H TXA :\ A8D9 8A . PHA :\ A8DA 48 H LDX #&00 :\ A8DB A2 00 ". TYA :\ A8DD 98 . .LA8DE DEX :\ A8DE CA J BNE LA8DE :\ A8DF D0 FD P} DEY :\ A8E1 88 . BNE LA8DE :\ A8E2 D0 FA Pz TAY :\ A8E4 A8 ( PLA :\ A8E5 68 h TAX :\ A8E6 AA * PLA :\ A8E7 68 h .LA8E8 RTS :\ A8E8 60 ` .LA8E9 LDA #&D0 :\ A8E9 A9 D0 )P LDX #&00 :\ A8EB A2 00 ". .LA8ED JSR LA82F :\ A8ED 20 2F A8 /( STA &0230 :\ A8F0 8D 30 02 .0. STX &0231 :\ A8F3 8E 31 02 .1. LDA &023A :\ A8F6 AD 3A 02 -:. ORA #&80 :\ A8F9 09 80 .. STA &023A :\ A8FB 8D 3A 02 .:. RTS :\ A8FE 60 ` .LA8FF PHA :\ JSR &F876 :\ Skip spaces CMP #&0D :\ Check for end of line BEQ LA90A :\ No more parameters, ok JMP &FA7D :\ Print 'SYN?' and abort .LA90A PLA :\ A90A 68 h RTS :\ A90B 60 ` \ Parse command line for net.stn \ ============================== .LA90C LDA #&00 :\ A90C A9 00 ). STA &00,X :\ A90E 95 00 .. STA &01,X :\ A910 95 01 .. JSR &F876 :\ A912 20 76 F8 vx .LA915 LDA &0100,Y :\ A915 B9 00 01 9.. CMP #&3A :\ A918 C9 3A I: BCS LA946 :\ A91A B0 2A 0* SBC #&2F :\ A91C E9 2F i/ BMI LA946 :\ A91E 30 26 0& INY :\ A920 C8 H PHA :\ A921 48 H LDA &01,X :\ A922 B5 01 5. PHA :\ A924 48 H LDA &00,X :\ A925 B5 00 5. ASL A :\ A927 0A . ROL &01,X :\ A928 36 01 6. ASL A :\ A92A 0A . ROL &01,X :\ A92B 36 01 6. ADC &00,X :\ A92D 75 00 u. STA &00,X :\ A92F 95 00 .. PLA :\ A931 68 h ADC &01,X :\ A932 75 01 u. ASL &00,X :\ A934 16 00 .. ROL A :\ A936 2A * STA &01,X :\ A937 95 01 .. PLA :\ A939 68 h ADC &00,X :\ A93A 75 00 u. STA &00,X :\ A93C 95 00 .. BCC LA915 :\ A93E 90 D5 .U INC &01,X :\ A940 F6 01 v. BEQ LA94B :\ A942 F0 07 p. BNE LA915 :\ A944 D0 CF PO .LA946 LDA &00,X :\ A946 B5 00 5. ORA &01,X :\ A948 15 01 .. RTS :\ A94A 60 ` .LA94B JSR &F7D1 :\ A94B 20 D1 F7 Qw EQUB &53 :\ A94E 53 S EQUB &54 :\ A94F 54 T LSR &EA3F :\ A950 4E 3F EA N?j BRK :\ A953 00 . CMP #&10 :\ A954 C9 10 I. BCS LA97D :\ A956 B0 25 0% CMP #&01 :\ A958 C9 01 I. BEQ LA96A :\ A95A F0 0E p. JSR &F7D1 :\ A95C 20 D1 F7 Qw LSR &204F :\ A95F 4E 4F 20 NO EOR (&45) :\ A962 52 45 RE BVC LA9B2 :\ A964 50 4C PL EOR &30EA,Y :\ A966 59 EA 30 Yj0 EQUB &27 :\ A969 27 ' .LA96A JSR &F7D1 :\ A96A 20 D1 F7 Qw LSR &544F :\ A96D 4E 4F 54 NOT JSR &494C :\ A970 20 4C 49 LI EQUB &53 :\ A973 53 S EQUB &54 :\ A974 54 T EOR &4E :\ A975 45 4E EN EOR #&4E :\ A977 49 4E IN EQUB &47 :\ A979 47 G NOP :\ A97A EA j BMI LA991 :\ A97B 30 14 0. .LA97D TYA :\ A97D 98 . PHA :\ A97E 48 H LDY #&02 :\ A97F A0 02 . .LA981 STX &D0 :\ A981 86 D0 .P PLA :\ A983 68 h PHA :\ A984 48 H STA &D1 :\ A985 85 D1 .Q LDA (&D0),Y :\ A987 B1 D0 1P JSR &FFE9 :\ A989 20 E9 FF i. INY :\ A98C C8 H CMP #&0D :\ A98D C9 0D I. BNE LA981 :\ A98F D0 F0 Pp .LA991 JSR LA82F :\ A991 20 2F A8 /( BRK :\ A994 00 . LDX #&02 :\ A995 A2 02 ". .LA997 LDA &011B,X :\ A997 BD 1B 01 =.. STA &0224,X :\ A99A 9D 24 02 .$. DEX :\ A99D CA J BPL LA997 :\ A99E 10 F7 .w JMP LA7D8 :\ A9A0 4C D8 A7 LX' .LA9A3 STA &DA :\ A9A3 85 DA .Z STY &0113 :\ A9A5 8C 13 01 ... STA &0114 :\ A9A8 8D 14 01 ... LDY #&99 :\ A9AB A0 99 . STY &0112 :\ A9AD 8C 12 01 ... STY &D1 :\ A9B0 84 D1 .Q .LA9B2 JSR LA899 :\ A9B2 20 99 A8 .( LDA &0227 :\ A9B5 AD 27 02 -'. LDX #&08 :\ A9B8 A2 08 ". .LA9BA LSR &DA :\ A9BA 46 DA FZ BCS LA9C2 :\ A9BC B0 04 0. LSR A :\ A9BE 4A J DEX :\ A9BF CA J BNE LA9BA :\ A9C0 D0 F8 Px .LA9C2 LDY #&02 :\ A9C2 A0 02 . .LA9C4 PHA :\ A9C4 48 H LDX #&04 :\ A9C5 A2 04 ". .LA9C7 LDA LA9F5,X :\ A9C7 BD F5 A9 =u) STA &D4,X :\ A9CA 95 D4 .T DEX :\ A9CC CA J BPL LA9C7 :\ A9CD 10 F8 .x PLA :\ A9CF 68 h PHA :\ A9D0 48 H ORA #&80 :\ A9D1 09 80 .. STA &D0 :\ A9D3 85 D0 .P JSR LA8A4 :\ A9D5 20 A4 A8 $( .LA9D8 LDX #&7F :\ A9D8 A2 7F ". STX &D0 :\ A9DA 86 D0 .P LDX #&FF :\ A9DC A2 FF ". STX &D6 :\ A9DE 86 D6 .V STX &D7 :\ A9E0 86 D7 .W JSR LA8E9 :\ A9E2 20 E9 A8 i( JSR LA80F :\ A9E5 20 0F A8 .( PLA :\ A9E8 68 h EOR &D0 :\ A9E9 45 D0 EP ROR A :\ A9EB 6A j BCC LA9F1 :\ A9EC 90 03 .. PHA :\ A9EE 48 H BCS LA9D8 :\ A9EF B0 E7 0g .LA9F1 LDA &0112 :\ A9F1 AD 12 01 -.. RTS :\ A9F4 60 ` .LA9F5 ORA (&01) :\ A9F5 12 01 .. ASL &01,X :\ A9F7 16 01 .. BRK :\ A9F9 00 . CLC :\ A9FA 18 . LDA &011B :\ A9FB AD 1B 01 -.. STA &0100 :\ A9FE 8D 00 01 ... ADC &0123 :\ AA01 6D 23 01 m#. STA &0102 :\ AA04 8D 02 01 ... LDA &011C :\ AA07 AD 1C 01 -.. STA &0101 :\ AA0A 8D 01 01 ... ADC &0124 :\ AA0D 6D 24 01 m$. STA &0103 :\ AA10 8D 03 01 ... JMP LAA5B :\ AA13 4C 5B AA L[* LDA #&10 :\ AA16 A9 10 ). JSR LA870 :\ AA18 20 70 A8 p( LDA &06,X :\ AA1B B5 06 5. STA &0100 :\ AA1D 8D 00 01 ... LDA &07,X :\ AA20 B5 07 5. STA &0101 :\ AA22 8D 01 01 ... LDA &08,X :\ AA25 B5 08 5. STA &0102 :\ AA27 8D 02 01 ... SEC :\ AA2A 38 8 SBC &06,X :\ AA2B F5 06 u. STA &06,X :\ AA2D 95 06 .. LDA &09,X :\ AA2F B5 09 5. STA &0103 :\ AA31 8D 03 01 ... SBC &07,X :\ AA34 F5 07 u. STA &07,X :\ AA36 95 07 .. LDA #&00 :\ AA38 A9 00 ). STA &08,X :\ AA3A 95 08 .. LDY #&0A :\ AA3C A0 0A . LDA #&00 :\ AA3E A9 00 ). .LAA40 STA &011B,Y :\ AA40 99 1B 01 ... DEY :\ AA43 88 . BPL LAA40 :\ AA44 10 FA .z INY :\ AA46 C8 H .LAA47 LDA &02,X :\ AA47 B5 02 5. STA &011B,Y :\ AA49 99 1B 01 ... LDA &03,X :\ AA4C B5 03 5. STA &011C,Y :\ AA4E 99 1C 01 ... INY :\ AA51 C8 H INY :\ AA52 C8 H INY :\ AA53 C8 H INY :\ AA54 C8 H INX :\ AA55 E8 h INX :\ AA56 E8 h CPY #&0C :\ AA57 C0 0C @. BNE LAA47 :\ AA59 D0 EC Pl .LAA5B LDY #&01 :\ AA5B A0 01 . JSR LA883 :\ AA5D 20 83 A8 .( LDA #&77 :\ AA60 A9 77 )w STA &0118 :\ AA62 8D 18 01 ... JSR LA7FA :\ AA65 20 FA A7 z' LDA #&00 :\ AA68 A9 00 ). STA &0120 :\ AA6A 8D 20 01 . . .LAA6D LDA &0100 :\ AA6D AD 00 01 -.. STA &D4 :\ AA70 85 D4 .T CLC :\ AA72 18 . ADC &011C :\ AA73 6D 1C 01 m.. STA &D6 :\ AA76 85 D6 .V LDA &0101 :\ AA78 AD 01 01 -.. STA &D5 :\ AA7B 85 D5 .U ADC &011D :\ AA7D 6D 1D 01 m.. STA &D7 :\ AA80 85 D7 .W BCS LAA90 :\ AA82 B0 0C 0. LDA &D6 :\ AA84 A5 D6 %V CMP &0102 :\ AA86 CD 02 01 M.. LDA &D7 :\ AA89 A5 D7 %W SBC &0103 :\ AA8B ED 03 01 m.. BCC LAA9D :\ AA8E 90 0D .. .LAA90 LDA &0102 :\ AA90 AD 02 01 -.. STA &D6 :\ AA93 85 D6 .V LDA &0103 :\ AA95 AD 03 01 -.. STA &D7 :\ AA98 85 D7 .W INC &0120 :\ AA9A EE 20 01 n . .LAA9D LDA &011B :\ AA9D AD 1B 01 -.. STA &D1 :\ AAA0 85 D1 .Q LDX #&D0 :\ AAA2 A2 D0 "P LDY #&05 :\ AAA4 A0 05 . LDA #&FF :\ AAA6 A9 FF ). JSR LA8A6 :\ AAA8 20 A6 A8 &( LDA &0120 :\ AAAB AD 20 01 - . BNE LAAC7 :\ AAAE D0 17 P. LDA &D6 :\ AAB0 A5 D6 %V STA &0100 :\ AAB2 8D 00 01 ... LDA &D7 :\ AAB5 A5 D7 %W STA &0101 :\ AAB7 8D 01 01 ... JSR LA83A :\ AABA 20 3A A8 :( LDA #&77 :\ AABD A9 77 )w STA &D1 :\ AABF 85 D1 .Q JSR LA80F :\ AAC1 20 0F A8 .( JMP LAA6D :\ AAC4 4C 6D AA Lm* .LAAC7 JMP LA7FD :\ AAC7 4C FD A7 L}' LDA &011B :\ AACA AD 1B 01 -.. STA &0101 :\ AACD 8D 01 01 ... LDA &011C :\ AAD0 AD 1C 01 -.. STA &0102 :\ AAD3 8D 02 01 ... LDA &011F :\ AAD6 AD 1F 01 -.. STA &0103 :\ AAD9 8D 03 01 ... LDX #&00 :\ AADC A2 00 ". .LAADE LDA &0120,X :\ AADE BD 20 01 = . STA &011B,X :\ AAE1 9D 1B 01 ... INX :\ AAE4 E8 h CMP #&0D :\ AAE5 C9 0D I. BNE LAADE :\ AAE7 D0 F5 Pu TXA :\ AAE9 8A . CLC :\ AAEA 18 . BCC LAAFF :\ AAEB 90 12 .. .LAAED LDA &02,X :\ AAED B5 02 5. STA &0101 :\ AAEF 8D 01 01 ... LDA &03,X :\ AAF2 B5 03 5. STA &0102 :\ AAF4 8D 02 01 ... LDA &04,X :\ AAF7 B5 04 5. STA &0103 :\ AAF9 8D 03 01 ... JSR LA86E :\ AAFC 20 6E A8 n( .LAAFF LDY #&02 :\ AAFF A0 02 . .LAB01 JSR LA883 :\ AB01 20 83 A8 .( LDX #&2D :\ AB04 A2 2D "- STX &0118 :\ AB06 8E 18 01 ... JSR LA7FA :\ AB09 20 FA A7 z' BIT &0103 :\ AB0C 2C 03 01 ,.. BPL LAB1E :\ AB0F 10 0D .. LDA &0101 :\ AB11 AD 01 01 -.. STA &D4 :\ AB14 85 D4 .T LDA &0102 :\ AB16 AD 02 01 -.. STA &D5 :\ AB19 85 D5 .U JMP LAB2A :\ AB1B 4C 2A AB L*+ .LAB1E LDA &011B :\ AB1E AD 1B 01 -.. STA &D4 :\ AB21 85 D4 .T LDA &011C :\ AB23 AD 1C 01 -.. STA &D5 :\ AB26 85 D5 .U LDA #&08 :\ AB28 A9 08 ). .LAB2A PHA :\ AB2A 48 H CLC :\ AB2B 18 . LDA &D4 :\ AB2C A5 D4 %T ADC &0123 :\ AB2E 6D 23 01 m#. STA &0123 :\ AB31 8D 23 01 .#. LDA &D5 :\ AB34 A5 D5 %U ADC &0124 :\ AB36 6D 24 01 m$. STA &0124 :\ AB39 8D 24 01 .$. LDA #&2D :\ AB3C A9 2D )- STA &D1 :\ AB3E 85 D1 .Q .LAB40 LDA #&FF :\ AB40 A9 FF ). STA &D6 :\ AB42 85 D6 .V STA &D7 :\ AB44 85 D7 .W LDA #&7F :\ AB46 A9 7F ). STA &D0 :\ AB48 85 D0 .P JSR LA8E9 :\ AB4A 20 E9 A8 i( LDY #&D0 :\ AB4D A0 D0 P PLA :\ AB4F 68 h JSR LA813 :\ AB50 20 13 A8 .( LDA &D6 :\ AB53 A5 D6 %V CMP &0123 :\ AB55 CD 23 01 M#. LDA &D7 :\ AB58 A5 D7 %W SBC &0124 :\ AB5A ED 24 01 m$. BCS LAB6D :\ AB5D B0 0E 0. LDA &D6 :\ AB5F A5 D6 %V STA &D4 :\ AB61 85 D4 .T LDA &D7 :\ AB63 A5 D7 %W STA &D5 :\ AB65 85 D5 .U LDA #&08 :\ AB67 A9 08 ). PHA :\ AB69 48 H JMP LAB40 :\ AB6A 4C 40 AB L@+ .LAB6D JSR LA7FD :\ AB6D 20 FD A7 }' LDA &011F :\ AB70 AD 1F 01 -.. STA &D0 :\ AB73 85 D0 .P LDA &0120 :\ AB75 AD 20 01 - . STA &D1 :\ AB78 85 D1 .Q JMP LA7D8 :\ AB7A 4C D8 A7 LX' LDA #&00 :\ AB7D A9 00 ). ROL A :\ AB7F 2A * STA &011B :\ AB80 8D 1B 01 ... STA &011C :\ AB83 8D 1C 01 ... LDA #&07 :\ AB86 A9 07 ). JSR LA870 :\ AB88 20 70 A8 p( LDY #&06 :\ AB8B A0 06 . JSR LA883 :\ AB8D 20 83 A8 .( JSR LA85B :\ AB90 20 5B A8 [( JSR LA80C :\ AB93 20 0C A8 .( LDA &011A :\ AB96 AD 1A 01 -.. BEQ LABA6 :\ AB99 F0 0B p. CMP #&43 :\ AB9B C9 43 IC BEQ LABA2 :\ AB9D F0 03 p. JMP LA8C8 :\ AB9F 4C C8 A8 LH( .LABA2 LDA #&00 :\ ABA2 A9 00 ). BEQ LABB3 :\ ABA4 F0 0D p. .LABA6 CLC :\ ABA6 18 . SBC &011B :\ ABA7 ED 1B 01 m.. AND &0227 :\ ABAA 2D 27 02 -'. STA &0227 :\ ABAD 8D 27 02 .'. LDA &011B :\ ABB0 AD 1B 01 -.. .LABB3 JMP LA7D8 :\ ABB3 4C D8 A7 LX' STA &0115 :\ ABB6 8D 15 01 ... TXA :\ ABB9 8A . PHA :\ ABBA 48 H TYA :\ ABBB 98 . PHA :\ ABBC 48 H LDA &0115 :\ ABBD AD 15 01 -.. PHA :\ ABC0 48 H TYA :\ ABC1 98 . LDY #&09 :\ ABC2 A0 09 . JSR LA9A3 :\ ABC4 20 A3 A9 #) LDA &0113 :\ ABC7 AD 13 01 -.. BNE LABE1 :\ ABCA D0 15 P. PLA :\ ABCC 68 h STA &0114 :\ ABCD 8D 14 01 ... JMP LABED :\ ABD0 4C ED AB Lm+ TXA :\ ABD3 8A . PHA :\ ABD4 48 H TYA :\ ABD5 98 . PHA :\ ABD6 48 H LDY #&08 :\ ABD7 A0 08 . JSR LA9A3 :\ ABD9 20 A3 A9 #) LDA &0113 :\ ABDC AD 13 01 -.. BEQ LABE8 :\ ABDF F0 07 p. .LABE1 LDX #&12 :\ ABE1 A2 12 ". LDY #&01 :\ ABE3 A0 01 . JMP (&022A) :\ ABE5 6C 2A 02 l*. .LABE8 LDA &0115 :\ ABE8 AD 15 01 -.. ASL A :\ ABEB 0A . ASL A :\ ABEC 0A . .LABED PLA :\ ABED 68 h TAY :\ ABEE A8 ( EOR &0227 :\ ABEF 4D 27 02 M'. STA &0227 :\ ABF2 8D 27 02 .'. PLA :\ ABF5 68 h TAX :\ ABF6 AA * LDA &0114 :\ ABF7 AD 14 01 -.. RTS :\ ABFA 60 ` .LABFB TXA :\ ABFB 8A . PHA :\ ABFC 48 H STY &011B :\ ABFD 8C 1B 01 ... LDY #&00 :\ AC00 A0 00 . STY &011C :\ AC02 8C 1C 01 ... .LAC05 LDA &00,X :\ AC05 B5 00 5. STA &011D,Y :\ AC07 99 1D 01 ... INX :\ AC0A E8 h INY :\ AC0B C8 H CPY #&03 :\ AC0C C0 03 @. BNE LAC05 :\ AC0E D0 F5 Pu LDY #&0D :\ AC10 A0 0D . JSR LA7F7 :\ AC12 20 F7 A7 w' PLA :\ AC15 68 h TAX :\ AC16 AA * LDY &011B :\ AC17 AC 1B 01 ,.. RTS :\ AC1A 60 ` STY &011B :\ AC1B 8C 1B 01 ... STA &011C :\ AC1E 8D 1C 01 ... TYA :\ AC21 98 . PHA :\ AC22 48 H TXA :\ AC23 8A . PHA :\ AC24 48 H LDY #&0C :\ AC25 A0 0C . JSR LA7F7 :\ AC27 20 F7 A7 w' PLA :\ AC2A 68 h TAX :\ AC2B AA * INX :\ AC2C E8 h INX :\ AC2D E8 h LDY #&02 :\ AC2E A0 02 . .LAC30 LDA &011B,Y :\ AC30 B9 1B 01 9.. STA &00,X :\ AC33 95 00 .. DEX :\ AC35 CA J DEY :\ AC36 88 . BPL LAC30 :\ AC37 10 F7 .w INX :\ AC39 E8 h PLA :\ AC3A 68 h TAY :\ AC3B A8 ( RTS :\ AC3C 60 ` TYA :\ AC3D 98 . PHA :\ AC3E 48 H STA &011B :\ AC3F 8D 1B 01 ... LDY #&07 :\ AC42 A0 07 . JSR LA7F7 :\ AC44 20 F7 A7 w' PLA :\ AC47 68 h TAY :\ AC48 A8 ( RTS :\ AC49 60 ` JSR &F876 :\ AC4A 20 76 F8 vx LDA &0100,Y :\ AC4D B9 00 01 9.. CMP #&30 :\ AC50 C9 30 I0 BCC LAC67 :\ AC52 90 13 .. CMP #&3A :\ AC54 C9 3A I: BCS LAC67 :\ AC56 B0 0F 0. LDX #&D0 :\ AC58 A2 D0 "P JSR LA90C :\ AC5A 20 0C A9 .) LDA &D0 :\ AC5D A5 D0 %P STA &022C :\ AC5F 8D 2C 02 .,. LDA &D1 :\ AC62 A5 D1 %Q STA &022D :\ AC64 8D 2D 02 .-. .LAC67 JMP LA7AA :\ AC67 4C AA A7 L*' LDY #&00 :\ AC6A A0 00 . .LAC6C LDA &011B,Y :\ AC6C B9 1B 01 9.. STA &0148,Y :\ AC6F 99 48 01 .H. INY :\ AC72 C8 H CMP #&0D :\ AC73 C9 0D I. BNE LAC6C :\ AC75 D0 F5 Pu LDY #&04 :\ AC77 A0 04 . JSR LA7F7 :\ AC79 20 F7 A7 w' JSR LACE2 :\ AC7C 20 E2 AC b, JSR &FFED :\ AC7F 20 ED FF m. LDA #&00 :\ AC82 A9 00 ). .LAC84 PHA :\ AC84 48 H STA &011C :\ AC85 8D 1C 01 ... LDA #&03 :\ AC88 A9 03 ). STA &011B :\ AC8A 8D 1B 01 ... LDA #&02 :\ AC8D A9 02 ). STA &011D :\ AC8F 8D 1D 01 ... LDA #&48 :\ AC92 A9 48 )H STA &D0 :\ AC94 85 D0 .P LDA #&01 :\ AC96 A9 01 ). STA &D1 :\ AC98 85 D1 .Q LDX #&D0 :\ AC9A A2 D0 "P LDA #&08 :\ AC9C A9 08 ). JSR LA870 :\ AC9E 20 70 A8 p( LDY #&03 :\ ACA1 A0 03 . JSR LA883 :\ ACA3 20 83 A8 .( JSR LA85B :\ ACA6 20 5B A8 [( LDX #&08 :\ ACA9 A2 08 ". .LACAB LDA LACD9,X :\ ACAB BD D9 AC =Y, STA &D0,X :\ ACAE 95 D0 .P DEX :\ ACB0 CA J BPL LACAB :\ ACB1 10 F8 .x JSR LA899 :\ ACB3 20 99 A8 .( JSR LA8E9 :\ ACB6 20 E9 A8 i( JSR LA80F :\ ACB9 20 0F A8 .( LDA &0117 :\ ACBC AD 17 01 -.. BEQ LACC8 :\ ACBF F0 07 p. LDX #&16 :\ ACC1 A2 16 ". LDY #&01 :\ ACC3 A0 01 . JMP (&022A) :\ ACC5 6C 2A 02 l*. .LACC8 LDA &0118 :\ ACC8 AD 18 01 -.. BEQ LACD7 :\ ACCB F0 0A p. JSR LA793 :\ ACCD 20 93 A7 .' PLA :\ ACD0 68 h CLC :\ ACD1 18 . ADC #&02 :\ ACD2 69 02 i. JMP LAC84 :\ ACD4 4C 84 AC L., .LACD7 PLA :\ ACD7 68 h RTS :\ ACD8 60 ` .LACD9 EQUB &7F :\ ACD9 7F . DEY :\ ACDA 88 . BRK :\ ACDB 00 . BRK :\ ACDC 00 . ASL &01,X :\ ACDD 16 01 .. EQUB &FF :\ ACDF FF . EQUB &FF :\ ACE0 FF . BRK :\ ACE1 00 . .LACE2 LDX #&00 :\ ACE2 A2 00 ". .LACE4 LDA &011B,X :\ ACE4 BD 1B 01 =.. BMI LACEF :\ ACE7 30 06 0. JSR &FFE9 :\ ACE9 20 E9 FF i. INX :\ ACEC E8 h BNE LACE4 :\ ACED D0 F5 Pu .LACEF RTS :\ ACEF 60 ` LDA #&00 :\ ACF0 A9 00 ). STA &0103 :\ ACF2 8D 03 01 ... LDY #&05 :\ ACF5 A0 05 . JSR LAB01 :\ ACF7 20 01 AB .+ JMP (&00D0) :\ ACFA 6C D0 00 lP. LDA &011B :\ ACFD AD 1B 01 -.. STA &0225 :\ AD00 8D 25 02 .%. RTS :\ AD03 60 ` .LAD04 LDA &011B :\ AD04 AD 1B 01 -.. STA &0226 :\ AD07 8D 26 02 .&. RTS :\ AD0A 60 ` .LAD0B ROL LAAA7 :\ AD0B 2E A7 AA .'* EQUB &47 :\ AD0E 47 G EQUB &4F :\ AD0F 4F O SED :\ AD10 F8 x EQUB &EF :\ AD11 EF o EOR #&2E :\ AD12 49 2E I. EQUB &A7 :\ AD14 A7 ' TAX :\ AD15 AA * EOR #&20 :\ AD16 49 20 I EOR (&4D,X) :\ AD18 41 4D AM LDY &4E4A :\ AD1A AC 4A 4E ,JN EQUB &4F :\ AD1D 4F O EQUB &54 :\ AD1E 54 T EOR #&46 :\ AD1F 49 46 IF EOR &10AE,Y :\ AD21 59 AE 10 Y.. EQUB &43 :\ AD24 43 C EQUB &4F :\ AD25 4F O EQUB &53 :\ AD26 53 S EQUB &A7 :\ AD27 A7 ' PHA :\ AD28 48 H EOR (&4F) :\ AD29 52 4F RO LSR &46 :\ AD2B 46 46 FF LDA LA7BC :\ AD2D AD BC A7 -<' TAX :\ AD30 AA * LDX #&0C :\ AD31 A2 0C ". CLD :\ AD33 D8 X JMP LAD3A :\ AD34 4C 3A AD L:- LDX #&FF :\ AD37 A2 FF ". CLD :\ AD39 D8 X .LAD3A LDY #&00 :\ AD3A A0 00 . JSR &F876 :\ AD3C 20 76 F8 vx DEY :\ AD3F 88 . .LAD40 INY :\ AD40 C8 H INX :\ AD41 E8 h .LAD42 LDA LAD0B,X :\ AD42 BD 0B AD =.- BMI LAD5F :\ AD45 30 18 0. CMP &0100,Y :\ AD47 D9 00 01 Y.. BEQ LAD40 :\ AD4A F0 F4 pt DEX :\ AD4C CA J .LAD4D INX :\ AD4D E8 h LDA LAD0B,X :\ AD4E BD 0B AD =.- BPL LAD4D :\ AD51 10 FA .z INX :\ AD53 E8 h LDA &0100,Y :\ AD54 B9 00 01 9.. CMP #&2E :\ AD57 C9 2E I. BNE LAD3A :\ AD59 D0 DF P_ INY :\ AD5B C8 H DEX :\ AD5C CA J BCS LAD42 :\ AD5D B0 E3 0c .LAD5F STA &D1 :\ AD5F 85 D1 .Q LDA LAD0C,X :\ AD61 BD 0C AD =.- STA &D0 :\ AD64 85 D0 .P CLC :\ AD66 18 . LDX #&00 :\ AD67 A2 00 ". JMP (&00D0) :\ AD69 6C D0 00 lP. .LAD6C STX &EF :\ AD6C 86 EF .o STY &F0 :\ AD6E 84 F0 .p LDX #&04 :\ AD70 A2 04 ". .LAD72 LDA LAD7B,X :\ AD72 BD 7B AD ={- STA &F1,X :\ AD75 95 F1 .q DEX :\ AD77 CA J BPL LAD72 :\ AD78 10 F8 .x RTS :\ AD7A 60 ` .LAD7B INC &00,X :\ AD7B F6 00 v. EQUB &F7 :\ AD7D F7 w BRK :\ AD7E 00 . BRK :\ AD7F 00 . .LAD80 LDA #&9A :\ AD80 A9 9A ). STA &022A :\ AD82 8D 2A 02 .*. LDA #&AD :\ AD85 A9 AD )- STA &022B :\ AD87 8D 2B 02 .+. LDA #&80 :\ AD8A A9 80 ). STA &ED :\ AD8C 85 ED .m LDA #&FF :\ AD8E A9 FF ). LDY #&14 :\ AD90 A0 14 . LDX #&ED :\ AD92 A2 ED "m JSR LA8A6 :\ AD94 20 A6 A8 &( JMP LA768 :\ AD97 4C 68 A7 Lh' JSR LA768 :\ AD9A 20 68 A7 h' JSR LA75C :\ AD9D 20 5C A7 \' JMP LA96A :\ ADA0 4C 6A A9 Lj) .LADA3 JSR LAD6C :\ ADA3 20 6C AD l- LDX #&03 :\ ADA6 A2 03 ". .LADA8 LDA LADB8,X :\ ADA8 BD B8 AD =8- STA &0208,X :\ ADAB 9D 08 02 ... DEX :\ ADAE CA J BPL LADA8 :\ ADAF 10 F7 .w INX :\ ADB1 E8 h STX &B000 :\ ADB2 8E 00 B0 ..0 JMP &C2CA :\ ADB5 4C CA C2 LJB .LADB8 PLX :\ ADB8 FA z LDA LADD6 :\ ADB9 AD D6 AD -V- LDA &020A :\ ADBC AD 0A 02 -.. CMP #&D6 :\ ADBF C9 D6 IV BNE LADD5 :\ ADC1 D0 12 P. LDA #&C0 :\ ADC3 A9 C0 )@ STA &EE :\ ADC5 85 EE .n JSR LAD80 :\ ADC7 20 80 AD .- JSR LA75C :\ ADCA 20 5C A7 \' JSR LA82F :\ ADCD 20 2F A8 /( LDA #&00 :\ ADD0 A9 00 ). STA &B000 :\ ADD2 8D 00 B0 ..0 .LADD5 RTS :\ ADD5 60 ` .LADD6 TXA :\ ADD6 8A . PHA :\ ADD7 48 H TYA :\ ADD8 98 . PHA :\ ADD9 48 H LDA #&C1 :\ ADDA A9 C1 )A STA &EE :\ ADDC 85 EE .n JSR LAD80 :\ ADDE 20 80 AD .- LDA #&7F :\ ADE1 A9 7F ). STA &ED :\ ADE3 85 ED .m LDA #&ED :\ ADE5 A9 ED )m LDX #&00 :\ ADE7 A2 00 ". JSR LA8ED :\ ADE9 20 ED A8 m( .LADEC LDA &ED :\ ADEC A5 ED %m BPL LADEC :\ ADEE 10 FC .| JSR LA82F :\ ADF0 20 2F A8 /( PLA :\ ADF3 68 h TAY :\ ADF4 A8 ( PLA :\ ADF5 68 h TAX :\ ADF6 AA * LDA &F6 :\ ADF7 A5 F6 %v RTS :\ ADF9 60 ` STA &F6 :\ ADFA 85 F6 .v TXA :\ ADFC 8A . PHA :\ ADFD 48 H TYA :\ ADFE 98 . PHA :\ ADFF 48 H LDA #&C2 :\ AE00 A9 C2 )B STA &EE :\ AE02 85 EE .n JSR LAD80 :\ AE04 20 80 AD .- PLA :\ AE07 68 h TAY :\ AE08 A8 ( PLA :\ AE09 68 h TAX :\ AE0A AA * LDA &F6 :\ AE0B A5 F6 %v JMP &FE55 :\ AE0D 4C 55 FE LU~ LDX #&DA :\ AE10 A2 DA "Z JSR LA90C :\ AE12 20 0C A9 .) BNE LAE1A :\ AE15 D0 03 P. JMP LA94B :\ AE17 4C 4B A9 LK) .LAE1A JSR &F876 :\ AE1A 20 76 F8 vx LDX #&00 :\ AE1D A2 00 ". .LAE1F LDA &0100,Y :\ AE1F B9 00 01 9.. STA &0100,X :\ AE22 9D 00 01 ... INX :\ AE25 E8 h INY :\ AE26 C8 H CMP #&0D :\ AE27 C9 0D I. BEQ LAE32 :\ AE29 F0 07 p. CMP #&20 :\ AE2B C9 20 I BCS LAE1F :\ AE2D B0 F0 0p JMP &FA7D :\ AE2F 4C 7D FA L}z .LAE32 TXA :\ AE32 8A . PHA :\ AE33 48 H LDX #&09 :\ AE34 A2 09 ". .LAE36 LDA LAF7A,X :\ AE36 BD 7A AF =z/ STA &D0,X :\ AE39 95 D0 .P DEX :\ AE3B CA J BPL LAE36 :\ AE3C 10 F8 .x LDA &DA :\ AE3E A5 DA %Z STA &D2 :\ AE40 85 D2 .R LDA &DB :\ AE42 A5 DB %[ STA &D3 :\ AE44 85 D3 .S LDA #&20 :\ AE46 A9 20 ) LDY #&14 :\ AE48 A0 14 . JSR LA8A4 :\ AE4A 20 A4 A8 $( LDA &DA :\ AE4D A5 DA %Z BEQ LAE5A :\ AE4F F0 09 p. JSR &F7D1 :\ AE51 20 D1 F7 Qw EQUB &42 :\ AE54 42 B EOR &53,X :\ AE55 55 53 US EOR &00EA,Y :\ AE57 59 EA 00 Yj. .LAE5A LDX #&03 :\ AE5A A2 03 ". LDX #&00 :\ AE5C A2 00 ". STX &D6 :\ AE5E 86 D6 .V INX :\ AE60 E8 h STX &D7 :\ AE61 86 D7 .W LDA #&9C :\ AE63 A9 9C ). STA &D0 :\ AE65 85 D0 .P LDA #&20 :\ AE67 A9 20 ) LDY #&14 :\ AE69 A0 14 . JSR LA8A4 :\ AE6B 20 A4 A8 $( LDX #&04 :\ AE6E A2 04 ". .LAE70 LDA LAF70,X :\ AE70 BD 70 AF =p/ STA &D4,X :\ AE73 95 D4 .T DEX :\ AE75 CA J BPL LAE70 :\ AE76 10 F8 .x LDA #&7F :\ AE78 A9 7F ). STA &D0 :\ AE7A 85 D0 .P JSR LA8E9 :\ AE7C 20 E9 A8 i( .LAE7F JSR LA7A4 :\ AE7F 20 A4 A7 $' BEQ LAEC5 :\ AE82 F0 41 pA LDA &D0 :\ AE84 A5 D0 %P BPL LAE7F :\ AE86 10 F7 .w JSR LA82F :\ AE88 20 2F A8 /( LDA #&00 :\ AE8B A9 00 ). STA &D4 :\ AE8D 85 D4 .T LDA #&01 :\ AE8F A9 01 ). STA &D5 :\ AE91 85 D5 .U PLA :\ AE93 68 h STA &DB :\ AE94 85 DB .[ LDA #&00 :\ AE96 A9 00 ). PHA :\ AE98 48 H .LAE99 LDA &DA :\ AE99 A5 DA %Z CLC :\ AE9B 18 . ADC &D4 :\ AE9C 65 D4 eT STA &D6 :\ AE9E 85 D6 .V LDA #&00 :\ AEA0 A9 00 ). ADC &D5 :\ AEA2 65 D5 eU STA &D7 :\ AEA4 85 D7 .W LDA #&80 :\ AEA6 A9 80 ). STA &D0 :\ AEA8 85 D0 .P LDA #&FF :\ AEAA A9 FF ). LDY #&02 :\ AEAC A0 02 . JSR LA8A4 :\ AEAE 20 A4 A8 $( PLA :\ AEB1 68 h CLC :\ AEB2 18 . ADC &DA :\ AEB3 65 DA eZ CMP &DB :\ AEB5 C5 DB E[ BCS LAEC9 :\ AEB7 B0 10 0. PHA :\ AEB9 48 H LDA &D6 :\ AEBA A5 D6 %V STA &D4 :\ AEBC 85 D4 .T LDA &D7 :\ AEBE A5 D7 %W STA &D5 :\ AEC0 85 D5 .U JMP LAE99 :\ AEC2 4C 99 AE L.. .LAEC5 JSR LA82F :\ AEC5 20 2F A8 /( PLA :\ AEC8 68 h .LAEC9 RTS :\ AEC9 60 ` JSR &FE94 :\ AECA 20 94 FE .~ CMP #&0D :\ AECD C9 0D I. BNE LAEC9 :\ AECF D0 F8 Px TXA :\ AED1 8A . PHA :\ AED2 48 H TYA :\ AED3 98 . PHA :\ AED4 48 H LDA &0228 :\ AED5 AD 28 02 -(. BNE LAEDD :\ AED8 D0 03 P. JMP LAF65 :\ AEDA 4C 65 AF Le/ .LAEDD PHA :\ AEDD 48 H LDX #&07 :\ AEDE A2 07 ". .LAEE0 LDA LAF6C,X :\ AEE0 BD 6C AF =l/ STA &D0,X :\ AEE3 95 D0 .P DEX :\ AEE5 CA J BPL LAEE0 :\ AEE6 10 F8 .x PLA :\ AEE8 68 h STA &D2 :\ AEE9 85 D2 .R LDA &0229 :\ AEEB AD 29 02 -). STA &D3 :\ AEEE 85 D3 .S LDA #&5E :\ AEF0 A9 5E )^ STA &022A :\ AEF2 8D 2A 02 .*. LDA #&AF :\ AEF5 A9 AF )/ STA &022B :\ AEF7 8D 2B 02 .+. LDA #&05 :\ AEFA A9 05 ). STA &DA :\ AEFC 85 DA .Z LDA #&10 :\ AEFE A9 10 ). LDY #&32 :\ AF00 A0 32 2 JSR LA8A4 :\ AF02 20 A4 A8 $( LDX #&04 :\ AF05 A2 04 ". .LAF07 LDA LAF75,X :\ AF07 BD 75 AF =u/ STA &D4,X :\ AF0A 95 D4 .T DEX :\ AF0C CA J BPL LAF07 :\ AF0D 10 F8 .x JSR &FFED :\ AF0F 20 ED FF m. LDA &D2 :\ AF12 A5 D2 %R LDX #&2F :\ AF14 A2 2F "/ SEC :\ AF16 38 8 .LAF17 SBC #&64 :\ AF17 E9 64 id INX :\ AF19 E8 h BCS LAF17 :\ AF1A B0 FB 0{ ADC #&64 :\ AF1C 69 64 id PHA :\ AF1E 48 H TXA :\ AF1F 8A . JSR OSBYTE :\ AF20 20 F4 FF t. PLA :\ AF23 68 h LDX #&2F :\ AF24 A2 2F "/ SEC :\ AF26 38 8 .LAF27 SBC #&0A :\ AF27 E9 0A i. INX :\ AF29 E8 h BCS LAF27 :\ AF2A B0 FB 0{ ADC #&3A :\ AF2C 69 3A i: PHA :\ AF2E 48 H TXA :\ AF2F 8A . JSR OSBYTE :\ AF30 20 F4 FF t. PLA :\ AF33 68 h JSR OSBYTE :\ AF34 20 F4 FF t. JSR &F7D1 :\ AF37 20 D1 F7 Qw DEC A :\ AF3A 3A : JSR LA9EA :\ AF3B 20 EA A9 j) EQUB &7F :\ AF3E 7F . STA &D0 :\ AF3F 85 D0 .P JSR LA8E9 :\ AF41 20 E9 A8 i( LDA #&01 :\ AF44 A9 01 ). LDY #&D0 :\ AF46 A0 D0 P JSR LA813 :\ AF48 20 13 A8 .( LDX #&00 :\ AF4B A2 00 ". .LAF4D LDA &0148,X :\ AF4D BD 48 01 =H. JSR &FFE9 :\ AF50 20 E9 FF i. CMP #&0D :\ AF53 C9 0D I. BEQ LAF60 :\ AF55 F0 09 p. INX :\ AF57 E8 h CPX #&05 :\ AF58 E0 05 `. BCC LAF4D :\ AF5A 90 F1 .q BCS LAF3D :\ AF5C B0 DF 0_ PLA :\ AF5E 68 h PLA :\ AF5F 68 h .LAF60 LDX #&03 :\ AF60 A2 03 ". JSR LA73E :\ AF62 20 3E A7 >' .LAF65 PLA :\ AF65 68 h TAY :\ AF66 A8 ( PLA :\ AF67 68 h TAX :\ AF68 AA * LDA #&0D :\ AF69 A9 0D ). RTS :\ AF6B 60 ` .LAF6C BRA LAF18 :\ AF6C 80 AA .* BRK :\ AF6E 00 . BRK :\ AF6F 00 . .LAF70 PHX :\ AF70 DA Z BRK :\ AF71 00 . EQUB &DB :\ AF72 DB [ BRK :\ AF73 00 . BRK :\ AF74 00 . .LAF75 PHA :\ AF75 48 H ORA (&4D,X) :\ AF76 01 4D .M ORA (&00,X) :\ AF78 01 00 .. .LAF7A STY &00 :\ AF7A 84 00 .. BRK :\ AF7C 00 . BRK :\ AF7D 00 . PHX :\ AF7E DA Z BRK :\ AF7F 00 . EQUB &DB :\ AF80 DB [ BRK :\ AF81 00 . PLP :\ AF82 28 ( EQUB &02 :\ AF83 02 . .LAF84 BIT &FE :\ AF84 24 FE $~ BMI LAF98 :\ AF86 30 10 0. CMP #&02 :\ AF88 C9 02 I. BNE LAFE2 :\ AF8A D0 56 PV ROR &FE :\ AF8C 66 FE f~ LDA &0227 :\ AF8E AD 27 02 -'. AND #&FE :\ AF91 29 FE )~ STA &0227 :\ AF93 8D 27 02 .'. LDA #&02 :\ AF96 A9 02 ). .LAF98 PHA :\ AF98 48 H LDA &022A :\ AF99 AD 2A 02 -*. STA &0110 :\ AF9C 8D 10 01 ... LDA &022B :\ AF9F AD 2B 02 -+. STA &0111 :\ AFA2 8D 11 01 ... LDA #&E5 :\ AFA5 A9 E5 )e STA &022A :\ AFA7 8D 2A 02 .*. LDA #&AF :\ AFAA A9 AF )/ STA &022B :\ AFAC 8D 2B 02 .+. PLA :\ AFAF 68 h STA &0112 :\ AFB0 8D 12 01 ... TXA :\ AFB3 8A . PHA :\ AFB4 48 H TYA :\ AFB5 98 . PHA :\ AFB6 48 H LDA &022E :\ AFB7 AD 2E 02 -.. STA &D2 :\ AFBA 85 D2 .R LDA &022F :\ AFBC AD 2F 02 -/. STA &D3 :\ AFBF 85 D3 .S LDA #&D0 :\ AFC1 A9 D0 )P STA &D1 :\ AFC3 85 D1 .Q LDA &0227 :\ AFC5 AD 27 02 -'. EOR #&01 :\ AFC8 49 01 I. STA &0227 :\ AFCA 8D 27 02 .'. LDY #&02 :\ AFCD A0 02 . JSR LA9C4 :\ AFCF 20 C4 A9 D) JSR LAFED :\ AFD2 20 ED AF m/ PLA :\ AFD5 68 h TAY :\ AFD6 A8 ( PLA :\ AFD7 68 h TAX :\ AFD8 AA * LDA &0112 :\ AFD9 AD 12 01 -.. CMP #&03 :\ AFDC C9 03 I. BNE LAFE2 :\ AFDE D0 02 P. LSR &FE :\ AFE0 46 FE F~ .LAFE2 JMP &FE55 :\ AFE2 4C 55 FE LU~ JSR LAFED :\ AFE5 20 ED AF m/ LSR &FE :\ AFE8 46 FE F~ JMP LA8C8 :\ AFEA 4C C8 A8 LH( .LAFED LDX &0110 :\ AFED AE 10 01 ... STX &022A :\ AFF0 8E 2A 02 .*. LDX &0111 :\ AFF3 AE 11 01 ... STX &022B :\ AFF6 8E 2B 02 .+. RTS :\ AFF9 60 ` EOR #&54 :\ AFFA 49 54 IT EQUB &53 :\ AFFC 53 S JSR &4F46 :\ AFFD 20 46 4F FO BRK :\ B000 00 . ]NEXT SAVE "*SAVE ";~mcode%;" ";~O%;" ";~exec%;" ";~load%