;MANDLEPLOT";SOURCE CODE0;22/10/956(;Bd��$C000SnXPIXEL�$4103dxYPIXEL�$4104u�COLOUR�$4105��YPIB�$4106��MAXCOL�$4107�r.XP�$CF40�|.YP�$CF41��.XPB�$CF42��.CLICK�$CF43��.BUTNO�$CF44��.HOUR�$CF45��.SCHAR�$CF46
	�.XSP�$CF47	�.YSP�$CF48&	�.XSQ�$CF494	�.YSQ�$CF4Av	�.;                                               WIMP ROUTINES|	�.;�	�.; WIMP - MOUSE�	�.IRQ LDA #$00�	/STA CLICK�	/LDA $C5�	/CMP #$01�	&/BNE C�CHECK�	0/STA CLICK�	:/C�CHECK CMP #$0C
D/BEQ LEFTK
N/LKC CMP #$17(
X/BEQ RIGHTK9
b/RKC CMP #$32E
l/BEQ UPKW
v/UPKC CMP #$37e
�/BEQ DOWNKw
�/DKC LDA $DC00
�/TAX�
�/� #$01�
�/BEQ UPJ�
�/UJC TXA�
�/� #$02�
�/BEQ DOWNJ�
�/DJC TXA�
�/� #$04�
�/BEQ LEFTJ�
�/LJC TXA�
�/� #$080BEQ RIGHTJ0RJC TXA0� #$10) 0E� #$106*0BEQ CJCHD40STA CLICKW>0CJCH JMP $EA31jH0LEFTK JSR LEFTvR0JMP LKC�\0RIGHTK JSR RIGHT�f0JMP RKC�p0UPK JSR UP�z0JMP UPKC��0DOWNK JSR DOWN��0JMP DKC��0UPJ JSR UP��0JMP UJC�0DOWNJ JSR DOWN�0JMP DJC�0LEFTJ JSR LEFT+�0JMP LJC@�0RIGHTJ JSR RIGHTL�0JMP RJC\�0LEFT DEC XPg�0LDA XPt�0CMP #$FF�1BNE �FF�1LDY #$00�1STY XPB�$1�FF LDY XPB�.1BNE FIN�81CMP #$18�B1BNE FIN�L1INC XP�V1FIN JMP �ROL�`1RIGHT INC XP
j1LDA XP
t1BNE �00
~1LDY #$01+
�1STY XPB;
�1�00 LDY XPBG
�1BEQ FINT
�1CMP #$58`
�1BNE FINk
�1DEC XPx
�1JMP �ROL�
�1UP DEC YP�
�1LDA YP�
�1CMP #$32�
�1BNE FIN�
�1INC YP�
2JMP �ROL�
2DOWN INC YP�
2LDA YP�
2CMP #$F8�
(2BNE FIN
22DEC YP<2JMP �ROL!F2; WIMP � PO�ER3P2�ROL LDA HOURBZ2BNE HGLASSMd2LDA XPZn2CMP #$28hx2BCC NSQUPu�2CMP #$F8��2BCS NSQUP��2LDA XPB��2BNE NSQUP��2LDA YP��2CMP #$42��2BCC NSQUP��2CMP #$C1��2BCS NSQUP��2LDA XP��2� #$F8�2STA $D000
�2LDA YP3� #$F8$3�A #$0223STA $D001@"3LDA $D010K,3� #$FCY63STA $D010f@3LDA #$92tJ3STA $63F8�T3LDA $D015�^3� #$FC�h3�A #$01�r3STA $D015�|3LDA #$01��3STA $D027��3RTS��3HGLASS LDX #$93��3STX $63F8��3INX�3STX $63F9�3NSQUP LDA XP!�3STA $D000/�3STA $D002:�3LDA YPH�3STA $D001V�3STA $D003d�3LDA $D010o4� #$FCy4LSR 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 HOUR1�4BNE QTRO>�4LDA #$90L�4STA $63F8Y�4LDA #$91g�4STA $63F9t�4QTRO RTS��4; STARTUP ROUTINES��4SR LDA #$8B��4STA $D011�5LDA $DD02�5�A #$02�5STA $DD02� 5LDA $DD00�*5� #$FE�45�A #$02>5STA $DD00H5LDA #$00R5STA $D020-\5STA $D021;f5STA $D000Gp5STA YSPSz5STA XSP`�5LDA #$86n�5STA $D018{�5LDA #$0B��5STA $D001��5LDA #$10��5STA $D008��5LDA #$3A��5STA $D009��5LDA #$10��5STA $D010��5LDA #$01��5STA $D029�5STA $D02B6LDA #$006STA $D02A,6STA SCHAR9$6LDA #$01F.6LDX #$08N86TAY\B6JSR $FFBAiL6LDA #$0CzV6LDX #�EGRTXT�`6LDY #�EGRTXT�j6JSR $FFBD�t6LDA #$00�~6JSR $FFD5��6LDA #$01��6LDX #$08��6TAY��6JSR $FFBA��6LDA #$08
�6LDX #�ECTXT�6LDY #�ECTXT�6JSR $FFBD,�6LDA #$00:�6JSR $FFD5G�6LDA #$9BU�6STA $D011b7LDA #$00p
7STA BUTNO}7LDA #$92�7STA $63FC�(7SEI�27LDA #$00�<7STA $0314�F7LDA #$C0�P7STA $0315�Z7CLI�d7LDA #$00�n7STA XP�x7STA HOUR�7LDA #$80�7STA YP�7LDA #$01'�7STA XPB4�7LDA #$1CB�7STA $D015O�7JSR LEFT\�7LDA #$00j�7STA $D004x�7STA $D006��7LDA #$D9��7STA $D005��7STA $D007�8LDA #$95�8STA $63FB�8LDA #$08�"8STA $D01C�,8LDA #$18�68STA $D0160u; MANDLEBROT SET PLOTTER!:uM�LE LDA #$000DuSTA YPIXEL=NuLDA #$03KXuSTA $4100XbuLDA #$06fluSTA $4102tvuJSR EQUAL��uMMAINL LDA #$00��uSTA XPIXEL��uLDA #$01��uSTA $4100��uLDA #$05��uSTA $4102��uJSR EQUAL��uMMAINLB LDA #$05��uSTA $4100�uLDA #$07�uSTA $4102'�uJSR EQUAL5�uINC $4100CvINC $4102QvJSR EQUAL^vLDA #$00m vSTA COLOUR*vLOOP LDA #$07�4vSTA $4100�>vSTA $4101�HvLDA #$10�RvSTA $4102�\vJSR MULTIPLY�fvLDA #$08�pvSTA $4100�zvSTA $4101��vLDA #$11�vSTA $4102�vJSR MULTIPLY)�vLDX #$107�vSTX $4100?�vINXM�vSTX $4101U�vINXc�vSTX $4102s�vJSR ADDITI���vLDA $4091��vCMP #$04��vBCC FAIL�wCMP #$50�wBCS FAIL�wSUCPASS JMP SUCCESS�$wFAIL INC COLOUR�)wLDA COLOUR�.wCMP MAXCOL8wBEQ SUCPASS BwJSR SUBTRACT-LwLDA #$12;VwSTA $4100H`wLDA #$05VjwSTA $4101ctwLDA #$13q~wSTA $4102��wJSR ADDITI���wLDA #$07��wSTA $4100��wLDA #$08��wSTA $4101��wINC $4102��wJSR MULTIPLY��wLDA #$14��wSTA $4100��wLDA #$1C�wSTA $4101�wLDA #$15'xSTA $41028
xJSR MULTIPLYExLDA #$15SxSTA $4100`(xLDA #$06n2xSTA $4101{<xLDA #$16�FxSTA $4102�PxJSR ADDITI��ZxLDA #$13�dxSTA $4100�nxLDA #$07�xxSTA $4102��xJSR EQUAL��xLDA #$16��xSTA $4100�xLDA #$08�xSTA $4102!�xJSR EQUAL.�xJMP LOOPC�xSUCCESS JSR PLOTP�xLDA #$05^�xSTA $4100l�xSTA $4102y�xLDA #$02��xSTA $4101�yJSR ADDITI��yLDA XPIXEL�yBNE XRELOP�"yLDA #$06�,ySTA $4100�6ySTA $4102�@yLDA #$04�JySTA $4101	TyJSR ADDITI�^yINC YPIXEL'hyLDA YPIXEL4ryCMP #$C8C|yBNE YRELOPK�yRTSb�yXRELOP JMP MMAINLBx�yYRELOP JMP MMAINL�@�; 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&̜TAY6֜LDA $4000,Y>�TAYF�TXAQ� #$01_��BEQ LSNGDg�TYAr�� #$F0|�LSR A�&�LSR A�0�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,XE��INYMƝINXZНCPY #$08hڝBNE MLOPAu�LDA #$06��STA $FC����DIGIT LDA $4101��LDX $FC��JSR �DIGIT��CMP #$00� �BEQ DMOVER�*�STA $FD�4�LDA #$06�>�STA $FBH�DMLOP LDA $4100R�LDX $FB!\�JSR �DIGIT3f�DMLB CMP #$00Bp�BEQ DMOVERNz�STA $FEZ��LDA $FBb��CLCn��ADC $FCv��SEC���SBC #$0C���LDX $FD���TAY�ʞ� #$01�ԞBEQ MSKIP�ޞTXA��ASL A��ASL A���ASL A��ASL A��TAX��MSKIP TYA $�LSR A .�STA $02 8�LDA #$07! B�SEC- L�SBC $029 V�STA $02G `�LDA $4102Q j�ASL A[ t�ASL Ae ~�ASL Aq ��ADC $02y ��TAY� ��STX $24� ��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,Y5!2�CLCB!<�ADC #$01R!F�STA $4000,Y_!P�JMP MALPr!Z�DMOVER INC $FB~!d�LDA $FB�!n�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 RTSO"��MAQUIT LDX $FEW"�DEX_"�TXAl"�JMP DMLB""�MSUP LDA $4100�",�ASL A�"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##¡ASL A-#̡ASL A5#֡TAX=#�DEXI#�STX $22V#�LDA #$40b#��STA $FCn#�STA $FEz#�STA $23�#�RTS�#&�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),YL$��STA ($22),YT$��DEYb$��BNE ADLOPj$ƢCLDr$ТRTS�$ڢSUBTRACT JSR MSUP�$�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 $41005%f�TAY?%p�ASL AI%z�ASL AS%��ASL A[%��TAXk%��LDA $4001,Xx%��CMP #$50�%��BCC NEGRMOVEAB�%��PLA�%��ADC #$00�%��PHA�%ʣJMP NEGRMOVEA�%ԣNEGRMOVEAB LDA $4101�%ޣTAY�%�ASL A�%�ASL A�%��ASL A
&�TAX&�LDA $4001,X&�CMP #$50&&$�PLA3&.�BCC NOE�?&8�E� #$01G&B�PHAY&L�BCS NEGRMOVEBl&V�NEGRMOVEBB PLA~&`�NOE� STA YPIB�&j�RTS�&t�NEGRMOVE LDA $4100�&~�PHA�&��LDA $4101�&��PHA�&��LDA $4102�&��PHA�&��TYA�&��STA $4101�&ĤSTA $4102'ΤLDA #$1D'ؤSTA $4100!'�JSR SUBTRACT)'�PLA7'��STA $4102?'�PLAM'
�STA $4101U'�PLAc'�STA $4100k'(�RTS�'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 EQUAL3(��INC $4102;(��PLAI(��STA $4100W(��JSR EQUALd(ȥLDA #$18r(ҥSTA $4100(ܥLDA #$19�(�STA $4101�(�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 A5)��LSR AB)��STA YPIBM)�ï #$03W)��ASL Aa)��ASL Ak)��ASL Au)��ASL A)��ASL A�)��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,*|�SEC8*��SBC $02D*��STA $FCS*��LDA YPIXEL^*�į #$07k*��STA YPIBw*��LDA $FB*��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�TAX8+b�LDA #$80L+l�GBITLP CPX #$00X+v�BEQ PP�b+��LSR Aj+��DEXy+��JMP GBITLP�+��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),YG,*Ư $FDW,4�STA ($FB),Y_,>�RTSs,H�PLOT LDA COLOUR~,RƯ #$02�,\�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 XPIXELH-��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@.HR.xp.$cf40@.H..yp.$cf41@.H..xpb.$cf42@.H..click.$cf43@.H..butno.$cf44@.H..hour.$cf45@.H..schar.$cf46@JI..xsp.$cf47@XI..ysp.$cf48@&I..xsq.$cf49@4I..ysq.$cf4a@VI..;                                               wimp routines@.I..;@.I..; wimp - mouse@.I..irq lda #$00@.IH/sta click@.IR/lda $c5@.I£/cmp #$01@.I&/bne c.check@.I0/sta click@.I:/c.check cmp #$0c@HJd/beq leftk@YJn/lkc cmp #$17@(Jx/beq rightk@9JB/rkc cmp #$32@eJL/beq upk@wJV/upkc cmp #$37@EJ./beq downk@WJ./dkc lda $dc00@.J./tax@.J./. #$01@.J./beq upj@.J./ujc txa@.J./. #$02@.J./beq downj@.J./djc txa@.J./. #$04@.J./beq leftj@.J./ljc txa@.J./. #$08@FKB0beq rightj@RKL0rjc txa@]KV0. #$10@)K 0e. #$10@6K*0beq cjch@dK40sta click@wK>0cjch jmp $ea31@JKh0leftk jsr left@VKr0jmp lkc@.K£0rightk jsr right@.KF0jmp rkc@.KP0upk jsr up@.KZ0jmp upkc@.K.0downk jsr down@.K.0jmp dkc@.K.0upj jsr up@.K.0jmp ujc@@L.0downj jsr down@LL.0jmp djc@.L.0leftj jsr left@+L.0jmp ljc@@L.0rightj jsr right@lL.0jmp rjc@£L.0left dec xp@GL.0lda xp@TL.0cmp #$ff@.LF1bne .ff@.LP1ldy #$00@.LZ1sty xpb@.L$1.ff ldy xpb@.L.1bne fin@.L81cmp #$18@.Lb1bne fin@.Ll1inc xp@.Lv1fin jmp .rol@.L.1right inc xp@FMJ1lda xp@RMT1bne .00@.M.1ldy #$01@+M.1sty xpb@;M.1.00 ldy xpb@gM.1beq fin@tM.1cmp #$58@.M.1bne fin@KM.1dec xp@XM.1jmp .rol@.M.1up dec yp@.M.1lda yp@.M.1cmp #$32@.M.1bne fin@.M.1inc yp@.M@2jmp .rol@.MJ2down inc yp@.MT2lda yp@.M.2cmp #$f8@.M(2bne fin@AN22dec yp@NN<2jmp .rol@!Nf2; wimp . po.er@3Np2.rol lda hour@bNz2bne hglass@mND2lda xp@zNN2cmp #$28@HNX2bcc nsqup@UN.2cmp #$f8@.N.2bcs nsqup@.N.2lda xpb@.N.2bne nsqup@.N.2lda yp@.N.2cmp #$42@.N.2bcc nsqup@.N.2cmp #$c1@.N.2bcs nsqup@.N.2lda xp@.N.2. #$f8@BO.2sta $d000@MO.2lda yp@XOD3. #$f8@$ON3.a #$02@2OX3sta $d001@@O"3lda $d010@kO,3. #$fc@yO63sta $d010@FO@3lda #$92@TOj3sta $63f8@.Ot3lda $d015@.O.3. #$fc@.OH3.a #$01@.OR3sta $d015@.O.3lda #$01@.O.3sta $d027@.O.3rts@.O.3hglass ldx #$93@.O.3stx $63f8@.O.3inx@BP.3stx $63f9@SP.3nsqup lda xp@!P.3sta $d000@/P.3sta $d002@:P.3lda yp@hP.3sta $d001@vP.3sta $d003@DP.3lda $d010@OPH4. #$fc@YPR4lsr a@.P£4clc@.P&4adc xpb@.P04asl a@.P:4clc@.Pd4adc xpb@.Pn4sta $d010@.Px4lda #$00@.PB4sta $d027@.PL4lda #$01@.PV4sta $d028@.P.4lda $d015@IQ.4.a #$03@WQ.4sta $d015@$Q.4lda hour@1Q.4bne qtro@>Q.4lda #$90@lQ.4sta $63f8@yQ.4lda #$91@GQ.4sta $63f9@TQ.4qtro rts@.Q.4; startup routines@.Q.4sr lda #$8b@.Q.4sta $d011@.QB5lda $dd02@.QL5.a #$02@.QV5sta $dd02@.Q 5lda $dd00@.Q*5. #$fe@.Q45.a #$02@DR>5sta $dd00@QRh5lda #$00@.Rr5sta $d020@-R£5sta $d021@;RF5sta $d000@gRP5sta ysp@sRZ5sta xsp@.R.5lda #$86@NR.5sta $d018@.R.5lda #$0b@.R.5sta $d001@.R.5lda #$10@.R.5sta $d008@.R.5lda #$3a@.R.5sta $d009@.R.5lda #$10@.R.5sta $d010@.R.5lda #$01@.R.5sta $d029@CS.5sta $d02b@PSF6lda #$00@.SP6sta $d02a@,SZ6sta schar@9S$6lda #$01@fS.6ldx #$08@nS86tay@£Sb6jsr $ffba@ISl6lda #$0c@ZSv6ldx #.egrtxt@.S.6ldy #.egrtxt@.SJ6jsr $ffbd@.ST6lda #$00@.S.6jsr $ffd5@.S.6lda #$01@.S.6ldx #$08@.S.6tay@.S.6jsr $ffba@.S.6lda #$08@AT.6ldx #.ectxt@QT.6ldy #.ectxt@.T.6jsr $ffbd@,T.6lda #$00@:T.6jsr $ffd5@gT.6lda #$9b@uT.6sta $d011@BT@7lda #$00@PTJ7sta butno@.TT7lda #$92@.T.7sta $63fc@.T(7sei@.T27lda #$00@.T<7sta $0314@.Tf7lda #$c0@.Tp7sta $0315@.Tz7cli@.TD7lda #$00@.TN7sta xp@.TX7sta hour@CU.7lda #$80@NU.7sta yp@[U.7lda #$01@'U.7sta xpb@4U.7lda #$1c@bU.7sta $d015@oU.7jsr left@£U.7lda #$00@JU.7sta $d004@XU.7sta $d006@.U.7lda #$d9@.U.7sta $d005@.U.7sta $d007@.UD8lda #$95@.UN8sta $63fb@.UX8lda #$08@.U"8sta $d01c@.U,8lda #$18@.U68sta $d016@OV0U; mandlebrot set plotter@!V:Um.le lda #$00@0VdUsta ypixel@=VnUlda #$03@kVxUsta $4100@xVBUlda #$06@FVLUsta $4102@TVVUjsr equal@.V.Ummainl lda #$00@.V.Usta xpixel@.V.Ulda #$01@.V.Usta $4100@.V.Ulda #$05@.V.Usta $4102@.V.Ujsr equal@.V.Ummainlb lda #$05@.V.Usta $4100@KW.Ulda #$07@YW.Usta $4102@'W.Ujsr equal@5W.Uinc $4100@cWBVinc $4102@qWLVjsr equal@.WVVlda #$00@MW Vsta colour@.W*Vloop lda #$07@.W4Vsta $4100@.W>Vsta $4101@.WhVlda #$10@.WrVsta $4102@.W£Vjsr multiply@.WFVlda #$08@.WPVsta $4100@.WZVsta $4101@.W.Vlda #$11@KX.Vsta $4102@£X.Vjsr multiply@)X.Vldx #$10@7X.Vstx $4100@?X.Vinx@mX.Vstx $4101@uX.Vinx@CX.Vstx $4102@SX.Vjsr additi.@.X.Vlda $4091@.X.Vcmp #$04@.X.Vbcc fail@.XFWcmp #$50@.XPWbcs fail@.XZWsucpass jmp success@.X$Wfail inc colour@.X)Wlda colour@.X.Wcmp maxcol@OY8Wbeq sucpass@ YbWjsr subtract@-YlWlda #$12@;YvWsta $4100@hY.Wlda #$05@vYJWsta $4101@CYTWlda #$13@QY.Wsta $4102@.Y.Wjsr additi.@.Y.Wlda #$07@.Y.Wsta $4100@.Y.Wlda #$08@.Y.Wsta $4101@.Y.Winc $4102@.Y.Wjsr multiply@.Y.Wlda #$14@.Y.Wsta $4100@.Y.Wlda #$1c@LZ.Wsta $4101@YZ.Wlda #$15@'Z@Xsta $4102@8ZJXjsr multiply@eZTXlda #$15@sZ.Xsta $4100@.Z(Xlda #$06@NZ2Xsta $4101@.Z<Xlda #$16@.ZfXsta $4102@.ZpXjsr additi.@.ZzXlda #$13@.ZDXsta $4100@.ZNXlda #$07@.ZXXsta $4102@.Z.Xjsr equal@.Z.Xlda #$16@.Z.Xsta $4100@E[.Xlda #$08@S[.Xsta $4102@![.Xjsr equal@.[.Xjmp loop@c[.Xsuccess jsr plot@p[.Xlda #$05@.[.Xsta $4100@L[.Xsta $4102@Y[.Xlda #$02@.[.Xsta $4101@.[DYjsr additi.@.[NYlda xpixel@.[XYbne xrelop@.["Ylda #$06@.[,Ysta $4100@.[6Ysta $4102@.[@Ylda #$04@.[jYsta $4101@I£tYjsr additi.@X£.Yinc ypixel@'£HYlda ypixel@4£RYcmp #$c8@c£.Ybne yrelop@k£.Yrts@B£.Yxrelop jmp mmainlb@X£.Yyrelop jmp mmainl@.£@.; arithmetic routines@.£j..digit cld@.£t.asl a@.£..asl a@.£H.asl a@.£R.sta $02@.£..txa@.£..lsr a@.£..sta $24@.£..lda #$07@.£..sec@J]..sbc $24@R]..clc@.]..adc $02@&]..tay@6]..lda $4000,y@>]..tay@f]..txa@q]... #$01@.]..beq lsngd@G]H.tya@R]R.. #$f0@.]£.lsr a@.]&.lsr a@.]0.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@J...asl a@R...tax@....lda #$00@'...tay@=...mlopa sta $4000,x@e...iny@m...inx@z...cpy #$08@H...bne mlopa@U...lda #$06@....sta $fc@.....digit lda $4101@..B.ldx $fc@..L.jsr .digit@..V.cmp #$00@.. .beq dmover@..*.sta $fd@..4.lda #$06@..>.sta $fb@F.h.dmlop lda $4100@R.r.ldx $fb@!.£.jsr .digit@3.F.dmlb cmp #$00@b.P.beq dmover@n.Z.sta $fe@z...lda $fb@B...clc@N...adc $fc@V...sec@....sbc #$0c@....ldx $fd@....tay@..... #$01@....beq mskip@....txa@....asl a@....asl a@....asl a@..F.asl a@..P.tax@..Z.mskip tya@@ $.lsr a@L ..sta $02@Y 8.lda #$07@! b.sec@- l.sbc $02@9 v.sta $02@g ..lda $4102@q J.asl a@[ T.asl a@E ..asl a@Q ..adc $02@Y ..tay@. ..stx $24@. ..ldx $02@. ..sed@. ..lda $4000,y@. ..clc@. ..adc $24@. ..sta $4000,y@. ..malp cld@. ..bcc maquit@. ..dey@. @.dex@F!J.cpx #$ff@U!T.beq maquit@]!..sed@-!(.lda $4000,y@5!2.clc@b!<.adc #$01@r!f.sta $4000,y@.!p.jmp malp@R!z.dmover inc $fb@.!D.lda $fb@.!N.cmp #$0e@.!X.bcc dmlop@.!..inc $fc@.!..lda $fc@.!..cmp #$0e@.!..bcc .digit@.!..lda ypib@.!..beq quit@.!..lda $4102@C"..sta $4101@P"..lda #$1d@."..sta $4100@/"..jsr subtract@<"..quit rts@o"..maquit ldx $fe@w"D.dex@."N.txa@L"X.jmp dmlb@."".msup lda $4100@.",.asl a@."6.asl a@."@.asl a@."j.tax@."t.dex@."..stx $fb@."H.lda $4101@."R.asl a@."..asl a@."..asl a@."..tax@."..dex@A#..stx $fd@O#..lda $4102@Y#..asl a@##..asl a@-#..asl a@5#..tax@=#..dex@i#..stx $22@v#..lda #$40@B#..sta $fc@N#H.sta $fe@Z#R.sta $23@.#£.rts@.#&.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@F$V.ldy #$08@N$..sed@V$..clc@,$..adlop lda ($fb),y@<$..adc ($fd),y@l$..sta ($22),y@t$..dey@B$..bne adlop@J$..cld@R$..rts@.$..subtract jsr msup@.$..ldy #$08@.$..sed@.$..sec@.$B.sulop lda ($fb),y@.$L.sbc ($fd),y@.$V.sta ($22),y@.$ .dey@.$*.bne sulop@.$4.cld@A%>.rts@W%h.negative lda #$00@.%r.pha@-%£.lda $4100@5%F.tay@?%P.asl a@i%Z.asl a@s%..asl a@[%..tax@K%..lda $4001,x@X%..cmp #$50@.%..bcc negrmoveab@.%..pla@.%..adc #$00@.%..pha@.%..jmp negrmovea@.%..negrmoveab lda $4101@.%..tay@.%..asl a@.%..asl a@.%..asl a@A&F.tax@Q&P.lda $4001,x@.&Z.cmp #$50@&&$.pla@3&..bcc noe.@?&8.e. #$01@g&b.pha@y&l.bcs negrmoveb@L&v.negrmovebb pla@.&..noe. sta ypib@.&J.rts@.&T.negrmove lda $4100@.&..pha@.&..lda $4101@.&..pha@.&..lda $4102@.&..pha@.&..tya@.&..sta $4101@.&..sta $4102@B'..lda #$1d@P'..sta $4100@!'..jsr subtract@)'..pla@7'..sta $4102@?'@.pla@m'J.sta $4101@u'T.pla@C'..sta $4100@K'(.rts@.'2.negrmovea jsr negrmove@.'<.jmp negrmoveab@.'f.negrmoveb jsr negrmove@.'p.jmp negrmovebb@.'z.multiply lda $4102@.'D.pha@.'N.lda $4101@.'X.pha@I(..lda #$18@W(..sta $4102@%(..jsr equal@3(..inc $4102@;(..pla@i(..sta $4100@w(..jsr equal@D(..lda #$18@R(..sta $4100@.(..lda #$19@.(..sta $4101@.(..pla@.(..sta $4102@.(D.jmp multiplyb@.(p.; graphic po. plotter@.(z.plotpc lda #$47@.(D.sta $fb@.(N.lda #$3f@H)X.sta $fc@W)..lda ypixel@!)..lsr a@+)..lsr a@5)..lsr a@b)..sta ypib@m)... #$03@w)..asl a@A)..asl a@K)..asl a@U)..asl a@.)..asl a@.)..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@F*t.lsr a@P*..lsr a@£*H.sta $02@$*R.pla@,*..sec@8*..sbc $02@d*..sta $fc@s*..lda ypixel@.*... #$07@K*..sta ypib@W*..lda $fb@.*..sec@.*..sbc ypib@.*..pha@.*..lda xpixel@.*... #$f8@.*..sta ypib@.*..pla@.*H.clc@.*R.adc ypib@.*£.sta $fb@.*&.lda $fc@.*0.sbc #$00@I+:.sta $fc@X+d.lda xpixel@#+n.. #$07@++x.tax@8+B.lda #$80@l+L.gbitlp cpx #$00@x+V.beq pp.@B+..lsr a@J+..dex@Y+..jmp gbitlp@.+..pp. sta $fd@.+..rts@.+..plo.n jsr plotpc@.+..ldy #$00@.+..lda ($fb),y@.+...a $fd@.+..sta ($fb),y@.+..rts@.+..plo.ff jsr plotpc@H,..lda $fd@T,B.e. #$ff@ ,L.sta $fd@-,V.ldy #$00@=, .lda ($fb),y@g,*.. $fd@w,4.sta ($fb),y@.,>.rts@S,h.plot lda colour@.,r.. #$02@.,£.bne ppa.@.,F.jsr plo.ff@.,P.jmp ppacnt@.,Z.ppa. jsr plo.n@.,..ppacnt inc xpixel@.,..lda colour@.,... #$01@.,..bne ppb.@H-..jsr plo.ff@W-..jmp ppbcnt@*-..ppb. jsr plo.n@@-..ppbcnt inc xpixel@h-..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 72 2e  58 50 b2 24 43 46 34 30  |107...r.XP.$CF40|
000000a0  00 af 08 7c 2e 59 50 b2  24 43 46 34 31 00 bd 08  |...|.YP.$CF41...|
000000b0  86 2e 58 50 42 b2 24 43  46 34 32 00 cd 08 90 2e  |..XPB.$CF42.....|
000000c0  43 4c 49 43 4b b2 24 43  46 34 33 00 dd 08 9a 2e  |CLICK.$CF43.....|
000000d0  42 55 54 4e 4f b2 24 43  46 34 34 00 ec 08 a4 2e  |BUTNO.$CF44.....|
000000e0  48 4f 55 52 b2 24 43 46  34 35 00 fc 08 ae 2e 53  |HOUR.$CF45.....S|
000000f0  43 48 41 52 b2 24 43 46  34 36 00 0a 09 b8 2e 58  |CHAR.$CF46.....X|
00000100  53 50 b2 24 43 46 34 37  00 18 09 c2 2e 59 53 50  |SP.$CF47.....YSP|
00000110  b2 24 43 46 34 38 00 26  09 cc 2e 58 53 51 b2 24  |.$CF48.&...XSQ.$|
00000120  43 46 34 39 00 34 09 d6  2e 59 53 51 b2 24 43 46  |CF49.4...YSQ.$CF|
00000130  34 41 00 76 09 e0 2e 3b  20 20 20 20 20 20 20 20  |4A.v...;        |
00000140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000160  20 20 20 20 20 20 20 57  49 4d 50 20 52 4f 55 54  |       WIMP ROUT|
00000170  49 4e 45 53 00 7c 09 ea  2e 3b 00 8f 09 f4 2e 3b  |INES.|...;.....;|
00000180  20 57 49 4d 50 20 2d 20  4d 4f 55 53 45 00 a0 09  | WIMP - MOUSE...|
00000190  fe 2e 49 52 51 20 4c 44  41 20 23 24 30 30 00 ae  |..IRQ LDA #$00..|
000001a0  09 08 2f 53 54 41 20 43  4c 49 43 4b 00 ba 09 12  |../STA CLICK....|
000001b0  2f 4c 44 41 20 24 43 35  00 c7 09 1c 2f 43 4d 50  |/LDA $C5..../CMP|
000001c0  20 23 24 30 31 00 d7 09  26 2f 42 4e 45 20 43 91  | #$01...&/BNE C.|
000001d0  43 48 45 43 4b 00 e5 09  30 2f 53 54 41 20 43 4c  |CHECK...0/STA CL|
000001e0  49 43 4b 00 fa 09 3a 2f  43 91 43 48 45 43 4b 20  |ICK...:/C.CHECK |
000001f0  43 4d 50 20 23 24 30 43  00 08 0a 44 2f 42 45 51  |CMP #$0C...D/BEQ|
00000200  20 4c 45 46 54 4b 00 19  0a 4e 2f 4c 4b 43 20 43  | LEFTK...N/LKC C|
00000210  4d 50 20 23 24 31 37 00  28 0a 58 2f 42 45 51 20  |MP #$17.(.X/BEQ |
00000220  52 49 47 48 54 4b 00 39  0a 62 2f 52 4b 43 20 43  |RIGHTK.9.b/RKC C|
00000230  4d 50 20 23 24 33 32 00  45 0a 6c 2f 42 45 51 20  |MP #$32.E.l/BEQ |
00000240  55 50 4b 00 57 0a 76 2f  55 50 4b 43 20 43 4d 50  |UPK.W.v/UPKC CMP|
00000250  20 23 24 33 37 00 65 0a  80 2f 42 45 51 20 44 4f  | #$37.e../BEQ DO|
00000260  57 4e 4b 00 77 0a 8a 2f  44 4b 43 20 4c 44 41 20  |WNK.w../DKC LDA |
00000270  24 44 43 30 30 00 7f 0a  94 2f 54 41 58 00 8a 0a  |$DC00..../TAX...|
00000280  9e 2f af 20 23 24 30 31  00 96 0a a8 2f 42 45 51  |./. #$01..../BEQ|
00000290  20 55 50 4a 00 a2 0a b2  2f 55 4a 43 20 54 58 41  | UPJ..../UJC TXA|
000002a0  00 ad 0a bc 2f af 20 23  24 30 32 00 bb 0a c6 2f  |..../. #$02..../|
000002b0  42 45 51 20 44 4f 57 4e  4a 00 c7 0a d0 2f 44 4a  |BEQ DOWNJ..../DJ|
000002c0  43 20 54 58 41 00 d2 0a  da 2f af 20 23 24 30 34  |C TXA..../. #$04|
000002d0  00 e0 0a e4 2f 42 45 51  20 4c 45 46 54 4a 00 ec  |..../BEQ LEFTJ..|
000002e0  0a ee 2f 4c 4a 43 20 54  58 41 00 f7 0a f8 2f af  |../LJC TXA..../.|
000002f0  20 23 24 30 38 00 06 0b  02 30 42 45 51 20 52 49  | #$08....0BEQ RI|
00000300  47 48 54 4a 00 12 0b 0c  30 52 4a 43 20 54 58 41  |GHTJ....0RJC TXA|
00000310  00 1d 0b 16 30 af 20 23  24 31 30 00 29 0b 20 30  |....0. #$10.). 0|
00000320  45 b0 20 23 24 31 30 00  36 0b 2a 30 42 45 51 20  |E. #$10.6.*0BEQ |
00000330  43 4a 43 48 00 44 0b 34  30 53 54 41 20 43 4c 49  |CJCH.D.40STA CLI|
00000340  43 4b 00 57 0b 3e 30 43  4a 43 48 20 4a 4d 50 20  |CK.W.>0CJCH JMP |
00000350  24 45 41 33 31 00 6a 0b  48 30 4c 45 46 54 4b 20  |$EA31.j.H0LEFTK |
00000360  4a 53 52 20 4c 45 46 54  00 76 0b 52 30 4a 4d 50  |JSR LEFT.v.R0JMP|
00000370  20 4c 4b 43 00 8b 0b 5c  30 52 49 47 48 54 4b 20  | LKC...\0RIGHTK |
00000380  4a 53 52 20 52 49 47 48  54 00 97 0b 66 30 4a 4d  |JSR RIGHT...f0JM|
00000390  50 20 52 4b 43 00 a6 0b  70 30 55 50 4b 20 4a 53  |P RKC...p0UPK JS|
000003a0  52 20 55 50 00 b3 0b 7a  30 4a 4d 50 20 55 50 4b  |R UP...z0JMP UPK|
000003b0  43 00 c6 0b 84 30 44 4f  57 4e 4b 20 4a 53 52 20  |C....0DOWNK JSR |
000003c0  44 4f 57 4e 00 d2 0b 8e  30 4a 4d 50 20 44 4b 43  |DOWN....0JMP DKC|
000003d0  00 e1 0b 98 30 55 50 4a  20 4a 53 52 20 55 50 00  |....0UPJ JSR UP.|
000003e0  ed 0b a2 30 4a 4d 50 20  55 4a 43 00 00 0c ac 30  |...0JMP UJC....0|
000003f0  44 4f 57 4e 4a 20 4a 53  52 20 44 4f 57 4e 00 0c  |DOWNJ JSR DOWN..|
00000400  0c b6 30 4a 4d 50 20 44  4a 43 00 1f 0c c0 30 4c  |..0JMP DJC....0L|
00000410  45 46 54 4a 20 4a 53 52  20 4c 45 46 54 00 2b 0c  |EFTJ JSR LEFT.+.|
00000420  ca 30 4a 4d 50 20 4c 4a  43 00 40 0c d4 30 52 49  |.0JMP LJC.@..0RI|
00000430  47 48 54 4a 20 4a 53 52  20 52 49 47 48 54 00 4c  |GHTJ JSR RIGHT.L|
00000440  0c de 30 4a 4d 50 20 52  4a 43 00 5c 0c e8 30 4c  |..0JMP RJC.\..0L|
00000450  45 46 54 20 44 45 43 20  58 50 00 67 0c f2 30 4c  |EFT DEC XP.g..0L|
00000460  44 41 20 58 50 00 74 0c  fc 30 43 4d 50 20 23 24  |DA XP.t..0CMP #$|
00000470  46 46 00 80 0c 06 31 42  4e 45 20 a8 46 46 00 8d  |FF....1BNE .FF..|
00000480  0c 10 31 4c 44 59 20 23  24 30 30 00 99 0c 1a 31  |..1LDY #$00....1|
00000490  53 54 59 20 58 50 42 00  a9 0c 24 31 a8 46 46 20  |STY XPB...$1.FF |
000004a0  4c 44 59 20 58 50 42 00  b5 0c 2e 31 42 4e 45 20  |LDY XPB....1BNE |
000004b0  46 49 4e 00 c2 0c 38 31  43 4d 50 20 23 24 31 38  |FIN...81CMP #$18|
000004c0  00 ce 0c 42 31 42 4e 45  20 46 49 4e 00 d9 0c 4c  |...B1BNE FIN...L|
000004d0  31 49 4e 43 20 58 50 00  ea 0c 56 31 46 49 4e 20  |1INC XP...V1FIN |
000004e0  4a 4d 50 20 9a 52 4f 4c  00 fb 0c 60 31 52 49 47  |JMP .ROL...`1RIG|
000004f0  48 54 20 49 4e 43 20 58  50 00 06 0d 6a 31 4c 44  |HT INC XP...j1LD|
00000500  41 20 58 50 00 12 0d 74  31 42 4e 45 20 a8 30 30  |A XP...t1BNE .00|
00000510  00 1f 0d 7e 31 4c 44 59  20 23 24 30 31 00 2b 0d  |...~1LDY #$01.+.|
00000520  88 31 53 54 59 20 58 50  42 00 3b 0d 92 31 a8 30  |.1STY XPB.;..1.0|
00000530  30 20 4c 44 59 20 58 50  42 00 47 0d 9c 31 42 45  |0 LDY XPB.G..1BE|
00000540  51 20 46 49 4e 00 54 0d  a6 31 43 4d 50 20 23 24  |Q FIN.T..1CMP #$|
00000550  35 38 00 60 0d b0 31 42  4e 45 20 46 49 4e 00 6b  |58.`..1BNE FIN.k|
00000560  0d ba 31 44 45 43 20 58  50 00 78 0d c4 31 4a 4d  |..1DEC XP.x..1JM|
00000570  50 20 9a 52 4f 4c 00 86  0d ce 31 55 50 20 44 45  |P .ROL....1UP DE|
00000580  43 20 59 50 00 91 0d d8  31 4c 44 41 20 59 50 00  |C YP....1LDA YP.|
00000590  9e 0d e2 31 43 4d 50 20  23 24 33 32 00 aa 0d ec  |...1CMP #$32....|
000005a0  31 42 4e 45 20 46 49 4e  00 b5 0d f6 31 49 4e 43  |1BNE FIN....1INC|
000005b0  20 59 50 00 c2 0d 00 32  4a 4d 50 20 9a 52 4f 4c  | YP....2JMP .ROL|
000005c0  00 d2 0d 0a 32 44 4f 57  4e 20 49 4e 43 20 59 50  |....2DOWN INC YP|
000005d0  00 dd 0d 14 32 4c 44 41  20 59 50 00 ea 0d 1e 32  |....2LDA YP....2|
000005e0  43 4d 50 20 23 24 46 38  00 f6 0d 28 32 42 4e 45  |CMP #$F8...(2BNE|
000005f0  20 46 49 4e 00 01 0e 32  32 44 45 43 20 59 50 00  | FIN...22DEC YP.|
00000600  0e 0e 3c 32 4a 4d 50 20  9a 52 4f 4c 00 21 0e 46  |..<2JMP .ROL.!.F|
00000610  32 3b 20 57 49 4d 50 20  ab 20 50 4f b5 45 52 00  |2; WIMP . PO.ER.|
00000620  33 0e 50 32 9a 52 4f 4c  20 4c 44 41 20 48 4f 55  |3.P2.ROL LDA HOU|
00000630  52 00 42 0e 5a 32 42 4e  45 20 48 47 4c 41 53 53  |R.B.Z2BNE HGLASS|
00000640  00 4d 0e 64 32 4c 44 41  20 58 50 00 5a 0e 6e 32  |.M.d2LDA XP.Z.n2|
00000650  43 4d 50 20 23 24 32 38  00 68 0e 78 32 42 43 43  |CMP #$28.h.x2BCC|
00000660  20 4e 53 51 55 50 00 75  0e 82 32 43 4d 50 20 23  | NSQUP.u..2CMP #|
00000670  24 46 38 00 83 0e 8c 32  42 43 53 20 4e 53 51 55  |$F8....2BCS NSQU|
00000680  50 00 8f 0e 96 32 4c 44  41 20 58 50 42 00 9d 0e  |P....2LDA XPB...|
00000690  a0 32 42 4e 45 20 4e 53  51 55 50 00 a8 0e aa 32  |.2BNE NSQUP....2|
000006a0  4c 44 41 20 59 50 00 b5  0e b4 32 43 4d 50 20 23  |LDA YP....2CMP #|
000006b0  24 34 32 00 c3 0e be 32  42 43 43 20 4e 53 51 55  |$42....2BCC NSQU|
000006c0  50 00 d0 0e c8 32 43 4d  50 20 23 24 43 31 00 de  |P....2CMP #$C1..|
000006d0  0e d2 32 42 43 53 20 4e  53 51 55 50 00 e9 0e dc  |..2BCS NSQUP....|
000006e0  32 4c 44 41 20 58 50 00  f4 0e e6 32 af 20 23 24  |2LDA XP....2. #$|
000006f0  46 38 00 02 0f f0 32 53  54 41 20 24 44 30 30 30  |F8....2STA $D000|
00000700  00 0d 0f fa 32 4c 44 41  20 59 50 00 18 0f 04 33  |....2LDA YP....3|
00000710  af 20 23 24 46 38 00 24  0f 0e 33 b0 41 20 23 24  |. #$F8.$..3.A #$|
00000720  30 32 00 32 0f 18 33 53  54 41 20 24 44 30 30 31  |02.2..3STA $D001|
00000730  00 40 0f 22 33 4c 44 41  20 24 44 30 31 30 00 4b  |.@."3LDA $D010.K|
00000740  0f 2c 33 af 20 23 24 46  43 00 59 0f 36 33 53 54  |.,3. #$FC.Y.63ST|
00000750  41 20 24 44 30 31 30 00  66 0f 40 33 4c 44 41 20  |A $D010.f.@3LDA |
00000760  23 24 39 32 00 74 0f 4a  33 53 54 41 20 24 36 33  |#$92.t.J3STA $63|
00000770  46 38 00 82 0f 54 33 4c  44 41 20 24 44 30 31 35  |F8...T3LDA $D015|
00000780  00 8d 0f 5e 33 af 20 23  24 46 43 00 99 0f 68 33  |...^3. #$FC...h3|
00000790  b0 41 20 23 24 30 31 00  a7 0f 72 33 53 54 41 20  |.A #$01...r3STA |
000007a0  24 44 30 31 35 00 b4 0f  7c 33 4c 44 41 20 23 24  |$D015...|3LDA #$|
000007b0  30 31 00 c2 0f 86 33 53  54 41 20 24 44 30 32 37  |01....3STA $D027|
000007c0  00 ca 0f 90 33 52 54 53  00 de 0f 9a 33 48 47 4c  |....3RTS....3HGL|
000007d0  41 53 53 20 4c 44 58 20  23 24 39 33 00 ec 0f a4  |ASS LDX #$93....|
000007e0  33 53 54 58 20 24 36 33  46 38 00 f4 0f ae 33 49  |3STX $63F8....3I|
000007f0  4e 58 00 02 10 b8 33 53  54 58 20 24 36 33 46 39  |NX....3STX $63F9|
00000800  00 13 10 c2 33 4e 53 51  55 50 20 4c 44 41 20 58  |....3NSQUP LDA X|
00000810  50 00 21 10 cc 33 53 54  41 20 24 44 30 30 30 00  |P.!..3STA $D000.|
00000820  2f 10 d6 33 53 54 41 20  24 44 30 30 32 00 3a 10  |/..3STA $D002.:.|
00000830  e0 33 4c 44 41 20 59 50  00 48 10 ea 33 53 54 41  |.3LDA YP.H..3STA|
00000840  20 24 44 30 30 31 00 56  10 f4 33 53 54 41 20 24  | $D001.V..3STA $|
00000850  44 30 30 33 00 64 10 fe  33 4c 44 41 20 24 44 30  |D003.d..3LDA $D0|
00000860  31 30 00 6f 10 08 34 af  20 23 24 46 43 00 79 10  |10.o..4. #$FC.y.|
00000870  12 34 4c 53 52 20 41 00  81 10 1c 34 43 4c 43 00  |.4LSR A....4CLC.|
00000880  8d 10 26 34 41 44 43 20  58 50 42 00 97 10 30 34  |..&4ADC XPB...04|
00000890  41 53 4c 20 41 00 9f 10  3a 34 43 4c 43 00 ab 10  |ASL A...:4CLC...|
000008a0  44 34 41 44 43 20 58 50  42 00 b9 10 4e 34 53 54  |D4ADC XPB...N4ST|
000008b0  41 20 24 44 30 31 30 00  c6 10 58 34 4c 44 41 20  |A $D010...X4LDA |
000008c0  23 24 30 30 00 d4 10 62  34 53 54 41 20 24 44 30  |#$00...b4STA $D0|
000008d0  32 37 00 e1 10 6c 34 4c  44 41 20 23 24 30 31 00  |27...l4LDA #$01.|
000008e0  ef 10 76 34 53 54 41 20  24 44 30 32 38 00 fd 10  |..v4STA $D028...|
000008f0  80 34 4c 44 41 20 24 44  30 31 35 00 09 11 8a 34  |.4LDA $D015....4|
00000900  b0 41 20 23 24 30 33 00  17 11 94 34 53 54 41 20  |.A #$03....4STA |
00000910  24 44 30 31 35 00 24 11  9e 34 4c 44 41 20 48 4f  |$D015.$..4LDA HO|
00000920  55 52 00 31 11 a8 34 42  4e 45 20 51 54 52 4f 00  |UR.1..4BNE QTRO.|
00000930  3e 11 b2 34 4c 44 41 20  23 24 39 30 00 4c 11 bc  |>..4LDA #$90.L..|
00000940  34 53 54 41 20 24 36 33  46 38 00 59 11 c6 34 4c  |4STA $63F8.Y..4L|
00000950  44 41 20 23 24 39 31 00  67 11 d0 34 53 54 41 20  |DA #$91.g..4STA |
00000960  24 36 33 46 39 00 74 11  da 34 51 54 52 4f 20 52  |$63F9.t..4QTRO R|
00000970  54 53 00 8b 11 e4 34 3b  20 53 54 41 52 54 55 50  |TS....4; STARTUP|
00000980  20 52 4f 55 54 49 4e 45  53 00 9b 11 ee 34 53 52  | ROUTINES....4SR|
00000990  20 4c 44 41 20 23 24 38  42 00 a9 11 f8 34 53 54  | LDA #$8B....4ST|
000009a0  41 20 24 44 30 31 31 00  b7 11 02 35 4c 44 41 20  |A $D011....5LDA |
000009b0  24 44 44 30 32 00 c3 11  0c 35 b0 41 20 23 24 30  |$DD02....5.A #$0|
000009c0  32 00 d1 11 16 35 53 54  41 20 24 44 44 30 32 00  |2....5STA $DD02.|
000009d0  df 11 20 35 4c 44 41 20  24 44 44 30 30 00 ea 11  |.. 5LDA $DD00...|
000009e0  2a 35 af 20 23 24 46 45  00 f6 11 34 35 b0 41 20  |*5. #$FE...45.A |
000009f0  23 24 30 32 00 04 12 3e  35 53 54 41 20 24 44 44  |#$02...>5STA $DD|
00000a00  30 30 00 11 12 48 35 4c  44 41 20 23 24 30 30 00  |00...H5LDA #$00.|
00000a10  1f 12 52 35 53 54 41 20  24 44 30 32 30 00 2d 12  |..R5STA $D020.-.|
00000a20  5c 35 53 54 41 20 24 44  30 32 31 00 3b 12 66 35  |\5STA $D021.;.f5|
00000a30  53 54 41 20 24 44 30 30  30 00 47 12 70 35 53 54  |STA $D000.G.p5ST|
00000a40  41 20 59 53 50 00 53 12  7a 35 53 54 41 20 58 53  |A YSP.S.z5STA XS|
00000a50  50 00 60 12 84 35 4c 44  41 20 23 24 38 36 00 6e  |P.`..5LDA #$86.n|
00000a60  12 8e 35 53 54 41 20 24  44 30 31 38 00 7b 12 98  |..5STA $D018.{..|
00000a70  35 4c 44 41 20 23 24 30  42 00 89 12 a2 35 53 54  |5LDA #$0B....5ST|
00000a80  41 20 24 44 30 30 31 00  96 12 ac 35 4c 44 41 20  |A $D001....5LDA |
00000a90  23 24 31 30 00 a4 12 b6  35 53 54 41 20 24 44 30  |#$10....5STA $D0|
00000aa0  30 38 00 b1 12 c0 35 4c  44 41 20 23 24 33 41 00  |08....5LDA #$3A.|
00000ab0  bf 12 ca 35 53 54 41 20  24 44 30 30 39 00 cc 12  |...5STA $D009...|
00000ac0  d4 35 4c 44 41 20 23 24  31 30 00 da 12 de 35 53  |.5LDA #$10....5S|
00000ad0  54 41 20 24 44 30 31 30  00 e7 12 e8 35 4c 44 41  |TA $D010....5LDA|
00000ae0  20 23 24 30 31 00 f5 12  f2 35 53 54 41 20 24 44  | #$01....5STA $D|
00000af0  30 32 39 00 03 13 fc 35  53 54 41 20 24 44 30 32  |029....5STA $D02|
00000b00  42 00 10 13 06 36 4c 44  41 20 23 24 30 30 00 1e  |B....6LDA #$00..|
00000b10  13 10 36 53 54 41 20 24  44 30 32 41 00 2c 13 1a  |..6STA $D02A.,..|
00000b20  36 53 54 41 20 53 43 48  41 52 00 39 13 24 36 4c  |6STA SCHAR.9.$6L|
00000b30  44 41 20 23 24 30 31 00  46 13 2e 36 4c 44 58 20  |DA #$01.F..6LDX |
00000b40  23 24 30 38 00 4e 13 38  36 54 41 59 00 5c 13 42  |#$08.N.86TAY.\.B|
00000b50  36 4a 53 52 20 24 46 46  42 41 00 69 13 4c 36 4c  |6JSR $FFBA.i.L6L|
00000b60  44 41 20 23 24 30 43 00  7a 13 56 36 4c 44 58 20  |DA #$0C.z.V6LDX |
00000b70  23 b3 45 47 52 54 58 54  00 8b 13 60 36 4c 44 59  |#.EGRTXT...`6LDY|
00000b80  20 23 b1 45 47 52 54 58  54 00 99 13 6a 36 4a 53  | #.EGRTXT...j6JS|
00000b90  52 20 24 46 46 42 44 00  a6 13 74 36 4c 44 41 20  |R $FFBD...t6LDA |
00000ba0  23 24 30 30 00 b4 13 7e  36 4a 53 52 20 24 46 46  |#$00...~6JSR $FF|
00000bb0  44 35 00 c1 13 88 36 4c  44 41 20 23 24 30 31 00  |D5....6LDA #$01.|
00000bc0  ce 13 92 36 4c 44 58 20  23 24 30 38 00 d6 13 9c  |...6LDX #$08....|
00000bd0  36 54 41 59 00 e4 13 a6  36 4a 53 52 20 24 46 46  |6TAY....6JSR $FF|
00000be0  42 41 00 f1 13 b0 36 4c  44 41 20 23 24 30 38 00  |BA....6LDA #$08.|
00000bf0  01 14 ba 36 4c 44 58 20  23 b3 45 43 54 58 54 00  |...6LDX #.ECTXT.|
00000c00  11 14 c4 36 4c 44 59 20  23 b1 45 43 54 58 54 00  |...6LDY #.ECTXT.|
00000c10  1f 14 ce 36 4a 53 52 20  24 46 46 42 44 00 2c 14  |...6JSR $FFBD.,.|
00000c20  d8 36 4c 44 41 20 23 24  30 30 00 3a 14 e2 36 4a  |.6LDA #$00.:..6J|
00000c30  53 52 20 24 46 46 44 35  00 47 14 ec 36 4c 44 41  |SR $FFD5.G..6LDA|
00000c40  20 23 24 39 42 00 55 14  f6 36 53 54 41 20 24 44  | #$9B.U..6STA $D|
00000c50  30 31 31 00 62 14 00 37  4c 44 41 20 23 24 30 30  |011.b..7LDA #$00|
00000c60  00 70 14 0a 37 53 54 41  20 42 55 54 4e 4f 00 7d  |.p..7STA BUTNO.}|
00000c70  14 14 37 4c 44 41 20 23  24 39 32 00 8b 14 1e 37  |..7LDA #$92....7|
00000c80  53 54 41 20 24 36 33 46  43 00 93 14 28 37 53 45  |STA $63FC...(7SE|
00000c90  49 00 a0 14 32 37 4c 44  41 20 23 24 30 30 00 ae  |I...27LDA #$00..|
00000ca0  14 3c 37 53 54 41 20 24  30 33 31 34 00 bb 14 46  |.<7STA $0314...F|
00000cb0  37 4c 44 41 20 23 24 43  30 00 c9 14 50 37 53 54  |7LDA #$C0...P7ST|
00000cc0  41 20 24 30 33 31 35 00  d1 14 5a 37 43 4c 49 00  |A $0315...Z7CLI.|
00000cd0  de 14 64 37 4c 44 41 20  23 24 30 30 00 e9 14 6e  |..d7LDA #$00...n|
00000ce0  37 53 54 41 20 58 50 00  f6 14 78 37 53 54 41 20  |7STA XP...x7STA |
00000cf0  48 4f 55 52 00 03 15 82  37 4c 44 41 20 23 24 38  |HOUR....7LDA #$8|
00000d00  30 00 0e 15 8c 37 53 54  41 20 59 50 00 1b 15 96  |0....7STA YP....|
00000d10  37 4c 44 41 20 23 24 30  31 00 27 15 a0 37 53 54  |7LDA #$01.'..7ST|
00000d20  41 20 58 50 42 00 34 15  aa 37 4c 44 41 20 23 24  |A XPB.4..7LDA #$|
00000d30  31 43 00 42 15 b4 37 53  54 41 20 24 44 30 31 35  |1C.B..7STA $D015|
00000d40  00 4f 15 be 37 4a 53 52  20 4c 45 46 54 00 5c 15  |.O..7JSR LEFT.\.|
00000d50  c8 37 4c 44 41 20 23 24  30 30 00 6a 15 d2 37 53  |.7LDA #$00.j..7S|
00000d60  54 41 20 24 44 30 30 34  00 78 15 dc 37 53 54 41  |TA $D004.x..7STA|
00000d70  20 24 44 30 30 36 00 85  15 e6 37 4c 44 41 20 23  | $D006....7LDA #|
00000d80  24 44 39 00 93 15 f0 37  53 54 41 20 24 44 30 30  |$D9....7STA $D00|
00000d90  35 00 a1 15 fa 37 53 54  41 20 24 44 30 30 37 00  |5....7STA $D007.|
00000da0  ae 15 04 38 4c 44 41 20  23 24 39 35 00 bc 15 0e  |...8LDA #$95....|
00000db0  38 53 54 41 20 24 36 33  46 42 00 c9 15 18 38 4c  |8STA $63FB....8L|
00000dc0  44 41 20 23 24 30 38 00  d7 15 22 38 53 54 41 20  |DA #$08..."8STA |
00000dd0  24 44 30 31 43 00 e4 15  2c 38 4c 44 41 20 23 24  |$D01C...,8LDA #$|
00000de0  31 38 00 f2 15 36 38 53  54 41 20 24 44 30 31 36  |18...68STA $D016|
00000df0  00 0f 16 30 75 3b 20 4d  41 4e 44 4c 45 42 52 4f  |...0u; MANDLEBRO|
00000e00  54 20 53 45 54 20 50 4c  4f 54 54 45 52 00 21 16  |T SET PLOTTER.!.|
00000e10  3a 75 4d af 4c 45 20 4c  44 41 20 23 24 30 30 00  |:uM.LE LDA #$00.|
00000e20  30 16 44 75 53 54 41 20  59 50 49 58 45 4c 00 3d  |0.DuSTA YPIXEL.=|
00000e30  16 4e 75 4c 44 41 20 23  24 30 33 00 4b 16 58 75  |.NuLDA #$03.K.Xu|
00000e40  53 54 41 20 24 34 31 30  30 00 58 16 62 75 4c 44  |STA $4100.X.buLD|
00000e50  41 20 23 24 30 36 00 66  16 6c 75 53 54 41 20 24  |A #$06.f.luSTA $|
00000e60  34 31 30 32 00 74 16 76  75 4a 53 52 20 45 51 55  |4102.t.vuJSR EQU|
00000e70  41 4c 00 88 16 80 75 4d  4d 41 49 4e 4c 20 4c 44  |AL....uMMAINL LD|
00000e80  41 20 23 24 30 30 00 97  16 8a 75 53 54 41 20 58  |A #$00....uSTA X|
00000e90  50 49 58 45 4c 00 a4 16  94 75 4c 44 41 20 23 24  |PIXEL....uLDA #$|
00000ea0  30 31 00 b2 16 9e 75 53  54 41 20 24 34 31 30 30  |01....uSTA $4100|
00000eb0  00 bf 16 a8 75 4c 44 41  20 23 24 30 35 00 cd 16  |....uLDA #$05...|
00000ec0  b2 75 53 54 41 20 24 34  31 30 32 00 db 16 bc 75  |.uSTA $4102....u|
00000ed0  4a 53 52 20 45 51 55 41  4c 00 f0 16 c6 75 4d 4d  |JSR EQUAL....uMM|
00000ee0  41 49 4e 4c 42 20 4c 44  41 20 23 24 30 35 00 fe  |AINLB LDA #$05..|
00000ef0  16 d0 75 53 54 41 20 24  34 31 30 30 00 0b 17 da  |..uSTA $4100....|
00000f00  75 4c 44 41 20 23 24 30  37 00 19 17 e4 75 53 54  |uLDA #$07....uST|
00000f10  41 20 24 34 31 30 32 00  27 17 ee 75 4a 53 52 20  |A $4102.'..uJSR |
00000f20  45 51 55 41 4c 00 35 17  f8 75 49 4e 43 20 24 34  |EQUAL.5..uINC $4|
00000f30  31 30 30 00 43 17 02 76  49 4e 43 20 24 34 31 30  |100.C..vINC $410|
00000f40  32 00 51 17 0c 76 4a 53  52 20 45 51 55 41 4c 00  |2.Q..vJSR EQUAL.|
00000f50  5e 17 16 76 4c 44 41 20  23 24 30 30 00 6d 17 20  |^..vLDA #$00.m. |
00000f60  76 53 54 41 20 43 4f 4c  4f 55 52 00 7f 17 2a 76  |vSTA COLOUR...*v|
00000f70  4c 4f 4f 50 20 4c 44 41  20 23 24 30 37 00 8d 17  |LOOP LDA #$07...|
00000f80  34 76 53 54 41 20 24 34  31 30 30 00 9b 17 3e 76  |4vSTA $4100...>v|
00000f90  53 54 41 20 24 34 31 30  31 00 a8 17 48 76 4c 44  |STA $4101...HvLD|
00000fa0  41 20 23 24 31 30 00 b6  17 52 76 53 54 41 20 24  |A #$10...RvSTA $|
00000fb0  34 31 30 32 00 c7 17 5c  76 4a 53 52 20 4d 55 4c  |4102...\vJSR MUL|
00000fc0  54 49 50 4c 59 00 d4 17  66 76 4c 44 41 20 23 24  |TIPLY...fvLDA #$|
00000fd0  30 38 00 e2 17 70 76 53  54 41 20 24 34 31 30 30  |08...pvSTA $4100|
00000fe0  00 f0 17 7a 76 53 54 41  20 24 34 31 30 31 00 fd  |...zvSTA $4101..|
00000ff0  17 84 76 4c 44 41 20 23  24 31 31 00 0b 18 8e 76  |..vLDA #$11....v|
00001000  53 54 41 20 24 34 31 30  32 00 1c 18 98 76 4a 53  |STA $4102....vJS|
00001010  52 20 4d 55 4c 54 49 50  4c 59 00 29 18 a2 76 4c  |R MULTIPLY.)..vL|
00001020  44 58 20 23 24 31 30 00  37 18 ac 76 53 54 58 20  |DX #$10.7..vSTX |
00001030  24 34 31 30 30 00 3f 18  b6 76 49 4e 58 00 4d 18  |$4100.?..vINX.M.|
00001040  c0 76 53 54 58 20 24 34  31 30 31 00 55 18 ca 76  |.vSTX $4101.U..v|
00001050  49 4e 58 00 63 18 d4 76  53 54 58 20 24 34 31 30  |INX.c..vSTX $410|
00001060  32 00 73 18 de 76 4a 53  52 20 41 44 44 49 54 49  |2.s..vJSR ADDITI|
00001070  91 00 81 18 e8 76 4c 44  41 20 24 34 30 39 31 00  |.....vLDA $4091.|
00001080  8e 18 f2 76 43 4d 50 20  23 24 30 34 00 9b 18 fc  |...vCMP #$04....|
00001090  76 42 43 43 20 46 41 49  4c 00 a8 18 06 77 43 4d  |vBCC FAIL....wCM|
000010a0  50 20 23 24 35 30 00 b5  18 10 77 42 43 53 20 46  |P #$50....wBCS F|
000010b0  41 49 4c 00 cd 18 1a 77  53 55 43 50 41 53 53 20  |AIL....wSUCPASS |
000010c0  4a 4d 50 20 53 55 43 43  45 53 53 00 e1 18 24 77  |JMP SUCCESS...$w|
000010d0  46 41 49 4c 20 49 4e 43  20 43 4f 4c 4f 55 52 00  |FAIL INC COLOUR.|
000010e0  f0 18 29 77 4c 44 41 20  43 4f 4c 4f 55 52 00 ff  |..)wLDA COLOUR..|
000010f0  18 2e 77 43 4d 50 20 4d  41 58 43 4f 4c 00 0f 19  |..wCMP MAXCOL...|
00001100  38 77 42 45 51 20 53 55  43 50 41 53 53 00 20 19  |8wBEQ SUCPASS. .|
00001110  42 77 4a 53 52 20 53 55  42 54 52 41 43 54 00 2d  |BwJSR SUBTRACT.-|
00001120  19 4c 77 4c 44 41 20 23  24 31 32 00 3b 19 56 77  |.LwLDA #$12.;.Vw|
00001130  53 54 41 20 24 34 31 30  30 00 48 19 60 77 4c 44  |STA $4100.H.`wLD|
00001140  41 20 23 24 30 35 00 56  19 6a 77 53 54 41 20 24  |A #$05.V.jwSTA $|
00001150  34 31 30 31 00 63 19 74  77 4c 44 41 20 23 24 31  |4101.c.twLDA #$1|
00001160  33 00 71 19 7e 77 53 54  41 20 24 34 31 30 32 00  |3.q.~wSTA $4102.|
00001170  81 19 88 77 4a 53 52 20  41 44 44 49 54 49 91 00  |...wJSR ADDITI..|
00001180  8e 19 92 77 4c 44 41 20  23 24 30 37 00 9c 19 9c  |...wLDA #$07....|
00001190  77 53 54 41 20 24 34 31  30 30 00 a9 19 a6 77 4c  |wSTA $4100....wL|
000011a0  44 41 20 23 24 30 38 00  b7 19 b0 77 53 54 41 20  |DA #$08....wSTA |
000011b0  24 34 31 30 31 00 c5 19  ba 77 49 4e 43 20 24 34  |$4101....wINC $4|
000011c0  31 30 32 00 d6 19 c4 77  4a 53 52 20 4d 55 4c 54  |102....wJSR MULT|
000011d0  49 50 4c 59 00 e3 19 ce  77 4c 44 41 20 23 24 31  |IPLY....wLDA #$1|
000011e0  34 00 f1 19 d8 77 53 54  41 20 24 34 31 30 30 00  |4....wSTA $4100.|
000011f0  fe 19 e2 77 4c 44 41 20  23 24 31 43 00 0c 1a ec  |...wLDA #$1C....|
00001200  77 53 54 41 20 24 34 31  30 31 00 19 1a f6 77 4c  |wSTA $4101....wL|
00001210  44 41 20 23 24 31 35 00  27 1a 00 78 53 54 41 20  |DA #$15.'..xSTA |
00001220  24 34 31 30 32 00 38 1a  0a 78 4a 53 52 20 4d 55  |$4102.8..xJSR MU|
00001230  4c 54 49 50 4c 59 00 45  1a 14 78 4c 44 41 20 23  |LTIPLY.E..xLDA #|
00001240  24 31 35 00 53 1a 1e 78  53 54 41 20 24 34 31 30  |$15.S..xSTA $410|
00001250  30 00 60 1a 28 78 4c 44  41 20 23 24 30 36 00 6e  |0.`.(xLDA #$06.n|
00001260  1a 32 78 53 54 41 20 24  34 31 30 31 00 7b 1a 3c  |.2xSTA $4101.{.<|
00001270  78 4c 44 41 20 23 24 31  36 00 89 1a 46 78 53 54  |xLDA #$16...FxST|
00001280  41 20 24 34 31 30 32 00  99 1a 50 78 4a 53 52 20  |A $4102...PxJSR |
00001290  41 44 44 49 54 49 91 00  a6 1a 5a 78 4c 44 41 20  |ADDITI....ZxLDA |
000012a0  23 24 31 33 00 b4 1a 64  78 53 54 41 20 24 34 31  |#$13...dxSTA $41|
000012b0  30 30 00 c1 1a 6e 78 4c  44 41 20 23 24 30 37 00  |00...nxLDA #$07.|
000012c0  cf 1a 78 78 53 54 41 20  24 34 31 30 32 00 dd 1a  |..xxSTA $4102...|
000012d0  82 78 4a 53 52 20 45 51  55 41 4c 00 ea 1a 8c 78  |.xJSR EQUAL....x|
000012e0  4c 44 41 20 23 24 31 36  00 f8 1a 96 78 53 54 41  |LDA #$16....xSTA|
000012f0  20 24 34 31 30 30 00 05  1b a0 78 4c 44 41 20 23  | $4100....xLDA #|
00001300  24 30 38 00 13 1b aa 78  53 54 41 20 24 34 31 30  |$08....xSTA $410|
00001310  32 00 21 1b b4 78 4a 53  52 20 45 51 55 41 4c 00  |2.!..xJSR EQUAL.|
00001320  2e 1b be 78 4a 4d 50 20  4c 4f 4f 50 00 43 1b c8  |...xJMP LOOP.C..|
00001330  78 53 55 43 43 45 53 53  20 4a 53 52 20 50 4c 4f  |xSUCCESS JSR PLO|
00001340  54 00 50 1b d2 78 4c 44  41 20 23 24 30 35 00 5e  |T.P..xLDA #$05.^|
00001350  1b dc 78 53 54 41 20 24  34 31 30 30 00 6c 1b e6  |..xSTA $4100.l..|
00001360  78 53 54 41 20 24 34 31  30 32 00 79 1b f0 78 4c  |xSTA $4102.y..xL|
00001370  44 41 20 23 24 30 32 00  87 1b fa 78 53 54 41 20  |DA #$02....xSTA |
00001380  24 34 31 30 31 00 97 1b  04 79 4a 53 52 20 41 44  |$4101....yJSR AD|
00001390  44 49 54 49 91 00 a6 1b  0e 79 4c 44 41 20 58 50  |DITI.....yLDA XP|
000013a0  49 58 45 4c 00 b5 1b 18  79 42 4e 45 20 58 52 45  |IXEL....yBNE XRE|
000013b0  4c 4f 50 00 c2 1b 22 79  4c 44 41 20 23 24 30 36  |LOP..."yLDA #$06|
000013c0  00 d0 1b 2c 79 53 54 41  20 24 34 31 30 30 00 de  |...,ySTA $4100..|
000013d0  1b 36 79 53 54 41 20 24  34 31 30 32 00 eb 1b 40  |.6ySTA $4102...@|
000013e0  79 4c 44 41 20 23 24 30  34 00 f9 1b 4a 79 53 54  |yLDA #$04...JyST|
000013f0  41 20 24 34 31 30 31 00  09 1c 54 79 4a 53 52 20  |A $4101...TyJSR |
00001400  41 44 44 49 54 49 91 00  18 1c 5e 79 49 4e 43 20  |ADDITI....^yINC |
00001410  59 50 49 58 45 4c 00 27  1c 68 79 4c 44 41 20 59  |YPIXEL.'.hyLDA Y|
00001420  50 49 58 45 4c 00 34 1c  72 79 43 4d 50 20 23 24  |PIXEL.4.ryCMP #$|
00001430  43 38 00 43 1c 7c 79 42  4e 45 20 59 52 45 4c 4f  |C8.C.|yBNE YRELO|
00001440  50 00 4b 1c 86 79 52 54  53 00 62 1c 90 79 58 52  |P.K..yRTS.b..yXR|
00001450  45 4c 4f 50 20 4a 4d 50  20 4d 4d 41 49 4e 4c 42  |ELOP JMP MMAINLB|
00001460  00 78 1c 9a 79 59 52 45  4c 4f 50 20 4a 4d 50 20  |.x..yYRELOP JMP |
00001470  4d 4d 41 49 4e 4c 00 92  1c 40 9c 3b 20 41 52 49  |MMAINL...@.; ARI|
00001480  54 48 4d 45 54 49 43 20  52 4f 55 54 49 4e 45 53  |THMETIC ROUTINES|
00001490  00 a1 1c 4a 9c a1 44 49  47 49 54 20 43 4c 44 00  |...J..DIGIT CLD.|
000014a0  ab 1c 54 9c 41 53 4c 20  41 00 b5 1c 5e 9c 41 53  |..T.ASL A...^.AS|
000014b0  4c 20 41 00 bf 1c 68 9c  41 53 4c 20 41 00 cb 1c  |L A...h.ASL A...|
000014c0  72 9c 53 54 41 20 24 30  32 00 d3 1c 7c 9c 54 58  |r.STA $02...|.TX|
000014d0  41 00 dd 1c 86 9c 4c 53  52 20 41 00 e9 1c 90 9c  |A.....LSR A.....|
000014e0  53 54 41 20 24 32 34 00  f6 1c 9a 9c 4c 44 41 20  |STA $24.....LDA |
000014f0  23 24 30 37 00 fe 1c a4  9c 53 45 43 00 0a 1d ae  |#$07.....SEC....|
00001500  9c 53 42 43 20 24 32 34  00 12 1d b8 9c 43 4c 43  |.SBC $24.....CLC|
00001510  00 1e 1d c2 9c 41 44 43  20 24 30 32 00 26 1d cc  |.....ADC $02.&..|
00001520  9c 54 41 59 00 36 1d d6  9c 4c 44 41 20 24 34 30  |.TAY.6...LDA $40|
00001530  30 30 2c 59 00 3e 1d e0  9c 54 41 59 00 46 1d ea  |00,Y.>...TAY.F..|
00001540  9c 54 58 41 00 51 1d f4  9c af 20 23 24 30 31 00  |.TXA.Q.... #$01.|
00001550  5f 1d fe 9c 42 45 51 20  4c 53 4e 47 44 00 67 1d  |_...BEQ LSNGD.g.|
00001560  08 9d 54 59 41 00 72 1d  12 9d af 20 23 24 46 30  |..TYA.r.... #$F0|
00001570  00 7c 1d 1c 9d 4c 53 52  20 41 00 86 1d 26 9d 4c  |.|...LSR A...&.L|
00001580  53 52 20 41 00 90 1d 30  9d 4c 53 52 20 41 00 9a  |SR A...0.LSR A..|
00001590  1d 3a 9d 4c 53 52 20 41  00 a2 1d 44 9d 52 54 53  |.:.LSR A...D.RTS|
000015a0  00 b0 1d 4e 9d 4c 53 4e  47 44 20 54 59 41 00 bb  |...N.LSNGD TYA..|
000015b0  1d 58 9d af 20 23 24 30  46 00 c3 1d 62 9d 52 54  |.X.. #$0F...b.RT|
000015c0  53 00 de 1d 6c 9d 4d 55  4c 54 49 50 4c 59 42 20  |S...l.MULTIPLYB |
000015d0  4a 53 52 20 4e 45 47 41  54 49 56 45 00 ec 1d 71  |JSR NEGATIVE...q|
000015e0  9d 4c 44 41 20 24 34 31  30 32 00 f6 1d 76 9d 41  |.LDA $4102...v.A|
000015f0  53 4c 20 41 00 00 1e 80  9d 41 53 4c 20 41 00 0a  |SL A.....ASL A..|
00001600  1e 8a 9d 41 53 4c 20 41  00 12 1e 94 9d 54 41 58  |...ASL A.....TAX|
00001610  00 1f 1e 9e 9d 4c 44 41  20 23 24 30 30 00 27 1e  |.....LDA #$00.'.|
00001620  a8 9d 54 41 59 00 3d 1e  b2 9d 4d 4c 4f 50 41 20  |..TAY.=...MLOPA |
00001630  53 54 41 20 24 34 30 30  30 2c 58 00 45 1e bc 9d  |STA $4000,X.E...|
00001640  49 4e 59 00 4d 1e c6 9d  49 4e 58 00 5a 1e d0 9d  |INY.M...INX.Z...|
00001650  43 50 59 20 23 24 30 38  00 68 1e da 9d 42 4e 45  |CPY #$08.h...BNE|
00001660  20 4d 4c 4f 50 41 00 75  1e e4 9d 4c 44 41 20 23  | MLOPA.u...LDA #|
00001670  24 30 36 00 81 1e ee 9d  53 54 41 20 24 46 43 00  |$06.....STA $FC.|
00001680  96 1e f8 9d a2 44 49 47  49 54 20 4c 44 41 20 24  |.....DIGIT LDA $|
00001690  34 31 30 31 00 a2 1e 02  9e 4c 44 58 20 24 46 43  |4101.....LDX $FC|
000016a0  00 b1 1e 0c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |.....JSR .DIGIT.|
000016b0  be 1e 16 9e 43 4d 50 20  23 24 30 30 00 cd 1e 20  |....CMP #$00... |
000016c0  9e 42 45 51 20 44 4d 4f  56 45 52 00 d9 1e 2a 9e  |.BEQ DMOVER...*.|
000016d0  53 54 41 20 24 46 44 00  e6 1e 34 9e 4c 44 41 20  |STA $FD...4.LDA |
000016e0  23 24 30 36 00 f2 1e 3e  9e 53 54 41 20 24 46 42  |#$06...>.STA $FB|
000016f0  00 06 1f 48 9e 44 4d 4c  4f 50 20 4c 44 41 20 24  |...H.DMLOP LDA $|
00001700  34 31 30 30 00 12 1f 52  9e 4c 44 58 20 24 46 42  |4100...R.LDX $FB|
00001710  00 21 1f 5c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |.!.\.JSR .DIGIT.|
00001720  33 1f 66 9e 44 4d 4c 42  20 43 4d 50 20 23 24 30  |3.f.DMLB CMP #$0|
00001730  30 00 42 1f 70 9e 42 45  51 20 44 4d 4f 56 45 52  |0.B.p.BEQ DMOVER|
00001740  00 4e 1f 7a 9e 53 54 41  20 24 46 45 00 5a 1f 84  |.N.z.STA $FE.Z..|
00001750  9e 4c 44 41 20 24 46 42  00 62 1f 8e 9e 43 4c 43  |.LDA $FB.b...CLC|
00001760  00 6e 1f 98 9e 41 44 43  20 24 46 43 00 76 1f a2  |.n...ADC $FC.v..|
00001770  9e 53 45 43 00 83 1f ac  9e 53 42 43 20 23 24 30  |.SEC.....SBC #$0|
00001780  43 00 8f 1f b6 9e 4c 44  58 20 24 46 44 00 97 1f  |C.....LDX $FD...|
00001790  c0 9e 54 41 59 00 a2 1f  ca 9e af 20 23 24 30 31  |..TAY...... #$01|
000017a0  00 b0 1f d4 9e 42 45 51  20 4d 53 4b 49 50 00 b8  |.....BEQ MSKIP..|
000017b0  1f de 9e 54 58 41 00 c2  1f e8 9e 41 53 4c 20 41  |...TXA.....ASL A|
000017c0  00 cc 1f f2 9e 41 53 4c  20 41 00 d6 1f fc 9e 41  |.....ASL A.....A|
000017d0  53 4c 20 41 00 e0 1f 06  9f 41 53 4c 20 41 00 e8  |SL A.....ASL A..|
000017e0  1f 10 9f 54 41 58 00 f6  1f 1a 9f 4d 53 4b 49 50  |...TAX.....MSKIP|
000017f0  20 54 59 41 00 00 20 24  9f 4c 53 52 20 41 00 0c  | TYA.. $.LSR A..|
00001800  20 2e 9f 53 54 41 20 24  30 32 00 19 20 38 9f 4c  | ..STA $02.. 8.L|
00001810  44 41 20 23 24 30 37 00  21 20 42 9f 53 45 43 00  |DA #$07.! B.SEC.|
00001820  2d 20 4c 9f 53 42 43 20  24 30 32 00 39 20 56 9f  |- L.SBC $02.9 V.|
00001830  53 54 41 20 24 30 32 00  47 20 60 9f 4c 44 41 20  |STA $02.G `.LDA |
00001840  24 34 31 30 32 00 51 20  6a 9f 41 53 4c 20 41 00  |$4102.Q j.ASL A.|
00001850  5b 20 74 9f 41 53 4c 20  41 00 65 20 7e 9f 41 53  |[ t.ASL A.e ~.AS|
00001860  4c 20 41 00 71 20 88 9f  41 44 43 20 24 30 32 00  |L A.q ..ADC $02.|
00001870  79 20 92 9f 54 41 59 00  85 20 9c 9f 53 54 58 20  |y ..TAY.. ..STX |
00001880  24 32 34 00 91 20 a6 9f  4c 44 58 20 24 30 32 00  |$24.. ..LDX $02.|
00001890  99 20 b0 9f 53 45 44 00  a9 20 ba 9f 4c 44 41 20  |. ..SED.. ..LDA |
000018a0  24 34 30 30 30 2c 59 00  b1 20 c4 9f 43 4c 43 00  |$4000,Y.. ..CLC.|
000018b0  bd 20 ce 9f 41 44 43 20  24 32 34 00 cd 20 d8 9f  |. ..ADC $24.. ..|
000018c0  53 54 41 20 24 34 30 30  30 2c 59 00 da 20 e2 9f  |STA $4000,Y.. ..|
000018d0  4d 41 4c 50 20 43 4c 44  00 e9 20 ec 9f 42 43 43  |MALP CLD.. ..BCC|
000018e0  20 4d 41 51 55 49 54 00  f1 20 f6 9f 44 45 59 00  | MAQUIT.. ..DEY.|
000018f0  f9 20 00 a0 44 45 58 00  06 21 0a a0 43 50 58 20  |. ..DEX..!..CPX |
00001900  23 24 46 46 00 15 21 14  a0 42 45 51 20 4d 41 51  |#$FF..!..BEQ MAQ|
00001910  55 49 54 00 1d 21 1e a0  53 45 44 00 2d 21 28 a0  |UIT..!..SED.-!(.|
00001920  4c 44 41 20 24 34 30 30  30 2c 59 00 35 21 32 a0  |LDA $4000,Y.5!2.|
00001930  43 4c 43 00 42 21 3c a0  41 44 43 20 23 24 30 31  |CLC.B!<.ADC #$01|
00001940  00 52 21 46 a0 53 54 41  20 24 34 30 30 30 2c 59  |.R!F.STA $4000,Y|
00001950  00 5f 21 50 a0 4a 4d 50  20 4d 41 4c 50 00 72 21  |._!P.JMP MALP.r!|
00001960  5a a0 44 4d 4f 56 45 52  20 49 4e 43 20 24 46 42  |Z.DMOVER INC $FB|
00001970  00 7e 21 64 a0 4c 44 41  20 24 46 42 00 8b 21 6e  |.~!d.LDA $FB..!n|
00001980  a0 43 4d 50 20 23 24 30  45 00 99 21 78 a0 42 43  |.CMP #$0E..!x.BC|
00001990  43 20 44 4d 4c 4f 50 00  a5 21 82 a0 49 4e 43 20  |C DMLOP..!..INC |
000019a0  24 46 43 00 b1 21 8c a0  4c 44 41 20 24 46 43 00  |$FC..!..LDA $FC.|
000019b0  be 21 96 a0 43 4d 50 20  23 24 30 45 00 cd 21 a0  |.!..CMP #$0E..!.|
000019c0  a0 42 43 43 20 a2 44 49  47 49 54 00 da 21 aa a0  |.BCC .DIGIT..!..|
000019d0  4c 44 41 20 59 50 49 42  00 e7 21 b4 a0 42 45 51  |LDA YPIB..!..BEQ|
000019e0  20 51 55 49 54 00 f5 21  be a0 4c 44 41 20 24 34  | QUIT..!..LDA $4|
000019f0  31 30 32 00 03 22 c8 a0  53 54 41 20 24 34 31 30  |102.."..STA $410|
00001a00  31 00 10 22 d2 a0 4c 44  41 20 23 24 31 44 00 1e  |1.."..LDA #$1D..|
00001a10  22 dc a0 53 54 41 20 24  34 31 30 30 00 2f 22 e6  |"..STA $4100./".|
00001a20  a0 4a 53 52 20 53 55 42  54 52 41 43 54 00 3c 22  |.JSR SUBTRACT.<"|
00001a30  f0 a0 51 55 49 54 20 52  54 53 00 4f 22 fa a0 4d  |..QUIT RTS.O"..M|
00001a40  41 51 55 49 54 20 4c 44  58 20 24 46 45 00 57 22  |AQUIT LDX $FE.W"|
00001a50  04 a1 44 45 58 00 5f 22  0e a1 54 58 41 00 6c 22  |..DEX._"..TXA.l"|
00001a60  18 a1 4a 4d 50 20 44 4d  4c 42 00 7f 22 22 a1 4d  |..JMP DMLB.."".M|
00001a70  53 55 50 20 4c 44 41 20  24 34 31 30 30 00 89 22  |SUP LDA $4100.."|
00001a80  2c a1 41 53 4c 20 41 00  93 22 36 a1 41 53 4c 20  |,.ASL A.."6.ASL |
00001a90  41 00 9d 22 40 a1 41 53  4c 20 41 00 a5 22 4a a1  |A.."@.ASL A.."J.|
00001aa0  54 41 58 00 ad 22 54 a1  44 45 58 00 b9 22 5e a1  |TAX.."T.DEX.."^.|
00001ab0  53 54 58 20 24 46 42 00  c7 22 68 a1 4c 44 41 20  |STX $FB.."h.LDA |
00001ac0  24 34 31 30 31 00 d1 22  72 a1 41 53 4c 20 41 00  |$4101.."r.ASL A.|
00001ad0  db 22 7c a1 41 53 4c 20  41 00 e5 22 86 a1 41 53  |."|.ASL A.."..AS|
00001ae0  4c 20 41 00 ed 22 90 a1  54 41 58 00 f5 22 9a a1  |L A.."..TAX.."..|
00001af0  44 45 58 00 01 23 a4 a1  53 54 58 20 24 46 44 00  |DEX..#..STX $FD.|
00001b00  0f 23 ae a1 4c 44 41 20  24 34 31 30 32 00 19 23  |.#..LDA $4102..#|
00001b10  b8 a1 41 53 4c 20 41 00  23 23 c2 a1 41 53 4c 20  |..ASL A.##..ASL |
00001b20  41 00 2d 23 cc a1 41 53  4c 20 41 00 35 23 d6 a1  |A.-#..ASL A.5#..|
00001b30  54 41 58 00 3d 23 e0 a1  44 45 58 00 49 23 ea a1  |TAX.=#..DEX.I#..|
00001b40  53 54 58 20 24 32 32 00  56 23 f4 a1 4c 44 41 20  |STX $22.V#..LDA |
00001b50  23 24 34 30 00 62 23 fe  a1 53 54 41 20 24 46 43  |#$40.b#..STA $FC|
00001b60  00 6e 23 08 a2 53 54 41  20 24 46 45 00 7a 23 12  |.n#..STA $FE.z#.|
00001b70  a2 53 54 41 20 24 32 33  00 82 23 1c a2 52 54 53  |.STA $23..#..RTS|
00001b80  00 95 23 26 a2 45 51 55  41 4c 20 4a 53 52 20 4d  |..#&.EQUAL JSR M|
00001b90  53 55 50 00 a2 23 30 a2  4c 44 59 20 23 24 30 38  |SUP..#0.LDY #$08|
00001ba0  00 b7 23 3a a2 45 4c 4f  50 20 4c 44 41 20 28 24  |..#:.ELOP LDA ($|
00001bb0  46 42 29 2c 59 00 c7 23  44 a2 53 54 41 20 28 24  |FB),Y..#D.STA ($|
00001bc0  32 32 29 2c 59 00 cf 23  4e a2 44 45 59 00 dc 23  |22),Y..#N.DEY..#|
00001bd0  58 a2 42 4e 45 20 45 4c  4f 50 00 e4 23 62 a2 52  |X.BNE ELOP..#b.R|
00001be0  54 53 00 f9 23 6c a2 41  44 44 49 54 49 91 20 4a  |TS..#l.ADDITI. J|
00001bf0  53 52 20 4d 53 55 50 00  06 24 76 a2 4c 44 59 20  |SR MSUP..$v.LDY |
00001c00  23 24 30 38 00 0e 24 80  a2 53 45 44 00 16 24 8a  |#$08..$..SED..$.|
00001c10  a2 43 4c 43 00 2c 24 94  a2 41 44 4c 4f 50 20 4c  |.CLC.,$..ADLOP L|
00001c20  44 41 20 28 24 46 42 29  2c 59 00 3c 24 9e a2 41  |DA ($FB),Y.<$..A|
00001c30  44 43 20 28 24 46 44 29  2c 59 00 4c 24 a8 a2 53  |DC ($FD),Y.L$..S|
00001c40  54 41 20 28 24 32 32 29  2c 59 00 54 24 b2 a2 44  |TA ($22),Y.T$..D|
00001c50  45 59 00 62 24 bc a2 42  4e 45 20 41 44 4c 4f 50  |EY.b$..BNE ADLOP|
00001c60  00 6a 24 c6 a2 43 4c 44  00 72 24 d0 a2 52 54 53  |.j$..CLD.r$..RTS|
00001c70  00 88 24 da a2 53 55 42  54 52 41 43 54 20 4a 53  |..$..SUBTRACT JS|
00001c80  52 20 4d 53 55 50 00 95  24 e4 a2 4c 44 59 20 23  |R MSUP..$..LDY #|
00001c90  24 30 38 00 9d 24 ee a2  53 45 44 00 a5 24 f8 a2  |$08..$..SED..$..|
00001ca0  53 45 43 00 bb 24 02 a3  53 55 4c 4f 50 20 4c 44  |SEC..$..SULOP LD|
00001cb0  41 20 28 24 46 42 29 2c  59 00 cb 24 0c a3 53 42  |A ($FB),Y..$..SB|
00001cc0  43 20 28 24 46 44 29 2c  59 00 db 24 16 a3 53 54  |C ($FD),Y..$..ST|
00001cd0  41 20 28 24 32 32 29 2c  59 00 e3 24 20 a3 44 45  |A ($22),Y..$ .DE|
00001ce0  59 00 f1 24 2a a3 42 4e  45 20 53 55 4c 4f 50 00  |Y..$*.BNE SULOP.|
00001cf0  f9 24 34 a3 43 4c 44 00  01 25 3e a3 52 54 53 00  |.$4.CLD..%>.RTS.|
00001d00  17 25 48 a3 4e 45 47 41  54 49 56 45 20 4c 44 41  |.%H.NEGATIVE LDA|
00001d10  20 23 24 30 30 00 1f 25  52 a3 50 48 41 00 2d 25  | #$00..%R.PHA.-%|
00001d20  5c a3 4c 44 41 20 24 34  31 30 30 00 35 25 66 a3  |\.LDA $4100.5%f.|
00001d30  54 41 59 00 3f 25 70 a3  41 53 4c 20 41 00 49 25  |TAY.?%p.ASL A.I%|
00001d40  7a a3 41 53 4c 20 41 00  53 25 84 a3 41 53 4c 20  |z.ASL A.S%..ASL |
00001d50  41 00 5b 25 8e a3 54 41  58 00 6b 25 98 a3 4c 44  |A.[%..TAX.k%..LD|
00001d60  41 20 24 34 30 30 31 2c  58 00 78 25 a2 a3 43 4d  |A $4001,X.x%..CM|
00001d70  50 20 23 24 35 30 00 8b  25 a7 a3 42 43 43 20 4e  |P #$50..%..BCC N|
00001d80  45 47 52 4d 4f 56 45 41  42 00 93 25 ac a3 50 4c  |EGRMOVEAB..%..PL|
00001d90  41 00 a0 25 b6 a3 41 44  43 20 23 24 30 30 00 a8  |A..%..ADC #$00..|
00001da0  25 c0 a3 50 48 41 00 ba  25 ca a3 4a 4d 50 20 4e  |%..PHA..%..JMP N|
00001db0  45 47 52 4d 4f 56 45 41  00 d3 25 d4 a3 4e 45 47  |EGRMOVEA..%..NEG|
00001dc0  52 4d 4f 56 45 41 42 20  4c 44 41 20 24 34 31 30  |RMOVEAB LDA $410|
00001dd0  31 00 db 25 de a3 54 41  59 00 e5 25 e8 a3 41 53  |1..%..TAY..%..AS|
00001de0  4c 20 41 00 ef 25 f2 a3  41 53 4c 20 41 00 f9 25  |L A..%..ASL A..%|
00001df0  fc a3 41 53 4c 20 41 00  01 26 06 a4 54 41 58 00  |..ASL A..&..TAX.|
00001e00  11 26 10 a4 4c 44 41 20  24 34 30 30 31 2c 58 00  |.&..LDA $4001,X.|
00001e10  1e 26 1a a4 43 4d 50 20  23 24 35 30 00 26 26 24  |.&..CMP #$50.&&$|
00001e20  a4 50 4c 41 00 33 26 2e  a4 42 43 43 20 4e 4f 45  |.PLA.3&..BCC NOE|
00001e30  b0 00 3f 26 38 a4 45 b0  20 23 24 30 31 00 47 26  |..?&8.E. #$01.G&|
00001e40  42 a4 50 48 41 00 59 26  4c a4 42 43 53 20 4e 45  |B.PHA.Y&L.BCS NE|
00001e50  47 52 4d 4f 56 45 42 00  6c 26 56 a4 4e 45 47 52  |GRMOVEB.l&V.NEGR|
00001e60  4d 4f 56 45 42 42 20 50  4c 41 00 7e 26 60 a4 4e  |MOVEBB PLA.~&`.N|
00001e70  4f 45 b0 20 53 54 41 20  59 50 49 42 00 86 26 6a  |OE. STA YPIB..&j|
00001e80  a4 52 54 53 00 9d 26 74  a4 4e 45 47 52 4d 4f 56  |.RTS..&t.NEGRMOV|
00001e90  45 20 4c 44 41 20 24 34  31 30 30 00 a5 26 7e a4  |E LDA $4100..&~.|
00001ea0  50 48 41 00 b3 26 88 a4  4c 44 41 20 24 34 31 30  |PHA..&..LDA $410|
00001eb0  31 00 bb 26 92 a4 50 48  41 00 c9 26 9c a4 4c 44  |1..&..PHA..&..LD|
00001ec0  41 20 24 34 31 30 32 00  d1 26 a6 a4 50 48 41 00  |A $4102..&..PHA.|
00001ed0  d9 26 b0 a4 54 59 41 00  e7 26 ba a4 53 54 41 20  |.&..TYA..&..STA |
00001ee0  24 34 31 30 31 00 f5 26  c4 a4 53 54 41 20 24 34  |$4101..&..STA $4|
00001ef0  31 30 32 00 02 27 ce a4  4c 44 41 20 23 24 31 44  |102..'..LDA #$1D|
00001f00  00 10 27 d8 a4 53 54 41  20 24 34 31 30 30 00 21  |..'..STA $4100.!|
00001f10  27 e2 a4 4a 53 52 20 53  55 42 54 52 41 43 54 00  |'..JSR SUBTRACT.|
00001f20  29 27 ec a4 50 4c 41 00  37 27 f6 a4 53 54 41 20  |)'..PLA.7'..STA |
00001f30  24 34 31 30 32 00 3f 27  00 a5 50 4c 41 00 4d 27  |$4102.?'..PLA.M'|
00001f40  0a a5 53 54 41 20 24 34  31 30 31 00 55 27 14 a5  |..STA $4101.U'..|
00001f50  50 4c 41 00 63 27 1e a5  53 54 41 20 24 34 31 30  |PLA.c'..STA $410|
00001f60  30 00 6b 27 28 a5 52 54  53 00 86 27 32 a5 4e 45  |0.k'(.RTS..'2.NE|
00001f70  47 52 4d 4f 56 45 41 20  4a 53 52 20 4e 45 47 52  |GRMOVEA JSR NEGR|
00001f80  4d 4f 56 45 00 99 27 3c  a5 4a 4d 50 20 4e 45 47  |MOVE..'<.JMP NEG|
00001f90  52 4d 4f 56 45 41 42 00  b4 27 46 a5 4e 45 47 52  |RMOVEAB..'F.NEGR|
00001fa0  4d 4f 56 45 42 20 4a 53  52 20 4e 45 47 52 4d 4f  |MOVEB JSR NEGRMO|
00001fb0  56 45 00 c7 27 50 a5 4a  4d 50 20 4e 45 47 52 4d  |VE..'P.JMP NEGRM|
00001fc0  4f 56 45 42 42 00 de 27  5a a5 4d 55 4c 54 49 50  |OVEBB..'Z.MULTIP|
00001fd0  4c 59 20 4c 44 41 20 24  34 31 30 32 00 e6 27 64  |LY LDA $4102..'d|
00001fe0  a5 50 48 41 00 f4 27 6e  a5 4c 44 41 20 24 34 31  |.PHA..'n.LDA $41|
00001ff0  30 31 00 fc 27 78 a5 50  48 41 00 09 28 82 a5 4c  |01..'x.PHA..(..L|
00002000  44 41 20 23 24 31 38 00  17 28 8c a5 53 54 41 20  |DA #$18..(..STA |
00002010  24 34 31 30 32 00 25 28  96 a5 4a 53 52 20 45 51  |$4102.%(..JSR EQ|
00002020  55 41 4c 00 33 28 a0 a5  49 4e 43 20 24 34 31 30  |UAL.3(..INC $410|
00002030  32 00 3b 28 aa a5 50 4c  41 00 49 28 b4 a5 53 54  |2.;(..PLA.I(..ST|
00002040  41 20 24 34 31 30 30 00  57 28 be a5 4a 53 52 20  |A $4100.W(..JSR |
00002050  45 51 55 41 4c 00 64 28  c8 a5 4c 44 41 20 23 24  |EQUAL.d(..LDA #$|
00002060  31 38 00 72 28 d2 a5 53  54 41 20 24 34 31 30 30  |18.r(..STA $4100|
00002070  00 7f 28 dc a5 4c 44 41  20 23 24 31 39 00 8d 28  |..(..LDA #$19..(|
00002080  e6 a5 53 54 41 20 24 34  31 30 31 00 95 28 f0 a5  |..STA $4101..(..|
00002090  50 4c 41 00 a3 28 fa a5  53 54 41 20 24 34 31 30  |PLA..(..STA $410|
000020a0  32 00 b5 28 04 a6 4a 4d  50 20 4d 55 4c 54 49 50  |2..(..JMP MULTIP|
000020b0  4c 59 42 00 cf 28 50 c3  3b 20 47 52 41 50 48 49  |LYB..(P.; GRAPHI|
000020c0  43 20 50 4f b5 20 50 4c  4f 54 54 45 52 00 e3 28  |C PO. PLOTTER..(|
000020d0  5a c3 50 4c 4f 54 50 43  20 4c 44 41 20 23 24 34  |Z.PLOTPC LDA #$4|
000020e0  37 00 ef 28 64 c3 53 54  41 20 24 46 42 00 fc 28  |7..(d.STA $FB..(|
000020f0  6e c3 4c 44 41 20 23 24  33 46 00 08 29 78 c3 53  |n.LDA #$3F..)x.S|
00002100  54 41 20 24 46 43 00 17  29 82 c3 4c 44 41 20 59  |TA $FC..)..LDA Y|
00002110  50 49 58 45 4c 00 21 29  8c c3 4c 53 52 20 41 00  |PIXEL.!)..LSR A.|
00002120  2b 29 96 c3 4c 53 52 20  41 00 35 29 a0 c3 4c 53  |+)..LSR A.5)..LS|
00002130  52 20 41 00 42 29 aa c3  53 54 41 20 59 50 49 42  |R A.B)..STA YPIB|
00002140  00 4d 29 b4 c3 af 20 23  24 30 33 00 57 29 be c3  |.M)... #$03.W)..|
00002150  41 53 4c 20 41 00 61 29  c8 c3 41 53 4c 20 41 00  |ASL A.a)..ASL A.|
00002160  6b 29 d2 c3 41 53 4c 20  41 00 75 29 dc c3 41 53  |k)..ASL A.u)..AS|
00002170  4c 20 41 00 7f 29 e6 c3  41 53 4c 20 41 00 89 29  |L A..)..ASL A..)|
00002180  f0 c3 41 53 4c 20 41 00  95 29 fa c3 53 54 41 20  |..ASL A..)..STA |
00002190  24 30 32 00 a1 29 04 c4  4c 44 41 20 24 46 42 00  |$02..)..LDA $FB.|
000021a0  a9 29 0e c4 53 45 43 00  b5 29 18 c4 53 42 43 20  |.)..SEC..)..SBC |
000021b0  24 30 32 00 c1 29 22 c4  53 54 41 20 24 46 42 00  |$02..)".STA $FB.|
000021c0  cd 29 2c c4 4c 44 41 20  24 46 43 00 da 29 36 c4  |.),.LDA $FC..)6.|
000021d0  53 42 43 20 23 24 30 30  00 e7 29 3b c4 53 42 43  |SBC #$00..);.SBC|
000021e0  20 59 50 49 42 00 ef 29  40 c4 50 48 41 00 fc 29  | YPIB..)@.PHA..)|
000021f0  4a c4 4c 44 41 20 59 50  49 42 00 06 2a 54 c4 4c  |J.LDA YPIB..*T.L|
00002200  53 52 20 41 00 10 2a 5e  c4 4c 53 52 20 41 00 1c  |SR A..*^.LSR A..|
00002210  2a 68 c4 53 54 41 20 24  30 32 00 24 2a 72 c4 50  |*h.STA $02.$*r.P|
00002220  4c 41 00 2c 2a 7c c4 53  45 43 00 38 2a 86 c4 53  |LA.,*|.SEC.8*..S|
00002230  42 43 20 24 30 32 00 44  2a 90 c4 53 54 41 20 24  |BC $02.D*..STA $|
00002240  46 43 00 53 2a 9a c4 4c  44 41 20 59 50 49 58 45  |FC.S*..LDA YPIXE|
00002250  4c 00 5e 2a a4 c4 af 20  23 24 30 37 00 6b 2a ae  |L.^*... #$07.k*.|
00002260  c4 53 54 41 20 59 50 49  42 00 77 2a b8 c4 4c 44  |.STA YPIB.w*..LD|
00002270  41 20 24 46 42 00 7f 2a  c2 c4 53 45 43 00 8c 2a  |A $FB..*..SEC..*|
00002280  cc c4 53 42 43 20 59 50  49 42 00 94 2a d6 c4 50  |..SBC YPIB..*..P|
00002290  48 41 00 a3 2a e0 c4 4c  44 41 20 58 50 49 58 45  |HA..*..LDA XPIXE|
000022a0  4c 00 ae 2a ea c4 af 20  23 24 46 38 00 bb 2a f4  |L..*... #$F8..*.|
000022b0  c4 53 54 41 20 59 50 49  42 00 c3 2a fe c4 50 4c  |.STA YPIB..*..PL|
000022c0  41 00 cb 2a 08 c5 43 4c  43 00 d8 2a 12 c5 41 44  |A..*..CLC..*..AD|
000022d0  43 20 59 50 49 42 00 e4  2a 1c c5 53 54 41 20 24  |C YPIB..*..STA $|
000022e0  46 42 00 f0 2a 26 c5 4c  44 41 20 24 46 43 00 fd  |FB..*&.LDA $FC..|
000022f0  2a 30 c5 53 42 43 20 23  24 30 30 00 09 2b 3a c5  |*0.SBC #$00..+:.|
00002300  53 54 41 20 24 46 43 00  18 2b 44 c5 4c 44 41 20  |STA $FC..+D.LDA |
00002310  58 50 49 58 45 4c 00 23  2b 4e c5 af 20 23 24 30  |XPIXEL.#+N.. #$0|
00002320  37 00 2b 2b 58 c5 54 41  58 00 38 2b 62 c5 4c 44  |7.++X.TAX.8+b.LD|
00002330  41 20 23 24 38 30 00 4c  2b 6c c5 47 42 49 54 4c  |A #$80.L+l.GBITL|
00002340  50 20 43 50 58 20 23 24  30 30 00 58 2b 76 c5 42  |P CPX #$00.X+v.B|
00002350  45 51 20 50 50 9a 00 62  2b 80 c5 4c 53 52 20 41  |EQ PP..b+..LSR A|
00002360  00 6a 2b 8a c5 44 45 58  00 79 2b 94 c5 4a 4d 50  |.j+..DEX.y+..JMP|
00002370  20 47 42 49 54 4c 50 00  89 2b 9e c5 50 50 9a 20  | GBITLP..+..PP. |
00002380  53 54 41 20 24 46 44 00  91 2b a8 c5 52 54 53 00  |STA $FD..+..RTS.|
00002390  a6 2b b2 c5 50 4c 4f a4  4e 20 4a 53 52 20 50 4c  |.+..PLO.N JSR PL|
000023a0  4f 54 50 43 00 b3 2b bc  c5 4c 44 59 20 23 24 30  |OTPC..+..LDY #$0|
000023b0  30 00 c3 2b c6 c5 4c 44  41 20 28 24 46 42 29 2c  |0..+..LDA ($FB),|
000023c0  59 00 ce 2b d0 c5 b0 41  20 24 46 44 00 de 2b da  |Y..+...A $FD..+.|
000023d0  c5 53 54 41 20 28 24 46  42 29 2c 59 00 e6 2b e4  |.STA ($FB),Y..+.|
000023e0  c5 52 54 53 00 fc 2b ee  c5 50 4c 4f a4 46 46 20  |.RTS..+..PLO.FF |
000023f0  4a 53 52 20 50 4c 4f 54  50 43 00 08 2c f8 c5 4c  |JSR PLOTPC..,..L|
00002400  44 41 20 24 46 44 00 14  2c 02 c6 45 b0 20 23 24  |DA $FD..,..E. #$|
00002410  46 46 00 20 2c 0c c6 53  54 41 20 24 46 44 00 2d  |FF. ,..STA $FD.-|
00002420  2c 16 c6 4c 44 59 20 23  24 30 30 00 3d 2c 20 c6  |,..LDY #$00.=, .|
00002430  4c 44 41 20 28 24 46 42  29 2c 59 00 47 2c 2a c6  |LDA ($FB),Y.G,*.|
00002440  af 20 24 46 44 00 57 2c  34 c6 53 54 41 20 28 24  |. $FD.W,4.STA ($|
00002450  46 42 29 2c 59 00 5f 2c  3e c6 52 54 53 00 73 2c  |FB),Y._,>.RTS.s,|
00002460  48 c6 50 4c 4f 54 20 4c  44 41 20 43 4f 4c 4f 55  |H.PLOT LDA COLOU|
00002470  52 00 7e 2c 52 c6 af 20  23 24 30 32 00 8b 2c 5c  |R.~,R.. #$02..,\|
00002480  c6 42 4e 45 20 50 50 41  91 00 9a 2c 66 c6 4a 53  |.BNE PPA...,f.JS|
00002490  52 20 50 4c 4f a4 46 46  00 a9 2c 70 c6 4a 4d 50  |R PLO.FF..,p.JMP|
000024a0  20 50 50 41 43 4e 54 00  bc 2c 7a c6 50 50 41 91  | PPACNT..,z.PPA.|
000024b0  20 4a 53 52 20 50 4c 4f  a4 4e 00 d2 2c 84 c6 50  | JSR PLO.N..,..P|
000024c0  50 41 43 4e 54 20 49 4e  43 20 58 50 49 58 45 4c  |PACNT INC XPIXEL|
000024d0  00 e1 2c 8e c6 4c 44 41  20 43 4f 4c 4f 55 52 00  |..,..LDA COLOUR.|
000024e0  ec 2c 98 c6 af 20 23 24  30 31 00 f9 2c a2 c6 42  |.,... #$01..,..B|
000024f0  4e 45 20 50 50 42 91 00  08 2d ac c6 4a 53 52 20  |NE PPB...-..JSR |
00002500  50 4c 4f a4 46 46 00 17  2d b6 c6 4a 4d 50 20 50  |PLO.FF..-..JMP P|
00002510  50 42 43 4e 54 00 2a 2d  c0 c6 50 50 42 91 20 4a  |PBCNT.*-..PPB. J|
00002520  53 52 20 50 4c 4f a4 4e  00 40 2d ca c6 50 50 42  |SR PLO.N.@-..PPB|
00002530  43 4e 54 20 49 4e 43 20  58 50 49 58 45 4c 00 48  |CNT INC XPIXEL.H|
00002540  2d d4 c6 52 54 53 00 00  00                       |-..RTS...|
00002549