Home » Personal collection » Commodore disks » disk41a_autostereo.d64 » autocode.97

autocode.97

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: autocode.97
Read OK:
File size: 131D bytes
Load address: 0801
Exec address: 0000
File contents
    10 ; AUTOSTEREOGRAM GENERATOR
    20 ;
    30 ; 17/12/96
    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
   142 S19=$CF0A
   143 S1A=$CF0B
   144 S0D=$CF0C
   145 VECTOR=$CF0D ; 16 BYTE
   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 JMP IRQOFF
  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
  3925 RTS
  3930 IRQOFF SEI
  3940 LDA VECTOR
  3950 STA $0314
  3960 LDA VECTOR+1
  3970 STA $0315
  3980 LDA $D016
  3990 AND #$EF
  4000 STA $D016
  4010 LDA S19
  4020 STA $D019
  4030 LDA S1A
  4040 STA $D01A
  4050 LDA S0D
  4060 STA $DC0D
  4063 LDA #$00
  4066 STA $DC0E
  4070 CLI
  4080 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 (VECTOR)
  5320 IRQON SEI
  5321 LDA $D019
  5322 STA S19
  5323 LDA $D01A
  5324 STA S1A
  5325 LDA $DC0D
  5326 STA S0D
  5327 LDA $0314
  5328 STA VECTOR
  5329 LDA $0315
  5330 STA VECTOR+1
  5335 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 $FFF
  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 $FFF
  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/96;(;G2��$1000S<I�$CF00_FJ�$CF01kPS�$CF02yZSEP�$CF03�dXPIXEL�$CF04�nYPIXEL�$CF05�xXPIB�$CF06��YPIB�$CF07��RNO�$CF08��S19�$CF0A��S1A�$CF0B��S0D�$CF0C	�VEC�R�$CF0D ; 16 BYTE	�MULTIREG�$CF09+	�JMP LSCR=	�JMP AU�STEREOJ	JMP SSCRe	XH� TXT $2D,$00,$00,$00�	�;           GRAPHIC PO� PLOTTER�	�PLOTPC LDA #$47�	�STA $FB�	LDA #$3F�	STA $FC�	LDA YPIXEL�	$LSR A�	.LSR A�	8LSR A�	BSTA YPIB
L� #$03
VASL A
`ASL A%
jASL A/
tASL A9
~ASL AC
�ASL AO
�STA $02[
�LDA $FBc
�SECo
�SBC $02{
�STA $FB�
�LDA $FC�
�SBC #$00�
�SBC YPIB�
�PHA�
�LDA YPIB�
�LSR A�
LSR A�

STA $02�
PLA�
SEC�
(SBC $02�
2STA $FC
<LDA YPIXELF� #$07%PSTA YPIB1ZLDA $FB9dSECFnSBC YPIBNxPHA]�LDA XPIXELh�� #$F8u�STA YPIB}�PLA��CLC��ADC YPIB��STA $FB��LDA $FC��SBC #$00��STA $FC��LDA XPIXEL��� #$07��TAX�LDA #$80GBITLP CPX #$00BEQ PP�"LSR A$,DEX36JMP GBITLPC@PP� STA $FDKJRTS`TPLO�N JSR PLOTPCm^LDY #$00}hLDA ($FB),Y�r�A $FD�|STA ($FB),Y��RTS��PLO�FF JSR PLOTPC��LDA $FD��E� #$FF��STA $FD��LDY #$00��LDA ($FB),Y
�� $FD
�STA ($FB),Y
�RTS,
�BW� JSR PLOTPC9
�LDY #$00I
�LDA ($FB),YS
� $FD^
BNE ��i
LDA H�q
RTS�
&�� LDA HԪ1�
0RTS�
:�PIX LDA MULTIREG�
DBNE MULTI��
NJMP BW��
XMULTI� LDA XPIXEL�
bPHA�
l� #$FE�
vSTA XPIXELxJSR PLOTPCzLDY #$00|LDA ($FB),Y(~� $FD5�BEQ MRIIB�LDA #$02O�MRII PHA^�INC XPIXELm�JSR PLOTPCz�LDY #$00��LDA ($FB),Y��� $FD��BEQ MRIII��PLA��CLC��ADC #$01��PHA��MRIII PLA��TAX��PLA��STA XPIXEL�LDA H�,X	�RTS0�;                BITMAP ON ROUTINEF�GRAPHIC LDA $D018Q�� #$01]��A #$18k�STA $D018yLDA $DD02��A #$03�STA $DD02� LDA $DD00�*� #$FC�4�A #$03�>STA $DD00�HLDA $D011�R�A #$20�\STA $D011�fLDA #$04pSTA $FCzLDY #$00 �STY $FB-�LDA #$01C�GRLOP STA ($FB),YK�INYY�BNE GRLOPe�INC $FCq�LDX $FC~�CPX #$08��BNE GRLOP��LDA MULTIREG��BEQ NOCOLS��JMP IRQ���NOCOLS LDA $D016�	� #$EF�	STA $D016�	RTS�;        AUTOSTEREOGRAM CALCULATOR.��STEREO JSR GRAPHIC;�LDA #$C7J�STA YPIXEL]��LINE LDY #$00i�STY $FBv�LDA #$C0��STA $FC�LINELOP TYA�STA ($FB),Y�INY�&BNE LINELOP�0LDA #$00�:STA XPIXEL�DXLOP JSR �PIX�NSTA SEPX� YPIXELb� #$01lCLC vADC SEP*�LSR A4�STA IC�LDA XPIXELK�SECU�SBC Id�BCC XRELOPn�STA Iv�CLC��ADC SEP��BCS XRELOP��STA J��REPEAT LDX I��LDA $C000,X�
STA S�
CMP J�
BEQ XRELOP�
BCS LLCASE3� 
STA I*
JMP L2104
LLCASE3 LDA J(>
STA $C000,X2H
STA I<R
LDA SF\
STA JUf
L210 LDX Iep
LDA $C000,Xoz
CMP I~�
BNE REPEAT��
LDA J��
LDX I��
STA $C000,X��
XRELOP LDX XPIXEL��
INX��
BEQ YRELOP��
STX XPIXEL��
JMP XLOP�YRELOP JSR DISPDEC YPIXELLDA YPIXEL($BEQ π6.JMP �LINEH=π JMP IRQOFFZBDISP LDA #$00iLSTA XPIXELvVDLOP TAX�`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,X1�JMP NELSEG�DELSE LDA $C000,XO�TAY_LDA $C100,Yo
STA $C100,X�NELSE CMP #$00�BEQ NOBL�(JSR PLO�N�-JMP REDISP�2NOBL JSR PLO�FF�<REDISP DEC XPIXEL�FLDA XPIXEL�PBNE DLOP�URTS	ZIRQOFF SEIdLDA VEC�R%nSTA $03145xLDA VEC�R�1C�STA $0315Q�LDA $D016\�� #$EFj�STA $D016v�LDA S19��STA $D019��LDA S1A��STA $D01A��LDA S0D��STA $DC0D��LDA #$00��STA $DC0E��CLI��RTS
�;               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 $D012AFJMP (VEC�R)N�IRQ� SEI\�LDA $D019h�STA S19v�LDA $D01A��STA S1A��LDA $DC0D��STA S0D��LDA $0314��STA VEC�R��LDA $0315��STA VEC�R�1��LDA #$01��STA $D019��STA $D01A
�STA $DC0D�LDA #$3B(STA $D0115LDA #$00CSTA $D012Q"LDA #�IRQ_,STA $0314m6LDA #�IRQ{@STA $0315�JCLI�TRTS�Y;                     I�O ROUTINES�^LSCR LDA #$01�hLDX $FFF�rLDY #$00�|JSR $FFBA��LDA $C000�LDX #$08�LDY #$C0"�JSR $FFBD/�LDA #$00<�LDX #$00I�LDY #$20W�JMP $FFD5i�SSCR LDA #$01v�LDX $FFF~�TAY��JSR $FFBA�LDA $1808�LDX #$10�LDY #$18�&JSR $FFBD�0LDA #$20�:STA $FC�DLDA #$FB�NLDX #$00XLDY #$40bSTX $FBlJMP $FFD8
 HJ@; autostereogram generator@&HT@;@5H.@; 17/12/96@;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.@s19.$cf0a@.H.@s1a.$cf0b@.H.@s0d.$cf0c@KI.@vec.r.$cf0d ; 16 byte@.I.@multireg.$cf09@+I.Ajmp lscr@=I.Ajmp au.stereo@jIHBjmp sscr@EIxBh. txt $2d,$00,$00,$00@.I.C;           graphic po. plotter@.I.Cplotpc lda #$47@.I.Csta $fb@.IFDlda #$3f@.IPDsta $fc@.IZDlda ypixel@.I$Dlsr a@.I.Dlsr a@.I8Dlsr a@.IbDsta ypib@GJlD. #$03@QJvDasl a@[J.Dasl a@%JJDasl a@/JTDasl a@9J.Dasl a@cJ.Dasl a@oJ.Dsta $02@[J.Dlda $fb@CJ.Dsec@OJ.Dsbc $02@.J.Dsta $fb@.J.Dlda $fc@.J.Dsbc #$00@.J.Dsbc ypib@.J.Dpha@.J.Dlda ypib@.J.Dlsr a@.J@Elsr a@.JJEsta $02@.JTEpla@.J.Esec@.J(Esbc $02@.J2Esta $fc@MK<Elda ypixel@XKfE. #$07@%KpEsta ypib@1KzElda $fb@9KDEsec@fKNEsbc ypib@nKXEpha@]K.Elda xpixel@HK.E. #$f8@UK.Esta ypib@.K.Epla@.K.Eclc@.K.Eadc ypib@.K.Esta $fb@.K.Elda $fc@.K.Esbc #$00@.K.Esta $fc@.K.Elda xpixel@.K.E. #$07@.K.Etax@.KDFlda #$80@FLNFgbitlp cpx #$00@RLXFbeq pp.@£L"Flsr a@$L,Fdex@3L6Fjmp gbitlp@cL@Fpp. sta $fd@kLjFrts@.LtFplo.n jsr plotpc@ML.Fldy #$00@.LHFlda ($fb),y@.LRF.a $fd@.L.Fsta ($fb),y@.L.Frts@.L.Fplo.ff jsr plotpc@.L.Flda $fd@.L.Fe. #$ff@.L.Fsta $fd@.L.Fldy #$00@.L.Flda ($fb),y@AM.F. $fd@QM.Fsta ($fb),y@YM.Frts@,M.Fbw. jsr plotpc@9M.Fldy #$00@iM.Flda ($fb),y@sMHG. $fd@.MRGbne ..@IMWGlda h.@QM£Grts@.M&G.. lda h..1@.M0Grts@.M:G.pix lda multireg@.MdGbne multi.@.MnGjmp bw.@.MxGmulti. lda xpixel@.MBGpha@.MLG. #$fe@.MVGsta xpixel@ANXGjsr plotpc@NNZGldy #$00@.N.Glda ($fb),y@(N.G. $fd@5N.Gbeq mrii@bN.Glda #$02@oN.Gmrii pha@.N.Ginc xpixel@MN.Gjsr plotpc@ZN.Gldy #$00@.N.Glda ($fb),y@.N.G. $fd@.N.Gbeq mriii@.N.Gpla@.N.Gclc@.N.Gadc #$01@.N.Gpha@.N.Gmriii pla@.N.Gtax@.N.Gpla@.N.Gsta xpixel@AO.Glda h.,x@IO.Grts@0O.G;                bitmap on routine@fO.Ggraphic lda $d018@qO.G. #$01@]O.G.a #$18@KO.Gsta $d018@YOBHlda $dd02@.OLH.a #$03@.OVHsta $dd02@.O Hlda $dd00@.O*H. #$fc@.O4H.a #$03@.O>Hsta $dd00@.OhHlda $d011@.OrH.a #$20@.O£Hsta $d011@.OFHlda #$04@GPPHsta $fc@TPZHldy #$00@ P.Hsty $fb@-P.Hlda #$01@cP.Hgrlop sta ($fb),y@kP.Hiny@yP.Hbne grlop@EP.Hinc $fc@QP.Hldx $fc@.P.Hcpx #$08@.P.Hbne grlop@.P.Hlda multireg@.P.Hbeq nocols@.P.Hjmp irq.@.P.Hnocols lda $d016@.PFI. #$ef@.PPIsta $d016@.PZIrts@VQ.K;        autostereogram calculator@.Q.K.stereo jsr graphic@;Q.Klda #$c7@jQ.Ksta ypixel@]Q.K.line ldy #$00@IQ.Ksty $fb@VQ.Klda #$c0@.Q.Ksta $fc@.QHLlinelop tya@.QRLsta ($fb),y@.Q£Liny@.Q&Lbne linelop@.Q0Llda #$00@.Q:Lsta xpixel@.QdLxlop jsr .pix@.QnLsta sep@ARxL. ypixel@LRBL. #$01@TRLLclc@ RVLadc sep@*R.Llsr a@4R.Lsta i@cR.Llda xpixel@kR.Lsec@uR.Lsbc i@DR.Lbcc xrelop@NR.Lsta i@VR.Lclc@.R.Ladc sep@.R.Lbcs xrelop@.R.Lsta j@.R.Lrepeat ldx i@.R.Llda $c000,x@.RBMsta s@.RLMcmp j@.RQMbeq xrelop@.RVMbcs llcase3@.R Msta i@FS*Mjmp l210@XS4Mllcase3 lda j@(S>Msta $c000,x@2ShMsta i@<SrMlda s@fS£Msta j@uSFMl210 ldx i@ESPMlda $c000,x@OSZMcmp i@.S.Mbne repeat@.S.Mlda j@.S.Mldx i@.S.Msta $c000,x@.S.Mxrelop ldx xpixel@.S.Minx@.S.Mbeq yrelop@.S.Mstx xpixel@.S.Mjmp xlop@.SFNyrelop jsr disp@NTPNdec ypixel@]TZNlda ypixel@(T$Nbeq ..@6T.Njmp .line@hT=N.. jmp irqoff@zTbNdisp lda #$00@ITlNsta xpixel@VTvNdlop tax@.T.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@DU.N. #$01@SU.Nldx xpixel@#U.Nsta $c100,x@1U.Njmp nelse@gU.Ndelse lda $c000,x@oU.Ntay@.U@Olda $c100,y@OUJOsta $c100,x@.UTOnelse cmp #$00@.U.Obeq nobl@.U(Ojsr plo.n@.U-Ojmp redisp@.U2Onobl jsr plo.ff@.U<Oredisp dec xpixel@.UfOlda xpixel@.UpObne dlop@.UuOrts@IVzOirqoff sei@WVDOlda vec.r@%VNOsta $0314@5VXOlda vec.r.1@cV.Osta $0315@qV.Olda $d016@£V.O. #$ef@JV.Osta $d016@VV.Olda s19@.V.Osta $d019@.V.Olda s1a@.V.Osta $d01a@.V.Olda s0d@.V.Osta $dc0d@.V.Olda #$00@.V.Osta $dc0e@.V.Ocli@.V.Orts@JW.S;               interrupt routines@[W.Sirq lda #$01@)W.Ssta $d019@7W.Slda $d012@eW.Sbeq irq.p@rW.Sldy #$02@.W.Silop dey@LW.Sbne ilop@ZW.Slda $d016@.W.S.a #$10@.W.Ssta $d016@.W.Slda #$00@.W.Ssta $d012@.W.Sjmp $ea81@.W@Tirq.p lda $d016@.WJT. #$ef@.WTTsta $d016@.WWTlda #$c7@.WZTsec@NX.Tsbc ypixel@VX(Tclc@#X2Tadc #$32@1X<Tsta $d012@aXfTjmp (vec.r)@nX.Tirq. sei@£X.Tlda $d019@HX.Tsta s19@VX.Tlda $d01a@.X.Tsta s1a@.X.Tlda $dc0d@.X.Tsta s0d@.X.Tlda $0314@.X.Tsta vec.r@.X.Tlda $0315@.X.Tsta vec.r.1@.X.Tlda #$01@.X.Tsta $d019@.X.Tsta $d01a@MY.Tsta $dc0d@ZY.Tlda #$3b@(YDUsta $d011@5YNUlda #$00@cYXUsta $d012@qY"Ulda #.irq@.Y,Usta $0314@MY6Ulda #.irq@.Y@Usta $0315@.YjUcli@.YtUrts@.YyU;                     i.o routines@.Y.Ulscr lda #$01@.YHUldx $fff@.YRUldy #$00@.Y.Ujsr $ffba@.Y.Ulda $c000@GZ.Uldx #$08@TZ.Uldy #$c0@"Z.Ujsr $ffbd@/Z.Ulda #$00@<Z.Uldx #$00@iZ.Uldy #$20@wZ.Ujmp $ffd5@IZ.Usscr lda #$01@VZ.Uldx $fff@.Z.Utay@.Z.Ujsr $ffba@.ZHVlda $1808@.ZRVldx #$10@.Z£Vldy #$18@.Z&Vjsr $ffbd@.Z0Vlda #$20@.Z:Vsta $fc@.ZdVlda #$fb@.ZnVldx #$00@B[xVldy #$40@N[BVstx $fb@£[LVjmp $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 36 00 3b 08 28 00  3b 00 47 08 32 00 ac b2  |/96.;.(.;.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 d5 08  8e 00 53 31 39 b2 24 43  |$CF08.....S19.$C|
000000d0  46 30 41 00 e3 08 8f 00  53 31 41 b2 24 43 46 30  |F0A.....S1A.$CF0|
000000e0  42 00 f1 08 90 00 53 30  44 b2 24 43 46 30 43 00  |B.....S0D.$CF0C.|
000000f0  0b 09 91 00 56 45 43 a4  52 b2 24 43 46 30 44 20  |....VEC.R.$CF0D |
00000100  3b 20 31 36 20 42 59 54  45 00 1e 09 96 00 4d 55  |; 16 BYTE.....MU|
00000110  4c 54 49 52 45 47 b2 24  43 46 30 39 00 2b 09 f4  |LTIREG.$CF09.+..|
00000120  01 4a 4d 50 20 4c 53 43  52 00 3d 09 fe 01 4a 4d  |.JMP LSCR.=...JM|
00000130  50 20 41 55 a4 53 54 45  52 45 4f 00 4a 09 08 02  |P AU.STEREO.J...|
00000140  4a 4d 50 20 53 53 43 52  00 65 09 58 02 48 d4 20  |JMP SSCR.e.X.H. |
00000150  54 58 54 20 24 32 44 2c  24 30 30 2c 24 30 30 2c  |TXT $2D,$00,$00,|
00000160  24 30 30 00 89 09 e8 03  3b 20 20 20 20 20 20 20  |$00.....;       |
00000170  20 20 20 20 47 52 41 50  48 49 43 20 50 4f b5 20  |    GRAPHIC PO. |
00000180  50 4c 4f 54 54 45 52 00  9d 09 f2 03 50 4c 4f 54  |PLOTTER.....PLOT|
00000190  50 43 20 4c 44 41 20 23  24 34 37 00 a9 09 fc 03  |PC LDA #$47.....|
000001a0  53 54 41 20 24 46 42 00  b6 09 06 04 4c 44 41 20  |STA $FB.....LDA |
000001b0  23 24 33 46 00 c2 09 10  04 53 54 41 20 24 46 43  |#$3F.....STA $FC|
000001c0  00 d1 09 1a 04 4c 44 41  20 59 50 49 58 45 4c 00  |.....LDA YPIXEL.|
000001d0  db 09 24 04 4c 53 52 20  41 00 e5 09 2e 04 4c 53  |..$.LSR A.....LS|
000001e0  52 20 41 00 ef 09 38 04  4c 53 52 20 41 00 fc 09  |R A...8.LSR A...|
000001f0  42 04 53 54 41 20 59 50  49 42 00 07 0a 4c 04 af  |B.STA YPIB...L..|
00000200  20 23 24 30 33 00 11 0a  56 04 41 53 4c 20 41 00  | #$03...V.ASL A.|
00000210  1b 0a 60 04 41 53 4c 20  41 00 25 0a 6a 04 41 53  |..`.ASL A.%.j.AS|
00000220  4c 20 41 00 2f 0a 74 04  41 53 4c 20 41 00 39 0a  |L A./.t.ASL A.9.|
00000230  7e 04 41 53 4c 20 41 00  43 0a 88 04 41 53 4c 20  |~.ASL A.C...ASL |
00000240  41 00 4f 0a 92 04 53 54  41 20 24 30 32 00 5b 0a  |A.O...STA $02.[.|
00000250  9c 04 4c 44 41 20 24 46  42 00 63 0a a6 04 53 45  |..LDA $FB.c...SE|
00000260  43 00 6f 0a b0 04 53 42  43 20 24 30 32 00 7b 0a  |C.o...SBC $02.{.|
00000270  ba 04 53 54 41 20 24 46  42 00 87 0a c4 04 4c 44  |..STA $FB.....LD|
00000280  41 20 24 46 43 00 94 0a  ce 04 53 42 43 20 23 24  |A $FC.....SBC #$|
00000290  30 30 00 a1 0a d8 04 53  42 43 20 59 50 49 42 00  |00.....SBC YPIB.|
000002a0  a9 0a e2 04 50 48 41 00  b6 0a ec 04 4c 44 41 20  |....PHA.....LDA |
000002b0  59 50 49 42 00 c0 0a f6  04 4c 53 52 20 41 00 ca  |YPIB.....LSR A..|
000002c0  0a 00 05 4c 53 52 20 41  00 d6 0a 0a 05 53 54 41  |...LSR A.....STA|
000002d0  20 24 30 32 00 de 0a 14  05 50 4c 41 00 e6 0a 1e  | $02.....PLA....|
000002e0  05 53 45 43 00 f2 0a 28  05 53 42 43 20 24 30 32  |.SEC...(.SBC $02|
000002f0  00 fe 0a 32 05 53 54 41  20 24 46 43 00 0d 0b 3c  |...2.STA $FC...<|
00000300  05 4c 44 41 20 59 50 49  58 45 4c 00 18 0b 46 05  |.LDA YPIXEL...F.|
00000310  af 20 23 24 30 37 00 25  0b 50 05 53 54 41 20 59  |. #$07.%.P.STA Y|
00000320  50 49 42 00 31 0b 5a 05  4c 44 41 20 24 46 42 00  |PIB.1.Z.LDA $FB.|
00000330  39 0b 64 05 53 45 43 00  46 0b 6e 05 53 42 43 20  |9.d.SEC.F.n.SBC |
00000340  59 50 49 42 00 4e 0b 78  05 50 48 41 00 5d 0b 82  |YPIB.N.x.PHA.]..|
00000350  05 4c 44 41 20 58 50 49  58 45 4c 00 68 0b 8c 05  |.LDA XPIXEL.h...|
00000360  af 20 23 24 46 38 00 75  0b 96 05 53 54 41 20 59  |. #$F8.u...STA Y|
00000370  50 49 42 00 7d 0b a0 05  50 4c 41 00 85 0b aa 05  |PIB.}...PLA.....|
00000380  43 4c 43 00 92 0b b4 05  41 44 43 20 59 50 49 42  |CLC.....ADC YPIB|
00000390  00 9e 0b be 05 53 54 41  20 24 46 42 00 aa 0b c8  |.....STA $FB....|
000003a0  05 4c 44 41 20 24 46 43  00 b7 0b d2 05 53 42 43  |.LDA $FC.....SBC|
000003b0  20 23 24 30 30 00 c3 0b  dc 05 53 54 41 20 24 46  | #$00.....STA $F|
000003c0  43 00 d2 0b e6 05 4c 44  41 20 58 50 49 58 45 4c  |C.....LDA XPIXEL|
000003d0  00 dd 0b f0 05 af 20 23  24 30 37 00 e5 0b fa 05  |...... #$07.....|
000003e0  54 41 58 00 f2 0b 04 06  4c 44 41 20 23 24 38 30  |TAX.....LDA #$80|
000003f0  00 06 0c 0e 06 47 42 49  54 4c 50 20 43 50 58 20  |.....GBITLP CPX |
00000400  23 24 30 30 00 12 0c 18  06 42 45 51 20 50 50 9a  |#$00.....BEQ PP.|
00000410  00 1c 0c 22 06 4c 53 52  20 41 00 24 0c 2c 06 44  |...".LSR A.$.,.D|
00000420  45 58 00 33 0c 36 06 4a  4d 50 20 47 42 49 54 4c  |EX.3.6.JMP GBITL|
00000430  50 00 43 0c 40 06 50 50  9a 20 53 54 41 20 24 46  |P.C.@.PP. STA $F|
00000440  44 00 4b 0c 4a 06 52 54  53 00 60 0c 54 06 50 4c  |D.K.J.RTS.`.T.PL|
00000450  4f a4 4e 20 4a 53 52 20  50 4c 4f 54 50 43 00 6d  |O.N JSR PLOTPC.m|
00000460  0c 5e 06 4c 44 59 20 23  24 30 30 00 7d 0c 68 06  |.^.LDY #$00.}.h.|
00000470  4c 44 41 20 28 24 46 42  29 2c 59 00 88 0c 72 06  |LDA ($FB),Y...r.|
00000480  b0 41 20 24 46 44 00 98  0c 7c 06 53 54 41 20 28  |.A $FD...|.STA (|
00000490  24 46 42 29 2c 59 00 a0  0c 86 06 52 54 53 00 b6  |$FB),Y.....RTS..|
000004a0  0c 90 06 50 4c 4f a4 46  46 20 4a 53 52 20 50 4c  |...PLO.FF JSR PL|
000004b0  4f 54 50 43 00 c2 0c 9a  06 4c 44 41 20 24 46 44  |OTPC.....LDA $FD|
000004c0  00 ce 0c a4 06 45 b0 20  23 24 46 46 00 da 0c ae  |.....E. #$FF....|
000004d0  06 53 54 41 20 24 46 44  00 e7 0c b8 06 4c 44 59  |.STA $FD.....LDY|
000004e0  20 23 24 30 30 00 f7 0c  c2 06 4c 44 41 20 28 24  | #$00.....LDA ($|
000004f0  46 42 29 2c 59 00 01 0d  cc 06 af 20 24 46 44 00  |FB),Y...... $FD.|
00000500  11 0d d6 06 53 54 41 20  28 24 46 42 29 2c 59 00  |....STA ($FB),Y.|
00000510  19 0d e0 06 52 54 53 00  2c 0d ea 06 42 57 87 20  |....RTS.,...BW. |
00000520  4a 53 52 20 50 4c 4f 54  50 43 00 39 0d f4 06 4c  |JSR PLOTPC.9...L|
00000530  44 59 20 23 24 30 30 00  49 0d fe 06 4c 44 41 20  |DY #$00.I...LDA |
00000540  28 24 46 42 29 2c 59 00  53 0d 08 07 af 20 24 46  |($FB),Y.S.... $F|
00000550  44 00 5e 0d 12 07 42 4e  45 20 87 b9 00 69 0d 17  |D.^...BNE ...i..|
00000560  07 4c 44 41 20 48 d4 00  71 0d 1c 07 52 54 53 00  |.LDA H..q...RTS.|
00000570  81 0d 26 07 87 b9 20 4c  44 41 20 48 d4 aa 31 00  |..&... LDA H..1.|
00000580  89 0d 30 07 52 54 53 00  9f 0d 3a 07 87 50 49 58  |..0.RTS...:..PIX|
00000590  20 4c 44 41 20 4d 55 4c  54 49 52 45 47 00 ae 0d  | LDA MULTIREG...|
000005a0  44 07 42 4e 45 20 4d 55  4c 54 49 87 00 ba 0d 4e  |D.BNE MULTI....N|
000005b0  07 4a 4d 50 20 42 57 87  00 d0 0d 58 07 4d 55 4c  |.JMP BW....X.MUL|
000005c0  54 49 87 20 4c 44 41 20  58 50 49 58 45 4c 00 d8  |TI. LDA XPIXEL..|
000005d0  0d 62 07 50 48 41 00 e3  0d 6c 07 af 20 23 24 46  |.b.PHA...l.. #$F|
000005e0  45 00 f2 0d 76 07 53 54  41 20 58 50 49 58 45 4c  |E...v.STA XPIXEL|
000005f0  00 01 0e 78 07 4a 53 52  20 50 4c 4f 54 50 43 00  |...x.JSR PLOTPC.|
00000600  0e 0e 7a 07 4c 44 59 20  23 24 30 30 00 1e 0e 7c  |..z.LDY #$00...||
00000610  07 4c 44 41 20 28 24 46  42 29 2c 59 00 28 0e 7e  |.LDA ($FB),Y.(.~|
00000620  07 af 20 24 46 44 00 35  0e 80 07 42 45 51 20 4d  |.. $FD.5...BEQ M|
00000630  52 49 49 00 42 0e 82 07  4c 44 41 20 23 24 30 32  |RII.B...LDA #$02|
00000640  00 4f 0e 84 07 4d 52 49  49 20 50 48 41 00 5e 0e  |.O...MRII PHA.^.|
00000650  85 07 49 4e 43 20 58 50  49 58 45 4c 00 6d 0e 86  |..INC XPIXEL.m..|
00000660  07 4a 53 52 20 50 4c 4f  54 50 43 00 7a 0e 88 07  |.JSR PLOTPC.z...|
00000670  4c 44 59 20 23 24 30 30  00 8a 0e 8a 07 4c 44 41  |LDY #$00.....LDA|
00000680  20 28 24 46 42 29 2c 59  00 94 0e 8c 07 af 20 24  | ($FB),Y...... $|
00000690  46 44 00 a2 0e 8e 07 42  45 51 20 4d 52 49 49 49  |FD.....BEQ MRIII|
000006a0  00 aa 0e 8f 07 50 4c 41  00 b2 0e 90 07 43 4c 43  |.....PLA.....CLC|
000006b0  00 bf 0e 92 07 41 44 43  20 23 24 30 31 00 c7 0e  |.....ADC #$01...|
000006c0  93 07 50 48 41 00 d5 0e  94 07 4d 52 49 49 49 20  |..PHA.....MRIII |
000006d0  50 4c 41 00 dd 0e 95 07  54 41 58 00 e5 0e 96 07  |PLA.....TAX.....|
000006e0  50 4c 41 00 f4 0e 98 07  53 54 41 20 58 50 49 58  |PLA.....STA XPIX|
000006f0  45 4c 00 01 0f 9a 07 4c  44 41 20 48 d4 2c 58 00  |EL.....LDA H.,X.|
00000700  09 0f 9c 07 52 54 53 00  30 0f d0 07 3b 20 20 20  |....RTS.0...;   |
00000710  20 20 20 20 20 20 20 20  20 20 20 20 20 42 49 54  |             BIT|
00000720  4d 41 50 20 4f 4e 20 52  4f 55 54 49 4e 45 00 46  |MAP ON ROUTINE.F|
00000730  0f da 07 47 52 41 50 48  49 43 20 4c 44 41 20 24  |...GRAPHIC LDA $|
00000740  44 30 31 38 00 51 0f e4  07 af 20 23 24 30 31 00  |D018.Q.... #$01.|
00000750  5d 0f ee 07 b0 41 20 23  24 31 38 00 6b 0f f8 07  |]....A #$18.k...|
00000760  53 54 41 20 24 44 30 31  38 00 79 0f 02 08 4c 44  |STA $D018.y...LD|
00000770  41 20 24 44 44 30 32 00  85 0f 0c 08 b0 41 20 23  |A $DD02......A #|
00000780  24 30 33 00 93 0f 16 08  53 54 41 20 24 44 44 30  |$03.....STA $DD0|
00000790  32 00 a1 0f 20 08 4c 44  41 20 24 44 44 30 30 00  |2... .LDA $DD00.|
000007a0  ac 0f 2a 08 af 20 23 24  46 43 00 b8 0f 34 08 b0  |..*.. #$FC...4..|
000007b0  41 20 23 24 30 33 00 c6  0f 3e 08 53 54 41 20 24  |A #$03...>.STA $|
000007c0  44 44 30 30 00 d4 0f 48  08 4c 44 41 20 24 44 30  |DD00...H.LDA $D0|
000007d0  31 31 00 e0 0f 52 08 b0  41 20 23 24 32 30 00 ee  |11...R..A #$20..|
000007e0  0f 5c 08 53 54 41 20 24  44 30 31 31 00 fb 0f 66  |.\.STA $D011...f|
000007f0  08 4c 44 41 20 23 24 30  34 00 07 10 70 08 53 54  |.LDA #$04...p.ST|
00000800  41 20 24 46 43 00 14 10  7a 08 4c 44 59 20 23 24  |A $FC...z.LDY #$|
00000810  30 30 00 20 10 84 08 53  54 59 20 24 46 42 00 2d  |00. ...STY $FB.-|
00000820  10 8e 08 4c 44 41 20 23  24 30 31 00 43 10 98 08  |...LDA #$01.C...|
00000830  47 52 4c 4f 50 20 53 54  41 20 28 24 46 42 29 2c  |GRLOP STA ($FB),|
00000840  59 00 4b 10 a2 08 49 4e  59 00 59 10 ac 08 42 4e  |Y.K...INY.Y...BN|
00000850  45 20 47 52 4c 4f 50 00  65 10 b6 08 49 4e 43 20  |E GRLOP.e...INC |
00000860  24 46 43 00 71 10 c0 08  4c 44 58 20 24 46 43 00  |$FC.q...LDX $FC.|
00000870  7e 10 ca 08 43 50 58 20  23 24 30 38 00 8c 10 d4  |~...CPX #$08....|
00000880  08 42 4e 45 20 47 52 4c  4f 50 00 9d 10 de 08 4c  |.BNE GRLOP.....L|
00000890  44 41 20 4d 55 4c 54 49  52 45 47 00 ac 10 e8 08  |DA MULTIREG.....|
000008a0  42 45 51 20 4e 4f 43 4f  4c 53 00 b9 10 f2 08 4a  |BEQ NOCOLS.....J|
000008b0  4d 50 20 49 52 51 91 00  ce 10 fc 08 4e 4f 43 4f  |MP IRQ......NOCO|
000008c0  4c 53 20 4c 44 41 20 24  44 30 31 36 00 d9 10 06  |LS LDA $D016....|
000008d0  09 af 20 23 24 45 46 00  e7 10 10 09 53 54 41 20  |.. #$EF.....STA |
000008e0  24 44 30 31 36 00 ef 10  1a 09 52 54 53 00 16 11  |$D016.....RTS...|
000008f0  b8 0b 3b 20 20 20 20 20  20 20 20 41 55 54 4f 53  |..;        AUTOS|
00000900  54 45 52 45 4f 47 52 41  4d 20 43 41 4c 43 55 4c  |TEREOGRAM CALCUL|
00000910  41 54 4f 52 00 2e 11 c2  0b cf 53 54 45 52 45 4f  |ATOR......STEREO|
00000920  20 4a 53 52 20 47 52 41  50 48 49 43 00 3b 11 cc  | JSR GRAPHIC.;..|
00000930  0b 4c 44 41 20 23 24 43  37 00 4a 11 d6 0b 53 54  |.LDA #$C7.J...ST|
00000940  41 20 59 50 49 58 45 4c  00 5d 11 e0 0b cf 4c 49  |A YPIXEL.]....LI|
00000950  4e 45 20 4c 44 59 20 23  24 30 30 00 69 11 ea 0b  |NE LDY #$00.i...|
00000960  53 54 59 20 24 46 42 00  76 11 f4 0b 4c 44 41 20  |STY $FB.v...LDA |
00000970  23 24 43 30 00 82 11 fe  0b 53 54 41 20 24 46 43  |#$C0.....STA $FC|
00000980  00 92 11 08 0c 4c 49 4e  45 4c 4f 50 20 54 59 41  |.....LINELOP TYA|
00000990  00 a2 11 12 0c 53 54 41  20 28 24 46 42 29 2c 59  |.....STA ($FB),Y|
000009a0  00 aa 11 1c 0c 49 4e 59  00 ba 11 26 0c 42 4e 45  |.....INY...&.BNE|
000009b0  20 4c 49 4e 45 4c 4f 50  00 c7 11 30 0c 4c 44 41  | LINELOP...0.LDA|
000009c0  20 23 24 30 30 00 d6 11  3a 0c 53 54 41 20 58 50  | #$00...:.STA XP|
000009d0  49 58 45 4c 00 e8 11 44  0c 58 4c 4f 50 20 4a 53  |IXEL...D.XLOP JS|
000009e0  52 20 87 50 49 58 00 f4  11 4e 0c 53 54 41 20 53  |R .PIX...N.STA S|
000009f0  45 50 00 01 12 58 0c af  20 59 50 49 58 45 4c 00  |EP...X.. YPIXEL.|
00000a00  0c 12 62 0c af 20 23 24  30 31 00 14 12 6c 0c 43  |..b.. #$01...l.C|
00000a10  4c 43 00 20 12 76 0c 41  44 43 20 53 45 50 00 2a  |LC. .v.ADC SEP.*|
00000a20  12 80 0c 4c 53 52 20 41  00 34 12 8a 0c 53 54 41  |...LSR A.4...STA|
00000a30  20 49 00 43 12 94 0c 4c  44 41 20 58 50 49 58 45  | I.C...LDA XPIXE|
00000a40  4c 00 4b 12 9e 0c 53 45  43 00 55 12 a8 0c 53 42  |L.K...SEC.U...SB|
00000a50  43 20 49 00 64 12 b2 0c  42 43 43 20 58 52 45 4c  |C I.d...BCC XREL|
00000a60  4f 50 00 6e 12 bc 0c 53  54 41 20 49 00 76 12 c6  |OP.n...STA I.v..|
00000a70  0c 43 4c 43 00 82 12 d0  0c 41 44 43 20 53 45 50  |.CLC.....ADC SEP|
00000a80  00 91 12 da 0c 42 43 53  20 58 52 45 4c 4f 50 00  |.....BCS XRELOP.|
00000a90  9b 12 e4 0c 53 54 41 20  4a 00 ac 12 ee 0c 52 45  |....STA J.....RE|
00000aa0  50 45 41 54 20 4c 44 58  20 49 00 bc 12 f8 0c 4c  |PEAT LDX I.....L|
00000ab0  44 41 20 24 43 30 30 30  2c 58 00 c6 12 02 0d 53  |DA $C000,X.....S|
00000ac0  54 41 20 53 00 d0 12 0c  0d 43 4d 50 20 4a 00 df  |TA S.....CMP J..|
00000ad0  12 11 0d 42 45 51 20 58  52 45 4c 4f 50 00 ef 12  |...BEQ XRELOP...|
00000ae0  16 0d 42 43 53 20 4c 4c  43 41 53 45 33 00 f9 12  |..BCS LLCASE3...|
00000af0  20 0d 53 54 41 20 49 00  06 13 2a 0d 4a 4d 50 20  | .STA I...*.JMP |
00000b00  4c 32 31 30 00 18 13 34  0d 4c 4c 43 41 53 45 33  |L210...4.LLCASE3|
00000b10  20 4c 44 41 20 4a 00 28  13 3e 0d 53 54 41 20 24  | LDA J.(.>.STA $|
00000b20  43 30 30 30 2c 58 00 32  13 48 0d 53 54 41 20 49  |C000,X.2.H.STA I|
00000b30  00 3c 13 52 0d 4c 44 41  20 53 00 46 13 5c 0d 53  |.<.R.LDA S.F.\.S|
00000b40  54 41 20 4a 00 55 13 66  0d 4c 32 31 30 20 4c 44  |TA J.U.f.L210 LD|
00000b50  58 20 49 00 65 13 70 0d  4c 44 41 20 24 43 30 30  |X I.e.p.LDA $C00|
00000b60  30 2c 58 00 6f 13 7a 0d  43 4d 50 20 49 00 7e 13  |0,X.o.z.CMP I.~.|
00000b70  84 0d 42 4e 45 20 52 45  50 45 41 54 00 88 13 b6  |..BNE REPEAT....|
00000b80  0d 4c 44 41 20 4a 00 92  13 c0 0d 4c 44 58 20 49  |.LDA J.....LDX I|
00000b90  00 a2 13 ca 0d 53 54 41  20 24 43 30 30 30 2c 58  |.....STA $C000,X|
00000ba0  00 b8 13 d4 0d 58 52 45  4c 4f 50 20 4c 44 58 20  |.....XRELOP LDX |
00000bb0  58 50 49 58 45 4c 00 c0  13 de 0d 49 4e 58 00 cf  |XPIXEL.....INX..|
00000bc0  13 e8 0d 42 45 51 20 59  52 45 4c 4f 50 00 de 13  |...BEQ YRELOP...|
00000bd0  f2 0d 53 54 58 20 58 50  49 58 45 4c 00 eb 13 fc  |..STX XPIXEL....|
00000be0  0d 4a 4d 50 20 58 4c 4f  50 00 ff 13 06 0e 59 52  |.JMP XLOP.....YR|
00000bf0  45 4c 4f 50 20 4a 53 52  20 44 49 53 50 00 0e 14  |ELOP JSR DISP...|
00000c00  10 0e 44 45 43 20 59 50  49 58 45 4c 00 1d 14 1a  |..DEC YPIXEL....|
00000c10  0e 4c 44 41 20 59 50 49  58 45 4c 00 28 14 24 0e  |.LDA YPIXEL.(.$.|
00000c20  42 45 51 20 cf 80 00 36  14 2e 0e 4a 4d 50 20 cf  |BEQ ...6...JMP .|
00000c30  4c 49 4e 45 00 48 14 3d  0e cf 80 20 4a 4d 50 20  |LINE.H.=... JMP |
00000c40  49 52 51 4f 46 46 00 5a  14 42 0e 44 49 53 50 20  |IRQOFF.Z.B.DISP |
00000c50  4c 44 41 20 23 24 30 30  00 69 14 4c 0e 53 54 41  |LDA #$00.i.L.STA|
00000c60  20 58 50 49 58 45 4c 00  76 14 56 0e 44 4c 4f 50  | XPIXEL.v.V.DLOP|
00000c70  20 54 41 58 00 86 14 60  0e 4c 44 41 20 24 43 30  | TAX...`.LDA $C0|
00000c80  30 30 2c 58 00 95 14 6a  0e 43 4d 50 20 58 50 49  |00,X...j.CMP XPI|
00000c90  58 45 4c 00 a3 14 74 0e  42 4e 45 20 44 45 4c 53  |XEL...t.BNE DELS|
00000ca0  45 00 af 14 7e 0e 4c 44  41 20 52 4e 4f 00 b9 14  |E...~.LDA RNO...|
00000cb0  88 0e 4c 53 52 20 41 00  c5 14 92 0e 49 4e 43 20  |..LSR A.....INC |
00000cc0  24 41 32 00 d1 14 9c 0e  41 44 43 20 24 41 32 00  |$A2.....ADC $A2.|
00000cd0  dd 14 a6 0e 4c 44 58 20  24 41 32 00 ed 14 b0 0e  |....LDX $A2.....|
00000ce0  41 44 43 20 24 30 30 30  30 2c 58 00 f9 14 ba 0e  |ADC $0000,X.....|
00000cf0  53 54 41 20 52 4e 4f 00  04 15 c4 0e af 20 23 24  |STA RNO...... #$|
00000d00  30 31 00 13 15 ce 0e 4c  44 58 20 58 50 49 58 45  |01.....LDX XPIXE|
00000d10  4c 00 23 15 d8 0e 53 54  41 20 24 43 31 30 30 2c  |L.#...STA $C100,|
00000d20  58 00 31 15 e2 0e 4a 4d  50 20 4e 45 4c 53 45 00  |X.1...JMP NELSE.|
00000d30  47 15 ec 0e 44 45 4c 53  45 20 4c 44 41 20 24 43  |G...DELSE LDA $C|
00000d40  30 30 30 2c 58 00 4f 15  f6 0e 54 41 59 00 5f 15  |000,X.O...TAY._.|
00000d50  00 0f 4c 44 41 20 24 43  31 30 30 2c 59 00 6f 15  |..LDA $C100,Y.o.|
00000d60  0a 0f 53 54 41 20 24 43  31 30 30 2c 58 00 82 15  |..STA $C100,X...|
00000d70  14 0f 4e 45 4c 53 45 20  43 4d 50 20 23 24 30 30  |..NELSE CMP #$00|
00000d80  00 8f 15 1e 0f 42 45 51  20 4e 4f 42 4c 00 9d 15  |.....BEQ NOBL...|
00000d90  28 0f 4a 53 52 20 50 4c  4f a4 4e 00 ac 15 2d 0f  |(.JSR PLO.N...-.|
00000da0  4a 4d 50 20 52 45 44 49  53 50 00 c0 15 32 0f 4e  |JMP REDISP...2.N|
00000db0  4f 42 4c 20 4a 53 52 20  50 4c 4f a4 46 46 00 d6  |OBL JSR PLO.FF..|
00000dc0  15 3c 0f 52 45 44 49 53  50 20 44 45 43 20 58 50  |.<.REDISP DEC XP|
00000dd0  49 58 45 4c 00 e5 15 46  0f 4c 44 41 20 58 50 49  |IXEL...F.LDA XPI|
00000de0  58 45 4c 00 f2 15 50 0f  42 4e 45 20 44 4c 4f 50  |XEL...P.BNE DLOP|
00000df0  00 fa 15 55 0f 52 54 53  00 09 16 5a 0f 49 52 51  |...U.RTS...Z.IRQ|
00000e00  4f 46 46 20 53 45 49 00  17 16 64 0f 4c 44 41 20  |OFF SEI...d.LDA |
00000e10  56 45 43 a4 52 00 25 16  6e 0f 53 54 41 20 24 30  |VEC.R.%.n.STA $0|
00000e20  33 31 34 00 35 16 78 0f  4c 44 41 20 56 45 43 a4  |314.5.x.LDA VEC.|
00000e30  52 aa 31 00 43 16 82 0f  53 54 41 20 24 30 33 31  |R.1.C...STA $031|
00000e40  35 00 51 16 8c 0f 4c 44  41 20 24 44 30 31 36 00  |5.Q...LDA $D016.|
00000e50  5c 16 96 0f af 20 23 24  45 46 00 6a 16 a0 0f 53  |\.... #$EF.j...S|
00000e60  54 41 20 24 44 30 31 36  00 76 16 aa 0f 4c 44 41  |TA $D016.v...LDA|
00000e70  20 53 31 39 00 84 16 b4  0f 53 54 41 20 24 44 30  | S19.....STA $D0|
00000e80  31 39 00 90 16 be 0f 4c  44 41 20 53 31 41 00 9e  |19.....LDA S1A..|
00000e90  16 c8 0f 53 54 41 20 24  44 30 31 41 00 aa 16 d2  |...STA $D01A....|
00000ea0  0f 4c 44 41 20 53 30 44  00 b8 16 dc 0f 53 54 41  |.LDA S0D.....STA|
00000eb0  20 24 44 43 30 44 00 c5  16 df 0f 4c 44 41 20 23  | $DC0D.....LDA #|
00000ec0  24 30 30 00 d3 16 e2 0f  53 54 41 20 24 44 43 30  |$00.....STA $DC0|
00000ed0  45 00 db 16 e6 0f 43 4c  49 00 e3 16 f0 0f 52 54  |E.....CLI.....RT|
00000ee0  53 00 0a 17 88 13 3b 20  20 20 20 20 20 20 20 20  |S.....;         |
00000ef0  20 20 20 20 20 20 49 4e  54 45 52 52 55 50 54 20  |      INTERRUPT |
00000f00  52 4f 55 54 49 4e 45 53  00 1b 17 92 13 49 52 51  |ROUTINES.....IRQ|
00000f10  20 4c 44 41 20 23 24 30  31 00 29 17 94 13 53 54  | LDA #$01.)...ST|
00000f20  41 20 24 44 30 31 39 00  37 17 96 13 4c 44 41 20  |A $D019.7...LDA |
00000f30  24 44 30 31 32 00 45 17  9c 13 42 45 51 20 49 52  |$D012.E...BEQ IR|
00000f40  51 a4 50 00 52 17 a6 13  4c 44 59 20 23 24 30 32  |Q.P.R...LDY #$02|
00000f50  00 5f 17 b0 13 49 4c 4f  50 20 44 45 59 00 6c 17  |._...ILOP DEY.l.|
00000f60  ba 13 42 4e 45 20 49 4c  4f 50 00 7a 17 c4 13 4c  |..BNE ILOP.z...L|
00000f70  44 41 20 24 44 30 31 36  00 86 17 ce 13 b0 41 20  |DA $D016......A |
00000f80  23 24 31 30 00 94 17 d8  13 53 54 41 20 24 44 30  |#$10.....STA $D0|
00000f90  31 36 00 a1 17 e2 13 4c  44 41 20 23 24 30 30 00  |16.....LDA #$00.|
00000fa0  af 17 ec 13 53 54 41 20  24 44 30 31 32 00 bd 17  |....STA $D012...|
00000fb0  f6 13 4a 4d 50 20 24 45  41 38 31 00 d1 17 00 14  |..JMP $EA81.....|
00000fc0  49 52 51 a4 50 20 4c 44  41 20 24 44 30 31 36 00  |IRQ.P LDA $D016.|
00000fd0  dc 17 0a 14 af 20 23 24  45 46 00 ea 17 14 14 53  |..... #$EF.....S|
00000fe0  54 41 20 24 44 30 31 36  00 f7 17 17 14 4c 44 41  |TA $D016.....LDA|
00000ff0  20 23 24 43 37 00 ff 17  1a 14 53 45 43 00 0e 18  | #$C7.....SEC...|
00001000  1e 14 53 42 43 20 59 50  49 58 45 4c 00 16 18 28  |..SBC YPIXEL...(|
00001010  14 43 4c 43 00 23 18 32  14 41 44 43 20 23 24 33  |.CLC.#.2.ADC #$3|
00001020  32 00 31 18 3c 14 53 54  41 20 24 44 30 31 32 00  |2.1.<.STA $D012.|
00001030  41 18 46 14 4a 4d 50 20  28 56 45 43 a4 52 29 00  |A.F.JMP (VEC.R).|
00001040  4e 18 c8 14 49 52 51 91  20 53 45 49 00 5c 18 c9  |N...IRQ. SEI.\..|
00001050  14 4c 44 41 20 24 44 30  31 39 00 68 18 ca 14 53  |.LDA $D019.h...S|
00001060  54 41 20 53 31 39 00 76  18 cb 14 4c 44 41 20 24  |TA S19.v...LDA $|
00001070  44 30 31 41 00 82 18 cc  14 53 54 41 20 53 31 41  |D01A.....STA S1A|
00001080  00 90 18 cd 14 4c 44 41  20 24 44 43 30 44 00 9c  |.....LDA $DC0D..|
00001090  18 ce 14 53 54 41 20 53  30 44 00 aa 18 cf 14 4c  |...STA S0D.....L|
000010a0  44 41 20 24 30 33 31 34  00 b8 18 d0 14 53 54 41  |DA $0314.....STA|
000010b0  20 56 45 43 a4 52 00 c6  18 d1 14 4c 44 41 20 24  | VEC.R.....LDA $|
000010c0  30 33 31 35 00 d6 18 d2  14 53 54 41 20 56 45 43  |0315.....STA VEC|
000010d0  a4 52 aa 31 00 e3 18 d7  14 4c 44 41 20 23 24 30  |.R.1.....LDA #$0|
000010e0  31 00 f1 18 dc 14 53 54  41 20 24 44 30 31 39 00  |1.....STA $D019.|
000010f0  ff 18 e6 14 53 54 41 20  24 44 30 31 41 00 0d 19  |....STA $D01A...|
00001100  f0 14 53 54 41 20 24 44  43 30 44 00 1a 19 fa 14  |..STA $DC0D.....|
00001110  4c 44 41 20 23 24 33 42  00 28 19 04 15 53 54 41  |LDA #$3B.(...STA|
00001120  20 24 44 30 31 31 00 35  19 0e 15 4c 44 41 20 23  | $D011.5...LDA #|
00001130  24 30 30 00 43 19 18 15  53 54 41 20 24 44 30 31  |$00.C...STA $D01|
00001140  32 00 51 19 22 15 4c 44  41 20 23 b3 49 52 51 00  |2.Q.".LDA #.IRQ.|
00001150  5f 19 2c 15 53 54 41 20  24 30 33 31 34 00 6d 19  |_.,.STA $0314.m.|
00001160  36 15 4c 44 41 20 23 b1  49 52 51 00 7b 19 40 15  |6.LDA #.IRQ.{.@.|
00001170  53 54 41 20 24 30 33 31  35 00 83 19 4a 15 43 4c  |STA $0315...J.CL|
00001180  49 00 8b 19 54 15 52 54  53 00 b2 19 59 15 3b 20  |I...T.RTS...Y.; |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000011a0  20 20 20 20 49 ad 4f 20  52 4f 55 54 49 4e 45 53  |    I.O ROUTINES|
000011b0  00 c4 19 5e 15 4c 53 43  52 20 4c 44 41 20 23 24  |...^.LSCR LDA #$|
000011c0  30 31 00 d1 19 68 15 4c  44 58 20 24 46 46 46 00  |01...h.LDX $FFF.|
000011d0  de 19 72 15 4c 44 59 20  23 24 30 30 00 ec 19 7c  |..r.LDY #$00...||
000011e0  15 4a 53 52 20 24 46 46  42 41 00 fa 19 86 15 4c  |.JSR $FFBA.....L|
000011f0  44 41 20 24 43 30 30 30  00 07 1a 90 15 4c 44 58  |DA $C000.....LDX|
00001200  20 23 24 30 38 00 14 1a  9a 15 4c 44 59 20 23 24  | #$08.....LDY #$|
00001210  43 30 00 22 1a a4 15 4a  53 52 20 24 46 46 42 44  |C0."...JSR $FFBD|
00001220  00 2f 1a b8 15 4c 44 41  20 23 24 30 30 00 3c 1a  |./...LDA #$00.<.|
00001230  bb 15 4c 44 58 20 23 24  30 30 00 49 1a be 15 4c  |..LDX #$00.I...L|
00001240  44 59 20 23 24 32 30 00  57 1a c2 15 4a 4d 50 20  |DY #$20.W...JMP |
00001250  24 46 46 44 35 00 69 1a  e0 15 53 53 43 52 20 4c  |$FFD5.i...SSCR L|
00001260  44 41 20 23 24 30 31 00  76 1a ea 15 4c 44 58 20  |DA #$01.v...LDX |
00001270  24 46 46 46 00 7e 1a f4  15 54 41 59 00 8c 1a fe  |$FFF.~...TAY....|
00001280  15 4a 53 52 20 24 46 46  42 41 00 9a 1a 08 16 4c  |.JSR $FFBA.....L|
00001290  44 41 20 24 31 38 30 38  00 a7 1a 12 16 4c 44 58  |DA $1808.....LDX|
000012a0  20 23 24 31 30 00 b4 1a  1c 16 4c 44 59 20 23 24  | #$10.....LDY #$|
000012b0  31 38 00 c2 1a 26 16 4a  53 52 20 24 46 46 42 44  |18...&.JSR $FFBD|
000012c0  00 cf 1a 30 16 4c 44 41  20 23 24 32 30 00 db 1a  |...0.LDA #$20...|
000012d0  3a 16 53 54 41 20 24 46  43 00 e8 1a 44 16 4c 44  |:.STA $FC...D.LD|
000012e0  41 20 23 24 46 42 00 f5  1a 4e 16 4c 44 58 20 23  |A #$FB...N.LDX #|
000012f0  24 30 30 00 02 1b 58 16  4c 44 59 20 23 24 34 30  |$00...X.LDY #$40|
00001300  00 0e 1b 62 16 53 54 58  20 24 46 42 00 1c 1b 6c  |...b.STX $FB...l|
00001310  16 4a 4d 50 20 24 46 46  44 38 00 00 00           |.JMP $FFD8...|
0000131d