;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�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 A1(��ASL A;(�ASL AC(�TAXQ(�MSKIP TYA[($�LSR Ag(.�STA $02t(8�LDA #$07|(B�SEC�(L�SBC $02�(V�STA $02�(`�LDA $4102�(j�ASL A�(t�ASL A�(~�ASL A�(��ADC $02�(��STA $25�(��TAY�(��STX $24�(��DMLB LDX $02)��SED)��LDA $4000,Y)ğCLC))ΟADC $249)؟STA $4000,YF)�MALP CLDU)�BCC MAQUIT])��DEYe)�DEXr)
�CPX #$FF�)�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 #$0E9*��BCC �DIGITF*��LDA YPIBS*��BEQ QUITa*��LDA $4102o*ȠSTA $4101|*ҠLDA #$1D�*ܠSTA $4100�*�JSR SUBTRACT�*�QUIT RTS�*��MAQUIT LDX $FE�*�DEX�*�BEQ DMOVER�*
�STX $FE�*�LDY $25�*�JMP DMLB
+"�MSUP LDA $4100+,�ASL A+6�ASL A(+@�ASL A0+J�TAX8+T�DEXD+^�STX $FBR+h�LDA $4101\+r�ASL Af+|�ASL Ap+��ASL Ax+��TAX�+��DEX�+��STX $FD�+��LDA $4102�+��ASL A�+¡ASL A�+̡ASL A�+֡TAX�+�DEX�+�STX $22�+�LDA #$40�+��STA $FC�+�STA $FE,�STA $23
,�RTS ,&�EQUAL JSR MSUP-,0�LDY #$08B,:�ELOP LDA ($FB),YR,D�STA ($22),YZ,N�DEYg,X�BNE ELOPo,b�RTS�,l�ADDITI� JSR MSUP�,v�LDY #$08�,��SED�,��CLC�,��ADLOP LDA ($FB),Y�,��ADC ($FD),Y�,��STA ($22),Y�,��DEY�,��BNE ADLOP�,ƢCLD�,ТRTS-ڢSUBTRACT JSR MSUP -�LDY #$08(-�SED0-��SECF-�SULOP LDA ($FB),YV-�SBC ($FD),Yf-�STA ($22),Yn- �DEY|-*�BNE SULOP�-4�CLD�->�RTS�-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 #$003.��PHAE.ʣJMP NEGRMOVEA^.ԣNEGRMOVEAB LDA $4101f.ޣTAYp.�ASL Az.�ASL A�.��ASL A�.�TAX�.�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 $41000/~�PHA>/��LDA $4101F/��PHAT/��LDA $4102\/��PHAd/��TYAr/��STA $4101�/ĤSTA $4102�/ΤLDA #$1D�/ؤSTA $4100�/�JSR SUBTRACT�/�PLA�/��STA $4102�/�PLA�/
�STA $4101�/�PLA�/�STA $4100�/(�RTS02�NEGRMOVEA JSR NEGRMOVE$0<�JMP NEGRMOVEAB?0F�NEGRMOVEB JSR NEGRMOVER0P�JMP NEGRMOVEBBi0Z�MULTIPLY LDA $4102q0d�PHA0n�LDA $4101�0x�PHA�0��LDA #$18�0��STA $4102�0��JSR EQUAL�0��INC $4102�0��PLA�0��STA $4100�0��JSR EQUAL�0ȥLDA #$18�0ҥSTA $4100
1ܥLDA #$191�STA $4101 1�PLA.1��STA $4102@1�JMP MULTIPLYBd1P�;           GRAPHIC PO� PLOTTERx1Z�PLOTPC LDA #$47�1d�STA $FB�1n�LDA #$3F�1x�STA $FC�1��LDA YPIXEL�1��LSR A�1��LSR A�1��LSR A�1��STA YPIB�1�ï #$03�1��ASL A�1��ASL A2��ASL A
2��ASL A2��ASL A2��ASL A*2��STA $0262�LDA $FB>2�SECJ2�SBC $02V2"�STA $FBb2,�LDA $FCo26�SBC #$00|2;�SBC YPIB�2@�PHA�2J�LDA YPIB�2T�LSR A�2^�LSR A�2h�STA $02�2r�PLA�2|�SEC�2��SBC $02�2��STA $FC�2��LDA YPIXEL�2�į #$073��STA YPIB3��LDA $FB3��SEC!3��SBC YPIB)3��PHA83��LDA XPIXELC3�į #$F8P3��STA YPIBX3��PLA`3�CLCm3�ADC YPIBy3�STA $FB�3&�LDA $FC�30�SBC #$00�3:�STA $FC�3D�LDA XPIXEL�3Nů #$07�3X�TAX�3b�LDA #$80�3l�GBITLP CPX #$00�3v�BEQ PP��3��LSR A�3��DEX4��JMP GBITLP4��PP� STA $FD&4��RTS;4��PLO�N JSR PLOTPCH4��LDY #$00X4��LDA ($FB),Yc4�ŰA $FDs4��STA ($FB),Y{4��RTS�4��PLO�FF JSR PLOTPC�4��LDA $FD�4�E� #$FF�4�STA $FD�4�LDY #$00�4 �LDA ($FB),Y�4*Ư $FD�44�STA ($FB),Y�4>�RTS5H�PLOT LDA COLOUR5RƯ #$02 5\�BNE PPA�/5f�JSR PLO�FF>5p�JMP PPACNTQ5z�PPA� JSR PLO�Ng5��PPACNT INC XPIXELv5��LDA COLOUR�5�Ư #$01�5��BNE PPB��5��JSR PLO�FF�5��JMP PPBCNT�5��PPB� JSR PLO�N�5��PPBCNT INC XPIXEL�5��RTS6`�;                   ZOOM ROUTINES6j�BOX LDA XP6t�STA XPIB*6~�LDA YP76��STA YPIBC6��LDA XPBQ6��STA XPBIB^6��LDX #$3Cl6��STX $07FCt6��INX�6��STX $07FD�6��INX�6��STX $07FE�6��INX�6��STX $07FF�6��LDA $D015�6�A #$F0�6
�STA $D015�6�BOX� LDA CLICK�6�BNE BOX�7x�BOXLOOP LDA XPBIB7��CMP XPB*7��BEQ CHECKFINE;7��BCS LESSTHANK7��JMP M�ETHANb7��CHECKFINE LDA XPIBm7��CMP XP~7��BCS LESSTHAN�7��M�ETHAN LDA XPIB�7��STA $D008�7��STA $D00C�7��LDX #$00�7��LDA XPBIB�7��BEQ NOXPBADD�7�LDX #$50�7�NOXPBADD LDA $D010
8� #$AF8"�STX $028,�CLC*86�ADC $0288@�STA $D010E8E�LDX #$00P8J�LDA XPX8T�SECe8^�SBC #$18s8h�STA $D00A�8r�STA $D00E�8|�BCC MTSUB�8��LDX XPB�8��BEQ MTSUB�8��LDX #$A0�8��MTSUB LDA $D010�8�� #$5F�8��STX $02�8��CLC�8��ADC $029��STA $D0109��JMP BOX�$9��LESSTHAN LDA XP09��LDX XPB=9��BNE �OUTJ9�CMP #$58W9�BCS �OUTd9�LDA #$58w9&�OUT STA $D008�90�STA $D00C�9:�CPX #$00�9D�BEQ LTNOADD�9N�LDX #$50�9X�LTNOADD LDA $D010�9b� #$AF�9l�STX $02�9v�CLC�9��ADC $02�9��STA $D010:��LDX #$00:��LDA XPIB :��SEC-:��SBC #$18;:��STA $D00AI:��STA $D00EW:��BCC LTSUBe:��LDX XPBIBs:��BEQ LTSUB�:��LDX #$A0�:��LTSUB LDA $D010�:�� #$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 YP4;p�SECA;z�SBC #$15O;��STA $D00D];��STA $D00Fl;��JMP BOX�II};��LESSY LDA YP�;��STA $D009�;��STA $D00B�;��LDA YPIB�;��SEC�;��SBC #$15�;��STA $D00D�;��STA $D00F�;��BOX�II LDA CLICK�;��BNE BOX�	<�JMP BOXLOOP<�BOX� JMP �ROLOP2<0�BOXFLASH LDA $A2=<:� #$3CG<D�LSR AQ<N�LSR AY<X�TAXk<b�LDA BOXCOLS,Xy<l�STA $D02B�<v�STA $D02C�<��STA $D02D�<��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.cmp #$00@.'P.beq dmover@.'Z.sta $fe@.'..lda $fb@.'..clc@.'..adc $fc@.'..sec@.'..sbc #$0c@.'..ldx $fd@.'..tay@.'... #$01@K(..beq mskip@S(..txa@](..asl a@'(..asl a@1(..asl a@;(F.asl a@c(P.tax@q(Z.mskip tya@[($.lsr a@G(..sta $02@T(8.lda #$07@.(b.sec@.(l.sbc $02@.(v.sta $02@.(..lda $4102@.(J.asl a@.(T.asl a@.(..asl a@.(..adc $02@.(..sta $25@.(..tay@.(..stx $24@.(..dmlb ldx $02@E)..sed@U)..lda $4000,y@])..clc@))..adc $24@9)..sta $4000,y@f)..malp cld@u)..bcc maquit@])..dey@E)@.dex@R)J.cpx #$ff@.)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@E*X.bcc dmlop@Q*..inc $fc@]*..lda $fc@**..cmp #$0e@9*..bcc .digit@f*..lda ypib@s*..beq quit@A*..lda $4102@O*..sta $4101@.*..lda #$1d@.*..sta $4100@.*..jsr subtract@.*..quit rts@.*..maquit ldx $fe@.*D.dex@.*G.beq dmover@.*J.stx $fe@.*N.ldy $25@.*X.jmp dmlb@J+".msup lda $4100@T+,.asl a@.+6.asl a@(+@.asl a@0+j.tax@8+t.dex@d+..stx $fb@r+H.lda $4101@£+R.asl a@F+..asl a@P+..asl a@X+..tax@.+..dex@.+..stx $fd@.+..lda $4102@.+..asl a@.+..asl a@.+..asl a@.+..tax@.+..dex@.+..stx $22@.+..lda #$40@.+..sta $fc@.+H.sta $fe@E,R.sta $23@M,£.rts@ ,&.equal jsr msup@-,0.ldy #$08@b,:.elop lda ($fb),y@r,d.sta ($22),y@z,n.dey@G,x.bne elop@O,B.rts@.,L.additi. jsr msup@.,V.ldy #$08@.,..sed@.,..clc@.,..adlop lda ($fb),y@.,..adc ($fd),y@.,..sta ($22),y@.,..dey@.,..bne adlop@.,..cld@.,..rts@S-..subtract jsr msup@ -..ldy #$08@(-..sed@0-..sec@f-B.sulop lda ($fb),y@v-L.sbc ($fd),y@F-V.sta ($22),y@N- .dey@.-*.bne sulop@.-4.cld@.->.rts@.-h.negative lda #$00@.-r.pha@.-£.lda $4100@.-F.tay@.-P.asl a@.-Z.asl a@.-..asl a@.-..tax@.-..lda $4001,x@C...cmp #$50@V...bcc negrmoveab@....pla@+...adc #$00@3...pha@e...jmp negrmovea@....negrmoveab lda $4101@F...tay@P...asl a@Z...asl a@....asl a@..F.tax@..P.lda $4001,x@..Z.cmp #$50@..$.pla@....bcc noe.@..8.e. #$01@..b.pha@..l.bcs negrmoveb@..v.negrmovebb pla@I/..noe. sta ypib@Q/J.rts@(/T.negrmove lda $4100@0/..pha@>/..lda $4101@f/..pha@t/..lda $4102@£/..pha@D/..tya@R/..sta $4101@./..sta $4102@./..lda #$1d@./..sta $4100@./..jsr subtract@./..pla@./..sta $4102@./@.pla@./J.sta $4101@./T.pla@./..sta $4100@./(.rts@Q02.negrmovea jsr negrmove@$0<.jmp negrmoveab@?0f.negrmoveb jsr negrmove@r0p.jmp negrmovebb@I0z.multiply lda $4102@Q0D.pha@.0N.lda $4101@.0X.pha@.0..lda #$18@.0..sta $4102@.0..jsr equal@.0..inc $4102@.0..pla@.0..sta $4100@.0..jsr equal@.0..lda #$18@.0..sta $4100@J1..lda #$19@X1..sta $4101@ 1..pla@.1..sta $4102@@1D.jmp multiplyb@D1p.;           graphic po. plotter@X1z.plotpc lda #$47@.1D.sta $fb@.1N.lda #$3f@.1X.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@@2..asl a@J2..asl a@T2..asl a@.2..asl a@*2..sta $02@62D.lda $fb@>2N.sec@j2X.sbc $02@v2".sta $fb@B2,.lda $fc@O26.sbc #$00@.2;.sbc ypib@.2@.pha@.2j.lda ypib@.2t.lsr a@.2..lsr a@.2H.sta $02@.2R.pla@.2..sec@.2..sbc $02@.2..sta $fc@.2..lda ypixel@.2... #$07@@3..sta ypib@L3..lda $fb@T3..sec@!3..sbc ypib@)3..pha@83..lda xpixel@c3... #$f8@p3..sta ypib@x3..pla@.3H.clc@M3R.adc ypib@Y3£.sta $fb@.3&.lda $fc@.30.sbc #$00@.3:.sta $fc@.3d.lda xpixel@.3n.. #$07@.3x.tax@.3B.lda #$80@.3L.gbitlp cpx #$00@.3V.beq pp.@.3..lsr a@.3..dex@N4..jmp gbitlp@.4..pp. sta $fd@&4..rts@;4..plo.n jsr plotpc@h4..ldy #$00@x4..lda ($fb),y@C4...a $fd@S4..sta ($fb),y@.4..rts@.4..plo.ff jsr plotpc@.4..lda $fd@.4B.e. #$ff@.4L.sta $fd@.4V.ldy #$00@.4 .lda ($fb),y@.4*.. $fd@.44.sta ($fb),y@.4>.rts@H5h.plot lda colour@S5r.. #$02@ 5£.bne ppa.@/5F.jsr plo.ff@>5P.jmp ppacnt@q5Z.ppa. jsr plo.n@G5..ppacnt inc xpixel@V5..lda colour@.5... #$01@.5..bne ppb.@.5..jsr plo.ff@.5..jmp ppbcnt@.5..ppb. jsr plo.n@.5..ppbcnt inc xpixel@.5..rts@C6..;                   zoom routines@R6J.box lda xp@.6T.sta xpib@*6..lda yp@76..sta ypib@c6..lda xpb@q6..sta xpbib@.6..ldx #$3c@L6..stx $07fc@T6..inx@.6..stx $07fd@.6..inx@.6..stx $07fe@.6..inx@.6..stx $07ff@.6..lda $d015@.6@..a #$f0@.6J.sta $d015@.6T.box. lda click@.6..bne box.@L7X.boxloop lda xpbib@X7..cmp xpb@*7..beq checkfine@;7..bcs lessthan@k7..jmp m.ethan@B7..checkfine lda xpib@M7..cmp xp@.7..bcs lessthan@.7..m.ethan lda xpib@.7..sta $d008@.7..sta $d00c@.7..ldx #$00@.7..lda xpbib@.7..beq noxpbadd@.7D.ldx #$50@.7N.noxpbadd lda $d010@J8X.. #$af@V8".stx $02@.8,.clc@*86.adc $02@88@.sta $d010@e8e.ldx #$00@p8j.lda xp@x8t.sec@E8..sbc #$18@S8H.sta $d00a@.8R.sta $d00e@.8..bcc mtsub@.8..ldx xpb@.8..beq mtsub@.8..ldx #$a0@.8..mtsub lda $d010@.8... #$5f@.8..stx $02@.8..clc@.8..adc $02@C9..sta $d010@P9..jmp box.@$9..lessthan lda xp@09..ldx xpb@=9..bne .out@j9H.cmp #$58@w9R.bcs .out@D9£.lda #$58@W9&..out sta $d008@.90.sta $d00c@.9:.cpx #$00@.9d.beq ltnoadd@.9n.ldx #$50@.9x.ltnoadd lda $d010@.9B.. #$af@.9L.stx $02@.9V.clc@.9..adc $02@.9..sta $d010@K:..ldx #$00@X:..lda xpib@ :..sec@-:..sbc #$18@;:..sta $d00a@i:..sta $d00e@w:..bcc ltsub@E:..ldx xpbib@S:..beq ltsub@.:..ldx #$a0@.:..ltsub lda $d010@.:... #$5f@.:B.stx $02@.:L.clc@.:V.adc $02@.: .sta $d010@.:*.box. lda yp@.:4.cmp ypib@.:>.bcc lessy@E;h.lda ypib@S;r.sta $d009@!;£.sta $d00b@,;F.lda yp@4;P.sec@a;Z.sbc #$15@o;..sta $d00d@];..sta $d00f@L;..jmp box.ii@.;..lessy lda yp@.;..sta $d009@.;..sta $d00b@.;..lda ypib@.;..sec@.;..sbc #$15@.;..sta $d00d@.;..sta $d00f@.;..box.ii lda click@.;..bne box.@I<F.jmp boxloop@]<P.box. jmp .rolop@2<0.boxflash lda $a2@=<:.. #$3c@g<d.lsr a@q<n.lsr a@y<x.tax@K<B.lda boxcols,x@Y<L.sta $d02b@.<V.sta $d02c@.<..sta $d02d@.<..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  8e 27 66 9e 43 4d 50 20  23 24 30 30 00 9d 27 70  |.'f.CMP #$00..'p|
00001f90  9e 42 45 51 20 44 4d 4f  56 45 52 00 a9 27 7a 9e  |.BEQ DMOVER..'z.|
00001fa0  53 54 41 20 24 46 45 00  b5 27 84 9e 4c 44 41 20  |STA $FE..'..LDA |
00001fb0  24 46 42 00 bd 27 8e 9e  43 4c 43 00 c9 27 98 9e  |$FB..'..CLC..'..|
00001fc0  41 44 43 20 24 46 43 00  d1 27 a2 9e 53 45 43 00  |ADC $FC..'..SEC.|
00001fd0  de 27 ac 9e 53 42 43 20  23 24 30 43 00 ea 27 b6  |.'..SBC #$0C..'.|
00001fe0  9e 4c 44 58 20 24 46 44  00 f2 27 c0 9e 54 41 59  |.LDX $FD..'..TAY|
00001ff0  00 fd 27 ca 9e af 20 23  24 30 31 00 0b 28 d4 9e  |..'... #$01..(..|
00002000  42 45 51 20 4d 53 4b 49  50 00 13 28 de 9e 54 58  |BEQ MSKIP..(..TX|
00002010  41 00 1d 28 e8 9e 41 53  4c 20 41 00 27 28 f2 9e  |A..(..ASL A.'(..|
00002020  41 53 4c 20 41 00 31 28  fc 9e 41 53 4c 20 41 00  |ASL A.1(..ASL A.|
00002030  3b 28 06 9f 41 53 4c 20  41 00 43 28 10 9f 54 41  |;(..ASL A.C(..TA|
00002040  58 00 51 28 1a 9f 4d 53  4b 49 50 20 54 59 41 00  |X.Q(..MSKIP TYA.|
00002050  5b 28 24 9f 4c 53 52 20  41 00 67 28 2e 9f 53 54  |[($.LSR A.g(..ST|
00002060  41 20 24 30 32 00 74 28  38 9f 4c 44 41 20 23 24  |A $02.t(8.LDA #$|
00002070  30 37 00 7c 28 42 9f 53  45 43 00 88 28 4c 9f 53  |07.|(B.SEC..(L.S|
00002080  42 43 20 24 30 32 00 94  28 56 9f 53 54 41 20 24  |BC $02..(V.STA $|
00002090  30 32 00 a2 28 60 9f 4c  44 41 20 24 34 31 30 32  |02..(`.LDA $4102|
000020a0  00 ac 28 6a 9f 41 53 4c  20 41 00 b6 28 74 9f 41  |..(j.ASL A..(t.A|
000020b0  53 4c 20 41 00 c0 28 7e  9f 41 53 4c 20 41 00 cc  |SL A..(~.ASL A..|
000020c0  28 88 9f 41 44 43 20 24  30 32 00 d8 28 8d 9f 53  |(..ADC $02..(..S|
000020d0  54 41 20 24 32 35 00 e0  28 92 9f 54 41 59 00 ec  |TA $25..(..TAY..|
000020e0  28 9c 9f 53 54 58 20 24  32 34 00 fd 28 a6 9f 44  |(..STX $24..(..D|
000020f0  4d 4c 42 20 4c 44 58 20  24 30 32 00 05 29 b0 9f  |MLB LDX $02..)..|
00002100  53 45 44 00 15 29 ba 9f  4c 44 41 20 24 34 30 30  |SED..)..LDA $400|
00002110  30 2c 59 00 1d 29 c4 9f  43 4c 43 00 29 29 ce 9f  |0,Y..)..CLC.))..|
00002120  41 44 43 20 24 32 34 00  39 29 d8 9f 53 54 41 20  |ADC $24.9)..STA |
00002130  24 34 30 30 30 2c 59 00  46 29 e2 9f 4d 41 4c 50  |$4000,Y.F)..MALP|
00002140  20 43 4c 44 00 55 29 ec  9f 42 43 43 20 4d 41 51  | CLD.U)..BCC MAQ|
00002150  55 49 54 00 5d 29 f6 9f  44 45 59 00 65 29 00 a0  |UIT.])..DEY.e)..|
00002160  44 45 58 00 72 29 0a a0  43 50 58 20 23 24 46 46  |DEX.r)..CPX #$FF|
00002170  00 81 29 14 a0 42 45 51  20 4d 41 51 55 49 54 00  |..)..BEQ MAQUIT.|
00002180  89 29 1e a0 53 45 44 00  99 29 28 a0 4c 44 41 20  |.)..SED..)(.LDA |
00002190  24 34 30 30 30 2c 59 00  a1 29 32 a0 43 4c 43 00  |$4000,Y..)2.CLC.|
000021a0  ae 29 3c a0 41 44 43 20  23 24 30 31 00 be 29 46  |.)<.ADC #$01..)F|
000021b0  a0 53 54 41 20 24 34 30  30 30 2c 59 00 cb 29 50  |.STA $4000,Y..)P|
000021c0  a0 4a 4d 50 20 4d 41 4c  50 00 de 29 5a a0 44 4d  |.JMP MALP..)Z.DM|
000021d0  4f 56 45 52 20 49 4e 43  20 24 46 42 00 ea 29 64  |OVER INC $FB..)d|
000021e0  a0 4c 44 41 20 24 46 42  00 f7 29 6e a0 43 4d 50  |.LDA $FB..)n.CMP|
000021f0  20 23 24 30 45 00 05 2a  78 a0 42 43 43 20 44 4d  | #$0E..*x.BCC DM|
00002200  4c 4f 50 00 11 2a 82 a0  49 4e 43 20 24 46 43 00  |LOP..*..INC $FC.|
00002210  1d 2a 8c a0 4c 44 41 20  24 46 43 00 2a 2a 96 a0  |.*..LDA $FC.**..|
00002220  43 4d 50 20 23 24 30 45  00 39 2a a0 a0 42 43 43  |CMP #$0E.9*..BCC|
00002230  20 a2 44 49 47 49 54 00  46 2a aa a0 4c 44 41 20  | .DIGIT.F*..LDA |
00002240  59 50 49 42 00 53 2a b4  a0 42 45 51 20 51 55 49  |YPIB.S*..BEQ QUI|
00002250  54 00 61 2a be a0 4c 44  41 20 24 34 31 30 32 00  |T.a*..LDA $4102.|
00002260  6f 2a c8 a0 53 54 41 20  24 34 31 30 31 00 7c 2a  |o*..STA $4101.|*|
00002270  d2 a0 4c 44 41 20 23 24  31 44 00 8a 2a dc a0 53  |..LDA #$1D..*..S|
00002280  54 41 20 24 34 31 30 30  00 9b 2a e6 a0 4a 53 52  |TA $4100..*..JSR|
00002290  20 53 55 42 54 52 41 43  54 00 a8 2a f0 a0 51 55  | SUBTRACT..*..QU|
000022a0  49 54 20 52 54 53 00 bb  2a fa a0 4d 41 51 55 49  |IT RTS..*..MAQUI|
000022b0  54 20 4c 44 58 20 24 46  45 00 c3 2a 04 a1 44 45  |T LDX $FE..*..DE|
000022c0  58 00 d2 2a 07 a1 42 45  51 20 44 4d 4f 56 45 52  |X..*..BEQ DMOVER|
000022d0  00 de 2a 0a a1 53 54 58  20 24 46 45 00 ea 2a 0e  |..*..STX $FE..*.|
000022e0  a1 4c 44 59 20 24 32 35  00 f7 2a 18 a1 4a 4d 50  |.LDY $25..*..JMP|
000022f0  20 44 4d 4c 42 00 0a 2b  22 a1 4d 53 55 50 20 4c  | DMLB..+".MSUP L|
00002300  44 41 20 24 34 31 30 30  00 14 2b 2c a1 41 53 4c  |DA $4100..+,.ASL|
00002310  20 41 00 1e 2b 36 a1 41  53 4c 20 41 00 28 2b 40  | A..+6.ASL A.(+@|
00002320  a1 41 53 4c 20 41 00 30  2b 4a a1 54 41 58 00 38  |.ASL A.0+J.TAX.8|
00002330  2b 54 a1 44 45 58 00 44  2b 5e a1 53 54 58 20 24  |+T.DEX.D+^.STX $|
00002340  46 42 00 52 2b 68 a1 4c  44 41 20 24 34 31 30 31  |FB.R+h.LDA $4101|
00002350  00 5c 2b 72 a1 41 53 4c  20 41 00 66 2b 7c a1 41  |.\+r.ASL A.f+|.A|
00002360  53 4c 20 41 00 70 2b 86  a1 41 53 4c 20 41 00 78  |SL A.p+..ASL A.x|
00002370  2b 90 a1 54 41 58 00 80  2b 9a a1 44 45 58 00 8c  |+..TAX..+..DEX..|
00002380  2b a4 a1 53 54 58 20 24  46 44 00 9a 2b ae a1 4c  |+..STX $FD..+..L|
00002390  44 41 20 24 34 31 30 32  00 a4 2b b8 a1 41 53 4c  |DA $4102..+..ASL|
000023a0  20 41 00 ae 2b c2 a1 41  53 4c 20 41 00 b8 2b cc  | A..+..ASL A..+.|
000023b0  a1 41 53 4c 20 41 00 c0  2b d6 a1 54 41 58 00 c8  |.ASL A..+..TAX..|
000023c0  2b e0 a1 44 45 58 00 d4  2b ea a1 53 54 58 20 24  |+..DEX..+..STX $|
000023d0  32 32 00 e1 2b f4 a1 4c  44 41 20 23 24 34 30 00  |22..+..LDA #$40.|
000023e0  ed 2b fe a1 53 54 41 20  24 46 43 00 f9 2b 08 a2  |.+..STA $FC..+..|
000023f0  53 54 41 20 24 46 45 00  05 2c 12 a2 53 54 41 20  |STA $FE..,..STA |
00002400  24 32 33 00 0d 2c 1c a2  52 54 53 00 20 2c 26 a2  |$23..,..RTS. ,&.|
00002410  45 51 55 41 4c 20 4a 53  52 20 4d 53 55 50 00 2d  |EQUAL JSR MSUP.-|
00002420  2c 30 a2 4c 44 59 20 23  24 30 38 00 42 2c 3a a2  |,0.LDY #$08.B,:.|
00002430  45 4c 4f 50 20 4c 44 41  20 28 24 46 42 29 2c 59  |ELOP LDA ($FB),Y|
00002440  00 52 2c 44 a2 53 54 41  20 28 24 32 32 29 2c 59  |.R,D.STA ($22),Y|
00002450  00 5a 2c 4e a2 44 45 59  00 67 2c 58 a2 42 4e 45  |.Z,N.DEY.g,X.BNE|
00002460  20 45 4c 4f 50 00 6f 2c  62 a2 52 54 53 00 84 2c  | ELOP.o,b.RTS..,|
00002470  6c a2 41 44 44 49 54 49  91 20 4a 53 52 20 4d 53  |l.ADDITI. JSR MS|
00002480  55 50 00 91 2c 76 a2 4c  44 59 20 23 24 30 38 00  |UP..,v.LDY #$08.|
00002490  99 2c 80 a2 53 45 44 00  a1 2c 8a a2 43 4c 43 00  |.,..SED..,..CLC.|
000024a0  b7 2c 94 a2 41 44 4c 4f  50 20 4c 44 41 20 28 24  |.,..ADLOP LDA ($|
000024b0  46 42 29 2c 59 00 c7 2c  9e a2 41 44 43 20 28 24  |FB),Y..,..ADC ($|
000024c0  46 44 29 2c 59 00 d7 2c  a8 a2 53 54 41 20 28 24  |FD),Y..,..STA ($|
000024d0  32 32 29 2c 59 00 df 2c  b2 a2 44 45 59 00 ed 2c  |22),Y..,..DEY..,|
000024e0  bc a2 42 4e 45 20 41 44  4c 4f 50 00 f5 2c c6 a2  |..BNE ADLOP..,..|
000024f0  43 4c 44 00 fd 2c d0 a2  52 54 53 00 13 2d da a2  |CLD..,..RTS..-..|
00002500  53 55 42 54 52 41 43 54  20 4a 53 52 20 4d 53 55  |SUBTRACT JSR MSU|
00002510  50 00 20 2d e4 a2 4c 44  59 20 23 24 30 38 00 28  |P. -..LDY #$08.(|
00002520  2d ee a2 53 45 44 00 30  2d f8 a2 53 45 43 00 46  |-..SED.0-..SEC.F|
00002530  2d 02 a3 53 55 4c 4f 50  20 4c 44 41 20 28 24 46  |-..SULOP LDA ($F|
00002540  42 29 2c 59 00 56 2d 0c  a3 53 42 43 20 28 24 46  |B),Y.V-..SBC ($F|
00002550  44 29 2c 59 00 66 2d 16  a3 53 54 41 20 28 24 32  |D),Y.f-..STA ($2|
00002560  32 29 2c 59 00 6e 2d 20  a3 44 45 59 00 7c 2d 2a  |2),Y.n- .DEY.|-*|
00002570  a3 42 4e 45 20 53 55 4c  4f 50 00 84 2d 34 a3 43  |.BNE SULOP..-4.C|
00002580  4c 44 00 8c 2d 3e a3 52  54 53 00 a2 2d 48 a3 4e  |LD..->.RTS..-H.N|
00002590  45 47 41 54 49 56 45 20  4c 44 41 20 23 24 30 30  |EGATIVE LDA #$00|
000025a0  00 aa 2d 52 a3 50 48 41  00 b8 2d 5c a3 4c 44 41  |..-R.PHA..-\.LDA|
000025b0  20 24 34 31 30 30 00 c0  2d 66 a3 54 41 59 00 ca  | $4100..-f.TAY..|
000025c0  2d 70 a3 41 53 4c 20 41  00 d4 2d 7a a3 41 53 4c  |-p.ASL A..-z.ASL|
000025d0  20 41 00 de 2d 84 a3 41  53 4c 20 41 00 e6 2d 8e  | A..-..ASL A..-.|
000025e0  a3 54 41 58 00 f6 2d 98  a3 4c 44 41 20 24 34 30  |.TAX..-..LDA $40|
000025f0  30 31 2c 58 00 03 2e a2  a3 43 4d 50 20 23 24 35  |01,X.....CMP #$5|
00002600  30 00 16 2e a7 a3 42 43  43 20 4e 45 47 52 4d 4f  |0.....BCC NEGRMO|
00002610  56 45 41 42 00 1e 2e ac  a3 50 4c 41 00 2b 2e b6  |VEAB.....PLA.+..|
00002620  a3 41 44 43 20 23 24 30  30 00 33 2e c0 a3 50 48  |.ADC #$00.3...PH|
00002630  41 00 45 2e ca a3 4a 4d  50 20 4e 45 47 52 4d 4f  |A.E...JMP NEGRMO|
00002640  56 45 41 00 5e 2e d4 a3  4e 45 47 52 4d 4f 56 45  |VEA.^...NEGRMOVE|
00002650  41 42 20 4c 44 41 20 24  34 31 30 31 00 66 2e de  |AB LDA $4101.f..|
00002660  a3 54 41 59 00 70 2e e8  a3 41 53 4c 20 41 00 7a  |.TAY.p...ASL A.z|
00002670  2e f2 a3 41 53 4c 20 41  00 84 2e fc a3 41 53 4c  |...ASL A.....ASL|
00002680  20 41 00 8c 2e 06 a4 54  41 58 00 9c 2e 10 a4 4c  | A.....TAX.....L|
00002690  44 41 20 24 34 30 30 31  2c 58 00 a9 2e 1a a4 43  |DA $4001,X.....C|
000026a0  4d 50 20 23 24 35 30 00  b1 2e 24 a4 50 4c 41 00  |MP #$50...$.PLA.|
000026b0  be 2e 2e a4 42 43 43 20  4e 4f 45 b0 00 ca 2e 38  |....BCC NOE....8|
000026c0  a4 45 b0 20 23 24 30 31  00 d2 2e 42 a4 50 48 41  |.E. #$01...B.PHA|
000026d0  00 e4 2e 4c a4 42 43 53  20 4e 45 47 52 4d 4f 56  |...L.BCS NEGRMOV|
000026e0  45 42 00 f7 2e 56 a4 4e  45 47 52 4d 4f 56 45 42  |EB...V.NEGRMOVEB|
000026f0  42 20 50 4c 41 00 09 2f  60 a4 4e 4f 45 b0 20 53  |B PLA../`.NOE. S|
00002700  54 41 20 59 50 49 42 00  11 2f 6a a4 52 54 53 00  |TA YPIB../j.RTS.|
00002710  28 2f 74 a4 4e 45 47 52  4d 4f 56 45 20 4c 44 41  |(/t.NEGRMOVE LDA|
00002720  20 24 34 31 30 30 00 30  2f 7e a4 50 48 41 00 3e  | $4100.0/~.PHA.>|
00002730  2f 88 a4 4c 44 41 20 24  34 31 30 31 00 46 2f 92  |/..LDA $4101.F/.|
00002740  a4 50 48 41 00 54 2f 9c  a4 4c 44 41 20 24 34 31  |.PHA.T/..LDA $41|
00002750  30 32 00 5c 2f a6 a4 50  48 41 00 64 2f b0 a4 54  |02.\/..PHA.d/..T|
00002760  59 41 00 72 2f ba a4 53  54 41 20 24 34 31 30 31  |YA.r/..STA $4101|
00002770  00 80 2f c4 a4 53 54 41  20 24 34 31 30 32 00 8d  |../..STA $4102..|
00002780  2f ce a4 4c 44 41 20 23  24 31 44 00 9b 2f d8 a4  |/..LDA #$1D../..|
00002790  53 54 41 20 24 34 31 30  30 00 ac 2f e2 a4 4a 53  |STA $4100../..JS|
000027a0  52 20 53 55 42 54 52 41  43 54 00 b4 2f ec a4 50  |R SUBTRACT../..P|
000027b0  4c 41 00 c2 2f f6 a4 53  54 41 20 24 34 31 30 32  |LA../..STA $4102|
000027c0  00 ca 2f 00 a5 50 4c 41  00 d8 2f 0a a5 53 54 41  |../..PLA../..STA|
000027d0  20 24 34 31 30 31 00 e0  2f 14 a5 50 4c 41 00 ee  | $4101../..PLA..|
000027e0  2f 1e a5 53 54 41 20 24  34 31 30 30 00 f6 2f 28  |/..STA $4100../(|
000027f0  a5 52 54 53 00 11 30 32  a5 4e 45 47 52 4d 4f 56  |.RTS..02.NEGRMOV|
00002800  45 41 20 4a 53 52 20 4e  45 47 52 4d 4f 56 45 00  |EA JSR NEGRMOVE.|
00002810  24 30 3c a5 4a 4d 50 20  4e 45 47 52 4d 4f 56 45  |$0<.JMP NEGRMOVE|
00002820  41 42 00 3f 30 46 a5 4e  45 47 52 4d 4f 56 45 42  |AB.?0F.NEGRMOVEB|
00002830  20 4a 53 52 20 4e 45 47  52 4d 4f 56 45 00 52 30  | JSR NEGRMOVE.R0|
00002840  50 a5 4a 4d 50 20 4e 45  47 52 4d 4f 56 45 42 42  |P.JMP NEGRMOVEBB|
00002850  00 69 30 5a a5 4d 55 4c  54 49 50 4c 59 20 4c 44  |.i0Z.MULTIPLY LD|
00002860  41 20 24 34 31 30 32 00  71 30 64 a5 50 48 41 00  |A $4102.q0d.PHA.|
00002870  7f 30 6e a5 4c 44 41 20  24 34 31 30 31 00 87 30  |.0n.LDA $4101..0|
00002880  78 a5 50 48 41 00 94 30  82 a5 4c 44 41 20 23 24  |x.PHA..0..LDA #$|
00002890  31 38 00 a2 30 8c a5 53  54 41 20 24 34 31 30 32  |18..0..STA $4102|
000028a0  00 b0 30 96 a5 4a 53 52  20 45 51 55 41 4c 00 be  |..0..JSR EQUAL..|
000028b0  30 a0 a5 49 4e 43 20 24  34 31 30 32 00 c6 30 aa  |0..INC $4102..0.|
000028c0  a5 50 4c 41 00 d4 30 b4  a5 53 54 41 20 24 34 31  |.PLA..0..STA $41|
000028d0  30 30 00 e2 30 be a5 4a  53 52 20 45 51 55 41 4c  |00..0..JSR EQUAL|
000028e0  00 ef 30 c8 a5 4c 44 41  20 23 24 31 38 00 fd 30  |..0..LDA #$18..0|
000028f0  d2 a5 53 54 41 20 24 34  31 30 30 00 0a 31 dc a5  |..STA $4100..1..|
00002900  4c 44 41 20 23 24 31 39  00 18 31 e6 a5 53 54 41  |LDA #$19..1..STA|
00002910  20 24 34 31 30 31 00 20  31 f0 a5 50 4c 41 00 2e  | $4101. 1..PLA..|
00002920  31 fa a5 53 54 41 20 24  34 31 30 32 00 40 31 04  |1..STA $4102.@1.|
00002930  a6 4a 4d 50 20 4d 55 4c  54 49 50 4c 59 42 00 64  |.JMP MULTIPLYB.d|
00002940  31 50 c3 3b 20 20 20 20  20 20 20 20 20 20 20 47  |1P.;           G|
00002950  52 41 50 48 49 43 20 50  4f b5 20 50 4c 4f 54 54  |RAPHIC PO. PLOTT|
00002960  45 52 00 78 31 5a c3 50  4c 4f 54 50 43 20 4c 44  |ER.x1Z.PLOTPC LD|
00002970  41 20 23 24 34 37 00 84  31 64 c3 53 54 41 20 24  |A #$47..1d.STA $|
00002980  46 42 00 91 31 6e c3 4c  44 41 20 23 24 33 46 00  |FB..1n.LDA #$3F.|
00002990  9d 31 78 c3 53 54 41 20  24 46 43 00 ac 31 82 c3  |.1x.STA $FC..1..|
000029a0  4c 44 41 20 59 50 49 58  45 4c 00 b6 31 8c c3 4c  |LDA YPIXEL..1..L|
000029b0  53 52 20 41 00 c0 31 96  c3 4c 53 52 20 41 00 ca  |SR A..1..LSR A..|
000029c0  31 a0 c3 4c 53 52 20 41  00 d7 31 aa c3 53 54 41  |1..LSR A..1..STA|
000029d0  20 59 50 49 42 00 e2 31  b4 c3 af 20 23 24 30 33  | YPIB..1... #$03|
000029e0  00 ec 31 be c3 41 53 4c  20 41 00 f6 31 c8 c3 41  |..1..ASL A..1..A|
000029f0  53 4c 20 41 00 00 32 d2  c3 41 53 4c 20 41 00 0a  |SL A..2..ASL A..|
00002a00  32 dc c3 41 53 4c 20 41  00 14 32 e6 c3 41 53 4c  |2..ASL A..2..ASL|
00002a10  20 41 00 1e 32 f0 c3 41  53 4c 20 41 00 2a 32 fa  | A..2..ASL A.*2.|
00002a20  c3 53 54 41 20 24 30 32  00 36 32 04 c4 4c 44 41  |.STA $02.62..LDA|
00002a30  20 24 46 42 00 3e 32 0e  c4 53 45 43 00 4a 32 18  | $FB.>2..SEC.J2.|
00002a40  c4 53 42 43 20 24 30 32  00 56 32 22 c4 53 54 41  |.SBC $02.V2".STA|
00002a50  20 24 46 42 00 62 32 2c  c4 4c 44 41 20 24 46 43  | $FB.b2,.LDA $FC|
00002a60  00 6f 32 36 c4 53 42 43  20 23 24 30 30 00 7c 32  |.o26.SBC #$00.|2|
00002a70  3b c4 53 42 43 20 59 50  49 42 00 84 32 40 c4 50  |;.SBC YPIB..2@.P|
00002a80  48 41 00 91 32 4a c4 4c  44 41 20 59 50 49 42 00  |HA..2J.LDA YPIB.|
00002a90  9b 32 54 c4 4c 53 52 20  41 00 a5 32 5e c4 4c 53  |.2T.LSR A..2^.LS|
00002aa0  52 20 41 00 b1 32 68 c4  53 54 41 20 24 30 32 00  |R A..2h.STA $02.|
00002ab0  b9 32 72 c4 50 4c 41 00  c1 32 7c c4 53 45 43 00  |.2r.PLA..2|.SEC.|
00002ac0  cd 32 86 c4 53 42 43 20  24 30 32 00 d9 32 90 c4  |.2..SBC $02..2..|
00002ad0  53 54 41 20 24 46 43 00  e8 32 9a c4 4c 44 41 20  |STA $FC..2..LDA |
00002ae0  59 50 49 58 45 4c 00 f3  32 a4 c4 af 20 23 24 30  |YPIXEL..2... #$0|
00002af0  37 00 00 33 ae c4 53 54  41 20 59 50 49 42 00 0c  |7..3..STA YPIB..|
00002b00  33 b8 c4 4c 44 41 20 24  46 42 00 14 33 c2 c4 53  |3..LDA $FB..3..S|
00002b10  45 43 00 21 33 cc c4 53  42 43 20 59 50 49 42 00  |EC.!3..SBC YPIB.|
00002b20  29 33 d6 c4 50 48 41 00  38 33 e0 c4 4c 44 41 20  |)3..PHA.83..LDA |
00002b30  58 50 49 58 45 4c 00 43  33 ea c4 af 20 23 24 46  |XPIXEL.C3... #$F|
00002b40  38 00 50 33 f4 c4 53 54  41 20 59 50 49 42 00 58  |8.P3..STA YPIB.X|
00002b50  33 fe c4 50 4c 41 00 60  33 08 c5 43 4c 43 00 6d  |3..PLA.`3..CLC.m|
00002b60  33 12 c5 41 44 43 20 59  50 49 42 00 79 33 1c c5  |3..ADC YPIB.y3..|
00002b70  53 54 41 20 24 46 42 00  85 33 26 c5 4c 44 41 20  |STA $FB..3&.LDA |
00002b80  24 46 43 00 92 33 30 c5  53 42 43 20 23 24 30 30  |$FC..30.SBC #$00|
00002b90  00 9e 33 3a c5 53 54 41  20 24 46 43 00 ad 33 44  |..3:.STA $FC..3D|
00002ba0  c5 4c 44 41 20 58 50 49  58 45 4c 00 b8 33 4e c5  |.LDA XPIXEL..3N.|
00002bb0  af 20 23 24 30 37 00 c0  33 58 c5 54 41 58 00 cd  |. #$07..3X.TAX..|
00002bc0  33 62 c5 4c 44 41 20 23  24 38 30 00 e1 33 6c c5  |3b.LDA #$80..3l.|
00002bd0  47 42 49 54 4c 50 20 43  50 58 20 23 24 30 30 00  |GBITLP CPX #$00.|
00002be0  ed 33 76 c5 42 45 51 20  50 50 9a 00 f7 33 80 c5  |.3v.BEQ PP...3..|
00002bf0  4c 53 52 20 41 00 ff 33  8a c5 44 45 58 00 0e 34  |LSR A..3..DEX..4|
00002c00  94 c5 4a 4d 50 20 47 42  49 54 4c 50 00 1e 34 9e  |..JMP GBITLP..4.|
00002c10  c5 50 50 9a 20 53 54 41  20 24 46 44 00 26 34 a8  |.PP. STA $FD.&4.|
00002c20  c5 52 54 53 00 3b 34 b2  c5 50 4c 4f a4 4e 20 4a  |.RTS.;4..PLO.N J|
00002c30  53 52 20 50 4c 4f 54 50  43 00 48 34 bc c5 4c 44  |SR PLOTPC.H4..LD|
00002c40  59 20 23 24 30 30 00 58  34 c6 c5 4c 44 41 20 28  |Y #$00.X4..LDA (|
00002c50  24 46 42 29 2c 59 00 63  34 d0 c5 b0 41 20 24 46  |$FB),Y.c4...A $F|
00002c60  44 00 73 34 da c5 53 54  41 20 28 24 46 42 29 2c  |D.s4..STA ($FB),|
00002c70  59 00 7b 34 e4 c5 52 54  53 00 91 34 ee c5 50 4c  |Y.{4..RTS..4..PL|
00002c80  4f a4 46 46 20 4a 53 52  20 50 4c 4f 54 50 43 00  |O.FF JSR PLOTPC.|
00002c90  9d 34 f8 c5 4c 44 41 20  24 46 44 00 a9 34 02 c6  |.4..LDA $FD..4..|
00002ca0  45 b0 20 23 24 46 46 00  b5 34 0c c6 53 54 41 20  |E. #$FF..4..STA |
00002cb0  24 46 44 00 c2 34 16 c6  4c 44 59 20 23 24 30 30  |$FD..4..LDY #$00|
00002cc0  00 d2 34 20 c6 4c 44 41  20 28 24 46 42 29 2c 59  |..4 .LDA ($FB),Y|
00002cd0  00 dc 34 2a c6 af 20 24  46 44 00 ec 34 34 c6 53  |..4*.. $FD..44.S|
00002ce0  54 41 20 28 24 46 42 29  2c 59 00 f4 34 3e c6 52  |TA ($FB),Y..4>.R|
00002cf0  54 53 00 08 35 48 c6 50  4c 4f 54 20 4c 44 41 20  |TS..5H.PLOT LDA |
00002d00  43 4f 4c 4f 55 52 00 13  35 52 c6 af 20 23 24 30  |COLOUR..5R.. #$0|
00002d10  32 00 20 35 5c c6 42 4e  45 20 50 50 41 91 00 2f  |2. 5\.BNE PPA../|
00002d20  35 66 c6 4a 53 52 20 50  4c 4f a4 46 46 00 3e 35  |5f.JSR PLO.FF.>5|
00002d30  70 c6 4a 4d 50 20 50 50  41 43 4e 54 00 51 35 7a  |p.JMP PPACNT.Q5z|
00002d40  c6 50 50 41 91 20 4a 53  52 20 50 4c 4f a4 4e 00  |.PPA. JSR PLO.N.|
00002d50  67 35 84 c6 50 50 41 43  4e 54 20 49 4e 43 20 58  |g5..PPACNT INC X|
00002d60  50 49 58 45 4c 00 76 35  8e c6 4c 44 41 20 43 4f  |PIXEL.v5..LDA CO|
00002d70  4c 4f 55 52 00 81 35 98  c6 af 20 23 24 30 31 00  |LOUR..5... #$01.|
00002d80  8e 35 a2 c6 42 4e 45 20  50 50 42 91 00 9d 35 ac  |.5..BNE PPB...5.|
00002d90  c6 4a 53 52 20 50 4c 4f  a4 46 46 00 ac 35 b6 c6  |.JSR PLO.FF..5..|
00002da0  4a 4d 50 20 50 50 42 43  4e 54 00 bf 35 c0 c6 50  |JMP PPBCNT..5..P|
00002db0  50 42 91 20 4a 53 52 20  50 4c 4f a4 4e 00 d5 35  |PB. JSR PLO.N..5|
00002dc0  ca c6 50 50 42 43 4e 54  20 49 4e 43 20 58 50 49  |..PPBCNT INC XPI|
00002dd0  58 45 4c 00 dd 35 d4 c6  52 54 53 00 03 36 60 ea  |XEL..5..RTS..6`.|
00002de0  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00002df0  20 20 20 20 5a 4f 4f 4d  20 52 4f 55 54 49 4e 45  |    ZOOM ROUTINE|
00002e00  53 00 12 36 6a ea 42 4f  58 20 4c 44 41 20 58 50  |S..6j.BOX LDA XP|
00002e10  00 1f 36 74 ea 53 54 41  20 58 50 49 42 00 2a 36  |..6t.STA XPIB.*6|
00002e20  7e ea 4c 44 41 20 59 50  00 37 36 88 ea 53 54 41  |~.LDA YP.76..STA|
00002e30  20 59 50 49 42 00 43 36  92 ea 4c 44 41 20 58 50  | YPIB.C6..LDA XP|
00002e40  42 00 51 36 9c ea 53 54  41 20 58 50 42 49 42 00  |B.Q6..STA XPBIB.|
00002e50  5e 36 a6 ea 4c 44 58 20  23 24 33 43 00 6c 36 b0  |^6..LDX #$3C.l6.|
00002e60  ea 53 54 58 20 24 30 37  46 43 00 74 36 ba ea 49  |.STX $07FC.t6..I|
00002e70  4e 58 00 82 36 c4 ea 53  54 58 20 24 30 37 46 44  |NX..6..STX $07FD|
00002e80  00 8a 36 ce ea 49 4e 58  00 98 36 d8 ea 53 54 58  |..6..INX..6..STX|
00002e90  20 24 30 37 46 45 00 a0  36 e2 ea 49 4e 58 00 ae  | $07FE..6..INX..|
00002ea0  36 ec ea 53 54 58 20 24  30 37 46 46 00 bc 36 f6  |6..STX $07FF..6.|
00002eb0  ea 4c 44 41 20 24 44 30  31 35 00 c8 36 00 eb b0  |.LDA $D015..6...|
00002ec0  41 20 23 24 46 30 00 d6  36 0a eb 53 54 41 20 24  |A #$F0..6..STA $|
00002ed0  44 30 31 35 00 e9 36 14  eb 42 4f 58 92 20 4c 44  |D015..6..BOX. LD|
00002ee0  41 20 43 4c 49 43 4b 00  f6 36 1e eb 42 4e 45 20  |A CLICK..6..BNE |
00002ef0  42 4f 58 92 00 0c 37 78  eb 42 4f 58 4c 4f 4f 50  |BOX...7x.BOXLOOP|
00002f00  20 4c 44 41 20 58 50 42  49 42 00 18 37 82 eb 43  | LDA XPBIB..7..C|
00002f10  4d 50 20 58 50 42 00 2a  37 8c eb 42 45 51 20 43  |MP XPB.*7..BEQ C|
00002f20  48 45 43 4b 46 49 4e 45  00 3b 37 96 eb 42 43 53  |HECKFINE.;7..BCS|
00002f30  20 4c 45 53 53 54 48 41  4e 00 4b 37 a0 eb 4a 4d  | LESSTHAN.K7..JM|
00002f40  50 20 4d b0 45 54 48 41  4e 00 62 37 aa eb 43 48  |P M.ETHAN.b7..CH|
00002f50  45 43 4b 46 49 4e 45 20  4c 44 41 20 58 50 49 42  |ECKFINE LDA XPIB|
00002f60  00 6d 37 b4 eb 43 4d 50  20 58 50 00 7e 37 be eb  |.m7..CMP XP.~7..|
00002f70  42 43 53 20 4c 45 53 53  54 48 41 4e 00 93 37 c8  |BCS LESSTHAN..7.|
00002f80  eb 4d b0 45 54 48 41 4e  20 4c 44 41 20 58 50 49  |.M.ETHAN LDA XPI|
00002f90  42 00 a1 37 d2 eb 53 54  41 20 24 44 30 30 38 00  |B..7..STA $D008.|
00002fa0  af 37 dc eb 53 54 41 20  24 44 30 30 43 00 bc 37  |.7..STA $D00C..7|
00002fb0  e6 eb 4c 44 58 20 23 24  30 30 00 ca 37 f0 eb 4c  |..LDX #$00..7..L|
00002fc0  44 41 20 58 50 42 49 42  00 db 37 fa eb 42 45 51  |DA XPBIB..7..BEQ|
00002fd0  20 4e 4f 58 50 42 41 44  44 00 e8 37 04 ec 4c 44  | NOXPBADD..7..LD|
00002fe0  58 20 23 24 35 30 00 ff  37 0e ec 4e 4f 58 50 42  |X #$50..7..NOXPB|
00002ff0  41 44 44 20 4c 44 41 20  24 44 30 31 30 00 0a 38  |ADD LDA $D010..8|
00003000  18 ec af 20 23 24 41 46  00 16 38 22 ec 53 54 58  |... #$AF..8".STX|
00003010  20 24 30 32 00 1e 38 2c  ec 43 4c 43 00 2a 38 36  | $02..8,.CLC.*86|
00003020  ec 41 44 43 20 24 30 32  00 38 38 40 ec 53 54 41  |.ADC $02.88@.STA|
00003030  20 24 44 30 31 30 00 45  38 45 ec 4c 44 58 20 23  | $D010.E8E.LDX #|
00003040  24 30 30 00 50 38 4a ec  4c 44 41 20 58 50 00 58  |$00.P8J.LDA XP.X|
00003050  38 54 ec 53 45 43 00 65  38 5e ec 53 42 43 20 23  |8T.SEC.e8^.SBC #|
00003060  24 31 38 00 73 38 68 ec  53 54 41 20 24 44 30 30  |$18.s8h.STA $D00|
00003070  41 00 81 38 72 ec 53 54  41 20 24 44 30 30 45 00  |A..8r.STA $D00E.|
00003080  8f 38 7c ec 42 43 43 20  4d 54 53 55 42 00 9b 38  |.8|.BCC MTSUB..8|
00003090  86 ec 4c 44 58 20 58 50  42 00 a9 38 90 ec 42 45  |..LDX XPB..8..BE|
000030a0  51 20 4d 54 53 55 42 00  b6 38 9a ec 4c 44 58 20  |Q MTSUB..8..LDX |
000030b0  23 24 41 30 00 ca 38 a4  ec 4d 54 53 55 42 20 4c  |#$A0..8..MTSUB L|
000030c0  44 41 20 24 44 30 31 30  00 d5 38 ae ec af 20 23  |DA $D010..8... #|
000030d0  24 35 46 00 e1 38 b8 ec  53 54 58 20 24 30 32 00  |$5F..8..STX $02.|
000030e0  e9 38 c2 ec 43 4c 43 00  f5 38 cc ec 41 44 43 20  |.8..CLC..8..ADC |
000030f0  24 30 32 00 03 39 d6 ec  53 54 41 20 24 44 30 31  |$02..9..STA $D01|
00003100  30 00 10 39 e0 ec 4a 4d  50 20 42 4f 58 9a 00 24  |0..9..JMP BOX..$|
00003110  39 ea ec 4c 45 53 53 54  48 41 4e 20 4c 44 41 20  |9..LESSTHAN LDA |
00003120  58 50 00 30 39 f4 ec 4c  44 58 20 58 50 42 00 3d  |XP.09..LDX XPB.=|
00003130  39 fe ec 42 4e 45 20 a8  4f 55 54 00 4a 39 08 ed  |9..BNE .OUT.J9..|
00003140  43 4d 50 20 23 24 35 38  00 57 39 12 ed 42 43 53  |CMP #$58.W9..BCS|
00003150  20 a8 4f 55 54 00 64 39  1c ed 4c 44 41 20 23 24  | .OUT.d9..LDA #$|
00003160  35 38 00 77 39 26 ed a8  4f 55 54 20 53 54 41 20  |58.w9&..OUT STA |
00003170  24 44 30 30 38 00 85 39  30 ed 53 54 41 20 24 44  |$D008..90.STA $D|
00003180  30 30 43 00 92 39 3a ed  43 50 58 20 23 24 30 30  |00C..9:.CPX #$00|
00003190  00 a2 39 44 ed 42 45 51  20 4c 54 4e 4f 41 44 44  |..9D.BEQ LTNOADD|
000031a0  00 af 39 4e ed 4c 44 58  20 23 24 35 30 00 c5 39  |..9N.LDX #$50..9|
000031b0  58 ed 4c 54 4e 4f 41 44  44 20 4c 44 41 20 24 44  |X.LTNOADD LDA $D|
000031c0  30 31 30 00 d0 39 62 ed  af 20 23 24 41 46 00 dc  |010..9b.. #$AF..|
000031d0  39 6c ed 53 54 58 20 24  30 32 00 e4 39 76 ed 43  |9l.STX $02..9v.C|
000031e0  4c 43 00 f0 39 80 ed 41  44 43 20 24 30 32 00 fe  |LC..9..ADC $02..|
000031f0  39 8a ed 53 54 41 20 24  44 30 31 30 00 0b 3a 8f  |9..STA $D010..:.|
00003200  ed 4c 44 58 20 23 24 30  30 00 18 3a 94 ed 4c 44  |.LDX #$00..:..LD|
00003210  41 20 58 50 49 42 00 20  3a 9e ed 53 45 43 00 2d  |A XPIB. :..SEC.-|
00003220  3a a8 ed 53 42 43 20 23  24 31 38 00 3b 3a b2 ed  |:..SBC #$18.;:..|
00003230  53 54 41 20 24 44 30 30  41 00 49 3a bc ed 53 54  |STA $D00A.I:..ST|
00003240  41 20 24 44 30 30 45 00  57 3a c6 ed 42 43 43 20  |A $D00E.W:..BCC |
00003250  4c 54 53 55 42 00 65 3a  d0 ed 4c 44 58 20 58 50  |LTSUB.e:..LDX XP|
00003260  42 49 42 00 73 3a da ed  42 45 51 20 4c 54 53 55  |BIB.s:..BEQ LTSU|
00003270  42 00 80 3a e4 ed 4c 44  58 20 23 24 41 30 00 94  |B..:..LDX #$A0..|
00003280  3a ee ed 4c 54 53 55 42  20 4c 44 41 20 24 44 30  |:..LTSUB LDA $D0|
00003290  31 30 00 9f 3a f8 ed af  20 23 24 35 46 00 ab 3a  |10..:... #$5F..:|
000032a0  02 ee 53 54 58 20 24 30  32 00 b3 3a 0c ee 43 4c  |..STX $02..:..CL|
000032b0  43 00 bf 3a 16 ee 41 44  43 20 24 30 32 00 cd 3a  |C..:..ADC $02..:|
000032c0  20 ee 53 54 41 20 24 44  30 31 30 00 dd 3a 2a ee  | .STA $D010..:*.|
000032d0  42 4f 58 9a 20 4c 44 41  20 59 50 00 ea 3a 34 ee  |BOX. LDA YP..:4.|
000032e0  43 4d 50 20 59 50 49 42  00 f8 3a 3e ee 42 43 43  |CMP YPIB..:>.BCC|
000032f0  20 4c 45 53 53 59 00 05  3b 48 ee 4c 44 41 20 59  | LESSY..;H.LDA Y|
00003300  50 49 42 00 13 3b 52 ee  53 54 41 20 24 44 30 30  |PIB..;R.STA $D00|
00003310  39 00 21 3b 5c ee 53 54  41 20 24 44 30 30 42 00  |9.!;\.STA $D00B.|
00003320  2c 3b 66 ee 4c 44 41 20  59 50 00 34 3b 70 ee 53  |,;f.LDA YP.4;p.S|
00003330  45 43 00 41 3b 7a ee 53  42 43 20 23 24 31 35 00  |EC.A;z.SBC #$15.|
00003340  4f 3b 84 ee 53 54 41 20  24 44 30 30 44 00 5d 3b  |O;..STA $D00D.];|
00003350  8e ee 53 54 41 20 24 44  30 30 46 00 6c 3b 98 ee  |..STA $D00F.l;..|
00003360  4a 4d 50 20 42 4f 58 9a  49 49 00 7d 3b a2 ee 4c  |JMP BOX.II.};..L|
00003370  45 53 53 59 20 4c 44 41  20 59 50 00 8b 3b ac ee  |ESSY LDA YP..;..|
00003380  53 54 41 20 24 44 30 30  39 00 99 3b b6 ee 53 54  |STA $D009..;..ST|
00003390  41 20 24 44 30 30 42 00  a6 3b c0 ee 4c 44 41 20  |A $D00B..;..LDA |
000033a0  59 50 49 42 00 ae 3b ca  ee 53 45 43 00 bb 3b d4  |YPIB..;..SEC..;.|
000033b0  ee 53 42 43 20 23 24 31  35 00 c9 3b de ee 53 54  |.SBC #$15..;..ST|
000033c0  41 20 24 44 30 30 44 00  d7 3b e8 ee 53 54 41 20  |A $D00D..;..STA |
000033d0  24 44 30 30 46 00 ec 3b  f2 ee 42 4f 58 9a 49 49  |$D00F..;..BOX.II|
000033e0  20 4c 44 41 20 43 4c 49  43 4b 00 f9 3b fc ee 42  | LDA CLICK..;..B|
000033f0  4e 45 20 42 4f 58 80 00  09 3c 06 ef 4a 4d 50 20  |NE BOX...<..JMP |
00003400  42 4f 58 4c 4f 4f 50 00  1d 3c 10 ef 42 4f 58 80  |BOXLOOP..<..BOX.|
00003410  20 4a 4d 50 20 9a 52 4f  4c 4f 50 00 32 3c 30 f2  | JMP .ROLOP.2<0.|
00003420  42 4f 58 46 4c 41 53 48  20 4c 44 41 20 24 41 32  |BOXFLASH LDA $A2|
00003430  00 3d 3c 3a f2 af 20 23  24 33 43 00 47 3c 44 f2  |.=<:.. #$3C.G<D.|
00003440  4c 53 52 20 41 00 51 3c  4e f2 4c 53 52 20 41 00  |LSR A.Q<N.LSR A.|
00003450  59 3c 58 f2 54 41 58 00  6b 3c 62 f2 4c 44 41 20  |Y<X.TAX.k<b.LDA |
00003460  42 4f 58 43 4f 4c 53 2c  58 00 79 3c 6c f2 53 54  |BOXCOLS,X.y<l.ST|
00003470  41 20 24 44 30 32 42 00  87 3c 76 f2 53 54 41 20  |A $D02B..<v.STA |
00003480  24 44 30 32 43 00 95 3c  80 f2 53 54 41 20 24 44  |$D02C..<..STA $D|
00003490  30 32 44 00 a3 3c 8a f2  53 54 41 20 24 44 30 32  |02D..<..STA $D02|
000034a0  45 00 b1 3c 94 f2 4a 4d  50 20 24 45 41 33 31 00  |E..<..JMP $EA31.|
000034b0  d3 3c 9e f2 42 4f 58 43  4f 4c 53 20 54 58 54 20  |.<..BOXCOLS TXT |
000034c0  30 2c 39 2c 32 2c 38 2c  31 30 2c 37 2c 31 33 2c  |0,9,2,8,10,7,13,|
000034d0  31 00 ed 3c a8 f2 54 58  54 20 31 2c 31 33 2c 33  |1..<..TXT 1,13,3|
000034e0  2c 35 2c 31 34 2c 34 2c  36 2c 30 00 00 00        |,5,14,4,6,0...|
000034ee