; AUTOSTEREOGRAM GENERATOR&;5; 17/12/95;(;G2��$C200S<I�$CF00_FJ�$CF01kPS�$CF02yZSEP�$CF03�dXPIXEL�$CF04�nYPIXEL�$CF05�xXPIB�$CF06��YPIB�$CF07��RNO�$CF08��;           GRAPHIC PO� PLOTTER��PLOTPC LDA #$47	�STA $FB	LDA #$3F$	STA $FC3	LDA YPIXEL=	$LSR AG	.LSR AQ	8LSR A^	BSTA YPIBi	L� #$03s	VASL A}	`ASL A�	jASL A�	tASL A�	~ASL A�	�ASL A�	�STA $02�	�LDA $FB�	�SEC�	�SBC $02�	�STA $FB�	�LDA $FC�	�SBC #$00
�SBC YPIB
�PHA
�LDA YPIB"
�LSR A,
LSR A8

STA $02@
PLAH
SECT
(SBC $02`
2STA $FCo
<LDA YPIXELz
F� #$07�
PSTA YPIB�
ZLDA $FB�
dSEC�
nSBC YPIB�
xPHA�
�LDA XPIXEL�
�� #$F8�
�STA YPIB�
�PLA�
�CLC�
�ADC YPIB�STA $FB�LDA $FC�SBC #$00%�STA $FC4�LDA XPIXEL?�� #$07G�TAXTLDA #$80hGBITLP CPX #$00tBEQ PP�~"LSR A�,DEX�6JMP GBITLP�@PP� STA $FD�JRTS�TPLO�N JSR PLOTPC�^LDY #$00�hLDA ($FB),Y�r�A $FD�|STA ($FB),Y�RTS�PLO�FF JSR PLOTPC$�LDA $FD0�E� #$FF<�STA $FDI�LDY #$00Y�LDA ($FB),Yc�� $FDs�STA ($FB),Y{�RTS���PIX JSR PLOTPC��LDY #$00��LDA ($FB),Y�� $FD�BNE ���LDA #$2D�RTS�&�� LDA #$29�0RTS
�;                BITMAP ON ROUTINE+
�GRAPHIC LDA $D0186
�� #$01B
��A #$18P
�STA $D018^
LDA $DD02j
�A #$03x
STA $DD02�
 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),Y0�INY>�BNE GRLOPJ�INC $FCV�LDX $FCc�CPX #$08q�BNE GRLOPy�RTS��;        AUTOSTEREOGRAM CALCULATOR���STEREO JSR GRAPHIC��LDA #$C7��STA YPIXEL���LINE LDY #$00��STY $FB�LDA #$C0�STA $FCLINELOP TYA,STA ($FB),Y4INYD&BNE LINELOPQ0LDA #$00`:STA XPIXELrD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 I�CLC�ADC SEP�BCS XRELOP%�STA J6�REPEAT LDX IF�LDA $C000,XP
STA SZ
CMP Ji
BCS LLELSEs 
STA I�*
JMP L210�4
LLELSE LDA J�>
STA $C000,X�H
STA I�R
LDA S�\
STA J�f
L210 LDX I�p
LDA $C000,X�z
CMP I��
BNE REPEAT
�
LDX J�
LDA $C000,X�
CMP J*�
BNE REPEAT4�
LDA J>�
LDX IN�
STA $C000,Xd�
XRELOP LDX XPIXELl�
INX{�
BEQ YRELOP��
STX XPIXEL��
JMP XLOP�YRELOP JSR DISP�DEC YPIXEL�LDA YPIXEL�$BEQ π�.JMP �LINE�8π RTS�BDISP LDA #$00LSTA XPIXELVDLOP TAX+`LDA $C000,X:jCMP XPIXELHtBNE DELSET~LDA RNO^�LSR Aj�INC $A2v�ADC $A2��LDX $A2��ADC $0000,X��STA RNO��� #$01��LDX XPIXEL��STA $C100,X��JMP NELSE��DELSE LDA $C000,X��TAYLDA $C100,Y
STA $C100,X'NELSE CMP #$004BEQ NOBLB(JSR PLO�NQ-JMP REDISPe2NOBL JSR PLO�FF{<REDISP DEC XPIXEL�FLDA XPIXEL�PBNE DLOP�ZRTS

 HJ@; autostereogram generator@&HT@;@5H.@; 17/12/95@;H(@;@gH2@..$c200@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.C;           graphic po. plotter@.H.Cplotpc lda #$47@KI.Csta $fb@XIFDlda #$3f@$IPDsta $fc@3IZDlda ypixel@=I$Dlsr a@gI.Dlsr a@qI8Dlsr a@.IbDsta ypib@IIlD. #$03@SIvDasl a@.I.Dasl a@.IJDasl a@.ITDasl a@.I.Dasl a@.I.Dasl a@.I.Dsta $02@.I.Dlda $fb@.I.Dsec@.I.Dsbc $02@.I.Dsta $fb@.I.Dlda $fc@.I.Dsbc #$00@CJ.Dsbc ypib@KJ.Dpha@XJ.Dlda ypib@"J.Dlsr a@,J@Elsr a@8JJEsta $02@@JTEpla@hJ.Esec@tJ(Esbc $02@.J2Esta $fc@OJ<Elda ypixel@ZJfE. #$07@.JpEsta ypib@.JzElda $fb@.JDEsec@.JNEsbc ypib@.JXEpha@.J.Elda xpixel@.J.E. #$f8@.J.Esta ypib@.J.Epla@.J.Eclc@.J.Eadc ypib@@K.Esta $fb@LK.Elda $fc@YK.Esbc #$00@%K.Esta $fc@4K.Elda xpixel@?K.E. #$07@gK.Etax@tKDFlda #$80@HKNFgbitlp cpx #$00@TKXFbeq pp.@.K"Flsr a@.K,Fdex@.K6Fjmp gbitlp@.K@Fpp. sta $fd@.KjFrts@.KtFplo.n jsr plotpc@.K.Fldy #$00@.KHFlda ($fb),y@.KRF.a $fd@.K.Fsta ($fb),y@BL.Frts@XL.Fplo.ff jsr plotpc@$L.Flda $fd@0L.Fe. #$ff@<L.Fsta $fd@iL.Fldy #$00@yL.Flda ($fb),y@CL.F. $fd@SL.Fsta ($fb),y@.L.Frts@.L.F.pix jsr plotpc@.L.Fldy #$00@.L.Flda ($fb),y@.LHG. $fd@.LRGbne ..@.LWGlda #$2d@.L£Grts@.L&G.. lda #$29@.L0Grts@UM.G;                bitmap on routine@+M.Ggraphic lda $d018@6M.G. #$01@bM.G.a #$18@pM.Gsta $d018@.MBHlda $dd02@JMLH.a #$03@XMVHsta $dd02@.M Hlda $dd00@.M*H. #$fc@.M4H.a #$03@.M>Hsta $dd00@.MhHlda $d011@.MrH.a #$20@.M£Hsta $d011@.MFHlda #$04@.MPHsta $fc@.MZHldy #$00@EN.Hsty $fb@RN.Hlda #$01@(N.Hgrlop sta ($fb),y@0N.Hiny@>N.Hbne grlop@jN.Hinc $fc@vN.Hldx $fc@CN.Hcpx #$08@QN.Hbne grlop@YN.Hrts@.N.K;        autostereogram calculator@.N.K.stereo jsr graphic@.N.Klda #$c7@.N.Ksta ypixel@.N.K.line ldy #$00@.N.Ksty $fb@@O.Klda #$c0@LO.Ksta $fc@£OHLlinelop tya@,ORLsta ($fb),y@4O£Liny@dO&Lbne linelop@qO0Llda #$00@.O:Lsta xpixel@ROdLxlop jsr .pix@.OnLsta sep@.OxL. ypixel@.OBL. #$01@.OLLclc@.OVLadc sep@.O.Llsr a@.O.Lsta i@.O.Llda xpixel@.O.Lsec@.O.Lsbc i@.O.Lbcc xrelop@.O.Lsta i@@P.Lclc@LP.Ladc sep@[P.Lbcs xrelop@%P.Lsta j@6P.Lrepeat ldx i@fP.Llda $c000,x@pPBMsta s@zPLMcmp j@IPVMbcs llelse@SP Msta i@.P*Mjmp l210@.P4Mllelse lda j@.P>Msta $c000,x@.PhMsta i@.PrMlda s@.P£Msta j@.PFMl210 ldx i@.PPMlda $c000,x@.PZMcmp i@.P.Mbne repeat@AQ.Mldx j@QQ.Mlda $c000,x@[Q.Mcmp j@*Q.Mbne repeat@4Q.Mlda j@>Q.Mldx i@nQ.Msta $c000,x@DQ.Mxrelop ldx xpixel@LQ.Minx@.Q.Mbeq yrelop@.Q.Mstx xpixel@.Q.Mjmp xlop@.QFNyrelop jsr disp@.QPNdec ypixel@.QZNlda ypixel@.Q$Nbeq ..@.Q.Njmp .line@.Q8N.. rts@.QbNdisp lda #$00@NRlNsta xpixel@[RvNdlop tax@+R.Nlda $c000,x@:RJNcmp xpixel@hRTNbne delse@tR.Nlda rno@.R.Nlsr a@JR.Ninc $a2@VR.Nadc $a2@.R.Nldx $a2@.R.Nadc $0000,x@.R.Nsta rno@.R.N. #$01@.R.Nldx xpixel@.R.Nsta $c100,x@.R.Njmp nelse@.R.Ndelse lda $c000,x@.R.Ntay@DS@Olda $c100,y@TSJOsta $c100,x@'STOnelse cmp #$00@4S.Obeq nobl@bS(Ojsr plo.n@qS-Ojmp redisp@ES2Onobl jsr plo.ff@.S<Oredisp dec xpixel@.SfOlda xpixel@.SpObne dlop@.SzOrts@@@

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 43 32 30 30 00 53 08  3c 00 49 b2 24 43 46 30  |$C200.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 eb 08  e8 03 3b 20 20 20 20 20  |$CF08.....;     |
000000d0  20 20 20 20 20 20 47 52  41 50 48 49 43 20 50 4f  |      GRAPHIC PO|
000000e0  b5 20 50 4c 4f 54 54 45  52 00 ff 08 f2 03 50 4c  |. PLOTTER.....PL|
000000f0  4f 54 50 43 20 4c 44 41  20 23 24 34 37 00 0b 09  |OTPC LDA #$47...|
00000100  fc 03 53 54 41 20 24 46  42 00 18 09 06 04 4c 44  |..STA $FB.....LD|
00000110  41 20 23 24 33 46 00 24  09 10 04 53 54 41 20 24  |A #$3F.$...STA $|
00000120  46 43 00 33 09 1a 04 4c  44 41 20 59 50 49 58 45  |FC.3...LDA YPIXE|
00000130  4c 00 3d 09 24 04 4c 53  52 20 41 00 47 09 2e 04  |L.=.$.LSR A.G...|
00000140  4c 53 52 20 41 00 51 09  38 04 4c 53 52 20 41 00  |LSR A.Q.8.LSR A.|
00000150  5e 09 42 04 53 54 41 20  59 50 49 42 00 69 09 4c  |^.B.STA YPIB.i.L|
00000160  04 af 20 23 24 30 33 00  73 09 56 04 41 53 4c 20  |.. #$03.s.V.ASL |
00000170  41 00 7d 09 60 04 41 53  4c 20 41 00 87 09 6a 04  |A.}.`.ASL A...j.|
00000180  41 53 4c 20 41 00 91 09  74 04 41 53 4c 20 41 00  |ASL A...t.ASL A.|
00000190  9b 09 7e 04 41 53 4c 20  41 00 a5 09 88 04 41 53  |..~.ASL A.....AS|
000001a0  4c 20 41 00 b1 09 92 04  53 54 41 20 24 30 32 00  |L A.....STA $02.|
000001b0  bd 09 9c 04 4c 44 41 20  24 46 42 00 c5 09 a6 04  |....LDA $FB.....|
000001c0  53 45 43 00 d1 09 b0 04  53 42 43 20 24 30 32 00  |SEC.....SBC $02.|
000001d0  dd 09 ba 04 53 54 41 20  24 46 42 00 e9 09 c4 04  |....STA $FB.....|
000001e0  4c 44 41 20 24 46 43 00  f6 09 ce 04 53 42 43 20  |LDA $FC.....SBC |
000001f0  23 24 30 30 00 03 0a d8  04 53 42 43 20 59 50 49  |#$00.....SBC YPI|
00000200  42 00 0b 0a e2 04 50 48  41 00 18 0a ec 04 4c 44  |B.....PHA.....LD|
00000210  41 20 59 50 49 42 00 22  0a f6 04 4c 53 52 20 41  |A YPIB."...LSR A|
00000220  00 2c 0a 00 05 4c 53 52  20 41 00 38 0a 0a 05 53  |.,...LSR A.8...S|
00000230  54 41 20 24 30 32 00 40  0a 14 05 50 4c 41 00 48  |TA $02.@...PLA.H|
00000240  0a 1e 05 53 45 43 00 54  0a 28 05 53 42 43 20 24  |...SEC.T.(.SBC $|
00000250  30 32 00 60 0a 32 05 53  54 41 20 24 46 43 00 6f  |02.`.2.STA $FC.o|
00000260  0a 3c 05 4c 44 41 20 59  50 49 58 45 4c 00 7a 0a  |.<.LDA YPIXEL.z.|
00000270  46 05 af 20 23 24 30 37  00 87 0a 50 05 53 54 41  |F.. #$07...P.STA|
00000280  20 59 50 49 42 00 93 0a  5a 05 4c 44 41 20 24 46  | YPIB...Z.LDA $F|
00000290  42 00 9b 0a 64 05 53 45  43 00 a8 0a 6e 05 53 42  |B...d.SEC...n.SB|
000002a0  43 20 59 50 49 42 00 b0  0a 78 05 50 48 41 00 bf  |C YPIB...x.PHA..|
000002b0  0a 82 05 4c 44 41 20 58  50 49 58 45 4c 00 ca 0a  |...LDA XPIXEL...|
000002c0  8c 05 af 20 23 24 46 38  00 d7 0a 96 05 53 54 41  |... #$F8.....STA|
000002d0  20 59 50 49 42 00 df 0a  a0 05 50 4c 41 00 e7 0a  | YPIB.....PLA...|
000002e0  aa 05 43 4c 43 00 f4 0a  b4 05 41 44 43 20 59 50  |..CLC.....ADC YP|
000002f0  49 42 00 00 0b be 05 53  54 41 20 24 46 42 00 0c  |IB.....STA $FB..|
00000300  0b c8 05 4c 44 41 20 24  46 43 00 19 0b d2 05 53  |...LDA $FC.....S|
00000310  42 43 20 23 24 30 30 00  25 0b dc 05 53 54 41 20  |BC #$00.%...STA |
00000320  24 46 43 00 34 0b e6 05  4c 44 41 20 58 50 49 58  |$FC.4...LDA XPIX|
00000330  45 4c 00 3f 0b f0 05 af  20 23 24 30 37 00 47 0b  |EL.?.... #$07.G.|
00000340  fa 05 54 41 58 00 54 0b  04 06 4c 44 41 20 23 24  |..TAX.T...LDA #$|
00000350  38 30 00 68 0b 0e 06 47  42 49 54 4c 50 20 43 50  |80.h...GBITLP CP|
00000360  58 20 23 24 30 30 00 74  0b 18 06 42 45 51 20 50  |X #$00.t...BEQ P|
00000370  50 9a 00 7e 0b 22 06 4c  53 52 20 41 00 86 0b 2c  |P..~.".LSR A...,|
00000380  06 44 45 58 00 95 0b 36  06 4a 4d 50 20 47 42 49  |.DEX...6.JMP GBI|
00000390  54 4c 50 00 a5 0b 40 06  50 50 9a 20 53 54 41 20  |TLP...@.PP. STA |
000003a0  24 46 44 00 ad 0b 4a 06  52 54 53 00 c2 0b 54 06  |$FD...J.RTS...T.|
000003b0  50 4c 4f a4 4e 20 4a 53  52 20 50 4c 4f 54 50 43  |PLO.N JSR PLOTPC|
000003c0  00 cf 0b 5e 06 4c 44 59  20 23 24 30 30 00 df 0b  |...^.LDY #$00...|
000003d0  68 06 4c 44 41 20 28 24  46 42 29 2c 59 00 ea 0b  |h.LDA ($FB),Y...|
000003e0  72 06 b0 41 20 24 46 44  00 fa 0b 7c 06 53 54 41  |r..A $FD...|.STA|
000003f0  20 28 24 46 42 29 2c 59  00 02 0c 86 06 52 54 53  | ($FB),Y.....RTS|
00000400  00 18 0c 90 06 50 4c 4f  a4 46 46 20 4a 53 52 20  |.....PLO.FF JSR |
00000410  50 4c 4f 54 50 43 00 24  0c 9a 06 4c 44 41 20 24  |PLOTPC.$...LDA $|
00000420  46 44 00 30 0c a4 06 45  b0 20 23 24 46 46 00 3c  |FD.0...E. #$FF.<|
00000430  0c ae 06 53 54 41 20 24  46 44 00 49 0c b8 06 4c  |...STA $FD.I...L|
00000440  44 59 20 23 24 30 30 00  59 0c c2 06 4c 44 41 20  |DY #$00.Y...LDA |
00000450  28 24 46 42 29 2c 59 00  63 0c cc 06 af 20 24 46  |($FB),Y.c.... $F|
00000460  44 00 73 0c d6 06 53 54  41 20 28 24 46 42 29 2c  |D.s...STA ($FB),|
00000470  59 00 7b 0c e0 06 52 54  53 00 8f 0c ea 06 87 50  |Y.{...RTS......P|
00000480  49 58 20 4a 53 52 20 50  4c 4f 54 50 43 00 9c 0c  |IX JSR PLOTPC...|
00000490  f4 06 4c 44 59 20 23 24  30 30 00 ac 0c fe 06 4c  |..LDY #$00.....L|
000004a0  44 41 20 28 24 46 42 29  2c 59 00 b6 0c 08 07 af  |DA ($FB),Y......|
000004b0  20 24 46 44 00 c1 0c 12  07 42 4e 45 20 87 b9 00  | $FD.....BNE ...|
000004c0  ce 0c 17 07 4c 44 41 20  23 24 32 44 00 d6 0c 1c  |....LDA #$2D....|
000004d0  07 52 54 53 00 e6 0c 26  07 87 b9 20 4c 44 41 20  |.RTS...&... LDA |
000004e0  23 24 32 39 00 ee 0c 30  07 52 54 53 00 15 0d d0  |#$29...0.RTS....|
000004f0  07 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00000500  20 20 42 49 54 4d 41 50  20 4f 4e 20 52 4f 55 54  |  BITMAP ON ROUT|
00000510  49 4e 45 00 2b 0d da 07  47 52 41 50 48 49 43 20  |INE.+...GRAPHIC |
00000520  4c 44 41 20 24 44 30 31  38 00 36 0d e4 07 af 20  |LDA $D018.6.... |
00000530  23 24 30 31 00 42 0d ee  07 b0 41 20 23 24 31 38  |#$01.B....A #$18|
00000540  00 50 0d f8 07 53 54 41  20 24 44 30 31 38 00 5e  |.P...STA $D018.^|
00000550  0d 02 08 4c 44 41 20 24  44 44 30 32 00 6a 0d 0c  |...LDA $DD02.j..|
00000560  08 b0 41 20 23 24 30 33  00 78 0d 16 08 53 54 41  |..A #$03.x...STA|
00000570  20 24 44 44 30 32 00 86  0d 20 08 4c 44 41 20 24  | $DD02... .LDA $|
00000580  44 44 30 30 00 91 0d 2a  08 af 20 23 24 46 43 00  |DD00...*.. #$FC.|
00000590  9d 0d 34 08 b0 41 20 23  24 30 33 00 ab 0d 3e 08  |..4..A #$03...>.|
000005a0  53 54 41 20 24 44 44 30  30 00 b9 0d 48 08 4c 44  |STA $DD00...H.LD|
000005b0  41 20 24 44 30 31 31 00  c5 0d 52 08 b0 41 20 23  |A $D011...R..A #|
000005c0  24 32 30 00 d3 0d 5c 08  53 54 41 20 24 44 30 31  |$20...\.STA $D01|
000005d0  31 00 e0 0d 66 08 4c 44  41 20 23 24 30 34 00 ec  |1...f.LDA #$04..|
000005e0  0d 70 08 53 54 41 20 24  46 43 00 f9 0d 7a 08 4c  |.p.STA $FC...z.L|
000005f0  44 59 20 23 24 30 30 00  05 0e 84 08 53 54 59 20  |DY #$00.....STY |
00000600  24 46 42 00 12 0e 8e 08  4c 44 41 20 23 24 30 31  |$FB.....LDA #$01|
00000610  00 28 0e 98 08 47 52 4c  4f 50 20 53 54 41 20 28  |.(...GRLOP STA (|
00000620  24 46 42 29 2c 59 00 30  0e a2 08 49 4e 59 00 3e  |$FB),Y.0...INY.>|
00000630  0e ac 08 42 4e 45 20 47  52 4c 4f 50 00 4a 0e b6  |...BNE GRLOP.J..|
00000640  08 49 4e 43 20 24 46 43  00 56 0e c0 08 4c 44 58  |.INC $FC.V...LDX|
00000650  20 24 46 43 00 63 0e ca  08 43 50 58 20 23 24 30  | $FC.c...CPX #$0|
00000660  38 00 71 0e d4 08 42 4e  45 20 47 52 4c 4f 50 00  |8.q...BNE GRLOP.|
00000670  79 0e de 08 52 54 53 00  a0 0e b8 0b 3b 20 20 20  |y...RTS.....;   |
00000680  20 20 20 20 20 41 55 54  4f 53 54 45 52 45 4f 47  |     AUTOSTEREOG|
00000690  52 41 4d 20 43 41 4c 43  55 4c 41 54 4f 52 00 b8  |RAM CALCULATOR..|
000006a0  0e c2 0b cf 53 54 45 52  45 4f 20 4a 53 52 20 47  |....STEREO JSR G|
000006b0  52 41 50 48 49 43 00 c5  0e cc 0b 4c 44 41 20 23  |RAPHIC.....LDA #|
000006c0  24 43 37 00 d4 0e d6 0b  53 54 41 20 59 50 49 58  |$C7.....STA YPIX|
000006d0  45 4c 00 e7 0e e0 0b cf  4c 49 4e 45 20 4c 44 59  |EL......LINE LDY|
000006e0  20 23 24 30 30 00 f3 0e  ea 0b 53 54 59 20 24 46  | #$00.....STY $F|
000006f0  42 00 00 0f f4 0b 4c 44  41 20 23 24 43 30 00 0c  |B.....LDA #$C0..|
00000700  0f fe 0b 53 54 41 20 24  46 43 00 1c 0f 08 0c 4c  |...STA $FC.....L|
00000710  49 4e 45 4c 4f 50 20 54  59 41 00 2c 0f 12 0c 53  |INELOP TYA.,...S|
00000720  54 41 20 28 24 46 42 29  2c 59 00 34 0f 1c 0c 49  |TA ($FB),Y.4...I|
00000730  4e 59 00 44 0f 26 0c 42  4e 45 20 4c 49 4e 45 4c  |NY.D.&.BNE LINEL|
00000740  4f 50 00 51 0f 30 0c 4c  44 41 20 23 24 30 30 00  |OP.Q.0.LDA #$00.|
00000750  60 0f 3a 0c 53 54 41 20  58 50 49 58 45 4c 00 72  |`.:.STA XPIXEL.r|
00000760  0f 44 0c 58 4c 4f 50 20  4a 53 52 20 87 50 49 58  |.D.XLOP JSR .PIX|
00000770  00 7e 0f 4e 0c 53 54 41  20 53 45 50 00 8b 0f 58  |.~.N.STA SEP...X|
00000780  0c af 20 59 50 49 58 45  4c 00 96 0f 62 0c af 20  |.. YPIXEL...b.. |
00000790  23 24 30 31 00 9e 0f 6c  0c 43 4c 43 00 aa 0f 76  |#$01...l.CLC...v|
000007a0  0c 41 44 43 20 53 45 50  00 b4 0f 80 0c 4c 53 52  |.ADC SEP.....LSR|
000007b0  20 41 00 be 0f 8a 0c 53  54 41 20 49 00 cd 0f 94  | A.....STA I....|
000007c0  0c 4c 44 41 20 58 50 49  58 45 4c 00 d5 0f 9e 0c  |.LDA XPIXEL.....|
000007d0  53 45 43 00 df 0f a8 0c  53 42 43 20 49 00 ee 0f  |SEC.....SBC I...|
000007e0  b2 0c 42 43 43 20 58 52  45 4c 4f 50 00 f8 0f bc  |..BCC XRELOP....|
000007f0  0c 53 54 41 20 49 00 00  10 c6 0c 43 4c 43 00 0c  |.STA I.....CLC..|
00000800  10 d0 0c 41 44 43 20 53  45 50 00 1b 10 da 0c 42  |...ADC SEP.....B|
00000810  43 53 20 58 52 45 4c 4f  50 00 25 10 e4 0c 53 54  |CS XRELOP.%...ST|
00000820  41 20 4a 00 36 10 ee 0c  52 45 50 45 41 54 20 4c  |A J.6...REPEAT L|
00000830  44 58 20 49 00 46 10 f8  0c 4c 44 41 20 24 43 30  |DX I.F...LDA $C0|
00000840  30 30 2c 58 00 50 10 02  0d 53 54 41 20 53 00 5a  |00,X.P...STA S.Z|
00000850  10 0c 0d 43 4d 50 20 4a  00 69 10 16 0d 42 43 53  |...CMP J.i...BCS|
00000860  20 4c 4c 45 4c 53 45 00  73 10 20 0d 53 54 41 20  | LLELSE.s. .STA |
00000870  49 00 80 10 2a 0d 4a 4d  50 20 4c 32 31 30 00 91  |I...*.JMP L210..|
00000880  10 34 0d 4c 4c 45 4c 53  45 20 4c 44 41 20 4a 00  |.4.LLELSE LDA J.|
00000890  a1 10 3e 0d 53 54 41 20  24 43 30 30 30 2c 58 00  |..>.STA $C000,X.|
000008a0  ab 10 48 0d 53 54 41 20  49 00 b5 10 52 0d 4c 44  |..H.STA I...R.LD|
000008b0  41 20 53 00 bf 10 5c 0d  53 54 41 20 4a 00 ce 10  |A S...\.STA J...|
000008c0  66 0d 4c 32 31 30 20 4c  44 58 20 49 00 de 10 70  |f.L210 LDX I...p|
000008d0  0d 4c 44 41 20 24 43 30  30 30 2c 58 00 e8 10 7a  |.LDA $C000,X...z|
000008e0  0d 43 4d 50 20 49 00 f7  10 84 0d 42 4e 45 20 52  |.CMP I.....BNE R|
000008f0  45 50 45 41 54 00 01 11  8e 0d 4c 44 58 20 4a 00  |EPEAT.....LDX J.|
00000900  11 11 98 0d 4c 44 41 20  24 43 30 30 30 2c 58 00  |....LDA $C000,X.|
00000910  1b 11 a2 0d 43 4d 50 20  4a 00 2a 11 ac 0d 42 4e  |....CMP J.*...BN|
00000920  45 20 52 45 50 45 41 54  00 34 11 b6 0d 4c 44 41  |E REPEAT.4...LDA|
00000930  20 4a 00 3e 11 c0 0d 4c  44 58 20 49 00 4e 11 ca  | J.>...LDX I.N..|
00000940  0d 53 54 41 20 24 43 30  30 30 2c 58 00 64 11 d4  |.STA $C000,X.d..|
00000950  0d 58 52 45 4c 4f 50 20  4c 44 58 20 58 50 49 58  |.XRELOP LDX XPIX|
00000960  45 4c 00 6c 11 de 0d 49  4e 58 00 7b 11 e8 0d 42  |EL.l...INX.{...B|
00000970  45 51 20 59 52 45 4c 4f  50 00 8a 11 f2 0d 53 54  |EQ YRELOP.....ST|
00000980  58 20 58 50 49 58 45 4c  00 97 11 fc 0d 4a 4d 50  |X XPIXEL.....JMP|
00000990  20 58 4c 4f 50 00 ab 11  06 0e 59 52 45 4c 4f 50  | XLOP.....YRELOP|
000009a0  20 4a 53 52 20 44 49 53  50 00 ba 11 10 0e 44 45  | JSR DISP.....DE|
000009b0  43 20 59 50 49 58 45 4c  00 c9 11 1a 0e 4c 44 41  |C YPIXEL.....LDA|
000009c0  20 59 50 49 58 45 4c 00  d4 11 24 0e 42 45 51 20  | YPIXEL...$.BEQ |
000009d0  cf 80 00 e2 11 2e 0e 4a  4d 50 20 cf 4c 49 4e 45  |.......JMP .LINE|
000009e0  00 ed 11 38 0e cf 80 20  52 54 53 00 ff 11 42 0e  |...8... RTS...B.|
000009f0  44 49 53 50 20 4c 44 41  20 23 24 30 30 00 0e 12  |DISP LDA #$00...|
00000a00  4c 0e 53 54 41 20 58 50  49 58 45 4c 00 1b 12 56  |L.STA XPIXEL...V|
00000a10  0e 44 4c 4f 50 20 54 41  58 00 2b 12 60 0e 4c 44  |.DLOP TAX.+.`.LD|
00000a20  41 20 24 43 30 30 30 2c  58 00 3a 12 6a 0e 43 4d  |A $C000,X.:.j.CM|
00000a30  50 20 58 50 49 58 45 4c  00 48 12 74 0e 42 4e 45  |P XPIXEL.H.t.BNE|
00000a40  20 44 45 4c 53 45 00 54  12 7e 0e 4c 44 41 20 52  | DELSE.T.~.LDA R|
00000a50  4e 4f 00 5e 12 88 0e 4c  53 52 20 41 00 6a 12 92  |NO.^...LSR A.j..|
00000a60  0e 49 4e 43 20 24 41 32  00 76 12 9c 0e 41 44 43  |.INC $A2.v...ADC|
00000a70  20 24 41 32 00 82 12 a6  0e 4c 44 58 20 24 41 32  | $A2.....LDX $A2|
00000a80  00 92 12 b0 0e 41 44 43  20 24 30 30 30 30 2c 58  |.....ADC $0000,X|
00000a90  00 9e 12 ba 0e 53 54 41  20 52 4e 4f 00 a9 12 c4  |.....STA RNO....|
00000aa0  0e af 20 23 24 30 31 00  b8 12 ce 0e 4c 44 58 20  |.. #$01.....LDX |
00000ab0  58 50 49 58 45 4c 00 c8  12 d8 0e 53 54 41 20 24  |XPIXEL.....STA $|
00000ac0  43 31 30 30 2c 58 00 d6  12 e2 0e 4a 4d 50 20 4e  |C100,X.....JMP N|
00000ad0  45 4c 53 45 00 ec 12 ec  0e 44 45 4c 53 45 20 4c  |ELSE.....DELSE L|
00000ae0  44 41 20 24 43 30 30 30  2c 58 00 f4 12 f6 0e 54  |DA $C000,X.....T|
00000af0  41 59 00 04 13 00 0f 4c  44 41 20 24 43 31 30 30  |AY.....LDA $C100|
00000b00  2c 59 00 14 13 0a 0f 53  54 41 20 24 43 31 30 30  |,Y.....STA $C100|
00000b10  2c 58 00 27 13 14 0f 4e  45 4c 53 45 20 43 4d 50  |,X.'...NELSE CMP|
00000b20  20 23 24 30 30 00 34 13  1e 0f 42 45 51 20 4e 4f  | #$00.4...BEQ NO|
00000b30  42 4c 00 42 13 28 0f 4a  53 52 20 50 4c 4f a4 4e  |BL.B.(.JSR PLO.N|
00000b40  00 51 13 2d 0f 4a 4d 50  20 52 45 44 49 53 50 00  |.Q.-.JMP REDISP.|
00000b50  65 13 32 0f 4e 4f 42 4c  20 4a 53 52 20 50 4c 4f  |e.2.NOBL JSR PLO|
00000b60  a4 46 46 00 7b 13 3c 0f  52 45 44 49 53 50 20 44  |.FF.{.<.REDISP D|
00000b70  45 43 20 58 50 49 58 45  4c 00 8a 13 46 0f 4c 44  |EC XPIXEL...F.LD|
00000b80  41 20 58 50 49 58 45 4c  00 97 13 50 0f 42 4e 45  |A XPIXEL...P.BNE|
00000b90  20 44 4c 4f 50 00 9f 13  5a 0f 52 54 53 00 00 00  | DLOP...Z.RTS...|
00000ba0