;MANDLEPLOT";SOURCE CODE0;22/10/956(;Bd��$0E00SnXPIXEL�$4103dxYPIXEL�$4104u�COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B��HOUR�$410C��XPIB�$410D��XPBIB�$410E"	,
;                      SPRITE DATA(	1
;P	6
TXT 224,000,000,176,000,000,152,000x	@
TXT 000,140,000,000,134,000,000,131�	J
TXT 000,000,129,128,000,128,192,000�	T
TXT 128,064,000,147,192,000,185,000�	^
TXT 000,233,000,000,009,128,000,012
h
TXT 128,000,004,128,000,004,128,000@
r
TXT 007,128,000,000,000,000,000,000h
|
TXT 000,000,000,000,000,000,000,153n
�
;�
�
TXT 000,000,000,064,000,000,096,000�
�
TXT 000,112,000,000,120,000,000,124�
�
TXT 000,000,126,000,000,127,000,000�
TXT 127,128,000,108,000,000,070,0006�
TXT 000,006,000,000,006,000,000,003^�
TXT 000,000,003,000,000,003,000,000��
TXT 000,000,000,000,000,000,000,000��
TXT 000,000,000,000,000,000,000,153��
;��
TXT 255,192,000,129,064,000,128,064�
TXT 000,129,064,000,066,128,000,064,�
TXT 128,000,051,000,000,012,000,000T�
TXT 055,000,000,065,128,000,066,128|�
TXT 000,129,064,000,130,192,000,133�TXT 064,000,255,192,000,000,000,000�TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,197�!;"
&TXT 255,192,000,255,192,000,255,192J
0TXT 000,255,192,000,127,128,000,127r
:TXT 128,000,063,000,000,012,000,000�
DTXT 063,000,000,127,128,000,127,128�
NTXT 000,255,192,000,255,192,000,255�
XTXT 192,000,255,192,000,000,000,000bTXT 000,000,000,000,000,000,000,000:lTXT 000,000,000,000,000,000,000,197@q;hvTXT 168,000,000,000,000,000,128,000��TXT 000,000,000,000,128,000,000,000��TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,0000�TXT 000,000,000,000,000,000,000,000X�TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,197��;��TXT 000,000,021,000,000,000,000,000��TXT 001,000,000,000,000,000,001,000��TXT 000,000,000,000,000,000,000,000&�TXT 000,000,000,000,000,000,000,000N�TXT 000,000,000,000,000,000,000,000v�TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000�;�TXT 000,000,000,000,000,000,000,000 TXT 000,000,000,000,000,000,000,000D*TXT 000,000,000,000,000,000,000,000l4TXT 000,000,000,000,000,000,000,000�>TXT 000,000,000,000,000,000,000,000�HTXT 000,000,000,000,000,000,000,000�RTXT 128,000,000,000,000,000,128,000\TXT 000,000,000,000,168,000,000,000a;:fTXT 000,000,000,000,000,000,000,000bpTXT 000,000,000,000,000,000,000,000�zTXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000*�TXT 000,000,001,000,000,000,000,000R�TXT 001,000,000,000,000,000,021,000X�;{';           MAIN �ROL ROUTINES�'JSR INIT�$'JSR HIRES��.'�ROLOP LDA CLICK�8'BNE �ROLOP�B'�LOPB LDA CLICK�L'BEQ �LOPB�V'LDA XP�`'CMP #$58j'BCC ��t'JMP BOX~'�� JMP �ROLOP?�'; THERE IS A LOT M�E � COME!e�.;                   WIMP ROUTINESx�.; WIMP - MOUSE��.IRQ LDA #$00�/STA CLICK�/LDA $C5�/CMP #$01�&/BNE C�CHECK�0/STA CLICK�:/C�CHECK CMP #$0C�D/BEQ LEFTKN/LKC CMP #$17X/BEQ RIGHTK"b/RKC CMP #$32.l/BEQ UPK@v/UPKC CMP #$37N�/BEQ DOWNK`�/DKC LDA $DC00k�/� #$01w�/BEQ UPJ��/UJC LDA $DC00��/� #$02��/BEQ DOWNJ��/DJC LDA $DC00��/� #$04��/BEQ LEFTJ��/LJC LDA $DC00��/� #$08�0BEQ RIGHTJ0RJC LDA $DC000� #$10" 0E� #$10/*0BEQ CJCH=40STA CLICKS>0CJCH JMP BOXFLASHfH0LEFTK JSR LEFTrR0JMP 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 RIGHTH�0JMP RJCX�0LEFT DEC XPc�0LDA XPp�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 XPj1LDA XPt1BNE �00~1LDY #$01'�1STY XPB7�1�00 LDY XPBC�1BEQ FINP�1CMP #$58\�1BNE FINg�1DEC XPt�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 �ROLF2; WIMP � PO�ER/P2�ROL LDA HOUR?Z2BEQ NHGLASSL�3LDX #$3AZ�3STX $07F8b�3INXp�3STX $07F9��3NHGLASS LDA XP��3STA $D000��3STA $D002��3LDA YP��3STA $D001��3STA $D003��3LDA $D010�4� #$FC�4LSR A�4CLC�&4ADC XPB04ASL A:4CLCD4ADC XPB)N4STA $D0106X4LDA #$00Db4STA $D027Ql4LDA #$01_v4STA $D028m�4LDA $D015y�4�A #$03��4STA $D015��4LDA HOUR��4BNE QTRO��4LDX #$38��4STX $07F8��4INX��4STX $07F9��4QTRO RTS��4; STARTUP ROUTINES�4INIT LDA #$00�4STA $D020$5STA $D021/5STA XP<5STA HOURJ 5STA $D015W*5LDA #$01c45STA XPBp>5LDA #$80{H5STA YP�R5HIRES� LDA #$3B�\5STA $D011�f5LDA #$D8�p5STA $D016�z5LDA #$00��5STA $FB��5TAY��5LDA #$04��5STA $FC��5LDA #$7E�5FLOP STA ($FB),Y�5INY,�5BEQ FLOPINC9�5CPY #$F8F�5BNE FLOPR�5LDX $FC_�5CPX #$07l�5BNE FLOPy6JSR LEFT�6SEI�6LDA #�IRQ�$6STA $0314�.6LDA #�IRQ�86STA $0315�B6CLI�L6LDA #$D8�V6STA $FC�`6LDA #$02�j6LDY #$00
t6FLOPB STA ($FB),Y~6INY �6BNE FLOPB,�6INC $FC8�6LDX $FCE�6CPX #$DCS�6BNE FLOPB`�6LDA #$18n�6STA $D018v4:RTS�>:FLOPINC INC $FC�H:JMP FLOP�R:HIRESOFF SEI�\:LDA #$31�f:STA $0314�p:LDA #$EA�z:STA $0315��:CLI��:LDA #$00
�:STA $D015�:LDA #$9B�:STA $D011)�:LDA #$C87�:STA $D016?�:RTSc0u;          M�LEBROT SET PLOTTERu:uM�LE LDA #$00�DuSTA YPIXEL�NuLDA #$03�XuSTA $4100�buLDA #$06�luSTA $4102�vuJSR EQUAL��uMMAINL LDA #$00��uSTA XPIXEL��uLDA #$01�uSTA $4100�uLDA #$05!�uSTA $4102/�uJSR EQUALD�uMMAINLB LDA #$05R�uSTA $4100_�uLDA #$07m�uSTA $4102{�uJSR EQUAL��uINC $4100�vINC $4102�vJSR EQUAL�vLDA #$00� vSTA COLOUR�*vLOOP LDA #$07�4vSTA $4100�>vSTA $4101�HvLDA #$10
 RvSTA $4102 \vJSR MULTIPLY( fvLDA #$086 pvSTA $4100D zvSTA $4101Q �vLDA #$11_ �vSTA $4102p �vJSR MULTIPLY} �vLDX #$10� �vSTX $4100� �vINX� �vSTX $4101� �vINX� �vSTX $4102� �vJSR ADDITI�� �vLDA $4091� �vCMP #$04� �vBCC FAIL� wCMP #$50	!wBCS FAIL!!wSUCPASS JMP SUCCESS5!$wFAIL INC COLOURD!)wLDA COLOURS!.wCMP MAXCOLc!8wBEQ SUCPASSt!BwJSR SUBTRACT�!LwLDA #$12�!VwSTA $4100�!`wLDA #$05�!jwSTA $4101�!twLDA #$13�!~wSTA $4102�!�wJSR ADDITI��!�wLDA #$07�!�wSTA $4100�!�wLDA #$08"�wSTA $4101"�wINC $4102*"�wJSR MULTIPLY7"�wLDA #$14E"�wSTA $4100R"�wLDA #$1C`"�wSTA $4101m"�wLDA #$15{"xSTA $4102�"
xJSR MULTIPLY�"xLDA #$15�"xSTA $4100�"(xLDA #$06�"2xSTA $4101�"<xLDA #$16�"FxSTA $4102�"PxJSR ADDITI��"ZxLDA #$13#dxSTA $4100#nxLDA #$07##xxSTA $41021#�xJSR EQUAL>#�xLDA #$16L#�xSTA $4100Y#�xLDA #$08g#�xSTA $4102u#�xJSR EQUAL�#�xJMP LOOP�#�xSUCCESS JSR PLOT�#�xLDA #$05�#�xSTA $4100�#�xSTA $4102�#�xLDA #$02�#�xSTA $4101�#yJSR ADDITI��#yLDA XPIXEL	$yBNE XRELOP$"yLDA #$06$$,ySTA $41002$6ySTA $4102?$@yLDA #$04M$JySTA $4101]$TyJSR ADDITI�l$^yINC YPIXEL{$hyLDA YPIXEL�$ryCMP #$C8�$|yBNE YRELOP�$�yRTS�$�yXRELOP JMP MMAINLB�$�yYRELOP JMP MMAINL�$@�;             ARITHMETIC ROUTINES
%J��DIGIT CLD%T�ASL A%^�ASL A%h�ASL A+%r�STA $023%|�TXA=%��LSR AI%��STA $24V%��LDA #$07^%��SECj%��SBC $24r%��CLC~%œADC $02�%̜TAY�%֜LDA $4000,Y�%�TAY�%�TXA�%� #$01�%��BEQ LSNGD�%�TYA�%�� #$F0�%�LSR A�%&�LSR A�%0�LSR A�%:�LSR A&D�RTS&N�LSNGD TYA&X�� #$0F#&b�RTS>&l�MULTIPLYB JSR NEGATIVEL&q�LDA $4102V&v�ASL A`&��ASL Aj&��ASL Ar&��TAX&��LDA #$00�&��TAY�&��MLOPA STA $4000,X�&��INY�&ƝINX�&НCPY #$08�&ڝBNE MLOPA�&�LDA #$06�&�STA $FC�&���DIGIT LDA $4101'�LDX $FC'�JSR �DIGIT'�CMP #$00-' �BEQ DMOVER9'*�STA $FDF'4�LDA #$06R'>�STA $FBf'H�DMLOP LDA $4100r'R�LDX $FB�'\�JSR �DIGIT�'f�DMLB CMP #$00�'p�BEQ DMOVER�'z�STA $FE�'��LDA $FB�'��CLC�'��ADC $FC�'��SEC�'��SBC #$0C�'��LDX $FD�'��TAY(ʞ� #$01(ԞBEQ MSKIP(ޞTXA"(�ASL A,(�ASL A6(��ASL A@(�ASL AH(�TAXV(�MSKIP TYA`($�LSR Al(.�STA $02y(8�LDA #$07�(B�SEC�(L�SBC $02�(V�STA $02�(`�LDA $4102�(j�ASL A�(t�ASL A�(~�ASL A�(��ADC $02�(��TAY�(��STX $24�(��LDX $02�(��SED	)��LDA $4000,Y)ğCLC)ΟADC $24-)؟STA $4000,Y:)�MALP CLDI)�BCC MAQUITQ)��DEYY)�DEXf)
�CPX #$FFu)�BEQ MAQUIT})�SED�)(�LDA $4000,Y�)2�CLC�)<�ADC #$01�)F�STA $4000,Y�)P�JMP MALP�)Z�DMOVER INC $FB�)d�LDA $FB�)n�CMP #$0E�)x�BCC DMLOP*��INC $FC*��LDA $FC*��CMP #$0E-*��BCC �DIGIT:*��LDA YPIBG*��BEQ QUITU*��LDA $4102c*ȠSTA $4101p*ҠLDA #$1D~*ܠSTA $4100�*�JSR SUBTRACT�*�QUIT RTS�*��MAQUIT LDX $FE�*�DEX�*�TXA�*�JMP DMLB�*"�MSUP LDA $4100�*,�ASL A�*6�ASL A�*@�ASL A+J�TAX
+T�DEX+^�STX $FB'+h�LDA $41011+r�ASL A;+|�ASL AE+��ASL AM+��TAXU+��DEXa+��STX $FDo+��LDA $4102y+��ASL A�+¡ASL A�+̡ASL A�+֡TAX�+�DEX�+�STX $22�+�LDA #$40�+��STA $FC�+�STA $FE�+�STA $23�+�RTS�+&�EQUAL JSR MSUP,0�LDY #$08,:�ELOP LDA ($FB),Y',D�STA ($22),Y/,N�DEY<,X�BNE ELOPD,b�RTSY,l�ADDITI� JSR MSUPf,v�LDY #$08n,��SEDv,��CLC�,��ADLOP LDA ($FB),Y�,��ADC ($FD),Y�,��STA ($22),Y�,��DEY�,��BNE ADLOP�,ƢCLD�,ТRTS�,ڢSUBTRACT JSR MSUP�,�LDY #$08�,�SED-��SEC-�SULOP LDA ($FB),Y+-�SBC ($FD),Y;-�STA ($22),YC- �DEYQ-*�BNE SULOPY-4�CLDa->�RTSw-H�NEGATIVE LDA #$00-R�PHA�-\�LDA $4100�-f�TAY�-p�ASL A�-z�ASL A�-��ASL A�-��TAX�-��LDA $4001,X�-��CMP #$50�-��BCC NEGRMOVEAB�-��PLA.��ADC #$00.��PHA.ʣJMP NEGRMOVEA3.ԣNEGRMOVEAB LDA $4101;.ޣTAYE.�ASL AO.�ASL AY.��ASL Aa.�TAXq.�LDA $4001,X~.�CMP #$50�.$�PLA�..�BCC NOE��.8�E� #$01�.B�PHA�.L�BCS NEGRMOVEB�.V�NEGRMOVEBB PLA�.`�NOE� STA YPIB�.j�RTS�.t�NEGRMOVE LDA $4100/~�PHA/��LDA $4101/��PHA)/��LDA $41021/��PHA9/��TYAG/��STA $4101U/ĤSTA $4102b/ΤLDA #$1Dp/ؤSTA $4100�/�JSR SUBTRACT�/�PLA�/��STA $4102�/�PLA�/
�STA $4101�/�PLA�/�STA $4100�/(�RTS�/2�NEGRMOVEA JSR NEGRMOVE�/<�JMP NEGRMOVEAB0F�NEGRMOVEB JSR NEGRMOVE'0P�JMP NEGRMOVEBB>0Z�MULTIPLY LDA $4102F0d�PHAT0n�LDA $4101\0x�PHAi0��LDA #$18w0��STA $4102�0��JSR EQUAL�0��INC $4102�0��PLA�0��STA $4100�0��JSR EQUAL�0ȥLDA #$18�0ҥSTA $4100�0ܥLDA #$19�0�STA $4101�0�PLA1��STA $41021�JMP MULTIPLYB91P�;           GRAPHIC PO� PLOTTERM1Z�PLOTPC LDA #$47Y1d�STA $FBf1n�LDA #$3Fr1x�STA $FC�1��LDA YPIXEL�1��LSR A�1��LSR A�1��LSR A�1��STA YPIB�1�ï #$03�1��ASL A�1��ASL A�1��ASL A�1��ASL A�1��ASL A�1��ASL A�1��STA $022�LDA $FB2�SEC2�SBC $02+2"�STA $FB72,�LDA $FCD26�SBC #$00Q2;�SBC YPIBY2@�PHAf2J�LDA YPIBp2T�LSR Az2^�LSR A�2h�STA $02�2r�PLA�2|�SEC�2��SBC $02�2��STA $FC�2��LDA YPIXEL�2�į #$07�2��STA YPIB�2��LDA $FB�2��SEC�2��SBC YPIB�2��PHA
3��LDA XPIXEL3�į #$F8%3��STA YPIB-3��PLA53�CLCB3�ADC YPIBN3�STA $FBZ3&�LDA $FCg30�SBC #$00s3:�STA $FC�3D�LDA XPIXEL�3Nů #$07�3X�TAX�3b�LDA #$80�3l�GBITLP CPX #$00�3v�BEQ PP��3��LSR A�3��DEX�3��JMP GBITLP�3��PP� STA $FD�3��RTS4��PLO�N JSR PLOTPC4��LDY #$00-4��LDA ($FB),Y84�ŰA $FDH4��STA ($FB),YP4��RTSf4��PLO�FF JSR PLOTPCr4��LDA $FD~4�E� #$FF�4�STA $FD�4�LDY #$00�4 �LDA ($FB),Y�4*Ư $FD�44�STA ($FB),Y�4>�RTS�4H�PLOT LDA COLOUR�4RƯ #$02�4\�BNE PPA�5f�JSR PLO�FF5p�JMP PPACNT&5z�PPA� JSR PLO�N<5��PPACNT INC XPIXELK5��LDA COLOURV5�Ư #$01c5��BNE PPB�r5��JSR PLO�FF�5��JMP PPBCNT�5��PPB� JSR PLO�N�5��PPBCNT INC XPIXEL�5��RTS�5`�;                   ZOOM ROUTINES�5j�BOX LDA XP�5t�STA XPIB�5~�LDA YP6��STA YPIB6��LDA XPB&6��STA XPBIB36��LDX #$3CA6��STX $07FCI6��INXW6��STX $07FD_6��INXm6��STX $07FEu6��INX�6��STX $07FF�6��LDA $D015�6�A #$F0�6
�STA $D015�6�BOX� LDA CLICK�6�BNE BOX��6x�BOXLOOP LDA XPBIB�6��CMP XPB�6��BEQ CHECKFINE7��BCS LESSTHAN 7��JMP M�ETHAN77��CHECKFINE LDA XPIBB7��CMP XPS7��BCS LESSTHANh7��M�ETHAN LDA XPIBv7��STA $D008�7��STA $D00C�7��LDX #$00�7��LDA XPBIB�7��BEQ NOXPBADD�7�LDX #$50�7�NOXPBADD LDA $D010�7� #$AF�7"�STX $02�7,�CLC�76�ADC $02
8@�STA $D0108E�LDX #$00%8J�LDA XP-8T�SEC:8^�SBC #$18H8h�STA $D00AV8r�STA $D00Ed8|�BCC MTSUBp8��LDX XPB~8��BEQ MTSUB�8��LDX #$A0�8��MTSUB LDA $D010�8�� #$5F�8��STX $02�8��CLC�8��ADC $02�8��STA $D010�8��JMP BOX��8��LESSTHAN LDA XP9��LDX XPB9��BNE �OUT9�CMP #$58,9�BCS �OUT99�LDA #$58L9&�OUT STA $D008Z90�STA $D00Cg9:�CPX #$00w9D�BEQ LTNOADD�9N�LDX #$50�9X�LTNOADD LDA $D010�9b� #$AF�9l�STX $02�9v�CLC�9��ADC $02�9��STA $D010�9��LDX #$00�9��LDA XPIB�9��SEC:��SBC #$18:��STA $D00A:��STA $D00E,:��BCC LTSUB::��LDX XPBIBH:��BEQ LTSUBU:��LDX #$A0i:��LTSUB LDA $D010t:�� #$5F�:�STX $02�:�CLC�:�ADC $02�: �STA $D010�:*�BOX� LDA YP�:4�CMP YPIB�:>�BCC LESSY�:H�LDA YPIB�:R�STA $D009�:\�STA $D00B
;f�LDA YP	;p�SEC;z�SBC #$15$;��STA $D00D2;��STA $D00FA;��JMP BOX�IIR;��LESSY LDA YP`;��STA $D009n;��STA $D00B{;��LDA YPIB�;��SEC�;��SBC #$15�;��STA $D00D�;��STA $D00F�;��BOX�II LDA CLICK�;��BNE BOX��;�JMP BOXLOOP�;�BOX� JMP �ROLOP<0�BOXFLASH LDA $A2<:� #$3C<D�LSR A&<N�LSR A.<X�TAX@<b�LDA BOXCOLS,XN<l�STA $D02B\<v�STA $D02Cj<��STA $D02Dx<��STA $D02E�<��JMP $EA31�<��BOXCOLS TXT 0,9,2,8,10,7,13,1�<��TXT 1,13,3,5,14,4,6,0

QHJ@;mandleplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$0e00@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@.H.@xpib.$410d@.H.@xpbib.$410e@"I,A;                      sprite data@(I1A;@pI6Atxt 224,000,000,176,000,000,152,000@XI@Atxt 000,140,000,000,134,000,000,131@.IjAtxt 000,000,129,128,000,128,192,000@.ItAtxt 128,064,000,147,192,000,185,000@.I.Atxt 000,233,000,000,009,128,000,012@XJHAtxt 128,000,004,128,000,004,128,000@@JRAtxt 007,128,000,000,000,000,000,000@HJ.Atxt 000,000,000,000,000,000,000,153@NJ.A;@.J.Atxt 000,000,000,064,000,000,096,000@.J.Atxt 000,112,000,000,120,000,000,124@.J.Atxt 000,000,126,000,000,127,000,000@NK.Atxt 127,128,000,108,000,000,070,000@6K.Atxt 000,006,000,000,006,000,000,003@.K.Atxt 000,000,003,000,000,003,000,000@.K.Atxt 000,000,000,000,000,000,000,000@.K.Atxt 000,000,000,000,000,000,000,153@.K.A;@.K.Atxt 255,192,000,129,064,000,128,064@DL.Atxt 000,129,064,000,066,128,000,064@,L.Atxt 128,000,051,000,000,012,000,000@tL.Atxt 055,000,000,065,128,000,066,128@.L.Atxt 000,129,064,000,130,192,000,133@.LHBtxt 064,000,255,192,000,000,000,000@.LRBtxt 000,000,000,000,000,000,000,000@.L£Btxt 000,000,000,000,000,000,000,197@.L!B;@"M&Btxt 255,192,000,255,192,000,255,192@jM0Btxt 000,255,192,000,127,128,000,127@RM:Btxt 128,000,063,000,000,012,000,000@.MdBtxt 063,000,000,127,128,000,127,128@.MnBtxt 000,255,192,000,255,192,000,255@.MxBtxt 192,000,255,192,000,000,000,000@RNBBtxt 000,000,000,000,000,000,000,000@:NLBtxt 000,000,000,000,000,000,000,197@@NQB;@HNVBtxt 168,000,000,000,000,000,128,000@.N.Btxt 000,000,000,000,128,000,000,000@.N.Btxt 000,000,000,000,000,000,000,000@.N.Btxt 000,000,000,000,000,000,000,000@HO.Btxt 000,000,000,000,000,000,000,000@0O.Btxt 000,000,000,000,000,000,000,000@xO.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,197@.O.B;@.O.Btxt 000,000,021,000,000,000,000,000@.O.Btxt 001,000,000,000,000,000,001,000@.O.Btxt 000,000,000,000,000,000,000,000@&P.Btxt 000,000,000,000,000,000,000,000@nP.Btxt 000,000,000,000,000,000,000,000@VP.Btxt 000,000,000,000,000,000,000,000@.PBCtxt 000,000,000,000,000,000,000,000@.PLCtxt 000,000,000,000,000,000,000,000@.PQC;@.PVCtxt 000,000,000,000,000,000,000,000@£Q Ctxt 000,000,000,000,000,000,000,000@dQ*Ctxt 000,000,000,000,000,000,000,000@LQ4Ctxt 000,000,000,000,000,000,000,000@.Q>Ctxt 000,000,000,000,000,000,000,000@.QhCtxt 000,000,000,000,000,000,000,000@.QrCtxt 128,000,000,000,000,000,128,000@LR£Ctxt 000,000,000,000,168,000,000,000@RRAC;@:RFCtxt 000,000,000,000,000,000,000,000@BRPCtxt 000,000,000,000,000,000,000,000@.RZCtxt 000,000,000,000,000,000,000,000@.R.Ctxt 000,000,000,000,000,000,000,000@.R.Ctxt 000,000,000,000,000,000,000,000@BS.Ctxt 000,000,000,000,000,000,000,000@*S.Ctxt 000,000,001,000,000,000,000,000@rS.Ctxt 001,000,000,000,000,000,021,000@xS.C;@.SP';           main .rol routines@.SZ'jsr init@.S$'jsr hires.@.S.'.rolop lda click@.S8'bne .rolop@.Sb'.lopb lda click@.Sl'beq .lopb@.Sv'lda xp@.S.'cmp #$58@@TJ'bcc ..@LTT'jmp box@.T.'.. jmp .rolop@?T.'; there is a lot m.e . come!@ET..;                   wimp routines@XT..; wimp - mouse@.T..irq lda #$00@.TH/sta click@.TR/lda $c5@.T£/cmp #$01@.T&/bne c.check@.T0/sta click@.T:/c.check cmp #$0c@.Td/beq leftk@BUn/lkc cmp #$17@QUx/beq rightk@"UB/rkc cmp #$32@.UL/beq upk@@UV/upkc cmp #$37@nU./beq downk@.U./dkc lda $dc00@KU./. #$01@WU./beq upj@.U./ujc lda $dc00@.U./. #$02@.U./beq downj@.U./djc lda $dc00@.U./. #$04@.U./beq leftj@.U./ljc lda $dc00@.U./. #$08@.UB0beq rightj@KVL0rjc lda $dc00@VVV0. #$10@"V 0e. #$10@/V*0beq cjch@=V40sta click@sV>0cjch jmp boxflash@FVh0leftk jsr left@RVr0jmp lkc@.V£0rightk jsr right@.VF0jmp rkc@.VP0upk jsr up@.VZ0jmp upkc@.V.0downk jsr down@.V.0jmp dkc@.V.0upj jsr up@.V.0jmp ujc@.V.0downj jsr down@HW.0jmp djc@[W.0leftj jsr left@'W.0jmp ljc@<W.0rightj jsr right@hW.0jmp rjc@xW.0left dec xp@CW.0lda xp@PW.0cmp #$ff@.WF1bne .ff@.WP1ldy #$00@.WZ1sty xpb@.W$1.ff ldy xpb@.W.1bne fin@.W81cmp #$18@.Wb1bne fin@.Wl1inc xp@.Wv1fin jmp .rol@.W.1right inc xp@BXJ1lda xp@NXT1bne .00@[X.1ldy #$01@'X.1sty xpb@7X.1.00 ldy xpb@cX.1beq fin@pX.1cmp #$58@£X.1bne fin@GX.1dec xp@TX.1jmp .rol@.X.1up dec yp@.X.1lda yp@.X.1cmp #$32@.X.1bne fin@.X.1inc yp@.X@2jmp .rol@.XJ2down inc yp@.XT2lda yp@.X.2cmp #$f8@.X(2bne fin@.X22dec yp@JY<2jmp .rol@]Yf2; wimp . po.er@/Yp2.rol lda hour@?Yz2beq nhglass@lY.3ldx #$3a@zY.3stx $07f8@BY.3inx@PY.3stx $07f9@.Y.3nhglass lda xp@.Y.3sta $d000@.Y.3sta $d002@.Y.3lda yp@.Y.3sta $d001@.Y.3sta $d003@.Y.3lda $d010@.YH4. #$fc@.YR4lsr a@.Y£4clc@.Y&4adc xpb@GZ04asl a@OZ:4clc@[Zd4adc xpb@)Zn4sta $d010@6Zx4lda #$00@dZB4sta $d027@qZL4lda #$01@.ZV4sta $d028@MZ.4lda $d015@YZ.4.a #$03@.Z.4sta $d015@.Z.4lda hour@.Z.4bne qtro@.Z.4ldx #$38@.Z.4stx $07f8@.Z.4inx@.Z.4stx $07f9@.Z.4qtro rts@.Z.4; startup routines@H[.4init lda #$00@V[.4sta $d020@$[B5sta $d021@/[L5sta xp@<[V5sta hour@j[ 5sta $d015@w[*5lda #$01@C[45sta xpb@P[>5lda #$80@.[h5sta yp@.[r5hires. lda #$3b@.[£5sta $d011@.[F5lda #$d8@.[P5sta $d016@.[Z5lda #$00@.[.5sta $fb@.[.5tay@.[.5lda #$04@.[.5sta $fc@.[.5lda #$7e@T£.5flop sta ($fb),y@££.5iny@,£.5beq flopinc@9£.5cpy #$f8@f£.5bne flop@r£.5ldx $fc@.£.5cpx #$07@L£.5bne flop@Y£F6jsr left@.£P6sei@.£Z6lda #.irq@.£$6sta $0314@.£.6lda #.irq@.£86sta $0315@.£b6cli@.£l6lda #$d8@.£v6sta $fc@.£.6lda #$02@.£J6ldy #$00@J]T6flopb sta ($fb),y@R].6iny@ ].6bne flopb@,].6inc $fc@8].6ldx $fc@e].6cpx #$dc@s].6bne flopb@.].6lda #$18@N].6sta $d018@V]4:rts@.]>:flopinc inc $fc@.]h:jmp flop@.]r:hiresoff sei@.]£:lda #$31@.]F:sta $0314@.]P:lda #$ea@.]Z:sta $0315@.].:cli@.].:lda #$00@A..:sta $d015@N..:lda #$9b@£..:sta $d011@)..:lda #$c8@7..:sta $d016@?..:rts@C.0U;          m.lebrot set plotter@U.:Um.le lda #$00@..dUsta ypixel@..nUlda #$03@..xUsta $4100@..BUlda #$06@..LUsta $4102@..VUjsr equal@...Ummainl lda #$00@...Usta xpixel@...Ulda #$01@F..Usta $4100@S..Ulda #$05@!..Usta $4102@/..Ujsr equal@d..Ummainlb lda #$05@r..Usta $4100@...Ulda #$07@M..Usta $4102@...Ujsr equal@...Uinc $4100@..BVinc $4102@..LVjsr equal@..VVlda #$00@.. Vsta colour@..*Vloop lda #$07@..4Vsta $4100@..>Vsta $4101@..hVlda #$10@J rVsta $4102@[ £Vjsr multiply@( FVlda #$08@6 PVsta $4100@d ZVsta $4101@q .Vlda #$11@. .Vsta $4102@P .Vjsr multiply@. .Vldx #$10@. .Vstx $4100@. .Vinx@. .Vstx $4101@. .Vinx@. .Vstx $4102@. .Vjsr additi.@. .Vlda $4091@. .Vcmp #$04@. .Vbcc fail@. FWcmp #$50@I!PWbcs fail@!!ZWsucpass jmp success@5!$Wfail inc colour@d!)Wlda colour@s!.Wcmp maxcol@C!8Wbeq sucpass@T!bWjsr subtract@.!lWlda #$12@.!vWsta $4100@.!.Wlda #$05@.!JWsta $4101@.!TWlda #$13@.!.Wsta $4102@.!.Wjsr additi.@.!.Wlda #$07@.!.Wsta $4100@.!.Wlda #$08@K".Wsta $4101@Y".Winc $4102@*".Wjsr multiply@7".Wlda #$14@e".Wsta $4100@r".Wlda #$1c@.".Wsta $4101@M".Wlda #$15@."@Xsta $4102@."JXjsr multiply@."TXlda #$15@.".Xsta $4100@."(Xlda #$06@."2Xsta $4101@."<Xlda #$16@."fXsta $4102@."pXjsr additi.@."zXlda #$13@H#DXsta $4100@U#NXlda #$07@##XXsta $4102@1#.Xjsr equal@>#.Xlda #$16@l#.Xsta $4100@y#.Xlda #$08@G#.Xsta $4102@U#.Xjsr equal@.#.Xjmp loop@.#.Xsuccess jsr plot@.#.Xlda #$05@.#.Xsta $4100@.#.Xsta $4102@.#.Xlda #$02@.#.Xsta $4101@.#DYjsr additi.@.#NYlda xpixel@I$XYbne xrelop@V$"Ylda #$06@$$,Ysta $4100@2$6Ysta $4102@?$@Ylda #$04@m$jYsta $4101@]$tYjsr additi.@L$.Yinc ypixel@.$HYlda ypixel@.$RYcmp #$c8@.$.Ybne yrelop@.$.Yrts@.$.Yxrelop jmp mmainlb@.$.Yyrelop jmp mmainl@.$@.;             arithmetic routines@A%j..digit cld@K%t.asl a@U%..asl a@.%H.asl a@+%R.sta $02@3%..txa@=%..lsr a@i%..sta $24@v%..lda #$07@.%..sec@J%..sbc $24@R%..clc@.%..adc $02@.%..tay@.%..lda $4000,y@.%..tay@.%..txa@.%... #$01@.%..beq lsngd@.%H.tya@.%R.. #$f0@.%£.lsr a@.%&.lsr a@.%0.lsr a@.%:.lsr a@B&d.rts@P&n.lsngd tya@[&x.. #$0f@#&B.rts@>&L.multiplyb jsr negative@l&Q.lda $4102@v&V.asl a@.&..asl a@J&..asl a@R&..tax@.&..lda #$00@.&..tay@.&..mlopa sta $4000,x@.&..iny@.&..inx@.&..cpy #$08@.&..bne mlopa@.&..lda #$06@.&..sta $fc@.&...digit lda $4101@B'B.ldx $fc@Q'L.jsr .digit@.'V.cmp #$00@-' .beq dmover@9'*.sta $fd@f'4.lda #$06@r'>.sta $fb@F'h.dmlop lda $4100@R'r.ldx $fb@.'£.jsr .digit@.'F.dmlb cmp #$00@.'P.beq dmover@.'Z.sta $fe@.'..lda $fb@.'..clc@.'..adc $fc@.'..sec@.'..sbc #$0c@.'..ldx $fd@.'..tay@B(... #$01@P(..beq mskip@X(..txa@"(..asl a@,(..asl a@6(..asl a@@(F.asl a@h(P.tax@v(Z.mskip tya@.($.lsr a@L(..sta $02@Y(8.lda #$07@.(b.sec@.(l.sbc $02@.(v.sta $02@.(..lda $4102@.(J.asl a@.(T.asl a@.(..asl a@.(..adc $02@.(..tay@.(..stx $24@.(..ldx $02@.(..sed@I)..lda $4000,y@Q)..clc@])..adc $24@-)..sta $4000,y@:)..malp cld@i)..bcc maquit@q)..dey@y)@.dex@F)J.cpx #$ff@U)T.beq maquit@.)..sed@.)(.lda $4000,y@.)2.clc@.)<.adc #$01@.)f.sta $4000,y@.)p.jmp malp@.)z.dmover inc $fb@.)D.lda $fb@.)N.cmp #$0e@.)X.bcc dmlop@E*..inc $fc@Q*..lda $fc@.*..cmp #$0e@-*..bcc .digit@:*..lda ypib@g*..beq quit@u*..lda $4102@C*..sta $4101@P*..lda #$1d@.*..sta $4100@.*..jsr subtract@.*..quit rts@.*..maquit ldx $fe@.*D.dex@.*N.txa@.*X.jmp dmlb@.*".msup lda $4100@.*,.asl a@.*6.asl a@.*@.asl a@E+j.tax@M+t.dex@Y+..stx $fb@'+H.lda $4101@1+R.asl a@;+..asl a@e+..asl a@m+..tax@u+..dex@A+..stx $fd@O+..lda $4102@Y+..asl a@.+..asl a@.+..asl a@.+..tax@.+..dex@.+..stx $22@.+..lda #$40@.+..sta $fc@.+H.sta $fe@.+R.sta $23@.+£.rts@.+&.equal jsr msup@B,0.ldy #$08@W,:.elop lda ($fb),y@',d.sta ($22),y@/,n.dey@<,x.bne elop@d,B.rts@y,L.additi. jsr msup@F,V.ldy #$08@N,..sed@V,..clc@.,..adlop lda ($fb),y@.,..adc ($fd),y@.,..sta ($22),y@.,..dey@.,..bne adlop@.,..cld@.,..rts@.,..subtract jsr msup@.,..ldy #$08@.,..sed@E-..sec@[-B.sulop lda ($fb),y@+-L.sbc ($fd),y@;-V.sta ($22),y@c- .dey@q-*.bne sulop@y-4.cld@A->.rts@W-h.negative lda #$00@.-r.pha@.-£.lda $4100@.-F.tay@.-P.asl a@.-Z.asl a@.-..asl a@.-..tax@.-..lda $4001,x@.-..cmp #$50@.-..bcc negrmoveab@.-..pla@@...adc #$00@H...pha@Z...jmp negrmovea@3...negrmoveab lda $4101@;...tay@e...asl a@o...asl a@y...asl a@A.F.tax@Q.P.lda $4001,x@..Z.cmp #$50@..$.pla@....bcc noe.@..8.e. #$01@..b.pha@..l.bcs negrmoveb@..v.negrmovebb pla@....noe. sta ypib@..J.rts@..T.negrmove lda $4100@E/..pha@S/..lda $4101@[/..pha@)/..lda $4102@1/..pha@9/..tya@g/..sta $4101@u/..sta $4102@B/..lda #$1d@P/..sta $4100@./..jsr subtract@./..pla@./..sta $4102@./@.pla@./J.sta $4101@./T.pla@./..sta $4100@./(.rts@./2.negrmovea jsr negrmove@./<.jmp negrmoveab@T0f.negrmoveb jsr negrmove@'0p.jmp negrmovebb@>0z.multiply lda $4102@f0D.pha@t0N.lda $4101@£0X.pha@I0..lda #$18@W0..sta $4102@.0..jsr equal@.0..inc $4102@.0..pla@.0..sta $4100@.0..jsr equal@.0..lda #$18@.0..sta $4100@.0..lda #$19@.0..sta $4101@.0..pla@C1..sta $4102@U1D.jmp multiplyb@91p.;           graphic po. plotter@m1z.plotpc lda #$47@y1D.sta $fb@F1N.lda #$3f@R1X.sta $fc@.1..lda ypixel@.1..lsr a@.1..lsr a@.1..lsr a@.1..sta ypib@.1... #$03@.1..asl a@.1..asl a@.1..asl a@.1..asl a@.1..asl a@.1..asl a@.1..sta $02@K2D.lda $fb@S2N.sec@.2X.sbc $02@+2".sta $fb@72,.lda $fc@d26.sbc #$00@q2;.sbc ypib@y2@.pha@F2j.lda ypib@P2t.lsr a@Z2..lsr a@.2H.sta $02@.2R.pla@.2..sec@.2..sbc $02@.2..sta $fc@.2..lda ypixel@.2... #$07@.2..sta ypib@.2..lda $fb@.2..sec@.2..sbc ypib@.2..pha@M3..lda xpixel@X3... #$f8@%3..sta ypib@-3..pla@53H.clc@b3R.adc ypib@n3£.sta $fb@z3&.lda $fc@G30.sbc #$00@S3:.sta $fc@.3d.lda xpixel@.3n.. #$07@.3x.tax@.3B.lda #$80@.3L.gbitlp cpx #$00@.3V.beq pp.@.3..lsr a@.3..dex@.3..jmp gbitlp@.3..pp. sta $fd@.3..rts@P4..plo.n jsr plotpc@]4..ldy #$00@-4..lda ($fb),y@84...a $fd@h4..sta ($fb),y@p4..rts@F4..plo.ff jsr plotpc@R4..lda $fd@.4B.e. #$ff@.4L.sta $fd@.4V.ldy #$00@.4 .lda ($fb),y@.4*.. $fd@.44.sta ($fb),y@.4>.rts@.4h.plot lda colour@.4r.. #$02@.4£.bne ppa.@D5F.jsr plo.ff@S5P.jmp ppacnt@&5Z.ppa. jsr plo.n@<5..ppacnt inc xpixel@k5..lda colour@v5... #$01@C5..bne ppb.@R5..jsr plo.ff@.5..jmp ppbcnt@.5..ppb. jsr plo.n@.5..ppbcnt inc xpixel@.5..rts@.5..;                   zoom routines@.5J.box lda xp@.5T.sta xpib@.5..lda yp@L6..sta ypib@X6..lda xpb@&6..sta xpbib@36..ldx #$3c@a6..stx $07fc@i6..inx@w6..stx $07fd@.6..inx@M6..stx $07fe@U6..inx@.6..stx $07ff@.6..lda $d015@.6@..a #$f0@.6J.sta $d015@.6T.box. lda click@.6..bne box.@.6X.boxloop lda xpbib@.6..cmp xpb@.6..beq checkfine@P7..bcs lessthan@ 7..jmp m.ethan@77..checkfine lda xpib@b7..cmp xp@s7..bcs lessthan@H7..m.ethan lda xpib@V7..sta $d008@.7..sta $d00c@.7..ldx #$00@.7..lda xpbib@.7..beq noxpbadd@.7D.ldx #$50@.7N.noxpbadd lda $d010@.7X.. #$af@.7".stx $02@.7,.clc@.76.adc $02@M8@.sta $d010@Z8e.ldx #$00@%8j.lda xp@-8t.sec@:8..sbc #$18@h8H.sta $d00a@v8R.sta $d00e@D8..bcc mtsub@P8..ldx xpb@.8..beq mtsub@.8..ldx #$a0@.8..mtsub lda $d010@.8... #$5f@.8..stx $02@.8..clc@.8..adc $02@.8..sta $d010@.8..jmp box.@.8..lessthan lda xp@E9..ldx xpb@R9..bne .out@.9H.cmp #$58@,9R.bcs .out@99£.lda #$58@l9&..out sta $d008@z90.sta $d00c@G9:.cpx #$00@W9d.beq ltnoadd@.9n.ldx #$50@.9x.ltnoadd lda $d010@.9B.. #$af@.9L.stx $02@.9V.clc@.9..adc $02@.9..sta $d010@.9..ldx #$00@.9..lda xpib@.9..sec@B:..sbc #$18@P:..sta $d00a@.:..sta $d00e@,:..bcc ltsub@::..ldx xpbib@h:..beq ltsub@u:..ldx #$a0@I:..ltsub lda $d010@T:... #$5f@.:B.stx $02@.:L.clc@.:V.adc $02@.: .sta $d010@.:*.box. lda yp@.:4.cmp ypib@.:>.bcc lessy@.:h.lda ypib@.:r.sta $d009@.:£.sta $d00b@A;F.lda yp@I;P.sec@V;Z.sbc #$15@$;..sta $d00d@2;..sta $d00f@a;..jmp box.ii@r;..lessy lda yp@.;..sta $d009@N;..sta $d00b@.;..lda ypib@.;..sec@.;..sbc #$15@.;..sta $d00d@.;..sta $d00f@.;..box.ii lda click@.;..bne box.@.;F.jmp boxloop@.;P.box. jmp .rolop@G<0.boxflash lda $a2@R<:.. #$3c@£<d.lsr a@&<n.lsr a@.<x.tax@@<B.lda boxcols,x@n<L.sta $d02b@£<V.sta $d02c@J<..sta $d02d@X<..sta $d02e@.<..jmp $ea31@.<..boxcols txt 0,9,2,8,10,7,13,1@.<..txt 1,13,3,5,14,4,6,0@@@

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 30 45 30 30  |.(.;.B.d...$0E00|
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 eb 08 d2 00 58  |HOUR.$410C.....X|
000000e0  50 49 42 b2 24 34 31 30  44 00 fb 08 dc 00 58 50  |PIB.$410D.....XP|
000000f0  42 49 42 b2 24 34 31 30  45 00 22 09 2c 01 3b 20  |BIB.$410E.".,.; |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110  20 20 20 20 20 53 50 52  49 54 45 20 44 41 54 41  |     SPRITE DATA|
00000120  00 28 09 31 01 3b 00 50  09 36 01 54 58 54 20 32  |.(.1.;.P.6.TXT 2|
00000130  32 34 2c 30 30 30 2c 30  30 30 2c 31 37 36 2c 30  |24,000,000,176,0|
00000140  30 30 2c 30 30 30 2c 31  35 32 2c 30 30 30 00 78  |00,000,152,000.x|
00000150  09 40 01 54 58 54 20 30  30 30 2c 31 34 30 2c 30  |.@.TXT 000,140,0|
00000160  30 30 2c 30 30 30 2c 31  33 34 2c 30 30 30 2c 30  |00,000,134,000,0|
00000170  30 30 2c 31 33 31 00 a0  09 4a 01 54 58 54 20 30  |00,131...J.TXT 0|
00000180  30 30 2c 30 30 30 2c 31  32 39 2c 31 32 38 2c 30  |00,000,129,128,0|
00000190  30 30 2c 31 32 38 2c 31  39 32 2c 30 30 30 00 c8  |00,128,192,000..|
000001a0  09 54 01 54 58 54 20 31  32 38 2c 30 36 34 2c 30  |.T.TXT 128,064,0|
000001b0  30 30 2c 31 34 37 2c 31  39 32 2c 30 30 30 2c 31  |00,147,192,000,1|
000001c0  38 35 2c 30 30 30 00 f0  09 5e 01 54 58 54 20 30  |85,000...^.TXT 0|
000001d0  30 30 2c 32 33 33 2c 30  30 30 2c 30 30 30 2c 30  |00,233,000,000,0|
000001e0  30 39 2c 31 32 38 2c 30  30 30 2c 30 31 32 00 18  |09,128,000,012..|
000001f0  0a 68 01 54 58 54 20 31  32 38 2c 30 30 30 2c 30  |.h.TXT 128,000,0|
00000200  30 34 2c 31 32 38 2c 30  30 30 2c 30 30 34 2c 31  |04,128,000,004,1|
00000210  32 38 2c 30 30 30 00 40  0a 72 01 54 58 54 20 30  |28,000.@.r.TXT 0|
00000220  30 37 2c 31 32 38 2c 30  30 30 2c 30 30 30 2c 30  |07,128,000,000,0|
00000230  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 68  |00,000,000,000.h|
00000240  0a 7c 01 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |.|.TXT 000,000,0|
00000250  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000260  30 30 2c 31 35 33 00 6e  0a 81 01 3b 00 96 0a 86  |00,153.n...;....|
00000270  01 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000280  2c 30 36 34 2c 30 30 30  2c 30 30 30 2c 30 39 36  |,064,000,000,096|
00000290  2c 30 30 30 00 be 0a 90  01 54 58 54 20 30 30 30  |,000.....TXT 000|
000002a0  2c 31 31 32 2c 30 30 30  2c 30 30 30 2c 31 32 30  |,112,000,000,120|
000002b0  2c 30 30 30 2c 30 30 30  2c 31 32 34 00 e6 0a 9a  |,000,000,124....|
000002c0  01 54 58 54 20 30 30 30  2c 30 30 30 2c 31 32 36  |.TXT 000,000,126|
000002d0  2c 30 30 30 2c 30 30 30  2c 31 32 37 2c 30 30 30  |,000,000,127,000|
000002e0  2c 30 30 30 00 0e 0b a4  01 54 58 54 20 31 32 37  |,000.....TXT 127|
000002f0  2c 31 32 38 2c 30 30 30  2c 31 30 38 2c 30 30 30  |,128,000,108,000|
00000300  2c 30 30 30 2c 30 37 30  2c 30 30 30 00 36 0b ae  |,000,070,000.6..|
00000310  01 54 58 54 20 30 30 30  2c 30 30 36 2c 30 30 30  |.TXT 000,006,000|
00000320  2c 30 30 30 2c 30 30 36  2c 30 30 30 2c 30 30 30  |,000,006,000,000|
00000330  2c 30 30 33 00 5e 0b b8  01 54 58 54 20 30 30 30  |,003.^...TXT 000|
00000340  2c 30 30 30 2c 30 30 33  2c 30 30 30 2c 30 30 30  |,000,003,000,000|
00000350  2c 30 30 33 2c 30 30 30  2c 30 30 30 00 86 0b c2  |,003,000,000....|
00000360  01 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000370  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000380  2c 30 30 30 00 ae 0b cc  01 54 58 54 20 30 30 30  |,000.....TXT 000|
00000390  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000003a0  2c 30 30 30 2c 30 30 30  2c 31 35 33 00 b4 0b d1  |,000,000,153....|
000003b0  01 3b 00 dc 0b d6 01 54  58 54 20 32 35 35 2c 31  |.;.....TXT 255,1|
000003c0  39 32 2c 30 30 30 2c 31  32 39 2c 30 36 34 2c 30  |92,000,129,064,0|
000003d0  30 30 2c 31 32 38 2c 30  36 34 00 04 0c e0 01 54  |00,128,064.....T|
000003e0  58 54 20 30 30 30 2c 31  32 39 2c 30 36 34 2c 30  |XT 000,129,064,0|
000003f0  30 30 2c 30 36 36 2c 31  32 38 2c 30 30 30 2c 30  |00,066,128,000,0|
00000400  36 34 00 2c 0c ea 01 54  58 54 20 31 32 38 2c 30  |64.,...TXT 128,0|
00000410  30 30 2c 30 35 31 2c 30  30 30 2c 30 30 30 2c 30  |00,051,000,000,0|
00000420  31 32 2c 30 30 30 2c 30  30 30 00 54 0c f4 01 54  |12,000,000.T...T|
00000430  58 54 20 30 35 35 2c 30  30 30 2c 30 30 30 2c 30  |XT 055,000,000,0|
00000440  36 35 2c 31 32 38 2c 30  30 30 2c 30 36 36 2c 31  |65,128,000,066,1|
00000450  32 38 00 7c 0c fe 01 54  58 54 20 30 30 30 2c 31  |28.|...TXT 000,1|
00000460  32 39 2c 30 36 34 2c 30  30 30 2c 31 33 30 2c 31  |29,064,000,130,1|
00000470  39 32 2c 30 30 30 2c 31  33 33 00 a4 0c 08 02 54  |92,000,133.....T|
00000480  58 54 20 30 36 34 2c 30  30 30 2c 32 35 35 2c 31  |XT 064,000,255,1|
00000490  39 32 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |92,000,000,000,0|
000004a0  30 30 00 cc 0c 12 02 54  58 54 20 30 30 30 2c 30  |00.....TXT 000,0|
000004b0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000004c0  30 30 2c 30 30 30 2c 30  30 30 00 f4 0c 1c 02 54  |00,000,000.....T|
000004d0  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
000004e0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 31  |00,000,000,000,1|
000004f0  39 37 00 fa 0c 21 02 3b  00 22 0d 26 02 54 58 54  |97...!.;.".&.TXT|
00000500  20 32 35 35 2c 31 39 32  2c 30 30 30 2c 32 35 35  | 255,192,000,255|
00000510  2c 31 39 32 2c 30 30 30  2c 32 35 35 2c 31 39 32  |,192,000,255,192|
00000520  00 4a 0d 30 02 54 58 54  20 30 30 30 2c 32 35 35  |.J.0.TXT 000,255|
00000530  2c 31 39 32 2c 30 30 30  2c 31 32 37 2c 31 32 38  |,192,000,127,128|
00000540  2c 30 30 30 2c 31 32 37  00 72 0d 3a 02 54 58 54  |,000,127.r.:.TXT|
00000550  20 31 32 38 2c 30 30 30  2c 30 36 33 2c 30 30 30  | 128,000,063,000|
00000560  2c 30 30 30 2c 30 31 32  2c 30 30 30 2c 30 30 30  |,000,012,000,000|
00000570  00 9a 0d 44 02 54 58 54  20 30 36 33 2c 30 30 30  |...D.TXT 063,000|
00000580  2c 30 30 30 2c 31 32 37  2c 31 32 38 2c 30 30 30  |,000,127,128,000|
00000590  2c 31 32 37 2c 31 32 38  00 c2 0d 4e 02 54 58 54  |,127,128...N.TXT|
000005a0  20 30 30 30 2c 32 35 35  2c 31 39 32 2c 30 30 30  | 000,255,192,000|
000005b0  2c 32 35 35 2c 31 39 32  2c 30 30 30 2c 32 35 35  |,255,192,000,255|
000005c0  00 ea 0d 58 02 54 58 54  20 31 39 32 2c 30 30 30  |...X.TXT 192,000|
000005d0  2c 32 35 35 2c 31 39 32  2c 30 30 30 2c 30 30 30  |,255,192,000,000|
000005e0  2c 30 30 30 2c 30 30 30  00 12 0e 62 02 54 58 54  |,000,000...b.TXT|
000005f0  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000600  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000610  00 3a 0e 6c 02 54 58 54  20 30 30 30 2c 30 30 30  |.:.l.TXT 000,000|
00000620  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000630  2c 30 30 30 2c 31 39 37  00 40 0e 71 02 3b 00 68  |,000,197.@.q.;.h|
00000640  0e 76 02 54 58 54 20 31  36 38 2c 30 30 30 2c 30  |.v.TXT 168,000,0|
00000650  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 31  |00,000,000,000,1|
00000660  32 38 2c 30 30 30 00 90  0e 80 02 54 58 54 20 30  |28,000.....TXT 0|
00000670  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 31  |00,000,000,000,1|
00000680  32 38 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 b8  |28,000,000,000..|
00000690  0e 8a 02 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
000006a0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000006b0  30 30 2c 30 30 30 00 e0  0e 94 02 54 58 54 20 30  |00,000.....TXT 0|
000006c0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000006d0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 08  |00,000,000,000..|
000006e0  0f 9e 02 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
000006f0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000700  30 30 2c 30 30 30 00 30  0f a8 02 54 58 54 20 30  |00,000.0...TXT 0|
00000710  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000720  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 58  |00,000,000,000.X|
00000730  0f b2 02 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
00000740  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000750  30 30 2c 30 30 30 00 80  0f bc 02 54 58 54 20 30  |00,000.....TXT 0|
00000760  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000770  30 30 2c 30 30 30 2c 30  30 30 2c 31 39 37 00 86  |00,000,000,197..|
00000780  0f c1 02 3b 00 ae 0f c6  02 54 58 54 20 30 30 30  |...;.....TXT 000|
00000790  2c 30 30 30 2c 30 32 31  2c 30 30 30 2c 30 30 30  |,000,021,000,000|
000007a0  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 d6 0f d0  |,000,000,000....|
000007b0  02 54 58 54 20 30 30 31  2c 30 30 30 2c 30 30 30  |.TXT 001,000,000|
000007c0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 31  |,000,000,000,001|
000007d0  2c 30 30 30 00 fe 0f da  02 54 58 54 20 30 30 30  |,000.....TXT 000|
000007e0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000007f0  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 26 10 e4  |,000,000,000.&..|
00000800  02 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000810  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000820  2c 30 30 30 00 4e 10 ee  02 54 58 54 20 30 30 30  |,000.N...TXT 000|
00000830  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000840  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 76 10 f8  |,000,000,000.v..|
00000850  02 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000860  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000870  2c 30 30 30 00 9e 10 02  03 54 58 54 20 30 30 30  |,000.....TXT 000|
00000880  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000890  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 c6 10 0c  |,000,000,000....|
000008a0  03 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
000008b0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000008c0  2c 30 30 30 00 cc 10 11  03 3b 00 f4 10 16 03 54  |,000.....;.....T|
000008d0  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
000008e0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000008f0  30 30 00 1c 11 20 03 54  58 54 20 30 30 30 2c 30  |00... .TXT 000,0|
00000900  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000910  30 30 2c 30 30 30 2c 30  30 30 00 44 11 2a 03 54  |00,000,000.D.*.T|
00000920  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000930  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000940  30 30 00 6c 11 34 03 54  58 54 20 30 30 30 2c 30  |00.l.4.TXT 000,0|
00000950  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000960  30 30 2c 30 30 30 2c 30  30 30 00 94 11 3e 03 54  |00,000,000...>.T|
00000970  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000980  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000990  30 30 00 bc 11 48 03 54  58 54 20 30 30 30 2c 30  |00...H.TXT 000,0|
000009a0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000009b0  30 30 2c 30 30 30 2c 30  30 30 00 e4 11 52 03 54  |00,000,000...R.T|
000009c0  58 54 20 31 32 38 2c 30  30 30 2c 30 30 30 2c 30  |XT 128,000,000,0|
000009d0  30 30 2c 30 30 30 2c 30  30 30 2c 31 32 38 2c 30  |00,000,000,128,0|
000009e0  30 30 00 0c 12 5c 03 54  58 54 20 30 30 30 2c 30  |00...\.TXT 000,0|
000009f0  30 30 2c 30 30 30 2c 30  30 30 2c 31 36 38 2c 30  |00,000,000,168,0|
00000a00  30 30 2c 30 30 30 2c 30  30 30 00 12 12 61 03 3b  |00,000,000...a.;|
00000a10  00 3a 12 66 03 54 58 54  20 30 30 30 2c 30 30 30  |.:.f.TXT 000,000|
00000a20  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000a30  2c 30 30 30 2c 30 30 30  00 62 12 70 03 54 58 54  |,000,000.b.p.TXT|
00000a40  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000a50  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000a60  00 8a 12 7a 03 54 58 54  20 30 30 30 2c 30 30 30  |...z.TXT 000,000|
00000a70  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000a80  2c 30 30 30 2c 30 30 30  00 b2 12 84 03 54 58 54  |,000,000.....TXT|
00000a90  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000aa0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000ab0  00 da 12 8e 03 54 58 54  20 30 30 30 2c 30 30 30  |.....TXT 000,000|
00000ac0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000ad0  2c 30 30 30 2c 30 30 30  00 02 13 98 03 54 58 54  |,000,000.....TXT|
00000ae0  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000af0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000b00  00 2a 13 a2 03 54 58 54  20 30 30 30 2c 30 30 30  |.*...TXT 000,000|
00000b10  2c 30 30 31 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,001,000,000,000|
00000b20  2c 30 30 30 2c 30 30 30  00 52 13 ac 03 54 58 54  |,000,000.R...TXT|
00000b30  20 30 30 31 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 001,000,000,000|
00000b40  2c 30 30 30 2c 30 30 30  2c 30 32 31 2c 30 30 30  |,000,000,021,000|
00000b50  00 58 13 b1 03 3b 00 7b  13 10 27 3b 20 20 20 20  |.X...;.{..';    |
00000b60  20 20 20 20 20 20 20 4d  41 49 4e 20 9a 52 4f 4c  |       MAIN .ROL|
00000b70  20 52 4f 55 54 49 4e 45  53 00 88 13 1a 27 4a 53  | ROUTINES....'JS|
00000b80  52 20 49 4e 49 54 00 97  13 24 27 4a 53 52 20 48  |R INIT...$'JSR H|
00000b90  49 52 45 53 91 00 ac 13  2e 27 9a 52 4f 4c 4f 50  |IRES.....'.ROLOP|
00000ba0  20 4c 44 41 20 43 4c 49  43 4b 00 bb 13 38 27 42  | LDA CLICK...8'B|
00000bb0  4e 45 20 9a 52 4f 4c 4f  50 00 cf 13 42 27 9a 4c  |NE .ROLOP...B'.L|
00000bc0  4f 50 42 20 4c 44 41 20  43 4c 49 43 4b 00 dd 13  |OPB LDA CLICK...|
00000bd0  4c 27 42 45 51 20 9a 4c  4f 50 42 00 e8 13 56 27  |L'BEQ .LOPB...V'|
00000be0  4c 44 41 20 58 50 00 f5  13 60 27 43 4d 50 20 23  |LDA XP...`'CMP #|
00000bf0  24 35 38 00 00 14 6a 27  42 43 43 20 9a 9a 00 0c  |$58...j'BCC ....|
00000c00  14 74 27 4a 4d 50 20 42  4f 58 00 1e 14 7e 27 9a  |.t'JMP BOX...~'.|
00000c10  9a 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 3f 14 88  |. JMP .ROLOP.?..|
00000c20  27 3b 20 54 48 45 52 45  20 49 53 20 41 20 4c 4f  |'; THERE IS A LO|
00000c30  54 20 4d b0 45 20 a4 20  43 4f 4d 45 21 00 65 14  |T M.E . COME!.e.|
00000c40  e0 2e 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
00000c50  20 20 20 20 20 20 57 49  4d 50 20 52 4f 55 54 49  |      WIMP ROUTI|
00000c60  4e 45 53 00 78 14 f4 2e  3b 20 57 49 4d 50 20 2d  |NES.x...; WIMP -|
00000c70  20 4d 4f 55 53 45 00 89  14 fe 2e 49 52 51 20 4c  | MOUSE.....IRQ L|
00000c80  44 41 20 23 24 30 30 00  97 14 08 2f 53 54 41 20  |DA #$00..../STA |
00000c90  43 4c 49 43 4b 00 a3 14  12 2f 4c 44 41 20 24 43  |CLICK..../LDA $C|
00000ca0  35 00 b0 14 1c 2f 43 4d  50 20 23 24 30 31 00 c0  |5..../CMP #$01..|
00000cb0  14 26 2f 42 4e 45 20 43  91 43 48 45 43 4b 00 ce  |.&/BNE C.CHECK..|
00000cc0  14 30 2f 53 54 41 20 43  4c 49 43 4b 00 e3 14 3a  |.0/STA CLICK...:|
00000cd0  2f 43 91 43 48 45 43 4b  20 43 4d 50 20 23 24 30  |/C.CHECK CMP #$0|
00000ce0  43 00 f1 14 44 2f 42 45  51 20 4c 45 46 54 4b 00  |C...D/BEQ LEFTK.|
00000cf0  02 15 4e 2f 4c 4b 43 20  43 4d 50 20 23 24 31 37  |..N/LKC CMP #$17|
00000d00  00 11 15 58 2f 42 45 51  20 52 49 47 48 54 4b 00  |...X/BEQ RIGHTK.|
00000d10  22 15 62 2f 52 4b 43 20  43 4d 50 20 23 24 33 32  |".b/RKC CMP #$32|
00000d20  00 2e 15 6c 2f 42 45 51  20 55 50 4b 00 40 15 76  |...l/BEQ UPK.@.v|
00000d30  2f 55 50 4b 43 20 43 4d  50 20 23 24 33 37 00 4e  |/UPKC CMP #$37.N|
00000d40  15 80 2f 42 45 51 20 44  4f 57 4e 4b 00 60 15 8a  |../BEQ DOWNK.`..|
00000d50  2f 44 4b 43 20 4c 44 41  20 24 44 43 30 30 00 6b  |/DKC LDA $DC00.k|
00000d60  15 9e 2f af 20 23 24 30  31 00 77 15 a8 2f 42 45  |../. #$01.w../BE|
00000d70  51 20 55 50 4a 00 89 15  b2 2f 55 4a 43 20 4c 44  |Q UPJ..../UJC LD|
00000d80  41 20 24 44 43 30 30 00  94 15 bc 2f af 20 23 24  |A $DC00..../. #$|
00000d90  30 32 00 a2 15 c6 2f 42  45 51 20 44 4f 57 4e 4a  |02..../BEQ DOWNJ|
00000da0  00 b4 15 d0 2f 44 4a 43  20 4c 44 41 20 24 44 43  |..../DJC LDA $DC|
00000db0  30 30 00 bf 15 da 2f af  20 23 24 30 34 00 cd 15  |00..../. #$04...|
00000dc0  e4 2f 42 45 51 20 4c 45  46 54 4a 00 df 15 ee 2f  |./BEQ LEFTJ..../|
00000dd0  4c 4a 43 20 4c 44 41 20  24 44 43 30 30 00 ea 15  |LJC LDA $DC00...|
00000de0  f8 2f af 20 23 24 30 38  00 f9 15 02 30 42 45 51  |./. #$08....0BEQ|
00000df0  20 52 49 47 48 54 4a 00  0b 16 0c 30 52 4a 43 20  | RIGHTJ....0RJC |
00000e00  4c 44 41 20 24 44 43 30  30 00 16 16 16 30 af 20  |LDA $DC00....0. |
00000e10  23 24 31 30 00 22 16 20  30 45 b0 20 23 24 31 30  |#$10.". 0E. #$10|
00000e20  00 2f 16 2a 30 42 45 51  20 43 4a 43 48 00 3d 16  |./.*0BEQ CJCH.=.|
00000e30  34 30 53 54 41 20 43 4c  49 43 4b 00 53 16 3e 30  |40STA CLICK.S.>0|
00000e40  43 4a 43 48 20 4a 4d 50  20 42 4f 58 46 4c 41 53  |CJCH JMP BOXFLAS|
00000e50  48 00 66 16 48 30 4c 45  46 54 4b 20 4a 53 52 20  |H.f.H0LEFTK JSR |
00000e60  4c 45 46 54 00 72 16 52  30 4a 4d 50 20 4c 4b 43  |LEFT.r.R0JMP LKC|
00000e70  00 87 16 5c 30 52 49 47  48 54 4b 20 4a 53 52 20  |...\0RIGHTK JSR |
00000e80  52 49 47 48 54 00 93 16  66 30 4a 4d 50 20 52 4b  |RIGHT...f0JMP RK|
00000e90  43 00 a2 16 70 30 55 50  4b 20 4a 53 52 20 55 50  |C...p0UPK JSR UP|
00000ea0  00 af 16 7a 30 4a 4d 50  20 55 50 4b 43 00 c2 16  |...z0JMP UPKC...|
00000eb0  84 30 44 4f 57 4e 4b 20  4a 53 52 20 44 4f 57 4e  |.0DOWNK JSR DOWN|
00000ec0  00 ce 16 8e 30 4a 4d 50  20 44 4b 43 00 dd 16 98  |....0JMP DKC....|
00000ed0  30 55 50 4a 20 4a 53 52  20 55 50 00 e9 16 a2 30  |0UPJ JSR UP....0|
00000ee0  4a 4d 50 20 55 4a 43 00  fc 16 ac 30 44 4f 57 4e  |JMP UJC....0DOWN|
00000ef0  4a 20 4a 53 52 20 44 4f  57 4e 00 08 17 b6 30 4a  |J JSR DOWN....0J|
00000f00  4d 50 20 44 4a 43 00 1b  17 c0 30 4c 45 46 54 4a  |MP DJC....0LEFTJ|
00000f10  20 4a 53 52 20 4c 45 46  54 00 27 17 ca 30 4a 4d  | JSR LEFT.'..0JM|
00000f20  50 20 4c 4a 43 00 3c 17  d4 30 52 49 47 48 54 4a  |P LJC.<..0RIGHTJ|
00000f30  20 4a 53 52 20 52 49 47  48 54 00 48 17 de 30 4a  | JSR RIGHT.H..0J|
00000f40  4d 50 20 52 4a 43 00 58  17 e8 30 4c 45 46 54 20  |MP RJC.X..0LEFT |
00000f50  44 45 43 20 58 50 00 63  17 f2 30 4c 44 41 20 58  |DEC XP.c..0LDA X|
00000f60  50 00 70 17 fc 30 43 4d  50 20 23 24 46 46 00 7c  |P.p..0CMP #$FF.||
00000f70  17 06 31 42 4e 45 20 a8  46 46 00 89 17 10 31 4c  |..1BNE .FF....1L|
00000f80  44 59 20 23 24 30 30 00  95 17 1a 31 53 54 59 20  |DY #$00....1STY |
00000f90  58 50 42 00 a5 17 24 31  a8 46 46 20 4c 44 59 20  |XPB...$1.FF LDY |
00000fa0  58 50 42 00 b1 17 2e 31  42 4e 45 20 46 49 4e 00  |XPB....1BNE FIN.|
00000fb0  be 17 38 31 43 4d 50 20  23 24 31 38 00 ca 17 42  |..81CMP #$18...B|
00000fc0  31 42 4e 45 20 46 49 4e  00 d5 17 4c 31 49 4e 43  |1BNE FIN...L1INC|
00000fd0  20 58 50 00 e6 17 56 31  46 49 4e 20 4a 4d 50 20  | XP...V1FIN JMP |
00000fe0  9a 52 4f 4c 00 f7 17 60  31 52 49 47 48 54 20 49  |.ROL...`1RIGHT I|
00000ff0  4e 43 20 58 50 00 02 18  6a 31 4c 44 41 20 58 50  |NC XP...j1LDA XP|
00001000  00 0e 18 74 31 42 4e 45  20 a8 30 30 00 1b 18 7e  |...t1BNE .00...~|
00001010  31 4c 44 59 20 23 24 30  31 00 27 18 88 31 53 54  |1LDY #$01.'..1ST|
00001020  59 20 58 50 42 00 37 18  92 31 a8 30 30 20 4c 44  |Y XPB.7..1.00 LD|
00001030  59 20 58 50 42 00 43 18  9c 31 42 45 51 20 46 49  |Y XPB.C..1BEQ FI|
00001040  4e 00 50 18 a6 31 43 4d  50 20 23 24 35 38 00 5c  |N.P..1CMP #$58.\|
00001050  18 b0 31 42 4e 45 20 46  49 4e 00 67 18 ba 31 44  |..1BNE FIN.g..1D|
00001060  45 43 20 58 50 00 74 18  c4 31 4a 4d 50 20 9a 52  |EC XP.t..1JMP .R|
00001070  4f 4c 00 82 18 ce 31 55  50 20 44 45 43 20 59 50  |OL....1UP DEC YP|
00001080  00 8d 18 d8 31 4c 44 41  20 59 50 00 9a 18 e2 31  |....1LDA YP....1|
00001090  43 4d 50 20 23 24 33 32  00 a6 18 ec 31 42 4e 45  |CMP #$32....1BNE|
000010a0  20 46 49 4e 00 b1 18 f6  31 49 4e 43 20 59 50 00  | FIN....1INC YP.|
000010b0  be 18 00 32 4a 4d 50 20  9a 52 4f 4c 00 ce 18 0a  |...2JMP .ROL....|
000010c0  32 44 4f 57 4e 20 49 4e  43 20 59 50 00 d9 18 14  |2DOWN INC YP....|
000010d0  32 4c 44 41 20 59 50 00  e6 18 1e 32 43 4d 50 20  |2LDA YP....2CMP |
000010e0  23 24 46 38 00 f2 18 28  32 42 4e 45 20 46 49 4e  |#$F8...(2BNE FIN|
000010f0  00 fd 18 32 32 44 45 43  20 59 50 00 0a 19 3c 32  |...22DEC YP...<2|
00001100  4a 4d 50 20 9a 52 4f 4c  00 1d 19 46 32 3b 20 57  |JMP .ROL...F2; W|
00001110  49 4d 50 20 ab 20 50 4f  b5 45 52 00 2f 19 50 32  |IMP . PO.ER./.P2|
00001120  9a 52 4f 4c 20 4c 44 41  20 48 4f 55 52 00 3f 19  |.ROL LDA HOUR.?.|
00001130  5a 32 42 45 51 20 4e 48  47 4c 41 53 53 00 4c 19  |Z2BEQ NHGLASS.L.|
00001140  9a 33 4c 44 58 20 23 24  33 41 00 5a 19 a4 33 53  |.3LDX #$3A.Z..3S|
00001150  54 58 20 24 30 37 46 38  00 62 19 ae 33 49 4e 58  |TX $07F8.b..3INX|
00001160  00 70 19 b8 33 53 54 58  20 24 30 37 46 39 00 83  |.p..3STX $07F9..|
00001170  19 c2 33 4e 48 47 4c 41  53 53 20 4c 44 41 20 58  |..3NHGLASS LDA X|
00001180  50 00 91 19 cc 33 53 54  41 20 24 44 30 30 30 00  |P....3STA $D000.|
00001190  9f 19 d6 33 53 54 41 20  24 44 30 30 32 00 aa 19  |...3STA $D002...|
000011a0  e0 33 4c 44 41 20 59 50  00 b8 19 ea 33 53 54 41  |.3LDA YP....3STA|
000011b0  20 24 44 30 30 31 00 c6  19 f4 33 53 54 41 20 24  | $D001....3STA $|
000011c0  44 30 30 33 00 d4 19 fe  33 4c 44 41 20 24 44 30  |D003....3LDA $D0|
000011d0  31 30 00 df 19 08 34 af  20 23 24 46 43 00 e9 19  |10....4. #$FC...|
000011e0  12 34 4c 53 52 20 41 00  f1 19 1c 34 43 4c 43 00  |.4LSR A....4CLC.|
000011f0  fd 19 26 34 41 44 43 20  58 50 42 00 07 1a 30 34  |..&4ADC XPB...04|
00001200  41 53 4c 20 41 00 0f 1a  3a 34 43 4c 43 00 1b 1a  |ASL A...:4CLC...|
00001210  44 34 41 44 43 20 58 50  42 00 29 1a 4e 34 53 54  |D4ADC XPB.).N4ST|
00001220  41 20 24 44 30 31 30 00  36 1a 58 34 4c 44 41 20  |A $D010.6.X4LDA |
00001230  23 24 30 30 00 44 1a 62  34 53 54 41 20 24 44 30  |#$00.D.b4STA $D0|
00001240  32 37 00 51 1a 6c 34 4c  44 41 20 23 24 30 31 00  |27.Q.l4LDA #$01.|
00001250  5f 1a 76 34 53 54 41 20  24 44 30 32 38 00 6d 1a  |_.v4STA $D028.m.|
00001260  80 34 4c 44 41 20 24 44  30 31 35 00 79 1a 8a 34  |.4LDA $D015.y..4|
00001270  b0 41 20 23 24 30 33 00  87 1a 94 34 53 54 41 20  |.A #$03....4STA |
00001280  24 44 30 31 35 00 94 1a  9e 34 4c 44 41 20 48 4f  |$D015....4LDA HO|
00001290  55 52 00 a1 1a a8 34 42  4e 45 20 51 54 52 4f 00  |UR....4BNE QTRO.|
000012a0  ae 1a b2 34 4c 44 58 20  23 24 33 38 00 bc 1a bc  |...4LDX #$38....|
000012b0  34 53 54 58 20 24 30 37  46 38 00 c4 1a c6 34 49  |4STX $07F8....4I|
000012c0  4e 58 00 d2 1a d0 34 53  54 58 20 24 30 37 46 39  |NX....4STX $07F9|
000012d0  00 df 1a da 34 51 54 52  4f 20 52 54 53 00 f6 1a  |....4QTRO RTS...|
000012e0  e4 34 3b 20 53 54 41 52  54 55 50 20 52 4f 55 54  |.4; STARTUP ROUT|
000012f0  49 4e 45 53 00 08 1b ee  34 49 4e 49 54 20 4c 44  |INES....4INIT LD|
00001300  41 20 23 24 30 30 00 16  1b f8 34 53 54 41 20 24  |A #$00....4STA $|
00001310  44 30 32 30 00 24 1b 02  35 53 54 41 20 24 44 30  |D020.$..5STA $D0|
00001320  32 31 00 2f 1b 0c 35 53  54 41 20 58 50 00 3c 1b  |21./..5STA XP.<.|
00001330  16 35 53 54 41 20 48 4f  55 52 00 4a 1b 20 35 53  |.5STA HOUR.J. 5S|
00001340  54 41 20 24 44 30 31 35  00 57 1b 2a 35 4c 44 41  |TA $D015.W.*5LDA|
00001350  20 23 24 30 31 00 63 1b  34 35 53 54 41 20 58 50  | #$01.c.45STA XP|
00001360  42 00 70 1b 3e 35 4c 44  41 20 23 24 38 30 00 7b  |B.p.>5LDA #$80.{|
00001370  1b 48 35 53 54 41 20 59  50 00 8f 1b 52 35 48 49  |.H5STA YP...R5HI|
00001380  52 45 53 91 20 4c 44 41  20 23 24 33 42 00 9d 1b  |RES. LDA #$3B...|
00001390  5c 35 53 54 41 20 24 44  30 31 31 00 aa 1b 66 35  |\5STA $D011...f5|
000013a0  4c 44 41 20 23 24 44 38  00 b8 1b 70 35 53 54 41  |LDA #$D8...p5STA|
000013b0  20 24 44 30 31 36 00 c5  1b 7a 35 4c 44 41 20 23  | $D016...z5LDA #|
000013c0  24 30 30 00 d1 1b 84 35  53 54 41 20 24 46 42 00  |$00....5STA $FB.|
000013d0  d9 1b 8e 35 54 41 59 00  e6 1b 98 35 4c 44 41 20  |...5TAY....5LDA |
000013e0  23 24 30 34 00 f2 1b a2  35 53 54 41 20 24 46 43  |#$04....5STA $FC|
000013f0  00 ff 1b ac 35 4c 44 41  20 23 24 37 45 00 14 1c  |....5LDA #$7E...|
00001400  b6 35 46 4c 4f 50 20 53  54 41 20 28 24 46 42 29  |.5FLOP STA ($FB)|
00001410  2c 59 00 1c 1c c0 35 49  4e 59 00 2c 1c ca 35 42  |,Y....5INY.,..5B|
00001420  45 51 20 46 4c 4f 50 49  4e 43 00 39 1c d4 35 43  |EQ FLOPINC.9..5C|
00001430  50 59 20 23 24 46 38 00  46 1c de 35 42 4e 45 20  |PY #$F8.F..5BNE |
00001440  46 4c 4f 50 00 52 1c e8  35 4c 44 58 20 24 46 43  |FLOP.R..5LDX $FC|
00001450  00 5f 1c f2 35 43 50 58  20 23 24 30 37 00 6c 1c  |._..5CPX #$07.l.|
00001460  fc 35 42 4e 45 20 46 4c  4f 50 00 79 1c 06 36 4a  |.5BNE FLOP.y..6J|
00001470  53 52 20 4c 45 46 54 00  81 1c 10 36 53 45 49 00  |SR LEFT....6SEI.|
00001480  8f 1c 1a 36 4c 44 41 20  23 b3 49 52 51 00 9d 1c  |...6LDA #.IRQ...|
00001490  24 36 53 54 41 20 24 30  33 31 34 00 ab 1c 2e 36  |$6STA $0314....6|
000014a0  4c 44 41 20 23 b1 49 52  51 00 b9 1c 38 36 53 54  |LDA #.IRQ...86ST|
000014b0  41 20 24 30 33 31 35 00  c1 1c 42 36 43 4c 49 00  |A $0315...B6CLI.|
000014c0  ce 1c 4c 36 4c 44 41 20  23 24 44 38 00 da 1c 56  |..L6LDA #$D8...V|
000014d0  36 53 54 41 20 24 46 43  00 e7 1c 60 36 4c 44 41  |6STA $FC...`6LDA|
000014e0  20 23 24 30 32 00 f4 1c  6a 36 4c 44 59 20 23 24  | #$02...j6LDY #$|
000014f0  30 30 00 0a 1d 74 36 46  4c 4f 50 42 20 53 54 41  |00...t6FLOPB STA|
00001500  20 28 24 46 42 29 2c 59  00 12 1d 7e 36 49 4e 59  | ($FB),Y...~6INY|
00001510  00 20 1d 88 36 42 4e 45  20 46 4c 4f 50 42 00 2c  |. ..6BNE FLOPB.,|
00001520  1d 92 36 49 4e 43 20 24  46 43 00 38 1d 9c 36 4c  |..6INC $FC.8..6L|
00001530  44 58 20 24 46 43 00 45  1d a6 36 43 50 58 20 23  |DX $FC.E..6CPX #|
00001540  24 44 43 00 53 1d b0 36  42 4e 45 20 46 4c 4f 50  |$DC.S..6BNE FLOP|
00001550  42 00 60 1d ba 36 4c 44  41 20 23 24 31 38 00 6e  |B.`..6LDA #$18.n|
00001560  1d c4 36 53 54 41 20 24  44 30 31 38 00 76 1d 34  |..6STA $D018.v.4|
00001570  3a 52 54 53 00 8a 1d 3e  3a 46 4c 4f 50 49 4e 43  |:RTS...>:FLOPINC|
00001580  20 49 4e 43 20 24 46 43  00 97 1d 48 3a 4a 4d 50  | INC $FC...H:JMP|
00001590  20 46 4c 4f 50 00 a8 1d  52 3a 48 49 52 45 53 4f  | FLOP...R:HIRESO|
000015a0  46 46 20 53 45 49 00 b5  1d 5c 3a 4c 44 41 20 23  |FF SEI...\:LDA #|
000015b0  24 33 31 00 c3 1d 66 3a  53 54 41 20 24 30 33 31  |$31...f:STA $031|
000015c0  34 00 d0 1d 70 3a 4c 44  41 20 23 24 45 41 00 de  |4...p:LDA #$EA..|
000015d0  1d 7a 3a 53 54 41 20 24  30 33 31 35 00 e6 1d 84  |.z:STA $0315....|
000015e0  3a 43 4c 49 00 f3 1d 8e  3a 4c 44 41 20 23 24 30  |:CLI....:LDA #$0|
000015f0  30 00 01 1e 98 3a 53 54  41 20 24 44 30 31 35 00  |0....:STA $D015.|
00001600  0e 1e a2 3a 4c 44 41 20  23 24 39 42 00 1c 1e ac  |...:LDA #$9B....|
00001610  3a 53 54 41 20 24 44 30  31 31 00 29 1e b6 3a 4c  |:STA $D011.)..:L|
00001620  44 41 20 23 24 43 38 00  37 1e c0 3a 53 54 41 20  |DA #$C8.7..:STA |
00001630  24 44 30 31 36 00 3f 1e  ca 3a 52 54 53 00 63 1e  |$D016.?..:RTS.c.|
00001640  30 75 3b 20 20 20 20 20  20 20 20 20 20 4d af 4c  |0u;          M.L|
00001650  45 42 52 4f 54 20 53 45  54 20 50 4c 4f 54 54 45  |EBROT SET PLOTTE|
00001660  52 00 75 1e 3a 75 4d af  4c 45 20 4c 44 41 20 23  |R.u.:uM.LE LDA #|
00001670  24 30 30 00 84 1e 44 75  53 54 41 20 59 50 49 58  |$00...DuSTA YPIX|
00001680  45 4c 00 91 1e 4e 75 4c  44 41 20 23 24 30 33 00  |EL...NuLDA #$03.|
00001690  9f 1e 58 75 53 54 41 20  24 34 31 30 30 00 ac 1e  |..XuSTA $4100...|
000016a0  62 75 4c 44 41 20 23 24  30 36 00 ba 1e 6c 75 53  |buLDA #$06...luS|
000016b0  54 41 20 24 34 31 30 32  00 c8 1e 76 75 4a 53 52  |TA $4102...vuJSR|
000016c0  20 45 51 55 41 4c 00 dc  1e 80 75 4d 4d 41 49 4e  | EQUAL....uMMAIN|
000016d0  4c 20 4c 44 41 20 23 24  30 30 00 eb 1e 8a 75 53  |L LDA #$00....uS|
000016e0  54 41 20 58 50 49 58 45  4c 00 f8 1e 94 75 4c 44  |TA XPIXEL....uLD|
000016f0  41 20 23 24 30 31 00 06  1f 9e 75 53 54 41 20 24  |A #$01....uSTA $|
00001700  34 31 30 30 00 13 1f a8  75 4c 44 41 20 23 24 30  |4100....uLDA #$0|
00001710  35 00 21 1f b2 75 53 54  41 20 24 34 31 30 32 00  |5.!..uSTA $4102.|
00001720  2f 1f bc 75 4a 53 52 20  45 51 55 41 4c 00 44 1f  |/..uJSR EQUAL.D.|
00001730  c6 75 4d 4d 41 49 4e 4c  42 20 4c 44 41 20 23 24  |.uMMAINLB LDA #$|
00001740  30 35 00 52 1f d0 75 53  54 41 20 24 34 31 30 30  |05.R..uSTA $4100|
00001750  00 5f 1f da 75 4c 44 41  20 23 24 30 37 00 6d 1f  |._..uLDA #$07.m.|
00001760  e4 75 53 54 41 20 24 34  31 30 32 00 7b 1f ee 75  |.uSTA $4102.{..u|
00001770  4a 53 52 20 45 51 55 41  4c 00 89 1f f8 75 49 4e  |JSR EQUAL....uIN|
00001780  43 20 24 34 31 30 30 00  97 1f 02 76 49 4e 43 20  |C $4100....vINC |
00001790  24 34 31 30 32 00 a5 1f  0c 76 4a 53 52 20 45 51  |$4102....vJSR EQ|
000017a0  55 41 4c 00 b2 1f 16 76  4c 44 41 20 23 24 30 30  |UAL....vLDA #$00|
000017b0  00 c1 1f 20 76 53 54 41  20 43 4f 4c 4f 55 52 00  |... vSTA COLOUR.|
000017c0  d3 1f 2a 76 4c 4f 4f 50  20 4c 44 41 20 23 24 30  |..*vLOOP LDA #$0|
000017d0  37 00 e1 1f 34 76 53 54  41 20 24 34 31 30 30 00  |7...4vSTA $4100.|
000017e0  ef 1f 3e 76 53 54 41 20  24 34 31 30 31 00 fc 1f  |..>vSTA $4101...|
000017f0  48 76 4c 44 41 20 23 24  31 30 00 0a 20 52 76 53  |HvLDA #$10.. RvS|
00001800  54 41 20 24 34 31 30 32  00 1b 20 5c 76 4a 53 52  |TA $4102.. \vJSR|
00001810  20 4d 55 4c 54 49 50 4c  59 00 28 20 66 76 4c 44  | MULTIPLY.( fvLD|
00001820  41 20 23 24 30 38 00 36  20 70 76 53 54 41 20 24  |A #$08.6 pvSTA $|
00001830  34 31 30 30 00 44 20 7a  76 53 54 41 20 24 34 31  |4100.D zvSTA $41|
00001840  30 31 00 51 20 84 76 4c  44 41 20 23 24 31 31 00  |01.Q .vLDA #$11.|
00001850  5f 20 8e 76 53 54 41 20  24 34 31 30 32 00 70 20  |_ .vSTA $4102.p |
00001860  98 76 4a 53 52 20 4d 55  4c 54 49 50 4c 59 00 7d  |.vJSR MULTIPLY.}|
00001870  20 a2 76 4c 44 58 20 23  24 31 30 00 8b 20 ac 76  | .vLDX #$10.. .v|
00001880  53 54 58 20 24 34 31 30  30 00 93 20 b6 76 49 4e  |STX $4100.. .vIN|
00001890  58 00 a1 20 c0 76 53 54  58 20 24 34 31 30 31 00  |X.. .vSTX $4101.|
000018a0  a9 20 ca 76 49 4e 58 00  b7 20 d4 76 53 54 58 20  |. .vINX.. .vSTX |
000018b0  24 34 31 30 32 00 c7 20  de 76 4a 53 52 20 41 44  |$4102.. .vJSR AD|
000018c0  44 49 54 49 91 00 d5 20  e8 76 4c 44 41 20 24 34  |DITI... .vLDA $4|
000018d0  30 39 31 00 e2 20 f2 76  43 4d 50 20 23 24 30 34  |091.. .vCMP #$04|
000018e0  00 ef 20 fc 76 42 43 43  20 46 41 49 4c 00 fc 20  |.. .vBCC FAIL.. |
000018f0  06 77 43 4d 50 20 23 24  35 30 00 09 21 10 77 42  |.wCMP #$50..!.wB|
00001900  43 53 20 46 41 49 4c 00  21 21 1a 77 53 55 43 50  |CS FAIL.!!.wSUCP|
00001910  41 53 53 20 4a 4d 50 20  53 55 43 43 45 53 53 00  |ASS JMP SUCCESS.|
00001920  35 21 24 77 46 41 49 4c  20 49 4e 43 20 43 4f 4c  |5!$wFAIL INC COL|
00001930  4f 55 52 00 44 21 29 77  4c 44 41 20 43 4f 4c 4f  |OUR.D!)wLDA COLO|
00001940  55 52 00 53 21 2e 77 43  4d 50 20 4d 41 58 43 4f  |UR.S!.wCMP MAXCO|
00001950  4c 00 63 21 38 77 42 45  51 20 53 55 43 50 41 53  |L.c!8wBEQ SUCPAS|
00001960  53 00 74 21 42 77 4a 53  52 20 53 55 42 54 52 41  |S.t!BwJSR SUBTRA|
00001970  43 54 00 81 21 4c 77 4c  44 41 20 23 24 31 32 00  |CT..!LwLDA #$12.|
00001980  8f 21 56 77 53 54 41 20  24 34 31 30 30 00 9c 21  |.!VwSTA $4100..!|
00001990  60 77 4c 44 41 20 23 24  30 35 00 aa 21 6a 77 53  |`wLDA #$05..!jwS|
000019a0  54 41 20 24 34 31 30 31  00 b7 21 74 77 4c 44 41  |TA $4101..!twLDA|
000019b0  20 23 24 31 33 00 c5 21  7e 77 53 54 41 20 24 34  | #$13..!~wSTA $4|
000019c0  31 30 32 00 d5 21 88 77  4a 53 52 20 41 44 44 49  |102..!.wJSR ADDI|
000019d0  54 49 91 00 e2 21 92 77  4c 44 41 20 23 24 30 37  |TI...!.wLDA #$07|
000019e0  00 f0 21 9c 77 53 54 41  20 24 34 31 30 30 00 fd  |..!.wSTA $4100..|
000019f0  21 a6 77 4c 44 41 20 23  24 30 38 00 0b 22 b0 77  |!.wLDA #$08..".w|
00001a00  53 54 41 20 24 34 31 30  31 00 19 22 ba 77 49 4e  |STA $4101..".wIN|
00001a10  43 20 24 34 31 30 32 00  2a 22 c4 77 4a 53 52 20  |C $4102.*".wJSR |
00001a20  4d 55 4c 54 49 50 4c 59  00 37 22 ce 77 4c 44 41  |MULTIPLY.7".wLDA|
00001a30  20 23 24 31 34 00 45 22  d8 77 53 54 41 20 24 34  | #$14.E".wSTA $4|
00001a40  31 30 30 00 52 22 e2 77  4c 44 41 20 23 24 31 43  |100.R".wLDA #$1C|
00001a50  00 60 22 ec 77 53 54 41  20 24 34 31 30 31 00 6d  |.`".wSTA $4101.m|
00001a60  22 f6 77 4c 44 41 20 23  24 31 35 00 7b 22 00 78  |".wLDA #$15.{".x|
00001a70  53 54 41 20 24 34 31 30  32 00 8c 22 0a 78 4a 53  |STA $4102..".xJS|
00001a80  52 20 4d 55 4c 54 49 50  4c 59 00 99 22 14 78 4c  |R MULTIPLY..".xL|
00001a90  44 41 20 23 24 31 35 00  a7 22 1e 78 53 54 41 20  |DA #$15..".xSTA |
00001aa0  24 34 31 30 30 00 b4 22  28 78 4c 44 41 20 23 24  |$4100.."(xLDA #$|
00001ab0  30 36 00 c2 22 32 78 53  54 41 20 24 34 31 30 31  |06.."2xSTA $4101|
00001ac0  00 cf 22 3c 78 4c 44 41  20 23 24 31 36 00 dd 22  |.."<xLDA #$16.."|
00001ad0  46 78 53 54 41 20 24 34  31 30 32 00 ed 22 50 78  |FxSTA $4102.."Px|
00001ae0  4a 53 52 20 41 44 44 49  54 49 91 00 fa 22 5a 78  |JSR ADDITI..."Zx|
00001af0  4c 44 41 20 23 24 31 33  00 08 23 64 78 53 54 41  |LDA #$13..#dxSTA|
00001b00  20 24 34 31 30 30 00 15  23 6e 78 4c 44 41 20 23  | $4100..#nxLDA #|
00001b10  24 30 37 00 23 23 78 78  53 54 41 20 24 34 31 30  |$07.##xxSTA $410|
00001b20  32 00 31 23 82 78 4a 53  52 20 45 51 55 41 4c 00  |2.1#.xJSR EQUAL.|
00001b30  3e 23 8c 78 4c 44 41 20  23 24 31 36 00 4c 23 96  |>#.xLDA #$16.L#.|
00001b40  78 53 54 41 20 24 34 31  30 30 00 59 23 a0 78 4c  |xSTA $4100.Y#.xL|
00001b50  44 41 20 23 24 30 38 00  67 23 aa 78 53 54 41 20  |DA #$08.g#.xSTA |
00001b60  24 34 31 30 32 00 75 23  b4 78 4a 53 52 20 45 51  |$4102.u#.xJSR EQ|
00001b70  55 41 4c 00 82 23 be 78  4a 4d 50 20 4c 4f 4f 50  |UAL..#.xJMP LOOP|
00001b80  00 97 23 c8 78 53 55 43  43 45 53 53 20 4a 53 52  |..#.xSUCCESS JSR|
00001b90  20 50 4c 4f 54 00 a4 23  d2 78 4c 44 41 20 23 24  | PLOT..#.xLDA #$|
00001ba0  30 35 00 b2 23 dc 78 53  54 41 20 24 34 31 30 30  |05..#.xSTA $4100|
00001bb0  00 c0 23 e6 78 53 54 41  20 24 34 31 30 32 00 cd  |..#.xSTA $4102..|
00001bc0  23 f0 78 4c 44 41 20 23  24 30 32 00 db 23 fa 78  |#.xLDA #$02..#.x|
00001bd0  53 54 41 20 24 34 31 30  31 00 eb 23 04 79 4a 53  |STA $4101..#.yJS|
00001be0  52 20 41 44 44 49 54 49  91 00 fa 23 0e 79 4c 44  |R ADDITI...#.yLD|
00001bf0  41 20 58 50 49 58 45 4c  00 09 24 18 79 42 4e 45  |A XPIXEL..$.yBNE|
00001c00  20 58 52 45 4c 4f 50 00  16 24 22 79 4c 44 41 20  | XRELOP..$"yLDA |
00001c10  23 24 30 36 00 24 24 2c  79 53 54 41 20 24 34 31  |#$06.$$,ySTA $41|
00001c20  30 30 00 32 24 36 79 53  54 41 20 24 34 31 30 32  |00.2$6ySTA $4102|
00001c30  00 3f 24 40 79 4c 44 41  20 23 24 30 34 00 4d 24  |.?$@yLDA #$04.M$|
00001c40  4a 79 53 54 41 20 24 34  31 30 31 00 5d 24 54 79  |JySTA $4101.]$Ty|
00001c50  4a 53 52 20 41 44 44 49  54 49 91 00 6c 24 5e 79  |JSR ADDITI..l$^y|
00001c60  49 4e 43 20 59 50 49 58  45 4c 00 7b 24 68 79 4c  |INC YPIXEL.{$hyL|
00001c70  44 41 20 59 50 49 58 45  4c 00 88 24 72 79 43 4d  |DA YPIXEL..$ryCM|
00001c80  50 20 23 24 43 38 00 97  24 7c 79 42 4e 45 20 59  |P #$C8..$|yBNE Y|
00001c90  52 45 4c 4f 50 00 9f 24  86 79 52 54 53 00 b6 24  |RELOP..$.yRTS..$|
00001ca0  90 79 58 52 45 4c 4f 50  20 4a 4d 50 20 4d 4d 41  |.yXRELOP JMP MMA|
00001cb0  49 4e 4c 42 00 cc 24 9a  79 59 52 45 4c 4f 50 20  |INLB..$.yYRELOP |
00001cc0  4a 4d 50 20 4d 4d 41 49  4e 4c 00 f2 24 40 9c 3b  |JMP MMAINL..$@.;|
00001cd0  20 20 20 20 20 20 20 20  20 20 20 20 20 41 52 49  |             ARI|
00001ce0  54 48 4d 45 54 49 43 20  52 4f 55 54 49 4e 45 53  |THMETIC ROUTINES|
00001cf0  00 01 25 4a 9c a1 44 49  47 49 54 20 43 4c 44 00  |..%J..DIGIT CLD.|
00001d00  0b 25 54 9c 41 53 4c 20  41 00 15 25 5e 9c 41 53  |.%T.ASL A..%^.AS|
00001d10  4c 20 41 00 1f 25 68 9c  41 53 4c 20 41 00 2b 25  |L A..%h.ASL A.+%|
00001d20  72 9c 53 54 41 20 24 30  32 00 33 25 7c 9c 54 58  |r.STA $02.3%|.TX|
00001d30  41 00 3d 25 86 9c 4c 53  52 20 41 00 49 25 90 9c  |A.=%..LSR A.I%..|
00001d40  53 54 41 20 24 32 34 00  56 25 9a 9c 4c 44 41 20  |STA $24.V%..LDA |
00001d50  23 24 30 37 00 5e 25 a4  9c 53 45 43 00 6a 25 ae  |#$07.^%..SEC.j%.|
00001d60  9c 53 42 43 20 24 32 34  00 72 25 b8 9c 43 4c 43  |.SBC $24.r%..CLC|
00001d70  00 7e 25 c2 9c 41 44 43  20 24 30 32 00 86 25 cc  |.~%..ADC $02..%.|
00001d80  9c 54 41 59 00 96 25 d6  9c 4c 44 41 20 24 34 30  |.TAY..%..LDA $40|
00001d90  30 30 2c 59 00 9e 25 e0  9c 54 41 59 00 a6 25 ea  |00,Y..%..TAY..%.|
00001da0  9c 54 58 41 00 b1 25 f4  9c af 20 23 24 30 31 00  |.TXA..%... #$01.|
00001db0  bf 25 fe 9c 42 45 51 20  4c 53 4e 47 44 00 c7 25  |.%..BEQ LSNGD..%|
00001dc0  08 9d 54 59 41 00 d2 25  12 9d af 20 23 24 46 30  |..TYA..%... #$F0|
00001dd0  00 dc 25 1c 9d 4c 53 52  20 41 00 e6 25 26 9d 4c  |..%..LSR A..%&.L|
00001de0  53 52 20 41 00 f0 25 30  9d 4c 53 52 20 41 00 fa  |SR A..%0.LSR A..|
00001df0  25 3a 9d 4c 53 52 20 41  00 02 26 44 9d 52 54 53  |%:.LSR A..&D.RTS|
00001e00  00 10 26 4e 9d 4c 53 4e  47 44 20 54 59 41 00 1b  |..&N.LSNGD TYA..|
00001e10  26 58 9d af 20 23 24 30  46 00 23 26 62 9d 52 54  |&X.. #$0F.#&b.RT|
00001e20  53 00 3e 26 6c 9d 4d 55  4c 54 49 50 4c 59 42 20  |S.>&l.MULTIPLYB |
00001e30  4a 53 52 20 4e 45 47 41  54 49 56 45 00 4c 26 71  |JSR NEGATIVE.L&q|
00001e40  9d 4c 44 41 20 24 34 31  30 32 00 56 26 76 9d 41  |.LDA $4102.V&v.A|
00001e50  53 4c 20 41 00 60 26 80  9d 41 53 4c 20 41 00 6a  |SL A.`&..ASL A.j|
00001e60  26 8a 9d 41 53 4c 20 41  00 72 26 94 9d 54 41 58  |&..ASL A.r&..TAX|
00001e70  00 7f 26 9e 9d 4c 44 41  20 23 24 30 30 00 87 26  |..&..LDA #$00..&|
00001e80  a8 9d 54 41 59 00 9d 26  b2 9d 4d 4c 4f 50 41 20  |..TAY..&..MLOPA |
00001e90  53 54 41 20 24 34 30 30  30 2c 58 00 a5 26 bc 9d  |STA $4000,X..&..|
00001ea0  49 4e 59 00 ad 26 c6 9d  49 4e 58 00 ba 26 d0 9d  |INY..&..INX..&..|
00001eb0  43 50 59 20 23 24 30 38  00 c8 26 da 9d 42 4e 45  |CPY #$08..&..BNE|
00001ec0  20 4d 4c 4f 50 41 00 d5  26 e4 9d 4c 44 41 20 23  | MLOPA..&..LDA #|
00001ed0  24 30 36 00 e1 26 ee 9d  53 54 41 20 24 46 43 00  |$06..&..STA $FC.|
00001ee0  f6 26 f8 9d a2 44 49 47  49 54 20 4c 44 41 20 24  |.&...DIGIT LDA $|
00001ef0  34 31 30 31 00 02 27 02  9e 4c 44 58 20 24 46 43  |4101..'..LDX $FC|
00001f00  00 11 27 0c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |..'..JSR .DIGIT.|
00001f10  1e 27 16 9e 43 4d 50 20  23 24 30 30 00 2d 27 20  |.'..CMP #$00.-' |
00001f20  9e 42 45 51 20 44 4d 4f  56 45 52 00 39 27 2a 9e  |.BEQ DMOVER.9'*.|
00001f30  53 54 41 20 24 46 44 00  46 27 34 9e 4c 44 41 20  |STA $FD.F'4.LDA |
00001f40  23 24 30 36 00 52 27 3e  9e 53 54 41 20 24 46 42  |#$06.R'>.STA $FB|
00001f50  00 66 27 48 9e 44 4d 4c  4f 50 20 4c 44 41 20 24  |.f'H.DMLOP LDA $|
00001f60  34 31 30 30 00 72 27 52  9e 4c 44 58 20 24 46 42  |4100.r'R.LDX $FB|
00001f70  00 81 27 5c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |..'\.JSR .DIGIT.|
00001f80  93 27 66 9e 44 4d 4c 42  20 43 4d 50 20 23 24 30  |.'f.DMLB CMP #$0|
00001f90  30 00 a2 27 70 9e 42 45  51 20 44 4d 4f 56 45 52  |0..'p.BEQ DMOVER|
00001fa0  00 ae 27 7a 9e 53 54 41  20 24 46 45 00 ba 27 84  |..'z.STA $FE..'.|
00001fb0  9e 4c 44 41 20 24 46 42  00 c2 27 8e 9e 43 4c 43  |.LDA $FB..'..CLC|
00001fc0  00 ce 27 98 9e 41 44 43  20 24 46 43 00 d6 27 a2  |..'..ADC $FC..'.|
00001fd0  9e 53 45 43 00 e3 27 ac  9e 53 42 43 20 23 24 30  |.SEC..'..SBC #$0|
00001fe0  43 00 ef 27 b6 9e 4c 44  58 20 24 46 44 00 f7 27  |C..'..LDX $FD..'|
00001ff0  c0 9e 54 41 59 00 02 28  ca 9e af 20 23 24 30 31  |..TAY..(... #$01|
00002000  00 10 28 d4 9e 42 45 51  20 4d 53 4b 49 50 00 18  |..(..BEQ MSKIP..|
00002010  28 de 9e 54 58 41 00 22  28 e8 9e 41 53 4c 20 41  |(..TXA."(..ASL A|
00002020  00 2c 28 f2 9e 41 53 4c  20 41 00 36 28 fc 9e 41  |.,(..ASL A.6(..A|
00002030  53 4c 20 41 00 40 28 06  9f 41 53 4c 20 41 00 48  |SL A.@(..ASL A.H|
00002040  28 10 9f 54 41 58 00 56  28 1a 9f 4d 53 4b 49 50  |(..TAX.V(..MSKIP|
00002050  20 54 59 41 00 60 28 24  9f 4c 53 52 20 41 00 6c  | TYA.`($.LSR A.l|
00002060  28 2e 9f 53 54 41 20 24  30 32 00 79 28 38 9f 4c  |(..STA $02.y(8.L|
00002070  44 41 20 23 24 30 37 00  81 28 42 9f 53 45 43 00  |DA #$07..(B.SEC.|
00002080  8d 28 4c 9f 53 42 43 20  24 30 32 00 99 28 56 9f  |.(L.SBC $02..(V.|
00002090  53 54 41 20 24 30 32 00  a7 28 60 9f 4c 44 41 20  |STA $02..(`.LDA |
000020a0  24 34 31 30 32 00 b1 28  6a 9f 41 53 4c 20 41 00  |$4102..(j.ASL A.|
000020b0  bb 28 74 9f 41 53 4c 20  41 00 c5 28 7e 9f 41 53  |.(t.ASL A..(~.AS|
000020c0  4c 20 41 00 d1 28 88 9f  41 44 43 20 24 30 32 00  |L A..(..ADC $02.|
000020d0  d9 28 92 9f 54 41 59 00  e5 28 9c 9f 53 54 58 20  |.(..TAY..(..STX |
000020e0  24 32 34 00 f1 28 a6 9f  4c 44 58 20 24 30 32 00  |$24..(..LDX $02.|
000020f0  f9 28 b0 9f 53 45 44 00  09 29 ba 9f 4c 44 41 20  |.(..SED..)..LDA |
00002100  24 34 30 30 30 2c 59 00  11 29 c4 9f 43 4c 43 00  |$4000,Y..)..CLC.|
00002110  1d 29 ce 9f 41 44 43 20  24 32 34 00 2d 29 d8 9f  |.)..ADC $24.-)..|
00002120  53 54 41 20 24 34 30 30  30 2c 59 00 3a 29 e2 9f  |STA $4000,Y.:)..|
00002130  4d 41 4c 50 20 43 4c 44  00 49 29 ec 9f 42 43 43  |MALP CLD.I)..BCC|
00002140  20 4d 41 51 55 49 54 00  51 29 f6 9f 44 45 59 00  | MAQUIT.Q)..DEY.|
00002150  59 29 00 a0 44 45 58 00  66 29 0a a0 43 50 58 20  |Y)..DEX.f)..CPX |
00002160  23 24 46 46 00 75 29 14  a0 42 45 51 20 4d 41 51  |#$FF.u)..BEQ MAQ|
00002170  55 49 54 00 7d 29 1e a0  53 45 44 00 8d 29 28 a0  |UIT.})..SED..)(.|
00002180  4c 44 41 20 24 34 30 30  30 2c 59 00 95 29 32 a0  |LDA $4000,Y..)2.|
00002190  43 4c 43 00 a2 29 3c a0  41 44 43 20 23 24 30 31  |CLC..)<.ADC #$01|
000021a0  00 b2 29 46 a0 53 54 41  20 24 34 30 30 30 2c 59  |..)F.STA $4000,Y|
000021b0  00 bf 29 50 a0 4a 4d 50  20 4d 41 4c 50 00 d2 29  |..)P.JMP MALP..)|
000021c0  5a a0 44 4d 4f 56 45 52  20 49 4e 43 20 24 46 42  |Z.DMOVER INC $FB|
000021d0  00 de 29 64 a0 4c 44 41  20 24 46 42 00 eb 29 6e  |..)d.LDA $FB..)n|
000021e0  a0 43 4d 50 20 23 24 30  45 00 f9 29 78 a0 42 43  |.CMP #$0E..)x.BC|
000021f0  43 20 44 4d 4c 4f 50 00  05 2a 82 a0 49 4e 43 20  |C DMLOP..*..INC |
00002200  24 46 43 00 11 2a 8c a0  4c 44 41 20 24 46 43 00  |$FC..*..LDA $FC.|
00002210  1e 2a 96 a0 43 4d 50 20  23 24 30 45 00 2d 2a a0  |.*..CMP #$0E.-*.|
00002220  a0 42 43 43 20 a2 44 49  47 49 54 00 3a 2a aa a0  |.BCC .DIGIT.:*..|
00002230  4c 44 41 20 59 50 49 42  00 47 2a b4 a0 42 45 51  |LDA YPIB.G*..BEQ|
00002240  20 51 55 49 54 00 55 2a  be a0 4c 44 41 20 24 34  | QUIT.U*..LDA $4|
00002250  31 30 32 00 63 2a c8 a0  53 54 41 20 24 34 31 30  |102.c*..STA $410|
00002260  31 00 70 2a d2 a0 4c 44  41 20 23 24 31 44 00 7e  |1.p*..LDA #$1D.~|
00002270  2a dc a0 53 54 41 20 24  34 31 30 30 00 8f 2a e6  |*..STA $4100..*.|
00002280  a0 4a 53 52 20 53 55 42  54 52 41 43 54 00 9c 2a  |.JSR SUBTRACT..*|
00002290  f0 a0 51 55 49 54 20 52  54 53 00 af 2a fa a0 4d  |..QUIT RTS..*..M|
000022a0  41 51 55 49 54 20 4c 44  58 20 24 46 45 00 b7 2a  |AQUIT LDX $FE..*|
000022b0  04 a1 44 45 58 00 bf 2a  0e a1 54 58 41 00 cc 2a  |..DEX..*..TXA..*|
000022c0  18 a1 4a 4d 50 20 44 4d  4c 42 00 df 2a 22 a1 4d  |..JMP DMLB..*".M|
000022d0  53 55 50 20 4c 44 41 20  24 34 31 30 30 00 e9 2a  |SUP LDA $4100..*|
000022e0  2c a1 41 53 4c 20 41 00  f3 2a 36 a1 41 53 4c 20  |,.ASL A..*6.ASL |
000022f0  41 00 fd 2a 40 a1 41 53  4c 20 41 00 05 2b 4a a1  |A..*@.ASL A..+J.|
00002300  54 41 58 00 0d 2b 54 a1  44 45 58 00 19 2b 5e a1  |TAX..+T.DEX..+^.|
00002310  53 54 58 20 24 46 42 00  27 2b 68 a1 4c 44 41 20  |STX $FB.'+h.LDA |
00002320  24 34 31 30 31 00 31 2b  72 a1 41 53 4c 20 41 00  |$4101.1+r.ASL A.|
00002330  3b 2b 7c a1 41 53 4c 20  41 00 45 2b 86 a1 41 53  |;+|.ASL A.E+..AS|
00002340  4c 20 41 00 4d 2b 90 a1  54 41 58 00 55 2b 9a a1  |L A.M+..TAX.U+..|
00002350  44 45 58 00 61 2b a4 a1  53 54 58 20 24 46 44 00  |DEX.a+..STX $FD.|
00002360  6f 2b ae a1 4c 44 41 20  24 34 31 30 32 00 79 2b  |o+..LDA $4102.y+|
00002370  b8 a1 41 53 4c 20 41 00  83 2b c2 a1 41 53 4c 20  |..ASL A..+..ASL |
00002380  41 00 8d 2b cc a1 41 53  4c 20 41 00 95 2b d6 a1  |A..+..ASL A..+..|
00002390  54 41 58 00 9d 2b e0 a1  44 45 58 00 a9 2b ea a1  |TAX..+..DEX..+..|
000023a0  53 54 58 20 24 32 32 00  b6 2b f4 a1 4c 44 41 20  |STX $22..+..LDA |
000023b0  23 24 34 30 00 c2 2b fe  a1 53 54 41 20 24 46 43  |#$40..+..STA $FC|
000023c0  00 ce 2b 08 a2 53 54 41  20 24 46 45 00 da 2b 12  |..+..STA $FE..+.|
000023d0  a2 53 54 41 20 24 32 33  00 e2 2b 1c a2 52 54 53  |.STA $23..+..RTS|
000023e0  00 f5 2b 26 a2 45 51 55  41 4c 20 4a 53 52 20 4d  |..+&.EQUAL JSR M|
000023f0  53 55 50 00 02 2c 30 a2  4c 44 59 20 23 24 30 38  |SUP..,0.LDY #$08|
00002400  00 17 2c 3a a2 45 4c 4f  50 20 4c 44 41 20 28 24  |..,:.ELOP LDA ($|
00002410  46 42 29 2c 59 00 27 2c  44 a2 53 54 41 20 28 24  |FB),Y.',D.STA ($|
00002420  32 32 29 2c 59 00 2f 2c  4e a2 44 45 59 00 3c 2c  |22),Y./,N.DEY.<,|
00002430  58 a2 42 4e 45 20 45 4c  4f 50 00 44 2c 62 a2 52  |X.BNE ELOP.D,b.R|
00002440  54 53 00 59 2c 6c a2 41  44 44 49 54 49 91 20 4a  |TS.Y,l.ADDITI. J|
00002450  53 52 20 4d 53 55 50 00  66 2c 76 a2 4c 44 59 20  |SR MSUP.f,v.LDY |
00002460  23 24 30 38 00 6e 2c 80  a2 53 45 44 00 76 2c 8a  |#$08.n,..SED.v,.|
00002470  a2 43 4c 43 00 8c 2c 94  a2 41 44 4c 4f 50 20 4c  |.CLC..,..ADLOP L|
00002480  44 41 20 28 24 46 42 29  2c 59 00 9c 2c 9e a2 41  |DA ($FB),Y..,..A|
00002490  44 43 20 28 24 46 44 29  2c 59 00 ac 2c a8 a2 53  |DC ($FD),Y..,..S|
000024a0  54 41 20 28 24 32 32 29  2c 59 00 b4 2c b2 a2 44  |TA ($22),Y..,..D|
000024b0  45 59 00 c2 2c bc a2 42  4e 45 20 41 44 4c 4f 50  |EY..,..BNE ADLOP|
000024c0  00 ca 2c c6 a2 43 4c 44  00 d2 2c d0 a2 52 54 53  |..,..CLD..,..RTS|
000024d0  00 e8 2c da a2 53 55 42  54 52 41 43 54 20 4a 53  |..,..SUBTRACT JS|
000024e0  52 20 4d 53 55 50 00 f5  2c e4 a2 4c 44 59 20 23  |R MSUP..,..LDY #|
000024f0  24 30 38 00 fd 2c ee a2  53 45 44 00 05 2d f8 a2  |$08..,..SED..-..|
00002500  53 45 43 00 1b 2d 02 a3  53 55 4c 4f 50 20 4c 44  |SEC..-..SULOP LD|
00002510  41 20 28 24 46 42 29 2c  59 00 2b 2d 0c a3 53 42  |A ($FB),Y.+-..SB|
00002520  43 20 28 24 46 44 29 2c  59 00 3b 2d 16 a3 53 54  |C ($FD),Y.;-..ST|
00002530  41 20 28 24 32 32 29 2c  59 00 43 2d 20 a3 44 45  |A ($22),Y.C- .DE|
00002540  59 00 51 2d 2a a3 42 4e  45 20 53 55 4c 4f 50 00  |Y.Q-*.BNE SULOP.|
00002550  59 2d 34 a3 43 4c 44 00  61 2d 3e a3 52 54 53 00  |Y-4.CLD.a->.RTS.|
00002560  77 2d 48 a3 4e 45 47 41  54 49 56 45 20 4c 44 41  |w-H.NEGATIVE LDA|
00002570  20 23 24 30 30 00 7f 2d  52 a3 50 48 41 00 8d 2d  | #$00..-R.PHA..-|
00002580  5c a3 4c 44 41 20 24 34  31 30 30 00 95 2d 66 a3  |\.LDA $4100..-f.|
00002590  54 41 59 00 9f 2d 70 a3  41 53 4c 20 41 00 a9 2d  |TAY..-p.ASL A..-|
000025a0  7a a3 41 53 4c 20 41 00  b3 2d 84 a3 41 53 4c 20  |z.ASL A..-..ASL |
000025b0  41 00 bb 2d 8e a3 54 41  58 00 cb 2d 98 a3 4c 44  |A..-..TAX..-..LD|
000025c0  41 20 24 34 30 30 31 2c  58 00 d8 2d a2 a3 43 4d  |A $4001,X..-..CM|
000025d0  50 20 23 24 35 30 00 eb  2d a7 a3 42 43 43 20 4e  |P #$50..-..BCC N|
000025e0  45 47 52 4d 4f 56 45 41  42 00 f3 2d ac a3 50 4c  |EGRMOVEAB..-..PL|
000025f0  41 00 00 2e b6 a3 41 44  43 20 23 24 30 30 00 08  |A.....ADC #$00..|
00002600  2e c0 a3 50 48 41 00 1a  2e ca a3 4a 4d 50 20 4e  |...PHA.....JMP N|
00002610  45 47 52 4d 4f 56 45 41  00 33 2e d4 a3 4e 45 47  |EGRMOVEA.3...NEG|
00002620  52 4d 4f 56 45 41 42 20  4c 44 41 20 24 34 31 30  |RMOVEAB LDA $410|
00002630  31 00 3b 2e de a3 54 41  59 00 45 2e e8 a3 41 53  |1.;...TAY.E...AS|
00002640  4c 20 41 00 4f 2e f2 a3  41 53 4c 20 41 00 59 2e  |L A.O...ASL A.Y.|
00002650  fc a3 41 53 4c 20 41 00  61 2e 06 a4 54 41 58 00  |..ASL A.a...TAX.|
00002660  71 2e 10 a4 4c 44 41 20  24 34 30 30 31 2c 58 00  |q...LDA $4001,X.|
00002670  7e 2e 1a a4 43 4d 50 20  23 24 35 30 00 86 2e 24  |~...CMP #$50...$|
00002680  a4 50 4c 41 00 93 2e 2e  a4 42 43 43 20 4e 4f 45  |.PLA.....BCC NOE|
00002690  b0 00 9f 2e 38 a4 45 b0  20 23 24 30 31 00 a7 2e  |....8.E. #$01...|
000026a0  42 a4 50 48 41 00 b9 2e  4c a4 42 43 53 20 4e 45  |B.PHA...L.BCS NE|
000026b0  47 52 4d 4f 56 45 42 00  cc 2e 56 a4 4e 45 47 52  |GRMOVEB...V.NEGR|
000026c0  4d 4f 56 45 42 42 20 50  4c 41 00 de 2e 60 a4 4e  |MOVEBB PLA...`.N|
000026d0  4f 45 b0 20 53 54 41 20  59 50 49 42 00 e6 2e 6a  |OE. STA YPIB...j|
000026e0  a4 52 54 53 00 fd 2e 74  a4 4e 45 47 52 4d 4f 56  |.RTS...t.NEGRMOV|
000026f0  45 20 4c 44 41 20 24 34  31 30 30 00 05 2f 7e a4  |E LDA $4100../~.|
00002700  50 48 41 00 13 2f 88 a4  4c 44 41 20 24 34 31 30  |PHA../..LDA $410|
00002710  31 00 1b 2f 92 a4 50 48  41 00 29 2f 9c a4 4c 44  |1../..PHA.)/..LD|
00002720  41 20 24 34 31 30 32 00  31 2f a6 a4 50 48 41 00  |A $4102.1/..PHA.|
00002730  39 2f b0 a4 54 59 41 00  47 2f ba a4 53 54 41 20  |9/..TYA.G/..STA |
00002740  24 34 31 30 31 00 55 2f  c4 a4 53 54 41 20 24 34  |$4101.U/..STA $4|
00002750  31 30 32 00 62 2f ce a4  4c 44 41 20 23 24 31 44  |102.b/..LDA #$1D|
00002760  00 70 2f d8 a4 53 54 41  20 24 34 31 30 30 00 81  |.p/..STA $4100..|
00002770  2f e2 a4 4a 53 52 20 53  55 42 54 52 41 43 54 00  |/..JSR SUBTRACT.|
00002780  89 2f ec a4 50 4c 41 00  97 2f f6 a4 53 54 41 20  |./..PLA../..STA |
00002790  24 34 31 30 32 00 9f 2f  00 a5 50 4c 41 00 ad 2f  |$4102../..PLA../|
000027a0  0a a5 53 54 41 20 24 34  31 30 31 00 b5 2f 14 a5  |..STA $4101../..|
000027b0  50 4c 41 00 c3 2f 1e a5  53 54 41 20 24 34 31 30  |PLA../..STA $410|
000027c0  30 00 cb 2f 28 a5 52 54  53 00 e6 2f 32 a5 4e 45  |0../(.RTS../2.NE|
000027d0  47 52 4d 4f 56 45 41 20  4a 53 52 20 4e 45 47 52  |GRMOVEA JSR NEGR|
000027e0  4d 4f 56 45 00 f9 2f 3c  a5 4a 4d 50 20 4e 45 47  |MOVE../<.JMP NEG|
000027f0  52 4d 4f 56 45 41 42 00  14 30 46 a5 4e 45 47 52  |RMOVEAB..0F.NEGR|
00002800  4d 4f 56 45 42 20 4a 53  52 20 4e 45 47 52 4d 4f  |MOVEB JSR NEGRMO|
00002810  56 45 00 27 30 50 a5 4a  4d 50 20 4e 45 47 52 4d  |VE.'0P.JMP NEGRM|
00002820  4f 56 45 42 42 00 3e 30  5a a5 4d 55 4c 54 49 50  |OVEBB.>0Z.MULTIP|
00002830  4c 59 20 4c 44 41 20 24  34 31 30 32 00 46 30 64  |LY LDA $4102.F0d|
00002840  a5 50 48 41 00 54 30 6e  a5 4c 44 41 20 24 34 31  |.PHA.T0n.LDA $41|
00002850  30 31 00 5c 30 78 a5 50  48 41 00 69 30 82 a5 4c  |01.\0x.PHA.i0..L|
00002860  44 41 20 23 24 31 38 00  77 30 8c a5 53 54 41 20  |DA #$18.w0..STA |
00002870  24 34 31 30 32 00 85 30  96 a5 4a 53 52 20 45 51  |$4102..0..JSR EQ|
00002880  55 41 4c 00 93 30 a0 a5  49 4e 43 20 24 34 31 30  |UAL..0..INC $410|
00002890  32 00 9b 30 aa a5 50 4c  41 00 a9 30 b4 a5 53 54  |2..0..PLA..0..ST|
000028a0  41 20 24 34 31 30 30 00  b7 30 be a5 4a 53 52 20  |A $4100..0..JSR |
000028b0  45 51 55 41 4c 00 c4 30  c8 a5 4c 44 41 20 23 24  |EQUAL..0..LDA #$|
000028c0  31 38 00 d2 30 d2 a5 53  54 41 20 24 34 31 30 30  |18..0..STA $4100|
000028d0  00 df 30 dc a5 4c 44 41  20 23 24 31 39 00 ed 30  |..0..LDA #$19..0|
000028e0  e6 a5 53 54 41 20 24 34  31 30 31 00 f5 30 f0 a5  |..STA $4101..0..|
000028f0  50 4c 41 00 03 31 fa a5  53 54 41 20 24 34 31 30  |PLA..1..STA $410|
00002900  32 00 15 31 04 a6 4a 4d  50 20 4d 55 4c 54 49 50  |2..1..JMP MULTIP|
00002910  4c 59 42 00 39 31 50 c3  3b 20 20 20 20 20 20 20  |LYB.91P.;       |
00002920  20 20 20 20 47 52 41 50  48 49 43 20 50 4f b5 20  |    GRAPHIC PO. |
00002930  50 4c 4f 54 54 45 52 00  4d 31 5a c3 50 4c 4f 54  |PLOTTER.M1Z.PLOT|
00002940  50 43 20 4c 44 41 20 23  24 34 37 00 59 31 64 c3  |PC LDA #$47.Y1d.|
00002950  53 54 41 20 24 46 42 00  66 31 6e c3 4c 44 41 20  |STA $FB.f1n.LDA |
00002960  23 24 33 46 00 72 31 78  c3 53 54 41 20 24 46 43  |#$3F.r1x.STA $FC|
00002970  00 81 31 82 c3 4c 44 41  20 59 50 49 58 45 4c 00  |..1..LDA YPIXEL.|
00002980  8b 31 8c c3 4c 53 52 20  41 00 95 31 96 c3 4c 53  |.1..LSR A..1..LS|
00002990  52 20 41 00 9f 31 a0 c3  4c 53 52 20 41 00 ac 31  |R A..1..LSR A..1|
000029a0  aa c3 53 54 41 20 59 50  49 42 00 b7 31 b4 c3 af  |..STA YPIB..1...|
000029b0  20 23 24 30 33 00 c1 31  be c3 41 53 4c 20 41 00  | #$03..1..ASL A.|
000029c0  cb 31 c8 c3 41 53 4c 20  41 00 d5 31 d2 c3 41 53  |.1..ASL A..1..AS|
000029d0  4c 20 41 00 df 31 dc c3  41 53 4c 20 41 00 e9 31  |L A..1..ASL A..1|
000029e0  e6 c3 41 53 4c 20 41 00  f3 31 f0 c3 41 53 4c 20  |..ASL A..1..ASL |
000029f0  41 00 ff 31 fa c3 53 54  41 20 24 30 32 00 0b 32  |A..1..STA $02..2|
00002a00  04 c4 4c 44 41 20 24 46  42 00 13 32 0e c4 53 45  |..LDA $FB..2..SE|
00002a10  43 00 1f 32 18 c4 53 42  43 20 24 30 32 00 2b 32  |C..2..SBC $02.+2|
00002a20  22 c4 53 54 41 20 24 46  42 00 37 32 2c c4 4c 44  |".STA $FB.72,.LD|
00002a30  41 20 24 46 43 00 44 32  36 c4 53 42 43 20 23 24  |A $FC.D26.SBC #$|
00002a40  30 30 00 51 32 3b c4 53  42 43 20 59 50 49 42 00  |00.Q2;.SBC YPIB.|
00002a50  59 32 40 c4 50 48 41 00  66 32 4a c4 4c 44 41 20  |Y2@.PHA.f2J.LDA |
00002a60  59 50 49 42 00 70 32 54  c4 4c 53 52 20 41 00 7a  |YPIB.p2T.LSR A.z|
00002a70  32 5e c4 4c 53 52 20 41  00 86 32 68 c4 53 54 41  |2^.LSR A..2h.STA|
00002a80  20 24 30 32 00 8e 32 72  c4 50 4c 41 00 96 32 7c  | $02..2r.PLA..2||
00002a90  c4 53 45 43 00 a2 32 86  c4 53 42 43 20 24 30 32  |.SEC..2..SBC $02|
00002aa0  00 ae 32 90 c4 53 54 41  20 24 46 43 00 bd 32 9a  |..2..STA $FC..2.|
00002ab0  c4 4c 44 41 20 59 50 49  58 45 4c 00 c8 32 a4 c4  |.LDA YPIXEL..2..|
00002ac0  af 20 23 24 30 37 00 d5  32 ae c4 53 54 41 20 59  |. #$07..2..STA Y|
00002ad0  50 49 42 00 e1 32 b8 c4  4c 44 41 20 24 46 42 00  |PIB..2..LDA $FB.|
00002ae0  e9 32 c2 c4 53 45 43 00  f6 32 cc c4 53 42 43 20  |.2..SEC..2..SBC |
00002af0  59 50 49 42 00 fe 32 d6  c4 50 48 41 00 0d 33 e0  |YPIB..2..PHA..3.|
00002b00  c4 4c 44 41 20 58 50 49  58 45 4c 00 18 33 ea c4  |.LDA XPIXEL..3..|
00002b10  af 20 23 24 46 38 00 25  33 f4 c4 53 54 41 20 59  |. #$F8.%3..STA Y|
00002b20  50 49 42 00 2d 33 fe c4  50 4c 41 00 35 33 08 c5  |PIB.-3..PLA.53..|
00002b30  43 4c 43 00 42 33 12 c5  41 44 43 20 59 50 49 42  |CLC.B3..ADC YPIB|
00002b40  00 4e 33 1c c5 53 54 41  20 24 46 42 00 5a 33 26  |.N3..STA $FB.Z3&|
00002b50  c5 4c 44 41 20 24 46 43  00 67 33 30 c5 53 42 43  |.LDA $FC.g30.SBC|
00002b60  20 23 24 30 30 00 73 33  3a c5 53 54 41 20 24 46  | #$00.s3:.STA $F|
00002b70  43 00 82 33 44 c5 4c 44  41 20 58 50 49 58 45 4c  |C..3D.LDA XPIXEL|
00002b80  00 8d 33 4e c5 af 20 23  24 30 37 00 95 33 58 c5  |..3N.. #$07..3X.|
00002b90  54 41 58 00 a2 33 62 c5  4c 44 41 20 23 24 38 30  |TAX..3b.LDA #$80|
00002ba0  00 b6 33 6c c5 47 42 49  54 4c 50 20 43 50 58 20  |..3l.GBITLP CPX |
00002bb0  23 24 30 30 00 c2 33 76  c5 42 45 51 20 50 50 9a  |#$00..3v.BEQ PP.|
00002bc0  00 cc 33 80 c5 4c 53 52  20 41 00 d4 33 8a c5 44  |..3..LSR A..3..D|
00002bd0  45 58 00 e3 33 94 c5 4a  4d 50 20 47 42 49 54 4c  |EX..3..JMP GBITL|
00002be0  50 00 f3 33 9e c5 50 50  9a 20 53 54 41 20 24 46  |P..3..PP. STA $F|
00002bf0  44 00 fb 33 a8 c5 52 54  53 00 10 34 b2 c5 50 4c  |D..3..RTS..4..PL|
00002c00  4f a4 4e 20 4a 53 52 20  50 4c 4f 54 50 43 00 1d  |O.N JSR PLOTPC..|
00002c10  34 bc c5 4c 44 59 20 23  24 30 30 00 2d 34 c6 c5  |4..LDY #$00.-4..|
00002c20  4c 44 41 20 28 24 46 42  29 2c 59 00 38 34 d0 c5  |LDA ($FB),Y.84..|
00002c30  b0 41 20 24 46 44 00 48  34 da c5 53 54 41 20 28  |.A $FD.H4..STA (|
00002c40  24 46 42 29 2c 59 00 50  34 e4 c5 52 54 53 00 66  |$FB),Y.P4..RTS.f|
00002c50  34 ee c5 50 4c 4f a4 46  46 20 4a 53 52 20 50 4c  |4..PLO.FF JSR PL|
00002c60  4f 54 50 43 00 72 34 f8  c5 4c 44 41 20 24 46 44  |OTPC.r4..LDA $FD|
00002c70  00 7e 34 02 c6 45 b0 20  23 24 46 46 00 8a 34 0c  |.~4..E. #$FF..4.|
00002c80  c6 53 54 41 20 24 46 44  00 97 34 16 c6 4c 44 59  |.STA $FD..4..LDY|
00002c90  20 23 24 30 30 00 a7 34  20 c6 4c 44 41 20 28 24  | #$00..4 .LDA ($|
00002ca0  46 42 29 2c 59 00 b1 34  2a c6 af 20 24 46 44 00  |FB),Y..4*.. $FD.|
00002cb0  c1 34 34 c6 53 54 41 20  28 24 46 42 29 2c 59 00  |.44.STA ($FB),Y.|
00002cc0  c9 34 3e c6 52 54 53 00  dd 34 48 c6 50 4c 4f 54  |.4>.RTS..4H.PLOT|
00002cd0  20 4c 44 41 20 43 4f 4c  4f 55 52 00 e8 34 52 c6  | LDA COLOUR..4R.|
00002ce0  af 20 23 24 30 32 00 f5  34 5c c6 42 4e 45 20 50  |. #$02..4\.BNE P|
00002cf0  50 41 91 00 04 35 66 c6  4a 53 52 20 50 4c 4f a4  |PA...5f.JSR PLO.|
00002d00  46 46 00 13 35 70 c6 4a  4d 50 20 50 50 41 43 4e  |FF..5p.JMP PPACN|
00002d10  54 00 26 35 7a c6 50 50  41 91 20 4a 53 52 20 50  |T.&5z.PPA. JSR P|
00002d20  4c 4f a4 4e 00 3c 35 84  c6 50 50 41 43 4e 54 20  |LO.N.<5..PPACNT |
00002d30  49 4e 43 20 58 50 49 58  45 4c 00 4b 35 8e c6 4c  |INC XPIXEL.K5..L|
00002d40  44 41 20 43 4f 4c 4f 55  52 00 56 35 98 c6 af 20  |DA COLOUR.V5... |
00002d50  23 24 30 31 00 63 35 a2  c6 42 4e 45 20 50 50 42  |#$01.c5..BNE PPB|
00002d60  91 00 72 35 ac c6 4a 53  52 20 50 4c 4f a4 46 46  |..r5..JSR PLO.FF|
00002d70  00 81 35 b6 c6 4a 4d 50  20 50 50 42 43 4e 54 00  |..5..JMP PPBCNT.|
00002d80  94 35 c0 c6 50 50 42 91  20 4a 53 52 20 50 4c 4f  |.5..PPB. JSR PLO|
00002d90  a4 4e 00 aa 35 ca c6 50  50 42 43 4e 54 20 49 4e  |.N..5..PPBCNT IN|
00002da0  43 20 58 50 49 58 45 4c  00 b2 35 d4 c6 52 54 53  |C XPIXEL..5..RTS|
00002db0  00 d8 35 60 ea 3b 20 20  20 20 20 20 20 20 20 20  |..5`.;          |
00002dc0  20 20 20 20 20 20 20 20  20 5a 4f 4f 4d 20 52 4f  |         ZOOM RO|
00002dd0  55 54 49 4e 45 53 00 e7  35 6a ea 42 4f 58 20 4c  |UTINES..5j.BOX L|
00002de0  44 41 20 58 50 00 f4 35  74 ea 53 54 41 20 58 50  |DA XP..5t.STA XP|
00002df0  49 42 00 ff 35 7e ea 4c  44 41 20 59 50 00 0c 36  |IB..5~.LDA YP..6|
00002e00  88 ea 53 54 41 20 59 50  49 42 00 18 36 92 ea 4c  |..STA YPIB..6..L|
00002e10  44 41 20 58 50 42 00 26  36 9c ea 53 54 41 20 58  |DA XPB.&6..STA X|
00002e20  50 42 49 42 00 33 36 a6  ea 4c 44 58 20 23 24 33  |PBIB.36..LDX #$3|
00002e30  43 00 41 36 b0 ea 53 54  58 20 24 30 37 46 43 00  |C.A6..STX $07FC.|
00002e40  49 36 ba ea 49 4e 58 00  57 36 c4 ea 53 54 58 20  |I6..INX.W6..STX |
00002e50  24 30 37 46 44 00 5f 36  ce ea 49 4e 58 00 6d 36  |$07FD._6..INX.m6|
00002e60  d8 ea 53 54 58 20 24 30  37 46 45 00 75 36 e2 ea  |..STX $07FE.u6..|
00002e70  49 4e 58 00 83 36 ec ea  53 54 58 20 24 30 37 46  |INX..6..STX $07F|
00002e80  46 00 91 36 f6 ea 4c 44  41 20 24 44 30 31 35 00  |F..6..LDA $D015.|
00002e90  9d 36 00 eb b0 41 20 23  24 46 30 00 ab 36 0a eb  |.6...A #$F0..6..|
00002ea0  53 54 41 20 24 44 30 31  35 00 be 36 14 eb 42 4f  |STA $D015..6..BO|
00002eb0  58 92 20 4c 44 41 20 43  4c 49 43 4b 00 cb 36 1e  |X. LDA CLICK..6.|
00002ec0  eb 42 4e 45 20 42 4f 58  92 00 e1 36 78 eb 42 4f  |.BNE BOX...6x.BO|
00002ed0  58 4c 4f 4f 50 20 4c 44  41 20 58 50 42 49 42 00  |XLOOP LDA XPBIB.|
00002ee0  ed 36 82 eb 43 4d 50 20  58 50 42 00 ff 36 8c eb  |.6..CMP XPB..6..|
00002ef0  42 45 51 20 43 48 45 43  4b 46 49 4e 45 00 10 37  |BEQ CHECKFINE..7|
00002f00  96 eb 42 43 53 20 4c 45  53 53 54 48 41 4e 00 20  |..BCS LESSTHAN. |
00002f10  37 a0 eb 4a 4d 50 20 4d  b0 45 54 48 41 4e 00 37  |7..JMP M.ETHAN.7|
00002f20  37 aa eb 43 48 45 43 4b  46 49 4e 45 20 4c 44 41  |7..CHECKFINE LDA|
00002f30  20 58 50 49 42 00 42 37  b4 eb 43 4d 50 20 58 50  | XPIB.B7..CMP XP|
00002f40  00 53 37 be eb 42 43 53  20 4c 45 53 53 54 48 41  |.S7..BCS LESSTHA|
00002f50  4e 00 68 37 c8 eb 4d b0  45 54 48 41 4e 20 4c 44  |N.h7..M.ETHAN LD|
00002f60  41 20 58 50 49 42 00 76  37 d2 eb 53 54 41 20 24  |A XPIB.v7..STA $|
00002f70  44 30 30 38 00 84 37 dc  eb 53 54 41 20 24 44 30  |D008..7..STA $D0|
00002f80  30 43 00 91 37 e6 eb 4c  44 58 20 23 24 30 30 00  |0C..7..LDX #$00.|
00002f90  9f 37 f0 eb 4c 44 41 20  58 50 42 49 42 00 b0 37  |.7..LDA XPBIB..7|
00002fa0  fa eb 42 45 51 20 4e 4f  58 50 42 41 44 44 00 bd  |..BEQ NOXPBADD..|
00002fb0  37 04 ec 4c 44 58 20 23  24 35 30 00 d4 37 0e ec  |7..LDX #$50..7..|
00002fc0  4e 4f 58 50 42 41 44 44  20 4c 44 41 20 24 44 30  |NOXPBADD LDA $D0|
00002fd0  31 30 00 df 37 18 ec af  20 23 24 41 46 00 eb 37  |10..7... #$AF..7|
00002fe0  22 ec 53 54 58 20 24 30  32 00 f3 37 2c ec 43 4c  |".STX $02..7,.CL|
00002ff0  43 00 ff 37 36 ec 41 44  43 20 24 30 32 00 0d 38  |C..76.ADC $02..8|
00003000  40 ec 53 54 41 20 24 44  30 31 30 00 1a 38 45 ec  |@.STA $D010..8E.|
00003010  4c 44 58 20 23 24 30 30  00 25 38 4a ec 4c 44 41  |LDX #$00.%8J.LDA|
00003020  20 58 50 00 2d 38 54 ec  53 45 43 00 3a 38 5e ec  | XP.-8T.SEC.:8^.|
00003030  53 42 43 20 23 24 31 38  00 48 38 68 ec 53 54 41  |SBC #$18.H8h.STA|
00003040  20 24 44 30 30 41 00 56  38 72 ec 53 54 41 20 24  | $D00A.V8r.STA $|
00003050  44 30 30 45 00 64 38 7c  ec 42 43 43 20 4d 54 53  |D00E.d8|.BCC MTS|
00003060  55 42 00 70 38 86 ec 4c  44 58 20 58 50 42 00 7e  |UB.p8..LDX XPB.~|
00003070  38 90 ec 42 45 51 20 4d  54 53 55 42 00 8b 38 9a  |8..BEQ MTSUB..8.|
00003080  ec 4c 44 58 20 23 24 41  30 00 9f 38 a4 ec 4d 54  |.LDX #$A0..8..MT|
00003090  53 55 42 20 4c 44 41 20  24 44 30 31 30 00 aa 38  |SUB LDA $D010..8|
000030a0  ae ec af 20 23 24 35 46  00 b6 38 b8 ec 53 54 58  |... #$5F..8..STX|
000030b0  20 24 30 32 00 be 38 c2  ec 43 4c 43 00 ca 38 cc  | $02..8..CLC..8.|
000030c0  ec 41 44 43 20 24 30 32  00 d8 38 d6 ec 53 54 41  |.ADC $02..8..STA|
000030d0  20 24 44 30 31 30 00 e5  38 e0 ec 4a 4d 50 20 42  | $D010..8..JMP B|
000030e0  4f 58 9a 00 f9 38 ea ec  4c 45 53 53 54 48 41 4e  |OX...8..LESSTHAN|
000030f0  20 4c 44 41 20 58 50 00  05 39 f4 ec 4c 44 58 20  | LDA XP..9..LDX |
00003100  58 50 42 00 12 39 fe ec  42 4e 45 20 a8 4f 55 54  |XPB..9..BNE .OUT|
00003110  00 1f 39 08 ed 43 4d 50  20 23 24 35 38 00 2c 39  |..9..CMP #$58.,9|
00003120  12 ed 42 43 53 20 a8 4f  55 54 00 39 39 1c ed 4c  |..BCS .OUT.99..L|
00003130  44 41 20 23 24 35 38 00  4c 39 26 ed a8 4f 55 54  |DA #$58.L9&..OUT|
00003140  20 53 54 41 20 24 44 30  30 38 00 5a 39 30 ed 53  | STA $D008.Z90.S|
00003150  54 41 20 24 44 30 30 43  00 67 39 3a ed 43 50 58  |TA $D00C.g9:.CPX|
00003160  20 23 24 30 30 00 77 39  44 ed 42 45 51 20 4c 54  | #$00.w9D.BEQ LT|
00003170  4e 4f 41 44 44 00 84 39  4e ed 4c 44 58 20 23 24  |NOADD..9N.LDX #$|
00003180  35 30 00 9a 39 58 ed 4c  54 4e 4f 41 44 44 20 4c  |50..9X.LTNOADD L|
00003190  44 41 20 24 44 30 31 30  00 a5 39 62 ed af 20 23  |DA $D010..9b.. #|
000031a0  24 41 46 00 b1 39 6c ed  53 54 58 20 24 30 32 00  |$AF..9l.STX $02.|
000031b0  b9 39 76 ed 43 4c 43 00  c5 39 80 ed 41 44 43 20  |.9v.CLC..9..ADC |
000031c0  24 30 32 00 d3 39 8a ed  53 54 41 20 24 44 30 31  |$02..9..STA $D01|
000031d0  30 00 e0 39 8f ed 4c 44  58 20 23 24 30 30 00 ed  |0..9..LDX #$00..|
000031e0  39 94 ed 4c 44 41 20 58  50 49 42 00 f5 39 9e ed  |9..LDA XPIB..9..|
000031f0  53 45 43 00 02 3a a8 ed  53 42 43 20 23 24 31 38  |SEC..:..SBC #$18|
00003200  00 10 3a b2 ed 53 54 41  20 24 44 30 30 41 00 1e  |..:..STA $D00A..|
00003210  3a bc ed 53 54 41 20 24  44 30 30 45 00 2c 3a c6  |:..STA $D00E.,:.|
00003220  ed 42 43 43 20 4c 54 53  55 42 00 3a 3a d0 ed 4c  |.BCC LTSUB.::..L|
00003230  44 58 20 58 50 42 49 42  00 48 3a da ed 42 45 51  |DX XPBIB.H:..BEQ|
00003240  20 4c 54 53 55 42 00 55  3a e4 ed 4c 44 58 20 23  | LTSUB.U:..LDX #|
00003250  24 41 30 00 69 3a ee ed  4c 54 53 55 42 20 4c 44  |$A0.i:..LTSUB LD|
00003260  41 20 24 44 30 31 30 00  74 3a f8 ed af 20 23 24  |A $D010.t:... #$|
00003270  35 46 00 80 3a 02 ee 53  54 58 20 24 30 32 00 88  |5F..:..STX $02..|
00003280  3a 0c ee 43 4c 43 00 94  3a 16 ee 41 44 43 20 24  |:..CLC..:..ADC $|
00003290  30 32 00 a2 3a 20 ee 53  54 41 20 24 44 30 31 30  |02..: .STA $D010|
000032a0  00 b2 3a 2a ee 42 4f 58  9a 20 4c 44 41 20 59 50  |..:*.BOX. LDA YP|
000032b0  00 bf 3a 34 ee 43 4d 50  20 59 50 49 42 00 cd 3a  |..:4.CMP YPIB..:|
000032c0  3e ee 42 43 43 20 4c 45  53 53 59 00 da 3a 48 ee  |>.BCC LESSY..:H.|
000032d0  4c 44 41 20 59 50 49 42  00 e8 3a 52 ee 53 54 41  |LDA YPIB..:R.STA|
000032e0  20 24 44 30 30 39 00 f6  3a 5c ee 53 54 41 20 24  | $D009..:\.STA $|
000032f0  44 30 30 42 00 01 3b 66  ee 4c 44 41 20 59 50 00  |D00B..;f.LDA YP.|
00003300  09 3b 70 ee 53 45 43 00  16 3b 7a ee 53 42 43 20  |.;p.SEC..;z.SBC |
00003310  23 24 31 35 00 24 3b 84  ee 53 54 41 20 24 44 30  |#$15.$;..STA $D0|
00003320  30 44 00 32 3b 8e ee 53  54 41 20 24 44 30 30 46  |0D.2;..STA $D00F|
00003330  00 41 3b 98 ee 4a 4d 50  20 42 4f 58 9a 49 49 00  |.A;..JMP BOX.II.|
00003340  52 3b a2 ee 4c 45 53 53  59 20 4c 44 41 20 59 50  |R;..LESSY LDA YP|
00003350  00 60 3b ac ee 53 54 41  20 24 44 30 30 39 00 6e  |.`;..STA $D009.n|
00003360  3b b6 ee 53 54 41 20 24  44 30 30 42 00 7b 3b c0  |;..STA $D00B.{;.|
00003370  ee 4c 44 41 20 59 50 49  42 00 83 3b ca ee 53 45  |.LDA YPIB..;..SE|
00003380  43 00 90 3b d4 ee 53 42  43 20 23 24 31 35 00 9e  |C..;..SBC #$15..|
00003390  3b de ee 53 54 41 20 24  44 30 30 44 00 ac 3b e8  |;..STA $D00D..;.|
000033a0  ee 53 54 41 20 24 44 30  30 46 00 c1 3b f2 ee 42  |.STA $D00F..;..B|
000033b0  4f 58 9a 49 49 20 4c 44  41 20 43 4c 49 43 4b 00  |OX.II LDA CLICK.|
000033c0  ce 3b fc ee 42 4e 45 20  42 4f 58 80 00 de 3b 06  |.;..BNE BOX...;.|
000033d0  ef 4a 4d 50 20 42 4f 58  4c 4f 4f 50 00 f2 3b 10  |.JMP BOXLOOP..;.|
000033e0  ef 42 4f 58 80 20 4a 4d  50 20 9a 52 4f 4c 4f 50  |.BOX. JMP .ROLOP|
000033f0  00 07 3c 30 f2 42 4f 58  46 4c 41 53 48 20 4c 44  |..<0.BOXFLASH LD|
00003400  41 20 24 41 32 00 12 3c  3a f2 af 20 23 24 33 43  |A $A2..<:.. #$3C|
00003410  00 1c 3c 44 f2 4c 53 52  20 41 00 26 3c 4e f2 4c  |..<D.LSR A.&<N.L|
00003420  53 52 20 41 00 2e 3c 58  f2 54 41 58 00 40 3c 62  |SR A..<X.TAX.@<b|
00003430  f2 4c 44 41 20 42 4f 58  43 4f 4c 53 2c 58 00 4e  |.LDA BOXCOLS,X.N|
00003440  3c 6c f2 53 54 41 20 24  44 30 32 42 00 5c 3c 76  |<l.STA $D02B.\<v|
00003450  f2 53 54 41 20 24 44 30  32 43 00 6a 3c 80 f2 53  |.STA $D02C.j<..S|
00003460  54 41 20 24 44 30 32 44  00 78 3c 8a f2 53 54 41  |TA $D02D.x<..STA|
00003470  20 24 44 30 32 45 00 86  3c 94 f2 4a 4d 50 20 24  | $D02E..<..JMP $|
00003480  45 41 33 31 00 a8 3c 9e  f2 42 4f 58 43 4f 4c 53  |EA31..<..BOXCOLS|
00003490  20 54 58 54 20 30 2c 39  2c 32 2c 38 2c 31 30 2c  | TXT 0,9,2,8,10,|
000034a0  37 2c 31 33 2c 31 00 c2  3c a8 f2 54 58 54 20 31  |7,13,1..<..TXT 1|
000034b0  2c 31 33 2c 33 2c 35 2c  31 34 2c 34 2c 36 2c 30  |,13,3,5,14,4,6,0|
000034c0  00 00 00                                          |...|
000034c3