Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » autocode6

autocode6

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: autocode6
Read OK:
File size: 122A 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 $00,$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
  3640 JOYEND LDA MULTIREG
  3642 BEQ JOYQUIT
  3644 JMP IRQOFF
  3646 JOYQUIT 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
  5200 IRQOFF SEI
  5210 LDA #$31
  5220 STA $0314
  5230 LDA #$EA
  5240 STA $0315
  5250 LDA #$00
  5260 STA $D012
  5270 LDA $D016
  5280 AND #$EF
  5290 STA $D016
  5300 CLI
  5310 RTS
  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 $C080
  5650 LDX #$88
  5660 LDY #$C0
  5670 JSR $FFBD
  5680 LDA #$40
  5690 STA $FC
  5700 LDA #$FB
  5710 LDX #$00
  5720 LDY #$20
  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 $00,$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 $FDJRTSTPLO�N JSR PLOTPC)^LDY #$009hLDA ($FB),YDr�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 $FCNLINELOP TYA^STA ($FB),YfINYv&BNE LINELOP�0LDA #$00�:STA XPIXEL�DXLOP JSR �PIX�NSTA SEP�X� YPIXEL�b� #$01�lCLC�vADC 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 �LINE8π LDA MULTIREG:BEQ �QUIT#<JMP IRQOFF1>�QUIT RTSCBDISP LDA #$00RLSTA XPIXEL_VDLOP TAXo`LDA $C000,X~jCMP XPIXEL�tBNE DELSE�~LDA RNO��LSR A��INC $A2��ADC $A2��LDX $A2��ADC $0000,X��STA RNO��� #$01��LDX XPIXEL�STA $C100,X�JMP NELSE0�DELSE LDA $C000,X8�TAYHLDA $C100,YX
