Home » Personal collection » Commodore disks » disk44b_mandelbrot.d64 » mandelcode24
mandelcode24
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk44b_mandelbrot.d64 |
| Filename: | mandelcode24 |
| Read OK: | ✔ |
| File size: | 69F7 bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
File contents
100 *=$1000 110 XPIXEL=$4103 120 YPIXEL=$4104 130 COLOUR=$4105 140 YPIB=$4106 150 MAXCOL=$4107 160 XP=$4108 170 YP=$4109 180 XPB=$410A 190 CLICK=$410B 200 HOUR=$410C 210 XPIB=$410D 220 XPBIB=$410E 222 COL0=$410F 224 COL1=$4110 226 COL2=$4111 228 COL3=$4112 230 COL0S=$4113 232 COL1S=$4114 234 COL2S=$4115 236 COL3S=$4116 238 ELSETIME=$4117 240 SPEED=$4118 242 NEGREG=$4119 246 FRACPUDEF=$411A 290 OUTDO =$AB47 291 SCNCLRLFS=$FFBA 292 SCNCLRNAM=$FFBD 293 SSHAPEROM=$FFD8 294 PLOTRROM=$E56C 10010 JSR INIT 10020 COMEBACK JSR HIRESON 10030 CONTROLOP LDA CLICK 10040 BNE CONTROLOP 10050 CONTLOPB LDA CLICK 10060 BEQ CONTLOPB 10070 LDA XPB 10080 BNE BOT 10090 LDA XP 10093 CMP #$58 10096 BCC CONTCONT 10100 BOT JMP BOX 10110 CONTCONT LDA YP 10112 CMP #$5A 10114 BCC CONTROLOP 10120 SEC 10130 SBC #$5A 10140 LSR A 10150 LSR A 10160 AND #$FE 10170 TAX 10180 LDA VECTORS,X 10190 STA $FB 10200 INX 10210 LDA VECTORS,X 10220 STA $FC 10230 JMP ($00FB) 10240 VECTORS TXT <SWITCH,>SWITCH,<CONTROLOP,>CONTROLOP,<ZOOMIN,>ZOOMIN 10250 TXT <CONTROLOP,>CONTROLOP,<POSITION,>POSITION,<CONTROLOP,>CONTROLOP 10260 TXT <CONTROLOP,>CONTROLOP,<COLS,>COLS,<CONTROLOP,>CONTROLOP 10270 TXT <COLCYCLE,>COLCYCLE,<CONTROLOP,>CONTROLOP,<MANDPLOT,>MANDPLOT 10280 TXT <CONTROLOP,>CONTROLOP,<CONTROLOP,>CONTROLOP,<EXIT,>EXIT 10290 TXT <CONTROLOP,>CONTROLOP,<BOX,>BOX,<CONTROLOP,>CONTROLOP,<SSHAPE,>SSHAPE 10300 TXT <CONTROLOP,>CONTROLOP,<CONTROLOP,>CONTROLOP 10500 EXIT JSR HIRESOFF 10510 LDA #$93 10520 JSR OUTDO 10530 LDA #$05 10540 JSR OUTDO 10550 LDA #$00 10560 STA $C6 10570 RTS 12030 IRQ LDA #$00 12040 STA CLICK 12050 LDA $C5 12060 CMP #$01 12070 BNE CONCHECK 12080 STA CLICK 12090 CONCHECK CMP #$0C 12100 BEQ LEFTK 12110 LKC CMP #$17 12120 BEQ RIGHTK 12130 RKC CMP #$32 12140 BEQ UPK 12150 UPKC CMP #$37 12160 BEQ DOWNK 12170 DKC LDA $DC00 12190 AND #$01 12200 BEQ UPJ 12210 UJC LDA $DC00 12220 AND #$02 12230 BEQ DOWNJ 12240 DJC LDA $DC00 12250 AND #$04 12260 BEQ LEFTJ 12270 LJC LDA $DC00 12280 AND #$08 12290 BEQ RIGHTJ 12300 RJC LDA $DC00 12310 AND #$10 12320 EOR #$10 12330 BEQ CJCH 12340 STA CLICK 12350 CJCH JMP BOXFLASH 12360 LEFTK JSR LEFT 12370 JMP LKC 12380 RIGHTK JSR RIGHT 12390 JMP RKC 12400 UPK JSR UP 12410 JMP UPKC 12420 DOWNK JSR DOWN 12430 JMP DKC 12440 UPJ JSR UP 12450 JMP UJC 12460 DOWNJ JSR DOWN 12470 JMP DJC 12480 LEFTJ JSR LEFT 12490 JMP LJC 12500 RIGHTJ JSR RIGHT 12510 JMP RJC 12520 LEFT DEC XP 12530 LDA XP 12540 CMP #$FF 12550 BNE NOTFF 12560 LDY #$00 12570 STY XPB 12580 NOTFF LDY XPB 12590 BNE FIN 12600 CMP #$18 12610 BNE FIN 12620 INC XP 12630 FIN JMP CONTROL 12640 RIGHT INC XP 12650 LDA XP 12660 BNE NOT00 12670 LDY #$01 12680 STY XPB 12690 NOT00 LDY XPB 12700 BEQ FIN 12710 CMP #$58 12720 BNE FIN 12730 DEC XP 12740 JMP CONTROL 12750 UP DEC YP 12760 LDA YP 12770 CMP #$32 12780 BNE FIN 12790 INC YP 12800 JMP CONTROL 12810 DOWN INC YP 12820 LDA YP 12830 CMP #$F8 12840 BNE FIN 12850 DEC YP 12860 JMP CONTROL 12880 CONTROL LDA HOUR 12890 BEQ NHGLASS 13210 LDX #$3A 13220 STX $07F8 13230 INX 13240 STX $07F9 13250 NHGLASS LDA XP 13260 STA $D000 13270 STA $D002 13280 LDA YP 13290 STA $D001 13300 STA $D003 13310 LDA $D010 13320 AND #$FC 13330 LSR A 13340 CLC 13350 ADC XPB 13360 ASL A 13370 CLC 13380 ADC XPB 13390 STA $D010 13400 LDA #$00 13410 STA $D027 13420 LDA #$01 13430 STA $D028 13440 LDA $D015 13450 ORA #$03 13460 STA $D015 13470 LDA HOUR 13480 BNE QTRO 13490 LDX #$38 13500 STX $07F8 13510 INX 13520 STX $07F9 13530 QTRO RTS 13550 INIT LDA #$00 13560 STA $D020 13570 STA $D021 13580 STA XP 13590 STA HOUR 13600 STA $D015 13610 LDA #$01 13620 STA XPB 13630 LDA #$80 13640 STA YP 13650 HIRESON LDA #$3B 13660 STA $D011 13670 LDA #$D8 13680 STA $D016 13690 LDA COL0S 13700 STA COL0 13710 LDA COL1S 13720 STA COL1 13730 LDA COL2S 13740 STA COL2 13750 LDA COL3S 13760 STA COL3 13770 JSR SCNCLRCOLS 13830 JSR LEFT 13840 SEI 13850 LDA #<IRQ 13860 STA $0314 13870 LDA #>IRQ 13880 STA $0315 13890 CLI 14010 LDA #$18 14020 STA $D018 14900 RTS 14930 HIRESOFF SEI 14940 LDA #$31 14950 STA $0314 14960 LDA #$EA 14970 STA $0315 14980 CLI 14990 LDA #$00 15000 STA $D015 15005 STA $D021 15010 LDA #$9B 15020 STA $D011 15030 LDA #$C8 15040 STA $D016 15043 LDA #$15 15046 STA $D018 15050 RTS 20000 BOX JSR HIRESOFF 20010 LDA #$1C 20020 JSR OUTDO 20030 LDA #$93 20040 JSR OUTDO 20050 LDA #$00 20060 BOXLOOP PHA 20070 ASL A 20080 ASL A 20090 CLC 20100 ADC #$42 20110 STA $FC 20120 LDY #$00 20130 STY $FB 20140 STY $FD 20150 LDA #$04 20160 STA $FE 20170 BOXLOOPB LDA ($FB),Y 20180 STA ($FD),Y 20190 INY 20200 BNE BOXLOOPB 20210 INC $FC 20220 INC $FE 20230 LDA $FE 20240 CMP #$08 20250 BNE BOXLOOPB 20260 BOXAUTO LDA $C5 20270 CMP #$40 20280 BNE BOXAUTO 20290 BOXAUTOB LDA $C5 20300 CMP #$40 20310 BEQ BOXAUTOB 20320 TAX 20330 PLA 20340 CPX #$01 20350 BEQ HNOMORE 20360 CPX #$28 20370 BEQ NEXT 20380 CPX #$2B 20390 BEQ PREV 20400 BOXRET PHA 20410 JMP BOXAUTOB 20420 HNOMORE JMP COMEBACK 20430 NEXT CMP #$05 20440 BEQ BOXRET 20450 CLC 20460 ADC #$01 20470 JMP BOXLOOP 20480 PREV CMP #$00 20490 BEQ BOXRET 20500 SEC 20510 SBC #$01 20520 JMP BOXLOOP 25010 FNAME TXT 147,5 25020 TXT "FILENAME:",0 25030 TORD TXT 13,13,"(T)APE OR (D)ISK",0 25040 POST TXT 13,13,"POSITION TAPE <SPACE>",13,0 25050 INSD TXT 13,13,"INSERT DISK <SPACE>",13,0 25060 PSTRING LDY #$00 25070 PSTRLOP LDA ($FB),Y 25080 BEQ PSTRQUIT 25090 JSR OUTDO 25095 INY 25100 JMP PSTRLOP 25110 PSTRQUIT RTS 25120 ONOFF LDA $040A,Y 25130 EOR #$80 25140 STA $040A,Y 25150 RTS 25160 GETAUTO LDA $C5 25170 CMP #$40 25180 BNE GETAUTO 25190 GETAUTOB LDA $C5 25200 CMP #$40 25210 BEQ GETAUTOB 25220 TAX 25230 LDA AUTOINSTR,X 25240 BEQ GETAUTO 25250 RTS 25260 SSHAPE JSR HIRESOFF 25270 LDX #$00 25280 LDA #$20 25290 FNAMECLR STA $41F0,X 25300 INX 25310 CPX #$10 25320 BNE FNAMECLR 25330 LDA #<FNAME 25340 STA $FB 25350 LDA #>FNAME 25360 STA $FC 25370 JSR PSTRING 25380 LDA #$00 25390 PHA 25400 SSHAPELOOP TAY 25405 JSR ONOFF 25410 JSR GETAUTO 25415 PHA 25420 JSR ONOFF 25425 PLA 25430 CMP #$80 25440 BCS DECODE 25450 TAY 25460 PLA 25470 TAX 25480 TYA 25490 STA $040A,X 25500 CMP #$20 25510 BCS NOSPC 25520 CLC 25530 ADC #$40 25540 NOSPC STA $41F0,X 25550 INCPOS CPX #$0F 25560 BEQ SSHAPERELOP 25570 INX 25580 SSHAPERELOP TXA 25585 PHA 25590 JMP SSHAPELOOP 25600 DECODE CMP #$80 25610 BEQ SSHAPECONT 25620 CMP #$81 25630 BEQ DEC 25640 CMP #$82 25650 BNE SSHAPELOOP 25660 PLA 25670 TAX 25680 LDA $028D 25690 AND #$01 25700 BEQ INCPOS 25710 DECPOS CPX #$00 25720 BEQ SSHAPERELOP 25730 DEX 25740 JMP SSHAPERELOP 25750 DEC PLA 25760 TAX 25770 LDA #$20 25780 STA $040A,X 25790 STA $41F0,X 25800 JMP DECPOS 25810 SSHAPECONT PLA 25815 LDA #<TORD 25820 STA $FB 25830 LDA #>TORD 25840 STA $FC 25850 JSR PSTRING 25860 GSHAPE JSR GETAUTO 25870 CMP #$14 25880 BEQ TAPESSHAPE 25890 CMP #$04 25900 BEQ DISKSSHAPE 25910 JMP GSHAPE 25920 TAPESSHAPE LDA #<POST 25930 STA $FB 25940 LDA #>POST 25950 STA $FC 25960 JSR PSTRING 25970 LDX #$01 25980 JMP TAPECONT 25990 DISKSSHAPE LDA #<INSD 26000 STA $FB 26010 LDA #>INSD 26020 STA $FC 26030 JSR PSTRING 26040 LDX #$08 26050 TAPECONT LDA $C5 26060 CMP #$3C 26070 BNE TAPECONT 26080 LDA #$01 26090 TAY 26100 JSR SCNCLRLFS 26110 LDX #$10 26120 FNAMELEN LDA $41EF,X 26130 CMP #$20 26140 BNE FNAMEGOT 26150 DEX 26160 BEQ FNAMEGOT 26170 JMP FNAMELEN 26180 FNAMEGOT TXA 26190 LDX #$F0 26210 LDY #$41 26220 JSR SCNCLRNAM 26230 LDA #$20 26240 STA $FC 26250 LDX #$00 26260 STX $FB 26270 LDY #$40 26280 LDA #$FB 26290 JSR SSHAPEROM 26300 JMP COMEBACK 27020 AUTOINSTR TXT $81,$80,$82 27030 TXT 0,0,0,0,$83,51,23,1,52,26 27040 TXT 19,5,0,53,18,4,54,3,6,20,24 27050 TXT 55,25,7,56,2,8,21,22,57,9,10 27060 TXT 48,13,11,15,14,43,16,12,45,46 27070 TXT 0,0,44,0,0,0,0,0,0,30,47,49 27080 TXT 31,0,50,32,0,17,0,0 30010 MANDEL SEI 30012 LDA #$01 30013 STA HOUR 30014 JSR LEFT 30015 LDA #$00 30020 STA YPIXEL 30030 LDA #$03 30040 STA $4100 30050 LDA #$06 30060 STA $4102 30070 JSR EQUAL 30080 MMAINL LDA #$00 30090 STA XPIXEL 30100 LDA #$01 30110 STA $4100 30120 LDA #$05 30130 STA $4102 30140 JSR EQUAL 30150 MMAINLB LDA #$05 30160 STA $4100 30170 LDA #$07 30180 STA $4102 30190 JSR EQUAL 30200 INC $4100 30210 INC $4102 30220 JSR EQUAL 30230 LDA #$00 30240 STA COLOUR 30250 LOOP LDA #$07 30260 STA $4100 30270 STA $4101 30280 LDA #$10 30290 STA $4102 30300 JSR MULTIPLY 30310 LDA #$08 30320 STA $4100 30330 STA $4101 30340 LDA #$11 30350 STA $4102 30360 JSR MULTIPLY 30370 LDX #$10 30380 STX $4100 30390 INX 30400 STX $4101 30410 INX 30420 STX $4102 30430 JSR ADDITION 30440 LDA $4091 30450 CMP #$04 30460 BCC FAIL 30470 CMP #$50 30480 BCS FAIL 30490 SUCPASS JMP SUCCESS 30500 FAIL INC COLOUR 30505 LDA COLOUR 30510 CMP MAXCOL 30520 BEQ SUCPASS 30530 JSR SUBTRACT 30540 LDA #$12 30550 STA $4100 30560 LDA #$05 30570 STA $4101 30580 LDA #$13 30590 STA $4102 30600 JSR ADDITION 30610 LDA #$07 30620 STA $4100 30630 LDA #$08 30640 STA $4101 30650 INC $4102 30660 JSR MULTIPLY 30670 LDA #$14 30680 STA $4100 30700 STA $4101 30710 LDA #$15 30720 STA $4102 30730 JSR ADDITION 30740 LDA #$15 30750 STA $4100 30760 LDA #$06 30770 STA $4101 30780 LDA #$16 30790 STA $4102 30800 JSR ADDITION 30810 LDA #$13 30820 STA $4100 30830 LDA #$07 30840 STA $4102 30850 JSR EQUAL 30860 LDA #$16 30870 STA $4100 30880 LDA #$08 30890 STA $4102 30900 JSR EQUAL 30910 JMP LOOP 30920 SUCCESS JSR PLOT 30930 LDA #$05 30940 STA $4100 30950 STA $4102 30960 LDA #$02 30970 STA $4101 30980 JSR ADDITION 30990 LDA XPIXEL 31000 BNE XRELOP 31010 LDA #$06 31020 STA $4100 31030 STA $4102 31040 LDA #$04 31050 STA $4101 31060 JSR ADDITION 31070 INC YPIXEL 31080 LDA YPIXEL 31090 CMP #$C8 31100 BNE YRELOP 31102 LDA #$00 31103 STA HOUR 31104 JSR RIGHT 31105 CLI 31110 RTS 31120 XRELOP JMP MMAINLB 31130 YRELOP JMP MMAINL 31200 MANDPLOT JSR MANDLE 31210 JMP CONTROLOP 35010 SCNCLRCOLS LDA COL0 35020 STA $D021 35030 LDY #$00 35040 STY $FB 35050 LDA #$D8 35060 STA $FC 35070 LDA COL3 35080 SCNCLRCLOPA STA ($FB),Y 35090 INY 35100 BNE SCNCLRCLOPA 35110 INC $FC 35120 LDX $FC 35130 CPX #$DC 35140 BNE SCNCLRCLOPA 35150 LDA #$04 35160 STA $FC 35170 LDA COL1 35180 ASL A 35190 ASL A 35200 ASL A 35210 ASL A 35220 ORA COL2 35230 SCNCLRCLOPB STA ($FB),Y 35240 INY 35250 BEQ SCNCLRCLOPC 35260 CPY #$F8 35270 BNE SCNCLRCLOPB 35280 LDX $FC 35290 CPX #$07 35300 BNE SCNCLRCLOPB 35310 RTS 35320 SCNCLRCLOPC INC $FC 35330 JMP SCNCLRCLOPB 35340 COLCWAIT LDA ELSETIME 35350 CLC 35360 ADC SPEED 35370 STA ELSETIME 35380 COLCLOP CMP $A2 35390 BNE COLCLOP 35400 RTS 35410 COLCAUTOS LDA $C5 35420 CMP #$28 35430 BEQ SPUP 35440 CMP #$2B 35450 BEQ SLDN 35460 CMP #$01 35470 BEQ COLCOFF 35480 NOAUTO RTS 35490 COLCOFF PLA 35500 PLA 35510 JMP COMEBACK 35520 SPUP LDA SPEED 35525 CMP #$03 35530 BEQ NOAUTO 35540 DEC SPEED 35550 RTS 35560 SLDN LDA SPEED 35570 CMP #$19 35580 BEQ NOAUTO 35590 INC SPEED 35600 RTS 35610 COLCYCLE LDA $C5 35612 CMP #$40 35614 BNE COLCYCLE 35616 LDA #$0A 35620 STA SPEED 35630 LDA $A2 35640 STA ELSETIME 35650 COLCYCLOP LDA COL0S 35660 STA COL0 35670 LDA COL1S 35680 STA COL1 35690 LDA COL2S 35700 STA COL2 35710 LDA COL3S 35720 STA COL3 35730 JSR SCNCLRCOLS 35740 JSR COLCAUTOS 35750 JSR COLCWAIT 35760 LDA COL3S 35770 STA COL0 35780 LDA COL0S 35790 STA COL1 35800 LDA COL1S 35810 STA COL2 35820 LDA COL2S 35830 STA COL3 35840 JSR SCNCLRCOLS 35850 JSR COLCAUTOS 35860 JSR COLCWAIT 35870 LDA COL2S 35880 STA COL0 35890 LDA COL3S 35900 STA COL1 35910 LDA COL0S 35920 STA COL2 35930 LDA COL1S 35940 STA COL3 35950 JSR SCNCLRCOLS 35960 JSR COLCAUTOS 35970 JSR COLCWAIT 35980 LDA COL1S 35990 STA COL0 36000 LDA COL2S 36010 STA COL1 36020 LDA COL3S 36030 STA COL2 36040 LDA COL0S 36050 STA COL3 36060 JSR SCNCLRCOLS 36070 JSR COLCAUTOS 36080 JSR COLCWAIT 36090 JMP COLCYCLOP 36100 ITERPRINT LDA MAXCOL 36110 AND #$F0 36120 LSR A 36130 LSR A 36140 LSR A 36150 LSR A 36160 CMP #$0A 36170 BCC ITADD 36180 SEC 36190 SBC #$39 36200 ITADD CLC 36210 ADC #$30 36220 STA $0505 36230 LDA MAXCOL 36240 AND #$0F 36250 CMP #$0A 36260 BCC NOADDIT 36270 SEC 36280 SBC #$39 36290 NOADDIT CLC 36300 ADC #$30 36310 STA $0506 36320 RTS 36330 COLTEXT TXT 147,5,"┌🭸┐┌🭸┐┌🭸┐┌🭸┐",13 36340 TXT "🭲<reverse on> <rev off>🭲🭲<reverse on> <rev off>🭲🭲<reverse on> <rev off>🭲🭲<reverse on> <rev off>🭲 <- SCREEN COLOURS",13 36350 TXT "└🭸┘└🭸┘└🭸┘└🭸┘",13 36360 TXT " 1 2 3 4",13,13,13 36370 TXT "MAXIMUM ITERATIONS: $$$",0 36380 COLS JSR HIRESOFF 36390 LDA #<COLTEXT 36400 STA $FB 36410 LDA #>COLTEXT 36420 STA $FC 36430 JSR PSTRING 36440 LDA COL0S 36450 STA $D829 36460 LDA COL1S 36470 STA $D82C 36480 LDA COL2S 36490 STA $D82F 36500 LDA COL3S 36510 STA $D832 36520 JSR ITERPRINT 36530 COLLOOPK JSR GETAUTO 36540 CMP #$80 36550 BEQ COLQUIT 36560 CMP #$31 36570 BEQ COL1ADD 36580 CMP #$32 36590 BEQ COL2ADD 36600 CMP #$33 36610 BEQ COL3ADD 36620 CMP #$34 36630 BEQ COL4ADD 36640 CMP #$2B 36650 BEQ ITERPLUS 36660 CMP #$2D 36670 BNE COLLOOPK 36680 DEC MAXCOL 36690 JSR ITERPRINT 36700 JMP COLLOOPK 36710 ITERPLUS INC MAXCOL 36720 JSR ITERPRINT 36730 JMP COLLOOPK 36740 COLQUIT JMP COMEBACK 36750 COL1ADD INC COL0S 36760 LDA COL0S 36770 AND #$0F 36780 STA COL0S 36790 STA $D829 36800 JMP COLLOOPK 36810 COL2ADD INC COL1S 36820 LDA COL1S 36830 AND #$0F 36840 STA COL1S 36850 STA $D82C 36860 JMP COLLOOPK 36870 COL3ADD INC COL2S 36880 LDA COL2S 36890 AND #$0F 36900 STA COL2S 36910 STA $D82F 36920 JMP COLLOOPK 36930 COL4ADD INC COL3S 36940 LDA COL3S 36950 AND #$0F 36960 STA COL3S 36970 STA $D832 36980 JMP COLLOOPK 40010 GETDIGIT CLD 40020 ASL A 40030 ASL A 40040 ASL A 40050 STA $02 40060 TXA 40070 LSR A 40080 STA $24 40090 LDA #$07 40100 SEC 40110 SBC $24 40120 CLC 40130 ADC $02 40140 TAY 40150 LDA $4000,Y 40160 TAY 40170 TXA 40180 AND #$01 40190 BEQ LSNGD 40200 TYA 40210 AND #$F0 40220 LSR A 40230 LSR A 40240 LSR A 40250 LSR A 40260 RTS 40270 LSNGD TYA 40280 AND #$0F 40290 RTS 40300 MULTIPLYB JSR NEGATIVE 40305 LDA $4102 40310 ASL A 40320 ASL A 40330 ASL A 40340 TAX 40350 LDA #$00 40360 TAY 40370 MLOPA STA $4000,X 40380 INY 40390 INX 40400 CPY #$08 40410 BNE MLOPA 40420 LDA #$06 40430 STA $FC 40440 NEWDIGIT LDA $4101 40450 LDX $FC 40460 JSR GETDIGIT 40470 CMP #$00 40480 BEQ DMOVERB 40490 STA $FD 40500 LDA #$06 40510 STA $FB 40520 DMLOP LDA $4100 40530 LDX $FB 40540 JSR GETDIGIT 40550 CMP #$00 40560 BEQ DMOVER 40570 ASL A 40580 ASL A 40590 ASL A 40600 ASL A 40610 CLC 40620 ADC $FD 40630 TAY 40640 LDA MINSTR,Y 40650 STA $35 40660 AND #$0F 40670 TAY 40680 LDA $FB 40690 CLC 40700 ADC $FC 40710 SEC 40720 SBC #$0C 40730 TAX 40740 AND #$01 40750 BEQ MSKIP 40760 TYA 40770 ASL A 40780 ASL A 40790 ASL A 40800 ASL A 40810 TAY 40820 LDA $35 40830 AND #$F0 40840 LSR A 40850 LSR A 40860 LSR A 40870 LSR A 40880 STA $35 40890 JMP MCONT 40895 DMOVERB JMP DMOVER 40900 MSKIP LDY $35 40910 LDA #$00 40920 STA $35 40922 MCONT TXA 40924 LSR A 40926 STA $02 40928 LDA #$07 40930 SEC 40932 SBC $02 40934 STA $02 40936 LDA $4102 40938 ASL A 40940 ASL A 40942 ASL A 40944 ADC $02 40946 STY $25 40948 TAY 40950 SED 40952 LDA $4000,Y 40954 CLC 40956 ADC $25 40958 STA $4000,Y 40960 CLD 40962 DEY 40964 SED 40966 LDA $4000,Y 40968 ADC $35 40970 STA $4000,Y 40972 CLD 40974 MALP BCC DMOVER 40976 DEY 40978 SED 40980 LDA $4000,Y 40982 ADC #$00 40984 STA $4000,Y 40986 CLD 40988 JMP MALP 41050 DMOVER INC $FB 41060 LDA $FB 41070 CMP #$0E 41080 BCC DMLOPB 41090 INC $FC 41100 LDA $FC 41110 CMP #$0E 41120 BCC NEWDIGITB 41130 LDA YPIB 41140 BEQ QUIT 41150 LDA $4102 41160 STA $4101 41170 LDA #$1D 41180 STA $4100 41190 JSR SUBTRACT 41200 QUIT RTS 41210 DMLOPB JMP DMLOP 41220 NEWDIGITB JMP NEWDIGIT 41250 MSUP LDA $4100 41260 ASL A 41270 ASL A 41280 ASL A 41290 TAX 41300 DEX 41310 STX $FB 41320 LDA $4101 41330 ASL A 41340 ASL A 41350 ASL A 41360 TAX 41370 DEX 41380 STX $FD 41390 LDA $4102 41400 ASL A 41410 ASL A 41420 ASL A 41430 TAX 41440 DEX 41450 STX $22 41460 LDA #$40 41470 STA $FC 41480 STA $FE 41490 STA $23 41500 RTS 41510 EQUAL JSR MSUP 41520 LDY #$08 41530 ELOP LDA ($FB),Y 41540 STA ($22),Y 41550 DEY 41560 BNE ELOP 41570 RTS 41580 ADDITION JSR MSUP 41590 LDY #$08 41600 SED 41610 CLC 41620 ADLOP LDA ($FB),Y 41630 ADC ($FD),Y 41640 STA ($22),Y 41650 DEY 41660 BNE ADLOP 41670 CLD 41680 RTS 41690 SUBTRACT JSR MSUP 41700 LDY #$08 41710 SED 41720 SEC 41730 SULOP LDA ($FB),Y 41740 SBC ($FD),Y 41750 STA ($22),Y 41760 DEY 41770 BNE SULOP 41780 CLD 41790 RTS 41800 NEGATIVE LDA #$00 41810 PHA 41820 LDA $4100 41830 TAY 41840 ASL A 41850 ASL A 41860 ASL A 41870 TAX 41880 LDA $4001,X 41890 CMP #$50 41895 BCC NEGRMOVEAB 41900 PLA 41910 ADC #$00 41920 PHA 41930 JMP NEGRMOVEA 41940 NEGRMOVEAB LDA $4101 41950 TAY 41960 ASL A 41970 ASL A 41980 ASL A 41990 TAX 42000 LDA $4001,X 42010 CMP #$50 42020 PLA 42030 BCC NOEOR 42040 EOR #$01 42050 PHA 42060 BCS NEGRMOVEB 42070 NEGRMOVEBB PLA 42080 NOEOR STA YPIB 42090 RTS 42100 NEGRMOVE LDA $4100 42110 PHA 42120 LDA $4101 42130 PHA 42140 LDA $4102 42150 PHA 42160 TYA 42170 STA $4101 42180 STA $4102 42190 LDA #$1D 42200 STA $4100 42210 JSR SUBTRACT 42220 PLA 42230 STA $4102 42240 PLA 42250 STA $4101 42260 PLA 42270 STA $4100 42280 RTS 42290 NEGRMOVEA JSR NEGRMOVE 42300 JMP NEGRMOVEAB 42310 NEGRMOVEB JSR NEGRMOVE 42320 JMP NEGRMOVEBB 42330 MULTIPLY LDA $4102 42340 PHA 42350 LDA $4101 42360 PHA 42370 LDA #$18 42380 STA $4102 42390 JSR EQUAL 42400 INC $4102 42410 PLA 42420 STA $4100 42430 JSR EQUAL 42440 LDA #$18 42450 STA $4100 42460 LDA #$19 42470 STA $4101 42480 PLA 42490 STA $4102 42500 JMP MULTIPLYB 45004 MINSTR TXT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 45006 TXT 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0 45008 TXT 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0 45010 TXT 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0 45012 TXT 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0 45014 TXT 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0 45016 TXT 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0 45018 TXT 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0 45020 TXT 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0 45022 TXT 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0 46010 POSTEXT TXT 147,5," P O S I T I O N",13,13,13,"XMIN:",13 46020 TXT "XMAX:",13,"YMIN:",13,"YMAX:",0 46030 PNO PHA 46040 ASL A 46050 ASL A 46060 ASL A 46070 TAX 46080 LDA $4001,X 46090 CMP #$50 46100 BCS PNOVER 46110 LDA #$2B 46120 JSR OUTDO 46122 LDA #$00 46124 STA NEGREG 46130 JMP PNCONT 46140 PNOVER LDA #$2D 46150 JSR OUTDO 46151 LDA #$01 46152 STA NEGREG 46153 PLA 46154 PHA 46155 STA $4101 46156 STA $4102 46157 LDA #$1D 46158 STA $4100 46159 JSR SUBTRACT 46160 PNCONT LDX #$0C 46170 PNCB STX $22 46180 PLA 46190 PHA 46200 JSR GETDIGIT 46220 CLC 46230 ADC #$30 46235 JSR OUTDO 46240 LDX $22 46250 BEQ PNDQ 46260 CPX #$0C 46270 BEQ PNDOT 46280 DEX 46290 JMP PNCB 46300 PNDOT LDA #$2E 46310 JSR OUTDO 46320 DEX 46330 JMP PNCB 46340 PNDQ PLA 46341 LDX NEGREG 46342 BEQ NOGREG 46343 STA $4101 46344 STA $4102 46345 LDA #$1D 46346 STA $4100 46347 JSR SUBTRACT 46350 NOGREG RTS 46360 POSITION JSR HIRESOFF 46370 LDA #<POSTEXT 46380 STA $FB 46390 LDA #>POSTEXT 46400 STA $FC 46410 JSR PSTRING 46420 LDA #$07 46430 STA $D3 46440 LDA #$03 46450 STA $D6 46460 JSR PLOTRROM 46470 LDA #$01 46480 JSR PNO 46490 LDA #$07 46500 STA $D3 46510 LDA #$04 46520 STA $D6 46530 JSR PLOTRROM 46540 LDA #$1E 46550 JSR PNO 46560 LDA #$07 46570 STA $D3 46580 LDA #$05 46590 STA $D6 46600 JSR PLOTRROM 46610 LDA #$03 46620 JSR PNO 46630 LDA #$07 46640 STA $D3 46645 LDA #$06 46650 STA $D6 46660 JSR PLOTRROM 46670 LDA #$1F 46680 JSR PNO 46690 LDX #$01 46700 LDY #$00 46705 JSR POSONOFF 46710 POSLOP TXA 46720 PHA 46730 POSLOPB JSR GETAUTO 46740 CMP #$2B 46750 BEQ POSIPOS 46760 CMP #$2D 46770 BEQ POSINEG 46780 CMP #$82 46790 BEQ XPOSMOVE 46800 CMP #$83 46810 BEQ YPOSMOVE 46820 CMP #$80 46830 BEQ POSCALCT 46840 CMP #$30 46850 BCC POSLOPB 46860 CMP #$3A 46870 BCS POSLOPB 46875 STA $23 46880 PLA 46885 PHA 46890 TAX 46900 JSR GETMEMAD 46910 STX $22 46920 TAX 46930 LDA $23 46940 EOR #$80 46950 STA $047F,X 46960 JMP POSRIGHT 46970 POSCALCT JMP POSCALC 47000 POSIPOS LDX #$00 47010 JSR GETMEMAD 47020 TAX 47030 LDA #$2B 47040 STA $047F,X 47050 JMP POSLOPB 47060 POSINEG LDX #$00 47070 JSR GETMEMAD 47080 TAX 47090 LDA #$2D 47100 STA $047F,X 47110 JMP POSLOPB 47120 XPOSMOVE LDA $028D 47130 AND #$01 47140 BEQ POSRIGHT 47150 PLA 47160 TAX 47165 CPX #$01 47170 BEQ POSLOP 47180 LMISS JSR POSONOFF 47190 DEX 47200 JSR POSONOFF 47202 CPX #$02 47204 BEQ LMISS 47210 JMP POSLOP 47220 POSRIGHT PLA 47230 TAX 47240 CPX #$0E 47250 BEQ POSLOP 47260 RMISS JSR POSONOFF 47270 INX 47280 JSR POSONOFF 47282 CPX #$02 47284 BEQ RMISS 47290 JMP POSLOP 47300 YPOSMOVE PLA 47302 TAX 47304 LDA $028D 47310 AND #$01 47320 BEQ POSDOWN 47330 CPY #$00 47340 BEQ POSLOPT 47350 JSR POSONOFF 47360 DEY 47370 JSR POSONOFF 47380 JMP POSLOPT 47390 POSDOWN CPY #$03 47400 BEQ POSLOPT 47410 JSR POSONOFF 47420 INY 47430 JSR POSONOFF 47440 JMP POSLOPT 47450 POSLOPT JMP POSLOP 47500 POSSURE TXT 13,13,"REPOSITION: ARE YOU SURE (Y/N)",0 48000 POSCALC PLA 48002 TAX 48004 JSR POSONOFF 48006 LDA #<POSSURE 48010 STA $FB 48020 LDA #>POSSURE 48030 STA $FC 48040 JSR PSTRING 48050 SURELOP JSR GETAUTO 48060 CMP #$19 48070 BEQ SCALEPOS 48080 CMP #$0E 48090 BEQ NOSCALE 48100 JMP SURELOP 48110 NOSCALE JMP COMEBACK 48120 SCALEPOS LDA #$80 48130 STA $FB 48140 LDA #$04 48150 STA $FC 48160 LDA #$01 48170 JSR SCALEVAR 48180 LDA #$A8 48190 STA $FB 48193 LDA #$04 48196 STA $FC 48200 LDA #$1E 48210 JSR SCALEVAR 48220 LDA #$D0 48230 STA $FB 48233 LDA #$04 48236 STA $FC 48240 LDA #$03 48250 JSR SCALEVAR 48260 LDA #$F8 48270 STA $FB 48273 LDA #$04 48276 STA $FC 48280 LDA #$1F 48290 JSR SCALEVAR 48300 JSR HIRESON 48310 JMP CALCSTEP 48500 SCALEVAR STA $23 48505 ASL A 48510 ASL A 48520 ASL A 48530 STA $FD 48540 LDA #$40 48550 STA $FE 48560 LDA #$00 48570 TAX 48580 TAY 48590 STA ($FD),Y 48600 INY 48610 TYA 48620 PHA 48630 TXA 48640 TAY 48650 LDA ($FB),Y 48660 STA $22 48670 TYA 48680 TAX 48690 PLA 48700 TAY 48710 LDA $22 48720 SEC 48730 SBC #$30 48740 STA ($FD),Y 48750 INY 48760 INX 48770 INX 48780 SCALEVLOP TYA 48790 PHA 48800 TXA 48810 TAY 48820 LDA ($FB),Y 48830 SEC 48840 SBC #$30 48850 ASL A 48860 ASL A 48870 ASL A 48880 ASL A 48890 INY 48900 CLC 48910 ADC ($FB),Y 48920 SEC 48930 SBC #$30 48940 INY 48950 STA $22 48960 TYA 48970 TAX 48980 PLA 48990 TAY 49000 LDA $22 49010 STA ($FD),Y 49020 INY 49030 CPY #$08 49040 BNE SCALEVLOP 49050 DEC $FB 49060 LDY #$00 49070 LDA ($FB),Y 49080 CMP #$2D 49090 BEQ MAKENEG 49100 RTS 49110 MAKENEG LDA $23 49120 STA $4101 49130 STA $4102 49140 LDA #$1D 49150 STA $4100 49160 JMP SUBTRACT 49500 GETMEMAD TYA 49520 ASL A 49530 ASL A 49540 ASL A 49550 STA $22 49560 ASL A 49570 ASL A 49580 CLC 49590 ADC $22 49600 STX $22 49610 ADC $22 49620 CMP #$C8 49630 BCC GMMQUIT 49640 CLC 49650 ADC #$28 49660 GMMQUIT RTS 49700 POSONOFF JSR GETMEMAD 49710 STA $22 49720 TXA 49730 PHA 49740 LDX $22 49750 LDA $047F,X 49760 EOR #$80 49770 STA $047F,X 49780 PLA 49790 TAX 49800 RTS 50010 PLOTPC LDA #$47 50020 STA $FB 50030 LDA #$3F 50040 STA $FC 50050 LDA YPIXEL 50060 LSR A 50070 LSR A 50080 LSR A 50090 STA YPIB 50100 AND #$03 50110 ASL A 50120 ASL A 50130 ASL A 50140 ASL A 50150 ASL A 50160 ASL A 50170 STA $02 50180 LDA $FB 50190 SEC 50200 SBC $02 50210 STA $FB 50220 LDA $FC 50230 SBC #$00 50235 SBC YPIB 50240 PHA 50250 LDA YPIB 50260 LSR A 50270 LSR A 50280 STA $02 50290 PLA 50300 SEC 50310 SBC $02 50320 STA $FC 50330 LDA YPIXEL 50340 AND #$07 50350 STA YPIB 50360 LDA $FB 50370 SEC 50380 SBC YPIB 50390 PHA 50400 LDA XPIXEL 50410 AND #$F8 50420 STA YPIB 50430 PLA 50440 CLC 50450 ADC YPIB 50460 STA $FB 50470 LDA $FC 50480 SBC #$00 50490 STA $FC 50500 LDA XPIXEL 50510 AND #$07 50520 TAX 50530 LDA #$80 50540 GBITLP CPX #$00 50550 BEQ PPCONT 50560 LSR A 50570 DEX 50580 JMP GBITLP 50590 PPCONT STA $FD 50600 RTS 50610 PLOTON JSR PLOTPC 50620 LDY #$00 50630 LDA ($FB),Y 50640 ORA $FD 50650 STA ($FB),Y 50660 RTS 50670 PLOTOFF JSR PLOTPC 50680 LDA $FD 50690 EOR #$FF 50700 STA $FD 50710 LDY #$00 50720 LDA ($FB),Y 50730 AND $FD 50740 STA ($FB),Y 50750 RTS 50760 PLOT LDA COLOUR 50770 AND #$02 50780 BNE PPAON 50790 JSR PLOTOFF 50800 JMP PPACNT 50810 PPAON JSR PLOTON 50820 PPACNT INC XPIXEL 50830 LDA COLOUR 50840 AND #$01 50850 BNE PPBON 50860 JSR PLOTOFF 50870 JMP PPBCNT 50880 PPBON JSR PLOTON 50890 PPBCNT INC XPIXEL 50900 RTS 55010 NOZOOM JMP CONTROLOP 55020 ZOOMIN LDA $D015 55030 AND #$F0 55040 CMP #$F0 55050 BNE NOZOOM 55060 LDA #$1E 55070 STA $4100 55080 LDA #$01 55090 STA $4101 55100 LDA #$10 55110 STA $4102 55120 JSR SUBTRACT 55130 LDA #$01 55140 STA $4100 55150 INC $4102 55160 JSR EQUAL 55170 LDA #$10 55180 STA $4100 55190 LDA #$1B 55200 STA $4101 55210 LDA #$12 55220 STA $4102 55230 JSR MULTIPLY 55240 LDA #$11 55250 STA $4100 55260 STA $4102 55270 LDA #$12 55280 STA $4101 55290 LDA $D008 55300 SEC 55310 SBC #$58 55320 CALCINLOPA CMP #$00 55330 BEQ CALCENDIA 55340 PHA 55350 JSR ADDITION 55360 PLA 55370 TAX 55380 DEX 55390 TXA 55400 JMP CALCINLOPA 55410 CALCENDIA LDA #$01 55420 STA $4100 55430 LDA #$13 55440 STA $4102 55450 JSR EQUAL 55460 LDA #$13 55470 STA $4100 55480 STA $4102 55490 LDA #$12 55500 STA $4101 55510 LDA $D00A 55520 SEC 55530 SBC #$40 55540 CALCINLOPB CMP #$00 55550 BEQ CALCENDIB 55560 PHA 55570 JSR ADDITION 55580 PLA 55590 TAX 55600 DEX 55610 TXA 55620 JMP CALCINLOPB 55630 CALCENDIB LDA #$11 55640 STA $4100 55650 LDA #$01 55660 STA $4102 55670 JSR EQUAL 55680 LDA #$13 55690 STA $4100 55700 LDA #$1E 55710 STA $4102 55720 JSR EQUAL 55730 LDA #$1F 55740 STA $4100 55750 LDA #$03 55760 STA $4101 55770 LDA #$10 55780 STA $4102 55790 JSR SUBTRACT 55800 LDA #$03 55810 STA $4100 55820 INC $4102 55830 JSR EQUAL 55840 LDA #$10 55850 STA $4100 55860 LDA #$12 55870 STA $4102 55880 LDA #$1A 55890 STA $4101 55900 JSR MULTIPLY 55910 LDA #$11 55920 STA $4100 55930 STA $4102 55940 LDA #$12 55950 STA $4101 55960 LDA #$E5 55970 SEC 55980 SBC $D00D 55990 CALCINYA CMP #$00 56000 BEQ CALCENDIC 56010 PHA 56020 JSR ADDITION 56030 PLA 56040 TAX 56050 DEX 56060 TXA 56070 JMP CALCINYA 56080 CALCENDIC LDA #$03 56090 STA $4100 56100 LDA #$13 56110 STA $4102 56120 JSR EQUAL 56130 LDA #$13 56140 STA $4100 56150 STA $4102 56160 LDA #$12 56170 STA $4101 56180 LDA #$FA 56190 SEC 56200 SBC $D009 56210 CALCINYB CMP #$00 56220 BEQ CALCENDID 56230 PHA 56240 JSR ADDITION 56250 PLA 56260 TAX 56270 DEX 56280 TXA 56290 JMP CALCINYB 56300 CALCENDID LDA #$11 56310 STA $4100 56320 LDA #$03 56330 STA $4102 56340 JSR EQUAL 56350 LDA #$13 56360 STA $4100 56370 LDA #$1F 56380 STA $4102 56390 JSR EQUAL 56400 CALCSTEP LDA #$1E 56410 STA $4100 56420 LDA #$01 56430 STA $4101 56440 LDA #$10 56450 STA $4102 56460 JSR SUBTRACT 56470 LDA #$10 56480 STA $4100 56490 LDA #$17 56500 STA $4101 56510 LDA #$02 56520 STA $4102 56530 JSR MULTIPLY 56540 LDA #$1F 56550 STA $4100 56560 LDA #$03 56570 STA $4101 56580 LDA #$10 56590 STA $4102 56600 JSR SUBTRACT 56610 LDA #$10 56620 STA $4100 56630 LDA #$1A 56640 STA $4101 56650 LDA #$04 56660 STA $4102 56670 JSR MULTIPLY 56680 JSR MANDLE 56690 JMP CONTROLOP 57010 *=$0820 57020 MANDLE LDA FRACPUDEF 57030 BNE JULP 57040 JMP MANDEL 57050 JULP CMP #$02 57060 BEQ NJUL 57070 JMP JULIA 57080 NJUL PLA 57090 PLA 57100 RTS 57110 NOSW JMP CONTROLOP 57130 SWITCH LDA $D015 57140 AND #$F0 57150 CMP #$F0 57160 BNE NOSW 57170 LDA FRACPUDEF 57180 EOR #$01 57190 STA FRACPUDEF 57200 BNE JULIASW 57210 LDA #$20 57220 STA $FC 57230 LDA #$60 57240 STA $FE 57250 LDY #$00 57260 STY $FB 57270 STY $FD 57280 SWILOP LDA ($FD),Y 57290 STA ($FB),Y 57300 INY 57310 BNE SWILOP 57320 INC $FC 57330 INC $FE 57340 LDA $FC 57350 CMP #$41 57360 BNE SWILOP 57370 JMP CONTROLOP 57380 JULIASW LDA #$20 57390 STA $FC 57400 LDA #$60 57410 STA $FE 57420 LDY #$00 57430 STY $FB 57440 STY $FD 57450 JSWLOP LDA ($FB),Y 57460 STA ($FD),Y 57470 INY 57480 BNE JSWLOP 57490 INC $FC 57500 INC $FE 57510 LDA $FC 57520 CMP #$41 57530 BNE JSWLOP 57540 INC FRACPUDEF 57550 JSR ZOOMIN 57560 DEC FRACPUDEF 57570 LDA #$01 57580 STA $4100 57590 LDA #$09 57600 STA $4102 57610 JSR EQUAL 57620 LDA #$03 57630 STA $4100 57640 INC $4102 57650 JSR EQUAL 57660 LDA #$1C 57670 STA $4100 57680 LDA #$1E 57690 STA $4102 57700 JSR EQUAL 57710 INC $4102 57720 JSR EQUAL 57730 LDA #$0B 57740 STA $4100 57750 LDA #$01 57760 STA $4102 57770 JSR EQUAL 57780 LDA #$03 57790 STA $4102 57800 JSR EQUAL 57810 JMP CALCSTEP 60010 BOX LDA XP 60020 STA XPIB 60030 LDA YP 60040 STA YPIB 60050 LDA XPB 60060 STA XPBIB 60070 LDX #$3C 60080 STX $07FC 60090 INX 60100 STX $07FD 60110 INX 60120 STX $07FE 60130 INX 60140 STX $07FF 60150 LDA $D015 60160 ORA #$F0 60170 STA $D015 60180 BOXWAIT LDA CLICK 60190 BNE BOXWAIT 60280 BOXLOOP LDA XPBIB 60290 CMP XPB 60300 BEQ CHECKFINE 60310 BCS LESSTHAN 60320 JMP MORETHAN 60330 CHECKFINE LDA XPIB 60340 CMP XP 60350 BCS LESSTHAN 60360 MORETHAN LDA XPIB 60370 STA $D008 60380 STA $D00C 60390 LDX #$00 60400 LDA XPBIB 60410 BEQ NOXPBADD 60420 LDX #$50 60430 NOXPBADD LDA $D010 60440 AND #$AF 60450 STX $02 60460 CLC 60470 ADC $02 60480 STA $D010 60485 LDX #$00 60490 LDA XP 60500 SEC 60510 SBC #$18 60520 STA $D00A 60530 STA $D00E 60540 BCC MTSUB 60550 LDX XPB 60560 BEQ MTSUB 60570 LDX #$A0 60580 MTSUB LDA $D010 60590 AND #$5F 60600 STX $02 60610 CLC 60620 ADC $02 60630 STA $D010 60640 JMP BOXCONT 60650 LESSTHAN LDA XP 60660 LDX XPB 60670 BNE NOTOUT 60680 CMP #$58 60690 BCS NOTOUT 60700 LDA #$58 60710 NOTOUT STA $D008 60720 STA $D00C 60730 CPX #$00 60740 BEQ LTNOADD 60750 LDX #$50 60760 LTNOADD LDA $D010 60770 AND #$AF 60780 STX $02 60790 CLC 60800 ADC $02 60810 STA $D010 60815 LDX #$00 60820 LDA XPIB 60830 SEC 60840 SBC #$18 60850 STA $D00A 60860 STA $D00E 60870 BCC LTSUB 60880 LDX XPBIB 60890 BEQ LTSUB 60900 LDX #$A0 60910 LTSUB LDA $D010 60920 AND #$5F 60930 STX $02 60940 CLC 60950 ADC $02 60960 STA $D010 60970 BOXCONT LDA YP 60980 CMP YPIB 60990 BCC LESSY 61000 LDA YPIB 61010 STA $D009 61020 STA $D00B 61030 LDA YP 61040 SEC 61050 SBC #$15 61060 STA $D00D 61070 STA $D00F 61080 JMP BOXCONTII 61090 LESSY LDA YP 61100 STA $D009 61110 STA $D00B 61120 LDA YPIB 61130 SEC 61140 SBC #$15 61150 STA $D00D 61160 STA $D00F 61170 BOXCONTII LDA CLICK 61180 BNE BOXEND 61190 JMP BOXLOOP 61200 BOXEND JMP CONTROLOP 62000 BOXFLASH LDA $A2 62010 AND #$3C 62020 LSR A 62030 LSR A 62040 TAX 62050 LDA BOXCOLS,X 62060 STA $D02B 62070 STA $D02C 62080 STA $D02D 62090 STA $D02E 62100 JMP $EA31 62110 BOXCOLS TXT 0,9,2,8,10,7,13,1 62120 TXT 1,13,3,5,14,4,6,0 62510 JULIA SEI 62520 LDA #$01 62530 STA HOUR 62540 JSR LEFT 62550 LDA #$00 62560 STA YPIXEL 62570 LDA #$03 62580 STA $4100 62590 LDA #$06 62600 STA $4102 62610 JSR EQUAL 62620 JMMAINL LDA #$00 62630 STA XPIXEL 62640 LDA #$01 62650 STA $4100 62660 LDA #$05 62670 STA $4102 62680 JSR EQUAL 62690 JMMAINLB LDA #$05 62700 STA $4100 62710 LDA #$07 62720 STA $4102 62730 JSR EQUAL 62740 INC $4100 62750 INC $4102 62760 JSR EQUAL 62770 LDA #$00 62780 STA COLOUR 62790 JLOOP LDA #$07 62800 STA $4100 62810 STA $4101 62820 LDA #$10 62830 STA $4102 62840 JSR MULTIPLY 62850 LDA #$08 62860 STA $4100 62870 STA $4101 62880 LDA #$11 62890 STA $4102 62900 JSR MULTIPLY 62910 LDX #$10 62920 STX $4100 62930 INX 62940 STX $4101 62950 INX 62960 STX $4102 62970 JSR ADDITION 62980 LDA $4091 62990 CMP #$04 63000 BCC JFAIL 63010 CMP #$50 63020 BCS JFAIL 63030 JSUCPASS JMP JSUCCESS 63040 JFAIL INC COLOUR 63050 LDA COLOUR 63060 CMP MAXCOL 63070 BEQ JSUCPASS 63080 JSR SUBTRACT 63090 LDA #$12 63100 STA $4100 63110 LDA #$09 63120 STA $4101 63130 LDA #$13 63140 STA $4102 63150 JSR ADDITION 63160 LDA #$07 63170 STA $4100 63180 LDA #$08 63190 STA $4101 63200 INC $4102 63210 JSR MULTIPLY 63220 LDA #$14 63230 STA $4100 63250 STA $4101 63260 LDA #$15 63270 STA $4102 63280 JSR ADDITION 63290 LDA #$15 63300 STA $4100 63310 LDA #$0A 63320 STA $4101 63330 LDA #$16 63340 STA $4102 63350 JSR ADDITION 63360 LDA #$13 63370 STA $4100 63380 LDA #$07 63390 STA $4102 63400 JSR EQUAL 63410 LDA #$16 63420 STA $4100 63430 LDA #$08 63440 STA $4102 63450 JSR EQUAL 63460 JMP JLOOP 63470 JSUCCESS JSR PLOT 63480 LDA #$05 63490 STA $4100 63500 STA $4102 63510 LDA #$02 63520 STA $4101 63530 JSR ADDITION 63540 LDA XPIXEL 63550 BNE JXRELOP 63560 LDA #$06 63570 STA $4100 63580 STA $4102 63590 LDA #$04 63600 STA $4101 63610 JSR ADDITION 63620 INC YPIXEL 63630 LDA YPIXEL 63640 CMP #$C8 63650 BNE JYRELOP 63660 LDA #$00 63670 STA HOUR 63680 JSR RIGHT 63690 CLI 63700 RTS 63710 JXRELOP JMP JMMAINLB 63720 JYRELOP JMP JMMAINL
d ��$1000 n XPIXEL�$4103 /x YPIXEL�$4104 @� COLOUR�$4105 O� YPIB�$4106 `� MAXCOL�$4107 m� XP�$4108 z� YP�$4109 �� XPB�$410A �� CLICK�$410B �� HOUR�$410C �� XPIB�$410D �� XPBIB�$410E �� COL0�$410F �� COL1�$4110 �� COL2�$4111 � COL3�$4112 � COL0S�$4113 " � COL1S�$4114 2 � COL2S�$4115 B � COL3S�$4116 R � �TIME�$4117 b � SPEED�$4118 s � NEGREG�$4119 � � FRACݲ$411A � "OUTDO �$AB47 � #�LFS�$FFBA � $�NAM�$FFBD � %�ROM�$FFD8 � &PLOTRROM�$E56C � 'JSR INIT � $'COMEBACK JSR HIRES�
.'�ROLOP LDA CLICK
8'BNE �ROLOP 1
B'�LOPB LDA CLICK ?
L'BEQ �LOPB K
V'LDA XPB W
`'BNE BOT b
j'LDA XP o
m'CMP #$58 z
p'BCC �� �
t'BOT JMP BOX �
~'�� LDA YP �
�'CMP #$5A �
�'BCC �ROLOP �
�'SEC �
�'SBC #$5A �
�'LSR A �
�'LSR A �
�'� #$FE �
�'TAX �'LDA VEC�RS,X
�'STA $FB �'INX & �'LDA VEC�RS,X 2 �'STA $FC B �'JMP ($00FB) � (VEC�RS TXT �SWITCH,�SWITCH,��ROLOP,��ROLOP,�ZOOMIN,�ZOOMIN �
(TXT ��ROLOP,��ROLOP,��ITI�,��ITI�,��ROLOP,��ROLOP � (TXT ��ROLOP,��ROLOP,�COLS,�COLS,��ROLOP,��ROLOP ' (TXT �COLCYCLE,�COLCYCLE,��ROLOP,��ROLOP,�M�PLOT,�M�PLOT [ ((TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,�EXIT,�EXIT � 2(TXT ��ROLOP,��ROLOP,��,��,��ROLOP,��ROLOP,��,�� � <(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP � )EXIT JSR HIRESOFF � )LDA #$93 � )JSR OUTDO � ")LDA #$05
,)JSR OUTDO
6)LDA #$00
@)STA $C6 $
J)RTS 5
�.IRQ LDA #$00 C
/STA CLICK O
/LDA $C5 \
/CMP #$01 l
&/BNE C�CHECK z
0/STA CLICK �
:/C�CHECK CMP #$0C �
D/BEQ LEFTK �
N/LKC CMP #$17 �
X/BEQ RIGHTK �
b/RKC CMP #$32 �
l/BEQ UPK �
v/UPKC CMP #$37 �
�/BEQ DOWNK �/DKC LDA $DC00 �/� #$01 #�/BEQ UPJ 5�/UJC LDA $DC00 @�/� #$02 N�/BEQ DOWNJ `�/DJC LDA $DC00 k�/� #$04 y�/BEQ LEFTJ ��/LJC LDA $DC00 ��/� #$08 �0BEQ RIGHTJ � 0RJC LDA $DC00 �0� #$10 � 0E� #$10 �*0BEQ CJCH �40STA CLICK �>0CJCH JMP BOXFLASH H0LEFTK JSR LEFT R0JMP LKC 3\0RIGHTK JSR RIGHT ?f0JMP RKC Np0UPK JSR UP [z0JMP UPKC n�0DOWNK JSR DOWN z�0JMP DKC ��0UPJ JSR UP ��0JMP UJC ��0DOWNJ JSR DOWN ��0JMP DJC ��0LEFTJ JSR LEFT ��0JMP LJC ��0RIGHTJ JSR RIGHT ��0JMP RJC �0LEFT DEC XP �0LDA XP �0CMP #$FF (1BNE �FF 51LDY #$00 A1STY XPB Q$1�FF LDY XPB ].1BNE FIN j81CMP #$18 vB1BNE FIN �L1INC XP �V1FIN JMP �ROL �`1RIGHT INC XP �j1LDA XP �t1BNE �00 �~1LDY #$01 ��1STY XPB ��1�00 LDY XPB ��1BEQ FIN ��1CMP #$58 �1BNE FIN �1DEC XP �1JMP �ROL .�1UP DEC YP 9�1LDA YP F�1CMP #$32 R�1BNE FIN ]�1INC YP j 2JMP �ROL z
2DOWN INC YP �2LDA YP � 2CMP #$F8 �(2BNE FIN �22DEC YP �<2JMP �ROL �P2�ROL LDA HOUR �Z2BEQ NHGLASS ��3LDX #$3A ��3STX $07F8 ��3INX �3STX $07F9 �3NHGLASS LDA XP *�3STA $D000 8�3STA $D002 C�3LDA YP Q�3STA $D001 _�3STA $D003 m�3LDA $D010 x4� #$FC �4LSR A � 4CLC �&4ADC XPB �04ASL A �:4CLC �D4ADC XPB �N4STA $D010 �X4LDA #$00 �b4STA $D027 �l4LDA #$01 �v4STA $D028 �4LDA $D015 �4�A #$03 �4STA $D015 -�4LDA HOUR :�4BNE QTRO G�4LDX #$38 U�4STX $07F8 ]�4INX k�4STX $07F9 x�4QTRO RTS ��4INIT LDA #$00 ��4STA $D020 �5STA $D021 � 5STA XP �5STA HOUR � 5STA $D015 �*5LDA #$01 �45STA XPB �>5LDA #$80 �H5STA YP R5HIRES� LDA #$3B \5STA $D011 ,f5LDA #$D8 :p5STA $D016 Hz5LDA COL0S U�5STA COL0 c�5LDA COL1S p�5STA COL1 ~�5LDA COL2S ��5STA COL2 ��5LDA COL3S ��5STA COL3 ��5JSR �COLS �6JSR LEFT �6SEI �6LDA #�IRQ �$6STA $0314 �.6LDA #�IRQ 86STA $0315 B6CLI �6LDA #$18 $�6STA $D018 ,4:RTS =R:HIRESOFF SEI J\:LDA #$31 Xf:STA $0314 ep:LDA #$EA sz:STA $0315 {�:CLI ��:LDA #$00 ��:STA $D015 ��:STA $D021 ��:LDA #$9B ��:STA $D011 ��:LDA #$C8 ��:STA $D016 ��:LDA #$15 ��:STA $D018 ��:RTS N� JSR HIRESOFF *NLDA #$1C +4NJSR OUTDO 8>NLDA #$93 FHNJSR OUTDO SRNLDA #$00 a\N�LOOP PHA kfNASL A upNASL A }zNCLC ��NADC #$42 ��NSTA $FC ��NLDY #$00 ��NSTY $FB ��NSTY $FD ��NLDA #$04 ��NSTA $FE ��N�LOOPB LDA ($FB),Y ��NSTA ($FD),Y �NINY �NBNE �LOOPB �NINC $FC *�NINC $FE 6OLDA $FE COCMP #$08 ROBNE �LOOPB a$O�� LDA $C5 n.OCMP #$40 y8OBNE �� �BO��B LDA $C5 �LOCMP #$40 �VOBEQ ��B �`OTAX �jOPLA �tOCPX #$01 �~OBEQ HNOM�E ��OCPX #$28 ��OBEQ � ��OCPX #$2B ��OBEQ PREV �O�RET PHA �OJMP ��B 0�OHNOM�E JMP COMEBACK ?�O� CMP #$05 L�OBEQ �RET T�OCLC a�OADC #$01 o�OJMP �LOOP � PPREV CMP #$00 �
PBEQ �RET �PSEC � PSBC #$01 �(PJMP �LOOP ��a�AME TXT 147,5 ��aTXT "FILENAME:",0 �a�RD TXT 13,13,"(T)APE OR (D)ISK",0 /�a�T TXT 13,13,"POSITION TAPE <SPACE>",13,0 ]�aINSD TXT 13,13,"INSERT DISK <SPACE>",13,0 r�aPSTRING LDY #$00 ��aPSTRLOP LDA ($FB),Y ��aBEQ PSTRQUIT �bJSR OUTDO �bINY � bJMP PSTRLOP �bPSTRQUIT RTS � b�OFF LDA $040A,Y �*bE� #$80 4bSTA $040A,Y >bRTS Hb�� LDA $C5 'RbCMP #$40 2\bBNE �� Bfb��B LDA $C5 OpbCMP #$40 [zbBEQ ��B c�bTAX p�bLDA ��,X {�bBEQ �� ��bRTS ��b� JSR HIRESOFF ��bLDX #$00 ��bLDA #$20 ��b�AME� STA $41F0,X ��bINX ��bCPX #$10 ��bBNE �AME� ��bLDA #��AME �bSTA $FB cLDA #��AME cSTA $FC /cJSR PSTRING <$cLDA #$00 D.cPHA R8c�LOOP TAY _=cJSR �OFF jBcJSR �� rGcPHA LcJSR �OFF �QcPLA �VcCMP #$80 �`cBCS DECODE �jcTAY �tcPLA �~cTAX ��cTYA ��cSTA $040A,X ��cCMP #$20 ��cBCS NOSPC ��cCLC �cADC #$40 �cNOSPC STA $41F0,X + �cINC� CPX #$0F : �cBEQ �RELOP B �cINX Q �c�RELOP TXA Y �cPHA g �cJMP �LOOP { dDECODE CMP #$80 �
dBEQ � � dCMP #$81 � dBEQ � � (dCMP #$82 � 2dBNE �LOOP � <dPLA � FdTAX � PdLDA $028D � Zd� #$01 � ddBEQ INC� ndDEC� CPX #$00 xdBEQ �RELOP �dDEX & �dJMP �RELOP 0 �d� PLA 8 �dTAX E �dLDA #$20 U �dSTA $040A,X e �dSTA $41F0,X r �dJMP DEC� } �d� PLA � �dLDA #��RD � �dSTA $FB � �dLDA #��RD � �dSTA $FC � �dJSR PSTRING � e� JSR �� � eCMP #$14 � eBEQ TAPE� � "eCMP #$04 ,eBEQ DISK� 6eJMP � ! @eTAPE� LDA #��T - JeSTA $FB : TeLDA #��T F ^eSTA $FC V heJSR PSTRING c reLDX #$01 q |eJMP TAPE� � �eDISK� LDA #�INSD � �eSTA $FB � �eLDA #�INSD � �eSTA $FC � �eJSR PSTRING � �eLDX #$08 � �eTAPE� LDA $C5 � �eCMP #$3C � �eBNE TAPE� �eLDA #$01 �eTAY �eJSR �LFS & �eLDX #$10 < f�AME� LDA $41EF,X I fCMP #$20 X fBNE �AME�T ` &fDEX o 0fBEQ �AME�T } :fJMP �AME� � Df�AME�T TXA � NfLDX #$F0 � bfLDY #$41 � lfJSR �NAM � vfLDA #$20 � �fSTA $FC � �fLDX #$00 � �fSTX $FB � �fLDY #$40 � �fLDA #$FB �fJSR �ROM �fJMP COMEBACK 4 �i�� TXT $81,$80,$82 V �iTXT 0,0,0,0,$83,51,23,1,52,26 z �iTXT 19,5,0,53,18,4,54,3,6,20,24 � �iTXT 55,25,7,56,2,8,21,22,57,9,10 � �iTXT 48,13,11,15,14,43,16,12,45,46 � �iTXT 0,0,44,0,0,0,0,0,0,30,47,49 !�iTXT 31,0,50,32,0,17,0,0 !:uM�EL SEI !<uLDA #$01 ,!=uSTA HOUR 9!>uJSR LEFT F!?uLDA #$00 U!DuSTA YPIXEL b!NuLDA #$03 p!XuSTA $4100 }!buLDA #$06 �!luSTA $4102 �!vuJSR EQUAL �!�uMMAINL LDA #$00 �!�uSTA XPIXEL �!�uLDA #$01 �!�uSTA $4100 �!�uLDA #$05 �!�uSTA $4102 "�uJSR EQUAL "�uMMAINLB LDA #$05 #"�uSTA $4100 0"�uLDA #$07 >"�uSTA $4102 L"�uJSR EQUAL Z"�uINC $4100 h"vINC $4102 v" vJSR EQUAL �"vLDA #$00 �" vSTA COLOUR �"*vLOOP LDA #$07 �"4vSTA $4100 �">vSTA $4101 �"HvLDA #$10 �"RvSTA $4102 �"\vJSR MULTIPLY �"fvLDA #$08 #pvSTA $4100 #zvSTA $4101 "#�vLDA #$11 0#�vSTA $4102 A#�vJSR MULTIPLY N#�vLDX #$10 \#�vSTX $4100 d#�vINX r#�vSTX $4101 z#�vINX �#�vSTX $4102 �#�vJSR ADDITI� �#�vLDA $4091 �#�vCMP #$04 �#�vBCC FAIL �#wCMP #$50 �#wBCS FAIL �#wSUCPASS JMP SUCCESS $$wFAIL INC COLOUR $)wLDA COLOUR $$.wCMP MAXCOL 4$8wBEQ SUCPASS E$BwJSR SUBTRACT R$LwLDA #$12 `$VwSTA $4100 m$`wLDA #$05 {$jwSTA $4101 �$twLDA #$13 �$~wSTA $4102 �$�wJSR ADDITI� �$�wLDA #$07 �$�wSTA $4100 �$�wLDA #$08 �$�wSTA $4101 �$�wINC $4102 �$�wJSR MULTIPLY %�wLDA #$14 %�wSTA $4100 $%�wSTA $4101 1%�wLDA #$15 ?% xSTA $4102 O%
xJSR ADDITI� \%xLDA #$15 j% xSTA $4100 w%(xLDA #$06 �%2xSTA $4101 �%<xLDA #$16 �%FxSTA $4102 �%PxJSR ADDITI� �%ZxLDA #$13 �%dxSTA $4100 �%nxLDA #$07 �%xxSTA $4102 �%�xJSR EQUAL &�xLDA #$16 &�xSTA $4100 &�xLDA #$08 *&�xSTA $4102 8&�xJSR EQUAL E&�xJMP LOOP Z&�xSUCCESS JSR PLOT g&�xLDA #$05 u&�xSTA $4100 �&�xSTA $4102 �&�xLDA #$02 �&�xSTA $4101 �&yJSR ADDITI� �&yLDA XPIXEL �&yBNE XRELOP �&"yLDA #$06 �&,ySTA $4100 �&6ySTA $4102 '@yLDA #$04 'JySTA $4101 'TyJSR ADDITI� /'^yINC YPIXEL >'hyLDA YPIXEL K'ryCMP #$C8 Z'|yBNE YRELOP g'~yLDA #$00 t'ySTA HOUR �'�yJSR RIGHT �'�yCLI �'�yRTS �'�yXRELOP JMP MMAINLB �'�yYRELOP JMP MMAINL �'�yM�PLOT JSR M�LE �'�yJMP �ROLOP �'�COLS LDA COL0 (̈STA $D021 (ֈLDY #$00 (�STY $FB )(�LDA #$D8 5(�STA $FC B(��LDA COL3 Y(��CLOPA STA ($FB),Y a(�INY p( �BNE �CLOPA |(&�INC $FC �(0�LDX $FC �(:�CPX #$DC �(D�BNE �CLOPA �(N�LDA #$04 �(X�STA $FC �(b�LDA COL1 �(l�ASL A �(v�ASL A �(��ASL A �(��ASL A �(���A COL2 )���CLOPB STA ($FB),Y )��INY ,)��BEQ �CLOPC 9)��CPY #$F8 H)ƉBNE �CLOPB T)ЉLDX $FC a)ډCPX #$07 p)�BNE �CLOPB x)�RTS �)���CLOPC INC $FC �)�JMP �CLOPB �) �COLC� LDA �TIME �)�CLC �) �ADC SPEED �)*�STA �TIME �)4�COLCLOP CMP $A2 �)>�BNE COLCLOP �)H�RTS *R�COLC�S LDA $C5 *\�CMP #$28 +*f�BEQ SPUP 8*p�CMP #$2B E*z�BEQ SLDN R*��CMP #$01 b*��BEQ COLCOFF n*��NO� RTS ~*��COLCOFF PLA �*��PLA �*��JMP COMEBACK �*��SPUP LDA SPEED �*ŊCMP #$03 �*ʊBEQ NO� �*ԊDEC SPEED �*ފRTS �*�SLDN LDA SPEED �*�CMP #$19 +��BEQ NO� +�INC SPEED +�RTS 0+�COLCYCLE LDA $C5 =+ �CMP #$40 N+ �BNE COLCYCLE [+ �LDA #$0A i+$�STA SPEED u+.�LDA $A2 �+8�STA �TIME �+B�COLCYCLOP LDA COL0S �+L�STA COL0 �+V�LDA COL1S �+`�STA COL1 �+j�LDA COL2S �+t�STA COL2 �+~�LDA COL3S �+��STA COL3 ,��JSR �COLS ,��JSR COLC�S $,��JSR COLC� 2,��LDA COL3S ?,��STA COL0 M,ċLDA COL0S Z,STA COL1 h,؋LDA COL1S u,�STA COL2 �,�LDA COL2S �,��STA COL3 �, �JSR �COLS �,
�JSR COLC�S �,�JSR COLC� �, �LDA COL2S �,(�STA COL0 �,2�LDA COL3S �,<�STA COL1 �,F�LDA COL0S -P�STA COL2 -Z�LDA COL1S '-d�STA COL3 5-n�JSR �COLS D-x�JSR COLC�S R-��JSR COLC� `-��LDA COL1S m-��STA COL0 {-��LDA COL2S �-��STA COL1 �-��LDA COL3S �-��STA COL2 �-ȌLDA COL0S �-ҌSTA COL3 �-܌JSR �COLS �-�JSR COLC�S �-�JSR COLC� �-��JMP COLCYCLOP .�ITER� LDA MAXCOL .�� #$F0 %.�LSR A /."�LSR A 9.,�LSR A C.6�LSR A P.@�CMP #$0A ^.J�BCC ITADD f.T�SEC s.^�SBC #$39 �.h�ITADD CLC �.r�ADC #$30 �.|�STA $0505 �.��LDA MAXCOL �.��� #$0F �.��CMP #$0A �.��BCC NOADDIT �.��SEC �.��SBC #$39 �.NOADDIT CLC /̍ADC #$30 /֍STA $0506 /�RTS C/�COLTEXT TXT 147,5,"�î�î�î�î",13 w/�TXT "� ��� ��� ��� �� <- SCREEN COLOURS",13 �/��TXT "�ý�ý�ý�ý",13 �/�TXT " 1 2 3 4",13,13,13 �/�TXT "MAXIMUM ITERATIONS: $$$",0 �/ �COLS JSR HIRESOFF �/&�LDA #�COLTEXT 00�STA $FB 0:�LDA #�COLTEXT &0D�STA $FC 60N�JSR PSTRING D0X�LDA COL0S R0b�STA $D829 `0l�LDA COL1S n0v�STA $D82C |0��LDA COL2S �0��STA $D82F �0��LDA COL3S �0��STA $D832 �0��JSR ITER� �0��COLLOOPK JSR �� �0��CMP #$80 �0ƎBEQ COLQUIT �0ЎCMP #$31 1ڎBEQ COL1ADD 1�CMP #$32 1�BEQ COL2ADD ,1��CMP #$33 <1�BEQ COL3ADD I1 �CMP #$34 Y1�BEQ COL4ADD f1 �CMP #$2B w1*�BEQ ITERPLUS �14�CMP #$2D �1>�BNE COLLOOPK �1H�DEC MAXCOL �1R�JSR ITER� �1\�JMP COLLOOPK �1f�ITERPLUS INC MAXCOL �1p�JSR ITER� �1z�JMP COLLOOPK 2��COLQUIT JMP COMEBACK )2��COL1ADD INC COL0S 72��LDA COL0S B2��� #$0F P2��STA COL0S ^2��STA $D829 o2��JMP COLLOOPK �2ʏCOL2ADD INC COL1S �2ԏLDA COL1S �2ޏ� #$0F �2�STA COL1S �2�STA $D82C �2��JMP COLLOOPK �2�COL3ADD INC COL2S �2�LDA COL2S �2�� #$0F 3$�STA COL2S 3.�STA $D82F '38�JMP COLLOOPK =3B�COL4ADD INC COL3S K3L�LDA COL3S V3V�� #$0F d3`�STA COL3S r3j�STA $D832 �3t�JMP COLLOOPK �3J��DIGIT CLD �3T�ASL A �3^�ASL A �3h�ASL A �3r�STA $02 �3|�TXA �3��LSR A �3��STA $24 �3��LDA #$07 �3��SEC �3��SBC $24 4��CLC 4ADC $02 4̜TAY '4֜LDA $4000,Y /4�TAY 74�TXA B4� #$01 P4��BEQ LSNGD X4�TYA c4�� #$F0 m4 �LSR A w4&�LSR A �40�LSR A �4:�LSR A �4D�RTS �4N�LSNGD TYA �4X�� #$0F �4b�RTS �4l�MULTIPLYB JSR NEGATIVE �4q�LDA $4102 �4v�ASL A �4��ASL A �4��ASL A 5��TAX 5��LDA #$00 5��TAY .5��MLOPA STA $4000,X 65��INY >5ƝINX K5НCPY #$08 Y5ڝBNE MLOPA f5�LDA #$06 r5�STA $FC �5���DIGIT LDA $4101 �5�LDX $FC �5 �JSR �DIGIT �5�CMP #$00 �5 �BEQ DMOVERB �5*�STA $FD �54�LDA #$06 �5>�STA $FB �5H�DMLOP LDA $4100 6R�LDX $FB 6\�JSR �DIGIT 6f�CMP #$00 /6p�BEQ DMOVER 96z�ASL A C6��ASL A M6��ASL A W6��ASL A _6��CLC k6��ADC $FD s6��TAY �6��LDA M�,Y �6ʞSTA $35 �6Ԟ� #$0F �6ޞTAY �6�LDA $FB �6�CLC �6��ADC $FC �6�SEC �6�SBC #$0C �6�TAX �6$�� #$01 �6.�BEQ MSKIP �68�TYA 7B�ASL A 7L�ASL A 7V�ASL A %7`�ASL A -7j�TAY 97t�LDA $35 D7~�� #$F0 N7��LSR A X7��LSR A b7��LSR A l7��LSR A x7��STA $35 �7��JMP M� �7��DMOVERB JMP DMOVER �7ğMSKIP LDY $35 �7ΟLDA #$00 �7؟STA $35 �7ڟM� TXA �7ܟLSR A �7ޟSTA $02 �7�LDA #$07 �7�SEC 8�SBC $02 8�STA $02 !8�LDA $4102 +8�ASL A 58�ASL A ?8�ASL A K8�ADC $02 W8�STY $25 _8�TAY g8��SED w8��LDA $4000,Y 8��CLC �8��ADC $25 �8��STA $4000,Y �8 �CLD �8�DEY �8�SED �8�LDA $4000,Y �8�ADC $35 �8
�STA $4000,Y �8 �CLD �8�MALP BCC DMOVER 9�DEY 9�SED 9�LDA $4000,Y (9�ADC #$00 89�STA $4000,Y @9�CLD M9 �JMP MALP `9Z�DMOVER INC $FB l9d�LDA $FB y9n�CMP #$0E �9x�BCC DMLOPB �9��INC $FC �9��LDA $FC �9��CMP #$0E �9��BCC �DIGITB �9��LDA YPIB �9��BEQ QUIT �9��LDA $4102 �9ȠSTA $4101 :ҠLDA #$1D :ܠSTA $4100 :�JSR SUBTRACT ,:�QUIT RTS A:��DMLOPB JMP DMLOP X:��DIGITB JMP �DIGIT k:"�MSUP LDA $4100 u:,�ASL A :6�ASL A �:@�ASL A �:J�TAX �:T�DEX �:^�STX $FB �:h�LDA $4101 �:r�ASL A �:|�ASL A �:��ASL A �:��TAX �:��DEX �:��STX $FD �:��LDA $4102 ;��ASL A ;¡ASL A ;̡ASL A !;֡TAX );�DEX 5;�STX $22 B;�LDA #$40 N;��STA $FC Z;�STA $FE f;�STA $23 n; �RTS �;&�EQUAL JSR MSUP �;0�LDY #$08 �;:�ELOP LDA ($FB),Y �;D�STA ($22),Y �;N�DEY �;X�BNE ELOP �;b�RTS �;l�ADDITI� JSR MSUP �;v�LDY #$08 �;��SED <��CLC <��ADLOP LDA ($FB),Y (<��ADC ($FD),Y 8<��STA ($22),Y @<��DEY N<��BNE ADLOP V<ƢCLD ^<ТRTS t<ڢSUBTRACT JSR MSUP �<�LDY #$08 �<�SED �<��SEC �<�SULOP LDA ($FB),Y �< �SBC ($FD),Y �<�STA ($22),Y �< �DEY �<*�BNE SULOP �<4�CLD �<>�RTS =H�NEGATIVE LDA #$00 =R�PHA =\�LDA $4100 !=f�TAY +=p�ASL A 5=z�ASL A ?=��ASL A G=��TAX W=��LDA $4001,X d=��CMP #$50 w=��BCC NEGRMOVEAB =��PLA �=��ADC #$00 �=��PHA �=ʣJMP NEGRMOVEA �=ԣNEGRMOVEAB LDA $4101 �=ޣTAY �=�ASL A �=�ASL A �=��ASL A �=�TAX �=�LDA $4001,X
>�CMP #$50 >$�PLA >.�BCC NOE� +>8�E� #$01 3>B�PHA E>L�BCS NEGRMOVEB X>V�NEGRMOVEBB PLA j>`�NOE� STA YPIB r>j�RTS �>t�NEGRMOVE LDA $4100 �>~�PHA �>��LDA $4101 �>��PHA �>��LDA $4102 �>��PHA �>��TYA �>��STA $4101 �>ĤSTA $4102 �>ΤLDA #$1D �>ؤSTA $4100
?�JSR SUBTRACT ?�PLA #?��STA $4102 +? �PLA 9?
�STA $4101 A?�PLA O? �STA $4100 W?(�RTS r?2�NEGRMOVEA JSR NEGRMOVE �?<�JMP NEGRMOVEAB �?F�NEGRMOVEB JSR NEGRMOVE �?P�JMP NEGRMOVEBB �?Z�MULTIPLY LDA $4102 �?d�PHA �?n�LDA $4101 �?x�PHA �?��LDA #$18 @��STA $4102 @��JSR EQUAL @��INC $4102 '@��PLA 5@��STA $4100 C@��JSR EQUAL P@ȥLDA #$18 ^@ҥSTA $4100 k@ܥLDA #$19 y@�STA $4101 �@�PLA �@��STA $4102 �@�JMP MULTIPLYB �@̯M� TXT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 �@ίTXT 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0 &AЯTXT 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0 ZAүTXT 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0 �AԯTXT 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0 �A֯TXT 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0 BدTXT 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0 8BگTXT 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0 pBܯTXT 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0 �BޯTXT 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0 �B���TEXT TXT 147,5," P O S I T I O N",13,13,13,"XMIN:",13 CijTXT "XMAX:",13,"YMIN:",13,"YMAX:",0 "CγPNO PHA ,CسASL A 6C�ASL A @C�ASL A HC��TAX XC �LDA $4001,X eC
�CMP #$50 tC�BCS PNOVER �C �LDA #$2B �C(�JSR OUTDO �C*�LDA #$00 �C,�STA NEGREG �C2�JMP PN� �C<�PNOVER LDA #$2D �CF�JSR OUTDO �CG�LDA #$01 �CH�STA NEGREG �CI�PLA DJ�PHA DK�STA $4101 !DL�STA $4102 .DM�LDA #$1D <DN�STA $4100 MDO�JSR SUBTRACT ^DP�PN� LDX #$0C oDZ�PNCB STX $22 wDd�PLA Dn�PHA �Dx�JSR �DIGIT �D��CLC �D��ADC #$30 �D��JSR OUTDO �D��LDX $22 �D��BEQ PNDQ �D��CPX #$0C �D��BEQ PNDOT �DȴDEX �DҴJMP PNCB
EܴPNDOT LDA #$2E E�JSR OUTDO #E�DEX 0E��JMP PNCB =E�PNDQ PLA LE�LDX NEGREG [E�BEQ NOGREG iE�STA $4101 wE�STA $4102 �E �LDA #$1D �E
�STA $4100 �E �JSR SUBTRACT �E�NOGREG RTS �E��ITI� JSR HIRESOFF �E"�LDA #��TEXT �E,�STA $FB �E6�LDA #��TEXT F@�STA $FC FJ�JSR PSTRING FT�LDA #$07 *F^�STA $D3 7Fh�LDA #$03 CFr�STA $D6 TF|�JSR PLOTRROM aF��LDA #$01 mF��JSR PNO zF��LDA #$07 �F��STA $D3 �F��LDA #$04 �F��STA $D6 �FµJSR PLOTRROM �F̵LDA #$1E �FֵJSR PNO �F�LDA #$07 �F�STA $D3 �F�LDA #$05 �F��STA $D6 G�JSR PLOTRROM G�LDA #$03 %G �JSR PNO 2G&�LDA #$07 >G0�STA $D3 KG5�LDA #$06 WG:�STA $D6 hGD�JSR PLOTRROM uGN�LDA #$1F �GX�JSR PNO �Gb�LDX #$01 �Gl�LDY #$00 �Gq�JSR ��OFF �Gv��LOP TXA �G��PHA �G���LOPB JSR �� �G��CMP #$2B �G��BEQ �I� �G��CMP #$2D H��BEQ �INEG H��CMP #$82 HƶBEQ X�MOVE ,HжCMP #$83 ;HڶBEQ Y�MOVE HH�CMP #$80 WH�BEQ �CALCT dH��CMP #$30 rH�BCC �LOPB H �CMP #$3A �H�BCS �LOPB �H�STA $23 �H �PLA �H%�PHA �H*�TAX �H4�JSR �MEMAD �H>�STX $22 �HH�TAX �HR�LDA $23 �H\�E� #$80 �Hf�STA $047F,X Ip�JMP �RIGHT Iz��CALCT JMP �CALC 1I���I� LDX #$00 @I��JSR �MEMAD HI��TAX UI��LDA #$2B eI��STA $047F,X sIʷJMP �LOPB �IԷ�INEG LDX #$00 �IJSR �MEMAD �I�TAX �I�LDA #$2D �I��STA $047F,X �I�JMP �LOPB �I�X�MOVE LDA $028D �I�� #$01 �I$�BEQ �RIGHT �I.�PLA J8�TAX J=�CPX #$01 !JB�BEQ �LOP 5JL�LMISS JSR ��OFF =JV�DEX KJ`�JSR ��OFF XJb�CPX #$02 fJd�BEQ LMISS sJj�JMP �LOP �Jt��RIGHT PLA �J~�TAX �J��CPX #$0E �J��BEQ �LOP �J��RMISS JSR ��OFF �J��INX �J��JSR ��OFF �J��CPX #$02 �J��BEQ RMISS �J��JMP �LOP KĸY�MOVE PLA
KƸTAX KȸLDA $028D &Kθ� #$01 4KظBEQ �DOWN AK�CPY #$00 OK�BEQ �LOPT ]K��JSR ��OFF eK �DEY sK
�JSR ��OFF �K�JMP �LOPT �K ��DOWN CPY #$03 �K(�BEQ �LOPT �K2�JSR ��OFF �K<�INY �KF�JSR ��OFF �KP�JMP �LOPT �KZ��LOPT JMP �LOP L���SURE TXT 13,13,"REPOSITION: ARE YOU SURE (Y/N)",0 ,L���CALC PLA 4L��TAX BL��JSR ��OFF RL��LDA #��SURE ^L��STA $FB nL��LDA #��SURE zL��STA $FC �L��JSR PSTRING �L��SURELOP JSR �� �L��CMP #$19 �LƻBEQ � �LлCMP #$0E �LڻBEQ NO� �L�JMP SURELOP �L�NO� JMP COMEBACK M��� LDA #$80 M�STA $FB M �LDA #$04 (M�STA $FC 5M �LDA #$01 BM*�JSR �VAR OM4�LDA #$A8 [M>�STA $FB hMA�LDA #$04 tMD�STA $FC �MH�LDA #$1E �MR�JSR �VAR �M\�LDA #$D0 �Mf�STA $FB �Mi�LDA #$04 �Ml�STA $FC �Mp�LDA #$03 �Mz�JSR �VAR �M��LDA #$F8 �M��STA $FB N��LDA #$04 N��STA $FC N��LDA #$1F &N��JSR �VAR 5N��JSR HIRES� CN��JMP CALC� TNt��VAR STA $23 ^Ny�ASL A hN~�ASL A rN��ASL A ~N��STA $FD �N��LDA #$40 �N��STA $FE �N��LDA #$00 �N��TAX �NĽTAY �NνSTA ($FD),Y �NؽINY �N�TYA �N�PHA �N��TXA �N �TAY �N
�LDA ($FB),Y O�STA $22 O �TYA O(�TAX O2�PLA (O<�TAY 4OF�LDA $22 <OP�SEC IOZ�SBC #$30 YOd�STA ($FD),Y aOn�INY iOx�INX qO��INX O���VLOP TYA �O��PHA �O��TXA �O��TAY �O��LDA ($FB),Y �O��SEC �OȾSBC #$30 �OҾASL A �OܾASL A �O�ASL A �O�ASL A �O��INY �O�CLC P�ADC ($FB),Y P�SEC P"�SBC #$30 !P,�INY -P6�STA $22 5P@�TYA =PJ�TAX EPT�PLA MP^�TAY YPh�LDA $22 iPr�STA ($FD),Y qP|�INY ~P��CPY #$08 �P��BNE �VLOP �P��DEC $FB �P��LDY #$00 �P��LDA ($FB),Y �P��CMP #$2D �P¿BEQ MAKENEG �P̿RTS �PֿMAKENEG LDA $23 �P�STA $4101
Q�STA $4102 Q�LDA #$1D %Q��STA $4100 6Q�JMP SUBTRACT EQ\��MEMAD TYA OQp�ASL A YQz�ASL A cQ��ASL A oQ��STA $22 yQ��ASL A �Q��ASL A �Q��CLC �Q��ADC $22 �Q��STX $22 �Q�ADC $22 �Q�CMP #$C8 �Q�BCC GMMQUIT �Q�CLC �Q�ADC #$28 �Q��GMMQUIT RTS R$¹�OFF JSR �MEMAD R.�STA $22 R8�TXA "RB�PHA .RL�LDX $22 >RV�LDA $047F,X JR`�E� #$80 ZRj�STA $047F,X bRt�PLA jR~�TAX rR��RTS �RZ�PLOTPC LDA #$47 �Rd�STA $FB �Rn�LDA #$3F �Rx�STA $FC �R��LDA YPIXEL �R��LSR A �R��LSR A �R��LSR A �R��STA YPIB �R�ï #$03 �R��ASL A S��ASL A S��ASL A S��ASL A "S��ASL A ,S��ASL A 8S��STA $02 DS�LDA $FB LS�SEC XS�SBC $02 dS"�STA $FB pS,�LDA $FC }S6�SBC #$00 �S;�SBC YPIB �S@�PHA �SJ�LDA YPIB �ST�LSR A �S^�LSR A �Sh�STA $02 �Sr�PLA �S|�SEC �S��SBC $02 �S��STA $FC �S��LDA YPIXEL T�į #$07 T��STA YPIB T��LDA $FB "T��SEC /T��SBC YPIB 7T��PHA FT��LDA XPIXEL QT�į #$F8 ^T��STA YPIB fT��PLA nT�CLC {T�ADC YPIB �T �STA $FB �T&�LDA $FC �T0�SBC #$00 �T:�STA $FC �TD�LDA XPIXEL �TNů #$07 �TX�TAX �Tb�LDA #$80 �Tl�GBITLP CPX #$00 �Tv�BEQ PP� U��LSR A
U��DEX U��JMP GBITLP ,U��PP� STA $FD 4U��RTS IU��PLO�N JSR PLOTPC VU��LDY #$00 fU��LDA ($FB),Y qU�ŰA $FD �U��STA ($FB),Y �U��RTS �U��PLO�FF JSR PLOTPC �U��LDA $FD �U�E� #$FF �U �STA $FD �U�LDY #$00 �U �LDA ($FB),Y �U*Ư $FD �U4�STA ($FB),Y V>�RTS VH�PLOT LDA COLOUR !VRƯ #$02 .V\�BNE PPA� =Vf�JSR PLO�FF LVp�JMP PPACNT _Vz�PPA� JSR PLO�N uV��PPACNT INC XPIXEL �V��LDA COLOUR �V�Ư #$01 �V��BNE PPB� �V��JSR PLO�FF �V��JMP PPBCNT �V��PPB� JSR PLO�N �V��PPBCNT INC XPIXEL �V��RTS W��NOZOOM JMP �ROLOP W��ZOOMIN LDA $D015 !W�֯ #$F0 .W �CMP #$F0 =W
�BNE NOZOOM JW�LDA #$1E XW �STA $4100 eW(�LDA #$01 sW2�STA $4101 �W<�LDA #$10 �WF�STA $4102 �WP�JSR SUBTRACT �WZ�LDA #$01 �Wd�STA $4100 �Wn�INC $4102 �Wx�JSR EQUAL �W��LDA #$10 �W��STA $4100 �W��LDA #$1B X��STA $4101 X��LDA #$12 'X��STA $4102 8X��JSR MULTIPLY EX��LDA #$11 SX��STA $4100 aX��STA $4102 nX��LDA #$12 |X��STA $4101 �X��LDA $D008 �X�SEC �X�SBC #$58 �X�CALCINLOPA CMP #$00 �X"�BEQ CALC�IA �X,�PHA �X6�JSR ADDITI� �X@�PLA �XJ�TAX �XT�DEX �X^�TXA Yh�JMP CALCINLOPA 'Yr�CALC�IA LDA #$01 5Y|�STA $4100 BY��LDA #$13 PY��STA $4102 ^Y��JSR EQUAL kY��LDA #$13 yY��STA $4100 �Y��STA $4102 �Y��LDA #$12 �Y��STA $4101 �Y��LDA $D00A �Y��SEC �Y��SBC #$40 �Y��CALCINLOPB CMP #$00 �Y��BEQ CALC�IB �Y�PHA Z�JSR ADDITI�
Z �PLA Z&�TAX Z0�DEX %Z:�TXA 8ZD�JMP CALCINLOPB MZN�CALC�IB LDA #$11 [ZX�STA $4100 hZb�LDA #$01 vZl�STA $4102 �Zv�JSR EQUAL �Z��LDA #$13 �Z��STA $4100 �Z��LDA #$1E �Z��STA $4102 �Z��JSR EQUAL �Z��LDA #$1F �Z��STA $4100 �Z��LDA #$03 �Z��STA $4101 [��LDA #$10 [��STA $4102 *[��JSR SUBTRACT 7[��LDA #$03 E[�STA $4100 S[ �INC $4102 a[�JSR EQUAL n[ �LDA #$10 |[*�STA $4100 �[4�LDA #$12 �[>�STA $4102 �[H�LDA #$1A �[R�STA $4101 �[\�JSR MULTIPLY �[f�LDA #$11 �[p�STA $4100 �[z�STA $4102 �[��LDA #$12 \��STA $4101 \��LDA #$E5 \��SEC *\��SBC $D00D @\��CALCINYA CMP #$00 P\��BEQ CALC�IC X\��PHA h\��JSR ADDITI� p\��PLA x\��TAX �\��DEX �\��TXA �\�JMP CALCINYA �\�CALC�IC LDA #$03 �\�STA $4100 �\$�LDA #$13 �\.�STA $4102 �\8�JSR EQUAL �\B�LDA #$13 ]L�STA $4100 ]V�STA $4102 ]`�LDA #$12 )]j�STA $4101 6]t�LDA #$FA >]~�SEC L]��SBC $D009 b]��CALCINYB CMP #$00 r]��BEQ CALC�ID z]��PHA �]��JSR ADDITI� �]��PLA �]��TAX �]��DEX �]��TXA �]��JMP CALCINYB �]��CALC�ID LDA #$11 �]��STA $4100 �] �LDA #$03 �]
�STA $4102 ^�JSR EQUAL ^ �LDA #$13 "^(�STA $4100 /^2�LDA #$1F =^<�STA $4102 K^F�JSR EQUAL ^^P�CALC� LDA #$1E l^Z�STA $4100 y^d�LDA #$01 �^n�STA $4101 �^x�LDA #$10 �^��STA $4102 �^��JSR SUBTRACT �^��LDA #$10 �^��STA $4100 �^��LDA #$17 �^��STA $4101 �^��LDA #$02 _��STA $4102 _��JSR MULTIPLY "_��LDA #$1F 0_��STA $4100 =_��LDA #$03 K_��STA $4101 X_�LDA #$10 f_�STA $4102 w_�JSR SUBTRACT �_"�LDA #$10 �_,�STA $4100 �_6�LDA #$1A �_@�STA $4101 �_J�LDA #$04 �_T�STA $4102 �_^�JSR MULTIPLY �_h�JSR M�LE �_r�JMP �ROLOP `�ެ�$0820 `��M�LE LDA FRAC� !`��BNE JULP .`��JMP M�EL @`��JULP CMP #$02 M`��BEQ NJUL [`��JMP JULIA h`��NJUL PLA p`�PLA x` �RTS �`�NOSW JMP �ROLOP �`*�SWITCH LDA $D015 �`4߯ #$F0 �`>�CMP #$F0 �`H�BNE NOSW �`R�LDA FRAC� �`\�E� #$01 �`f�STA FRAC� �`p�BNE JULIASW az�LDA #$20 a��STA $FC $a��LDA #$60 0a��STA $FE =a��LDY #$00 Ia��STY $FB Ua��STY $FD la��SWILOP LDA ($FD),Y |a��STA ($FB),Y �a��INY �a��BNE SWILOP �a��INC $FC �a��INC $FE �a��LDA $FC �a�CMP #$41 �a�BNE SWILOP �a�JMP �ROLOP �a$�JULIASW LDA #$20 b.�STA $FC b8�LDA #$60 bB�STA $FE )bL�LDY #$00 5bV�STY $FB Ab`�STY $FD Xbj�JSWLOP LDA ($FB),Y hbt�STA ($FD),Y pb~�INY b��BNE JSWLOP �b��INC $FC �b��INC $FE �b��LDA $FC �b��CMP #$41 �b��BNE JSWLOP �b��INC FRAC� �b��JSR ZOOMIN �b��DEC FRAC� �b��LDA #$01 c��STA $4100 c��LDA #$09 c �STA $4102 .c
�JSR EQUAL ;c�LDA #$03 Ic �STA $4100 Wc(�INC $4102 ec2�JSR EQUAL rc<�LDA #$1C �cF�STA $4100 �cP�LDA #$1E �cZ�STA $4102 �cd�JSR EQUAL �cn�INC $4102 �cx�JSR EQUAL �c��LDA #$0B �c��STA $4100 �c��LDA #$01 �c��STA $4102 d��JSR EQUAL d��LDA #$03 $d��STA $4102 2d��JSR EQUAL @d��JMP CALC� Odj�BOX LDA XP \dt�STA XPIB gd~�LDA YP td��STA YPIB �d��LDA XPB �d��STA XPBIB �d��LDX #$3C �d��STX $07FC �d��INX �d��STX $07FD �d��INX �d��STX $07FE �d��INX �d��STX $07FF �d��LDA $D015 e �A #$F0 e
�STA $D015 &e�BOX� LDA CLICK 3e �BNE BOX� Iex�BOXLOOP LDA XPBIB Ue��CMP XPB ge��BEQ CHECKFINE xe��BCS LESSTHAN �e��JMP M�ETHAN �e��CHECKFINE LDA XPIB �e��CMP XP �e��BCS LESSTHAN �e��M�ETHAN LDA XPIB �e��STA $D008 �e��STA $D00C �e��LDX #$00 f��LDA XPBIB f��BEQ NOXPBADD %f�LDX #$50 <f�NOXPBADD LDA $D010 Gf� #$AF Sf"�STX $02 [f,�CLC gf6�ADC $02 uf@�STA $D010 �fE�LDX #$00 �fJ�LDA XP �fT�SEC �f^�SBC #$18 �fh�STA $D00A �fr�STA $D00E �f|�BCC MTSUB �f��LDX XPB �f��BEQ MTSUB �f��LDX #$A0 g��MTSUB LDA $D010 g�� #$5F g��STX $02 &g��CLC 2g��ADC $02 @g��STA $D010 Mg��JMP BOX� ag��LESSTHAN LDA XP mg��LDX XPB zg��BNE �OUT �g�CMP #$58 �g�BCS �OUT �g �LDA #$58 �g&�OUT STA $D008 �g0�STA $D00C �g:�CPX #$00 �gD�BEQ LTNOADD �gN�LDX #$50 hX�LTNOADD LDA $D010
hb� #$AF hl�STX $02 !hv�CLC -h��ADC $02 ;h��STA $D010 Hh��LDX #$00 Uh��LDA XPIB ]h��SEC jh��SBC #$18 xh��STA $D00A �h��STA $D00E �h��BCC LTSUB �h��LDX XPBIB �h��BEQ LTSUB �h��LDX #$A0 �h��LTSUB LDA $D010 �h�� #$5F �h�STX $02 �h �CLC �h�ADC $02
i �STA $D010 i*�BOX� LDA YP 'i4�CMP YPIB 5i>�BCC LESSY BiH�LDA YPIB PiR�STA $D009 ^i\�STA $D00B iif�LDA YP qip�SEC ~iz�SBC #$15 �i��STA $D00D �i��STA $D00F �i��JMP BOX�II �i��LESSY LDA YP �i��STA $D009 �i��STA $D00B �i��LDA YPIB �i��SEC �i��SBC #$15 j��STA $D00D j��STA $D00F )j��BOX�II LDA CLICK 6j��BNE BOX� Fj�JMP BOXLOOP Zj�BOX� JMP �ROLOP oj0�BOXFLASH LDA $A2 zj:� #$3C �jD�LSR A �jN�LSR A �jX�TAX �jb�LDA BOXCOLS,X �jl�STA $D02B �jv�STA $D02C �j��STA $D02D �j��STA $D02E �j��JMP $EA31 k��BOXCOLS TXT 0,9,2,8,10,7,13,1 *k��TXT 1,13,3,5,14,4,6,0 8k.�JULIA SEI Ek8�LDA #$01 RkB�STA HOUR _kL�JSR LEFT lkV�LDA #$00 {k`�STA YPIXEL �kj�LDA #$03 �kt�STA $4100 �k~�LDA #$06 �k��STA $4102 �k��JSR EQUAL �k��JMMAINL LDA #$00 �k��STA XPIXEL �k��LDA #$01 �k��STA $4100 l��LDA #$05 l��STA $4102 'l��JSR EQUAL =l��JMMAINLB LDA #$05 Kl��STA $4100 Xl��LDA #$07 fl �STA $4102 tl
�JSR EQUAL �l�INC $4100 �l �INC $4102 �l(�JSR EQUAL �l2�LDA #$00 �l<�STA COLOUR �lF�JLOOP LDA #$07 �lP�STA $4100 �lZ�STA $4101 �ld�LDA #$10 mn�STA $4102 mx�JSR MULTIPLY "m��LDA #$08 0m��STA $4100 >m��STA $4101 Km��LDA #$11 Ym��STA $4102 jm��JSR MULTIPLY wm��LDX #$10 �m�STX $4100 �m�INX �m�STX $4101 �m�INX �m�STX $4102 �m��JSR ADDITI� �m�LDA $4091 �m�CMP #$04 �m�BCC JFAIL �m"�CMP #$50 n,�BCS JFAIL n6�JSUCPASS JMP JSUCCESS 4n@�JFAIL INC COLOUR CnJ�LDA COLOUR RnT�CMP MAXCOL cn^�BEQ JSUCPASS tnh�JSR SUBTRACT �nr�LDA #$12 �n|�STA $4100 �n��LDA #$09 �n��STA $4101 �n��LDA #$13 �n��STA $4102 �n��JSR ADDITI� �n��LDA #$07 �n�STA $4100 �n�LDA #$08 o�STA $4101 o�INC $4102 *o�JSR MULTIPLY 7o�LDA #$14 Eo��STA $4100 So�STA $4101 `o �LDA #$15 no&�STA $4102 ~o0�JSR ADDITI� �o:�LDA #$15 �oD�STA $4100 �oN�LDA #$0A �oX�STA $4101 �ob�LDA #$16 �ol�STA $4102 �ov�JSR ADDITI� �o��LDA #$13 �o��STA $4100 p��LDA #$07 p��STA $4102 #p��JSR EQUAL 0p��LDA #$16 >p��STA $4100 Kp�LDA #$08 Yp�STA $4102 gp�JSR EQUAL up�JMP JLOOP �p�JSUCCESS JSR PLOT �p��LDA #$05 �p�STA $4100 �p �STA $4102 �p�LDA #$02 �p �STA $4101 �p*�JSR ADDITI� �p4�LDA XPIXEL �p>�BNE JXRELOP qH�LDA #$06 qR�STA $4100 'q\�STA $4102 4qf�LDA #$04 Bqp�STA $4101 Rqz�JSR ADDITI� aq��INC YPIXEL pq��LDA YPIXEL }q��CMP #$C8 �q��BNE JYRELOP �q��LDA #$00 �q��STA HOUR �q��JSR RIGHT �q�CLI �q�RTS �q�JXRELOP JMP JMMAINLB �q�JYRELOP JMP JMMAINL MHD@..$1000@.HN@xpixel.$4103@/HX@ypixel.$4104@@H.@colour.$4105@oH.@ypib.$4106@.H.@maxcol.$4107@MH.@xp.$4108@ZH.@yp.$4109@.H.@xpb.$410a@.H.@click.$410b@.H.@hour.$410c@.H.@xpib.$410d@.H.@xpbib.$410e@.H.@col0.$410f@.H.@col1.$4110@.H.@col2.$4111@BI.@col3.$4112@RI.@col0s.$4113@"I.@col1s.$4114@2I.@col2s.$4115@bI.@col3s.$4116@rI.@.time.$4117@BI.@speed.$4118@SI.@negreg.$4119@.I.@frac..$411a@.I"Aoutdo .$ab47@.I#A.lfs.$ffba@.I$A.nam.$ffbd@.I%A.rom.$ffd8@.I&Aplotrrom.$e56c@.IZ'jsr init@.I$'comeback jsr hires.@NJ.'.rolop lda click@]J8'bne .rolop@1Jb'.lopb lda click@?Jl'beq .lopb@kJv'lda xpb@wJ.'bne bot@BJJ'lda xp@OJM'cmp #$58@ZJP'bcc ..@.JT'bot jmp box@.J.'.. lda yp@.J.'cmp #$5a@.J.'bcc .rolop@.J.'sec@.J.'sbc #$5a@.J.'lsr a@.J.'lsr a@.J.'. #$fe@.J.'tax@AK.'lda vec.rs,x@MK.'sta $fb@UK.'inx@&K.'lda vec.rs,x@2K.'sta $fc@bK.'jmp ($00fb)@.K@(vec.rs txt .switch,.switch,..rolop,..rolop,.zoomin,.zoomin@.KJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@.KT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@'L.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@[L((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@.L2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@.L<(txt ..rolop,..rolop,..rolop,..rolop@.LD)exit jsr hiresoff@.LN)lda #$93@.LX)jsr outdo@.L")lda #$05@CM,)jsr outdo@PM6)lda #$00@£M@)sta $c6@$Mj)rts@5M..irq lda #$00@cMH/sta click@oMR/lda $c5@£M£/cmp #$01@LM&/bne c.check@ZM0/sta click@.M:/c.check cmp #$0c@.Md/beq leftk@.Mn/lkc cmp #$17@.Mx/beq rightk@.MB/rkc cmp #$32@.ML/beq upk@.MV/upkc cmp #$37@.M./beq downk@LN./dkc lda $dc00@WN./. #$01@#N./beq upj@5N./ujc lda $dc00@@N./. #$02@nN./beq downj@.N./djc lda $dc00@KN./. #$04@YN./beq leftj@.N./ljc lda $dc00@.N./. #$08@.NB0beq rightj@.NL0rjc lda $dc00@.NV0. #$10@.N 0e. #$10@.N*0beq cjch@.N40sta click@.N>0cjch jmp boxflash@ROh0leftk jsr left@.Or0jmp lkc@3O£0rightk jsr right@?OF0jmp rkc@nOP0upk jsr up@[OZ0jmp upkc@NO.0downk jsr down@ZO.0jmp dkc@.O.0upj jsr up@.O.0jmp ujc@.O.0downj jsr down@.O.0jmp djc@.O.0leftj jsr left@.O.0jmp ljc@.O.0rightj jsr right@.O.0jmp rjc@DP.0left dec xp@OP.0lda xp@£P.0cmp #$ff@(PF1bne .ff@5PP1ldy #$00@aPZ1sty xpb@qP$1.ff ldy xpb@]P.1bne fin@JP81cmp #$18@VPb1bne fin@.Pl1inc xp@.Pv1fin jmp .rol@.P.1right inc xp@.PJ1lda xp@.PT1bne .00@.P.1ldy #$01@.P.1sty xpb@.P.1.00 ldy xpb@.P.1beq fin@.P.1cmp #$58@HQ.1bne fin@SQ.1dec xp@ Q.1jmp .rol@.Q.1up dec yp@9Q.1lda yp@fQ.1cmp #$32@rQ.1bne fin@]Q.1inc yp@JQ@2jmp .rol@ZQJ2down inc yp@.QT2lda yp@.Q.2cmp #$f8@.Q(2bne fin@.Q22dec yp@.Q<2jmp .rol@.Qp2.rol lda hour@.Qz2beq nhglass@.Q.3ldx #$3a@.Q.3stx $07f8@.Q.3inx@IR.3stx $07f9@£R.3nhglass lda xp@*R.3sta $d000@8R.3sta $d002@cR.3lda yp@qR.3sta $d001@.R.3sta $d003@MR.3lda $d010@XRH4. #$fc@.RR4lsr a@.R£4clc@.R&4adc xpb@.R04asl a@.R:4clc@.Rd4adc xpb@.Rn4sta $d010@.Rx4lda #$00@.RB4sta $d027@.RL4lda #$01@.RV4sta $d028@FS.4lda $d015@RS.4.a #$03@ S.4sta $d015@-S.4lda hour@:S.4bne qtro@gS.4ldx #$38@uS.4stx $07f8@]S.4inx@KS.4stx $07f9@XS.4qtro rts@.S.4init lda #$00@.S.4sta $d020@.SB5sta $d021@.SL5sta xp@.SV5sta hour@.S 5sta $d015@.S*5lda #$01@.S45sta xpb@.S>5lda #$80@.Sh5sta yp@QTr5hires. lda #$3b@.T£5sta $d011@,TF5lda #$d8@:TP5sta $d016@hTZ5lda col0s@uT.5sta col0@CT.5lda col1s@PT.5sta col1@.T.5lda col2s@.T.5sta col2@.T.5lda col3s@.T.5sta col3@.T.5jsr .cols@.TF6jsr left@.TP6sei@.TZ6lda #.irq@.T$6sta $0314@.T.6lda #.irq@AU86sta $0315@IUb6cli@VU.6lda #$18@$U.6sta $d018@,U4:rts@=Ur:hiresoff sei@jU£:lda #$31@xUF:sta $0314@EUP:lda #$ea@SUZ:sta $0315@.U.:cli@.U.:lda #$00@.U.:sta $d015@.U.:sta $d021@.U.:lda #$9b@.U.:sta $d011@.U.:lda #$c8@.U.:sta $d016@.U.:lda #$15@.U.:sta $d018@.U.:rts@PV n. jsr hiresoff@]V*nlda #$1c@+V4njsr outdo@8V>nlda #$93@fVhnjsr outdo@sVrnlda #$00@AV£n.loop pha@KVFnasl a@UVPnasl a@.VZnclc@.V.nadc #$42@.V.nsta $fc@.V.nldy #$00@.V.nsty $fb@.V.nsty $fd@.V.nlda #$04@.V.nsta $fe@.V.n.loopb lda ($fb),y@.V.nsta ($fd),y@CW.niny@RW.nbne .loopb@.W.ninc $fc@*W.ninc $fe@6WFolda $fe@cWPocmp #$08@rWZobne .loopb@AW$o.. lda $c5@NW.ocmp #$40@YW8obne ..@.Wbo..b lda $c5@.Wlocmp #$40@.Wvobeq ..b@.W.otax@.WJopla@.WTocpx #$01@.W.obeq hnom.e@.W.ocpx #$28@.W.obeq .@.W.ocpx #$2b@.W.obeq prev@LX.o.ret pha@XX.ojmp ..b@0X.ohnom.e jmp comeback@?X.o. cmp #$05@lX.obeq .ret@tX.oclc@AX.oadc #$01@OX.ojmp .loop@.X@pprev cmp #$00@.XJpbeq .ret@.XTpsec@.X.psbc #$01@.X(pjmp .loop@.X.A.ame txt 147,5@.X.Atxt "filename:",0@AY.A.rd txt 13,13,"(t)ape or (d)isk",0@/Y.A.t txt 13,13,"position tape <space>",13,0@]Y.Ainsd txt 13,13,"insert disk <space>",13,0@RY.Apstring ldy #$00@.Y.Apstrlop lda ($fb),y@.Y.Abeq pstrquit@.YBBjsr outdo@.YGBiny@.YLBjmp pstrlop@.YVBpstrquit rts@.Y B.off lda $040a,y@.Y*Be. #$80@CZ4Bsta $040a,y@KZ>Brts@ZZhB.. lda $c5@'ZrBcmp #$40@2Z£Bbne ..@bZFB..b lda $c5@oZPBcmp #$40@[ZZBbeq ..b@CZ.Btax@PZ.Blda ..,x@.Z.Bbeq ..@.Z.Brts@.Z.B. jsr hiresoff@.Z.Bldx #$00@.Z.Blda #$20@.Z.B.ame. sta $41f0,x@.Z.Binx@.Z.Bcpx #$10@.Z.Bbne .ame.@.Z.Blda #..ame@D[.Bsta $fb@S[FClda #..ame@.[PCsta $fc@/[ZCjsr pstring@<[$Clda #$00@d[.Cpha@r[8C.loop tay@.[=Cjsr .off@J[bCjsr ..@R[gCpha@.[lCjsr .off@.[qCpla@.[vCcmp #$80@.[.Cbcs decode@.[JCtay@.[TCpla@.[.Ctax@.[.Ctya@.[.Csta $040a,x@.[.Ccmp #$20@.[.Cbcs nospc@.[.Cclc@C£.Cadc #$40@Y£.Cnospc sta $41f0,x@+£.Cinc. cpx #$0f@:£.Cbeq .relop@b£.Cinx@q£.C.relop txa@y£.Cpha@G£.Cjmp .loop@.£@Ddecode cmp #$80@.£JDbeq ..@.£TDcmp #$81@.£.Dbeq .@.£(Dcmp #$82@.£2Dbne .loop@.£<Dpla@.£fDtax@.£pDlda $028d@.£zD. #$01@.£DDbeq inc.@@]NDdec. cpx #$00@O]XDbeq .relop@W].Ddex@&].Djmp .relop@0].D. pla@8].Dtax@e].Dlda #$20@u].Dsta $040a,x@E].Dsta $41f0,x@R].Djmp dec.@.].D.. pla@.].Dlda #..rd@.].Dsta $fb@.].Dlda #..rd@.].Dsta $fc@.].Djsr pstring@.]DE. jsr ..@.]NEcmp #$14@.]XEbeq tape.@.]"Ecmp #$04@D.,Ebeq disk.@N.6Ejmp .@!.@Etape. lda #..t@-.jEsta $fb@:.tElda #..t@f..Esta $fc@v.HEjsr pstring@C.REldx #$01@Q..Ejmp tape.@...Edisk. lda #.insd@...Esta $fb@...Elda #.insd@...Esta $fc@...Ejsr pstring@...Eldx #$08@...Etape. lda $c5@...Ecmp #$3c@...Ebne tape.@D..Elda #$01@L..Etay@Y..Ejsr .lfs@&..Eldx #$10@<.HF.ame. lda $41ef,x@i.RFcmp #$20@x.£Fbne .ame.t@..&Fdex@O.0Fbeq .ame.t@..:Fjmp .ame.@..dF.ame.t txa@..nFldx #$f0@..BFldy #$41@..LFjsr .nam@..VFlda #$20@...Fsta $fc@...Fldx #$00@...Fstx $fb@...Fldy #$40@...Flda #$fb@L .Fjsr .rom@] .Fjmp comeback@4 .I.. txt $81,$80,$82@v .Itxt 0,0,0,0,$83,51,23,1,52,26@Z .Itxt 19,5,0,53,18,4,54,3,6,20,24@. .Itxt 55,25,7,56,2,8,21,22,57,9,10@. .Itxt 48,13,11,15,14,43,16,12,45,46@. .Itxt 0,0,44,0,0,0,0,0,0,30,47,49@E!.Itxt 31,0,50,32,0,17,0,0@R!:Um.el sei@.!<Ulda #$01@,!=Usta hour@9!>Ujsr left@f!?Ulda #$00@u!dUsta ypixel@B!nUlda #$03@P!xUsta $4100@.!BUlda #$06@.!LUsta $4102@.!VUjsr equal@.!.Ummainl lda #$00@.!.Usta xpixel@.!.Ulda #$01@.!.Usta $4100@.!.Ulda #$05@.!.Usta $4102@@".Ujsr equal@U".Ummainlb lda #$05@#".Usta $4100@0".Ulda #$07@>".Usta $4102@l".Ujsr equal@z".Uinc $4100@H"BVinc $4102@V"LVjsr equal@."VVlda #$00@." Vsta colour@."*Vloop lda #$07@."4Vsta $4100@.">Vsta $4101@."hVlda #$10@."rVsta $4102@."£Vjsr multiply@."FVlda #$08@G#PVsta $4100@U#ZVsta $4101@"#.Vlda #$11@0#.Vsta $4102@a#.Vjsr multiply@n#.Vldx #$10@£#.Vstx $4100@D#.Vinx@R#.Vstx $4101@Z#.Vinx@.#.Vstx $4102@.#.Vjsr additi.@.#.Vlda $4091@.#.Vcmp #$04@.#.Vbcc fail@.#FWcmp #$50@.#PWbcs fail@.#ZWsucpass jmp success@F$$Wfail inc colour@U$)Wlda colour@$$.Wcmp maxcol@4$8Wbeq sucpass@e$bWjsr subtract@r$lWlda #$12@.$vWsta $4100@M$.Wlda #$05@.$JWsta $4101@.$TWlda #$13@.$.Wsta $4102@.$.Wjsr additi.@.$.Wlda #$07@.$.Wsta $4100@.$.Wlda #$08@.$.Wsta $4101@.$.Winc $4102@.$.Wjsr multiply@H%.Wlda #$14@V%.Wsta $4100@$%.Wsta $4101@1%.Wlda #$15@?%@Xsta $4102@o%JXjsr additi.@£%TXlda #$15@J%.Xsta $4100@W%(Xlda #$06@.%2Xsta $4101@.%<Xlda #$16@.%fXsta $4102@.%pXjsr additi.@.%zXlda #$13@.%DXsta $4100@.%NXlda #$07@.%XXsta $4102@.%.Xjsr equal@A&.Xlda #$16@O&.Xsta $4100@£&.Xlda #$08@*&.Xsta $4102@8&.Xjsr equal@e&.Xjmp loop@z&.Xsuccess jsr plot@G&.Xlda #$05@U&.Xsta $4100@.&.Xsta $4102@.&.Xlda #$02@.&.Xsta $4101@.&DYjsr additi.@.&NYlda xpixel@.&XYbne xrelop@.&"Ylda #$06@.&,Ysta $4100@.&6Ysta $4102@B'@Ylda #$04@P'jYsta $4101@ 'tYjsr additi.@/'.Yinc ypixel@>'HYlda ypixel@k'RYcmp #$c8@z'.Ybne yrelop@G'.Ylda #$00@T'.Ysta hour@.'.Yjsr right@.'.Ycli@.'.Yrts@.'.Yxrelop jmp mmainlb@.'.Yyrelop jmp mmainl@.'.Ym.plot jsr m.le@.'.Yjmp .rolop@.'...cols lda col0@C(..sta $d021@P(..ldy #$00@£(..sty $fb@)(..lda #$d8@5(..sta $fc@b(..lda col3@y(H..clopa sta ($fb),y@A(R.iny@P(£.bne .clopa@.(&.inc $fc@.(0.ldx $fc@.(:.cpx #$dc@.(d.bne .clopa@.(n.lda #$04@.(x.sta $fc@.(B.lda col1@.(L.asl a@.(V.asl a@.(..asl a@.(..asl a@.(...a col2@U)...clopb sta ($fb),y@])..iny@,)..beq .clopc@9)..cpy #$f8@h)..bne .clopb@t)..ldx $fc@A)..cpx #$07@P)..bne .clopb@X)..rts@.)...clopc inc $fc@.)B.jmp .clopb@.)L.colc. lda .time@.)V.clc@.) .adc speed@.)*.sta .time@.)4.colclop cmp $a2@.)>.bne colclop@.)h.rts@Q*r.colc.s lda $c5@.*£.cmp #$28@+*F.beq spup@8*P.cmp #$2b@e*Z.beq sldn@r*..cmp #$01@B*..beq colcoff@N*..no. rts@.*..colcoff pla@.*..pla@.*..jmp comeback@.*..spup lda speed@.*..cmp #$03@.*..beq no.@.*..dec speed@.*..rts@.*..sldn lda speed@.*..cmp #$19@E+..beq no.@S+F.inc speed@[+P.rts@0+Z.colcycle lda $c5@=+£.cmp #$40@n+..bne colcycle@[+ .lda #$0a@I+$.sta speed@U+..lda $a2@.+8.sta .time@.+b.colcyclop lda col0s@.+l.sta col0@.+v.lda col1s@.+..sta col1@.+J.lda col2s@.+T.sta col2@.+..lda col3s@.+..sta col3@G,..jsr .cols@V,..jsr colc.s@$,..jsr colc.@2,..lda col3s@?,..sta col0@m,..lda col0s@z,..sta col1@H,..lda col1s@U,..sta col2@.,..lda col2s@.,..sta col3@.,@.jsr .cols@.,J.jsr colc.s@.,T.jsr colc.@.,..lda col2s@.,(.sta col0@.,2.lda col3s@.,<.sta col1@.,f.lda col0s@L-p.sta col2@Z-z.lda col1s@'-D.sta col3@5-N.jsr .cols@d-X.jsr colc.s@r-..jsr colc.@.-..lda col1s@M-..sta col0@.-..lda col2s@.-..sta col1@.-..lda col3s@.-..sta col2@.-..lda col0s@.-..sta col3@.-..jsr .cols@.-..jsr colc.s@.-..jsr colc.@.-..jmp colcyclop@P.D.iter. lda maxcol@[.N.. #$f0@%.X.lsr a@/.".lsr a@9.,.lsr a@c.6.lsr a@p.@.cmp #$0a@..j.bcc itadd@F.t.sec@S...sbc #$39@..H.itadd clc@..R.adc #$30@....sta $0505@....lda maxcol@..... #$0f@....cmp #$0a@....bcc noaddit@....sec@....sbc #$39@....noaddit clc@E/..adc #$30@S/..sta $0506@[/..rts@c/..coltext txt 147,5,"............",13@W/..txt ".R ...R ...R ...R .. <- screen colours",13@./..txt "............",13@./H.txt " 1 2 3 4",13,13,13@./R.txt "maximum iterations: $$$",0@./£.cols jsr hiresoff@./&.lda #.coltext@H00.sta $fb@Z0:.lda #.coltext@&0d.sta $fc@60n.jsr pstring@d0x.lda col0s@r0B.sta $d829@.0L.lda col1s@N0V.sta $d82c@.0..lda col2s@.0..sta $d82f@.0..lda col3s@.0..sta $d832@.0..jsr iter.@.0..colloopk jsr ..@.0..cmp #$80@.0..beq colquit@.0..cmp #$31@B1..beq col1add@O1..cmp #$32@.1..beq col2add@,1..cmp #$33@<1B.beq col3add@i1L.cmp #$34@y1V.beq col4add@F1 .cmp #$2b@W1*.beq iterplus@.14.cmp #$2d@.1>.bne colloopk@.1h.dec maxcol@.1r.jsr iter.@.1£.jmp colloopk@.1F.iterplus inc maxcol@.1P.jsr iter.@.1Z.jmp colloopk@S2..colquit jmp comeback@)2..col1add inc col0s@72..lda col0s@b2... #$0f@p2..sta col0s@.2..sta $d829@O2..jmp colloopk@.2..col2add inc col1s@.2..lda col1s@.2... #$0f@.2..sta col1s@.2..sta $d82c@.2..jmp colloopk@.2F.col3add inc col2s@.2P.lda col2s@.2Z.. #$0f@H3$.sta col2s@V3..sta $d82f@'38.jmp colloopk@=3b.col4add inc col3s@k3l.lda col3s@v3v.. #$0f@D3..sta col3s@R3J.sta $d832@.3T.jmp colloopk@.3j..digit cld@.3t.asl a@.3..asl a@.3H.asl a@.3R.sta $02@.3..txa@.3..lsr a@.3..sta $24@.3..lda #$07@.3..sec@.3..sbc $24@C4..clc@O4..adc $02@W4..tay@'4..lda $4000,y@/4..tay@74..txa@b4... #$01@p4..beq lsngd@x4H.tya@C4R.. #$f0@M4£.lsr a@W4&.lsr a@.40.lsr a@.4:.lsr a@.4d.rts@.4n.lsngd tya@.4x.. #$0f@.4B.rts@.4L.multiplyb jsr negative@.4Q.lda $4102@.4V.asl a@.4..asl a@.4..asl a@C5..tax@P5..lda #$00@X5..tay@.5..mlopa sta $4000,x@65..iny@>5..inx@k5..cpy #$08@y5..bne mlopa@F5..lda #$06@R5..sta $fc@.5...digit lda $4101@.5B.ldx $fc@.5L.jsr .digit@.5V.cmp #$00@.5 .beq dmoverb@.5*.sta $fd@.54.lda #$06@.5>.sta $fb@.5h.dmlop lda $4100@D6r.ldx $fb@S6£.jsr .digit@ 6F.cmp #$00@/6P.beq dmover@96Z.asl a@c6..asl a@m6..asl a@w6..asl a@.6..clc@K6..adc $fd@S6..tay@.6..lda m.,y@.6..sta $35@.6... #$0f@.6..tay@.6..lda $fb@.6..clc@.6..adc $fc@.6F.sec@.6P.sbc #$0c@.6Z.tax@.6$.. #$01@.6..beq mskip@.68.tya@G7b.asl a@Q7l.asl a@[7v.asl a@%7..asl a@-7J.tay@97T.lda $35@d7... #$f0@n7..lsr a@x7..lsr a@B7..lsr a@L7..lsr a@X7..sta $35@.7..jmp m.@.7..dmoverb jmp dmover@.7..mskip ldy $35@.7..lda #$00@.7..sta $35@.7..m. txa@.7..lsr a@.7..sta $02@.7..lda #$07@.7..sec@G8..sbc $02@S8..sta $02@!8..lda $4102@+8..asl a@58..asl a@?8..asl a@k8..adc $02@w8..sty $25@.8..tay@G8..sed@W8..lda $4000,y@.8..clc@.8..adc $25@.8..sta $4000,y@.8@.cld@.8B.dey@.8D.sed@.8F.lda $4000,y@.8H.adc $35@.8J.sta $4000,y@.8L.cld@.8N.malp bcc dmover@C9P.dey@K9R.sed@[9T.lda $4000,y@(9V.adc #$00@89X.sta $4000,y@@9Z.cld@m9£.jmp malp@.9z.dmover inc $fb@L9D.lda $fb@Y9N.cmp #$0e@.9X.bcc dmlopb@.9..inc $fc@.9..lda $fc@.9..cmp #$0e@.9..bcc .digitb@.9..lda ypib@.9..beq quit@.9..lda $4102@.9..sta $4101@@:..lda #$1d@N:..sta $4100@.:..jsr subtract@,:..quit rts@a:..dmlopb jmp dmlop@x:D..digitb jmp .digit@K:".msup lda $4100@U:,.asl a@.:6.asl a@.:@.asl a@.:j.tax@.:t.dex@.:..stx $fb@.:H.lda $4101@.:R.asl a@.:..asl a@.:..asl a@.:..tax@.:..dex@.:..stx $fd@.:..lda $4102@E;..asl a@O;..asl a@Y;..asl a@!;..tax@);..dex@5;..stx $22@b;..lda #$40@n;..sta $fc@z;H.sta $fe@F;R.sta $23@N;£.rts@.;&.equal jsr msup@.;0.ldy #$08@.;:.elop lda ($fb),y@.;d.sta ($22),y@.;n.dey@.;x.bne elop@.;B.rts@.;L.additi. jsr msup@.;V.ldy #$08@.;..sed@B<..clc@X<..adlop lda ($fb),y@(<..adc ($fd),y@8<..sta ($22),y@@<..dey@n<..bne adlop@v<..cld@.<..rts@T<..subtract jsr msup@.<..ldy #$08@.<..sed@.<..sec@.<B.sulop lda ($fb),y@.<L.sbc ($fd),y@.<V.sta ($22),y@.< .dey@.<*.bne sulop@.<4.cld@.<>.rts@C=h.negative lda #$00@K=r.pha@Y=£.lda $4100@!=F.tay@+=P.asl a@5=Z.asl a@?=..asl a@g=..tax@w=..lda $4001,x@D=..cmp #$50@W=..bcc negrmoveab@.=..pla@.=..adc #$00@.=..pha@.=..jmp negrmovea@.=..negrmoveab lda $4101@.=..tay@.=..asl a@.=..asl a@.=..asl a@.=F.tax@.=P.lda $4001,x@J>Z.cmp #$50@R>$.pla@.>..bcc noe.@+>8.e. #$01@3>b.pha@e>l.bcs negrmoveb@x>v.negrmovebb pla@J>..noe. sta ypib@R>J.rts@.>T.negrmove lda $4100@.>..pha@.>..lda $4101@.>..pha@.>..lda $4102@.>..pha@.>..tya@.>..sta $4101@.>..sta $4102@.>..lda #$1d@.>..sta $4100@M?..jsr subtract@U?..pla@#?..sta $4102@+?@.pla@9?J.sta $4101@a?T.pla@o?..sta $4100@w?(.rts@R?2.negrmovea jsr negrmove@.?<.jmp negrmoveab@.?f.negrmoveb jsr negrmove@.?p.jmp negrmovebb@.?z.multiply lda $4102@.?D.pha@.?N.lda $4101@.?X.pha@.?..lda #$18@C@..sta $4102@Q@..jsr equal@.@..inc $4102@'@..pla@5@..sta $4100@c@..jsr equal@p@..lda #$18@.@..sta $4100@K@..lda #$19@Y@..sta $4101@.@..pla@.@..sta $4102@.@D.jmp multiplyb@.@..m. txt 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@.@..txt 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0@&a..txt 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0@za..txt 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0@.a..txt 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0@.a..txt 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0@@b..txt 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0@8b..txt 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0@Pb..txt 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0@.b..txt 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0@.b...text txt 147,5," p o s i t i o n",13,13,13,"xmin:",13@Vc..txt "xmax:",13,"ymin:",13,"ymax:",0@"c..pno pha@,c..asl a@6c..asl a@@c..asl a@hc..tax@xc@.lda $4001,x@EcJ.cmp #$50@TcT.bcs pnover@.c..lda #$2b@.c(.jsr outdo@.c*.lda #$00@.c,.sta negreg@.c2.jmp pn.@.c<.pnover lda #$2d@.cf.jsr outdo@.cg.lda #$01@.ch.sta negreg@.ci.pla@Edj.pha@Sdk.sta $4101@!dl.sta $4102@.dm.lda #$1d@<dn.sta $4100@mdo.jsr subtract@.dp.pn. ldx #$0c@Odz.pncb stx $22@WdD.pla@.dN.pha@.dX.jsr .digit@.d..clc@.d..adc #$30@.d..jsr outdo@.d..ldx $22@.d..beq pndq@.d..cpx #$0c@.d..beq pndot@.d..dex@.d..jmp pncb@Me..pndot lda #$2e@[e..jsr outdo@#e..dex@0e..jmp pncb@=eD.pndq pla@leE.ldx negreg@[eF.beq nogreg@IeG.sta $4101@WeH.sta $4102@.eI.lda #$1d@.eJ.sta $4100@.eK.jsr subtract@.eN.nogreg rts@.eX..iti. jsr hiresoff@.e".lda #..text@.e,.sta $fb@.e6.lda #..text@Af@.sta $fc@Qfj.jsr pstring@.ft.lda #$07@*f..sta $d3@7fH.lda #$03@cfR.sta $d6@tf..jsr plotrrom@Af..lda #$01@Mf..jsr pno@Zf..lda #$07@.f..sta $d3@.f..lda #$04@.f..sta $d6@.f..jsr plotrrom@.f..lda #$1e@.f..jsr pno@.f..lda #$07@.f..sta $d3@.f..lda #$05@.f..sta $d6@LgH.jsr plotrrom@YgR.lda #$03@%g£.jsr pno@2g&.lda #$07@>g0.sta $d3@kg5.lda #$06@wg:.sta $d6@Hgd.jsr plotrrom@Ugn.lda #$1f@.gx.jsr pno@.gB.ldx #$01@.gL.ldy #$00@.gQ.jsr ..off@.gV..lop txa@.g..pha@.g...lopb jsr ..@.g..cmp #$2b@.g..beq .i.@.g..cmp #$2d@Ch..beq .ineg@Ph..cmp #$82@.h..beq x.move@,h..cmp #$83@;h..beq y.move@hh..cmp #$80@wh..beq .calct@Dh..cmp #$30@RhB.bcc .lopb@.hL.cmp #$3a@.hV.bcs .lopb@.h[.sta $23@.h .pla@.h%.pha@.h*.tax@.h4.jsr .memad@.h>.stx $22@.hh.tax@.hr.lda $23@.h£.e. #$80@.hF.sta $047f,x@KiP.jmp .right@ iZ..calct jmp .calc@1i...i. ldx #$00@@i..jsr .memad@hi..tax@ui..lda #$2b@Ei..sta $047f,x@Si..jmp .lopb@.i...ineg ldx #$00@.i..jsr .memad@.i..tax@.i..lda #$2d@.i..sta $047f,x@.iF.jmp .lopb@.iP.x.move lda $028d@.iZ.. #$01@.i$.beq .right@.i..pla@Gj8.tax@Tj=.cpx #$01@!jb.beq .lop@5jl.lmiss jsr ..off@=jv.dex@kj..jsr ..off@xjB.cpx #$02@FjD.beq lmiss@SjJ.jmp .lop@.jT..right pla@.j..tax@.j..cpx #$0e@.j..beq .lop@.j..rmiss jsr ..off@.j..inx@.j..jsr ..off@.j..cpx #$02@.j..beq rmiss@.j..jmp .lop@Ek..y.move pla@Mk..tax@[k..lda $028d@&k... #$01@4k..beq .down@ak..cpy #$00@ok..beq .lopt@]k..jsr ..off@Ek@.dey@SkJ.jsr ..off@.kT.jmp .lopt@.k...down cpy #$03@.k(.beq .lopt@.k2.jsr ..off@.k<.iny@.kf.jsr ..off@.kp.jmp .lopt@.kz..lopt jmp .lop@.l...sure txt 13,13,"reposition: are you sure (y/n)",0@,l...calc pla@4l..tax@bl..jsr ..off@rl..lda #..sure@.l..sta $fb@Nl..lda #..sure@Zl..sta $fc@.l..jsr pstring@.l..surelop jsr ..@.l..cmp #$19@.l..beq ..@.l..cmp #$0e@.l..beq no.@.l..jmp surelop@.l..no. jmp comeback@Cm.... lda #$80@OmB.sta $fb@£mL.lda #$04@(mV.sta $fc@5m .lda #$01@bm*.jsr .var@om4.lda #$a8@[m>.sta $fb@Hma.lda #$04@Tmd.sta $fc@.mh.lda #$1e@.mr.jsr .var@.m£.lda #$d0@.mF.sta $fb@.mI.lda #$04@.mL.sta $fc@.mP.lda #$03@.mZ.jsr .var@.m..lda #$f8@.m..sta $fb@@n..lda #$04@Ln..sta $fc@Yn..lda #$1f@&n..jsr .var@5n..jsr hires.@cn..jmp calc.@tnT..var sta $23@.nY.asl a@Hn..asl a@Rn..asl a@.n..sta $fd@.n..lda #$40@.n..sta $fe@.n..lda #$00@.n..tax@.n..tay@.n..sta ($fd),y@.n..iny@.n..tya@.n..pha@.n..txa@.n@.tay@.nJ.lda ($fb),y@HoT.sta $22@Po..tya@Xo(.tax@ o2.pla@(o<.tay@4of.lda $22@<op.sec@ioz.sbc #$30@yoD.sta ($fd),y@AoN.iny@IoX.inx@Qo..inx@.o...vlop tya@.o..pha@.o..txa@.o..tay@.o..lda ($fb),y@.o..sec@.o..sbc #$30@.o..asl a@.o..asl a@.o..asl a@.o..asl a@.o..iny@.oD.clc@DpN.adc ($fb),y@LpX.sec@Yp".sbc #$30@!p,.iny@-p6.sta $22@5p@.tya@=pj.tax@ept.pla@mp..tay@ypH.lda $22@IpR.sta ($fd),y@Qp..iny@.p..cpy #$08@.p..bne .vlop@.p..dec $fb@.p..ldy #$00@.p..lda ($fb),y@.p..cmp #$2d@.p..beq makeneg@.p..rts@.p..makeneg lda $23@.p..sta $4101@Jq..sta $4102@Wq..lda #$1d@%q..sta $4100@6qH.jmp subtract@eq£..memad tya@oqP.asl a@yqZ.asl a@Cq..asl a@Oq..sta $22@Yq..asl a@.q..asl a@.q..clc@.q..adc $22@.q..stx $22@.q..adc $22@.q..cmp #$c8@.q..bcc gmmquit@.q..clc@.q..adc #$28@.q..gmmquit rts@Fr$...off jsr .memad@Rr..sta $22@Zr8.txa@"rb.pha@.rl.ldx $22@>rv.lda $047f,x@jr..e. #$80@zrJ.sta $047f,x@BrT.pla@Jr..tax@Rr..rts@.rz.plotpc lda #$47@.rD.sta $fb@.rN.lda #$3f@.rX.sta $fc@.r..lda ypixel@.r..lsr a@.r..lsr a@.r..lsr a@.r..sta ypib@.r... #$03@.r..asl a@Ds..asl a@Ns..asl a@Xs..asl a@"s..asl a@,s..asl a@8s..sta $02@dsD.lda $fb@lsN.sec@xsX.sbc $02@Ds".sta $fb@Ps,.lda $fc@.s6.sbc #$00@.s;.sbc ypib@.s@.pha@.sj.lda ypib@.st.lsr a@.s..lsr a@.sH.sta $02@.sR.pla@.s..sec@.s..sbc $02@.s..sta $fc@.s..lda ypixel@At... #$07@Nt..sta ypib@Zt..lda $fb@"t..sec@/t..sbc ypib@7t..pha@ft..lda xpixel@qt... #$f8@.t..sta ypib@Ft..pla@NtH.clc@.tR.adc ypib@.t£.sta $fb@.t&.lda $fc@.t0.sbc #$00@.t:.sta $fc@.td.lda xpixel@.tn.. #$07@.tx.tax@.tB.lda #$80@.tL.gbitlp cpx #$00@.tV.beq pp.@Eu..lsr a@Mu..dex@£u..jmp gbitlp@,u..pp. sta $fd@4u..rts@iu..plo.n jsr plotpc@vu..ldy #$00@Fu..lda ($fb),y@Qu...a $fd@.u..sta ($fb),y@.u..rts@.u..plo.ff jsr plotpc@.u..lda $fd@.uB.e. #$ff@.uL.sta $fd@.uV.ldy #$00@.u .lda ($fb),y@.u*.. $fd@.u4.sta ($fb),y@Bv>.rts@Vvh.plot lda colour@!vr.. #$02@.v£.bne ppa.@=vF.jsr plo.ff@lvP.jmp ppacnt@.vZ.ppa. jsr plo.n@Uv..ppacnt inc xpixel@.v..lda colour@.v... #$01@.v..bne ppb.@.v..jsr plo.ff@.v..jmp ppbcnt@.v..ppb. jsr plo.n@.v..ppbcnt inc xpixel@.v..rts@Aw..nozoom jmp .rolop@Vw..zoomin lda $d015@!w... #$f0@.w@.cmp #$f0@=wJ.bne nozoom@jwT.lda #$1e@xw..sta $4100@Ew(.lda #$01@Sw2.sta $4101@.w<.lda #$10@.wf.sta $4102@.wp.jsr subtract@.wz.lda #$01@.wD.sta $4100@.wN.inc $4102@.wX.jsr equal@.w..lda #$10@.w..sta $4100@.w..lda #$1b@Lx..sta $4101@Yx..lda #$12@'x..sta $4102@8x..jsr multiply@ex..lda #$11@sx..sta $4100@Ax..sta $4102@Nx..lda #$12@.x..sta $4101@.x..lda $d008@.xD.sec@.xN.sbc #$58@.xX.calcinlopa cmp #$00@.x".beq calc.ia@.x,.pha@.x6.jsr additi.@.x@.pla@.xj.tax@.xt.dex@.x..txa@RyH.jmp calcinlopa@'yR.calc.ia lda #$01@5y..sta $4100@by..lda #$13@py..sta $4102@.y..jsr equal@Ky..lda #$13@Yy..sta $4100@.y..sta $4102@.y..lda #$12@.y..sta $4101@.y..lda $d00a@.y..sec@.y..sbc #$40@.y..calcinlopb cmp #$00@.y..beq calc.ib@.yH.pha@EzR.jsr additi.@Mz£.pla@Uz&.tax@]z0.dex@%z:.txa@8zd.jmp calcinlopb@mzn.calc.ib lda #$11@[zx.sta $4100@HzB.lda #$01@VzL.sta $4102@.zV.jsr equal@.z..lda #$13@.z..sta $4100@.z..lda #$1e@.z..sta $4102@.z..jsr equal@.z..lda #$1f@.z..sta $4100@.z..lda #$03@.z..sta $4101@K[..lda #$10@Y[..sta $4102@*[..jsr subtract@7[..lda #$03@e[B.sta $4100@s[L.inc $4102@A[V.jsr equal@N[ .lda #$10@.[*.sta $4100@.[4.lda #$12@.[>.sta $4102@.[h.lda #$1a@.[r.sta $4101@.[£.jsr multiply@.[F.lda #$11@.[P.sta $4100@.[Z.sta $4102@.[..lda #$12@G£..sta $4101@T£..lda #$e5@££..sec@*£..sbc $d00d@@£..calcinya cmp #$00@p£..beq calc.ic@x£..pha@H£..jsr additi.@P£..pla@X£..tax@.£..dex@.£..txa@.£F.jmp calcinya@.£P.calc.ic lda #$03@.£Z.sta $4100@.£$.lda #$13@.£..sta $4102@.£8.jsr equal@.£b.lda #$13@@]l.sta $4100@N]v.sta $4102@[]..lda #$12@)]J.sta $4101@6]T.lda #$fa@>]..sec@l]..sbc $d009@B]..calcinyb cmp #$00@R]..beq calc.id@Z]..pha@.]..jsr additi.@.]..pla@.]..tax@.]..dex@.]..txa@.]..jmp calcinyb@.]..calc.id lda #$11@.]..sta $4100@.]@.lda #$03@.]J.sta $4102@G.T.jsr equal@T...lda #$13@".(.sta $4100@/.2.lda #$1f@=.<.sta $4102@k.f.jsr equal@..p.calc. lda #$1e@L.z.sta $4100@Y.D.lda #$01@..N.sta $4101@..X.lda #$10@....sta $4102@....jsr subtract@....lda #$10@....sta $4100@....lda #$17@....sta $4101@....lda #$02@D...sta $4102@U...jsr multiply@"...lda #$1f@0...sta $4100@=...lda #$03@k...sta $4101@x.D.lda #$10@F.N.sta $4102@W.X.jsr subtract@..".lda #$10@..,.sta $4100@..6.lda #$1a@..@.sta $4101@..j.lda #$04@..t.sta $4102@....jsr multiply@..H.jsr m.le@..R.jmp .rolop@A.....$0820@T...m.le lda frac.@!...bne julp@....jmp m.el@@...julp cmp #$02@m...beq njul@[...jmp julia@H...njul pla@P.B.pla@X.L.rts@..V.nosw jmp .rolop@..*.switch lda $d015@..4.. #$f0@..>.cmp #$f0@..h.bne nosw@..r.lda frac.@..£.e. #$01@..F.sta frac.@..P.bne juliasw@KAZ.lda #$20@WA..sta $fc@$A..lda #$60@0A..sta $fe@=A..ldy #$00@iA..sty $fb@uA..sty $fd@LA..swilop lda ($fd),y@.A..sta ($fb),y@.A..iny@.A..bne swilop@.A..inc $fc@.A..inc $fe@.A..lda $fc@.AF.cmp #$41@.AP.bne swilop@.AZ.jmp .rolop@.A$.juliasw lda #$20@CB..sta $fc@PB8.lda #$60@£Bb.sta $fe@)Bl.ldy #$00@5Bv.sty $fb@aB..sty $fd@xBJ.jswlop lda ($fb),y@HBT.sta ($fd),y@PB..iny@.B..bne jswlop@.B..inc $fc@.B..inc $fe@.B..lda $fc@.B..cmp #$41@.B..bne jswlop@.B..inc frac.@.B..jsr zoomin@.B..dec frac.@.B..lda #$01@EC..sta $4100@RC..lda #$09@ C@.sta $4102@.CJ.jsr equal@;CT.lda #$03@iC..sta $4100@wC(.inc $4102@EC2.jsr equal@RC<.lda #$1c@.Cf.sta $4100@.Cp.lda #$1e@.Cz.sta $4102@.CD.jsr equal@.CN.inc $4102@.CX.jsr equal@.C..lda #$0b@.C..sta $4100@.C..lda #$01@.C..sta $4102@ID..jsr equal@VD..lda #$03@$D..sta $4102@2D..jsr equal@@D..jmp calc.@oDJ.box lda xp@£DT.sta xpib@GD..lda yp@TD..sta ypib@.D..lda xpb@.D..sta xpbib@.D..ldx #$3c@.D..stx $07fc@.D..inx@.D..stx $07fd@.D..inx@.D..stx $07fe@.D..inx@.D..stx $07ff@.D..lda $d015@EE@..a #$f0@SEJ.sta $d015@&ET.box. lda click@3E..bne box.@iEX.boxloop lda xpbib@uE..cmp xpb@GE..beq checkfine@XE..bcs lessthan@.E..jmp m.ethan@.E..checkfine lda xpib@.E..cmp xp@.E..bcs lessthan@.E..m.ethan lda xpib@.E..sta $d008@.E..sta $d00c@.E..ldx #$00@GF..lda xpbib@XF..beq noxpbadd@%FD.ldx #$50@<FN.noxpbadd lda $d010@gFX.. #$af@sF".stx $02@[F,.clc@GF6.adc $02@UF@.sta $d010@.Fe.ldx #$00@.Fj.lda xp@.Ft.sec@.F..sbc #$18@.FH.sta $d00a@.FR.sta $d00e@.F..bcc mtsub@.F..ldx xpb@.F..beq mtsub@.F..ldx #$a0@GG..mtsub lda $d010@RG... #$5f@.G..stx $02@&G..clc@2G..adc $02@@G..sta $d010@mG..jmp box.@AG..lessthan lda xp@MG..ldx xpb@ZG..bne .out@.GH.cmp #$58@.GR.bcs .out@.G£.lda #$58@.G&..out sta $d008@.G0.sta $d00c@.G:.cpx #$00@.Gd.beq ltnoadd@.Gn.ldx #$50@BHx.ltnoadd lda $d010@MHB.. #$af@YHL.stx $02@!HV.clc@-H..adc $02@;H..sta $d010@hH..ldx #$00@uH..lda xpib@]H..sec@JH..sbc #$18@XH..sta $d00a@.H..sta $d00e@.H..bcc ltsub@.H..ldx xpbib@.H..beq ltsub@.H..ldx #$a0@.H..ltsub lda $d010@.H... #$5f@.HB.stx $02@.HL.clc@.HV.adc $02@JI .sta $d010@ZI*.box. lda yp@'I4.cmp ypib@5I>.bcc lessy@bIh.lda ypib@pIr.sta $d009@.I£.sta $d00b@IIF.lda yp@QIP.sec@.IZ.sbc #$15@.I..sta $d00d@.I..sta $d00f@.I..jmp box.ii@.I..lessy lda yp@.I..sta $d009@.I..sta $d00b@.I..lda ypib@.I..sec@.I..sbc #$15@FJ..sta $d00d@TJ..sta $d00f@)J..box.ii lda click@6J..bne box.@fJF.jmp boxloop@zJP.box. jmp .rolop@OJ0.boxflash lda $a2@ZJ:.. #$3c@.Jd.lsr a@.Jn.lsr a@.Jx.tax@.JB.lda boxcols,x@.JL.sta $d02b@.JV.sta $d02c@.J..sta $d02d@.J..sta $d02e@.J..jmp $ea31@PK..boxcols txt 0,9,2,8,10,7,13,1@*K..txt 1,13,3,5,14,4,6,0@8K..julia sei@eK8.lda #$01@rKb.sta hour@.Kl.jsr left@LKv.lda #$00@.K..sta ypixel@.KJ.lda #$03@.KT.sta $4100@.K..lda #$06@.K..sta $4102@.K..jsr equal@.K..jmmainl lda #$00@.K..sta xpixel@.K..lda #$01@.K..sta $4100@KL..lda #$05@YL..sta $4102@'L..jsr equal@=L..jmmainlb lda #$05@kL..sta $4100@xL..lda #$07@FL@.sta $4102@TLJ.jsr equal@.LT.inc $4100@.L..inc $4102@.L(.jsr equal@.L2.lda #$00@.L<.sta colour@.Lf.jloop lda #$07@.Lp.sta $4100@.Lz.sta $4101@.LD.lda #$10@DMN.sta $4102@UMX.jsr multiply@"M..lda #$08@0M..sta $4100@>M..sta $4101@kM..lda #$11@yM..sta $4102@JM..jsr multiply@WM..ldx #$10@.M..stx $4100@.M..inx@.M..stx $4101@.M..inx@.M..stx $4102@.M..jsr additi.@.MD.lda $4091@.MN.cmp #$04@.MX.bcc jfail@.M".cmp #$50@EN,.bcs jfail@.N6.jsucpass jmp jsuccess@4N@.jfail inc colour@cNj.lda colour@rNt.cmp maxcol@CN..beq jsucpass@TNH.jsr subtract@.NR.lda #$12@.N..sta $4100@.N..lda #$09@.N..sta $4101@.N..lda #$13@.N..sta $4102@.N..jsr additi.@.N..lda #$07@.N..sta $4100@.N..lda #$08@KO..sta $4101@YO..inc $4102@*O..jsr multiply@7O..lda #$14@eO..sta $4100@sOR.sta $4101@.O£.lda #$15@NO&.sta $4102@.O0.jsr additi.@.O:.lda #$15@.Od.sta $4100@.On.lda #$0a@.Ox.sta $4101@.OB.lda #$16@.OL.sta $4102@.OV.jsr additi.@.O..lda #$13@.O..sta $4100@GP..lda #$07@UP..sta $4102@#P..jsr equal@0P..lda #$16@>P..sta $4100@kP..lda #$08@yP..sta $4102@GP..jsr equal@UP..jmp jloop@.P..jsuccess jsr plot@.P..lda #$05@.PB.sta $4100@.PL.sta $4102@.PV.lda #$02@.P .sta $4101@.P*.jsr additi.@.P4.lda xpixel@.P>.bne jxrelop@KQh.lda #$06@YQr.sta $4100@'Q£.sta $4102@4QF.lda #$04@bQP.sta $4101@rQZ.jsr additi.@AQ..inc ypixel@PQ..lda ypixel@.Q..cmp #$c8@.Q..bne jyrelop@.Q..lda #$00@.Q..sta hour@.Q..jsr right@.Q..cli@.Q..rts@.Q..jxrelop jmp jmmainlb@.Q..jyrelop jmp jmmainl@@@
00000000 0d 08 64 00 ac b2 24 31 30 30 30 00 1e 08 6e 00 |..d...$1000...n.|
00000010 58 50 49 58 45 4c b2 24 34 31 30 33 00 2f 08 78 |XPIXEL.$4103./.x|
00000020 00 59 50 49 58 45 4c b2 24 34 31 30 34 00 40 08 |.YPIXEL.$4104.@.|
00000030 82 00 43 4f 4c 4f 55 52 b2 24 34 31 30 35 00 4f |..COLOUR.$4105.O|
00000040 08 8c 00 59 50 49 42 b2 24 34 31 30 36 00 60 08 |...YPIB.$4106.`.|
00000050 96 00 4d 41 58 43 4f 4c b2 24 34 31 30 37 00 6d |..MAXCOL.$4107.m|
00000060 08 a0 00 58 50 b2 24 34 31 30 38 00 7a 08 aa 00 |...XP.$4108.z...|
00000070 59 50 b2 24 34 31 30 39 00 88 08 b4 00 58 50 42 |YP.$4109.....XPB|
00000080 b2 24 34 31 30 41 00 98 08 be 00 43 4c 49 43 4b |.$410A.....CLICK|
00000090 b2 24 34 31 30 42 00 a7 08 c8 00 48 4f 55 52 b2 |.$410B.....HOUR.|
000000a0 24 34 31 30 43 00 b6 08 d2 00 58 50 49 42 b2 24 |$410C.....XPIB.$|
000000b0 34 31 30 44 00 c6 08 dc 00 58 50 42 49 42 b2 24 |410D.....XPBIB.$|
000000c0 34 31 30 45 00 d5 08 de 00 43 4f 4c 30 b2 24 34 |410E.....COL0.$4|
000000d0 31 30 46 00 e4 08 e0 00 43 4f 4c 31 b2 24 34 31 |10F.....COL1.$41|
000000e0 31 30 00 f3 08 e2 00 43 4f 4c 32 b2 24 34 31 31 |10.....COL2.$411|
000000f0 31 00 02 09 e4 00 43 4f 4c 33 b2 24 34 31 31 32 |1.....COL3.$4112|
00000100 00 12 09 e6 00 43 4f 4c 30 53 b2 24 34 31 31 33 |.....COL0S.$4113|
00000110 00 22 09 e8 00 43 4f 4c 31 53 b2 24 34 31 31 34 |."...COL1S.$4114|
00000120 00 32 09 ea 00 43 4f 4c 32 53 b2 24 34 31 31 35 |.2...COL2S.$4115|
00000130 00 42 09 ec 00 43 4f 4c 33 53 b2 24 34 31 31 36 |.B...COL3S.$4116|
00000140 00 52 09 ee 00 d5 54 49 4d 45 b2 24 34 31 31 37 |.R....TIME.$4117|
00000150 00 62 09 f0 00 53 50 45 45 44 b2 24 34 31 31 38 |.b...SPEED.$4118|
00000160 00 73 09 f2 00 4e 45 47 52 45 47 b2 24 34 31 31 |.s...NEGREG.$411|
00000170 39 00 83 09 f6 00 46 52 41 43 dd b2 24 34 31 31 |9.....FRAC..$411|
00000180 41 00 94 09 22 01 4f 55 54 44 4f 20 b2 24 41 42 |A...".OUTDO .$AB|
00000190 34 37 00 a3 09 23 01 e8 4c 46 53 b2 24 46 46 42 |47...#..LFS.$FFB|
000001a0 41 00 b2 09 24 01 e8 4e 41 4d b2 24 46 46 42 44 |A...$..NAM.$FFBD|
000001b0 00 c1 09 25 01 e4 52 4f 4d b2 24 46 46 44 38 00 |...%..ROM.$FFD8.|
000001c0 d4 09 26 01 50 4c 4f 54 52 52 4f 4d b2 24 45 35 |..&.PLOTRROM.$E5|
000001d0 36 43 00 e1 09 1a 27 4a 53 52 20 49 4e 49 54 00 |6C....'JSR INIT.|
000001e0 f9 09 24 27 43 4f 4d 45 42 41 43 4b 20 4a 53 52 |..$'COMEBACK JSR|
000001f0 20 48 49 52 45 53 91 00 0e 0a 2e 27 9a 52 4f 4c | HIRES.....'.ROL|
00000200 4f 50 20 4c 44 41 20 43 4c 49 43 4b 00 1d 0a 38 |OP LDA CLICK...8|
00000210 27 42 4e 45 20 9a 52 4f 4c 4f 50 00 31 0a 42 27 |'BNE .ROLOP.1.B'|
00000220 9a 4c 4f 50 42 20 4c 44 41 20 43 4c 49 43 4b 00 |.LOPB LDA CLICK.|
00000230 3f 0a 4c 27 42 45 51 20 9a 4c 4f 50 42 00 4b 0a |?.L'BEQ .LOPB.K.|
00000240 56 27 4c 44 41 20 58 50 42 00 57 0a 60 27 42 4e |V'LDA XPB.W.`'BN|
00000250 45 20 42 4f 54 00 62 0a 6a 27 4c 44 41 20 58 50 |E BOT.b.j'LDA XP|
00000260 00 6f 0a 6d 27 43 4d 50 20 23 24 35 38 00 7a 0a |.o.m'CMP #$58.z.|
00000270 70 27 42 43 43 20 9a 9a 00 8a 0a 74 27 42 4f 54 |p'BCC .....t'BOT|
00000280 20 4a 4d 50 20 42 4f 58 00 98 0a 7e 27 9a 9a 20 | JMP BOX...~'.. |
00000290 4c 44 41 20 59 50 00 a5 0a 80 27 43 4d 50 20 23 |LDA YP....'CMP #|
000002a0 24 35 41 00 b4 0a 82 27 42 43 43 20 9a 52 4f 4c |$5A....'BCC .ROL|
000002b0 4f 50 00 bc 0a 88 27 53 45 43 00 c9 0a 92 27 53 |OP....'SEC....'S|
000002c0 42 43 20 23 24 35 41 00 d3 0a 9c 27 4c 53 52 20 |BC #$5A....'LSR |
000002d0 41 00 dd 0a a6 27 4c 53 52 20 41 00 e8 0a b0 27 |A....'LSR A....'|
000002e0 af 20 23 24 46 45 00 f0 0a ba 27 54 41 58 00 01 |. #$FE....'TAX..|
000002f0 0b c4 27 4c 44 41 20 56 45 43 a4 52 53 2c 58 00 |..'LDA VEC.RS,X.|
00000300 0d 0b ce 27 53 54 41 20 24 46 42 00 15 0b d8 27 |...'STA $FB....'|
00000310 49 4e 58 00 26 0b e2 27 4c 44 41 20 56 45 43 a4 |INX.&..'LDA VEC.|
00000320 52 53 2c 58 00 32 0b ec 27 53 54 41 20 24 46 43 |RS,X.2..'STA $FC|
00000330 00 42 0b f6 27 4a 4d 50 20 28 24 30 30 46 42 29 |.B..'JMP ($00FB)|
00000340 00 81 0b 00 28 56 45 43 a4 52 53 20 54 58 54 20 |....(VEC.RS TXT |
00000350 b3 53 57 49 54 43 48 2c b1 53 57 49 54 43 48 2c |.SWITCH,.SWITCH,|
00000360 b3 9a 52 4f 4c 4f 50 2c b1 9a 52 4f 4c 4f 50 2c |..ROLOP,..ROLOP,|
00000370 b3 5a 4f 4f 4d 49 4e 2c b1 5a 4f 4f 4d 49 4e 00 |.ZOOMIN,.ZOOMIN.|
00000380 b7 0b 0a 28 54 58 54 20 b3 9a 52 4f 4c 4f 50 2c |...(TXT ..ROLOP,|
00000390 b1 9a 52 4f 4c 4f 50 2c b3 b9 49 54 49 91 2c b1 |..ROLOP,..ITI.,.|
000003a0 b9 49 54 49 91 2c b3 9a 52 4f 4c 4f 50 2c b1 9a |.ITI.,..ROLOP,..|
000003b0 52 4f 4c 4f 50 00 eb 0b 14 28 54 58 54 20 b3 9a |ROLOP....(TXT ..|
000003c0 52 4f 4c 4f 50 2c b1 9a 52 4f 4c 4f 50 2c b3 43 |ROLOP,..ROLOP,.C|
000003d0 4f 4c 53 2c b1 43 4f 4c 53 2c b3 9a 52 4f 4c 4f |OLS,.COLS,..ROLO|
000003e0 50 2c b1 9a 52 4f 4c 4f 50 00 27 0c 1e 28 54 58 |P,..ROLOP.'..(TX|
000003f0 54 20 b3 43 4f 4c 43 59 43 4c 45 2c b1 43 4f 4c |T .COLCYCLE,.COL|
00000400 43 59 43 4c 45 2c b3 9a 52 4f 4c 4f 50 2c b1 9a |CYCLE,..ROLOP,..|
00000410 52 4f 4c 4f 50 2c b3 4d af 50 4c 4f 54 2c b1 4d |ROLOP,.M.PLOT,.M|
00000420 af 50 4c 4f 54 00 5b 0c 28 28 54 58 54 20 b3 9a |.PLOT.[.((TXT ..|
00000430 52 4f 4c 4f 50 2c b1 9a 52 4f 4c 4f 50 2c b3 9a |ROLOP,..ROLOP,..|
00000440 52 4f 4c 4f 50 2c b1 9a 52 4f 4c 4f 50 2c b3 45 |ROLOP,..ROLOP,.E|
00000450 58 49 54 2c b1 45 58 49 54 00 8f 0c 32 28 54 58 |XIT,.EXIT...2(TX|
00000460 54 20 b3 9a 52 4f 4c 4f 50 2c b1 9a 52 4f 4c 4f |T ..ROLOP,..ROLO|
00000470 50 2c b3 e1 2c b1 e1 2c b3 9a 52 4f 4c 4f 50 2c |P,..,..,..ROLOP,|
00000480 b1 9a 52 4f 4c 4f 50 2c b3 e4 2c b1 e4 00 b7 0c |..ROLOP,..,.....|
00000490 3c 28 54 58 54 20 b3 9a 52 4f 4c 4f 50 2c b1 9a |<(TXT ..ROLOP,..|
000004a0 52 4f 4c 4f 50 2c b3 9a 52 4f 4c 4f 50 2c b1 9a |ROLOP,..ROLOP,..|
000004b0 52 4f 4c 4f 50 00 cd 0c 04 29 45 58 49 54 20 4a |ROLOP....)EXIT J|
000004c0 53 52 20 48 49 52 45 53 4f 46 46 00 da 0c 0e 29 |SR HIRESOFF....)|
000004d0 4c 44 41 20 23 24 39 33 00 e8 0c 18 29 4a 53 52 |LDA #$93....)JSR|
000004e0 20 4f 55 54 44 4f 00 f5 0c 22 29 4c 44 41 20 23 | OUTDO...")LDA #|
000004f0 24 30 35 00 03 0d 2c 29 4a 53 52 20 4f 55 54 44 |$05...,)JSR OUTD|
00000500 4f 00 10 0d 36 29 4c 44 41 20 23 24 30 30 00 1c |O...6)LDA #$00..|
00000510 0d 40 29 53 54 41 20 24 43 36 00 24 0d 4a 29 52 |.@)STA $C6.$.J)R|
00000520 54 53 00 35 0d fe 2e 49 52 51 20 4c 44 41 20 23 |TS.5...IRQ LDA #|
00000530 24 30 30 00 43 0d 08 2f 53 54 41 20 43 4c 49 43 |$00.C../STA CLIC|
00000540 4b 00 4f 0d 12 2f 4c 44 41 20 24 43 35 00 5c 0d |K.O../LDA $C5.\.|
00000550 1c 2f 43 4d 50 20 23 24 30 31 00 6c 0d 26 2f 42 |./CMP #$01.l.&/B|
00000560 4e 45 20 43 91 43 48 45 43 4b 00 7a 0d 30 2f 53 |NE C.CHECK.z.0/S|
00000570 54 41 20 43 4c 49 43 4b 00 8f 0d 3a 2f 43 91 43 |TA CLICK...:/C.C|
00000580 48 45 43 4b 20 43 4d 50 20 23 24 30 43 00 9d 0d |HECK CMP #$0C...|
00000590 44 2f 42 45 51 20 4c 45 46 54 4b 00 ae 0d 4e 2f |D/BEQ LEFTK...N/|
000005a0 4c 4b 43 20 43 4d 50 20 23 24 31 37 00 bd 0d 58 |LKC CMP #$17...X|
000005b0 2f 42 45 51 20 52 49 47 48 54 4b 00 ce 0d 62 2f |/BEQ RIGHTK...b/|
000005c0 52 4b 43 20 43 4d 50 20 23 24 33 32 00 da 0d 6c |RKC CMP #$32...l|
000005d0 2f 42 45 51 20 55 50 4b 00 ec 0d 76 2f 55 50 4b |/BEQ UPK...v/UPK|
000005e0 43 20 43 4d 50 20 23 24 33 37 00 fa 0d 80 2f 42 |C CMP #$37..../B|
000005f0 45 51 20 44 4f 57 4e 4b 00 0c 0e 8a 2f 44 4b 43 |EQ DOWNK..../DKC|
00000600 20 4c 44 41 20 24 44 43 30 30 00 17 0e 9e 2f af | LDA $DC00..../.|
00000610 20 23 24 30 31 00 23 0e a8 2f 42 45 51 20 55 50 | #$01.#../BEQ UP|
00000620 4a 00 35 0e b2 2f 55 4a 43 20 4c 44 41 20 24 44 |J.5../UJC LDA $D|
00000630 43 30 30 00 40 0e bc 2f af 20 23 24 30 32 00 4e |C00.@../. #$02.N|
00000640 0e c6 2f 42 45 51 20 44 4f 57 4e 4a 00 60 0e d0 |../BEQ DOWNJ.`..|
00000650 2f 44 4a 43 20 4c 44 41 20 24 44 43 30 30 00 6b |/DJC LDA $DC00.k|
00000660 0e da 2f af 20 23 24 30 34 00 79 0e e4 2f 42 45 |../. #$04.y../BE|
00000670 51 20 4c 45 46 54 4a 00 8b 0e ee 2f 4c 4a 43 20 |Q LEFTJ..../LJC |
00000680 4c 44 41 20 24 44 43 30 30 00 96 0e f8 2f af 20 |LDA $DC00..../. |
00000690 23 24 30 38 00 a5 0e 02 30 42 45 51 20 52 49 47 |#$08....0BEQ RIG|
000006a0 48 54 4a 00 b7 0e 0c 30 52 4a 43 20 4c 44 41 20 |HTJ....0RJC LDA |
000006b0 24 44 43 30 30 00 c2 0e 16 30 af 20 23 24 31 30 |$DC00....0. #$10|
000006c0 00 ce 0e 20 30 45 b0 20 23 24 31 30 00 db 0e 2a |... 0E. #$10...*|
000006d0 30 42 45 51 20 43 4a 43 48 00 e9 0e 34 30 53 54 |0BEQ CJCH...40ST|
000006e0 41 20 43 4c 49 43 4b 00 ff 0e 3e 30 43 4a 43 48 |A CLICK...>0CJCH|
000006f0 20 4a 4d 50 20 42 4f 58 46 4c 41 53 48 00 12 0f | JMP BOXFLASH...|
00000700 48 30 4c 45 46 54 4b 20 4a 53 52 20 4c 45 46 54 |H0LEFTK JSR LEFT|
00000710 00 1e 0f 52 30 4a 4d 50 20 4c 4b 43 00 33 0f 5c |...R0JMP LKC.3.\|
00000720 30 52 49 47 48 54 4b 20 4a 53 52 20 52 49 47 48 |0RIGHTK JSR RIGH|
00000730 54 00 3f 0f 66 30 4a 4d 50 20 52 4b 43 00 4e 0f |T.?.f0JMP RKC.N.|
00000740 70 30 55 50 4b 20 4a 53 52 20 55 50 00 5b 0f 7a |p0UPK JSR UP.[.z|
00000750 30 4a 4d 50 20 55 50 4b 43 00 6e 0f 84 30 44 4f |0JMP UPKC.n..0DO|
00000760 57 4e 4b 20 4a 53 52 20 44 4f 57 4e 00 7a 0f 8e |WNK JSR DOWN.z..|
00000770 30 4a 4d 50 20 44 4b 43 00 89 0f 98 30 55 50 4a |0JMP DKC....0UPJ|
00000780 20 4a 53 52 20 55 50 00 95 0f a2 30 4a 4d 50 20 | JSR UP....0JMP |
00000790 55 4a 43 00 a8 0f ac 30 44 4f 57 4e 4a 20 4a 53 |UJC....0DOWNJ JS|
000007a0 52 20 44 4f 57 4e 00 b4 0f b6 30 4a 4d 50 20 44 |R DOWN....0JMP D|
000007b0 4a 43 00 c7 0f c0 30 4c 45 46 54 4a 20 4a 53 52 |JC....0LEFTJ JSR|
000007c0 20 4c 45 46 54 00 d3 0f ca 30 4a 4d 50 20 4c 4a | LEFT....0JMP LJ|
000007d0 43 00 e8 0f d4 30 52 49 47 48 54 4a 20 4a 53 52 |C....0RIGHTJ JSR|
000007e0 20 52 49 47 48 54 00 f4 0f de 30 4a 4d 50 20 52 | RIGHT....0JMP R|
000007f0 4a 43 00 04 10 e8 30 4c 45 46 54 20 44 45 43 20 |JC....0LEFT DEC |
00000800 58 50 00 0f 10 f2 30 4c 44 41 20 58 50 00 1c 10 |XP....0LDA XP...|
00000810 fc 30 43 4d 50 20 23 24 46 46 00 28 10 06 31 42 |.0CMP #$FF.(..1B|
00000820 4e 45 20 a8 46 46 00 35 10 10 31 4c 44 59 20 23 |NE .FF.5..1LDY #|
00000830 24 30 30 00 41 10 1a 31 53 54 59 20 58 50 42 00 |$00.A..1STY XPB.|
00000840 51 10 24 31 a8 46 46 20 4c 44 59 20 58 50 42 00 |Q.$1.FF LDY XPB.|
00000850 5d 10 2e 31 42 4e 45 20 46 49 4e 00 6a 10 38 31 |]..1BNE FIN.j.81|
00000860 43 4d 50 20 23 24 31 38 00 76 10 42 31 42 4e 45 |CMP #$18.v.B1BNE|
00000870 20 46 49 4e 00 81 10 4c 31 49 4e 43 20 58 50 00 | FIN...L1INC XP.|
00000880 92 10 56 31 46 49 4e 20 4a 4d 50 20 9a 52 4f 4c |..V1FIN JMP .ROL|
00000890 00 a3 10 60 31 52 49 47 48 54 20 49 4e 43 20 58 |...`1RIGHT INC X|
000008a0 50 00 ae 10 6a 31 4c 44 41 20 58 50 00 ba 10 74 |P...j1LDA XP...t|
000008b0 31 42 4e 45 20 a8 30 30 00 c7 10 7e 31 4c 44 59 |1BNE .00...~1LDY|
000008c0 20 23 24 30 31 00 d3 10 88 31 53 54 59 20 58 50 | #$01....1STY XP|
000008d0 42 00 e3 10 92 31 a8 30 30 20 4c 44 59 20 58 50 |B....1.00 LDY XP|
000008e0 42 00 ef 10 9c 31 42 45 51 20 46 49 4e 00 fc 10 |B....1BEQ FIN...|
000008f0 a6 31 43 4d 50 20 23 24 35 38 00 08 11 b0 31 42 |.1CMP #$58....1B|
00000900 4e 45 20 46 49 4e 00 13 11 ba 31 44 45 43 20 58 |NE FIN....1DEC X|
00000910 50 00 20 11 c4 31 4a 4d 50 20 9a 52 4f 4c 00 2e |P. ..1JMP .ROL..|
00000920 11 ce 31 55 50 20 44 45 43 20 59 50 00 39 11 d8 |..1UP DEC YP.9..|
00000930 31 4c 44 41 20 59 50 00 46 11 e2 31 43 4d 50 20 |1LDA YP.F..1CMP |
00000940 23 24 33 32 00 52 11 ec 31 42 4e 45 20 46 49 4e |#$32.R..1BNE FIN|
00000950 00 5d 11 f6 31 49 4e 43 20 59 50 00 6a 11 00 32 |.]..1INC YP.j..2|
00000960 4a 4d 50 20 9a 52 4f 4c 00 7a 11 0a 32 44 4f 57 |JMP .ROL.z..2DOW|
00000970 4e 20 49 4e 43 20 59 50 00 85 11 14 32 4c 44 41 |N INC YP....2LDA|
00000980 20 59 50 00 92 11 1e 32 43 4d 50 20 23 24 46 38 | YP....2CMP #$F8|
00000990 00 9e 11 28 32 42 4e 45 20 46 49 4e 00 a9 11 32 |...(2BNE FIN...2|
000009a0 32 44 45 43 20 59 50 00 b6 11 3c 32 4a 4d 50 20 |2DEC YP...<2JMP |
000009b0 9a 52 4f 4c 00 c8 11 50 32 9a 52 4f 4c 20 4c 44 |.ROL...P2.ROL LD|
000009c0 41 20 48 4f 55 52 00 d8 11 5a 32 42 45 51 20 4e |A HOUR...Z2BEQ N|
000009d0 48 47 4c 41 53 53 00 e5 11 9a 33 4c 44 58 20 23 |HGLASS....3LDX #|
000009e0 24 33 41 00 f3 11 a4 33 53 54 58 20 24 30 37 46 |$3A....3STX $07F|
000009f0 38 00 fb 11 ae 33 49 4e 58 00 09 12 b8 33 53 54 |8....3INX....3ST|
00000a00 58 20 24 30 37 46 39 00 1c 12 c2 33 4e 48 47 4c |X $07F9....3NHGL|
00000a10 41 53 53 20 4c 44 41 20 58 50 00 2a 12 cc 33 53 |ASS LDA XP.*..3S|
00000a20 54 41 20 24 44 30 30 30 00 38 12 d6 33 53 54 41 |TA $D000.8..3STA|
00000a30 20 24 44 30 30 32 00 43 12 e0 33 4c 44 41 20 59 | $D002.C..3LDA Y|
00000a40 50 00 51 12 ea 33 53 54 41 20 24 44 30 30 31 00 |P.Q..3STA $D001.|
00000a50 5f 12 f4 33 53 54 41 20 24 44 30 30 33 00 6d 12 |_..3STA $D003.m.|
00000a60 fe 33 4c 44 41 20 24 44 30 31 30 00 78 12 08 34 |.3LDA $D010.x..4|
00000a70 af 20 23 24 46 43 00 82 12 12 34 4c 53 52 20 41 |. #$FC....4LSR A|
00000a80 00 8a 12 1c 34 43 4c 43 00 96 12 26 34 41 44 43 |....4CLC...&4ADC|
00000a90 20 58 50 42 00 a0 12 30 34 41 53 4c 20 41 00 a8 | XPB...04ASL A..|
00000aa0 12 3a 34 43 4c 43 00 b4 12 44 34 41 44 43 20 58 |.:4CLC...D4ADC X|
00000ab0 50 42 00 c2 12 4e 34 53 54 41 20 24 44 30 31 30 |PB...N4STA $D010|
00000ac0 00 cf 12 58 34 4c 44 41 20 23 24 30 30 00 dd 12 |...X4LDA #$00...|
00000ad0 62 34 53 54 41 20 24 44 30 32 37 00 ea 12 6c 34 |b4STA $D027...l4|
00000ae0 4c 44 41 20 23 24 30 31 00 f8 12 76 34 53 54 41 |LDA #$01...v4STA|
00000af0 20 24 44 30 32 38 00 06 13 80 34 4c 44 41 20 24 | $D028....4LDA $|
00000b00 44 30 31 35 00 12 13 8a 34 b0 41 20 23 24 30 33 |D015....4.A #$03|
00000b10 00 20 13 94 34 53 54 41 20 24 44 30 31 35 00 2d |. ..4STA $D015.-|
00000b20 13 9e 34 4c 44 41 20 48 4f 55 52 00 3a 13 a8 34 |..4LDA HOUR.:..4|
00000b30 42 4e 45 20 51 54 52 4f 00 47 13 b2 34 4c 44 58 |BNE QTRO.G..4LDX|
00000b40 20 23 24 33 38 00 55 13 bc 34 53 54 58 20 24 30 | #$38.U..4STX $0|
00000b50 37 46 38 00 5d 13 c6 34 49 4e 58 00 6b 13 d0 34 |7F8.]..4INX.k..4|
00000b60 53 54 58 20 24 30 37 46 39 00 78 13 da 34 51 54 |STX $07F9.x..4QT|
00000b70 52 4f 20 52 54 53 00 8a 13 ee 34 49 4e 49 54 20 |RO RTS....4INIT |
00000b80 4c 44 41 20 23 24 30 30 00 98 13 f8 34 53 54 41 |LDA #$00....4STA|
00000b90 20 24 44 30 32 30 00 a6 13 02 35 53 54 41 20 24 | $D020....5STA $|
00000ba0 44 30 32 31 00 b1 13 0c 35 53 54 41 20 58 50 00 |D021....5STA XP.|
00000bb0 be 13 16 35 53 54 41 20 48 4f 55 52 00 cc 13 20 |...5STA HOUR... |
00000bc0 35 53 54 41 20 24 44 30 31 35 00 d9 13 2a 35 4c |5STA $D015...*5L|
00000bd0 44 41 20 23 24 30 31 00 e5 13 34 35 53 54 41 20 |DA #$01...45STA |
00000be0 58 50 42 00 f2 13 3e 35 4c 44 41 20 23 24 38 30 |XPB...>5LDA #$80|
00000bf0 00 fd 13 48 35 53 54 41 20 59 50 00 11 14 52 35 |...H5STA YP...R5|
00000c00 48 49 52 45 53 91 20 4c 44 41 20 23 24 33 42 00 |HIRES. LDA #$3B.|
00000c10 1f 14 5c 35 53 54 41 20 24 44 30 31 31 00 2c 14 |..\5STA $D011.,.|
00000c20 66 35 4c 44 41 20 23 24 44 38 00 3a 14 70 35 53 |f5LDA #$D8.:.p5S|
00000c30 54 41 20 24 44 30 31 36 00 48 14 7a 35 4c 44 41 |TA $D016.H.z5LDA|
00000c40 20 43 4f 4c 30 53 00 55 14 84 35 53 54 41 20 43 | COL0S.U..5STA C|
00000c50 4f 4c 30 00 63 14 8e 35 4c 44 41 20 43 4f 4c 31 |OL0.c..5LDA COL1|
00000c60 53 00 70 14 98 35 53 54 41 20 43 4f 4c 31 00 7e |S.p..5STA COL1.~|
00000c70 14 a2 35 4c 44 41 20 43 4f 4c 32 53 00 8b 14 ac |..5LDA COL2S....|
00000c80 35 53 54 41 20 43 4f 4c 32 00 99 14 b6 35 4c 44 |5STA COL2....5LD|
00000c90 41 20 43 4f 4c 33 53 00 a6 14 c0 35 53 54 41 20 |A COL3S....5STA |
00000ca0 43 4f 4c 33 00 b4 14 ca 35 4a 53 52 20 e8 43 4f |COL3....5JSR .CO|
00000cb0 4c 53 00 c1 14 06 36 4a 53 52 20 4c 45 46 54 00 |LS....6JSR LEFT.|
00000cc0 c9 14 10 36 53 45 49 00 d7 14 1a 36 4c 44 41 20 |...6SEI....6LDA |
00000cd0 23 b3 49 52 51 00 e5 14 24 36 53 54 41 20 24 30 |#.IRQ...$6STA $0|
00000ce0 33 31 34 00 f3 14 2e 36 4c 44 41 20 23 b1 49 52 |314....6LDA #.IR|
00000cf0 51 00 01 15 38 36 53 54 41 20 24 30 33 31 35 00 |Q...86STA $0315.|
00000d00 09 15 42 36 43 4c 49 00 16 15 ba 36 4c 44 41 20 |..B6CLI....6LDA |
00000d10 23 24 31 38 00 24 15 c4 36 53 54 41 20 24 44 30 |#$18.$..6STA $D0|
00000d20 31 38 00 2c 15 34 3a 52 54 53 00 3d 15 52 3a 48 |18.,.4:RTS.=.R:H|
00000d30 49 52 45 53 4f 46 46 20 53 45 49 00 4a 15 5c 3a |IRESOFF SEI.J.\:|
00000d40 4c 44 41 20 23 24 33 31 00 58 15 66 3a 53 54 41 |LDA #$31.X.f:STA|
00000d50 20 24 30 33 31 34 00 65 15 70 3a 4c 44 41 20 23 | $0314.e.p:LDA #|
00000d60 24 45 41 00 73 15 7a 3a 53 54 41 20 24 30 33 31 |$EA.s.z:STA $031|
00000d70 35 00 7b 15 84 3a 43 4c 49 00 88 15 8e 3a 4c 44 |5.{..:CLI....:LD|
00000d80 41 20 23 24 30 30 00 96 15 98 3a 53 54 41 20 24 |A #$00....:STA $|
00000d90 44 30 31 35 00 a4 15 9d 3a 53 54 41 20 24 44 30 |D015....:STA $D0|
00000da0 32 31 00 b1 15 a2 3a 4c 44 41 20 23 24 39 42 00 |21....:LDA #$9B.|
00000db0 bf 15 ac 3a 53 54 41 20 24 44 30 31 31 00 cc 15 |...:STA $D011...|
00000dc0 b6 3a 4c 44 41 20 23 24 43 38 00 da 15 c0 3a 53 |.:LDA #$C8....:S|
00000dd0 54 41 20 24 44 30 31 36 00 e7 15 c3 3a 4c 44 41 |TA $D016....:LDA|
00000de0 20 23 24 31 35 00 f5 15 c6 3a 53 54 41 20 24 44 | #$15....:STA $D|
00000df0 30 31 38 00 fd 15 ca 3a 52 54 53 00 10 16 20 4e |018....:RTS... N|
00000e00 e1 20 4a 53 52 20 48 49 52 45 53 4f 46 46 00 1d |. JSR HIRESOFF..|
00000e10 16 2a 4e 4c 44 41 20 23 24 31 43 00 2b 16 34 4e |.*NLDA #$1C.+.4N|
00000e20 4a 53 52 20 4f 55 54 44 4f 00 38 16 3e 4e 4c 44 |JSR OUTDO.8.>NLD|
00000e30 41 20 23 24 39 33 00 46 16 48 4e 4a 53 52 20 4f |A #$93.F.HNJSR O|
00000e40 55 54 44 4f 00 53 16 52 4e 4c 44 41 20 23 24 30 |UTDO.S.RNLDA #$0|
00000e50 30 00 61 16 5c 4e e1 4c 4f 4f 50 20 50 48 41 00 |0.a.\N.LOOP PHA.|
00000e60 6b 16 66 4e 41 53 4c 20 41 00 75 16 70 4e 41 53 |k.fNASL A.u.pNAS|
00000e70 4c 20 41 00 7d 16 7a 4e 43 4c 43 00 8a 16 84 4e |L A.}.zNCLC....N|
00000e80 41 44 43 20 23 24 34 32 00 96 16 8e 4e 53 54 41 |ADC #$42....NSTA|
00000e90 20 24 46 43 00 a3 16 98 4e 4c 44 59 20 23 24 30 | $FC....NLDY #$0|
00000ea0 30 00 af 16 a2 4e 53 54 59 20 24 46 42 00 bb 16 |0....NSTY $FB...|
00000eb0 ac 4e 53 54 59 20 24 46 44 00 c8 16 b6 4e 4c 44 |.NSTY $FD....NLD|
00000ec0 41 20 23 24 30 34 00 d4 16 c0 4e 53 54 41 20 24 |A #$04....NSTA $|
00000ed0 46 45 00 eb 16 ca 4e e1 4c 4f 4f 50 42 20 4c 44 |FE....N.LOOPB LD|
00000ee0 41 20 28 24 46 42 29 2c 59 00 fb 16 d4 4e 53 54 |A ($FB),Y....NST|
00000ef0 41 20 28 24 46 44 29 2c 59 00 03 17 de 4e 49 4e |A ($FD),Y....NIN|
00000f00 59 00 12 17 e8 4e 42 4e 45 20 e1 4c 4f 4f 50 42 |Y....NBNE .LOOPB|
00000f10 00 1e 17 f2 4e 49 4e 43 20 24 46 43 00 2a 17 fc |....NINC $FC.*..|
00000f20 4e 49 4e 43 20 24 46 45 00 36 17 06 4f 4c 44 41 |NINC $FE.6..OLDA|
00000f30 20 24 46 45 00 43 17 10 4f 43 4d 50 20 23 24 30 | $FE.C..OCMP #$0|
00000f40 38 00 52 17 1a 4f 42 4e 45 20 e1 4c 4f 4f 50 42 |8.R..OBNE .LOOPB|
00000f50 00 61 17 24 4f e1 dc 20 4c 44 41 20 24 43 35 00 |.a.$O.. LDA $C5.|
00000f60 6e 17 2e 4f 43 4d 50 20 23 24 34 30 00 79 17 38 |n..OCMP #$40.y.8|
00000f70 4f 42 4e 45 20 e1 dc 00 89 17 42 4f e1 dc 42 20 |OBNE .....BO..B |
00000f80 4c 44 41 20 24 43 35 00 96 17 4c 4f 43 4d 50 20 |LDA $C5...LOCMP |
00000f90 23 24 34 30 00 a2 17 56 4f 42 45 51 20 e1 dc 42 |#$40...VOBEQ ..B|
00000fa0 00 aa 17 60 4f 54 41 58 00 b2 17 6a 4f 50 4c 41 |...`OTAX...jOPLA|
00000fb0 00 bf 17 74 4f 43 50 58 20 23 24 30 31 00 ce 17 |...tOCPX #$01...|
00000fc0 7e 4f 42 45 51 20 48 4e 4f 4d b0 45 00 db 17 88 |~OBEQ HNOM.E....|
00000fd0 4f 43 50 58 20 23 24 32 38 00 e5 17 92 4f 42 45 |OCPX #$28....OBE|
00000fe0 51 20 82 00 f2 17 9c 4f 43 50 58 20 23 24 32 42 |Q .....OCPX #$2B|
00000ff0 00 ff 17 a6 4f 42 45 51 20 50 52 45 56 00 0c 18 |....OBEQ PREV...|
00001000 b0 4f e1 52 45 54 20 50 48 41 00 18 18 ba 4f 4a |.O.RET PHA....OJ|
00001010 4d 50 20 e1 dc 42 00 30 18 c4 4f 48 4e 4f 4d b0 |MP ..B.0..OHNOM.|
00001020 45 20 4a 4d 50 20 43 4f 4d 45 42 41 43 4b 00 3f |E JMP COMEBACK.?|
00001030 18 ce 4f 82 20 43 4d 50 20 23 24 30 35 00 4c 18 |..O. CMP #$05.L.|
00001040 d8 4f 42 45 51 20 e1 52 45 54 00 54 18 e2 4f 43 |.OBEQ .RET.T..OC|
00001050 4c 43 00 61 18 ec 4f 41 44 43 20 23 24 30 31 00 |LC.a..OADC #$01.|
00001060 6f 18 f6 4f 4a 4d 50 20 e1 4c 4f 4f 50 00 81 18 |o..OJMP .LOOP...|
00001070 00 50 50 52 45 56 20 43 4d 50 20 23 24 30 30 00 |.PPREV CMP #$00.|
00001080 8e 18 0a 50 42 45 51 20 e1 52 45 54 00 96 18 14 |...PBEQ .RET....|
00001090 50 53 45 43 00 a3 18 1e 50 53 42 43 20 23 24 30 |PSEC....PSBC #$0|
000010a0 31 00 b1 18 28 50 4a 4d 50 20 e1 4c 4f 4f 50 00 |1...(PJMP .LOOP.|
000010b0 c4 18 b2 61 a5 41 4d 45 20 54 58 54 20 31 34 37 |...a.AME TXT 147|
000010c0 2c 35 00 da 18 bc 61 54 58 54 20 22 46 49 4c 45 |,5....aTXT "FILE|
000010d0 4e 41 4d 45 3a 22 2c 30 00 01 19 c6 61 a4 52 44 |NAME:",0....a.RD|
000010e0 20 54 58 54 20 31 33 2c 31 33 2c 22 28 54 29 41 | TXT 13,13,"(T)A|
000010f0 50 45 20 4f 52 20 28 44 29 49 53 4b 22 2c 30 00 |PE OR (D)ISK",0.|
00001100 2f 19 d0 61 b9 54 20 54 58 54 20 31 33 2c 31 33 |/..a.T TXT 13,13|
00001110 2c 22 50 4f 53 49 54 49 4f 4e 20 54 41 50 45 20 |,"POSITION TAPE |
00001120 3c 53 50 41 43 45 3e 22 2c 31 33 2c 30 00 5d 19 |<SPACE>",13,0.].|
00001130 da 61 49 4e 53 44 20 54 58 54 20 31 33 2c 31 33 |.aINSD TXT 13,13|
00001140 2c 22 49 4e 53 45 52 54 20 44 49 53 4b 20 3c 53 |,"INSERT DISK <S|
00001150 50 41 43 45 3e 22 2c 31 33 2c 30 00 72 19 e4 61 |PACE>",13,0.r..a|
00001160 50 53 54 52 49 4e 47 20 4c 44 59 20 23 24 30 30 |PSTRING LDY #$00|
00001170 00 8a 19 ee 61 50 53 54 52 4c 4f 50 20 4c 44 41 |....aPSTRLOP LDA|
00001180 20 28 24 46 42 29 2c 59 00 9b 19 f8 61 42 45 51 | ($FB),Y....aBEQ|
00001190 20 50 53 54 52 51 55 49 54 00 a9 19 02 62 4a 53 | PSTRQUIT....bJS|
000011a0 52 20 4f 55 54 44 4f 00 b1 19 07 62 49 4e 59 00 |R OUTDO....bINY.|
000011b0 c1 19 0c 62 4a 4d 50 20 50 53 54 52 4c 4f 50 00 |...bJMP PSTRLOP.|
000011c0 d2 19 16 62 50 53 54 52 51 55 49 54 20 52 54 53 |...bPSTRQUIT RTS|
000011d0 00 e7 19 20 62 91 4f 46 46 20 4c 44 41 20 24 30 |... b.OFF LDA $0|
000011e0 34 30 41 2c 59 00 f3 19 2a 62 45 b0 20 23 24 38 |40A,Y...*bE. #$8|
000011f0 30 00 03 1a 34 62 53 54 41 20 24 30 34 30 41 2c |0...4bSTA $040A,|
00001200 59 00 0b 1a 3e 62 52 54 53 00 1a 1a 48 62 a1 dc |Y...>bRTS...Hb..|
00001210 20 4c 44 41 20 24 43 35 00 27 1a 52 62 43 4d 50 | LDA $C5.'.RbCMP|
00001220 20 23 24 34 30 00 32 1a 5c 62 42 4e 45 20 a1 dc | #$40.2.\bBNE ..|
00001230 00 42 1a 66 62 a1 dc 42 20 4c 44 41 20 24 43 35 |.B.fb..B LDA $C5|
00001240 00 4f 1a 70 62 43 4d 50 20 23 24 34 30 00 5b 1a |.O.pbCMP #$40.[.|
00001250 7a 62 42 45 51 20 a1 dc 42 00 63 1a 84 62 54 41 |zbBEQ ..B.c..bTA|
00001260 58 00 70 1a 8e 62 4c 44 41 20 dc d4 2c 58 00 7b |X.p..bLDA ..,X.{|
00001270 1a 98 62 42 45 51 20 a1 dc 00 83 1a a2 62 52 54 |..bBEQ ......bRT|
00001280 53 00 96 1a ac 62 e4 20 4a 53 52 20 48 49 52 45 |S....b. JSR HIRE|
00001290 53 4f 46 46 00 a3 1a b6 62 4c 44 58 20 23 24 30 |SOFF....bLDX #$0|
000012a0 30 00 b0 1a c0 62 4c 44 41 20 23 24 32 30 00 c6 |0....bLDA #$20..|
000012b0 1a ca 62 a5 41 4d 45 9c 20 53 54 41 20 24 34 31 |..b.AME. STA $41|
000012c0 46 30 2c 58 00 ce 1a d4 62 49 4e 58 00 db 1a de |F0,X....bINX....|
000012d0 62 43 50 58 20 23 24 31 30 00 e9 1a e8 62 42 4e |bCPX #$10....bBN|
000012e0 45 20 a5 41 4d 45 9c 00 f8 1a f2 62 4c 44 41 20 |E .AME.....bLDA |
000012f0 23 b3 a5 41 4d 45 00 04 1b fc 62 53 54 41 20 24 |#..AME....bSTA $|
00001300 46 42 00 13 1b 06 63 4c 44 41 20 23 b1 a5 41 4d |FB....cLDA #..AM|
00001310 45 00 1f 1b 10 63 53 54 41 20 24 46 43 00 2f 1b |E....cSTA $FC./.|
00001320 1a 63 4a 53 52 20 50 53 54 52 49 4e 47 00 3c 1b |.cJSR PSTRING.<.|
00001330 24 63 4c 44 41 20 23 24 30 30 00 44 1b 2e 63 50 |$cLDA #$00.D..cP|
00001340 48 41 00 52 1b 38 63 e4 4c 4f 4f 50 20 54 41 59 |HA.R.8c.LOOP TAY|
00001350 00 5f 1b 3d 63 4a 53 52 20 91 4f 46 46 00 6a 1b |._.=cJSR .OFF.j.|
00001360 42 63 4a 53 52 20 a1 dc 00 72 1b 47 63 50 48 41 |BcJSR ...r.GcPHA|
00001370 00 7f 1b 4c 63 4a 53 52 20 91 4f 46 46 00 87 1b |...LcJSR .OFF...|
00001380 51 63 50 4c 41 00 94 1b 56 63 43 4d 50 20 23 24 |QcPLA...VcCMP #$|
00001390 38 30 00 a3 1b 60 63 42 43 53 20 44 45 43 4f 44 |80...`cBCS DECOD|
000013a0 45 00 ab 1b 6a 63 54 41 59 00 b3 1b 74 63 50 4c |E...jcTAY...tcPL|
000013b0 41 00 bb 1b 7e 63 54 41 58 00 c3 1b 88 63 54 59 |A...~cTAX....cTY|
000013c0 41 00 d3 1b 92 63 53 54 41 20 24 30 34 30 41 2c |A....cSTA $040A,|
000013d0 58 00 e0 1b 9c 63 43 4d 50 20 23 24 32 30 00 ee |X....cCMP #$20..|
000013e0 1b a6 63 42 43 53 20 4e 4f 53 50 43 00 f6 1b b0 |..cBCS NOSPC....|
000013f0 63 43 4c 43 00 03 1c ba 63 41 44 43 20 23 24 34 |cCLC....cADC #$4|
00001400 30 00 19 1c c4 63 4e 4f 53 50 43 20 53 54 41 20 |0....cNOSPC STA |
00001410 24 34 31 46 30 2c 58 00 2b 1c ce 63 49 4e 43 b9 |$41F0,X.+..cINC.|
00001420 20 43 50 58 20 23 24 30 46 00 3a 1c d8 63 42 45 | CPX #$0F.:..cBE|
00001430 51 20 e4 52 45 4c 4f 50 00 42 1c e2 63 49 4e 58 |Q .RELOP.B..cINX|
00001440 00 51 1c ec 63 e4 52 45 4c 4f 50 20 54 58 41 00 |.Q..c.RELOP TXA.|
00001450 59 1c f1 63 50 48 41 00 67 1c f6 63 4a 4d 50 20 |Y..cPHA.g..cJMP |
00001460 e4 4c 4f 4f 50 00 7b 1c 00 64 44 45 43 4f 44 45 |.LOOP.{..dDECODE|
00001470 20 43 4d 50 20 23 24 38 30 00 86 1c 0a 64 42 45 | CMP #$80....dBE|
00001480 51 20 e4 9a 00 93 1c 14 64 43 4d 50 20 23 24 38 |Q ......dCMP #$8|
00001490 31 00 9d 1c 1e 64 42 45 51 20 d1 00 aa 1c 28 64 |1....dBEQ ....(d|
000014a0 43 4d 50 20 23 24 38 32 00 b8 1c 32 64 42 4e 45 |CMP #$82...2dBNE|
000014b0 20 e4 4c 4f 4f 50 00 c0 1c 3c 64 50 4c 41 00 c8 | .LOOP...<dPLA..|
000014c0 1c 46 64 54 41 58 00 d6 1c 50 64 4c 44 41 20 24 |.FdTAX...PdLDA $|
000014d0 30 32 38 44 00 e1 1c 5a 64 af 20 23 24 30 31 00 |028D...Zd. #$01.|
000014e0 ee 1c 64 64 42 45 51 20 49 4e 43 b9 00 00 1d 6e |..ddBEQ INC....n|
000014f0 64 44 45 43 b9 20 43 50 58 20 23 24 30 30 00 0f |dDEC. CPX #$00..|
00001500 1d 78 64 42 45 51 20 e4 52 45 4c 4f 50 00 17 1d |.xdBEQ .RELOP...|
00001510 82 64 44 45 58 00 26 1d 8c 64 4a 4d 50 20 e4 52 |.dDEX.&..dJMP .R|
00001520 45 4c 4f 50 00 30 1d 96 64 d1 20 50 4c 41 00 38 |ELOP.0..d. PLA.8|
00001530 1d a0 64 54 41 58 00 45 1d aa 64 4c 44 41 20 23 |..dTAX.E..dLDA #|
00001540 24 32 30 00 55 1d b4 64 53 54 41 20 24 30 34 30 |$20.U..dSTA $040|
00001550 41 2c 58 00 65 1d be 64 53 54 41 20 24 34 31 46 |A,X.e..dSTA $41F|
00001560 30 2c 58 00 72 1d c8 64 4a 4d 50 20 44 45 43 b9 |0,X.r..dJMP DEC.|
00001570 00 7d 1d d2 64 e4 9a 20 50 4c 41 00 8b 1d d7 64 |.}..d.. PLA....d|
00001580 4c 44 41 20 23 b3 a4 52 44 00 97 1d dc 64 53 54 |LDA #..RD....dST|
00001590 41 20 24 46 42 00 a5 1d e6 64 4c 44 41 20 23 b1 |A $FB....dLDA #.|
000015a0 a4 52 44 00 b1 1d f0 64 53 54 41 20 24 46 43 00 |.RD....dSTA $FC.|
000015b0 c1 1d fa 64 4a 53 52 20 50 53 54 52 49 4e 47 00 |...dJSR PSTRING.|
000015c0 ce 1d 04 65 e3 20 4a 53 52 20 a1 dc 00 db 1d 0e |...e. JSR ......|
000015d0 65 43 4d 50 20 23 24 31 34 00 e9 1d 18 65 42 45 |eCMP #$14....eBE|
000015e0 51 20 54 41 50 45 e4 00 f6 1d 22 65 43 4d 50 20 |Q TAPE...."eCMP |
000015f0 23 24 30 34 00 04 1e 2c 65 42 45 51 20 44 49 53 |#$04...,eBEQ DIS|
00001600 4b e4 00 0e 1e 36 65 4a 4d 50 20 e3 00 21 1e 40 |K....6eJMP ..!.@|
00001610 65 54 41 50 45 e4 20 4c 44 41 20 23 b3 b9 54 00 |eTAPE. LDA #..T.|
00001620 2d 1e 4a 65 53 54 41 20 24 46 42 00 3a 1e 54 65 |-.JeSTA $FB.:.Te|
00001630 4c 44 41 20 23 b1 b9 54 00 46 1e 5e 65 53 54 41 |LDA #..T.F.^eSTA|
00001640 20 24 46 43 00 56 1e 68 65 4a 53 52 20 50 53 54 | $FC.V.heJSR PST|
00001650 52 49 4e 47 00 63 1e 72 65 4c 44 58 20 23 24 30 |RING.c.reLDX #$0|
00001660 31 00 71 1e 7c 65 4a 4d 50 20 54 41 50 45 9a 00 |1.q.|eJMP TAPE..|
00001670 86 1e 86 65 44 49 53 4b e4 20 4c 44 41 20 23 b3 |...eDISK. LDA #.|
00001680 49 4e 53 44 00 92 1e 90 65 53 54 41 20 24 46 42 |INSD....eSTA $FB|
00001690 00 a1 1e 9a 65 4c 44 41 20 23 b1 49 4e 53 44 00 |....eLDA #.INSD.|
000016a0 ad 1e a4 65 53 54 41 20 24 46 43 00 bd 1e ae 65 |...eSTA $FC....e|
000016b0 4a 53 52 20 50 53 54 52 49 4e 47 00 ca 1e b8 65 |JSR PSTRING....e|
000016c0 4c 44 58 20 23 24 30 38 00 dc 1e c2 65 54 41 50 |LDX #$08....eTAP|
000016d0 45 9a 20 4c 44 41 20 24 43 35 00 e9 1e cc 65 43 |E. LDA $C5....eC|
000016e0 4d 50 20 23 24 33 43 00 f7 1e d6 65 42 4e 45 20 |MP #$3C....eBNE |
000016f0 54 41 50 45 9a 00 04 1f e0 65 4c 44 41 20 23 24 |TAPE.....eLDA #$|
00001700 30 31 00 0c 1f ea 65 54 41 59 00 19 1f f4 65 4a |01....eTAY....eJ|
00001710 53 52 20 e8 4c 46 53 00 26 1f fe 65 4c 44 58 20 |SR .LFS.&..eLDX |
00001720 23 24 31 30 00 3c 1f 08 66 a5 41 4d 45 c3 20 4c |#$10.<..f.AME. L|
00001730 44 41 20 24 34 31 45 46 2c 58 00 49 1f 12 66 43 |DA $41EF,X.I..fC|
00001740 4d 50 20 23 24 32 30 00 58 1f 1c 66 42 4e 45 20 |MP #$20.X..fBNE |
00001750 a5 41 4d 45 cb 54 00 60 1f 26 66 44 45 58 00 6f |.AME.T.`.&fDEX.o|
00001760 1f 30 66 42 45 51 20 a5 41 4d 45 cb 54 00 7d 1f |.0fBEQ .AME.T.}.|
00001770 3a 66 4a 4d 50 20 a5 41 4d 45 c3 00 8c 1f 44 66 |:fJMP .AME....Df|
00001780 a5 41 4d 45 cb 54 20 54 58 41 00 99 1f 4e 66 4c |.AME.T TXA...NfL|
00001790 44 58 20 23 24 46 30 00 a6 1f 62 66 4c 44 59 20 |DX #$F0...bfLDY |
000017a0 23 24 34 31 00 b3 1f 6c 66 4a 53 52 20 e8 4e 41 |#$41...lfJSR .NA|
000017b0 4d 00 c0 1f 76 66 4c 44 41 20 23 24 32 30 00 cc |M...vfLDA #$20..|
000017c0 1f 80 66 53 54 41 20 24 46 43 00 d9 1f 8a 66 4c |..fSTA $FC....fL|
000017d0 44 58 20 23 24 30 30 00 e5 1f 94 66 53 54 58 20 |DX #$00....fSTX |
000017e0 24 46 42 00 f2 1f 9e 66 4c 44 59 20 23 24 34 30 |$FB....fLDY #$40|
000017f0 00 ff 1f a8 66 4c 44 41 20 23 24 46 42 00 0c 20 |....fLDA #$FB.. |
00001800 b2 66 4a 53 52 20 e4 52 4f 4d 00 1d 20 bc 66 4a |.fJSR .ROM.. .fJ|
00001810 4d 50 20 43 4f 4d 45 42 41 43 4b 00 34 20 8c 69 |MP COMEBACK.4 .i|
00001820 dc d4 20 54 58 54 20 24 38 31 2c 24 38 30 2c 24 |.. TXT $81,$80,$|
00001830 38 32 00 56 20 96 69 54 58 54 20 30 2c 30 2c 30 |82.V .iTXT 0,0,0|
00001840 2c 30 2c 24 38 33 2c 35 31 2c 32 33 2c 31 2c 35 |,0,$83,51,23,1,5|
00001850 32 2c 32 36 00 7a 20 a0 69 54 58 54 20 31 39 2c |2,26.z .iTXT 19,|
00001860 35 2c 30 2c 35 33 2c 31 38 2c 34 2c 35 34 2c 33 |5,0,53,18,4,54,3|
00001870 2c 36 2c 32 30 2c 32 34 00 9f 20 aa 69 54 58 54 |,6,20,24.. .iTXT|
00001880 20 35 35 2c 32 35 2c 37 2c 35 36 2c 32 2c 38 2c | 55,25,7,56,2,8,|
00001890 32 31 2c 32 32 2c 35 37 2c 39 2c 31 30 00 c5 20 |21,22,57,9,10.. |
000018a0 b4 69 54 58 54 20 34 38 2c 31 33 2c 31 31 2c 31 |.iTXT 48,13,11,1|
000018b0 35 2c 31 34 2c 34 33 2c 31 36 2c 31 32 2c 34 35 |5,14,43,16,12,45|
000018c0 2c 34 36 00 e9 20 be 69 54 58 54 20 30 2c 30 2c |,46.. .iTXT 0,0,|
000018d0 34 34 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 33 |44,0,0,0,0,0,0,3|
000018e0 30 2c 34 37 2c 34 39 00 05 21 c8 69 54 58 54 20 |0,47,49..!.iTXT |
000018f0 33 31 2c 30 2c 35 30 2c 33 32 2c 30 2c 31 37 2c |31,0,50,32,0,17,|
00001900 30 2c 30 00 12 21 3a 75 4d af 45 4c 20 53 45 49 |0,0..!:uM.EL SEI|
00001910 00 1f 21 3c 75 4c 44 41 20 23 24 30 31 00 2c 21 |..!<uLDA #$01.,!|
00001920 3d 75 53 54 41 20 48 4f 55 52 00 39 21 3e 75 4a |=uSTA HOUR.9!>uJ|
00001930 53 52 20 4c 45 46 54 00 46 21 3f 75 4c 44 41 20 |SR LEFT.F!?uLDA |
00001940 23 24 30 30 00 55 21 44 75 53 54 41 20 59 50 49 |#$00.U!DuSTA YPI|
00001950 58 45 4c 00 62 21 4e 75 4c 44 41 20 23 24 30 33 |XEL.b!NuLDA #$03|
00001960 00 70 21 58 75 53 54 41 20 24 34 31 30 30 00 7d |.p!XuSTA $4100.}|
00001970 21 62 75 4c 44 41 20 23 24 30 36 00 8b 21 6c 75 |!buLDA #$06..!lu|
00001980 53 54 41 20 24 34 31 30 32 00 99 21 76 75 4a 53 |STA $4102..!vuJS|
00001990 52 20 45 51 55 41 4c 00 ad 21 80 75 4d 4d 41 49 |R EQUAL..!.uMMAI|
000019a0 4e 4c 20 4c 44 41 20 23 24 30 30 00 bc 21 8a 75 |NL LDA #$00..!.u|
000019b0 53 54 41 20 58 50 49 58 45 4c 00 c9 21 94 75 4c |STA XPIXEL..!.uL|
000019c0 44 41 20 23 24 30 31 00 d7 21 9e 75 53 54 41 20 |DA #$01..!.uSTA |
000019d0 24 34 31 30 30 00 e4 21 a8 75 4c 44 41 20 23 24 |$4100..!.uLDA #$|
000019e0 30 35 00 f2 21 b2 75 53 54 41 20 24 34 31 30 32 |05..!.uSTA $4102|
000019f0 00 00 22 bc 75 4a 53 52 20 45 51 55 41 4c 00 15 |..".uJSR EQUAL..|
00001a00 22 c6 75 4d 4d 41 49 4e 4c 42 20 4c 44 41 20 23 |".uMMAINLB LDA #|
00001a10 24 30 35 00 23 22 d0 75 53 54 41 20 24 34 31 30 |$05.#".uSTA $410|
00001a20 30 00 30 22 da 75 4c 44 41 20 23 24 30 37 00 3e |0.0".uLDA #$07.>|
00001a30 22 e4 75 53 54 41 20 24 34 31 30 32 00 4c 22 ee |".uSTA $4102.L".|
00001a40 75 4a 53 52 20 45 51 55 41 4c 00 5a 22 f8 75 49 |uJSR EQUAL.Z".uI|
00001a50 4e 43 20 24 34 31 30 30 00 68 22 02 76 49 4e 43 |NC $4100.h".vINC|
00001a60 20 24 34 31 30 32 00 76 22 0c 76 4a 53 52 20 45 | $4102.v".vJSR E|
00001a70 51 55 41 4c 00 83 22 16 76 4c 44 41 20 23 24 30 |QUAL..".vLDA #$0|
00001a80 30 00 92 22 20 76 53 54 41 20 43 4f 4c 4f 55 52 |0.." vSTA COLOUR|
00001a90 00 a4 22 2a 76 4c 4f 4f 50 20 4c 44 41 20 23 24 |.."*vLOOP LDA #$|
00001aa0 30 37 00 b2 22 34 76 53 54 41 20 24 34 31 30 30 |07.."4vSTA $4100|
00001ab0 00 c0 22 3e 76 53 54 41 20 24 34 31 30 31 00 cd |..">vSTA $4101..|
00001ac0 22 48 76 4c 44 41 20 23 24 31 30 00 db 22 52 76 |"HvLDA #$10.."Rv|
00001ad0 53 54 41 20 24 34 31 30 32 00 ec 22 5c 76 4a 53 |STA $4102.."\vJS|
00001ae0 52 20 4d 55 4c 54 49 50 4c 59 00 f9 22 66 76 4c |R MULTIPLY.."fvL|
00001af0 44 41 20 23 24 30 38 00 07 23 70 76 53 54 41 20 |DA #$08..#pvSTA |
00001b00 24 34 31 30 30 00 15 23 7a 76 53 54 41 20 24 34 |$4100..#zvSTA $4|
00001b10 31 30 31 00 22 23 84 76 4c 44 41 20 23 24 31 31 |101."#.vLDA #$11|
00001b20 00 30 23 8e 76 53 54 41 20 24 34 31 30 32 00 41 |.0#.vSTA $4102.A|
00001b30 23 98 76 4a 53 52 20 4d 55 4c 54 49 50 4c 59 00 |#.vJSR MULTIPLY.|
00001b40 4e 23 a2 76 4c 44 58 20 23 24 31 30 00 5c 23 ac |N#.vLDX #$10.\#.|
00001b50 76 53 54 58 20 24 34 31 30 30 00 64 23 b6 76 49 |vSTX $4100.d#.vI|
00001b60 4e 58 00 72 23 c0 76 53 54 58 20 24 34 31 30 31 |NX.r#.vSTX $4101|
00001b70 00 7a 23 ca 76 49 4e 58 00 88 23 d4 76 53 54 58 |.z#.vINX..#.vSTX|
00001b80 20 24 34 31 30 32 00 98 23 de 76 4a 53 52 20 41 | $4102..#.vJSR A|
00001b90 44 44 49 54 49 91 00 a6 23 e8 76 4c 44 41 20 24 |DDITI...#.vLDA $|
00001ba0 34 30 39 31 00 b3 23 f2 76 43 4d 50 20 23 24 30 |4091..#.vCMP #$0|
00001bb0 34 00 c0 23 fc 76 42 43 43 20 46 41 49 4c 00 cd |4..#.vBCC FAIL..|
00001bc0 23 06 77 43 4d 50 20 23 24 35 30 00 da 23 10 77 |#.wCMP #$50..#.w|
00001bd0 42 43 53 20 46 41 49 4c 00 f2 23 1a 77 53 55 43 |BCS FAIL..#.wSUC|
00001be0 50 41 53 53 20 4a 4d 50 20 53 55 43 43 45 53 53 |PASS JMP SUCCESS|
00001bf0 00 06 24 24 77 46 41 49 4c 20 49 4e 43 20 43 4f |..$$wFAIL INC CO|
00001c00 4c 4f 55 52 00 15 24 29 77 4c 44 41 20 43 4f 4c |LOUR..$)wLDA COL|
00001c10 4f 55 52 00 24 24 2e 77 43 4d 50 20 4d 41 58 43 |OUR.$$.wCMP MAXC|
00001c20 4f 4c 00 34 24 38 77 42 45 51 20 53 55 43 50 41 |OL.4$8wBEQ SUCPA|
00001c30 53 53 00 45 24 42 77 4a 53 52 20 53 55 42 54 52 |SS.E$BwJSR SUBTR|
00001c40 41 43 54 00 52 24 4c 77 4c 44 41 20 23 24 31 32 |ACT.R$LwLDA #$12|
00001c50 00 60 24 56 77 53 54 41 20 24 34 31 30 30 00 6d |.`$VwSTA $4100.m|
00001c60 24 60 77 4c 44 41 20 23 24 30 35 00 7b 24 6a 77 |$`wLDA #$05.{$jw|
00001c70 53 54 41 20 24 34 31 30 31 00 88 24 74 77 4c 44 |STA $4101..$twLD|
00001c80 41 20 23 24 31 33 00 96 24 7e 77 53 54 41 20 24 |A #$13..$~wSTA $|
00001c90 34 31 30 32 00 a6 24 88 77 4a 53 52 20 41 44 44 |4102..$.wJSR ADD|
00001ca0 49 54 49 91 00 b3 24 92 77 4c 44 41 20 23 24 30 |ITI...$.wLDA #$0|
00001cb0 37 00 c1 24 9c 77 53 54 41 20 24 34 31 30 30 00 |7..$.wSTA $4100.|
00001cc0 ce 24 a6 77 4c 44 41 20 23 24 30 38 00 dc 24 b0 |.$.wLDA #$08..$.|
00001cd0 77 53 54 41 20 24 34 31 30 31 00 ea 24 ba 77 49 |wSTA $4101..$.wI|
00001ce0 4e 43 20 24 34 31 30 32 00 fb 24 c4 77 4a 53 52 |NC $4102..$.wJSR|
00001cf0 20 4d 55 4c 54 49 50 4c 59 00 08 25 ce 77 4c 44 | MULTIPLY..%.wLD|
00001d00 41 20 23 24 31 34 00 16 25 d8 77 53 54 41 20 24 |A #$14..%.wSTA $|
00001d10 34 31 30 30 00 24 25 ec 77 53 54 41 20 24 34 31 |4100.$%.wSTA $41|
00001d20 30 31 00 31 25 f6 77 4c 44 41 20 23 24 31 35 00 |01.1%.wLDA #$15.|
00001d30 3f 25 00 78 53 54 41 20 24 34 31 30 32 00 4f 25 |?%.xSTA $4102.O%|
00001d40 0a 78 4a 53 52 20 41 44 44 49 54 49 91 00 5c 25 |.xJSR ADDITI..\%|
00001d50 14 78 4c 44 41 20 23 24 31 35 00 6a 25 1e 78 53 |.xLDA #$15.j%.xS|
00001d60 54 41 20 24 34 31 30 30 00 77 25 28 78 4c 44 41 |TA $4100.w%(xLDA|
00001d70 20 23 24 30 36 00 85 25 32 78 53 54 41 20 24 34 | #$06..%2xSTA $4|
00001d80 31 30 31 00 92 25 3c 78 4c 44 41 20 23 24 31 36 |101..%<xLDA #$16|
00001d90 00 a0 25 46 78 53 54 41 20 24 34 31 30 32 00 b0 |..%FxSTA $4102..|
00001da0 25 50 78 4a 53 52 20 41 44 44 49 54 49 91 00 bd |%PxJSR ADDITI...|
00001db0 25 5a 78 4c 44 41 20 23 24 31 33 00 cb 25 64 78 |%ZxLDA #$13..%dx|
00001dc0 53 54 41 20 24 34 31 30 30 00 d8 25 6e 78 4c 44 |STA $4100..%nxLD|
00001dd0 41 20 23 24 30 37 00 e6 25 78 78 53 54 41 20 24 |A #$07..%xxSTA $|
00001de0 34 31 30 32 00 f4 25 82 78 4a 53 52 20 45 51 55 |4102..%.xJSR EQU|
00001df0 41 4c 00 01 26 8c 78 4c 44 41 20 23 24 31 36 00 |AL..&.xLDA #$16.|
00001e00 0f 26 96 78 53 54 41 20 24 34 31 30 30 00 1c 26 |.&.xSTA $4100..&|
00001e10 a0 78 4c 44 41 20 23 24 30 38 00 2a 26 aa 78 53 |.xLDA #$08.*&.xS|
00001e20 54 41 20 24 34 31 30 32 00 38 26 b4 78 4a 53 52 |TA $4102.8&.xJSR|
00001e30 20 45 51 55 41 4c 00 45 26 be 78 4a 4d 50 20 4c | EQUAL.E&.xJMP L|
00001e40 4f 4f 50 00 5a 26 c8 78 53 55 43 43 45 53 53 20 |OOP.Z&.xSUCCESS |
00001e50 4a 53 52 20 50 4c 4f 54 00 67 26 d2 78 4c 44 41 |JSR PLOT.g&.xLDA|
00001e60 20 23 24 30 35 00 75 26 dc 78 53 54 41 20 24 34 | #$05.u&.xSTA $4|
00001e70 31 30 30 00 83 26 e6 78 53 54 41 20 24 34 31 30 |100..&.xSTA $410|
00001e80 32 00 90 26 f0 78 4c 44 41 20 23 24 30 32 00 9e |2..&.xLDA #$02..|
00001e90 26 fa 78 53 54 41 20 24 34 31 30 31 00 ae 26 04 |&.xSTA $4101..&.|
00001ea0 79 4a 53 52 20 41 44 44 49 54 49 91 00 bd 26 0e |yJSR ADDITI...&.|
00001eb0 79 4c 44 41 20 58 50 49 58 45 4c 00 cc 26 18 79 |yLDA XPIXEL..&.y|
00001ec0 42 4e 45 20 58 52 45 4c 4f 50 00 d9 26 22 79 4c |BNE XRELOP..&"yL|
00001ed0 44 41 20 23 24 30 36 00 e7 26 2c 79 53 54 41 20 |DA #$06..&,ySTA |
00001ee0 24 34 31 30 30 00 f5 26 36 79 53 54 41 20 24 34 |$4100..&6ySTA $4|
00001ef0 31 30 32 00 02 27 40 79 4c 44 41 20 23 24 30 34 |102..'@yLDA #$04|
00001f00 00 10 27 4a 79 53 54 41 20 24 34 31 30 31 00 20 |..'JySTA $4101. |
00001f10 27 54 79 4a 53 52 20 41 44 44 49 54 49 91 00 2f |'TyJSR ADDITI../|
00001f20 27 5e 79 49 4e 43 20 59 50 49 58 45 4c 00 3e 27 |'^yINC YPIXEL.>'|
00001f30 68 79 4c 44 41 20 59 50 49 58 45 4c 00 4b 27 72 |hyLDA YPIXEL.K'r|
00001f40 79 43 4d 50 20 23 24 43 38 00 5a 27 7c 79 42 4e |yCMP #$C8.Z'|yBN|
00001f50 45 20 59 52 45 4c 4f 50 00 67 27 7e 79 4c 44 41 |E YRELOP.g'~yLDA|
00001f60 20 23 24 30 30 00 74 27 7f 79 53 54 41 20 48 4f | #$00.t'.ySTA HO|
00001f70 55 52 00 82 27 80 79 4a 53 52 20 52 49 47 48 54 |UR..'.yJSR RIGHT|
00001f80 00 8a 27 81 79 43 4c 49 00 92 27 86 79 52 54 53 |..'.yCLI..'.yRTS|
00001f90 00 a9 27 90 79 58 52 45 4c 4f 50 20 4a 4d 50 20 |..'.yXRELOP JMP |
00001fa0 4d 4d 41 49 4e 4c 42 00 bf 27 9a 79 59 52 45 4c |MMAINLB..'.yYREL|
00001fb0 4f 50 20 4a 4d 50 20 4d 4d 41 49 4e 4c 00 d3 27 |OP JMP MMAINL..'|
00001fc0 e0 79 4d af 50 4c 4f 54 20 4a 53 52 20 4d af 4c |.yM.PLOT JSR M.L|
00001fd0 45 00 e2 27 ea 79 4a 4d 50 20 9a 52 4f 4c 4f 50 |E..'.yJMP .ROLOP|
00001fe0 00 f5 27 c2 88 e8 43 4f 4c 53 20 4c 44 41 20 43 |..'...COLS LDA C|
00001ff0 4f 4c 30 00 03 28 cc 88 53 54 41 20 24 44 30 32 |OL0..(..STA $D02|
00002000 31 00 10 28 d6 88 4c 44 59 20 23 24 30 30 00 1c |1..(..LDY #$00..|
00002010 28 e0 88 53 54 59 20 24 46 42 00 29 28 ea 88 4c |(..STY $FB.)(..L|
00002020 44 41 20 23 24 44 38 00 35 28 f4 88 53 54 41 20 |DA #$D8.5(..STA |
00002030 24 46 43 00 42 28 fe 88 4c 44 41 20 43 4f 4c 33 |$FC.B(..LDA COL3|
00002040 00 59 28 08 89 e8 43 4c 4f 50 41 20 53 54 41 20 |.Y(...CLOPA STA |
00002050 28 24 46 42 29 2c 59 00 61 28 12 89 49 4e 59 00 |($FB),Y.a(..INY.|
00002060 70 28 1c 89 42 4e 45 20 e8 43 4c 4f 50 41 00 7c |p(..BNE .CLOPA.||
00002070 28 26 89 49 4e 43 20 24 46 43 00 88 28 30 89 4c |(&.INC $FC..(0.L|
00002080 44 58 20 24 46 43 00 95 28 3a 89 43 50 58 20 23 |DX $FC..(:.CPX #|
00002090 24 44 43 00 a4 28 44 89 42 4e 45 20 e8 43 4c 4f |$DC..(D.BNE .CLO|
000020a0 50 41 00 b1 28 4e 89 4c 44 41 20 23 24 30 34 00 |PA..(N.LDA #$04.|
000020b0 bd 28 58 89 53 54 41 20 24 46 43 00 ca 28 62 89 |.(X.STA $FC..(b.|
000020c0 4c 44 41 20 43 4f 4c 31 00 d4 28 6c 89 41 53 4c |LDA COL1..(l.ASL|
000020d0 20 41 00 de 28 76 89 41 53 4c 20 41 00 e8 28 80 | A..(v.ASL A..(.|
000020e0 89 41 53 4c 20 41 00 f2 28 8a 89 41 53 4c 20 41 |.ASL A..(..ASL A|
000020f0 00 fe 28 94 89 b0 41 20 43 4f 4c 32 00 15 29 9e |..(...A COL2..).|
00002100 89 e8 43 4c 4f 50 42 20 53 54 41 20 28 24 46 42 |..CLOPB STA ($FB|
00002110 29 2c 59 00 1d 29 a8 89 49 4e 59 00 2c 29 b2 89 |),Y..)..INY.,)..|
00002120 42 45 51 20 e8 43 4c 4f 50 43 00 39 29 bc 89 43 |BEQ .CLOPC.9)..C|
00002130 50 59 20 23 24 46 38 00 48 29 c6 89 42 4e 45 20 |PY #$F8.H)..BNE |
00002140 e8 43 4c 4f 50 42 00 54 29 d0 89 4c 44 58 20 24 |.CLOPB.T)..LDX $|
00002150 46 43 00 61 29 da 89 43 50 58 20 23 24 30 37 00 |FC.a)..CPX #$07.|
00002160 70 29 e4 89 42 4e 45 20 e8 43 4c 4f 50 42 00 78 |p)..BNE .CLOPB.x|
00002170 29 ee 89 52 54 53 00 8b 29 f8 89 e8 43 4c 4f 50 |)..RTS..)...CLOP|
00002180 43 20 49 4e 43 20 24 46 43 00 9a 29 02 8a 4a 4d |C INC $FC..)..JM|
00002190 50 20 e8 43 4c 4f 50 42 00 ae 29 0c 8a 43 4f 4c |P .CLOPB..)..COL|
000021a0 43 92 20 4c 44 41 20 d5 54 49 4d 45 00 b6 29 16 |C. LDA .TIME..).|
000021b0 8a 43 4c 43 00 c4 29 20 8a 41 44 43 20 53 50 45 |.CLC..) .ADC SPE|
000021c0 45 44 00 d2 29 2a 8a 53 54 41 20 d5 54 49 4d 45 |ED..)*.STA .TIME|
000021d0 00 e6 29 34 8a 43 4f 4c 43 4c 4f 50 20 43 4d 50 |..)4.COLCLOP CMP|
000021e0 20 24 41 32 00 f6 29 3e 8a 42 4e 45 20 43 4f 4c | $A2..)>.BNE COL|
000021f0 43 4c 4f 50 00 fe 29 48 8a 52 54 53 00 11 2a 52 |CLOP..)H.RTS..*R|
00002200 8a 43 4f 4c 43 dc 53 20 4c 44 41 20 24 43 35 00 |.COLC.S LDA $C5.|
00002210 1e 2a 5c 8a 43 4d 50 20 23 24 32 38 00 2b 2a 66 |.*\.CMP #$28.+*f|
00002220 8a 42 45 51 20 53 50 55 50 00 38 2a 70 8a 43 4d |.BEQ SPUP.8*p.CM|
00002230 50 20 23 24 32 42 00 45 2a 7a 8a 42 45 51 20 53 |P #$2B.E*z.BEQ S|
00002240 4c 44 4e 00 52 2a 84 8a 43 4d 50 20 23 24 30 31 |LDN.R*..CMP #$01|
00002250 00 62 2a 8e 8a 42 45 51 20 43 4f 4c 43 4f 46 46 |.b*..BEQ COLCOFF|
00002260 00 6e 2a 98 8a 4e 4f dc 20 52 54 53 00 7e 2a a2 |.n*..NO. RTS.~*.|
00002270 8a 43 4f 4c 43 4f 46 46 20 50 4c 41 00 86 2a ac |.COLCOFF PLA..*.|
00002280 8a 50 4c 41 00 97 2a b6 8a 4a 4d 50 20 43 4f 4d |.PLA..*..JMP COM|
00002290 45 42 41 43 4b 00 aa 2a c0 8a 53 50 55 50 20 4c |EBACK..*..SPUP L|
000022a0 44 41 20 53 50 45 45 44 00 b7 2a c5 8a 43 4d 50 |DA SPEED..*..CMP|
000022b0 20 23 24 30 33 00 c3 2a ca 8a 42 45 51 20 4e 4f | #$03..*..BEQ NO|
000022c0 dc 00 d1 2a d4 8a 44 45 43 20 53 50 45 45 44 00 |...*..DEC SPEED.|
000022d0 d9 2a de 8a 52 54 53 00 ec 2a e8 8a 53 4c 44 4e |.*..RTS..*..SLDN|
000022e0 20 4c 44 41 20 53 50 45 45 44 00 f9 2a f2 8a 43 | LDA SPEED..*..C|
000022f0 4d 50 20 23 24 31 39 00 05 2b fc 8a 42 45 51 20 |MP #$19..+..BEQ |
00002300 4e 4f dc 00 13 2b 06 8b 49 4e 43 20 53 50 45 45 |NO...+..INC SPEE|
00002310 44 00 1b 2b 10 8b 52 54 53 00 30 2b 1a 8b 43 4f |D..+..RTS.0+..CO|
00002320 4c 43 59 43 4c 45 20 4c 44 41 20 24 43 35 00 3d |LCYCLE LDA $C5.=|
00002330 2b 1c 8b 43 4d 50 20 23 24 34 30 00 4e 2b 1e 8b |+..CMP #$40.N+..|
00002340 42 4e 45 20 43 4f 4c 43 59 43 4c 45 00 5b 2b 20 |BNE COLCYCLE.[+ |
00002350 8b 4c 44 41 20 23 24 30 41 00 69 2b 24 8b 53 54 |.LDA #$0A.i+$.ST|
00002360 41 20 53 50 45 45 44 00 75 2b 2e 8b 4c 44 41 20 |A SPEED.u+..LDA |
00002370 24 41 32 00 83 2b 38 8b 53 54 41 20 d5 54 49 4d |$A2..+8.STA .TIM|
00002380 45 00 9b 2b 42 8b 43 4f 4c 43 59 43 4c 4f 50 20 |E..+B.COLCYCLOP |
00002390 4c 44 41 20 43 4f 4c 30 53 00 a8 2b 4c 8b 53 54 |LDA COL0S..+L.ST|
000023a0 41 20 43 4f 4c 30 00 b6 2b 56 8b 4c 44 41 20 43 |A COL0..+V.LDA C|
000023b0 4f 4c 31 53 00 c3 2b 60 8b 53 54 41 20 43 4f 4c |OL1S..+`.STA COL|
000023c0 31 00 d1 2b 6a 8b 4c 44 41 20 43 4f 4c 32 53 00 |1..+j.LDA COL2S.|
000023d0 de 2b 74 8b 53 54 41 20 43 4f 4c 32 00 ec 2b 7e |.+t.STA COL2..+~|
000023e0 8b 4c 44 41 20 43 4f 4c 33 53 00 f9 2b 88 8b 53 |.LDA COL3S..+..S|
000023f0 54 41 20 43 4f 4c 33 00 07 2c 92 8b 4a 53 52 20 |TA COL3..,..JSR |
00002400 e8 43 4f 4c 53 00 16 2c 9c 8b 4a 53 52 20 43 4f |.COLS..,..JSR CO|
00002410 4c 43 dc 53 00 24 2c a6 8b 4a 53 52 20 43 4f 4c |LC.S.$,..JSR COL|
00002420 43 92 00 32 2c b0 8b 4c 44 41 20 43 4f 4c 33 53 |C..2,..LDA COL3S|
00002430 00 3f 2c ba 8b 53 54 41 20 43 4f 4c 30 00 4d 2c |.?,..STA COL0.M,|
00002440 c4 8b 4c 44 41 20 43 4f 4c 30 53 00 5a 2c ce 8b |..LDA COL0S.Z,..|
00002450 53 54 41 20 43 4f 4c 31 00 68 2c d8 8b 4c 44 41 |STA COL1.h,..LDA|
00002460 20 43 4f 4c 31 53 00 75 2c e2 8b 53 54 41 20 43 | COL1S.u,..STA C|
00002470 4f 4c 32 00 83 2c ec 8b 4c 44 41 20 43 4f 4c 32 |OL2..,..LDA COL2|
00002480 53 00 90 2c f6 8b 53 54 41 20 43 4f 4c 33 00 9e |S..,..STA COL3..|
00002490 2c 00 8c 4a 53 52 20 e8 43 4f 4c 53 00 ad 2c 0a |,..JSR .COLS..,.|
000024a0 8c 4a 53 52 20 43 4f 4c 43 dc 53 00 bb 2c 14 8c |.JSR COLC.S..,..|
000024b0 4a 53 52 20 43 4f 4c 43 92 00 c9 2c 1e 8c 4c 44 |JSR COLC...,..LD|
000024c0 41 20 43 4f 4c 32 53 00 d6 2c 28 8c 53 54 41 20 |A COL2S..,(.STA |
000024d0 43 4f 4c 30 00 e4 2c 32 8c 4c 44 41 20 43 4f 4c |COL0..,2.LDA COL|
000024e0 33 53 00 f1 2c 3c 8c 53 54 41 20 43 4f 4c 31 00 |3S..,<.STA COL1.|
000024f0 ff 2c 46 8c 4c 44 41 20 43 4f 4c 30 53 00 0c 2d |.,F.LDA COL0S..-|
00002500 50 8c 53 54 41 20 43 4f 4c 32 00 1a 2d 5a 8c 4c |P.STA COL2..-Z.L|
00002510 44 41 20 43 4f 4c 31 53 00 27 2d 64 8c 53 54 41 |DA COL1S.'-d.STA|
00002520 20 43 4f 4c 33 00 35 2d 6e 8c 4a 53 52 20 e8 43 | COL3.5-n.JSR .C|
00002530 4f 4c 53 00 44 2d 78 8c 4a 53 52 20 43 4f 4c 43 |OLS.D-x.JSR COLC|
00002540 dc 53 00 52 2d 82 8c 4a 53 52 20 43 4f 4c 43 92 |.S.R-..JSR COLC.|
00002550 00 60 2d 8c 8c 4c 44 41 20 43 4f 4c 31 53 00 6d |.`-..LDA COL1S.m|
00002560 2d 96 8c 53 54 41 20 43 4f 4c 30 00 7b 2d a0 8c |-..STA COL0.{-..|
00002570 4c 44 41 20 43 4f 4c 32 53 00 88 2d aa 8c 53 54 |LDA COL2S..-..ST|
00002580 41 20 43 4f 4c 31 00 96 2d b4 8c 4c 44 41 20 43 |A COL1..-..LDA C|
00002590 4f 4c 33 53 00 a3 2d be 8c 53 54 41 20 43 4f 4c |OL3S..-..STA COL|
000025a0 32 00 b1 2d c8 8c 4c 44 41 20 43 4f 4c 30 53 00 |2..-..LDA COL0S.|
000025b0 be 2d d2 8c 53 54 41 20 43 4f 4c 33 00 cc 2d dc |.-..STA COL3..-.|
000025c0 8c 4a 53 52 20 e8 43 4f 4c 53 00 db 2d e6 8c 4a |.JSR .COLS..-..J|
000025d0 53 52 20 43 4f 4c 43 dc 53 00 e9 2d f0 8c 4a 53 |SR COLC.S..-..JS|
000025e0 52 20 43 4f 4c 43 92 00 fb 2d fa 8c 4a 4d 50 20 |R COLC...-..JMP |
000025f0 43 4f 4c 43 59 43 4c 4f 50 00 10 2e 04 8d 49 54 |COLCYCLOP.....IT|
00002600 45 52 99 20 4c 44 41 20 4d 41 58 43 4f 4c 00 1b |ER. LDA MAXCOL..|
00002610 2e 0e 8d af 20 23 24 46 30 00 25 2e 18 8d 4c 53 |.... #$F0.%...LS|
00002620 52 20 41 00 2f 2e 22 8d 4c 53 52 20 41 00 39 2e |R A./.".LSR A.9.|
00002630 2c 8d 4c 53 52 20 41 00 43 2e 36 8d 4c 53 52 20 |,.LSR A.C.6.LSR |
00002640 41 00 50 2e 40 8d 43 4d 50 20 23 24 30 41 00 5e |A.P.@.CMP #$0A.^|
00002650 2e 4a 8d 42 43 43 20 49 54 41 44 44 00 66 2e 54 |.J.BCC ITADD.f.T|
00002660 8d 53 45 43 00 73 2e 5e 8d 53 42 43 20 23 24 33 |.SEC.s.^.SBC #$3|
00002670 39 00 81 2e 68 8d 49 54 41 44 44 20 43 4c 43 00 |9...h.ITADD CLC.|
00002680 8e 2e 72 8d 41 44 43 20 23 24 33 30 00 9c 2e 7c |..r.ADC #$30...||
00002690 8d 53 54 41 20 24 30 35 30 35 00 ab 2e 86 8d 4c |.STA $0505.....L|
000026a0 44 41 20 4d 41 58 43 4f 4c 00 b6 2e 90 8d af 20 |DA MAXCOL...... |
000026b0 23 24 30 46 00 c3 2e 9a 8d 43 4d 50 20 23 24 30 |#$0F.....CMP #$0|
000026c0 41 00 d3 2e a4 8d 42 43 43 20 4e 4f 41 44 44 49 |A.....BCC NOADDI|
000026d0 54 00 db 2e ae 8d 53 45 43 00 e8 2e b8 8d 53 42 |T.....SEC.....SB|
000026e0 43 20 23 24 33 39 00 f8 2e c2 8d 4e 4f 41 44 44 |C #$39.....NOADD|
000026f0 49 54 20 43 4c 43 00 05 2f cc 8d 41 44 43 20 23 |IT CLC../..ADC #|
00002700 24 33 30 00 13 2f d6 8d 53 54 41 20 24 30 35 30 |$30../..STA $050|
00002710 36 00 1b 2f e0 8d 52 54 53 00 43 2f ea 8d 43 4f |6../..RTS.C/..CO|
00002720 4c 54 45 58 54 20 54 58 54 20 31 34 37 2c 35 2c |LTEXT TXT 147,5,|
00002730 22 b0 c3 ae b0 c3 ae b0 c3 ae b0 c3 ae 22 2c 31 |"............",1|
00002740 33 00 77 2f f4 8d 54 58 54 20 22 c2 12 20 92 c2 |3.w/..TXT ".. ..|
00002750 c2 12 20 92 c2 c2 12 20 92 c2 c2 12 20 92 c2 20 |.. .... .... .. |
00002760 3c 2d 20 53 43 52 45 45 4e 20 43 4f 4c 4f 55 52 |<- SCREEN COLOUR|
00002770 53 22 2c 31 33 00 91 2f fe 8d 54 58 54 20 22 ad |S",13../..TXT ".|
00002780 c3 bd ad c3 bd ad c3 bd ad c3 bd 22 2c 31 33 00 |...........",13.|
00002790 b0 2f 08 8e 54 58 54 20 22 20 31 20 20 32 20 20 |./..TXT " 1 2 |
000027a0 33 20 20 34 22 2c 31 33 2c 31 33 2c 31 33 00 d4 |3 4",13,13,13..|
000027b0 2f 12 8e 54 58 54 20 22 4d 41 58 49 4d 55 4d 20 |/..TXT "MAXIMUM |
000027c0 49 54 45 52 41 54 49 4f 4e 53 3a 20 24 24 24 22 |ITERATIONS: $$$"|
000027d0 2c 30 00 ea 2f 1c 8e 43 4f 4c 53 20 4a 53 52 20 |,0../..COLS JSR |
000027e0 48 49 52 45 53 4f 46 46 00 fc 2f 26 8e 4c 44 41 |HIRESOFF../&.LDA|
000027f0 20 23 b3 43 4f 4c 54 45 58 54 00 08 30 30 8e 53 | #.COLTEXT..00.S|
00002800 54 41 20 24 46 42 00 1a 30 3a 8e 4c 44 41 20 23 |TA $FB..0:.LDA #|
00002810 b1 43 4f 4c 54 45 58 54 00 26 30 44 8e 53 54 41 |.COLTEXT.&0D.STA|
00002820 20 24 46 43 00 36 30 4e 8e 4a 53 52 20 50 53 54 | $FC.60N.JSR PST|
00002830 52 49 4e 47 00 44 30 58 8e 4c 44 41 20 43 4f 4c |RING.D0X.LDA COL|
00002840 30 53 00 52 30 62 8e 53 54 41 20 24 44 38 32 39 |0S.R0b.STA $D829|
00002850 00 60 30 6c 8e 4c 44 41 20 43 4f 4c 31 53 00 6e |.`0l.LDA COL1S.n|
00002860 30 76 8e 53 54 41 20 24 44 38 32 43 00 7c 30 80 |0v.STA $D82C.|0.|
00002870 8e 4c 44 41 20 43 4f 4c 32 53 00 8a 30 8a 8e 53 |.LDA COL2S..0..S|
00002880 54 41 20 24 44 38 32 46 00 98 30 94 8e 4c 44 41 |TA $D82F..0..LDA|
00002890 20 43 4f 4c 33 53 00 a6 30 9e 8e 53 54 41 20 24 | COL3S..0..STA $|
000028a0 44 38 33 32 00 b4 30 a8 8e 4a 53 52 20 49 54 45 |D832..0..JSR ITE|
000028b0 52 99 00 c8 30 b2 8e 43 4f 4c 4c 4f 4f 50 4b 20 |R...0..COLLOOPK |
000028c0 4a 53 52 20 a1 dc 00 d5 30 bc 8e 43 4d 50 20 23 |JSR ....0..CMP #|
000028d0 24 38 30 00 e5 30 c6 8e 42 45 51 20 43 4f 4c 51 |$80..0..BEQ COLQ|
000028e0 55 49 54 00 f2 30 d0 8e 43 4d 50 20 23 24 33 31 |UIT..0..CMP #$31|
000028f0 00 02 31 da 8e 42 45 51 20 43 4f 4c 31 41 44 44 |..1..BEQ COL1ADD|
00002900 00 0f 31 e4 8e 43 4d 50 20 23 24 33 32 00 1f 31 |..1..CMP #$32..1|
00002910 ee 8e 42 45 51 20 43 4f 4c 32 41 44 44 00 2c 31 |..BEQ COL2ADD.,1|
00002920 f8 8e 43 4d 50 20 23 24 33 33 00 3c 31 02 8f 42 |..CMP #$33.<1..B|
00002930 45 51 20 43 4f 4c 33 41 44 44 00 49 31 0c 8f 43 |EQ COL3ADD.I1..C|
00002940 4d 50 20 23 24 33 34 00 59 31 16 8f 42 45 51 20 |MP #$34.Y1..BEQ |
00002950 43 4f 4c 34 41 44 44 00 66 31 20 8f 43 4d 50 20 |COL4ADD.f1 .CMP |
00002960 23 24 32 42 00 77 31 2a 8f 42 45 51 20 49 54 45 |#$2B.w1*.BEQ ITE|
00002970 52 50 4c 55 53 00 84 31 34 8f 43 4d 50 20 23 24 |RPLUS..14.CMP #$|
00002980 32 44 00 95 31 3e 8f 42 4e 45 20 43 4f 4c 4c 4f |2D..1>.BNE COLLO|
00002990 4f 50 4b 00 a4 31 48 8f 44 45 43 20 4d 41 58 43 |OPK..1H.DEC MAXC|
000029a0 4f 4c 00 b2 31 52 8f 4a 53 52 20 49 54 45 52 99 |OL..1R.JSR ITER.|
000029b0 00 c3 31 5c 8f 4a 4d 50 20 43 4f 4c 4c 4f 4f 50 |..1\.JMP COLLOOP|
000029c0 4b 00 db 31 66 8f 49 54 45 52 50 4c 55 53 20 49 |K..1f.ITERPLUS I|
000029d0 4e 43 20 4d 41 58 43 4f 4c 00 e9 31 70 8f 4a 53 |NC MAXCOL..1p.JS|
000029e0 52 20 49 54 45 52 99 00 fa 31 7a 8f 4a 4d 50 20 |R ITER...1z.JMP |
000029f0 43 4f 4c 4c 4f 4f 50 4b 00 13 32 84 8f 43 4f 4c |COLLOOPK..2..COL|
00002a00 51 55 49 54 20 4a 4d 50 20 43 4f 4d 45 42 41 43 |QUIT JMP COMEBAC|
00002a10 4b 00 29 32 8e 8f 43 4f 4c 31 41 44 44 20 49 4e |K.)2..COL1ADD IN|
00002a20 43 20 43 4f 4c 30 53 00 37 32 98 8f 4c 44 41 20 |C COL0S.72..LDA |
00002a30 43 4f 4c 30 53 00 42 32 a2 8f af 20 23 24 30 46 |COL0S.B2... #$0F|
00002a40 00 50 32 ac 8f 53 54 41 20 43 4f 4c 30 53 00 5e |.P2..STA COL0S.^|
00002a50 32 b6 8f 53 54 41 20 24 44 38 32 39 00 6f 32 c0 |2..STA $D829.o2.|
00002a60 8f 4a 4d 50 20 43 4f 4c 4c 4f 4f 50 4b 00 85 32 |.JMP COLLOOPK..2|
00002a70 ca 8f 43 4f 4c 32 41 44 44 20 49 4e 43 20 43 4f |..COL2ADD INC CO|
00002a80 4c 31 53 00 93 32 d4 8f 4c 44 41 20 43 4f 4c 31 |L1S..2..LDA COL1|
00002a90 53 00 9e 32 de 8f af 20 23 24 30 46 00 ac 32 e8 |S..2... #$0F..2.|
00002aa0 8f 53 54 41 20 43 4f 4c 31 53 00 ba 32 f2 8f 53 |.STA COL1S..2..S|
00002ab0 54 41 20 24 44 38 32 43 00 cb 32 fc 8f 4a 4d 50 |TA $D82C..2..JMP|
00002ac0 20 43 4f 4c 4c 4f 4f 50 4b 00 e1 32 06 90 43 4f | COLLOOPK..2..CO|
00002ad0 4c 33 41 44 44 20 49 4e 43 20 43 4f 4c 32 53 00 |L3ADD INC COL2S.|
00002ae0 ef 32 10 90 4c 44 41 20 43 4f 4c 32 53 00 fa 32 |.2..LDA COL2S..2|
00002af0 1a 90 af 20 23 24 30 46 00 08 33 24 90 53 54 41 |... #$0F..3$.STA|
00002b00 20 43 4f 4c 32 53 00 16 33 2e 90 53 54 41 20 24 | COL2S..3..STA $|
00002b10 44 38 32 46 00 27 33 38 90 4a 4d 50 20 43 4f 4c |D82F.'38.JMP COL|
00002b20 4c 4f 4f 50 4b 00 3d 33 42 90 43 4f 4c 34 41 44 |LOOPK.=3B.COL4AD|
00002b30 44 20 49 4e 43 20 43 4f 4c 33 53 00 4b 33 4c 90 |D INC COL3S.K3L.|
00002b40 4c 44 41 20 43 4f 4c 33 53 00 56 33 56 90 af 20 |LDA COL3S.V3V.. |
00002b50 23 24 30 46 00 64 33 60 90 53 54 41 20 43 4f 4c |#$0F.d3`.STA COL|
00002b60 33 53 00 72 33 6a 90 53 54 41 20 24 44 38 33 32 |3S.r3j.STA $D832|
00002b70 00 83 33 74 90 4a 4d 50 20 43 4f 4c 4c 4f 4f 50 |..3t.JMP COLLOOP|
00002b80 4b 00 92 33 4a 9c a1 44 49 47 49 54 20 43 4c 44 |K..3J..DIGIT CLD|
00002b90 00 9c 33 54 9c 41 53 4c 20 41 00 a6 33 5e 9c 41 |..3T.ASL A..3^.A|
00002ba0 53 4c 20 41 00 b0 33 68 9c 41 53 4c 20 41 00 bc |SL A..3h.ASL A..|
00002bb0 33 72 9c 53 54 41 20 24 30 32 00 c4 33 7c 9c 54 |3r.STA $02..3|.T|
00002bc0 58 41 00 ce 33 86 9c 4c 53 52 20 41 00 da 33 90 |XA..3..LSR A..3.|
00002bd0 9c 53 54 41 20 24 32 34 00 e7 33 9a 9c 4c 44 41 |.STA $24..3..LDA|
00002be0 20 23 24 30 37 00 ef 33 a4 9c 53 45 43 00 fb 33 | #$07..3..SEC..3|
00002bf0 ae 9c 53 42 43 20 24 32 34 00 03 34 b8 9c 43 4c |..SBC $24..4..CL|
00002c00 43 00 0f 34 c2 9c 41 44 43 20 24 30 32 00 17 34 |C..4..ADC $02..4|
00002c10 cc 9c 54 41 59 00 27 34 d6 9c 4c 44 41 20 24 34 |..TAY.'4..LDA $4|
00002c20 30 30 30 2c 59 00 2f 34 e0 9c 54 41 59 00 37 34 |000,Y./4..TAY.74|
00002c30 ea 9c 54 58 41 00 42 34 f4 9c af 20 23 24 30 31 |..TXA.B4... #$01|
00002c40 00 50 34 fe 9c 42 45 51 20 4c 53 4e 47 44 00 58 |.P4..BEQ LSNGD.X|
00002c50 34 08 9d 54 59 41 00 63 34 12 9d af 20 23 24 46 |4..TYA.c4... #$F|
00002c60 30 00 6d 34 1c 9d 4c 53 52 20 41 00 77 34 26 9d |0.m4..LSR A.w4&.|
00002c70 4c 53 52 20 41 00 81 34 30 9d 4c 53 52 20 41 00 |LSR A..40.LSR A.|
00002c80 8b 34 3a 9d 4c 53 52 20 41 00 93 34 44 9d 52 54 |.4:.LSR A..4D.RT|
00002c90 53 00 a1 34 4e 9d 4c 53 4e 47 44 20 54 59 41 00 |S..4N.LSNGD TYA.|
00002ca0 ac 34 58 9d af 20 23 24 30 46 00 b4 34 62 9d 52 |.4X.. #$0F..4b.R|
00002cb0 54 53 00 cf 34 6c 9d 4d 55 4c 54 49 50 4c 59 42 |TS..4l.MULTIPLYB|
00002cc0 20 4a 53 52 20 4e 45 47 41 54 49 56 45 00 dd 34 | JSR NEGATIVE..4|
00002cd0 71 9d 4c 44 41 20 24 34 31 30 32 00 e7 34 76 9d |q.LDA $4102..4v.|
00002ce0 41 53 4c 20 41 00 f1 34 80 9d 41 53 4c 20 41 00 |ASL A..4..ASL A.|
00002cf0 fb 34 8a 9d 41 53 4c 20 41 00 03 35 94 9d 54 41 |.4..ASL A..5..TA|
00002d00 58 00 10 35 9e 9d 4c 44 41 20 23 24 30 30 00 18 |X..5..LDA #$00..|
00002d10 35 a8 9d 54 41 59 00 2e 35 b2 9d 4d 4c 4f 50 41 |5..TAY..5..MLOPA|
00002d20 20 53 54 41 20 24 34 30 30 30 2c 58 00 36 35 bc | STA $4000,X.65.|
00002d30 9d 49 4e 59 00 3e 35 c6 9d 49 4e 58 00 4b 35 d0 |.INY.>5..INX.K5.|
00002d40 9d 43 50 59 20 23 24 30 38 00 59 35 da 9d 42 4e |.CPY #$08.Y5..BN|
00002d50 45 20 4d 4c 4f 50 41 00 66 35 e4 9d 4c 44 41 20 |E MLOPA.f5..LDA |
00002d60 23 24 30 36 00 72 35 ee 9d 53 54 41 20 24 46 43 |#$06.r5..STA $FC|
00002d70 00 87 35 f8 9d a2 44 49 47 49 54 20 4c 44 41 20 |..5...DIGIT LDA |
00002d80 24 34 31 30 31 00 93 35 02 9e 4c 44 58 20 24 46 |$4101..5..LDX $F|
00002d90 43 00 a2 35 0c 9e 4a 53 52 20 a1 44 49 47 49 54 |C..5..JSR .DIGIT|
00002da0 00 af 35 16 9e 43 4d 50 20 23 24 30 30 00 bf 35 |..5..CMP #$00..5|
00002db0 20 9e 42 45 51 20 44 4d 4f 56 45 52 42 00 cb 35 | .BEQ DMOVERB..5|
00002dc0 2a 9e 53 54 41 20 24 46 44 00 d8 35 34 9e 4c 44 |*.STA $FD..54.LD|
00002dd0 41 20 23 24 30 36 00 e4 35 3e 9e 53 54 41 20 24 |A #$06..5>.STA $|
00002de0 46 42 00 f8 35 48 9e 44 4d 4c 4f 50 20 4c 44 41 |FB..5H.DMLOP LDA|
00002df0 20 24 34 31 30 30 00 04 36 52 9e 4c 44 58 20 24 | $4100..6R.LDX $|
00002e00 46 42 00 13 36 5c 9e 4a 53 52 20 a1 44 49 47 49 |FB..6\.JSR .DIGI|
00002e10 54 00 20 36 66 9e 43 4d 50 20 23 24 30 30 00 2f |T. 6f.CMP #$00./|
00002e20 36 70 9e 42 45 51 20 44 4d 4f 56 45 52 00 39 36 |6p.BEQ DMOVER.96|
00002e30 7a 9e 41 53 4c 20 41 00 43 36 84 9e 41 53 4c 20 |z.ASL A.C6..ASL |
00002e40 41 00 4d 36 8e 9e 41 53 4c 20 41 00 57 36 98 9e |A.M6..ASL A.W6..|
00002e50 41 53 4c 20 41 00 5f 36 a2 9e 43 4c 43 00 6b 36 |ASL A._6..CLC.k6|
00002e60 ac 9e 41 44 43 20 24 46 44 00 73 36 b6 9e 54 41 |..ADC $FD.s6..TA|
00002e70 59 00 80 36 c0 9e 4c 44 41 20 4d d4 2c 59 00 8c |Y..6..LDA M.,Y..|
00002e80 36 ca 9e 53 54 41 20 24 33 35 00 97 36 d4 9e af |6..STA $35..6...|
00002e90 20 23 24 30 46 00 9f 36 de 9e 54 41 59 00 ab 36 | #$0F..6..TAY..6|
00002ea0 e8 9e 4c 44 41 20 24 46 42 00 b3 36 f2 9e 43 4c |..LDA $FB..6..CL|
00002eb0 43 00 bf 36 fc 9e 41 44 43 20 24 46 43 00 c7 36 |C..6..ADC $FC..6|
00002ec0 06 9f 53 45 43 00 d4 36 10 9f 53 42 43 20 23 24 |..SEC..6..SBC #$|
00002ed0 30 43 00 dc 36 1a 9f 54 41 58 00 e7 36 24 9f af |0C..6..TAX..6$..|
00002ee0 20 23 24 30 31 00 f5 36 2e 9f 42 45 51 20 4d 53 | #$01..6..BEQ MS|
00002ef0 4b 49 50 00 fd 36 38 9f 54 59 41 00 07 37 42 9f |KIP..68.TYA..7B.|
00002f00 41 53 4c 20 41 00 11 37 4c 9f 41 53 4c 20 41 00 |ASL A..7L.ASL A.|
00002f10 1b 37 56 9f 41 53 4c 20 41 00 25 37 60 9f 41 53 |.7V.ASL A.%7`.AS|
00002f20 4c 20 41 00 2d 37 6a 9f 54 41 59 00 39 37 74 9f |L A.-7j.TAY.97t.|
00002f30 4c 44 41 20 24 33 35 00 44 37 7e 9f af 20 23 24 |LDA $35.D7~.. #$|
00002f40 46 30 00 4e 37 88 9f 4c 53 52 20 41 00 58 37 92 |F0.N7..LSR A.X7.|
00002f50 9f 4c 53 52 20 41 00 62 37 9c 9f 4c 53 52 20 41 |.LSR A.b7..LSR A|
00002f60 00 6c 37 a6 9f 4c 53 52 20 41 00 78 37 b0 9f 53 |.l7..LSR A.x7..S|
00002f70 54 41 20 24 33 35 00 83 37 ba 9f 4a 4d 50 20 4d |TA $35..7..JMP M|
00002f80 9a 00 9a 37 bf 9f 44 4d 4f 56 45 52 42 20 4a 4d |...7..DMOVERB JM|
00002f90 50 20 44 4d 4f 56 45 52 00 ac 37 c4 9f 4d 53 4b |P DMOVER..7..MSK|
00002fa0 49 50 20 4c 44 59 20 24 33 35 00 b9 37 ce 9f 4c |IP LDY $35..7..L|
00002fb0 44 41 20 23 24 30 30 00 c5 37 d8 9f 53 54 41 20 |DA #$00..7..STA |
00002fc0 24 33 35 00 d0 37 da 9f 4d 9a 20 54 58 41 00 da |$35..7..M. TXA..|
00002fd0 37 dc 9f 4c 53 52 20 41 00 e6 37 de 9f 53 54 41 |7..LSR A..7..STA|
00002fe0 20 24 30 32 00 f3 37 e0 9f 4c 44 41 20 23 24 30 | $02..7..LDA #$0|
00002ff0 37 00 fb 37 e2 9f 53 45 43 00 07 38 e4 9f 53 42 |7..7..SEC..8..SB|
00003000 43 20 24 30 32 00 13 38 e6 9f 53 54 41 20 24 30 |C $02..8..STA $0|
00003010 32 00 21 38 e8 9f 4c 44 41 20 24 34 31 30 32 00 |2.!8..LDA $4102.|
00003020 2b 38 ea 9f 41 53 4c 20 41 00 35 38 ec 9f 41 53 |+8..ASL A.58..AS|
00003030 4c 20 41 00 3f 38 ee 9f 41 53 4c 20 41 00 4b 38 |L A.?8..ASL A.K8|
00003040 f0 9f 41 44 43 20 24 30 32 00 57 38 f2 9f 53 54 |..ADC $02.W8..ST|
00003050 59 20 24 32 35 00 5f 38 f4 9f 54 41 59 00 67 38 |Y $25._8..TAY.g8|
00003060 f6 9f 53 45 44 00 77 38 f8 9f 4c 44 41 20 24 34 |..SED.w8..LDA $4|
00003070 30 30 30 2c 59 00 7f 38 fa 9f 43 4c 43 00 8b 38 |000,Y..8..CLC..8|
00003080 fc 9f 41 44 43 20 24 32 35 00 9b 38 fe 9f 53 54 |..ADC $25..8..ST|
00003090 41 20 24 34 30 30 30 2c 59 00 a3 38 00 a0 43 4c |A $4000,Y..8..CL|
000030a0 44 00 ab 38 02 a0 44 45 59 00 b3 38 04 a0 53 45 |D..8..DEY..8..SE|
000030b0 44 00 c3 38 06 a0 4c 44 41 20 24 34 30 30 30 2c |D..8..LDA $4000,|
000030c0 59 00 cf 38 08 a0 41 44 43 20 24 33 35 00 df 38 |Y..8..ADC $35..8|
000030d0 0a a0 53 54 41 20 24 34 30 30 30 2c 59 00 e7 38 |..STA $4000,Y..8|
000030e0 0c a0 43 4c 44 00 fb 38 0e a0 4d 41 4c 50 20 42 |..CLD..8..MALP B|
000030f0 43 43 20 44 4d 4f 56 45 52 00 03 39 10 a0 44 45 |CC DMOVER..9..DE|
00003100 59 00 0b 39 12 a0 53 45 44 00 1b 39 14 a0 4c 44 |Y..9..SED..9..LD|
00003110 41 20 24 34 30 30 30 2c 59 00 28 39 16 a0 41 44 |A $4000,Y.(9..AD|
00003120 43 20 23 24 30 30 00 38 39 18 a0 53 54 41 20 24 |C #$00.89..STA $|
00003130 34 30 30 30 2c 59 00 40 39 1a a0 43 4c 44 00 4d |4000,Y.@9..CLD.M|
00003140 39 1c a0 4a 4d 50 20 4d 41 4c 50 00 60 39 5a a0 |9..JMP MALP.`9Z.|
00003150 44 4d 4f 56 45 52 20 49 4e 43 20 24 46 42 00 6c |DMOVER INC $FB.l|
00003160 39 64 a0 4c 44 41 20 24 46 42 00 79 39 6e a0 43 |9d.LDA $FB.y9n.C|
00003170 4d 50 20 23 24 30 45 00 88 39 78 a0 42 43 43 20 |MP #$0E..9x.BCC |
00003180 44 4d 4c 4f 50 42 00 94 39 82 a0 49 4e 43 20 24 |DMLOPB..9..INC $|
00003190 46 43 00 a0 39 8c a0 4c 44 41 20 24 46 43 00 ad |FC..9..LDA $FC..|
000031a0 39 96 a0 43 4d 50 20 23 24 30 45 00 bd 39 a0 a0 |9..CMP #$0E..9..|
000031b0 42 43 43 20 a2 44 49 47 49 54 42 00 ca 39 aa a0 |BCC .DIGITB..9..|
000031c0 4c 44 41 20 59 50 49 42 00 d7 39 b4 a0 42 45 51 |LDA YPIB..9..BEQ|
000031d0 20 51 55 49 54 00 e5 39 be a0 4c 44 41 20 24 34 | QUIT..9..LDA $4|
000031e0 31 30 32 00 f3 39 c8 a0 53 54 41 20 24 34 31 30 |102..9..STA $410|
000031f0 31 00 00 3a d2 a0 4c 44 41 20 23 24 31 44 00 0e |1..:..LDA #$1D..|
00003200 3a dc a0 53 54 41 20 24 34 31 30 30 00 1f 3a e6 |:..STA $4100..:.|
00003210 a0 4a 53 52 20 53 55 42 54 52 41 43 54 00 2c 3a |.JSR SUBTRACT.,:|
00003220 f0 a0 51 55 49 54 20 52 54 53 00 41 3a fa a0 44 |..QUIT RTS.A:..D|
00003230 4d 4c 4f 50 42 20 4a 4d 50 20 44 4d 4c 4f 50 00 |MLOPB JMP DMLOP.|
00003240 58 3a 04 a1 a2 44 49 47 49 54 42 20 4a 4d 50 20 |X:...DIGITB JMP |
00003250 a2 44 49 47 49 54 00 6b 3a 22 a1 4d 53 55 50 20 |.DIGIT.k:".MSUP |
00003260 4c 44 41 20 24 34 31 30 30 00 75 3a 2c a1 41 53 |LDA $4100.u:,.AS|
00003270 4c 20 41 00 7f 3a 36 a1 41 53 4c 20 41 00 89 3a |L A..:6.ASL A..:|
00003280 40 a1 41 53 4c 20 41 00 91 3a 4a a1 54 41 58 00 |@.ASL A..:J.TAX.|
00003290 99 3a 54 a1 44 45 58 00 a5 3a 5e a1 53 54 58 20 |.:T.DEX..:^.STX |
000032a0 24 46 42 00 b3 3a 68 a1 4c 44 41 20 24 34 31 30 |$FB..:h.LDA $410|
000032b0 31 00 bd 3a 72 a1 41 53 4c 20 41 00 c7 3a 7c a1 |1..:r.ASL A..:|.|
000032c0 41 53 4c 20 41 00 d1 3a 86 a1 41 53 4c 20 41 00 |ASL A..:..ASL A.|
000032d0 d9 3a 90 a1 54 41 58 00 e1 3a 9a a1 44 45 58 00 |.:..TAX..:..DEX.|
000032e0 ed 3a a4 a1 53 54 58 20 24 46 44 00 fb 3a ae a1 |.:..STX $FD..:..|
000032f0 4c 44 41 20 24 34 31 30 32 00 05 3b b8 a1 41 53 |LDA $4102..;..AS|
00003300 4c 20 41 00 0f 3b c2 a1 41 53 4c 20 41 00 19 3b |L A..;..ASL A..;|
00003310 cc a1 41 53 4c 20 41 00 21 3b d6 a1 54 41 58 00 |..ASL A.!;..TAX.|
00003320 29 3b e0 a1 44 45 58 00 35 3b ea a1 53 54 58 20 |);..DEX.5;..STX |
00003330 24 32 32 00 42 3b f4 a1 4c 44 41 20 23 24 34 30 |$22.B;..LDA #$40|
00003340 00 4e 3b fe a1 53 54 41 20 24 46 43 00 5a 3b 08 |.N;..STA $FC.Z;.|
00003350 a2 53 54 41 20 24 46 45 00 66 3b 12 a2 53 54 41 |.STA $FE.f;..STA|
00003360 20 24 32 33 00 6e 3b 1c a2 52 54 53 00 81 3b 26 | $23.n;..RTS..;&|
00003370 a2 45 51 55 41 4c 20 4a 53 52 20 4d 53 55 50 00 |.EQUAL JSR MSUP.|
00003380 8e 3b 30 a2 4c 44 59 20 23 24 30 38 00 a3 3b 3a |.;0.LDY #$08..;:|
00003390 a2 45 4c 4f 50 20 4c 44 41 20 28 24 46 42 29 2c |.ELOP LDA ($FB),|
000033a0 59 00 b3 3b 44 a2 53 54 41 20 28 24 32 32 29 2c |Y..;D.STA ($22),|
000033b0 59 00 bb 3b 4e a2 44 45 59 00 c8 3b 58 a2 42 4e |Y..;N.DEY..;X.BN|
000033c0 45 20 45 4c 4f 50 00 d0 3b 62 a2 52 54 53 00 e5 |E ELOP..;b.RTS..|
000033d0 3b 6c a2 41 44 44 49 54 49 91 20 4a 53 52 20 4d |;l.ADDITI. JSR M|
000033e0 53 55 50 00 f2 3b 76 a2 4c 44 59 20 23 24 30 38 |SUP..;v.LDY #$08|
000033f0 00 fa 3b 80 a2 53 45 44 00 02 3c 8a a2 43 4c 43 |..;..SED..<..CLC|
00003400 00 18 3c 94 a2 41 44 4c 4f 50 20 4c 44 41 20 28 |..<..ADLOP LDA (|
00003410 24 46 42 29 2c 59 00 28 3c 9e a2 41 44 43 20 28 |$FB),Y.(<..ADC (|
00003420 24 46 44 29 2c 59 00 38 3c a8 a2 53 54 41 20 28 |$FD),Y.8<..STA (|
00003430 24 32 32 29 2c 59 00 40 3c b2 a2 44 45 59 00 4e |$22),Y.@<..DEY.N|
00003440 3c bc a2 42 4e 45 20 41 44 4c 4f 50 00 56 3c c6 |<..BNE ADLOP.V<.|
00003450 a2 43 4c 44 00 5e 3c d0 a2 52 54 53 00 74 3c da |.CLD.^<..RTS.t<.|
00003460 a2 53 55 42 54 52 41 43 54 20 4a 53 52 20 4d 53 |.SUBTRACT JSR MS|
00003470 55 50 00 81 3c e4 a2 4c 44 59 20 23 24 30 38 00 |UP..<..LDY #$08.|
00003480 89 3c ee a2 53 45 44 00 91 3c f8 a2 53 45 43 00 |.<..SED..<..SEC.|
00003490 a7 3c 02 a3 53 55 4c 4f 50 20 4c 44 41 20 28 24 |.<..SULOP LDA ($|
000034a0 46 42 29 2c 59 00 b7 3c 0c a3 53 42 43 20 28 24 |FB),Y..<..SBC ($|
000034b0 46 44 29 2c 59 00 c7 3c 16 a3 53 54 41 20 28 24 |FD),Y..<..STA ($|
000034c0 32 32 29 2c 59 00 cf 3c 20 a3 44 45 59 00 dd 3c |22),Y..< .DEY..<|
000034d0 2a a3 42 4e 45 20 53 55 4c 4f 50 00 e5 3c 34 a3 |*.BNE SULOP..<4.|
000034e0 43 4c 44 00 ed 3c 3e a3 52 54 53 00 03 3d 48 a3 |CLD..<>.RTS..=H.|
000034f0 4e 45 47 41 54 49 56 45 20 4c 44 41 20 23 24 30 |NEGATIVE LDA #$0|
00003500 30 00 0b 3d 52 a3 50 48 41 00 19 3d 5c a3 4c 44 |0..=R.PHA..=\.LD|
00003510 41 20 24 34 31 30 30 00 21 3d 66 a3 54 41 59 00 |A $4100.!=f.TAY.|
00003520 2b 3d 70 a3 41 53 4c 20 41 00 35 3d 7a a3 41 53 |+=p.ASL A.5=z.AS|
00003530 4c 20 41 00 3f 3d 84 a3 41 53 4c 20 41 00 47 3d |L A.?=..ASL A.G=|
00003540 8e a3 54 41 58 00 57 3d 98 a3 4c 44 41 20 24 34 |..TAX.W=..LDA $4|
00003550 30 30 31 2c 58 00 64 3d a2 a3 43 4d 50 20 23 24 |001,X.d=..CMP #$|
00003560 35 30 00 77 3d a7 a3 42 43 43 20 4e 45 47 52 4d |50.w=..BCC NEGRM|
00003570 4f 56 45 41 42 00 7f 3d ac a3 50 4c 41 00 8c 3d |OVEAB..=..PLA..=|
00003580 b6 a3 41 44 43 20 23 24 30 30 00 94 3d c0 a3 50 |..ADC #$00..=..P|
00003590 48 41 00 a6 3d ca a3 4a 4d 50 20 4e 45 47 52 4d |HA..=..JMP NEGRM|
000035a0 4f 56 45 41 00 bf 3d d4 a3 4e 45 47 52 4d 4f 56 |OVEA..=..NEGRMOV|
000035b0 45 41 42 20 4c 44 41 20 24 34 31 30 31 00 c7 3d |EAB LDA $4101..=|
000035c0 de a3 54 41 59 00 d1 3d e8 a3 41 53 4c 20 41 00 |..TAY..=..ASL A.|
000035d0 db 3d f2 a3 41 53 4c 20 41 00 e5 3d fc a3 41 53 |.=..ASL A..=..AS|
000035e0 4c 20 41 00 ed 3d 06 a4 54 41 58 00 fd 3d 10 a4 |L A..=..TAX..=..|
000035f0 4c 44 41 20 24 34 30 30 31 2c 58 00 0a 3e 1a a4 |LDA $4001,X..>..|
00003600 43 4d 50 20 23 24 35 30 00 12 3e 24 a4 50 4c 41 |CMP #$50..>$.PLA|
00003610 00 1f 3e 2e a4 42 43 43 20 4e 4f 45 b0 00 2b 3e |..>..BCC NOE..+>|
00003620 38 a4 45 b0 20 23 24 30 31 00 33 3e 42 a4 50 48 |8.E. #$01.3>B.PH|
00003630 41 00 45 3e 4c a4 42 43 53 20 4e 45 47 52 4d 4f |A.E>L.BCS NEGRMO|
00003640 56 45 42 00 58 3e 56 a4 4e 45 47 52 4d 4f 56 45 |VEB.X>V.NEGRMOVE|
00003650 42 42 20 50 4c 41 00 6a 3e 60 a4 4e 4f 45 b0 20 |BB PLA.j>`.NOE. |
00003660 53 54 41 20 59 50 49 42 00 72 3e 6a a4 52 54 53 |STA YPIB.r>j.RTS|
00003670 00 89 3e 74 a4 4e 45 47 52 4d 4f 56 45 20 4c 44 |..>t.NEGRMOVE LD|
00003680 41 20 24 34 31 30 30 00 91 3e 7e a4 50 48 41 00 |A $4100..>~.PHA.|
00003690 9f 3e 88 a4 4c 44 41 20 24 34 31 30 31 00 a7 3e |.>..LDA $4101..>|
000036a0 92 a4 50 48 41 00 b5 3e 9c a4 4c 44 41 20 24 34 |..PHA..>..LDA $4|
000036b0 31 30 32 00 bd 3e a6 a4 50 48 41 00 c5 3e b0 a4 |102..>..PHA..>..|
000036c0 54 59 41 00 d3 3e ba a4 53 54 41 20 24 34 31 30 |TYA..>..STA $410|
000036d0 31 00 e1 3e c4 a4 53 54 41 20 24 34 31 30 32 00 |1..>..STA $4102.|
000036e0 ee 3e ce a4 4c 44 41 20 23 24 31 44 00 fc 3e d8 |.>..LDA #$1D..>.|
000036f0 a4 53 54 41 20 24 34 31 30 30 00 0d 3f e2 a4 4a |.STA $4100..?..J|
00003700 53 52 20 53 55 42 54 52 41 43 54 00 15 3f ec a4 |SR SUBTRACT..?..|
00003710 50 4c 41 00 23 3f f6 a4 53 54 41 20 24 34 31 30 |PLA.#?..STA $410|
00003720 32 00 2b 3f 00 a5 50 4c 41 00 39 3f 0a a5 53 54 |2.+?..PLA.9?..ST|
00003730 41 20 24 34 31 30 31 00 41 3f 14 a5 50 4c 41 00 |A $4101.A?..PLA.|
00003740 4f 3f 1e a5 53 54 41 20 24 34 31 30 30 00 57 3f |O?..STA $4100.W?|
00003750 28 a5 52 54 53 00 72 3f 32 a5 4e 45 47 52 4d 4f |(.RTS.r?2.NEGRMO|
00003760 56 45 41 20 4a 53 52 20 4e 45 47 52 4d 4f 56 45 |VEA JSR NEGRMOVE|
00003770 00 85 3f 3c a5 4a 4d 50 20 4e 45 47 52 4d 4f 56 |..?<.JMP NEGRMOV|
00003780 45 41 42 00 a0 3f 46 a5 4e 45 47 52 4d 4f 56 45 |EAB..?F.NEGRMOVE|
00003790 42 20 4a 53 52 20 4e 45 47 52 4d 4f 56 45 00 b3 |B JSR NEGRMOVE..|
000037a0 3f 50 a5 4a 4d 50 20 4e 45 47 52 4d 4f 56 45 42 |?P.JMP NEGRMOVEB|
000037b0 42 00 ca 3f 5a a5 4d 55 4c 54 49 50 4c 59 20 4c |B..?Z.MULTIPLY L|
000037c0 44 41 20 24 34 31 30 32 00 d2 3f 64 a5 50 48 41 |DA $4102..?d.PHA|
000037d0 00 e0 3f 6e a5 4c 44 41 20 24 34 31 30 31 00 e8 |..?n.LDA $4101..|
000037e0 3f 78 a5 50 48 41 00 f5 3f 82 a5 4c 44 41 20 23 |?x.PHA..?..LDA #|
000037f0 24 31 38 00 03 40 8c a5 53 54 41 20 24 34 31 30 |$18..@..STA $410|
00003800 32 00 11 40 96 a5 4a 53 52 20 45 51 55 41 4c 00 |2..@..JSR EQUAL.|
00003810 1f 40 a0 a5 49 4e 43 20 24 34 31 30 32 00 27 40 |.@..INC $4102.'@|
00003820 aa a5 50 4c 41 00 35 40 b4 a5 53 54 41 20 24 34 |..PLA.5@..STA $4|
00003830 31 30 30 00 43 40 be a5 4a 53 52 20 45 51 55 41 |100.C@..JSR EQUA|
00003840 4c 00 50 40 c8 a5 4c 44 41 20 23 24 31 38 00 5e |L.P@..LDA #$18.^|
00003850 40 d2 a5 53 54 41 20 24 34 31 30 30 00 6b 40 dc |@..STA $4100.k@.|
00003860 a5 4c 44 41 20 23 24 31 39 00 79 40 e6 a5 53 54 |.LDA #$19.y@..ST|
00003870 41 20 24 34 31 30 31 00 81 40 f0 a5 50 4c 41 00 |A $4101..@..PLA.|
00003880 8f 40 fa a5 53 54 41 20 24 34 31 30 32 00 a1 40 |.@..STA $4102..@|
00003890 04 a6 4a 4d 50 20 4d 55 4c 54 49 50 4c 59 42 00 |..JMP MULTIPLYB.|
000038a0 cc 40 cc af 4d d4 20 54 58 54 20 30 2c 30 2c 30 |.@..M. TXT 0,0,0|
000038b0 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 |,0,0,0,0,0,0,0,0|
000038c0 2c 30 2c 30 2c 30 2c 30 2c 30 00 f4 40 ce af 54 |,0,0,0,0,0..@..T|
000038d0 58 54 20 30 2c 31 2c 32 2c 33 2c 34 2c 35 2c 36 |XT 0,1,2,3,4,5,6|
000038e0 2c 37 2c 38 2c 39 2c 30 2c 30 2c 30 2c 30 2c 30 |,7,8,9,0,0,0,0,0|
000038f0 2c 30 00 26 41 d0 af 54 58 54 20 30 2c 32 2c 34 |,0.&A..TXT 0,2,4|
00003900 2c 36 2c 38 2c 24 31 30 2c 24 31 32 2c 24 31 34 |,6,8,$10,$12,$14|
00003910 2c 24 31 36 2c 24 31 38 2c 30 2c 30 2c 30 2c 30 |,$16,$18,0,0,0,0|
00003920 2c 30 2c 30 00 5a 41 d2 af 54 58 54 20 30 2c 33 |,0,0.ZA..TXT 0,3|
00003930 2c 36 2c 39 2c 24 31 32 2c 24 31 35 2c 24 31 38 |,6,9,$12,$15,$18|
00003940 2c 24 32 31 2c 24 32 34 2c 24 32 37 2c 30 2c 30 |,$21,$24,$27,0,0|
00003950 2c 30 2c 30 2c 30 2c 30 00 90 41 d4 af 54 58 54 |,0,0,0,0..A..TXT|
00003960 20 30 2c 34 2c 38 2c 24 31 32 2c 24 31 36 2c 24 | 0,4,8,$12,$16,$|
00003970 32 30 2c 24 32 34 2c 24 32 38 2c 24 33 32 2c 24 |20,$24,$28,$32,$|
00003980 33 36 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 00 c8 |36,0,0,0,0,0,0..|
00003990 41 d6 af 54 58 54 20 30 2c 35 2c 24 31 30 2c 24 |A..TXT 0,5,$10,$|
000039a0 31 35 2c 24 32 30 2c 24 32 35 2c 24 33 30 2c 24 |15,$20,$25,$30,$|
000039b0 33 35 2c 24 34 30 2c 24 34 35 2c 30 2c 30 2c 30 |35,$40,$45,0,0,0|
000039c0 2c 30 2c 30 2c 30 00 00 42 d8 af 54 58 54 20 30 |,0,0,0..B..TXT 0|
000039d0 2c 36 2c 24 31 32 2c 24 31 38 2c 24 32 34 2c 24 |,6,$12,$18,$24,$|
000039e0 33 30 2c 24 33 36 2c 24 34 32 2c 24 34 38 2c 24 |30,$36,$42,$48,$|
000039f0 35 34 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 00 38 |54,0,0,0,0,0,0.8|
00003a00 42 da af 54 58 54 20 30 2c 37 2c 24 31 34 2c 24 |B..TXT 0,7,$14,$|
00003a10 32 31 2c 24 32 38 2c 24 33 35 2c 24 34 32 2c 24 |21,$28,$35,$42,$|
00003a20 34 39 2c 24 35 36 2c 24 36 33 2c 30 2c 30 2c 30 |49,$56,$63,0,0,0|
00003a30 2c 30 2c 30 2c 30 00 70 42 dc af 54 58 54 20 30 |,0,0,0.pB..TXT 0|
00003a40 2c 38 2c 24 31 36 2c 24 32 34 2c 24 33 32 2c 24 |,8,$16,$24,$32,$|
00003a50 34 30 2c 24 34 38 2c 24 35 36 2c 24 36 34 2c 24 |40,$48,$56,$64,$|
00003a60 37 32 2c 30 2c 30 2c 30 2c 30 2c 30 2c 30 00 a8 |72,0,0,0,0,0,0..|
00003a70 42 de af 54 58 54 20 30 2c 39 2c 24 31 38 2c 24 |B..TXT 0,9,$18,$|
00003a80 32 37 2c 24 33 36 2c 24 34 35 2c 24 35 34 2c 24 |27,$36,$45,$54,$|
00003a90 36 33 2c 24 37 32 2c 24 38 31 2c 30 2c 30 2c 30 |63,$72,$81,0,0,0|
00003aa0 2c 30 2c 30 2c 30 00 ee 42 ba b3 b9 54 45 58 54 |,0,0,0..B...TEXT|
00003ab0 20 54 58 54 20 31 34 37 2c 35 2c 22 20 20 20 20 | TXT 147,5," |
00003ac0 20 20 20 20 20 20 20 20 50 20 4f 20 53 20 49 20 | P O S I |
00003ad0 54 20 49 20 4f 20 4e 22 2c 31 33 2c 31 33 2c 31 |T I O N",13,13,1|
00003ae0 33 2c 22 58 4d 49 4e 3a 22 2c 31 33 00 16 43 c4 |3,"XMIN:",13..C.|
00003af0 b3 54 58 54 20 22 58 4d 41 58 3a 22 2c 31 33 2c |.TXT "XMAX:",13,|
00003b00 22 59 4d 49 4e 3a 22 2c 31 33 2c 22 59 4d 41 58 |"YMIN:",13,"YMAX|
00003b10 3a 22 2c 30 00 22 43 ce b3 50 4e 4f 20 50 48 41 |:",0."C..PNO PHA|
00003b20 00 2c 43 d8 b3 41 53 4c 20 41 00 36 43 e2 b3 41 |.,C..ASL A.6C..A|
00003b30 53 4c 20 41 00 40 43 ec b3 41 53 4c 20 41 00 48 |SL A.@C..ASL A.H|
00003b40 43 f6 b3 54 41 58 00 58 43 00 b4 4c 44 41 20 24 |C..TAX.XC..LDA $|
00003b50 34 30 30 31 2c 58 00 65 43 0a b4 43 4d 50 20 23 |4001,X.eC..CMP #|
00003b60 24 35 30 00 74 43 14 b4 42 43 53 20 50 4e 4f 56 |$50.tC..BCS PNOV|
00003b70 45 52 00 81 43 1e b4 4c 44 41 20 23 24 32 42 00 |ER..C..LDA #$2B.|
00003b80 8f 43 28 b4 4a 53 52 20 4f 55 54 44 4f 00 9c 43 |.C(.JSR OUTDO..C|
00003b90 2a b4 4c 44 41 20 23 24 30 30 00 ab 43 2c b4 53 |*.LDA #$00..C,.S|
00003ba0 54 41 20 4e 45 47 52 45 47 00 b7 43 32 b4 4a 4d |TA NEGREG..C2.JM|
00003bb0 50 20 50 4e 9a 00 cb 43 3c b4 50 4e 4f 56 45 52 |P PN...C<.PNOVER|
00003bc0 20 4c 44 41 20 23 24 32 44 00 d9 43 46 b4 4a 53 | LDA #$2D..CF.JS|
00003bd0 52 20 4f 55 54 44 4f 00 e6 43 47 b4 4c 44 41 20 |R OUTDO..CG.LDA |
00003be0 23 24 30 31 00 f5 43 48 b4 53 54 41 20 4e 45 47 |#$01..CH.STA NEG|
00003bf0 52 45 47 00 fd 43 49 b4 50 4c 41 00 05 44 4a b4 |REG..CI.PLA..DJ.|
00003c00 50 48 41 00 13 44 4b b4 53 54 41 20 24 34 31 30 |PHA..DK.STA $410|
00003c10 31 00 21 44 4c b4 53 54 41 20 24 34 31 30 32 00 |1.!DL.STA $4102.|
00003c20 2e 44 4d b4 4c 44 41 20 23 24 31 44 00 3c 44 4e |.DM.LDA #$1D.<DN|
00003c30 b4 53 54 41 20 24 34 31 30 30 00 4d 44 4f b4 4a |.STA $4100.MDO.J|
00003c40 53 52 20 53 55 42 54 52 41 43 54 00 5e 44 50 b4 |SR SUBTRACT.^DP.|
00003c50 50 4e 9a 20 4c 44 58 20 23 24 30 43 00 6f 44 5a |PN. LDX #$0C.oDZ|
00003c60 b4 50 4e 43 42 20 53 54 58 20 24 32 32 00 77 44 |.PNCB STX $22.wD|
00003c70 64 b4 50 4c 41 00 7f 44 6e b4 50 48 41 00 8e 44 |d.PLA..Dn.PHA..D|
00003c80 78 b4 4a 53 52 20 a1 44 49 47 49 54 00 96 44 8c |x.JSR .DIGIT..D.|
00003c90 b4 43 4c 43 00 a3 44 96 b4 41 44 43 20 23 24 33 |.CLC..D..ADC #$3|
00003ca0 30 00 b1 44 9b b4 4a 53 52 20 4f 55 54 44 4f 00 |0..D..JSR OUTDO.|
00003cb0 bd 44 a0 b4 4c 44 58 20 24 32 32 00 ca 44 aa b4 |.D..LDX $22..D..|
00003cc0 42 45 51 20 50 4e 44 51 00 d7 44 b4 b4 43 50 58 |BEQ PNDQ..D..CPX|
00003cd0 20 23 24 30 43 00 e5 44 be b4 42 45 51 20 50 4e | #$0C..D..BEQ PN|
00003ce0 44 4f 54 00 ed 44 c8 b4 44 45 58 00 fa 44 d2 b4 |DOT..D..DEX..D..|
00003cf0 4a 4d 50 20 50 4e 43 42 00 0d 45 dc b4 50 4e 44 |JMP PNCB..E..PND|
00003d00 4f 54 20 4c 44 41 20 23 24 32 45 00 1b 45 e6 b4 |OT LDA #$2E..E..|
00003d10 4a 53 52 20 4f 55 54 44 4f 00 23 45 f0 b4 44 45 |JSR OUTDO.#E..DE|
00003d20 58 00 30 45 fa b4 4a 4d 50 20 50 4e 43 42 00 3d |X.0E..JMP PNCB.=|
00003d30 45 04 b5 50 4e 44 51 20 50 4c 41 00 4c 45 05 b5 |E..PNDQ PLA.LE..|
00003d40 4c 44 58 20 4e 45 47 52 45 47 00 5b 45 06 b5 42 |LDX NEGREG.[E..B|
00003d50 45 51 20 4e 4f 47 52 45 47 00 69 45 07 b5 53 54 |EQ NOGREG.iE..ST|
00003d60 41 20 24 34 31 30 31 00 77 45 08 b5 53 54 41 20 |A $4101.wE..STA |
00003d70 24 34 31 30 32 00 84 45 09 b5 4c 44 41 20 23 24 |$4102..E..LDA #$|
00003d80 31 44 00 92 45 0a b5 53 54 41 20 24 34 31 30 30 |1D..E..STA $4100|
00003d90 00 a3 45 0b b5 4a 53 52 20 53 55 42 54 52 41 43 |..E..JSR SUBTRAC|
00003da0 54 00 b2 45 0e b5 4e 4f 47 52 45 47 20 52 54 53 |T..E..NOGREG RTS|
00003db0 00 c9 45 18 b5 b9 49 54 49 91 20 4a 53 52 20 48 |..E...ITI. JSR H|
00003dc0 49 52 45 53 4f 46 46 00 d9 45 22 b5 4c 44 41 20 |IRESOFF..E".LDA |
00003dd0 23 b3 b9 54 45 58 54 00 e5 45 2c b5 53 54 41 20 |#..TEXT..E,.STA |
00003de0 24 46 42 00 f5 45 36 b5 4c 44 41 20 23 b1 b9 54 |$FB..E6.LDA #..T|
00003df0 45 58 54 00 01 46 40 b5 53 54 41 20 24 46 43 00 |EXT..F@.STA $FC.|
00003e00 11 46 4a b5 4a 53 52 20 50 53 54 52 49 4e 47 00 |.FJ.JSR PSTRING.|
00003e10 1e 46 54 b5 4c 44 41 20 23 24 30 37 00 2a 46 5e |.FT.LDA #$07.*F^|
00003e20 b5 53 54 41 20 24 44 33 00 37 46 68 b5 4c 44 41 |.STA $D3.7Fh.LDA|
00003e30 20 23 24 30 33 00 43 46 72 b5 53 54 41 20 24 44 | #$03.CFr.STA $D|
00003e40 36 00 54 46 7c b5 4a 53 52 20 50 4c 4f 54 52 52 |6.TF|.JSR PLOTRR|
00003e50 4f 4d 00 61 46 86 b5 4c 44 41 20 23 24 30 31 00 |OM.aF..LDA #$01.|
00003e60 6d 46 90 b5 4a 53 52 20 50 4e 4f 00 7a 46 9a b5 |mF..JSR PNO.zF..|
00003e70 4c 44 41 20 23 24 30 37 00 86 46 a4 b5 53 54 41 |LDA #$07..F..STA|
00003e80 20 24 44 33 00 93 46 ae b5 4c 44 41 20 23 24 30 | $D3..F..LDA #$0|
00003e90 34 00 9f 46 b8 b5 53 54 41 20 24 44 36 00 b0 46 |4..F..STA $D6..F|
00003ea0 c2 b5 4a 53 52 20 50 4c 4f 54 52 52 4f 4d 00 bd |..JSR PLOTRROM..|
00003eb0 46 cc b5 4c 44 41 20 23 24 31 45 00 c9 46 d6 b5 |F..LDA #$1E..F..|
00003ec0 4a 53 52 20 50 4e 4f 00 d6 46 e0 b5 4c 44 41 20 |JSR PNO..F..LDA |
00003ed0 23 24 30 37 00 e2 46 ea b5 53 54 41 20 24 44 33 |#$07..F..STA $D3|
00003ee0 00 ef 46 f4 b5 4c 44 41 20 23 24 30 35 00 fb 46 |..F..LDA #$05..F|
00003ef0 fe b5 53 54 41 20 24 44 36 00 0c 47 08 b6 4a 53 |..STA $D6..G..JS|
00003f00 52 20 50 4c 4f 54 52 52 4f 4d 00 19 47 12 b6 4c |R PLOTRROM..G..L|
00003f10 44 41 20 23 24 30 33 00 25 47 1c b6 4a 53 52 20 |DA #$03.%G..JSR |
00003f20 50 4e 4f 00 32 47 26 b6 4c 44 41 20 23 24 30 37 |PNO.2G&.LDA #$07|
00003f30 00 3e 47 30 b6 53 54 41 20 24 44 33 00 4b 47 35 |.>G0.STA $D3.KG5|
00003f40 b6 4c 44 41 20 23 24 30 36 00 57 47 3a b6 53 54 |.LDA #$06.WG:.ST|
00003f50 41 20 24 44 36 00 68 47 44 b6 4a 53 52 20 50 4c |A $D6.hGD.JSR PL|
00003f60 4f 54 52 52 4f 4d 00 75 47 4e b6 4c 44 41 20 23 |OTRROM.uGN.LDA #|
00003f70 24 31 46 00 81 47 58 b6 4a 53 52 20 50 4e 4f 00 |$1F..GX.JSR PNO.|
00003f80 8e 47 62 b6 4c 44 58 20 23 24 30 31 00 9b 47 6c |.Gb.LDX #$01..Gl|
00003f90 b6 4c 44 59 20 23 24 30 30 00 a9 47 71 b6 4a 53 |.LDY #$00..Gq.JS|
00003fa0 52 20 b9 91 4f 46 46 00 b6 47 76 b6 b9 4c 4f 50 |R ..OFF..Gv..LOP|
00003fb0 20 54 58 41 00 be 47 80 b6 50 48 41 00 cf 47 8a | TXA..G..PHA..G.|
00003fc0 b6 b9 4c 4f 50 42 20 4a 53 52 20 a1 dc 00 dc 47 |..LOPB JSR ....G|
00003fd0 94 b6 43 4d 50 20 23 24 32 42 00 e8 47 9e b6 42 |..CMP #$2B..G..B|
00003fe0 45 51 20 b9 49 b9 00 f5 47 a8 b6 43 4d 50 20 23 |EQ .I...G..CMP #|
00003ff0 24 32 44 00 03 48 b2 b6 42 45 51 20 b9 49 4e 45 |$2D..H..BEQ .INE|
00004000 47 00 10 48 bc b6 43 4d 50 20 23 24 38 32 00 1f |G..H..CMP #$82..|
00004010 48 c6 b6 42 45 51 20 58 b9 4d 4f 56 45 00 2c 48 |H..BEQ X.MOVE.,H|
00004020 d0 b6 43 4d 50 20 23 24 38 33 00 3b 48 da b6 42 |..CMP #$83.;H..B|
00004030 45 51 20 59 b9 4d 4f 56 45 00 48 48 e4 b6 43 4d |EQ Y.MOVE.HH..CM|
00004040 50 20 23 24 38 30 00 57 48 ee b6 42 45 51 20 b9 |P #$80.WH..BEQ .|
00004050 43 41 4c 43 54 00 64 48 f8 b6 43 4d 50 20 23 24 |CALCT.dH..CMP #$|
00004060 33 30 00 72 48 02 b7 42 43 43 20 b9 4c 4f 50 42 |30.rH..BCC .LOPB|
00004070 00 7f 48 0c b7 43 4d 50 20 23 24 33 41 00 8d 48 |..H..CMP #$3A..H|
00004080 16 b7 42 43 53 20 b9 4c 4f 50 42 00 99 48 1b b7 |..BCS .LOPB..H..|
00004090 53 54 41 20 24 32 33 00 a1 48 20 b7 50 4c 41 00 |STA $23..H .PLA.|
000040a0 a9 48 25 b7 50 48 41 00 b1 48 2a b7 54 41 58 00 |.H%.PHA..H*.TAX.|
000040b0 c0 48 34 b7 4a 53 52 20 a1 4d 45 4d 41 44 00 cc |.H4.JSR .MEMAD..|
000040c0 48 3e b7 53 54 58 20 24 32 32 00 d4 48 48 b7 54 |H>.STX $22..HH.T|
000040d0 41 58 00 e0 48 52 b7 4c 44 41 20 24 32 33 00 ec |AX..HR.LDA $23..|
000040e0 48 5c b7 45 b0 20 23 24 38 30 00 fc 48 66 b7 53 |H\.E. #$80..Hf.S|
000040f0 54 41 20 24 30 34 37 46 2c 58 00 0b 49 70 b7 4a |TA $047F,X..Ip.J|
00004100 4d 50 20 b9 52 49 47 48 54 00 20 49 7a b7 b9 43 |MP .RIGHT. Iz..C|
00004110 41 4c 43 54 20 4a 4d 50 20 b9 43 41 4c 43 00 31 |ALCT JMP .CALC.1|
00004120 49 98 b7 b9 49 b9 20 4c 44 58 20 23 24 30 30 00 |I...I. LDX #$00.|
00004130 40 49 a2 b7 4a 53 52 20 a1 4d 45 4d 41 44 00 48 |@I..JSR .MEMAD.H|
00004140 49 ac b7 54 41 58 00 55 49 b6 b7 4c 44 41 20 23 |I..TAX.UI..LDA #|
00004150 24 32 42 00 65 49 c0 b7 53 54 41 20 24 30 34 37 |$2B.eI..STA $047|
00004160 46 2c 58 00 73 49 ca b7 4a 4d 50 20 b9 4c 4f 50 |F,X.sI..JMP .LOP|
00004170 42 00 86 49 d4 b7 b9 49 4e 45 47 20 4c 44 58 20 |B..I...INEG LDX |
00004180 23 24 30 30 00 95 49 de b7 4a 53 52 20 a1 4d 45 |#$00..I..JSR .ME|
00004190 4d 41 44 00 9d 49 e8 b7 54 41 58 00 aa 49 f2 b7 |MAD..I..TAX..I..|
000041a0 4c 44 41 20 23 24 32 44 00 ba 49 fc b7 53 54 41 |LDA #$2D..I..STA|
000041b0 20 24 30 34 37 46 2c 58 00 c8 49 06 b8 4a 4d 50 | $047F,X..I..JMP|
000041c0 20 b9 4c 4f 50 42 00 dd 49 10 b8 58 b9 4d 4f 56 | .LOPB..I..X.MOV|
000041d0 45 20 4c 44 41 20 24 30 32 38 44 00 e8 49 1a b8 |E LDA $028D..I..|
000041e0 af 20 23 24 30 31 00 f7 49 24 b8 42 45 51 20 b9 |. #$01..I$.BEQ .|
000041f0 52 49 47 48 54 00 ff 49 2e b8 50 4c 41 00 07 4a |RIGHT..I..PLA..J|
00004200 38 b8 54 41 58 00 14 4a 3d b8 43 50 58 20 23 24 |8.TAX..J=.CPX #$|
00004210 30 31 00 21 4a 42 b8 42 45 51 20 b9 4c 4f 50 00 |01.!JB.BEQ .LOP.|
00004220 35 4a 4c b8 4c 4d 49 53 53 20 4a 53 52 20 b9 91 |5JL.LMISS JSR ..|
00004230 4f 46 46 00 3d 4a 56 b8 44 45 58 00 4b 4a 60 b8 |OFF.=JV.DEX.KJ`.|
00004240 4a 53 52 20 b9 91 4f 46 46 00 58 4a 62 b8 43 50 |JSR ..OFF.XJb.CP|
00004250 58 20 23 24 30 32 00 66 4a 64 b8 42 45 51 20 4c |X #$02.fJd.BEQ L|
00004260 4d 49 53 53 00 73 4a 6a b8 4a 4d 50 20 b9 4c 4f |MISS.sJj.JMP .LO|
00004270 50 00 82 4a 74 b8 b9 52 49 47 48 54 20 50 4c 41 |P..Jt..RIGHT PLA|
00004280 00 8a 4a 7e b8 54 41 58 00 97 4a 88 b8 43 50 58 |..J~.TAX..J..CPX|
00004290 20 23 24 30 45 00 a4 4a 92 b8 42 45 51 20 b9 4c | #$0E..J..BEQ .L|
000042a0 4f 50 00 b8 4a 9c b8 52 4d 49 53 53 20 4a 53 52 |OP..J..RMISS JSR|
000042b0 20 b9 91 4f 46 46 00 c0 4a a6 b8 49 4e 58 00 ce | ..OFF..J..INX..|
000042c0 4a b0 b8 4a 53 52 20 b9 91 4f 46 46 00 db 4a b2 |J..JSR ..OFF..J.|
000042d0 b8 43 50 58 20 23 24 30 32 00 e9 4a b4 b8 42 45 |.CPX #$02..J..BE|
000042e0 51 20 52 4d 49 53 53 00 f6 4a ba b8 4a 4d 50 20 |Q RMISS..J..JMP |
000042f0 b9 4c 4f 50 00 05 4b c4 b8 59 b9 4d 4f 56 45 20 |.LOP..K..Y.MOVE |
00004300 50 4c 41 00 0d 4b c6 b8 54 41 58 00 1b 4b c8 b8 |PLA..K..TAX..K..|
00004310 4c 44 41 20 24 30 32 38 44 00 26 4b ce b8 af 20 |LDA $028D.&K... |
00004320 23 24 30 31 00 34 4b d8 b8 42 45 51 20 b9 44 4f |#$01.4K..BEQ .DO|
00004330 57 4e 00 41 4b e2 b8 43 50 59 20 23 24 30 30 00 |WN.AK..CPY #$00.|
00004340 4f 4b ec b8 42 45 51 20 b9 4c 4f 50 54 00 5d 4b |OK..BEQ .LOPT.]K|
00004350 f6 b8 4a 53 52 20 b9 91 4f 46 46 00 65 4b 00 b9 |..JSR ..OFF.eK..|
00004360 44 45 59 00 73 4b 0a b9 4a 53 52 20 b9 91 4f 46 |DEY.sK..JSR ..OF|
00004370 46 00 81 4b 14 b9 4a 4d 50 20 b9 4c 4f 50 54 00 |F..K..JMP .LOPT.|
00004380 94 4b 1e b9 b9 44 4f 57 4e 20 43 50 59 20 23 24 |.K...DOWN CPY #$|
00004390 30 33 00 a2 4b 28 b9 42 45 51 20 b9 4c 4f 50 54 |03..K(.BEQ .LOPT|
000043a0 00 b0 4b 32 b9 4a 53 52 20 b9 91 4f 46 46 00 b8 |..K2.JSR ..OFF..|
000043b0 4b 3c b9 49 4e 59 00 c6 4b 46 b9 4a 53 52 20 b9 |K<.INY..KF.JSR .|
000043c0 91 4f 46 46 00 d4 4b 50 b9 4a 4d 50 20 b9 4c 4f |.OFF..KP.JMP .LO|
000043d0 50 54 00 e7 4b 5a b9 b9 4c 4f 50 54 20 4a 4d 50 |PT..KZ..LOPT JMP|
000043e0 20 b9 4c 4f 50 00 1e 4c 8c b9 b9 53 55 52 45 20 | .LOP..L...SURE |
000043f0 54 58 54 20 31 33 2c 31 33 2c 22 52 45 50 4f 53 |TXT 13,13,"REPOS|
00004400 49 54 49 4f 4e 3a 20 41 52 45 20 59 4f 55 20 53 |ITION: ARE YOU S|
00004410 55 52 45 20 28 59 2f 4e 29 22 2c 30 00 2c 4c 80 |URE (Y/N)",0.,L.|
00004420 bb b9 43 41 4c 43 20 50 4c 41 00 34 4c 82 bb 54 |..CALC PLA.4L..T|
00004430 41 58 00 42 4c 84 bb 4a 53 52 20 b9 91 4f 46 46 |AX.BL..JSR ..OFF|
00004440 00 52 4c 86 bb 4c 44 41 20 23 b3 b9 53 55 52 45 |.RL..LDA #..SURE|
00004450 00 5e 4c 8a bb 53 54 41 20 24 46 42 00 6e 4c 94 |.^L..STA $FB.nL.|
00004460 bb 4c 44 41 20 23 b1 b9 53 55 52 45 00 7a 4c 9e |.LDA #..SURE.zL.|
00004470 bb 53 54 41 20 24 46 43 00 8a 4c a8 bb 4a 53 52 |.STA $FC..L..JSR|
00004480 20 50 53 54 52 49 4e 47 00 9d 4c b2 bb 53 55 52 | PSTRING..L..SUR|
00004490 45 4c 4f 50 20 4a 53 52 20 a1 dc 00 aa 4c bc bb |ELOP JSR ....L..|
000044a0 43 4d 50 20 23 24 31 39 00 b5 4c c6 bb 42 45 51 |CMP #$19..L..BEQ|
000044b0 20 e9 b9 00 c2 4c d0 bb 43 4d 50 20 23 24 30 45 | ....L..CMP #$0E|
000044c0 00 ce 4c da bb 42 45 51 20 4e 4f e9 00 de 4c e4 |..L..BEQ NO...L.|
000044d0 bb 4a 4d 50 20 53 55 52 45 4c 4f 50 00 f3 4c ee |.JMP SURELOP..L.|
000044e0 bb 4e 4f e9 20 4a 4d 50 20 43 4f 4d 45 42 41 43 |.NO. JMP COMEBAC|
000044f0 4b 00 03 4d f8 bb e9 b9 20 4c 44 41 20 23 24 38 |K..M.... LDA #$8|
00004500 30 00 0f 4d 02 bc 53 54 41 20 24 46 42 00 1c 4d |0..M..STA $FB..M|
00004510 0c bc 4c 44 41 20 23 24 30 34 00 28 4d 16 bc 53 |..LDA #$04.(M..S|
00004520 54 41 20 24 46 43 00 35 4d 20 bc 4c 44 41 20 23 |TA $FC.5M .LDA #|
00004530 24 30 31 00 42 4d 2a bc 4a 53 52 20 e9 56 41 52 |$01.BM*.JSR .VAR|
00004540 00 4f 4d 34 bc 4c 44 41 20 23 24 41 38 00 5b 4d |.OM4.LDA #$A8.[M|
00004550 3e bc 53 54 41 20 24 46 42 00 68 4d 41 bc 4c 44 |>.STA $FB.hMA.LD|
00004560 41 20 23 24 30 34 00 74 4d 44 bc 53 54 41 20 24 |A #$04.tMD.STA $|
00004570 46 43 00 81 4d 48 bc 4c 44 41 20 23 24 31 45 00 |FC..MH.LDA #$1E.|
00004580 8e 4d 52 bc 4a 53 52 20 e9 56 41 52 00 9b 4d 5c |.MR.JSR .VAR..M\|
00004590 bc 4c 44 41 20 23 24 44 30 00 a7 4d 66 bc 53 54 |.LDA #$D0..Mf.ST|
000045a0 41 20 24 46 42 00 b4 4d 69 bc 4c 44 41 20 23 24 |A $FB..Mi.LDA #$|
000045b0 30 34 00 c0 4d 6c bc 53 54 41 20 24 46 43 00 cd |04..Ml.STA $FC..|
000045c0 4d 70 bc 4c 44 41 20 23 24 30 33 00 da 4d 7a bc |Mp.LDA #$03..Mz.|
000045d0 4a 53 52 20 e9 56 41 52 00 e7 4d 84 bc 4c 44 41 |JSR .VAR..M..LDA|
000045e0 20 23 24 46 38 00 f3 4d 8e bc 53 54 41 20 24 46 | #$F8..M..STA $F|
000045f0 42 00 00 4e 91 bc 4c 44 41 20 23 24 30 34 00 0c |B..N..LDA #$04..|
00004600 4e 94 bc 53 54 41 20 24 46 43 00 19 4e 98 bc 4c |N..STA $FC..N..L|
00004610 44 41 20 23 24 31 46 00 26 4e a2 bc 4a 53 52 20 |DA #$1F.&N..JSR |
00004620 e9 56 41 52 00 35 4e ac bc 4a 53 52 20 48 49 52 |.VAR.5N..JSR HIR|
00004630 45 53 91 00 43 4e b6 bc 4a 4d 50 20 43 41 4c 43 |ES..CN..JMP CALC|
00004640 a9 00 54 4e 74 bd e9 56 41 52 20 53 54 41 20 24 |..TNt..VAR STA $|
00004650 32 33 00 5e 4e 79 bd 41 53 4c 20 41 00 68 4e 7e |23.^Ny.ASL A.hN~|
00004660 bd 41 53 4c 20 41 00 72 4e 88 bd 41 53 4c 20 41 |.ASL A.rN..ASL A|
00004670 00 7e 4e 92 bd 53 54 41 20 24 46 44 00 8b 4e 9c |.~N..STA $FD..N.|
00004680 bd 4c 44 41 20 23 24 34 30 00 97 4e a6 bd 53 54 |.LDA #$40..N..ST|
00004690 41 20 24 46 45 00 a4 4e b0 bd 4c 44 41 20 23 24 |A $FE..N..LDA #$|
000046a0 30 30 00 ac 4e ba bd 54 41 58 00 b4 4e c4 bd 54 |00..N..TAX..N..T|
000046b0 41 59 00 c4 4e ce bd 53 54 41 20 28 24 46 44 29 |AY..N..STA ($FD)|
000046c0 2c 59 00 cc 4e d8 bd 49 4e 59 00 d4 4e e2 bd 54 |,Y..N..INY..N..T|
000046d0 59 41 00 dc 4e ec bd 50 48 41 00 e4 4e f6 bd 54 |YA..N..PHA..N..T|
000046e0 58 41 00 ec 4e 00 be 54 41 59 00 fc 4e 0a be 4c |XA..N..TAY..N..L|
000046f0 44 41 20 28 24 46 42 29 2c 59 00 08 4f 14 be 53 |DA ($FB),Y..O..S|
00004700 54 41 20 24 32 32 00 10 4f 1e be 54 59 41 00 18 |TA $22..O..TYA..|
00004710 4f 28 be 54 41 58 00 20 4f 32 be 50 4c 41 00 28 |O(.TAX. O2.PLA.(|
00004720 4f 3c be 54 41 59 00 34 4f 46 be 4c 44 41 20 24 |O<.TAY.4OF.LDA $|
00004730 32 32 00 3c 4f 50 be 53 45 43 00 49 4f 5a be 53 |22.<OP.SEC.IOZ.S|
00004740 42 43 20 23 24 33 30 00 59 4f 64 be 53 54 41 20 |BC #$30.YOd.STA |
00004750 28 24 46 44 29 2c 59 00 61 4f 6e be 49 4e 59 00 |($FD),Y.aOn.INY.|
00004760 69 4f 78 be 49 4e 58 00 71 4f 82 be 49 4e 58 00 |iOx.INX.qO..INX.|
00004770 7f 4f 8c be e9 56 4c 4f 50 20 54 59 41 00 87 4f |.O...VLOP TYA..O|
00004780 96 be 50 48 41 00 8f 4f a0 be 54 58 41 00 97 4f |..PHA..O..TXA..O|
00004790 aa be 54 41 59 00 a7 4f b4 be 4c 44 41 20 28 24 |..TAY..O..LDA ($|
000047a0 46 42 29 2c 59 00 af 4f be be 53 45 43 00 bc 4f |FB),Y..O..SEC..O|
000047b0 c8 be 53 42 43 20 23 24 33 30 00 c6 4f d2 be 41 |..SBC #$30..O..A|
000047c0 53 4c 20 41 00 d0 4f dc be 41 53 4c 20 41 00 da |SL A..O..ASL A..|
000047d0 4f e6 be 41 53 4c 20 41 00 e4 4f f0 be 41 53 4c |O..ASL A..O..ASL|
000047e0 20 41 00 ec 4f fa be 49 4e 59 00 f4 4f 04 bf 43 | A..O..INY..O..C|
000047f0 4c 43 00 04 50 0e bf 41 44 43 20 28 24 46 42 29 |LC..P..ADC ($FB)|
00004800 2c 59 00 0c 50 18 bf 53 45 43 00 19 50 22 bf 53 |,Y..P..SEC..P".S|
00004810 42 43 20 23 24 33 30 00 21 50 2c bf 49 4e 59 00 |BC #$30.!P,.INY.|
00004820 2d 50 36 bf 53 54 41 20 24 32 32 00 35 50 40 bf |-P6.STA $22.5P@.|
00004830 54 59 41 00 3d 50 4a bf 54 41 58 00 45 50 54 bf |TYA.=PJ.TAX.EPT.|
00004840 50 4c 41 00 4d 50 5e bf 54 41 59 00 59 50 68 bf |PLA.MP^.TAY.YPh.|
00004850 4c 44 41 20 24 32 32 00 69 50 72 bf 53 54 41 20 |LDA $22.iPr.STA |
00004860 28 24 46 44 29 2c 59 00 71 50 7c bf 49 4e 59 00 |($FD),Y.qP|.INY.|
00004870 7e 50 86 bf 43 50 59 20 23 24 30 38 00 8c 50 90 |~P..CPY #$08..P.|
00004880 bf 42 4e 45 20 e9 56 4c 4f 50 00 98 50 9a bf 44 |.BNE .VLOP..P..D|
00004890 45 43 20 24 46 42 00 a5 50 a4 bf 4c 44 59 20 23 |EC $FB..P..LDY #|
000048a0 24 30 30 00 b5 50 ae bf 4c 44 41 20 28 24 46 42 |$00..P..LDA ($FB|
000048b0 29 2c 59 00 c2 50 b8 bf 43 4d 50 20 23 24 32 44 |),Y..P..CMP #$2D|
000048c0 00 d2 50 c2 bf 42 45 51 20 4d 41 4b 45 4e 45 47 |..P..BEQ MAKENEG|
000048d0 00 da 50 cc bf 52 54 53 00 ee 50 d6 bf 4d 41 4b |..P..RTS..P..MAK|
000048e0 45 4e 45 47 20 4c 44 41 20 24 32 33 00 fc 50 e0 |ENEG LDA $23..P.|
000048f0 bf 53 54 41 20 24 34 31 30 31 00 0a 51 ea bf 53 |.STA $4101..Q..S|
00004900 54 41 20 24 34 31 30 32 00 17 51 f4 bf 4c 44 41 |TA $4102..Q..LDA|
00004910 20 23 24 31 44 00 25 51 fe bf 53 54 41 20 24 34 | #$1D.%Q..STA $4|
00004920 31 30 30 00 36 51 08 c0 4a 4d 50 20 53 55 42 54 |100.6Q..JMP SUBT|
00004930 52 41 43 54 00 45 51 5c c1 a1 4d 45 4d 41 44 20 |RACT.EQ\..MEMAD |
00004940 54 59 41 00 4f 51 70 c1 41 53 4c 20 41 00 59 51 |TYA.OQp.ASL A.YQ|
00004950 7a c1 41 53 4c 20 41 00 63 51 84 c1 41 53 4c 20 |z.ASL A.cQ..ASL |
00004960 41 00 6f 51 8e c1 53 54 41 20 24 32 32 00 79 51 |A.oQ..STA $22.yQ|
00004970 98 c1 41 53 4c 20 41 00 83 51 a2 c1 41 53 4c 20 |..ASL A..Q..ASL |
00004980 41 00 8b 51 ac c1 43 4c 43 00 97 51 b6 c1 41 44 |A..Q..CLC..Q..AD|
00004990 43 20 24 32 32 00 a3 51 c0 c1 53 54 58 20 24 32 |C $22..Q..STX $2|
000049a0 32 00 af 51 ca c1 41 44 43 20 24 32 32 00 bc 51 |2..Q..ADC $22..Q|
000049b0 d4 c1 43 4d 50 20 23 24 43 38 00 cc 51 de c1 42 |..CMP #$C8..Q..B|
000049c0 43 43 20 47 4d 4d 51 55 49 54 00 d4 51 e8 c1 43 |CC GMMQUIT..Q..C|
000049d0 4c 43 00 e1 51 f2 c1 41 44 43 20 23 24 32 38 00 |LC..Q..ADC #$28.|
000049e0 f1 51 fc c1 47 4d 4d 51 55 49 54 20 52 54 53 00 |.Q..GMMQUIT RTS.|
000049f0 06 52 24 c2 b9 91 4f 46 46 20 4a 53 52 20 a1 4d |.R$...OFF JSR .M|
00004a00 45 4d 41 44 00 12 52 2e c2 53 54 41 20 24 32 32 |EMAD..R..STA $22|
00004a10 00 1a 52 38 c2 54 58 41 00 22 52 42 c2 50 48 41 |..R8.TXA."RB.PHA|
00004a20 00 2e 52 4c c2 4c 44 58 20 24 32 32 00 3e 52 56 |..RL.LDX $22.>RV|
00004a30 c2 4c 44 41 20 24 30 34 37 46 2c 58 00 4a 52 60 |.LDA $047F,X.JR`|
00004a40 c2 45 b0 20 23 24 38 30 00 5a 52 6a c2 53 54 41 |.E. #$80.ZRj.STA|
00004a50 20 24 30 34 37 46 2c 58 00 62 52 74 c2 50 4c 41 | $047F,X.bRt.PLA|
00004a60 00 6a 52 7e c2 54 41 58 00 72 52 88 c2 52 54 53 |.jR~.TAX.rR..RTS|
00004a70 00 86 52 5a c3 50 4c 4f 54 50 43 20 4c 44 41 20 |..RZ.PLOTPC LDA |
00004a80 23 24 34 37 00 92 52 64 c3 53 54 41 20 24 46 42 |#$47..Rd.STA $FB|
00004a90 00 9f 52 6e c3 4c 44 41 20 23 24 33 46 00 ab 52 |..Rn.LDA #$3F..R|
00004aa0 78 c3 53 54 41 20 24 46 43 00 ba 52 82 c3 4c 44 |x.STA $FC..R..LD|
00004ab0 41 20 59 50 49 58 45 4c 00 c4 52 8c c3 4c 53 52 |A YPIXEL..R..LSR|
00004ac0 20 41 00 ce 52 96 c3 4c 53 52 20 41 00 d8 52 a0 | A..R..LSR A..R.|
00004ad0 c3 4c 53 52 20 41 00 e5 52 aa c3 53 54 41 20 59 |.LSR A..R..STA Y|
00004ae0 50 49 42 00 f0 52 b4 c3 af 20 23 24 30 33 00 fa |PIB..R... #$03..|
00004af0 52 be c3 41 53 4c 20 41 00 04 53 c8 c3 41 53 4c |R..ASL A..S..ASL|
00004b00 20 41 00 0e 53 d2 c3 41 53 4c 20 41 00 18 53 dc | A..S..ASL A..S.|
00004b10 c3 41 53 4c 20 41 00 22 53 e6 c3 41 53 4c 20 41 |.ASL A."S..ASL A|
00004b20 00 2c 53 f0 c3 41 53 4c 20 41 00 38 53 fa c3 53 |.,S..ASL A.8S..S|
00004b30 54 41 20 24 30 32 00 44 53 04 c4 4c 44 41 20 24 |TA $02.DS..LDA $|
00004b40 46 42 00 4c 53 0e c4 53 45 43 00 58 53 18 c4 53 |FB.LS..SEC.XS..S|
00004b50 42 43 20 24 30 32 00 64 53 22 c4 53 54 41 20 24 |BC $02.dS".STA $|
00004b60 46 42 00 70 53 2c c4 4c 44 41 20 24 46 43 00 7d |FB.pS,.LDA $FC.}|
00004b70 53 36 c4 53 42 43 20 23 24 30 30 00 8a 53 3b c4 |S6.SBC #$00..S;.|
00004b80 53 42 43 20 59 50 49 42 00 92 53 40 c4 50 48 41 |SBC YPIB..S@.PHA|
00004b90 00 9f 53 4a c4 4c 44 41 20 59 50 49 42 00 a9 53 |..SJ.LDA YPIB..S|
00004ba0 54 c4 4c 53 52 20 41 00 b3 53 5e c4 4c 53 52 20 |T.LSR A..S^.LSR |
00004bb0 41 00 bf 53 68 c4 53 54 41 20 24 30 32 00 c7 53 |A..Sh.STA $02..S|
00004bc0 72 c4 50 4c 41 00 cf 53 7c c4 53 45 43 00 db 53 |r.PLA..S|.SEC..S|
00004bd0 86 c4 53 42 43 20 24 30 32 00 e7 53 90 c4 53 54 |..SBC $02..S..ST|
00004be0 41 20 24 46 43 00 f6 53 9a c4 4c 44 41 20 59 50 |A $FC..S..LDA YP|
00004bf0 49 58 45 4c 00 01 54 a4 c4 af 20 23 24 30 37 00 |IXEL..T... #$07.|
00004c00 0e 54 ae c4 53 54 41 20 59 50 49 42 00 1a 54 b8 |.T..STA YPIB..T.|
00004c10 c4 4c 44 41 20 24 46 42 00 22 54 c2 c4 53 45 43 |.LDA $FB."T..SEC|
00004c20 00 2f 54 cc c4 53 42 43 20 59 50 49 42 00 37 54 |./T..SBC YPIB.7T|
00004c30 d6 c4 50 48 41 00 46 54 e0 c4 4c 44 41 20 58 50 |..PHA.FT..LDA XP|
00004c40 49 58 45 4c 00 51 54 ea c4 af 20 23 24 46 38 00 |IXEL.QT... #$F8.|
00004c50 5e 54 f4 c4 53 54 41 20 59 50 49 42 00 66 54 fe |^T..STA YPIB.fT.|
00004c60 c4 50 4c 41 00 6e 54 08 c5 43 4c 43 00 7b 54 12 |.PLA.nT..CLC.{T.|
00004c70 c5 41 44 43 20 59 50 49 42 00 87 54 1c c5 53 54 |.ADC YPIB..T..ST|
00004c80 41 20 24 46 42 00 93 54 26 c5 4c 44 41 20 24 46 |A $FB..T&.LDA $F|
00004c90 43 00 a0 54 30 c5 53 42 43 20 23 24 30 30 00 ac |C..T0.SBC #$00..|
00004ca0 54 3a c5 53 54 41 20 24 46 43 00 bb 54 44 c5 4c |T:.STA $FC..TD.L|
00004cb0 44 41 20 58 50 49 58 45 4c 00 c6 54 4e c5 af 20 |DA XPIXEL..TN.. |
00004cc0 23 24 30 37 00 ce 54 58 c5 54 41 58 00 db 54 62 |#$07..TX.TAX..Tb|
00004cd0 c5 4c 44 41 20 23 24 38 30 00 ef 54 6c c5 47 42 |.LDA #$80..Tl.GB|
00004ce0 49 54 4c 50 20 43 50 58 20 23 24 30 30 00 fb 54 |ITLP CPX #$00..T|
00004cf0 76 c5 42 45 51 20 50 50 9a 00 05 55 80 c5 4c 53 |v.BEQ PP...U..LS|
00004d00 52 20 41 00 0d 55 8a c5 44 45 58 00 1c 55 94 c5 |R A..U..DEX..U..|
00004d10 4a 4d 50 20 47 42 49 54 4c 50 00 2c 55 9e c5 50 |JMP GBITLP.,U..P|
00004d20 50 9a 20 53 54 41 20 24 46 44 00 34 55 a8 c5 52 |P. STA $FD.4U..R|
00004d30 54 53 00 49 55 b2 c5 50 4c 4f a4 4e 20 4a 53 52 |TS.IU..PLO.N JSR|
00004d40 20 50 4c 4f 54 50 43 00 56 55 bc c5 4c 44 59 20 | PLOTPC.VU..LDY |
00004d50 23 24 30 30 00 66 55 c6 c5 4c 44 41 20 28 24 46 |#$00.fU..LDA ($F|
00004d60 42 29 2c 59 00 71 55 d0 c5 b0 41 20 24 46 44 00 |B),Y.qU...A $FD.|
00004d70 81 55 da c5 53 54 41 20 28 24 46 42 29 2c 59 00 |.U..STA ($FB),Y.|
00004d80 89 55 e4 c5 52 54 53 00 9f 55 ee c5 50 4c 4f a4 |.U..RTS..U..PLO.|
00004d90 46 46 20 4a 53 52 20 50 4c 4f 54 50 43 00 ab 55 |FF JSR PLOTPC..U|
00004da0 f8 c5 4c 44 41 20 24 46 44 00 b7 55 02 c6 45 b0 |..LDA $FD..U..E.|
00004db0 20 23 24 46 46 00 c3 55 0c c6 53 54 41 20 24 46 | #$FF..U..STA $F|
00004dc0 44 00 d0 55 16 c6 4c 44 59 20 23 24 30 30 00 e0 |D..U..LDY #$00..|
00004dd0 55 20 c6 4c 44 41 20 28 24 46 42 29 2c 59 00 ea |U .LDA ($FB),Y..|
00004de0 55 2a c6 af 20 24 46 44 00 fa 55 34 c6 53 54 41 |U*.. $FD..U4.STA|
00004df0 20 28 24 46 42 29 2c 59 00 02 56 3e c6 52 54 53 | ($FB),Y..V>.RTS|
00004e00 00 16 56 48 c6 50 4c 4f 54 20 4c 44 41 20 43 4f |..VH.PLOT LDA CO|
00004e10 4c 4f 55 52 00 21 56 52 c6 af 20 23 24 30 32 00 |LOUR.!VR.. #$02.|
00004e20 2e 56 5c c6 42 4e 45 20 50 50 41 91 00 3d 56 66 |.V\.BNE PPA..=Vf|
00004e30 c6 4a 53 52 20 50 4c 4f a4 46 46 00 4c 56 70 c6 |.JSR PLO.FF.LVp.|
00004e40 4a 4d 50 20 50 50 41 43 4e 54 00 5f 56 7a c6 50 |JMP PPACNT._Vz.P|
00004e50 50 41 91 20 4a 53 52 20 50 4c 4f a4 4e 00 75 56 |PA. JSR PLO.N.uV|
00004e60 84 c6 50 50 41 43 4e 54 20 49 4e 43 20 58 50 49 |..PPACNT INC XPI|
00004e70 58 45 4c 00 84 56 8e c6 4c 44 41 20 43 4f 4c 4f |XEL..V..LDA COLO|
00004e80 55 52 00 8f 56 98 c6 af 20 23 24 30 31 00 9c 56 |UR..V... #$01..V|
00004e90 a2 c6 42 4e 45 20 50 50 42 91 00 ab 56 ac c6 4a |..BNE PPB...V..J|
00004ea0 53 52 20 50 4c 4f a4 46 46 00 ba 56 b6 c6 4a 4d |SR PLO.FF..V..JM|
00004eb0 50 20 50 50 42 43 4e 54 00 cd 56 c0 c6 50 50 42 |P PPBCNT..V..PPB|
00004ec0 91 20 4a 53 52 20 50 4c 4f a4 4e 00 e3 56 ca c6 |. JSR PLO.N..V..|
00004ed0 50 50 42 43 4e 54 20 49 4e 43 20 58 50 49 58 45 |PPBCNT INC XPIXE|
00004ee0 4c 00 eb 56 d4 c6 52 54 53 00 01 57 e2 d6 4e 4f |L..V..RTS..W..NO|
00004ef0 5a 4f 4f 4d 20 4a 4d 50 20 9a 52 4f 4c 4f 50 00 |ZOOM JMP .ROLOP.|
00004f00 16 57 ec d6 5a 4f 4f 4d 49 4e 20 4c 44 41 20 24 |.W..ZOOMIN LDA $|
00004f10 44 30 31 35 00 21 57 f6 d6 af 20 23 24 46 30 00 |D015.!W... #$F0.|
00004f20 2e 57 00 d7 43 4d 50 20 23 24 46 30 00 3d 57 0a |.W..CMP #$F0.=W.|
00004f30 d7 42 4e 45 20 4e 4f 5a 4f 4f 4d 00 4a 57 14 d7 |.BNE NOZOOM.JW..|
00004f40 4c 44 41 20 23 24 31 45 00 58 57 1e d7 53 54 41 |LDA #$1E.XW..STA|
00004f50 20 24 34 31 30 30 00 65 57 28 d7 4c 44 41 20 23 | $4100.eW(.LDA #|
00004f60 24 30 31 00 73 57 32 d7 53 54 41 20 24 34 31 30 |$01.sW2.STA $410|
00004f70 31 00 80 57 3c d7 4c 44 41 20 23 24 31 30 00 8e |1..W<.LDA #$10..|
00004f80 57 46 d7 53 54 41 20 24 34 31 30 32 00 9f 57 50 |WF.STA $4102..WP|
00004f90 d7 4a 53 52 20 53 55 42 54 52 41 43 54 00 ac 57 |.JSR SUBTRACT..W|
00004fa0 5a d7 4c 44 41 20 23 24 30 31 00 ba 57 64 d7 53 |Z.LDA #$01..Wd.S|
00004fb0 54 41 20 24 34 31 30 30 00 c8 57 6e d7 49 4e 43 |TA $4100..Wn.INC|
00004fc0 20 24 34 31 30 32 00 d6 57 78 d7 4a 53 52 20 45 | $4102..Wx.JSR E|
00004fd0 51 55 41 4c 00 e3 57 82 d7 4c 44 41 20 23 24 31 |QUAL..W..LDA #$1|
00004fe0 30 00 f1 57 8c d7 53 54 41 20 24 34 31 30 30 00 |0..W..STA $4100.|
00004ff0 fe 57 96 d7 4c 44 41 20 23 24 31 42 00 0c 58 a0 |.W..LDA #$1B..X.|
00005000 d7 53 54 41 20 24 34 31 30 31 00 19 58 aa d7 4c |.STA $4101..X..L|
00005010 44 41 20 23 24 31 32 00 27 58 b4 d7 53 54 41 20 |DA #$12.'X..STA |
00005020 24 34 31 30 32 00 38 58 be d7 4a 53 52 20 4d 55 |$4102.8X..JSR MU|
00005030 4c 54 49 50 4c 59 00 45 58 c8 d7 4c 44 41 20 23 |LTIPLY.EX..LDA #|
00005040 24 31 31 00 53 58 d2 d7 53 54 41 20 24 34 31 30 |$11.SX..STA $410|
00005050 30 00 61 58 dc d7 53 54 41 20 24 34 31 30 32 00 |0.aX..STA $4102.|
00005060 6e 58 e6 d7 4c 44 41 20 23 24 31 32 00 7c 58 f0 |nX..LDA #$12.|X.|
00005070 d7 53 54 41 20 24 34 31 30 31 00 8a 58 fa d7 4c |.STA $4101..X..L|
00005080 44 41 20 24 44 30 30 38 00 92 58 04 d8 53 45 43 |DA $D008..X..SEC|
00005090 00 9f 58 0e d8 53 42 43 20 23 24 35 38 00 b7 58 |..X..SBC #$58..X|
000050a0 18 d8 43 41 4c 43 49 4e 4c 4f 50 41 20 43 4d 50 |..CALCINLOPA CMP|
000050b0 20 23 24 30 30 00 c7 58 22 d8 42 45 51 20 43 41 | #$00..X".BEQ CA|
000050c0 4c 43 80 49 41 00 cf 58 2c d8 50 48 41 00 df 58 |LC.IA..X,.PHA..X|
000050d0 36 d8 4a 53 52 20 41 44 44 49 54 49 91 00 e7 58 |6.JSR ADDITI...X|
000050e0 40 d8 50 4c 41 00 ef 58 4a d8 54 41 58 00 f7 58 |@.PLA..XJ.TAX..X|
000050f0 54 d8 44 45 58 00 ff 58 5e d8 54 58 41 00 12 59 |T.DEX..X^.TXA..Y|
00005100 68 d8 4a 4d 50 20 43 41 4c 43 49 4e 4c 4f 50 41 |h.JMP CALCINLOPA|
00005110 00 27 59 72 d8 43 41 4c 43 80 49 41 20 4c 44 41 |.'Yr.CALC.IA LDA|
00005120 20 23 24 30 31 00 35 59 7c d8 53 54 41 20 24 34 | #$01.5Y|.STA $4|
00005130 31 30 30 00 42 59 86 d8 4c 44 41 20 23 24 31 33 |100.BY..LDA #$13|
00005140 00 50 59 90 d8 53 54 41 20 24 34 31 30 32 00 5e |.PY..STA $4102.^|
00005150 59 9a d8 4a 53 52 20 45 51 55 41 4c 00 6b 59 a4 |Y..JSR EQUAL.kY.|
00005160 d8 4c 44 41 20 23 24 31 33 00 79 59 ae d8 53 54 |.LDA #$13.yY..ST|
00005170 41 20 24 34 31 30 30 00 87 59 b8 d8 53 54 41 20 |A $4100..Y..STA |
00005180 24 34 31 30 32 00 94 59 c2 d8 4c 44 41 20 23 24 |$4102..Y..LDA #$|
00005190 31 32 00 a2 59 cc d8 53 54 41 20 24 34 31 30 31 |12..Y..STA $4101|
000051a0 00 b0 59 d6 d8 4c 44 41 20 24 44 30 30 41 00 b8 |..Y..LDA $D00A..|
000051b0 59 e0 d8 53 45 43 00 c5 59 ea d8 53 42 43 20 23 |Y..SEC..Y..SBC #|
000051c0 24 34 30 00 dd 59 f4 d8 43 41 4c 43 49 4e 4c 4f |$40..Y..CALCINLO|
000051d0 50 42 20 43 4d 50 20 23 24 30 30 00 ed 59 fe d8 |PB CMP #$00..Y..|
000051e0 42 45 51 20 43 41 4c 43 80 49 42 00 f5 59 08 d9 |BEQ CALC.IB..Y..|
000051f0 50 48 41 00 05 5a 12 d9 4a 53 52 20 41 44 44 49 |PHA..Z..JSR ADDI|
00005200 54 49 91 00 0d 5a 1c d9 50 4c 41 00 15 5a 26 d9 |TI...Z..PLA..Z&.|
00005210 54 41 58 00 1d 5a 30 d9 44 45 58 00 25 5a 3a d9 |TAX..Z0.DEX.%Z:.|
00005220 54 58 41 00 38 5a 44 d9 4a 4d 50 20 43 41 4c 43 |TXA.8ZD.JMP CALC|
00005230 49 4e 4c 4f 50 42 00 4d 5a 4e d9 43 41 4c 43 80 |INLOPB.MZN.CALC.|
00005240 49 42 20 4c 44 41 20 23 24 31 31 00 5b 5a 58 d9 |IB LDA #$11.[ZX.|
00005250 53 54 41 20 24 34 31 30 30 00 68 5a 62 d9 4c 44 |STA $4100.hZb.LD|
00005260 41 20 23 24 30 31 00 76 5a 6c d9 53 54 41 20 24 |A #$01.vZl.STA $|
00005270 34 31 30 32 00 84 5a 76 d9 4a 53 52 20 45 51 55 |4102..Zv.JSR EQU|
00005280 41 4c 00 91 5a 80 d9 4c 44 41 20 23 24 31 33 00 |AL..Z..LDA #$13.|
00005290 9f 5a 8a d9 53 54 41 20 24 34 31 30 30 00 ac 5a |.Z..STA $4100..Z|
000052a0 94 d9 4c 44 41 20 23 24 31 45 00 ba 5a 9e d9 53 |..LDA #$1E..Z..S|
000052b0 54 41 20 24 34 31 30 32 00 c8 5a a8 d9 4a 53 52 |TA $4102..Z..JSR|
000052c0 20 45 51 55 41 4c 00 d5 5a b2 d9 4c 44 41 20 23 | EQUAL..Z..LDA #|
000052d0 24 31 46 00 e3 5a bc d9 53 54 41 20 24 34 31 30 |$1F..Z..STA $410|
000052e0 30 00 f0 5a c6 d9 4c 44 41 20 23 24 30 33 00 fe |0..Z..LDA #$03..|
000052f0 5a d0 d9 53 54 41 20 24 34 31 30 31 00 0b 5b da |Z..STA $4101..[.|
00005300 d9 4c 44 41 20 23 24 31 30 00 19 5b e4 d9 53 54 |.LDA #$10..[..ST|
00005310 41 20 24 34 31 30 32 00 2a 5b ee d9 4a 53 52 20 |A $4102.*[..JSR |
00005320 53 55 42 54 52 41 43 54 00 37 5b f8 d9 4c 44 41 |SUBTRACT.7[..LDA|
00005330 20 23 24 30 33 00 45 5b 02 da 53 54 41 20 24 34 | #$03.E[..STA $4|
00005340 31 30 30 00 53 5b 0c da 49 4e 43 20 24 34 31 30 |100.S[..INC $410|
00005350 32 00 61 5b 16 da 4a 53 52 20 45 51 55 41 4c 00 |2.a[..JSR EQUAL.|
00005360 6e 5b 20 da 4c 44 41 20 23 24 31 30 00 7c 5b 2a |n[ .LDA #$10.|[*|
00005370 da 53 54 41 20 24 34 31 30 30 00 89 5b 34 da 4c |.STA $4100..[4.L|
00005380 44 41 20 23 24 31 32 00 97 5b 3e da 53 54 41 20 |DA #$12..[>.STA |
00005390 24 34 31 30 32 00 a4 5b 48 da 4c 44 41 20 23 24 |$4102..[H.LDA #$|
000053a0 31 41 00 b2 5b 52 da 53 54 41 20 24 34 31 30 31 |1A..[R.STA $4101|
000053b0 00 c3 5b 5c da 4a 53 52 20 4d 55 4c 54 49 50 4c |..[\.JSR MULTIPL|
000053c0 59 00 d0 5b 66 da 4c 44 41 20 23 24 31 31 00 de |Y..[f.LDA #$11..|
000053d0 5b 70 da 53 54 41 20 24 34 31 30 30 00 ec 5b 7a |[p.STA $4100..[z|
000053e0 da 53 54 41 20 24 34 31 30 32 00 f9 5b 84 da 4c |.STA $4102..[..L|
000053f0 44 41 20 23 24 31 32 00 07 5c 8e da 53 54 41 20 |DA #$12..\..STA |
00005400 24 34 31 30 31 00 14 5c 98 da 4c 44 41 20 23 24 |$4101..\..LDA #$|
00005410 45 35 00 1c 5c a2 da 53 45 43 00 2a 5c ac da 53 |E5..\..SEC.*\..S|
00005420 42 43 20 24 44 30 30 44 00 40 5c b6 da 43 41 4c |BC $D00D.@\..CAL|
00005430 43 49 4e 59 41 20 43 4d 50 20 23 24 30 30 00 50 |CINYA CMP #$00.P|
00005440 5c c0 da 42 45 51 20 43 41 4c 43 80 49 43 00 58 |\..BEQ CALC.IC.X|
00005450 5c ca da 50 48 41 00 68 5c d4 da 4a 53 52 20 41 |\..PHA.h\..JSR A|
00005460 44 44 49 54 49 91 00 70 5c de da 50 4c 41 00 78 |DDITI..p\..PLA.x|
00005470 5c e8 da 54 41 58 00 80 5c f2 da 44 45 58 00 88 |\..TAX..\..DEX..|
00005480 5c fc da 54 58 41 00 99 5c 06 db 4a 4d 50 20 43 |\..TXA..\..JMP C|
00005490 41 4c 43 49 4e 59 41 00 ae 5c 10 db 43 41 4c 43 |ALCINYA..\..CALC|
000054a0 80 49 43 20 4c 44 41 20 23 24 30 33 00 bc 5c 1a |.IC LDA #$03..\.|
000054b0 db 53 54 41 20 24 34 31 30 30 00 c9 5c 24 db 4c |.STA $4100..\$.L|
000054c0 44 41 20 23 24 31 33 00 d7 5c 2e db 53 54 41 20 |DA #$13..\..STA |
000054d0 24 34 31 30 32 00 e5 5c 38 db 4a 53 52 20 45 51 |$4102..\8.JSR EQ|
000054e0 55 41 4c 00 f2 5c 42 db 4c 44 41 20 23 24 31 33 |UAL..\B.LDA #$13|
000054f0 00 00 5d 4c db 53 54 41 20 24 34 31 30 30 00 0e |..]L.STA $4100..|
00005500 5d 56 db 53 54 41 20 24 34 31 30 32 00 1b 5d 60 |]V.STA $4102..]`|
00005510 db 4c 44 41 20 23 24 31 32 00 29 5d 6a db 53 54 |.LDA #$12.)]j.ST|
00005520 41 20 24 34 31 30 31 00 36 5d 74 db 4c 44 41 20 |A $4101.6]t.LDA |
00005530 23 24 46 41 00 3e 5d 7e db 53 45 43 00 4c 5d 88 |#$FA.>]~.SEC.L].|
00005540 db 53 42 43 20 24 44 30 30 39 00 62 5d 92 db 43 |.SBC $D009.b]..C|
00005550 41 4c 43 49 4e 59 42 20 43 4d 50 20 23 24 30 30 |ALCINYB CMP #$00|
00005560 00 72 5d 9c db 42 45 51 20 43 41 4c 43 80 49 44 |.r]..BEQ CALC.ID|
00005570 00 7a 5d a6 db 50 48 41 00 8a 5d b0 db 4a 53 52 |.z]..PHA..]..JSR|
00005580 20 41 44 44 49 54 49 91 00 92 5d ba db 50 4c 41 | ADDITI...]..PLA|
00005590 00 9a 5d c4 db 54 41 58 00 a2 5d ce db 44 45 58 |..]..TAX..]..DEX|
000055a0 00 aa 5d d8 db 54 58 41 00 bb 5d e2 db 4a 4d 50 |..]..TXA..]..JMP|
000055b0 20 43 41 4c 43 49 4e 59 42 00 d0 5d ec db 43 41 | CALCINYB..]..CA|
000055c0 4c 43 80 49 44 20 4c 44 41 20 23 24 31 31 00 de |LC.ID LDA #$11..|
000055d0 5d f6 db 53 54 41 20 24 34 31 30 30 00 eb 5d 00 |]..STA $4100..].|
000055e0 dc 4c 44 41 20 23 24 30 33 00 f9 5d 0a dc 53 54 |.LDA #$03..]..ST|
000055f0 41 20 24 34 31 30 32 00 07 5e 14 dc 4a 53 52 20 |A $4102..^..JSR |
00005600 45 51 55 41 4c 00 14 5e 1e dc 4c 44 41 20 23 24 |EQUAL..^..LDA #$|
00005610 31 33 00 22 5e 28 dc 53 54 41 20 24 34 31 30 30 |13."^(.STA $4100|
00005620 00 2f 5e 32 dc 4c 44 41 20 23 24 31 46 00 3d 5e |./^2.LDA #$1F.=^|
00005630 3c dc 53 54 41 20 24 34 31 30 32 00 4b 5e 46 dc |<.STA $4102.K^F.|
00005640 4a 53 52 20 45 51 55 41 4c 00 5e 5e 50 dc 43 41 |JSR EQUAL.^^P.CA|
00005650 4c 43 a9 20 4c 44 41 20 23 24 31 45 00 6c 5e 5a |LC. LDA #$1E.l^Z|
00005660 dc 53 54 41 20 24 34 31 30 30 00 79 5e 64 dc 4c |.STA $4100.y^d.L|
00005670 44 41 20 23 24 30 31 00 87 5e 6e dc 53 54 41 20 |DA #$01..^n.STA |
00005680 24 34 31 30 31 00 94 5e 78 dc 4c 44 41 20 23 24 |$4101..^x.LDA #$|
00005690 31 30 00 a2 5e 82 dc 53 54 41 20 24 34 31 30 32 |10..^..STA $4102|
000056a0 00 b3 5e 8c dc 4a 53 52 20 53 55 42 54 52 41 43 |..^..JSR SUBTRAC|
000056b0 54 00 c0 5e 96 dc 4c 44 41 20 23 24 31 30 00 ce |T..^..LDA #$10..|
000056c0 5e a0 dc 53 54 41 20 24 34 31 30 30 00 db 5e aa |^..STA $4100..^.|
000056d0 dc 4c 44 41 20 23 24 31 37 00 e9 5e b4 dc 53 54 |.LDA #$17..^..ST|
000056e0 41 20 24 34 31 30 31 00 f6 5e be dc 4c 44 41 20 |A $4101..^..LDA |
000056f0 23 24 30 32 00 04 5f c8 dc 53 54 41 20 24 34 31 |#$02.._..STA $41|
00005700 30 32 00 15 5f d2 dc 4a 53 52 20 4d 55 4c 54 49 |02.._..JSR MULTI|
00005710 50 4c 59 00 22 5f dc dc 4c 44 41 20 23 24 31 46 |PLY."_..LDA #$1F|
00005720 00 30 5f e6 dc 53 54 41 20 24 34 31 30 30 00 3d |.0_..STA $4100.=|
00005730 5f f0 dc 4c 44 41 20 23 24 30 33 00 4b 5f fa dc |_..LDA #$03.K_..|
00005740 53 54 41 20 24 34 31 30 31 00 58 5f 04 dd 4c 44 |STA $4101.X_..LD|
00005750 41 20 23 24 31 30 00 66 5f 0e dd 53 54 41 20 24 |A #$10.f_..STA $|
00005760 34 31 30 32 00 77 5f 18 dd 4a 53 52 20 53 55 42 |4102.w_..JSR SUB|
00005770 54 52 41 43 54 00 84 5f 22 dd 4c 44 41 20 23 24 |TRACT.._".LDA #$|
00005780 31 30 00 92 5f 2c dd 53 54 41 20 24 34 31 30 30 |10.._,.STA $4100|
00005790 00 9f 5f 36 dd 4c 44 41 20 23 24 31 41 00 ad 5f |.._6.LDA #$1A.._|
000057a0 40 dd 53 54 41 20 24 34 31 30 31 00 ba 5f 4a dd |@.STA $4101.._J.|
000057b0 4c 44 41 20 23 24 30 34 00 c8 5f 54 dd 53 54 41 |LDA #$04.._T.STA|
000057c0 20 24 34 31 30 32 00 d9 5f 5e dd 4a 53 52 20 4d | $4102.._^.JSR M|
000057d0 55 4c 54 49 50 4c 59 00 e6 5f 68 dd 4a 53 52 20 |ULTIPLY.._h.JSR |
000057e0 4d af 4c 45 00 f5 5f 72 dd 4a 4d 50 20 9a 52 4f |M.LE.._r.JMP .RO|
000057f0 4c 4f 50 00 01 60 b2 de ac b2 24 30 38 32 30 00 |LOP..`....$0820.|
00005800 14 60 bc de 4d af 4c 45 20 4c 44 41 20 46 52 41 |.`..M.LE LDA FRA|
00005810 43 dd 00 21 60 c6 de 42 4e 45 20 4a 55 4c 50 00 |C..!`..BNE JULP.|
00005820 2e 60 d0 de 4a 4d 50 20 4d af 45 4c 00 40 60 da |.`..JMP M.EL.@`.|
00005830 de 4a 55 4c 50 20 43 4d 50 20 23 24 30 32 00 4d |.JULP CMP #$02.M|
00005840 60 e4 de 42 45 51 20 4e 4a 55 4c 00 5b 60 ee de |`..BEQ NJUL.[`..|
00005850 4a 4d 50 20 4a 55 4c 49 41 00 68 60 f8 de 4e 4a |JMP JULIA.h`..NJ|
00005860 55 4c 20 50 4c 41 00 70 60 02 df 50 4c 41 00 78 |UL PLA.p`..PLA.x|
00005870 60 0c df 52 54 53 00 8c 60 16 df 4e 4f 53 57 20 |`..RTS..`..NOSW |
00005880 4a 4d 50 20 9a 52 4f 4c 4f 50 00 a1 60 2a df 53 |JMP .ROLOP..`*.S|
00005890 57 49 54 43 48 20 4c 44 41 20 24 44 30 31 35 00 |WITCH LDA $D015.|
000058a0 ac 60 34 df af 20 23 24 46 30 00 b9 60 3e df 43 |.`4.. #$F0..`>.C|
000058b0 4d 50 20 23 24 46 30 00 c6 60 48 df 42 4e 45 20 |MP #$F0..`H.BNE |
000058c0 4e 4f 53 57 00 d4 60 52 df 4c 44 41 20 46 52 41 |NOSW..`R.LDA FRA|
000058d0 43 dd 00 e0 60 5c df 45 b0 20 23 24 30 31 00 ee |C...`\.E. #$01..|
000058e0 60 66 df 53 54 41 20 46 52 41 43 dd 00 fe 60 70 |`f.STA FRAC...`p|
000058f0 df 42 4e 45 20 4a 55 4c 49 41 53 57 00 0b 61 7a |.BNE JULIASW..az|
00005900 df 4c 44 41 20 23 24 32 30 00 17 61 84 df 53 54 |.LDA #$20..a..ST|
00005910 41 20 24 46 43 00 24 61 8e df 4c 44 41 20 23 24 |A $FC.$a..LDA #$|
00005920 36 30 00 30 61 98 df 53 54 41 20 24 46 45 00 3d |60.0a..STA $FE.=|
00005930 61 a2 df 4c 44 59 20 23 24 30 30 00 49 61 ac df |a..LDY #$00.Ia..|
00005940 53 54 59 20 24 46 42 00 55 61 b6 df 53 54 59 20 |STY $FB.Ua..STY |
00005950 24 46 44 00 6c 61 c0 df 53 57 49 4c 4f 50 20 4c |$FD.la..SWILOP L|
00005960 44 41 20 28 24 46 44 29 2c 59 00 7c 61 ca df 53 |DA ($FD),Y.|a..S|
00005970 54 41 20 28 24 46 42 29 2c 59 00 84 61 d4 df 49 |TA ($FB),Y..a..I|
00005980 4e 59 00 93 61 de df 42 4e 45 20 53 57 49 4c 4f |NY..a..BNE SWILO|
00005990 50 00 9f 61 e8 df 49 4e 43 20 24 46 43 00 ab 61 |P..a..INC $FC..a|
000059a0 f2 df 49 4e 43 20 24 46 45 00 b7 61 fc df 4c 44 |..INC $FE..a..LD|
000059b0 41 20 24 46 43 00 c4 61 06 e0 43 4d 50 20 23 24 |A $FC..a..CMP #$|
000059c0 34 31 00 d3 61 10 e0 42 4e 45 20 53 57 49 4c 4f |41..a..BNE SWILO|
000059d0 50 00 e2 61 1a e0 4a 4d 50 20 9a 52 4f 4c 4f 50 |P..a..JMP .ROLOP|
000059e0 00 f7 61 24 e0 4a 55 4c 49 41 53 57 20 4c 44 41 |..a$.JULIASW LDA|
000059f0 20 23 24 32 30 00 03 62 2e e0 53 54 41 20 24 46 | #$20..b..STA $F|
00005a00 43 00 10 62 38 e0 4c 44 41 20 23 24 36 30 00 1c |C..b8.LDA #$60..|
00005a10 62 42 e0 53 54 41 20 24 46 45 00 29 62 4c e0 4c |bB.STA $FE.)bL.L|
00005a20 44 59 20 23 24 30 30 00 35 62 56 e0 53 54 59 20 |DY #$00.5bV.STY |
00005a30 24 46 42 00 41 62 60 e0 53 54 59 20 24 46 44 00 |$FB.Ab`.STY $FD.|
00005a40 58 62 6a e0 4a 53 57 4c 4f 50 20 4c 44 41 20 28 |Xbj.JSWLOP LDA (|
00005a50 24 46 42 29 2c 59 00 68 62 74 e0 53 54 41 20 28 |$FB),Y.hbt.STA (|
00005a60 24 46 44 29 2c 59 00 70 62 7e e0 49 4e 59 00 7f |$FD),Y.pb~.INY..|
00005a70 62 88 e0 42 4e 45 20 4a 53 57 4c 4f 50 00 8b 62 |b..BNE JSWLOP..b|
00005a80 92 e0 49 4e 43 20 24 46 43 00 97 62 9c e0 49 4e |..INC $FC..b..IN|
00005a90 43 20 24 46 45 00 a3 62 a6 e0 4c 44 41 20 24 46 |C $FE..b..LDA $F|
00005aa0 43 00 b0 62 b0 e0 43 4d 50 20 23 24 34 31 00 bf |C..b..CMP #$41..|
00005ab0 62 ba e0 42 4e 45 20 4a 53 57 4c 4f 50 00 cd 62 |b..BNE JSWLOP..b|
00005ac0 c4 e0 49 4e 43 20 46 52 41 43 dd 00 dc 62 ce e0 |..INC FRAC...b..|
00005ad0 4a 53 52 20 5a 4f 4f 4d 49 4e 00 ea 62 d8 e0 44 |JSR ZOOMIN..b..D|
00005ae0 45 43 20 46 52 41 43 dd 00 f7 62 e2 e0 4c 44 41 |EC FRAC...b..LDA|
00005af0 20 23 24 30 31 00 05 63 ec e0 53 54 41 20 24 34 | #$01..c..STA $4|
00005b00 31 30 30 00 12 63 f6 e0 4c 44 41 20 23 24 30 39 |100..c..LDA #$09|
00005b10 00 20 63 00 e1 53 54 41 20 24 34 31 30 32 00 2e |. c..STA $4102..|
00005b20 63 0a e1 4a 53 52 20 45 51 55 41 4c 00 3b 63 14 |c..JSR EQUAL.;c.|
00005b30 e1 4c 44 41 20 23 24 30 33 00 49 63 1e e1 53 54 |.LDA #$03.Ic..ST|
00005b40 41 20 24 34 31 30 30 00 57 63 28 e1 49 4e 43 20 |A $4100.Wc(.INC |
00005b50 24 34 31 30 32 00 65 63 32 e1 4a 53 52 20 45 51 |$4102.ec2.JSR EQ|
00005b60 55 41 4c 00 72 63 3c e1 4c 44 41 20 23 24 31 43 |UAL.rc<.LDA #$1C|
00005b70 00 80 63 46 e1 53 54 41 20 24 34 31 30 30 00 8d |..cF.STA $4100..|
00005b80 63 50 e1 4c 44 41 20 23 24 31 45 00 9b 63 5a e1 |cP.LDA #$1E..cZ.|
00005b90 53 54 41 20 24 34 31 30 32 00 a9 63 64 e1 4a 53 |STA $4102..cd.JS|
00005ba0 52 20 45 51 55 41 4c 00 b7 63 6e e1 49 4e 43 20 |R EQUAL..cn.INC |
00005bb0 24 34 31 30 32 00 c5 63 78 e1 4a 53 52 20 45 51 |$4102..cx.JSR EQ|
00005bc0 55 41 4c 00 d2 63 82 e1 4c 44 41 20 23 24 30 42 |UAL..c..LDA #$0B|
00005bd0 00 e0 63 8c e1 53 54 41 20 24 34 31 30 30 00 ed |..c..STA $4100..|
00005be0 63 96 e1 4c 44 41 20 23 24 30 31 00 fb 63 a0 e1 |c..LDA #$01..c..|
00005bf0 53 54 41 20 24 34 31 30 32 00 09 64 aa e1 4a 53 |STA $4102..d..JS|
00005c00 52 20 45 51 55 41 4c 00 16 64 b4 e1 4c 44 41 20 |R EQUAL..d..LDA |
00005c10 23 24 30 33 00 24 64 be e1 53 54 41 20 24 34 31 |#$03.$d..STA $41|
00005c20 30 32 00 32 64 c8 e1 4a 53 52 20 45 51 55 41 4c |02.2d..JSR EQUAL|
00005c30 00 40 64 d2 e1 4a 4d 50 20 43 41 4c 43 a9 00 4f |.@d..JMP CALC..O|
00005c40 64 6a ea 42 4f 58 20 4c 44 41 20 58 50 00 5c 64 |dj.BOX LDA XP.\d|
00005c50 74 ea 53 54 41 20 58 50 49 42 00 67 64 7e ea 4c |t.STA XPIB.gd~.L|
00005c60 44 41 20 59 50 00 74 64 88 ea 53 54 41 20 59 50 |DA YP.td..STA YP|
00005c70 49 42 00 80 64 92 ea 4c 44 41 20 58 50 42 00 8e |IB..d..LDA XPB..|
00005c80 64 9c ea 53 54 41 20 58 50 42 49 42 00 9b 64 a6 |d..STA XPBIB..d.|
00005c90 ea 4c 44 58 20 23 24 33 43 00 a9 64 b0 ea 53 54 |.LDX #$3C..d..ST|
00005ca0 58 20 24 30 37 46 43 00 b1 64 ba ea 49 4e 58 00 |X $07FC..d..INX.|
00005cb0 bf 64 c4 ea 53 54 58 20 24 30 37 46 44 00 c7 64 |.d..STX $07FD..d|
00005cc0 ce ea 49 4e 58 00 d5 64 d8 ea 53 54 58 20 24 30 |..INX..d..STX $0|
00005cd0 37 46 45 00 dd 64 e2 ea 49 4e 58 00 eb 64 ec ea |7FE..d..INX..d..|
00005ce0 53 54 58 20 24 30 37 46 46 00 f9 64 f6 ea 4c 44 |STX $07FF..d..LD|
00005cf0 41 20 24 44 30 31 35 00 05 65 00 eb b0 41 20 23 |A $D015..e...A #|
00005d00 24 46 30 00 13 65 0a eb 53 54 41 20 24 44 30 31 |$F0..e..STA $D01|
00005d10 35 00 26 65 14 eb 42 4f 58 92 20 4c 44 41 20 43 |5.&e..BOX. LDA C|
00005d20 4c 49 43 4b 00 33 65 1e eb 42 4e 45 20 42 4f 58 |LICK.3e..BNE BOX|
00005d30 92 00 49 65 78 eb 42 4f 58 4c 4f 4f 50 20 4c 44 |..Iex.BOXLOOP LD|
00005d40 41 20 58 50 42 49 42 00 55 65 82 eb 43 4d 50 20 |A XPBIB.Ue..CMP |
00005d50 58 50 42 00 67 65 8c eb 42 45 51 20 43 48 45 43 |XPB.ge..BEQ CHEC|
00005d60 4b 46 49 4e 45 00 78 65 96 eb 42 43 53 20 4c 45 |KFINE.xe..BCS LE|
00005d70 53 53 54 48 41 4e 00 88 65 a0 eb 4a 4d 50 20 4d |SSTHAN..e..JMP M|
00005d80 b0 45 54 48 41 4e 00 9f 65 aa eb 43 48 45 43 4b |.ETHAN..e..CHECK|
00005d90 46 49 4e 45 20 4c 44 41 20 58 50 49 42 00 aa 65 |FINE LDA XPIB..e|
00005da0 b4 eb 43 4d 50 20 58 50 00 bb 65 be eb 42 43 53 |..CMP XP..e..BCS|
00005db0 20 4c 45 53 53 54 48 41 4e 00 d0 65 c8 eb 4d b0 | LESSTHAN..e..M.|
00005dc0 45 54 48 41 4e 20 4c 44 41 20 58 50 49 42 00 de |ETHAN LDA XPIB..|
00005dd0 65 d2 eb 53 54 41 20 24 44 30 30 38 00 ec 65 dc |e..STA $D008..e.|
00005de0 eb 53 54 41 20 24 44 30 30 43 00 f9 65 e6 eb 4c |.STA $D00C..e..L|
00005df0 44 58 20 23 24 30 30 00 07 66 f0 eb 4c 44 41 20 |DX #$00..f..LDA |
00005e00 58 50 42 49 42 00 18 66 fa eb 42 45 51 20 4e 4f |XPBIB..f..BEQ NO|
00005e10 58 50 42 41 44 44 00 25 66 04 ec 4c 44 58 20 23 |XPBADD.%f..LDX #|
00005e20 24 35 30 00 3c 66 0e ec 4e 4f 58 50 42 41 44 44 |$50.<f..NOXPBADD|
00005e30 20 4c 44 41 20 24 44 30 31 30 00 47 66 18 ec af | LDA $D010.Gf...|
00005e40 20 23 24 41 46 00 53 66 22 ec 53 54 58 20 24 30 | #$AF.Sf".STX $0|
00005e50 32 00 5b 66 2c ec 43 4c 43 00 67 66 36 ec 41 44 |2.[f,.CLC.gf6.AD|
00005e60 43 20 24 30 32 00 75 66 40 ec 53 54 41 20 24 44 |C $02.uf@.STA $D|
00005e70 30 31 30 00 82 66 45 ec 4c 44 58 20 23 24 30 30 |010..fE.LDX #$00|
00005e80 00 8d 66 4a ec 4c 44 41 20 58 50 00 95 66 54 ec |..fJ.LDA XP..fT.|
00005e90 53 45 43 00 a2 66 5e ec 53 42 43 20 23 24 31 38 |SEC..f^.SBC #$18|
00005ea0 00 b0 66 68 ec 53 54 41 20 24 44 30 30 41 00 be |..fh.STA $D00A..|
00005eb0 66 72 ec 53 54 41 20 24 44 30 30 45 00 cc 66 7c |fr.STA $D00E..f||
00005ec0 ec 42 43 43 20 4d 54 53 55 42 00 d8 66 86 ec 4c |.BCC MTSUB..f..L|
00005ed0 44 58 20 58 50 42 00 e6 66 90 ec 42 45 51 20 4d |DX XPB..f..BEQ M|
00005ee0 54 53 55 42 00 f3 66 9a ec 4c 44 58 20 23 24 41 |TSUB..f..LDX #$A|
00005ef0 30 00 07 67 a4 ec 4d 54 53 55 42 20 4c 44 41 20 |0..g..MTSUB LDA |
00005f00 24 44 30 31 30 00 12 67 ae ec af 20 23 24 35 46 |$D010..g... #$5F|
00005f10 00 1e 67 b8 ec 53 54 58 20 24 30 32 00 26 67 c2 |..g..STX $02.&g.|
00005f20 ec 43 4c 43 00 32 67 cc ec 41 44 43 20 24 30 32 |.CLC.2g..ADC $02|
00005f30 00 40 67 d6 ec 53 54 41 20 24 44 30 31 30 00 4d |.@g..STA $D010.M|
00005f40 67 e0 ec 4a 4d 50 20 42 4f 58 9a 00 61 67 ea ec |g..JMP BOX..ag..|
00005f50 4c 45 53 53 54 48 41 4e 20 4c 44 41 20 58 50 00 |LESSTHAN LDA XP.|
00005f60 6d 67 f4 ec 4c 44 58 20 58 50 42 00 7a 67 fe ec |mg..LDX XPB.zg..|
00005f70 42 4e 45 20 a8 4f 55 54 00 87 67 08 ed 43 4d 50 |BNE .OUT..g..CMP|
00005f80 20 23 24 35 38 00 94 67 12 ed 42 43 53 20 a8 4f | #$58..g..BCS .O|
00005f90 55 54 00 a1 67 1c ed 4c 44 41 20 23 24 35 38 00 |UT..g..LDA #$58.|
00005fa0 b4 67 26 ed a8 4f 55 54 20 53 54 41 20 24 44 30 |.g&..OUT STA $D0|
00005fb0 30 38 00 c2 67 30 ed 53 54 41 20 24 44 30 30 43 |08..g0.STA $D00C|
00005fc0 00 cf 67 3a ed 43 50 58 20 23 24 30 30 00 df 67 |..g:.CPX #$00..g|
00005fd0 44 ed 42 45 51 20 4c 54 4e 4f 41 44 44 00 ec 67 |D.BEQ LTNOADD..g|
00005fe0 4e ed 4c 44 58 20 23 24 35 30 00 02 68 58 ed 4c |N.LDX #$50..hX.L|
00005ff0 54 4e 4f 41 44 44 20 4c 44 41 20 24 44 30 31 30 |TNOADD LDA $D010|
00006000 00 0d 68 62 ed af 20 23 24 41 46 00 19 68 6c ed |..hb.. #$AF..hl.|
00006010 53 54 58 20 24 30 32 00 21 68 76 ed 43 4c 43 00 |STX $02.!hv.CLC.|
00006020 2d 68 80 ed 41 44 43 20 24 30 32 00 3b 68 8a ed |-h..ADC $02.;h..|
00006030 53 54 41 20 24 44 30 31 30 00 48 68 8f ed 4c 44 |STA $D010.Hh..LD|
00006040 58 20 23 24 30 30 00 55 68 94 ed 4c 44 41 20 58 |X #$00.Uh..LDA X|
00006050 50 49 42 00 5d 68 9e ed 53 45 43 00 6a 68 a8 ed |PIB.]h..SEC.jh..|
00006060 53 42 43 20 23 24 31 38 00 78 68 b2 ed 53 54 41 |SBC #$18.xh..STA|
00006070 20 24 44 30 30 41 00 86 68 bc ed 53 54 41 20 24 | $D00A..h..STA $|
00006080 44 30 30 45 00 94 68 c6 ed 42 43 43 20 4c 54 53 |D00E..h..BCC LTS|
00006090 55 42 00 a2 68 d0 ed 4c 44 58 20 58 50 42 49 42 |UB..h..LDX XPBIB|
000060a0 00 b0 68 da ed 42 45 51 20 4c 54 53 55 42 00 bd |..h..BEQ LTSUB..|
000060b0 68 e4 ed 4c 44 58 20 23 24 41 30 00 d1 68 ee ed |h..LDX #$A0..h..|
000060c0 4c 54 53 55 42 20 4c 44 41 20 24 44 30 31 30 00 |LTSUB LDA $D010.|
000060d0 dc 68 f8 ed af 20 23 24 35 46 00 e8 68 02 ee 53 |.h... #$5F..h..S|
000060e0 54 58 20 24 30 32 00 f0 68 0c ee 43 4c 43 00 fc |TX $02..h..CLC..|
000060f0 68 16 ee 41 44 43 20 24 30 32 00 0a 69 20 ee 53 |h..ADC $02..i .S|
00006100 54 41 20 24 44 30 31 30 00 1a 69 2a ee 42 4f 58 |TA $D010..i*.BOX|
00006110 9a 20 4c 44 41 20 59 50 00 27 69 34 ee 43 4d 50 |. LDA YP.'i4.CMP|
00006120 20 59 50 49 42 00 35 69 3e ee 42 43 43 20 4c 45 | YPIB.5i>.BCC LE|
00006130 53 53 59 00 42 69 48 ee 4c 44 41 20 59 50 49 42 |SSY.BiH.LDA YPIB|
00006140 00 50 69 52 ee 53 54 41 20 24 44 30 30 39 00 5e |.PiR.STA $D009.^|
00006150 69 5c ee 53 54 41 20 24 44 30 30 42 00 69 69 66 |i\.STA $D00B.iif|
00006160 ee 4c 44 41 20 59 50 00 71 69 70 ee 53 45 43 00 |.LDA YP.qip.SEC.|
00006170 7e 69 7a ee 53 42 43 20 23 24 31 35 00 8c 69 84 |~iz.SBC #$15..i.|
00006180 ee 53 54 41 20 24 44 30 30 44 00 9a 69 8e ee 53 |.STA $D00D..i..S|
00006190 54 41 20 24 44 30 30 46 00 a9 69 98 ee 4a 4d 50 |TA $D00F..i..JMP|
000061a0 20 42 4f 58 9a 49 49 00 ba 69 a2 ee 4c 45 53 53 | BOX.II..i..LESS|
000061b0 59 20 4c 44 41 20 59 50 00 c8 69 ac ee 53 54 41 |Y LDA YP..i..STA|
000061c0 20 24 44 30 30 39 00 d6 69 b6 ee 53 54 41 20 24 | $D009..i..STA $|
000061d0 44 30 30 42 00 e3 69 c0 ee 4c 44 41 20 59 50 49 |D00B..i..LDA YPI|
000061e0 42 00 eb 69 ca ee 53 45 43 00 f8 69 d4 ee 53 42 |B..i..SEC..i..SB|
000061f0 43 20 23 24 31 35 00 06 6a de ee 53 54 41 20 24 |C #$15..j..STA $|
00006200 44 30 30 44 00 14 6a e8 ee 53 54 41 20 24 44 30 |D00D..j..STA $D0|
00006210 30 46 00 29 6a f2 ee 42 4f 58 9a 49 49 20 4c 44 |0F.)j..BOX.II LD|
00006220 41 20 43 4c 49 43 4b 00 36 6a fc ee 42 4e 45 20 |A CLICK.6j..BNE |
00006230 42 4f 58 80 00 46 6a 06 ef 4a 4d 50 20 42 4f 58 |BOX..Fj..JMP BOX|
00006240 4c 4f 4f 50 00 5a 6a 10 ef 42 4f 58 80 20 4a 4d |LOOP.Zj..BOX. JM|
00006250 50 20 9a 52 4f 4c 4f 50 00 6f 6a 30 f2 42 4f 58 |P .ROLOP.oj0.BOX|
00006260 46 4c 41 53 48 20 4c 44 41 20 24 41 32 00 7a 6a |FLASH LDA $A2.zj|
00006270 3a f2 af 20 23 24 33 43 00 84 6a 44 f2 4c 53 52 |:.. #$3C..jD.LSR|
00006280 20 41 00 8e 6a 4e f2 4c 53 52 20 41 00 96 6a 58 | A..jN.LSR A..jX|
00006290 f2 54 41 58 00 a8 6a 62 f2 4c 44 41 20 42 4f 58 |.TAX..jb.LDA BOX|
000062a0 43 4f 4c 53 2c 58 00 b6 6a 6c f2 53 54 41 20 24 |COLS,X..jl.STA $|
000062b0 44 30 32 42 00 c4 6a 76 f2 53 54 41 20 24 44 30 |D02B..jv.STA $D0|
000062c0 32 43 00 d2 6a 80 f2 53 54 41 20 24 44 30 32 44 |2C..j..STA $D02D|
000062d0 00 e0 6a 8a f2 53 54 41 20 24 44 30 32 45 00 ee |..j..STA $D02E..|
000062e0 6a 94 f2 4a 4d 50 20 24 45 41 33 31 00 10 6b 9e |j..JMP $EA31..k.|
000062f0 f2 42 4f 58 43 4f 4c 53 20 54 58 54 20 30 2c 39 |.BOXCOLS TXT 0,9|
00006300 2c 32 2c 38 2c 31 30 2c 37 2c 31 33 2c 31 00 2a |,2,8,10,7,13,1.*|
00006310 6b a8 f2 54 58 54 20 31 2c 31 33 2c 33 2c 35 2c |k..TXT 1,13,3,5,|
00006320 31 34 2c 34 2c 36 2c 30 00 38 6b 2e f4 4a 55 4c |14,4,6,0.8k..JUL|
00006330 49 41 20 53 45 49 00 45 6b 38 f4 4c 44 41 20 23 |IA SEI.Ek8.LDA #|
00006340 24 30 31 00 52 6b 42 f4 53 54 41 20 48 4f 55 52 |$01.RkB.STA HOUR|
00006350 00 5f 6b 4c f4 4a 53 52 20 4c 45 46 54 00 6c 6b |._kL.JSR LEFT.lk|
00006360 56 f4 4c 44 41 20 23 24 30 30 00 7b 6b 60 f4 53 |V.LDA #$00.{k`.S|
00006370 54 41 20 59 50 49 58 45 4c 00 88 6b 6a f4 4c 44 |TA YPIXEL..kj.LD|
00006380 41 20 23 24 30 33 00 96 6b 74 f4 53 54 41 20 24 |A #$03..kt.STA $|
00006390 34 31 30 30 00 a3 6b 7e f4 4c 44 41 20 23 24 30 |4100..k~.LDA #$0|
000063a0 36 00 b1 6b 88 f4 53 54 41 20 24 34 31 30 32 00 |6..k..STA $4102.|
000063b0 bf 6b 92 f4 4a 53 52 20 45 51 55 41 4c 00 d4 6b |.k..JSR EQUAL..k|
000063c0 9c f4 4a 4d 4d 41 49 4e 4c 20 4c 44 41 20 23 24 |..JMMAINL LDA #$|
000063d0 30 30 00 e3 6b a6 f4 53 54 41 20 58 50 49 58 45 |00..k..STA XPIXE|
000063e0 4c 00 f0 6b b0 f4 4c 44 41 20 23 24 30 31 00 fe |L..k..LDA #$01..|
000063f0 6b ba f4 53 54 41 20 24 34 31 30 30 00 0b 6c c4 |k..STA $4100..l.|
00006400 f4 4c 44 41 20 23 24 30 35 00 19 6c ce f4 53 54 |.LDA #$05..l..ST|
00006410 41 20 24 34 31 30 32 00 27 6c d8 f4 4a 53 52 20 |A $4102.'l..JSR |
00006420 45 51 55 41 4c 00 3d 6c e2 f4 4a 4d 4d 41 49 4e |EQUAL.=l..JMMAIN|
00006430 4c 42 20 4c 44 41 20 23 24 30 35 00 4b 6c ec f4 |LB LDA #$05.Kl..|
00006440 53 54 41 20 24 34 31 30 30 00 58 6c f6 f4 4c 44 |STA $4100.Xl..LD|
00006450 41 20 23 24 30 37 00 66 6c 00 f5 53 54 41 20 24 |A #$07.fl..STA $|
00006460 34 31 30 32 00 74 6c 0a f5 4a 53 52 20 45 51 55 |4102.tl..JSR EQU|
00006470 41 4c 00 82 6c 14 f5 49 4e 43 20 24 34 31 30 30 |AL..l..INC $4100|
00006480 00 90 6c 1e f5 49 4e 43 20 24 34 31 30 32 00 9e |..l..INC $4102..|
00006490 6c 28 f5 4a 53 52 20 45 51 55 41 4c 00 ab 6c 32 |l(.JSR EQUAL..l2|
000064a0 f5 4c 44 41 20 23 24 30 30 00 ba 6c 3c f5 53 54 |.LDA #$00..l<.ST|
000064b0 41 20 43 4f 4c 4f 55 52 00 cd 6c 46 f5 4a 4c 4f |A COLOUR..lF.JLO|
000064c0 4f 50 20 4c 44 41 20 23 24 30 37 00 db 6c 50 f5 |OP LDA #$07..lP.|
000064d0 53 54 41 20 24 34 31 30 30 00 e9 6c 5a f5 53 54 |STA $4100..lZ.ST|
000064e0 41 20 24 34 31 30 31 00 f6 6c 64 f5 4c 44 41 20 |A $4101..ld.LDA |
000064f0 23 24 31 30 00 04 6d 6e f5 53 54 41 20 24 34 31 |#$10..mn.STA $41|
00006500 30 32 00 15 6d 78 f5 4a 53 52 20 4d 55 4c 54 49 |02..mx.JSR MULTI|
00006510 50 4c 59 00 22 6d 82 f5 4c 44 41 20 23 24 30 38 |PLY."m..LDA #$08|
00006520 00 30 6d 8c f5 53 54 41 20 24 34 31 30 30 00 3e |.0m..STA $4100.>|
00006530 6d 96 f5 53 54 41 20 24 34 31 30 31 00 4b 6d a0 |m..STA $4101.Km.|
00006540 f5 4c 44 41 20 23 24 31 31 00 59 6d aa f5 53 54 |.LDA #$11.Ym..ST|
00006550 41 20 24 34 31 30 32 00 6a 6d b4 f5 4a 53 52 20 |A $4102.jm..JSR |
00006560 4d 55 4c 54 49 50 4c 59 00 77 6d be f5 4c 44 58 |MULTIPLY.wm..LDX|
00006570 20 23 24 31 30 00 85 6d c8 f5 53 54 58 20 24 34 | #$10..m..STX $4|
00006580 31 30 30 00 8d 6d d2 f5 49 4e 58 00 9b 6d dc f5 |100..m..INX..m..|
00006590 53 54 58 20 24 34 31 30 31 00 a3 6d e6 f5 49 4e |STX $4101..m..IN|
000065a0 58 00 b1 6d f0 f5 53 54 58 20 24 34 31 30 32 00 |X..m..STX $4102.|
000065b0 c1 6d fa f5 4a 53 52 20 41 44 44 49 54 49 91 00 |.m..JSR ADDITI..|
000065c0 cf 6d 04 f6 4c 44 41 20 24 34 30 39 31 00 dc 6d |.m..LDA $4091..m|
000065d0 0e f6 43 4d 50 20 23 24 30 34 00 ea 6d 18 f6 42 |..CMP #$04..m..B|
000065e0 43 43 20 4a 46 41 49 4c 00 f7 6d 22 f6 43 4d 50 |CC JFAIL..m".CMP|
000065f0 20 23 24 35 30 00 05 6e 2c f6 42 43 53 20 4a 46 | #$50..n,.BCS JF|
00006600 41 49 4c 00 1f 6e 36 f6 4a 53 55 43 50 41 53 53 |AIL..n6.JSUCPASS|
00006610 20 4a 4d 50 20 4a 53 55 43 43 45 53 53 00 34 6e | JMP JSUCCESS.4n|
00006620 40 f6 4a 46 41 49 4c 20 49 4e 43 20 43 4f 4c 4f |@.JFAIL INC COLO|
00006630 55 52 00 43 6e 4a f6 4c 44 41 20 43 4f 4c 4f 55 |UR.CnJ.LDA COLOU|
00006640 52 00 52 6e 54 f6 43 4d 50 20 4d 41 58 43 4f 4c |R.RnT.CMP MAXCOL|
00006650 00 63 6e 5e f6 42 45 51 20 4a 53 55 43 50 41 53 |.cn^.BEQ JSUCPAS|
00006660 53 00 74 6e 68 f6 4a 53 52 20 53 55 42 54 52 41 |S.tnh.JSR SUBTRA|
00006670 43 54 00 81 6e 72 f6 4c 44 41 20 23 24 31 32 00 |CT..nr.LDA #$12.|
00006680 8f 6e 7c f6 53 54 41 20 24 34 31 30 30 00 9c 6e |.n|.STA $4100..n|
00006690 86 f6 4c 44 41 20 23 24 30 39 00 aa 6e 90 f6 53 |..LDA #$09..n..S|
000066a0 54 41 20 24 34 31 30 31 00 b7 6e 9a f6 4c 44 41 |TA $4101..n..LDA|
000066b0 20 23 24 31 33 00 c5 6e a4 f6 53 54 41 20 24 34 | #$13..n..STA $4|
000066c0 31 30 32 00 d5 6e ae f6 4a 53 52 20 41 44 44 49 |102..n..JSR ADDI|
000066d0 54 49 91 00 e2 6e b8 f6 4c 44 41 20 23 24 30 37 |TI...n..LDA #$07|
000066e0 00 f0 6e c2 f6 53 54 41 20 24 34 31 30 30 00 fd |..n..STA $4100..|
000066f0 6e cc f6 4c 44 41 20 23 24 30 38 00 0b 6f d6 f6 |n..LDA #$08..o..|
00006700 53 54 41 20 24 34 31 30 31 00 19 6f e0 f6 49 4e |STA $4101..o..IN|
00006710 43 20 24 34 31 30 32 00 2a 6f ea f6 4a 53 52 20 |C $4102.*o..JSR |
00006720 4d 55 4c 54 49 50 4c 59 00 37 6f f4 f6 4c 44 41 |MULTIPLY.7o..LDA|
00006730 20 23 24 31 34 00 45 6f fe f6 53 54 41 20 24 34 | #$14.Eo..STA $4|
00006740 31 30 30 00 53 6f 12 f7 53 54 41 20 24 34 31 30 |100.So..STA $410|
00006750 31 00 60 6f 1c f7 4c 44 41 20 23 24 31 35 00 6e |1.`o..LDA #$15.n|
00006760 6f 26 f7 53 54 41 20 24 34 31 30 32 00 7e 6f 30 |o&.STA $4102.~o0|
00006770 f7 4a 53 52 20 41 44 44 49 54 49 91 00 8b 6f 3a |.JSR ADDITI...o:|
00006780 f7 4c 44 41 20 23 24 31 35 00 99 6f 44 f7 53 54 |.LDA #$15..oD.ST|
00006790 41 20 24 34 31 30 30 00 a6 6f 4e f7 4c 44 41 20 |A $4100..oN.LDA |
000067a0 23 24 30 41 00 b4 6f 58 f7 53 54 41 20 24 34 31 |#$0A..oX.STA $41|
000067b0 30 31 00 c1 6f 62 f7 4c 44 41 20 23 24 31 36 00 |01..ob.LDA #$16.|
000067c0 cf 6f 6c f7 53 54 41 20 24 34 31 30 32 00 df 6f |.ol.STA $4102..o|
000067d0 76 f7 4a 53 52 20 41 44 44 49 54 49 91 00 ec 6f |v.JSR ADDITI...o|
000067e0 80 f7 4c 44 41 20 23 24 31 33 00 fa 6f 8a f7 53 |..LDA #$13..o..S|
000067f0 54 41 20 24 34 31 30 30 00 07 70 94 f7 4c 44 41 |TA $4100..p..LDA|
00006800 20 23 24 30 37 00 15 70 9e f7 53 54 41 20 24 34 | #$07..p..STA $4|
00006810 31 30 32 00 23 70 a8 f7 4a 53 52 20 45 51 55 41 |102.#p..JSR EQUA|
00006820 4c 00 30 70 b2 f7 4c 44 41 20 23 24 31 36 00 3e |L.0p..LDA #$16.>|
00006830 70 bc f7 53 54 41 20 24 34 31 30 30 00 4b 70 c6 |p..STA $4100.Kp.|
00006840 f7 4c 44 41 20 23 24 30 38 00 59 70 d0 f7 53 54 |.LDA #$08.Yp..ST|
00006850 41 20 24 34 31 30 32 00 67 70 da f7 4a 53 52 20 |A $4102.gp..JSR |
00006860 45 51 55 41 4c 00 75 70 e4 f7 4a 4d 50 20 4a 4c |EQUAL.up..JMP JL|
00006870 4f 4f 50 00 8b 70 ee f7 4a 53 55 43 43 45 53 53 |OOP..p..JSUCCESS|
00006880 20 4a 53 52 20 50 4c 4f 54 00 98 70 f8 f7 4c 44 | JSR PLOT..p..LD|
00006890 41 20 23 24 30 35 00 a6 70 02 f8 53 54 41 20 24 |A #$05..p..STA $|
000068a0 34 31 30 30 00 b4 70 0c f8 53 54 41 20 24 34 31 |4100..p..STA $41|
000068b0 30 32 00 c1 70 16 f8 4c 44 41 20 23 24 30 32 00 |02..p..LDA #$02.|
000068c0 cf 70 20 f8 53 54 41 20 24 34 31 30 31 00 df 70 |.p .STA $4101..p|
000068d0 2a f8 4a 53 52 20 41 44 44 49 54 49 91 00 ee 70 |*.JSR ADDITI...p|
000068e0 34 f8 4c 44 41 20 58 50 49 58 45 4c 00 fe 70 3e |4.LDA XPIXEL..p>|
000068f0 f8 42 4e 45 20 4a 58 52 45 4c 4f 50 00 0b 71 48 |.BNE JXRELOP..qH|
00006900 f8 4c 44 41 20 23 24 30 36 00 19 71 52 f8 53 54 |.LDA #$06..qR.ST|
00006910 41 20 24 34 31 30 30 00 27 71 5c f8 53 54 41 20 |A $4100.'q\.STA |
00006920 24 34 31 30 32 00 34 71 66 f8 4c 44 41 20 23 24 |$4102.4qf.LDA #$|
00006930 30 34 00 42 71 70 f8 53 54 41 20 24 34 31 30 31 |04.Bqp.STA $4101|
00006940 00 52 71 7a f8 4a 53 52 20 41 44 44 49 54 49 91 |.Rqz.JSR ADDITI.|
00006950 00 61 71 84 f8 49 4e 43 20 59 50 49 58 45 4c 00 |.aq..INC YPIXEL.|
00006960 70 71 8e f8 4c 44 41 20 59 50 49 58 45 4c 00 7d |pq..LDA YPIXEL.}|
00006970 71 98 f8 43 4d 50 20 23 24 43 38 00 8d 71 a2 f8 |q..CMP #$C8..q..|
00006980 42 4e 45 20 4a 59 52 45 4c 4f 50 00 9a 71 ac f8 |BNE JYRELOP..q..|
00006990 4c 44 41 20 23 24 30 30 00 a7 71 b6 f8 53 54 41 |LDA #$00..q..STA|
000069a0 20 48 4f 55 52 00 b5 71 c0 f8 4a 53 52 20 52 49 | HOUR..q..JSR RI|
000069b0 47 48 54 00 bd 71 ca f8 43 4c 49 00 c5 71 d4 f8 |GHT..q..CLI..q..|
000069c0 52 54 53 00 de 71 de f8 4a 58 52 45 4c 4f 50 20 |RTS..q..JXRELOP |
000069d0 4a 4d 50 20 4a 4d 4d 41 49 4e 4c 42 00 f6 71 e8 |JMP JMMAINLB..q.|
000069e0 f8 4a 59 52 45 4c 4f 50 20 4a 4d 50 20 4a 4d 4d |.JYRELOP JMP JMM|
000069f0 41 49 4e 4c 00 00 00 |AINL...|
000069f7 
.