;MANDELPLOT";SOURCE CODE0;22/10/956(;Bd��$0E00ji;                         VARIABLES{nXPIXEL�$4103�xYPIXEL�$4104��COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B	�HOUR�$410C	�XPIB�$410D#	�XPBIB�$410EK	
;                      ROM ROUTINES\	"
OUTDO �$AB47k	#
�LFS�$FFBAz	$
�NAM�$FFBD�	%
�ROM�$FFD8�	,
;                       SPRITE DATA�	1
;�	6
TXT 224,000,000,176,000,000,152,000
@
TXT 000,140,000,000,134,000,000,131/
J
TXT 000,000,129,128,000,128,192,000W
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,000�
|
TXT 000,000,000,000,000,000,000,153�
�
;%�
TXT 000,000,000,064,000,000,096,000M�
TXT 000,112,000,000,120,000,000,124u�
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,000�
TXT 000,000,000,000,000,000,000,000=�
TXT 000,000,000,000,000,000,000,153C�
;k�
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,000��
TXT 055,000,000,065,128,000,066,128
�
TXT 000,129,064,000,130,192,000,1333
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,127
:TXT 128,000,063,000,000,012,000,000)DTXT 063,000,000,127,128,000,127,128QNTXT 000,255,192,000,255,192,000,255yXTXT 192,000,255,192,000,000,000,000�bTXT 000,000,000,000,000,000,000,000�lTXT 000,000,000,000,000,000,000,197�q;�vTXT 168,000,000,000,000,000,128,000�TXT 000,000,000,000,128,000,000,000G�TXT 000,000,000,000,000,000,000,000o�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,197�;=�TXT 000,000,021,000,000,000,000,000e�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,000�TXT 000,000,000,000,000,000,000,000-TXT 000,000,000,000,000,000,000,000U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�4TXT 000,000,000,000,000,000,000,000#>TXT 000,000,000,000,000,000,000,000KHTXT 000,000,000,000,000,000,000,000sRTXT 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,000�pTXT 000,000,000,000,000,000,000,000zTXT 000,000,000,000,000,000,000,000A�TXT 000,000,000,000,000,000,000,000i�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,000��TXT 001,000,000,000,000,000,021,000��;
';           MAIN �ROL ROUTINES'JSR INIT/$'COMEBACK JSR HIRES�D.'�ROLOP LDA CLICKS8'BNE �ROLOPgB'�LOPB LDA CLICKuL'BEQ �LOPB�V'LDA XP�`'CMP #$58�j'BCC ���t'JMP BOX�~'�� LDA YP��'SEC��'SBC #$5A��'LSR A��'LSR A��'� #$FE��'TAX��'LDA VEC�RS,X�'STA $FB�'INX$�'LDA VEC�RS,X0�'STA $FC@�'JMP ($00FB)�(VEC�RS TXT �ZOOMOUT,�ZOOMOUT,��ROLOP,��ROLOP,�ZOOMIN,�ZOOMIN�
(TXT ��ROLOP,��ROLOP,��ITI�,��ITI�,��ROLOP,��ROLOP�(TXT ��ROLOP,��ROLOP,�COLS,�COLS,��ROLOP,��ROLOP'(TXT �COLCYCLE,�COLCYCLE,��ROLOP,��ROLOP,�M�PLOT,�M�PLOT[((TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,�EXIT,�EXIT�2(TXT ��ROLOP,��ROLOP,��,��,��ROLOP,��ROLOP,��,���<(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP�)EXIT JSR HIRESOFF�)LDA #$93�)JSR OUTDO")LDA #$05,)JSR OUTDO6)RTSA�.;                   WIMP ROUTINEST�.; WIMP - MOUSEe�.IRQ LDA #$00s/STA CLICK/LDA $C5�/CMP #$01�&/BNE C�CHECK�0/STA CLICK�:/C�CHECK CMP #$0C�D/BEQ LEFTK�N/LKC CMP #$17�X/BEQ RIGHTK�b/RKC CMP #$32
l/BEQ UPKv/UPKC CMP #$37*�/BEQ DOWNK<�/DKC LDA $DC00G�/� #$01S�/BEQ UPJe�/UJC LDA $DC00p�/� #$02~�/BEQ DOWNJ��/DJC LDA $DC00��/� #$04��/BEQ LEFTJ��/LJC LDA $DC00��/� #$08�0BEQ RIGHTJ�0RJC LDA $DC00�0� #$10� 0E� #$10*0BEQ CJCH40STA CLICK/>0CJCH JMP BOXFLASHBH0LEFTK JSR LEFTNR0JMP LKCc\0RIGHTK JSR RIGHTof0JMP 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 RIGHT$�0JMP RJC4�0LEFT DEC XP?�0LDA XPL�0CMP #$FFX1BNE �FFe1LDY #$00q1STY XPB�$1�FF LDY XPB�.1BNE FIN�81CMP #$18�B1BNE FIN�L1INC XP�V1FIN JMP �ROL�`1RIGHT INC XP�j1LDA XP�t1BNE �00�~1LDY #$01�1STY XPB�1�00 LDY XPB�1BEQ FIN,�1CMP #$588�1BNE FINC�1DEC XPP�1JMP �ROL^�1UP DEC YPi�1LDA YPv�1CMP #$32��1BNE FIN��1INC YP�2JMP �ROL�
2DOWN INC YP�2LDA YP�2CMP #$F8�(2BNE FIN�22DEC YP�<2JMP �ROL�F2; WIMP � PO�ERP2�ROL LDA HOURZ2BEQ NHGLASS(�3LDX #$3A6�3STX $07F8>�3INXL�3STX $07F9_�3NHGLASS LDA XPm�3STA $D000{�3STA $D002��3LDA YP��3STA $D001��3STA $D003��3LDA $D010�4� #$FC�4LSR A�4CLC�&4ADC XPB�04ASL A�:4CLC�D4ADC XPBN4STA $D010X4LDA #$00 b4STA $D027-l4LDA #$01;v4STA $D028I�4LDA $D015U�4�A #$03c�4STA $D015p�4LDA HOUR}�4BNE QTRO��4LDX #$38��4STX $07F8��4INX��4STX $07F9��4QTRO RTS��4; STARTUP ROUTINES��4INIT LDA #$00��4STA $D0205STA $D0215STA XP5STA HOUR& 5STA $D0153*5LDA #$01?45STA XPBL>5LDA #$80WH5STA YPkR5HIRES� LDA #$3By\5STA $D011�f5LDA #$D8�p5STA $D016�z5LDA #$00��5STA $FB��5TAY��5LDA #$04��5STA $FC��5LDA #$7E��5FLOP STA ($FB),Y��5INY�5BEQ FLOPINC�5CPY #$F8"�5BNE FLOP.�5LDX $FC;�5CPX #$07H�5BNE FLOPU6JSR LEFT]6SEIk6LDA #�IRQy$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 #$DC/ �6BNE FLOPB< �6LDA #$18J �6STA $D018R 4:RTSf >:FLOPINC INC $FCs 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 $D016 !�:LDA #$15.!�:STA $D0186!�:RTSI! N� JSR HIRESOFFV!*NLDA #$1Cd!4NJSR OUTDOq!>NLDA #$93!HNJSR OUTDO�!RNLDA #$00�!\N�LOOP PHA�!fNASL A�!pNASL A�!zNCLC�!�NADC #$42�!�NSTA $FC�!�NLDY #$00�!�NSTY $FB�!�NSTY $FD
"�NLDA #$04
"�NSTA $FE$"�N�LOOPB LDA ($FB),Y4"�NSTA ($FD),Y<"�NINYK"�NBNE �LOOPBW"�NINC $FCc"�NINC $FEo"OLDA $FE|"OCMP #$08�"OBNE �LOOPB�"$O�� LDA $C5�".OCMP #$40�"8OBNE ���"BO��B LDA $C5�"LOCMP #$40�"VOBEQ ��B�"`OTAX�"jOPLA�"tOCPX #$01#~OBEQ HNOM�E#�OCPX #$28#�OBEQ �+#�OCPX #$2B8#�OBEQ PREVE#�O�RET PHAQ#�OJMP ��Bi#�OHNOM�E JMP COMEBACKx#�O� CMP #$04�#�OBEQ �RET�#�OCLC�#�OADC #$01�#�OJMP �LOOP�#PPREV CMP #$00�#
PBEQ �RET�#PSEC�#PSBC #$01�#(PJMP �LOOP$�a;                   SAVE ROUTINES#$�a�AME TXT 147,59$�aTXT "FILENAME:",0`$�a�RD TXT 13,13,"(T)APE OR (D)ISK",0�$�a�T TXT 13,13,"POSITION TAPE <SPACE>",13,0�$�aINSD TXT 13,13,"INSERT DISK <SPACE>",13,0�$�aPSTRING LDY #$00�$�aPSTRLOP LDA ($FB),Y�$�aBEQ PSTRQUIT%bJSR OUTDO%bINY %bJMP PSTRLOP1%bPSTRQUIT RTSF% b�OFF LDA $040A,YR%*bE� #$80b%4bSTA $040A,Yj%>bRTSy%Hb�� LDA $C5�%RbCMP #$40�%\bBNE ���%fb��B LDA $C5�%pbCMP #$40�%zbBEQ ��B�%�bTAX�%�bLDA ��,X�%�bBEQ ���%�bRTS�%�b� JSR HIRESOFF&�bLDX #$00&�bLDA #$20%&�b�AME� STA $41F0,X-&�bINX:&�bCPX #$10H&�bBNE �AME�W&�bLDA #��AMEc&�bSTA $FBr&cLDA #��AME~&cSTA $FC�&cJSR PSTRING�&$cLDA #$00�&.cPHA�&8c�LOOP TAY�&=cJSR �OFF�&BcJSR ���&GcPHA�&LcJSR �OFF�&QcPLA�&VcCMP #$80'`cBCS DECODE
'jcTAY'tcPLA'~cTAX"'�cTYA2'�cSTA $040A,X?'�cCMP #$20M'�cBCS NOSPCU'�cCLCb'�cADC #$40x'�cNOSPC STA $41F0,X�'�cINC� CPX #$0F�'�cBEQ �RELOP�'�cINX�'�c�RELOP TXA�'�cPHA�'�cJMP �LOOP�'dDECODE CMP #$80�'
dBEQ ��'dCMP #$81�'dBEQ �	((dCMP #$82(2dBNE �LOOP(<dPLA'(FdTAX5(PdLDA $0283@(Zd� #$01M(ddBEQ INC�_(ndDEC� CPX #$00n(xdBEQ �RELOPv(�dDEX�(�dJMP �RELOP�(�d� PLA�(�dTAX�(�dLDA #$20�(�dSTA $040A,X�(�dSTA $41F0,X�(�dJMP DEC��(�d� PLA�(�dLDA #��RD�(�dSTA $FB)�dLDA #��RD)�dSTA $FC )�dJSR PSTRING-)e� JSR ��:)eCMP #$14H)eBEQ TAPE�U)"eCMP #$04c),eBEQ DISK�m)6eJMP ��)@eTAPE� LDA #��T�)JeSTA $FB�)TeLDA #��T�)^eSTA $FC�)heJSR PSTRING�)reLDX #$01�)|eJMP TAPE��)�eDISK� LDA #�INSD�)�eSTA $FB*�eLDA #�INSD*�eSTA $FC*�eJSR PSTRING)*�eLDX #$08;*�eTAPE� LDA $C5H*�eCMP #$3CV*�eBNE TAPE�c*�eLDA #$01k*�eTAYx*�eJSR �LFS�*�eLDX #$0F�*f�AME� LDA $41F0,X�*fCMP #$20�*fBNE �AME�T�*&fDEX�*0fBEQ �AME�T�*:fJMP �AME��*Df�AME�T TXA�*XfLDX #$F0+bfLDY #$41+lfJSR �NAM+vfLDA #$20++�fSTA $FC8+�fLDX #$00D+�fSTA $FBQ+�fLDY #$40^+�fLDA #$FBk+�fJSR �ROM|+�fJMP COMEBACK�+xi;           KEYBOARD DECODE TABLE�+�i;�+�i�� TXT $81,$80,$82�+�iTXT 0,0,0,0,$83,51,23,1,52,26,�iTXT 19,5,0,53,18,4,54,3,6,20,24*,�iTXT 55,25,7,56,2,8,21,22,57,9,10P,�iTXT 48,13,11,15,14,43,16,12,45,46t,�iTXT 0,0,44,0,0,0,0,0,0,30,47,49�,�iTXT 31,0,50,32,0,17,0,0�,0u;          M�LEBROT SET PLOTTER�,:uM�LE SEI�,?uLDA #$00�,DuSTA YPIXEL�,NuLDA #$03�,XuSTA $4100-buLDA #$06-luSTA $4102!-vuJSR EQUAL5-�uMMAINL LDA #$00D-�uSTA XPIXELQ-�uLDA #$01_-�uSTA $4100l-�uLDA #$05z-�uSTA $4102�-�uJSR EQUAL�-�uMMAINLB LDA #$05�-�uSTA $4100�-�uLDA #$07�-�uSTA $4102�-�uJSR EQUAL�-�uINC $4100�-vINC $4102�-vJSR EQUAL.vLDA #$00. vSTA COLOUR,.*vLOOP LDA #$07:.4vSTA $4100H.>vSTA $4101U.HvLDA #$10c.RvSTA $4102t.\vJSR MULTIPLY�.fvLDA #$08�.pvSTA $4100�.zvSTA $4101�.�vLDA #$11�.�vSTA $4102�.�vJSR MULTIPLY�.�vLDX #$10�.�vSTX $4100�.�vINX�.�vSTX $4101/�vINX/�vSTX $4102 /�vJSR ADDITI�./�vLDA $4091;/�vCMP #$04H/�vBCC FAILU/wCMP #$50b/wBCS FAILz/wSUCPASS JMP SUCCESS�/$wFAIL INC COLOUR�/)wLDA COLOUR�/.wCMP MAXCOL�/8wBEQ SUCPASS�/BwJSR SUBTRACT�/LwLDA #$12�/VwSTA $4100�/`wLDA #$050jwSTA $41010twLDA #$130~wSTA $4102.0�wJSR ADDITI�;0�wLDA #$07I0�wSTA $4100V0�wLDA #$08d0�wSTA $4101r0�wINC $4102�0�wJSR MULTIPLY�0�wLDA #$14�0�wSTA $4100�0�wLDA #$1C�0�wSTA $4101�0�wLDA #$15�0xSTA $4102�0
xJSR MULTIPLY�0xLDA #$151xSTA $4100
1(xLDA #$0612xSTA $4101(1<xLDA #$1661FxSTA $4102F1PxJSR ADDITI�S1ZxLDA #$13a1dxSTA $4100n1nxLDA #$07|1xxSTA $4102�1�xJSR EQUAL�1�xLDA #$16�1�xSTA $4100�1�xLDA #$08�1�xSTA $4102�1�xJSR EQUAL�1�xJMP LOOP�1�xSUCCESS JSR PLOT�1�xLDA #$052�xSTA $41002�xSTA $4102&2�xLDA #$0242�xSTA $4101D2yJSR ADDITI�S2yLDA XPIXELb2yBNE XRELOPo2"yLDA #$06}2,ySTA $4100�26ySTA $4102�2@yLDA #$04�2JySTA $4101�2TyJSR ADDITI��2^yINC YPIXEL�2hyLDA YPIXEL�2ryCMP #$C8�2|yBNE YRELOP�2�yCLI3�yRTS3�yXRELOP JMP MMAINLB-3�yYRELOP JMP MMAINLA3�yM�PLOT JSR M�LEP3�yJMP �ROLOPv3@�;             ARITHMETIC ROUTINES�3J��DIGIT CLD�3T�ASL A�3^�ASL A�3h�ASL A�3r�STA $02�3|�TXA�3��LSR A�3��STA $24�3��LDA #$07�3��SEC�3��SBC $24�3��CLC4œADC $02
4̜TAY4֜LDA $4000,Y"4�TAY*4�TXA54� #$01C4��BEQ LSNGDK4�TYAV4�� #$F0`4�LSR Aj4&�LSR At40�LSR A~4:�LSR A�4D�RTS�4N�LSNGD TYA�4X�� #$0F�4b�RTS�4l�MULTIPLYB JSR NEGATIVE�4q�LDA $4102�4v�ASL A�4��ASL A�4��ASL A�4��TAX5��LDA #$005��TAY!5��MLOPA STA $4000,X)5��INY15ƝINX>5НCPY #$08L5ڝBNE MLOPAY5�LDA #$06e5�STA $FCz5���DIGIT LDA $4101�5�LDX $FC�5�JSR �DIGIT�5�CMP #$00�5 �BEQ DMOVER�5*�STA $FD�54�LDA #$06�5>�STA $FB�5H�DMLOP LDA $4100�5R�LDX $FB6\�JSR �DIGIT6f�CMP #$00!6p�BEQ DMOVER-6z�STA $FE96��LDA $FBA6��CLCM6��ADC $FCU6��SECb6��SBC #$0Cn6��LDX $FDv6��TAY�6ʞ� #$01�6ԞBEQ MSKIP�6ޞTXA�6�ASL A�6�ASL A�6��ASL A�6�ASL A�6�TAX�6�MSKIP TYA�6$�LSR A�6.�STA $02�68�LDA #$077B�SEC7L�SBC $027V�STA $02&7`�LDA $410207j�ASL A:7t�ASL AD7~�ASL AP7��ADC $02\7��STA $25d7��TAYp7��STX $24�7��DMLB LDX $02�7��SED�7��LDA $4000,Y�7ğCLC�7ΟADC $24�7؟STA $4000,Y�7�MALP CLD�7�BCC MAQUIT�7��DEY�7�DEX�7
�CPX #$FF8�BEQ MAQUIT
8�SED8(�LDA $4000,Y%82�CLC28<�ADC #$01B8F�STA $4000,YO8P�JMP MALPb8Z�DMOVER INC $FBn8d�LDA $FB{8n�CMP #$0E�8x�BCC DMLOP�8��INC $FC�8��LDA $FC�8��CMP #$0E�8��BCC �DIGIT�8��LDA YPIB�8��BEQ QUIT�8��LDA $4102�8ȠSTA $41019ҠLDA #$1D9ܠSTA $41009�JSR SUBTRACT,9�QUIT RTS?9��MAQUIT LDX $FEG9�DEXV9�BEQ DMOVERb9
�STX $FEn9�LDY $25{9�JMP DMLB�9"�MSUP LDA $4100�9,�ASL A�96�ASL A�9@�ASL A�9J�TAX�9T�DEX�9^�STX $FB�9h�LDA $4101�9r�ASL A�9|�ASL A�9��ASL A�9��TAX:��DEX:��STX $FD:��LDA $4102(:��ASL A2:¡ASL A<:̡ASL AD:֡TAXL:�DEXX:�STX $22e:�LDA #$40q:��STA $FC}:�STA $FE�:�STA $23�:�RTS�:&�EQUAL JSR MSUP�:0�LDY #$08�::�ELOP LDA ($FB),Y�:D�STA ($22),Y�:N�DEY�:X�BNE ELOP�:b�RTS;l�ADDITI� JSR MSUP;v�LDY #$08;��SED%;��CLC;;��ADLOP LDA ($FB),YK;��ADC ($FD),Y[;��STA ($22),Yc;��DEYq;��BNE ADLOPy;ƢCLD�;ТRTS�;ڢSUBTRACT JSR MSUP�;�LDY #$08�;�SED�;��SEC�;�SULOP LDA ($FB),Y�;�SBC ($FD),Y�;�STA ($22),Y�; �DEY<*�BNE SULOP<4�CLD<>�RTS&<H�NEGATIVE LDA #$00.<R�PHA<<\�LDA $4100D<f�TAYN<p�ASL AX<z�ASL Ab<��ASL Aj<��TAXz<��LDA $4001,X�<��CMP #$50�<��BCC NEGRMOVEAB�<��PLA�<��ADC #$00�<��PHA�<ʣJMP NEGRMOVEA�<ԣNEGRMOVEAB LDA $4101�<ޣTAY�<�ASL A�<�ASL A=��ASL A=�TAX =�LDA $4001,X-=�CMP #$505=$�PLAB=.�BCC NOE�N=8�E� #$01V=B�PHAh=L�BCS NEGRMOVEB{=V�NEGRMOVEBB PLA�=`�NOE� STA YPIB�=j�RTS�=t�NEGRMOVE LDA $4100�=~�PHA�=��LDA $4101�=��PHA�=��LDA $4102�=��PHA�=��TYA�=��STA $4101>ĤSTA $4102>ΤLDA #$1D>ؤSTA $41000>�JSR SUBTRACT8>�PLAF>��STA $4102N>�PLA\>
�STA $4101d>�PLAr>�STA $4100z>(�RTS�>2�NEGRMOVEA JSR NEGRMOVE�><�JMP NEGRMOVEAB�>F�NEGRMOVEB JSR NEGRMOVE�>P�JMP NEGRMOVEBB�>Z�MULTIPLY LDA $4102�>d�PHA?n�LDA $4101?x�PHA?��LDA #$18&?��STA $41024?��JSR EQUALB?��INC $4102J?��PLAX?��STA $4100f?��JSR EQUALs?ȥLDA #$18�?ҥSTA $4100�?ܥLDA #$19�?�STA $4101�?�PLA�?��STA $4102�?�JMP MULTIPLYB�?P�;           GRAPHIC PO� PLOTTER�?Z�PLOTPC LDA #$47@d�STA $FB@n�LDA #$3F!@x�STA $FC0@��LDA YPIXEL:@��LSR AD@��LSR AN@��LSR A[@��STA YPIBf@�ï #$03p@��ASL Az@��ASL A�@��ASL A�@��ASL A�@��ASL A�@��ASL A�@��STA $02�@�LDA $FB�@�SEC�@�SBC $02�@"�STA $FB�@,�LDA $FC�@6�SBC #$00A;�SBC YPIBA@�PHAAJ�LDA YPIBAT�LSR A)A^�LSR A5Ah�STA $02=Ar�PLAEA|�SECQA��SBC $02]A��STA $FClA��LDA YPIXELwA�į #$07�A��STA YPIB�A��LDA $FB�A��SEC�A��SBC YPIB�A��PHA�A��LDA XPIXEL�A�į #$F8�A��STA YPIB�A��PLA�A�CLC�A�ADC YPIB�A�STA $FB	B&�LDA $FCB0�SBC #$00"B:�STA $FC1BD�LDA XPIXEL<BNů #$07DBX�TAXQBb�LDA #$80eBl�GBITLP CPX #$00qBv�BEQ PP�{B��LSR A�B��DEX�B��JMP GBITLP�B��PP� STA $FD�B��RTS�B��PLO�N JSR PLOTPC�B��LDY #$00�B��LDA ($FB),Y�B�ŰA $FD�B��STA ($FB),Y�B��RTSC��PLO�FF JSR PLOTPC!C��LDA $FD-C�E� #$FF9C�STA $FDFC�LDY #$00VC �LDA ($FB),Y`C*Ư $FDpC4�STA ($FB),YxC>�RTS�CH�PLOT LDA COLOUR�CRƯ #$02�C\�BNE PPA��Cf�JSR PLO�FF�Cp�JMP PPACNT�Cz�PPA� JSR PLO�N�C��PPACNT INC XPIXEL�C��LDA COLOURD�Ư #$01D��BNE PPB�!D��JSR PLO�FF0D��JMP PPBCNTCD��PPB� JSR PLO�NYD��PPBCNT INC XPIXELaD��RTS�D��;       ZOOM CALCULATI� ROUTINES�D��NOZOOM JMP �ROLOP�D��ZOOMIN LDA $D015�D�֯ #$F0�D�CMP #$F0�D
�BNE NOZOOM�D�LDA #$1E�D�STA $4100E(�LDA #$01E2�STA $4101E<�LDA #$10)EF�STA $4102:EP�JSR SUBTRACTGEZ�LDA #$01UEd�STA $4100cEn�INC $4102qEx�JSR EQUAL~E��LDA #$10�E��STA $4100�E��LDA #$1B�E��STA $4101�E��LDA #$12�E��STA $4102�E��JSR MULTIPLY�E��LDA #$11�E��STA $4100�E��STA $4102	F��LDA #$12F��STA $4101%F��LDA $D008-F�SEC:F�SBC #$58RF�CALCINLOPA CMP #$00bF"�BEQ CALC�IAjF,�PHAzF6�JSR ADDITI��F@�PLA�FJ�TAX�FT�DEX�F^�TXA�Fh�JMP CALCINLOPA�Fr�CALC�IA LDA #$01�F|�STA $4100�F��LDA #$13�F��STA $4102�F��JSR EQUALG��LDA #$13G��STA $4100"G��STA $4102/G��LDA #$12=G��STA $4101KG��LDA $D00ASG��SEC`G��SBC #$40xG��CALCINLOPB CMP #$00�G��BEQ CALC�IB�G�PHA�G�JSR ADDITI��G�PLA�G&�TAX�G0�DEX�G:�TXA�GD�JMP CALCINLOPB�GN�CALC�IB LDA #$11�GX�STA $4100Hb�LDA #$01Hl�STA $4102Hv�JSR EQUAL,H��LDA #$13:H��STA $4100GH��LDA #$1EUH��STA $4102cH��JSR EQUALpH��LDA #$1F~H��STA $4100�H��LDA #$03�H��STA $4101�H��LDA #$10�H��STA $4102�H��JSR SUBTRACT�H��LDA #$03�H�STA $4100�H�INC $4102�H�JSR EQUAL	I �LDA #$10I*�STA $4100$I4�LDA #$122I>�STA $4102?IH�LDA #$1AMIR�STA $4101^I\�JSR MULTIPLYkIf�LDA #$11yIp�STA $4100�Iz�STA $4102�I��LDA #$12�I��STA $4101�I��LDA $D009�I��SEC�I��SBC #$32�I��CALCINYA CMP #$00�I��BEQ CALC�IC�I��PHAJ��JSR ADDITI�J��PLAJ��TAXJ��DEX#J��TXA4J�JMP CALCINYAIJ�CALC�IC LDA #$03WJ�STA $4100dJ$�LDA #$13rJ.�STA $4102�J8�JSR EQUAL�JB�LDA #$13�JL�STA $4100�JV�STA $4102�J`�LDA #$12�Jj�STA $4101�Jt�LDA $D00D�J~�SEC�J��SBC #$1D�J��CALCINYB CMP #$00
K��BEQ CALC�IDK��PHA%K��JSR ADDITI�-K��PLA5K��TAX=K��DEXEK��TXAVK��JMP CALCINYBkK��CALC�ID LDA #$11yK��STA $4100�K�LDA #$03�K
�STA $4102�K�JSR EQUAL�K�LDA #$13�K(�STA $4100�K2�LDA #$1F�K<�STA $4102�KF�JSR EQUAL�KP�LDA #$1E
LZ�STA $4100Ld�LDA #$01Ln�STA $4101)Lx�LDA #$107L��STA $4102HL��JSR SUBTRACTUL��LDA #$10cL��STA $4100pL��LDA #$1B~L��STA $4101�L��LDA #$02�L��STA $4102�L��JSR MULTIPLY�L��LDA #$1F�L��STA $4100�L��LDA #$03�L��STA $4101�L�LDA #$10�L�STA $4102M�JSR SUBTRACTM"�LDA #$10'M,�STA $41004M6�LDA #$1ABM@�STA $4101OMJ�LDA #$04]MT�STA $4102nM^�JSR MULTIPLY{Mh�JSR M�LE�Mr�JMP �ROLOP�M`�;                   ZOOM ROUTINES�Mj�BOX LDA XP�Mt�STA XPIB�M~�LDA YP�M��STA YPIB�M��LDA XPB�M��STA XPBIBN��LDX #$3CN��STX $07FC!N��INX/N��STX $07FD7N��INXEN��STX $07FEMN��INX[N��STX $07FFiN��LDA $D015uN�A #$F0�N
�STA $D015�N�BOX� LDA CLICK�N�BNE BOX��Nx�BOXLOOP LDA XPBIB�N��CMP XPB�N��BEQ CHECKFINE�N��BCS LESSTHAN�N��JMP M�ETHANO��CHECKFINE LDA XPIBO��CMP XP+O��BCS LESSTHAN@O��M�ETHAN LDA XPIBNO��STA $D008\O��STA $D00CiO��LDX #$00wO��LDA XPBIB�O��BEQ NOXPBADD�O�LDX #$50�O�NOXPBADD LDA $D010�O� #$AF�O"�STX $02�O,�CLC�O6�ADC $02�O@�STA $D010�OE�LDX #$00�OJ�LDA XPPT�SECP^�SBC #$18 Ph�STA $D00A.Pr�STA $D00E<P|�BCC MTSUBHP��LDX XPBVP��BEQ MTSUBcP��LDX #$A0wP��MTSUB LDA $D010�P�� #$5F�P��STX $02�P��CLC�P��ADC $02�P��STA $D010�P��JMP BOX��P��LESSTHAN LDA XP�P��LDX XPB�P��BNE �OUT�P�CMP #$58Q�BCS �OUTQ�LDA #$58$Q&�OUT STA $D0082Q0�STA $D00C?Q:�CPX #$00OQD�BEQ LTNOADD\QN�LDX #$50rQX�LTNOADD LDA $D010}Qb� #$AF�Ql�STX $02�Qv�CLC�Q��ADC $02�Q��STA $D010�Q��LDX #$00�Q��LDA XPIB�Q��SEC�Q��SBC #$18�Q��STA $D00A�Q��STA $D00ER��BCC LTSUBR��LDX XPBIB R��BEQ LTSUB-R��LDX #$A0AR��LTSUB LDA $D010LR�� #$5FXR�STX $02`R�CLClR�ADC $02zR �STA $D010�R*�BOX� LDA YP�R4�CMP YPIB�R>�BCC LESSY�RH�LDA YPIB�RR�STA $D009�R\�STA $D00B�Rf�LDA YP�Rp�SEC�Rz�SBC #$15�R��STA $D00D
S��STA $D00FS��JMP BOX�II*S��LESSY LDA YP8S��STA $D009FS��STA $D00BSS��LDA YPIB[S��SEChS��SBC #$15vS��STA $D00D�S��STA $D00F�S��BOX�II LDA CLICK�S��BNE BOX��S�JMP BOXLOOP�S�BOX� JMP �ROLOP�S0�BOXFLASH LDA $A2�S:� #$3C�SD�LSR A�SN�LSR ATX�TAXTb�LDA BOXCOLS,X&Tl�STA $D02B4Tv�STA $D02CBT��STA $D02DPT��STA $D02E^T��JMP $EA31�T��BOXCOLS TXT 0,9,2,8,10,7,13,1�T��TXT 1,13,3,5,14,4,6,0�T�; DELETE THESE!!�T"�COLS JMP �ROLOP�T,�COLCYCLE JMP �ROLOP�TJ��ITI� JMP �ROLOPUT�ZOOMOUT JMP �ROLOP

QHJ@;mandelplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$0e00@JHI@;                         variables@.HN@xpixel.$4103@.HX@ypixel.$4104@.H.@colour.$4105@.H.@ypib.$4106@.H.@maxcol.$4107@.H.@xp.$4108@.H.@yp.$4109@.H.@xpb.$410a@.H.@click.$410b@DI.@hour.$410c@SI.@xpib.$410d@#I.@xpbib.$410e@kIXA;                      rom routines@£I"Aoutdo .$ab47@KI#A.lfs.$ffba@ZI$A.nam.$ffbd@.I%A.rom.$ffd8@.I,A;                       sprite data@.I1A;@.I6Atxt 224,000,000,176,000,000,152,000@GJ@Atxt 000,140,000,000,134,000,000,131@/JjAtxt 000,000,129,128,000,128,192,000@wJtAtxt 128,064,000,147,192,000,185,000@.J.Atxt 000,233,000,000,009,128,000,012@.JHAtxt 128,000,004,128,000,004,128,000@.JRAtxt 007,128,000,000,000,000,000,000@.J.Atxt 000,000,000,000,000,000,000,153@.J.A;@%K.Atxt 000,000,000,064,000,000,096,000@mK.Atxt 000,112,000,000,120,000,000,124@UK.Atxt 000,000,126,000,000,127,000,000@.K.Atxt 127,128,000,108,000,000,070,000@.K.Atxt 000,006,000,000,006,000,000,003@.K.Atxt 000,000,003,000,000,003,000,000@UL.Atxt 000,000,000,000,000,000,000,000@=L.Atxt 000,000,000,000,000,000,000,153@cL.A;@KL.Atxt 255,192,000,129,064,000,128,064@.L.Atxt 000,129,064,000,066,128,000,064@.L.Atxt 128,000,051,000,000,012,000,000@.L.Atxt 055,000,000,065,128,000,066,128@KM.Atxt 000,129,064,000,130,192,000,133@3MHBtxt 064,000,255,192,000,000,000,000@[MRBtxt 000,000,000,000,000,000,000,000@.M£Btxt 000,000,000,000,000,000,000,197@.M!B;@.M&Btxt 255,192,000,255,192,000,255,192@.M0Btxt 000,255,192,000,127,128,000,127@AN:Btxt 128,000,063,000,000,012,000,000@)NdBtxt 063,000,000,127,128,000,127,128@qNnBtxt 000,255,192,000,255,192,000,255@YNxBtxt 192,000,255,192,000,000,000,000@.NBBtxt 000,000,000,000,000,000,000,000@.NLBtxt 000,000,000,000,000,000,000,197@.NQB;@.NVBtxt 168,000,000,000,000,000,128,000@.O.Btxt 000,000,000,000,128,000,000,000@gO.Btxt 000,000,000,000,000,000,000,000@OO.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@OP.Btxt 000,000,000,000,000,000,000,197@UP.B;@=P.Btxt 000,000,021,000,000,000,000,000@EP.Btxt 001,000,000,000,000,000,001,000@.P.Btxt 000,000,000,000,000,000,000,000@.P.Btxt 000,000,000,000,000,000,000,000@.P.Btxt 000,000,000,000,000,000,000,000@EQ.Btxt 000,000,000,000,000,000,000,000@-QBCtxt 000,000,000,000,000,000,000,000@uQLCtxt 000,000,000,000,000,000,000,000@[QQC;@.QVCtxt 000,000,000,000,000,000,000,000@.Q Ctxt 000,000,000,000,000,000,000,000@.Q*Ctxt 000,000,000,000,000,000,000,000@.Q4Ctxt 000,000,000,000,000,000,000,000@#R>Ctxt 000,000,000,000,000,000,000,000@kRhCtxt 000,000,000,000,000,000,000,000@SRrCtxt 128,000,000,000,000,000,128,000@.R£Ctxt 000,000,000,000,168,000,000,000@.RAC;@.RFCtxt 000,000,000,000,000,000,000,000@.RPCtxt 000,000,000,000,000,000,000,000@YSZCtxt 000,000,000,000,000,000,000,000@aS.Ctxt 000,000,000,000,000,000,000,000@IS.Ctxt 000,000,000,000,000,000,000,000@.S.Ctxt 000,000,000,000,000,000,000,000@.S.Ctxt 000,000,001,000,000,000,000,000@.S.Ctxt 001,000,000,000,000,000,021,000@.S.C;@JTP';           main .rol routines@WTZ'jsr init@/T$'comeback jsr hires.@dT.'.rolop lda click@sT8'bne .rolop@GTb'.lopb lda click@UTl'beq .lopb@.Tv'lda xp@.T.'cmp #$58@.TJ'bcc ..@.TT'jmp box@.T.'.. lda yp@.T.'sec@.T.'sbc #$5a@.T.'lsr a@.T.'lsr a@.T.'. #$fe@.T.'tax@.T.'lda vec.rs,x@KU.'sta $fb@SU.'inx@$U.'lda vec.rs,x@0U.'sta $fc@@U.'jmp ($00fb)@.U@(vec.rs txt .zoomout,.zoomout,..rolop,..rolop,.zoomin,.zoomin@.UJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@.UT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@'V.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@[V((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@.V2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@.V<(txt ..rolop,..rolop,..rolop,..rolop,..rolop,..rolop@.VD)exit jsr hiresoff@.VN)lda #$93@.VX)jsr outdo@EW")lda #$05@SW,)jsr outdo@[W6)rts@aW..;                   wimp routines@tW..; wimp - mouse@EW..irq lda #$00@SWH/sta click@.WR/lda $c5@.W£/cmp #$01@.W&/bne c.check@.W0/sta click@.W:/c.check cmp #$0c@.Wd/beq leftk@.Wn/lkc cmp #$17@.Wx/beq rightk@.WB/rkc cmp #$32@JXL/beq upk@£XV/upkc cmp #$37@*X./beq downk@<X./dkc lda $dc00@gX./. #$01@sX./beq upj@EX./ujc lda $dc00@PX./. #$02@.X./beq downj@.X./djc lda $dc00@.X./. #$04@.X./beq leftj@.X./ljc lda $dc00@.X./. #$08@.XB0beq rightj@.XL0rjc lda $dc00@.XV0. #$10@.X 0e. #$10@KY*0beq cjch@YY40sta click@/Y>0cjch jmp boxflash@bYh0leftk jsr left@nYr0jmp lkc@CY£0rightk jsr right@OYF0jmp rkc@.YP0upk jsr up@.YZ0jmp upkc@.Y.0downk jsr down@.Y.0jmp dkc@.Y.0upj jsr up@.Y.0jmp ujc@.Y.0downj jsr down@.Y.0jmp djc@.Y.0leftj jsr left@CZ.0jmp ljc@XZ.0rightj jsr right@$Z.0jmp rjc@4Z.0left dec xp@?Z.0lda xp@lZ.0cmp #$ff@xZF1bne .ff@EZP1ldy #$00@QZZ1sty xpb@.Z$1.ff ldy xpb@.Z.1bne fin@.Z81cmp #$18@.Zb1bne fin@.Zl1inc xp@.Zv1fin jmp .rol@.Z.1right inc xp@.ZJ1lda xp@.ZT1bne .00@.Z.1ldy #$01@C[.1sty xpb@S[.1.00 ldy xpb@.[.1beq fin@,[.1cmp #$58@8[.1bne fin@c[.1dec xp@p[.1jmp .rol@.[.1up dec yp@I[.1lda yp@V[.1cmp #$32@.[.1bne fin@.[.1inc yp@.[@2jmp .rol@.[J2down inc yp@.[T2lda yp@.[.2cmp #$f8@.[(2bne fin@.[22dec yp@.[<2jmp .rol@.[f2; wimp . po.er@K£p2.rol lda hour@[£z2beq nhglass@(£.3ldx #$3a@6£.3stx $07f8@>£.3inx@l£.3stx $07f9@.£.3nhglass lda xp@M£.3sta $d000@.£.3sta $d002@.£.3lda yp@.£.3sta $d001@.£.3sta $d003@.£.3lda $d010@.£H4. #$fc@.£R4lsr a@.££4clc@.£&4adc xpb@.£04asl a@.£:4clc@.£d4adc xpb@E]n4sta $d010@R]x4lda #$00@ ]B4sta $d027@-]L4lda #$01@;]V4sta $d028@i].4lda $d015@u].4.a #$03@C].4sta $d015@P].4lda hour@.].4bne qtro@.].4ldx #$38@.].4stx $07f8@.].4inx@.].4stx $07f9@.].4qtro rts@.].4; startup routines@.].4init lda #$00@.].4sta $d020@@.B5sta $d021@K.L5sta xp@X.V5sta hour@&. 5sta $d015@3.*5lda #$01@?.45sta xpb@l.>5lda #$80@w.h5sta yp@K.r5hires. lda #$3b@Y.£5sta $d011@..F5lda #$d8@..P5sta $d016@..Z5lda #$00@...5sta $fb@...5tay@...5lda #$04@...5sta $fc@...5lda #$7e@...5flop sta ($fb),y@...5iny@H..5beq flopinc@U..5cpy #$f8@"..5bne flop@...5ldx $fc@;..5cpx #$07@h..5bne flop@u.F6jsr left@].P6sei@K.Z6lda #.irq@Y.$6sta $0314@...6lda #.irq@..86sta $0315@..b6cli@..l6lda #$d8@..v6sta $fc@...6lda #$02@..J6ldy #$00@..T6flopb sta ($fb),y@...6iny@...6bne flopb@H .6inc $fc@T .6ldx $fc@! .6cpx #$dc@/ .6bne flopb@< .6lda #$18@j .6sta $d018@r 4:rts@F >:flopinc inc $fc@S 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@E!.:lda #$c8@S!.:sta $d016@ !.:lda #$15@.!.:sta $d018@6!.:rts@i! n. jsr hiresoff@v!*nlda #$1c@D!4njsr outdo@Q!>nlda #$93@.!hnjsr outdo@.!rnlda #$00@.!£n.loop pha@.!Fnasl a@.!Pnasl a@.!Znclc@.!.nadc #$42@.!.nsta $fc@.!.nldy #$00@.!.nsty $fb@.!.nsty $fd@A".nlda #$04@M".nsta $fe@$".n.loopb lda ($fb),y@4".nsta ($fd),y@<".niny@k".nbne .loopb@w".ninc $fc@C".ninc $fe@O"Folda $fe@."Pocmp #$08@."Zobne .loopb@."$o.. lda $c5@.".ocmp #$40@."8obne ..@."bo..b lda $c5@."locmp #$40@."vobeq ..b@.".otax@."Jopla@."Tocpx #$01@G#.obeq hnom.e@T#.ocpx #$28@.#.obeq .@+#.ocpx #$2b@8#.obeq prev@e#.o.ret pha@q#.ojmp ..b@I#.ohnom.e jmp comeback@X#.o. cmp #$04@.#.obeq .ret@.#.oclc@.#.oadc #$01@.#.ojmp .loop@.#@pprev cmp #$00@.#Jpbeq .ret@.#Tpsec@.#.psbc #$01@.#(pjmp .loop@P$.A;                   save routines@#$.A.ame txt 147,5@9$.Atxt "filename:",0@.$.A.rd txt 13,13,"(t)ape or (d)isk",0@.$.A.t txt 13,13,"position tape <space>",13,0@.$.Ainsd txt 13,13,"insert disk <space>",13,0@.$.Apstring ldy #$00@.$.Apstrlop lda ($fb),y@.$.Abeq pstrquit@H%BBjsr outdo@P%GBiny@ %LBjmp pstrlop@1%VBpstrquit rts@f% B.off lda $040a,y@r%*Be. #$80@B%4Bsta $040a,y@J%>Brts@Y%hB.. lda $c5@.%rBcmp #$40@.%£Bbne ..@.%FB..b lda $c5@.%PBcmp #$40@.%ZBbeq ..b@.%.Btax@.%.Blda ..,x@.%.Bbeq ..@.%.Brts@.%.B. jsr hiresoff@B&.Bldx #$00@O&.Blda #$20@%&.B.ame. sta $41f0,x@-&.Binx@:&.Bcpx #$10@h&.Bbne .ame.@w&.Blda #..ame@C&.Bsta $fb@R&FClda #..ame@.&PCsta $fc@.&ZCjsr pstring@.&$Clda #$00@.&.Cpha@.&8C.loop tay@.&=Cjsr .off@.&bCjsr ..@.&gCpha@.&lCjsr .off@.&qCpla@.&vCcmp #$80@B'.Cbcs decode@J'JCtay@R'TCpla@Z'.Ctax@"'.Ctya@2'.Csta $040a,x@?'.Ccmp #$20@m'.Cbcs nospc@u'.Cclc@B'.Cadc #$40@X'.Cnospc sta $41f0,x@.'.Cinc. cpx #$0f@.'.Cbeq .relop@.'.Cinx@.'.C.relop txa@.'.Cpha@.'.Cjmp .loop@.'@Ddecode cmp #$80@.'JDbeq ..@.'TDcmp #$81@.'.Dbeq .@I((Dcmp #$82@W(2Dbne .loop@.(<Dpla@'(fDtax@5(pDlda $0283@@(zD. #$01@m(DDbeq inc.@.(NDdec. cpx #$00@N(XDbeq .relop@V(.Ddex@.(.Djmp .relop@.(.D. pla@.(.Dtax@.(.Dlda #$20@.(.Dsta $040a,x@.(.Dsta $41f0,x@.(.Djmp dec.@.(.D.. pla@.(.Dlda #..rd@.(.Dsta $fb@D).Dlda #..rd@P).Dsta $fc@ ).Djsr pstring@-)DE. jsr ..@:)NEcmp #$14@h)XEbeq tape.@u)"Ecmp #$04@C),Ebeq disk.@M)6Ejmp .@.)@Etape. lda #..t@.)jEsta $fb@.)tElda #..t@.).Esta $fc@.)HEjsr pstring@.)REldx #$01@.).Ejmp tape.@.).Edisk. lda #.insd@.).Esta $fb@@*.Elda #.insd@L*.Esta $fc@£*.Ejsr pstring@)*.Eldx #$08@;*.Etape. lda $c5@h*.Ecmp #$3c@v*.Ebne tape.@C*.Elda #$01@K*.Etay@X*.Ejsr .lfs@.*.Eldx #$0f@.*HF.ame. lda $41f0,x@.*RFcmp #$20@.*£Fbne .ame.t@.*&Fdex@.*0Fbeq .ame.t@.*:Fjmp .ame.@.*dF.ame.t txa@.*xFldx #$f0@E+BFldy #$41@R+LFjsr .nam@.+VFlda #$20@++.Fsta $fc@8+.Fldx #$00@d+.Fsta $fb@q+.Fldy #$40@.+.Flda #$fb@K+.Fjsr .rom@.+.Fjmp comeback@.+XI;           keyboard decode table@.+.I;@.+.I.. txt $81,$80,$82@.+.Itxt 0,0,0,0,$83,51,23,1,52,26@E,.Itxt 19,5,0,53,18,4,54,3,6,20,24@*,.Itxt 55,25,7,56,2,8,21,22,57,9,10@p,.Itxt 48,13,11,15,14,43,16,12,45,46@T,.Itxt 0,0,44,0,0,0,0,0,0,30,47,49@.,.Itxt 31,0,50,32,0,17,0,0@.,0U;          m.lebrot set plotter@.,:Um.le sei@.,?Ulda #$00@.,dUsta ypixel@.,nUlda #$03@.,xUsta $4100@E-BUlda #$06@S-LUsta $4102@!-VUjsr equal@5-.Ummainl lda #$00@d-.Usta xpixel@q-.Ulda #$01@.-.Usta $4100@L-.Ulda #$05@Z-.Usta $4102@.-.Ujsr equal@.-.Ummainlb lda #$05@.-.Usta $4100@.-.Ulda #$07@.-.Usta $4102@.-.Ujsr equal@.-.Uinc $4100@.-BVinc $4102@.-LVjsr equal@K.VVlda #$00@Z. Vsta colour@,.*Vloop lda #$07@:.4Vsta $4100@h.>Vsta $4101@u.hVlda #$10@C.rVsta $4102@T.£Vjsr multiply@..FVlda #$08@..PVsta $4100@..ZVsta $4101@...Vlda #$11@...Vsta $4102@...Vjsr multiply@...Vldx #$10@...Vstx $4100@...Vinx@...Vstx $4101@B/.Vinx@P/.Vstx $4102@ /.Vjsr additi.@./.Vlda $4091@;/.Vcmp #$04@h/.Vbcc fail@u/FWcmp #$50@B/PWbcs fail@Z/ZWsucpass jmp success@./$Wfail inc colour@./)Wlda colour@./.Wcmp maxcol@./8Wbeq sucpass@./bWjsr subtract@./lWlda #$12@./vWsta $4100@./.Wlda #$05@C0JWsta $4101@P0TWlda #$13@.0.Wsta $4102@.0.Wjsr additi.@;0.Wlda #$07@i0.Wsta $4100@v0.Wlda #$08@D0.Wsta $4101@R0.Winc $4102@.0.Wjsr multiply@.0.Wlda #$14@.0.Wsta $4100@.0.Wlda #$1c@.0.Wsta $4101@.0.Wlda #$15@.0@Xsta $4102@.0JXjsr multiply@.0TXlda #$15@@1.Xsta $4100@M1(Xlda #$06@[12Xsta $4101@(1<Xlda #$16@61fXsta $4102@f1pXjsr additi.@s1zXlda #$13@A1DXsta $4100@N1NXlda #$07@.1XXsta $4102@.1.Xjsr equal@.1.Xlda #$16@.1.Xsta $4100@.1.Xlda #$08@.1.Xsta $4102@.1.Xjsr equal@.1.Xjmp loop@.1.Xsuccess jsr plot@.1.Xlda #$05@K2.Xsta $4100@Y2.Xsta $4102@&2.Xlda #$02@42.Xsta $4101@d2DYjsr additi.@s2NYlda xpixel@B2XYbne xrelop@O2"Ylda #$06@.2,Ysta $4100@.26Ysta $4102@.2@Ylda #$04@.2jYsta $4101@.2tYjsr additi.@.2.Yinc ypixel@.2HYlda ypixel@.2RYcmp #$c8@.2.Ybne yrelop@.2.Ycli@@3.Yrts@W3.Yxrelop jmp mmainlb@-3.Yyrelop jmp mmainl@a3.Ym.plot jsr m.le@p3.Yjmp .rolop@V3@.;             arithmetic routines@.3j..digit cld@.3t.asl a@.3..asl a@.3H.asl a@.3R.sta $02@.3..txa@.3..lsr a@.3..sta $24@.3..lda #$07@.3..sec@.3..sbc $24@.3..clc@B4..adc $02@J4..tay@Z4..lda $4000,y@"4..tay@*4..txa@54... #$01@c4..beq lsngd@k4H.tya@v4R.. #$f0@.4£.lsr a@J4&.lsr a@T40.lsr a@.4:.lsr a@.4d.rts@.4n.lsngd tya@.4x.. #$0f@.4B.rts@.4L.multiplyb jsr negative@.4Q.lda $4102@.4V.asl a@.4..asl a@.4..asl a@.4..tax@C5..lda #$00@K5..tay@!5..mlopa sta $4000,x@)5..iny@15..inx@>5..cpy #$08@l5..bne mlopa@y5..lda #$06@E5..sta $fc@Z5...digit lda $4101@.5B.ldx $fc@.5L.jsr .digit@.5V.cmp #$00@.5 .beq dmover@.5*.sta $fd@.54.lda #$06@.5>.sta $fb@.5h.dmlop lda $4100@.5r.ldx $fb@E6£.jsr .digit@R6F.cmp #$00@!6P.beq dmover@-6Z.sta $fe@96..lda $fb@a6..clc@m6..adc $fc@u6..sec@B6..sbc #$0c@N6..ldx $fd@V6..tay@.6... #$01@.6..beq mskip@.6..txa@.6..asl a@.6..asl a@.6..asl a@.6F.asl a@.6P.tax@.6Z.mskip tya@.6$.lsr a@.6..sta $02@.68.lda #$07@@7b.sec@L7l.sbc $02@X7v.sta $02@&7..lda $4102@07J.asl a@:7T.asl a@d7..asl a@p7..adc $02@£7..sta $25@D7..tay@P7..stx $24@.7..dmlb ldx $02@.7..sed@.7..lda $4000,y@.7..clc@.7..adc $24@.7..sta $4000,y@.7..malp cld@.7..bcc maquit@.7..dey@.7@.dex@.7J.cpx #$ff@E8T.beq maquit@M8..sed@]8(.lda $4000,y@%82.clc@28<.adc #$01@b8f.sta $4000,y@o8p.jmp malp@B8z.dmover inc $fb@N8D.lda $fb@.8N.cmp #$0e@.8X.bcc dmlop@.8..inc $fc@.8..lda $fc@.8..cmp #$0e@.8..bcc .digit@.8..lda ypib@.8..beq quit@.8..lda $4102@.8..sta $4101@@9..lda #$1d@N9..sta $4100@.9..jsr subtract@,9..quit rts@?9..maquit ldx $fe@g9D.dex@v9G.beq dmover@B9J.stx $fe@N9N.ldy $25@.9X.jmp dmlb@.9".msup lda $4100@.9,.asl a@.96.asl a@.9@.asl a@.9j.tax@.9t.dex@.9..stx $fb@.9H.lda $4101@.9R.asl a@.9..asl a@.9..asl a@.9..tax@D:..dex@P:..stx $fd@.:..lda $4102@(:..asl a@2:..asl a@<:..asl a@d:..tax@l:..dex@x:..stx $22@E:..lda #$40@Q:..sta $fc@.:H.sta $fe@.:R.sta $23@.:£.rts@.:&.equal jsr msup@.:0.ldy #$08@.::.elop lda ($fb),y@.:d.sta ($22),y@.:n.dey@.:x.bne elop@.:B.rts@H;L.additi. jsr msup@U;V.ldy #$08@];..sed@%;..clc@;;..adlop lda ($fb),y@k;..adc ($fd),y@[;..sta ($22),y@C;..dey@Q;..bne adlop@Y;..cld@.;..rts@.;..subtract jsr msup@.;..ldy #$08@.;..sed@.;..sec@.;B.sulop lda ($fb),y@.;L.sbc ($fd),y@.;V.sta ($22),y@.; .dey@@<*.bne sulop@H<4.cld@P<>.rts@&<h.negative lda #$00@.<r.pha@<<£.lda $4100@d<F.tay@n<P.asl a@x<Z.asl a@B<..asl a@J<..tax@Z<..lda $4001,x@.<..cmp #$50@.<..bcc negrmoveab@.<..pla@.<..adc #$00@.<..pha@.<..jmp negrmovea@.<..negrmoveab lda $4101@.<..tay@.<..asl a@.<..asl a@H=..asl a@P=F.tax@ =P.lda $4001,x@-=Z.cmp #$50@5=$.pla@b=..bcc noe.@n=8.e. #$01@v=b.pha@H=l.bcs negrmoveb@.=v.negrmovebb pla@.=..noe. sta ypib@.=J.rts@.=T.negrmove lda $4100@.=..pha@.=..lda $4101@.=..pha@.=..lda $4102@.=..pha@.=..tya@.=..sta $4101@D>..sta $4102@Q>..lda #$1d@.>..sta $4100@0>..jsr subtract@8>..pla@f>..sta $4102@n>@.pla@£>J.sta $4101@D>T.pla@R>..sta $4100@Z>(.rts@.>2.negrmovea jsr negrmove@.><.jmp negrmoveab@.>f.negrmoveb jsr negrmove@.>p.jmp negrmovebb@.>z.multiply lda $4102@.>D.pha@C?N.lda $4101@K?X.pha@X?..lda #$18@&?..sta $4102@4?..jsr equal@b?..inc $4102@j?..pla@x?..sta $4100@F?..jsr equal@S?..lda #$18@.?..sta $4100@.?..lda #$19@.?..sta $4101@.?..pla@.?..sta $4102@.?D.jmp multiplyb@.?p.;           graphic po. plotter@.?z.plotpc lda #$47@H@D.sta $fb@U@N.lda #$3f@!@X.sta $fc@0@..lda ypixel@:@..lsr a@d@..lsr a@n@..lsr a@[@..sta ypib@F@... #$03@P@..asl a@Z@..asl a@.@..asl a@.@..asl a@.@..asl a@.@..asl a@.@..sta $02@.@D.lda $fb@.@N.sec@.@X.sbc $02@.@".sta $fb@.@,.lda $fc@.@6.sbc #$00@@a;.sbc ypib@Ha@.pha@Uaj.lda ypib@.at.lsr a@)a..lsr a@5aH.sta $02@=aR.pla@ea..sec@qa..sbc $02@]a..sta $fc@La..lda ypixel@Wa... #$07@.a..sta ypib@.a..lda $fb@.a..sec@.a..sbc ypib@.a..pha@.a..lda xpixel@.a... #$f8@.a..sta ypib@.a..pla@.aH.clc@.aR.adc ypib@.a£.sta $fb@Ib&.lda $fc@Vb0.sbc #$00@"b:.sta $fc@1bd.lda xpixel@<bn.. #$07@dbx.tax@qbB.lda #$80@EbL.gbitlp cpx #$00@QbV.beq pp.@.b..lsr a@.b..dex@.b..jmp gbitlp@.b..pp. sta $fd@.b..rts@.b..plo.n jsr plotpc@.b..ldy #$00@.b..lda ($fb),y@.b...a $fd@.b..sta ($fb),y@.b..rts@Uc..plo.ff jsr plotpc@!c..lda $fd@-cB.e. #$ff@9cL.sta $fd@fcV.ldy #$00@vc .lda ($fb),y@.c*.. $fd@Pc4.sta ($fb),y@Xc>.rts@.ch.plot lda colour@.cr.. #$02@.c£.bne ppa.@.cF.jsr plo.ff@.cP.jmp ppacnt@.cZ.ppa. jsr plo.n@.c..ppacnt inc xpixel@.c..lda colour@Ed... #$01@Rd..bne ppb.@!d..jsr plo.ff@0d..jmp ppbcnt@cd..ppb. jsr plo.n@yd..ppbcnt inc xpixel@Ad..rts@.d..;       zoom calculati. routines@.d..nozoom jmp .rolop@.d..zoomin lda $d015@.d... #$f0@.d@.cmp #$f0@.dJ.bne nozoom@.dT.lda #$1e@.d..sta $4100@@e(.lda #$01@Ne2.sta $4101@[e<.lda #$10@)ef.sta $4102@:ep.jsr subtract@gez.lda #$01@ueD.sta $4100@CeN.inc $4102@QeX.jsr equal@.e..lda #$10@.e..sta $4100@.e..lda #$1b@.e..sta $4101@.e..lda #$12@.e..sta $4102@.e..jsr multiply@.e..lda #$11@.e..sta $4100@.e..sta $4102@If..lda #$12@Wf..sta $4101@%f..lda $d008@-fD.sec@:fN.sbc #$58@rfX.calcinlopa cmp #$00@Bf".beq calc.ia@Jf,.pha@Zf6.jsr additi.@.f@.pla@.fj.tax@.ft.dex@.f..txa@.fH.jmp calcinlopa@.fR.calc.ia lda #$01@.f..sta $4100@.f..lda #$13@.f..sta $4102@.f..jsr equal@Fg..lda #$13@Tg..sta $4100@"g..sta $4102@/g..lda #$12@=g..sta $4101@kg..lda $d00a@sg..sec@.g..sbc #$40@Xg..calcinlopb cmp #$00@.g..beq calc.ib@.gH.pha@.gR.jsr additi.@.g£.pla@.g&.tax@.g0.dex@.g:.txa@.gd.jmp calcinlopb@.gn.calc.ib lda #$11@.gx.sta $4100@ChB.lda #$01@QhL.sta $4102@.hV.jsr equal@,h..lda #$13@:h..sta $4100@gh..lda #$1e@uh..sta $4102@Ch..jsr equal@Ph..lda #$1f@.h..sta $4100@.h..lda #$03@.h..sta $4101@.h..lda #$10@.h..sta $4102@.h..jsr subtract@.h..lda #$03@.hB.sta $4100@.hL.inc $4102@.hV.jsr equal@Ii .lda #$10@Wi*.sta $4100@$i4.lda #$12@2i>.sta $4102@?ih.lda #$1a@mir.sta $4101@.i£.jsr multiply@KiF.lda #$11@YiP.sta $4100@.iZ.sta $4102@.i..lda #$12@.i..sta $4101@.i..lda $d009@.i..sec@.i..sbc #$32@.i..calcinya cmp #$00@.i..beq calc.ic@.i..pha@Cj..jsr additi.@Kj..pla@Sj..tax@[j..dex@#j..txa@4jF.jmp calcinya@ijP.calc.ic lda #$03@wjZ.sta $4100@Dj$.lda #$13@Rj..sta $4102@.j8.jsr equal@.jb.lda #$13@.jl.sta $4100@.jv.sta $4102@.j..lda #$12@.jJ.sta $4101@.jT.lda $d00d@.j..sec@.j..sbc #$1d@.j..calcinyb cmp #$00@Mk..beq calc.id@Uk..pha@%k..jsr additi.@-k..pla@5k..tax@=k..dex@ek..txa@vk..jmp calcinyb@Kk..calc.id lda #$11@Yk..sta $4100@.k@.lda #$03@.kJ.sta $4102@.kT.jsr equal@.k..lda #$13@.k(.sta $4100@.k2.lda #$1f@.k<.sta $4102@.kf.jsr equal@.kp.lda #$1e@Alz.sta $4100@NlD.lda #$01@£lN.sta $4101@)lX.lda #$10@7l..sta $4102@hl..jsr subtract@ul..lda #$10@Cl..sta $4100@Pl..lda #$1b@.l..sta $4101@.l..lda #$02@.l..sta $4102@.l..jsr multiply@.l..lda #$1f@.l..sta $4100@.l..lda #$03@.l..sta $4101@.lD.lda #$10@.lN.sta $4102@LmX.jsr subtract@Ym".lda #$10@'m,.sta $4100@4m6.lda #$1a@bm@.sta $4101@omj.lda #$04@]mt.sta $4102@Nm..jsr multiply@.mH.jsr m.le@.mR.jmp .rolop@.m..;                   zoom routines@.mJ.box lda xp@.mT.sta xpib@.m..lda yp@.m..sta ypib@.m..lda xpb@.m..sta xpbib@Kn..ldx #$3c@Yn..stx $07fc@!n..inx@/n..stx $07fd@7n..inx@en..stx $07fe@mn..inx@[n..stx $07ff@In..lda $d015@Un@..a #$f0@.nJ.sta $d015@.nT.box. lda click@.n..bne box.@.nX.boxloop lda xpbib@.n..cmp xpb@.n..beq checkfine@.n..bcs lessthan@.n..jmp m.ethan@Oo..checkfine lda xpib@Zo..cmp xp@+o..bcs lessthan@@o..m.ethan lda xpib@no..sta $d008@£o..sta $d00c@Io..ldx #$00@Wo..lda xpbib@.o..beq noxpbadd@.oD.ldx #$50@.oN.noxpbadd lda $d010@.oX.. #$af@.o".stx $02@.o,.clc@.o6.adc $02@.o@.sta $d010@.oe.ldx #$00@.oj.lda xp@Ept.sec@Rp..sbc #$18@ pH.sta $d00a@.pR.sta $d00e@<p..bcc mtsub@hp..ldx xpb@vp..beq mtsub@Cp..ldx #$a0@Wp..mtsub lda $d010@.p... #$5f@.p..stx $02@.p..clc@.p..adc $02@.p..sta $d010@.p..jmp box.@.p..lessthan lda xp@.p..ldx xpb@.p..bne .out@.pH.cmp #$58@DqR.bcs .out@Qq£.lda #$58@$q&..out sta $d008@2q0.sta $d00c@?q:.cpx #$00@oqd.beq ltnoadd@£qn.ldx #$50@Rqx.ltnoadd lda $d010@.qB.. #$af@.qL.stx $02@.qV.clc@.q..adc $02@.q..sta $d010@.q..ldx #$00@.q..lda xpib@.q..sec@.q..sbc #$18@.q..sta $d00a@.q..sta $d00e@Dr..bcc ltsub@Rr..ldx xpbib@ r..beq ltsub@-r..ldx #$a0@ar..ltsub lda $d010@lr... #$5f@xrB.stx $02@.rL.clc@LrV.adc $02@Zr .sta $d010@.r*.box. lda yp@.r4.cmp ypib@.r>.bcc lessy@.rh.lda ypib@.rr.sta $d009@.r£.sta $d00b@.rF.lda yp@.rP.sec@.rZ.sbc #$15@.r..sta $d00d@Js..sta $d00f@Ys..jmp box.ii@*s..lessy lda yp@8s..sta $d009@fs..sta $d00b@ss..lda ypib@[s..sec@Hs..sbc #$15@Vs..sta $d00d@.s..sta $d00f@.s..box.ii lda click@.s..bne box.@.sF.jmp boxloop@.sP.box. jmp .rolop@.s0.boxflash lda $a2@.s:.. #$3c@.sd.lsr a@.sn.lsr a@Ftx.tax@XtB.lda boxcols,x@&tL.sta $d02b@4tV.sta $d02c@bt..sta $d02d@pt..sta $d02e@.t..jmp $ea31@.t..boxcols txt 0,9,2,8,10,7,13,1@.t..txt 1,13,3,5,14,4,6,0@.tX.; delete these!!@.t".cols jmp .rolop@.t,.colcycle jmp .rolop@.tj..iti. jmp .rolop@Gut.zoomout jmp .rolop@@@

00000000  11 08 0a 00 3b 4d 41 4e  44 45 4c 50 4c 4f 54 00  |....;MANDELPLOT.|
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 6a 08 69 00 3b 20 20  20 20 20 20 20 20 20 20  |.j.i.;          |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 56  |               V|
00000060  41 52 49 41 42 4c 45 53  00 7b 08 6e 00 58 50 49  |ARIABLES.{.n.XPI|
00000070  58 45 4c b2 24 34 31 30  33 00 8c 08 78 00 59 50  |XEL.$4103...x.YP|
00000080  49 58 45 4c b2 24 34 31  30 34 00 9d 08 82 00 43  |IXEL.$4104.....C|
00000090  4f 4c 4f 55 52 b2 24 34  31 30 35 00 ac 08 8c 00  |OLOUR.$4105.....|
000000a0  59 50 49 42 b2 24 34 31  30 36 00 bd 08 96 00 4d  |YPIB.$4106.....M|
000000b0  41 58 43 4f 4c b2 24 34  31 30 37 00 ca 08 a0 00  |AXCOL.$4107.....|
000000c0  58 50 b2 24 34 31 30 38  00 d7 08 aa 00 59 50 b2  |XP.$4108.....YP.|
000000d0  24 34 31 30 39 00 e5 08  b4 00 58 50 42 b2 24 34  |$4109.....XPB.$4|
000000e0  31 30 41 00 f5 08 be 00  43 4c 49 43 4b b2 24 34  |10A.....CLICK.$4|
000000f0  31 30 42 00 04 09 c8 00  48 4f 55 52 b2 24 34 31  |10B.....HOUR.$41|
00000100  30 43 00 13 09 d2 00 58  50 49 42 b2 24 34 31 30  |0C.....XPIB.$410|
00000110  44 00 23 09 dc 00 58 50  42 49 42 b2 24 34 31 30  |D.#...XPBIB.$410|
00000120  45 00 4b 09 18 01 3b 20  20 20 20 20 20 20 20 20  |E.K...;         |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 52 4f 4d  |             ROM|
00000140  20 52 4f 55 54 49 4e 45  53 00 5c 09 22 01 4f 55  | ROUTINES.\.".OU|
00000150  54 44 4f 20 b2 24 41 42  34 37 00 6b 09 23 01 e8  |TDO .$AB47.k.#..|
00000160  4c 46 53 b2 24 46 46 42  41 00 7a 09 24 01 e8 4e  |LFS.$FFBA.z.$..N|
00000170  41 4d b2 24 46 46 42 44  00 89 09 25 01 e4 52 4f  |AM.$FFBD...%..RO|
00000180  4d b2 24 46 46 44 38 00  b1 09 2c 01 3b 20 20 20  |M.$FFD8...,.;   |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000001a0  20 20 20 20 53 50 52 49  54 45 20 44 41 54 41 00  |    SPRITE DATA.|
000001b0  b7 09 31 01 3b 00 df 09  36 01 54 58 54 20 32 32  |..1.;...6.TXT 22|
000001c0  34 2c 30 30 30 2c 30 30  30 2c 31 37 36 2c 30 30  |4,000,000,176,00|
000001d0  30 2c 30 30 30 2c 31 35  32 2c 30 30 30 00 07 0a  |0,000,152,000...|
000001e0  40 01 54 58 54 20 30 30  30 2c 31 34 30 2c 30 30  |@.TXT 000,140,00|
000001f0  30 2c 30 30 30 2c 31 33  34 2c 30 30 30 2c 30 30  |0,000,134,000,00|
00000200  30 2c 31 33 31 00 2f 0a  4a 01 54 58 54 20 30 30  |0,131./.J.TXT 00|
00000210  30 2c 30 30 30 2c 31 32  39 2c 31 32 38 2c 30 30  |0,000,129,128,00|
00000220  30 2c 31 32 38 2c 31 39  32 2c 30 30 30 00 57 0a  |0,128,192,000.W.|
00000230  54 01 54 58 54 20 31 32  38 2c 30 36 34 2c 30 30  |T.TXT 128,064,00|
00000240  30 2c 31 34 37 2c 31 39  32 2c 30 30 30 2c 31 38  |0,147,192,000,18|
00000250  35 2c 30 30 30 00 7f 0a  5e 01 54 58 54 20 30 30  |5,000...^.TXT 00|
00000260  30 2c 32 33 33 2c 30 30  30 2c 30 30 30 2c 30 30  |0,233,000,000,00|
00000270  39 2c 31 32 38 2c 30 30  30 2c 30 31 32 00 a7 0a  |9,128,000,012...|
00000280  68 01 54 58 54 20 31 32  38 2c 30 30 30 2c 30 30  |h.TXT 128,000,00|
00000290  34 2c 31 32 38 2c 30 30  30 2c 30 30 34 2c 31 32  |4,128,000,004,12|
000002a0  38 2c 30 30 30 00 cf 0a  72 01 54 58 54 20 30 30  |8,000...r.TXT 00|
000002b0  37 2c 31 32 38 2c 30 30  30 2c 30 30 30 2c 30 30  |7,128,000,000,00|
000002c0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 f7 0a  |0,000,000,000...|
000002d0  7c 01 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  ||.TXT 000,000,00|
000002e0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000002f0  30 2c 31 35 33 00 fd 0a  81 01 3b 00 25 0b 86 01  |0,153.....;.%...|
00000300  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000310  30 36 34 2c 30 30 30 2c  30 30 30 2c 30 39 36 2c  |064,000,000,096,|
00000320  30 30 30 00 4d 0b 90 01  54 58 54 20 30 30 30 2c  |000.M...TXT 000,|
00000330  31 31 32 2c 30 30 30 2c  30 30 30 2c 31 32 30 2c  |112,000,000,120,|
00000340  30 30 30 2c 30 30 30 2c  31 32 34 00 75 0b 9a 01  |000,000,124.u...|
00000350  54 58 54 20 30 30 30 2c  30 30 30 2c 31 32 36 2c  |TXT 000,000,126,|
00000360  30 30 30 2c 30 30 30 2c  31 32 37 2c 30 30 30 2c  |000,000,127,000,|
00000370  30 30 30 00 9d 0b a4 01  54 58 54 20 31 32 37 2c  |000.....TXT 127,|
00000380  31 32 38 2c 30 30 30 2c  31 30 38 2c 30 30 30 2c  |128,000,108,000,|
00000390  30 30 30 2c 30 37 30 2c  30 30 30 00 c5 0b ae 01  |000,070,000.....|
000003a0  54 58 54 20 30 30 30 2c  30 30 36 2c 30 30 30 2c  |TXT 000,006,000,|
000003b0  30 30 30 2c 30 30 36 2c  30 30 30 2c 30 30 30 2c  |000,006,000,000,|
000003c0  30 30 33 00 ed 0b b8 01  54 58 54 20 30 30 30 2c  |003.....TXT 000,|
000003d0  30 30 30 2c 30 30 33 2c  30 30 30 2c 30 30 30 2c  |000,003,000,000,|
000003e0  30 30 33 2c 30 30 30 2c  30 30 30 00 15 0c c2 01  |003,000,000.....|
000003f0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000400  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000410  30 30 30 00 3d 0c cc 01  54 58 54 20 30 30 30 2c  |000.=...TXT 000,|
00000420  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000430  30 30 30 2c 30 30 30 2c  31 35 33 00 43 0c d1 01  |000,000,153.C...|
00000440  3b 00 6b 0c d6 01 54 58  54 20 32 35 35 2c 31 39  |;.k...TXT 255,19|
00000450  32 2c 30 30 30 2c 31 32  39 2c 30 36 34 2c 30 30  |2,000,129,064,00|
00000460  30 2c 31 32 38 2c 30 36  34 00 93 0c e0 01 54 58  |0,128,064.....TX|
00000470  54 20 30 30 30 2c 31 32  39 2c 30 36 34 2c 30 30  |T 000,129,064,00|
00000480  30 2c 30 36 36 2c 31 32  38 2c 30 30 30 2c 30 36  |0,066,128,000,06|
00000490  34 00 bb 0c ea 01 54 58  54 20 31 32 38 2c 30 30  |4.....TXT 128,00|
000004a0  30 2c 30 35 31 2c 30 30  30 2c 30 30 30 2c 30 31  |0,051,000,000,01|
000004b0  32 2c 30 30 30 2c 30 30  30 00 e3 0c f4 01 54 58  |2,000,000.....TX|
000004c0  54 20 30 35 35 2c 30 30  30 2c 30 30 30 2c 30 36  |T 055,000,000,06|
000004d0  35 2c 31 32 38 2c 30 30  30 2c 30 36 36 2c 31 32  |5,128,000,066,12|
000004e0  38 00 0b 0d fe 01 54 58  54 20 30 30 30 2c 31 32  |8.....TXT 000,12|
000004f0  39 2c 30 36 34 2c 30 30  30 2c 31 33 30 2c 31 39  |9,064,000,130,19|
00000500  32 2c 30 30 30 2c 31 33  33 00 33 0d 08 02 54 58  |2,000,133.3...TX|
00000510  54 20 30 36 34 2c 30 30  30 2c 32 35 35 2c 31 39  |T 064,000,255,19|
00000520  32 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |2,000,000,000,00|
00000530  30 00 5b 0d 12 02 54 58  54 20 30 30 30 2c 30 30  |0.[...TXT 000,00|
00000540  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000550  30 2c 30 30 30 2c 30 30  30 00 83 0d 1c 02 54 58  |0,000,000.....TX|
00000560  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000570  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 39  |0,000,000,000,19|
00000580  37 00 89 0d 21 02 3b 00  b1 0d 26 02 54 58 54 20  |7...!.;...&.TXT |
00000590  32 35 35 2c 31 39 32 2c  30 30 30 2c 32 35 35 2c  |255,192,000,255,|
000005a0  31 39 32 2c 30 30 30 2c  32 35 35 2c 31 39 32 00  |192,000,255,192.|
000005b0  d9 0d 30 02 54 58 54 20  30 30 30 2c 32 35 35 2c  |..0.TXT 000,255,|
000005c0  31 39 32 2c 30 30 30 2c  31 32 37 2c 31 32 38 2c  |192,000,127,128,|
000005d0  30 30 30 2c 31 32 37 00  01 0e 3a 02 54 58 54 20  |000,127...:.TXT |
000005e0  31 32 38 2c 30 30 30 2c  30 36 33 2c 30 30 30 2c  |128,000,063,000,|
000005f0  30 30 30 2c 30 31 32 2c  30 30 30 2c 30 30 30 00  |000,012,000,000.|
00000600  29 0e 44 02 54 58 54 20  30 36 33 2c 30 30 30 2c  |).D.TXT 063,000,|
00000610  30 30 30 2c 31 32 37 2c  31 32 38 2c 30 30 30 2c  |000,127,128,000,|
00000620  31 32 37 2c 31 32 38 00  51 0e 4e 02 54 58 54 20  |127,128.Q.N.TXT |
00000630  30 30 30 2c 32 35 35 2c  31 39 32 2c 30 30 30 2c  |000,255,192,000,|
00000640  32 35 35 2c 31 39 32 2c  30 30 30 2c 32 35 35 00  |255,192,000,255.|
00000650  79 0e 58 02 54 58 54 20  31 39 32 2c 30 30 30 2c  |y.X.TXT 192,000,|
00000660  32 35 35 2c 31 39 32 2c  30 30 30 2c 30 30 30 2c  |255,192,000,000,|
00000670  30 30 30 2c 30 30 30 00  a1 0e 62 02 54 58 54 20  |000,000...b.TXT |
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 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
000006a0  c9 0e 6c 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |..l.TXT 000,000,|
000006b0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000006c0  30 30 30 2c 31 39 37 00  cf 0e 71 02 3b 00 f7 0e  |000,197...q.;...|
000006d0  76 02 54 58 54 20 31 36  38 2c 30 30 30 2c 30 30  |v.TXT 168,000,00|
000006e0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 32  |0,000,000,000,12|
000006f0  38 2c 30 30 30 00 1f 0f  80 02 54 58 54 20 30 30  |8,000.....TXT 00|
00000700  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 32  |0,000,000,000,12|
00000710  38 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 47 0f  |8,000,000,000.G.|
00000720  8a 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000730  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000740  30 2c 30 30 30 00 6f 0f  94 02 54 58 54 20 30 30  |0,000.o...TXT 00|
00000750  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000760  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 97 0f  |0,000,000,000...|
00000770  9e 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
00000780  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000790  30 2c 30 30 30 00 bf 0f  a8 02 54 58 54 20 30 30  |0,000.....TXT 00|
000007a0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000007b0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 e7 0f  |0,000,000,000...|
000007c0  b2 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
000007d0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000007e0  30 2c 30 30 30 00 0f 10  bc 02 54 58 54 20 30 30  |0,000.....TXT 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 2c 30 30  30 2c 31 39 37 00 15 10  |0,000,000,197...|
00000810  c1 02 3b 00 3d 10 c6 02  54 58 54 20 30 30 30 2c  |..;.=...TXT 000,|
00000820  30 30 30 2c 30 32 31 2c  30 30 30 2c 30 30 30 2c  |000,021,000,000,|
00000830  30 30 30 2c 30 30 30 2c  30 30 30 00 65 10 d0 02  |000,000,000.e...|
00000840  54 58 54 20 30 30 31 2c  30 30 30 2c 30 30 30 2c  |TXT 001,000,000,|
00000850  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 31 2c  |000,000,000,001,|
00000860  30 30 30 00 8d 10 da 02  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
00000870  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000880  30 30 30 2c 30 30 30 2c  30 30 30 00 b5 10 e4 02  |000,000,000.....|
00000890  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
000008a0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000008b0  30 30 30 00 dd 10 ee 02  54 58 54 20 30 30 30 2c  |000.....TXT 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 2c 30 30 30 2c  30 30 30 00 05 11 f8 02  |000,000,000.....|
000008e0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
000008f0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000900  30 30 30 00 2d 11 02 03  54 58 54 20 30 30 30 2c  |000.-...TXT 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 2c 30 30 30 2c  30 30 30 00 55 11 0c 03  |000,000,000.U...|
00000930  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000940  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000950  30 30 30 00 5b 11 11 03  3b 00 83 11 16 03 54 58  |000.[...;.....TX|
00000960  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000970  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000980  30 00 ab 11 20 03 54 58  54 20 30 30 30 2c 30 30  |0... .TXT 000,00|
00000990  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000009a0  30 2c 30 30 30 2c 30 30  30 00 d3 11 2a 03 54 58  |0,000,000...*.TX|
000009b0  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
000009c0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000009d0  30 00 fb 11 34 03 54 58  54 20 30 30 30 2c 30 30  |0...4.TXT 000,00|
000009e0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000009f0  30 2c 30 30 30 2c 30 30  30 00 23 12 3e 03 54 58  |0,000,000.#.>.TX|
00000a00  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000a10  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a20  30 00 4b 12 48 03 54 58  54 20 30 30 30 2c 30 30  |0.K.H.TXT 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 2c 30 30 30 2c 30 30  30 00 73 12 52 03 54 58  |0,000,000.s.R.TX|
00000a50  54 20 31 32 38 2c 30 30  30 2c 30 30 30 2c 30 30  |T 128,000,000,00|
00000a60  30 2c 30 30 30 2c 30 30  30 2c 31 32 38 2c 30 30  |0,000,000,128,00|
00000a70  30 00 9b 12 5c 03 54 58  54 20 30 30 30 2c 30 30  |0...\.TXT 000,00|
00000a80  30 2c 30 30 30 2c 30 30  30 2c 31 36 38 2c 30 30  |0,000,000,168,00|
00000a90  30 2c 30 30 30 2c 30 30  30 00 a1 12 61 03 3b 00  |0,000,000...a.;.|
00000aa0  c9 12 66 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |..f.TXT 000,000,|
00000ab0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000ac0  30 30 30 2c 30 30 30 00  f1 12 70 03 54 58 54 20  |000,000...p.TXT |
00000ad0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000ae0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000af0  19 13 7a 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |..z.TXT 000,000,|
00000b00  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b10  30 30 30 2c 30 30 30 00  41 13 84 03 54 58 54 20  |000,000.A...TXT |
00000b20  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b30  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000b40  69 13 8e 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |i...TXT 000,000,|
00000b50  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b60  30 30 30 2c 30 30 30 00  91 13 98 03 54 58 54 20  |000,000.....TXT |
00000b70  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b80  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000b90  b9 13 a2 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
00000ba0  30 30 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |001,000,000,000,|
00000bb0  30 30 30 2c 30 30 30 00  e1 13 ac 03 54 58 54 20  |000,000.....TXT |
00000bc0  30 30 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |001,000,000,000,|
00000bd0  30 30 30 2c 30 30 30 2c  30 32 31 2c 30 30 30 00  |000,000,021,000.|
00000be0  e7 13 b1 03 3b 00 0a 14  10 27 3b 20 20 20 20 20  |....;....';     |
00000bf0  20 20 20 20 20 20 4d 41  49 4e 20 9a 52 4f 4c 20  |      MAIN .ROL |
00000c00  52 4f 55 54 49 4e 45 53  00 17 14 1a 27 4a 53 52  |ROUTINES....'JSR|
00000c10  20 49 4e 49 54 00 2f 14  24 27 43 4f 4d 45 42 41  | INIT./.$'COMEBA|
00000c20  43 4b 20 4a 53 52 20 48  49 52 45 53 91 00 44 14  |CK JSR HIRES..D.|
00000c30  2e 27 9a 52 4f 4c 4f 50  20 4c 44 41 20 43 4c 49  |.'.ROLOP LDA CLI|
00000c40  43 4b 00 53 14 38 27 42  4e 45 20 9a 52 4f 4c 4f  |CK.S.8'BNE .ROLO|
00000c50  50 00 67 14 42 27 9a 4c  4f 50 42 20 4c 44 41 20  |P.g.B'.LOPB LDA |
00000c60  43 4c 49 43 4b 00 75 14  4c 27 42 45 51 20 9a 4c  |CLICK.u.L'BEQ .L|
00000c70  4f 50 42 00 80 14 56 27  4c 44 41 20 58 50 00 8d  |OPB...V'LDA XP..|
00000c80  14 60 27 43 4d 50 20 23  24 35 38 00 98 14 6a 27  |.`'CMP #$58...j'|
00000c90  42 43 43 20 9a 9a 00 a4  14 74 27 4a 4d 50 20 42  |BCC .....t'JMP B|
00000ca0  4f 58 00 b2 14 7e 27 9a  9a 20 4c 44 41 20 59 50  |OX...~'.. LDA YP|
00000cb0  00 ba 14 88 27 53 45 43  00 c7 14 92 27 53 42 43  |....'SEC....'SBC|
00000cc0  20 23 24 35 41 00 d1 14  9c 27 4c 53 52 20 41 00  | #$5A....'LSR A.|
00000cd0  db 14 a6 27 4c 53 52 20  41 00 e6 14 b0 27 af 20  |...'LSR A....'. |
00000ce0  23 24 46 45 00 ee 14 ba  27 54 41 58 00 ff 14 c4  |#$FE....'TAX....|
00000cf0  27 4c 44 41 20 56 45 43  a4 52 53 2c 58 00 0b 15  |'LDA VEC.RS,X...|
00000d00  ce 27 53 54 41 20 24 46  42 00 13 15 d8 27 49 4e  |.'STA $FB....'IN|
00000d10  58 00 24 15 e2 27 4c 44  41 20 56 45 43 a4 52 53  |X.$..'LDA VEC.RS|
00000d20  2c 58 00 30 15 ec 27 53  54 41 20 24 46 43 00 40  |,X.0..'STA $FC.@|
00000d30  15 f6 27 4a 4d 50 20 28  24 30 30 46 42 29 00 81  |..'JMP ($00FB)..|
00000d40  15 00 28 56 45 43 a4 52  53 20 54 58 54 20 b3 5a  |..(VEC.RS TXT .Z|
00000d50  4f 4f 4d 4f 55 54 2c b1  5a 4f 4f 4d 4f 55 54 2c  |OOMOUT,.ZOOMOUT,|
00000d60  b3 9a 52 4f 4c 4f 50 2c  b1 9a 52 4f 4c 4f 50 2c  |..ROLOP,..ROLOP,|
00000d70  b3 5a 4f 4f 4d 49 4e 2c  b1 5a 4f 4f 4d 49 4e 00  |.ZOOMIN,.ZOOMIN.|
00000d80  b7 15 0a 28 54 58 54 20  b3 9a 52 4f 4c 4f 50 2c  |...(TXT ..ROLOP,|
00000d90  b1 9a 52 4f 4c 4f 50 2c  b3 b9 49 54 49 91 2c b1  |..ROLOP,..ITI.,.|
00000da0  b9 49 54 49 91 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |.ITI.,..ROLOP,..|
00000db0  52 4f 4c 4f 50 00 eb 15  14 28 54 58 54 20 b3 9a  |ROLOP....(TXT ..|
00000dc0  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 43  |ROLOP,..ROLOP,.C|
00000dd0  4f 4c 53 2c b1 43 4f 4c  53 2c b3 9a 52 4f 4c 4f  |OLS,.COLS,..ROLO|
00000de0  50 2c b1 9a 52 4f 4c 4f  50 00 27 16 1e 28 54 58  |P,..ROLOP.'..(TX|
00000df0  54 20 b3 43 4f 4c 43 59  43 4c 45 2c b1 43 4f 4c  |T .COLCYCLE,.COL|
00000e00  43 59 43 4c 45 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |CYCLE,..ROLOP,..|
00000e10  52 4f 4c 4f 50 2c b3 4d  af 50 4c 4f 54 2c b1 4d  |ROLOP,.M.PLOT,.M|
00000e20  af 50 4c 4f 54 00 5b 16  28 28 54 58 54 20 b3 9a  |.PLOT.[.((TXT ..|
00000e30  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 9a  |ROLOP,..ROLOP,..|
00000e40  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 45  |ROLOP,..ROLOP,.E|
00000e50  58 49 54 2c b1 45 58 49  54 00 8f 16 32 28 54 58  |XIT,.EXIT...2(TX|
00000e60  54 20 b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |T ..ROLOP,..ROLO|
00000e70  50 2c b3 e1 2c b1 e1 2c  b3 9a 52 4f 4c 4f 50 2c  |P,..,..,..ROLOP,|
00000e80  b1 9a 52 4f 4c 4f 50 2c  b3 e4 2c b1 e4 00 c7 16  |..ROLOP,..,.....|
00000e90  3c 28 54 58 54 20 b3 9a  52 4f 4c 4f 50 2c b1 9a  |<(TXT ..ROLOP,..|
00000ea0  52 4f 4c 4f 50 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |ROLOP,..ROLOP,..|
*
00000ec0  52 4f 4c 4f 50 00 dd 16  04 29 45 58 49 54 20 4a  |ROLOP....)EXIT J|
00000ed0  53 52 20 48 49 52 45 53  4f 46 46 00 ea 16 0e 29  |SR HIRESOFF....)|
00000ee0  4c 44 41 20 23 24 39 33  00 f8 16 18 29 4a 53 52  |LDA #$93....)JSR|
00000ef0  20 4f 55 54 44 4f 00 05  17 22 29 4c 44 41 20 23  | OUTDO...")LDA #|
00000f00  24 30 35 00 13 17 2c 29  4a 53 52 20 4f 55 54 44  |$05...,)JSR OUTD|
00000f10  4f 00 1b 17 36 29 52 54  53 00 41 17 e0 2e 3b 20  |O...6)RTS.A...; |
00000f20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000f30  20 20 57 49 4d 50 20 52  4f 55 54 49 4e 45 53 00  |  WIMP ROUTINES.|
00000f40  54 17 f4 2e 3b 20 57 49  4d 50 20 2d 20 4d 4f 55  |T...; WIMP - MOU|
00000f50  53 45 00 65 17 fe 2e 49  52 51 20 4c 44 41 20 23  |SE.e...IRQ LDA #|
00000f60  24 30 30 00 73 17 08 2f  53 54 41 20 43 4c 49 43  |$00.s../STA CLIC|
00000f70  4b 00 7f 17 12 2f 4c 44  41 20 24 43 35 00 8c 17  |K..../LDA $C5...|
00000f80  1c 2f 43 4d 50 20 23 24  30 31 00 9c 17 26 2f 42  |./CMP #$01...&/B|
00000f90  4e 45 20 43 91 43 48 45  43 4b 00 aa 17 30 2f 53  |NE C.CHECK...0/S|
00000fa0  54 41 20 43 4c 49 43 4b  00 bf 17 3a 2f 43 91 43  |TA CLICK...:/C.C|
00000fb0  48 45 43 4b 20 43 4d 50  20 23 24 30 43 00 cd 17  |HECK CMP #$0C...|
00000fc0  44 2f 42 45 51 20 4c 45  46 54 4b 00 de 17 4e 2f  |D/BEQ LEFTK...N/|
00000fd0  4c 4b 43 20 43 4d 50 20  23 24 31 37 00 ed 17 58  |LKC CMP #$17...X|
00000fe0  2f 42 45 51 20 52 49 47  48 54 4b 00 fe 17 62 2f  |/BEQ RIGHTK...b/|
00000ff0  52 4b 43 20 43 4d 50 20  23 24 33 32 00 0a 18 6c  |RKC CMP #$32...l|
00001000  2f 42 45 51 20 55 50 4b  00 1c 18 76 2f 55 50 4b  |/BEQ UPK...v/UPK|
00001010  43 20 43 4d 50 20 23 24  33 37 00 2a 18 80 2f 42  |C CMP #$37.*../B|
00001020  45 51 20 44 4f 57 4e 4b  00 3c 18 8a 2f 44 4b 43  |EQ DOWNK.<../DKC|
00001030  20 4c 44 41 20 24 44 43  30 30 00 47 18 9e 2f af  | LDA $DC00.G../.|
00001040  20 23 24 30 31 00 53 18  a8 2f 42 45 51 20 55 50  | #$01.S../BEQ UP|
00001050  4a 00 65 18 b2 2f 55 4a  43 20 4c 44 41 20 24 44  |J.e../UJC LDA $D|
00001060  43 30 30 00 70 18 bc 2f  af 20 23 24 30 32 00 7e  |C00.p../. #$02.~|
00001070  18 c6 2f 42 45 51 20 44  4f 57 4e 4a 00 90 18 d0  |../BEQ DOWNJ....|
00001080  2f 44 4a 43 20 4c 44 41  20 24 44 43 30 30 00 9b  |/DJC LDA $DC00..|
00001090  18 da 2f af 20 23 24 30  34 00 a9 18 e4 2f 42 45  |../. #$04..../BE|
000010a0  51 20 4c 45 46 54 4a 00  bb 18 ee 2f 4c 4a 43 20  |Q LEFTJ..../LJC |
000010b0  4c 44 41 20 24 44 43 30  30 00 c6 18 f8 2f af 20  |LDA $DC00..../. |
000010c0  23 24 30 38 00 d5 18 02  30 42 45 51 20 52 49 47  |#$08....0BEQ RIG|
000010d0  48 54 4a 00 e7 18 0c 30  52 4a 43 20 4c 44 41 20  |HTJ....0RJC LDA |
000010e0  24 44 43 30 30 00 f2 18  16 30 af 20 23 24 31 30  |$DC00....0. #$10|
000010f0  00 fe 18 20 30 45 b0 20  23 24 31 30 00 0b 19 2a  |... 0E. #$10...*|
00001100  30 42 45 51 20 43 4a 43  48 00 19 19 34 30 53 54  |0BEQ CJCH...40ST|
00001110  41 20 43 4c 49 43 4b 00  2f 19 3e 30 43 4a 43 48  |A CLICK./.>0CJCH|
00001120  20 4a 4d 50 20 42 4f 58  46 4c 41 53 48 00 42 19  | JMP BOXFLASH.B.|
00001130  48 30 4c 45 46 54 4b 20  4a 53 52 20 4c 45 46 54  |H0LEFTK JSR LEFT|
00001140  00 4e 19 52 30 4a 4d 50  20 4c 4b 43 00 63 19 5c  |.N.R0JMP LKC.c.\|
00001150  30 52 49 47 48 54 4b 20  4a 53 52 20 52 49 47 48  |0RIGHTK JSR RIGH|
00001160  54 00 6f 19 66 30 4a 4d  50 20 52 4b 43 00 7e 19  |T.o.f0JMP RKC.~.|
00001170  70 30 55 50 4b 20 4a 53  52 20 55 50 00 8b 19 7a  |p0UPK JSR UP...z|
00001180  30 4a 4d 50 20 55 50 4b  43 00 9e 19 84 30 44 4f  |0JMP UPKC....0DO|
00001190  57 4e 4b 20 4a 53 52 20  44 4f 57 4e 00 aa 19 8e  |WNK JSR DOWN....|
000011a0  30 4a 4d 50 20 44 4b 43  00 b9 19 98 30 55 50 4a  |0JMP DKC....0UPJ|
000011b0  20 4a 53 52 20 55 50 00  c5 19 a2 30 4a 4d 50 20  | JSR UP....0JMP |
000011c0  55 4a 43 00 d8 19 ac 30  44 4f 57 4e 4a 20 4a 53  |UJC....0DOWNJ JS|
000011d0  52 20 44 4f 57 4e 00 e4  19 b6 30 4a 4d 50 20 44  |R DOWN....0JMP D|
000011e0  4a 43 00 f7 19 c0 30 4c  45 46 54 4a 20 4a 53 52  |JC....0LEFTJ JSR|
000011f0  20 4c 45 46 54 00 03 1a  ca 30 4a 4d 50 20 4c 4a  | LEFT....0JMP LJ|
00001200  43 00 18 1a d4 30 52 49  47 48 54 4a 20 4a 53 52  |C....0RIGHTJ JSR|
00001210  20 52 49 47 48 54 00 24  1a de 30 4a 4d 50 20 52  | RIGHT.$..0JMP R|
00001220  4a 43 00 34 1a e8 30 4c  45 46 54 20 44 45 43 20  |JC.4..0LEFT DEC |
00001230  58 50 00 3f 1a f2 30 4c  44 41 20 58 50 00 4c 1a  |XP.?..0LDA XP.L.|
00001240  fc 30 43 4d 50 20 23 24  46 46 00 58 1a 06 31 42  |.0CMP #$FF.X..1B|
00001250  4e 45 20 a8 46 46 00 65  1a 10 31 4c 44 59 20 23  |NE .FF.e..1LDY #|
00001260  24 30 30 00 71 1a 1a 31  53 54 59 20 58 50 42 00  |$00.q..1STY XPB.|
00001270  81 1a 24 31 a8 46 46 20  4c 44 59 20 58 50 42 00  |..$1.FF LDY XPB.|
00001280  8d 1a 2e 31 42 4e 45 20  46 49 4e 00 9a 1a 38 31  |...1BNE FIN...81|
00001290  43 4d 50 20 23 24 31 38  00 a6 1a 42 31 42 4e 45  |CMP #$18...B1BNE|
000012a0  20 46 49 4e 00 b1 1a 4c  31 49 4e 43 20 58 50 00  | FIN...L1INC XP.|
000012b0  c2 1a 56 31 46 49 4e 20  4a 4d 50 20 9a 52 4f 4c  |..V1FIN JMP .ROL|
000012c0  00 d3 1a 60 31 52 49 47  48 54 20 49 4e 43 20 58  |...`1RIGHT INC X|
000012d0  50 00 de 1a 6a 31 4c 44  41 20 58 50 00 ea 1a 74  |P...j1LDA XP...t|
000012e0  31 42 4e 45 20 a8 30 30  00 f7 1a 7e 31 4c 44 59  |1BNE .00...~1LDY|
000012f0  20 23 24 30 31 00 03 1b  88 31 53 54 59 20 58 50  | #$01....1STY XP|
00001300  42 00 13 1b 92 31 a8 30  30 20 4c 44 59 20 58 50  |B....1.00 LDY XP|
00001310  42 00 1f 1b 9c 31 42 45  51 20 46 49 4e 00 2c 1b  |B....1BEQ FIN.,.|
00001320  a6 31 43 4d 50 20 23 24  35 38 00 38 1b b0 31 42  |.1CMP #$58.8..1B|
00001330  4e 45 20 46 49 4e 00 43  1b ba 31 44 45 43 20 58  |NE FIN.C..1DEC X|
00001340  50 00 50 1b c4 31 4a 4d  50 20 9a 52 4f 4c 00 5e  |P.P..1JMP .ROL.^|
00001350  1b ce 31 55 50 20 44 45  43 20 59 50 00 69 1b d8  |..1UP DEC YP.i..|
00001360  31 4c 44 41 20 59 50 00  76 1b e2 31 43 4d 50 20  |1LDA YP.v..1CMP |
00001370  23 24 33 32 00 82 1b ec  31 42 4e 45 20 46 49 4e  |#$32....1BNE FIN|
00001380  00 8d 1b f6 31 49 4e 43  20 59 50 00 9a 1b 00 32  |....1INC YP....2|
00001390  4a 4d 50 20 9a 52 4f 4c  00 aa 1b 0a 32 44 4f 57  |JMP .ROL....2DOW|
000013a0  4e 20 49 4e 43 20 59 50  00 b5 1b 14 32 4c 44 41  |N INC YP....2LDA|
000013b0  20 59 50 00 c2 1b 1e 32  43 4d 50 20 23 24 46 38  | YP....2CMP #$F8|
000013c0  00 ce 1b 28 32 42 4e 45  20 46 49 4e 00 d9 1b 32  |...(2BNE FIN...2|
000013d0  32 44 45 43 20 59 50 00  e6 1b 3c 32 4a 4d 50 20  |2DEC YP...<2JMP |
000013e0  9a 52 4f 4c 00 f9 1b 46  32 3b 20 57 49 4d 50 20  |.ROL...F2; WIMP |
000013f0  ab 20 50 4f b5 45 52 00  0b 1c 50 32 9a 52 4f 4c  |. PO.ER...P2.ROL|
00001400  20 4c 44 41 20 48 4f 55  52 00 1b 1c 5a 32 42 45  | LDA HOUR...Z2BE|
00001410  51 20 4e 48 47 4c 41 53  53 00 28 1c 9a 33 4c 44  |Q NHGLASS.(..3LD|
00001420  58 20 23 24 33 41 00 36  1c a4 33 53 54 58 20 24  |X #$3A.6..3STX $|
00001430  30 37 46 38 00 3e 1c ae  33 49 4e 58 00 4c 1c b8  |07F8.>..3INX.L..|
00001440  33 53 54 58 20 24 30 37  46 39 00 5f 1c c2 33 4e  |3STX $07F9._..3N|
00001450  48 47 4c 41 53 53 20 4c  44 41 20 58 50 00 6d 1c  |HGLASS LDA XP.m.|
00001460  cc 33 53 54 41 20 24 44  30 30 30 00 7b 1c d6 33  |.3STA $D000.{..3|
00001470  53 54 41 20 24 44 30 30  32 00 86 1c e0 33 4c 44  |STA $D002....3LD|
00001480  41 20 59 50 00 94 1c ea  33 53 54 41 20 24 44 30  |A YP....3STA $D0|
00001490  30 31 00 a2 1c f4 33 53  54 41 20 24 44 30 30 33  |01....3STA $D003|
000014a0  00 b0 1c fe 33 4c 44 41  20 24 44 30 31 30 00 bb  |....3LDA $D010..|
000014b0  1c 08 34 af 20 23 24 46  43 00 c5 1c 12 34 4c 53  |..4. #$FC....4LS|
000014c0  52 20 41 00 cd 1c 1c 34  43 4c 43 00 d9 1c 26 34  |R A....4CLC...&4|
000014d0  41 44 43 20 58 50 42 00  e3 1c 30 34 41 53 4c 20  |ADC XPB...04ASL |
000014e0  41 00 eb 1c 3a 34 43 4c  43 00 f7 1c 44 34 41 44  |A...:4CLC...D4AD|
000014f0  43 20 58 50 42 00 05 1d  4e 34 53 54 41 20 24 44  |C XPB...N4STA $D|
00001500  30 31 30 00 12 1d 58 34  4c 44 41 20 23 24 30 30  |010...X4LDA #$00|
00001510  00 20 1d 62 34 53 54 41  20 24 44 30 32 37 00 2d  |. .b4STA $D027.-|
00001520  1d 6c 34 4c 44 41 20 23  24 30 31 00 3b 1d 76 34  |.l4LDA #$01.;.v4|
00001530  53 54 41 20 24 44 30 32  38 00 49 1d 80 34 4c 44  |STA $D028.I..4LD|
00001540  41 20 24 44 30 31 35 00  55 1d 8a 34 b0 41 20 23  |A $D015.U..4.A #|
00001550  24 30 33 00 63 1d 94 34  53 54 41 20 24 44 30 31  |$03.c..4STA $D01|
00001560  35 00 70 1d 9e 34 4c 44  41 20 48 4f 55 52 00 7d  |5.p..4LDA HOUR.}|
00001570  1d a8 34 42 4e 45 20 51  54 52 4f 00 8a 1d b2 34  |..4BNE QTRO....4|
00001580  4c 44 58 20 23 24 33 38  00 98 1d bc 34 53 54 58  |LDX #$38....4STX|
00001590  20 24 30 37 46 38 00 a0  1d c6 34 49 4e 58 00 ae  | $07F8....4INX..|
000015a0  1d d0 34 53 54 58 20 24  30 37 46 39 00 bb 1d da  |..4STX $07F9....|
000015b0  34 51 54 52 4f 20 52 54  53 00 d2 1d e4 34 3b 20  |4QTRO RTS....4; |
000015c0  53 54 41 52 54 55 50 20  52 4f 55 54 49 4e 45 53  |STARTUP ROUTINES|
000015d0  00 e4 1d ee 34 49 4e 49  54 20 4c 44 41 20 23 24  |....4INIT LDA #$|
000015e0  30 30 00 f2 1d f8 34 53  54 41 20 24 44 30 32 30  |00....4STA $D020|
000015f0  00 00 1e 02 35 53 54 41  20 24 44 30 32 31 00 0b  |....5STA $D021..|
00001600  1e 0c 35 53 54 41 20 58  50 00 18 1e 16 35 53 54  |..5STA XP....5ST|
00001610  41 20 48 4f 55 52 00 26  1e 20 35 53 54 41 20 24  |A HOUR.&. 5STA $|
00001620  44 30 31 35 00 33 1e 2a  35 4c 44 41 20 23 24 30  |D015.3.*5LDA #$0|
00001630  31 00 3f 1e 34 35 53 54  41 20 58 50 42 00 4c 1e  |1.?.45STA XPB.L.|
00001640  3e 35 4c 44 41 20 23 24  38 30 00 57 1e 48 35 53  |>5LDA #$80.W.H5S|
00001650  54 41 20 59 50 00 6b 1e  52 35 48 49 52 45 53 91  |TA YP.k.R5HIRES.|
00001660  20 4c 44 41 20 23 24 33  42 00 79 1e 5c 35 53 54  | LDA #$3B.y.\5ST|
00001670  41 20 24 44 30 31 31 00  86 1e 66 35 4c 44 41 20  |A $D011...f5LDA |
00001680  23 24 44 38 00 94 1e 70  35 53 54 41 20 24 44 30  |#$D8...p5STA $D0|
00001690  31 36 00 a1 1e 7a 35 4c  44 41 20 23 24 30 30 00  |16...z5LDA #$00.|
000016a0  ad 1e 84 35 53 54 41 20  24 46 42 00 b5 1e 8e 35  |...5STA $FB....5|
000016b0  54 41 59 00 c2 1e 98 35  4c 44 41 20 23 24 30 34  |TAY....5LDA #$04|
000016c0  00 ce 1e a2 35 53 54 41  20 24 46 43 00 db 1e ac  |....5STA $FC....|
000016d0  35 4c 44 41 20 23 24 37  45 00 f0 1e b6 35 46 4c  |5LDA #$7E....5FL|
000016e0  4f 50 20 53 54 41 20 28  24 46 42 29 2c 59 00 f8  |OP STA ($FB),Y..|
000016f0  1e c0 35 49 4e 59 00 08  1f ca 35 42 45 51 20 46  |..5INY....5BEQ F|
00001700  4c 4f 50 49 4e 43 00 15  1f d4 35 43 50 59 20 23  |LOPINC....5CPY #|
00001710  24 46 38 00 22 1f de 35  42 4e 45 20 46 4c 4f 50  |$F8."..5BNE FLOP|
00001720  00 2e 1f e8 35 4c 44 58  20 24 46 43 00 3b 1f f2  |....5LDX $FC.;..|
00001730  35 43 50 58 20 23 24 30  37 00 48 1f fc 35 42 4e  |5CPX #$07.H..5BN|
00001740  45 20 46 4c 4f 50 00 55  1f 06 36 4a 53 52 20 4c  |E FLOP.U..6JSR L|
00001750  45 46 54 00 5d 1f 10 36  53 45 49 00 6b 1f 1a 36  |EFT.]..6SEI.k..6|
00001760  4c 44 41 20 23 b3 49 52  51 00 79 1f 24 36 53 54  |LDA #.IRQ.y.$6ST|
00001770  41 20 24 30 33 31 34 00  87 1f 2e 36 4c 44 41 20  |A $0314....6LDA |
00001780  23 b1 49 52 51 00 95 1f  38 36 53 54 41 20 24 30  |#.IRQ...86STA $0|
00001790  33 31 35 00 9d 1f 42 36  43 4c 49 00 aa 1f 4c 36  |315...B6CLI...L6|
000017a0  4c 44 41 20 23 24 44 38  00 b6 1f 56 36 53 54 41  |LDA #$D8...V6STA|
000017b0  20 24 46 43 00 c3 1f 60  36 4c 44 41 20 23 24 30  | $FC...`6LDA #$0|
000017c0  32 00 d0 1f 6a 36 4c 44  59 20 23 24 30 30 00 e6  |2...j6LDY #$00..|
000017d0  1f 74 36 46 4c 4f 50 42  20 53 54 41 20 28 24 46  |.t6FLOPB STA ($F|
000017e0  42 29 2c 59 00 ee 1f 7e  36 49 4e 59 00 fc 1f 88  |B),Y...~6INY....|
000017f0  36 42 4e 45 20 46 4c 4f  50 42 00 08 20 92 36 49  |6BNE FLOPB.. .6I|
00001800  4e 43 20 24 46 43 00 14  20 9c 36 4c 44 58 20 24  |NC $FC.. .6LDX $|
00001810  46 43 00 21 20 a6 36 43  50 58 20 23 24 44 43 00  |FC.! .6CPX #$DC.|
00001820  2f 20 b0 36 42 4e 45 20  46 4c 4f 50 42 00 3c 20  |/ .6BNE FLOPB.< |
00001830  ba 36 4c 44 41 20 23 24  31 38 00 4a 20 c4 36 53  |.6LDA #$18.J .6S|
00001840  54 41 20 24 44 30 31 38  00 52 20 34 3a 52 54 53  |TA $D018.R 4:RTS|
00001850  00 66 20 3e 3a 46 4c 4f  50 49 4e 43 20 49 4e 43  |.f >:FLOPINC INC|
00001860  20 24 46 43 00 73 20 48  3a 4a 4d 50 20 46 4c 4f  | $FC.s H:JMP FLO|
00001870  50 00 84 20 52 3a 48 49  52 45 53 4f 46 46 20 53  |P.. R:HIRESOFF S|
00001880  45 49 00 91 20 5c 3a 4c  44 41 20 23 24 33 31 00  |EI.. \:LDA #$31.|
00001890  9f 20 66 3a 53 54 41 20  24 30 33 31 34 00 ac 20  |. f:STA $0314.. |
000018a0  70 3a 4c 44 41 20 23 24  45 41 00 ba 20 7a 3a 53  |p:LDA #$EA.. z:S|
000018b0  54 41 20 24 30 33 31 35  00 c2 20 84 3a 43 4c 49  |TA $0315.. .:CLI|
000018c0  00 cf 20 8e 3a 4c 44 41  20 23 24 30 30 00 dd 20  |.. .:LDA #$00.. |
000018d0  98 3a 53 54 41 20 24 44  30 31 35 00 ea 20 a2 3a  |.:STA $D015.. .:|
000018e0  4c 44 41 20 23 24 39 42  00 f8 20 ac 3a 53 54 41  |LDA #$9B.. .:STA|
000018f0  20 24 44 30 31 31 00 05  21 b6 3a 4c 44 41 20 23  | $D011..!.:LDA #|
00001900  24 43 38 00 13 21 c0 3a  53 54 41 20 24 44 30 31  |$C8..!.:STA $D01|
00001910  36 00 20 21 c3 3a 4c 44  41 20 23 24 31 35 00 2e  |6. !.:LDA #$15..|
00001920  21 c6 3a 53 54 41 20 24  44 30 31 38 00 36 21 ca  |!.:STA $D018.6!.|
00001930  3a 52 54 53 00 49 21 20  4e e1 20 4a 53 52 20 48  |:RTS.I! N. JSR H|
00001940  49 52 45 53 4f 46 46 00  56 21 2a 4e 4c 44 41 20  |IRESOFF.V!*NLDA |
00001950  23 24 31 43 00 64 21 34  4e 4a 53 52 20 4f 55 54  |#$1C.d!4NJSR OUT|
00001960  44 4f 00 71 21 3e 4e 4c  44 41 20 23 24 39 33 00  |DO.q!>NLDA #$93.|
00001970  7f 21 48 4e 4a 53 52 20  4f 55 54 44 4f 00 8c 21  |.!HNJSR OUTDO..!|
00001980  52 4e 4c 44 41 20 23 24  30 30 00 9a 21 5c 4e e1  |RNLDA #$00..!\N.|
00001990  4c 4f 4f 50 20 50 48 41  00 a4 21 66 4e 41 53 4c  |LOOP PHA..!fNASL|
000019a0  20 41 00 ae 21 70 4e 41  53 4c 20 41 00 b6 21 7a  | A..!pNASL A..!z|
000019b0  4e 43 4c 43 00 c3 21 84  4e 41 44 43 20 23 24 34  |NCLC..!.NADC #$4|
000019c0  32 00 cf 21 8e 4e 53 54  41 20 24 46 43 00 dc 21  |2..!.NSTA $FC..!|
000019d0  98 4e 4c 44 59 20 23 24  30 30 00 e8 21 a2 4e 53  |.NLDY #$00..!.NS|
000019e0  54 59 20 24 46 42 00 f4  21 ac 4e 53 54 59 20 24  |TY $FB..!.NSTY $|
000019f0  46 44 00 01 22 b6 4e 4c  44 41 20 23 24 30 34 00  |FD..".NLDA #$04.|
00001a00  0d 22 c0 4e 53 54 41 20  24 46 45 00 24 22 ca 4e  |.".NSTA $FE.$".N|
00001a10  e1 4c 4f 4f 50 42 20 4c  44 41 20 28 24 46 42 29  |.LOOPB LDA ($FB)|
00001a20  2c 59 00 34 22 d4 4e 53  54 41 20 28 24 46 44 29  |,Y.4".NSTA ($FD)|
00001a30  2c 59 00 3c 22 de 4e 49  4e 59 00 4b 22 e8 4e 42  |,Y.<".NINY.K".NB|
00001a40  4e 45 20 e1 4c 4f 4f 50  42 00 57 22 f2 4e 49 4e  |NE .LOOPB.W".NIN|
00001a50  43 20 24 46 43 00 63 22  fc 4e 49 4e 43 20 24 46  |C $FC.c".NINC $F|
00001a60  45 00 6f 22 06 4f 4c 44  41 20 24 46 45 00 7c 22  |E.o".OLDA $FE.|"|
00001a70  10 4f 43 4d 50 20 23 24  30 38 00 8b 22 1a 4f 42  |.OCMP #$08..".OB|
00001a80  4e 45 20 e1 4c 4f 4f 50  42 00 9a 22 24 4f e1 dc  |NE .LOOPB.."$O..|
00001a90  20 4c 44 41 20 24 43 35  00 a7 22 2e 4f 43 4d 50  | LDA $C5..".OCMP|
00001aa0  20 23 24 34 30 00 b2 22  38 4f 42 4e 45 20 e1 dc  | #$40.."8OBNE ..|
00001ab0  00 c2 22 42 4f e1 dc 42  20 4c 44 41 20 24 43 35  |.."BO..B LDA $C5|
00001ac0  00 cf 22 4c 4f 43 4d 50  20 23 24 34 30 00 db 22  |.."LOCMP #$40.."|
00001ad0  56 4f 42 45 51 20 e1 dc  42 00 e3 22 60 4f 54 41  |VOBEQ ..B.."`OTA|
00001ae0  58 00 eb 22 6a 4f 50 4c  41 00 f8 22 74 4f 43 50  |X.."jOPLA.."tOCP|
00001af0  58 20 23 24 30 31 00 07  23 7e 4f 42 45 51 20 48  |X #$01..#~OBEQ H|
00001b00  4e 4f 4d b0 45 00 14 23  88 4f 43 50 58 20 23 24  |NOM.E..#.OCPX #$|
00001b10  32 38 00 1e 23 92 4f 42  45 51 20 82 00 2b 23 9c  |28..#.OBEQ ..+#.|
00001b20  4f 43 50 58 20 23 24 32  42 00 38 23 a6 4f 42 45  |OCPX #$2B.8#.OBE|
00001b30  51 20 50 52 45 56 00 45  23 b0 4f e1 52 45 54 20  |Q PREV.E#.O.RET |
00001b40  50 48 41 00 51 23 ba 4f  4a 4d 50 20 e1 dc 42 00  |PHA.Q#.OJMP ..B.|
00001b50  69 23 c4 4f 48 4e 4f 4d  b0 45 20 4a 4d 50 20 43  |i#.OHNOM.E JMP C|
00001b60  4f 4d 45 42 41 43 4b 00  78 23 ce 4f 82 20 43 4d  |OMEBACK.x#.O. CM|
00001b70  50 20 23 24 30 34 00 85  23 d8 4f 42 45 51 20 e1  |P #$04..#.OBEQ .|
00001b80  52 45 54 00 8d 23 e2 4f  43 4c 43 00 9a 23 ec 4f  |RET..#.OCLC..#.O|
00001b90  41 44 43 20 23 24 30 31  00 a8 23 f6 4f 4a 4d 50  |ADC #$01..#.OJMP|
00001ba0  20 e1 4c 4f 4f 50 00 ba  23 00 50 50 52 45 56 20  | .LOOP..#.PPREV |
00001bb0  43 4d 50 20 23 24 30 30  00 c7 23 0a 50 42 45 51  |CMP #$00..#.PBEQ|
00001bc0  20 e1 52 45 54 00 cf 23  14 50 53 45 43 00 dc 23  | .RET..#.PSEC..#|
00001bd0  1e 50 53 42 43 20 23 24  30 31 00 ea 23 28 50 4a  |.PSBC #$01..#(PJ|
00001be0  4d 50 20 e1 4c 4f 4f 50  00 10 24 a8 61 3b 20 20  |MP .LOOP..$.a;  |
00001bf0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001c00  20 53 41 56 45 20 52 4f  55 54 49 4e 45 53 00 23  | SAVE ROUTINES.#|
00001c10  24 b2 61 a5 41 4d 45 20  54 58 54 20 31 34 37 2c  |$.a.AME TXT 147,|
00001c20  35 00 39 24 bc 61 54 58  54 20 22 46 49 4c 45 4e  |5.9$.aTXT "FILEN|
00001c30  41 4d 45 3a 22 2c 30 00  60 24 c6 61 a4 52 44 20  |AME:",0.`$.a.RD |
00001c40  54 58 54 20 31 33 2c 31  33 2c 22 28 54 29 41 50  |TXT 13,13,"(T)AP|
00001c50  45 20 4f 52 20 28 44 29  49 53 4b 22 2c 30 00 8e  |E OR (D)ISK",0..|
00001c60  24 d0 61 b9 54 20 54 58  54 20 31 33 2c 31 33 2c  |$.a.T TXT 13,13,|
00001c70  22 50 4f 53 49 54 49 4f  4e 20 54 41 50 45 20 3c  |"POSITION TAPE <|
00001c80  53 50 41 43 45 3e 22 2c  31 33 2c 30 00 bc 24 da  |SPACE>",13,0..$.|
00001c90  61 49 4e 53 44 20 54 58  54 20 31 33 2c 31 33 2c  |aINSD TXT 13,13,|
00001ca0  22 49 4e 53 45 52 54 20  44 49 53 4b 20 3c 53 50  |"INSERT DISK <SP|
00001cb0  41 43 45 3e 22 2c 31 33  2c 30 00 d1 24 e4 61 50  |ACE>",13,0..$.aP|
00001cc0  53 54 52 49 4e 47 20 4c  44 59 20 23 24 30 30 00  |STRING LDY #$00.|
00001cd0  e9 24 ee 61 50 53 54 52  4c 4f 50 20 4c 44 41 20  |.$.aPSTRLOP LDA |
00001ce0  28 24 46 42 29 2c 59 00  fa 24 f8 61 42 45 51 20  |($FB),Y..$.aBEQ |
00001cf0  50 53 54 52 51 55 49 54  00 08 25 02 62 4a 53 52  |PSTRQUIT..%.bJSR|
00001d00  20 4f 55 54 44 4f 00 10  25 07 62 49 4e 59 00 20  | OUTDO..%.bINY. |
00001d10  25 0c 62 4a 4d 50 20 50  53 54 52 4c 4f 50 00 31  |%.bJMP PSTRLOP.1|
00001d20  25 16 62 50 53 54 52 51  55 49 54 20 52 54 53 00  |%.bPSTRQUIT RTS.|
00001d30  46 25 20 62 91 4f 46 46  20 4c 44 41 20 24 30 34  |F% b.OFF LDA $04|
00001d40  30 41 2c 59 00 52 25 2a  62 45 b0 20 23 24 38 30  |0A,Y.R%*bE. #$80|
00001d50  00 62 25 34 62 53 54 41  20 24 30 34 30 41 2c 59  |.b%4bSTA $040A,Y|
00001d60  00 6a 25 3e 62 52 54 53  00 79 25 48 62 a1 dc 20  |.j%>bRTS.y%Hb.. |
00001d70  4c 44 41 20 24 43 35 00  86 25 52 62 43 4d 50 20  |LDA $C5..%RbCMP |
00001d80  23 24 34 30 00 91 25 5c  62 42 4e 45 20 a1 dc 00  |#$40..%\bBNE ...|
00001d90  a1 25 66 62 a1 dc 42 20  4c 44 41 20 24 43 35 00  |.%fb..B LDA $C5.|
00001da0  ae 25 70 62 43 4d 50 20  23 24 34 30 00 ba 25 7a  |.%pbCMP #$40..%z|
00001db0  62 42 45 51 20 a1 dc 42  00 c2 25 84 62 54 41 58  |bBEQ ..B..%.bTAX|
00001dc0  00 cf 25 8e 62 4c 44 41  20 dc d4 2c 58 00 da 25  |..%.bLDA ..,X..%|
00001dd0  98 62 42 45 51 20 a1 dc  00 e2 25 a2 62 52 54 53  |.bBEQ ....%.bRTS|
00001de0  00 f5 25 ac 62 e4 20 4a  53 52 20 48 49 52 45 53  |..%.b. JSR HIRES|
00001df0  4f 46 46 00 02 26 b6 62  4c 44 58 20 23 24 30 30  |OFF..&.bLDX #$00|
00001e00  00 0f 26 c0 62 4c 44 41  20 23 24 32 30 00 25 26  |..&.bLDA #$20.%&|
00001e10  ca 62 a5 41 4d 45 9c 20  53 54 41 20 24 34 31 46  |.b.AME. STA $41F|
00001e20  30 2c 58 00 2d 26 d4 62  49 4e 58 00 3a 26 de 62  |0,X.-&.bINX.:&.b|
00001e30  43 50 58 20 23 24 31 30  00 48 26 e8 62 42 4e 45  |CPX #$10.H&.bBNE|
00001e40  20 a5 41 4d 45 9c 00 57  26 f2 62 4c 44 41 20 23  | .AME..W&.bLDA #|
00001e50  b3 a5 41 4d 45 00 63 26  fc 62 53 54 41 20 24 46  |..AME.c&.bSTA $F|
00001e60  42 00 72 26 06 63 4c 44  41 20 23 b1 a5 41 4d 45  |B.r&.cLDA #..AME|
00001e70  00 7e 26 10 63 53 54 41  20 24 46 43 00 8e 26 1a  |.~&.cSTA $FC..&.|
00001e80  63 4a 53 52 20 50 53 54  52 49 4e 47 00 9b 26 24  |cJSR PSTRING..&$|
00001e90  63 4c 44 41 20 23 24 30  30 00 a3 26 2e 63 50 48  |cLDA #$00..&.cPH|
00001ea0  41 00 b1 26 38 63 e4 4c  4f 4f 50 20 54 41 59 00  |A..&8c.LOOP TAY.|
00001eb0  be 26 3d 63 4a 53 52 20  91 4f 46 46 00 c9 26 42  |.&=cJSR .OFF..&B|
00001ec0  63 4a 53 52 20 a1 dc 00  d1 26 47 63 50 48 41 00  |cJSR ....&GcPHA.|
00001ed0  de 26 4c 63 4a 53 52 20  91 4f 46 46 00 e6 26 51  |.&LcJSR .OFF..&Q|
00001ee0  63 50 4c 41 00 f3 26 56  63 43 4d 50 20 23 24 38  |cPLA..&VcCMP #$8|
00001ef0  30 00 02 27 60 63 42 43  53 20 44 45 43 4f 44 45  |0..'`cBCS DECODE|
00001f00  00 0a 27 6a 63 54 41 59  00 12 27 74 63 50 4c 41  |..'jcTAY..'tcPLA|
00001f10  00 1a 27 7e 63 54 41 58  00 22 27 88 63 54 59 41  |..'~cTAX."'.cTYA|
00001f20  00 32 27 92 63 53 54 41  20 24 30 34 30 41 2c 58  |.2'.cSTA $040A,X|
00001f30  00 3f 27 9c 63 43 4d 50  20 23 24 32 30 00 4d 27  |.?'.cCMP #$20.M'|
00001f40  a6 63 42 43 53 20 4e 4f  53 50 43 00 55 27 b0 63  |.cBCS NOSPC.U'.c|
00001f50  43 4c 43 00 62 27 ba 63  41 44 43 20 23 24 34 30  |CLC.b'.cADC #$40|
00001f60  00 78 27 c4 63 4e 4f 53  50 43 20 53 54 41 20 24  |.x'.cNOSPC STA $|
00001f70  34 31 46 30 2c 58 00 8a  27 ce 63 49 4e 43 b9 20  |41F0,X..'.cINC. |
00001f80  43 50 58 20 23 24 30 46  00 99 27 d8 63 42 45 51  |CPX #$0F..'.cBEQ|
00001f90  20 e4 52 45 4c 4f 50 00  a1 27 e2 63 49 4e 58 00  | .RELOP..'.cINX.|
00001fa0  b0 27 ec 63 e4 52 45 4c  4f 50 20 54 58 41 00 b8  |.'.c.RELOP TXA..|
00001fb0  27 f1 63 50 48 41 00 c6  27 f6 63 4a 4d 50 20 e4  |'.cPHA..'.cJMP .|
00001fc0  4c 4f 4f 50 00 da 27 00  64 44 45 43 4f 44 45 20  |LOOP..'.dDECODE |
00001fd0  43 4d 50 20 23 24 38 30  00 e5 27 0a 64 42 45 51  |CMP #$80..'.dBEQ|
00001fe0  20 e4 9a 00 f2 27 14 64  43 4d 50 20 23 24 38 31  | ....'.dCMP #$81|
00001ff0  00 fc 27 1e 64 42 45 51  20 d1 00 09 28 28 64 43  |..'.dBEQ ...((dC|
00002000  4d 50 20 23 24 38 32 00  17 28 32 64 42 4e 45 20  |MP #$82..(2dBNE |
00002010  e4 4c 4f 4f 50 00 1f 28  3c 64 50 4c 41 00 27 28  |.LOOP..(<dPLA.'(|
00002020  46 64 54 41 58 00 35 28  50 64 4c 44 41 20 24 30  |FdTAX.5(PdLDA $0|
00002030  32 38 33 00 40 28 5a 64  af 20 23 24 30 31 00 4d  |283.@(Zd. #$01.M|
00002040  28 64 64 42 45 51 20 49  4e 43 b9 00 5f 28 6e 64  |(ddBEQ INC.._(nd|
00002050  44 45 43 b9 20 43 50 58  20 23 24 30 30 00 6e 28  |DEC. CPX #$00.n(|
00002060  78 64 42 45 51 20 e4 52  45 4c 4f 50 00 76 28 82  |xdBEQ .RELOP.v(.|
00002070  64 44 45 58 00 85 28 8c  64 4a 4d 50 20 e4 52 45  |dDEX..(.dJMP .RE|
00002080  4c 4f 50 00 8f 28 96 64  d1 20 50 4c 41 00 97 28  |LOP..(.d. PLA..(|
00002090  a0 64 54 41 58 00 a4 28  aa 64 4c 44 41 20 23 24  |.dTAX..(.dLDA #$|
000020a0  32 30 00 b4 28 b4 64 53  54 41 20 24 30 34 30 41  |20..(.dSTA $040A|
000020b0  2c 58 00 c4 28 be 64 53  54 41 20 24 34 31 46 30  |,X..(.dSTA $41F0|
000020c0  2c 58 00 d1 28 c8 64 4a  4d 50 20 44 45 43 b9 00  |,X..(.dJMP DEC..|
000020d0  dc 28 d2 64 e4 9a 20 50  4c 41 00 ea 28 d7 64 4c  |.(.d.. PLA..(.dL|
000020e0  44 41 20 23 b3 a4 52 44  00 f6 28 dc 64 53 54 41  |DA #..RD..(.dSTA|
000020f0  20 24 46 42 00 04 29 e6  64 4c 44 41 20 23 b1 a4  | $FB..).dLDA #..|
00002100  52 44 00 10 29 f0 64 53  54 41 20 24 46 43 00 20  |RD..).dSTA $FC. |
00002110  29 fa 64 4a 53 52 20 50  53 54 52 49 4e 47 00 2d  |).dJSR PSTRING.-|
00002120  29 04 65 e3 20 4a 53 52  20 a1 dc 00 3a 29 0e 65  |).e. JSR ...:).e|
00002130  43 4d 50 20 23 24 31 34  00 48 29 18 65 42 45 51  |CMP #$14.H).eBEQ|
00002140  20 54 41 50 45 e4 00 55  29 22 65 43 4d 50 20 23  | TAPE..U)"eCMP #|
00002150  24 30 34 00 63 29 2c 65  42 45 51 20 44 49 53 4b  |$04.c),eBEQ DISK|
00002160  e4 00 6d 29 36 65 4a 4d  50 20 e3 00 80 29 40 65  |..m)6eJMP ...)@e|
00002170  54 41 50 45 e4 20 4c 44  41 20 23 b3 b9 54 00 8c  |TAPE. LDA #..T..|
00002180  29 4a 65 53 54 41 20 24  46 42 00 99 29 54 65 4c  |)JeSTA $FB..)TeL|
00002190  44 41 20 23 b1 b9 54 00  a5 29 5e 65 53 54 41 20  |DA #..T..)^eSTA |
000021a0  24 46 43 00 b5 29 68 65  4a 53 52 20 50 53 54 52  |$FC..)heJSR PSTR|
000021b0  49 4e 47 00 c2 29 72 65  4c 44 58 20 23 24 30 31  |ING..)reLDX #$01|
000021c0  00 d0 29 7c 65 4a 4d 50  20 54 41 50 45 9a 00 e5  |..)|eJMP TAPE...|
000021d0  29 86 65 44 49 53 4b e4  20 4c 44 41 20 23 b3 49  |).eDISK. LDA #.I|
000021e0  4e 53 44 00 f1 29 90 65  53 54 41 20 24 46 42 00  |NSD..).eSTA $FB.|
000021f0  00 2a 9a 65 4c 44 41 20  23 b1 49 4e 53 44 00 0c  |.*.eLDA #.INSD..|
00002200  2a a4 65 53 54 41 20 24  46 43 00 1c 2a ae 65 4a  |*.eSTA $FC..*.eJ|
00002210  53 52 20 50 53 54 52 49  4e 47 00 29 2a b8 65 4c  |SR PSTRING.)*.eL|
00002220  44 58 20 23 24 30 38 00  3b 2a c2 65 54 41 50 45  |DX #$08.;*.eTAPE|
00002230  9a 20 4c 44 41 20 24 43  35 00 48 2a cc 65 43 4d  |. LDA $C5.H*.eCM|
00002240  50 20 23 24 33 43 00 56  2a d6 65 42 4e 45 20 54  |P #$3C.V*.eBNE T|
00002250  41 50 45 9a 00 63 2a e0  65 4c 44 41 20 23 24 30  |APE..c*.eLDA #$0|
00002260  31 00 6b 2a ea 65 54 41  59 00 78 2a f4 65 4a 53  |1.k*.eTAY.x*.eJS|
00002270  52 20 e8 4c 46 53 00 85  2a fe 65 4c 44 58 20 23  |R .LFS..*.eLDX #|
00002280  24 30 46 00 9b 2a 08 66  a5 41 4d 45 c3 20 4c 44  |$0F..*.f.AME. LD|
00002290  41 20 24 34 31 46 30 2c  58 00 a8 2a 12 66 43 4d  |A $41F0,X..*.fCM|
000022a0  50 20 23 24 32 30 00 b7  2a 1c 66 42 4e 45 20 a5  |P #$20..*.fBNE .|
000022b0  41 4d 45 cb 54 00 bf 2a  26 66 44 45 58 00 ce 2a  |AME.T..*&fDEX..*|
000022c0  30 66 42 45 51 20 a5 41  4d 45 cb 54 00 dc 2a 3a  |0fBEQ .AME.T..*:|
000022d0  66 4a 4d 50 20 a5 41 4d  45 c3 00 eb 2a 44 66 a5  |fJMP .AME...*Df.|
000022e0  41 4d 45 cb 54 20 54 58  41 00 f8 2a 58 66 4c 44  |AME.T TXA..*XfLD|
000022f0  58 20 23 24 46 30 00 05  2b 62 66 4c 44 59 20 23  |X #$F0..+bfLDY #|
00002300  24 34 31 00 12 2b 6c 66  4a 53 52 20 e8 4e 41 4d  |$41..+lfJSR .NAM|
00002310  00 1f 2b 76 66 4c 44 41  20 23 24 32 30 00 2b 2b  |..+vfLDA #$20.++|
00002320  80 66 53 54 41 20 24 46  43 00 38 2b 8a 66 4c 44  |.fSTA $FC.8+.fLD|
00002330  58 20 23 24 30 30 00 44  2b 94 66 53 54 41 20 24  |X #$00.D+.fSTA $|
00002340  46 42 00 51 2b 9e 66 4c  44 59 20 23 24 34 30 00  |FB.Q+.fLDY #$40.|
00002350  5e 2b a8 66 4c 44 41 20  23 24 46 42 00 6b 2b b2  |^+.fLDA #$FB.k+.|
00002360  66 4a 53 52 20 e4 52 4f  4d 00 7c 2b bc 66 4a 4d  |fJSR .ROM.|+.fJM|
00002370  50 20 43 4f 4d 45 42 41  43 4b 00 a2 2b 78 69 3b  |P COMEBACK..+xi;|
00002380  20 20 20 20 20 20 20 20  20 20 20 4b 45 59 42 4f  |           KEYBO|
00002390  41 52 44 20 44 45 43 4f  44 45 20 54 41 42 4c 45  |ARD DECODE TABLE|
000023a0  00 a8 2b 82 69 3b 00 bf  2b 8c 69 dc d4 20 54 58  |..+.i;..+.i.. TX|
000023b0  54 20 24 38 31 2c 24 38  30 2c 24 38 32 00 e1 2b  |T $81,$80,$82..+|
000023c0  96 69 54 58 54 20 30 2c  30 2c 30 2c 30 2c 24 38  |.iTXT 0,0,0,0,$8|
000023d0  33 2c 35 31 2c 32 33 2c  31 2c 35 32 2c 32 36 00  |3,51,23,1,52,26.|
000023e0  05 2c a0 69 54 58 54 20  31 39 2c 35 2c 30 2c 35  |.,.iTXT 19,5,0,5|
000023f0  33 2c 31 38 2c 34 2c 35  34 2c 33 2c 36 2c 32 30  |3,18,4,54,3,6,20|
00002400  2c 32 34 00 2a 2c aa 69  54 58 54 20 35 35 2c 32  |,24.*,.iTXT 55,2|
00002410  35 2c 37 2c 35 36 2c 32  2c 38 2c 32 31 2c 32 32  |5,7,56,2,8,21,22|
00002420  2c 35 37 2c 39 2c 31 30  00 50 2c b4 69 54 58 54  |,57,9,10.P,.iTXT|
00002430  20 34 38 2c 31 33 2c 31  31 2c 31 35 2c 31 34 2c  | 48,13,11,15,14,|
00002440  34 33 2c 31 36 2c 31 32  2c 34 35 2c 34 36 00 74  |43,16,12,45,46.t|
00002450  2c be 69 54 58 54 20 30  2c 30 2c 34 34 2c 30 2c  |,.iTXT 0,0,44,0,|
00002460  30 2c 30 2c 30 2c 30 2c  30 2c 33 30 2c 34 37 2c  |0,0,0,0,0,30,47,|
00002470  34 39 00 90 2c c8 69 54  58 54 20 33 31 2c 30 2c  |49..,.iTXT 31,0,|
00002480  35 30 2c 33 32 2c 30 2c  31 37 2c 30 2c 30 00 b4  |50,32,0,17,0,0..|
00002490  2c 30 75 3b 20 20 20 20  20 20 20 20 20 20 4d af  |,0u;          M.|
000024a0  4c 45 42 52 4f 54 20 53  45 54 20 50 4c 4f 54 54  |LEBROT SET PLOTT|
000024b0  45 52 00 c1 2c 3a 75 4d  af 4c 45 20 53 45 49 00  |ER..,:uM.LE SEI.|
000024c0  ce 2c 3f 75 4c 44 41 20  23 24 30 30 00 dd 2c 44  |.,?uLDA #$00..,D|
000024d0  75 53 54 41 20 59 50 49  58 45 4c 00 ea 2c 4e 75  |uSTA YPIXEL..,Nu|
000024e0  4c 44 41 20 23 24 30 33  00 f8 2c 58 75 53 54 41  |LDA #$03..,XuSTA|
000024f0  20 24 34 31 30 30 00 05  2d 62 75 4c 44 41 20 23  | $4100..-buLDA #|
00002500  24 30 36 00 13 2d 6c 75  53 54 41 20 24 34 31 30  |$06..-luSTA $410|
00002510  32 00 21 2d 76 75 4a 53  52 20 45 51 55 41 4c 00  |2.!-vuJSR EQUAL.|
00002520  35 2d 80 75 4d 4d 41 49  4e 4c 20 4c 44 41 20 23  |5-.uMMAINL LDA #|
00002530  24 30 30 00 44 2d 8a 75  53 54 41 20 58 50 49 58  |$00.D-.uSTA XPIX|
00002540  45 4c 00 51 2d 94 75 4c  44 41 20 23 24 30 31 00  |EL.Q-.uLDA #$01.|
00002550  5f 2d 9e 75 53 54 41 20  24 34 31 30 30 00 6c 2d  |_-.uSTA $4100.l-|
00002560  a8 75 4c 44 41 20 23 24  30 35 00 7a 2d b2 75 53  |.uLDA #$05.z-.uS|
00002570  54 41 20 24 34 31 30 32  00 88 2d bc 75 4a 53 52  |TA $4102..-.uJSR|
00002580  20 45 51 55 41 4c 00 9d  2d c6 75 4d 4d 41 49 4e  | EQUAL..-.uMMAIN|
00002590  4c 42 20 4c 44 41 20 23  24 30 35 00 ab 2d d0 75  |LB LDA #$05..-.u|
000025a0  53 54 41 20 24 34 31 30  30 00 b8 2d da 75 4c 44  |STA $4100..-.uLD|
000025b0  41 20 23 24 30 37 00 c6  2d e4 75 53 54 41 20 24  |A #$07..-.uSTA $|
000025c0  34 31 30 32 00 d4 2d ee  75 4a 53 52 20 45 51 55  |4102..-.uJSR EQU|
000025d0  41 4c 00 e2 2d f8 75 49  4e 43 20 24 34 31 30 30  |AL..-.uINC $4100|
000025e0  00 f0 2d 02 76 49 4e 43  20 24 34 31 30 32 00 fe  |..-.vINC $4102..|
000025f0  2d 0c 76 4a 53 52 20 45  51 55 41 4c 00 0b 2e 16  |-.vJSR EQUAL....|
00002600  76 4c 44 41 20 23 24 30  30 00 1a 2e 20 76 53 54  |vLDA #$00... vST|
00002610  41 20 43 4f 4c 4f 55 52  00 2c 2e 2a 76 4c 4f 4f  |A COLOUR.,.*vLOO|
00002620  50 20 4c 44 41 20 23 24  30 37 00 3a 2e 34 76 53  |P LDA #$07.:.4vS|
00002630  54 41 20 24 34 31 30 30  00 48 2e 3e 76 53 54 41  |TA $4100.H.>vSTA|
00002640  20 24 34 31 30 31 00 55  2e 48 76 4c 44 41 20 23  | $4101.U.HvLDA #|
00002650  24 31 30 00 63 2e 52 76  53 54 41 20 24 34 31 30  |$10.c.RvSTA $410|
00002660  32 00 74 2e 5c 76 4a 53  52 20 4d 55 4c 54 49 50  |2.t.\vJSR MULTIP|
00002670  4c 59 00 81 2e 66 76 4c  44 41 20 23 24 30 38 00  |LY...fvLDA #$08.|
00002680  8f 2e 70 76 53 54 41 20  24 34 31 30 30 00 9d 2e  |..pvSTA $4100...|
00002690  7a 76 53 54 41 20 24 34  31 30 31 00 aa 2e 84 76  |zvSTA $4101....v|
000026a0  4c 44 41 20 23 24 31 31  00 b8 2e 8e 76 53 54 41  |LDA #$11....vSTA|
000026b0  20 24 34 31 30 32 00 c9  2e 98 76 4a 53 52 20 4d  | $4102....vJSR M|
000026c0  55 4c 54 49 50 4c 59 00  d6 2e a2 76 4c 44 58 20  |ULTIPLY....vLDX |
000026d0  23 24 31 30 00 e4 2e ac  76 53 54 58 20 24 34 31  |#$10....vSTX $41|
000026e0  30 30 00 ec 2e b6 76 49  4e 58 00 fa 2e c0 76 53  |00....vINX....vS|
000026f0  54 58 20 24 34 31 30 31  00 02 2f ca 76 49 4e 58  |TX $4101../.vINX|
00002700  00 10 2f d4 76 53 54 58  20 24 34 31 30 32 00 20  |../.vSTX $4102. |
00002710  2f de 76 4a 53 52 20 41  44 44 49 54 49 91 00 2e  |/.vJSR ADDITI...|
00002720  2f e8 76 4c 44 41 20 24  34 30 39 31 00 3b 2f f2  |/.vLDA $4091.;/.|
00002730  76 43 4d 50 20 23 24 30  34 00 48 2f fc 76 42 43  |vCMP #$04.H/.vBC|
00002740  43 20 46 41 49 4c 00 55  2f 06 77 43 4d 50 20 23  |C FAIL.U/.wCMP #|
00002750  24 35 30 00 62 2f 10 77  42 43 53 20 46 41 49 4c  |$50.b/.wBCS FAIL|
00002760  00 7a 2f 1a 77 53 55 43  50 41 53 53 20 4a 4d 50  |.z/.wSUCPASS JMP|
00002770  20 53 55 43 43 45 53 53  00 8e 2f 24 77 46 41 49  | SUCCESS../$wFAI|
00002780  4c 20 49 4e 43 20 43 4f  4c 4f 55 52 00 9d 2f 29  |L INC COLOUR../)|
00002790  77 4c 44 41 20 43 4f 4c  4f 55 52 00 ac 2f 2e 77  |wLDA COLOUR../.w|
000027a0  43 4d 50 20 4d 41 58 43  4f 4c 00 bc 2f 38 77 42  |CMP MAXCOL../8wB|
000027b0  45 51 20 53 55 43 50 41  53 53 00 cd 2f 42 77 4a  |EQ SUCPASS../BwJ|
000027c0  53 52 20 53 55 42 54 52  41 43 54 00 da 2f 4c 77  |SR SUBTRACT../Lw|
000027d0  4c 44 41 20 23 24 31 32  00 e8 2f 56 77 53 54 41  |LDA #$12../VwSTA|
000027e0  20 24 34 31 30 30 00 f5  2f 60 77 4c 44 41 20 23  | $4100../`wLDA #|
000027f0  24 30 35 00 03 30 6a 77  53 54 41 20 24 34 31 30  |$05..0jwSTA $410|
00002800  31 00 10 30 74 77 4c 44  41 20 23 24 31 33 00 1e  |1..0twLDA #$13..|
00002810  30 7e 77 53 54 41 20 24  34 31 30 32 00 2e 30 88  |0~wSTA $4102..0.|
00002820  77 4a 53 52 20 41 44 44  49 54 49 91 00 3b 30 92  |wJSR ADDITI..;0.|
00002830  77 4c 44 41 20 23 24 30  37 00 49 30 9c 77 53 54  |wLDA #$07.I0.wST|
00002840  41 20 24 34 31 30 30 00  56 30 a6 77 4c 44 41 20  |A $4100.V0.wLDA |
00002850  23 24 30 38 00 64 30 b0  77 53 54 41 20 24 34 31  |#$08.d0.wSTA $41|
00002860  30 31 00 72 30 ba 77 49  4e 43 20 24 34 31 30 32  |01.r0.wINC $4102|
00002870  00 83 30 c4 77 4a 53 52  20 4d 55 4c 54 49 50 4c  |..0.wJSR MULTIPL|
00002880  59 00 90 30 ce 77 4c 44  41 20 23 24 31 34 00 9e  |Y..0.wLDA #$14..|
00002890  30 d8 77 53 54 41 20 24  34 31 30 30 00 ab 30 e2  |0.wSTA $4100..0.|
000028a0  77 4c 44 41 20 23 24 31  43 00 b9 30 ec 77 53 54  |wLDA #$1C..0.wST|
000028b0  41 20 24 34 31 30 31 00  c6 30 f6 77 4c 44 41 20  |A $4101..0.wLDA |
000028c0  23 24 31 35 00 d4 30 00  78 53 54 41 20 24 34 31  |#$15..0.xSTA $41|
000028d0  30 32 00 e5 30 0a 78 4a  53 52 20 4d 55 4c 54 49  |02..0.xJSR MULTI|
000028e0  50 4c 59 00 f2 30 14 78  4c 44 41 20 23 24 31 35  |PLY..0.xLDA #$15|
000028f0  00 00 31 1e 78 53 54 41  20 24 34 31 30 30 00 0d  |..1.xSTA $4100..|
00002900  31 28 78 4c 44 41 20 23  24 30 36 00 1b 31 32 78  |1(xLDA #$06..12x|
00002910  53 54 41 20 24 34 31 30  31 00 28 31 3c 78 4c 44  |STA $4101.(1<xLD|
00002920  41 20 23 24 31 36 00 36  31 46 78 53 54 41 20 24  |A #$16.61FxSTA $|
00002930  34 31 30 32 00 46 31 50  78 4a 53 52 20 41 44 44  |4102.F1PxJSR ADD|
00002940  49 54 49 91 00 53 31 5a  78 4c 44 41 20 23 24 31  |ITI..S1ZxLDA #$1|
00002950  33 00 61 31 64 78 53 54  41 20 24 34 31 30 30 00  |3.a1dxSTA $4100.|
00002960  6e 31 6e 78 4c 44 41 20  23 24 30 37 00 7c 31 78  |n1nxLDA #$07.|1x|
00002970  78 53 54 41 20 24 34 31  30 32 00 8a 31 82 78 4a  |xSTA $4102..1.xJ|
00002980  53 52 20 45 51 55 41 4c  00 97 31 8c 78 4c 44 41  |SR EQUAL..1.xLDA|
00002990  20 23 24 31 36 00 a5 31  96 78 53 54 41 20 24 34  | #$16..1.xSTA $4|
000029a0  31 30 30 00 b2 31 a0 78  4c 44 41 20 23 24 30 38  |100..1.xLDA #$08|
000029b0  00 c0 31 aa 78 53 54 41  20 24 34 31 30 32 00 ce  |..1.xSTA $4102..|
000029c0  31 b4 78 4a 53 52 20 45  51 55 41 4c 00 db 31 be  |1.xJSR EQUAL..1.|
000029d0  78 4a 4d 50 20 4c 4f 4f  50 00 f0 31 c8 78 53 55  |xJMP LOOP..1.xSU|
000029e0  43 43 45 53 53 20 4a 53  52 20 50 4c 4f 54 00 fd  |CCESS JSR PLOT..|
000029f0  31 d2 78 4c 44 41 20 23  24 30 35 00 0b 32 dc 78  |1.xLDA #$05..2.x|
00002a00  53 54 41 20 24 34 31 30  30 00 19 32 e6 78 53 54  |STA $4100..2.xST|
00002a10  41 20 24 34 31 30 32 00  26 32 f0 78 4c 44 41 20  |A $4102.&2.xLDA |
00002a20  23 24 30 32 00 34 32 fa  78 53 54 41 20 24 34 31  |#$02.42.xSTA $41|
00002a30  30 31 00 44 32 04 79 4a  53 52 20 41 44 44 49 54  |01.D2.yJSR ADDIT|
00002a40  49 91 00 53 32 0e 79 4c  44 41 20 58 50 49 58 45  |I..S2.yLDA XPIXE|
00002a50  4c 00 62 32 18 79 42 4e  45 20 58 52 45 4c 4f 50  |L.b2.yBNE XRELOP|
00002a60  00 6f 32 22 79 4c 44 41  20 23 24 30 36 00 7d 32  |.o2"yLDA #$06.}2|
00002a70  2c 79 53 54 41 20 24 34  31 30 30 00 8b 32 36 79  |,ySTA $4100..26y|
00002a80  53 54 41 20 24 34 31 30  32 00 98 32 40 79 4c 44  |STA $4102..2@yLD|
00002a90  41 20 23 24 30 34 00 a6  32 4a 79 53 54 41 20 24  |A #$04..2JySTA $|
00002aa0  34 31 30 31 00 b6 32 54  79 4a 53 52 20 41 44 44  |4101..2TyJSR ADD|
00002ab0  49 54 49 91 00 c5 32 5e  79 49 4e 43 20 59 50 49  |ITI...2^yINC YPI|
00002ac0  58 45 4c 00 d4 32 68 79  4c 44 41 20 59 50 49 58  |XEL..2hyLDA YPIX|
00002ad0  45 4c 00 e1 32 72 79 43  4d 50 20 23 24 43 38 00  |EL..2ryCMP #$C8.|
00002ae0  f0 32 7c 79 42 4e 45 20  59 52 45 4c 4f 50 00 f8  |.2|yBNE YRELOP..|
00002af0  32 81 79 43 4c 49 00 00  33 86 79 52 54 53 00 17  |2.yCLI..3.yRTS..|
00002b00  33 90 79 58 52 45 4c 4f  50 20 4a 4d 50 20 4d 4d  |3.yXRELOP JMP MM|
00002b10  41 49 4e 4c 42 00 2d 33  9a 79 59 52 45 4c 4f 50  |AINLB.-3.yYRELOP|
00002b20  20 4a 4d 50 20 4d 4d 41  49 4e 4c 00 41 33 e0 79  | JMP MMAINL.A3.y|
00002b30  4d af 50 4c 4f 54 20 4a  53 52 20 4d af 4c 45 00  |M.PLOT JSR M.LE.|
00002b40  50 33 ea 79 4a 4d 50 20  9a 52 4f 4c 4f 50 00 76  |P3.yJMP .ROLOP.v|
00002b50  33 40 9c 3b 20 20 20 20  20 20 20 20 20 20 20 20  |3@.;            |
00002b60  20 41 52 49 54 48 4d 45  54 49 43 20 52 4f 55 54  | ARITHMETIC ROUT|
00002b70  49 4e 45 53 00 85 33 4a  9c a1 44 49 47 49 54 20  |INES..3J..DIGIT |
00002b80  43 4c 44 00 8f 33 54 9c  41 53 4c 20 41 00 99 33  |CLD..3T.ASL A..3|
00002b90  5e 9c 41 53 4c 20 41 00  a3 33 68 9c 41 53 4c 20  |^.ASL A..3h.ASL |
00002ba0  41 00 af 33 72 9c 53 54  41 20 24 30 32 00 b7 33  |A..3r.STA $02..3|
00002bb0  7c 9c 54 58 41 00 c1 33  86 9c 4c 53 52 20 41 00  ||.TXA..3..LSR A.|
00002bc0  cd 33 90 9c 53 54 41 20  24 32 34 00 da 33 9a 9c  |.3..STA $24..3..|
00002bd0  4c 44 41 20 23 24 30 37  00 e2 33 a4 9c 53 45 43  |LDA #$07..3..SEC|
00002be0  00 ee 33 ae 9c 53 42 43  20 24 32 34 00 f6 33 b8  |..3..SBC $24..3.|
00002bf0  9c 43 4c 43 00 02 34 c2  9c 41 44 43 20 24 30 32  |.CLC..4..ADC $02|
00002c00  00 0a 34 cc 9c 54 41 59  00 1a 34 d6 9c 4c 44 41  |..4..TAY..4..LDA|
00002c10  20 24 34 30 30 30 2c 59  00 22 34 e0 9c 54 41 59  | $4000,Y."4..TAY|
00002c20  00 2a 34 ea 9c 54 58 41  00 35 34 f4 9c af 20 23  |.*4..TXA.54... #|
00002c30  24 30 31 00 43 34 fe 9c  42 45 51 20 4c 53 4e 47  |$01.C4..BEQ LSNG|
00002c40  44 00 4b 34 08 9d 54 59  41 00 56 34 12 9d af 20  |D.K4..TYA.V4... |
00002c50  23 24 46 30 00 60 34 1c  9d 4c 53 52 20 41 00 6a  |#$F0.`4..LSR A.j|
00002c60  34 26 9d 4c 53 52 20 41  00 74 34 30 9d 4c 53 52  |4&.LSR A.t40.LSR|
00002c70  20 41 00 7e 34 3a 9d 4c  53 52 20 41 00 86 34 44  | A.~4:.LSR A..4D|
00002c80  9d 52 54 53 00 94 34 4e  9d 4c 53 4e 47 44 20 54  |.RTS..4N.LSNGD T|
00002c90  59 41 00 9f 34 58 9d af  20 23 24 30 46 00 a7 34  |YA..4X.. #$0F..4|
00002ca0  62 9d 52 54 53 00 c2 34  6c 9d 4d 55 4c 54 49 50  |b.RTS..4l.MULTIP|
00002cb0  4c 59 42 20 4a 53 52 20  4e 45 47 41 54 49 56 45  |LYB JSR NEGATIVE|
00002cc0  00 d0 34 71 9d 4c 44 41  20 24 34 31 30 32 00 da  |..4q.LDA $4102..|
00002cd0  34 76 9d 41 53 4c 20 41  00 e4 34 80 9d 41 53 4c  |4v.ASL A..4..ASL|
00002ce0  20 41 00 ee 34 8a 9d 41  53 4c 20 41 00 f6 34 94  | A..4..ASL A..4.|
00002cf0  9d 54 41 58 00 03 35 9e  9d 4c 44 41 20 23 24 30  |.TAX..5..LDA #$0|
00002d00  30 00 0b 35 a8 9d 54 41  59 00 21 35 b2 9d 4d 4c  |0..5..TAY.!5..ML|
00002d10  4f 50 41 20 53 54 41 20  24 34 30 30 30 2c 58 00  |OPA STA $4000,X.|
00002d20  29 35 bc 9d 49 4e 59 00  31 35 c6 9d 49 4e 58 00  |)5..INY.15..INX.|
00002d30  3e 35 d0 9d 43 50 59 20  23 24 30 38 00 4c 35 da  |>5..CPY #$08.L5.|
00002d40  9d 42 4e 45 20 4d 4c 4f  50 41 00 59 35 e4 9d 4c  |.BNE MLOPA.Y5..L|
00002d50  44 41 20 23 24 30 36 00  65 35 ee 9d 53 54 41 20  |DA #$06.e5..STA |
00002d60  24 46 43 00 7a 35 f8 9d  a2 44 49 47 49 54 20 4c  |$FC.z5...DIGIT L|
00002d70  44 41 20 24 34 31 30 31  00 86 35 02 9e 4c 44 58  |DA $4101..5..LDX|
00002d80  20 24 46 43 00 95 35 0c  9e 4a 53 52 20 a1 44 49  | $FC..5..JSR .DI|
00002d90  47 49 54 00 a2 35 16 9e  43 4d 50 20 23 24 30 30  |GIT..5..CMP #$00|
00002da0  00 b1 35 20 9e 42 45 51  20 44 4d 4f 56 45 52 00  |..5 .BEQ DMOVER.|
00002db0  bd 35 2a 9e 53 54 41 20  24 46 44 00 ca 35 34 9e  |.5*.STA $FD..54.|
00002dc0  4c 44 41 20 23 24 30 36  00 d6 35 3e 9e 53 54 41  |LDA #$06..5>.STA|
00002dd0  20 24 46 42 00 ea 35 48  9e 44 4d 4c 4f 50 20 4c  | $FB..5H.DMLOP L|
00002de0  44 41 20 24 34 31 30 30  00 f6 35 52 9e 4c 44 58  |DA $4100..5R.LDX|
00002df0  20 24 46 42 00 05 36 5c  9e 4a 53 52 20 a1 44 49  | $FB..6\.JSR .DI|
00002e00  47 49 54 00 12 36 66 9e  43 4d 50 20 23 24 30 30  |GIT..6f.CMP #$00|
00002e10  00 21 36 70 9e 42 45 51  20 44 4d 4f 56 45 52 00  |.!6p.BEQ DMOVER.|
00002e20  2d 36 7a 9e 53 54 41 20  24 46 45 00 39 36 84 9e  |-6z.STA $FE.96..|
00002e30  4c 44 41 20 24 46 42 00  41 36 8e 9e 43 4c 43 00  |LDA $FB.A6..CLC.|
00002e40  4d 36 98 9e 41 44 43 20  24 46 43 00 55 36 a2 9e  |M6..ADC $FC.U6..|
00002e50  53 45 43 00 62 36 ac 9e  53 42 43 20 23 24 30 43  |SEC.b6..SBC #$0C|
00002e60  00 6e 36 b6 9e 4c 44 58  20 24 46 44 00 76 36 c0  |.n6..LDX $FD.v6.|
00002e70  9e 54 41 59 00 81 36 ca  9e af 20 23 24 30 31 00  |.TAY..6... #$01.|
00002e80  8f 36 d4 9e 42 45 51 20  4d 53 4b 49 50 00 97 36  |.6..BEQ MSKIP..6|
00002e90  de 9e 54 58 41 00 a1 36  e8 9e 41 53 4c 20 41 00  |..TXA..6..ASL A.|
00002ea0  ab 36 f2 9e 41 53 4c 20  41 00 b5 36 fc 9e 41 53  |.6..ASL A..6..AS|
00002eb0  4c 20 41 00 bf 36 06 9f  41 53 4c 20 41 00 c7 36  |L A..6..ASL A..6|
00002ec0  10 9f 54 41 58 00 d5 36  1a 9f 4d 53 4b 49 50 20  |..TAX..6..MSKIP |
00002ed0  54 59 41 00 df 36 24 9f  4c 53 52 20 41 00 eb 36  |TYA..6$.LSR A..6|
00002ee0  2e 9f 53 54 41 20 24 30  32 00 f8 36 38 9f 4c 44  |..STA $02..68.LD|
00002ef0  41 20 23 24 30 37 00 00  37 42 9f 53 45 43 00 0c  |A #$07..7B.SEC..|
00002f00  37 4c 9f 53 42 43 20 24  30 32 00 18 37 56 9f 53  |7L.SBC $02..7V.S|
00002f10  54 41 20 24 30 32 00 26  37 60 9f 4c 44 41 20 24  |TA $02.&7`.LDA $|
00002f20  34 31 30 32 00 30 37 6a  9f 41 53 4c 20 41 00 3a  |4102.07j.ASL A.:|
00002f30  37 74 9f 41 53 4c 20 41  00 44 37 7e 9f 41 53 4c  |7t.ASL A.D7~.ASL|
00002f40  20 41 00 50 37 88 9f 41  44 43 20 24 30 32 00 5c  | A.P7..ADC $02.\|
00002f50  37 8d 9f 53 54 41 20 24  32 35 00 64 37 92 9f 54  |7..STA $25.d7..T|
00002f60  41 59 00 70 37 9c 9f 53  54 58 20 24 32 34 00 81  |AY.p7..STX $24..|
00002f70  37 a6 9f 44 4d 4c 42 20  4c 44 58 20 24 30 32 00  |7..DMLB LDX $02.|
00002f80  89 37 b0 9f 53 45 44 00  99 37 ba 9f 4c 44 41 20  |.7..SED..7..LDA |
00002f90  24 34 30 30 30 2c 59 00  a1 37 c4 9f 43 4c 43 00  |$4000,Y..7..CLC.|
00002fa0  ad 37 ce 9f 41 44 43 20  24 32 34 00 bd 37 d8 9f  |.7..ADC $24..7..|
00002fb0  53 54 41 20 24 34 30 30  30 2c 59 00 ca 37 e2 9f  |STA $4000,Y..7..|
00002fc0  4d 41 4c 50 20 43 4c 44  00 d9 37 ec 9f 42 43 43  |MALP CLD..7..BCC|
00002fd0  20 4d 41 51 55 49 54 00  e1 37 f6 9f 44 45 59 00  | MAQUIT..7..DEY.|
00002fe0  e9 37 00 a0 44 45 58 00  f6 37 0a a0 43 50 58 20  |.7..DEX..7..CPX |
00002ff0  23 24 46 46 00 05 38 14  a0 42 45 51 20 4d 41 51  |#$FF..8..BEQ MAQ|
00003000  55 49 54 00 0d 38 1e a0  53 45 44 00 1d 38 28 a0  |UIT..8..SED..8(.|
00003010  4c 44 41 20 24 34 30 30  30 2c 59 00 25 38 32 a0  |LDA $4000,Y.%82.|
00003020  43 4c 43 00 32 38 3c a0  41 44 43 20 23 24 30 31  |CLC.28<.ADC #$01|
00003030  00 42 38 46 a0 53 54 41  20 24 34 30 30 30 2c 59  |.B8F.STA $4000,Y|
00003040  00 4f 38 50 a0 4a 4d 50  20 4d 41 4c 50 00 62 38  |.O8P.JMP MALP.b8|
00003050  5a a0 44 4d 4f 56 45 52  20 49 4e 43 20 24 46 42  |Z.DMOVER INC $FB|
00003060  00 6e 38 64 a0 4c 44 41  20 24 46 42 00 7b 38 6e  |.n8d.LDA $FB.{8n|
00003070  a0 43 4d 50 20 23 24 30  45 00 89 38 78 a0 42 43  |.CMP #$0E..8x.BC|
00003080  43 20 44 4d 4c 4f 50 00  95 38 82 a0 49 4e 43 20  |C DMLOP..8..INC |
00003090  24 46 43 00 a1 38 8c a0  4c 44 41 20 24 46 43 00  |$FC..8..LDA $FC.|
000030a0  ae 38 96 a0 43 4d 50 20  23 24 30 45 00 bd 38 a0  |.8..CMP #$0E..8.|
000030b0  a0 42 43 43 20 a2 44 49  47 49 54 00 ca 38 aa a0  |.BCC .DIGIT..8..|
000030c0  4c 44 41 20 59 50 49 42  00 d7 38 b4 a0 42 45 51  |LDA YPIB..8..BEQ|
000030d0  20 51 55 49 54 00 e5 38  be a0 4c 44 41 20 24 34  | QUIT..8..LDA $4|
000030e0  31 30 32 00 f3 38 c8 a0  53 54 41 20 24 34 31 30  |102..8..STA $410|
000030f0  31 00 00 39 d2 a0 4c 44  41 20 23 24 31 44 00 0e  |1..9..LDA #$1D..|
00003100  39 dc a0 53 54 41 20 24  34 31 30 30 00 1f 39 e6  |9..STA $4100..9.|
00003110  a0 4a 53 52 20 53 55 42  54 52 41 43 54 00 2c 39  |.JSR SUBTRACT.,9|
00003120  f0 a0 51 55 49 54 20 52  54 53 00 3f 39 fa a0 4d  |..QUIT RTS.?9..M|
00003130  41 51 55 49 54 20 4c 44  58 20 24 46 45 00 47 39  |AQUIT LDX $FE.G9|
00003140  04 a1 44 45 58 00 56 39  07 a1 42 45 51 20 44 4d  |..DEX.V9..BEQ DM|
00003150  4f 56 45 52 00 62 39 0a  a1 53 54 58 20 24 46 45  |OVER.b9..STX $FE|
00003160  00 6e 39 0e a1 4c 44 59  20 24 32 35 00 7b 39 18  |.n9..LDY $25.{9.|
00003170  a1 4a 4d 50 20 44 4d 4c  42 00 8e 39 22 a1 4d 53  |.JMP DMLB..9".MS|
00003180  55 50 20 4c 44 41 20 24  34 31 30 30 00 98 39 2c  |UP LDA $4100..9,|
00003190  a1 41 53 4c 20 41 00 a2  39 36 a1 41 53 4c 20 41  |.ASL A..96.ASL A|
000031a0  00 ac 39 40 a1 41 53 4c  20 41 00 b4 39 4a a1 54  |..9@.ASL A..9J.T|
000031b0  41 58 00 bc 39 54 a1 44  45 58 00 c8 39 5e a1 53  |AX..9T.DEX..9^.S|
000031c0  54 58 20 24 46 42 00 d6  39 68 a1 4c 44 41 20 24  |TX $FB..9h.LDA $|
000031d0  34 31 30 31 00 e0 39 72  a1 41 53 4c 20 41 00 ea  |4101..9r.ASL A..|
000031e0  39 7c a1 41 53 4c 20 41  00 f4 39 86 a1 41 53 4c  |9|.ASL A..9..ASL|
000031f0  20 41 00 fc 39 90 a1 54  41 58 00 04 3a 9a a1 44  | A..9..TAX..:..D|
00003200  45 58 00 10 3a a4 a1 53  54 58 20 24 46 44 00 1e  |EX..:..STX $FD..|
00003210  3a ae a1 4c 44 41 20 24  34 31 30 32 00 28 3a b8  |:..LDA $4102.(:.|
00003220  a1 41 53 4c 20 41 00 32  3a c2 a1 41 53 4c 20 41  |.ASL A.2:..ASL A|
00003230  00 3c 3a cc a1 41 53 4c  20 41 00 44 3a d6 a1 54  |.<:..ASL A.D:..T|
00003240  41 58 00 4c 3a e0 a1 44  45 58 00 58 3a ea a1 53  |AX.L:..DEX.X:..S|
00003250  54 58 20 24 32 32 00 65  3a f4 a1 4c 44 41 20 23  |TX $22.e:..LDA #|
00003260  24 34 30 00 71 3a fe a1  53 54 41 20 24 46 43 00  |$40.q:..STA $FC.|
00003270  7d 3a 08 a2 53 54 41 20  24 46 45 00 89 3a 12 a2  |}:..STA $FE..:..|
00003280  53 54 41 20 24 32 33 00  91 3a 1c a2 52 54 53 00  |STA $23..:..RTS.|
00003290  a4 3a 26 a2 45 51 55 41  4c 20 4a 53 52 20 4d 53  |.:&.EQUAL JSR MS|
000032a0  55 50 00 b1 3a 30 a2 4c  44 59 20 23 24 30 38 00  |UP..:0.LDY #$08.|
000032b0  c6 3a 3a a2 45 4c 4f 50  20 4c 44 41 20 28 24 46  |.::.ELOP LDA ($F|
000032c0  42 29 2c 59 00 d6 3a 44  a2 53 54 41 20 28 24 32  |B),Y..:D.STA ($2|
000032d0  32 29 2c 59 00 de 3a 4e  a2 44 45 59 00 eb 3a 58  |2),Y..:N.DEY..:X|
000032e0  a2 42 4e 45 20 45 4c 4f  50 00 f3 3a 62 a2 52 54  |.BNE ELOP..:b.RT|
000032f0  53 00 08 3b 6c a2 41 44  44 49 54 49 91 20 4a 53  |S..;l.ADDITI. JS|
00003300  52 20 4d 53 55 50 00 15  3b 76 a2 4c 44 59 20 23  |R MSUP..;v.LDY #|
00003310  24 30 38 00 1d 3b 80 a2  53 45 44 00 25 3b 8a a2  |$08..;..SED.%;..|
00003320  43 4c 43 00 3b 3b 94 a2  41 44 4c 4f 50 20 4c 44  |CLC.;;..ADLOP LD|
00003330  41 20 28 24 46 42 29 2c  59 00 4b 3b 9e a2 41 44  |A ($FB),Y.K;..AD|
00003340  43 20 28 24 46 44 29 2c  59 00 5b 3b a8 a2 53 54  |C ($FD),Y.[;..ST|
00003350  41 20 28 24 32 32 29 2c  59 00 63 3b b2 a2 44 45  |A ($22),Y.c;..DE|
00003360  59 00 71 3b bc a2 42 4e  45 20 41 44 4c 4f 50 00  |Y.q;..BNE ADLOP.|
00003370  79 3b c6 a2 43 4c 44 00  81 3b d0 a2 52 54 53 00  |y;..CLD..;..RTS.|
00003380  97 3b da a2 53 55 42 54  52 41 43 54 20 4a 53 52  |.;..SUBTRACT JSR|
00003390  20 4d 53 55 50 00 a4 3b  e4 a2 4c 44 59 20 23 24  | MSUP..;..LDY #$|
000033a0  30 38 00 ac 3b ee a2 53  45 44 00 b4 3b f8 a2 53  |08..;..SED..;..S|
000033b0  45 43 00 ca 3b 02 a3 53  55 4c 4f 50 20 4c 44 41  |EC..;..SULOP LDA|
000033c0  20 28 24 46 42 29 2c 59  00 da 3b 0c a3 53 42 43  | ($FB),Y..;..SBC|
000033d0  20 28 24 46 44 29 2c 59  00 ea 3b 16 a3 53 54 41  | ($FD),Y..;..STA|
000033e0  20 28 24 32 32 29 2c 59  00 f2 3b 20 a3 44 45 59  | ($22),Y..; .DEY|
000033f0  00 00 3c 2a a3 42 4e 45  20 53 55 4c 4f 50 00 08  |..<*.BNE SULOP..|
00003400  3c 34 a3 43 4c 44 00 10  3c 3e a3 52 54 53 00 26  |<4.CLD..<>.RTS.&|
00003410  3c 48 a3 4e 45 47 41 54  49 56 45 20 4c 44 41 20  |<H.NEGATIVE LDA |
00003420  23 24 30 30 00 2e 3c 52  a3 50 48 41 00 3c 3c 5c  |#$00..<R.PHA.<<\|
00003430  a3 4c 44 41 20 24 34 31  30 30 00 44 3c 66 a3 54  |.LDA $4100.D<f.T|
00003440  41 59 00 4e 3c 70 a3 41  53 4c 20 41 00 58 3c 7a  |AY.N<p.ASL A.X<z|
00003450  a3 41 53 4c 20 41 00 62  3c 84 a3 41 53 4c 20 41  |.ASL A.b<..ASL A|
00003460  00 6a 3c 8e a3 54 41 58  00 7a 3c 98 a3 4c 44 41  |.j<..TAX.z<..LDA|
00003470  20 24 34 30 30 31 2c 58  00 87 3c a2 a3 43 4d 50  | $4001,X..<..CMP|
00003480  20 23 24 35 30 00 9a 3c  a7 a3 42 43 43 20 4e 45  | #$50..<..BCC NE|
00003490  47 52 4d 4f 56 45 41 42  00 a2 3c ac a3 50 4c 41  |GRMOVEAB..<..PLA|
000034a0  00 af 3c b6 a3 41 44 43  20 23 24 30 30 00 b7 3c  |..<..ADC #$00..<|
000034b0  c0 a3 50 48 41 00 c9 3c  ca a3 4a 4d 50 20 4e 45  |..PHA..<..JMP NE|
000034c0  47 52 4d 4f 56 45 41 00  e2 3c d4 a3 4e 45 47 52  |GRMOVEA..<..NEGR|
000034d0  4d 4f 56 45 41 42 20 4c  44 41 20 24 34 31 30 31  |MOVEAB LDA $4101|
000034e0  00 ea 3c de a3 54 41 59  00 f4 3c e8 a3 41 53 4c  |..<..TAY..<..ASL|
000034f0  20 41 00 fe 3c f2 a3 41  53 4c 20 41 00 08 3d fc  | A..<..ASL A..=.|
00003500  a3 41 53 4c 20 41 00 10  3d 06 a4 54 41 58 00 20  |.ASL A..=..TAX. |
00003510  3d 10 a4 4c 44 41 20 24  34 30 30 31 2c 58 00 2d  |=..LDA $4001,X.-|
00003520  3d 1a a4 43 4d 50 20 23  24 35 30 00 35 3d 24 a4  |=..CMP #$50.5=$.|
00003530  50 4c 41 00 42 3d 2e a4  42 43 43 20 4e 4f 45 b0  |PLA.B=..BCC NOE.|
00003540  00 4e 3d 38 a4 45 b0 20  23 24 30 31 00 56 3d 42  |.N=8.E. #$01.V=B|
00003550  a4 50 48 41 00 68 3d 4c  a4 42 43 53 20 4e 45 47  |.PHA.h=L.BCS NEG|
00003560  52 4d 4f 56 45 42 00 7b  3d 56 a4 4e 45 47 52 4d  |RMOVEB.{=V.NEGRM|
00003570  4f 56 45 42 42 20 50 4c  41 00 8d 3d 60 a4 4e 4f  |OVEBB PLA..=`.NO|
00003580  45 b0 20 53 54 41 20 59  50 49 42 00 95 3d 6a a4  |E. STA YPIB..=j.|
00003590  52 54 53 00 ac 3d 74 a4  4e 45 47 52 4d 4f 56 45  |RTS..=t.NEGRMOVE|
000035a0  20 4c 44 41 20 24 34 31  30 30 00 b4 3d 7e a4 50  | LDA $4100..=~.P|
000035b0  48 41 00 c2 3d 88 a4 4c  44 41 20 24 34 31 30 31  |HA..=..LDA $4101|
000035c0  00 ca 3d 92 a4 50 48 41  00 d8 3d 9c a4 4c 44 41  |..=..PHA..=..LDA|
000035d0  20 24 34 31 30 32 00 e0  3d a6 a4 50 48 41 00 e8  | $4102..=..PHA..|
000035e0  3d b0 a4 54 59 41 00 f6  3d ba a4 53 54 41 20 24  |=..TYA..=..STA $|
000035f0  34 31 30 31 00 04 3e c4  a4 53 54 41 20 24 34 31  |4101..>..STA $41|
00003600  30 32 00 11 3e ce a4 4c  44 41 20 23 24 31 44 00  |02..>..LDA #$1D.|
00003610  1f 3e d8 a4 53 54 41 20  24 34 31 30 30 00 30 3e  |.>..STA $4100.0>|
00003620  e2 a4 4a 53 52 20 53 55  42 54 52 41 43 54 00 38  |..JSR SUBTRACT.8|
00003630  3e ec a4 50 4c 41 00 46  3e f6 a4 53 54 41 20 24  |>..PLA.F>..STA $|
00003640  34 31 30 32 00 4e 3e 00  a5 50 4c 41 00 5c 3e 0a  |4102.N>..PLA.\>.|
00003650  a5 53 54 41 20 24 34 31  30 31 00 64 3e 14 a5 50  |.STA $4101.d>..P|
00003660  4c 41 00 72 3e 1e a5 53  54 41 20 24 34 31 30 30  |LA.r>..STA $4100|
00003670  00 7a 3e 28 a5 52 54 53  00 95 3e 32 a5 4e 45 47  |.z>(.RTS..>2.NEG|
00003680  52 4d 4f 56 45 41 20 4a  53 52 20 4e 45 47 52 4d  |RMOVEA JSR NEGRM|
00003690  4f 56 45 00 a8 3e 3c a5  4a 4d 50 20 4e 45 47 52  |OVE..><.JMP NEGR|
000036a0  4d 4f 56 45 41 42 00 c3  3e 46 a5 4e 45 47 52 4d  |MOVEAB..>F.NEGRM|
000036b0  4f 56 45 42 20 4a 53 52  20 4e 45 47 52 4d 4f 56  |OVEB JSR NEGRMOV|
000036c0  45 00 d6 3e 50 a5 4a 4d  50 20 4e 45 47 52 4d 4f  |E..>P.JMP NEGRMO|
000036d0  56 45 42 42 00 ed 3e 5a  a5 4d 55 4c 54 49 50 4c  |VEBB..>Z.MULTIPL|
000036e0  59 20 4c 44 41 20 24 34  31 30 32 00 f5 3e 64 a5  |Y LDA $4102..>d.|
000036f0  50 48 41 00 03 3f 6e a5  4c 44 41 20 24 34 31 30  |PHA..?n.LDA $410|
00003700  31 00 0b 3f 78 a5 50 48  41 00 18 3f 82 a5 4c 44  |1..?x.PHA..?..LD|
00003710  41 20 23 24 31 38 00 26  3f 8c a5 53 54 41 20 24  |A #$18.&?..STA $|
00003720  34 31 30 32 00 34 3f 96  a5 4a 53 52 20 45 51 55  |4102.4?..JSR EQU|
00003730  41 4c 00 42 3f a0 a5 49  4e 43 20 24 34 31 30 32  |AL.B?..INC $4102|
00003740  00 4a 3f aa a5 50 4c 41  00 58 3f b4 a5 53 54 41  |.J?..PLA.X?..STA|
00003750  20 24 34 31 30 30 00 66  3f be a5 4a 53 52 20 45  | $4100.f?..JSR E|
00003760  51 55 41 4c 00 73 3f c8  a5 4c 44 41 20 23 24 31  |QUAL.s?..LDA #$1|
00003770  38 00 81 3f d2 a5 53 54  41 20 24 34 31 30 30 00  |8..?..STA $4100.|
00003780  8e 3f dc a5 4c 44 41 20  23 24 31 39 00 9c 3f e6  |.?..LDA #$19..?.|
00003790  a5 53 54 41 20 24 34 31  30 31 00 a4 3f f0 a5 50  |.STA $4101..?..P|
000037a0  4c 41 00 b2 3f fa a5 53  54 41 20 24 34 31 30 32  |LA..?..STA $4102|
000037b0  00 c4 3f 04 a6 4a 4d 50  20 4d 55 4c 54 49 50 4c  |..?..JMP MULTIPL|
000037c0  59 42 00 e8 3f 50 c3 3b  20 20 20 20 20 20 20 20  |YB..?P.;        |
000037d0  20 20 20 47 52 41 50 48  49 43 20 50 4f b5 20 50  |   GRAPHIC PO. P|
000037e0  4c 4f 54 54 45 52 00 fc  3f 5a c3 50 4c 4f 54 50  |LOTTER..?Z.PLOTP|
000037f0  43 20 4c 44 41 20 23 24  34 37 00 08 40 64 c3 53  |C LDA #$47..@d.S|
00003800  54 41 20 24 46 42 00 15  40 6e c3 4c 44 41 20 23  |TA $FB..@n.LDA #|
00003810  24 33 46 00 21 40 78 c3  53 54 41 20 24 46 43 00  |$3F.!@x.STA $FC.|
00003820  30 40 82 c3 4c 44 41 20  59 50 49 58 45 4c 00 3a  |0@..LDA YPIXEL.:|
00003830  40 8c c3 4c 53 52 20 41  00 44 40 96 c3 4c 53 52  |@..LSR A.D@..LSR|
00003840  20 41 00 4e 40 a0 c3 4c  53 52 20 41 00 5b 40 aa  | A.N@..LSR A.[@.|
00003850  c3 53 54 41 20 59 50 49  42 00 66 40 b4 c3 af 20  |.STA YPIB.f@... |
00003860  23 24 30 33 00 70 40 be  c3 41 53 4c 20 41 00 7a  |#$03.p@..ASL A.z|
00003870  40 c8 c3 41 53 4c 20 41  00 84 40 d2 c3 41 53 4c  |@..ASL A..@..ASL|
00003880  20 41 00 8e 40 dc c3 41  53 4c 20 41 00 98 40 e6  | A..@..ASL A..@.|
00003890  c3 41 53 4c 20 41 00 a2  40 f0 c3 41 53 4c 20 41  |.ASL A..@..ASL A|
000038a0  00 ae 40 fa c3 53 54 41  20 24 30 32 00 ba 40 04  |..@..STA $02..@.|
000038b0  c4 4c 44 41 20 24 46 42  00 c2 40 0e c4 53 45 43  |.LDA $FB..@..SEC|
000038c0  00 ce 40 18 c4 53 42 43  20 24 30 32 00 da 40 22  |..@..SBC $02..@"|
000038d0  c4 53 54 41 20 24 46 42  00 e6 40 2c c4 4c 44 41  |.STA $FB..@,.LDA|
000038e0  20 24 46 43 00 f3 40 36  c4 53 42 43 20 23 24 30  | $FC..@6.SBC #$0|
000038f0  30 00 00 41 3b c4 53 42  43 20 59 50 49 42 00 08  |0..A;.SBC YPIB..|
00003900  41 40 c4 50 48 41 00 15  41 4a c4 4c 44 41 20 59  |A@.PHA..AJ.LDA Y|
00003910  50 49 42 00 1f 41 54 c4  4c 53 52 20 41 00 29 41  |PIB..AT.LSR A.)A|
00003920  5e c4 4c 53 52 20 41 00  35 41 68 c4 53 54 41 20  |^.LSR A.5Ah.STA |
00003930  24 30 32 00 3d 41 72 c4  50 4c 41 00 45 41 7c c4  |$02.=Ar.PLA.EA|.|
00003940  53 45 43 00 51 41 86 c4  53 42 43 20 24 30 32 00  |SEC.QA..SBC $02.|
00003950  5d 41 90 c4 53 54 41 20  24 46 43 00 6c 41 9a c4  |]A..STA $FC.lA..|
00003960  4c 44 41 20 59 50 49 58  45 4c 00 77 41 a4 c4 af  |LDA YPIXEL.wA...|
00003970  20 23 24 30 37 00 84 41  ae c4 53 54 41 20 59 50  | #$07..A..STA YP|
00003980  49 42 00 90 41 b8 c4 4c  44 41 20 24 46 42 00 98  |IB..A..LDA $FB..|
00003990  41 c2 c4 53 45 43 00 a5  41 cc c4 53 42 43 20 59  |A..SEC..A..SBC Y|
000039a0  50 49 42 00 ad 41 d6 c4  50 48 41 00 bc 41 e0 c4  |PIB..A..PHA..A..|
000039b0  4c 44 41 20 58 50 49 58  45 4c 00 c7 41 ea c4 af  |LDA XPIXEL..A...|
000039c0  20 23 24 46 38 00 d4 41  f4 c4 53 54 41 20 59 50  | #$F8..A..STA YP|
000039d0  49 42 00 dc 41 fe c4 50  4c 41 00 e4 41 08 c5 43  |IB..A..PLA..A..C|
000039e0  4c 43 00 f1 41 12 c5 41  44 43 20 59 50 49 42 00  |LC..A..ADC YPIB.|
000039f0  fd 41 1c c5 53 54 41 20  24 46 42 00 09 42 26 c5  |.A..STA $FB..B&.|
00003a00  4c 44 41 20 24 46 43 00  16 42 30 c5 53 42 43 20  |LDA $FC..B0.SBC |
00003a10  23 24 30 30 00 22 42 3a  c5 53 54 41 20 24 46 43  |#$00."B:.STA $FC|
00003a20  00 31 42 44 c5 4c 44 41  20 58 50 49 58 45 4c 00  |.1BD.LDA XPIXEL.|
00003a30  3c 42 4e c5 af 20 23 24  30 37 00 44 42 58 c5 54  |<BN.. #$07.DBX.T|
00003a40  41 58 00 51 42 62 c5 4c  44 41 20 23 24 38 30 00  |AX.QBb.LDA #$80.|
00003a50  65 42 6c c5 47 42 49 54  4c 50 20 43 50 58 20 23  |eBl.GBITLP CPX #|
00003a60  24 30 30 00 71 42 76 c5  42 45 51 20 50 50 9a 00  |$00.qBv.BEQ PP..|
00003a70  7b 42 80 c5 4c 53 52 20  41 00 83 42 8a c5 44 45  |{B..LSR A..B..DE|
00003a80  58 00 92 42 94 c5 4a 4d  50 20 47 42 49 54 4c 50  |X..B..JMP GBITLP|
00003a90  00 a2 42 9e c5 50 50 9a  20 53 54 41 20 24 46 44  |..B..PP. STA $FD|
00003aa0  00 aa 42 a8 c5 52 54 53  00 bf 42 b2 c5 50 4c 4f  |..B..RTS..B..PLO|
00003ab0  a4 4e 20 4a 53 52 20 50  4c 4f 54 50 43 00 cc 42  |.N JSR PLOTPC..B|
00003ac0  bc c5 4c 44 59 20 23 24  30 30 00 dc 42 c6 c5 4c  |..LDY #$00..B..L|
00003ad0  44 41 20 28 24 46 42 29  2c 59 00 e7 42 d0 c5 b0  |DA ($FB),Y..B...|
00003ae0  41 20 24 46 44 00 f7 42  da c5 53 54 41 20 28 24  |A $FD..B..STA ($|
00003af0  46 42 29 2c 59 00 ff 42  e4 c5 52 54 53 00 15 43  |FB),Y..B..RTS..C|
00003b00  ee c5 50 4c 4f a4 46 46  20 4a 53 52 20 50 4c 4f  |..PLO.FF JSR PLO|
00003b10  54 50 43 00 21 43 f8 c5  4c 44 41 20 24 46 44 00  |TPC.!C..LDA $FD.|
00003b20  2d 43 02 c6 45 b0 20 23  24 46 46 00 39 43 0c c6  |-C..E. #$FF.9C..|
00003b30  53 54 41 20 24 46 44 00  46 43 16 c6 4c 44 59 20  |STA $FD.FC..LDY |
00003b40  23 24 30 30 00 56 43 20  c6 4c 44 41 20 28 24 46  |#$00.VC .LDA ($F|
00003b50  42 29 2c 59 00 60 43 2a  c6 af 20 24 46 44 00 70  |B),Y.`C*.. $FD.p|
00003b60  43 34 c6 53 54 41 20 28  24 46 42 29 2c 59 00 78  |C4.STA ($FB),Y.x|
00003b70  43 3e c6 52 54 53 00 8c  43 48 c6 50 4c 4f 54 20  |C>.RTS..CH.PLOT |
00003b80  4c 44 41 20 43 4f 4c 4f  55 52 00 97 43 52 c6 af  |LDA COLOUR..CR..|
00003b90  20 23 24 30 32 00 a4 43  5c c6 42 4e 45 20 50 50  | #$02..C\.BNE PP|
00003ba0  41 91 00 b3 43 66 c6 4a  53 52 20 50 4c 4f a4 46  |A...Cf.JSR PLO.F|
00003bb0  46 00 c2 43 70 c6 4a 4d  50 20 50 50 41 43 4e 54  |F..Cp.JMP PPACNT|
00003bc0  00 d5 43 7a c6 50 50 41  91 20 4a 53 52 20 50 4c  |..Cz.PPA. JSR PL|
00003bd0  4f a4 4e 00 eb 43 84 c6  50 50 41 43 4e 54 20 49  |O.N..C..PPACNT I|
00003be0  4e 43 20 58 50 49 58 45  4c 00 fa 43 8e c6 4c 44  |NC XPIXEL..C..LD|
00003bf0  41 20 43 4f 4c 4f 55 52  00 05 44 98 c6 af 20 23  |A COLOUR..D... #|
00003c00  24 30 31 00 12 44 a2 c6  42 4e 45 20 50 50 42 91  |$01..D..BNE PPB.|
00003c10  00 21 44 ac c6 4a 53 52  20 50 4c 4f a4 46 46 00  |.!D..JSR PLO.FF.|
00003c20  30 44 b6 c6 4a 4d 50 20  50 50 42 43 4e 54 00 43  |0D..JMP PPBCNT.C|
00003c30  44 c0 c6 50 50 42 91 20  4a 53 52 20 50 4c 4f a4  |D..PPB. JSR PLO.|
00003c40  4e 00 59 44 ca c6 50 50  42 43 4e 54 20 49 4e 43  |N.YD..PPBCNT INC|
00003c50  20 58 50 49 58 45 4c 00  61 44 d4 c6 52 54 53 00  | XPIXEL.aD..RTS.|
00003c60  86 44 d8 d6 3b 20 20 20  20 20 20 20 5a 4f 4f 4d  |.D..;       ZOOM|
00003c70  20 43 41 4c 43 55 4c 41  54 49 91 20 52 4f 55 54  | CALCULATI. ROUT|
00003c80  49 4e 45 53 00 9c 44 e2  d6 4e 4f 5a 4f 4f 4d 20  |INES..D..NOZOOM |
00003c90  4a 4d 50 20 9a 52 4f 4c  4f 50 00 b1 44 ec d6 5a  |JMP .ROLOP..D..Z|
00003ca0  4f 4f 4d 49 4e 20 4c 44  41 20 24 44 30 31 35 00  |OOMIN LDA $D015.|
00003cb0  bc 44 f6 d6 af 20 23 24  46 30 00 c9 44 00 d7 43  |.D... #$F0..D..C|
00003cc0  4d 50 20 23 24 46 30 00  d8 44 0a d7 42 4e 45 20  |MP #$F0..D..BNE |
00003cd0  4e 4f 5a 4f 4f 4d 00 e5  44 14 d7 4c 44 41 20 23  |NOZOOM..D..LDA #|
00003ce0  24 31 45 00 f3 44 1e d7  53 54 41 20 24 34 31 30  |$1E..D..STA $410|
00003cf0  30 00 00 45 28 d7 4c 44  41 20 23 24 30 31 00 0e  |0..E(.LDA #$01..|
00003d00  45 32 d7 53 54 41 20 24  34 31 30 31 00 1b 45 3c  |E2.STA $4101..E<|
00003d10  d7 4c 44 41 20 23 24 31  30 00 29 45 46 d7 53 54  |.LDA #$10.)EF.ST|
00003d20  41 20 24 34 31 30 32 00  3a 45 50 d7 4a 53 52 20  |A $4102.:EP.JSR |
00003d30  53 55 42 54 52 41 43 54  00 47 45 5a d7 4c 44 41  |SUBTRACT.GEZ.LDA|
00003d40  20 23 24 30 31 00 55 45  64 d7 53 54 41 20 24 34  | #$01.UEd.STA $4|
00003d50  31 30 30 00 63 45 6e d7  49 4e 43 20 24 34 31 30  |100.cEn.INC $410|
00003d60  32 00 71 45 78 d7 4a 53  52 20 45 51 55 41 4c 00  |2.qEx.JSR EQUAL.|
00003d70  7e 45 82 d7 4c 44 41 20  23 24 31 30 00 8c 45 8c  |~E..LDA #$10..E.|
00003d80  d7 53 54 41 20 24 34 31  30 30 00 99 45 96 d7 4c  |.STA $4100..E..L|
00003d90  44 41 20 23 24 31 42 00  a7 45 a0 d7 53 54 41 20  |DA #$1B..E..STA |
00003da0  24 34 31 30 31 00 b4 45  aa d7 4c 44 41 20 23 24  |$4101..E..LDA #$|
00003db0  31 32 00 c2 45 b4 d7 53  54 41 20 24 34 31 30 32  |12..E..STA $4102|
00003dc0  00 d3 45 be d7 4a 53 52  20 4d 55 4c 54 49 50 4c  |..E..JSR MULTIPL|
00003dd0  59 00 e0 45 c8 d7 4c 44  41 20 23 24 31 31 00 ee  |Y..E..LDA #$11..|
00003de0  45 d2 d7 53 54 41 20 24  34 31 30 30 00 fc 45 dc  |E..STA $4100..E.|
00003df0  d7 53 54 41 20 24 34 31  30 32 00 09 46 e6 d7 4c  |.STA $4102..F..L|
00003e00  44 41 20 23 24 31 32 00  17 46 f0 d7 53 54 41 20  |DA #$12..F..STA |
00003e10  24 34 31 30 31 00 25 46  fa d7 4c 44 41 20 24 44  |$4101.%F..LDA $D|
00003e20  30 30 38 00 2d 46 04 d8  53 45 43 00 3a 46 0e d8  |008.-F..SEC.:F..|
00003e30  53 42 43 20 23 24 35 38  00 52 46 18 d8 43 41 4c  |SBC #$58.RF..CAL|
00003e40  43 49 4e 4c 4f 50 41 20  43 4d 50 20 23 24 30 30  |CINLOPA CMP #$00|
00003e50  00 62 46 22 d8 42 45 51  20 43 41 4c 43 80 49 41  |.bF".BEQ CALC.IA|
00003e60  00 6a 46 2c d8 50 48 41  00 7a 46 36 d8 4a 53 52  |.jF,.PHA.zF6.JSR|
00003e70  20 41 44 44 49 54 49 91  00 82 46 40 d8 50 4c 41  | ADDITI...F@.PLA|
00003e80  00 8a 46 4a d8 54 41 58  00 92 46 54 d8 44 45 58  |..FJ.TAX..FT.DEX|
00003e90  00 9a 46 5e d8 54 58 41  00 ad 46 68 d8 4a 4d 50  |..F^.TXA..Fh.JMP|
00003ea0  20 43 41 4c 43 49 4e 4c  4f 50 41 00 c2 46 72 d8  | CALCINLOPA..Fr.|
00003eb0  43 41 4c 43 80 49 41 20  4c 44 41 20 23 24 30 31  |CALC.IA LDA #$01|
00003ec0  00 d0 46 7c d8 53 54 41  20 24 34 31 30 30 00 dd  |..F|.STA $4100..|
00003ed0  46 86 d8 4c 44 41 20 23  24 31 33 00 eb 46 90 d8  |F..LDA #$13..F..|
00003ee0  53 54 41 20 24 34 31 30  32 00 f9 46 9a d8 4a 53  |STA $4102..F..JS|
00003ef0  52 20 45 51 55 41 4c 00  06 47 a4 d8 4c 44 41 20  |R EQUAL..G..LDA |
00003f00  23 24 31 33 00 14 47 ae  d8 53 54 41 20 24 34 31  |#$13..G..STA $41|
00003f10  30 30 00 22 47 b8 d8 53  54 41 20 24 34 31 30 32  |00."G..STA $4102|
00003f20  00 2f 47 c2 d8 4c 44 41  20 23 24 31 32 00 3d 47  |./G..LDA #$12.=G|
00003f30  cc d8 53 54 41 20 24 34  31 30 31 00 4b 47 d6 d8  |..STA $4101.KG..|
00003f40  4c 44 41 20 24 44 30 30  41 00 53 47 e0 d8 53 45  |LDA $D00A.SG..SE|
00003f50  43 00 60 47 ea d8 53 42  43 20 23 24 34 30 00 78  |C.`G..SBC #$40.x|
00003f60  47 f4 d8 43 41 4c 43 49  4e 4c 4f 50 42 20 43 4d  |G..CALCINLOPB CM|
00003f70  50 20 23 24 30 30 00 88  47 fe d8 42 45 51 20 43  |P #$00..G..BEQ C|
00003f80  41 4c 43 80 49 42 00 90  47 08 d9 50 48 41 00 a0  |ALC.IB..G..PHA..|
00003f90  47 12 d9 4a 53 52 20 41  44 44 49 54 49 91 00 a8  |G..JSR ADDITI...|
00003fa0  47 1c d9 50 4c 41 00 b0  47 26 d9 54 41 58 00 b8  |G..PLA..G&.TAX..|
00003fb0  47 30 d9 44 45 58 00 c0  47 3a d9 54 58 41 00 d3  |G0.DEX..G:.TXA..|
00003fc0  47 44 d9 4a 4d 50 20 43  41 4c 43 49 4e 4c 4f 50  |GD.JMP CALCINLOP|
00003fd0  42 00 e8 47 4e d9 43 41  4c 43 80 49 42 20 4c 44  |B..GN.CALC.IB LD|
00003fe0  41 20 23 24 31 31 00 f6  47 58 d9 53 54 41 20 24  |A #$11..GX.STA $|
00003ff0  34 31 30 30 00 03 48 62  d9 4c 44 41 20 23 24 30  |4100..Hb.LDA #$0|
00004000  31 00 11 48 6c d9 53 54  41 20 24 34 31 30 32 00  |1..Hl.STA $4102.|
00004010  1f 48 76 d9 4a 53 52 20  45 51 55 41 4c 00 2c 48  |.Hv.JSR EQUAL.,H|
00004020  80 d9 4c 44 41 20 23 24  31 33 00 3a 48 8a d9 53  |..LDA #$13.:H..S|
00004030  54 41 20 24 34 31 30 30  00 47 48 94 d9 4c 44 41  |TA $4100.GH..LDA|
00004040  20 23 24 31 45 00 55 48  9e d9 53 54 41 20 24 34  | #$1E.UH..STA $4|
00004050  31 30 32 00 63 48 a8 d9  4a 53 52 20 45 51 55 41  |102.cH..JSR EQUA|
00004060  4c 00 70 48 b2 d9 4c 44  41 20 23 24 31 46 00 7e  |L.pH..LDA #$1F.~|
00004070  48 bc d9 53 54 41 20 24  34 31 30 30 00 8b 48 c6  |H..STA $4100..H.|
00004080  d9 4c 44 41 20 23 24 30  33 00 99 48 d0 d9 53 54  |.LDA #$03..H..ST|
00004090  41 20 24 34 31 30 31 00  a6 48 da d9 4c 44 41 20  |A $4101..H..LDA |
000040a0  23 24 31 30 00 b4 48 e4  d9 53 54 41 20 24 34 31  |#$10..H..STA $41|
000040b0  30 32 00 c5 48 ee d9 4a  53 52 20 53 55 42 54 52  |02..H..JSR SUBTR|
000040c0  41 43 54 00 d2 48 f8 d9  4c 44 41 20 23 24 30 33  |ACT..H..LDA #$03|
000040d0  00 e0 48 02 da 53 54 41  20 24 34 31 30 30 00 ee  |..H..STA $4100..|
000040e0  48 0c da 49 4e 43 20 24  34 31 30 32 00 fc 48 16  |H..INC $4102..H.|
000040f0  da 4a 53 52 20 45 51 55  41 4c 00 09 49 20 da 4c  |.JSR EQUAL..I .L|
00004100  44 41 20 23 24 31 30 00  17 49 2a da 53 54 41 20  |DA #$10..I*.STA |
00004110  24 34 31 30 30 00 24 49  34 da 4c 44 41 20 23 24  |$4100.$I4.LDA #$|
00004120  31 32 00 32 49 3e da 53  54 41 20 24 34 31 30 32  |12.2I>.STA $4102|
00004130  00 3f 49 48 da 4c 44 41  20 23 24 31 41 00 4d 49  |.?IH.LDA #$1A.MI|
00004140  52 da 53 54 41 20 24 34  31 30 31 00 5e 49 5c da  |R.STA $4101.^I\.|
00004150  4a 53 52 20 4d 55 4c 54  49 50 4c 59 00 6b 49 66  |JSR MULTIPLY.kIf|
00004160  da 4c 44 41 20 23 24 31  31 00 79 49 70 da 53 54  |.LDA #$11.yIp.ST|
00004170  41 20 24 34 31 30 30 00  87 49 7a da 53 54 41 20  |A $4100..Iz.STA |
00004180  24 34 31 30 32 00 94 49  84 da 4c 44 41 20 23 24  |$4102..I..LDA #$|
00004190  31 32 00 a2 49 8e da 53  54 41 20 24 34 31 30 31  |12..I..STA $4101|
000041a0  00 b0 49 98 da 4c 44 41  20 24 44 30 30 39 00 b8  |..I..LDA $D009..|
000041b0  49 a2 da 53 45 43 00 c5  49 ac da 53 42 43 20 23  |I..SEC..I..SBC #|
000041c0  24 33 32 00 db 49 b6 da  43 41 4c 43 49 4e 59 41  |$32..I..CALCINYA|
000041d0  20 43 4d 50 20 23 24 30  30 00 eb 49 c0 da 42 45  | CMP #$00..I..BE|
000041e0  51 20 43 41 4c 43 80 49  43 00 f3 49 ca da 50 48  |Q CALC.IC..I..PH|
000041f0  41 00 03 4a d4 da 4a 53  52 20 41 44 44 49 54 49  |A..J..JSR ADDITI|
00004200  91 00 0b 4a de da 50 4c  41 00 13 4a e8 da 54 41  |...J..PLA..J..TA|
00004210  58 00 1b 4a f2 da 44 45  58 00 23 4a fc da 54 58  |X..J..DEX.#J..TX|
00004220  41 00 34 4a 06 db 4a 4d  50 20 43 41 4c 43 49 4e  |A.4J..JMP CALCIN|
00004230  59 41 00 49 4a 10 db 43  41 4c 43 80 49 43 20 4c  |YA.IJ..CALC.IC L|
00004240  44 41 20 23 24 30 33 00  57 4a 1a db 53 54 41 20  |DA #$03.WJ..STA |
00004250  24 34 31 30 30 00 64 4a  24 db 4c 44 41 20 23 24  |$4100.dJ$.LDA #$|
00004260  31 33 00 72 4a 2e db 53  54 41 20 24 34 31 30 32  |13.rJ..STA $4102|
00004270  00 80 4a 38 db 4a 53 52  20 45 51 55 41 4c 00 8d  |..J8.JSR EQUAL..|
00004280  4a 42 db 4c 44 41 20 23  24 31 33 00 9b 4a 4c db  |JB.LDA #$13..JL.|
00004290  53 54 41 20 24 34 31 30  30 00 a9 4a 56 db 53 54  |STA $4100..JV.ST|
000042a0  41 20 24 34 31 30 32 00  b6 4a 60 db 4c 44 41 20  |A $4102..J`.LDA |
000042b0  23 24 31 32 00 c4 4a 6a  db 53 54 41 20 24 34 31  |#$12..Jj.STA $41|
000042c0  30 31 00 d2 4a 74 db 4c  44 41 20 24 44 30 30 44  |01..Jt.LDA $D00D|
000042d0  00 da 4a 7e db 53 45 43  00 e7 4a 88 db 53 42 43  |..J~.SEC..J..SBC|
000042e0  20 23 24 31 44 00 fd 4a  92 db 43 41 4c 43 49 4e  | #$1D..J..CALCIN|
000042f0  59 42 20 43 4d 50 20 23  24 30 30 00 0d 4b 9c db  |YB CMP #$00..K..|
00004300  42 45 51 20 43 41 4c 43  80 49 44 00 15 4b a6 db  |BEQ CALC.ID..K..|
00004310  50 48 41 00 25 4b b0 db  4a 53 52 20 41 44 44 49  |PHA.%K..JSR ADDI|
00004320  54 49 91 00 2d 4b ba db  50 4c 41 00 35 4b c4 db  |TI..-K..PLA.5K..|
00004330  54 41 58 00 3d 4b ce db  44 45 58 00 45 4b d8 db  |TAX.=K..DEX.EK..|
00004340  54 58 41 00 56 4b e2 db  4a 4d 50 20 43 41 4c 43  |TXA.VK..JMP CALC|
00004350  49 4e 59 42 00 6b 4b ec  db 43 41 4c 43 80 49 44  |INYB.kK..CALC.ID|
00004360  20 4c 44 41 20 23 24 31  31 00 79 4b f6 db 53 54  | LDA #$11.yK..ST|
00004370  41 20 24 34 31 30 30 00  86 4b 00 dc 4c 44 41 20  |A $4100..K..LDA |
00004380  23 24 30 33 00 94 4b 0a  dc 53 54 41 20 24 34 31  |#$03..K..STA $41|
00004390  30 32 00 a2 4b 14 dc 4a  53 52 20 45 51 55 41 4c  |02..K..JSR EQUAL|
000043a0  00 af 4b 1e dc 4c 44 41  20 23 24 31 33 00 bd 4b  |..K..LDA #$13..K|
000043b0  28 dc 53 54 41 20 24 34  31 30 30 00 ca 4b 32 dc  |(.STA $4100..K2.|
000043c0  4c 44 41 20 23 24 31 46  00 d8 4b 3c dc 53 54 41  |LDA #$1F..K<.STA|
000043d0  20 24 34 31 30 32 00 e6  4b 46 dc 4a 53 52 20 45  | $4102..KF.JSR E|
000043e0  51 55 41 4c 00 f3 4b 50  dc 4c 44 41 20 23 24 31  |QUAL..KP.LDA #$1|
000043f0  45 00 01 4c 5a dc 53 54  41 20 24 34 31 30 30 00  |E..LZ.STA $4100.|
00004400  0e 4c 64 dc 4c 44 41 20  23 24 30 31 00 1c 4c 6e  |.Ld.LDA #$01..Ln|
00004410  dc 53 54 41 20 24 34 31  30 31 00 29 4c 78 dc 4c  |.STA $4101.)Lx.L|
00004420  44 41 20 23 24 31 30 00  37 4c 82 dc 53 54 41 20  |DA #$10.7L..STA |
00004430  24 34 31 30 32 00 48 4c  8c dc 4a 53 52 20 53 55  |$4102.HL..JSR SU|
00004440  42 54 52 41 43 54 00 55  4c 96 dc 4c 44 41 20 23  |BTRACT.UL..LDA #|
00004450  24 31 30 00 63 4c a0 dc  53 54 41 20 24 34 31 30  |$10.cL..STA $410|
00004460  30 00 70 4c aa dc 4c 44  41 20 23 24 31 42 00 7e  |0.pL..LDA #$1B.~|
00004470  4c b4 dc 53 54 41 20 24  34 31 30 31 00 8b 4c be  |L..STA $4101..L.|
00004480  dc 4c 44 41 20 23 24 30  32 00 99 4c c8 dc 53 54  |.LDA #$02..L..ST|
00004490  41 20 24 34 31 30 32 00  aa 4c d2 dc 4a 53 52 20  |A $4102..L..JSR |
000044a0  4d 55 4c 54 49 50 4c 59  00 b7 4c dc dc 4c 44 41  |MULTIPLY..L..LDA|
000044b0  20 23 24 31 46 00 c5 4c  e6 dc 53 54 41 20 24 34  | #$1F..L..STA $4|
000044c0  31 30 30 00 d2 4c f0 dc  4c 44 41 20 23 24 30 33  |100..L..LDA #$03|
000044d0  00 e0 4c fa dc 53 54 41  20 24 34 31 30 31 00 ed  |..L..STA $4101..|
000044e0  4c 04 dd 4c 44 41 20 23  24 31 30 00 fb 4c 0e dd  |L..LDA #$10..L..|
000044f0  53 54 41 20 24 34 31 30  32 00 0c 4d 18 dd 4a 53  |STA $4102..M..JS|
00004500  52 20 53 55 42 54 52 41  43 54 00 19 4d 22 dd 4c  |R SUBTRACT..M".L|
00004510  44 41 20 23 24 31 30 00  27 4d 2c dd 53 54 41 20  |DA #$10.'M,.STA |
00004520  24 34 31 30 30 00 34 4d  36 dd 4c 44 41 20 23 24  |$4100.4M6.LDA #$|
00004530  31 41 00 42 4d 40 dd 53  54 41 20 24 34 31 30 31  |1A.BM@.STA $4101|
00004540  00 4f 4d 4a dd 4c 44 41  20 23 24 30 34 00 5d 4d  |.OMJ.LDA #$04.]M|
00004550  54 dd 53 54 41 20 24 34  31 30 32 00 6e 4d 5e dd  |T.STA $4102.nM^.|
00004560  4a 53 52 20 4d 55 4c 54  49 50 4c 59 00 7b 4d 68  |JSR MULTIPLY.{Mh|
00004570  dd 4a 53 52 20 4d af 4c  45 00 8a 4d 72 dd 4a 4d  |.JSR M.LE..Mr.JM|
00004580  50 20 9a 52 4f 4c 4f 50  00 b0 4d 60 ea 3b 20 20  |P .ROLOP..M`.;  |
00004590  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000045a0  20 5a 4f 4f 4d 20 52 4f  55 54 49 4e 45 53 00 bf  | ZOOM ROUTINES..|
000045b0  4d 6a ea 42 4f 58 20 4c  44 41 20 58 50 00 cc 4d  |Mj.BOX LDA XP..M|
000045c0  74 ea 53 54 41 20 58 50  49 42 00 d7 4d 7e ea 4c  |t.STA XPIB..M~.L|
000045d0  44 41 20 59 50 00 e4 4d  88 ea 53 54 41 20 59 50  |DA YP..M..STA YP|
000045e0  49 42 00 f0 4d 92 ea 4c  44 41 20 58 50 42 00 fe  |IB..M..LDA XPB..|
000045f0  4d 9c ea 53 54 41 20 58  50 42 49 42 00 0b 4e a6  |M..STA XPBIB..N.|
00004600  ea 4c 44 58 20 23 24 33  43 00 19 4e b0 ea 53 54  |.LDX #$3C..N..ST|
00004610  58 20 24 30 37 46 43 00  21 4e ba ea 49 4e 58 00  |X $07FC.!N..INX.|
00004620  2f 4e c4 ea 53 54 58 20  24 30 37 46 44 00 37 4e  |/N..STX $07FD.7N|
00004630  ce ea 49 4e 58 00 45 4e  d8 ea 53 54 58 20 24 30  |..INX.EN..STX $0|
00004640  37 46 45 00 4d 4e e2 ea  49 4e 58 00 5b 4e ec ea  |7FE.MN..INX.[N..|
00004650  53 54 58 20 24 30 37 46  46 00 69 4e f6 ea 4c 44  |STX $07FF.iN..LD|
00004660  41 20 24 44 30 31 35 00  75 4e 00 eb b0 41 20 23  |A $D015.uN...A #|
00004670  24 46 30 00 83 4e 0a eb  53 54 41 20 24 44 30 31  |$F0..N..STA $D01|
00004680  35 00 96 4e 14 eb 42 4f  58 92 20 4c 44 41 20 43  |5..N..BOX. LDA C|
00004690  4c 49 43 4b 00 a3 4e 1e  eb 42 4e 45 20 42 4f 58  |LICK..N..BNE BOX|
000046a0  92 00 b9 4e 78 eb 42 4f  58 4c 4f 4f 50 20 4c 44  |...Nx.BOXLOOP LD|
000046b0  41 20 58 50 42 49 42 00  c5 4e 82 eb 43 4d 50 20  |A XPBIB..N..CMP |
000046c0  58 50 42 00 d7 4e 8c eb  42 45 51 20 43 48 45 43  |XPB..N..BEQ CHEC|
000046d0  4b 46 49 4e 45 00 e8 4e  96 eb 42 43 53 20 4c 45  |KFINE..N..BCS LE|
000046e0  53 53 54 48 41 4e 00 f8  4e a0 eb 4a 4d 50 20 4d  |SSTHAN..N..JMP M|
000046f0  b0 45 54 48 41 4e 00 0f  4f aa eb 43 48 45 43 4b  |.ETHAN..O..CHECK|
00004700  46 49 4e 45 20 4c 44 41  20 58 50 49 42 00 1a 4f  |FINE LDA XPIB..O|
00004710  b4 eb 43 4d 50 20 58 50  00 2b 4f be eb 42 43 53  |..CMP XP.+O..BCS|
00004720  20 4c 45 53 53 54 48 41  4e 00 40 4f c8 eb 4d b0  | LESSTHAN.@O..M.|
00004730  45 54 48 41 4e 20 4c 44  41 20 58 50 49 42 00 4e  |ETHAN LDA XPIB.N|
00004740  4f d2 eb 53 54 41 20 24  44 30 30 38 00 5c 4f dc  |O..STA $D008.\O.|
00004750  eb 53 54 41 20 24 44 30  30 43 00 69 4f e6 eb 4c  |.STA $D00C.iO..L|
00004760  44 58 20 23 24 30 30 00  77 4f f0 eb 4c 44 41 20  |DX #$00.wO..LDA |
00004770  58 50 42 49 42 00 88 4f  fa eb 42 45 51 20 4e 4f  |XPBIB..O..BEQ NO|
00004780  58 50 42 41 44 44 00 95  4f 04 ec 4c 44 58 20 23  |XPBADD..O..LDX #|
00004790  24 35 30 00 ac 4f 0e ec  4e 4f 58 50 42 41 44 44  |$50..O..NOXPBADD|
000047a0  20 4c 44 41 20 24 44 30  31 30 00 b7 4f 18 ec af  | LDA $D010..O...|
000047b0  20 23 24 41 46 00 c3 4f  22 ec 53 54 58 20 24 30  | #$AF..O".STX $0|
000047c0  32 00 cb 4f 2c ec 43 4c  43 00 d7 4f 36 ec 41 44  |2..O,.CLC..O6.AD|
000047d0  43 20 24 30 32 00 e5 4f  40 ec 53 54 41 20 24 44  |C $02..O@.STA $D|
000047e0  30 31 30 00 f2 4f 45 ec  4c 44 58 20 23 24 30 30  |010..OE.LDX #$00|
000047f0  00 fd 4f 4a ec 4c 44 41  20 58 50 00 05 50 54 ec  |..OJ.LDA XP..PT.|
00004800  53 45 43 00 12 50 5e ec  53 42 43 20 23 24 31 38  |SEC..P^.SBC #$18|
00004810  00 20 50 68 ec 53 54 41  20 24 44 30 30 41 00 2e  |. Ph.STA $D00A..|
00004820  50 72 ec 53 54 41 20 24  44 30 30 45 00 3c 50 7c  |Pr.STA $D00E.<P||
00004830  ec 42 43 43 20 4d 54 53  55 42 00 48 50 86 ec 4c  |.BCC MTSUB.HP..L|
00004840  44 58 20 58 50 42 00 56  50 90 ec 42 45 51 20 4d  |DX XPB.VP..BEQ M|
00004850  54 53 55 42 00 63 50 9a  ec 4c 44 58 20 23 24 41  |TSUB.cP..LDX #$A|
00004860  30 00 77 50 a4 ec 4d 54  53 55 42 20 4c 44 41 20  |0.wP..MTSUB LDA |
00004870  24 44 30 31 30 00 82 50  ae ec af 20 23 24 35 46  |$D010..P... #$5F|
00004880  00 8e 50 b8 ec 53 54 58  20 24 30 32 00 96 50 c2  |..P..STX $02..P.|
00004890  ec 43 4c 43 00 a2 50 cc  ec 41 44 43 20 24 30 32  |.CLC..P..ADC $02|
000048a0  00 b0 50 d6 ec 53 54 41  20 24 44 30 31 30 00 bd  |..P..STA $D010..|
000048b0  50 e0 ec 4a 4d 50 20 42  4f 58 9a 00 d1 50 ea ec  |P..JMP BOX...P..|
000048c0  4c 45 53 53 54 48 41 4e  20 4c 44 41 20 58 50 00  |LESSTHAN LDA XP.|
000048d0  dd 50 f4 ec 4c 44 58 20  58 50 42 00 ea 50 fe ec  |.P..LDX XPB..P..|
000048e0  42 4e 45 20 a8 4f 55 54  00 f7 50 08 ed 43 4d 50  |BNE .OUT..P..CMP|
000048f0  20 23 24 35 38 00 04 51  12 ed 42 43 53 20 a8 4f  | #$58..Q..BCS .O|
00004900  55 54 00 11 51 1c ed 4c  44 41 20 23 24 35 38 00  |UT..Q..LDA #$58.|
00004910  24 51 26 ed a8 4f 55 54  20 53 54 41 20 24 44 30  |$Q&..OUT STA $D0|
00004920  30 38 00 32 51 30 ed 53  54 41 20 24 44 30 30 43  |08.2Q0.STA $D00C|
00004930  00 3f 51 3a ed 43 50 58  20 23 24 30 30 00 4f 51  |.?Q:.CPX #$00.OQ|
00004940  44 ed 42 45 51 20 4c 54  4e 4f 41 44 44 00 5c 51  |D.BEQ LTNOADD.\Q|
00004950  4e ed 4c 44 58 20 23 24  35 30 00 72 51 58 ed 4c  |N.LDX #$50.rQX.L|
00004960  54 4e 4f 41 44 44 20 4c  44 41 20 24 44 30 31 30  |TNOADD LDA $D010|
00004970  00 7d 51 62 ed af 20 23  24 41 46 00 89 51 6c ed  |.}Qb.. #$AF..Ql.|
00004980  53 54 58 20 24 30 32 00  91 51 76 ed 43 4c 43 00  |STX $02..Qv.CLC.|
00004990  9d 51 80 ed 41 44 43 20  24 30 32 00 ab 51 8a ed  |.Q..ADC $02..Q..|
000049a0  53 54 41 20 24 44 30 31  30 00 b8 51 8f ed 4c 44  |STA $D010..Q..LD|
000049b0  58 20 23 24 30 30 00 c5  51 94 ed 4c 44 41 20 58  |X #$00..Q..LDA X|
000049c0  50 49 42 00 cd 51 9e ed  53 45 43 00 da 51 a8 ed  |PIB..Q..SEC..Q..|
000049d0  53 42 43 20 23 24 31 38  00 e8 51 b2 ed 53 54 41  |SBC #$18..Q..STA|
000049e0  20 24 44 30 30 41 00 f6  51 bc ed 53 54 41 20 24  | $D00A..Q..STA $|
000049f0  44 30 30 45 00 04 52 c6  ed 42 43 43 20 4c 54 53  |D00E..R..BCC LTS|
00004a00  55 42 00 12 52 d0 ed 4c  44 58 20 58 50 42 49 42  |UB..R..LDX XPBIB|
00004a10  00 20 52 da ed 42 45 51  20 4c 54 53 55 42 00 2d  |. R..BEQ LTSUB.-|
00004a20  52 e4 ed 4c 44 58 20 23  24 41 30 00 41 52 ee ed  |R..LDX #$A0.AR..|
00004a30  4c 54 53 55 42 20 4c 44  41 20 24 44 30 31 30 00  |LTSUB LDA $D010.|
00004a40  4c 52 f8 ed af 20 23 24  35 46 00 58 52 02 ee 53  |LR... #$5F.XR..S|
00004a50  54 58 20 24 30 32 00 60  52 0c ee 43 4c 43 00 6c  |TX $02.`R..CLC.l|
00004a60  52 16 ee 41 44 43 20 24  30 32 00 7a 52 20 ee 53  |R..ADC $02.zR .S|
00004a70  54 41 20 24 44 30 31 30  00 8a 52 2a ee 42 4f 58  |TA $D010..R*.BOX|
00004a80  9a 20 4c 44 41 20 59 50  00 97 52 34 ee 43 4d 50  |. LDA YP..R4.CMP|
00004a90  20 59 50 49 42 00 a5 52  3e ee 42 43 43 20 4c 45  | YPIB..R>.BCC LE|
00004aa0  53 53 59 00 b2 52 48 ee  4c 44 41 20 59 50 49 42  |SSY..RH.LDA YPIB|
00004ab0  00 c0 52 52 ee 53 54 41  20 24 44 30 30 39 00 ce  |..RR.STA $D009..|
00004ac0  52 5c ee 53 54 41 20 24  44 30 30 42 00 d9 52 66  |R\.STA $D00B..Rf|
00004ad0  ee 4c 44 41 20 59 50 00  e1 52 70 ee 53 45 43 00  |.LDA YP..Rp.SEC.|
00004ae0  ee 52 7a ee 53 42 43 20  23 24 31 35 00 fc 52 84  |.Rz.SBC #$15..R.|
00004af0  ee 53 54 41 20 24 44 30  30 44 00 0a 53 8e ee 53  |.STA $D00D..S..S|
00004b00  54 41 20 24 44 30 30 46  00 19 53 98 ee 4a 4d 50  |TA $D00F..S..JMP|
00004b10  20 42 4f 58 9a 49 49 00  2a 53 a2 ee 4c 45 53 53  | BOX.II.*S..LESS|
00004b20  59 20 4c 44 41 20 59 50  00 38 53 ac ee 53 54 41  |Y LDA YP.8S..STA|
00004b30  20 24 44 30 30 39 00 46  53 b6 ee 53 54 41 20 24  | $D009.FS..STA $|
00004b40  44 30 30 42 00 53 53 c0  ee 4c 44 41 20 59 50 49  |D00B.SS..LDA YPI|
00004b50  42 00 5b 53 ca ee 53 45  43 00 68 53 d4 ee 53 42  |B.[S..SEC.hS..SB|
00004b60  43 20 23 24 31 35 00 76  53 de ee 53 54 41 20 24  |C #$15.vS..STA $|
00004b70  44 30 30 44 00 84 53 e8  ee 53 54 41 20 24 44 30  |D00D..S..STA $D0|
00004b80  30 46 00 99 53 f2 ee 42  4f 58 9a 49 49 20 4c 44  |0F..S..BOX.II LD|
00004b90  41 20 43 4c 49 43 4b 00  a6 53 fc ee 42 4e 45 20  |A CLICK..S..BNE |
00004ba0  42 4f 58 80 00 b6 53 06  ef 4a 4d 50 20 42 4f 58  |BOX...S..JMP BOX|
00004bb0  4c 4f 4f 50 00 ca 53 10  ef 42 4f 58 80 20 4a 4d  |LOOP..S..BOX. JM|
00004bc0  50 20 9a 52 4f 4c 4f 50  00 df 53 30 f2 42 4f 58  |P .ROLOP..S0.BOX|
00004bd0  46 4c 41 53 48 20 4c 44  41 20 24 41 32 00 ea 53  |FLASH LDA $A2..S|
00004be0  3a f2 af 20 23 24 33 43  00 f4 53 44 f2 4c 53 52  |:.. #$3C..SD.LSR|
00004bf0  20 41 00 fe 53 4e f2 4c  53 52 20 41 00 06 54 58  | A..SN.LSR A..TX|
00004c00  f2 54 41 58 00 18 54 62  f2 4c 44 41 20 42 4f 58  |.TAX..Tb.LDA BOX|
00004c10  43 4f 4c 53 2c 58 00 26  54 6c f2 53 54 41 20 24  |COLS,X.&Tl.STA $|
00004c20  44 30 32 42 00 34 54 76  f2 53 54 41 20 24 44 30  |D02B.4Tv.STA $D0|
00004c30  32 43 00 42 54 80 f2 53  54 41 20 24 44 30 32 44  |2C.BT..STA $D02D|
00004c40  00 50 54 8a f2 53 54 41  20 24 44 30 32 45 00 5e  |.PT..STA $D02E.^|
00004c50  54 94 f2 4a 4d 50 20 24  45 41 33 31 00 80 54 9e  |T..JMP $EA31..T.|
00004c60  f2 42 4f 58 43 4f 4c 53  20 54 58 54 20 30 2c 39  |.BOXCOLS TXT 0,9|
00004c70  2c 32 2c 38 2c 31 30 2c  37 2c 31 33 2c 31 00 9a  |,2,8,10,7,13,1..|
00004c80  54 a8 f2 54 58 54 20 31  2c 31 33 2c 33 2c 35 2c  |T..TXT 1,13,3,5,|
00004c90  31 34 2c 34 2c 36 2c 30  00 af 54 18 f6 3b 20 44  |14,4,6,0..T..; D|
00004ca0  45 4c 45 54 45 20 54 48  45 53 45 21 21 00 c3 54  |ELETE THESE!!..T|
00004cb0  22 f6 43 4f 4c 53 20 4a  4d 50 20 9a 52 4f 4c 4f  |".COLS JMP .ROLO|
00004cc0  50 00 db 54 2c f6 43 4f  4c 43 59 43 4c 45 20 4a  |P..T,.COLCYCLE J|
00004cd0  4d 50 20 9a 52 4f 4c 4f  50 00 f0 54 4a f6 b9 49  |MP .ROLOP..TJ..I|
00004ce0  54 49 91 20 4a 4d 50 20  9a 52 4f 4c 4f 50 00 07  |TI. JMP .ROLOP..|
00004cf0  55 54 f6 5a 4f 4f 4d 4f  55 54 20 4a 4d 50 20 9a  |UT.ZOOMOUT JMP .|
00004d00  52 4f 4c 4f 50 00 00 00                           |ROLOP...|
00004d08