;MANDLEPLOT";SOURCE CODE0;22/10/956(;Bd��$C000SnXPIXEL�$4103dxYPIXEL�$4104u�COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B��HOUR�$410C	,
;                      SPRITE DATA		1
;1	6
TXT 224,000,000,176,000,000,152,000Y	@
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,000I
|
TXT 000,000,000,000,000,000,000,153O
�
;w
�
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,000�
TXT 000,006,000,000,006,000,000,003?�
TXT 000,000,003,000,000,003,000,000g�
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,0005�
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,192+
0TXT 000,255,192,000,127,128,000,127S
: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,000�
bTXT 000,000,000,000,000,000,000,000lTXT 000,000,000,000,000,000,000,197!q;IvTXT 168,000,000,000,000,000,128,000q�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,000�TXT 000,000,000,000,000,000,000,0009�TXT 000,000,000,000,000,000,000,000a�TXT 000,000,000,000,000,000,000,197g�;��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,000/�TXT 000,000,000,000,000,000,000,000W�TXT 000,000,000,000,000,000,000,000TXT 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,000M4TXT 000,000,000,000,000,000,000,000u>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,000�a;fTXT 000,000,000,000,000,000,000,000CpTXT 000,000,000,000,000,000,000,000kzTXT 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,0003�TXT 001,000,000,000,000,000,021,0009�;_�.;                   WIMP ROUTINESr�.; WIMP - MOUSE��.IRQ LDA #$00�/STA CLICK�/LDA $C5�/CMP #$01�&/BNE C�CHECK�0/STA CLICK�:/C�CHECK CMP #$0C�D/BEQ LEFTK�N/LKC CMP #$17X/BEQ RIGHTKb/RKC CMP #$32(l/BEQ UPK:v/UPKC CMP #$37H�/BEQ DOWNKZ�/DKC LDA $DC00e�/� #$01q�/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 CJCH740STA CLICKJ>0CJCH JMP $EA31]H0LEFTK JSR LEFTiR0JMP 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 LJC3�0RIGHTJ JSR RIGHT?�0JMP RJCO�0LEFT DEC XPZ�0LDA XPg�0CMP #$FFs1BNE �FF�1LDY #$00�1STY XPB�$1�FF LDY XPB�.1BNE FIN�81CMP #$18�B1BNE FIN�L1INC XP�V1FIN JMP �ROL�`1RIGHT INC XP�j1LDA XPt1BNE �00~1LDY #$01�1STY XPB.�1�00 LDY XPB:�1BEQ FING�1CMP #$58S�1BNE FIN^�1DEC XPk�1JMP �ROLy�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 HOUR6Z2BEQ NHGLASSC�3LDX #$3AQ�3STX $07F8Y�3INXg�3STX $07F9z�3NHGLASS LDA XP��3STA $D000��3STA $D002��3LDA YP��3STA $D001��3STA $D003��3LDA $D010�4� #$FC�4LSR A�4CLC�&4ADC XPB�04ASL A:4CLCD4ADC XPB N4STA $D010-X4LDA #$00;b4STA $D027Hl4LDA #$01Vv4STA $D028d�4LDA $D015p�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 $D0205STA $D021&5STA XP35STA HOURA 5STA $D015N*5LDA #$01Z45STA XPBg>5LDA #$80rH5STA 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 FLOPINC0�5CPY #$F8=�5BNE FLOPI�5LDX $FCV�5CPX #$07c�5BNE FLOPp6JSR LEFTx6SEI�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 $FC/�6LDX $FC<�6CPX #$DCJ�6BNE FLOPBW�6LDA #$18e�6STA $D018m4: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 #$C8.�:STA $D0166�:RTSZ0u;          M�LEBROT SET PLOTTERl: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 EQUAL;�uMMAINLB LDA #$05I�uSTA $4100V�uLDA #$07d�uSTA $4102r�uJSR EQUAL��uINC $4100�vINC $4102�vJSR EQUAL�vLDA #$00� vSTA COLOUR�*vLOOP LDA #$07�4vSTA $4100�>vSTA $4101�HvLDA #$10
RvSTA $4102\vJSR MULTIPLYfvLDA #$08-pvSTA $4100;zvSTA $4101H�vLDA #$11V�vSTA $4102g�vJSR MULTIPLYt�vLDX #$10��vSTX $4100��vINX��vSTX $4101��vINX��vSTX $4102��vJSR ADDITI���vLDA $4091��vCMP #$04��vBCC FAIL�wCMP #$50 wBCS FAIL wSUCPASS JMP SUCCESS, $wFAIL INC COLOUR; )wLDA COLOURJ .wCMP MAXCOLZ 8wBEQ SUCPASSk BwJSR SUBTRACTx 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 MULTIPLY.!�wLDA #$14<!�wSTA $4100I!�wLDA #$1CW!�wSTA $4101d!�wLDA #$15r!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 $4102("�xJSR EQUAL5"�xLDA #$16C"�xSTA $4100P"�xLDA #$08^"�xSTA $4102l"�xJSR EQUALy"�xJMP LOOP�"�xSUCCESS JSR PLOT�"�xLDA #$05�"�xSTA $4100�"�xSTA $4102�"�xLDA #$02�"�xSTA $4101�"yJSR ADDITI��"yLDA XPIXEL#yBNE XRELOP
#"yLDA #$06#,ySTA $4100)#6ySTA $41026#@yLDA #$04D#JySTA $4101T#TyJSR ADDITI�c#^yINC YPIXELr#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 $02*$|�TXA4$��LSR A@$��STA $24M$��LDA #$07U$��SECa$��SBC $24i$��CLCu$œ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�RTS5%l�MULTIPLYB JSR NEGATIVEC%q�LDA $4102M%v�ASL AW%��ASL Aa%��ASL Ai%��TAXv%��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 DMOVER0&*�STA $FD=&4�LDA #$06I&>�STA $FB]&H�DMLOP LDA $4100i&R�LDX $FBx&\�JSR �DIGIT�&f�DMLB CMP #$00�&p�BEQ DMOVER�&z�STA $FE�&��LDA $FB�&��CLC�&��ADC $FC�&��SEC�&��SBC #$0C�&��LDX $FD�&��TAY�&ʞ� #$01'ԞBEQ MSKIP'ޞTXA'�ASL A#'�ASL A-'��ASL A7'�ASL A?'�TAXM'�MSKIP TYAW'$�LSR Ac'.�STA $02p'8�LDA #$07x'B�SEC�'L�SBC $02�'V�STA $02�'`�LDA $4102�'j�ASL A�'t�ASL A�'~�ASL A�'��ADC $02�'��TAY�'��STX $24�'��LDX $02�'��SED(��LDA $4000,Y(ğCLC(ΟADC $24$(؟STA $4000,Y1(�MALP CLD@(�BCC MAQUITH(��DEYP(�DEX](
�CPX #$FFl(�BEQ MAQUITt(�SED�((�LDA $4000,Y�(2�CLC�(<�ADC #$01�(F�STA $4000,Y�(P�JMP MALP�(Z�DMOVER INC $FB�(d�LDA $FB�(n�CMP #$0E�(x�BCC DMLOP�(��INC $FC)��LDA $FC)��CMP #$0E$)��BCC �DIGIT1)��LDA YPIB>)��BEQ QUITL)��LDA $4102Z)ȠSTA $4101g)ҠLDA #$1Du)ܠSTA $4100�)�JSR SUBTRACT�)�QUIT RTS�)��MAQUIT LDX $FE�)�DEX�)�TXA�)�JMP DMLB�)"�MSUP LDA $4100�),�ASL A�)6�ASL A�)@�ASL A�)J�TAX*T�DEX*^�STX $FB*h�LDA $4101(*r�ASL A2*|�ASL A<*��ASL AD*��TAXL*��DEXX*��STX $FDf*��LDA $4102p*��ASL Az*¡ASL A�*̡ASL A�*֡TAX�*�DEX�*�STX $22�*�LDA #$40�*��STA $FC�*�STA $FE�*�STA $23�*�RTS�*&�EQUAL JSR MSUP�*0�LDY #$08+:�ELOP LDA ($FB),Y+D�STA ($22),Y&+N�DEY3+X�BNE ELOP;+b�RTSP+l�ADDITI� JSR MSUP]+v�LDY #$08e+��SEDm+��CLC�+��ADLOP LDA ($FB),Y�+��ADC ($FD),Y�+��STA ($22),Y�+��DEY�+��BNE ADLOP�+ƢCLD�+ТRTS�+ڢSUBTRACT JSR MSUP�+�LDY #$08�+�SED�+��SEC,�SULOP LDA ($FB),Y",�SBC ($FD),Y2,�STA ($22),Y:, �DEYH,*�BNE SULOPP,4�CLDX,>�RTSn,H�NEGATIVE LDA #$00v,R�PHA�,\�LDA $4100�,f�TAY�,p�ASL A�,z�ASL A�,��ASL A�,��TAX�,��LDA $4001,X�,��CMP #$50�,��BCC NEGRMOVEAB�,��PLA�,��ADC #$00�,��PHA-ʣJMP NEGRMOVEA*-ԣNEGRMOVEAB LDA $41012-ޣTAY<-�ASL AF-�ASL AP-��ASL AX-�TAXh-�LDA $4001,Xu-�CMP #$50}-$�PLA�-.�BCC NOE��-8�E� #$01�-B�PHA�-L�BCS NEGRMOVEB�-V�NEGRMOVEBB PLA�-`�NOE� STA YPIB�-j�RTS�-t�NEGRMOVE LDA $4100�-~�PHA
.��LDA $4101.��PHA .��LDA $4102(.��PHA0.��TYA>.��STA $4101L.ĤSTA $4102Y.ΤLDA #$1Dg.ؤSTA $4100x.�JSR SUBTRACT�.�PLA�.��STA $4102�.�PLA�.
�STA $4101�.�PLA�.�STA $4100�.(�RTS�.2�NEGRMOVEA JSR NEGRMOVE�.<�JMP NEGRMOVEAB/F�NEGRMOVEB JSR NEGRMOVE/P�JMP NEGRMOVEBB5/Z�MULTIPLY LDA $4102=/d�PHAK/n�LDA $4101S/x�PHA`/��LDA #$18n/��STA $4102|/��JSR EQUAL�/��INC $4102�/��PLA�/��STA $4100�/��JSR EQUAL�/ȥLDA #$18�/ҥSTA $4100�/ܥLDA #$19�/�STA $4101�/�PLA�/��STA $41020�JMP MULTIPLYB00P�;           GRAPHIC PO� PLOTTERD0Z�PLOTPC LDA #$47P0d�STA $FB]0n�LDA #$3Fi0x�STA $FCx0��LDA YPIXEL�0��LSR A�0��LSR A�0��LSR A�0��STA YPIB�0�ï #$03�0��ASL A�0��ASL A�0��ASL A�0��ASL A�0��ASL A�0��ASL A�0��STA $021�LDA $FB
1�SEC1�SBC $02"1"�STA $FB.1,�LDA $FC;16�SBC #$00H1;�SBC YPIBP1@�PHA]1J�LDA YPIBg1T�LSR Aq1^�LSR A}1h�STA $02�1r�PLA�1|�SEC�1��SBC $02�1��STA $FC�1��LDA YPIXEL�1�į #$07�1��STA YPIB�1��LDA $FB�1��SEC�1��SBC YPIB�1��PHA2��LDA XPIXEL2�į #$F82��STA YPIB$2��PLA,2�CLC92�ADC YPIBE2�STA $FBQ2&�LDA $FC^20�SBC #$00j2:�STA $FCy2D�LDA XPIXEL�2Nů #$07�2X�TAX�2b�LDA #$80�2l�GBITLP CPX #$00�2v�BEQ PP��2��LSR A�2��DEX�2��JMP GBITLP�2��PP� STA $FD�2��RTS3��PLO�N JSR PLOTPC3��LDY #$00$3��LDA ($FB),Y/3�ŰA $FD?3��STA ($FB),YG3��RTS]3��PLO�FF JSR PLOTPCi3��LDA $FDu3�E� #$FF�3�STA $FD�3�LDY #$00�3 �LDA ($FB),Y�3*Ư $FD�34�STA ($FB),Y�3>�RTS�3H�PLOT LDA COLOUR�3RƯ #$02�3\�BNE PPA��3f�JSR PLO�FF
4p�JMP PPACNT4z�PPA� JSR PLO�N34��PPACNT INC XPIXELB4��LDA COLOURM4�Ư #$01Z4��BNE PPB�i4��JSR PLO�FFx4��JMP PPBCNT�4��PPB� JSR PLO�N�4��PPBCNT INC XPIXEL�4��RTS�4`�;                   ZOOM ROUTINES�4j�BOX LDA XP�4t�STA XPIB�4~�LDA YP5��STA YPIB5��LDA XPB5��STA XPBIB*5��LDX #$3C85��STX $07FC@5��INXN5��STX $07FDV5��INXd5��STX $07FEl5��INXz5��STX $07FF�5��LDA $D015�5�A #$F0�5
�STA $D015�5�BOXLOOP LDA $A2�5� #$3C�5(�LSR A�52�LSR A�5<�TAX�5F�LDA BOXCOLS,X�5P�STA $D02B6Z�STA $D02C6d�STA $D02D'6n�STA $D02E56x�LDA XPBIBA6��CMP XPBS6��BEQ CHECKFINEd6��BCC LESSTHANt6��JMP M�ETHAN�6��CHECKFINE LDA XPIB�6��CMP XP�6��BCC LESSTHAN�6��M�ETHAN LDA XPIB�6��STA $D008�6��STA $D00A�6��LDX #$00�6��LDA XPBIB7��BEQ NOXPBADD7�LDX #$30(7�NOXPBADD LDA $D01037� #$CF?7"�STX $02G7,�CLCS76�ADC $02a7@�STA $D010n7E�LDX #$00y7J�LDA XP�7T�SEC�7^�SBC #$18�7h�STA $D00C�7r�STA $D00E�7|�BCC MTSUB�7��LDX XPB�7��BEQ MTSUB�7��LDX #$C0�7��MTSUB LDA $D010�7�� #$3F
8��STX $028��CLC8��ADC $02,8��STA $D01098��JMP BOX�M8��LESSTHAN LDA XPY8��LDX XPBf8��BNE �OUTs8�CMP #$58�8�BCS �OUT�8�LDA #$58�8&�OUT STA $D008�80�STA $D00A�8:�CPX #$00�8D�BEQ LTNOADD�8N�LDX #$30�8X�LTNOADD LDA $D010�8b� #$CF9l�STX $02
9v�CLC9��ADC $02'9��STA $D01049��LDX #$00A9��LDA XPIBI9��SECV9��SBC #$18d9��STA $D00Cr9��STA $D00E�9��BCC LTSUB�9��LDX XPBIB�9��BEQ LTSUB�9��LDX #$C0�9��LTSUB LDA $D010�9�� #$3F�9�STX $02�9�CLC�9�ADC $02�9 �STA $D010:*�BOX� LDA YP:4�CMP YPIB!:>�BCC LESSY.:H�LDA YPIB<:R�STA $D009J:\�STA $D00DU:f�LDA YP]:p�SECj:z�SBC #$15x:��STA $D00B�:��STA $D00F�:��JMP BOX�II�:��LESSY LDA YP�:��STA $D009�:��STA $D00D�:��LDA YPIB�:��SEC�:��SBC #$15�:��STA $D00B;��STA $D00F;��BOX�II LDA CLICK";��BEQ BOX�2;�JMP BOXLOOPD;�BOX� LDA #$02P;�STA $02X;$�RTSz;.�BOXCOLS TXT 0,9,2,8,10,7,13,1�;8�TXT 1,13,3,5,14,4,6,0

QHJ@;mandleplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$c000@sHN@xpixel.$4103@DHX@ypixel.$4104@UH.@colour.$4105@.H.@ypib.$4106@.H.@maxcol.$4107@.H.@xp.$4108@.H.@yp.$4109@.H.@xpb.$410a@.H.@click.$410b@.H.@hour.$410c@CI,A;                      sprite data@II1A;@1I6Atxt 224,000,000,176,000,000,152,000@yI@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@.IHAtxt 128,000,004,128,000,004,128,000@!JRAtxt 007,128,000,000,000,000,000,000@iJ.Atxt 000,000,000,000,000,000,000,153@oJ.A;@WJ.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@.J.Atxt 127,128,000,108,000,000,070,000@WK.Atxt 000,006,000,000,006,000,000,003@?K.Atxt 000,000,003,000,000,003,000,000@GK.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@.K.Atxt 000,129,064,000,066,128,000,064@ML.Atxt 128,000,051,000,000,012,000,000@5L.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;@CM&Btxt 255,192,000,255,192,000,255,192@+M0Btxt 000,255,192,000,127,128,000,127@sM: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@.MBBtxt 000,000,000,000,000,000,000,000@[NLBtxt 000,000,000,000,000,000,000,197@!NQB;@iNVBtxt 168,000,000,000,000,000,128,000@QN.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@.N.Btxt 000,000,000,000,000,000,000,000@QO.Btxt 000,000,000,000,000,000,000,000@9O.Btxt 000,000,000,000,000,000,000,000@AO.Btxt 000,000,000,000,000,000,000,197@GO.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@GP.Btxt 000,000,000,000,000,000,000,000@/P.Btxt 000,000,000,000,000,000,000,000@wP.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@.P Ctxt 000,000,000,000,000,000,000,000@%Q*Ctxt 000,000,000,000,000,000,000,000@mQ4Ctxt 000,000,000,000,000,000,000,000@UQ>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@.Q£Ctxt 000,000,000,000,168,000,000,000@.QAC;@[RFCtxt 000,000,000,000,000,000,000,000@cRPCtxt 000,000,000,000,000,000,000,000@KRZCtxt 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@.R.Ctxt 000,000,000,000,000,000,000,000@KS.Ctxt 000,000,001,000,000,000,000,000@3S.Ctxt 001,000,000,000,000,000,021,000@9S.C;@.S..;                   wimp routines@RS..; wimp - mouse@.S..irq lda #$00@.SH/sta click@.SR/lda $c5@.S£/cmp #$01@.S&/bne c.check@.S0/sta click@.S:/c.check cmp #$0c@.Sd/beq leftk@.Sn/lkc cmp #$17@KTx/beq rightk@£TB/rkc cmp #$32@(TL/beq upk@:TV/upkc cmp #$37@hT./beq downk@zT./dkc lda $dc00@ET./. #$01@QT./beq upj@.T./ujc lda $dc00@.T./. #$02@.T./beq downj@.T./djc lda $dc00@.T./. #$04@.T./beq leftj@.T./ljc lda $dc00@.T./. #$08@.TB0beq rightj@EUL0rjc lda $dc00@PUV0. #$10@£U 0e. #$10@)U*0beq cjch@7U40sta click@jU>0cjch jmp $ea31@]Uh0leftk jsr left@IUr0jmp lkc@.U£0rightk jsr right@.UF0jmp rkc@.UP0upk jsr up@.UZ0jmp upkc@.U.0downk jsr down@.U.0jmp dkc@.U.0upj jsr up@.U.0jmp ujc@.U.0downj jsr down@.U.0jmp djc@RV.0leftj jsr left@.V.0jmp ljc@3V.0rightj jsr right@?V.0jmp rjc@oV.0left dec xp@zV.0lda xp@GV.0cmp #$ff@SVF1bne .ff@.VP1ldy #$00@.VZ1sty xpb@.V$1.ff ldy xpb@.V.1bne fin@.V81cmp #$18@.Vb1bne fin@.Vl1inc xp@.Vv1fin jmp .rol@.V.1right inc xp@.VJ1lda xp@EWT1bne .00@RW.1ldy #$01@.W.1sty xpb@.W.1.00 ldy xpb@:W.1beq fin@gW.1cmp #$58@sW.1bne fin@.W.1dec xp@KW.1jmp .rol@YW.1up dec yp@.W.1lda yp@.W.1cmp #$32@.W.1bne fin@.W.1inc yp@.W@2jmp .rol@.WJ2down inc yp@.WT2lda yp@.W.2cmp #$f8@.W(2bne fin@.W22dec yp@AX<2jmp .rol@TXf2; wimp . po.er@&Xp2.rol lda hour@6Xz2beq nhglass@cX.3ldx #$3a@qX.3stx $07f8@yX.3inx@GX.3stx $07f9@ZX.3nhglass lda xp@.X.3sta $d000@.X.3sta $d002@.X.3lda yp@.X.3sta $d001@.X.3sta $d003@.X.3lda $d010@.XH4. #$fc@.XR4lsr a@.X£4clc@.X&4adc xpb@.X04asl a@FY:4clc@RYd4adc xpb@ Yn4sta $d010@-Yx4lda #$00@;YB4sta $d027@hYL4lda #$01@vYV4sta $d028@DY.4lda $d015@PY.4.a #$03@.Y.4sta $d015@.Y.4lda hour@.Y.4bne qtro@.Y.4ldx #$38@.Y.4stx $07f8@.Y.4inx@.Y.4stx $07f9@.Y.4qtro rts@.Y.4; startup routines@.Y.4init lda #$00@MZ.4sta $d020@[ZB5sta $d021@&ZL5sta xp@3ZV5sta hour@aZ 5sta $d015@nZ*5lda #$01@zZ45sta xpb@GZ>5lda #$80@RZh5sta yp@.Zr5hires. lda #$3b@.Z£5sta $d011@.ZF5lda #$d8@.ZP5sta $d016@.ZZ5lda #$00@.Z.5sta $fb@.Z.5tay@.Z.5lda #$04@.Z.5sta $fc@.Z.5lda #$7e@K[.5flop sta ($fb),y@S[.5iny@#[.5beq flopinc@0[.5cpy #$f8@=[.5bne flop@i[.5ldx $fc@v[.5cpx #$07@C[.5bne flop@P[F6jsr left@X[P6sei@.[Z6lda #.irq@.[$6sta $0314@.[.6lda #.irq@.[86sta $0315@.[b6cli@.[l6lda #$d8@.[v6sta $fc@.[.6lda #$02@.[J6ldy #$00@A£T6flopb sta ($fb),y@I£.6iny@W£.6bne flopb@#£.6inc $fc@/£.6ldx $fc@<£.6cpx #$dc@j£.6bne flopb@w£.6lda #$18@E£.6sta $d018@M£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@.£.:sta $d015@E].:lda #$9b@S].:sta $d011@ ].:lda #$c8@.].:sta $d016@6].:rts@z]0U;          m.lebrot set plotter@L]: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@J..Ulda #$05@X..Usta $4102@&..Ujsr equal@;..Ummainlb lda #$05@i..Usta $4100@v..Ulda #$07@D..Usta $4102@R..Ujsr equal@...Uinc $4100@..BVinc $4102@..LVjsr equal@..VVlda #$00@.. Vsta colour@..*Vloop lda #$07@..4Vsta $4100@..>Vsta $4101@..hVlda #$10@A.rVsta $4102@R.£Vjsr multiply@..FVlda #$08@-.PVsta $4100@;.ZVsta $4101@h..Vlda #$11@v..Vsta $4102@G..Vjsr multiply@T..Vldx #$10@...Vstx $4100@...Vinx@...Vstx $4101@...Vinx@...Vstx $4102@...Vjsr additi.@...Vlda $4091@...Vcmp #$04@...Vbcc fail@..FWcmp #$50@@ PWbcs fail@X ZWsucpass jmp success@, $Wfail inc colour@; )Wlda colour@j .Wcmp maxcol@z 8Wbeq sucpass@K bWjsr subtract@X lWlda #$12@. vWsta $4100@. .Wlda #$05@. JWsta $4101@. TWlda #$13@. .Wsta $4102@. .Wjsr additi.@. .Wlda #$07@. .Wsta $4100@. .Wlda #$08@B!.Wsta $4101@P!.Winc $4102@!!.Wjsr multiply@.!.Wlda #$14@<!.Wsta $4100@i!.Wlda #$1c@w!.Wsta $4101@D!.Wlda #$15@R!@Xsta $4102@.!JXjsr multiply@.!TXlda #$15@.!.Xsta $4100@.!(Xlda #$06@.!2Xsta $4101@.!<Xlda #$16@.!fXsta $4102@.!pXjsr additi.@.!zXlda #$13@.!DXsta $4100@L"NXlda #$07@Z"XXsta $4102@(".Xjsr equal@5".Xlda #$16@c".Xsta $4100@p".Xlda #$08@.".Xsta $4102@L".Xjsr equal@Y".Xjmp loop@.".Xsuccess jsr plot@.".Xlda #$05@.".Xsta $4100@.".Xsta $4102@.".Xlda #$02@.".Xsta $4101@."DYjsr additi.@."NYlda xpixel@@#XYbne xrelop@M#"Ylda #$06@[#,Ysta $4100@)#6Ysta $4102@6#@Ylda #$04@d#jYsta $4101@t#tYjsr additi.@C#.Yinc ypixel@R#HYlda ypixel@.#RYcmp #$c8@.#.Ybne yrelop@.#.Yrts@.#.Yxrelop jmp mmainlb@.#.Yyrelop jmp mmainl@.#@.;             arithmetic routines@.#j..digit cld@B$t.asl a@L$..asl a@V$H.asl a@"$R.sta $02@*$..txa@4$..lsr a@@$..sta $24@m$..lda #$07@u$..sec@A$..sbc $24@I$..clc@U$..adc $02@.$..tay@.$..lda $4000,y@.$..tay@.$..txa@.$... #$01@.$..beq lsngd@.$H.tya@.$R.. #$f0@.$£.lsr a@.$&.lsr a@.$0.lsr a@.$:.lsr a@.$d.rts@G%n.lsngd tya@R%x.. #$0f@Z%B.rts@5%L.multiplyb jsr negative@c%Q.lda $4102@m%V.asl a@w%..asl a@A%..asl a@I%..tax@V%..lda #$00@.%..tay@.%..mlopa sta $4000,x@.%..iny@.%..inx@.%..cpy #$08@.%..bne mlopa@.%..lda #$06@.%..sta $fc@.%...digit lda $4101@.%B.ldx $fc@H&L.jsr .digit@U&V.cmp #$00@$& .beq dmover@0&*.sta $fd@=&4.lda #$06@i&>.sta $fb@]&h.dmlop lda $4100@I&r.ldx $fb@X&£.jsr .digit@.&F.dmlb cmp #$00@.&P.beq dmover@.&Z.sta $fe@.&..lda $fb@.&..clc@.&..adc $fc@.&..sec@.&..sbc #$0c@.&..ldx $fd@.&..tay@.&... #$01@G'..beq mskip@O'..txa@Y'..asl a@#'..asl a@-'..asl a@7'F.asl a@?'P.tax@m'Z.mskip tya@w'$.lsr a@C'..sta $02@P'8.lda #$07@X'b.sec@.'l.sbc $02@.'v.sta $02@.'..lda $4102@.'J.asl a@.'T.asl a@.'..asl a@.'..adc $02@.'..tay@.'..stx $24@.'..ldx $02@.'..sed@@(..lda $4000,y@H(..clc@T(..adc $24@$(..sta $4000,y@1(..malp cld@@(..bcc maquit@h(..dey@p(@.dex@](J.cpx #$ff@L(T.beq maquit@T(..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@H)..lda $fc@U)..cmp #$0e@$)..bcc .digit@1)..lda ypib@>)..beq quit@l)..lda $4102@z)..sta $4101@G)..lda #$1d@U)..sta $4100@.)..jsr subtract@.)..quit rts@.)..maquit ldx $fe@.)D.dex@.)N.txa@.)X.jmp dmlb@.)".msup lda $4100@.),.asl a@.)6.asl a@.)@.asl a@.)j.tax@D*t.dex@P*..stx $fb@.*H.lda $4101@(*R.asl a@2*..asl a@<*..asl a@d*..tax@l*..dex@x*..stx $fd@F*..lda $4102@P*..asl a@Z*..asl a@.*..asl a@.*..tax@.*..dex@.*..stx $22@.*..lda #$40@.*..sta $fc@.*H.sta $fe@.*R.sta $23@.*£.rts@.*&.equal jsr msup@.*0.ldy #$08@N+:.elop lda ($fb),y@.+d.sta ($22),y@&+n.dey@3+x.bne elop@;+B.rts@p+L.additi. jsr msup@]+V.ldy #$08@E+..sed@M+..clc@.+..adlop lda ($fb),y@.+..adc ($fd),y@.+..sta ($22),y@.+..dey@.+..bne adlop@.+..cld@.+..rts@.+..subtract jsr msup@.+..ldy #$08@.+..sed@.+..sec@R,B.sulop lda ($fb),y@",L.sbc ($fd),y@2,V.sta ($22),y@:, .dey@h,*.bne sulop@p,4.cld@x,>.rts@N,h.negative lda #$00@V,r.pha@.,£.lda $4100@.,F.tay@.,P.asl a@.,Z.asl a@.,..asl a@.,..tax@.,..lda $4001,x@.,..cmp #$50@.,..bcc negrmoveab@.,..pla@.,..adc #$00@.,..pha@Q-..jmp negrmovea@*-..negrmoveab lda $4101@2-..tay@<-..asl a@f-..asl a@p-..asl a@x-F.tax@H-P.lda $4001,x@U-Z.cmp #$50@.-$.pla@.-..bcc noe.@.-8.e. #$01@.-b.pha@.-l.bcs negrmoveb@.-v.negrmovebb pla@.-..noe. sta ypib@.-J.rts@.-T.negrmove lda $4100@.-..pha@J...lda $4101@R...pha@ ...lda $4102@(...pha@0...tya@>...sta $4101@l...sta $4102@y...lda #$1d@G...sta $4100@X...jsr subtract@....pla@....sta $4102@..@.pla@..J.sta $4101@..T.pla@....sta $4100@..(.rts@..2.negrmovea jsr negrmove@..<.jmp negrmoveab@K/f.negrmoveb jsr negrmove@./p.jmp negrmovebb@5/z.multiply lda $4102@=/D.pha@k/N.lda $4101@s/X.pha@./..lda #$18@N/..sta $4102@./..jsr equal@./..inc $4102@./..pla@./..sta $4100@./..jsr equal@./..lda #$18@./..sta $4100@./..lda #$19@./..sta $4101@./..pla@./..sta $4102@L0D.jmp multiplyb@00p.;           graphic po. plotter@d0z.plotpc lda #$47@p0D.sta $fb@]0N.lda #$3f@I0X.sta $fc@X0..lda ypixel@.0..lsr a@.0..lsr a@.0..lsr a@.0..sta ypib@.0... #$03@.0..asl a@.0..asl a@.0..asl a@.0..asl a@.0..asl a@.0..asl a@.0..sta $02@B1D.lda $fb@J1N.sec@V1X.sbc $02@"1".sta $fb@.1,.lda $fc@;16.sbc #$00@h1;.sbc ypib@p1@.pha@]1j.lda ypib@G1t.lsr a@Q1..lsr a@.1H.sta $02@.1R.pla@.1..sec@.1..sbc $02@.1..sta $fc@.1..lda ypixel@.1... #$07@.1..sta ypib@.1..lda $fb@.1..sec@.1..sbc ypib@.1..pha@D2..lda xpixel@O2... #$f8@£2..sta ypib@$2..pla@,2H.clc@92R.adc ypib@e2£.sta $fb@q2&.lda $fc@.20.sbc #$00@J2:.sta $fc@Y2d.lda xpixel@.2n.. #$07@.2x.tax@.2B.lda #$80@.2L.gbitlp cpx #$00@.2V.beq pp.@.2..lsr a@.2..dex@.2..jmp gbitlp@.2..pp. sta $fd@.2..rts@G3..plo.n jsr plotpc@T3..ldy #$00@$3..lda ($fb),y@/3...a $fd@?3..sta ($fb),y@g3..rts@]3..plo.ff jsr plotpc@I3..lda $fd@U3B.e. #$ff@.3L.sta $fd@.3V.ldy #$00@.3 .lda ($fb),y@.3*.. $fd@.34.sta ($fb),y@.3>.rts@.3h.plot lda colour@.3r.. #$02@.3£.bne ppa.@.3F.jsr plo.ff@J4P.jmp ppacnt@]4Z.ppa. jsr plo.n@34..ppacnt inc xpixel@b4..lda colour@m4... #$01@z4..bne ppb.@I4..jsr plo.ff@X4..jmp ppbcnt@.4..ppb. jsr plo.n@.4..ppbcnt inc xpixel@.4..rts@.4..;                   zoom routines@.4J.box lda xp@.4T.sta xpib@.4..lda yp@C5..sta ypib@O5..lda xpb@]5..sta xpbib@*5..ldx #$3c@85..stx $07fc@@5..inx@n5..stx $07fd@v5..inx@D5..stx $07fe@L5..inx@Z5..stx $07ff@.5..lda $d015@.5@..a #$f0@.5J.sta $d015@.5T.boxloop lda $a2@.5... #$3c@.5(.lsr a@.52.lsr a@.5<.tax@.5f.lda boxcols,x@.5p.sta $d02b@K6z.sta $d02c@Y6D.sta $d02d@'6N.sta $d02e@56X.lda xpbib@a6..cmp xpb@s6..beq checkfine@D6..bcc lessthan@T6..jmp m.ethan@.6..checkfine lda xpib@.6..cmp xp@.6..bcc lessthan@.6..m.ethan lda xpib@.6..sta $d008@.6..sta $d00a@.6..ldx #$00@.6..lda xpbib@D7..beq noxpbadd@Q7D.ldx #$30@(7N.noxpbadd lda $d010@37X.. #$cf@?7".stx $02@g7,.clc@s76.adc $02@A7@.sta $d010@N7e.ldx #$00@Y7j.lda xp@.7t.sec@.7..sbc #$18@.7H.sta $d00c@.7R.sta $d00e@.7..bcc mtsub@.7..ldx xpb@.7..beq mtsub@.7..ldx #$c0@.7..mtsub lda $d010@.7... #$3f@J8..stx $02@R8..clc@.8..adc $02@,8..sta $d010@98..jmp box.@m8..lessthan lda xp@y8..ldx xpb@F8..bne .out@S8H.cmp #$58@.8R.bcs .out@.8£.lda #$58@.8&..out sta $d008@.80.sta $d00a@.8:.cpx #$00@.8d.beq ltnoadd@.8n.ldx #$30@.8x.ltnoadd lda $d010@.8B.. #$cf@E9L.stx $02@M9V.clc@Y9..adc $02@'9..sta $d010@49..ldx #$00@a9..lda xpib@i9..sec@v9..sbc #$18@D9..sta $d00c@R9..sta $d00e@.9..bcc ltsub@.9..ldx xpbib@.9..beq ltsub@.9..ldx #$c0@.9..ltsub lda $d010@.9... #$3f@.9B.stx $02@.9L.clc@.9V.adc $02@.9 .sta $d010@F:*.box. lda yp@S:4.cmp ypib@!:>.bcc lessy@.:h.lda ypib@<:r.sta $d009@j:£.sta $d00d@u:F.lda yp@]:P.sec@J:Z.sbc #$15@X:..sta $d00b@.:..sta $d00f@.:..jmp box.ii@.:..lessy lda yp@.:..sta $d009@.:..sta $d00d@.:..lda ypib@.:..sec@.:..sbc #$15@.:..sta $d00b@@;..sta $d00f@U;..box.ii lda click@";..beq box.@2;F.jmp boxloop@d;P.box. lda #$02@p;Z.sta $02@x;$.rts@Z;..boxcols txt 0,9,2,8,10,7,13,1@.;8.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 43 30 30 30  |.(.;.B.d...$C000|
00000040  00 53 08 6e 00 58 50 49  58 45 4c b2 24 34 31 30  |.S.n.XPIXEL.$410|
00000050  33 00 64 08 78 00 59 50  49 58 45 4c b2 24 34 31  |3.d.x.YPIXEL.$41|
00000060  30 34 00 75 08 82 00 43  4f 4c 4f 55 52 b2 24 34  |04.u...COLOUR.$4|
00000070  31 30 35 00 84 08 8c 00  59 50 49 42 b2 24 34 31  |105.....YPIB.$41|
00000080  30 36 00 95 08 96 00 4d  41 58 43 4f 4c b2 24 34  |06.....MAXCOL.$4|
00000090  31 30 37 00 a2 08 a0 00  58 50 b2 24 34 31 30 38  |107.....XP.$4108|
000000a0  00 af 08 aa 00 59 50 b2  24 34 31 30 39 00 bd 08  |.....YP.$4109...|
000000b0  b4 00 58 50 42 b2 24 34  31 30 41 00 cd 08 be 00  |..XPB.$410A.....|
000000c0  43 4c 49 43 4b b2 24 34  31 30 42 00 dc 08 c8 00  |CLICK.$410B.....|
000000d0  48 4f 55 52 b2 24 34 31  30 43 00 03 09 2c 01 3b  |HOUR.$410C...,.;|
000000e0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000f0  20 20 20 20 20 20 53 50  52 49 54 45 20 44 41 54  |      SPRITE DAT|
00000100  41 00 09 09 31 01 3b 00  31 09 36 01 54 58 54 20  |A...1.;.1.6.TXT |
00000110  32 32 34 2c 30 30 30 2c  30 30 30 2c 31 37 36 2c  |224,000,000,176,|
00000120  30 30 30 2c 30 30 30 2c  31 35 32 2c 30 30 30 00  |000,000,152,000.|
00000130  59 09 40 01 54 58 54 20  30 30 30 2c 31 34 30 2c  |Y.@.TXT 000,140,|
00000140  30 30 30 2c 30 30 30 2c  31 33 34 2c 30 30 30 2c  |000,000,134,000,|
00000150  30 30 30 2c 31 33 31 00  81 09 4a 01 54 58 54 20  |000,131...J.TXT |
00000160  30 30 30 2c 30 30 30 2c  31 32 39 2c 31 32 38 2c  |000,000,129,128,|
00000170  30 30 30 2c 31 32 38 2c  31 39 32 2c 30 30 30 00  |000,128,192,000.|
00000180  a9 09 54 01 54 58 54 20  31 32 38 2c 30 36 34 2c  |..T.TXT 128,064,|
00000190  30 30 30 2c 31 34 37 2c  31 39 32 2c 30 30 30 2c  |000,147,192,000,|
000001a0  31 38 35 2c 30 30 30 00  d1 09 5e 01 54 58 54 20  |185,000...^.TXT |
000001b0  30 30 30 2c 32 33 33 2c  30 30 30 2c 30 30 30 2c  |000,233,000,000,|
000001c0  30 30 39 2c 31 32 38 2c  30 30 30 2c 30 31 32 00  |009,128,000,012.|
000001d0  f9 09 68 01 54 58 54 20  31 32 38 2c 30 30 30 2c  |..h.TXT 128,000,|
000001e0  30 30 34 2c 31 32 38 2c  30 30 30 2c 30 30 34 2c  |004,128,000,004,|
000001f0  31 32 38 2c 30 30 30 00  21 0a 72 01 54 58 54 20  |128,000.!.r.TXT |
00000200  30 30 37 2c 31 32 38 2c  30 30 30 2c 30 30 30 2c  |007,128,000,000,|
00000210  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000220  49 0a 7c 01 54 58 54 20  30 30 30 2c 30 30 30 2c  |I.|.TXT 000,000,|
00000230  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000240  30 30 30 2c 31 35 33 00  4f 0a 81 01 3b 00 77 0a  |000,153.O...;.w.|
00000250  86 01 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000260  30 2c 30 36 34 2c 30 30  30 2c 30 30 30 2c 30 39  |0,064,000,000,09|
00000270  36 2c 30 30 30 00 9f 0a  90 01 54 58 54 20 30 30  |6,000.....TXT 00|
00000280  30 2c 31 31 32 2c 30 30  30 2c 30 30 30 2c 31 32  |0,112,000,000,12|
00000290  30 2c 30 30 30 2c 30 30  30 2c 31 32 34 00 c7 0a  |0,000,000,124...|
000002a0  9a 01 54 58 54 20 30 30  30 2c 30 30 30 2c 31 32  |..TXT 000,000,12|
000002b0  36 2c 30 30 30 2c 30 30  30 2c 31 32 37 2c 30 30  |6,000,000,127,00|
000002c0  30 2c 30 30 30 00 ef 0a  a4 01 54 58 54 20 31 32  |0,000.....TXT 12|
000002d0  37 2c 31 32 38 2c 30 30  30 2c 31 30 38 2c 30 30  |7,128,000,108,00|
000002e0  30 2c 30 30 30 2c 30 37  30 2c 30 30 30 00 17 0b  |0,000,070,000...|
000002f0  ae 01 54 58 54 20 30 30  30 2c 30 30 36 2c 30 30  |..TXT 000,006,00|
00000300  30 2c 30 30 30 2c 30 30  36 2c 30 30 30 2c 30 30  |0,000,006,000,00|
00000310  30 2c 30 30 33 00 3f 0b  b8 01 54 58 54 20 30 30  |0,003.?...TXT 00|
00000320  30 2c 30 30 30 2c 30 30  33 2c 30 30 30 2c 30 30  |0,000,003,000,00|
00000330  30 2c 30 30 33 2c 30 30  30 2c 30 30 30 00 67 0b  |0,003,000,000.g.|
00000340  c2 01 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000350  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000360  30 2c 30 30 30 00 8f 0b  cc 01 54 58 54 20 30 30  |0,000.....TXT 00|
00000370  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000380  30 2c 30 30 30 2c 30 30  30 2c 31 35 33 00 95 0b  |0,000,000,153...|
00000390  d1 01 3b 00 bd 0b d6 01  54 58 54 20 32 35 35 2c  |..;.....TXT 255,|
000003a0  31 39 32 2c 30 30 30 2c  31 32 39 2c 30 36 34 2c  |192,000,129,064,|
000003b0  30 30 30 2c 31 32 38 2c  30 36 34 00 e5 0b e0 01  |000,128,064.....|
000003c0  54 58 54 20 30 30 30 2c  31 32 39 2c 30 36 34 2c  |TXT 000,129,064,|
000003d0  30 30 30 2c 30 36 36 2c  31 32 38 2c 30 30 30 2c  |000,066,128,000,|
000003e0  30 36 34 00 0d 0c ea 01  54 58 54 20 31 32 38 2c  |064.....TXT 128,|
000003f0  30 30 30 2c 30 35 31 2c  30 30 30 2c 30 30 30 2c  |000,051,000,000,|
00000400  30 31 32 2c 30 30 30 2c  30 30 30 00 35 0c f4 01  |012,000,000.5...|
00000410  54 58 54 20 30 35 35 2c  30 30 30 2c 30 30 30 2c  |TXT 055,000,000,|
00000420  30 36 35 2c 31 32 38 2c  30 30 30 2c 30 36 36 2c  |065,128,000,066,|
00000430  31 32 38 00 5d 0c fe 01  54 58 54 20 30 30 30 2c  |128.]...TXT 000,|
00000440  31 32 39 2c 30 36 34 2c  30 30 30 2c 31 33 30 2c  |129,064,000,130,|
00000450  31 39 32 2c 30 30 30 2c  31 33 33 00 85 0c 08 02  |192,000,133.....|
00000460  54 58 54 20 30 36 34 2c  30 30 30 2c 32 35 35 2c  |TXT 064,000,255,|
00000470  31 39 32 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |192,000,000,000,|
00000480  30 30 30 00 ad 0c 12 02  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
00000490  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000004a0  30 30 30 2c 30 30 30 2c  30 30 30 00 d5 0c 1c 02  |000,000,000.....|
000004b0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
000004c0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000004d0  31 39 37 00 db 0c 21 02  3b 00 03 0d 26 02 54 58  |197...!.;...&.TX|
000004e0  54 20 32 35 35 2c 31 39  32 2c 30 30 30 2c 32 35  |T 255,192,000,25|
000004f0  35 2c 31 39 32 2c 30 30  30 2c 32 35 35 2c 31 39  |5,192,000,255,19|
00000500  32 00 2b 0d 30 02 54 58  54 20 30 30 30 2c 32 35  |2.+.0.TXT 000,25|
00000510  35 2c 31 39 32 2c 30 30  30 2c 31 32 37 2c 31 32  |5,192,000,127,12|
00000520  38 2c 30 30 30 2c 31 32  37 00 53 0d 3a 02 54 58  |8,000,127.S.:.TX|
00000530  54 20 31 32 38 2c 30 30  30 2c 30 36 33 2c 30 30  |T 128,000,063,00|
00000540  30 2c 30 30 30 2c 30 31  32 2c 30 30 30 2c 30 30  |0,000,012,000,00|
00000550  30 00 7b 0d 44 02 54 58  54 20 30 36 33 2c 30 30  |0.{.D.TXT 063,00|
00000560  30 2c 30 30 30 2c 31 32  37 2c 31 32 38 2c 30 30  |0,000,127,128,00|
00000570  30 2c 31 32 37 2c 31 32  38 00 a3 0d 4e 02 54 58  |0,127,128...N.TX|
00000580  54 20 30 30 30 2c 32 35  35 2c 31 39 32 2c 30 30  |T 000,255,192,00|
00000590  30 2c 32 35 35 2c 31 39  32 2c 30 30 30 2c 32 35  |0,255,192,000,25|
000005a0  35 00 cb 0d 58 02 54 58  54 20 31 39 32 2c 30 30  |5...X.TXT 192,00|
000005b0  30 2c 32 35 35 2c 31 39  32 2c 30 30 30 2c 30 30  |0,255,192,000,00|
000005c0  30 2c 30 30 30 2c 30 30  30 00 f3 0d 62 02 54 58  |0,000,000...b.TX|
000005d0  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
000005e0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000005f0  30 00 1b 0e 6c 02 54 58  54 20 30 30 30 2c 30 30  |0...l.TXT 000,00|
00000600  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000610  30 2c 30 30 30 2c 31 39  37 00 21 0e 71 02 3b 00  |0,000,197.!.q.;.|
00000620  49 0e 76 02 54 58 54 20  31 36 38 2c 30 30 30 2c  |I.v.TXT 168,000,|
00000630  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000640  31 32 38 2c 30 30 30 00  71 0e 80 02 54 58 54 20  |128,000.q...TXT |
00000650  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000660  31 32 38 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |128,000,000,000.|
00000670  99 0e 8a 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
00000680  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000690  30 30 30 2c 30 30 30 00  c1 0e 94 02 54 58 54 20  |000,000.....TXT |
000006a0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000006b0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
000006c0  e9 0e 9e 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
000006d0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000006e0  30 30 30 2c 30 30 30 00  11 0f a8 02 54 58 54 20  |000,000.....TXT |
000006f0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000700  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000710  39 0f b2 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |9...TXT 000,000,|
00000720  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000730  30 30 30 2c 30 30 30 00  61 0f bc 02 54 58 54 20  |000,000.a...TXT |
00000740  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000750  30 30 30 2c 30 30 30 2c  30 30 30 2c 31 39 37 00  |000,000,000,197.|
00000760  67 0f c1 02 3b 00 8f 0f  c6 02 54 58 54 20 30 30  |g...;.....TXT 00|
00000770  30 2c 30 30 30 2c 30 32  31 2c 30 30 30 2c 30 30  |0,000,021,000,00|
00000780  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 b7 0f  |0,000,000,000...|
00000790  d0 02 54 58 54 20 30 30  31 2c 30 30 30 2c 30 30  |..TXT 001,000,00|
000007a0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000007b0  31 2c 30 30 30 00 df 0f  da 02 54 58 54 20 30 30  |1,000.....TXT 00|
000007c0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000007d0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 07 10  |0,000,000,000...|
000007e0  e4 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
000007f0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000800  30 2c 30 30 30 00 2f 10  ee 02 54 58 54 20 30 30  |0,000./...TXT 00|
00000810  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000820  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 57 10  |0,000,000,000.W.|
00000830  f8 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000840  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000850  30 2c 30 30 30 00 7f 10  02 03 54 58 54 20 30 30  |0,000.....TXT 00|
00000860  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000870  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 a7 10  |0,000,000,000...|
00000880  0c 03 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000890  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000008a0  30 2c 30 30 30 00 ad 10  11 03 3b 00 d5 10 16 03  |0,000.....;.....|
000008b0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
000008c0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000008d0  30 30 30 00 fd 10 20 03  54 58 54 20 30 30 30 2c  |000... .TXT 000,|
000008e0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000008f0  30 30 30 2c 30 30 30 2c  30 30 30 00 25 11 2a 03  |000,000,000.%.*.|
00000900  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000910  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000920  30 30 30 00 4d 11 34 03  54 58 54 20 30 30 30 2c  |000.M.4.TXT 000,|
00000930  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000940  30 30 30 2c 30 30 30 2c  30 30 30 00 75 11 3e 03  |000,000,000.u.>.|
00000950  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000960  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000970  30 30 30 00 9d 11 48 03  54 58 54 20 30 30 30 2c  |000...H.TXT 000,|
00000980  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000990  30 30 30 2c 30 30 30 2c  30 30 30 00 c5 11 52 03  |000,000,000...R.|
000009a0  54 58 54 20 31 32 38 2c  30 30 30 2c 30 30 30 2c  |TXT 128,000,000,|
000009b0  30 30 30 2c 30 30 30 2c  30 30 30 2c 31 32 38 2c  |000,000,000,128,|
000009c0  30 30 30 00 ed 11 5c 03  54 58 54 20 30 30 30 2c  |000...\.TXT 000,|
000009d0  30 30 30 2c 30 30 30 2c  30 30 30 2c 31 36 38 2c  |000,000,000,168,|
000009e0  30 30 30 2c 30 30 30 2c  30 30 30 00 f3 11 61 03  |000,000,000...a.|
000009f0  3b 00 1b 12 66 03 54 58  54 20 30 30 30 2c 30 30  |;...f.TXT 000,00|
00000a00  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a10  30 2c 30 30 30 2c 30 30  30 00 43 12 70 03 54 58  |0,000,000.C.p.TX|
00000a20  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000a30  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a40  30 00 6b 12 7a 03 54 58  54 20 30 30 30 2c 30 30  |0.k.z.TXT 000,00|
00000a50  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a60  30 2c 30 30 30 2c 30 30  30 00 93 12 84 03 54 58  |0,000,000.....TX|
00000a70  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000a80  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a90  30 00 bb 12 8e 03 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,00|
00000aa0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000ab0  30 2c 30 30 30 2c 30 30  30 00 e3 12 98 03 54 58  |0,000,000.....TX|
00000ac0  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000ad0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000ae0  30 00 0b 13 a2 03 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,00|
00000af0  30 2c 30 30 31 2c 30 30  30 2c 30 30 30 2c 30 30  |0,001,000,000,00|
00000b00  30 2c 30 30 30 2c 30 30  30 00 33 13 ac 03 54 58  |0,000,000.3...TX|
00000b10  54 20 30 30 31 2c 30 30  30 2c 30 30 30 2c 30 30  |T 001,000,000,00|
00000b20  30 2c 30 30 30 2c 30 30  30 2c 30 32 31 2c 30 30  |0,000,000,021,00|
00000b30  30 00 39 13 b1 03 3b 00  5f 13 e0 2e 3b 20 20 20  |0.9...;._...;   |
00000b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000b50  57 49 4d 50 20 52 4f 55  54 49 4e 45 53 00 72 13  |WIMP ROUTINES.r.|
00000b60  f4 2e 3b 20 57 49 4d 50  20 2d 20 4d 4f 55 53 45  |..; WIMP - MOUSE|
00000b70  00 83 13 fe 2e 49 52 51  20 4c 44 41 20 23 24 30  |.....IRQ LDA #$0|
00000b80  30 00 91 13 08 2f 53 54  41 20 43 4c 49 43 4b 00  |0..../STA CLICK.|
00000b90  9d 13 12 2f 4c 44 41 20  24 43 35 00 aa 13 1c 2f  |.../LDA $C5..../|
00000ba0  43 4d 50 20 23 24 30 31  00 ba 13 26 2f 42 4e 45  |CMP #$01...&/BNE|
00000bb0  20 43 91 43 48 45 43 4b  00 c8 13 30 2f 53 54 41  | C.CHECK...0/STA|
00000bc0  20 43 4c 49 43 4b 00 dd  13 3a 2f 43 91 43 48 45  | CLICK...:/C.CHE|
00000bd0  43 4b 20 43 4d 50 20 23  24 30 43 00 eb 13 44 2f  |CK CMP #$0C...D/|
00000be0  42 45 51 20 4c 45 46 54  4b 00 fc 13 4e 2f 4c 4b  |BEQ LEFTK...N/LK|
00000bf0  43 20 43 4d 50 20 23 24  31 37 00 0b 14 58 2f 42  |C CMP #$17...X/B|
00000c00  45 51 20 52 49 47 48 54  4b 00 1c 14 62 2f 52 4b  |EQ RIGHTK...b/RK|
00000c10  43 20 43 4d 50 20 23 24  33 32 00 28 14 6c 2f 42  |C CMP #$32.(.l/B|
00000c20  45 51 20 55 50 4b 00 3a  14 76 2f 55 50 4b 43 20  |EQ UPK.:.v/UPKC |
00000c30  43 4d 50 20 23 24 33 37  00 48 14 80 2f 42 45 51  |CMP #$37.H../BEQ|
00000c40  20 44 4f 57 4e 4b 00 5a  14 8a 2f 44 4b 43 20 4c  | DOWNK.Z../DKC L|
00000c50  44 41 20 24 44 43 30 30  00 65 14 9e 2f af 20 23  |DA $DC00.e../. #|
00000c60  24 30 31 00 71 14 a8 2f  42 45 51 20 55 50 4a 00  |$01.q../BEQ UPJ.|
00000c70  83 14 b2 2f 55 4a 43 20  4c 44 41 20 24 44 43 30  |.../UJC LDA $DC0|
00000c80  30 00 8e 14 bc 2f af 20  23 24 30 32 00 9c 14 c6  |0..../. #$02....|
00000c90  2f 42 45 51 20 44 4f 57  4e 4a 00 ae 14 d0 2f 44  |/BEQ DOWNJ..../D|
00000ca0  4a 43 20 4c 44 41 20 24  44 43 30 30 00 b9 14 da  |JC LDA $DC00....|
00000cb0  2f af 20 23 24 30 34 00  c7 14 e4 2f 42 45 51 20  |/. #$04..../BEQ |
00000cc0  4c 45 46 54 4a 00 d9 14  ee 2f 4c 4a 43 20 4c 44  |LEFTJ..../LJC LD|
00000cd0  41 20 24 44 43 30 30 00  e4 14 f8 2f af 20 23 24  |A $DC00..../. #$|
00000ce0  30 38 00 f3 14 02 30 42  45 51 20 52 49 47 48 54  |08....0BEQ RIGHT|
00000cf0  4a 00 05 15 0c 30 52 4a  43 20 4c 44 41 20 24 44  |J....0RJC LDA $D|
00000d00  43 30 30 00 10 15 16 30  af 20 23 24 31 30 00 1c  |C00....0. #$10..|
00000d10  15 20 30 45 b0 20 23 24  31 30 00 29 15 2a 30 42  |. 0E. #$10.).*0B|
00000d20  45 51 20 43 4a 43 48 00  37 15 34 30 53 54 41 20  |EQ CJCH.7.40STA |
00000d30  43 4c 49 43 4b 00 4a 15  3e 30 43 4a 43 48 20 4a  |CLICK.J.>0CJCH J|
00000d40  4d 50 20 24 45 41 33 31  00 5d 15 48 30 4c 45 46  |MP $EA31.].H0LEF|
00000d50  54 4b 20 4a 53 52 20 4c  45 46 54 00 69 15 52 30  |TK JSR LEFT.i.R0|
00000d60  4a 4d 50 20 4c 4b 43 00  7e 15 5c 30 52 49 47 48  |JMP LKC.~.\0RIGH|
00000d70  54 4b 20 4a 53 52 20 52  49 47 48 54 00 8a 15 66  |TK JSR RIGHT...f|
00000d80  30 4a 4d 50 20 52 4b 43  00 99 15 70 30 55 50 4b  |0JMP RKC...p0UPK|
00000d90  20 4a 53 52 20 55 50 00  a6 15 7a 30 4a 4d 50 20  | JSR UP...z0JMP |
00000da0  55 50 4b 43 00 b9 15 84  30 44 4f 57 4e 4b 20 4a  |UPKC....0DOWNK J|
00000db0  53 52 20 44 4f 57 4e 00  c5 15 8e 30 4a 4d 50 20  |SR DOWN....0JMP |
00000dc0  44 4b 43 00 d4 15 98 30  55 50 4a 20 4a 53 52 20  |DKC....0UPJ JSR |
00000dd0  55 50 00 e0 15 a2 30 4a  4d 50 20 55 4a 43 00 f3  |UP....0JMP UJC..|
00000de0  15 ac 30 44 4f 57 4e 4a  20 4a 53 52 20 44 4f 57  |..0DOWNJ JSR DOW|
00000df0  4e 00 ff 15 b6 30 4a 4d  50 20 44 4a 43 00 12 16  |N....0JMP DJC...|
00000e00  c0 30 4c 45 46 54 4a 20  4a 53 52 20 4c 45 46 54  |.0LEFTJ JSR LEFT|
00000e10  00 1e 16 ca 30 4a 4d 50  20 4c 4a 43 00 33 16 d4  |....0JMP LJC.3..|
00000e20  30 52 49 47 48 54 4a 20  4a 53 52 20 52 49 47 48  |0RIGHTJ JSR RIGH|
00000e30  54 00 3f 16 de 30 4a 4d  50 20 52 4a 43 00 4f 16  |T.?..0JMP RJC.O.|
00000e40  e8 30 4c 45 46 54 20 44  45 43 20 58 50 00 5a 16  |.0LEFT DEC XP.Z.|
00000e50  f2 30 4c 44 41 20 58 50  00 67 16 fc 30 43 4d 50  |.0LDA XP.g..0CMP|
00000e60  20 23 24 46 46 00 73 16  06 31 42 4e 45 20 a8 46  | #$FF.s..1BNE .F|
00000e70  46 00 80 16 10 31 4c 44  59 20 23 24 30 30 00 8c  |F....1LDY #$00..|
00000e80  16 1a 31 53 54 59 20 58  50 42 00 9c 16 24 31 a8  |..1STY XPB...$1.|
00000e90  46 46 20 4c 44 59 20 58  50 42 00 a8 16 2e 31 42  |FF LDY XPB....1B|
00000ea0  4e 45 20 46 49 4e 00 b5  16 38 31 43 4d 50 20 23  |NE FIN...81CMP #|
00000eb0  24 31 38 00 c1 16 42 31  42 4e 45 20 46 49 4e 00  |$18...B1BNE FIN.|
00000ec0  cc 16 4c 31 49 4e 43 20  58 50 00 dd 16 56 31 46  |..L1INC XP...V1F|
00000ed0  49 4e 20 4a 4d 50 20 9a  52 4f 4c 00 ee 16 60 31  |IN JMP .ROL...`1|
00000ee0  52 49 47 48 54 20 49 4e  43 20 58 50 00 f9 16 6a  |RIGHT INC XP...j|
00000ef0  31 4c 44 41 20 58 50 00  05 17 74 31 42 4e 45 20  |1LDA XP...t1BNE |
00000f00  a8 30 30 00 12 17 7e 31  4c 44 59 20 23 24 30 31  |.00...~1LDY #$01|
00000f10  00 1e 17 88 31 53 54 59  20 58 50 42 00 2e 17 92  |....1STY XPB....|
00000f20  31 a8 30 30 20 4c 44 59  20 58 50 42 00 3a 17 9c  |1.00 LDY XPB.:..|
00000f30  31 42 45 51 20 46 49 4e  00 47 17 a6 31 43 4d 50  |1BEQ FIN.G..1CMP|
00000f40  20 23 24 35 38 00 53 17  b0 31 42 4e 45 20 46 49  | #$58.S..1BNE FI|
00000f50  4e 00 5e 17 ba 31 44 45  43 20 58 50 00 6b 17 c4  |N.^..1DEC XP.k..|
00000f60  31 4a 4d 50 20 9a 52 4f  4c 00 79 17 ce 31 55 50  |1JMP .ROL.y..1UP|
00000f70  20 44 45 43 20 59 50 00  84 17 d8 31 4c 44 41 20  | DEC YP....1LDA |
00000f80  59 50 00 91 17 e2 31 43  4d 50 20 23 24 33 32 00  |YP....1CMP #$32.|
00000f90  9d 17 ec 31 42 4e 45 20  46 49 4e 00 a8 17 f6 31  |...1BNE FIN....1|
00000fa0  49 4e 43 20 59 50 00 b5  17 00 32 4a 4d 50 20 9a  |INC YP....2JMP .|
00000fb0  52 4f 4c 00 c5 17 0a 32  44 4f 57 4e 20 49 4e 43  |ROL....2DOWN INC|
00000fc0  20 59 50 00 d0 17 14 32  4c 44 41 20 59 50 00 dd  | YP....2LDA YP..|
00000fd0  17 1e 32 43 4d 50 20 23  24 46 38 00 e9 17 28 32  |..2CMP #$F8...(2|
00000fe0  42 4e 45 20 46 49 4e 00  f4 17 32 32 44 45 43 20  |BNE FIN...22DEC |
00000ff0  59 50 00 01 18 3c 32 4a  4d 50 20 9a 52 4f 4c 00  |YP...<2JMP .ROL.|
00001000  14 18 46 32 3b 20 57 49  4d 50 20 ab 20 50 4f b5  |..F2; WIMP . PO.|
00001010  45 52 00 26 18 50 32 9a  52 4f 4c 20 4c 44 41 20  |ER.&.P2.ROL LDA |
00001020  48 4f 55 52 00 36 18 5a  32 42 45 51 20 4e 48 47  |HOUR.6.Z2BEQ NHG|
00001030  4c 41 53 53 00 43 18 9a  33 4c 44 58 20 23 24 33  |LASS.C..3LDX #$3|
00001040  41 00 51 18 a4 33 53 54  58 20 24 30 37 46 38 00  |A.Q..3STX $07F8.|
00001050  59 18 ae 33 49 4e 58 00  67 18 b8 33 53 54 58 20  |Y..3INX.g..3STX |
00001060  24 30 37 46 39 00 7a 18  c2 33 4e 48 47 4c 41 53  |$07F9.z..3NHGLAS|
00001070  53 20 4c 44 41 20 58 50  00 88 18 cc 33 53 54 41  |S LDA XP....3STA|
00001080  20 24 44 30 30 30 00 96  18 d6 33 53 54 41 20 24  | $D000....3STA $|
00001090  44 30 30 32 00 a1 18 e0  33 4c 44 41 20 59 50 00  |D002....3LDA YP.|
000010a0  af 18 ea 33 53 54 41 20  24 44 30 30 31 00 bd 18  |...3STA $D001...|
000010b0  f4 33 53 54 41 20 24 44  30 30 33 00 cb 18 fe 33  |.3STA $D003....3|
000010c0  4c 44 41 20 24 44 30 31  30 00 d6 18 08 34 af 20  |LDA $D010....4. |
000010d0  23 24 46 43 00 e0 18 12  34 4c 53 52 20 41 00 e8  |#$FC....4LSR A..|
000010e0  18 1c 34 43 4c 43 00 f4  18 26 34 41 44 43 20 58  |..4CLC...&4ADC X|
000010f0  50 42 00 fe 18 30 34 41  53 4c 20 41 00 06 19 3a  |PB...04ASL A...:|
00001100  34 43 4c 43 00 12 19 44  34 41 44 43 20 58 50 42  |4CLC...D4ADC XPB|
00001110  00 20 19 4e 34 53 54 41  20 24 44 30 31 30 00 2d  |. .N4STA $D010.-|
00001120  19 58 34 4c 44 41 20 23  24 30 30 00 3b 19 62 34  |.X4LDA #$00.;.b4|
00001130  53 54 41 20 24 44 30 32  37 00 48 19 6c 34 4c 44  |STA $D027.H.l4LD|
00001140  41 20 23 24 30 31 00 56  19 76 34 53 54 41 20 24  |A #$01.V.v4STA $|
00001150  44 30 32 38 00 64 19 80  34 4c 44 41 20 24 44 30  |D028.d..4LDA $D0|
00001160  31 35 00 70 19 8a 34 b0  41 20 23 24 30 33 00 7e  |15.p..4.A #$03.~|
00001170  19 94 34 53 54 41 20 24  44 30 31 35 00 8b 19 9e  |..4STA $D015....|
00001180  34 4c 44 41 20 48 4f 55  52 00 98 19 a8 34 42 4e  |4LDA HOUR....4BN|
00001190  45 20 51 54 52 4f 00 a5  19 b2 34 4c 44 58 20 23  |E QTRO....4LDX #|
000011a0  24 33 38 00 b3 19 bc 34  53 54 58 20 24 30 37 46  |$38....4STX $07F|
000011b0  38 00 bb 19 c6 34 49 4e  58 00 c9 19 d0 34 53 54  |8....4INX....4ST|
000011c0  58 20 24 30 37 46 39 00  d6 19 da 34 51 54 52 4f  |X $07F9....4QTRO|
000011d0  20 52 54 53 00 ed 19 e4  34 3b 20 53 54 41 52 54  | RTS....4; START|
000011e0  55 50 20 52 4f 55 54 49  4e 45 53 00 ff 19 ee 34  |UP ROUTINES....4|
000011f0  49 4e 49 54 20 4c 44 41  20 23 24 30 30 00 0d 1a  |INIT LDA #$00...|
00001200  f8 34 53 54 41 20 24 44  30 32 30 00 1b 1a 02 35  |.4STA $D020....5|
00001210  53 54 41 20 24 44 30 32  31 00 26 1a 0c 35 53 54  |STA $D021.&..5ST|
00001220  41 20 58 50 00 33 1a 16  35 53 54 41 20 48 4f 55  |A XP.3..5STA HOU|
00001230  52 00 41 1a 20 35 53 54  41 20 24 44 30 31 35 00  |R.A. 5STA $D015.|
00001240  4e 1a 2a 35 4c 44 41 20  23 24 30 31 00 5a 1a 34  |N.*5LDA #$01.Z.4|
00001250  35 53 54 41 20 58 50 42  00 67 1a 3e 35 4c 44 41  |5STA XPB.g.>5LDA|
00001260  20 23 24 38 30 00 72 1a  48 35 53 54 41 20 59 50  | #$80.r.H5STA YP|
00001270  00 86 1a 52 35 48 49 52  45 53 91 20 4c 44 41 20  |...R5HIRES. LDA |
00001280  23 24 33 42 00 94 1a 5c  35 53 54 41 20 24 44 30  |#$3B...\5STA $D0|
00001290  31 31 00 a1 1a 66 35 4c  44 41 20 23 24 44 38 00  |11...f5LDA #$D8.|
000012a0  af 1a 70 35 53 54 41 20  24 44 30 31 36 00 bc 1a  |..p5STA $D016...|
000012b0  7a 35 4c 44 41 20 23 24  30 30 00 c8 1a 84 35 53  |z5LDA #$00....5S|
000012c0  54 41 20 24 46 42 00 d0  1a 8e 35 54 41 59 00 dd  |TA $FB....5TAY..|
000012d0  1a 98 35 4c 44 41 20 23  24 30 34 00 e9 1a a2 35  |..5LDA #$04....5|
000012e0  53 54 41 20 24 46 43 00  f6 1a ac 35 4c 44 41 20  |STA $FC....5LDA |
000012f0  23 24 37 45 00 0b 1b b6  35 46 4c 4f 50 20 53 54  |#$7E....5FLOP ST|
00001300  41 20 28 24 46 42 29 2c  59 00 13 1b c0 35 49 4e  |A ($FB),Y....5IN|
00001310  59 00 23 1b ca 35 42 45  51 20 46 4c 4f 50 49 4e  |Y.#..5BEQ FLOPIN|
00001320  43 00 30 1b d4 35 43 50  59 20 23 24 46 38 00 3d  |C.0..5CPY #$F8.=|
00001330  1b de 35 42 4e 45 20 46  4c 4f 50 00 49 1b e8 35  |..5BNE FLOP.I..5|
00001340  4c 44 58 20 24 46 43 00  56 1b f2 35 43 50 58 20  |LDX $FC.V..5CPX |
00001350  23 24 30 37 00 63 1b fc  35 42 4e 45 20 46 4c 4f  |#$07.c..5BNE FLO|
00001360  50 00 70 1b 06 36 4a 53  52 20 4c 45 46 54 00 78  |P.p..6JSR LEFT.x|
00001370  1b 10 36 53 45 49 00 86  1b 1a 36 4c 44 41 20 23  |..6SEI....6LDA #|
00001380  b3 49 52 51 00 94 1b 24  36 53 54 41 20 24 30 33  |.IRQ...$6STA $03|
00001390  31 34 00 a2 1b 2e 36 4c  44 41 20 23 b1 49 52 51  |14....6LDA #.IRQ|
000013a0  00 b0 1b 38 36 53 54 41  20 24 30 33 31 35 00 b8  |...86STA $0315..|
000013b0  1b 42 36 43 4c 49 00 c5  1b 4c 36 4c 44 41 20 23  |.B6CLI...L6LDA #|
000013c0  24 44 38 00 d1 1b 56 36  53 54 41 20 24 46 43 00  |$D8...V6STA $FC.|
000013d0  de 1b 60 36 4c 44 41 20  23 24 30 32 00 eb 1b 6a  |..`6LDA #$02...j|
000013e0  36 4c 44 59 20 23 24 30  30 00 01 1c 74 36 46 4c  |6LDY #$00...t6FL|
000013f0  4f 50 42 20 53 54 41 20  28 24 46 42 29 2c 59 00  |OPB STA ($FB),Y.|
00001400  09 1c 7e 36 49 4e 59 00  17 1c 88 36 42 4e 45 20  |..~6INY....6BNE |
00001410  46 4c 4f 50 42 00 23 1c  92 36 49 4e 43 20 24 46  |FLOPB.#..6INC $F|
00001420  43 00 2f 1c 9c 36 4c 44  58 20 24 46 43 00 3c 1c  |C./..6LDX $FC.<.|
00001430  a6 36 43 50 58 20 23 24  44 43 00 4a 1c b0 36 42  |.6CPX #$DC.J..6B|
00001440  4e 45 20 46 4c 4f 50 42  00 57 1c ba 36 4c 44 41  |NE FLOPB.W..6LDA|
00001450  20 23 24 31 38 00 65 1c  c4 36 53 54 41 20 24 44  | #$18.e..6STA $D|
00001460  30 31 38 00 6d 1c 34 3a  52 54 53 00 81 1c 3e 3a  |018.m.4:RTS...>:|
00001470  46 4c 4f 50 49 4e 43 20  49 4e 43 20 24 46 43 00  |FLOPINC INC $FC.|
00001480  8e 1c 48 3a 4a 4d 50 20  46 4c 4f 50 00 9f 1c 52  |..H:JMP FLOP...R|
00001490  3a 48 49 52 45 53 4f 46  46 20 53 45 49 00 ac 1c  |:HIRESOFF SEI...|
000014a0  5c 3a 4c 44 41 20 23 24  33 31 00 ba 1c 66 3a 53  |\:LDA #$31...f:S|
000014b0  54 41 20 24 30 33 31 34  00 c7 1c 70 3a 4c 44 41  |TA $0314...p:LDA|
000014c0  20 23 24 45 41 00 d5 1c  7a 3a 53 54 41 20 24 30  | #$EA...z:STA $0|
000014d0  33 31 35 00 dd 1c 84 3a  43 4c 49 00 ea 1c 8e 3a  |315....:CLI....:|
000014e0  4c 44 41 20 23 24 30 30  00 f8 1c 98 3a 53 54 41  |LDA #$00....:STA|
000014f0  20 24 44 30 31 35 00 05  1d a2 3a 4c 44 41 20 23  | $D015....:LDA #|
00001500  24 39 42 00 13 1d ac 3a  53 54 41 20 24 44 30 31  |$9B....:STA $D01|
00001510  31 00 20 1d b6 3a 4c 44  41 20 23 24 43 38 00 2e  |1. ..:LDA #$C8..|
00001520  1d c0 3a 53 54 41 20 24  44 30 31 36 00 36 1d ca  |..:STA $D016.6..|
00001530  3a 52 54 53 00 5a 1d 30  75 3b 20 20 20 20 20 20  |:RTS.Z.0u;      |
00001540  20 20 20 20 4d af 4c 45  42 52 4f 54 20 53 45 54  |    M.LEBROT SET|
00001550  20 50 4c 4f 54 54 45 52  00 6c 1d 3a 75 4d af 4c  | PLOTTER.l.:uM.L|
00001560  45 20 4c 44 41 20 23 24  30 30 00 7b 1d 44 75 53  |E LDA #$00.{.DuS|
00001570  54 41 20 59 50 49 58 45  4c 00 88 1d 4e 75 4c 44  |TA YPIXEL...NuLD|
00001580  41 20 23 24 30 33 00 96  1d 58 75 53 54 41 20 24  |A #$03...XuSTA $|
00001590  34 31 30 30 00 a3 1d 62  75 4c 44 41 20 23 24 30  |4100...buLDA #$0|
000015a0  36 00 b1 1d 6c 75 53 54  41 20 24 34 31 30 32 00  |6...luSTA $4102.|
000015b0  bf 1d 76 75 4a 53 52 20  45 51 55 41 4c 00 d3 1d  |..vuJSR EQUAL...|
000015c0  80 75 4d 4d 41 49 4e 4c  20 4c 44 41 20 23 24 30  |.uMMAINL LDA #$0|
000015d0  30 00 e2 1d 8a 75 53 54  41 20 58 50 49 58 45 4c  |0....uSTA XPIXEL|
000015e0  00 ef 1d 94 75 4c 44 41  20 23 24 30 31 00 fd 1d  |....uLDA #$01...|
000015f0  9e 75 53 54 41 20 24 34  31 30 30 00 0a 1e a8 75  |.uSTA $4100....u|
00001600  4c 44 41 20 23 24 30 35  00 18 1e b2 75 53 54 41  |LDA #$05....uSTA|
00001610  20 24 34 31 30 32 00 26  1e bc 75 4a 53 52 20 45  | $4102.&..uJSR E|
00001620  51 55 41 4c 00 3b 1e c6  75 4d 4d 41 49 4e 4c 42  |QUAL.;..uMMAINLB|
00001630  20 4c 44 41 20 23 24 30  35 00 49 1e d0 75 53 54  | LDA #$05.I..uST|
00001640  41 20 24 34 31 30 30 00  56 1e da 75 4c 44 41 20  |A $4100.V..uLDA |
00001650  23 24 30 37 00 64 1e e4  75 53 54 41 20 24 34 31  |#$07.d..uSTA $41|
00001660  30 32 00 72 1e ee 75 4a  53 52 20 45 51 55 41 4c  |02.r..uJSR EQUAL|
00001670  00 80 1e f8 75 49 4e 43  20 24 34 31 30 30 00 8e  |....uINC $4100..|
00001680  1e 02 76 49 4e 43 20 24  34 31 30 32 00 9c 1e 0c  |..vINC $4102....|
00001690  76 4a 53 52 20 45 51 55  41 4c 00 a9 1e 16 76 4c  |vJSR EQUAL....vL|
000016a0  44 41 20 23 24 30 30 00  b8 1e 20 76 53 54 41 20  |DA #$00... vSTA |
000016b0  43 4f 4c 4f 55 52 00 ca  1e 2a 76 4c 4f 4f 50 20  |COLOUR...*vLOOP |
000016c0  4c 44 41 20 23 24 30 37  00 d8 1e 34 76 53 54 41  |LDA #$07...4vSTA|
000016d0  20 24 34 31 30 30 00 e6  1e 3e 76 53 54 41 20 24  | $4100...>vSTA $|
000016e0  34 31 30 31 00 f3 1e 48  76 4c 44 41 20 23 24 31  |4101...HvLDA #$1|
000016f0  30 00 01 1f 52 76 53 54  41 20 24 34 31 30 32 00  |0...RvSTA $4102.|
00001700  12 1f 5c 76 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |..\vJSR MULTIPLY|
00001710  00 1f 1f 66 76 4c 44 41  20 23 24 30 38 00 2d 1f  |...fvLDA #$08.-.|
00001720  70 76 53 54 41 20 24 34  31 30 30 00 3b 1f 7a 76  |pvSTA $4100.;.zv|
00001730  53 54 41 20 24 34 31 30  31 00 48 1f 84 76 4c 44  |STA $4101.H..vLD|
00001740  41 20 23 24 31 31 00 56  1f 8e 76 53 54 41 20 24  |A #$11.V..vSTA $|
00001750  34 31 30 32 00 67 1f 98  76 4a 53 52 20 4d 55 4c  |4102.g..vJSR MUL|
00001760  54 49 50 4c 59 00 74 1f  a2 76 4c 44 58 20 23 24  |TIPLY.t..vLDX #$|
00001770  31 30 00 82 1f ac 76 53  54 58 20 24 34 31 30 30  |10....vSTX $4100|
00001780  00 8a 1f b6 76 49 4e 58  00 98 1f c0 76 53 54 58  |....vINX....vSTX|
00001790  20 24 34 31 30 31 00 a0  1f ca 76 49 4e 58 00 ae  | $4101....vINX..|
000017a0  1f d4 76 53 54 58 20 24  34 31 30 32 00 be 1f de  |..vSTX $4102....|
000017b0  76 4a 53 52 20 41 44 44  49 54 49 91 00 cc 1f e8  |vJSR ADDITI.....|
000017c0  76 4c 44 41 20 24 34 30  39 31 00 d9 1f f2 76 43  |vLDA $4091....vC|
000017d0  4d 50 20 23 24 30 34 00  e6 1f fc 76 42 43 43 20  |MP #$04....vBCC |
000017e0  46 41 49 4c 00 f3 1f 06  77 43 4d 50 20 23 24 35  |FAIL....wCMP #$5|
000017f0  30 00 00 20 10 77 42 43  53 20 46 41 49 4c 00 18  |0.. .wBCS FAIL..|
00001800  20 1a 77 53 55 43 50 41  53 53 20 4a 4d 50 20 53  | .wSUCPASS JMP S|
00001810  55 43 43 45 53 53 00 2c  20 24 77 46 41 49 4c 20  |UCCESS., $wFAIL |
00001820  49 4e 43 20 43 4f 4c 4f  55 52 00 3b 20 29 77 4c  |INC COLOUR.; )wL|
00001830  44 41 20 43 4f 4c 4f 55  52 00 4a 20 2e 77 43 4d  |DA COLOUR.J .wCM|
00001840  50 20 4d 41 58 43 4f 4c  00 5a 20 38 77 42 45 51  |P MAXCOL.Z 8wBEQ|
00001850  20 53 55 43 50 41 53 53  00 6b 20 42 77 4a 53 52  | SUCPASS.k BwJSR|
00001860  20 53 55 42 54 52 41 43  54 00 78 20 4c 77 4c 44  | SUBTRACT.x LwLD|
00001870  41 20 23 24 31 32 00 86  20 56 77 53 54 41 20 24  |A #$12.. VwSTA $|
00001880  34 31 30 30 00 93 20 60  77 4c 44 41 20 23 24 30  |4100.. `wLDA #$0|
00001890  35 00 a1 20 6a 77 53 54  41 20 24 34 31 30 31 00  |5.. jwSTA $4101.|
000018a0  ae 20 74 77 4c 44 41 20  23 24 31 33 00 bc 20 7e  |. twLDA #$13.. ~|
000018b0  77 53 54 41 20 24 34 31  30 32 00 cc 20 88 77 4a  |wSTA $4102.. .wJ|
000018c0  53 52 20 41 44 44 49 54  49 91 00 d9 20 92 77 4c  |SR ADDITI... .wL|
000018d0  44 41 20 23 24 30 37 00  e7 20 9c 77 53 54 41 20  |DA #$07.. .wSTA |
000018e0  24 34 31 30 30 00 f4 20  a6 77 4c 44 41 20 23 24  |$4100.. .wLDA #$|
000018f0  30 38 00 02 21 b0 77 53  54 41 20 24 34 31 30 31  |08..!.wSTA $4101|
00001900  00 10 21 ba 77 49 4e 43  20 24 34 31 30 32 00 21  |..!.wINC $4102.!|
00001910  21 c4 77 4a 53 52 20 4d  55 4c 54 49 50 4c 59 00  |!.wJSR MULTIPLY.|
00001920  2e 21 ce 77 4c 44 41 20  23 24 31 34 00 3c 21 d8  |.!.wLDA #$14.<!.|
00001930  77 53 54 41 20 24 34 31  30 30 00 49 21 e2 77 4c  |wSTA $4100.I!.wL|
00001940  44 41 20 23 24 31 43 00  57 21 ec 77 53 54 41 20  |DA #$1C.W!.wSTA |
00001950  24 34 31 30 31 00 64 21  f6 77 4c 44 41 20 23 24  |$4101.d!.wLDA #$|
00001960  31 35 00 72 21 00 78 53  54 41 20 24 34 31 30 32  |15.r!.xSTA $4102|
00001970  00 83 21 0a 78 4a 53 52  20 4d 55 4c 54 49 50 4c  |..!.xJSR MULTIPL|
00001980  59 00 90 21 14 78 4c 44  41 20 23 24 31 35 00 9e  |Y..!.xLDA #$15..|
00001990  21 1e 78 53 54 41 20 24  34 31 30 30 00 ab 21 28  |!.xSTA $4100..!(|
000019a0  78 4c 44 41 20 23 24 30  36 00 b9 21 32 78 53 54  |xLDA #$06..!2xST|
000019b0  41 20 24 34 31 30 31 00  c6 21 3c 78 4c 44 41 20  |A $4101..!<xLDA |
000019c0  23 24 31 36 00 d4 21 46  78 53 54 41 20 24 34 31  |#$16..!FxSTA $41|
000019d0  30 32 00 e4 21 50 78 4a  53 52 20 41 44 44 49 54  |02..!PxJSR ADDIT|
000019e0  49 91 00 f1 21 5a 78 4c  44 41 20 23 24 31 33 00  |I...!ZxLDA #$13.|
000019f0  ff 21 64 78 53 54 41 20  24 34 31 30 30 00 0c 22  |.!dxSTA $4100.."|
00001a00  6e 78 4c 44 41 20 23 24  30 37 00 1a 22 78 78 53  |nxLDA #$07.."xxS|
00001a10  54 41 20 24 34 31 30 32  00 28 22 82 78 4a 53 52  |TA $4102.(".xJSR|
00001a20  20 45 51 55 41 4c 00 35  22 8c 78 4c 44 41 20 23  | EQUAL.5".xLDA #|
00001a30  24 31 36 00 43 22 96 78  53 54 41 20 24 34 31 30  |$16.C".xSTA $410|
00001a40  30 00 50 22 a0 78 4c 44  41 20 23 24 30 38 00 5e  |0.P".xLDA #$08.^|
00001a50  22 aa 78 53 54 41 20 24  34 31 30 32 00 6c 22 b4  |".xSTA $4102.l".|
00001a60  78 4a 53 52 20 45 51 55  41 4c 00 79 22 be 78 4a  |xJSR EQUAL.y".xJ|
00001a70  4d 50 20 4c 4f 4f 50 00  8e 22 c8 78 53 55 43 43  |MP LOOP..".xSUCC|
00001a80  45 53 53 20 4a 53 52 20  50 4c 4f 54 00 9b 22 d2  |ESS JSR PLOT..".|
00001a90  78 4c 44 41 20 23 24 30  35 00 a9 22 dc 78 53 54  |xLDA #$05..".xST|
00001aa0  41 20 24 34 31 30 30 00  b7 22 e6 78 53 54 41 20  |A $4100..".xSTA |
00001ab0  24 34 31 30 32 00 c4 22  f0 78 4c 44 41 20 23 24  |$4102..".xLDA #$|
00001ac0  30 32 00 d2 22 fa 78 53  54 41 20 24 34 31 30 31  |02..".xSTA $4101|
00001ad0  00 e2 22 04 79 4a 53 52  20 41 44 44 49 54 49 91  |..".yJSR ADDITI.|
00001ae0  00 f1 22 0e 79 4c 44 41  20 58 50 49 58 45 4c 00  |..".yLDA XPIXEL.|
00001af0  00 23 18 79 42 4e 45 20  58 52 45 4c 4f 50 00 0d  |.#.yBNE XRELOP..|
00001b00  23 22 79 4c 44 41 20 23  24 30 36 00 1b 23 2c 79  |#"yLDA #$06..#,y|
00001b10  53 54 41 20 24 34 31 30  30 00 29 23 36 79 53 54  |STA $4100.)#6yST|
00001b20  41 20 24 34 31 30 32 00  36 23 40 79 4c 44 41 20  |A $4102.6#@yLDA |
00001b30  23 24 30 34 00 44 23 4a  79 53 54 41 20 24 34 31  |#$04.D#JySTA $41|
00001b40  30 31 00 54 23 54 79 4a  53 52 20 41 44 44 49 54  |01.T#TyJSR ADDIT|
00001b50  49 91 00 63 23 5e 79 49  4e 43 20 59 50 49 58 45  |I..c#^yINC YPIXE|
00001b60  4c 00 72 23 68 79 4c 44  41 20 59 50 49 58 45 4c  |L.r#hyLDA YPIXEL|
00001b70  00 7f 23 72 79 43 4d 50  20 23 24 43 38 00 8e 23  |..#ryCMP #$C8..#|
00001b80  7c 79 42 4e 45 20 59 52  45 4c 4f 50 00 96 23 86  ||yBNE YRELOP..#.|
00001b90  79 52 54 53 00 ad 23 90  79 58 52 45 4c 4f 50 20  |yRTS..#.yXRELOP |
00001ba0  4a 4d 50 20 4d 4d 41 49  4e 4c 42 00 c3 23 9a 79  |JMP MMAINLB..#.y|
00001bb0  59 52 45 4c 4f 50 20 4a  4d 50 20 4d 4d 41 49 4e  |YRELOP JMP MMAIN|
00001bc0  4c 00 e9 23 40 9c 3b 20  20 20 20 20 20 20 20 20  |L..#@.;         |
00001bd0  20 20 20 20 41 52 49 54  48 4d 45 54 49 43 20 52  |    ARITHMETIC R|
00001be0  4f 55 54 49 4e 45 53 00  f8 23 4a 9c a1 44 49 47  |OUTINES..#J..DIG|
00001bf0  49 54 20 43 4c 44 00 02  24 54 9c 41 53 4c 20 41  |IT CLD..$T.ASL A|
00001c00  00 0c 24 5e 9c 41 53 4c  20 41 00 16 24 68 9c 41  |..$^.ASL A..$h.A|
00001c10  53 4c 20 41 00 22 24 72  9c 53 54 41 20 24 30 32  |SL A."$r.STA $02|
00001c20  00 2a 24 7c 9c 54 58 41  00 34 24 86 9c 4c 53 52  |.*$|.TXA.4$..LSR|
00001c30  20 41 00 40 24 90 9c 53  54 41 20 24 32 34 00 4d  | A.@$..STA $24.M|
00001c40  24 9a 9c 4c 44 41 20 23  24 30 37 00 55 24 a4 9c  |$..LDA #$07.U$..|
00001c50  53 45 43 00 61 24 ae 9c  53 42 43 20 24 32 34 00  |SEC.a$..SBC $24.|
00001c60  69 24 b8 9c 43 4c 43 00  75 24 c2 9c 41 44 43 20  |i$..CLC.u$..ADC |
00001c70  24 30 32 00 7d 24 cc 9c  54 41 59 00 8d 24 d6 9c  |$02.}$..TAY..$..|
00001c80  4c 44 41 20 24 34 30 30  30 2c 59 00 95 24 e0 9c  |LDA $4000,Y..$..|
00001c90  54 41 59 00 9d 24 ea 9c  54 58 41 00 a8 24 f4 9c  |TAY..$..TXA..$..|
00001ca0  af 20 23 24 30 31 00 b6  24 fe 9c 42 45 51 20 4c  |. #$01..$..BEQ L|
00001cb0  53 4e 47 44 00 be 24 08  9d 54 59 41 00 c9 24 12  |SNGD..$..TYA..$.|
00001cc0  9d af 20 23 24 46 30 00  d3 24 1c 9d 4c 53 52 20  |.. #$F0..$..LSR |
00001cd0  41 00 dd 24 26 9d 4c 53  52 20 41 00 e7 24 30 9d  |A..$&.LSR A..$0.|
00001ce0  4c 53 52 20 41 00 f1 24  3a 9d 4c 53 52 20 41 00  |LSR A..$:.LSR A.|
00001cf0  f9 24 44 9d 52 54 53 00  07 25 4e 9d 4c 53 4e 47  |.$D.RTS..%N.LSNG|
00001d00  44 20 54 59 41 00 12 25  58 9d af 20 23 24 30 46  |D TYA..%X.. #$0F|
00001d10  00 1a 25 62 9d 52 54 53  00 35 25 6c 9d 4d 55 4c  |..%b.RTS.5%l.MUL|
00001d20  54 49 50 4c 59 42 20 4a  53 52 20 4e 45 47 41 54  |TIPLYB JSR NEGAT|
00001d30  49 56 45 00 43 25 71 9d  4c 44 41 20 24 34 31 30  |IVE.C%q.LDA $410|
00001d40  32 00 4d 25 76 9d 41 53  4c 20 41 00 57 25 80 9d  |2.M%v.ASL A.W%..|
00001d50  41 53 4c 20 41 00 61 25  8a 9d 41 53 4c 20 41 00  |ASL A.a%..ASL A.|
00001d60  69 25 94 9d 54 41 58 00  76 25 9e 9d 4c 44 41 20  |i%..TAX.v%..LDA |
00001d70  23 24 30 30 00 7e 25 a8  9d 54 41 59 00 94 25 b2  |#$00.~%..TAY..%.|
00001d80  9d 4d 4c 4f 50 41 20 53  54 41 20 24 34 30 30 30  |.MLOPA STA $4000|
00001d90  2c 58 00 9c 25 bc 9d 49  4e 59 00 a4 25 c6 9d 49  |,X..%..INY..%..I|
00001da0  4e 58 00 b1 25 d0 9d 43  50 59 20 23 24 30 38 00  |NX..%..CPY #$08.|
00001db0  bf 25 da 9d 42 4e 45 20  4d 4c 4f 50 41 00 cc 25  |.%..BNE MLOPA..%|
00001dc0  e4 9d 4c 44 41 20 23 24  30 36 00 d8 25 ee 9d 53  |..LDA #$06..%..S|
00001dd0  54 41 20 24 46 43 00 ed  25 f8 9d a2 44 49 47 49  |TA $FC..%...DIGI|
00001de0  54 20 4c 44 41 20 24 34  31 30 31 00 f9 25 02 9e  |T LDA $4101..%..|
00001df0  4c 44 58 20 24 46 43 00  08 26 0c 9e 4a 53 52 20  |LDX $FC..&..JSR |
00001e00  a1 44 49 47 49 54 00 15  26 16 9e 43 4d 50 20 23  |.DIGIT..&..CMP #|
00001e10  24 30 30 00 24 26 20 9e  42 45 51 20 44 4d 4f 56  |$00.$& .BEQ DMOV|
00001e20  45 52 00 30 26 2a 9e 53  54 41 20 24 46 44 00 3d  |ER.0&*.STA $FD.=|
00001e30  26 34 9e 4c 44 41 20 23  24 30 36 00 49 26 3e 9e  |&4.LDA #$06.I&>.|
00001e40  53 54 41 20 24 46 42 00  5d 26 48 9e 44 4d 4c 4f  |STA $FB.]&H.DMLO|
00001e50  50 20 4c 44 41 20 24 34  31 30 30 00 69 26 52 9e  |P LDA $4100.i&R.|
00001e60  4c 44 58 20 24 46 42 00  78 26 5c 9e 4a 53 52 20  |LDX $FB.x&\.JSR |
00001e70  a1 44 49 47 49 54 00 8a  26 66 9e 44 4d 4c 42 20  |.DIGIT..&f.DMLB |
00001e80  43 4d 50 20 23 24 30 30  00 99 26 70 9e 42 45 51  |CMP #$00..&p.BEQ|
00001e90  20 44 4d 4f 56 45 52 00  a5 26 7a 9e 53 54 41 20  | DMOVER..&z.STA |
00001ea0  24 46 45 00 b1 26 84 9e  4c 44 41 20 24 46 42 00  |$FE..&..LDA $FB.|
00001eb0  b9 26 8e 9e 43 4c 43 00  c5 26 98 9e 41 44 43 20  |.&..CLC..&..ADC |
00001ec0  24 46 43 00 cd 26 a2 9e  53 45 43 00 da 26 ac 9e  |$FC..&..SEC..&..|
00001ed0  53 42 43 20 23 24 30 43  00 e6 26 b6 9e 4c 44 58  |SBC #$0C..&..LDX|
00001ee0  20 24 46 44 00 ee 26 c0  9e 54 41 59 00 f9 26 ca  | $FD..&..TAY..&.|
00001ef0  9e af 20 23 24 30 31 00  07 27 d4 9e 42 45 51 20  |.. #$01..'..BEQ |
00001f00  4d 53 4b 49 50 00 0f 27  de 9e 54 58 41 00 19 27  |MSKIP..'..TXA..'|
00001f10  e8 9e 41 53 4c 20 41 00  23 27 f2 9e 41 53 4c 20  |..ASL A.#'..ASL |
00001f20  41 00 2d 27 fc 9e 41 53  4c 20 41 00 37 27 06 9f  |A.-'..ASL A.7'..|
00001f30  41 53 4c 20 41 00 3f 27  10 9f 54 41 58 00 4d 27  |ASL A.?'..TAX.M'|
00001f40  1a 9f 4d 53 4b 49 50 20  54 59 41 00 57 27 24 9f  |..MSKIP TYA.W'$.|
00001f50  4c 53 52 20 41 00 63 27  2e 9f 53 54 41 20 24 30  |LSR A.c'..STA $0|
00001f60  32 00 70 27 38 9f 4c 44  41 20 23 24 30 37 00 78  |2.p'8.LDA #$07.x|
00001f70  27 42 9f 53 45 43 00 84  27 4c 9f 53 42 43 20 24  |'B.SEC..'L.SBC $|
00001f80  30 32 00 90 27 56 9f 53  54 41 20 24 30 32 00 9e  |02..'V.STA $02..|
00001f90  27 60 9f 4c 44 41 20 24  34 31 30 32 00 a8 27 6a  |'`.LDA $4102..'j|
00001fa0  9f 41 53 4c 20 41 00 b2  27 74 9f 41 53 4c 20 41  |.ASL A..'t.ASL A|
00001fb0  00 bc 27 7e 9f 41 53 4c  20 41 00 c8 27 88 9f 41  |..'~.ASL A..'..A|
00001fc0  44 43 20 24 30 32 00 d0  27 92 9f 54 41 59 00 dc  |DC $02..'..TAY..|
00001fd0  27 9c 9f 53 54 58 20 24  32 34 00 e8 27 a6 9f 4c  |'..STX $24..'..L|
00001fe0  44 58 20 24 30 32 00 f0  27 b0 9f 53 45 44 00 00  |DX $02..'..SED..|
00001ff0  28 ba 9f 4c 44 41 20 24  34 30 30 30 2c 59 00 08  |(..LDA $4000,Y..|
00002000  28 c4 9f 43 4c 43 00 14  28 ce 9f 41 44 43 20 24  |(..CLC..(..ADC $|
00002010  32 34 00 24 28 d8 9f 53  54 41 20 24 34 30 30 30  |24.$(..STA $4000|
00002020  2c 59 00 31 28 e2 9f 4d  41 4c 50 20 43 4c 44 00  |,Y.1(..MALP CLD.|
00002030  40 28 ec 9f 42 43 43 20  4d 41 51 55 49 54 00 48  |@(..BCC MAQUIT.H|
00002040  28 f6 9f 44 45 59 00 50  28 00 a0 44 45 58 00 5d  |(..DEY.P(..DEX.]|
00002050  28 0a a0 43 50 58 20 23  24 46 46 00 6c 28 14 a0  |(..CPX #$FF.l(..|
00002060  42 45 51 20 4d 41 51 55  49 54 00 74 28 1e a0 53  |BEQ MAQUIT.t(..S|
00002070  45 44 00 84 28 28 a0 4c  44 41 20 24 34 30 30 30  |ED..((.LDA $4000|
00002080  2c 59 00 8c 28 32 a0 43  4c 43 00 99 28 3c a0 41  |,Y..(2.CLC..(<.A|
00002090  44 43 20 23 24 30 31 00  a9 28 46 a0 53 54 41 20  |DC #$01..(F.STA |
000020a0  24 34 30 30 30 2c 59 00  b6 28 50 a0 4a 4d 50 20  |$4000,Y..(P.JMP |
000020b0  4d 41 4c 50 00 c9 28 5a  a0 44 4d 4f 56 45 52 20  |MALP..(Z.DMOVER |
000020c0  49 4e 43 20 24 46 42 00  d5 28 64 a0 4c 44 41 20  |INC $FB..(d.LDA |
000020d0  24 46 42 00 e2 28 6e a0  43 4d 50 20 23 24 30 45  |$FB..(n.CMP #$0E|
000020e0  00 f0 28 78 a0 42 43 43  20 44 4d 4c 4f 50 00 fc  |..(x.BCC DMLOP..|
000020f0  28 82 a0 49 4e 43 20 24  46 43 00 08 29 8c a0 4c  |(..INC $FC..)..L|
00002100  44 41 20 24 46 43 00 15  29 96 a0 43 4d 50 20 23  |DA $FC..)..CMP #|
00002110  24 30 45 00 24 29 a0 a0  42 43 43 20 a2 44 49 47  |$0E.$)..BCC .DIG|
00002120  49 54 00 31 29 aa a0 4c  44 41 20 59 50 49 42 00  |IT.1)..LDA YPIB.|
00002130  3e 29 b4 a0 42 45 51 20  51 55 49 54 00 4c 29 be  |>)..BEQ QUIT.L).|
00002140  a0 4c 44 41 20 24 34 31  30 32 00 5a 29 c8 a0 53  |.LDA $4102.Z)..S|
00002150  54 41 20 24 34 31 30 31  00 67 29 d2 a0 4c 44 41  |TA $4101.g)..LDA|
00002160  20 23 24 31 44 00 75 29  dc a0 53 54 41 20 24 34  | #$1D.u)..STA $4|
00002170  31 30 30 00 86 29 e6 a0  4a 53 52 20 53 55 42 54  |100..)..JSR SUBT|
00002180  52 41 43 54 00 93 29 f0  a0 51 55 49 54 20 52 54  |RACT..)..QUIT RT|
00002190  53 00 a6 29 fa a0 4d 41  51 55 49 54 20 4c 44 58  |S..)..MAQUIT LDX|
000021a0  20 24 46 45 00 ae 29 04  a1 44 45 58 00 b6 29 0e  | $FE..)..DEX..).|
000021b0  a1 54 58 41 00 c3 29 18  a1 4a 4d 50 20 44 4d 4c  |.TXA..)..JMP DML|
000021c0  42 00 d6 29 22 a1 4d 53  55 50 20 4c 44 41 20 24  |B..)".MSUP LDA $|
000021d0  34 31 30 30 00 e0 29 2c  a1 41 53 4c 20 41 00 ea  |4100..),.ASL A..|
000021e0  29 36 a1 41 53 4c 20 41  00 f4 29 40 a1 41 53 4c  |)6.ASL A..)@.ASL|
000021f0  20 41 00 fc 29 4a a1 54  41 58 00 04 2a 54 a1 44  | A..)J.TAX..*T.D|
00002200  45 58 00 10 2a 5e a1 53  54 58 20 24 46 42 00 1e  |EX..*^.STX $FB..|
00002210  2a 68 a1 4c 44 41 20 24  34 31 30 31 00 28 2a 72  |*h.LDA $4101.(*r|
00002220  a1 41 53 4c 20 41 00 32  2a 7c a1 41 53 4c 20 41  |.ASL A.2*|.ASL A|
00002230  00 3c 2a 86 a1 41 53 4c  20 41 00 44 2a 90 a1 54  |.<*..ASL A.D*..T|
00002240  41 58 00 4c 2a 9a a1 44  45 58 00 58 2a a4 a1 53  |AX.L*..DEX.X*..S|
00002250  54 58 20 24 46 44 00 66  2a ae a1 4c 44 41 20 24  |TX $FD.f*..LDA $|
00002260  34 31 30 32 00 70 2a b8  a1 41 53 4c 20 41 00 7a  |4102.p*..ASL A.z|
00002270  2a c2 a1 41 53 4c 20 41  00 84 2a cc a1 41 53 4c  |*..ASL A..*..ASL|
00002280  20 41 00 8c 2a d6 a1 54  41 58 00 94 2a e0 a1 44  | A..*..TAX..*..D|
00002290  45 58 00 a0 2a ea a1 53  54 58 20 24 32 32 00 ad  |EX..*..STX $22..|
000022a0  2a f4 a1 4c 44 41 20 23  24 34 30 00 b9 2a fe a1  |*..LDA #$40..*..|
000022b0  53 54 41 20 24 46 43 00  c5 2a 08 a2 53 54 41 20  |STA $FC..*..STA |
000022c0  24 46 45 00 d1 2a 12 a2  53 54 41 20 24 32 33 00  |$FE..*..STA $23.|
000022d0  d9 2a 1c a2 52 54 53 00  ec 2a 26 a2 45 51 55 41  |.*..RTS..*&.EQUA|
000022e0  4c 20 4a 53 52 20 4d 53  55 50 00 f9 2a 30 a2 4c  |L JSR MSUP..*0.L|
000022f0  44 59 20 23 24 30 38 00  0e 2b 3a a2 45 4c 4f 50  |DY #$08..+:.ELOP|
00002300  20 4c 44 41 20 28 24 46  42 29 2c 59 00 1e 2b 44  | LDA ($FB),Y..+D|
00002310  a2 53 54 41 20 28 24 32  32 29 2c 59 00 26 2b 4e  |.STA ($22),Y.&+N|
00002320  a2 44 45 59 00 33 2b 58  a2 42 4e 45 20 45 4c 4f  |.DEY.3+X.BNE ELO|
00002330  50 00 3b 2b 62 a2 52 54  53 00 50 2b 6c a2 41 44  |P.;+b.RTS.P+l.AD|
00002340  44 49 54 49 91 20 4a 53  52 20 4d 53 55 50 00 5d  |DITI. JSR MSUP.]|
00002350  2b 76 a2 4c 44 59 20 23  24 30 38 00 65 2b 80 a2  |+v.LDY #$08.e+..|
00002360  53 45 44 00 6d 2b 8a a2  43 4c 43 00 83 2b 94 a2  |SED.m+..CLC..+..|
00002370  41 44 4c 4f 50 20 4c 44  41 20 28 24 46 42 29 2c  |ADLOP LDA ($FB),|
00002380  59 00 93 2b 9e a2 41 44  43 20 28 24 46 44 29 2c  |Y..+..ADC ($FD),|
00002390  59 00 a3 2b a8 a2 53 54  41 20 28 24 32 32 29 2c  |Y..+..STA ($22),|
000023a0  59 00 ab 2b b2 a2 44 45  59 00 b9 2b bc a2 42 4e  |Y..+..DEY..+..BN|
000023b0  45 20 41 44 4c 4f 50 00  c1 2b c6 a2 43 4c 44 00  |E ADLOP..+..CLD.|
000023c0  c9 2b d0 a2 52 54 53 00  df 2b da a2 53 55 42 54  |.+..RTS..+..SUBT|
000023d0  52 41 43 54 20 4a 53 52  20 4d 53 55 50 00 ec 2b  |RACT JSR MSUP..+|
000023e0  e4 a2 4c 44 59 20 23 24  30 38 00 f4 2b ee a2 53  |..LDY #$08..+..S|
000023f0  45 44 00 fc 2b f8 a2 53  45 43 00 12 2c 02 a3 53  |ED..+..SEC..,..S|
00002400  55 4c 4f 50 20 4c 44 41  20 28 24 46 42 29 2c 59  |ULOP LDA ($FB),Y|
00002410  00 22 2c 0c a3 53 42 43  20 28 24 46 44 29 2c 59  |.",..SBC ($FD),Y|
00002420  00 32 2c 16 a3 53 54 41  20 28 24 32 32 29 2c 59  |.2,..STA ($22),Y|
00002430  00 3a 2c 20 a3 44 45 59  00 48 2c 2a a3 42 4e 45  |.:, .DEY.H,*.BNE|
00002440  20 53 55 4c 4f 50 00 50  2c 34 a3 43 4c 44 00 58  | SULOP.P,4.CLD.X|
00002450  2c 3e a3 52 54 53 00 6e  2c 48 a3 4e 45 47 41 54  |,>.RTS.n,H.NEGAT|
00002460  49 56 45 20 4c 44 41 20  23 24 30 30 00 76 2c 52  |IVE LDA #$00.v,R|
00002470  a3 50 48 41 00 84 2c 5c  a3 4c 44 41 20 24 34 31  |.PHA..,\.LDA $41|
00002480  30 30 00 8c 2c 66 a3 54  41 59 00 96 2c 70 a3 41  |00..,f.TAY..,p.A|
00002490  53 4c 20 41 00 a0 2c 7a  a3 41 53 4c 20 41 00 aa  |SL A..,z.ASL A..|
000024a0  2c 84 a3 41 53 4c 20 41  00 b2 2c 8e a3 54 41 58  |,..ASL A..,..TAX|
000024b0  00 c2 2c 98 a3 4c 44 41  20 24 34 30 30 31 2c 58  |..,..LDA $4001,X|
000024c0  00 cf 2c a2 a3 43 4d 50  20 23 24 35 30 00 e2 2c  |..,..CMP #$50..,|
000024d0  a7 a3 42 43 43 20 4e 45  47 52 4d 4f 56 45 41 42  |..BCC NEGRMOVEAB|
000024e0  00 ea 2c ac a3 50 4c 41  00 f7 2c b6 a3 41 44 43  |..,..PLA..,..ADC|
000024f0  20 23 24 30 30 00 ff 2c  c0 a3 50 48 41 00 11 2d  | #$00..,..PHA..-|
00002500  ca a3 4a 4d 50 20 4e 45  47 52 4d 4f 56 45 41 00  |..JMP NEGRMOVEA.|
00002510  2a 2d d4 a3 4e 45 47 52  4d 4f 56 45 41 42 20 4c  |*-..NEGRMOVEAB L|
00002520  44 41 20 24 34 31 30 31  00 32 2d de a3 54 41 59  |DA $4101.2-..TAY|
00002530  00 3c 2d e8 a3 41 53 4c  20 41 00 46 2d f2 a3 41  |.<-..ASL A.F-..A|
00002540  53 4c 20 41 00 50 2d fc  a3 41 53 4c 20 41 00 58  |SL A.P-..ASL A.X|
00002550  2d 06 a4 54 41 58 00 68  2d 10 a4 4c 44 41 20 24  |-..TAX.h-..LDA $|
00002560  34 30 30 31 2c 58 00 75  2d 1a a4 43 4d 50 20 23  |4001,X.u-..CMP #|
00002570  24 35 30 00 7d 2d 24 a4  50 4c 41 00 8a 2d 2e a4  |$50.}-$.PLA..-..|
00002580  42 43 43 20 4e 4f 45 b0  00 96 2d 38 a4 45 b0 20  |BCC NOE...-8.E. |
00002590  23 24 30 31 00 9e 2d 42  a4 50 48 41 00 b0 2d 4c  |#$01..-B.PHA..-L|
000025a0  a4 42 43 53 20 4e 45 47  52 4d 4f 56 45 42 00 c3  |.BCS NEGRMOVEB..|
000025b0  2d 56 a4 4e 45 47 52 4d  4f 56 45 42 42 20 50 4c  |-V.NEGRMOVEBB PL|
000025c0  41 00 d5 2d 60 a4 4e 4f  45 b0 20 53 54 41 20 59  |A..-`.NOE. STA Y|
000025d0  50 49 42 00 dd 2d 6a a4  52 54 53 00 f4 2d 74 a4  |PIB..-j.RTS..-t.|
000025e0  4e 45 47 52 4d 4f 56 45  20 4c 44 41 20 24 34 31  |NEGRMOVE LDA $41|
000025f0  30 30 00 fc 2d 7e a4 50  48 41 00 0a 2e 88 a4 4c  |00..-~.PHA.....L|
00002600  44 41 20 24 34 31 30 31  00 12 2e 92 a4 50 48 41  |DA $4101.....PHA|
00002610  00 20 2e 9c a4 4c 44 41  20 24 34 31 30 32 00 28  |. ...LDA $4102.(|
00002620  2e a6 a4 50 48 41 00 30  2e b0 a4 54 59 41 00 3e  |...PHA.0...TYA.>|
00002630  2e ba a4 53 54 41 20 24  34 31 30 31 00 4c 2e c4  |...STA $4101.L..|
00002640  a4 53 54 41 20 24 34 31  30 32 00 59 2e ce a4 4c  |.STA $4102.Y...L|
00002650  44 41 20 23 24 31 44 00  67 2e d8 a4 53 54 41 20  |DA #$1D.g...STA |
00002660  24 34 31 30 30 00 78 2e  e2 a4 4a 53 52 20 53 55  |$4100.x...JSR SU|
00002670  42 54 52 41 43 54 00 80  2e ec a4 50 4c 41 00 8e  |BTRACT.....PLA..|
00002680  2e f6 a4 53 54 41 20 24  34 31 30 32 00 96 2e 00  |...STA $4102....|
00002690  a5 50 4c 41 00 a4 2e 0a  a5 53 54 41 20 24 34 31  |.PLA.....STA $41|
000026a0  30 31 00 ac 2e 14 a5 50  4c 41 00 ba 2e 1e a5 53  |01.....PLA.....S|
000026b0  54 41 20 24 34 31 30 30  00 c2 2e 28 a5 52 54 53  |TA $4100...(.RTS|
000026c0  00 dd 2e 32 a5 4e 45 47  52 4d 4f 56 45 41 20 4a  |...2.NEGRMOVEA J|
000026d0  53 52 20 4e 45 47 52 4d  4f 56 45 00 f0 2e 3c a5  |SR NEGRMOVE...<.|
000026e0  4a 4d 50 20 4e 45 47 52  4d 4f 56 45 41 42 00 0b  |JMP NEGRMOVEAB..|
000026f0  2f 46 a5 4e 45 47 52 4d  4f 56 45 42 20 4a 53 52  |/F.NEGRMOVEB JSR|
00002700  20 4e 45 47 52 4d 4f 56  45 00 1e 2f 50 a5 4a 4d  | NEGRMOVE../P.JM|
00002710  50 20 4e 45 47 52 4d 4f  56 45 42 42 00 35 2f 5a  |P NEGRMOVEBB.5/Z|
00002720  a5 4d 55 4c 54 49 50 4c  59 20 4c 44 41 20 24 34  |.MULTIPLY LDA $4|
00002730  31 30 32 00 3d 2f 64 a5  50 48 41 00 4b 2f 6e a5  |102.=/d.PHA.K/n.|
00002740  4c 44 41 20 24 34 31 30  31 00 53 2f 78 a5 50 48  |LDA $4101.S/x.PH|
00002750  41 00 60 2f 82 a5 4c 44  41 20 23 24 31 38 00 6e  |A.`/..LDA #$18.n|
00002760  2f 8c a5 53 54 41 20 24  34 31 30 32 00 7c 2f 96  |/..STA $4102.|/.|
00002770  a5 4a 53 52 20 45 51 55  41 4c 00 8a 2f a0 a5 49  |.JSR EQUAL../..I|
00002780  4e 43 20 24 34 31 30 32  00 92 2f aa a5 50 4c 41  |NC $4102../..PLA|
00002790  00 a0 2f b4 a5 53 54 41  20 24 34 31 30 30 00 ae  |../..STA $4100..|
000027a0  2f be a5 4a 53 52 20 45  51 55 41 4c 00 bb 2f c8  |/..JSR EQUAL../.|
000027b0  a5 4c 44 41 20 23 24 31  38 00 c9 2f d2 a5 53 54  |.LDA #$18../..ST|
000027c0  41 20 24 34 31 30 30 00  d6 2f dc a5 4c 44 41 20  |A $4100../..LDA |
000027d0  23 24 31 39 00 e4 2f e6  a5 53 54 41 20 24 34 31  |#$19../..STA $41|
000027e0  30 31 00 ec 2f f0 a5 50  4c 41 00 fa 2f fa a5 53  |01../..PLA../..S|
000027f0  54 41 20 24 34 31 30 32  00 0c 30 04 a6 4a 4d 50  |TA $4102..0..JMP|
00002800  20 4d 55 4c 54 49 50 4c  59 42 00 30 30 50 c3 3b  | MULTIPLYB.00P.;|
00002810  20 20 20 20 20 20 20 20  20 20 20 47 52 41 50 48  |           GRAPH|
00002820  49 43 20 50 4f b5 20 50  4c 4f 54 54 45 52 00 44  |IC PO. PLOTTER.D|
00002830  30 5a c3 50 4c 4f 54 50  43 20 4c 44 41 20 23 24  |0Z.PLOTPC LDA #$|
00002840  34 37 00 50 30 64 c3 53  54 41 20 24 46 42 00 5d  |47.P0d.STA $FB.]|
00002850  30 6e c3 4c 44 41 20 23  24 33 46 00 69 30 78 c3  |0n.LDA #$3F.i0x.|
00002860  53 54 41 20 24 46 43 00  78 30 82 c3 4c 44 41 20  |STA $FC.x0..LDA |
00002870  59 50 49 58 45 4c 00 82  30 8c c3 4c 53 52 20 41  |YPIXEL..0..LSR A|
00002880  00 8c 30 96 c3 4c 53 52  20 41 00 96 30 a0 c3 4c  |..0..LSR A..0..L|
00002890  53 52 20 41 00 a3 30 aa  c3 53 54 41 20 59 50 49  |SR A..0..STA YPI|
000028a0  42 00 ae 30 b4 c3 af 20  23 24 30 33 00 b8 30 be  |B..0... #$03..0.|
000028b0  c3 41 53 4c 20 41 00 c2  30 c8 c3 41 53 4c 20 41  |.ASL A..0..ASL A|
000028c0  00 cc 30 d2 c3 41 53 4c  20 41 00 d6 30 dc c3 41  |..0..ASL A..0..A|
000028d0  53 4c 20 41 00 e0 30 e6  c3 41 53 4c 20 41 00 ea  |SL A..0..ASL A..|
000028e0  30 f0 c3 41 53 4c 20 41  00 f6 30 fa c3 53 54 41  |0..ASL A..0..STA|
000028f0  20 24 30 32 00 02 31 04  c4 4c 44 41 20 24 46 42  | $02..1..LDA $FB|
00002900  00 0a 31 0e c4 53 45 43  00 16 31 18 c4 53 42 43  |..1..SEC..1..SBC|
00002910  20 24 30 32 00 22 31 22  c4 53 54 41 20 24 46 42  | $02."1".STA $FB|
00002920  00 2e 31 2c c4 4c 44 41  20 24 46 43 00 3b 31 36  |..1,.LDA $FC.;16|
00002930  c4 53 42 43 20 23 24 30  30 00 48 31 3b c4 53 42  |.SBC #$00.H1;.SB|
00002940  43 20 59 50 49 42 00 50  31 40 c4 50 48 41 00 5d  |C YPIB.P1@.PHA.]|
00002950  31 4a c4 4c 44 41 20 59  50 49 42 00 67 31 54 c4  |1J.LDA YPIB.g1T.|
00002960  4c 53 52 20 41 00 71 31  5e c4 4c 53 52 20 41 00  |LSR A.q1^.LSR A.|
00002970  7d 31 68 c4 53 54 41 20  24 30 32 00 85 31 72 c4  |}1h.STA $02..1r.|
00002980  50 4c 41 00 8d 31 7c c4  53 45 43 00 99 31 86 c4  |PLA..1|.SEC..1..|
00002990  53 42 43 20 24 30 32 00  a5 31 90 c4 53 54 41 20  |SBC $02..1..STA |
000029a0  24 46 43 00 b4 31 9a c4  4c 44 41 20 59 50 49 58  |$FC..1..LDA YPIX|
000029b0  45 4c 00 bf 31 a4 c4 af  20 23 24 30 37 00 cc 31  |EL..1... #$07..1|
000029c0  ae c4 53 54 41 20 59 50  49 42 00 d8 31 b8 c4 4c  |..STA YPIB..1..L|
000029d0  44 41 20 24 46 42 00 e0  31 c2 c4 53 45 43 00 ed  |DA $FB..1..SEC..|
000029e0  31 cc c4 53 42 43 20 59  50 49 42 00 f5 31 d6 c4  |1..SBC YPIB..1..|
000029f0  50 48 41 00 04 32 e0 c4  4c 44 41 20 58 50 49 58  |PHA..2..LDA XPIX|
00002a00  45 4c 00 0f 32 ea c4 af  20 23 24 46 38 00 1c 32  |EL..2... #$F8..2|
00002a10  f4 c4 53 54 41 20 59 50  49 42 00 24 32 fe c4 50  |..STA YPIB.$2..P|
00002a20  4c 41 00 2c 32 08 c5 43  4c 43 00 39 32 12 c5 41  |LA.,2..CLC.92..A|
00002a30  44 43 20 59 50 49 42 00  45 32 1c c5 53 54 41 20  |DC YPIB.E2..STA |
00002a40  24 46 42 00 51 32 26 c5  4c 44 41 20 24 46 43 00  |$FB.Q2&.LDA $FC.|
00002a50  5e 32 30 c5 53 42 43 20  23 24 30 30 00 6a 32 3a  |^20.SBC #$00.j2:|
00002a60  c5 53 54 41 20 24 46 43  00 79 32 44 c5 4c 44 41  |.STA $FC.y2D.LDA|
00002a70  20 58 50 49 58 45 4c 00  84 32 4e c5 af 20 23 24  | XPIXEL..2N.. #$|
00002a80  30 37 00 8c 32 58 c5 54  41 58 00 99 32 62 c5 4c  |07..2X.TAX..2b.L|
00002a90  44 41 20 23 24 38 30 00  ad 32 6c c5 47 42 49 54  |DA #$80..2l.GBIT|
00002aa0  4c 50 20 43 50 58 20 23  24 30 30 00 b9 32 76 c5  |LP CPX #$00..2v.|
00002ab0  42 45 51 20 50 50 9a 00  c3 32 80 c5 4c 53 52 20  |BEQ PP...2..LSR |
00002ac0  41 00 cb 32 8a c5 44 45  58 00 da 32 94 c5 4a 4d  |A..2..DEX..2..JM|
00002ad0  50 20 47 42 49 54 4c 50  00 ea 32 9e c5 50 50 9a  |P GBITLP..2..PP.|
00002ae0  20 53 54 41 20 24 46 44  00 f2 32 a8 c5 52 54 53  | STA $FD..2..RTS|
00002af0  00 07 33 b2 c5 50 4c 4f  a4 4e 20 4a 53 52 20 50  |..3..PLO.N JSR P|
00002b00  4c 4f 54 50 43 00 14 33  bc c5 4c 44 59 20 23 24  |LOTPC..3..LDY #$|
00002b10  30 30 00 24 33 c6 c5 4c  44 41 20 28 24 46 42 29  |00.$3..LDA ($FB)|
00002b20  2c 59 00 2f 33 d0 c5 b0  41 20 24 46 44 00 3f 33  |,Y./3...A $FD.?3|
00002b30  da c5 53 54 41 20 28 24  46 42 29 2c 59 00 47 33  |..STA ($FB),Y.G3|
00002b40  e4 c5 52 54 53 00 5d 33  ee c5 50 4c 4f a4 46 46  |..RTS.]3..PLO.FF|
00002b50  20 4a 53 52 20 50 4c 4f  54 50 43 00 69 33 f8 c5  | JSR PLOTPC.i3..|
00002b60  4c 44 41 20 24 46 44 00  75 33 02 c6 45 b0 20 23  |LDA $FD.u3..E. #|
00002b70  24 46 46 00 81 33 0c c6  53 54 41 20 24 46 44 00  |$FF..3..STA $FD.|
00002b80  8e 33 16 c6 4c 44 59 20  23 24 30 30 00 9e 33 20  |.3..LDY #$00..3 |
00002b90  c6 4c 44 41 20 28 24 46  42 29 2c 59 00 a8 33 2a  |.LDA ($FB),Y..3*|
00002ba0  c6 af 20 24 46 44 00 b8  33 34 c6 53 54 41 20 28  |.. $FD..34.STA (|
00002bb0  24 46 42 29 2c 59 00 c0  33 3e c6 52 54 53 00 d4  |$FB),Y..3>.RTS..|
00002bc0  33 48 c6 50 4c 4f 54 20  4c 44 41 20 43 4f 4c 4f  |3H.PLOT LDA COLO|
00002bd0  55 52 00 df 33 52 c6 af  20 23 24 30 32 00 ec 33  |UR..3R.. #$02..3|
00002be0  5c c6 42 4e 45 20 50 50  41 91 00 fb 33 66 c6 4a  |\.BNE PPA...3f.J|
00002bf0  53 52 20 50 4c 4f a4 46  46 00 0a 34 70 c6 4a 4d  |SR PLO.FF..4p.JM|
00002c00  50 20 50 50 41 43 4e 54  00 1d 34 7a c6 50 50 41  |P PPACNT..4z.PPA|
00002c10  91 20 4a 53 52 20 50 4c  4f a4 4e 00 33 34 84 c6  |. JSR PLO.N.34..|
00002c20  50 50 41 43 4e 54 20 49  4e 43 20 58 50 49 58 45  |PPACNT INC XPIXE|
00002c30  4c 00 42 34 8e c6 4c 44  41 20 43 4f 4c 4f 55 52  |L.B4..LDA COLOUR|
00002c40  00 4d 34 98 c6 af 20 23  24 30 31 00 5a 34 a2 c6  |.M4... #$01.Z4..|
00002c50  42 4e 45 20 50 50 42 91  00 69 34 ac c6 4a 53 52  |BNE PPB..i4..JSR|
00002c60  20 50 4c 4f a4 46 46 00  78 34 b6 c6 4a 4d 50 20  | PLO.FF.x4..JMP |
00002c70  50 50 42 43 4e 54 00 8b  34 c0 c6 50 50 42 91 20  |PPBCNT..4..PPB. |
00002c80  4a 53 52 20 50 4c 4f a4  4e 00 a1 34 ca c6 50 50  |JSR PLO.N..4..PP|
00002c90  42 43 4e 54 20 49 4e 43  20 58 50 49 58 45 4c 00  |BCNT INC XPIXEL.|
00002ca0  a9 34 d4 c6 52 54 53 00  cf 34 60 ea 3b 20 20 20  |.4..RTS..4`.;   |
00002cb0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00002cc0  5a 4f 4f 4d 20 52 4f 55  54 49 4e 45 53 00 de 34  |ZOOM ROUTINES..4|
00002cd0  6a ea 42 4f 58 20 4c 44  41 20 58 50 00 eb 34 74  |j.BOX LDA XP..4t|
00002ce0  ea 53 54 41 20 58 50 49  42 00 f6 34 7e ea 4c 44  |.STA XPIB..4~.LD|
00002cf0  41 20 59 50 00 03 35 88  ea 53 54 41 20 59 50 49  |A YP..5..STA YPI|
00002d00  42 00 0f 35 92 ea 4c 44  41 20 58 50 42 00 1d 35  |B..5..LDA XPB..5|
00002d10  9c ea 53 54 41 20 58 50  42 49 42 00 2a 35 a6 ea  |..STA XPBIB.*5..|
00002d20  4c 44 58 20 23 24 33 43  00 38 35 b0 ea 53 54 58  |LDX #$3C.85..STX|
00002d30  20 24 30 37 46 43 00 40  35 ba ea 49 4e 58 00 4e  | $07FC.@5..INX.N|
00002d40  35 c4 ea 53 54 58 20 24  30 37 46 44 00 56 35 ce  |5..STX $07FD.V5.|
00002d50  ea 49 4e 58 00 64 35 d8  ea 53 54 58 20 24 30 37  |.INX.d5..STX $07|
00002d60  46 45 00 6c 35 e2 ea 49  4e 58 00 7a 35 ec ea 53  |FE.l5..INX.z5..S|
00002d70  54 58 20 24 30 37 46 46  00 88 35 f6 ea 4c 44 41  |TX $07FF..5..LDA|
00002d80  20 24 44 30 31 35 00 94  35 00 eb b0 41 20 23 24  | $D015..5...A #$|
00002d90  46 30 00 a2 35 0a eb 53  54 41 20 24 44 30 31 35  |F0..5..STA $D015|
00002da0  00 b6 35 14 eb 42 4f 58  4c 4f 4f 50 20 4c 44 41  |..5..BOXLOOP LDA|
00002db0  20 24 41 32 00 c1 35 1e  eb af 20 23 24 33 43 00  | $A2..5... #$3C.|
00002dc0  cb 35 28 eb 4c 53 52 20  41 00 d5 35 32 eb 4c 53  |.5(.LSR A..52.LS|
00002dd0  52 20 41 00 dd 35 3c eb  54 41 58 00 ef 35 46 eb  |R A..5<.TAX..5F.|
00002de0  4c 44 41 20 42 4f 58 43  4f 4c 53 2c 58 00 fd 35  |LDA BOXCOLS,X..5|
00002df0  50 eb 53 54 41 20 24 44  30 32 42 00 0b 36 5a eb  |P.STA $D02B..6Z.|
00002e00  53 54 41 20 24 44 30 32  43 00 19 36 64 eb 53 54  |STA $D02C..6d.ST|
00002e10  41 20 24 44 30 32 44 00  27 36 6e eb 53 54 41 20  |A $D02D.'6n.STA |
00002e20  24 44 30 32 45 00 35 36  78 eb 4c 44 41 20 58 50  |$D02E.56x.LDA XP|
00002e30  42 49 42 00 41 36 82 eb  43 4d 50 20 58 50 42 00  |BIB.A6..CMP XPB.|
00002e40  53 36 8c eb 42 45 51 20  43 48 45 43 4b 46 49 4e  |S6..BEQ CHECKFIN|
00002e50  45 00 64 36 96 eb 42 43  43 20 4c 45 53 53 54 48  |E.d6..BCC LESSTH|
00002e60  41 4e 00 74 36 a0 eb 4a  4d 50 20 4d b0 45 54 48  |AN.t6..JMP M.ETH|
00002e70  41 4e 00 8b 36 aa eb 43  48 45 43 4b 46 49 4e 45  |AN..6..CHECKFINE|
00002e80  20 4c 44 41 20 58 50 49  42 00 96 36 b4 eb 43 4d  | LDA XPIB..6..CM|
00002e90  50 20 58 50 00 a7 36 be  eb 42 43 43 20 4c 45 53  |P XP..6..BCC LES|
00002ea0  53 54 48 41 4e 00 bc 36  c8 eb 4d b0 45 54 48 41  |STHAN..6..M.ETHA|
00002eb0  4e 20 4c 44 41 20 58 50  49 42 00 ca 36 d2 eb 53  |N LDA XPIB..6..S|
00002ec0  54 41 20 24 44 30 30 38  00 d8 36 dc eb 53 54 41  |TA $D008..6..STA|
00002ed0  20 24 44 30 30 41 00 e5  36 e6 eb 4c 44 58 20 23  | $D00A..6..LDX #|
00002ee0  24 30 30 00 f3 36 f0 eb  4c 44 41 20 58 50 42 49  |$00..6..LDA XPBI|
00002ef0  42 00 04 37 fa eb 42 45  51 20 4e 4f 58 50 42 41  |B..7..BEQ NOXPBA|
00002f00  44 44 00 11 37 04 ec 4c  44 58 20 23 24 33 30 00  |DD..7..LDX #$30.|
00002f10  28 37 0e ec 4e 4f 58 50  42 41 44 44 20 4c 44 41  |(7..NOXPBADD LDA|
00002f20  20 24 44 30 31 30 00 33  37 18 ec af 20 23 24 43  | $D010.37... #$C|
00002f30  46 00 3f 37 22 ec 53 54  58 20 24 30 32 00 47 37  |F.?7".STX $02.G7|
00002f40  2c ec 43 4c 43 00 53 37  36 ec 41 44 43 20 24 30  |,.CLC.S76.ADC $0|
00002f50  32 00 61 37 40 ec 53 54  41 20 24 44 30 31 30 00  |2.a7@.STA $D010.|
00002f60  6e 37 45 ec 4c 44 58 20  23 24 30 30 00 79 37 4a  |n7E.LDX #$00.y7J|
00002f70  ec 4c 44 41 20 58 50 00  81 37 54 ec 53 45 43 00  |.LDA XP..7T.SEC.|
00002f80  8e 37 5e ec 53 42 43 20  23 24 31 38 00 9c 37 68  |.7^.SBC #$18..7h|
00002f90  ec 53 54 41 20 24 44 30  30 43 00 aa 37 72 ec 53  |.STA $D00C..7r.S|
00002fa0  54 41 20 24 44 30 30 45  00 b8 37 7c ec 42 43 43  |TA $D00E..7|.BCC|
00002fb0  20 4d 54 53 55 42 00 c4  37 86 ec 4c 44 58 20 58  | MTSUB..7..LDX X|
00002fc0  50 42 00 d2 37 90 ec 42  45 51 20 4d 54 53 55 42  |PB..7..BEQ MTSUB|
00002fd0  00 df 37 9a ec 4c 44 58  20 23 24 43 30 00 f3 37  |..7..LDX #$C0..7|
00002fe0  a4 ec 4d 54 53 55 42 20  4c 44 41 20 24 44 30 31  |..MTSUB LDA $D01|
00002ff0  30 00 fe 37 ae ec af 20  23 24 33 46 00 0a 38 b8  |0..7... #$3F..8.|
00003000  ec 53 54 58 20 24 30 32  00 12 38 c2 ec 43 4c 43  |.STX $02..8..CLC|
00003010  00 1e 38 cc ec 41 44 43  20 24 30 32 00 2c 38 d6  |..8..ADC $02.,8.|
00003020  ec 53 54 41 20 24 44 30  31 30 00 39 38 e0 ec 4a  |.STA $D010.98..J|
00003030  4d 50 20 42 4f 58 9a 00  4d 38 ea ec 4c 45 53 53  |MP BOX..M8..LESS|
00003040  54 48 41 4e 20 4c 44 41  20 58 50 00 59 38 f4 ec  |THAN LDA XP.Y8..|
00003050  4c 44 58 20 58 50 42 00  66 38 fe ec 42 4e 45 20  |LDX XPB.f8..BNE |
00003060  a8 4f 55 54 00 73 38 08  ed 43 4d 50 20 23 24 35  |.OUT.s8..CMP #$5|
00003070  38 00 80 38 12 ed 42 43  53 20 a8 4f 55 54 00 8d  |8..8..BCS .OUT..|
00003080  38 1c ed 4c 44 41 20 23  24 35 38 00 a0 38 26 ed  |8..LDA #$58..8&.|
00003090  a8 4f 55 54 20 53 54 41  20 24 44 30 30 38 00 ae  |.OUT STA $D008..|
000030a0  38 30 ed 53 54 41 20 24  44 30 30 41 00 bb 38 3a  |80.STA $D00A..8:|
000030b0  ed 43 50 58 20 23 24 30  30 00 cb 38 44 ed 42 45  |.CPX #$00..8D.BE|
000030c0  51 20 4c 54 4e 4f 41 44  44 00 d8 38 4e ed 4c 44  |Q LTNOADD..8N.LD|
000030d0  58 20 23 24 33 30 00 ee  38 58 ed 4c 54 4e 4f 41  |X #$30..8X.LTNOA|
000030e0  44 44 20 4c 44 41 20 24  44 30 31 30 00 f9 38 62  |DD LDA $D010..8b|
000030f0  ed af 20 23 24 43 46 00  05 39 6c ed 53 54 58 20  |.. #$CF..9l.STX |
00003100  24 30 32 00 0d 39 76 ed  43 4c 43 00 19 39 80 ed  |$02..9v.CLC..9..|
00003110  41 44 43 20 24 30 32 00  27 39 8a ed 53 54 41 20  |ADC $02.'9..STA |
00003120  24 44 30 31 30 00 34 39  8f ed 4c 44 58 20 23 24  |$D010.49..LDX #$|
00003130  30 30 00 41 39 94 ed 4c  44 41 20 58 50 49 42 00  |00.A9..LDA XPIB.|
00003140  49 39 9e ed 53 45 43 00  56 39 a8 ed 53 42 43 20  |I9..SEC.V9..SBC |
00003150  23 24 31 38 00 64 39 b2  ed 53 54 41 20 24 44 30  |#$18.d9..STA $D0|
00003160  30 43 00 72 39 bc ed 53  54 41 20 24 44 30 30 45  |0C.r9..STA $D00E|
00003170  00 80 39 c6 ed 42 43 43  20 4c 54 53 55 42 00 8e  |..9..BCC LTSUB..|
00003180  39 d0 ed 4c 44 58 20 58  50 42 49 42 00 9c 39 da  |9..LDX XPBIB..9.|
00003190  ed 42 45 51 20 4c 54 53  55 42 00 a9 39 e4 ed 4c  |.BEQ LTSUB..9..L|
000031a0  44 58 20 23 24 43 30 00  bd 39 ee ed 4c 54 53 55  |DX #$C0..9..LTSU|
000031b0  42 20 4c 44 41 20 24 44  30 31 30 00 c8 39 f8 ed  |B LDA $D010..9..|
000031c0  af 20 23 24 33 46 00 d4  39 02 ee 53 54 58 20 24  |. #$3F..9..STX $|
000031d0  30 32 00 dc 39 0c ee 43  4c 43 00 e8 39 16 ee 41  |02..9..CLC..9..A|
000031e0  44 43 20 24 30 32 00 f6  39 20 ee 53 54 41 20 24  |DC $02..9 .STA $|
000031f0  44 30 31 30 00 06 3a 2a  ee 42 4f 58 9a 20 4c 44  |D010..:*.BOX. LD|
00003200  41 20 59 50 00 13 3a 34  ee 43 4d 50 20 59 50 49  |A YP..:4.CMP YPI|
00003210  42 00 21 3a 3e ee 42 43  43 20 4c 45 53 53 59 00  |B.!:>.BCC LESSY.|
00003220  2e 3a 48 ee 4c 44 41 20  59 50 49 42 00 3c 3a 52  |.:H.LDA YPIB.<:R|
00003230  ee 53 54 41 20 24 44 30  30 39 00 4a 3a 5c ee 53  |.STA $D009.J:\.S|
00003240  54 41 20 24 44 30 30 44  00 55 3a 66 ee 4c 44 41  |TA $D00D.U:f.LDA|
00003250  20 59 50 00 5d 3a 70 ee  53 45 43 00 6a 3a 7a ee  | YP.]:p.SEC.j:z.|
00003260  53 42 43 20 23 24 31 35  00 78 3a 84 ee 53 54 41  |SBC #$15.x:..STA|
00003270  20 24 44 30 30 42 00 86  3a 8e ee 53 54 41 20 24  | $D00B..:..STA $|
00003280  44 30 30 46 00 95 3a 98  ee 4a 4d 50 20 42 4f 58  |D00F..:..JMP BOX|
00003290  9a 49 49 00 a6 3a a2 ee  4c 45 53 53 59 20 4c 44  |.II..:..LESSY LD|
000032a0  41 20 59 50 00 b4 3a ac  ee 53 54 41 20 24 44 30  |A YP..:..STA $D0|
000032b0  30 39 00 c2 3a b6 ee 53  54 41 20 24 44 30 30 44  |09..:..STA $D00D|
000032c0  00 cf 3a c0 ee 4c 44 41  20 59 50 49 42 00 d7 3a  |..:..LDA YPIB..:|
000032d0  ca ee 53 45 43 00 e4 3a  d4 ee 53 42 43 20 23 24  |..SEC..:..SBC #$|
000032e0  31 35 00 f2 3a de ee 53  54 41 20 24 44 30 30 42  |15..:..STA $D00B|
000032f0  00 00 3b e8 ee 53 54 41  20 24 44 30 30 46 00 15  |..;..STA $D00F..|
00003300  3b f2 ee 42 4f 58 9a 49  49 20 4c 44 41 20 43 4c  |;..BOX.II LDA CL|
00003310  49 43 4b 00 22 3b fc ee  42 45 51 20 42 4f 58 80  |ICK.";..BEQ BOX.|
00003320  00 32 3b 06 ef 4a 4d 50  20 42 4f 58 4c 4f 4f 50  |.2;..JMP BOXLOOP|
00003330  00 44 3b 10 ef 42 4f 58  80 20 4c 44 41 20 23 24  |.D;..BOX. LDA #$|
00003340  30 32 00 50 3b 1a ef 53  54 41 20 24 30 32 00 58  |02.P;..STA $02.X|
00003350  3b 24 ef 52 54 53 00 7a  3b 2e ef 42 4f 58 43 4f  |;$.RTS.z;..BOXCO|
00003360  4c 53 20 54 58 54 20 30  2c 39 2c 32 2c 38 2c 31  |LS TXT 0,9,2,8,1|
00003370  30 2c 37 2c 31 33 2c 31  00 94 3b 38 ef 54 58 54  |0,7,13,1..;8.TXT|
00003380  20 31 2c 31 33 2c 33 2c  35 2c 31 34 2c 34 2c 36  | 1,13,3,5,14,4,6|
00003390  2c 30 00 00 00                                    |,0...|
00003395