Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » autocode7
autocode7
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 » disk41a_autostereo.d64 |
Filename: | autocode7 |
Read OK: | ✔ |
File size: | 115F bytes |
Load address: | 0801 |
Exec address: | 0000 |
File contents
10 ; AUTOSTEREOGRAM GENERATOR 20 ; 30 ; 17/12/95 40 ; 50 *=$1000 60 I=$CF00 70 J=$CF01 80 S=$CF02 90 SEP=$CF03 100 XPIXEL=$CF04 110 YPIXEL=$CF05 120 XPIB=$CF06 130 YPIB=$CF07 140 RNO=$CF08 150 MULTIREG=$CF09 500 JMP LSCR 510 JMP AUTOSTEREO 520 JMP SSCR 600 HINSTR TXT $2D,$00,$00,$00 1000 ; GRAPHIC POINT PLOTTER 1010 PLOTPC LDA #$47 1020 STA $FB 1030 LDA #$3F 1040 STA $FC 1050 LDA YPIXEL 1060 LSR A 1070 LSR A 1080 LSR A 1090 STA YPIB 1100 AND #$03 1110 ASL A 1120 ASL A 1130 ASL A 1140 ASL A 1150 ASL A 1160 ASL A 1170 STA $02 1180 LDA $FB 1190 SEC 1200 SBC $02 1210 STA $FB 1220 LDA $FC 1230 SBC #$00 1240 SBC YPIB 1250 PHA 1260 LDA YPIB 1270 LSR A 1280 LSR A 1290 STA $02 1300 PLA 1310 SEC 1320 SBC $02 1330 STA $FC 1340 LDA YPIXEL 1350 AND #$07 1360 STA YPIB 1370 LDA $FB 1380 SEC 1390 SBC YPIB 1400 PHA 1410 LDA XPIXEL 1420 AND #$F8 1430 STA YPIB 1440 PLA 1450 CLC 1460 ADC YPIB 1470 STA $FB 1480 LDA $FC 1490 SBC #$00 1500 STA $FC 1510 LDA XPIXEL 1520 AND #$07 1530 TAX 1540 LDA #$80 1550 GBITLP CPX #$00 1560 BEQ PPCONT 1570 LSR A 1580 DEX 1590 JMP GBITLP 1600 PPCONT STA $FD 1610 RTS 1620 PLOTON JSR PLOTPC 1630 LDY #$00 1640 LDA ($FB),Y 1650 ORA $FD 1660 STA ($FB),Y 1670 RTS 1680 PLOTOFF JSR PLOTPC 1690 LDA $FD 1700 EOR #$FF 1710 STA $FD 1720 LDY #$00 1730 LDA ($FB),Y 1740 AND $FD 1750 STA ($FB),Y 1760 RTS 1770 BWREAD JSR PLOTPC 1780 LDY #$00 1790 LDA ($FB),Y 1800 AND $FD 1810 BNE READPOS 1815 LDA HINSTR 1820 RTS 1830 READPOS LDA HINSTR+1 1840 RTS 1850 READPIX LDA MULTIREG 1860 BNE MULTIREAD 1870 JMP BWREAD 1880 MULTIREAD LDA XPIXEL 1890 PHA 1900 AND #$FE 1910 STA XPIXEL 1912 JSR PLOTPC 1914 LDY #$00 1916 LDA ($FB),Y 1918 AND $FD 1920 BEQ MRII 1922 LDA #$02 1924 MRII PHA 1925 INC XPIXEL 1926 JSR PLOTPC 1928 LDY #$00 1930 LDA ($FB),Y 1932 AND $FD 1934 BEQ MRIII 1935 PLA 1936 CLC 1938 ADC #$01 1939 PHA 1940 MRIII PLA 1941 TAX 1942 PLA 1944 STA XPIXEL 1946 LDA HINSTR,X 1948 RTS 2000 ; BITMAP ON ROUTINE 2010 GRAPHIC LDA $D018 2020 AND #$01 2030 ORA #$18 2040 STA $D018 2050 LDA $DD02 2060 ORA #$03 2070 STA $DD02 2080 LDA $DD00 2090 AND #$FC 2100 ORA #$03 2110 STA $DD00 2120 LDA $D011 2130 ORA #$20 2140 STA $D011 2150 LDA #$04 2160 STA $FC 2170 LDY #$00 2180 STY $FB 2190 LDA #$01 2200 GRLOP STA ($FB),Y 2210 INY 2220 BNE GRLOP 2230 INC $FC 2240 LDX $FC 2250 CPX #$08 2260 BNE GRLOP 2270 LDA MULTIREG 2280 BEQ NOCOLS 2290 JMP IRQON 2300 NOCOLS LDA $D016 2310 AND #$EF 2320 STA $D016 2330 RTS 3000 ; AUTOSTEREOGRAM CALCULATOR 3010 JOYSTEREO JSR GRAPHIC 3020 LDA #$C7 3030 STA YPIXEL 3040 JOYLINE LDY #$00 3050 STY $FB 3060 LDA #$C0 3070 STA $FC 3080 LINELOP TYA 3090 STA ($FB),Y 3100 INY 3110 BNE LINELOP 3120 LDA #$00 3130 STA XPIXEL 3140 XLOP JSR READPIX 3150 STA SEP 3160 AND YPIXEL 3170 AND #$01 3180 CLC 3190 ADC SEP 3200 LSR A 3210 STA I 3220 LDA XPIXEL 3230 SEC 3240 SBC I 3250 BCC XRELOP 3260 STA I 3270 CLC 3280 ADC SEP 3290 BCS XRELOP 3300 STA J 3310 REPEAT LDX I 3320 LDA $C000,X 3330 STA S 3340 CMP J 3345 BEQ XRELOP 3350 BCS LLCASE3 3360 STA I 3370 JMP L210 3380 LLCASE3 LDA J 3390 STA $C000,X 3400 STA I 3410 LDA S 3420 STA J 3430 L210 LDX I 3440 LDA $C000,X 3450 CMP I 3460 BNE REPEAT 3510 LDA J 3520 LDX I 3530 STA $C000,X 3540 XRELOP LDX XPIXEL 3550 INX 3560 BEQ YRELOP 3570 STX XPIXEL 3580 JMP XLOP 3590 YRELOP JSR DISP 3600 DEC YPIXEL 3610 LDA YPIXEL 3620 BEQ JOYEND 3630 JMP JOYLINE 3645 JOYEND RTS 3650 DISP LDA #$00 3660 STA XPIXEL 3670 DLOP TAX 3680 LDA $C000,X 3690 CMP XPIXEL 3700 BNE DELSE 3710 LDA RNO 3720 LSR A 3730 INC $A2 3740 ADC $A2 3750 LDX $A2 3760 ADC $0000,X 3770 STA RNO 3780 AND #$01 3790 LDX XPIXEL 3800 STA $C100,X 3810 JMP NELSE 3820 DELSE LDA $C000,X 3830 TAY 3840 LDA $C100,Y 3850 STA $C100,X 3860 NELSE CMP #$00 3870 BEQ NOBL 3880 JSR PLOTON 3885 JMP REDISP 3890 NOBL JSR PLOTOFF 3900 REDISP DEC XPIXEL 3910 LDA XPIXEL 3920 BNE DLOP 3930 RTS 5000 ; INTERRUPT ROUTINES 5010 IRQ LDA #$01 5012 STA $D019 5014 LDA $D012 5020 BEQ IRQTOP 5030 LDY #$02 5040 ILOP DEY 5050 BNE ILOP 5060 LDA $D016 5070 ORA #$10 5080 STA $D016 5090 LDA #$00 5100 STA $D012 5110 JMP $EA81 5120 IRQTOP LDA $D016 5130 AND #$EF 5140 STA $D016 5143 LDA #$C7 5146 SEC 5150 SBC YPIXEL 5160 CLC 5170 ADC #$32 5180 STA $D012 5190 JMP $EA31 5320 IRQON SEI 5330 LDA #$01 5340 STA $D019 5350 STA $D01A 5360 STA $DC0D 5370 LDA #$3B 5380 STA $D011 5390 LDA #$00 5400 STA $D012 5410 LDA #<IRQ 5420 STA $0314 5430 LDA #>IRQ 5440 STA $0315 5450 CLI 5460 RTS 5465 ; I/O ROUTINES 5470 LSCR LDA #$01 5480 LDX #$08 5490 LDY #$00 5500 JSR $FFBA 5510 LDA $C000 5520 LDX #$08 5530 LDY #$C0 5540 JSR $FFBD 5560 LDA #$00 5563 LDX #$00 5566 LDY #$20 5570 JMP $FFD5 5600 SSCR LDA #$01 5610 LDX #$08 5620 TAY 5630 JSR $FFBA 5640 LDA $1808 5650 LDX #$10 5660 LDY #$18 5670 JSR $FFBD 5680 LDA #$20 5690 STA $FC 5700 LDA #$FB 5710 LDX #$00 5720 LDY #$40 5730 STX $FB 5740 JMP $FFD8
; AUTOSTEREOGRAM GENERATOR&;5; 17/12/95;(;G2��$1000S<I�$CF00_FJ�$CF01kPS�$CF02yZSEP�$CF03�dXPIXEL�$CF04�nYPIXEL�$CF05�xXPIB�$CF06��YPIB�$CF07��RNO�$CF08��MULTIREG�$CF09��JMP LSCR��JMP AU�STEREO JMP SSCR! XH� TXT $2D,$00,$00,$00E �; GRAPHIC PO� PLOTTERY �PLOTPC LDA #$47e �STA $FBr LDA #$3F~ STA $FC� LDA YPIXEL� $LSR A� .LSR A� 8LSR A� BSTA YPIB� L� #$03� VASL A� `ASL A� jASL A� tASL A� ~ASL A� �ASL A �STA $02 �LDA $FB �SEC+ �SBC $027 �STA $FBC �LDA $FCP �SBC #$00] �SBC YPIBe �PHAr �LDA YPIB| �LSR A� LSR A� STA $02� PLA� SEC� (SBC $02� 2STA $FC� <LDA YPIXEL� F� #$07� PSTA YPIB� ZLDA $FB� dSECnSBC YPIB xPHA�LDA XPIXEL$�� #$F81�STA YPIB9�PLAA�CLCN�ADC YPIBZ�STA $FBf�LDA $FCs�SBC #$00�STA $FC��LDA XPIXEL��� #$07��TAX�LDA #$80�GBITLP CPX #$00�BEQ PP��"LSR A�,DEX�6JMP GBITLP�@PP� STA $FDJRTSTPLO�N JSR PLOTPC)^LDY #$009hLDA ($FB),YDr�A $FDT|STA ($FB),Y\�RTSr�PLO�FF JSR PLOTPC~�LDA $FD��E� #$FF��STA $FD��LDY #$00��LDA ($FB),Y��� $FD��STA ($FB),Y��RTS��BW� JSR PLOTPC��LDY #$00 �LDA ($FB),Y � $FD BNE ��% LDA H�- RTS= &�� LDA HԪ1E 0RTS[ :�PIX LDA MULTIREGj DBNE MULTI�v NJMP BW�� XMULTI� LDA XPIXEL� bPHA� l� #$FE� vSTA XPIXEL� xJSR PLOTPC� zLDY #$00� |LDA ($FB),Y� ~� $FD� �BEQ MRII� �LDA #$02�MRII PHA�INC XPIXEL)�JSR PLOTPC6�LDY #$00F�LDA ($FB),YP�� $FD^�BEQ MRIIIf�PLAn�CLC{�ADC #$01��PHA��MRIII PLA��TAX��PLA��STA XPIXEL��LDA H�,X��RTS��; BITMAP ON ROUTINE�GRAPHIC LDA $D018 �� #$01��A #$18'�STA $D0185LDA $DD02A�A #$03OSTA $DD02] LDA $DD00h*� #$FCt4�A #$03�>STA $DD00�HLDA $D011�R�A #$20�\STA $D011�fLDA #$04�pSTA $FC�zLDY #$00��STY $FB��LDA #$01��GRLOP STA ($FB),Y�INY�BNE GRLOP!�INC $FC-�LDX $FC:�CPX #$08H�BNE GRLOPY�LDA MULTIREGh�BEQ NOCOLSu�JMP IRQ���NOCOLS LDA $D016� � #$EF� STA $D016� RTS��; AUTOSTEREOGRAM CALCULATOR���STEREO JSR GRAPHIC��LDA #$C7�STA YPIXEL��LINE LDY #$00%�STY $FB2�LDA #$C0>�STA $FCNLINELOP TYA^STA ($FB),YfINYv&BNE LINELOP�0LDA #$00�:STA XPIXEL�DXLOP JSR �PIX�NSTA SEP�X� YPIXEL�b� #$01�lCLC�vADC SEP��LSR A��STA I��LDA XPIXEL�SEC�SBC I �BCC XRELOP*�STA I2�CLC>�ADC SEPM�BCS XRELOPW�STA Jh�REPEAT LDX Ix�LDA $C000,X� STA S� CMP J� BEQ XRELOP� BCS LLCASE3� STA I�* JMP L210�4 LLCASE3 LDA J�> STA $C000,X�H STA I�R LDA S\ STA Jf L210 LDX I!p LDA $C000,X+z CMP I:� BNE REPEATD� LDA JN� LDX I^� STA $C000,Xt� XRELOP LDX XPIXEL|� INX�� BEQ YRELOP�� STX XPIXEL�� JMP XLOP�YRELOP JSR DISP�DEC YPIXEL�LDA YPIXEL�$BEQ π�.JMP �LINE�=π RTSBDISP LDA #$00LSTA XPIXEL+VDLOP TAX;`LDA $C000,XJjCMP XPIXELXtBNE DELSEd~LDA RNOn�LSR Az�INC $A2��ADC $A2��LDX $A2��ADC $0000,X��STA RNO��� #$01��LDX XPIXEL��STA $C100,X��JMP NELSE��DELSE LDA $C000,X�TAYLDA $C100,Y$ STA $C100,X7NELSE CMP #$00DBEQ NOBLR(JSR PLO�Na-JMP REDISPu2NOBL JSR PLO�FF�<REDISP DEC XPIXEL�FLDA XPIXEL�PBNE DLOP�ZRTS��; INTERRUPT ROUTINES��IRQ LDA #$01��STA $D019�LDA $D012�BEQ IRQ�P�LDY #$02+�ILOP DEY8�BNE ILOPF�LDA $D016R��A #$10`�STA $D016m�LDA #$00{�STA $D012��JMP $EA81�IRQ�P LDA $D016� � #$EF�STA $D016�LDA #$C7�SEC�SBC YPIXEL�(CLC�2ADC #$32�<STA $D012FJMP $EA31�IRQ� SEI%�LDA #$013�STA $D019A�STA $D01AO�STA $DC0D\�LDA #$3BjSTA $D011wLDA #$00�STA $D012�"LDA #�IRQ�,STA $0314�6LDA #�IRQ�@STA $0315�JCLI�TRTS�Y; I�O ROUTINES^LSCR LDA #$01hLDX #$08 rLDY #$00.|JSR $FFBA<�LDA $C000I�LDX #$08V�LDY #$C0d�JSR $FFBDq�LDA #$00~�LDX #$00��LDY #$20��JMP $FFD5��SSCR LDA #$01��LDX #$08��TAY��JSR $FFBA�LDA $1808�LDX #$10�LDY #$18&JSR $FFBD0LDA #$20:STA $FC*DLDA #$FB7NLDX #$00DXLDY #$40PbSTX $FB^lJMP $FFD8
HJ@; autostereogram generator@&HT@;@5H.@; 17/12/95@;H(@;@gH2@..$1000@sH<@i.$cf00@.Hf@j.$cf01@KHp@s.$cf02@YHz@sep.$cf03@.HD@xpixel.$cf04@.HN@ypixel.$cf05@.HX@xpib.$cf06@.H.@ypib.$cf07@.H.@rno.$cf08@.H.@multireg.$cf09@.H.Ajmp lscr@.H.Ajmp au.stereo@FIHBjmp sscr@!IxBh. txt $2d,$00,$00,$00@eI.C; graphic po. plotter@yI.Cplotpc lda #$47@EI.Csta $fb@RIFDlda #$3f@.IPDsta $fc@.IZDlda ypixel@.I$Dlsr a@.I.Dlsr a@.I8Dlsr a@.IbDsta ypib@.IlD. #$03@.IvDasl a@.I.Dasl a@.IJDasl a@.ITDasl a@.I.Dasl a@.I.Dasl a@KJ.Dsta $02@WJ.Dlda $fb@.J.Dsec@+J.Dsbc $02@7J.Dsta $fb@cJ.Dlda $fc@pJ.Dsbc #$00@]J.Dsbc ypib@EJ.Dpha@RJ.Dlda ypib@.J.Dlsr a@.J@Elsr a@.JJEsta $02@.JTEpla@.J.Esec@.J(Esbc $02@.J2Esta $fc@.J<Elda ypixel@.JfE. #$07@.JpEsta ypib@.JzElda $fb@.JDEsec@BKNEsbc ypib@JKXEpha@YK.Elda xpixel@$K.E. #$f8@1K.Esta ypib@9K.Epla@aK.Eclc@nK.Eadc ypib@zK.Esta $fb@FK.Elda $fc@SK.Esbc #$00@.K.Esta $fc@.K.Elda xpixel@.K.E. #$07@.K.Etax@.KDFlda #$80@.KNFgbitlp cpx #$00@.KXFbeq pp.@.K"Flsr a@.K,Fdex@.K6Fjmp gbitlp@.K@Fpp. sta $fd@GLjFrts@£LtFplo.n jsr plotpc@)L.Fldy #$00@9LHFlda ($fb),y@dLRF.a $fd@tL.Fsta ($fb),y@£L.Frts@RL.Fplo.ff jsr plotpc@.L.Flda $fd@.L.Fe. #$ff@.L.Fsta $fd@.L.Fldy #$00@.L.Flda ($fb),y@.L.F. $fd@.L.Fsta ($fb),y@.L.Frts@.L.Fbw. jsr plotpc@.L.Fldy #$00@EM.Flda ($fb),y@OMHG. $fd@ZMRGbne ..@%MWGlda h.@-M£Grts@=M&G.. lda h..1@eM0Grts@[M:G.pix lda multireg@JMdGbne multi.@VMnGjmp bw.@.MxGmulti. lda xpixel@.MBGpha@.MLG. #$fe@.MVGsta xpixel@.MXGjsr plotpc@.MZGldy #$00@.M.Glda ($fb),y@.M.G. $fd@.M.Gbeq mrii@.M.Glda #$02@KN.Gmrii pha@ZN.Ginc xpixel@)N.Gjsr plotpc@6N.Gldy #$00@fN.Glda ($fb),y@pN.G. $fd@.N.Gbeq mriii@FN.Gpla@NN.Gclc@.N.Gadc #$01@.N.Gpha@.N.Gmriii pla@.N.Gtax@.N.Gpla@.N.Gsta xpixel@.N.Glda h.,x@.N.Grts@.N.G; bitmap on routine@BO.Ggraphic lda $d018@MO.G. #$01@YO.G.a #$18@'O.Gsta $d018@5OBHlda $dd02@aOLH.a #$03@oOVHsta $dd02@]O Hlda $dd00@HO*H. #$fc@TO4H.a #$03@.O>Hsta $dd00@.OhHlda $d011@.OrH.a #$20@.O£Hsta $d011@.OFHlda #$04@.OPHsta $fc@.OZHldy #$00@.O.Hsty $fb@.O.Hlda #$01@.O.Hgrlop sta ($fb),y@GP.Hiny@UP.Hbne grlop@!P.Hinc $fc@-P.Hldx $fc@:P.Hcpx #$08@hP.Hbne grlop@yP.Hlda multireg@HP.Hbeq nocols@UP.Hjmp irq.@.P.Hnocols lda $d016@.PFI. #$ef@.PPIsta $d016@.PZIrts@.P.K; autostereogram calculator@.P.K.stereo jsr graphic@.P.Klda #$c7@FQ.Ksta ypixel@YQ.K.line ldy #$00@%Q.Ksty $fb@2Q.Klda #$c0@>Q.Ksta $fc@nQHLlinelop tya@.QRLsta ($fb),y@FQ£Liny@VQ&Lbne linelop@.Q0Llda #$00@.Q:Lsta xpixel@.QdLxlop jsr .pix@.QnLsta sep@.QxL. ypixel@.QBL. #$01@.QLLclc@.QVLadc sep@.Q.Llsr a@.Q.Lsta i@.Q.Llda xpixel@GR.Lsec@QR.Lsbc i@ R.Lbcc xrelop@*R.Lsta i@2R.Lclc@>R.Ladc sep@mR.Lbcs xrelop@wR.Lsta j@HR.Lrepeat ldx i@XR.Llda $c000,x@.RBMsta s@.RLMcmp j@.RQMbeq xrelop@.RVMbcs llcase3@.R Msta i@.R*Mjmp l210@.R4Mllcase3 lda j@.R>Msta $c000,x@.RhMsta i@.RrMlda s@BS£Msta j@QSFMl210 ldx i@!SPMlda $c000,x@+SZMcmp i@:S.Mbne repeat@dS.Mlda j@nS.Mldx i@.S.Msta $c000,x@TS.Mxrelop ldx xpixel@.S.Minx@.S.Mbeq yrelop@.S.Mstx xpixel@.S.Mjmp xlop@.SFNyrelop jsr disp@.SPNdec ypixel@.SZNlda ypixel@.S$Nbeq ..@.S.Njmp .line@.S=N.. rts@OTbNdisp lda #$00@.TlNsta xpixel@+TvNdlop tax@;T.Nlda $c000,x@jTJNcmp xpixel@xTTNbne delse@DT.Nlda rno@NT.Nlsr a@ZT.Ninc $a2@.T.Nadc $a2@.T.Nldx $a2@.T.Nadc $0000,x@.T.Nsta rno@.T.N. #$01@.T.Nldx xpixel@.T.Nsta $c100,x@.T.Njmp nelse@.T.Ndelse lda $c000,x@DU.Ntay@TU@Olda $c100,y@$UJOsta $c100,x@7UTOnelse cmp #$00@dU.Obeq nobl@rU(Ojsr plo.n@AU-Ojmp redisp@UU2Onobl jsr plo.ff@.U<Oredisp dec xpixel@.UfOlda xpixel@.UpObne dlop@.UzOrts@.U.S; interrupt routines@.U.Sirq lda #$01@.U.Ssta $d019@CV.Slda $d012@QV.Sbeq irq.p@.V.Sldy #$02@+V.Silop dey@8V.Sbne ilop@fV.Slda $d016@rV.S.a #$10@.V.Ssta $d016@MV.Slda #$00@.V.Ssta $d012@.V.Sjmp $ea81@.V@Tirq.p lda $d016@.VJT. #$ef@.VTTsta $d016@.VWTlda #$c7@.VZTsec@.V.Tsbc ypixel@.V(Tclc@.V2Tadc #$32@.V<Tsta $d012@KWfTjmp $ea31@XW.Tirq. sei@%W.Tlda #$01@3W.Tsta $d019@aW.Tsta $d01a@oW.Tsta $dc0d@£W.Tlda #$3b@JWDUsta $d011@WWNUlda #$00@.WXUsta $d012@.W"Ulda #.irq@.W,Usta $0314@.W6Ulda #.irq@.W@Usta $0315@.WjUcli@.WtUrts@.WyU; i.o routines@FX.Ulscr lda #$01@SXHUldx #$08@ XRUldy #$00@.X.Ujsr $ffba@<X.Ulda $c000@iX.Uldx #$08@vX.Uldy #$c0@DX.Ujsr $ffbd@QX.Ulda #$00@.X.Uldx #$00@.X.Uldy #$20@.X.Ujmp $ffd5@.X.Usscr lda #$01@.X.Uldx #$08@.X.Utay@.X.Ujsr $ffba@.XHVlda $1808@.XRVldx #$10@.X£Vldy #$18@DY&Vjsr $ffbd@QY0Vlda #$20@]Y:Vsta $fc@*YdVlda #$fb@7YnVldx #$00@dYxVldy #$40@pYBVstx $fb@.YLVjmp $ffd8@@@
00000000 20 08 0a 00 3b 20 41 55 54 4f 53 54 45 52 45 4f | ...; AUTOSTEREO| 00000010 47 52 41 4d 20 47 45 4e 45 52 41 54 4f 52 00 26 |GRAM GENERATOR.&| 00000020 08 14 00 3b 00 35 08 1e 00 3b 20 31 37 2f 31 32 |...;.5...; 17/12| 00000030 2f 39 35 00 3b 08 28 00 3b 00 47 08 32 00 ac b2 |/95.;.(.;.G.2...| 00000040 24 31 30 30 30 00 53 08 3c 00 49 b2 24 43 46 30 |$1000.S.<.I.$CF0| 00000050 30 00 5f 08 46 00 4a b2 24 43 46 30 31 00 6b 08 |0._.F.J.$CF01.k.| 00000060 50 00 53 b2 24 43 46 30 32 00 79 08 5a 00 53 45 |P.S.$CF02.y.Z.SE| 00000070 50 b2 24 43 46 30 33 00 8a 08 64 00 58 50 49 58 |P.$CF03...d.XPIX| 00000080 45 4c b2 24 43 46 30 34 00 9b 08 6e 00 59 50 49 |EL.$CF04...n.YPI| 00000090 58 45 4c b2 24 43 46 30 35 00 aa 08 78 00 58 50 |XEL.$CF05...x.XP| 000000a0 49 42 b2 24 43 46 30 36 00 b9 08 82 00 59 50 49 |IB.$CF06.....YPI| 000000b0 42 b2 24 43 46 30 37 00 c7 08 8c 00 52 4e 4f b2 |B.$CF07.....RNO.| 000000c0 24 43 46 30 38 00 da 08 96 00 4d 55 4c 54 49 52 |$CF08.....MULTIR| 000000d0 45 47 b2 24 43 46 30 39 00 e7 08 f4 01 4a 4d 50 |EG.$CF09.....JMP| 000000e0 20 4c 53 43 52 00 f9 08 fe 01 4a 4d 50 20 41 55 | LSCR.....JMP AU| 000000f0 a4 53 54 45 52 45 4f 00 06 09 08 02 4a 4d 50 20 |.STEREO.....JMP | 00000100 53 53 43 52 00 21 09 58 02 48 d4 20 54 58 54 20 |SSCR.!.X.H. TXT | 00000110 24 32 44 2c 24 30 30 2c 24 30 30 2c 24 30 30 00 |$2D,$00,$00,$00.| 00000120 45 09 e8 03 3b 20 20 20 20 20 20 20 20 20 20 20 |E...; | 00000130 47 52 41 50 48 49 43 20 50 4f b5 20 50 4c 4f 54 |GRAPHIC PO. PLOT| 00000140 54 45 52 00 59 09 f2 03 50 4c 4f 54 50 43 20 4c |TER.Y...PLOTPC L| 00000150 44 41 20 23 24 34 37 00 65 09 fc 03 53 54 41 20 |DA #$47.e...STA | 00000160 24 46 42 00 72 09 06 04 4c 44 41 20 23 24 33 46 |$FB.r...LDA #$3F| 00000170 00 7e 09 10 04 53 54 41 20 24 46 43 00 8d 09 1a |.~...STA $FC....| 00000180 04 4c 44 41 20 59 50 49 58 45 4c 00 97 09 24 04 |.LDA YPIXEL...$.| 00000190 4c 53 52 20 41 00 a1 09 2e 04 4c 53 52 20 41 00 |LSR A.....LSR A.| 000001a0 ab 09 38 04 4c 53 52 20 41 00 b8 09 42 04 53 54 |..8.LSR A...B.ST| 000001b0 41 20 59 50 49 42 00 c3 09 4c 04 af 20 23 24 30 |A YPIB...L.. #$0| 000001c0 33 00 cd 09 56 04 41 53 4c 20 41 00 d7 09 60 04 |3...V.ASL A...`.| 000001d0 41 53 4c 20 41 00 e1 09 6a 04 41 53 4c 20 41 00 |ASL A...j.ASL A.| 000001e0 eb 09 74 04 41 53 4c 20 41 00 f5 09 7e 04 41 53 |..t.ASL A...~.AS| 000001f0 4c 20 41 00 ff 09 88 04 41 53 4c 20 41 00 0b 0a |L A.....ASL A...| 00000200 92 04 53 54 41 20 24 30 32 00 17 0a 9c 04 4c 44 |..STA $02.....LD| 00000210 41 20 24 46 42 00 1f 0a a6 04 53 45 43 00 2b 0a |A $FB.....SEC.+.| 00000220 b0 04 53 42 43 20 24 30 32 00 37 0a ba 04 53 54 |..SBC $02.7...ST| 00000230 41 20 24 46 42 00 43 0a c4 04 4c 44 41 20 24 46 |A $FB.C...LDA $F| 00000240 43 00 50 0a ce 04 53 42 43 20 23 24 30 30 00 5d |C.P...SBC #$00.]| 00000250 0a d8 04 53 42 43 20 59 50 49 42 00 65 0a e2 04 |...SBC YPIB.e...| 00000260 50 48 41 00 72 0a ec 04 4c 44 41 20 59 50 49 42 |PHA.r...LDA YPIB| 00000270 00 7c 0a f6 04 4c 53 52 20 41 00 86 0a 00 05 4c |.|...LSR A.....L| 00000280 53 52 20 41 00 92 0a 0a 05 53 54 41 20 24 30 32 |SR A.....STA $02| 00000290 00 9a 0a 14 05 50 4c 41 00 a2 0a 1e 05 53 45 43 |.....PLA.....SEC| 000002a0 00 ae 0a 28 05 53 42 43 20 24 30 32 00 ba 0a 32 |...(.SBC $02...2| 000002b0 05 53 54 41 20 24 46 43 00 c9 0a 3c 05 4c 44 41 |.STA $FC...<.LDA| 000002c0 20 59 50 49 58 45 4c 00 d4 0a 46 05 af 20 23 24 | YPIXEL...F.. #$| 000002d0 30 37 00 e1 0a 50 05 53 54 41 20 59 50 49 42 00 |07...P.STA YPIB.| 000002e0 ed 0a 5a 05 4c 44 41 20 24 46 42 00 f5 0a 64 05 |..Z.LDA $FB...d.| 000002f0 53 45 43 00 02 0b 6e 05 53 42 43 20 59 50 49 42 |SEC...n.SBC YPIB| 00000300 00 0a 0b 78 05 50 48 41 00 19 0b 82 05 4c 44 41 |...x.PHA.....LDA| 00000310 20 58 50 49 58 45 4c 00 24 0b 8c 05 af 20 23 24 | XPIXEL.$.... #$| 00000320 46 38 00 31 0b 96 05 53 54 41 20 59 50 49 42 00 |F8.1...STA YPIB.| 00000330 39 0b a0 05 50 4c 41 00 41 0b aa 05 43 4c 43 00 |9...PLA.A...CLC.| 00000340 4e 0b b4 05 41 44 43 20 59 50 49 42 00 5a 0b be |N...ADC YPIB.Z..| 00000350 05 53 54 41 20 24 46 42 00 66 0b c8 05 4c 44 41 |.STA $FB.f...LDA| 00000360 20 24 46 43 00 73 0b d2 05 53 42 43 20 23 24 30 | $FC.s...SBC #$0| 00000370 30 00 7f 0b dc 05 53 54 41 20 24 46 43 00 8e 0b |0.....STA $FC...| 00000380 e6 05 4c 44 41 20 58 50 49 58 45 4c 00 99 0b f0 |..LDA XPIXEL....| 00000390 05 af 20 23 24 30 37 00 a1 0b fa 05 54 41 58 00 |.. #$07.....TAX.| 000003a0 ae 0b 04 06 4c 44 41 20 23 24 38 30 00 c2 0b 0e |....LDA #$80....| 000003b0 06 47 42 49 54 4c 50 20 43 50 58 20 23 24 30 30 |.GBITLP CPX #$00| 000003c0 00 ce 0b 18 06 42 45 51 20 50 50 9a 00 d8 0b 22 |.....BEQ PP...."| 000003d0 06 4c 53 52 20 41 00 e0 0b 2c 06 44 45 58 00 ef |.LSR A...,.DEX..| 000003e0 0b 36 06 4a 4d 50 20 47 42 49 54 4c 50 00 ff 0b |.6.JMP GBITLP...| 000003f0 40 06 50 50 9a 20 53 54 41 20 24 46 44 00 07 0c |@.PP. STA $FD...| 00000400 4a 06 52 54 53 00 1c 0c 54 06 50 4c 4f a4 4e 20 |J.RTS...T.PLO.N | 00000410 4a 53 52 20 50 4c 4f 54 50 43 00 29 0c 5e 06 4c |JSR PLOTPC.).^.L| 00000420 44 59 20 23 24 30 30 00 39 0c 68 06 4c 44 41 20 |DY #$00.9.h.LDA | 00000430 28 24 46 42 29 2c 59 00 44 0c 72 06 b0 41 20 24 |($FB),Y.D.r..A $| 00000440 46 44 00 54 0c 7c 06 53 54 41 20 28 24 46 42 29 |FD.T.|.STA ($FB)| 00000450 2c 59 00 5c 0c 86 06 52 54 53 00 72 0c 90 06 50 |,Y.\...RTS.r...P| 00000460 4c 4f a4 46 46 20 4a 53 52 20 50 4c 4f 54 50 43 |LO.FF JSR PLOTPC| 00000470 00 7e 0c 9a 06 4c 44 41 20 24 46 44 00 8a 0c a4 |.~...LDA $FD....| 00000480 06 45 b0 20 23 24 46 46 00 96 0c ae 06 53 54 41 |.E. #$FF.....STA| 00000490 20 24 46 44 00 a3 0c b8 06 4c 44 59 20 23 24 30 | $FD.....LDY #$0| 000004a0 30 00 b3 0c c2 06 4c 44 41 20 28 24 46 42 29 2c |0.....LDA ($FB),| 000004b0 59 00 bd 0c cc 06 af 20 24 46 44 00 cd 0c d6 06 |Y...... $FD.....| 000004c0 53 54 41 20 28 24 46 42 29 2c 59 00 d5 0c e0 06 |STA ($FB),Y.....| 000004d0 52 54 53 00 e8 0c ea 06 42 57 87 20 4a 53 52 20 |RTS.....BW. JSR | 000004e0 50 4c 4f 54 50 43 00 f5 0c f4 06 4c 44 59 20 23 |PLOTPC.....LDY #| 000004f0 24 30 30 00 05 0d fe 06 4c 44 41 20 28 24 46 42 |$00.....LDA ($FB| 00000500 29 2c 59 00 0f 0d 08 07 af 20 24 46 44 00 1a 0d |),Y...... $FD...| 00000510 12 07 42 4e 45 20 87 b9 00 25 0d 17 07 4c 44 41 |..BNE ...%...LDA| 00000520 20 48 d4 00 2d 0d 1c 07 52 54 53 00 3d 0d 26 07 | H..-...RTS.=.&.| 00000530 87 b9 20 4c 44 41 20 48 d4 aa 31 00 45 0d 30 07 |.. LDA H..1.E.0.| 00000540 52 54 53 00 5b 0d 3a 07 87 50 49 58 20 4c 44 41 |RTS.[.:..PIX LDA| 00000550 20 4d 55 4c 54 49 52 45 47 00 6a 0d 44 07 42 4e | MULTIREG.j.D.BN| 00000560 45 20 4d 55 4c 54 49 87 00 76 0d 4e 07 4a 4d 50 |E MULTI..v.N.JMP| 00000570 20 42 57 87 00 8c 0d 58 07 4d 55 4c 54 49 87 20 | BW....X.MULTI. | 00000580 4c 44 41 20 58 50 49 58 45 4c 00 94 0d 62 07 50 |LDA XPIXEL...b.P| 00000590 48 41 00 9f 0d 6c 07 af 20 23 24 46 45 00 ae 0d |HA...l.. #$FE...| 000005a0 76 07 53 54 41 20 58 50 49 58 45 4c 00 bd 0d 78 |v.STA XPIXEL...x| 000005b0 07 4a 53 52 20 50 4c 4f 54 50 43 00 ca 0d 7a 07 |.JSR PLOTPC...z.| 000005c0 4c 44 59 20 23 24 30 30 00 da 0d 7c 07 4c 44 41 |LDY #$00...|.LDA| 000005d0 20 28 24 46 42 29 2c 59 00 e4 0d 7e 07 af 20 24 | ($FB),Y...~.. $| 000005e0 46 44 00 f1 0d 80 07 42 45 51 20 4d 52 49 49 00 |FD.....BEQ MRII.| 000005f0 fe 0d 82 07 4c 44 41 20 23 24 30 32 00 0b 0e 84 |....LDA #$02....| 00000600 07 4d 52 49 49 20 50 48 41 00 1a 0e 85 07 49 4e |.MRII PHA.....IN| 00000610 43 20 58 50 49 58 45 4c 00 29 0e 86 07 4a 53 52 |C XPIXEL.)...JSR| 00000620 20 50 4c 4f 54 50 43 00 36 0e 88 07 4c 44 59 20 | PLOTPC.6...LDY | 00000630 23 24 30 30 00 46 0e 8a 07 4c 44 41 20 28 24 46 |#$00.F...LDA ($F| 00000640 42 29 2c 59 00 50 0e 8c 07 af 20 24 46 44 00 5e |B),Y.P.... $FD.^| 00000650 0e 8e 07 42 45 51 20 4d 52 49 49 49 00 66 0e 8f |...BEQ MRIII.f..| 00000660 07 50 4c 41 00 6e 0e 90 07 43 4c 43 00 7b 0e 92 |.PLA.n...CLC.{..| 00000670 07 41 44 43 20 23 24 30 31 00 83 0e 93 07 50 48 |.ADC #$01.....PH| 00000680 41 00 91 0e 94 07 4d 52 49 49 49 20 50 4c 41 00 |A.....MRIII PLA.| 00000690 99 0e 95 07 54 41 58 00 a1 0e 96 07 50 4c 41 00 |....TAX.....PLA.| 000006a0 b0 0e 98 07 53 54 41 20 58 50 49 58 45 4c 00 bd |....STA XPIXEL..| 000006b0 0e 9a 07 4c 44 41 20 48 d4 2c 58 00 c5 0e 9c 07 |...LDA H.,X.....| 000006c0 52 54 53 00 ec 0e d0 07 3b 20 20 20 20 20 20 20 |RTS.....; | 000006d0 20 20 20 20 20 20 20 20 20 42 49 54 4d 41 50 20 | BITMAP | 000006e0 4f 4e 20 52 4f 55 54 49 4e 45 00 02 0f da 07 47 |ON ROUTINE.....G| 000006f0 52 41 50 48 49 43 20 4c 44 41 20 24 44 30 31 38 |RAPHIC LDA $D018| 00000700 00 0d 0f e4 07 af 20 23 24 30 31 00 19 0f ee 07 |...... #$01.....| 00000710 b0 41 20 23 24 31 38 00 27 0f f8 07 53 54 41 20 |.A #$18.'...STA | 00000720 24 44 30 31 38 00 35 0f 02 08 4c 44 41 20 24 44 |$D018.5...LDA $D| 00000730 44 30 32 00 41 0f 0c 08 b0 41 20 23 24 30 33 00 |D02.A....A #$03.| 00000740 4f 0f 16 08 53 54 41 20 24 44 44 30 32 00 5d 0f |O...STA $DD02.].| 00000750 20 08 4c 44 41 20 24 44 44 30 30 00 68 0f 2a 08 | .LDA $DD00.h.*.| 00000760 af 20 23 24 46 43 00 74 0f 34 08 b0 41 20 23 24 |. #$FC.t.4..A #$| 00000770 30 33 00 82 0f 3e 08 53 54 41 20 24 44 44 30 30 |03...>.STA $DD00| 00000780 00 90 0f 48 08 4c 44 41 20 24 44 30 31 31 00 9c |...H.LDA $D011..| 00000790 0f 52 08 b0 41 20 23 24 32 30 00 aa 0f 5c 08 53 |.R..A #$20...\.S| 000007a0 54 41 20 24 44 30 31 31 00 b7 0f 66 08 4c 44 41 |TA $D011...f.LDA| 000007b0 20 23 24 30 34 00 c3 0f 70 08 53 54 41 20 24 46 | #$04...p.STA $F| 000007c0 43 00 d0 0f 7a 08 4c 44 59 20 23 24 30 30 00 dc |C...z.LDY #$00..| 000007d0 0f 84 08 53 54 59 20 24 46 42 00 e9 0f 8e 08 4c |...STY $FB.....L| 000007e0 44 41 20 23 24 30 31 00 ff 0f 98 08 47 52 4c 4f |DA #$01.....GRLO| 000007f0 50 20 53 54 41 20 28 24 46 42 29 2c 59 00 07 10 |P STA ($FB),Y...| 00000800 a2 08 49 4e 59 00 15 10 ac 08 42 4e 45 20 47 52 |..INY.....BNE GR| 00000810 4c 4f 50 00 21 10 b6 08 49 4e 43 20 24 46 43 00 |LOP.!...INC $FC.| 00000820 2d 10 c0 08 4c 44 58 20 24 46 43 00 3a 10 ca 08 |-...LDX $FC.:...| 00000830 43 50 58 20 23 24 30 38 00 48 10 d4 08 42 4e 45 |CPX #$08.H...BNE| 00000840 20 47 52 4c 4f 50 00 59 10 de 08 4c 44 41 20 4d | GRLOP.Y...LDA M| 00000850 55 4c 54 49 52 45 47 00 68 10 e8 08 42 45 51 20 |ULTIREG.h...BEQ | 00000860 4e 4f 43 4f 4c 53 00 75 10 f2 08 4a 4d 50 20 49 |NOCOLS.u...JMP I| 00000870 52 51 91 00 8a 10 fc 08 4e 4f 43 4f 4c 53 20 4c |RQ......NOCOLS L| 00000880 44 41 20 24 44 30 31 36 00 95 10 06 09 af 20 23 |DA $D016...... #| 00000890 24 45 46 00 a3 10 10 09 53 54 41 20 24 44 30 31 |$EF.....STA $D01| 000008a0 36 00 ab 10 1a 09 52 54 53 00 d2 10 b8 0b 3b 20 |6.....RTS.....; | 000008b0 20 20 20 20 20 20 20 41 55 54 4f 53 54 45 52 45 | AUTOSTERE| 000008c0 4f 47 52 41 4d 20 43 41 4c 43 55 4c 41 54 4f 52 |OGRAM CALCULATOR| 000008d0 00 ea 10 c2 0b cf 53 54 45 52 45 4f 20 4a 53 52 |......STEREO JSR| 000008e0 20 47 52 41 50 48 49 43 00 f7 10 cc 0b 4c 44 41 | GRAPHIC.....LDA| 000008f0 20 23 24 43 37 00 06 11 d6 0b 53 54 41 20 59 50 | #$C7.....STA YP| 00000900 49 58 45 4c 00 19 11 e0 0b cf 4c 49 4e 45 20 4c |IXEL......LINE L| 00000910 44 59 20 23 24 30 30 00 25 11 ea 0b 53 54 59 20 |DY #$00.%...STY | 00000920 24 46 42 00 32 11 f4 0b 4c 44 41 20 23 24 43 30 |$FB.2...LDA #$C0| 00000930 00 3e 11 fe 0b 53 54 41 20 24 46 43 00 4e 11 08 |.>...STA $FC.N..| 00000940 0c 4c 49 4e 45 4c 4f 50 20 54 59 41 00 5e 11 12 |.LINELOP TYA.^..| 00000950 0c 53 54 41 20 28 24 46 42 29 2c 59 00 66 11 1c |.STA ($FB),Y.f..| 00000960 0c 49 4e 59 00 76 11 26 0c 42 4e 45 20 4c 49 4e |.INY.v.&.BNE LIN| 00000970 45 4c 4f 50 00 83 11 30 0c 4c 44 41 20 23 24 30 |ELOP...0.LDA #$0| 00000980 30 00 92 11 3a 0c 53 54 41 20 58 50 49 58 45 4c |0...:.STA XPIXEL| 00000990 00 a4 11 44 0c 58 4c 4f 50 20 4a 53 52 20 87 50 |...D.XLOP JSR .P| 000009a0 49 58 00 b0 11 4e 0c 53 54 41 20 53 45 50 00 bd |IX...N.STA SEP..| 000009b0 11 58 0c af 20 59 50 49 58 45 4c 00 c8 11 62 0c |.X.. YPIXEL...b.| 000009c0 af 20 23 24 30 31 00 d0 11 6c 0c 43 4c 43 00 dc |. #$01...l.CLC..| 000009d0 11 76 0c 41 44 43 20 53 45 50 00 e6 11 80 0c 4c |.v.ADC SEP.....L| 000009e0 53 52 20 41 00 f0 11 8a 0c 53 54 41 20 49 00 ff |SR A.....STA I..| 000009f0 11 94 0c 4c 44 41 20 58 50 49 58 45 4c 00 07 12 |...LDA XPIXEL...| 00000a00 9e 0c 53 45 43 00 11 12 a8 0c 53 42 43 20 49 00 |..SEC.....SBC I.| 00000a10 20 12 b2 0c 42 43 43 20 58 52 45 4c 4f 50 00 2a | ...BCC XRELOP.*| 00000a20 12 bc 0c 53 54 41 20 49 00 32 12 c6 0c 43 4c 43 |...STA I.2...CLC| 00000a30 00 3e 12 d0 0c 41 44 43 20 53 45 50 00 4d 12 da |.>...ADC SEP.M..| 00000a40 0c 42 43 53 20 58 52 45 4c 4f 50 00 57 12 e4 0c |.BCS XRELOP.W...| 00000a50 53 54 41 20 4a 00 68 12 ee 0c 52 45 50 45 41 54 |STA J.h...REPEAT| 00000a60 20 4c 44 58 20 49 00 78 12 f8 0c 4c 44 41 20 24 | LDX I.x...LDA $| 00000a70 43 30 30 30 2c 58 00 82 12 02 0d 53 54 41 20 53 |C000,X.....STA S| 00000a80 00 8c 12 0c 0d 43 4d 50 20 4a 00 9b 12 11 0d 42 |.....CMP J.....B| 00000a90 45 51 20 58 52 45 4c 4f 50 00 ab 12 16 0d 42 43 |EQ XRELOP.....BC| 00000aa0 53 20 4c 4c 43 41 53 45 33 00 b5 12 20 0d 53 54 |S LLCASE3... .ST| 00000ab0 41 20 49 00 c2 12 2a 0d 4a 4d 50 20 4c 32 31 30 |A I...*.JMP L210| 00000ac0 00 d4 12 34 0d 4c 4c 43 41 53 45 33 20 4c 44 41 |...4.LLCASE3 LDA| 00000ad0 20 4a 00 e4 12 3e 0d 53 54 41 20 24 43 30 30 30 | J...>.STA $C000| 00000ae0 2c 58 00 ee 12 48 0d 53 54 41 20 49 00 f8 12 52 |,X...H.STA I...R| 00000af0 0d 4c 44 41 20 53 00 02 13 5c 0d 53 54 41 20 4a |.LDA S...\.STA J| 00000b00 00 11 13 66 0d 4c 32 31 30 20 4c 44 58 20 49 00 |...f.L210 LDX I.| 00000b10 21 13 70 0d 4c 44 41 20 24 43 30 30 30 2c 58 00 |!.p.LDA $C000,X.| 00000b20 2b 13 7a 0d 43 4d 50 20 49 00 3a 13 84 0d 42 4e |+.z.CMP I.:...BN| 00000b30 45 20 52 45 50 45 41 54 00 44 13 b6 0d 4c 44 41 |E REPEAT.D...LDA| 00000b40 20 4a 00 4e 13 c0 0d 4c 44 58 20 49 00 5e 13 ca | J.N...LDX I.^..| 00000b50 0d 53 54 41 20 24 43 30 30 30 2c 58 00 74 13 d4 |.STA $C000,X.t..| 00000b60 0d 58 52 45 4c 4f 50 20 4c 44 58 20 58 50 49 58 |.XRELOP LDX XPIX| 00000b70 45 4c 00 7c 13 de 0d 49 4e 58 00 8b 13 e8 0d 42 |EL.|...INX.....B| 00000b80 45 51 20 59 52 45 4c 4f 50 00 9a 13 f2 0d 53 54 |EQ YRELOP.....ST| 00000b90 58 20 58 50 49 58 45 4c 00 a7 13 fc 0d 4a 4d 50 |X XPIXEL.....JMP| 00000ba0 20 58 4c 4f 50 00 bb 13 06 0e 59 52 45 4c 4f 50 | XLOP.....YRELOP| 00000bb0 20 4a 53 52 20 44 49 53 50 00 ca 13 10 0e 44 45 | JSR DISP.....DE| 00000bc0 43 20 59 50 49 58 45 4c 00 d9 13 1a 0e 4c 44 41 |C YPIXEL.....LDA| 00000bd0 20 59 50 49 58 45 4c 00 e4 13 24 0e 42 45 51 20 | YPIXEL...$.BEQ | 00000be0 cf 80 00 f2 13 2e 0e 4a 4d 50 20 cf 4c 49 4e 45 |.......JMP .LINE| 00000bf0 00 fd 13 3d 0e cf 80 20 52 54 53 00 0f 14 42 0e |...=... RTS...B.| 00000c00 44 49 53 50 20 4c 44 41 20 23 24 30 30 00 1e 14 |DISP LDA #$00...| 00000c10 4c 0e 53 54 41 20 58 50 49 58 45 4c 00 2b 14 56 |L.STA XPIXEL.+.V| 00000c20 0e 44 4c 4f 50 20 54 41 58 00 3b 14 60 0e 4c 44 |.DLOP TAX.;.`.LD| 00000c30 41 20 24 43 30 30 30 2c 58 00 4a 14 6a 0e 43 4d |A $C000,X.J.j.CM| 00000c40 50 20 58 50 49 58 45 4c 00 58 14 74 0e 42 4e 45 |P XPIXEL.X.t.BNE| 00000c50 20 44 45 4c 53 45 00 64 14 7e 0e 4c 44 41 20 52 | DELSE.d.~.LDA R| 00000c60 4e 4f 00 6e 14 88 0e 4c 53 52 20 41 00 7a 14 92 |NO.n...LSR A.z..| 00000c70 0e 49 4e 43 20 24 41 32 00 86 14 9c 0e 41 44 43 |.INC $A2.....ADC| 00000c80 20 24 41 32 00 92 14 a6 0e 4c 44 58 20 24 41 32 | $A2.....LDX $A2| 00000c90 00 a2 14 b0 0e 41 44 43 20 24 30 30 30 30 2c 58 |.....ADC $0000,X| 00000ca0 00 ae 14 ba 0e 53 54 41 20 52 4e 4f 00 b9 14 c4 |.....STA RNO....| 00000cb0 0e af 20 23 24 30 31 00 c8 14 ce 0e 4c 44 58 20 |.. #$01.....LDX | 00000cc0 58 50 49 58 45 4c 00 d8 14 d8 0e 53 54 41 20 24 |XPIXEL.....STA $| 00000cd0 43 31 30 30 2c 58 00 e6 14 e2 0e 4a 4d 50 20 4e |C100,X.....JMP N| 00000ce0 45 4c 53 45 00 fc 14 ec 0e 44 45 4c 53 45 20 4c |ELSE.....DELSE L| 00000cf0 44 41 20 24 43 30 30 30 2c 58 00 04 15 f6 0e 54 |DA $C000,X.....T| 00000d00 41 59 00 14 15 00 0f 4c 44 41 20 24 43 31 30 30 |AY.....LDA $C100| 00000d10 2c 59 00 24 15 0a 0f 53 54 41 20 24 43 31 30 30 |,Y.$...STA $C100| 00000d20 2c 58 00 37 15 14 0f 4e 45 4c 53 45 20 43 4d 50 |,X.7...NELSE CMP| 00000d30 20 23 24 30 30 00 44 15 1e 0f 42 45 51 20 4e 4f | #$00.D...BEQ NO| 00000d40 42 4c 00 52 15 28 0f 4a 53 52 20 50 4c 4f a4 4e |BL.R.(.JSR PLO.N| 00000d50 00 61 15 2d 0f 4a 4d 50 20 52 45 44 49 53 50 00 |.a.-.JMP REDISP.| 00000d60 75 15 32 0f 4e 4f 42 4c 20 4a 53 52 20 50 4c 4f |u.2.NOBL JSR PLO| 00000d70 a4 46 46 00 8b 15 3c 0f 52 45 44 49 53 50 20 44 |.FF...<.REDISP D| 00000d80 45 43 20 58 50 49 58 45 4c 00 9a 15 46 0f 4c 44 |EC XPIXEL...F.LD| 00000d90 41 20 58 50 49 58 45 4c 00 a7 15 50 0f 42 4e 45 |A XPIXEL...P.BNE| 00000da0 20 44 4c 4f 50 00 af 15 5a 0f 52 54 53 00 d6 15 | DLOP...Z.RTS...| 00000db0 88 13 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 |..; | 00000dc0 20 20 49 4e 54 45 52 52 55 50 54 20 52 4f 55 54 | INTERRUPT ROUT| 00000dd0 49 4e 45 53 00 e7 15 92 13 49 52 51 20 4c 44 41 |INES.....IRQ LDA| 00000de0 20 23 24 30 31 00 f5 15 94 13 53 54 41 20 24 44 | #$01.....STA $D| 00000df0 30 31 39 00 03 16 96 13 4c 44 41 20 24 44 30 31 |019.....LDA $D01| 00000e00 32 00 11 16 9c 13 42 45 51 20 49 52 51 a4 50 00 |2.....BEQ IRQ.P.| 00000e10 1e 16 a6 13 4c 44 59 20 23 24 30 32 00 2b 16 b0 |....LDY #$02.+..| 00000e20 13 49 4c 4f 50 20 44 45 59 00 38 16 ba 13 42 4e |.ILOP DEY.8...BN| 00000e30 45 20 49 4c 4f 50 00 46 16 c4 13 4c 44 41 20 24 |E ILOP.F...LDA $| 00000e40 44 30 31 36 00 52 16 ce 13 b0 41 20 23 24 31 30 |D016.R....A #$10| 00000e50 00 60 16 d8 13 53 54 41 20 24 44 30 31 36 00 6d |.`...STA $D016.m| 00000e60 16 e2 13 4c 44 41 20 23 24 30 30 00 7b 16 ec 13 |...LDA #$00.{...| 00000e70 53 54 41 20 24 44 30 31 32 00 89 16 f6 13 4a 4d |STA $D012.....JM| 00000e80 50 20 24 45 41 38 31 00 9d 16 00 14 49 52 51 a4 |P $EA81.....IRQ.| 00000e90 50 20 4c 44 41 20 24 44 30 31 36 00 a8 16 0a 14 |P LDA $D016.....| 00000ea0 af 20 23 24 45 46 00 b6 16 14 14 53 54 41 20 24 |. #$EF.....STA $| 00000eb0 44 30 31 36 00 c3 16 17 14 4c 44 41 20 23 24 43 |D016.....LDA #$C| 00000ec0 37 00 cb 16 1a 14 53 45 43 00 da 16 1e 14 53 42 |7.....SEC.....SB| 00000ed0 43 20 59 50 49 58 45 4c 00 e2 16 28 14 43 4c 43 |C YPIXEL...(.CLC| 00000ee0 00 ef 16 32 14 41 44 43 20 23 24 33 32 00 fd 16 |...2.ADC #$32...| 00000ef0 3c 14 53 54 41 20 24 44 30 31 32 00 0b 17 46 14 |<.STA $D012...F.| 00000f00 4a 4d 50 20 24 45 41 33 31 00 18 17 c8 14 49 52 |JMP $EA31.....IR| 00000f10 51 91 20 53 45 49 00 25 17 d2 14 4c 44 41 20 23 |Q. SEI.%...LDA #| 00000f20 24 30 31 00 33 17 dc 14 53 54 41 20 24 44 30 31 |$01.3...STA $D01| 00000f30 39 00 41 17 e6 14 53 54 41 20 24 44 30 31 41 00 |9.A...STA $D01A.| 00000f40 4f 17 f0 14 53 54 41 20 24 44 43 30 44 00 5c 17 |O...STA $DC0D.\.| 00000f50 fa 14 4c 44 41 20 23 24 33 42 00 6a 17 04 15 53 |..LDA #$3B.j...S| 00000f60 54 41 20 24 44 30 31 31 00 77 17 0e 15 4c 44 41 |TA $D011.w...LDA| 00000f70 20 23 24 30 30 00 85 17 18 15 53 54 41 20 24 44 | #$00.....STA $D| 00000f80 30 31 32 00 93 17 22 15 4c 44 41 20 23 b3 49 52 |012...".LDA #.IR| 00000f90 51 00 a1 17 2c 15 53 54 41 20 24 30 33 31 34 00 |Q...,.STA $0314.| 00000fa0 af 17 36 15 4c 44 41 20 23 b1 49 52 51 00 bd 17 |..6.LDA #.IRQ...| 00000fb0 40 15 53 54 41 20 24 30 33 31 35 00 c5 17 4a 15 |@.STA $0315...J.| 00000fc0 43 4c 49 00 cd 17 54 15 52 54 53 00 f4 17 59 15 |CLI...T.RTS...Y.| 00000fd0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |; | 00000fe0 20 20 20 20 20 20 49 ad 4f 20 52 4f 55 54 49 4e | I.O ROUTIN| 00000ff0 45 53 00 06 18 5e 15 4c 53 43 52 20 4c 44 41 20 |ES...^.LSCR LDA | 00001000 23 24 30 31 00 13 18 68 15 4c 44 58 20 23 24 30 |#$01...h.LDX #$0| 00001010 38 00 20 18 72 15 4c 44 59 20 23 24 30 30 00 2e |8. .r.LDY #$00..| 00001020 18 7c 15 4a 53 52 20 24 46 46 42 41 00 3c 18 86 |.|.JSR $FFBA.<..| 00001030 15 4c 44 41 20 24 43 30 30 30 00 49 18 90 15 4c |.LDA $C000.I...L| 00001040 44 58 20 23 24 30 38 00 56 18 9a 15 4c 44 59 20 |DX #$08.V...LDY | 00001050 23 24 43 30 00 64 18 a4 15 4a 53 52 20 24 46 46 |#$C0.d...JSR $FF| 00001060 42 44 00 71 18 b8 15 4c 44 41 20 23 24 30 30 00 |BD.q...LDA #$00.| 00001070 7e 18 bb 15 4c 44 58 20 23 24 30 30 00 8b 18 be |~...LDX #$00....| 00001080 15 4c 44 59 20 23 24 32 30 00 99 18 c2 15 4a 4d |.LDY #$20.....JM| 00001090 50 20 24 46 46 44 35 00 ab 18 e0 15 53 53 43 52 |P $FFD5.....SSCR| 000010a0 20 4c 44 41 20 23 24 30 31 00 b8 18 ea 15 4c 44 | LDA #$01.....LD| 000010b0 58 20 23 24 30 38 00 c0 18 f4 15 54 41 59 00 ce |X #$08.....TAY..| 000010c0 18 fe 15 4a 53 52 20 24 46 46 42 41 00 dc 18 08 |...JSR $FFBA....| 000010d0 16 4c 44 41 20 24 31 38 30 38 00 e9 18 12 16 4c |.LDA $1808.....L| 000010e0 44 58 20 23 24 31 30 00 f6 18 1c 16 4c 44 59 20 |DX #$10.....LDY | 000010f0 23 24 31 38 00 04 19 26 16 4a 53 52 20 24 46 46 |#$18...&.JSR $FF| 00001100 42 44 00 11 19 30 16 4c 44 41 20 23 24 32 30 00 |BD...0.LDA #$20.| 00001110 1d 19 3a 16 53 54 41 20 24 46 43 00 2a 19 44 16 |..:.STA $FC.*.D.| 00001120 4c 44 41 20 23 24 46 42 00 37 19 4e 16 4c 44 58 |LDA #$FB.7.N.LDX| 00001130 20 23 24 30 30 00 44 19 58 16 4c 44 59 20 23 24 | #$00.D.X.LDY #$| 00001140 34 30 00 50 19 62 16 53 54 58 20 24 46 42 00 5e |40.P.b.STX $FB.^| 00001150 19 6c 16 4a 4d 50 20 24 46 46 44 38 00 00 00 |.l.JMP $FFD8...| 0000115f