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

autocode.97.2

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.2
Read OK:
File size: 124E 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
   145 VECTOR=$CF0A ; 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 #<IRQHOLD
  3950 STA $0314
  3960 LDA #>IRQHOLD
  3970 STA $0315
  3980 CLI
  3990 RTS
  4000 IRQHOLD LDA #$01
  4010 STA $D019
  4020 JMP (VECTOR)
  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
  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��VEC�R�$CF0A ; 16 BYTE��MULTIREG�$CF09	�JMP LSCR	�JMP AU�STEREO 	JMP SSCR;	XH� TXT $2D,$00,$00,$00_	�;           GRAPHIC PO� PLOTTERs	�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 A
~ASL A
�ASL A%
�STA $021
�LDA $FB9
�SECE
�SBC $02Q
�STA $FB]
�LDA $FCj
�SBC #$00w
�SBC YPIB
�PHA�
�LDA YPIB�
�LSR A�
LSR A�

STA $02�
PLA�
SEC�
(SBC $02�
2STA $FC�
<LDA YPIXEL�
F� #$07�
PSTA YPIBZLDA $FBdSECnSBC YPIB$xPHA3�LDA XPIXEL>�� #$F8K�STA YPIBS�PLA[�CLCh�ADC YPIBt�STA $FB��LDA $FC��SBC #$00��STA $FC��LDA XPIXEL��� #$07��TAX�LDA #$80�GBITLP CPX #$00�BEQ PP��"LSR A�,DEX	6JMP GBITLP@PP� STA $FD!JRTS6TPLO�N JSR PLOTPCC^LDY #$00ShLDA ($FB),Y^r�A $FDn|STA ($FB),Yv�RTS��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)
� $FD4
BNE ��?
LDA H�G
RTSW
&�� LDA HԪ1_
0RTSu
:�PIX LDA MULTIREG�
DBNE MULTI��
NJMP BW��
XMULTI� LDA XPIXEL�
bPHA�
l� #$FE�
vSTA XPIXEL�
xJSR PLOTPC�
zLDY #$00�
|LDA ($FB),Y�
~� $FD�BEQ MRII�LDA #$02%�MRII PHA4�INC XPIXELC�JSR PLOTPCP�LDY #$00`�LDA ($FB),Yj�� $FDx�BEQ MRIII��PLA��CLC��ADC #$01��PHA��MRIII PLA��TAX��PLA��STA XPIXEL��LDA H�,X��RTS�;                BITMAP ON ROUTINE�GRAPHIC LDA $D018'�� #$013��A #$18A�STA $D018OLDA $DD02[�A #$03iSTA $DD02w LDA $DD00�*� #$FC�4�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 $FCG�LDX $FCT�CPX #$08b�BNE GRLOPs�LDA MULTIREG��BEQ NOCOLS��JMP IRQ���NOCOLS LDA $D016�	� #$EF�	STA $D016�	RTS��;        AUTOSTEREOGRAM CALCULATOR��STEREO JSR GRAPHIC�LDA #$C7 �STA YPIXEL3��LINE LDY #$00?�STY $FBL�LDA #$C0X�STA $FChLINELOP TYAxSTA ($FB),Y�INY�&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 XRELOPD�STA IL�CLCX�ADC SEPg�BCS XRELOPq�STA J��REPEAT LDX I��LDA $C000,X�
STA S�
CMP J�
BEQ XRELOP�
BCS LLCASE3� 
STA I�*
JMP L210�4
LLCASE3 LDA J�>
STA $C000,XH
STA IR
LDA S\
STA J+f
L210 LDX I;p
LDA $C000,XEz
CMP IT�
BNE REPEAT^�
LDA Jh�
LDX Ix�
STA $C000,X��
XRELOP LDX XPIXEL��
INX��
BEQ YRELOP��
STX XPIXEL��
JMP XLOP�YRELOP JSR DISP�DEC YPIXEL�LDA YPIXEL�$BEQ π.JMP �LINE=π JMP IRQOFF0BDISP LDA #$00?LSTA XPIXELLVDLOP TAX\`LDA $C000,XkjCMP XPIXELytBNE DELSE�~LDA RNO��LSR A��INC $A2��ADC $A2��LDX $A2��ADC $0000,X��STA RNO��� #$01��LDX XPIXEL��STA $C100,X�JMP NELSE�DELSE LDA $C000,X%�TAY5LDA $C100,YE
STA $C100,XXNELSE CMP #$00eBEQ NOBLs(JSR PLO�N�-JMP REDISP�2NOBL JSR PLO�FF�<REDISP DEC XPIXEL�FLDA XPIXEL�PBNE DLOP�URTS�ZIRQOFF SEI�dLDA #�IRQHOLD�nSTA $0314xLDA #�IRQHOLD�STA $0315'�CLI/�RTSD�IRQHOLD LDA #$01R�STA $D019b�JMP (VEC�R)��;               INTERRUPT ROUTINES��IRQ LDA #$01��STA $D019��LDA $D012��BEQ IRQ�P��LDY #$02��ILOP DEY��BNE ILOP��LDA $D016��A #$10�STA $D016 �LDA #$00.�STA $D012<�JMP $EA81PIRQ�P LDA $D016[
� #$EFiSTA $D016vLDA #$C7~SEC�SBC YPIXEL�(CLC�2ADC #$32�<STA $D012�FJMP (VEC�R)��IRQ� SEI��LDA $0314��STA VEC�R��LDA $0315�STA VEC�R�1�LDA #$01"�STA $D0190�STA $D01A>�STA $DC0DK�LDA #$3BYSTA $D011fLDA #$00tSTA $D012�"LDA #�IRQ�,STA $0314�6LDA #�IRQ�@STA $0315�JCLI�TRTS�Y;                     I�O ROUTINES�^LSCR LDA #$01hLDX $FFFrLDY #$00|JSR $FFBA+�LDA $C0008�LDX #$08E�LDY #$C0S�JSR $FFBD`�LDA #$00m�LDX #$00z�LDY #$20��JMP $FFD5��SSCR LDA #$01��LDX $FFF��TAY��JSR $FFBA�LDA $1808�LDX #$10�LDY #$18�&JSR $FFBD0LDA #$20:STA $FCDLDA #$FB&NLDX #$003XLDY #$40?bSTX $FBMlJMP $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.@vec.r.$cf0a ; 16 byte@.H.@multireg.$cf09@AI.Ajmp lscr@SI.Ajmp au.stereo@ IHBjmp sscr@;IxBh. txt $2d,$00,$00,$00@.I.C;           graphic po. plotter@SI.Cplotpc lda #$47@.I.Csta $fb@.IFDlda #$3f@.IPDsta $fc@.IZDlda ypixel@.I$Dlsr a@.I.Dlsr a@.I8Dlsr a@.IbDsta ypib@.IlD. #$03@.IvDasl a@.I.Dasl a@.IJDasl a@EJTDasl a@OJ.Dasl a@YJ.Dasl a@%J.Dsta $02@1J.Dlda $fb@9J.Dsec@eJ.Dsbc $02@qJ.Dsta $fb@]J.Dlda $fc@JJ.Dsbc #$00@WJ.Dsbc ypib@.J.Dpha@.J.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@GKzElda $fb@OKDEsec@£KNEsbc ypib@$KXEpha@3K.Elda xpixel@>K.E. #$f8@kK.Esta ypib@sK.Epla@[K.Eclc@HK.Eadc ypib@TK.Esta $fb@.K.Elda $fc@.K.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@IL6Fjmp gbitlp@YL@Fpp. sta $fd@!LjFrts@6LtFplo.n jsr plotpc@cL.Fldy #$00@sLHFlda ($fb),y@.LRF.a $fd@NL.Fsta ($fb),y@VL.Frts@.L.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@BM.Fbw. jsr plotpc@OM.Fldy #$00@.M.Flda ($fb),y@)MHG. $fd@4MRGbne ..@?MWGlda h.@gM£Grts@wM&G.. lda h..1@.M0Grts@UM:G.pix lda multireg@.MdGbne multi.@.MnGjmp bw.@.MxGmulti. lda xpixel@.MBGpha@.MLG. #$fe@.MVGsta xpixel@.MXGjsr plotpc@.MZGldy #$00@.M.Glda ($fb),y@.M.G. $fd@KN.Gbeq mrii@XN.Glda #$02@%N.Gmrii pha@4N.Ginc xpixel@cN.Gjsr plotpc@pN.Gldy #$00@.N.Glda ($fb),y@JN.G. $fd@XN.Gbeq mriii@.N.Gpla@.N.Gclc@.N.Gadc #$01@.N.Gpha@.N.Gmriii pla@.N.Gtax@.N.Gpla@.N.Gsta xpixel@.N.Glda h.,x@.N.Grts@FO.G;                bitmap on routine@£O.Ggraphic lda $d018@'O.G. #$01@3O.G.a #$18@aO.Gsta $d018@oOBHlda $dd02@[OLH.a #$03@IOVHsta $dd02@WO Hlda $dd00@.O*H. #$fc@.O4H.a #$03@.O>Hsta $dd00@.OhHlda $d011@.OrH.a #$20@.O£Hsta $d011@.OFHlda #$04@.OPHsta $fc@.OZHldy #$00@.O.Hsty $fb@CP.Hlda #$01@YP.Hgrlop sta ($fb),y@!P.Hiny@/P.Hbne grlop@;P.Hinc $fc@gP.Hldx $fc@tP.Hcpx #$08@BP.Hbne grlop@SP.Hlda multireg@.P.Hbeq nocols@.P.Hjmp irq.@.P.Hnocols lda $d016@.PFI. #$ef@.PPIsta $d016@.PZIrts@.P.K;        autostereogram calculator@DQ.K.stereo jsr graphic@QQ.Klda #$c7@ Q.Ksta ypixel@3Q.K.line ldy #$00@?Q.Ksty $fb@lQ.Klda #$c0@xQ.Ksta $fc@HQHLlinelop tya@XQRLsta ($fb),y@.Q£Liny@.Q&Lbne linelop@.Q0Llda #$00@.Q:Lsta xpixel@.QdLxlop jsr .pix@.QnLsta sep@.QxL. ypixel@.QBL. #$01@.QLLclc@.QVLadc sep@@R.Llsr a@JR.Lsta i@YR.Llda xpixel@!R.Lsec@+R.Lsbc i@:R.Lbcc xrelop@dR.Lsta i@lR.Lclc@xR.Ladc sep@GR.Lbcs xrelop@QR.Lsta j@.R.Lrepeat ldx i@.R.Llda $c000,x@.RBMsta s@.RLMcmp j@.RQMbeq xrelop@.RVMbcs llcase3@.R Msta i@.R*Mjmp l210@.R4Mllcase3 lda j@.R>Msta $c000,x@HShMsta i@RSrMlda s@£S£Msta j@+SFMl210 ldx i@;SPMlda $c000,x@eSZMcmp i@tS.Mbne repeat@.S.Mlda j@HS.Mldx i@XS.Msta $c000,x@.S.Mxrelop ldx xpixel@.S.Minx@.S.Mbeq yrelop@.S.Mstx xpixel@.S.Mjmp xlop@.SFNyrelop jsr disp@.SPNdec ypixel@.SZNlda ypixel@.S$Nbeq ..@LT.Njmp .line@.T=N.. jmp irqoff@0TbNdisp lda #$00@?TlNsta xpixel@lTvNdlop tax@£T.Nlda $c000,x@KTJNcmp xpixel@YTTNbne 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@.T.Nsta $c100,x@GU.Njmp nelse@]U.Ndelse lda $c000,x@%U.Ntay@5U@Olda $c100,y@eUJOsta $c100,x@xUTOnelse cmp #$00@EU.Obeq nobl@SU(Ojsr plo.n@.U-Ojmp redisp@.U2Onobl jsr plo.ff@.U<Oredisp dec xpixel@.UfOlda xpixel@.UpObne dlop@.UuOrts@.UzOirqoff sei@.UDOlda #.irqhold@.UNOsta $0314@QVXOlda #.irqhold@.V.Osta $0315@'V.Ocli@/V.Orts@dV.Oirqhold lda #$01@rV.Osta $d019@BV.Ojmp (vec.r)@.V.S;               interrupt routines@.V.Sirq lda #$01@.V.Ssta $d019@.V.Slda $d012@.V.Sbeq irq.p@.V.Sldy #$02@.V.Silop dey@.V.Sbne ilop@.V.Slda $d016@EW.S.a #$10@SW.Ssta $d016@ W.Slda #$00@.W.Ssta $d012@<W.Sjmp $ea81@pW@Tirq.p lda $d016@[WJT. #$ef@IWTTsta $d016@VWWTlda #$c7@.WZTsec@.W.Tsbc ypixel@.W(Tclc@.W2Tadc #$32@.W<Tsta $d012@.WfTjmp (vec.r)@.W.Tirq. sei@.W.Tlda $0314@.W.Tsta vec.r@.W.Tlda $0315@GX.Tsta vec.r.1@TX.Tlda #$01@"X.Tsta $d019@0X.Tsta $d01a@>X.Tsta $dc0d@kX.Tlda #$3b@yXDUsta $d011@FXNUlda #$00@TXXUsta $d012@.X"Ulda #.irq@.X,Usta $0314@.X6Ulda #.irq@.X@Usta $0315@.XjUcli@.XtUrts@.XyU;                     i.o routines@.X.Ulscr lda #$01@BYHUldx $fff@OYRUldy #$00@]Y.Ujsr $ffba@+Y.Ulda $c000@8Y.Uldx #$08@eY.Uldy #$c0@sY.Ujsr $ffbd@.Y.Ulda #$00@MY.Uldx #$00@ZY.Uldy #$20@.Y.Ujmp $ffd5@.Y.Usscr lda #$01@.Y.Uldx $fff@.Y.Utay@.Y.Ujsr $ffba@.YHVlda $1808@.YRVldx #$10@.Y£Vldy #$18@.Y&Vjsr $ffbd@@Z0Vlda #$20@LZ:Vsta $fc@YZdVlda #$fb@&ZnVldx #$00@3ZxVldy #$40@?ZBVstx $fb@mZLVjmp $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 e1 08  91 00 56 45 43 a4 52 b2  |$CF08.....VEC.R.|
000000d0  24 43 46 30 41 20 3b 20  31 36 20 42 59 54 45 00  |$CF0A ; 16 BYTE.|
000000e0  f4 08 96 00 4d 55 4c 54  49 52 45 47 b2 24 43 46  |....MULTIREG.$CF|
000000f0  30 39 00 01 09 f4 01 4a  4d 50 20 4c 53 43 52 00  |09.....JMP LSCR.|
00000100  13 09 fe 01 4a 4d 50 20  41 55 a4 53 54 45 52 45  |....JMP AU.STERE|
00000110  4f 00 20 09 08 02 4a 4d  50 20 53 53 43 52 00 3b  |O. ...JMP SSCR.;|
00000120  09 58 02 48 d4 20 54 58  54 20 24 32 44 2c 24 30  |.X.H. TXT $2D,$0|
00000130  30 2c 24 30 30 2c 24 30  30 00 5f 09 e8 03 3b 20  |0,$00,$00._...; |
00000140  20 20 20 20 20 20 20 20  20 20 47 52 41 50 48 49  |          GRAPHI|
00000150  43 20 50 4f b5 20 50 4c  4f 54 54 45 52 00 73 09  |C PO. PLOTTER.s.|
00000160  f2 03 50 4c 4f 54 50 43  20 4c 44 41 20 23 24 34  |..PLOTPC LDA #$4|
00000170  37 00 7f 09 fc 03 53 54  41 20 24 46 42 00 8c 09  |7.....STA $FB...|
00000180  06 04 4c 44 41 20 23 24  33 46 00 98 09 10 04 53  |..LDA #$3F.....S|
00000190  54 41 20 24 46 43 00 a7  09 1a 04 4c 44 41 20 59  |TA $FC.....LDA Y|
000001a0  50 49 58 45 4c 00 b1 09  24 04 4c 53 52 20 41 00  |PIXEL...$.LSR A.|
000001b0  bb 09 2e 04 4c 53 52 20  41 00 c5 09 38 04 4c 53  |....LSR A...8.LS|
000001c0  52 20 41 00 d2 09 42 04  53 54 41 20 59 50 49 42  |R A...B.STA YPIB|
000001d0  00 dd 09 4c 04 af 20 23  24 30 33 00 e7 09 56 04  |...L.. #$03...V.|
000001e0  41 53 4c 20 41 00 f1 09  60 04 41 53 4c 20 41 00  |ASL A...`.ASL A.|
000001f0  fb 09 6a 04 41 53 4c 20  41 00 05 0a 74 04 41 53  |..j.ASL A...t.AS|
00000200  4c 20 41 00 0f 0a 7e 04  41 53 4c 20 41 00 19 0a  |L A...~.ASL A...|
00000210  88 04 41 53 4c 20 41 00  25 0a 92 04 53 54 41 20  |..ASL A.%...STA |
00000220  24 30 32 00 31 0a 9c 04  4c 44 41 20 24 46 42 00  |$02.1...LDA $FB.|
00000230  39 0a a6 04 53 45 43 00  45 0a b0 04 53 42 43 20  |9...SEC.E...SBC |
00000240  24 30 32 00 51 0a ba 04  53 54 41 20 24 46 42 00  |$02.Q...STA $FB.|
00000250  5d 0a c4 04 4c 44 41 20  24 46 43 00 6a 0a ce 04  |]...LDA $FC.j...|
00000260  53 42 43 20 23 24 30 30  00 77 0a d8 04 53 42 43  |SBC #$00.w...SBC|
00000270  20 59 50 49 42 00 7f 0a  e2 04 50 48 41 00 8c 0a  | YPIB.....PHA...|
00000280  ec 04 4c 44 41 20 59 50  49 42 00 96 0a f6 04 4c  |..LDA YPIB.....L|
00000290  53 52 20 41 00 a0 0a 00  05 4c 53 52 20 41 00 ac  |SR A.....LSR A..|
000002a0  0a 0a 05 53 54 41 20 24  30 32 00 b4 0a 14 05 50  |...STA $02.....P|
000002b0  4c 41 00 bc 0a 1e 05 53  45 43 00 c8 0a 28 05 53  |LA.....SEC...(.S|
000002c0  42 43 20 24 30 32 00 d4  0a 32 05 53 54 41 20 24  |BC $02...2.STA $|
000002d0  46 43 00 e3 0a 3c 05 4c  44 41 20 59 50 49 58 45  |FC...<.LDA YPIXE|
000002e0  4c 00 ee 0a 46 05 af 20  23 24 30 37 00 fb 0a 50  |L...F.. #$07...P|
000002f0  05 53 54 41 20 59 50 49  42 00 07 0b 5a 05 4c 44  |.STA YPIB...Z.LD|
00000300  41 20 24 46 42 00 0f 0b  64 05 53 45 43 00 1c 0b  |A $FB...d.SEC...|
00000310  6e 05 53 42 43 20 59 50  49 42 00 24 0b 78 05 50  |n.SBC YPIB.$.x.P|
00000320  48 41 00 33 0b 82 05 4c  44 41 20 58 50 49 58 45  |HA.3...LDA XPIXE|
00000330  4c 00 3e 0b 8c 05 af 20  23 24 46 38 00 4b 0b 96  |L.>.... #$F8.K..|
00000340  05 53 54 41 20 59 50 49  42 00 53 0b a0 05 50 4c  |.STA YPIB.S...PL|
00000350  41 00 5b 0b aa 05 43 4c  43 00 68 0b b4 05 41 44  |A.[...CLC.h...AD|
00000360  43 20 59 50 49 42 00 74  0b be 05 53 54 41 20 24  |C YPIB.t...STA $|
00000370  46 42 00 80 0b c8 05 4c  44 41 20 24 46 43 00 8d  |FB.....LDA $FC..|
00000380  0b d2 05 53 42 43 20 23  24 30 30 00 99 0b dc 05  |...SBC #$00.....|
00000390  53 54 41 20 24 46 43 00  a8 0b e6 05 4c 44 41 20  |STA $FC.....LDA |
000003a0  58 50 49 58 45 4c 00 b3  0b f0 05 af 20 23 24 30  |XPIXEL...... #$0|
000003b0  37 00 bb 0b fa 05 54 41  58 00 c8 0b 04 06 4c 44  |7.....TAX.....LD|
000003c0  41 20 23 24 38 30 00 dc  0b 0e 06 47 42 49 54 4c  |A #$80.....GBITL|
000003d0  50 20 43 50 58 20 23 24  30 30 00 e8 0b 18 06 42  |P CPX #$00.....B|
000003e0  45 51 20 50 50 9a 00 f2  0b 22 06 4c 53 52 20 41  |EQ PP....".LSR A|
000003f0  00 fa 0b 2c 06 44 45 58  00 09 0c 36 06 4a 4d 50  |...,.DEX...6.JMP|
00000400  20 47 42 49 54 4c 50 00  19 0c 40 06 50 50 9a 20  | GBITLP...@.PP. |
00000410  53 54 41 20 24 46 44 00  21 0c 4a 06 52 54 53 00  |STA $FD.!.J.RTS.|
00000420  36 0c 54 06 50 4c 4f a4  4e 20 4a 53 52 20 50 4c  |6.T.PLO.N JSR PL|
00000430  4f 54 50 43 00 43 0c 5e  06 4c 44 59 20 23 24 30  |OTPC.C.^.LDY #$0|
00000440  30 00 53 0c 68 06 4c 44  41 20 28 24 46 42 29 2c  |0.S.h.LDA ($FB),|
00000450  59 00 5e 0c 72 06 b0 41  20 24 46 44 00 6e 0c 7c  |Y.^.r..A $FD.n.||
00000460  06 53 54 41 20 28 24 46  42 29 2c 59 00 76 0c 86  |.STA ($FB),Y.v..|
00000470  06 52 54 53 00 8c 0c 90  06 50 4c 4f a4 46 46 20  |.RTS.....PLO.FF |
00000480  4a 53 52 20 50 4c 4f 54  50 43 00 98 0c 9a 06 4c  |JSR PLOTPC.....L|
00000490  44 41 20 24 46 44 00 a4  0c a4 06 45 b0 20 23 24  |DA $FD.....E. #$|
000004a0  46 46 00 b0 0c ae 06 53  54 41 20 24 46 44 00 bd  |FF.....STA $FD..|
000004b0  0c b8 06 4c 44 59 20 23  24 30 30 00 cd 0c c2 06  |...LDY #$00.....|
000004c0  4c 44 41 20 28 24 46 42  29 2c 59 00 d7 0c cc 06  |LDA ($FB),Y.....|
000004d0  af 20 24 46 44 00 e7 0c  d6 06 53 54 41 20 28 24  |. $FD.....STA ($|
000004e0  46 42 29 2c 59 00 ef 0c  e0 06 52 54 53 00 02 0d  |FB),Y.....RTS...|
000004f0  ea 06 42 57 87 20 4a 53  52 20 50 4c 4f 54 50 43  |..BW. JSR PLOTPC|
00000500  00 0f 0d f4 06 4c 44 59  20 23 24 30 30 00 1f 0d  |.....LDY #$00...|
00000510  fe 06 4c 44 41 20 28 24  46 42 29 2c 59 00 29 0d  |..LDA ($FB),Y.).|
00000520  08 07 af 20 24 46 44 00  34 0d 12 07 42 4e 45 20  |... $FD.4...BNE |
00000530  87 b9 00 3f 0d 17 07 4c  44 41 20 48 d4 00 47 0d  |...?...LDA H..G.|
00000540  1c 07 52 54 53 00 57 0d  26 07 87 b9 20 4c 44 41  |..RTS.W.&... LDA|
00000550  20 48 d4 aa 31 00 5f 0d  30 07 52 54 53 00 75 0d  | H..1._.0.RTS.u.|
00000560  3a 07 87 50 49 58 20 4c  44 41 20 4d 55 4c 54 49  |:..PIX LDA MULTI|
00000570  52 45 47 00 84 0d 44 07  42 4e 45 20 4d 55 4c 54  |REG...D.BNE MULT|
00000580  49 87 00 90 0d 4e 07 4a  4d 50 20 42 57 87 00 a6  |I....N.JMP BW...|
00000590  0d 58 07 4d 55 4c 54 49  87 20 4c 44 41 20 58 50  |.X.MULTI. LDA XP|
000005a0  49 58 45 4c 00 ae 0d 62  07 50 48 41 00 b9 0d 6c  |IXEL...b.PHA...l|
000005b0  07 af 20 23 24 46 45 00  c8 0d 76 07 53 54 41 20  |.. #$FE...v.STA |
000005c0  58 50 49 58 45 4c 00 d7  0d 78 07 4a 53 52 20 50  |XPIXEL...x.JSR P|
000005d0  4c 4f 54 50 43 00 e4 0d  7a 07 4c 44 59 20 23 24  |LOTPC...z.LDY #$|
000005e0  30 30 00 f4 0d 7c 07 4c  44 41 20 28 24 46 42 29  |00...|.LDA ($FB)|
000005f0  2c 59 00 fe 0d 7e 07 af  20 24 46 44 00 0b 0e 80  |,Y...~.. $FD....|
00000600  07 42 45 51 20 4d 52 49  49 00 18 0e 82 07 4c 44  |.BEQ MRII.....LD|
00000610  41 20 23 24 30 32 00 25  0e 84 07 4d 52 49 49 20  |A #$02.%...MRII |
00000620  50 48 41 00 34 0e 85 07  49 4e 43 20 58 50 49 58  |PHA.4...INC XPIX|
00000630  45 4c 00 43 0e 86 07 4a  53 52 20 50 4c 4f 54 50  |EL.C...JSR PLOTP|
00000640  43 00 50 0e 88 07 4c 44  59 20 23 24 30 30 00 60  |C.P...LDY #$00.`|
00000650  0e 8a 07 4c 44 41 20 28  24 46 42 29 2c 59 00 6a  |...LDA ($FB),Y.j|
00000660  0e 8c 07 af 20 24 46 44  00 78 0e 8e 07 42 45 51  |.... $FD.x...BEQ|
00000670  20 4d 52 49 49 49 00 80  0e 8f 07 50 4c 41 00 88  | MRIII.....PLA..|
00000680  0e 90 07 43 4c 43 00 95  0e 92 07 41 44 43 20 23  |...CLC.....ADC #|
00000690  24 30 31 00 9d 0e 93 07  50 48 41 00 ab 0e 94 07  |$01.....PHA.....|
000006a0  4d 52 49 49 49 20 50 4c  41 00 b3 0e 95 07 54 41  |MRIII PLA.....TA|
000006b0  58 00 bb 0e 96 07 50 4c  41 00 ca 0e 98 07 53 54  |X.....PLA.....ST|
000006c0  41 20 58 50 49 58 45 4c  00 d7 0e 9a 07 4c 44 41  |A XPIXEL.....LDA|
000006d0  20 48 d4 2c 58 00 df 0e  9c 07 52 54 53 00 06 0f  | H.,X.....RTS...|
000006e0  d0 07 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
000006f0  20 20 20 42 49 54 4d 41  50 20 4f 4e 20 52 4f 55  |   BITMAP ON ROU|
00000700  54 49 4e 45 00 1c 0f da  07 47 52 41 50 48 49 43  |TINE.....GRAPHIC|
00000710  20 4c 44 41 20 24 44 30  31 38 00 27 0f e4 07 af  | LDA $D018.'....|
00000720  20 23 24 30 31 00 33 0f  ee 07 b0 41 20 23 24 31  | #$01.3....A #$1|
00000730  38 00 41 0f f8 07 53 54  41 20 24 44 30 31 38 00  |8.A...STA $D018.|
00000740  4f 0f 02 08 4c 44 41 20  24 44 44 30 32 00 5b 0f  |O...LDA $DD02.[.|
00000750  0c 08 b0 41 20 23 24 30  33 00 69 0f 16 08 53 54  |...A #$03.i...ST|
00000760  41 20 24 44 44 30 32 00  77 0f 20 08 4c 44 41 20  |A $DD02.w. .LDA |
00000770  24 44 44 30 30 00 82 0f  2a 08 af 20 23 24 46 43  |$DD00...*.. #$FC|
00000780  00 8e 0f 34 08 b0 41 20  23 24 30 33 00 9c 0f 3e  |...4..A #$03...>|
00000790  08 53 54 41 20 24 44 44  30 30 00 aa 0f 48 08 4c  |.STA $DD00...H.L|
000007a0  44 41 20 24 44 30 31 31  00 b6 0f 52 08 b0 41 20  |DA $D011...R..A |
000007b0  23 24 32 30 00 c4 0f 5c  08 53 54 41 20 24 44 30  |#$20...\.STA $D0|
000007c0  31 31 00 d1 0f 66 08 4c  44 41 20 23 24 30 34 00  |11...f.LDA #$04.|
000007d0  dd 0f 70 08 53 54 41 20  24 46 43 00 ea 0f 7a 08  |..p.STA $FC...z.|
000007e0  4c 44 59 20 23 24 30 30  00 f6 0f 84 08 53 54 59  |LDY #$00.....STY|
000007f0  20 24 46 42 00 03 10 8e  08 4c 44 41 20 23 24 30  | $FB.....LDA #$0|
00000800  31 00 19 10 98 08 47 52  4c 4f 50 20 53 54 41 20  |1.....GRLOP STA |
00000810  28 24 46 42 29 2c 59 00  21 10 a2 08 49 4e 59 00  |($FB),Y.!...INY.|
00000820  2f 10 ac 08 42 4e 45 20  47 52 4c 4f 50 00 3b 10  |/...BNE GRLOP.;.|
00000830  b6 08 49 4e 43 20 24 46  43 00 47 10 c0 08 4c 44  |..INC $FC.G...LD|
00000840  58 20 24 46 43 00 54 10  ca 08 43 50 58 20 23 24  |X $FC.T...CPX #$|
00000850  30 38 00 62 10 d4 08 42  4e 45 20 47 52 4c 4f 50  |08.b...BNE GRLOP|
00000860  00 73 10 de 08 4c 44 41  20 4d 55 4c 54 49 52 45  |.s...LDA MULTIRE|
00000870  47 00 82 10 e8 08 42 45  51 20 4e 4f 43 4f 4c 53  |G.....BEQ NOCOLS|
00000880  00 8f 10 f2 08 4a 4d 50  20 49 52 51 91 00 a4 10  |.....JMP IRQ....|
00000890  fc 08 4e 4f 43 4f 4c 53  20 4c 44 41 20 24 44 30  |..NOCOLS LDA $D0|
000008a0  31 36 00 af 10 06 09 af  20 23 24 45 46 00 bd 10  |16...... #$EF...|
000008b0  10 09 53 54 41 20 24 44  30 31 36 00 c5 10 1a 09  |..STA $D016.....|
000008c0  52 54 53 00 ec 10 b8 0b  3b 20 20 20 20 20 20 20  |RTS.....;       |
000008d0  20 41 55 54 4f 53 54 45  52 45 4f 47 52 41 4d 20  | AUTOSTEREOGRAM |
000008e0  43 41 4c 43 55 4c 41 54  4f 52 00 04 11 c2 0b cf  |CALCULATOR......|
000008f0  53 54 45 52 45 4f 20 4a  53 52 20 47 52 41 50 48  |STEREO JSR GRAPH|
00000900  49 43 00 11 11 cc 0b 4c  44 41 20 23 24 43 37 00  |IC.....LDA #$C7.|
00000910  20 11 d6 0b 53 54 41 20  59 50 49 58 45 4c 00 33  | ...STA YPIXEL.3|
00000920  11 e0 0b cf 4c 49 4e 45  20 4c 44 59 20 23 24 30  |....LINE LDY #$0|
00000930  30 00 3f 11 ea 0b 53 54  59 20 24 46 42 00 4c 11  |0.?...STY $FB.L.|
00000940  f4 0b 4c 44 41 20 23 24  43 30 00 58 11 fe 0b 53  |..LDA #$C0.X...S|
00000950  54 41 20 24 46 43 00 68  11 08 0c 4c 49 4e 45 4c  |TA $FC.h...LINEL|
00000960  4f 50 20 54 59 41 00 78  11 12 0c 53 54 41 20 28  |OP TYA.x...STA (|
00000970  24 46 42 29 2c 59 00 80  11 1c 0c 49 4e 59 00 90  |$FB),Y.....INY..|
00000980  11 26 0c 42 4e 45 20 4c  49 4e 45 4c 4f 50 00 9d  |.&.BNE LINELOP..|
00000990  11 30 0c 4c 44 41 20 23  24 30 30 00 ac 11 3a 0c  |.0.LDA #$00...:.|
000009a0  53 54 41 20 58 50 49 58  45 4c 00 be 11 44 0c 58  |STA XPIXEL...D.X|
000009b0  4c 4f 50 20 4a 53 52 20  87 50 49 58 00 ca 11 4e  |LOP JSR .PIX...N|
000009c0  0c 53 54 41 20 53 45 50  00 d7 11 58 0c af 20 59  |.STA SEP...X.. Y|
000009d0  50 49 58 45 4c 00 e2 11  62 0c af 20 23 24 30 31  |PIXEL...b.. #$01|
000009e0  00 ea 11 6c 0c 43 4c 43  00 f6 11 76 0c 41 44 43  |...l.CLC...v.ADC|
000009f0  20 53 45 50 00 00 12 80  0c 4c 53 52 20 41 00 0a  | SEP.....LSR A..|
00000a00  12 8a 0c 53 54 41 20 49  00 19 12 94 0c 4c 44 41  |...STA I.....LDA|
00000a10  20 58 50 49 58 45 4c 00  21 12 9e 0c 53 45 43 00  | XPIXEL.!...SEC.|
00000a20  2b 12 a8 0c 53 42 43 20  49 00 3a 12 b2 0c 42 43  |+...SBC I.:...BC|
00000a30  43 20 58 52 45 4c 4f 50  00 44 12 bc 0c 53 54 41  |C XRELOP.D...STA|
00000a40  20 49 00 4c 12 c6 0c 43  4c 43 00 58 12 d0 0c 41  | I.L...CLC.X...A|
00000a50  44 43 20 53 45 50 00 67  12 da 0c 42 43 53 20 58  |DC SEP.g...BCS X|
00000a60  52 45 4c 4f 50 00 71 12  e4 0c 53 54 41 20 4a 00  |RELOP.q...STA J.|
00000a70  82 12 ee 0c 52 45 50 45  41 54 20 4c 44 58 20 49  |....REPEAT LDX I|
00000a80  00 92 12 f8 0c 4c 44 41  20 24 43 30 30 30 2c 58  |.....LDA $C000,X|
00000a90  00 9c 12 02 0d 53 54 41  20 53 00 a6 12 0c 0d 43  |.....STA S.....C|
00000aa0  4d 50 20 4a 00 b5 12 11  0d 42 45 51 20 58 52 45  |MP J.....BEQ XRE|
00000ab0  4c 4f 50 00 c5 12 16 0d  42 43 53 20 4c 4c 43 41  |LOP.....BCS LLCA|
00000ac0  53 45 33 00 cf 12 20 0d  53 54 41 20 49 00 dc 12  |SE3... .STA I...|
00000ad0  2a 0d 4a 4d 50 20 4c 32  31 30 00 ee 12 34 0d 4c  |*.JMP L210...4.L|
00000ae0  4c 43 41 53 45 33 20 4c  44 41 20 4a 00 fe 12 3e  |LCASE3 LDA J...>|
00000af0  0d 53 54 41 20 24 43 30  30 30 2c 58 00 08 13 48  |.STA $C000,X...H|
00000b00  0d 53 54 41 20 49 00 12  13 52 0d 4c 44 41 20 53  |.STA I...R.LDA S|
00000b10  00 1c 13 5c 0d 53 54 41  20 4a 00 2b 13 66 0d 4c  |...\.STA J.+.f.L|
00000b20  32 31 30 20 4c 44 58 20  49 00 3b 13 70 0d 4c 44  |210 LDX I.;.p.LD|
00000b30  41 20 24 43 30 30 30 2c  58 00 45 13 7a 0d 43 4d  |A $C000,X.E.z.CM|
00000b40  50 20 49 00 54 13 84 0d  42 4e 45 20 52 45 50 45  |P I.T...BNE REPE|
00000b50  41 54 00 5e 13 b6 0d 4c  44 41 20 4a 00 68 13 c0  |AT.^...LDA J.h..|
00000b60  0d 4c 44 58 20 49 00 78  13 ca 0d 53 54 41 20 24  |.LDX I.x...STA $|
00000b70  43 30 30 30 2c 58 00 8e  13 d4 0d 58 52 45 4c 4f  |C000,X.....XRELO|
00000b80  50 20 4c 44 58 20 58 50  49 58 45 4c 00 96 13 de  |P LDX XPIXEL....|
00000b90  0d 49 4e 58 00 a5 13 e8  0d 42 45 51 20 59 52 45  |.INX.....BEQ YRE|
00000ba0  4c 4f 50 00 b4 13 f2 0d  53 54 58 20 58 50 49 58  |LOP.....STX XPIX|
00000bb0  45 4c 00 c1 13 fc 0d 4a  4d 50 20 58 4c 4f 50 00  |EL.....JMP XLOP.|
00000bc0  d5 13 06 0e 59 52 45 4c  4f 50 20 4a 53 52 20 44  |....YRELOP JSR D|
00000bd0  49 53 50 00 e4 13 10 0e  44 45 43 20 59 50 49 58  |ISP.....DEC YPIX|
00000be0  45 4c 00 f3 13 1a 0e 4c  44 41 20 59 50 49 58 45  |EL.....LDA YPIXE|
00000bf0  4c 00 fe 13 24 0e 42 45  51 20 cf 80 00 0c 14 2e  |L...$.BEQ ......|
00000c00  0e 4a 4d 50 20 cf 4c 49  4e 45 00 1e 14 3d 0e cf  |.JMP .LINE...=..|
00000c10  80 20 4a 4d 50 20 49 52  51 4f 46 46 00 30 14 42  |. JMP IRQOFF.0.B|
00000c20  0e 44 49 53 50 20 4c 44  41 20 23 24 30 30 00 3f  |.DISP LDA #$00.?|
00000c30  14 4c 0e 53 54 41 20 58  50 49 58 45 4c 00 4c 14  |.L.STA XPIXEL.L.|
00000c40  56 0e 44 4c 4f 50 20 54  41 58 00 5c 14 60 0e 4c  |V.DLOP TAX.\.`.L|
00000c50  44 41 20 24 43 30 30 30  2c 58 00 6b 14 6a 0e 43  |DA $C000,X.k.j.C|
00000c60  4d 50 20 58 50 49 58 45  4c 00 79 14 74 0e 42 4e  |MP XPIXEL.y.t.BN|
00000c70  45 20 44 45 4c 53 45 00  85 14 7e 0e 4c 44 41 20  |E DELSE...~.LDA |
00000c80  52 4e 4f 00 8f 14 88 0e  4c 53 52 20 41 00 9b 14  |RNO.....LSR A...|
00000c90  92 0e 49 4e 43 20 24 41  32 00 a7 14 9c 0e 41 44  |..INC $A2.....AD|
00000ca0  43 20 24 41 32 00 b3 14  a6 0e 4c 44 58 20 24 41  |C $A2.....LDX $A|
00000cb0  32 00 c3 14 b0 0e 41 44  43 20 24 30 30 30 30 2c  |2.....ADC $0000,|
00000cc0  58 00 cf 14 ba 0e 53 54  41 20 52 4e 4f 00 da 14  |X.....STA RNO...|
00000cd0  c4 0e af 20 23 24 30 31  00 e9 14 ce 0e 4c 44 58  |... #$01.....LDX|
00000ce0  20 58 50 49 58 45 4c 00  f9 14 d8 0e 53 54 41 20  | XPIXEL.....STA |
00000cf0  24 43 31 30 30 2c 58 00  07 15 e2 0e 4a 4d 50 20  |$C100,X.....JMP |
00000d00  4e 45 4c 53 45 00 1d 15  ec 0e 44 45 4c 53 45 20  |NELSE.....DELSE |
00000d10  4c 44 41 20 24 43 30 30  30 2c 58 00 25 15 f6 0e  |LDA $C000,X.%...|
00000d20  54 41 59 00 35 15 00 0f  4c 44 41 20 24 43 31 30  |TAY.5...LDA $C10|
00000d30  30 2c 59 00 45 15 0a 0f  53 54 41 20 24 43 31 30  |0,Y.E...STA $C10|
00000d40  30 2c 58 00 58 15 14 0f  4e 45 4c 53 45 20 43 4d  |0,X.X...NELSE CM|
00000d50  50 20 23 24 30 30 00 65  15 1e 0f 42 45 51 20 4e  |P #$00.e...BEQ N|
00000d60  4f 42 4c 00 73 15 28 0f  4a 53 52 20 50 4c 4f a4  |OBL.s.(.JSR PLO.|
00000d70  4e 00 82 15 2d 0f 4a 4d  50 20 52 45 44 49 53 50  |N...-.JMP REDISP|
00000d80  00 96 15 32 0f 4e 4f 42  4c 20 4a 53 52 20 50 4c  |...2.NOBL JSR PL|
00000d90  4f a4 46 46 00 ac 15 3c  0f 52 45 44 49 53 50 20  |O.FF...<.REDISP |
00000da0  44 45 43 20 58 50 49 58  45 4c 00 bb 15 46 0f 4c  |DEC XPIXEL...F.L|
00000db0  44 41 20 58 50 49 58 45  4c 00 c8 15 50 0f 42 4e  |DA XPIXEL...P.BN|
00000dc0  45 20 44 4c 4f 50 00 d0  15 55 0f 52 54 53 00 df  |E DLOP...U.RTS..|
00000dd0  15 5a 0f 49 52 51 4f 46  46 20 53 45 49 00 f1 15  |.Z.IRQOFF SEI...|
00000de0  64 0f 4c 44 41 20 23 b3  49 52 51 48 4f 4c 44 00  |d.LDA #.IRQHOLD.|
00000df0  ff 15 6e 0f 53 54 41 20  24 30 33 31 34 00 11 16  |..n.STA $0314...|
00000e00  78 0f 4c 44 41 20 23 b1  49 52 51 48 4f 4c 44 00  |x.LDA #.IRQHOLD.|
00000e10  1f 16 82 0f 53 54 41 20  24 30 33 31 35 00 27 16  |....STA $0315.'.|
00000e20  8c 0f 43 4c 49 00 2f 16  96 0f 52 54 53 00 44 16  |..CLI./...RTS.D.|
00000e30  a0 0f 49 52 51 48 4f 4c  44 20 4c 44 41 20 23 24  |..IRQHOLD LDA #$|
00000e40  30 31 00 52 16 aa 0f 53  54 41 20 24 44 30 31 39  |01.R...STA $D019|
00000e50  00 62 16 b4 0f 4a 4d 50  20 28 56 45 43 a4 52 29  |.b...JMP (VEC.R)|
00000e60  00 89 16 88 13 3b 20 20  20 20 20 20 20 20 20 20  |.....;          |
00000e70  20 20 20 20 20 49 4e 54  45 52 52 55 50 54 20 52  |     INTERRUPT R|
00000e80  4f 55 54 49 4e 45 53 00  9a 16 92 13 49 52 51 20  |OUTINES.....IRQ |
00000e90  4c 44 41 20 23 24 30 31  00 a8 16 94 13 53 54 41  |LDA #$01.....STA|
00000ea0  20 24 44 30 31 39 00 b6  16 96 13 4c 44 41 20 24  | $D019.....LDA $|
00000eb0  44 30 31 32 00 c4 16 9c  13 42 45 51 20 49 52 51  |D012.....BEQ IRQ|
00000ec0  a4 50 00 d1 16 a6 13 4c  44 59 20 23 24 30 32 00  |.P.....LDY #$02.|
00000ed0  de 16 b0 13 49 4c 4f 50  20 44 45 59 00 eb 16 ba  |....ILOP DEY....|
00000ee0  13 42 4e 45 20 49 4c 4f  50 00 f9 16 c4 13 4c 44  |.BNE ILOP.....LD|
00000ef0  41 20 24 44 30 31 36 00  05 17 ce 13 b0 41 20 23  |A $D016......A #|
00000f00  24 31 30 00 13 17 d8 13  53 54 41 20 24 44 30 31  |$10.....STA $D01|
00000f10  36 00 20 17 e2 13 4c 44  41 20 23 24 30 30 00 2e  |6. ...LDA #$00..|
00000f20  17 ec 13 53 54 41 20 24  44 30 31 32 00 3c 17 f6  |...STA $D012.<..|
00000f30  13 4a 4d 50 20 24 45 41  38 31 00 50 17 00 14 49  |.JMP $EA81.P...I|
00000f40  52 51 a4 50 20 4c 44 41  20 24 44 30 31 36 00 5b  |RQ.P LDA $D016.[|
00000f50  17 0a 14 af 20 23 24 45  46 00 69 17 14 14 53 54  |.... #$EF.i...ST|
00000f60  41 20 24 44 30 31 36 00  76 17 17 14 4c 44 41 20  |A $D016.v...LDA |
00000f70  23 24 43 37 00 7e 17 1a  14 53 45 43 00 8d 17 1e  |#$C7.~...SEC....|
00000f80  14 53 42 43 20 59 50 49  58 45 4c 00 95 17 28 14  |.SBC YPIXEL...(.|
00000f90  43 4c 43 00 a2 17 32 14  41 44 43 20 23 24 33 32  |CLC...2.ADC #$32|
00000fa0  00 b0 17 3c 14 53 54 41  20 24 44 30 31 32 00 c0  |...<.STA $D012..|
00000fb0  17 46 14 4a 4d 50 20 28  56 45 43 a4 52 29 00 cd  |.F.JMP (VEC.R)..|
00000fc0  17 c8 14 49 52 51 91 20  53 45 49 00 db 17 cf 14  |...IRQ. SEI.....|
00000fd0  4c 44 41 20 24 30 33 31  34 00 e9 17 d0 14 53 54  |LDA $0314.....ST|
00000fe0  41 20 56 45 43 a4 52 00  f7 17 d1 14 4c 44 41 20  |A VEC.R.....LDA |
00000ff0  24 30 33 31 35 00 07 18  d2 14 53 54 41 20 56 45  |$0315.....STA VE|
00001000  43 a4 52 aa 31 00 14 18  d7 14 4c 44 41 20 23 24  |C.R.1.....LDA #$|
00001010  30 31 00 22 18 dc 14 53  54 41 20 24 44 30 31 39  |01."...STA $D019|
00001020  00 30 18 e6 14 53 54 41  20 24 44 30 31 41 00 3e  |.0...STA $D01A.>|
00001030  18 f0 14 53 54 41 20 24  44 43 30 44 00 4b 18 fa  |...STA $DC0D.K..|
00001040  14 4c 44 41 20 23 24 33  42 00 59 18 04 15 53 54  |.LDA #$3B.Y...ST|
00001050  41 20 24 44 30 31 31 00  66 18 0e 15 4c 44 41 20  |A $D011.f...LDA |
00001060  23 24 30 30 00 74 18 18  15 53 54 41 20 24 44 30  |#$00.t...STA $D0|
00001070  31 32 00 82 18 22 15 4c  44 41 20 23 b3 49 52 51  |12...".LDA #.IRQ|
00001080  00 90 18 2c 15 53 54 41  20 24 30 33 31 34 00 9e  |...,.STA $0314..|
00001090  18 36 15 4c 44 41 20 23  b1 49 52 51 00 ac 18 40  |.6.LDA #.IRQ...@|
000010a0  15 53 54 41 20 24 30 33  31 35 00 b4 18 4a 15 43  |.STA $0315...J.C|
000010b0  4c 49 00 bc 18 54 15 52  54 53 00 e3 18 59 15 3b  |LI...T.RTS...Y.;|
000010c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000010d0  20 20 20 20 20 49 ad 4f  20 52 4f 55 54 49 4e 45  |     I.O ROUTINE|
000010e0  53 00 f5 18 5e 15 4c 53  43 52 20 4c 44 41 20 23  |S...^.LSCR LDA #|
000010f0  24 30 31 00 02 19 68 15  4c 44 58 20 24 46 46 46  |$01...h.LDX $FFF|
00001100  00 0f 19 72 15 4c 44 59  20 23 24 30 30 00 1d 19  |...r.LDY #$00...|
00001110  7c 15 4a 53 52 20 24 46  46 42 41 00 2b 19 86 15  ||.JSR $FFBA.+...|
00001120  4c 44 41 20 24 43 30 30  30 00 38 19 90 15 4c 44  |LDA $C000.8...LD|
00001130  58 20 23 24 30 38 00 45  19 9a 15 4c 44 59 20 23  |X #$08.E...LDY #|
00001140  24 43 30 00 53 19 a4 15  4a 53 52 20 24 46 46 42  |$C0.S...JSR $FFB|
00001150  44 00 60 19 b8 15 4c 44  41 20 23 24 30 30 00 6d  |D.`...LDA #$00.m|
00001160  19 bb 15 4c 44 58 20 23  24 30 30 00 7a 19 be 15  |...LDX #$00.z...|
00001170  4c 44 59 20 23 24 32 30  00 88 19 c2 15 4a 4d 50  |LDY #$20.....JMP|
00001180  20 24 46 46 44 35 00 9a  19 e0 15 53 53 43 52 20  | $FFD5.....SSCR |
00001190  4c 44 41 20 23 24 30 31  00 a7 19 ea 15 4c 44 58  |LDA #$01.....LDX|
000011a0  20 24 46 46 46 00 af 19  f4 15 54 41 59 00 bd 19  | $FFF.....TAY...|
000011b0  fe 15 4a 53 52 20 24 46  46 42 41 00 cb 19 08 16  |..JSR $FFBA.....|
000011c0  4c 44 41 20 24 31 38 30  38 00 d8 19 12 16 4c 44  |LDA $1808.....LD|
000011d0  58 20 23 24 31 30 00 e5  19 1c 16 4c 44 59 20 23  |X #$10.....LDY #|
000011e0  24 31 38 00 f3 19 26 16  4a 53 52 20 24 46 46 42  |$18...&.JSR $FFB|
000011f0  44 00 00 1a 30 16 4c 44  41 20 23 24 32 30 00 0c  |D...0.LDA #$20..|
00001200  1a 3a 16 53 54 41 20 24  46 43 00 19 1a 44 16 4c  |.:.STA $FC...D.L|
00001210  44 41 20 23 24 46 42 00  26 1a 4e 16 4c 44 58 20  |DA #$FB.&.N.LDX |
00001220  23 24 30 30 00 33 1a 58  16 4c 44 59 20 23 24 34  |#$00.3.X.LDY #$4|
00001230  30 00 3f 1a 62 16 53 54  58 20 24 46 42 00 4d 1a  |0.?.b.STX $FB.M.|
00001240  6c 16 4a 4d 50 20 24 46  46 44 38 00 00 00        |l.JMP $FFD8...|
0000124e