;MANDLEPLOT";SOURCE CODE0;22/10/956(;Bd��$C000SnXPIXEL�$4103dxYPIXEL�$4104u�COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B��HOUR�$410C	�.;                   WIMP ROUTINES	�.; WIMP - MOUSE&	�.IRQ LDA #$004	/STA CLICK@	/LDA $C5M	/CMP #$01]	&/BNE C�CHECKk	0/STA CLICK�	:/C�CHECK CMP #$0C�	D/BEQ LEFTK�	N/LKC CMP #$17�	X/BEQ RIGHTK�	b/RKC CMP #$32�	l/BEQ UPK�	v/UPKC CMP #$37�	�/BEQ DOWNK�	�/DKC LDA $DC00
�/TAX
�/� #$01
�/BEQ UPJ(
�/UJC TXA3
�/� #$02A
�/BEQ DOWNJM
�/DJC TXAX
�/� #$04f
�/BEQ LEFTJr
�/LJC TXA}
�/� #$08�
0BEQ RIGHTJ�
0RJC TXA�
0� #$10�
 0E� #$10�
*0BEQ CJCH�
40STA CLICK�
>0CJCH JMP $EA31�
H0LEFTK JSR LEFT�
R0JMP LKC\0RIGHTK JSR RIGHTf0JMP RKC,p0UPK JSR UP9z0JMP UPKCL�0DOWNK JSR DOWNX�0JMP DKCg�0UPJ JSR UPs�0JMP UJC��0DOWNJ JSR DOWN��0JMP DJC��0LEFTJ JSR LEFT��0JMP LJC��0RIGHTJ JSR RIGHT��0JMP RJC��0LEFT DEC XP��0LDA XP��0CMP #$FF1BNE �FF1LDY #$001STY XPB/$1�FF LDY XPB;.1BNE FINH81CMP #$18TB1BNE FIN_L1INC XPpV1FIN JMP �ROL�`1RIGHT INC XP�j1LDA XP�t1BNE �00�~1LDY #$01��1STY XPB��1�00 LDY XPB��1BEQ FIN��1CMP #$58��1BNE FIN��1DEC XP��1JMP �ROL
�1UP DEC YP
�1LDA YP$
�1CMP #$320
�1BNE FIN;
�1INC YPH
2JMP �ROLX
2DOWN INC YPc
2LDA YPp
2CMP #$F8|
(2BNE FIN�
22DEC YP�
<2JMP �ROL�
F2; WIMP � PO�ER�
P2�ROL LDA HOUR�
Z2BEQ NHGLASS�
�3LDX #$7A�
�3STX $07F8�
�3INX�
�3STX $07F9
�3NHGLASS LDA XP�3STA $D000)�3STA $D0024�3LDA YPB�3STA $D001P�3STA $D003^�3LDA $D010i4� #$FCs4LSR A{4CLC�&4ADC XPB�04ASL A�:4CLC�D4ADC XPB�N4STA $D010�X4LDA #$00�b4STA $D027�l4LDA #$01�v4STA $D028��4LDA $D015�4�A #$03�4STA $D015�4LDA HOUR+�4BNE QTRO8�4LDX #$78F�4STA $07F8N�4INX\�4STA $07F9i�4QTRO RTS��4; STARTUP ROUTINES��4INIT LDA #$00��4STA $D020�5STA $D021�5STA XP�5STA HOUR� 5STA $D015�*5LDA #$01�45STA XPB�>5LDA #$80H5STA YPR5HIRES� LDA #$3B'\5STA $D0114f5LDA #$D8Bp5STA $D016Oz5LDA #$00[�5STA $FBc�5TAYp�5LDA #$04|�5STA $FC��5LDA #$7E��5FLOP STA ($FB),Y��5INY��5BEQ FLOPINC��5CPY #$F8��5BNE FLOP��5LDX $FC��5CPX #$07��5BNE FLOP6JSR LEFT6SEI6LDA #�IRQ'$6STA $03145.6LDA #�IRQC86STA $0315KB6CLIXL6LDA #$D8dV6STA $FCq`6LDA #$00yj6TAY�t6FLOPB STA ($FB),Y�~6INY��6BNE FLOPB��6INC $FC��6LDA $FC��6CMP #$DC��6BNE FLOPB��6LDA #$18��6STA $D018�4:RTS>:FLOPINC INC $FCH:JMP FLOP-R:HIRESOFF SEI:\:LDA #$31Hf:STA $0314Up:LDA #$EAcz:STA $0315k�:CLIx�:LDA #$00��:STA $D015��:LDA #$9B��:STA $D011��:LDA #$C8��:STA $D016��:RTS�0u;          M�LEBROT SET PLOTTER�:uM�LE LDA #$00	DuSTA YPIXELNuLDA #$03$XuSTA $41001buLDA #$06?luSTA $4102MvuJSR EQUALa�uMMAINL LDA #$00p�uSTA XPIXEL}�uLDA #$01��uSTA $4100��uLDA #$05��uSTA $4102��uJSR EQUAL��uMMAINLB LDA #$05��uSTA $4100��uLDA #$07��uSTA $4102�uJSR EQUAL�uINC $4100vINC $4102*vJSR EQUAL7vLDA #$00F vSTA COLOURX*vLOOP LDA #$07f4vSTA $4100t>vSTA $4101�HvLDA #$10�RvSTA $4102�\vJSR MULTIPLY�fvLDA #$08�pvSTA $4100�zvSTA $4101��vLDA #$11��vSTA $4102��vJSR MULTIPLY�vLDX #$10�vSTX $4100�vINX&�vSTX $4101.�vINX<�vSTX $4102L�vJSR ADDITI�Z�vLDA $4091g�vCMP #$04t�vBCC FAIL�wCMP #$50�wBCS FAIL�wSUCPASS JMP SUCCESS�$wFAIL INC COLOUR�)wLDA COLOUR�.wCMP MAXCOL�8wBEQ SUCPASS�BwJSR SUBTRACTLwLDA #$12VwSTA $4100!`wLDA #$05/jwSTA $4101<twLDA #$13J~wSTA $4102Z�wJSR ADDITI�g�wLDA #$07u�wSTA $4100��wLDA #$08��wSTA $4101��wINC $4102��wJSR MULTIPLY��wLDA #$14��wSTA $4100��wLDA #$1C��wSTA $4101��wLDA #$15xSTA $4102
xJSR MULTIPLYxLDA #$15,xSTA $41009(xLDA #$06G2xSTA $4101T<xLDA #$16bFxSTA $4102rPxJSR ADDITI�ZxLDA #$13�dxSTA $4100�nxLDA #$07�xxSTA $4102��xJSR EQUAL��xLDA #$16��xSTA $4100��xLDA #$08��xSTA $4102��xJSR EQUAL�xJMP LOOP�xSUCCESS JSR PLOT)�xLDA #$057�xSTA $4100E�xSTA $4102R�xLDA #$02`�xSTA $4101pyJSR ADDITI�yLDA XPIXEL�yBNE XRELOP�"yLDA #$06�,ySTA $4100�6ySTA $4102�@yLDA #$04�JySTA $4101�TyJSR ADDITI��^yINC YPIXELhyLDA YPIXEL
ryCMP #$C8|yBNE YRELOP$�yRTS;�yXRELOP JMP MMAINLBQ�yYRELOP JMP MMAINLw@�;             ARITHMETIC ROUTINES�J��DIGIT CLD�T�ASL A�^�ASL A�h�ASL A�r�STA $02�|�TXA���LSR A���STA $24���LDA #$07���SEC���SBC $24���CLCœADC $02̜TAY֜LDA $4000,Y#�TAY+�TXA6� #$01D��BEQ LSNGDL�TYAW�� #$F0a�LSR Ak&�LSR Au0�LSR A:�LSR A�D�RTS�N�LSNGD TYA�X�� #$0F�b�RTS�l�MULTIPLYB JSR NEGATIVE�q�LDA $4102�v�ASL A���ASL A���ASL A���TAX��LDA #$00��TAY"��MLOPA STA $4000,X*��INY2ƝINX?НCPY #$08MڝBNE MLOPAZ�LDA #$06f�STA $FC{���DIGIT LDA $4101��LDX $FC��JSR �DIGIT��CMP #$00� �BEQ DMOVER�*�STA $FD�4�LDA #$06�>�STA $FB�H�DMLOP LDA $4100�R�LDX $FB\�JSR �DIGITf�DMLB CMP #$00'p�BEQ DMOVER3z�STA $FE?��LDA $FBG��CLCS��ADC $FC[��SECh��SBC #$0Ct��LDX $FD|��TAY�ʞ� #$01�ԞBEQ MSKIP�ޞTXA��ASL A��ASL A���ASL A��ASL A��TAX��MSKIP TYA�$�LSR A�.�STA $02�8�LDA #$07B�SECL�SBC $02V�STA $02,`�LDA $41026j�ASL A@t�ASL AJ~�ASL AV��ADC $02^��TAYj��STX $24v��LDX $02~��SED���LDA $4000,Y�ğCLC�ΟADC $24�؟STA $4000,Y��MALP CLD��BCC MAQUIT���DEY��DEX�
�CPX #$FF��BEQ MAQUIT�SED(�LDA $4000,Y2�CLC'<�ADC #$017F�STA $4000,YDP�JMP MALPWZ�DMOVER INC $FBcd�LDA $FBpn�CMP #$0E~x�BCC DMLOP���INC $FC���LDA $FC���CMP #$0E���BCC �DIGIT���LDA YPIB���BEQ QUIT���LDA $4102�ȠSTA $4101�ҠLDA #$1DܠSTA $4100�JSR SUBTRACT!�QUIT RTS4��MAQUIT LDX $FE<�DEXD�TXAQ�JMP DMLBd"�MSUP LDA $4100n,�ASL Ax6�ASL A�@�ASL A�J�TAX�T�DEX�^�STX $FB�h�LDA $4101�r�ASL A�|�ASL A���ASL A���TAX���DEX���STX $FD���LDA $4102���ASL A ¡ASL A ̡ASL A ֡TAX" �DEX. �STX $22; �LDA #$40G ��STA $FCS �STA $FE_ �STA $23g �RTSz &�EQUAL JSR MSUP� 0�LDY #$08� :�ELOP LDA ($FB),Y� D�STA ($22),Y� N�DEY� X�BNE ELOP� b�RTS� l�ADDITI� JSR MSUP� v�LDY #$08� ��SED� ��CLC!��ADLOP LDA ($FB),Y!!��ADC ($FD),Y1!��STA ($22),Y9!��DEYG!��BNE ADLOPO!ƢCLDW!ТRTSm!ڢSUBTRACT JSR MSUPz!�LDY #$08�!�SED�!��SEC�!�SULOP LDA ($FB),Y�!�SBC ($FD),Y�!�STA ($22),Y�! �DEY�!*�BNE SULOP�!4�CLD�!>�RTS�!H�NEGATIVE LDA #$00"R�PHA"\�LDA $4100"f�TAY$"p�ASL A."z�ASL A8"��ASL A@"��TAXP"��LDA $4001,X]"��CMP #$50p"��BCC NEGRMOVEABx"��PLA�"��ADC #$00�"��PHA�"ʣJMP NEGRMOVEA�"ԣNEGRMOVEAB LDA $4101�"ޣTAY�"�ASL A�"�ASL A�"��ASL A�"�TAX�"�LDA $4001,X#�CMP #$50#$�PLA#.�BCC NOE�$#8�E� #$01,#B�PHA>#L�BCS NEGRMOVEBQ#V�NEGRMOVEBB PLAc#`�NOE� STA YPIBk#j�RTS�#t�NEGRMOVE LDA $4100�#~�PHA�#��LDA $4101�#��PHA�#��LDA $4102�#��PHA�#��TYA�#��STA $4101�#ĤSTA $4102�#ΤLDA #$1D�#ؤSTA $4100$�JSR SUBTRACT$�PLA$��STA $4102$$�PLA2$
�STA $4101:$�PLAH$�STA $4100P$(�RTSk$2�NEGRMOVEA JSR NEGRMOVE~$<�JMP NEGRMOVEAB�$F�NEGRMOVEB JSR NEGRMOVE�$P�JMP NEGRMOVEBB�$Z�MULTIPLY LDA $4102�$d�PHA�$n�LDA $4101�$x�PHA�$��LDA #$18�$��STA $4102
%��JSR EQUAL%��INC $4102 %��PLA.%��STA $4100<%��JSR EQUALI%ȥLDA #$18W%ҥSTA $4100d%ܥLDA #$19r%�STA $4101z%�PLA�%��STA $4102�%�JMP MULTIPLYB�%P�;           GRAPHIC PO� PLOTTER�%Z�PLOTPC LDA #$47�%d�STA $FB�%n�LDA #$3F�%x�STA $FC&��LDA YPIXEL&��LSR A&��LSR A$&��LSR A1&��STA YPIB<&�ï #$03F&��ASL AP&��ASL AZ&��ASL Ad&��ASL An&��ASL Ax&��ASL A�&��STA $02�&�LDA $FB�&�SEC�&�SBC $02�&"�STA $FB�&,�LDA $FC�&6�SBC #$00�&;�SBC YPIB�&@�PHA�&J�LDA YPIB�&T�LSR A�&^�LSR A'h�STA $02'r�PLA'|�SEC''��SBC $023'��STA $FCB'��LDA YPIXELM'�į #$07Z'��STA YPIBf'��LDA $FBn'��SEC{'��SBC YPIB�'��PHA�'��LDA XPIXEL�'�į #$F8�'��STA YPIB�'��PLA�'�CLC�'�ADC YPIB�'�STA $FB�'&�LDA $FC�'0�SBC #$00�':�STA $FC(D�LDA XPIXEL(Nů #$07(X�TAX'(b�LDA #$80;(l�GBITLP CPX #$00G(v�BEQ PP�Q(��LSR AY(��DEXh(��JMP GBITLPx(��PP� STA $FD�(��RTS�(��PLO�N JSR PLOTPC�(��LDY #$00�(��LDA ($FB),Y�(�ŰA $FD�(��STA ($FB),Y�(��RTS�(��PLO�FF JSR PLOTPC�(��LDA $FD)�E� #$FF)�STA $FD)�LDY #$00,) �LDA ($FB),Y6)*Ư $FDF)4�STA ($FB),YN)>�RTSb)H�PLOT LDA COLOURm)RƯ #$02z)\�BNE PPA��)f�JSR PLO�FF�)p�JMP PPACNT�)z�PPA� JSR PLO�N�)��PPACNT INC XPIXEL�)��LDA COLOUR�)�Ư #$01�)��BNE PPB��)��JSR PLO�FF*��JMP PPBCNT*��PPB� JSR PLO�N/*��PPBCNT INC XPIXEL7*��RTS

QHJ@;mandleplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$c000@sHN@xpixel.$4103@DHX@ypixel.$4104@UH.@colour.$4105@.H.@ypib.$4106@.H.@maxcol.$4107@.H.@xp.$4108@.H.@yp.$4109@.H.@xpb.$410a@.H.@click.$410b@.H.@hour.$410c@BI..;                   wimp routines@UI..; wimp - mouse@&I..irq lda #$00@4IH/sta click@@IR/lda $c5@mI£/cmp #$01@]I&/bne c.check@KI0/sta click@.I:/c.check cmp #$0c@.Id/beq leftk@.In/lkc cmp #$17@.Ix/beq rightk@.IB/rkc cmp #$32@.IL/beq upk@.IV/upkc cmp #$37@.I./beq downk@.I./dkc lda $dc00@EJ./tax@PJ./. #$01@£J./beq upj@(J./ujc txa@3J./. #$02@aJ./beq downj@mJ./djc txa@xJ./. #$04@FJ./beq leftj@RJ./ljc txa@.J./. #$08@.JB0beq rightj@.JL0rjc txa@.JV0. #$10@.J 0e. #$10@.J*0beq cjch@.J40sta click@.J>0cjch jmp $ea31@.Jh0leftk jsr left@.Jr0jmp lkc@QK£0rightk jsr right@]KF0jmp rkc@,KP0upk jsr up@9KZ0jmp upkc@lK.0downk jsr down@xK.0jmp dkc@GK.0upj jsr up@SK.0jmp ujc@.K.0downj jsr down@.K.0jmp djc@.K.0leftj jsr left@.K.0jmp ljc@.K.0rightj jsr right@.K.0jmp rjc@.K.0left dec xp@.K.0lda xp@.K.0cmp #$ff@FLF1bne .ff@SLP1ldy #$00@.LZ1sty xpb@/L$1.ff ldy xpb@;L.1bne fin@hL81cmp #$18@tLb1bne fin@.Ll1inc xp@PLv1fin jmp .rol@.L.1right inc xp@.LJ1lda xp@.LT1bne .00@.L.1ldy #$01@.L.1sty xpb@.L.1.00 ldy xpb@.L.1beq fin@.L.1cmp #$58@.L.1bne fin@.L.1dec xp@.L.1jmp .rol@LM.1up dec yp@WM.1lda yp@$M.1cmp #$32@0M.1bne fin@;M.1inc yp@hM@2jmp .rol@xMJ2down inc yp@CMT2lda yp@PM.2cmp #$f8@.M(2bne fin@.M22dec yp@.M<2jmp .rol@.Mf2; wimp . po.er@.Mp2.rol lda hour@.Mz2beq nhglass@.M.3ldx #$7a@.M.3stx $07f8@.M.3inx@.M.3stx $07f9@MN.3nhglass lda xp@[N.3sta $d000@)N.3sta $d002@4N.3lda yp@bN.3sta $d001@pN.3sta $d003@.N.3lda $d010@INH4. #$fc@SNR4lsr a@.N£4clc@.N&4adc xpb@.N04asl a@.N:4clc@.Nd4adc xpb@.Nn4sta $d010@.Nx4lda #$00@.NB4sta $d027@.NL4lda #$01@.NV4sta $d028@.N.4lda $d015@CO.4.a #$03@QO.4sta $d015@.O.4lda hour@+O.4bne qtro@8O.4ldx #$78@fO.4sta $07f8@nO.4inx@£O.4sta $07f9@IO.4qtro rts@.O.4; startup routines@.O.4init lda #$00@.O.4sta $d020@.OB5sta $d021@.OL5sta xp@.OV5sta hour@.O 5sta $d015@.O*5lda #$01@.O45sta xpb@.O>5lda #$80@EPh5sta yp@YPr5hires. lda #$3b@'P£5sta $d011@4PF5lda #$d8@bPP5sta $d016@oPZ5lda #$00@[P.5sta $fb@CP.5tay@PP.5lda #$04@.P.5sta $fc@.P.5lda #$7e@.P.5flop sta ($fb),y@.P.5iny@.P.5beq flopinc@.P.5cpy #$f8@.P.5bne flop@.P.5ldx $fc@.P.5cpx #$07@.P.5bne flop@CQF6jsr left@KQP6sei@YQZ6lda #.irq@'Q$6sta $0314@5Q.6lda #.irq@cQ86sta $0315@kQb6cli@xQl6lda #$d8@DQv6sta $fc@QQ.6lda #$00@YQJ6tay@.QT6flopb sta ($fb),y@.Q.6iny@.Q.6bne flopb@.Q.6inc $fc@.Q.6lda $fc@.Q.6cmp #$dc@.Q.6bne flopb@.Q.6lda #$18@.Q.6sta $d018@.Q4:rts@OR>:flopinc inc $fc@£Rh:jmp flop@-Rr:hiresoff sei@:R£:lda #$31@hRF:sta $0314@uRP:lda #$ea@CRZ:sta $0315@KR.:cli@XR.:lda #$00@.R.:sta $d015@.R.:lda #$9b@.R.:sta $d011@.R.:lda #$c8@.R.:sta $d016@.R.:rts@.R0U;          m.lebrot set plotter@.R:Um.le lda #$00@ISdUsta ypixel@VSnUlda #$03@$SxUsta $4100@1SBUlda #$06@?SLUsta $4102@mSVUjsr equal@AS.Ummainl lda #$00@PS.Usta xpixel@.S.Ulda #$01@.S.Usta $4100@.S.Ulda #$05@.S.Usta $4102@.S.Ujsr equal@.S.Ummainlb lda #$05@.S.Usta $4100@.S.Ulda #$07@.S.Usta $4102@@T.Ujsr equal@NT.Uinc $4100@£TBVinc $4102@*TLVjsr equal@7TVVlda #$00@fT Vsta colour@xT*Vloop lda #$07@FT4Vsta $4100@TT>Vsta $4101@.ThVlda #$10@.TrVsta $4102@.T£Vjsr multiply@.TFVlda #$08@.TPVsta $4100@.TZVsta $4101@.T.Vlda #$11@.T.Vsta $4102@.T.Vjsr multiply@BU.Vldx #$10@PU.Vstx $4100@XU.Vinx@&U.Vstx $4101@.U.Vinx@<U.Vstx $4102@lU.Vjsr additi.@zU.Vlda $4091@GU.Vcmp #$04@TU.Vbcc fail@.UFWcmp #$50@.UPWbcs fail@.UZWsucpass jmp success@.U$Wfail inc colour@.U)Wlda colour@.U.Wcmp maxcol@.U8Wbeq sucpass@.UbWjsr subtract@FVlWlda #$12@TVvWsta $4100@!V.Wlda #$05@/VJWsta $4101@<VTWlda #$13@jV.Wsta $4102@zV.Wjsr additi.@GV.Wlda #$07@UV.Wsta $4100@.V.Wlda #$08@.V.Wsta $4101@.V.Winc $4102@.V.Wjsr multiply@.V.Wlda #$14@.V.Wsta $4100@.V.Wlda #$1c@.V.Wsta $4101@.V.Wlda #$15@@W@Xsta $4102@QWJXjsr multiply@.WTXlda #$15@,W.Xsta $4100@9W(Xlda #$06@gW2Xsta $4101@tW<Xlda #$16@BWfXsta $4102@RWpXjsr additi.@.WzXlda #$13@.WDXsta $4100@.WNXlda #$07@.WXXsta $4102@.W.Xjsr equal@.W.Xlda #$16@.W.Xsta $4100@.W.Xlda #$08@.W.Xsta $4102@.W.Xjsr equal@GX.Xjmp loop@£X.Xsuccess jsr plot@)X.Xlda #$05@7X.Xsta $4100@eX.Xsta $4102@rX.Xlda #$02@.X.Xsta $4101@PXDYjsr additi.@.XNYlda xpixel@.XXYbne xrelop@.X"Ylda #$06@.X,Ysta $4100@.X6Ysta $4102@.X@Ylda #$04@.XjYsta $4101@.XtYjsr additi.@.X.Yinc ypixel@@YHYlda ypixel@MYRYcmp #$c8@£Y.Ybne yrelop@$Y.Yrts@;Y.Yxrelop jmp mmainlb@qY.Yyrelop jmp mmainl@WY@.;             arithmetic routines@.Yj..digit cld@.Yt.asl a@.Y..asl a@.YH.asl a@.YR.sta $02@.Y..txa@.Y..lsr a@.Y..sta $24@.Y..lda #$07@.Y..sec@.Y..sbc $24@.Y..clc@CZ..adc $02@KZ..tay@[Z..lda $4000,y@#Z..tay@+Z..txa@6Z... #$01@dZ..beq lsngd@lZH.tya@wZR.. #$f0@AZ£.lsr a@KZ&.lsr a@UZ0.lsr a@.Z:.lsr a@.Zd.rts@.Zn.lsngd tya@.Zx.. #$0f@.ZB.rts@.ZL.multiplyb jsr negative@.ZQ.lda $4102@.ZV.asl a@.Z..asl a@.Z..asl a@.Z..tax@D[..lda #$00@L[..tay@"[..mlopa sta $4000,x@*[..iny@2[..inx@?[..cpy #$08@m[..bne mlopa@z[..lda #$06@F[..sta $fc@.[...digit lda $4101@.[B.ldx $fc@.[L.jsr .digit@.[V.cmp #$00@.[ .beq dmover@.[*.sta $fd@.[4.lda #$06@.[>.sta $fb@.[h.dmlop lda $4100@.[r.ldx $fb@F££.jsr .digit@X£F.dmlb cmp #$00@'£P.beq dmover@3£Z.sta $fe@?£..lda $fb@g£..clc@s£..adc $fc@[£..sec@H£..sbc #$0c@T£..ldx $fd@.£..tay@.£... #$01@.£..beq mskip@.£..txa@.£..asl a@.£..asl a@.£..asl a@.£F.asl a@.£P.tax@.£Z.mskip tya@.£$.lsr a@.£..sta $02@.£8.lda #$07@F]b.sec@R]l.sbc $02@.]v.sta $02@,]..lda $4102@6]J.asl a@@]T.asl a@j]..asl a@v]..adc $02@.]..tay@J]..stx $24@V]..ldx $02@.]..sed@.]..lda $4000,y@.]..clc@.]..adc $24@.]..sta $4000,y@.]..malp cld@.]..bcc maquit@.]..dey@.]@.dex@.]J.cpx #$ff@.]T.beq maquit@B...sed@R.(.lda $4000,y@Z.2.clc@'.<.adc #$01@7.f.sta $4000,y@d.p.jmp malp@w.z.dmover inc $fb@C.D.lda $fb@P.N.cmp #$0e@..X.bcc dmlop@....inc $fc@....lda $fc@....cmp #$0e@....bcc .digit@....lda ypib@....beq quit@....lda $4102@....sta $4101@....lda #$1d@C...sta $4100@T...jsr subtract@!...quit rts@4...maquit ldx $fe@<.D.dex@d.N.txa@q.X.jmp dmlb@D.".msup lda $4100@N.,.asl a@X.6.asl a@..@.asl a@..j.tax@..t.dex@....stx $fb@..H.lda $4101@..R.asl a@....asl a@....asl a@....tax@....dex@....stx $fd@....lda $4102@....asl a@H ..asl a@R ..asl a@Z ..tax@" ..dex@. ..stx $22@; ..lda #$40@g ..sta $fc@s H.sta $fe@. R.sta $23@G £.rts@Z &.equal jsr msup@. 0.ldy #$08@. :.elop lda ($fb),y@. d.sta ($22),y@. n.dey@. x.bne elop@. B.rts@. L.additi. jsr msup@. V.ldy #$08@. ..sed@. ..clc@Q!..adlop lda ($fb),y@!!..adc ($fd),y@1!..sta ($22),y@9!..dey@g!..bne adlop@o!..cld@w!..rts@M!..subtract jsr msup@Z!..ldy #$08@.!..sed@.!..sec@.!B.sulop lda ($fb),y@.!L.sbc ($fd),y@.!V.sta ($22),y@.! .dey@.!*.bne sulop@.!4.cld@.!>.rts@.!h.negative lda #$00@D"r.pha@R"£.lda $4100@Z"F.tay@$"P.asl a@."Z.asl a@8"..asl a@@"..tax@p"..lda $4001,x@]"..cmp #$50@P"..bcc negrmoveab@X"..pla@."..adc #$00@."..pha@."..jmp negrmovea@."..negrmoveab lda $4101@."..tay@."..asl a@."..asl a@."..asl a@."F.tax@."P.lda $4001,x@C#Z.cmp #$50@K#$.pla@X#..bcc noe.@$#8.e. #$01@,#b.pha@>#l.bcs negrmoveb@q#v.negrmovebb pla@C#..noe. sta ypib@K#J.rts@.#T.negrmove lda $4100@.#..pha@.#..lda $4101@.#..pha@.#..lda $4102@.#..pha@.#..tya@.#..sta $4101@.#..sta $4102@.#..lda #$1d@.#..sta $4100@F$..jsr subtract@N$..pla@£$..sta $4102@$$@.pla@2$J.sta $4101@:$T.pla@h$..sta $4100@p$(.rts@K$2.negrmovea jsr negrmove@.$<.jmp negrmoveab@.$f.negrmoveb jsr negrmove@.$p.jmp negrmovebb@.$z.multiply lda $4102@.$D.pha@.$N.lda $4101@.$X.pha@.$..lda #$18@.$..sta $4102@J%..jsr equal@X%..inc $4102@ %..pla@.%..sta $4100@<%..jsr equal@i%..lda #$18@w%..sta $4100@D%..lda #$19@R%..sta $4101@Z%..pla@.%..sta $4102@.%D.jmp multiplyb@.%p.;           graphic po. plotter@.%z.plotpc lda #$47@.%D.sta $fb@.%N.lda #$3f@.%X.sta $fc@F&..lda ypixel@P&..lsr a@Z&..lsr a@$&..lsr a@1&..sta ypib@<&... #$03@f&..asl a@p&..asl a@z&..asl a@D&..asl a@N&..asl a@X&..asl a@.&..sta $02@.&D.lda $fb@.&N.sec@.&X.sbc $02@.&".sta $fb@.&,.lda $fc@.&6.sbc #$00@.&;.sbc ypib@.&@.pha@.&j.lda ypib@.&t.lsr a@.&..lsr a@K'H.sta $02@S'R.pla@['..sec@''..sbc $02@3'..sta $fc@b'..lda ypixel@m'... #$07@z'..sta ypib@F'..lda $fb@N'..sec@.'..sbc ypib@.'..pha@.'..lda xpixel@.'... #$f8@.'..sta ypib@.'..pla@.'H.clc@.'R.adc ypib@.'£.sta $fb@.'&.lda $fc@.'0.sbc #$00@.':.sta $fc@G(d.lda xpixel@R(n.. #$07@Z(x.tax@'(B.lda #$80@;(L.gbitlp cpx #$00@g(V.beq pp.@q(..lsr a@y(..dex@H(..jmp gbitlp@X(..pp. sta $fd@.(..rts@.(..plo.n jsr plotpc@.(..ldy #$00@.(..lda ($fb),y@.(...a $fd@.(..sta ($fb),y@.(..rts@.(..plo.ff jsr plotpc@.(..lda $fd@C)B.e. #$ff@O)L.sta $fd@£)V.ldy #$00@,) .lda ($fb),y@6)*.. $fd@f)4.sta ($fb),y@n)>.rts@B)h.plot lda colour@M)r.. #$02@Z)£.bne ppa.@.)F.jsr plo.ff@.)P.jmp ppacnt@.)Z.ppa. jsr plo.n@.)..ppacnt inc xpixel@.)..lda colour@.)... #$01@.)..bne ppb.@.)..jsr plo.ff@F*..jmp ppbcnt@Y*..ppb. jsr plo.n@/*..ppbcnt inc xpixel@7*..rts@@@

00000000  11 08 0a 00 3b 4d 41 4e  44 4c 45 50 4c 4f 54 00  |....;MANDLEPLOT.|
00000010  22 08 14 00 3b 53 4f 55  52 43 45 20 43 4f 44 45  |"...;SOURCE CODE|
00000020  00 30 08 1e 00 3b 32 32  2f 31 30 2f 39 35 00 36  |.0...;22/10/95.6|
00000030  08 28 00 3b 00 42 08 64  00 ac b2 24 43 30 30 30  |.(.;.B.d...$C000|
00000040  00 53 08 6e 00 58 50 49  58 45 4c b2 24 34 31 30  |.S.n.XPIXEL.$410|
00000050  33 00 64 08 78 00 59 50  49 58 45 4c b2 24 34 31  |3.d.x.YPIXEL.$41|
00000060  30 34 00 75 08 82 00 43  4f 4c 4f 55 52 b2 24 34  |04.u...COLOUR.$4|
00000070  31 30 35 00 84 08 8c 00  59 50 49 42 b2 24 34 31  |105.....YPIB.$41|
00000080  30 36 00 95 08 96 00 4d  41 58 43 4f 4c b2 24 34  |06.....MAXCOL.$4|
00000090  31 30 37 00 a2 08 a0 00  58 50 b2 24 34 31 30 38  |107.....XP.$4108|
000000a0  00 af 08 aa 00 59 50 b2  24 34 31 30 39 00 bd 08  |.....YP.$4109...|
000000b0  b4 00 58 50 42 b2 24 34  31 30 41 00 cd 08 be 00  |..XPB.$410A.....|
000000c0  43 4c 49 43 4b b2 24 34  31 30 42 00 dc 08 c8 00  |CLICK.$410B.....|
000000d0  48 4f 55 52 b2 24 34 31  30 43 00 02 09 e0 2e 3b  |HOUR.$410C.....;|
000000e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000f0  20 20 20 57 49 4d 50 20  52 4f 55 54 49 4e 45 53  |   WIMP ROUTINES|
00000100  00 15 09 f4 2e 3b 20 57  49 4d 50 20 2d 20 4d 4f  |.....; WIMP - MO|
00000110  55 53 45 00 26 09 fe 2e  49 52 51 20 4c 44 41 20  |USE.&...IRQ LDA |
00000120  23 24 30 30 00 34 09 08  2f 53 54 41 20 43 4c 49  |#$00.4../STA CLI|
00000130  43 4b 00 40 09 12 2f 4c  44 41 20 24 43 35 00 4d  |CK.@../LDA $C5.M|
00000140  09 1c 2f 43 4d 50 20 23  24 30 31 00 5d 09 26 2f  |../CMP #$01.].&/|
00000150  42 4e 45 20 43 91 43 48  45 43 4b 00 6b 09 30 2f  |BNE C.CHECK.k.0/|
00000160  53 54 41 20 43 4c 49 43  4b 00 80 09 3a 2f 43 91  |STA CLICK...:/C.|
00000170  43 48 45 43 4b 20 43 4d  50 20 23 24 30 43 00 8e  |CHECK CMP #$0C..|
00000180  09 44 2f 42 45 51 20 4c  45 46 54 4b 00 9f 09 4e  |.D/BEQ LEFTK...N|
00000190  2f 4c 4b 43 20 43 4d 50  20 23 24 31 37 00 ae 09  |/LKC CMP #$17...|
000001a0  58 2f 42 45 51 20 52 49  47 48 54 4b 00 bf 09 62  |X/BEQ RIGHTK...b|
000001b0  2f 52 4b 43 20 43 4d 50  20 23 24 33 32 00 cb 09  |/RKC CMP #$32...|
000001c0  6c 2f 42 45 51 20 55 50  4b 00 dd 09 76 2f 55 50  |l/BEQ UPK...v/UP|
000001d0  4b 43 20 43 4d 50 20 23  24 33 37 00 eb 09 80 2f  |KC CMP #$37..../|
000001e0  42 45 51 20 44 4f 57 4e  4b 00 fd 09 8a 2f 44 4b  |BEQ DOWNK..../DK|
000001f0  43 20 4c 44 41 20 24 44  43 30 30 00 05 0a 94 2f  |C LDA $DC00..../|
00000200  54 41 58 00 10 0a 9e 2f  af 20 23 24 30 31 00 1c  |TAX..../. #$01..|
00000210  0a a8 2f 42 45 51 20 55  50 4a 00 28 0a b2 2f 55  |../BEQ UPJ.(../U|
00000220  4a 43 20 54 58 41 00 33  0a bc 2f af 20 23 24 30  |JC TXA.3../. #$0|
00000230  32 00 41 0a c6 2f 42 45  51 20 44 4f 57 4e 4a 00  |2.A../BEQ DOWNJ.|
00000240  4d 0a d0 2f 44 4a 43 20  54 58 41 00 58 0a da 2f  |M../DJC TXA.X../|
00000250  af 20 23 24 30 34 00 66  0a e4 2f 42 45 51 20 4c  |. #$04.f../BEQ L|
00000260  45 46 54 4a 00 72 0a ee  2f 4c 4a 43 20 54 58 41  |EFTJ.r../LJC TXA|
00000270  00 7d 0a f8 2f af 20 23  24 30 38 00 8c 0a 02 30  |.}../. #$08....0|
00000280  42 45 51 20 52 49 47 48  54 4a 00 98 0a 0c 30 52  |BEQ RIGHTJ....0R|
00000290  4a 43 20 54 58 41 00 a3  0a 16 30 af 20 23 24 31  |JC TXA....0. #$1|
000002a0  30 00 af 0a 20 30 45 b0  20 23 24 31 30 00 bc 0a  |0... 0E. #$10...|
000002b0  2a 30 42 45 51 20 43 4a  43 48 00 ca 0a 34 30 53  |*0BEQ CJCH...40S|
000002c0  54 41 20 43 4c 49 43 4b  00 dd 0a 3e 30 43 4a 43  |TA CLICK...>0CJC|
000002d0  48 20 4a 4d 50 20 24 45  41 33 31 00 f0 0a 48 30  |H JMP $EA31...H0|
000002e0  4c 45 46 54 4b 20 4a 53  52 20 4c 45 46 54 00 fc  |LEFTK JSR LEFT..|
000002f0  0a 52 30 4a 4d 50 20 4c  4b 43 00 11 0b 5c 30 52  |.R0JMP LKC...\0R|
00000300  49 47 48 54 4b 20 4a 53  52 20 52 49 47 48 54 00  |IGHTK JSR RIGHT.|
00000310  1d 0b 66 30 4a 4d 50 20  52 4b 43 00 2c 0b 70 30  |..f0JMP RKC.,.p0|
00000320  55 50 4b 20 4a 53 52 20  55 50 00 39 0b 7a 30 4a  |UPK JSR UP.9.z0J|
00000330  4d 50 20 55 50 4b 43 00  4c 0b 84 30 44 4f 57 4e  |MP UPKC.L..0DOWN|
00000340  4b 20 4a 53 52 20 44 4f  57 4e 00 58 0b 8e 30 4a  |K JSR DOWN.X..0J|
00000350  4d 50 20 44 4b 43 00 67  0b 98 30 55 50 4a 20 4a  |MP DKC.g..0UPJ J|
00000360  53 52 20 55 50 00 73 0b  a2 30 4a 4d 50 20 55 4a  |SR UP.s..0JMP UJ|
00000370  43 00 86 0b ac 30 44 4f  57 4e 4a 20 4a 53 52 20  |C....0DOWNJ JSR |
00000380  44 4f 57 4e 00 92 0b b6  30 4a 4d 50 20 44 4a 43  |DOWN....0JMP DJC|
00000390  00 a5 0b c0 30 4c 45 46  54 4a 20 4a 53 52 20 4c  |....0LEFTJ JSR L|
000003a0  45 46 54 00 b1 0b ca 30  4a 4d 50 20 4c 4a 43 00  |EFT....0JMP LJC.|
000003b0  c6 0b d4 30 52 49 47 48  54 4a 20 4a 53 52 20 52  |...0RIGHTJ JSR R|
000003c0  49 47 48 54 00 d2 0b de  30 4a 4d 50 20 52 4a 43  |IGHT....0JMP RJC|
000003d0  00 e2 0b e8 30 4c 45 46  54 20 44 45 43 20 58 50  |....0LEFT DEC XP|
000003e0  00 ed 0b f2 30 4c 44 41  20 58 50 00 fa 0b fc 30  |....0LDA XP....0|
000003f0  43 4d 50 20 23 24 46 46  00 06 0c 06 31 42 4e 45  |CMP #$FF....1BNE|
00000400  20 a8 46 46 00 13 0c 10  31 4c 44 59 20 23 24 30  | .FF....1LDY #$0|
00000410  30 00 1f 0c 1a 31 53 54  59 20 58 50 42 00 2f 0c  |0....1STY XPB./.|
00000420  24 31 a8 46 46 20 4c 44  59 20 58 50 42 00 3b 0c  |$1.FF LDY XPB.;.|
00000430  2e 31 42 4e 45 20 46 49  4e 00 48 0c 38 31 43 4d  |.1BNE FIN.H.81CM|
00000440  50 20 23 24 31 38 00 54  0c 42 31 42 4e 45 20 46  |P #$18.T.B1BNE F|
00000450  49 4e 00 5f 0c 4c 31 49  4e 43 20 58 50 00 70 0c  |IN._.L1INC XP.p.|
00000460  56 31 46 49 4e 20 4a 4d  50 20 9a 52 4f 4c 00 81  |V1FIN JMP .ROL..|
00000470  0c 60 31 52 49 47 48 54  20 49 4e 43 20 58 50 00  |.`1RIGHT INC XP.|
00000480  8c 0c 6a 31 4c 44 41 20  58 50 00 98 0c 74 31 42  |..j1LDA XP...t1B|
00000490  4e 45 20 a8 30 30 00 a5  0c 7e 31 4c 44 59 20 23  |NE .00...~1LDY #|
000004a0  24 30 31 00 b1 0c 88 31  53 54 59 20 58 50 42 00  |$01....1STY XPB.|
000004b0  c1 0c 92 31 a8 30 30 20  4c 44 59 20 58 50 42 00  |...1.00 LDY XPB.|
000004c0  cd 0c 9c 31 42 45 51 20  46 49 4e 00 da 0c a6 31  |...1BEQ FIN....1|
000004d0  43 4d 50 20 23 24 35 38  00 e6 0c b0 31 42 4e 45  |CMP #$58....1BNE|
000004e0  20 46 49 4e 00 f1 0c ba  31 44 45 43 20 58 50 00  | FIN....1DEC XP.|
000004f0  fe 0c c4 31 4a 4d 50 20  9a 52 4f 4c 00 0c 0d ce  |...1JMP .ROL....|
00000500  31 55 50 20 44 45 43 20  59 50 00 17 0d d8 31 4c  |1UP DEC YP....1L|
00000510  44 41 20 59 50 00 24 0d  e2 31 43 4d 50 20 23 24  |DA YP.$..1CMP #$|
00000520  33 32 00 30 0d ec 31 42  4e 45 20 46 49 4e 00 3b  |32.0..1BNE FIN.;|
00000530  0d f6 31 49 4e 43 20 59  50 00 48 0d 00 32 4a 4d  |..1INC YP.H..2JM|
00000540  50 20 9a 52 4f 4c 00 58  0d 0a 32 44 4f 57 4e 20  |P .ROL.X..2DOWN |
00000550  49 4e 43 20 59 50 00 63  0d 14 32 4c 44 41 20 59  |INC YP.c..2LDA Y|
00000560  50 00 70 0d 1e 32 43 4d  50 20 23 24 46 38 00 7c  |P.p..2CMP #$F8.||
00000570  0d 28 32 42 4e 45 20 46  49 4e 00 87 0d 32 32 44  |.(2BNE FIN...22D|
00000580  45 43 20 59 50 00 94 0d  3c 32 4a 4d 50 20 9a 52  |EC YP...<2JMP .R|
00000590  4f 4c 00 a7 0d 46 32 3b  20 57 49 4d 50 20 ab 20  |OL...F2; WIMP . |
000005a0  50 4f b5 45 52 00 b9 0d  50 32 9a 52 4f 4c 20 4c  |PO.ER...P2.ROL L|
000005b0  44 41 20 48 4f 55 52 00  c9 0d 5a 32 42 45 51 20  |DA HOUR...Z2BEQ |
000005c0  4e 48 47 4c 41 53 53 00  d6 0d 9a 33 4c 44 58 20  |NHGLASS....3LDX |
000005d0  23 24 37 41 00 e4 0d a4  33 53 54 58 20 24 30 37  |#$7A....3STX $07|
000005e0  46 38 00 ec 0d ae 33 49  4e 58 00 fa 0d b8 33 53  |F8....3INX....3S|
000005f0  54 58 20 24 30 37 46 39  00 0d 0e c2 33 4e 48 47  |TX $07F9....3NHG|
00000600  4c 41 53 53 20 4c 44 41  20 58 50 00 1b 0e cc 33  |LASS LDA XP....3|
00000610  53 54 41 20 24 44 30 30  30 00 29 0e d6 33 53 54  |STA $D000.)..3ST|
00000620  41 20 24 44 30 30 32 00  34 0e e0 33 4c 44 41 20  |A $D002.4..3LDA |
00000630  59 50 00 42 0e ea 33 53  54 41 20 24 44 30 30 31  |YP.B..3STA $D001|
00000640  00 50 0e f4 33 53 54 41  20 24 44 30 30 33 00 5e  |.P..3STA $D003.^|
00000650  0e fe 33 4c 44 41 20 24  44 30 31 30 00 69 0e 08  |..3LDA $D010.i..|
00000660  34 af 20 23 24 46 43 00  73 0e 12 34 4c 53 52 20  |4. #$FC.s..4LSR |
00000670  41 00 7b 0e 1c 34 43 4c  43 00 87 0e 26 34 41 44  |A.{..4CLC...&4AD|
00000680  43 20 58 50 42 00 91 0e  30 34 41 53 4c 20 41 00  |C XPB...04ASL A.|
00000690  99 0e 3a 34 43 4c 43 00  a5 0e 44 34 41 44 43 20  |..:4CLC...D4ADC |
000006a0  58 50 42 00 b3 0e 4e 34  53 54 41 20 24 44 30 31  |XPB...N4STA $D01|
000006b0  30 00 c0 0e 58 34 4c 44  41 20 23 24 30 30 00 ce  |0...X4LDA #$00..|
000006c0  0e 62 34 53 54 41 20 24  44 30 32 37 00 db 0e 6c  |.b4STA $D027...l|
000006d0  34 4c 44 41 20 23 24 30  31 00 e9 0e 76 34 53 54  |4LDA #$01...v4ST|
000006e0  41 20 24 44 30 32 38 00  f7 0e 80 34 4c 44 41 20  |A $D028....4LDA |
000006f0  24 44 30 31 35 00 03 0f  8a 34 b0 41 20 23 24 30  |$D015....4.A #$0|
00000700  33 00 11 0f 94 34 53 54  41 20 24 44 30 31 35 00  |3....4STA $D015.|
00000710  1e 0f 9e 34 4c 44 41 20  48 4f 55 52 00 2b 0f a8  |...4LDA HOUR.+..|
00000720  34 42 4e 45 20 51 54 52  4f 00 38 0f b2 34 4c 44  |4BNE QTRO.8..4LD|
00000730  58 20 23 24 37 38 00 46  0f bc 34 53 54 41 20 24  |X #$78.F..4STA $|
00000740  30 37 46 38 00 4e 0f c6  34 49 4e 58 00 5c 0f d0  |07F8.N..4INX.\..|
00000750  34 53 54 41 20 24 30 37  46 39 00 69 0f da 34 51  |4STA $07F9.i..4Q|
00000760  54 52 4f 20 52 54 53 00  80 0f e4 34 3b 20 53 54  |TRO RTS....4; ST|
00000770  41 52 54 55 50 20 52 4f  55 54 49 4e 45 53 00 92  |ARTUP ROUTINES..|
00000780  0f ee 34 49 4e 49 54 20  4c 44 41 20 23 24 30 30  |..4INIT LDA #$00|
00000790  00 a0 0f f8 34 53 54 41  20 24 44 30 32 30 00 ae  |....4STA $D020..|
000007a0  0f 02 35 53 54 41 20 24  44 30 32 31 00 b9 0f 0c  |..5STA $D021....|
000007b0  35 53 54 41 20 58 50 00  c6 0f 16 35 53 54 41 20  |5STA XP....5STA |
000007c0  48 4f 55 52 00 d4 0f 20  35 53 54 41 20 24 44 30  |HOUR... 5STA $D0|
000007d0  31 35 00 e1 0f 2a 35 4c  44 41 20 23 24 30 31 00  |15...*5LDA #$01.|
000007e0  ed 0f 34 35 53 54 41 20  58 50 42 00 fa 0f 3e 35  |..45STA XPB...>5|
000007f0  4c 44 41 20 23 24 38 30  00 05 10 48 35 53 54 41  |LDA #$80...H5STA|
00000800  20 59 50 00 19 10 52 35  48 49 52 45 53 91 20 4c  | YP...R5HIRES. L|
00000810  44 41 20 23 24 33 42 00  27 10 5c 35 53 54 41 20  |DA #$3B.'.\5STA |
00000820  24 44 30 31 31 00 34 10  66 35 4c 44 41 20 23 24  |$D011.4.f5LDA #$|
00000830  44 38 00 42 10 70 35 53  54 41 20 24 44 30 31 36  |D8.B.p5STA $D016|
00000840  00 4f 10 7a 35 4c 44 41  20 23 24 30 30 00 5b 10  |.O.z5LDA #$00.[.|
00000850  84 35 53 54 41 20 24 46  42 00 63 10 8e 35 54 41  |.5STA $FB.c..5TA|
00000860  59 00 70 10 98 35 4c 44  41 20 23 24 30 34 00 7c  |Y.p..5LDA #$04.||
00000870  10 a2 35 53 54 41 20 24  46 43 00 89 10 ac 35 4c  |..5STA $FC....5L|
00000880  44 41 20 23 24 37 45 00  9e 10 b6 35 46 4c 4f 50  |DA #$7E....5FLOP|
00000890  20 53 54 41 20 28 24 46  42 29 2c 59 00 a6 10 c0  | STA ($FB),Y....|
000008a0  35 49 4e 59 00 b6 10 ca  35 42 45 51 20 46 4c 4f  |5INY....5BEQ FLO|
000008b0  50 49 4e 43 00 c3 10 d4  35 43 50 59 20 23 24 46  |PINC....5CPY #$F|
000008c0  38 00 d0 10 de 35 42 4e  45 20 46 4c 4f 50 00 dc  |8....5BNE FLOP..|
000008d0  10 e8 35 4c 44 58 20 24  46 43 00 e9 10 f2 35 43  |..5LDX $FC....5C|
000008e0  50 58 20 23 24 30 37 00  f6 10 fc 35 42 4e 45 20  |PX #$07....5BNE |
000008f0  46 4c 4f 50 00 03 11 06  36 4a 53 52 20 4c 45 46  |FLOP....6JSR LEF|
00000900  54 00 0b 11 10 36 53 45  49 00 19 11 1a 36 4c 44  |T....6SEI....6LD|
00000910  41 20 23 b3 49 52 51 00  27 11 24 36 53 54 41 20  |A #.IRQ.'.$6STA |
00000920  24 30 33 31 34 00 35 11  2e 36 4c 44 41 20 23 b1  |$0314.5..6LDA #.|
00000930  49 52 51 00 43 11 38 36  53 54 41 20 24 30 33 31  |IRQ.C.86STA $031|
00000940  35 00 4b 11 42 36 43 4c  49 00 58 11 4c 36 4c 44  |5.K.B6CLI.X.L6LD|
00000950  41 20 23 24 44 38 00 64  11 56 36 53 54 41 20 24  |A #$D8.d.V6STA $|
00000960  46 43 00 71 11 60 36 4c  44 41 20 23 24 30 30 00  |FC.q.`6LDA #$00.|
00000970  79 11 6a 36 54 41 59 00  8f 11 74 36 46 4c 4f 50  |y.j6TAY...t6FLOP|
00000980  42 20 53 54 41 20 28 24  46 42 29 2c 59 00 97 11  |B STA ($FB),Y...|
00000990  7e 36 49 4e 59 00 a5 11  88 36 42 4e 45 20 46 4c  |~6INY....6BNE FL|
000009a0  4f 50 42 00 b1 11 92 36  49 4e 43 20 24 46 43 00  |OPB....6INC $FC.|
000009b0  bd 11 9c 36 4c 44 41 20  24 46 43 00 ca 11 a6 36  |...6LDA $FC....6|
000009c0  43 4d 50 20 23 24 44 43  00 d8 11 b0 36 42 4e 45  |CMP #$DC....6BNE|
000009d0  20 46 4c 4f 50 42 00 e5  11 ba 36 4c 44 41 20 23  | FLOPB....6LDA #|
000009e0  24 31 38 00 f3 11 c4 36  53 54 41 20 24 44 30 31  |$18....6STA $D01|
000009f0  38 00 fb 11 34 3a 52 54  53 00 0f 12 3e 3a 46 4c  |8...4:RTS...>:FL|
00000a00  4f 50 49 4e 43 20 49 4e  43 20 24 46 43 00 1c 12  |OPINC INC $FC...|
00000a10  48 3a 4a 4d 50 20 46 4c  4f 50 00 2d 12 52 3a 48  |H:JMP FLOP.-.R:H|
00000a20  49 52 45 53 4f 46 46 20  53 45 49 00 3a 12 5c 3a  |IRESOFF SEI.:.\:|
00000a30  4c 44 41 20 23 24 33 31  00 48 12 66 3a 53 54 41  |LDA #$31.H.f:STA|
00000a40  20 24 30 33 31 34 00 55  12 70 3a 4c 44 41 20 23  | $0314.U.p:LDA #|
00000a50  24 45 41 00 63 12 7a 3a  53 54 41 20 24 30 33 31  |$EA.c.z:STA $031|
00000a60  35 00 6b 12 84 3a 43 4c  49 00 78 12 8e 3a 4c 44  |5.k..:CLI.x..:LD|
00000a70  41 20 23 24 30 30 00 86  12 98 3a 53 54 41 20 24  |A #$00....:STA $|
00000a80  44 30 31 35 00 93 12 a2  3a 4c 44 41 20 23 24 39  |D015....:LDA #$9|
00000a90  42 00 a1 12 ac 3a 53 54  41 20 24 44 30 31 31 00  |B....:STA $D011.|
00000aa0  ae 12 b6 3a 4c 44 41 20  23 24 43 38 00 bc 12 c0  |...:LDA #$C8....|
00000ab0  3a 53 54 41 20 24 44 30  31 36 00 c4 12 ca 3a 52  |:STA $D016....:R|
00000ac0  54 53 00 e8 12 30 75 3b  20 20 20 20 20 20 20 20  |TS...0u;        |
00000ad0  20 20 4d af 4c 45 42 52  4f 54 20 53 45 54 20 50  |  M.LEBROT SET P|
00000ae0  4c 4f 54 54 45 52 00 fa  12 3a 75 4d af 4c 45 20  |LOTTER...:uM.LE |
00000af0  4c 44 41 20 23 24 30 30  00 09 13 44 75 53 54 41  |LDA #$00...DuSTA|
00000b00  20 59 50 49 58 45 4c 00  16 13 4e 75 4c 44 41 20  | YPIXEL...NuLDA |
00000b10  23 24 30 33 00 24 13 58  75 53 54 41 20 24 34 31  |#$03.$.XuSTA $41|
00000b20  30 30 00 31 13 62 75 4c  44 41 20 23 24 30 36 00  |00.1.buLDA #$06.|
00000b30  3f 13 6c 75 53 54 41 20  24 34 31 30 32 00 4d 13  |?.luSTA $4102.M.|
00000b40  76 75 4a 53 52 20 45 51  55 41 4c 00 61 13 80 75  |vuJSR EQUAL.a..u|
00000b50  4d 4d 41 49 4e 4c 20 4c  44 41 20 23 24 30 30 00  |MMAINL LDA #$00.|
00000b60  70 13 8a 75 53 54 41 20  58 50 49 58 45 4c 00 7d  |p..uSTA XPIXEL.}|
00000b70  13 94 75 4c 44 41 20 23  24 30 31 00 8b 13 9e 75  |..uLDA #$01....u|
00000b80  53 54 41 20 24 34 31 30  30 00 98 13 a8 75 4c 44  |STA $4100....uLD|
00000b90  41 20 23 24 30 35 00 a6  13 b2 75 53 54 41 20 24  |A #$05....uSTA $|
00000ba0  34 31 30 32 00 b4 13 bc  75 4a 53 52 20 45 51 55  |4102....uJSR EQU|
00000bb0  41 4c 00 c9 13 c6 75 4d  4d 41 49 4e 4c 42 20 4c  |AL....uMMAINLB L|
00000bc0  44 41 20 23 24 30 35 00  d7 13 d0 75 53 54 41 20  |DA #$05....uSTA |
00000bd0  24 34 31 30 30 00 e4 13  da 75 4c 44 41 20 23 24  |$4100....uLDA #$|
00000be0  30 37 00 f2 13 e4 75 53  54 41 20 24 34 31 30 32  |07....uSTA $4102|
00000bf0  00 00 14 ee 75 4a 53 52  20 45 51 55 41 4c 00 0e  |....uJSR EQUAL..|
00000c00  14 f8 75 49 4e 43 20 24  34 31 30 30 00 1c 14 02  |..uINC $4100....|
00000c10  76 49 4e 43 20 24 34 31  30 32 00 2a 14 0c 76 4a  |vINC $4102.*..vJ|
00000c20  53 52 20 45 51 55 41 4c  00 37 14 16 76 4c 44 41  |SR EQUAL.7..vLDA|
00000c30  20 23 24 30 30 00 46 14  20 76 53 54 41 20 43 4f  | #$00.F. vSTA CO|
00000c40  4c 4f 55 52 00 58 14 2a  76 4c 4f 4f 50 20 4c 44  |LOUR.X.*vLOOP LD|
00000c50  41 20 23 24 30 37 00 66  14 34 76 53 54 41 20 24  |A #$07.f.4vSTA $|
00000c60  34 31 30 30 00 74 14 3e  76 53 54 41 20 24 34 31  |4100.t.>vSTA $41|
00000c70  30 31 00 81 14 48 76 4c  44 41 20 23 24 31 30 00  |01...HvLDA #$10.|
00000c80  8f 14 52 76 53 54 41 20  24 34 31 30 32 00 a0 14  |..RvSTA $4102...|
00000c90  5c 76 4a 53 52 20 4d 55  4c 54 49 50 4c 59 00 ad  |\vJSR MULTIPLY..|
00000ca0  14 66 76 4c 44 41 20 23  24 30 38 00 bb 14 70 76  |.fvLDA #$08...pv|
00000cb0  53 54 41 20 24 34 31 30  30 00 c9 14 7a 76 53 54  |STA $4100...zvST|
00000cc0  41 20 24 34 31 30 31 00  d6 14 84 76 4c 44 41 20  |A $4101....vLDA |
00000cd0  23 24 31 31 00 e4 14 8e  76 53 54 41 20 24 34 31  |#$11....vSTA $41|
00000ce0  30 32 00 f5 14 98 76 4a  53 52 20 4d 55 4c 54 49  |02....vJSR MULTI|
00000cf0  50 4c 59 00 02 15 a2 76  4c 44 58 20 23 24 31 30  |PLY....vLDX #$10|
00000d00  00 10 15 ac 76 53 54 58  20 24 34 31 30 30 00 18  |....vSTX $4100..|
00000d10  15 b6 76 49 4e 58 00 26  15 c0 76 53 54 58 20 24  |..vINX.&..vSTX $|
00000d20  34 31 30 31 00 2e 15 ca  76 49 4e 58 00 3c 15 d4  |4101....vINX.<..|
00000d30  76 53 54 58 20 24 34 31  30 32 00 4c 15 de 76 4a  |vSTX $4102.L..vJ|
00000d40  53 52 20 41 44 44 49 54  49 91 00 5a 15 e8 76 4c  |SR ADDITI..Z..vL|
00000d50  44 41 20 24 34 30 39 31  00 67 15 f2 76 43 4d 50  |DA $4091.g..vCMP|
00000d60  20 23 24 30 34 00 74 15  fc 76 42 43 43 20 46 41  | #$04.t..vBCC FA|
00000d70  49 4c 00 81 15 06 77 43  4d 50 20 23 24 35 30 00  |IL....wCMP #$50.|
00000d80  8e 15 10 77 42 43 53 20  46 41 49 4c 00 a6 15 1a  |...wBCS FAIL....|
00000d90  77 53 55 43 50 41 53 53  20 4a 4d 50 20 53 55 43  |wSUCPASS JMP SUC|
00000da0  43 45 53 53 00 ba 15 24  77 46 41 49 4c 20 49 4e  |CESS...$wFAIL IN|
00000db0  43 20 43 4f 4c 4f 55 52  00 c9 15 29 77 4c 44 41  |C COLOUR...)wLDA|
00000dc0  20 43 4f 4c 4f 55 52 00  d8 15 2e 77 43 4d 50 20  | COLOUR....wCMP |
00000dd0  4d 41 58 43 4f 4c 00 e8  15 38 77 42 45 51 20 53  |MAXCOL...8wBEQ S|
00000de0  55 43 50 41 53 53 00 f9  15 42 77 4a 53 52 20 53  |UCPASS...BwJSR S|
00000df0  55 42 54 52 41 43 54 00  06 16 4c 77 4c 44 41 20  |UBTRACT...LwLDA |
00000e00  23 24 31 32 00 14 16 56  77 53 54 41 20 24 34 31  |#$12...VwSTA $41|
00000e10  30 30 00 21 16 60 77 4c  44 41 20 23 24 30 35 00  |00.!.`wLDA #$05.|
00000e20  2f 16 6a 77 53 54 41 20  24 34 31 30 31 00 3c 16  |/.jwSTA $4101.<.|
00000e30  74 77 4c 44 41 20 23 24  31 33 00 4a 16 7e 77 53  |twLDA #$13.J.~wS|
00000e40  54 41 20 24 34 31 30 32  00 5a 16 88 77 4a 53 52  |TA $4102.Z..wJSR|
00000e50  20 41 44 44 49 54 49 91  00 67 16 92 77 4c 44 41  | ADDITI..g..wLDA|
00000e60  20 23 24 30 37 00 75 16  9c 77 53 54 41 20 24 34  | #$07.u..wSTA $4|
00000e70  31 30 30 00 82 16 a6 77  4c 44 41 20 23 24 30 38  |100....wLDA #$08|
00000e80  00 90 16 b0 77 53 54 41  20 24 34 31 30 31 00 9e  |....wSTA $4101..|
00000e90  16 ba 77 49 4e 43 20 24  34 31 30 32 00 af 16 c4  |..wINC $4102....|
00000ea0  77 4a 53 52 20 4d 55 4c  54 49 50 4c 59 00 bc 16  |wJSR MULTIPLY...|
00000eb0  ce 77 4c 44 41 20 23 24  31 34 00 ca 16 d8 77 53  |.wLDA #$14....wS|
00000ec0  54 41 20 24 34 31 30 30  00 d7 16 e2 77 4c 44 41  |TA $4100....wLDA|
00000ed0  20 23 24 31 43 00 e5 16  ec 77 53 54 41 20 24 34  | #$1C....wSTA $4|
00000ee0  31 30 31 00 f2 16 f6 77  4c 44 41 20 23 24 31 35  |101....wLDA #$15|
00000ef0  00 00 17 00 78 53 54 41  20 24 34 31 30 32 00 11  |....xSTA $4102..|
00000f00  17 0a 78 4a 53 52 20 4d  55 4c 54 49 50 4c 59 00  |..xJSR MULTIPLY.|
00000f10  1e 17 14 78 4c 44 41 20  23 24 31 35 00 2c 17 1e  |...xLDA #$15.,..|
00000f20  78 53 54 41 20 24 34 31  30 30 00 39 17 28 78 4c  |xSTA $4100.9.(xL|
00000f30  44 41 20 23 24 30 36 00  47 17 32 78 53 54 41 20  |DA #$06.G.2xSTA |
00000f40  24 34 31 30 31 00 54 17  3c 78 4c 44 41 20 23 24  |$4101.T.<xLDA #$|
00000f50  31 36 00 62 17 46 78 53  54 41 20 24 34 31 30 32  |16.b.FxSTA $4102|
00000f60  00 72 17 50 78 4a 53 52  20 41 44 44 49 54 49 91  |.r.PxJSR ADDITI.|
00000f70  00 7f 17 5a 78 4c 44 41  20 23 24 31 33 00 8d 17  |...ZxLDA #$13...|
00000f80  64 78 53 54 41 20 24 34  31 30 30 00 9a 17 6e 78  |dxSTA $4100...nx|
00000f90  4c 44 41 20 23 24 30 37  00 a8 17 78 78 53 54 41  |LDA #$07...xxSTA|
00000fa0  20 24 34 31 30 32 00 b6  17 82 78 4a 53 52 20 45  | $4102....xJSR E|
00000fb0  51 55 41 4c 00 c3 17 8c  78 4c 44 41 20 23 24 31  |QUAL....xLDA #$1|
00000fc0  36 00 d1 17 96 78 53 54  41 20 24 34 31 30 30 00  |6....xSTA $4100.|
00000fd0  de 17 a0 78 4c 44 41 20  23 24 30 38 00 ec 17 aa  |...xLDA #$08....|
00000fe0  78 53 54 41 20 24 34 31  30 32 00 fa 17 b4 78 4a  |xSTA $4102....xJ|
00000ff0  53 52 20 45 51 55 41 4c  00 07 18 be 78 4a 4d 50  |SR EQUAL....xJMP|
00001000  20 4c 4f 4f 50 00 1c 18  c8 78 53 55 43 43 45 53  | LOOP....xSUCCES|
00001010  53 20 4a 53 52 20 50 4c  4f 54 00 29 18 d2 78 4c  |S JSR PLOT.)..xL|
00001020  44 41 20 23 24 30 35 00  37 18 dc 78 53 54 41 20  |DA #$05.7..xSTA |
00001030  24 34 31 30 30 00 45 18  e6 78 53 54 41 20 24 34  |$4100.E..xSTA $4|
00001040  31 30 32 00 52 18 f0 78  4c 44 41 20 23 24 30 32  |102.R..xLDA #$02|
00001050  00 60 18 fa 78 53 54 41  20 24 34 31 30 31 00 70  |.`..xSTA $4101.p|
00001060  18 04 79 4a 53 52 20 41  44 44 49 54 49 91 00 7f  |..yJSR ADDITI...|
00001070  18 0e 79 4c 44 41 20 58  50 49 58 45 4c 00 8e 18  |..yLDA XPIXEL...|
00001080  18 79 42 4e 45 20 58 52  45 4c 4f 50 00 9b 18 22  |.yBNE XRELOP..."|
00001090  79 4c 44 41 20 23 24 30  36 00 a9 18 2c 79 53 54  |yLDA #$06...,yST|
000010a0  41 20 24 34 31 30 30 00  b7 18 36 79 53 54 41 20  |A $4100...6ySTA |
000010b0  24 34 31 30 32 00 c4 18  40 79 4c 44 41 20 23 24  |$4102...@yLDA #$|
000010c0  30 34 00 d2 18 4a 79 53  54 41 20 24 34 31 30 31  |04...JySTA $4101|
000010d0  00 e2 18 54 79 4a 53 52  20 41 44 44 49 54 49 91  |...TyJSR ADDITI.|
000010e0  00 f1 18 5e 79 49 4e 43  20 59 50 49 58 45 4c 00  |...^yINC YPIXEL.|
000010f0  00 19 68 79 4c 44 41 20  59 50 49 58 45 4c 00 0d  |..hyLDA YPIXEL..|
00001100  19 72 79 43 4d 50 20 23  24 43 38 00 1c 19 7c 79  |.ryCMP #$C8...|y|
00001110  42 4e 45 20 59 52 45 4c  4f 50 00 24 19 86 79 52  |BNE YRELOP.$..yR|
00001120  54 53 00 3b 19 90 79 58  52 45 4c 4f 50 20 4a 4d  |TS.;..yXRELOP JM|
00001130  50 20 4d 4d 41 49 4e 4c  42 00 51 19 9a 79 59 52  |P MMAINLB.Q..yYR|
00001140  45 4c 4f 50 20 4a 4d 50  20 4d 4d 41 49 4e 4c 00  |ELOP JMP MMAINL.|
00001150  77 19 40 9c 3b 20 20 20  20 20 20 20 20 20 20 20  |w.@.;           |
00001160  20 20 41 52 49 54 48 4d  45 54 49 43 20 52 4f 55  |  ARITHMETIC ROU|
00001170  54 49 4e 45 53 00 86 19  4a 9c a1 44 49 47 49 54  |TINES...J..DIGIT|
00001180  20 43 4c 44 00 90 19 54  9c 41 53 4c 20 41 00 9a  | CLD...T.ASL A..|
00001190  19 5e 9c 41 53 4c 20 41  00 a4 19 68 9c 41 53 4c  |.^.ASL A...h.ASL|
000011a0  20 41 00 b0 19 72 9c 53  54 41 20 24 30 32 00 b8  | A...r.STA $02..|
000011b0  19 7c 9c 54 58 41 00 c2  19 86 9c 4c 53 52 20 41  |.|.TXA.....LSR A|
000011c0  00 ce 19 90 9c 53 54 41  20 24 32 34 00 db 19 9a  |.....STA $24....|
000011d0  9c 4c 44 41 20 23 24 30  37 00 e3 19 a4 9c 53 45  |.LDA #$07.....SE|
000011e0  43 00 ef 19 ae 9c 53 42  43 20 24 32 34 00 f7 19  |C.....SBC $24...|
000011f0  b8 9c 43 4c 43 00 03 1a  c2 9c 41 44 43 20 24 30  |..CLC.....ADC $0|
00001200  32 00 0b 1a cc 9c 54 41  59 00 1b 1a d6 9c 4c 44  |2.....TAY.....LD|
00001210  41 20 24 34 30 30 30 2c  59 00 23 1a e0 9c 54 41  |A $4000,Y.#...TA|
00001220  59 00 2b 1a ea 9c 54 58  41 00 36 1a f4 9c af 20  |Y.+...TXA.6.... |
00001230  23 24 30 31 00 44 1a fe  9c 42 45 51 20 4c 53 4e  |#$01.D...BEQ LSN|
00001240  47 44 00 4c 1a 08 9d 54  59 41 00 57 1a 12 9d af  |GD.L...TYA.W....|
00001250  20 23 24 46 30 00 61 1a  1c 9d 4c 53 52 20 41 00  | #$F0.a...LSR A.|
00001260  6b 1a 26 9d 4c 53 52 20  41 00 75 1a 30 9d 4c 53  |k.&.LSR A.u.0.LS|
00001270  52 20 41 00 7f 1a 3a 9d  4c 53 52 20 41 00 87 1a  |R A...:.LSR A...|
00001280  44 9d 52 54 53 00 95 1a  4e 9d 4c 53 4e 47 44 20  |D.RTS...N.LSNGD |
00001290  54 59 41 00 a0 1a 58 9d  af 20 23 24 30 46 00 a8  |TYA...X.. #$0F..|
000012a0  1a 62 9d 52 54 53 00 c3  1a 6c 9d 4d 55 4c 54 49  |.b.RTS...l.MULTI|
000012b0  50 4c 59 42 20 4a 53 52  20 4e 45 47 41 54 49 56  |PLYB JSR NEGATIV|
000012c0  45 00 d1 1a 71 9d 4c 44  41 20 24 34 31 30 32 00  |E...q.LDA $4102.|
000012d0  db 1a 76 9d 41 53 4c 20  41 00 e5 1a 80 9d 41 53  |..v.ASL A.....AS|
000012e0  4c 20 41 00 ef 1a 8a 9d  41 53 4c 20 41 00 f7 1a  |L A.....ASL A...|
000012f0  94 9d 54 41 58 00 04 1b  9e 9d 4c 44 41 20 23 24  |..TAX.....LDA #$|
00001300  30 30 00 0c 1b a8 9d 54  41 59 00 22 1b b2 9d 4d  |00.....TAY."...M|
00001310  4c 4f 50 41 20 53 54 41  20 24 34 30 30 30 2c 58  |LOPA STA $4000,X|
00001320  00 2a 1b bc 9d 49 4e 59  00 32 1b c6 9d 49 4e 58  |.*...INY.2...INX|
00001330  00 3f 1b d0 9d 43 50 59  20 23 24 30 38 00 4d 1b  |.?...CPY #$08.M.|
00001340  da 9d 42 4e 45 20 4d 4c  4f 50 41 00 5a 1b e4 9d  |..BNE MLOPA.Z...|
00001350  4c 44 41 20 23 24 30 36  00 66 1b ee 9d 53 54 41  |LDA #$06.f...STA|
00001360  20 24 46 43 00 7b 1b f8  9d a2 44 49 47 49 54 20  | $FC.{....DIGIT |
00001370  4c 44 41 20 24 34 31 30  31 00 87 1b 02 9e 4c 44  |LDA $4101.....LD|
00001380  58 20 24 46 43 00 96 1b  0c 9e 4a 53 52 20 a1 44  |X $FC.....JSR .D|
00001390  49 47 49 54 00 a3 1b 16  9e 43 4d 50 20 23 24 30  |IGIT.....CMP #$0|
000013a0  30 00 b2 1b 20 9e 42 45  51 20 44 4d 4f 56 45 52  |0... .BEQ DMOVER|
000013b0  00 be 1b 2a 9e 53 54 41  20 24 46 44 00 cb 1b 34  |...*.STA $FD...4|
000013c0  9e 4c 44 41 20 23 24 30  36 00 d7 1b 3e 9e 53 54  |.LDA #$06...>.ST|
000013d0  41 20 24 46 42 00 eb 1b  48 9e 44 4d 4c 4f 50 20  |A $FB...H.DMLOP |
000013e0  4c 44 41 20 24 34 31 30  30 00 f7 1b 52 9e 4c 44  |LDA $4100...R.LD|
000013f0  58 20 24 46 42 00 06 1c  5c 9e 4a 53 52 20 a1 44  |X $FB...\.JSR .D|
00001400  49 47 49 54 00 18 1c 66  9e 44 4d 4c 42 20 43 4d  |IGIT...f.DMLB CM|
00001410  50 20 23 24 30 30 00 27  1c 70 9e 42 45 51 20 44  |P #$00.'.p.BEQ D|
00001420  4d 4f 56 45 52 00 33 1c  7a 9e 53 54 41 20 24 46  |MOVER.3.z.STA $F|
00001430  45 00 3f 1c 84 9e 4c 44  41 20 24 46 42 00 47 1c  |E.?...LDA $FB.G.|
00001440  8e 9e 43 4c 43 00 53 1c  98 9e 41 44 43 20 24 46  |..CLC.S...ADC $F|
00001450  43 00 5b 1c a2 9e 53 45  43 00 68 1c ac 9e 53 42  |C.[...SEC.h...SB|
00001460  43 20 23 24 30 43 00 74  1c b6 9e 4c 44 58 20 24  |C #$0C.t...LDX $|
00001470  46 44 00 7c 1c c0 9e 54  41 59 00 87 1c ca 9e af  |FD.|...TAY......|
00001480  20 23 24 30 31 00 95 1c  d4 9e 42 45 51 20 4d 53  | #$01.....BEQ MS|
00001490  4b 49 50 00 9d 1c de 9e  54 58 41 00 a7 1c e8 9e  |KIP.....TXA.....|
000014a0  41 53 4c 20 41 00 b1 1c  f2 9e 41 53 4c 20 41 00  |ASL A.....ASL A.|
000014b0  bb 1c fc 9e 41 53 4c 20  41 00 c5 1c 06 9f 41 53  |....ASL A.....AS|
000014c0  4c 20 41 00 cd 1c 10 9f  54 41 58 00 db 1c 1a 9f  |L A.....TAX.....|
000014d0  4d 53 4b 49 50 20 54 59  41 00 e5 1c 24 9f 4c 53  |MSKIP TYA...$.LS|
000014e0  52 20 41 00 f1 1c 2e 9f  53 54 41 20 24 30 32 00  |R A.....STA $02.|
000014f0  fe 1c 38 9f 4c 44 41 20  23 24 30 37 00 06 1d 42  |..8.LDA #$07...B|
00001500  9f 53 45 43 00 12 1d 4c  9f 53 42 43 20 24 30 32  |.SEC...L.SBC $02|
00001510  00 1e 1d 56 9f 53 54 41  20 24 30 32 00 2c 1d 60  |...V.STA $02.,.`|
00001520  9f 4c 44 41 20 24 34 31  30 32 00 36 1d 6a 9f 41  |.LDA $4102.6.j.A|
00001530  53 4c 20 41 00 40 1d 74  9f 41 53 4c 20 41 00 4a  |SL A.@.t.ASL A.J|
00001540  1d 7e 9f 41 53 4c 20 41  00 56 1d 88 9f 41 44 43  |.~.ASL A.V...ADC|
00001550  20 24 30 32 00 5e 1d 92  9f 54 41 59 00 6a 1d 9c  | $02.^...TAY.j..|
00001560  9f 53 54 58 20 24 32 34  00 76 1d a6 9f 4c 44 58  |.STX $24.v...LDX|
00001570  20 24 30 32 00 7e 1d b0  9f 53 45 44 00 8e 1d ba  | $02.~...SED....|
00001580  9f 4c 44 41 20 24 34 30  30 30 2c 59 00 96 1d c4  |.LDA $4000,Y....|
00001590  9f 43 4c 43 00 a2 1d ce  9f 41 44 43 20 24 32 34  |.CLC.....ADC $24|
000015a0  00 b2 1d d8 9f 53 54 41  20 24 34 30 30 30 2c 59  |.....STA $4000,Y|
000015b0  00 bf 1d e2 9f 4d 41 4c  50 20 43 4c 44 00 ce 1d  |.....MALP CLD...|
000015c0  ec 9f 42 43 43 20 4d 41  51 55 49 54 00 d6 1d f6  |..BCC MAQUIT....|
000015d0  9f 44 45 59 00 de 1d 00  a0 44 45 58 00 eb 1d 0a  |.DEY.....DEX....|
000015e0  a0 43 50 58 20 23 24 46  46 00 fa 1d 14 a0 42 45  |.CPX #$FF.....BE|
000015f0  51 20 4d 41 51 55 49 54  00 02 1e 1e a0 53 45 44  |Q MAQUIT.....SED|
00001600  00 12 1e 28 a0 4c 44 41  20 24 34 30 30 30 2c 59  |...(.LDA $4000,Y|
00001610  00 1a 1e 32 a0 43 4c 43  00 27 1e 3c a0 41 44 43  |...2.CLC.'.<.ADC|
00001620  20 23 24 30 31 00 37 1e  46 a0 53 54 41 20 24 34  | #$01.7.F.STA $4|
00001630  30 30 30 2c 59 00 44 1e  50 a0 4a 4d 50 20 4d 41  |000,Y.D.P.JMP MA|
00001640  4c 50 00 57 1e 5a a0 44  4d 4f 56 45 52 20 49 4e  |LP.W.Z.DMOVER IN|
00001650  43 20 24 46 42 00 63 1e  64 a0 4c 44 41 20 24 46  |C $FB.c.d.LDA $F|
00001660  42 00 70 1e 6e a0 43 4d  50 20 23 24 30 45 00 7e  |B.p.n.CMP #$0E.~|
00001670  1e 78 a0 42 43 43 20 44  4d 4c 4f 50 00 8a 1e 82  |.x.BCC DMLOP....|
00001680  a0 49 4e 43 20 24 46 43  00 96 1e 8c a0 4c 44 41  |.INC $FC.....LDA|
00001690  20 24 46 43 00 a3 1e 96  a0 43 4d 50 20 23 24 30  | $FC.....CMP #$0|
000016a0  45 00 b2 1e a0 a0 42 43  43 20 a2 44 49 47 49 54  |E.....BCC .DIGIT|
000016b0  00 bf 1e aa a0 4c 44 41  20 59 50 49 42 00 cc 1e  |.....LDA YPIB...|
000016c0  b4 a0 42 45 51 20 51 55  49 54 00 da 1e be a0 4c  |..BEQ QUIT.....L|
000016d0  44 41 20 24 34 31 30 32  00 e8 1e c8 a0 53 54 41  |DA $4102.....STA|
000016e0  20 24 34 31 30 31 00 f5  1e d2 a0 4c 44 41 20 23  | $4101.....LDA #|
000016f0  24 31 44 00 03 1f dc a0  53 54 41 20 24 34 31 30  |$1D.....STA $410|
00001700  30 00 14 1f e6 a0 4a 53  52 20 53 55 42 54 52 41  |0.....JSR SUBTRA|
00001710  43 54 00 21 1f f0 a0 51  55 49 54 20 52 54 53 00  |CT.!...QUIT RTS.|
00001720  34 1f fa a0 4d 41 51 55  49 54 20 4c 44 58 20 24  |4...MAQUIT LDX $|
00001730  46 45 00 3c 1f 04 a1 44  45 58 00 44 1f 0e a1 54  |FE.<...DEX.D...T|
00001740  58 41 00 51 1f 18 a1 4a  4d 50 20 44 4d 4c 42 00  |XA.Q...JMP DMLB.|
00001750  64 1f 22 a1 4d 53 55 50  20 4c 44 41 20 24 34 31  |d.".MSUP LDA $41|
00001760  30 30 00 6e 1f 2c a1 41  53 4c 20 41 00 78 1f 36  |00.n.,.ASL A.x.6|
00001770  a1 41 53 4c 20 41 00 82  1f 40 a1 41 53 4c 20 41  |.ASL A...@.ASL A|
00001780  00 8a 1f 4a a1 54 41 58  00 92 1f 54 a1 44 45 58  |...J.TAX...T.DEX|
00001790  00 9e 1f 5e a1 53 54 58  20 24 46 42 00 ac 1f 68  |...^.STX $FB...h|
000017a0  a1 4c 44 41 20 24 34 31  30 31 00 b6 1f 72 a1 41  |.LDA $4101...r.A|
000017b0  53 4c 20 41 00 c0 1f 7c  a1 41 53 4c 20 41 00 ca  |SL A...|.ASL A..|
000017c0  1f 86 a1 41 53 4c 20 41  00 d2 1f 90 a1 54 41 58  |...ASL A.....TAX|
000017d0  00 da 1f 9a a1 44 45 58  00 e6 1f a4 a1 53 54 58  |.....DEX.....STX|
000017e0  20 24 46 44 00 f4 1f ae  a1 4c 44 41 20 24 34 31  | $FD.....LDA $41|
000017f0  30 32 00 fe 1f b8 a1 41  53 4c 20 41 00 08 20 c2  |02.....ASL A.. .|
00001800  a1 41 53 4c 20 41 00 12  20 cc a1 41 53 4c 20 41  |.ASL A.. ..ASL A|
00001810  00 1a 20 d6 a1 54 41 58  00 22 20 e0 a1 44 45 58  |.. ..TAX." ..DEX|
00001820  00 2e 20 ea a1 53 54 58  20 24 32 32 00 3b 20 f4  |.. ..STX $22.; .|
00001830  a1 4c 44 41 20 23 24 34  30 00 47 20 fe a1 53 54  |.LDA #$40.G ..ST|
00001840  41 20 24 46 43 00 53 20  08 a2 53 54 41 20 24 46  |A $FC.S ..STA $F|
00001850  45 00 5f 20 12 a2 53 54  41 20 24 32 33 00 67 20  |E._ ..STA $23.g |
00001860  1c a2 52 54 53 00 7a 20  26 a2 45 51 55 41 4c 20  |..RTS.z &.EQUAL |
00001870  4a 53 52 20 4d 53 55 50  00 87 20 30 a2 4c 44 59  |JSR MSUP.. 0.LDY|
00001880  20 23 24 30 38 00 9c 20  3a a2 45 4c 4f 50 20 4c  | #$08.. :.ELOP L|
00001890  44 41 20 28 24 46 42 29  2c 59 00 ac 20 44 a2 53  |DA ($FB),Y.. D.S|
000018a0  54 41 20 28 24 32 32 29  2c 59 00 b4 20 4e a2 44  |TA ($22),Y.. N.D|
000018b0  45 59 00 c1 20 58 a2 42  4e 45 20 45 4c 4f 50 00  |EY.. X.BNE ELOP.|
000018c0  c9 20 62 a2 52 54 53 00  de 20 6c a2 41 44 44 49  |. b.RTS.. l.ADDI|
000018d0  54 49 91 20 4a 53 52 20  4d 53 55 50 00 eb 20 76  |TI. JSR MSUP.. v|
000018e0  a2 4c 44 59 20 23 24 30  38 00 f3 20 80 a2 53 45  |.LDY #$08.. ..SE|
000018f0  44 00 fb 20 8a a2 43 4c  43 00 11 21 94 a2 41 44  |D.. ..CLC..!..AD|
00001900  4c 4f 50 20 4c 44 41 20  28 24 46 42 29 2c 59 00  |LOP LDA ($FB),Y.|
00001910  21 21 9e a2 41 44 43 20  28 24 46 44 29 2c 59 00  |!!..ADC ($FD),Y.|
00001920  31 21 a8 a2 53 54 41 20  28 24 32 32 29 2c 59 00  |1!..STA ($22),Y.|
00001930  39 21 b2 a2 44 45 59 00  47 21 bc a2 42 4e 45 20  |9!..DEY.G!..BNE |
00001940  41 44 4c 4f 50 00 4f 21  c6 a2 43 4c 44 00 57 21  |ADLOP.O!..CLD.W!|
00001950  d0 a2 52 54 53 00 6d 21  da a2 53 55 42 54 52 41  |..RTS.m!..SUBTRA|
00001960  43 54 20 4a 53 52 20 4d  53 55 50 00 7a 21 e4 a2  |CT JSR MSUP.z!..|
00001970  4c 44 59 20 23 24 30 38  00 82 21 ee a2 53 45 44  |LDY #$08..!..SED|
00001980  00 8a 21 f8 a2 53 45 43  00 a0 21 02 a3 53 55 4c  |..!..SEC..!..SUL|
00001990  4f 50 20 4c 44 41 20 28  24 46 42 29 2c 59 00 b0  |OP LDA ($FB),Y..|
000019a0  21 0c a3 53 42 43 20 28  24 46 44 29 2c 59 00 c0  |!..SBC ($FD),Y..|
000019b0  21 16 a3 53 54 41 20 28  24 32 32 29 2c 59 00 c8  |!..STA ($22),Y..|
000019c0  21 20 a3 44 45 59 00 d6  21 2a a3 42 4e 45 20 53  |! .DEY..!*.BNE S|
000019d0  55 4c 4f 50 00 de 21 34  a3 43 4c 44 00 e6 21 3e  |ULOP..!4.CLD..!>|
000019e0  a3 52 54 53 00 fc 21 48  a3 4e 45 47 41 54 49 56  |.RTS..!H.NEGATIV|
000019f0  45 20 4c 44 41 20 23 24  30 30 00 04 22 52 a3 50  |E LDA #$00.."R.P|
00001a00  48 41 00 12 22 5c a3 4c  44 41 20 24 34 31 30 30  |HA.."\.LDA $4100|
00001a10  00 1a 22 66 a3 54 41 59  00 24 22 70 a3 41 53 4c  |.."f.TAY.$"p.ASL|
00001a20  20 41 00 2e 22 7a a3 41  53 4c 20 41 00 38 22 84  | A.."z.ASL A.8".|
00001a30  a3 41 53 4c 20 41 00 40  22 8e a3 54 41 58 00 50  |.ASL A.@"..TAX.P|
00001a40  22 98 a3 4c 44 41 20 24  34 30 30 31 2c 58 00 5d  |"..LDA $4001,X.]|
00001a50  22 a2 a3 43 4d 50 20 23  24 35 30 00 70 22 a7 a3  |"..CMP #$50.p"..|
00001a60  42 43 43 20 4e 45 47 52  4d 4f 56 45 41 42 00 78  |BCC NEGRMOVEAB.x|
00001a70  22 ac a3 50 4c 41 00 85  22 b6 a3 41 44 43 20 23  |"..PLA.."..ADC #|
00001a80  24 30 30 00 8d 22 c0 a3  50 48 41 00 9f 22 ca a3  |$00.."..PHA.."..|
00001a90  4a 4d 50 20 4e 45 47 52  4d 4f 56 45 41 00 b8 22  |JMP NEGRMOVEA.."|
00001aa0  d4 a3 4e 45 47 52 4d 4f  56 45 41 42 20 4c 44 41  |..NEGRMOVEAB LDA|
00001ab0  20 24 34 31 30 31 00 c0  22 de a3 54 41 59 00 ca  | $4101.."..TAY..|
00001ac0  22 e8 a3 41 53 4c 20 41  00 d4 22 f2 a3 41 53 4c  |"..ASL A.."..ASL|
00001ad0  20 41 00 de 22 fc a3 41  53 4c 20 41 00 e6 22 06  | A.."..ASL A..".|
00001ae0  a4 54 41 58 00 f6 22 10  a4 4c 44 41 20 24 34 30  |.TAX.."..LDA $40|
00001af0  30 31 2c 58 00 03 23 1a  a4 43 4d 50 20 23 24 35  |01,X..#..CMP #$5|
00001b00  30 00 0b 23 24 a4 50 4c  41 00 18 23 2e a4 42 43  |0..#$.PLA..#..BC|
00001b10  43 20 4e 4f 45 b0 00 24  23 38 a4 45 b0 20 23 24  |C NOE..$#8.E. #$|
00001b20  30 31 00 2c 23 42 a4 50  48 41 00 3e 23 4c a4 42  |01.,#B.PHA.>#L.B|
00001b30  43 53 20 4e 45 47 52 4d  4f 56 45 42 00 51 23 56  |CS NEGRMOVEB.Q#V|
00001b40  a4 4e 45 47 52 4d 4f 56  45 42 42 20 50 4c 41 00  |.NEGRMOVEBB PLA.|
00001b50  63 23 60 a4 4e 4f 45 b0  20 53 54 41 20 59 50 49  |c#`.NOE. STA YPI|
00001b60  42 00 6b 23 6a a4 52 54  53 00 82 23 74 a4 4e 45  |B.k#j.RTS..#t.NE|
00001b70  47 52 4d 4f 56 45 20 4c  44 41 20 24 34 31 30 30  |GRMOVE LDA $4100|
00001b80  00 8a 23 7e a4 50 48 41  00 98 23 88 a4 4c 44 41  |..#~.PHA..#..LDA|
00001b90  20 24 34 31 30 31 00 a0  23 92 a4 50 48 41 00 ae  | $4101..#..PHA..|
00001ba0  23 9c a4 4c 44 41 20 24  34 31 30 32 00 b6 23 a6  |#..LDA $4102..#.|
00001bb0  a4 50 48 41 00 be 23 b0  a4 54 59 41 00 cc 23 ba  |.PHA..#..TYA..#.|
00001bc0  a4 53 54 41 20 24 34 31  30 31 00 da 23 c4 a4 53  |.STA $4101..#..S|
00001bd0  54 41 20 24 34 31 30 32  00 e7 23 ce a4 4c 44 41  |TA $4102..#..LDA|
00001be0  20 23 24 31 44 00 f5 23  d8 a4 53 54 41 20 24 34  | #$1D..#..STA $4|
00001bf0  31 30 30 00 06 24 e2 a4  4a 53 52 20 53 55 42 54  |100..$..JSR SUBT|
00001c00  52 41 43 54 00 0e 24 ec  a4 50 4c 41 00 1c 24 f6  |RACT..$..PLA..$.|
00001c10  a4 53 54 41 20 24 34 31  30 32 00 24 24 00 a5 50  |.STA $4102.$$..P|
00001c20  4c 41 00 32 24 0a a5 53  54 41 20 24 34 31 30 31  |LA.2$..STA $4101|
00001c30  00 3a 24 14 a5 50 4c 41  00 48 24 1e a5 53 54 41  |.:$..PLA.H$..STA|
00001c40  20 24 34 31 30 30 00 50  24 28 a5 52 54 53 00 6b  | $4100.P$(.RTS.k|
00001c50  24 32 a5 4e 45 47 52 4d  4f 56 45 41 20 4a 53 52  |$2.NEGRMOVEA JSR|
00001c60  20 4e 45 47 52 4d 4f 56  45 00 7e 24 3c a5 4a 4d  | NEGRMOVE.~$<.JM|
00001c70  50 20 4e 45 47 52 4d 4f  56 45 41 42 00 99 24 46  |P NEGRMOVEAB..$F|
00001c80  a5 4e 45 47 52 4d 4f 56  45 42 20 4a 53 52 20 4e  |.NEGRMOVEB JSR N|
00001c90  45 47 52 4d 4f 56 45 00  ac 24 50 a5 4a 4d 50 20  |EGRMOVE..$P.JMP |
00001ca0  4e 45 47 52 4d 4f 56 45  42 42 00 c3 24 5a a5 4d  |NEGRMOVEBB..$Z.M|
00001cb0  55 4c 54 49 50 4c 59 20  4c 44 41 20 24 34 31 30  |ULTIPLY LDA $410|
00001cc0  32 00 cb 24 64 a5 50 48  41 00 d9 24 6e a5 4c 44  |2..$d.PHA..$n.LD|
00001cd0  41 20 24 34 31 30 31 00  e1 24 78 a5 50 48 41 00  |A $4101..$x.PHA.|
00001ce0  ee 24 82 a5 4c 44 41 20  23 24 31 38 00 fc 24 8c  |.$..LDA #$18..$.|
00001cf0  a5 53 54 41 20 24 34 31  30 32 00 0a 25 96 a5 4a  |.STA $4102..%..J|
00001d00  53 52 20 45 51 55 41 4c  00 18 25 a0 a5 49 4e 43  |SR EQUAL..%..INC|
00001d10  20 24 34 31 30 32 00 20  25 aa a5 50 4c 41 00 2e  | $4102. %..PLA..|
00001d20  25 b4 a5 53 54 41 20 24  34 31 30 30 00 3c 25 be  |%..STA $4100.<%.|
00001d30  a5 4a 53 52 20 45 51 55  41 4c 00 49 25 c8 a5 4c  |.JSR EQUAL.I%..L|
00001d40  44 41 20 23 24 31 38 00  57 25 d2 a5 53 54 41 20  |DA #$18.W%..STA |
00001d50  24 34 31 30 30 00 64 25  dc a5 4c 44 41 20 23 24  |$4100.d%..LDA #$|
00001d60  31 39 00 72 25 e6 a5 53  54 41 20 24 34 31 30 31  |19.r%..STA $4101|
00001d70  00 7a 25 f0 a5 50 4c 41  00 88 25 fa a5 53 54 41  |.z%..PLA..%..STA|
00001d80  20 24 34 31 30 32 00 9a  25 04 a6 4a 4d 50 20 4d  | $4102..%..JMP M|
00001d90  55 4c 54 49 50 4c 59 42  00 be 25 50 c3 3b 20 20  |ULTIPLYB..%P.;  |
00001da0  20 20 20 20 20 20 20 20  20 47 52 41 50 48 49 43  |         GRAPHIC|
00001db0  20 50 4f b5 20 50 4c 4f  54 54 45 52 00 d2 25 5a  | PO. PLOTTER..%Z|
00001dc0  c3 50 4c 4f 54 50 43 20  4c 44 41 20 23 24 34 37  |.PLOTPC LDA #$47|
00001dd0  00 de 25 64 c3 53 54 41  20 24 46 42 00 eb 25 6e  |..%d.STA $FB..%n|
00001de0  c3 4c 44 41 20 23 24 33  46 00 f7 25 78 c3 53 54  |.LDA #$3F..%x.ST|
00001df0  41 20 24 46 43 00 06 26  82 c3 4c 44 41 20 59 50  |A $FC..&..LDA YP|
00001e00  49 58 45 4c 00 10 26 8c  c3 4c 53 52 20 41 00 1a  |IXEL..&..LSR A..|
00001e10  26 96 c3 4c 53 52 20 41  00 24 26 a0 c3 4c 53 52  |&..LSR A.$&..LSR|
00001e20  20 41 00 31 26 aa c3 53  54 41 20 59 50 49 42 00  | A.1&..STA YPIB.|
00001e30  3c 26 b4 c3 af 20 23 24  30 33 00 46 26 be c3 41  |<&... #$03.F&..A|
00001e40  53 4c 20 41 00 50 26 c8  c3 41 53 4c 20 41 00 5a  |SL A.P&..ASL A.Z|
00001e50  26 d2 c3 41 53 4c 20 41  00 64 26 dc c3 41 53 4c  |&..ASL A.d&..ASL|
00001e60  20 41 00 6e 26 e6 c3 41  53 4c 20 41 00 78 26 f0  | A.n&..ASL A.x&.|
00001e70  c3 41 53 4c 20 41 00 84  26 fa c3 53 54 41 20 24  |.ASL A..&..STA $|
00001e80  30 32 00 90 26 04 c4 4c  44 41 20 24 46 42 00 98  |02..&..LDA $FB..|
00001e90  26 0e c4 53 45 43 00 a4  26 18 c4 53 42 43 20 24  |&..SEC..&..SBC $|
00001ea0  30 32 00 b0 26 22 c4 53  54 41 20 24 46 42 00 bc  |02..&".STA $FB..|
00001eb0  26 2c c4 4c 44 41 20 24  46 43 00 c9 26 36 c4 53  |&,.LDA $FC..&6.S|
00001ec0  42 43 20 23 24 30 30 00  d6 26 3b c4 53 42 43 20  |BC #$00..&;.SBC |
00001ed0  59 50 49 42 00 de 26 40  c4 50 48 41 00 eb 26 4a  |YPIB..&@.PHA..&J|
00001ee0  c4 4c 44 41 20 59 50 49  42 00 f5 26 54 c4 4c 53  |.LDA YPIB..&T.LS|
00001ef0  52 20 41 00 ff 26 5e c4  4c 53 52 20 41 00 0b 27  |R A..&^.LSR A..'|
00001f00  68 c4 53 54 41 20 24 30  32 00 13 27 72 c4 50 4c  |h.STA $02..'r.PL|
00001f10  41 00 1b 27 7c c4 53 45  43 00 27 27 86 c4 53 42  |A..'|.SEC.''..SB|
00001f20  43 20 24 30 32 00 33 27  90 c4 53 54 41 20 24 46  |C $02.3'..STA $F|
00001f30  43 00 42 27 9a c4 4c 44  41 20 59 50 49 58 45 4c  |C.B'..LDA YPIXEL|
00001f40  00 4d 27 a4 c4 af 20 23  24 30 37 00 5a 27 ae c4  |.M'... #$07.Z'..|
00001f50  53 54 41 20 59 50 49 42  00 66 27 b8 c4 4c 44 41  |STA YPIB.f'..LDA|
00001f60  20 24 46 42 00 6e 27 c2  c4 53 45 43 00 7b 27 cc  | $FB.n'..SEC.{'.|
00001f70  c4 53 42 43 20 59 50 49  42 00 83 27 d6 c4 50 48  |.SBC YPIB..'..PH|
00001f80  41 00 92 27 e0 c4 4c 44  41 20 58 50 49 58 45 4c  |A..'..LDA XPIXEL|
00001f90  00 9d 27 ea c4 af 20 23  24 46 38 00 aa 27 f4 c4  |..'... #$F8..'..|
00001fa0  53 54 41 20 59 50 49 42  00 b2 27 fe c4 50 4c 41  |STA YPIB..'..PLA|
00001fb0  00 ba 27 08 c5 43 4c 43  00 c7 27 12 c5 41 44 43  |..'..CLC..'..ADC|
00001fc0  20 59 50 49 42 00 d3 27  1c c5 53 54 41 20 24 46  | YPIB..'..STA $F|
00001fd0  42 00 df 27 26 c5 4c 44  41 20 24 46 43 00 ec 27  |B..'&.LDA $FC..'|
00001fe0  30 c5 53 42 43 20 23 24  30 30 00 f8 27 3a c5 53  |0.SBC #$00..':.S|
00001ff0  54 41 20 24 46 43 00 07  28 44 c5 4c 44 41 20 58  |TA $FC..(D.LDA X|
00002000  50 49 58 45 4c 00 12 28  4e c5 af 20 23 24 30 37  |PIXEL..(N.. #$07|
00002010  00 1a 28 58 c5 54 41 58  00 27 28 62 c5 4c 44 41  |..(X.TAX.'(b.LDA|
00002020  20 23 24 38 30 00 3b 28  6c c5 47 42 49 54 4c 50  | #$80.;(l.GBITLP|
00002030  20 43 50 58 20 23 24 30  30 00 47 28 76 c5 42 45  | CPX #$00.G(v.BE|
00002040  51 20 50 50 9a 00 51 28  80 c5 4c 53 52 20 41 00  |Q PP..Q(..LSR A.|
00002050  59 28 8a c5 44 45 58 00  68 28 94 c5 4a 4d 50 20  |Y(..DEX.h(..JMP |
00002060  47 42 49 54 4c 50 00 78  28 9e c5 50 50 9a 20 53  |GBITLP.x(..PP. S|
00002070  54 41 20 24 46 44 00 80  28 a8 c5 52 54 53 00 95  |TA $FD..(..RTS..|
00002080  28 b2 c5 50 4c 4f a4 4e  20 4a 53 52 20 50 4c 4f  |(..PLO.N JSR PLO|
00002090  54 50 43 00 a2 28 bc c5  4c 44 59 20 23 24 30 30  |TPC..(..LDY #$00|
000020a0  00 b2 28 c6 c5 4c 44 41  20 28 24 46 42 29 2c 59  |..(..LDA ($FB),Y|
000020b0  00 bd 28 d0 c5 b0 41 20  24 46 44 00 cd 28 da c5  |..(...A $FD..(..|
000020c0  53 54 41 20 28 24 46 42  29 2c 59 00 d5 28 e4 c5  |STA ($FB),Y..(..|
000020d0  52 54 53 00 eb 28 ee c5  50 4c 4f a4 46 46 20 4a  |RTS..(..PLO.FF J|
000020e0  53 52 20 50 4c 4f 54 50  43 00 f7 28 f8 c5 4c 44  |SR PLOTPC..(..LD|
000020f0  41 20 24 46 44 00 03 29  02 c6 45 b0 20 23 24 46  |A $FD..)..E. #$F|
00002100  46 00 0f 29 0c c6 53 54  41 20 24 46 44 00 1c 29  |F..)..STA $FD..)|
00002110  16 c6 4c 44 59 20 23 24  30 30 00 2c 29 20 c6 4c  |..LDY #$00.,) .L|
00002120  44 41 20 28 24 46 42 29  2c 59 00 36 29 2a c6 af  |DA ($FB),Y.6)*..|
00002130  20 24 46 44 00 46 29 34  c6 53 54 41 20 28 24 46  | $FD.F)4.STA ($F|
00002140  42 29 2c 59 00 4e 29 3e  c6 52 54 53 00 62 29 48  |B),Y.N)>.RTS.b)H|
00002150  c6 50 4c 4f 54 20 4c 44  41 20 43 4f 4c 4f 55 52  |.PLOT LDA COLOUR|
00002160  00 6d 29 52 c6 af 20 23  24 30 32 00 7a 29 5c c6  |.m)R.. #$02.z)\.|
00002170  42 4e 45 20 50 50 41 91  00 89 29 66 c6 4a 53 52  |BNE PPA...)f.JSR|
00002180  20 50 4c 4f a4 46 46 00  98 29 70 c6 4a 4d 50 20  | PLO.FF..)p.JMP |
00002190  50 50 41 43 4e 54 00 ab  29 7a c6 50 50 41 91 20  |PPACNT..)z.PPA. |
000021a0  4a 53 52 20 50 4c 4f a4  4e 00 c1 29 84 c6 50 50  |JSR PLO.N..)..PP|
000021b0  41 43 4e 54 20 49 4e 43  20 58 50 49 58 45 4c 00  |ACNT INC XPIXEL.|
000021c0  d0 29 8e c6 4c 44 41 20  43 4f 4c 4f 55 52 00 db  |.)..LDA COLOUR..|
000021d0  29 98 c6 af 20 23 24 30  31 00 e8 29 a2 c6 42 4e  |)... #$01..)..BN|
000021e0  45 20 50 50 42 91 00 f7  29 ac c6 4a 53 52 20 50  |E PPB...)..JSR P|
000021f0  4c 4f a4 46 46 00 06 2a  b6 c6 4a 4d 50 20 50 50  |LO.FF..*..JMP PP|
00002200  42 43 4e 54 00 19 2a c0  c6 50 50 42 91 20 4a 53  |BCNT..*..PPB. JS|
00002210  52 20 50 4c 4f a4 4e 00  2f 2a ca c6 50 50 42 43  |R PLO.N./*..PPBC|
00002220  4e 54 20 49 4e 43 20 58  50 49 58 45 4c 00 37 2a  |NT INC XPIXEL.7*|
00002230  d4 c6 52 54 53 00 00 00                           |..RTS...|
00002238