STA $C100,XkNELSE CMP #$00xBEQ NOBL�(JSR PLO�N�-JMP REDISP�2NOBL JSR PLO�FF�<REDISP DEC XPIXEL�FLDA XPIXEL�PBNE DLOP�ZRTS
�;               INTERRUPT ROUTINES�IRQ LDA #$01)�STA $D0197�LDA $D012E�BEQ IRQ�PR�LDY #$02_�ILOP DEYl�BNE ILOPz�LDA $D016���A #$10��STA $D016��LDA #$00��STA $D012��JMP $EA81�IRQ�P LDA $D016�
� #$EF�STA $D016�LDA #$C7�SECSBC YPIXEL(CLC#2ADC #$321<STA $D012?FJMP $EA31NPIRQOFF SEI[ZLDA #$31idSTA $0314vnLDA #$EA�xSTA $0315��LDA #$00��STA $D012��LDA $D016��� #$EF��STA $D016��CLI��RTS��IRQ� SEI��LDA #$01��STA $D019�STA $D01A�STA $DC0D'�LDA #$3B5STA $D011BLDA #$00PSTA $D012^"LDA #�IRQl,STA $0314z6LDA #�IRQ�@STA $0315�JCLI�TRTS�Y;                     I�O ROUTINES�^LSCR LDA #$01�hLDX #$08�rLDY #$00�|JSR $FFBA�LDA $C000�LDX #$08!�LDY #$C0/�JSR $FFBD<�LDA #$00I�LDX #$00V�LDY #$20d�JMP $FFD5v�SSCR LDA #$01��LDX #$08��TAY��JSR $FFBA�LDA $C080�LDX #$88�LDY #$C0�&JSR $FFBD�0LDA #$40�:STA $FC�DLDA #$FBNLDX #$00XLDY #$20bSTX $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 $00,$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@FT8N.. lda multireg@TT:Nbeq .quit@#T<Njmp irqoff@1T>N.quit rts@cTbNdisp lda #$00@rTlNsta xpixel@.TvNdlop tax@OT.Nlda $c000,x@.TJNcmp xpixel@.TTNbne delse@.T.Nlda rno@.T.Nlsr a@.T.Ninc $a2@.T.Nadc $a2@.T.Nldx $a2@.T.Nadc $0000,x@.T.Nsta rno@.T.N. #$01@.T.Nldx xpixel@LU.Nsta $c100,x@ZU.Njmp nelse@0U.Ndelse lda $c000,x@8U.Ntay@hU@Olda $c100,y@xUJOsta $c100,x@KUTOnelse cmp #$00@XU.Obeq nobl@.U(Ojsr plo.n@.U-Ojmp redisp@.U2Onobl jsr plo.ff@.U<Oredisp dec xpixel@.UfOlda xpixel@.UpObne dlop@.UzOrts@JV.S;               interrupt routines@[V.Sirq lda #$01@)V.Ssta $d019@7V.Slda $d012@eV.Sbeq irq.p@rV.Sldy #$02@.V.Silop dey@LV.Sbne ilop@ZV.Slda $d016@.V.S.a #$10@.V.Ssta $d016@.V.Slda #$00@.V.Ssta $d012@.V.Sjmp $ea81@.V@Tirq.p lda $d016@.VJT. #$ef@.VTTsta $d016@.VWTlda #$c7@.VZTsec@NW.Tsbc ypixel@VW(Tclc@#W2Tadc #$32@1W<Tsta $d012@?WfTjmp $ea31@nWpTirqoff sei@[WzTlda #$31@IWDTsta $0314@VWNTlda #$ea@.WXTsta $0315@.W.Tlda #$00@.W.Tsta $d012@.W.Tlda $d016@.W.T. #$ef@.W.Tsta $d016@.W.Tcli@.W.Trts@.W.Tirq. sei@.W.Tlda #$01@.W.Tsta $d019@LX.Tsta $d01a@ZX.Tsta $dc0d@'X.Tlda #$3b@5XDUsta $d011@bXNUlda #$00@pXXUsta $d012@.X"Ulda #.irq@LX,Usta $0314@ZX6Ulda #.irq@.X@Usta $0315@.XjUcli@.XtUrts@.XyU;                     i.o routines@.X.Ulscr lda #$01@.XHUldx #$08@.XRUldy #$00@.X.Ujsr $ffba@GY.Ulda $c000@TY.Uldx #$08@!Y.Uldy #$c0@/Y.Ujsr $ffbd@<Y.Ulda #$00@iY.Uldx #$00@vY.Uldy #$20@DY.Ujmp $ffd5@VY.Usscr lda #$01@.Y.Uldx #$08@.Y.Utay@.Y.Ujsr $ffba@.YHVlda $c080@.YRVldx #$88@.Y£Vldy #$c0@.Y&Vjsr $ffbd@.Y0Vlda #$40@.Y:Vsta $fc@.YdVlda #$fb@BZnVldx #$00@OZxVldy #$20@[ZBVstx $fb@)ZLVjmp $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 30 30 2c 24 30 30 2c  24 30 30 2c 24 30 30 00  |$00,$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 06 14 38 0e cf 80 20  4c 44 41 20 4d 55 4c 54  |...8... LDA MULT|
00000c00  49 52 45 47 00 14 14 3a  0e 42 45 51 20 cf 51 55  |IREG...:.BEQ .QU|
00000c10  49 54 00 23 14 3c 0e 4a  4d 50 20 49 52 51 4f 46  |IT.#.<.JMP IRQOF|
00000c20  46 00 31 14 3e 0e cf 51  55 49 54 20 52 54 53 00  |F.1.>..QUIT RTS.|
00000c30  43 14 42 0e 44 49 53 50  20 4c 44 41 20 23 24 30  |C.B.DISP LDA #$0|
00000c40  30 00 52 14 4c 0e 53 54  41 20 58 50 49 58 45 4c  |0.R.L.STA XPIXEL|
00000c50  00 5f 14 56 0e 44 4c 4f  50 20 54 41 58 00 6f 14  |._.V.DLOP TAX.o.|
00000c60  60 0e 4c 44 41 20 24 43  30 30 30 2c 58 00 7e 14  |`.LDA $C000,X.~.|
00000c70  6a 0e 43 4d 50 20 58 50  49 58 45 4c 00 8c 14 74  |j.CMP XPIXEL...t|
00000c80  0e 42 4e 45 20 44 45 4c  53 45 00 98 14 7e 0e 4c  |.BNE DELSE...~.L|
00000c90  44 41 20 52 4e 4f 00 a2  14 88 0e 4c 53 52 20 41  |DA RNO.....LSR A|
00000ca0  00 ae 14 92 0e 49 4e 43  20 24 41 32 00 ba 14 9c  |.....INC $A2....|
00000cb0  0e 41 44 43 20 24 41 32  00 c6 14 a6 0e 4c 44 58  |.ADC $A2.....LDX|
00000cc0  20 24 41 32 00 d6 14 b0  0e 41 44 43 20 24 30 30  | $A2.....ADC $00|
00000cd0  30 30 2c 58 00 e2 14 ba  0e 53 54 41 20 52 4e 4f  |00,X.....STA RNO|
00000ce0  00 ed 14 c4 0e af 20 23  24 30 31 00 fc 14 ce 0e  |...... #$01.....|
00000cf0  4c 44 58 20 58 50 49 58  45 4c 00 0c 15 d8 0e 53  |LDX XPIXEL.....S|
00000d00  54 41 20 24 43 31 30 30  2c 58 00 1a 15 e2 0e 4a  |TA $C100,X.....J|
00000d10  4d 50 20 4e 45 4c 53 45  00 30 15 ec 0e 44 45 4c  |MP NELSE.0...DEL|
00000d20  53 45 20 4c 44 41 20 24  43 30 30 30 2c 58 00 38  |SE LDA $C000,X.8|
00000d30  15 f6 0e 54 41 59 00 48  15 00 0f 4c 44 41 20 24  |...TAY.H...LDA $|
00000d40  43 31 30 30 2c 59 00 58  15 0a 0f 53 54 41 20 24  |C100,Y.X...STA $|
00000d50  43 31 30 30 2c 58 00 6b  15 14 0f 4e 45 4c 53 45  |C100,X.k...NELSE|
00000d60  20 43 4d 50 20 23 24 30  30 00 78 15 1e 0f 42 45  | CMP #$00.x...BE|
00000d70  51 20 4e 4f 42 4c 00 86  15 28 0f 4a 53 52 20 50  |Q NOBL...(.JSR P|
00000d80  4c 4f a4 4e 00 95 15 2d  0f 4a 4d 50 20 52 45 44  |LO.N...-.JMP RED|
00000d90  49 53 50 00 a9 15 32 0f  4e 4f 42 4c 20 4a 53 52  |ISP...2.NOBL JSR|
00000da0  20 50 4c 4f a4 46 46 00  bf 15 3c 0f 52 45 44 49  | PLO.FF...<.REDI|
00000db0  53 50 20 44 45 43 20 58  50 49 58 45 4c 00 ce 15  |SP DEC XPIXEL...|
00000dc0  46 0f 4c 44 41 20 58 50  49 58 45 4c 00 db 15 50  |F.LDA XPIXEL...P|
00000dd0  0f 42 4e 45 20 44 4c 4f  50 00 e3 15 5a 0f 52 54  |.BNE DLOP...Z.RT|
00000de0  53 00 0a 16 88 13 3b 20  20 20 20 20 20 20 20 20  |S.....;         |
00000df0  20 20 20 20 20 20 49 4e  54 45 52 52 55 50 54 20  |      INTERRUPT |
00000e00  52 4f 55 54 49 4e 45 53  00 1b 16 92 13 49 52 51  |ROUTINES.....IRQ|
00000e10  20 4c 44 41 20 23 24 30  31 00 29 16 94 13 53 54  | LDA #$01.)...ST|
00000e20  41 20 24 44 30 31 39 00  37 16 96 13 4c 44 41 20  |A $D019.7...LDA |
00000e30  24 44 30 31 32 00 45 16  9c 13 42 45 51 20 49 52  |$D012.E...BEQ IR|
00000e40  51 a4 50 00 52 16 a6 13  4c 44 59 20 23 24 30 32  |Q.P.R...LDY #$02|
00000e50  00 5f 16 b0 13 49 4c 4f  50 20 44 45 59 00 6c 16  |._...ILOP DEY.l.|
00000e60  ba 13 42 4e 45 20 49 4c  4f 50 00 7a 16 c4 13 4c  |..BNE ILOP.z...L|
00000e70  44 41 20 24 44 30 31 36  00 86 16 ce 13 b0 41 20  |DA $D016......A |
00000e80  23 24 31 30 00 94 16 d8  13 53 54 41 20 24 44 30  |#$10.....STA $D0|
00000e90  31 36 00 a1 16 e2 13 4c  44 41 20 23 24 30 30 00  |16.....LDA #$00.|
00000ea0  af 16 ec 13 53 54 41 20  24 44 30 31 32 00 bd 16  |....STA $D012...|
00000eb0  f6 13 4a 4d 50 20 24 45  41 38 31 00 d1 16 00 14  |..JMP $EA81.....|
00000ec0  49 52 51 a4 50 20 4c 44  41 20 24 44 30 31 36 00  |IRQ.P LDA $D016.|
00000ed0  dc 16 0a 14 af 20 23 24  45 46 00 ea 16 14 14 53  |..... #$EF.....S|
00000ee0  54 41 20 24 44 30 31 36  00 f7 16 17 14 4c 44 41  |TA $D016.....LDA|
00000ef0  20 23 24 43 37 00 ff 16  1a 14 53 45 43 00 0e 17  | #$C7.....SEC...|
00000f00  1e 14 53 42 43 20 59 50  49 58 45 4c 00 16 17 28  |..SBC YPIXEL...(|
00000f10  14 43 4c 43 00 23 17 32  14 41 44 43 20 23 24 33  |.CLC.#.2.ADC #$3|
00000f20  32 00 31 17 3c 14 53 54  41 20 24 44 30 31 32 00  |2.1.<.STA $D012.|
00000f30  3f 17 46 14 4a 4d 50 20  24 45 41 33 31 00 4e 17  |?.F.JMP $EA31.N.|
00000f40  50 14 49 52 51 4f 46 46  20 53 45 49 00 5b 17 5a  |P.IRQOFF SEI.[.Z|
00000f50  14 4c 44 41 20 23 24 33  31 00 69 17 64 14 53 54  |.LDA #$31.i.d.ST|
00000f60  41 20 24 30 33 31 34 00  76 17 6e 14 4c 44 41 20  |A $0314.v.n.LDA |
00000f70  23 24 45 41 00 84 17 78  14 53 54 41 20 24 30 33  |#$EA...x.STA $03|
00000f80  31 35 00 91 17 82 14 4c  44 41 20 23 24 30 30 00  |15.....LDA #$00.|
00000f90  9f 17 8c 14 53 54 41 20  24 44 30 31 32 00 ad 17  |....STA $D012...|
00000fa0  96 14 4c 44 41 20 24 44  30 31 36 00 b8 17 a0 14  |..LDA $D016.....|
00000fb0  af 20 23 24 45 46 00 c6  17 aa 14 53 54 41 20 24  |. #$EF.....STA $|
00000fc0  44 30 31 36 00 ce 17 b4  14 43 4c 49 00 d6 17 be  |D016.....CLI....|
00000fd0  14 52 54 53 00 e3 17 c8  14 49 52 51 91 20 53 45  |.RTS.....IRQ. SE|
00000fe0  49 00 f0 17 d2 14 4c 44  41 20 23 24 30 31 00 fe  |I.....LDA #$01..|
00000ff0  17 dc 14 53 54 41 20 24  44 30 31 39 00 0c 18 e6  |...STA $D019....|
00001000  14 53 54 41 20 24 44 30  31 41 00 1a 18 f0 14 53  |.STA $D01A.....S|
00001010  54 41 20 24 44 43 30 44  00 27 18 fa 14 4c 44 41  |TA $DC0D.'...LDA|
00001020  20 23 24 33 42 00 35 18  04 15 53 54 41 20 24 44  | #$3B.5...STA $D|
00001030  30 31 31 00 42 18 0e 15  4c 44 41 20 23 24 30 30  |011.B...LDA #$00|
00001040  00 50 18 18 15 53 54 41  20 24 44 30 31 32 00 5e  |.P...STA $D012.^|
00001050  18 22 15 4c 44 41 20 23  b3 49 52 51 00 6c 18 2c  |.".LDA #.IRQ.l.,|
00001060  15 53 54 41 20 24 30 33  31 34 00 7a 18 36 15 4c  |.STA $0314.z.6.L|
00001070  44 41 20 23 b1 49 52 51  00 88 18 40 15 53 54 41  |DA #.IRQ...@.STA|
00001080  20 24 30 33 31 35 00 90  18 4a 15 43 4c 49 00 98  | $0315...J.CLI..|
00001090  18 54 15 52 54 53 00 bf  18 59 15 3b 20 20 20 20  |.T.RTS...Y.;    |
000010a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010b0  20 49 ad 4f 20 52 4f 55  54 49 4e 45 53 00 d1 18  | I.O ROUTINES...|
000010c0  5e 15 4c 53 43 52 20 4c  44 41 20 23 24 30 31 00  |^.LSCR LDA #$01.|
000010d0  de 18 68 15 4c 44 58 20  23 24 30 38 00 eb 18 72  |..h.LDX #$08...r|
000010e0  15 4c 44 59 20 23 24 30  30 00 f9 18 7c 15 4a 53  |.LDY #$00...|.JS|
000010f0  52 20 24 46 46 42 41 00  07 19 86 15 4c 44 41 20  |R $FFBA.....LDA |
00001100  24 43 30 30 30 00 14 19  90 15 4c 44 58 20 23 24  |$C000.....LDX #$|
00001110  30 38 00 21 19 9a 15 4c  44 59 20 23 24 43 30 00  |08.!...LDY #$C0.|
00001120  2f 19 a4 15 4a 53 52 20  24 46 46 42 44 00 3c 19  |/...JSR $FFBD.<.|
00001130  b8 15 4c 44 41 20 23 24  30 30 00 49 19 bb 15 4c  |..LDA #$00.I...L|
00001140  44 58 20 23 24 30 30 00  56 19 be 15 4c 44 59 20  |DX #$00.V...LDY |
00001150  23 24 32 30 00 64 19 c2  15 4a 4d 50 20 24 46 46  |#$20.d...JMP $FF|
00001160  44 35 00 76 19 e0 15 53  53 43 52 20 4c 44 41 20  |D5.v...SSCR LDA |
00001170  23 24 30 31 00 83 19 ea  15 4c 44 58 20 23 24 30  |#$01.....LDX #$0|
00001180  38 00 8b 19 f4 15 54 41  59 00 99 19 fe 15 4a 53  |8.....TAY.....JS|
00001190  52 20 24 46 46 42 41 00  a7 19 08 16 4c 44 41 20  |R $FFBA.....LDA |
000011a0  24 43 30 38 30 00 b4 19  12 16 4c 44 58 20 23 24  |$C080.....LDX #$|
000011b0  38 38 00 c1 19 1c 16 4c  44 59 20 23 24 43 30 00  |88.....LDY #$C0.|
000011c0  cf 19 26 16 4a 53 52 20  24 46 46 42 44 00 dc 19  |..&.JSR $FFBD...|
000011d0  30 16 4c 44 41 20 23 24  34 30 00 e8 19 3a 16 53  |0.LDA #$40...:.S|
000011e0  54 41 20 24 46 43 00 f5  19 44 16 4c 44 41 20 23  |TA $FC...D.LDA #|
000011f0  24 46 42 00 02 1a 4e 16  4c 44 58 20 23 24 30 30  |$FB...N.LDX #$00|
00001200  00 0f 1a 58 16 4c 44 59  20 23 24 32 30 00 1b 1a  |...X.LDY #$20...|
00001210  62 16 53 54 58 20 24 46  42 00 29 1a 6c 16 4a 4d  |b.STX $FB.).l.JM|
00001220  50 20 24 46 46 44 38 00  00 00                    |P $FFD8...|
0000122a