;MANDELPLOT";SOURCE CODE0;22/10/956(;Bd��$1000ji;                         VARIABLES{nXPIXEL�$4103�xYPIXEL�$4104��COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B	�HOUR�$410C	�XPIB�$410D#	�XPBIB�$410E2	�COL0�$410FA	�COL1�$4110P	�COL2�$4111_	�COL3�$4112o	�COL0S�$4113	�COL1S�$4114�	�COL2S�$4115�	�COL3S�$4116�	��TIME�$4117�	�SPEED�$4118�	�NEGREG�$4119�	
;                      ROM ROUTINES	
"
OUTDO �$AB47
#
�LFS�$FFBA'
$
�NAM�$FFBD6
%
�ROM�$FFD8I
&
PLOTRROM�$E56Cl
';           MAIN �ROL ROUTINESy
'JSR INIT�
$'COMEBACK JSR HIRES��
.'�ROLOP LDA CLICK�
8'BNE �ROLOP�
B'�LOPB LDA CLICK�
L'BEQ �LOPB�
V'LDA XP�
`'CMP #$58�
j'BCC ��t'JMP BOX~'�� LDA YP!�'CMP #$5A0�'BCC �ROLOP8�'SECE�'SBC #$5AO�'LSR AY�'LSR Ad�'� #$FEl�'TAX}�'LDA VEC�RS,X��'STA $FB��'INX��'LDA VEC�RS,X��'STA $FC��'JMP ($00FB)�(VEC�RS TXT �ZOOMOUT,�ZOOMOUT,��ROLOP,��ROLOP,�ZOOMIN,�ZOOMIN5
(TXT ��ROLOP,��ROLOP,��ITI�,��ITI�,��ROLOP,��ROLOPi(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,��,��E
<(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP[
)EXIT JSR HIRESOFFh
)LDA #$93v
)JSR OUTDO�
")LDA #$05�
,)JSR OUTDO�
6)LDA #$00�
@)STA $C6�
J)RTS�
�.;                   WIMP ROUTINES�
�.; WIMP - MOUSE�
�.IRQ LDA #$00
/STA CLICK/LDA $C5#/CMP #$013&/BNE C�CHECKA0/STA CLICKV:/C�CHECK CMP #$0CdD/BEQ LEFTKuN/LKC CMP #$17�X/BEQ RIGHTK�b/RKC CMP #$32�l/BEQ UPK�v/UPKC CMP #$37��/BEQ DOWNK��/DKC LDA $DC00��/� #$01��/BEQ UPJ��/UJC LDA $DC00�/� #$02�/BEQ DOWNJ'�/DJC LDA $DC002�/� #$04@�/BEQ LEFTJR�/LJC LDA $DC00]�/� #$08l0BEQ RIGHTJ~0RJC LDA $DC00�0� #$10� 0E� #$10�*0BEQ CJCH�40STA CLICK�>0CJCH JMP BOXFLASH�H0LEFTK JSR LEFT�R0JMP LKC�\0RIGHTK JSR RIGHTf0JMP RKCp0UPK JSR UP"z0JMP UPKC5�0DOWNK JSR DOWNA�0JMP DKCP�0UPJ JSR UP\�0JMP UJCo�0DOWNJ JSR DOWN{�0JMP DJC��0LEFTJ JSR LEFT��0JMP LJC��0RIGHTJ JSR RIGHT��0JMP RJC��0LEFT DEC XP��0LDA XP��0CMP #$FF�1BNE �FF�1LDY #$001STY XPB$1�FF LDY XPB$.1BNE FIN181CMP #$18=B1BNE FINHL1INC XPYV1FIN JMP �ROLj`1RIGHT INC XPuj1LDA XP�t1BNE �00�~1LDY #$01��1STY XPB��1�00 LDY XPB��1BEQ FIN��1CMP #$58��1BNE FIN��1DEC XP��1JMP �ROL��1UP DEC YP�1LDA YP
�1CMP #$32�1BNE FIN$�1INC YP12JMP �ROLA
2DOWN INC YPL2LDA YPY2CMP #$F8e(2BNE FINp22DEC YP}<2JMP �ROL�F2; WIMP � PO�ER�P2�ROL LDA HOUR�Z2BEQ NHGLASS��3LDX #$3A��3STX $07F8��3INX��3STX $07F9��3NHGLASS LDA XP�3STA $D000�3STA $D002�3LDA YP+�3STA $D0019�3STA $D003G�3LDA $D010R4� #$FC\4LSR Ad4CLCp&4ADC XPBz04ASL A�:4CLC�D4ADC XPB�N4STA $D010�X4LDA #$00�b4STA $D027�l4LDA #$01�v4STA $D028��4LDA $D015��4�A #$03��4STA $D015�4LDA HOUR�4BNE QTRO!�4LDX #$38/�4STX $07F87�4INXE�4STX $07F9R�4QTRO RTSi�4; STARTUP ROUTINES{�4INIT LDA #$00��4STA $D020�5STA $D021�5STA XP�5STA HOUR� 5STA $D015�*5LDA #$01�45STA XPB�>5LDA #$80�H5STA YPR5HIRES� LDA #$3B\5STA $D011f5LDA #$D8+p5STA $D0169z5LDA COL0SF�5STA COL0T�5LDA COL1Sa�5STA COL1o�5LDA COL2S|�5STA COL2��5LDA COL3S��5STA COL3��5JSR �COLS�6JSR LEFT�6SEI�6LDA #�IRQ�$6STA $0314�.6LDA #�IRQ�86STA $0315�B6CLI�6LDA #$18�6STA $D0184:RTS.R:HIRESOFF SEI;\:LDA #$31If:STA $0314Vp:LDA #$EAdz:STA $0315l�:CLIy�:LDA #$00��:STA $D015��:LDA #$9B��:STA $D011��:LDA #$C8��:STA $D016��:LDA #$15��:STA $D018��:RTS� N� JSR HIRESOFF*NLDA #$1C4NJSR OUTDO>NLDA #$93)HNJSR OUTDO6RNLDA #$00D\N�LOOP PHANfNASL AXpNASL A`zNCLCm�NADC #$42y�NSTA $FC��NLDY #$00��NSTY $FB��NSTY $FD��NLDA #$04��NSTA $FE��N�LOOPB LDA ($FB),Y��NSTA ($FD),Y��NINY��NBNE �LOOPB
�NINC $FC
�NINC $FEOLDA $FE&OCMP #$085OBNE �LOOPBD$O�� LDA $C5Q.OCMP #$40\8OBNE ��lBO��B LDA $C5yLOCMP #$40�VOBEQ ��B�`OTAX�jOPLA�tOCPX #$01�~OBEQ HNOM�E��OCPX #$28��OBEQ ���OCPX #$2B��OBEQ PREV��O�RET PHA��OJMP ��B�OHNOM�E JMP COMEBACK"�O� CMP #$04/�OBEQ �RET7�OCLCD�OADC #$01R�OJMP �LOOPdPPREV CMP #$00q
PBEQ �RETyPSEC�PSBC #$01�(PJMP �LOOP��a;                   SAVE ROUTINES��a�AME TXT 147,5��aTXT "FILENAME:",0
�a�RD TXT 13,13,"(T)APE OR (D)ISK",08�a�T TXT 13,13,"POSITION TAPE <SPACE>",13,0f�aINSD TXT 13,13,"INSERT DISK <SPACE>",13,0{�aPSTRING LDY #$00��aPSTRLOP LDA ($FB),Y��aBEQ PSTRQUIT�bJSR OUTDO�bINY�bJMP PSTRLOP�bPSTRQUIT RTS� b�OFF LDA $040A,Y�*bE� #$804bSTA $040A,Y>bRTS#Hb�� LDA $C50RbCMP #$40;\bBNE ��Kfb��B LDA $C5XpbCMP #$40dzbBEQ ��Bl�bTAXy�bLDA ��,X��bBEQ ����bRTS��b� JSR HIRESOFF��bLDX #$00��bLDA #$20��b�AME� STA $41F0,X��bINX��bCPX #$10��bBNE �AME�
�bLDA #��AME
�bSTA $FBcLDA #��AME(cSTA $FC8cJSR PSTRINGE$cLDA #$00M.cPHA[8c�LOOP TAYh=cJSR �OFFsBcJSR ��{GcPHA�LcJSR �OFF�QcPLA�VcCMP #$80�`cBCS DECODE�jcTAY�tcPLA�~cTAX��cTYA��cSTA $040A,X��cCMP #$20��cBCS NOSPC��cCLC�cADC #$40"�cNOSPC STA $41F0,X4�cINC� CPX #$0FC�cBEQ �RELOPK�cINXZ�c�RELOP TXAb�cPHAp�cJMP �LOOP�dDECODE CMP #$80�
dBEQ ��dCMP #$81�dBEQ ��(dCMP #$82�2dBNE �LOOP�<dPLA�FdTAX�PdLDA $028D�Zd� #$01�ddBEQ INC�	ndDEC� CPX #$00xdBEQ �RELOP �dDEX/�dJMP �RELOP9�d� PLAA�dTAXN�dLDA #$20^�dSTA $040A,Xn�dSTA $41F0,X{�dJMP DEC���d� PLA��dLDA #��RD��dSTA $FB��dLDA #��RD��dSTA $FC��dJSR PSTRING�e� JSR ���eCMP #$14�eBEQ TAPE��"eCMP #$04
,eBEQ DISK�6eJMP �*@eTAPE� LDA #��T6JeSTA $FBCTeLDA #��TO^eSTA $FC_heJSR PSTRINGlreLDX #$01z|eJMP TAPE���eDISK� LDA #�INSD��eSTA $FB��eLDA #�INSD��eSTA $FC��eJSR PSTRING��eLDX #$08��eTAPE� LDA $C5��eCMP #$3C �eBNE TAPE�
 �eLDA #$01 �eTAY" �eJSR �LFS/ �eLDX #$10E f�AME� LDA $41EF,XR fCMP #$20a fBNE �AME�Ti &fDEXx 0fBEQ �AME�T� :fJMP �AME�� Df�AME�T TXA� NfLDX #$F0� bfLDY #$41� lfJSR �NAM� vfLDA #$20� �fSTA $FC� �fLDX #$00� �fSTA $FB� �fLDY #$40!�fLDA #$FB!�fJSR �ROM&!�fJMP COMEBACKL!xi;           KEYBOARD DECODE TABLER!�i;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,10�!�iTXT 48,13,11,15,14,43,16,12,45,46"�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 PLOTTERk":uM�LE SEIx"<uLDA #$01�"=uSTA HOUR�">uJSR LEFT�"?uLDA #$00�"DuSTA YPIXEL�"NuLDA #$03�"XuSTA $4100�"buLDA #$06�"luSTA $4102�"vuJSR EQUAL#�uMMAINL LDA #$00#�uSTA XPIXEL"#�uLDA #$010#�uSTA $4100=#�uLDA #$05K#�uSTA $4102Y#�uJSR EQUALn#�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 $4100$>vSTA $4101&$HvLDA #$104$RvSTA $4102E$\vJSR MULTIPLYR$fvLDA #$08`$pvSTA $4100n$zvSTA $4101{$�vLDA #$11�$�vSTA $4102�$�vJSR MULTIPLY�$�vLDX #$10�$�vSTX $4100�$�vINX�$�vSTX $4101�$�vINX�$�vSTX $4102�$�vJSR ADDITI��$�vLDA $4091%�vCMP #$04%�vBCC FAIL&%wCMP #$503%wBCS FAILK%wSUCPASS JMP SUCCESS_%$wFAIL INC COLOURn%)wLDA COLOUR}%.wCMP MAXCOL�%8wBEQ SUCPASS�%BwJSR SUBTRACT�%LwLDA #$12�%VwSTA $4100�%`wLDA #$05�%jwSTA $4101�%twLDA #$13�%~wSTA $4102�%�wJSR ADDITI�&�wLDA #$07&�wSTA $4100'&�wLDA #$085&�wSTA $4101C&�wINC $4102T&�wJSR MULTIPLYa&�wLDA #$14o&�wSTA $4100|&�wLDA #$1C�&�wSTA $4101�&�wLDA #$15�&xSTA $4102�&
xJSR MULTIPLY�&xLDA #$15�&xSTA $4100�&(xLDA #$06�&2xSTA $4101�&<xLDA #$16'FxSTA $4102'PxJSR ADDITI�$'ZxLDA #$132'dxSTA $4100?'nxLDA #$07M'xxSTA $4102['�xJSR EQUALh'�xLDA #$16v'�xSTA $4100�'�xLDA #$08�'�xSTA $4102�'�xJSR EQUAL�'�xJMP LOOP�'�xSUCCESS JSR PLOT�'�xLDA #$05�'�xSTA $4100�'�xSTA $4102�'�xLDA #$02(�xSTA $4101(yJSR ADDITI�$(yLDA XPIXEL3(yBNE XRELOP@("yLDA #$06N(,ySTA $4100\(6ySTA $4102i(@yLDA #$04w(JySTA $4101�(TyJSR ADDITI��(^yINC YPIXEL�(hyLDA YPIXEL�(ryCMP #$C8�(|yBNE YRELOP�(~yLDA #$00�(ySTA HOUR�(�yJSR RIGHT�(�yCLI�(�yRTS)�yXRELOP JMP MMAINLB&)�yYRELOP JMP MMAINL:)�yM�PLOT JSR M�LEI)�yJMP �ROLOPo)��;                 COLOUR ROUTINES�)ˆ�COLS LDA COL0�)̈STA $D021�)ֈLDY #$00�)�STY $FB�)�LDA #$D8�)�STA $FC�)��LDA COL3�)��CLOPA STA ($FB),Y�)�INY�)�BNE �CLOPA	*&�INC $FC*0�LDX $FC"*:�CPX #$DC1*D�BNE �CLOPA>*N�LDA #$04J*X�STA $FCW*b�LDA COL1a*l�ASL Ak*v�ASL Au*��ASL A*��ASL A�*���A COL2�*���CLOPB STA ($FB),Y�*��INY�*��BEQ �CLOPC�*��CPY #$F8�*ƉBNE �CLOPB�*ЉLDX $FC�*ډCPX #$07�*�BNE �CLOPB+�RTS+���CLOPC INC $FC'+�JMP �CLOPB;+�COLC� LDA �TIMEC+�CLCQ+ �ADC SPEED_+*�STA �TIMEs+4�COLCLOP CMP $A2�+>�BNE COLCLOP�+H�RTS�+R�COLC�S LDA $C5�+\�CMP #$28�+f�BEQ SPUP�+p�CMP #$2B�+z�BEQ SLDN�+��CMP #$01�+��BEQ COLCOFF�+��NO� RTS,��COLCOFF PLA,��PLA$,��JMP COMEBACK7,��SPUP LDA SPEEDD,ŊCMP #$03P,ʊBEQ NO�^,ԊDEC SPEEDf,ފRTSy,�SLDN LDA SPEED�,�CMP #$19�,��BEQ NO��,�INC SPEED�,�RTS�,�COLCYCLE LDA #$0A�,$�STA SPEED�,.�LDA $A2�,8�STA �TIME�,B�COLCYCLOP LDA COL0S-L�STA COL0-V�LDA COL1S&-`�STA COL14-j�LDA COL2SA-t�STA COL2O-~�LDA COL3S\-��STA COL3j-��JSR �COLSy-��JSR COLC�S�-��JSR COLC��-��LDA COL3S�-��STA COL0�-ċLDA COL0S�-΋STA COL1�-؋LDA COL1S�-�STA COL2�-�LDA COL2S�-��STA COL3
.�JSR �COLS.
�JSR COLC�S.�JSR COLC�,.�LDA COL2S9.(�STA COL0G.2�LDA COL3ST.<�STA COL1b.F�LDA COL0So.P�STA COL2}.Z�LDA COL1S�.d�STA COL3�.n�JSR �COLS�.x�JSR COLC�S�.��JSR COLC��.��LDA COL1S�.��STA COL0�.��LDA COL2S�.��STA COL1�.��LDA COL3S/��STA COL2/ȌLDA COL0S!/ҌSTA COL3//܌JSR �COLS>/�JSR COLC�SL/�JSR COLC�^/��JMP COLCYCLOPs/�ITER� LDA MAXCOL~/�� #$F0�/�LSR A�/"�LSR A�/,�LSR A�/6�LSR A�/@�CMP #$0A�/J�BCC ITADD�/T�SEC�/^�SBC #$3A�/h�ITADD CLC�/r�ADC #$30�/|�STA $05050��LDA MAXCOL0��� #$0F&0��CMP #$0A60��BCC NOADDIT>0��SECK0��SBC #$3A[0NOADDIT CLCh0̍ADC #$30v0֍STA $0506~0�RTS�0�COLTEXT TXT 147,5,"�î�î�î�î",13�0�TXT "� ��� ��� ��� �� <- SCREEN COLOURS",13�0��TXT "�ý�ý�ý�ý",131�TXT " 1  2  3  4",13,13,1371�TXT "MAXIMUM ITERATIONS: $$$",0M1�COLS JSR HIRESOFF_1&�LDA #�COLTEXTk10�STA $FB}1:�LDA #�COLTEXT�1D�STA $FC�1N�JSR PSTRING�1X�LDA COL0S�1b�STA $D829�1l�LDA COL1S�1v�STA $D82C�1��LDA COL2S�1��STA $D82F�1��LDA COL3S	2��STA $D8322��JSR ITER�+2��COLLOOPK JSR ��82��CMP #$80H2ƎBEQ COLQUITU2ЎCMP #$31e2ڎBEQ COL1ADDr2�CMP #$32�2�BEQ COL2ADD�2��CMP #$33�2�BEQ COL3ADD�2�CMP #$34�2�BEQ COL4ADD�2 �CMP #$2B�2*�BEQ ITERPLUS�24�CMP #$2D�2>�BNE COLLOOPK3H�DEC MAXCOL3R�JSR ITER�&3\�JMP COLLOOPK>3f�ITERPLUS INC MAXCOLL3p�JSR ITER�]3z�JMP COLLOOPKv3��COLQUIT JMP COMEBACK�3��COL1ADD INC COL0S�3��LDA COL0S�3��� #$0F�3��STA COL0S�3��STA $D829�3��JMP COLLOOPK�3ʏCOL2ADD INC COL1S�3ԏLDA COL1S
4ޏ� #$0F4�STA COL1S4�STA $D82C.4��JMP COLLOOPKD4�COL3ADD INC COL2SR4�LDA COL2S]4�� #$0Fk4$�STA COL2Sy4.�STA $D82F�48�JMP COLLOOPK�4B�COL4ADD INC COL3S�4L�LDA COL3S�4V�� #$0F�4`�STA COL3S�4j�STA $D832�4t�JMP COLLOOPK5@�;             ARITHMETIC ROUTINES5J��DIGIT CLD%5T�ASL A/5^�ASL A95h�ASL AE5r�STA $02M5|�TXAW5��LSR Ac5��STA $24p5��LDA #$07x5��SEC�5��SBC $24�5��CLC�5œADC $02�5̜TAY�5֜LDA $4000,Y�5�TAY�5�TXA�5� #$01�5��BEQ LSNGD�5�TYA�5�� #$F0�5�LSR A6&�LSR A
60�LSR A6:�LSR A6D�RTS*6N�LSNGD TYA56X�� #$0F=6b�RTSX6l�MULTIPLYB JSR NEGATIVEf6q�LDA $4102p6v�ASL Az6��ASL A�6��ASL A�6��TAX�6��LDA #$00�6��TAY�6��MLOPA STA $4000,X�6��INY�6ƝINX�6НCPY #$08�6ڝBNE MLOPA�6�LDA #$06�6�STA $FC7���DIGIT LDA $41017�LDX $FC+7�JSR �DIGIT87�CMP #$00H7 �BEQ DMOVERBT7*�STA $FDa74�LDA #$06m7>�STA $FB�7H�DMLOP LDA $4100�7R�LDX $FB�7\�JSR �DIGIT�7f�CMP #$00�7p�BEQ DMOVER�7z�ASL A�7��ASL A�7��ASL A�7��ASL A�7��CLC�7��ADC $FD�7��TAY	8��LDA M�,Y8ʞSTA $35 8Ԟ� #$0F(8ޞTAY48�LDA $FB<8�CLCH8��ADC $FCP8�SEC]8�SBC #$0Ce8�TAXp8$�� #$01~8.�BEQ MSKIP�88�TYA�8B�ASL A�8L�ASL A�8V�ASL A�8`�ASL A�8j�TAY�8t�LDA $35�8~�� #$F0�8��LSR A�8��LSR A�8��LSR A�8��LSR A
9��STA $359��JMP M�#9��DMOVERB JMP DMOVER59ğMSKIP LDY $35B9ΟLDA #$00N9؟STA $35Y9ڟM� TXAc9ܟLSR Ao9ޟSTA $02|9�LDA #$07�9�SEC�9�SBC $02�9�STA $02�9�LDA $4102�9�ASL A�9�ASL A�9�ASL A�9�ADC $02�9�STY $25�9�TAY�9��SED:��LDA $4000,Y:��CLC:��ADC $25$:��STA $4000,Y,:�CLD4:�DEY<:�SEDL:�LDA $4000,YX:�ADC $35h:
�STA $4000,Yp:�CLD�:�MALP BCC DMOVER�:�DEY�:�SED�:�LDA $4000,Y�:�ADC #$00�:�STA $4000,Y�:�CLD�:�JMP MALP�:Z�DMOVER INC $FB�:d�LDA $FB;n�CMP #$0E;x�BCC DMLOPB;��INC $FC);��LDA $FC6;��CMP #$0EF;��BCC �DIGITBS;��LDA YPIB`;��BEQ QUITn;��LDA $4102|;ȠSTA $4101�;ҠLDA #$1D�;ܠSTA $4100�;�JSR SUBTRACT�;�QUIT RTS�;��DMLOPB JMP DMLOP�;��DIGITB JMP �DIGIT�;"�MSUP LDA $4100�;,�ASL A<6�ASL A<@�ASL A<J�TAX"<T�DEX.<^�STX $FB<<h�LDA $4101F<r�ASL AP<|�ASL AZ<��ASL Ab<��TAXj<��DEXv<��STX $FD�<��LDA $4102�<��ASL A�<¡ASL A�<̡ASL A�<֡TAX�<�DEX�<�STX $22�<�LDA #$40�<��STA $FC�<�STA $FE�<�STA $23�<�RTS
=&�EQUAL JSR MSUP=0�LDY #$08,=:�ELOP LDA ($FB),Y<=D�STA ($22),YD=N�DEYQ=X�BNE ELOPY=b�RTSn=l�ADDITI� JSR MSUP{=v�LDY #$08�=��SED�=��CLC�=��ADLOP LDA ($FB),Y�=��ADC ($FD),Y�=��STA ($22),Y�=��DEY�=��BNE ADLOP�=ƢCLD�=ТRTS�=ڢSUBTRACT JSR MSUP
>�LDY #$08>�SED>��SEC0>�SULOP LDA ($FB),Y@>�SBC ($FD),YP>�STA ($22),YX> �DEYf>*�BNE SULOPn>4�CLDv>>�RTS�>H�NEGATIVE LDA #$00�>R�PHA�>\�LDA $4100�>f�TAY�>p�ASL A�>z�ASL A�>��ASL A�>��TAX�>��LDA $4001,X�>��CMP #$50?��BCC NEGRMOVEAB?��PLA?��ADC #$00?��PHA/?ʣJMP NEGRMOVEAH?ԣNEGRMOVEAB LDA $4101P?ޣTAYZ?�ASL Ad?�ASL An?��ASL Av?�TAX�?�LDA $4001,X�?�CMP #$50�?$�PLA�?.�BCC NOE��?8�E� #$01�?B�PHA�?L�BCS NEGRMOVEB�?V�NEGRMOVEBB PLA�?`�NOE� STA YPIB�?j�RTS@t�NEGRMOVE LDA $4100@~�PHA(@��LDA $41010@��PHA>@��LDA $4102F@��PHAN@��TYA\@��STA $4101j@ĤSTA $4102w@ΤLDA #$1D�@ؤSTA $4100�@�JSR SUBTRACT�@�PLA�@��STA $4102�@�PLA�@
�STA $4101�@�PLA�@�STA $4100�@(�RTS�@2�NEGRMOVEA JSR NEGRMOVEA<�JMP NEGRMOVEAB)AF�NEGRMOVEB JSR NEGRMOVE<AP�JMP NEGRMOVEBBSAZ�MULTIPLY LDA $4102[Ad�PHAiAn�LDA $4101qAx�PHA~A��LDA #$18�A��STA $4102�A��JSR EQUAL�A��INC $4102�A��PLA�A��STA $4100�A��JSR EQUAL�AȥLDA #$18�AҥSTA $4100�AܥLDA #$19B�STA $4101
B�PLAB��STA $4102*B�JMP MULTIPLYBPBȯ;           MULTIPLICATION TABLESVBʯ;�B̯M� TXT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0�BίTXT 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0�BЯTXT 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0CүTXT 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0ECԯTXT 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0}C֯TXT 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0�CدTXT 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0�CگTXT 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0%DܯTXT 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0]DޯTXT 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0�D��;                        �ITI��D���TEXT TXT 147,5,"            P O S I T I O N",13,13,13,"XMIN:",13�DijTXT "XMAX:",13,"YMIN:",13,"YMAX:",0�DγPNO PHAEسASL AE�ASL AE�ASL A E��TAX0E�LDA $4001,X=E
�CMP #$50LE�BCS PNOVERYE�LDA #$2BgE(�JSR OUTDOtE*�LDA #$00�E,�STA NEGREG�E2�JMP PN��E<�PNOVER LDA #$2D�EF�JSR OUTDO�EG�LDA #$01�EH�STA NEGREG�EI�PLA�EJ�PHA�EK�STA $4101�EL�STA $4102FM�LDA #$1DFN�STA $4100%FO�JSR SUBTRACT6FP�PN� LDX #$0CGFZ�PNCB STX $22OFd�PLAWFn�PHAfFx�JSR �DIGITnF��CLC{F��ADC #$30�F��JSR OUTDO�F��LDX $22�F��BEQ PNDQ�F��CPX #$0C�F��BEQ PNDOT�FȴDEX�FҴJMP PNCB�FܴPNDOT LDA #$2E�F�JSR OUTDO�F�DEXG��JMP PNCBG�PNDQ PLA$G�LDX NEGREG3G�BEQ NOGREGAG�STA $4101OG�STA $4102\G	�LDA #$1DjG
�STA $4100{G�JSR SUBTRACT�G�NOGREG RTS�G��ITI� JSR HIRESOFF�G"�LDA #��TEXT�G,�STA $FB�G6�LDA #��TEXT�G@�STA $FC�GJ�JSR PSTRING�GT�LDA #$07H^�STA $D3Hh�LDA #$03Hr�STA $D6,H|�JSR PLOTRROM9H��LDA #$01EH��JSR PNORH��LDA #$07^H��STA $D3kH��LDA #$04wH��STA $D6�HµJSR PLOTRROM�H̵LDA #$1E�HֵJSR PNO�H�LDA #$07�H�STA $D3�H�LDA #$05�H��STA $D6�H�JSR PLOTRROM�H�LDA #$03�H�JSR PNO
I&�LDA #$07I0�STA $D3#I5�LDA #$06/I:�STA $D6@ID�JSR PLOTRROMMIN�LDA #$1FYIX�JSR PNOfIb�LDX #$01sIl�LDY #$00�Iq�JSR ��OFF�Iv��LOP TXA�I��PHA�I���LOPB JSR ���I��CMP #$2B�I��BEQ �I��I��CMP #$2D�I��BEQ �INEG�I��CMP #$82�IƶBEQ X�MOVEJжCMP #$83JڶBEQ Y�MOVE J�CMP #$80/J�BEQ �CALCT<J��CMP #$30JJ�BCC �LOPBWJ�CMP #$3AeJ�BCS �LOPBqJ�STA $23yJ �PLA�J%�PHA�J*�TAX�J4�JSR �MEMAD�J>�STX $22�JH�TAX�JR�LDA $23�J\�E� #$80�Jf�STA $047F,X�Jp�JMP �RIGHT�Jz��CALCT JMP �CALC	K���I� LDX #$00K��JSR �MEMAD K��TAX-K��LDA #$2B=K��STA $047F,XKKʷJMP �LOPB^KԷ�INEG LDX #$00mK޷JSR �MEMADuK�TAX�K�LDA #$2D�K��STA $047F,X�K�JMP �LOPB�K�X�MOVE LDA $028D�K�� #$01�K$�BEQ �RIGHT�K.�PLA�K8�TAX�K=�CPX #$01�KB�BEQ �LOP
LL�LMISS JSR ��OFFLV�DEX#L`�JSR ��OFF0Lb�CPX #$02>Ld�BEQ LMISSKLj�JMP �LOPZLt��RIGHT PLAbL~�TAXoL��CPX #$0E|L��BEQ �LOP�L��RMISS JSR ��OFF�L��INX�L��JSR ��OFF�L��CPX #$02�L��BEQ RMISS�L��JMP �LOP�LĸY�MOVE PLA�LƸTAX�LȸLDA $028D�Lθ� #$01MظBEQ �DOWNM�CPY #$00'M�BEQ �LOPT5M��JSR ��OFF=M�DEYKM
�JSR ��OFFYM�JMP �LOPTlM��DOWN CPY #$03zM(�BEQ �LOPT�M2�JSR ��OFF�M<�INY�MF�JSR ��OFF�MP�JMP �LOPT�MZ��LOPT JMP �LOP�M���SURE TXT 13,13,"REPOSITION: ARE YOU SURE (Y/N)",0N���CALC PLAN��TAXN��JSR ��OFF*N��LDA #��SURE6N��STA $FBFN��LDA #��SURERN��STA $FCbN��JSR PSTRINGuN��SURELOP JSR ���N��CMP #$19�NƻBEQ ��NлCMP #$0E�NڻBEQ NO��N�JMP SURELOP�N�NO� JMP COMEBACK�N��� LDA #$80�N�STA $FB�N�LDA #$04O�STA $FC
O �LDA #$01O*�JSR �VAR'O4�LDA #$A83O>�STA $FB@OA�LDA #$04LOD�STA $FCYOH�LDA #$1EfOR�JSR �VARsO\�LDA #$D0Of�STA $FB�Oi�LDA #$04�Ol�STA $FC�Op�LDA #$03�Oz�JSR �VAR�O��LDA #$F8�O��STA $FB�O��LDA #$04�O��STA $FC�O��LDA #$1F�O��JSR �VAR
P��JSR HIRES�P��JMP CALC�,Pt��VAR STA $236Py�ASL A@P~�ASL AJP��ASL AVP��STA $FDcP��LDA #$40oP��STA $FE|P��LDA #$00�P��TAX�PĽTAY�PνSTA ($FD),Y�PؽINY�P�TYA�P�PHA�P��TXA�P�TAY�P
�LDA ($FB),Y�P�STA $22�P�TYA�P(�TAX�P2�PLAQ<�TAYQF�LDA $22QP�SEC!QZ�SBC #$301Qd�STA ($FD),Y9Qn�INYAQx�INXIQ��INXWQ���VLOP TYA_Q��PHAgQ��TXAoQ��TAYQ��LDA ($FB),Y�Q��SEC�QȾSBC #$30�QҾASL A�QܾASL A�Q�ASL A�Q�ASL A�Q��INY�Q�CLC�Q�ADC ($FB),Y�Q�SEC�Q"�SBC #$30�Q,�INYR6�STA $22
R@�TYARJ�TAXRT�PLA%R^�TAY1Rh�LDA $22ARr�STA ($FD),YIR|�INYVR��CPY #$08dR��BNE �VLOPpR��DEC $FB}R��LDY #$00�R��LDA ($FB),Y�R��CMP #$2D�R¿BEQ MAKENEG�R̿RTS�RֿMAKENEG LDA $23�R�STA $4101�R�STA $4102�R�LDA #$1D�R��STA $4100S�JMP SUBTRACTS\��MEMAD TYA'Sp�ASL A1Sz�ASL A;S��ASL AGS��STA $22QS��ASL A[S��ASL AcS��CLCoS��ADC $22{S��STX $22�S�ADC $22�S�CMP #$C8�S�BCC GMMQUIT�S�CLC�S�ADC #$28�S��GMMQUIT RTS�S$¹�OFF JSR �MEMAD�S.�STA $22�S8�TXA�SB�PHATL�LDX $22TV�LDA $047F,X"T`�E� #$802Tj�STA $047F,X:Tt�PLABT~�TAXJT��RTSnTP�;           GRAPHIC PO� PLOTTER�TZ�PLOTPC LDA #$47�Td�STA $FB�Tn�LDA #$3F�Tx�STA $FC�T��LDA YPIXEL�T��LSR A�T��LSR A�T��LSR A�T��STA YPIB�T�ï #$03�T��ASL AU��ASL A
U��ASL AU��ASL AU��ASL A(U��ASL A4U��STA $02@U�LDA $FBHU�SECTU�SBC $02`U"�STA $FBlU,�LDA $FCyU6�SBC #$00�U;�SBC YPIB�U@�PHA�UJ�LDA YPIB�UT�LSR A�U^�LSR A�Uh�STA $02�Ur�PLA�U|�SEC�U��SBC $02�U��STA $FC�U��LDA YPIXEL�U�į #$07
V��STA YPIBV��LDA $FBV��SEC+V��SBC YPIB3V��PHABV��LDA XPIXELMV�į #$F8ZV��STA YPIBbV��PLAjV�CLCwV�ADC YPIB�V�STA $FB�V&�LDA $FC�V0�SBC #$00�V:�STA $FC�VD�LDA XPIXEL�VNů #$07�VX�TAX�Vb�LDA #$80�Vl�GBITLP CPX #$00�Vv�BEQ PP�
W��LSR A	W��DEXW��JMP GBITLP(W��PP� STA $FD0W��RTSEW��PLO�N JSR PLOTPCRW��LDY #$00bW��LDA ($FB),YmW�ŰA $FD}W��STA ($FB),Y�W��RTS�W��PLO�FF JSR PLOTPC�W��LDA $FD�W�E� #$FF�W�STA $FD�W�LDY #$00�W �LDA ($FB),Y�W*Ư $FD�W4�STA ($FB),Y�W>�RTSXH�PLOT LDA COLOURXRƯ #$02*X\�BNE PPA�9Xf�JSR PLO�FFHXp�JMP PPACNT[Xz�PPA� JSR PLO�NqX��PPACNT INC XPIXEL�X��LDA COLOUR�X�Ư #$01�X��BNE PPB��X��JSR PLO�FF�X��JMP PPBCNT�X��PPB� JSR PLO�N�X��PPBCNT INC XPIXEL�X��RTSY��;       ZOOM CALCULATI� ROUTINES"Y��NOZOOM JMP �ROLOP7Y��ZOOMIN LDA $D015BY�֯ #$F0OY�CMP #$F0^Y
�BNE NOZOOMkY�LDA #$1EyY�STA $4100�Y(�LDA #$01�Y2�STA $4101�Y<�LDA #$10�YF�STA $4102�YP�JSR SUBTRACT�YZ�LDA #$01�Yd�STA $4100�Yn�INC $4102�Yx�JSR EQUALZ��LDA #$10Z��STA $4100Z��LDA #$1B-Z��STA $4101:Z��LDA #$12HZ��STA $4102YZ��JSR MULTIPLYfZ��LDA #$11tZ��STA $4100�Z��STA $4102�Z��LDA #$12�Z��STA $4101�Z��LDA $D008�Z�SEC�Z�SBC #$58�Z�CALCINLOPA CMP #$00�Z"�BEQ CALC�IA�Z,�PHA[6�JSR ADDITI�[@�PLA[J�TAX[T�DEX [^�TXA3[h�JMP CALCINLOPAH[r�CALC�IA LDA #$01V[|�STA $4100c[��LDA #$13q[��STA $4102[��JSR EQUAL�[��LDA #$13�[��STA $4100�[��STA $4102�[��LDA #$12�[��STA $4101�[��LDA $D00A�[��SEC�[��SBC #$40�[��CALCINLOPB CMP #$00\��BEQ CALC�IB\�PHA&\�JSR ADDITI�.\�PLA6\&�TAX>\0�DEXF\:�TXAY\D�JMP CALCINLOPBn\N�CALC�IB LDA #$11|\X�STA $4100�\b�LDA #$01�\l�STA $4102�\v�JSR EQUAL�\��LDA #$13�\��STA $4100�\��LDA #$1E�\��STA $4102�\��JSR EQUAL�\��LDA #$1F]��STA $4100]��LDA #$03]��STA $4101,]��LDA #$10:]��STA $4102K]��JSR SUBTRACTX]��LDA #$03f]�STA $4100t]�INC $4102�]�JSR EQUAL�] �LDA #$10�]*�STA $4100�]4�LDA #$12�]>�STA $4102�]H�LDA #$1A�]R�STA $4101�]\�JSR MULTIPLY�]f�LDA #$11�]p�STA $4100
^z�STA $4102^��LDA #$12(^��STA $41015^��LDA #$E5=^��SECK^��SBC $D00Da^��CALCINYA CMP #$00q^��BEQ CALC�ICy^��PHA�^��JSR ADDITI��^��PLA�^��TAX�^��DEX�^��TXA�^�JMP CALCINYA�^�CALC�IC LDA #$03�^�STA $4100�^$�LDA #$13�^.�STA $4102_8�JSR EQUAL_B�LDA #$13!_L�STA $4100/_V�STA $4102<_`�LDA #$12J_j�STA $4101W_t�LDA #$FA__~�SECm_��SBC $D009�_��CALCINYB CMP #$00�_��BEQ CALC�ID�_��PHA�_��JSR ADDITI��_��PLA�_��TAX�_��DEX�_��TXA�_��JMP CALCINYB�_��CALC�ID LDA #$11�_��STA $4100`�LDA #$03`
�STA $4102(`�JSR EQUAL5`�LDA #$13C`(�STA $4100P`2�LDA #$1F^`<�STA $4102l`F�JSR EQUAL`P�CALC� LDA #$1E�`Z�STA $4100�`d�LDA #$01�`n�STA $4101�`x�LDA #$10�`��STA $4102�`��JSR SUBTRACT�`��LDA #$10�`��STA $4100�`��LDA #$17
a��STA $4101a��LDA #$02%a��STA $41026a��JSR MULTIPLYCa��LDA #$1FQa��STA $4100^a��LDA #$03la��STA $4101ya�LDA #$10�a�STA $4102�a�JSR SUBTRACT�a"�LDA #$10�a,�STA $4100�a6�LDA #$1A�a@�STA $4101�aJ�LDA #$04�aT�STA $4102�a^�JSR MULTIPLYbh�JSR M�LEbr�JMP �ROLOP<b`�;                   ZOOM ROUTINESHbeꬲ$0820Wbj�BOX LDA XPdbt�STA XPIBob~�LDA YP|b��STA YPIB�b��LDA XPB�b��STA XPBIB�b��LDX #$3C�b��STX $07FC�b��INX�b��STX $07FD�b��INX�b��STX $07FE�b��INX�b��STX $07FF
c��LDA $D015
c�A #$F0c
�STA $D015.c�BOX� LDA CLICK;c�BNE BOX�Qcx�BOXLOOP LDA XPBIB]c��CMP XPBoc��BEQ CHECKFINE�c��BCS LESSTHAN�c��JMP M�ETHAN�c��CHECKFINE LDA XPIB�c��CMP XP�c��BCS LESSTHAN�c��M�ETHAN LDA XPIB�c��STA $D008�c��STA $D00C
d��LDX #$00d��LDA XPBIB d��BEQ NOXPBADD-d�LDX #$50Dd�NOXPBADD LDA $D010Od� #$AF[d"�STX $02cd,�CLCod6�ADC $02}d@�STA $D010�dE�LDX #$00�dJ�LDA XP�dT�SEC�d^�SBC #$18�dh�STA $D00A�dr�STA $D00E�d|�BCC MTSUB�d��LDX XPB�d��BEQ MTSUB�d��LDX #$A0e��MTSUB LDA $D010e�� #$5F&e��STX $02.e��CLC:e��ADC $02He��STA $D010Ue��JMP BOX�ie��LESSTHAN LDA XPue��LDX XPB�e��BNE �OUT�e�CMP #$58�e�BCS �OUT�e�LDA #$58�e&�OUT STA $D008�e0�STA $D00C�e:�CPX #$00�eD�BEQ LTNOADD�eN�LDX #$50
fX�LTNOADD LDA $D010fb� #$AF!fl�STX $02)fv�CLC5f��ADC $02Cf��STA $D010Pf��LDX #$00]f��LDA XPIBef��SECrf��SBC #$18�f��STA $D00A�f��STA $D00E�f��BCC LTSUB�f��LDX XPBIB�f��BEQ LTSUB�f��LDX #$A0�f��LTSUB LDA $D010�f�� #$5F�f�STX $02�f�CLCg�ADC $02g �STA $D010"g*�BOX� LDA YP/g4�CMP YPIB=g>�BCC LESSYJgH�LDA YPIBXgR�STA $D009fg\�STA $D00Bqgf�LDA YPygp�SEC�gz�SBC #$15�g��STA $D00D�g��STA $D00F�g��JMP BOX�II�g��LESSY LDA YP�g��STA $D009�g��STA $D00B�g��LDA YPIB�g��SECh��SBC #$15h��STA $D00Dh��STA $D00F1h��BOX�II LDA CLICK>h��BNE BOX�Nh�JMP BOXLOOPbh�BOX� JMP �ROLOPwh0�BOXFLASH LDA $A2�h:� #$3C�hD�LSR A�hN�LSR A�hX�TAX�hb�LDA BOXCOLS,X�hl�STA $D02B�hv�STA $D02C�h��STA $D02D�h��STA $D02E�h��JMP $EA31i��BOXCOLS TXT 0,9,2,8,10,7,13,12i��TXT 1,13,3,5,14,4,6,0Gi�; DELETE THESE!!^iT�ZOOMOUT JMP �ROLOPvi|�CHN "MANDELCODE2.1"

QHJ@;mandelplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$1000@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@2I.@col0.$410f@aI.@col1.$4110@pI.@col2.$4111@.I.@col3.$4112@OI.@col0s.$4113@.I.@col1s.$4114@.I.@col2s.$4115@.I.@col3s.$4116@.I.@.time.$4117@.I.@speed.$4118@.I.@negreg.$4119@.IXA;                      rom routines@IJ"Aoutdo .$ab47@XJ#A.lfs.$ffba@'J$A.nam.$ffbd@6J%A.rom.$ffd8@iJ&Aplotrrom.$e56c@LJP';           main .rol routines@YJZ'jsr init@.J$'comeback jsr hires.@.J.'.rolop lda click@.J8'bne .rolop@.Jb'.lopb lda click@.Jl'beq .lopb@.Jv'lda xp@.J.'cmp #$58@.JJ'bcc ..@FKT'jmp box@TK.'.. lda yp@!K.'cmp #$5a@0K.'bcc .rolop@8K.'sec@eK.'sbc #$5a@oK.'lsr a@yK.'lsr a@DK.'. #$fe@LK.'tax@.K.'lda vec.rs,x@.K.'sta $fb@.K.'inx@.K.'lda vec.rs,x@.K.'sta $fc@.K.'jmp ($00fb)@.K@(vec.rs txt .zoomout,.zoomout,..rolop,..rolop,.zoomin,.zoomin@5LJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@ILT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@.L.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@.L((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@MM2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@eM<(txt ..rolop,..rolop,..rolop,..rolop,..rolop,..rolop@[MD)exit jsr hiresoff@HMN)lda #$93@VMX)jsr outdo@.M")lda #$05@.M,)jsr outdo@.M6)lda #$00@.M@)sta $c6@.Mj)rts@.M..;                   wimp routines@.M..; wimp - mouse@.M..irq lda #$00@JNH/sta click@VNR/lda $c5@#N£/cmp #$01@3N&/bne c.check@aN0/sta click@vN:/c.check cmp #$0c@DNd/beq leftk@UNn/lkc cmp #$17@.Nx/beq rightk@.NB/rkc cmp #$32@.NL/beq upk@.NV/upkc cmp #$37@.N./beq downk@.N./dkc lda $dc00@.N./. #$01@.N./beq upj@.N./ujc lda $dc00@GO./. #$02@UO./beq downj@'O./djc lda $dc00@2O./. #$04@@O./beq leftj@rO./ljc lda $dc00@]O./. #$08@LOB0beq rightj@.OL0rjc lda $dc00@.OV0. #$10@.O 0e. #$10@.O*0beq cjch@.O40sta click@.O>0cjch jmp boxflash@.Oh0leftk jsr left@.Or0jmp lkc@.O£0rightk jsr right@FPF0jmp rkc@UPP0upk jsr up@"PZ0jmp upkc@5P.0downk jsr down@aP.0jmp dkc@pP.0upj jsr up@£P.0jmp ujc@OP.0downj jsr down@.P.0jmp djc@.P.0leftj jsr left@.P.0jmp ljc@.P.0rightj jsr right@.P.0jmp rjc@.P.0left dec xp@.P.0lda xp@.P.0cmp #$ff@.PF1bne .ff@.PP1ldy #$00@HQZ1sty xpb@XQ$1.ff ldy xpb@$Q.1bne fin@1Q81cmp #$18@=Qb1bne fin@hQl1inc xp@yQv1fin jmp .rol@JQ.1right inc xp@UQJ1lda xp@.QT1bne .00@.Q.1ldy #$01@.Q.1sty xpb@.Q.1.00 ldy xpb@.Q.1beq fin@.Q.1cmp #$58@.Q.1bne fin@.Q.1dec xp@.Q.1jmp .rol@.Q.1up dec yp@@R.1lda yp@MR.1cmp #$32@YR.1bne fin@$R.1inc yp@1R@2jmp .rol@aRJ2down inc yp@lRT2lda yp@yR.2cmp #$f8@ER(2bne fin@PR22dec yp@.R<2jmp .rol@.Rf2; wimp . po.er@.Rp2.rol lda hour@.Rz2beq nhglass@.R.3ldx #$3a@.R.3stx $07f8@.R.3inx@.R.3stx $07f9@.R.3nhglass lda xp@DS.3sta $d000@RS.3sta $d002@]S.3lda yp@+S.3sta $d001@9S.3sta $d003@gS.3lda $d010@rSH4. #$fc@£SR4lsr a@DS£4clc@PS&4adc xpb@ZS04asl a@.S:4clc@.Sd4adc xpb@.Sn4sta $d010@.Sx4lda #$00@.SB4sta $d027@.SL4lda #$01@.SV4sta $d028@.S.4lda $d015@.S.4.a #$03@.S.4sta $d015@GT.4lda hour@TT.4bne qtro@!T.4ldx #$38@/T.4stx $07f8@7T.4inx@eT.4stx $07f9@rT.4qtro rts@IT.4; startup routines@.T.4init lda #$00@.T.4sta $d020@.TB5sta $d021@.TL5sta xp@.TV5sta hour@.T 5sta $d015@.T*5lda #$01@.T45sta xpb@.T>5lda #$80@.Th5sta yp@BUr5hires. lda #$3b@PU£5sta $d011@]UF5lda #$d8@+UP5sta $d016@9UZ5lda col0s@fU.5sta col0@tU.5lda col1s@AU.5sta col1@OU.5lda col2s@.U.5sta col2@.U.5lda col3s@.U.5sta col3@.U.5jsr .cols@.UF6jsr left@.UP6sei@.UZ6lda #.irq@.U$6sta $0314@.U.6lda #.irq@.U86sta $0315@.Ub6cli@GV.6lda #$18@UV.6sta $d018@]V4:rts@.Vr:hiresoff sei@;V£:lda #$31@iVF:sta $0314@vVP:lda #$ea@DVZ:sta $0315@LV.:cli@YV.:lda #$00@.V.:sta $d015@.V.:lda #$9b@.V.:sta $d011@.V.:lda #$c8@.V.:sta $d016@.V.:lda #$15@.V.:sta $d018@.V.:rts@.V n. jsr hiresoff@@W*nlda #$1c@NW4njsr outdo@[W>nlda #$93@)Whnjsr outdo@6Wrnlda #$00@dW£n.loop pha@nWFnasl a@xWPnasl a@.WZnclc@MW.nadc #$42@YW.nsta $fc@.W.nldy #$00@.W.nsty $fb@.W.nsty $fd@.W.nlda #$04@.W.nsta $fe@.W.n.loopb lda ($fb),y@.W.nsta ($fd),y@.W.niny@.W.nbne .loopb@AX.ninc $fc@MX.ninc $fe@YXFolda $fe@&XPocmp #$08@5XZobne .loopb@dX$o.. lda $c5@qX.ocmp #$40@£X8obne ..@LXbo..b lda $c5@YXlocmp #$40@.Xvobeq ..b@.X.otax@.XJopla@.XTocpx #$01@.X.obeq hnom.e@.X.ocpx #$28@.X.obeq .@.X.ocpx #$2b@.X.obeq prev@.X.o.ret pha@.X.ojmp ..b@SY.ohnom.e jmp comeback@"Y.o. cmp #$04@/Y.obeq .ret@7Y.oclc@dY.oadc #$01@rY.ojmp .loop@DY@pprev cmp #$00@QYJpbeq .ret@YYTpsec@.Y.psbc #$01@.Y(pjmp .loop@.Y.A;                   save routines@.Y.A.ame txt 147,5@.Y.Atxt "filename:",0@JZ.A.rd txt 13,13,"(t)ape or (d)isk",0@8Z.A.t txt 13,13,"position tape <space>",13,0@FZ.Ainsd txt 13,13,"insert disk <space>",13,0@.Z.Apstring ldy #$00@.Z.Apstrlop lda ($fb),y@.Z.Abeq pstrquit@.ZBBjsr outdo@.ZGBiny@.ZLBjmp pstrlop@.ZVBpstrquit rts@.Z B.off lda $040a,y@.Z*Be. #$80@L[4Bsta $040a,y@T[>Brts@#[hB.. lda $c5@0[rBcmp #$40@;[£Bbne ..@k[FB..b lda $c5@x[PBcmp #$40@D[ZBbeq ..b@L[.Btax@Y[.Blda ..,x@.[.Bbeq ..@.[.Brts@.[.B. jsr hiresoff@.[.Bldx #$00@.[.Blda #$20@.[.B.ame. sta $41f0,x@.[.Binx@.[.Bcpx #$10@.[.Bbne .ame.@A£.Blda #..ame@M£.Bsta $fb@££FClda #..ame@(£PCsta $fc@8£ZCjsr pstring@e£$Clda #$00@m£.Cpha@[£8C.loop tay@H£=Cjsr .off@S£bCjsr ..@.£gCpha@.£lCjsr .off@.£qCpla@.£vCcmp #$80@.£.Cbcs decode@.£JCtay@.£TCpla@.£.Ctax@.£.Ctya@.£.Csta $040a,x@.£.Ccmp #$20@.£.Cbcs nospc@.£.Cclc@L].Cadc #$40@"].Cnospc sta $41f0,x@4].Cinc. cpx #$0f@c].Cbeq .relop@k].Cinx@z].C.relop txa@B].Cpha@P].Cjmp .loop@.]@Ddecode cmp #$80@.]JDbeq ..@.]TDcmp #$81@.].Dbeq .@.](Dcmp #$82@.]2Dbne .loop@.]<Dpla@.]fDtax@.]pDlda $028d@.]zD. #$01@.]DDbeq inc.@I.NDdec. cpx #$00@X.XDbeq .relop@ ..Ddex@/..Djmp .relop@9..D. pla@a..Dtax@n..Dlda #$20@...Dsta $040a,x@N..Dsta $41f0,x@...Djmp dec.@...D.. pla@...Dlda #..rd@...Dsta $fb@...Dlda #..rd@...Dsta $fc@...Djsr pstring@..DE. jsr ..@..NEcmp #$14@..XEbeq tape.@.."Ecmp #$04@M.,Ebeq disk.@W.6Ejmp .@*.@Etape. lda #..t@6.jEsta $fb@c.tElda #..t@o..Esta $fc@..HEjsr pstring@L.REldx #$01@Z..Ejmp tape.@...Edisk. lda #.insd@...Esta $fb@...Elda #.insd@...Esta $fc@...Ejsr pstring@...Eldx #$08@...Etape. lda $c5@...Ecmp #$3c@@ .Ebne tape.@M .Elda #$01@U .Etay@" .Ejsr .lfs@/ .Eldx #$10@e HF.ame. lda $41ef,x@r RFcmp #$20@A £Fbne .ame.t@I &Fdex@X 0Fbeq .ame.t@. :Fjmp .ame.@. dF.ame.t txa@. nFldx #$f0@. BFldy #$41@. LFjsr .nam@. VFlda #$20@. .Fsta $fc@. .Fldx #$00@. .Fsta $fb@. .Fldy #$40@H!.Flda #$fb@U!.Fjsr .rom@&!.Fjmp comeback@l!XI;           keyboard decode table@r!.I;@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,10@.!.Itxt 48,13,11,15,14,43,16,12,45,46@.".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@K":Um.le sei@X"<Ulda #$01@."=Usta hour@.">Ujsr left@."?Ulda #$00@."dUsta ypixel@."nUlda #$03@."xUsta $4100@."BUlda #$06@."LUsta $4102@."VUjsr equal@F#.Ummainl lda #$00@U#.Usta xpixel@"#.Ulda #$01@0#.Usta $4100@=#.Ulda #$05@k#.Usta $4102@y#.Ujsr equal@N#.Ummainlb lda #$05@.#.Usta $4100@.#.Ulda #$07@.#.Usta $4102@.#.Ujsr equal@.#.Uinc $4100@.#BVinc $4102@.#LVjsr equal@.#VVlda #$00@.# Vsta colour@.#*Vloop lda #$07@K$4Vsta $4100@Y$>Vsta $4101@&$hVlda #$10@4$rVsta $4102@e$£Vjsr multiply@r$FVlda #$08@.$PVsta $4100@N$ZVsta $4101@.$.Vlda #$11@.$.Vsta $4102@.$.Vjsr multiply@.$.Vldx #$10@.$.Vstx $4100@.$.Vinx@.$.Vstx $4101@.$.Vinx@.$.Vstx $4102@.$.Vjsr additi.@.$.Vlda $4091@L%.Vcmp #$04@Y%.Vbcc fail@&%FWcmp #$50@3%PWbcs fail@k%ZWsucpass jmp success@.%$Wfail inc colour@N%)Wlda colour@.%.Wcmp maxcol@.%8Wbeq sucpass@.%bWjsr subtract@.%lWlda #$12@.%vWsta $4100@.%.Wlda #$05@.%JWsta $4101@.%TWlda #$13@.%.Wsta $4102@.%.Wjsr additi.@L&.Wlda #$07@Z&.Wsta $4100@'&.Wlda #$08@5&.Wsta $4101@c&.Winc $4102@t&.Wjsr multiply@A&.Wlda #$14@O&.Wsta $4100@.&.Wlda #$1c@.&.Wsta $4101@.&.Wlda #$15@.&@Xsta $4102@.&JXjsr multiply@.&TXlda #$15@.&.Xsta $4100@.&(Xlda #$06@.&2Xsta $4101@.&<Xlda #$16@G'fXsta $4102@W'pXjsr additi.@$'zXlda #$13@2'DXsta $4100@?'NXlda #$07@m'XXsta $4102@['.Xjsr equal@H'.Xlda #$16@V'.Xsta $4100@.'.Xlda #$08@.'.Xsta $4102@.'.Xjsr equal@.'.Xjmp loop@.'.Xsuccess jsr plot@.'.Xlda #$05@.'.Xsta $4100@.'.Xsta $4102@.'.Xlda #$02@E(.Xsta $4101@U(DYjsr additi.@$(NYlda xpixel@3(XYbne xrelop@@("Ylda #$06@n(,Ysta $4100@£(6Ysta $4102@I(@Ylda #$04@W(jYsta $4101@.(tYjsr additi.@.(.Yinc ypixel@.(HYlda ypixel@.(RYcmp #$c8@.(.Ybne yrelop@.(.Ylda #$00@.(.Ysta hour@.(.Yjsr right@.(.Ycli@.(.Yrts@P).Yxrelop jmp mmainlb@&).Yyrelop jmp mmainl@:).Ym.plot jsr m.le@i).Yjmp .rolop@O)..;                 colour routines@.)...cols lda col0@.)..sta $d021@.)..ldy #$00@.)..sty $fb@.)..lda #$d8@.)..sta $fc@.)..lda col3@.)H..clopa sta ($fb),y@.)R.iny@.)£.bne .clopa@I*&.inc $fc@U*0.ldx $fc@"*:.cpx #$dc@1*d.bne .clopa@>*n.lda #$04@j*x.sta $fc@w*B.lda col1@A*L.asl a@K*V.asl a@U*..asl a@.*..asl a@.*...a col2@.*...clopb sta ($fb),y@.*..iny@.*..beq .clopc@.*..cpy #$f8@.*..bne .clopb@.*..ldx $fc@.*..cpx #$07@.*..bne .clopb@E+..rts@X+...clopc inc $fc@'+B.jmp .clopb@;+L.colc. lda .time@c+V.clc@q+ .adc speed@.+*.sta .time@S+4.colclop cmp $a2@.+>.bne colclop@.+h.rts@.+r.colc.s lda $c5@.+£.cmp #$28@.+F.beq spup@.+P.cmp #$2b@.+Z.beq sldn@.+..cmp #$01@.+..beq colcoff@.+..no. rts@K,..colcoff pla@S,..pla@$,..jmp comeback@7,..spup lda speed@d,..cmp #$03@p,..beq no.@.,..dec speed@F,..rts@Y,..sldn lda speed@.,..cmp #$19@.,..beq no.@.,F.inc speed@.,P.rts@.,Z.colcycle lda #$0a@.,$.sta speed@.,..lda $a2@.,8.sta .time@.,b.colcyclop lda col0s@K-l.sta col0@Y-v.lda col1s@&-..sta col1@4-J.lda col2s@a-T.sta col2@o-..lda col3s@£-..sta col3@J-..jsr .cols@Y-..jsr colc.s@.-..jsr colc.@.-..lda col3s@.-..sta col0@.-..lda col0s@.-..sta col1@.-..lda col1s@.-..sta col2@.-..lda col2s@.-..sta col3@A.@.jsr .cols@P.J.jsr colc.s@..T.jsr colc.@,...lda col2s@9.(.sta col0@g.2.lda col3s@t.<.sta col1@B.f.lda col0s@O.p.sta col2@..z.lda col1s@..D.sta col3@..N.jsr .cols@..X.jsr colc.s@....jsr colc.@....lda col1s@....sta col0@....lda col2s@....sta col1@....lda col3s@F/..sta col2@T/..lda col0s@!/..sta col3@//..jsr .cols@>/..jsr colc.s@l/..jsr colc.@./..jmp colcyclop@S/D.iter. lda maxcol@./N.. #$f0@./X.lsr a@./".lsr a@./,.lsr a@./6.lsr a@./@.cmp #$0a@./j.bcc itadd@./t.sec@./..sbc #$3a@./H.itadd clc@./R.adc #$30@./..sta $0505@N0..lda maxcol@Y0... #$0f@&0..cmp #$0a@60..bcc noaddit@>0..sec@k0..sbc #$3a@[0..noaddit clc@H0..adc #$30@V0..sta $0506@.0..rts@.0..coltext txt 147,5,"............",13@.0..txt ".R ...R ...R ...R .. <- screen colours",13@.0..txt "............",13@S1H.txt " 1  2  3  4",13,13,13@71R.txt "maximum iterations: $$$",0@m1£.cols jsr hiresoff@.1&.lda #.coltext@K10.sta $fb@.1:.lda #.coltext@.1d.sta $fc@.1n.jsr pstring@.1x.lda col0s@.1B.sta $d829@.1L.lda col1s@.1V.sta $d82c@.1..lda col2s@.1..sta $d82f@.1..lda col3s@I2..sta $d832@W2..jsr iter.@+2..colloopk jsr ..@82..cmp #$80@h2..beq colquit@u2..cmp #$31@E2..beq col1add@R2..cmp #$32@.2..beq col2add@.2..cmp #$33@.2B.beq col3add@.2L.cmp #$34@.2V.beq col4add@.2 .cmp #$2b@.2*.beq iterplus@.24.cmp #$2d@.2>.bne colloopk@G3h.dec maxcol@U3r.jsr iter.@&3£.jmp colloopk@>3F.iterplus inc maxcol@l3P.jsr iter.@]3Z.jmp colloopk@V3..colquit jmp comeback@.3..col1add inc col0s@.3..lda col0s@.3... #$0f@.3..sta col0s@.3..sta $d829@.3..jmp colloopk@.3..col2add inc col1s@.3..lda col1s@A4... #$0f@O4..sta col1s@]4..sta $d82c@.4..jmp colloopk@d4F.col3add inc col2s@r4P.lda col2s@]4Z.. #$0f@K4$.sta col2s@Y4..sta $d82f@.48.jmp colloopk@.4b.col4add inc col3s@.4l.lda col3s@.4v.. #$0f@.4..sta col3s@.4J.sta $d832@.4T.jmp colloopk@L5@.;             arithmetic routines@[5j..digit cld@%5t.asl a@/5..asl a@95H.asl a@e5R.sta $02@m5..txa@w5..lsr a@C5..sta $24@P5..lda #$07@X5..sec@.5..sbc $24@.5..clc@.5..adc $02@.5..tay@.5..lda $4000,y@.5..tay@.5..txa@.5... #$01@.5..beq lsngd@.5H.tya@.5R.. #$f0@.5£.lsr a@@6&.lsr a@J60.lsr a@T6:.lsr a@£6d.rts@*6n.lsngd tya@56x.. #$0f@=6B.rts@x6L.multiplyb jsr negative@F6Q.lda $4102@P6V.asl a@Z6..asl a@.6..asl a@.6..tax@.6..lda #$00@.6..tay@.6..mlopa sta $4000,x@.6..iny@.6..inx@.6..cpy #$08@.6..bne mlopa@.6..lda #$06@.6..sta $fc@P7...digit lda $4101@£7B.ldx $fc@+7L.jsr .digit@87V.cmp #$00@h7 .beq dmoverb@t7*.sta $fd@A74.lda #$06@M7>.sta $fb@.7h.dmlop lda $4100@.7r.ldx $fb@.7£.jsr .digit@.7F.cmp #$00@.7P.beq dmover@.7Z.asl a@.7..asl a@.7..asl a@.7..asl a@.7..clc@.7..adc $fd@.7..tay@I8..lda m.,y@U8..sta $35@ 8... #$0f@(8..tay@48..lda $fb@<8..clc@h8..adc $fc@p8F.sec@]8P.sbc #$0c@E8Z.tax@P8$.. #$01@.8..beq mskip@.88.tya@.8b.asl a@.8l.asl a@.8v.asl a@.8..asl a@.8J.tay@.8T.lda $35@.8... #$f0@.8..lsr a@.8..lsr a@.8..lsr a@.8..lsr a@A9..sta $35@L9..jmp m.@#9..dmoverb jmp dmover@59..mskip ldy $35@b9..lda #$00@n9..sta $35@y9..m. txa@C9..lsr a@O9..sta $02@.9..lda #$07@.9..sec@.9..sbc $02@.9..sta $02@.9..lda $4102@.9..asl a@.9..asl a@.9..asl a@.9..adc $02@.9..sty $25@.9..tay@.9..sed@@:..lda $4000,y@H:..clc@T:..adc $25@$:..sta $4000,y@,:@.cld@4:B.dey@<:D.sed@l:F.lda $4000,y@x:H.adc $35@H:J.sta $4000,y@P:L.cld@.:N.malp bcc dmover@.:P.dey@.:R.sed@.:T.lda $4000,y@.:V.adc #$00@.:X.sta $4000,y@.:Z.cld@.:£.jmp malp@.:z.dmover inc $fb@.:D.lda $fb@B;N.cmp #$0e@Q;X.bcc dmlopb@];..inc $fc@);..lda $fc@6;..cmp #$0e@f;..bcc .digitb@s;..lda ypib@.;..beq quit@N;..lda $4102@.;..sta $4101@.;..lda #$1d@.;..sta $4100@.;..jsr subtract@.;..quit rts@.;..dmlopb jmp dmlop@.;D..digitb jmp .digit@.;".msup lda $4100@.;,.asl a@H<6.asl a@R<@.asl a@Z<j.tax@"<t.dex@.<..stx $fb@<<H.lda $4101@f<R.asl a@p<..asl a@z<..asl a@B<..tax@J<..dex@V<..stx $fd@.<..lda $4102@.<..asl a@.<..asl a@.<..asl a@.<..tax@.<..dex@.<..stx $22@.<..lda #$40@.<..sta $fc@.<H.sta $fe@.<R.sta $23@.<£.rts@J=&.equal jsr msup@W=0.ldy #$08@,=:.elop lda ($fb),y@<=d.sta ($22),y@d=n.dey@q=x.bne elop@y=B.rts@N=L.additi. jsr msup@.=V.ldy #$08@.=..sed@.=..clc@.=..adlop lda ($fb),y@.=..adc ($fd),y@.=..sta ($22),y@.=..dey@.=..bne adlop@.=..cld@.=..rts@.=..subtract jsr msup@J>..ldy #$08@R>..sed@Z>..sec@0>B.sulop lda ($fb),y@@>L.sbc ($fd),y@p>V.sta ($22),y@x> .dey@F>*.bne sulop@N>4.cld@V>>.rts@.>h.negative lda #$00@.>r.pha@.>£.lda $4100@.>F.tay@.>P.asl a@.>Z.asl a@.>..asl a@.>..tax@.>..lda $4001,x@.>..cmp #$50@@?..bcc negrmoveab@H?..pla@U?..adc #$00@]?..pha@/?..jmp negrmovea@h?..negrmoveab lda $4101@p?..tay@z?..asl a@D?..asl a@N?..asl a@V?F.tax@.?P.lda $4001,x@.?Z.cmp #$50@.?$.pla@.?..bcc noe.@.?8.e. #$01@.?b.pha@.?l.bcs negrmoveb@.?v.negrmovebb pla@.?..noe. sta ypib@.?J.rts@R@T.negrmove lda $4100@Z@..pha@(@..lda $4101@0@..pha@>@..lda $4102@f@..pha@n@..tya@£@..sta $4101@J@..sta $4102@W@..lda #$1d@.@..sta $4100@.@..jsr subtract@.@..pla@.@..sta $4102@.@@.pla@.@J.sta $4101@.@T.pla@.@..sta $4100@.@(.rts@.@2.negrmovea jsr negrmove@Na<.jmp negrmoveab@)af.negrmoveb jsr negrmove@<ap.jmp negrmovebb@saz.multiply lda $4102@[aD.pha@IaN.lda $4101@QaX.pha@.a..lda #$18@.a..sta $4102@.a..jsr equal@.a..inc $4102@.a..pla@.a..sta $4100@.a..jsr equal@.a..lda #$18@.a..sta $4100@.a..lda #$19@Bb..sta $4101@Jb..pla@Xb..sta $4102@*bD.jmp multiplyb@pb..;           multiplication tables@vb..;@.b..m. txt 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@.b..txt 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0@.b..txt 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0@Oc..txt 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0@ec..txt 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0@.c..txt 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0@.c..txt 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0@.c..txt 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0@%d..txt 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0@]d..txt 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0@.d..;                        .iti.@.d...text txt 147,5,"            p o s i t i o n",13,13,13,"xmin:",13@.d..txt "xmax:",13,"ymin:",13,"ymax:",0@.d..pno pha@De..asl a@Ne..asl a@Xe..asl a@ e..tax@0e@.lda $4001,x@=eJ.cmp #$50@leT.bcs pnover@ye..lda #$2b@Ge(.jsr outdo@Te*.lda #$00@.e,.sta negreg@.e2.jmp pn.@.e<.pnover lda #$2d@.ef.jsr outdo@.eg.lda #$01@.eh.sta negreg@.ei.pla@.ej.pha@.ek.sta $4101@.el.sta $4102@Ffm.lda #$1d@Tfn.sta $4100@%fo.jsr subtract@6fp.pn. ldx #$0c@gfz.pncb stx $22@ofD.pla@wfN.pha@FfX.jsr .digit@Nf..clc@.f..adc #$30@.f..jsr outdo@.f..ldx $22@.f..beq pndq@.f..cpx #$0c@.f..beq pndot@.f..dex@.f..jmp pncb@.f..pndot lda #$2e@.f..jsr outdo@.f..dex@Hg..jmp pncb@UgD.pndq pla@$gE.ldx negreg@3gF.beq nogreg@agG.sta $4101@ogH.sta $4102@£gI.lda #$1d@JgJ.sta $4100@.gK.jsr subtract@.gN.nogreg rts@.gX..iti. jsr hiresoff@.g".lda #..text@.g,.sta $fb@.g6.lda #..text@.g@.sta $fc@.gj.jsr pstring@.gt.lda #$07@Bh..sta $d3@OhH.lda #$03@[hR.sta $d6@,h..jsr plotrrom@9h..lda #$01@eh..jsr pno@rh..lda #$07@.h..sta $d3@Kh..lda #$04@Wh..sta $d6@.h..jsr plotrrom@.h..lda #$1e@.h..jsr pno@.h..lda #$07@.h..sta $d3@.h..lda #$05@.h..sta $d6@.hH.jsr plotrrom@.hR.lda #$03@.h£.jsr pno@Ji&.lda #$07@Vi0.sta $d3@#i5.lda #$06@/i:.sta $d6@@id.jsr plotrrom@min.lda #$1f@yix.jsr pno@FiB.ldx #$01@SiL.ldy #$00@.iQ.jsr ..off@.iV..lop txa@.i..pha@.i...lopb jsr ..@.i..cmp #$2b@.i..beq .i.@.i..cmp #$2d@.i..beq .ineg@.i..cmp #$82@.i..beq x.move@Dj..cmp #$83@Sj..beq y.move@ j..cmp #$80@/j..beq .calct@<j..cmp #$30@jjB.bcc .lopb@wjL.cmp #$3a@EjV.bcs .lopb@Qj[.sta $23@Yj .pla@.j%.pha@.j*.tax@.j4.jsr .memad@.j>.stx $22@.jh.tax@.jr.lda $23@.j£.e. #$80@.jF.sta $047f,x@.jP.jmp .right@.jZ..calct jmp .calc@Ik...i. ldx #$00@Xk..jsr .memad@ k..tax@-k..lda #$2b@=k..sta $047f,x@kk..jmp .lopb@.k...ineg ldx #$00@Mk..jsr .memad@Uk..tax@.k..lda #$2d@.k..sta $047f,x@.kF.jmp .lopb@.kP.x.move lda $028d@.kZ.. #$01@.k$.beq .right@.k..pla@.k8.tax@.k=.cpx #$01@.kb.beq .lop@Mll.lmiss jsr ..off@Ulv.dex@#l..jsr ..off@0lB.cpx #$02@>lD.beq lmiss@klJ.jmp .lop@zlT..right pla@Bl..tax@Ol..cpx #$0e@.l..beq .lop@.l..rmiss jsr ..off@.l..inx@.l..jsr ..off@.l..cpx #$02@.l..beq rmiss@.l..jmp .lop@.l..y.move pla@.l..tax@.l..lda $028d@.l... #$01@Lm..beq .down@Ym..cpy #$00@'m..beq .lopt@5m..jsr ..off@=m@.dey@kmJ.jsr ..off@ymT.jmp .lopt@Lm...down cpy #$03@Zm(.beq .lopt@.m2.jsr ..off@.m<.iny@.mf.jsr ..off@.mp.jmp .lopt@.mz..lopt jmp .lop@.m...sure txt 13,13,"reposition: are you sure (y/n)",0@Dn...calc pla@Ln..tax@Zn..jsr ..off@*n..lda #..sure@6n..sta $fb@fn..lda #..sure@rn..sta $fc@Bn..jsr pstring@Un..surelop jsr ..@.n..cmp #$19@.n..beq ..@.n..cmp #$0e@.n..beq no.@.n..jmp surelop@.n..no. jmp comeback@.n.... lda #$80@.nB.sta $fb@.nL.lda #$04@@oV.sta $fc@Mo .lda #$01@Zo*.jsr .var@'o4.lda #$a8@3o>.sta $fb@@oa.lda #$04@lod.sta $fc@yoh.lda #$1e@For.jsr .var@So£.lda #$d0@.oF.sta $fb@.oI.lda #$04@.oL.sta $fc@.oP.lda #$03@.oZ.jsr .var@.o..lda #$f8@.o..sta $fb@.o..lda #$04@.o..sta $fc@.o..lda #$1f@.o..jsr .var@Mp..jsr hires.@[p..jmp calc.@,pT..var sta $23@6pY.asl a@@p..asl a@jp..asl a@vp..sta $fd@Cp..lda #$40@Op..sta $fe@.p..lda #$00@.p..tax@.p..tay@.p..sta ($fd),y@.p..iny@.p..tya@.p..pha@.p..txa@.p@.tay@.pJ.lda ($fb),y@.pT.sta $22@.p..tya@.p(.tax@.p2.pla@@q<.tay@Lqf.lda $22@Tqp.sec@!qz.sbc #$30@1qD.sta ($fd),y@9qN.iny@aqX.inx@iq..inx@wq...vlop tya@.q..pha@Gq..txa@Oq..tay@.q..lda ($fb),y@.q..sec@.q..sbc #$30@.q..asl a@.q..asl a@.q..asl a@.q..asl a@.q..iny@.qD.clc@.qN.adc ($fb),y@.qX.sec@.q".sbc #$30@.q,.iny@Er6.sta $22@Mr@.tya@Urj.tax@]rt.pla@%r..tay@1rH.lda $22@arR.sta ($fd),y@ir..iny@vr..cpy #$08@Dr..bne .vlop@Pr..dec $fb@.r..ldy #$00@.r..lda ($fb),y@.r..cmp #$2d@.r..beq makeneg@.r..rts@.r..makeneg lda $23@.r..sta $4101@.r..sta $4102@.r..lda #$1d@.r..sta $4100@NsH.jmp subtract@]s£..memad tya@'sP.asl a@1sZ.asl a@;s..asl a@gs..sta $22@qs..asl a@[s..asl a@Cs..clc@Os..adc $22@.s..stx $22@.s..adc $22@.s..cmp #$c8@.s..bcc gmmquit@.s..clc@.s..adc #$28@.s..gmmquit rts@.s$...off jsr .memad@.s..sta $22@.s8.txa@.sb.pha@Ftl.ldx $22@Vtv.lda $047f,x@"t..e. #$80@2tJ.sta $047f,x@:tT.pla@bt..tax@jt..rts@Ntp.;           graphic po. plotter@.tz.plotpc lda #$47@.tD.sta $fb@.tN.lda #$3f@.tX.sta $fc@.t..lda ypixel@.t..lsr a@.t..lsr a@.t..lsr a@.t..sta ypib@.t... #$03@.t..asl a@@u..asl a@Ju..asl a@Tu..asl a@.u..asl a@(u..asl a@4u..sta $02@@uD.lda $fb@huN.sec@tuX.sbc $02@.u".sta $fb@Lu,.lda $fc@Yu6.sbc #$00@.u;.sbc ypib@.u@.pha@.uj.lda ypib@.ut.lsr a@.u..lsr a@.uH.sta $02@.uR.pla@.u..sec@.u..sbc $02@.u..sta $fc@.u..lda ypixel@.u... #$07@Jv..sta ypib@Vv..lda $fb@.v..sec@+v..sbc ypib@3v..pha@bv..lda xpixel@mv... #$f8@zv..sta ypib@Bv..pla@JvH.clc@WvR.adc ypib@.v£.sta $fb@.v&.lda $fc@.v0.sbc #$00@.v:.sta $fc@.vd.lda xpixel@.vn.. #$07@.vx.tax@.vB.lda #$80@.vL.gbitlp cpx #$00@.vV.beq pp.@Aw..lsr a@Iw..dex@Xw..jmp gbitlp@(w..pp. sta $fd@0w..rts@ew..plo.n jsr plotpc@rw..ldy #$00@Bw..lda ($fb),y@Mw...a $fd@.w..sta ($fb),y@.w..rts@.w..plo.ff jsr plotpc@.w..lda $fd@.wB.e. #$ff@.wL.sta $fd@.wV.ldy #$00@.w .lda ($fb),y@.w*.. $fd@.w4.sta ($fb),y@.w>.rts@Rxh.plot lda colour@]xr.. #$02@*x£.bne ppa.@9xF.jsr plo.ff@hxP.jmp ppacnt@[xZ.ppa. jsr plo.n@Qx..ppacnt inc xpixel@.x..lda colour@.x... #$01@.x..bne ppb.@.x..jsr plo.ff@.x..jmp ppbcnt@.x..ppb. jsr plo.n@.x..ppbcnt inc xpixel@.x..rts@Ly..;       zoom calculati. routines@"y..nozoom jmp .rolop@7y..zoomin lda $d015@by... #$f0@oy@.cmp #$f0@.yJ.bne nozoom@KyT.lda #$1e@Yy..sta $4100@.y(.lda #$01@.y2.sta $4101@.y<.lda #$10@.yf.sta $4102@.yp.jsr subtract@.yz.lda #$01@.yD.sta $4100@.yN.inc $4102@.yX.jsr equal@Dz..lda #$10@Rz..sta $4100@.z..lda #$1b@-z..sta $4101@:z..lda #$12@hz..sta $4102@yz..jsr multiply@Fz..lda #$11@Tz..sta $4100@.z..sta $4102@.z..lda #$12@.z..sta $4101@.z..lda $d008@.zD.sec@.zN.sbc #$58@.zX.calcinlopa cmp #$00@.z".beq calc.ia@.z,.pha@@[6.jsr additi.@H[@.pla@P[j.tax@X[t.dex@ [..txa@3[H.jmp calcinlopa@h[R.calc.ia lda #$01@v[..sta $4100@C[..lda #$13@Q[..sta $4102@.[..jsr equal@.[..lda #$13@.[..sta $4100@.[..sta $4102@.[..lda #$12@.[..sta $4101@.[..lda $d00a@.[..sec@.[..sbc #$40@.[..calcinlopb cmp #$00@N£..beq calc.ib@V£H.pha@&£R.jsr additi.@.££.pla@6£&.tax@>£0.dex@f£:.txa@y£d.jmp calcinlopb@N£n.calc.ib lda #$11@.£x.sta $4100@.£B.lda #$01@.£L.sta $4102@.£V.jsr equal@.£..lda #$13@.£..sta $4100@.£..lda #$1e@.£..sta $4102@.£..jsr equal@.£..lda #$1f@D]..sta $4100@Q]..lda #$03@.]..sta $4101@,]..lda #$10@:]..sta $4102@k]..jsr subtract@x]..lda #$03@F]B.sta $4100@T]L.inc $4102@.]V.jsr equal@.] .lda #$10@.]*.sta $4100@.]4.lda #$12@.]>.sta $4102@.]h.lda #$1a@.]r.sta $4101@.]£.jsr multiply@.]F.lda #$11@.]P.sta $4100@M.Z.sta $4102@Z...lda #$12@(...sta $4101@5...lda #$e5@=...sec@k...sbc $d00d@A...calcinya cmp #$00@Q...beq calc.ic@Y...pha@....jsr additi.@....pla@....tax@....dex@....txa@..F.jmp calcinya@..P.calc.ic lda #$03@..Z.sta $4100@..$.lda #$13@....sta $4102@F.8.jsr equal@S.b.lda #$13@!.l.sta $4100@/.v.sta $4102@<...lda #$12@j.J.sta $4101@w.T.lda #$fa@....sec@M...sbc $d009@....calcinyb cmp #$00@....beq calc.id@....pha@....jsr additi.@....pla@....tax@....dex@....txa@....jmp calcinyb@....calc.id lda #$11@....sta $4100@L.@.lda #$03@Z.J.sta $4102@(.T.jsr equal@5...lda #$13@c.(.sta $4100@p.2.lda #$1f@..<.sta $4102@L.f.jsr equal@..p.calc. lda #$1e@..z.sta $4100@..D.lda #$01@..N.sta $4101@..X.lda #$10@....sta $4102@....jsr subtract@....lda #$10@....sta $4100@....lda #$17@JA..sta $4101@WA..lda #$02@%A..sta $4102@6A..jsr multiply@cA..lda #$1f@qA..sta $4100@.A..lda #$03@LA..sta $4101@YAD.lda #$10@.AN.sta $4102@.AX.jsr subtract@.A".lda #$10@.A,.sta $4100@.A6.lda #$1a@.A@.sta $4101@.Aj.lda #$04@.At.sta $4102@.A..jsr multiply@GBH.jsr m.le@VBR.jmp .rolop@<B..;                   zoom routines@hBE...$0820@wBJ.box lda xp@DBT.sta xpib@OB..lda yp@.B..sta ypib@.B..lda xpb@.B..sta xpbib@.B..ldx #$3c@.B..stx $07fc@.B..inx@.B..stx $07fd@.B..inx@.B..stx $07fe@.B..inx@.B..stx $07ff@AC..lda $d015@MC@..a #$f0@[CJ.sta $d015@.CT.box. lda click@;C..bne box.@qCX.boxloop lda xpbib@]C..cmp xpb@OC..beq checkfine@.C..bcs lessthan@.C..jmp m.ethan@.C..checkfine lda xpib@.C..cmp xp@.C..bcs lessthan@.C..m.ethan lda xpib@.C..sta $d008@.C..sta $d00c@AD..ldx #$00@OD..lda xpbib@ D..beq noxpbadd@-DD.ldx #$50@dDN.noxpbadd lda $d010@oDX.. #$af@[D".stx $02@CD,.clc@OD6.adc $02@.D@.sta $d010@.De.ldx #$00@.Dj.lda xp@.Dt.sec@.D..sbc #$18@.DH.sta $d00a@.DR.sta $d00e@.D..bcc mtsub@.D..ldx xpb@.D..beq mtsub@.D..ldx #$a0@OE..mtsub lda $d010@ZE... #$5f@&E..stx $02@.E..clc@:E..adc $02@hE..sta $d010@uE..jmp box.@IE..lessthan lda xp@UE..ldx xpb@.E..bne .out@.EH.cmp #$58@.ER.bcs .out@.E£.lda #$58@.E&..out sta $d008@.E0.sta $d00c@.E:.cpx #$00@.Ed.beq ltnoadd@.En.ldx #$50@JFx.ltnoadd lda $d010@UFB.. #$af@!FL.stx $02@)FV.clc@5F..adc $02@cF..sta $d010@pF..ldx #$00@]F..lda xpib@EF..sec@RF..sbc #$18@.F..sta $d00a@.F..sta $d00e@.F..bcc ltsub@.F..ldx xpbib@.F..beq ltsub@.F..ldx #$a0@.F..ltsub lda $d010@.F... #$5f@.FB.stx $02@.FL.clc@DGV.adc $02@RG .sta $d010@"G*.box. lda yp@/G4.cmp ypib@=G>.bcc lessy@jGh.lda ypib@xGr.sta $d009@FG£.sta $d00b@QGF.lda yp@YGP.sec@.GZ.sbc #$15@.G..sta $d00d@.G..sta $d00f@.G..jmp box.ii@.G..lessy lda yp@.G..sta $d009@.G..sta $d00b@.G..lda ypib@.G..sec@@H..sbc #$15@NH..sta $d00d@£H..sta $d00f@1H..box.ii lda click@>H..bne box.@nHF.jmp boxloop@BHP.box. jmp .rolop@WH0.boxflash lda $a2@.H:.. #$3c@.Hd.lsr a@.Hn.lsr a@.Hx.tax@.HB.lda boxcols,x@.HL.sta $d02b@.HV.sta $d02c@.H..sta $d02d@.H..sta $d02e@.H..jmp $ea31@XI..boxcols txt 0,9,2,8,10,7,13,1@2I..txt 1,13,3,5,14,4,6,0@gIX.; delete these!!@.It.zoomout jmp .rolop@VI..chn "mandelcode2.1"@@@

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 31 30 30 30  |.(.;.B.d...$1000|
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 32 09 de 00 43 4f  4c 30 b2 24 34 31 30 46  |E.2...COL0.$410F|
00000130  00 41 09 e0 00 43 4f 4c  31 b2 24 34 31 31 30 00  |.A...COL1.$4110.|
00000140  50 09 e2 00 43 4f 4c 32  b2 24 34 31 31 31 00 5f  |P...COL2.$4111._|
00000150  09 e4 00 43 4f 4c 33 b2  24 34 31 31 32 00 6f 09  |...COL3.$4112.o.|
00000160  e6 00 43 4f 4c 30 53 b2  24 34 31 31 33 00 7f 09  |..COL0S.$4113...|
00000170  e8 00 43 4f 4c 31 53 b2  24 34 31 31 34 00 8f 09  |..COL1S.$4114...|
00000180  ea 00 43 4f 4c 32 53 b2  24 34 31 31 35 00 9f 09  |..COL2S.$4115...|
00000190  ec 00 43 4f 4c 33 53 b2  24 34 31 31 36 00 af 09  |..COL3S.$4116...|
000001a0  ee 00 d5 54 49 4d 45 b2  24 34 31 31 37 00 bf 09  |...TIME.$4117...|
000001b0  f0 00 53 50 45 45 44 b2  24 34 31 31 38 00 d0 09  |..SPEED.$4118...|
000001c0  f2 00 4e 45 47 52 45 47  b2 24 34 31 31 39 00 f8  |..NEGREG.$4119..|
000001d0  09 18 01 3b 20 20 20 20  20 20 20 20 20 20 20 20  |...;            |
000001e0  20 20 20 20 20 20 20 20  20 20 52 4f 4d 20 52 4f  |          ROM RO|
000001f0  55 54 49 4e 45 53 00 09  0a 22 01 4f 55 54 44 4f  |UTINES...".OUTDO|
00000200  20 b2 24 41 42 34 37 00  18 0a 23 01 e8 4c 46 53  | .$AB47...#..LFS|
00000210  b2 24 46 46 42 41 00 27  0a 24 01 e8 4e 41 4d b2  |.$FFBA.'.$..NAM.|
00000220  24 46 46 42 44 00 36 0a  25 01 e4 52 4f 4d b2 24  |$FFBD.6.%..ROM.$|
00000230  46 46 44 38 00 49 0a 26  01 50 4c 4f 54 52 52 4f  |FFD8.I.&.PLOTRRO|
00000240  4d b2 24 45 35 36 43 00  6c 0a 10 27 3b 20 20 20  |M.$E56C.l..';   |
00000250  20 20 20 20 20 20 20 20  4d 41 49 4e 20 9a 52 4f  |        MAIN .RO|
00000260  4c 20 52 4f 55 54 49 4e  45 53 00 79 0a 1a 27 4a  |L ROUTINES.y..'J|
00000270  53 52 20 49 4e 49 54 00  91 0a 24 27 43 4f 4d 45  |SR INIT...$'COME|
00000280  42 41 43 4b 20 4a 53 52  20 48 49 52 45 53 91 00  |BACK JSR HIRES..|
00000290  a6 0a 2e 27 9a 52 4f 4c  4f 50 20 4c 44 41 20 43  |...'.ROLOP LDA C|
000002a0  4c 49 43 4b 00 b5 0a 38  27 42 4e 45 20 9a 52 4f  |LICK...8'BNE .RO|
000002b0  4c 4f 50 00 c9 0a 42 27  9a 4c 4f 50 42 20 4c 44  |LOP...B'.LOPB LD|
000002c0  41 20 43 4c 49 43 4b 00  d7 0a 4c 27 42 45 51 20  |A CLICK...L'BEQ |
000002d0  9a 4c 4f 50 42 00 e2 0a  56 27 4c 44 41 20 58 50  |.LOPB...V'LDA XP|
000002e0  00 ef 0a 60 27 43 4d 50  20 23 24 35 38 00 fa 0a  |...`'CMP #$58...|
000002f0  6a 27 42 43 43 20 9a 9a  00 06 0b 74 27 4a 4d 50  |j'BCC .....t'JMP|
00000300  20 42 4f 58 00 14 0b 7e  27 9a 9a 20 4c 44 41 20  | BOX...~'.. LDA |
00000310  59 50 00 21 0b 80 27 43  4d 50 20 23 24 35 41 00  |YP.!..'CMP #$5A.|
00000320  30 0b 82 27 42 43 43 20  9a 52 4f 4c 4f 50 00 38  |0..'BCC .ROLOP.8|
00000330  0b 88 27 53 45 43 00 45  0b 92 27 53 42 43 20 23  |..'SEC.E..'SBC #|
00000340  24 35 41 00 4f 0b 9c 27  4c 53 52 20 41 00 59 0b  |$5A.O..'LSR A.Y.|
00000350  a6 27 4c 53 52 20 41 00  64 0b b0 27 af 20 23 24  |.'LSR A.d..'. #$|
00000360  46 45 00 6c 0b ba 27 54  41 58 00 7d 0b c4 27 4c  |FE.l..'TAX.}..'L|
00000370  44 41 20 56 45 43 a4 52  53 2c 58 00 89 0b ce 27  |DA VEC.RS,X....'|
00000380  53 54 41 20 24 46 42 00  91 0b d8 27 49 4e 58 00  |STA $FB....'INX.|
00000390  a2 0b e2 27 4c 44 41 20  56 45 43 a4 52 53 2c 58  |...'LDA VEC.RS,X|
000003a0  00 ae 0b ec 27 53 54 41  20 24 46 43 00 be 0b f6  |....'STA $FC....|
000003b0  27 4a 4d 50 20 28 24 30  30 46 42 29 00 ff 0b 00  |'JMP ($00FB)....|
000003c0  28 56 45 43 a4 52 53 20  54 58 54 20 b3 5a 4f 4f  |(VEC.RS TXT .ZOO|
000003d0  4d 4f 55 54 2c b1 5a 4f  4f 4d 4f 55 54 2c b3 9a  |MOUT,.ZOOMOUT,..|
000003e0  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 5a  |ROLOP,..ROLOP,.Z|
000003f0  4f 4f 4d 49 4e 2c b1 5a  4f 4f 4d 49 4e 00 35 0c  |OOMIN,.ZOOMIN.5.|
00000400  0a 28 54 58 54 20 b3 9a  52 4f 4c 4f 50 2c b1 9a  |.(TXT ..ROLOP,..|
00000410  52 4f 4c 4f 50 2c b3 b9  49 54 49 91 2c b1 b9 49  |ROLOP,..ITI.,..I|
00000420  54 49 91 2c b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |TI.,..ROLOP,..RO|
00000430  4c 4f 50 00 69 0c 14 28  54 58 54 20 b3 9a 52 4f  |LOP.i..(TXT ..RO|
00000440  4c 4f 50 2c b1 9a 52 4f  4c 4f 50 2c b3 43 4f 4c  |LOP,..ROLOP,.COL|
00000450  53 2c b1 43 4f 4c 53 2c  b3 9a 52 4f 4c 4f 50 2c  |S,.COLS,..ROLOP,|
00000460  b1 9a 52 4f 4c 4f 50 00  a5 0c 1e 28 54 58 54 20  |..ROLOP....(TXT |
00000470  b3 43 4f 4c 43 59 43 4c  45 2c b1 43 4f 4c 43 59  |.COLCYCLE,.COLCY|
00000480  43 4c 45 2c b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |CLE,..ROLOP,..RO|
00000490  4c 4f 50 2c b3 4d af 50  4c 4f 54 2c b1 4d af 50  |LOP,.M.PLOT,.M.P|
000004a0  4c 4f 54 00 d9 0c 28 28  54 58 54 20 b3 9a 52 4f  |LOT...((TXT ..RO|
000004b0  4c 4f 50 2c b1 9a 52 4f  4c 4f 50 2c b3 9a 52 4f  |LOP,..ROLOP,..RO|
000004c0  4c 4f 50 2c b1 9a 52 4f  4c 4f 50 2c b3 45 58 49  |LOP,..ROLOP,.EXI|
000004d0  54 2c b1 45 58 49 54 00  0d 0d 32 28 54 58 54 20  |T,.EXIT...2(TXT |
000004e0  b3 9a 52 4f 4c 4f 50 2c  b1 9a 52 4f 4c 4f 50 2c  |..ROLOP,..ROLOP,|
000004f0  b3 e1 2c b1 e1 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |..,..,..ROLOP,..|
00000500  52 4f 4c 4f 50 2c b3 e4  2c b1 e4 00 45 0d 3c 28  |ROLOP,..,...E.<(|
00000510  54 58 54 20 b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |TXT ..ROLOP,..RO|
00000520  4c 4f 50 2c b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |LOP,..ROLOP,..RO|
*
00000540  4c 4f 50 00 5b 0d 04 29  45 58 49 54 20 4a 53 52  |LOP.[..)EXIT JSR|
00000550  20 48 49 52 45 53 4f 46  46 00 68 0d 0e 29 4c 44  | HIRESOFF.h..)LD|
00000560  41 20 23 24 39 33 00 76  0d 18 29 4a 53 52 20 4f  |A #$93.v..)JSR O|
00000570  55 54 44 4f 00 83 0d 22  29 4c 44 41 20 23 24 30  |UTDO...")LDA #$0|
00000580  35 00 91 0d 2c 29 4a 53  52 20 4f 55 54 44 4f 00  |5...,)JSR OUTDO.|
00000590  9e 0d 36 29 4c 44 41 20  23 24 30 30 00 aa 0d 40  |..6)LDA #$00...@|
000005a0  29 53 54 41 20 24 43 36  00 b2 0d 4a 29 52 54 53  |)STA $C6...J)RTS|
000005b0  00 d8 0d e0 2e 3b 20 20  20 20 20 20 20 20 20 20  |.....;          |
000005c0  20 20 20 20 20 20 20 20  20 57 49 4d 50 20 52 4f  |         WIMP RO|
000005d0  55 54 49 4e 45 53 00 eb  0d f4 2e 3b 20 57 49 4d  |UTINES.....; WIM|
000005e0  50 20 2d 20 4d 4f 55 53  45 00 fc 0d fe 2e 49 52  |P - MOUSE.....IR|
000005f0  51 20 4c 44 41 20 23 24  30 30 00 0a 0e 08 2f 53  |Q LDA #$00..../S|
00000600  54 41 20 43 4c 49 43 4b  00 16 0e 12 2f 4c 44 41  |TA CLICK..../LDA|
00000610  20 24 43 35 00 23 0e 1c  2f 43 4d 50 20 23 24 30  | $C5.#../CMP #$0|
00000620  31 00 33 0e 26 2f 42 4e  45 20 43 91 43 48 45 43  |1.3.&/BNE C.CHEC|
00000630  4b 00 41 0e 30 2f 53 54  41 20 43 4c 49 43 4b 00  |K.A.0/STA CLICK.|
00000640  56 0e 3a 2f 43 91 43 48  45 43 4b 20 43 4d 50 20  |V.:/C.CHECK CMP |
00000650  23 24 30 43 00 64 0e 44  2f 42 45 51 20 4c 45 46  |#$0C.d.D/BEQ LEF|
00000660  54 4b 00 75 0e 4e 2f 4c  4b 43 20 43 4d 50 20 23  |TK.u.N/LKC CMP #|
00000670  24 31 37 00 84 0e 58 2f  42 45 51 20 52 49 47 48  |$17...X/BEQ RIGH|
00000680  54 4b 00 95 0e 62 2f 52  4b 43 20 43 4d 50 20 23  |TK...b/RKC CMP #|
00000690  24 33 32 00 a1 0e 6c 2f  42 45 51 20 55 50 4b 00  |$32...l/BEQ UPK.|
000006a0  b3 0e 76 2f 55 50 4b 43  20 43 4d 50 20 23 24 33  |..v/UPKC CMP #$3|
000006b0  37 00 c1 0e 80 2f 42 45  51 20 44 4f 57 4e 4b 00  |7..../BEQ DOWNK.|
000006c0  d3 0e 8a 2f 44 4b 43 20  4c 44 41 20 24 44 43 30  |.../DKC LDA $DC0|
000006d0  30 00 de 0e 9e 2f af 20  23 24 30 31 00 ea 0e a8  |0..../. #$01....|
000006e0  2f 42 45 51 20 55 50 4a  00 fc 0e b2 2f 55 4a 43  |/BEQ UPJ..../UJC|
000006f0  20 4c 44 41 20 24 44 43  30 30 00 07 0f bc 2f af  | LDA $DC00..../.|
00000700  20 23 24 30 32 00 15 0f  c6 2f 42 45 51 20 44 4f  | #$02..../BEQ DO|
00000710  57 4e 4a 00 27 0f d0 2f  44 4a 43 20 4c 44 41 20  |WNJ.'../DJC LDA |
00000720  24 44 43 30 30 00 32 0f  da 2f af 20 23 24 30 34  |$DC00.2../. #$04|
00000730  00 40 0f e4 2f 42 45 51  20 4c 45 46 54 4a 00 52  |.@../BEQ LEFTJ.R|
00000740  0f ee 2f 4c 4a 43 20 4c  44 41 20 24 44 43 30 30  |../LJC LDA $DC00|
00000750  00 5d 0f f8 2f af 20 23  24 30 38 00 6c 0f 02 30  |.]../. #$08.l..0|
00000760  42 45 51 20 52 49 47 48  54 4a 00 7e 0f 0c 30 52  |BEQ RIGHTJ.~..0R|
00000770  4a 43 20 4c 44 41 20 24  44 43 30 30 00 89 0f 16  |JC LDA $DC00....|
00000780  30 af 20 23 24 31 30 00  95 0f 20 30 45 b0 20 23  |0. #$10... 0E. #|
00000790  24 31 30 00 a2 0f 2a 30  42 45 51 20 43 4a 43 48  |$10...*0BEQ CJCH|
000007a0  00 b0 0f 34 30 53 54 41  20 43 4c 49 43 4b 00 c6  |...40STA CLICK..|
000007b0  0f 3e 30 43 4a 43 48 20  4a 4d 50 20 42 4f 58 46  |.>0CJCH JMP BOXF|
000007c0  4c 41 53 48 00 d9 0f 48  30 4c 45 46 54 4b 20 4a  |LASH...H0LEFTK J|
000007d0  53 52 20 4c 45 46 54 00  e5 0f 52 30 4a 4d 50 20  |SR LEFT...R0JMP |
000007e0  4c 4b 43 00 fa 0f 5c 30  52 49 47 48 54 4b 20 4a  |LKC...\0RIGHTK J|
000007f0  53 52 20 52 49 47 48 54  00 06 10 66 30 4a 4d 50  |SR RIGHT...f0JMP|
00000800  20 52 4b 43 00 15 10 70  30 55 50 4b 20 4a 53 52  | RKC...p0UPK JSR|
00000810  20 55 50 00 22 10 7a 30  4a 4d 50 20 55 50 4b 43  | UP.".z0JMP UPKC|
00000820  00 35 10 84 30 44 4f 57  4e 4b 20 4a 53 52 20 44  |.5..0DOWNK JSR D|
00000830  4f 57 4e 00 41 10 8e 30  4a 4d 50 20 44 4b 43 00  |OWN.A..0JMP DKC.|
00000840  50 10 98 30 55 50 4a 20  4a 53 52 20 55 50 00 5c  |P..0UPJ JSR UP.\|
00000850  10 a2 30 4a 4d 50 20 55  4a 43 00 6f 10 ac 30 44  |..0JMP UJC.o..0D|
00000860  4f 57 4e 4a 20 4a 53 52  20 44 4f 57 4e 00 7b 10  |OWNJ JSR DOWN.{.|
00000870  b6 30 4a 4d 50 20 44 4a  43 00 8e 10 c0 30 4c 45  |.0JMP DJC....0LE|
00000880  46 54 4a 20 4a 53 52 20  4c 45 46 54 00 9a 10 ca  |FTJ JSR LEFT....|
00000890  30 4a 4d 50 20 4c 4a 43  00 af 10 d4 30 52 49 47  |0JMP LJC....0RIG|
000008a0  48 54 4a 20 4a 53 52 20  52 49 47 48 54 00 bb 10  |HTJ JSR RIGHT...|
000008b0  de 30 4a 4d 50 20 52 4a  43 00 cb 10 e8 30 4c 45  |.0JMP RJC....0LE|
000008c0  46 54 20 44 45 43 20 58  50 00 d6 10 f2 30 4c 44  |FT DEC XP....0LD|
000008d0  41 20 58 50 00 e3 10 fc  30 43 4d 50 20 23 24 46  |A XP....0CMP #$F|
000008e0  46 00 ef 10 06 31 42 4e  45 20 a8 46 46 00 fc 10  |F....1BNE .FF...|
000008f0  10 31 4c 44 59 20 23 24  30 30 00 08 11 1a 31 53  |.1LDY #$00....1S|
00000900  54 59 20 58 50 42 00 18  11 24 31 a8 46 46 20 4c  |TY XPB...$1.FF L|
00000910  44 59 20 58 50 42 00 24  11 2e 31 42 4e 45 20 46  |DY XPB.$..1BNE F|
00000920  49 4e 00 31 11 38 31 43  4d 50 20 23 24 31 38 00  |IN.1.81CMP #$18.|
00000930  3d 11 42 31 42 4e 45 20  46 49 4e 00 48 11 4c 31  |=.B1BNE FIN.H.L1|
00000940  49 4e 43 20 58 50 00 59  11 56 31 46 49 4e 20 4a  |INC XP.Y.V1FIN J|
00000950  4d 50 20 9a 52 4f 4c 00  6a 11 60 31 52 49 47 48  |MP .ROL.j.`1RIGH|
00000960  54 20 49 4e 43 20 58 50  00 75 11 6a 31 4c 44 41  |T INC XP.u.j1LDA|
00000970  20 58 50 00 81 11 74 31  42 4e 45 20 a8 30 30 00  | XP...t1BNE .00.|
00000980  8e 11 7e 31 4c 44 59 20  23 24 30 31 00 9a 11 88  |..~1LDY #$01....|
00000990  31 53 54 59 20 58 50 42  00 aa 11 92 31 a8 30 30  |1STY XPB....1.00|
000009a0  20 4c 44 59 20 58 50 42  00 b6 11 9c 31 42 45 51  | LDY XPB....1BEQ|
000009b0  20 46 49 4e 00 c3 11 a6  31 43 4d 50 20 23 24 35  | FIN....1CMP #$5|
000009c0  38 00 cf 11 b0 31 42 4e  45 20 46 49 4e 00 da 11  |8....1BNE FIN...|
000009d0  ba 31 44 45 43 20 58 50  00 e7 11 c4 31 4a 4d 50  |.1DEC XP....1JMP|
000009e0  20 9a 52 4f 4c 00 f5 11  ce 31 55 50 20 44 45 43  | .ROL....1UP DEC|
000009f0  20 59 50 00 00 12 d8 31  4c 44 41 20 59 50 00 0d  | YP....1LDA YP..|
00000a00  12 e2 31 43 4d 50 20 23  24 33 32 00 19 12 ec 31  |..1CMP #$32....1|
00000a10  42 4e 45 20 46 49 4e 00  24 12 f6 31 49 4e 43 20  |BNE FIN.$..1INC |
00000a20  59 50 00 31 12 00 32 4a  4d 50 20 9a 52 4f 4c 00  |YP.1..2JMP .ROL.|
00000a30  41 12 0a 32 44 4f 57 4e  20 49 4e 43 20 59 50 00  |A..2DOWN INC YP.|
00000a40  4c 12 14 32 4c 44 41 20  59 50 00 59 12 1e 32 43  |L..2LDA YP.Y..2C|
00000a50  4d 50 20 23 24 46 38 00  65 12 28 32 42 4e 45 20  |MP #$F8.e.(2BNE |
00000a60  46 49 4e 00 70 12 32 32  44 45 43 20 59 50 00 7d  |FIN.p.22DEC YP.}|
00000a70  12 3c 32 4a 4d 50 20 9a  52 4f 4c 00 90 12 46 32  |.<2JMP .ROL...F2|
00000a80  3b 20 57 49 4d 50 20 ab  20 50 4f b5 45 52 00 a2  |; WIMP . PO.ER..|
00000a90  12 50 32 9a 52 4f 4c 20  4c 44 41 20 48 4f 55 52  |.P2.ROL LDA HOUR|
00000aa0  00 b2 12 5a 32 42 45 51  20 4e 48 47 4c 41 53 53  |...Z2BEQ NHGLASS|
00000ab0  00 bf 12 9a 33 4c 44 58  20 23 24 33 41 00 cd 12  |....3LDX #$3A...|
00000ac0  a4 33 53 54 58 20 24 30  37 46 38 00 d5 12 ae 33  |.3STX $07F8....3|
00000ad0  49 4e 58 00 e3 12 b8 33  53 54 58 20 24 30 37 46  |INX....3STX $07F|
00000ae0  39 00 f6 12 c2 33 4e 48  47 4c 41 53 53 20 4c 44  |9....3NHGLASS LD|
00000af0  41 20 58 50 00 04 13 cc  33 53 54 41 20 24 44 30  |A XP....3STA $D0|
00000b00  30 30 00 12 13 d6 33 53  54 41 20 24 44 30 30 32  |00....3STA $D002|
00000b10  00 1d 13 e0 33 4c 44 41  20 59 50 00 2b 13 ea 33  |....3LDA YP.+..3|
00000b20  53 54 41 20 24 44 30 30  31 00 39 13 f4 33 53 54  |STA $D001.9..3ST|
00000b30  41 20 24 44 30 30 33 00  47 13 fe 33 4c 44 41 20  |A $D003.G..3LDA |
00000b40  24 44 30 31 30 00 52 13  08 34 af 20 23 24 46 43  |$D010.R..4. #$FC|
00000b50  00 5c 13 12 34 4c 53 52  20 41 00 64 13 1c 34 43  |.\..4LSR A.d..4C|
00000b60  4c 43 00 70 13 26 34 41  44 43 20 58 50 42 00 7a  |LC.p.&4ADC XPB.z|
00000b70  13 30 34 41 53 4c 20 41  00 82 13 3a 34 43 4c 43  |.04ASL A...:4CLC|
00000b80  00 8e 13 44 34 41 44 43  20 58 50 42 00 9c 13 4e  |...D4ADC XPB...N|
00000b90  34 53 54 41 20 24 44 30  31 30 00 a9 13 58 34 4c  |4STA $D010...X4L|
00000ba0  44 41 20 23 24 30 30 00  b7 13 62 34 53 54 41 20  |DA #$00...b4STA |
00000bb0  24 44 30 32 37 00 c4 13  6c 34 4c 44 41 20 23 24  |$D027...l4LDA #$|
00000bc0  30 31 00 d2 13 76 34 53  54 41 20 24 44 30 32 38  |01...v4STA $D028|
00000bd0  00 e0 13 80 34 4c 44 41  20 24 44 30 31 35 00 ec  |....4LDA $D015..|
00000be0  13 8a 34 b0 41 20 23 24  30 33 00 fa 13 94 34 53  |..4.A #$03....4S|
00000bf0  54 41 20 24 44 30 31 35  00 07 14 9e 34 4c 44 41  |TA $D015....4LDA|
00000c00  20 48 4f 55 52 00 14 14  a8 34 42 4e 45 20 51 54  | HOUR....4BNE QT|
00000c10  52 4f 00 21 14 b2 34 4c  44 58 20 23 24 33 38 00  |RO.!..4LDX #$38.|
00000c20  2f 14 bc 34 53 54 58 20  24 30 37 46 38 00 37 14  |/..4STX $07F8.7.|
00000c30  c6 34 49 4e 58 00 45 14  d0 34 53 54 58 20 24 30  |.4INX.E..4STX $0|
00000c40  37 46 39 00 52 14 da 34  51 54 52 4f 20 52 54 53  |7F9.R..4QTRO RTS|
00000c50  00 69 14 e4 34 3b 20 53  54 41 52 54 55 50 20 52  |.i..4; STARTUP R|
00000c60  4f 55 54 49 4e 45 53 00  7b 14 ee 34 49 4e 49 54  |OUTINES.{..4INIT|
00000c70  20 4c 44 41 20 23 24 30  30 00 89 14 f8 34 53 54  | LDA #$00....4ST|
00000c80  41 20 24 44 30 32 30 00  97 14 02 35 53 54 41 20  |A $D020....5STA |
00000c90  24 44 30 32 31 00 a2 14  0c 35 53 54 41 20 58 50  |$D021....5STA XP|
00000ca0  00 af 14 16 35 53 54 41  20 48 4f 55 52 00 bd 14  |....5STA HOUR...|
00000cb0  20 35 53 54 41 20 24 44  30 31 35 00 ca 14 2a 35  | 5STA $D015...*5|
00000cc0  4c 44 41 20 23 24 30 31  00 d6 14 34 35 53 54 41  |LDA #$01...45STA|
00000cd0  20 58 50 42 00 e3 14 3e  35 4c 44 41 20 23 24 38  | XPB...>5LDA #$8|
00000ce0  30 00 ee 14 48 35 53 54  41 20 59 50 00 02 15 52  |0...H5STA YP...R|
00000cf0  35 48 49 52 45 53 91 20  4c 44 41 20 23 24 33 42  |5HIRES. LDA #$3B|
00000d00  00 10 15 5c 35 53 54 41  20 24 44 30 31 31 00 1d  |...\5STA $D011..|
00000d10  15 66 35 4c 44 41 20 23  24 44 38 00 2b 15 70 35  |.f5LDA #$D8.+.p5|
00000d20  53 54 41 20 24 44 30 31  36 00 39 15 7a 35 4c 44  |STA $D016.9.z5LD|
00000d30  41 20 43 4f 4c 30 53 00  46 15 84 35 53 54 41 20  |A COL0S.F..5STA |
00000d40  43 4f 4c 30 00 54 15 8e  35 4c 44 41 20 43 4f 4c  |COL0.T..5LDA COL|
00000d50  31 53 00 61 15 98 35 53  54 41 20 43 4f 4c 31 00  |1S.a..5STA COL1.|
00000d60  6f 15 a2 35 4c 44 41 20  43 4f 4c 32 53 00 7c 15  |o..5LDA COL2S.|.|
00000d70  ac 35 53 54 41 20 43 4f  4c 32 00 8a 15 b6 35 4c  |.5STA COL2....5L|
00000d80  44 41 20 43 4f 4c 33 53  00 97 15 c0 35 53 54 41  |DA COL3S....5STA|
00000d90  20 43 4f 4c 33 00 a5 15  ca 35 4a 53 52 20 e8 43  | COL3....5JSR .C|
00000da0  4f 4c 53 00 b2 15 06 36  4a 53 52 20 4c 45 46 54  |OLS....6JSR LEFT|
00000db0  00 ba 15 10 36 53 45 49  00 c8 15 1a 36 4c 44 41  |....6SEI....6LDA|
00000dc0  20 23 b3 49 52 51 00 d6  15 24 36 53 54 41 20 24  | #.IRQ...$6STA $|
00000dd0  30 33 31 34 00 e4 15 2e  36 4c 44 41 20 23 b1 49  |0314....6LDA #.I|
00000de0  52 51 00 f2 15 38 36 53  54 41 20 24 30 33 31 35  |RQ...86STA $0315|
00000df0  00 fa 15 42 36 43 4c 49  00 07 16 ba 36 4c 44 41  |...B6CLI....6LDA|
00000e00  20 23 24 31 38 00 15 16  c4 36 53 54 41 20 24 44  | #$18....6STA $D|
00000e10  30 31 38 00 1d 16 34 3a  52 54 53 00 2e 16 52 3a  |018...4:RTS...R:|
00000e20  48 49 52 45 53 4f 46 46  20 53 45 49 00 3b 16 5c  |HIRESOFF SEI.;.\|
00000e30  3a 4c 44 41 20 23 24 33  31 00 49 16 66 3a 53 54  |:LDA #$31.I.f:ST|
00000e40  41 20 24 30 33 31 34 00  56 16 70 3a 4c 44 41 20  |A $0314.V.p:LDA |
00000e50  23 24 45 41 00 64 16 7a  3a 53 54 41 20 24 30 33  |#$EA.d.z:STA $03|
00000e60  31 35 00 6c 16 84 3a 43  4c 49 00 79 16 8e 3a 4c  |15.l..:CLI.y..:L|
00000e70  44 41 20 23 24 30 30 00  87 16 98 3a 53 54 41 20  |DA #$00....:STA |
00000e80  24 44 30 31 35 00 94 16  a2 3a 4c 44 41 20 23 24  |$D015....:LDA #$|
00000e90  39 42 00 a2 16 ac 3a 53  54 41 20 24 44 30 31 31  |9B....:STA $D011|
00000ea0  00 af 16 b6 3a 4c 44 41  20 23 24 43 38 00 bd 16  |....:LDA #$C8...|
00000eb0  c0 3a 53 54 41 20 24 44  30 31 36 00 ca 16 c3 3a  |.:STA $D016....:|
00000ec0  4c 44 41 20 23 24 31 35  00 d8 16 c6 3a 53 54 41  |LDA #$15....:STA|
00000ed0  20 24 44 30 31 38 00 e0  16 ca 3a 52 54 53 00 f3  | $D018....:RTS..|
00000ee0  16 20 4e e1 20 4a 53 52  20 48 49 52 45 53 4f 46  |. N. JSR HIRESOF|
00000ef0  46 00 00 17 2a 4e 4c 44  41 20 23 24 31 43 00 0e  |F...*NLDA #$1C..|
00000f00  17 34 4e 4a 53 52 20 4f  55 54 44 4f 00 1b 17 3e  |.4NJSR OUTDO...>|
00000f10  4e 4c 44 41 20 23 24 39  33 00 29 17 48 4e 4a 53  |NLDA #$93.).HNJS|
00000f20  52 20 4f 55 54 44 4f 00  36 17 52 4e 4c 44 41 20  |R OUTDO.6.RNLDA |
00000f30  23 24 30 30 00 44 17 5c  4e e1 4c 4f 4f 50 20 50  |#$00.D.\N.LOOP P|
00000f40  48 41 00 4e 17 66 4e 41  53 4c 20 41 00 58 17 70  |HA.N.fNASL A.X.p|
00000f50  4e 41 53 4c 20 41 00 60  17 7a 4e 43 4c 43 00 6d  |NASL A.`.zNCLC.m|
00000f60  17 84 4e 41 44 43 20 23  24 34 32 00 79 17 8e 4e  |..NADC #$42.y..N|
00000f70  53 54 41 20 24 46 43 00  86 17 98 4e 4c 44 59 20  |STA $FC....NLDY |
00000f80  23 24 30 30 00 92 17 a2  4e 53 54 59 20 24 46 42  |#$00....NSTY $FB|
00000f90  00 9e 17 ac 4e 53 54 59  20 24 46 44 00 ab 17 b6  |....NSTY $FD....|
00000fa0  4e 4c 44 41 20 23 24 30  34 00 b7 17 c0 4e 53 54  |NLDA #$04....NST|
00000fb0  41 20 24 46 45 00 ce 17  ca 4e e1 4c 4f 4f 50 42  |A $FE....N.LOOPB|
00000fc0  20 4c 44 41 20 28 24 46  42 29 2c 59 00 de 17 d4  | LDA ($FB),Y....|
00000fd0  4e 53 54 41 20 28 24 46  44 29 2c 59 00 e6 17 de  |NSTA ($FD),Y....|
00000fe0  4e 49 4e 59 00 f5 17 e8  4e 42 4e 45 20 e1 4c 4f  |NINY....NBNE .LO|
00000ff0  4f 50 42 00 01 18 f2 4e  49 4e 43 20 24 46 43 00  |OPB....NINC $FC.|
00001000  0d 18 fc 4e 49 4e 43 20  24 46 45 00 19 18 06 4f  |...NINC $FE....O|
00001010  4c 44 41 20 24 46 45 00  26 18 10 4f 43 4d 50 20  |LDA $FE.&..OCMP |
00001020  23 24 30 38 00 35 18 1a  4f 42 4e 45 20 e1 4c 4f  |#$08.5..OBNE .LO|
00001030  4f 50 42 00 44 18 24 4f  e1 dc 20 4c 44 41 20 24  |OPB.D.$O.. LDA $|
00001040  43 35 00 51 18 2e 4f 43  4d 50 20 23 24 34 30 00  |C5.Q..OCMP #$40.|
00001050  5c 18 38 4f 42 4e 45 20  e1 dc 00 6c 18 42 4f e1  |\.8OBNE ...l.BO.|
00001060  dc 42 20 4c 44 41 20 24  43 35 00 79 18 4c 4f 43  |.B LDA $C5.y.LOC|
00001070  4d 50 20 23 24 34 30 00  85 18 56 4f 42 45 51 20  |MP #$40...VOBEQ |
00001080  e1 dc 42 00 8d 18 60 4f  54 41 58 00 95 18 6a 4f  |..B...`OTAX...jO|
00001090  50 4c 41 00 a2 18 74 4f  43 50 58 20 23 24 30 31  |PLA...tOCPX #$01|
000010a0  00 b1 18 7e 4f 42 45 51  20 48 4e 4f 4d b0 45 00  |...~OBEQ HNOM.E.|
000010b0  be 18 88 4f 43 50 58 20  23 24 32 38 00 c8 18 92  |...OCPX #$28....|
000010c0  4f 42 45 51 20 82 00 d5  18 9c 4f 43 50 58 20 23  |OBEQ .....OCPX #|
000010d0  24 32 42 00 e2 18 a6 4f  42 45 51 20 50 52 45 56  |$2B....OBEQ PREV|
000010e0  00 ef 18 b0 4f e1 52 45  54 20 50 48 41 00 fb 18  |....O.RET PHA...|
000010f0  ba 4f 4a 4d 50 20 e1 dc  42 00 13 19 c4 4f 48 4e  |.OJMP ..B....OHN|
00001100  4f 4d b0 45 20 4a 4d 50  20 43 4f 4d 45 42 41 43  |OM.E JMP COMEBAC|
00001110  4b 00 22 19 ce 4f 82 20  43 4d 50 20 23 24 30 34  |K."..O. CMP #$04|
00001120  00 2f 19 d8 4f 42 45 51  20 e1 52 45 54 00 37 19  |./..OBEQ .RET.7.|
00001130  e2 4f 43 4c 43 00 44 19  ec 4f 41 44 43 20 23 24  |.OCLC.D..OADC #$|
00001140  30 31 00 52 19 f6 4f 4a  4d 50 20 e1 4c 4f 4f 50  |01.R..OJMP .LOOP|
00001150  00 64 19 00 50 50 52 45  56 20 43 4d 50 20 23 24  |.d..PPREV CMP #$|
00001160  30 30 00 71 19 0a 50 42  45 51 20 e1 52 45 54 00  |00.q..PBEQ .RET.|
00001170  79 19 14 50 53 45 43 00  86 19 1e 50 53 42 43 20  |y..PSEC....PSBC |
00001180  23 24 30 31 00 94 19 28  50 4a 4d 50 20 e1 4c 4f  |#$01...(PJMP .LO|
00001190  4f 50 00 ba 19 a8 61 3b  20 20 20 20 20 20 20 20  |OP....a;        |
000011a0  20 20 20 20 20 20 20 20  20 20 20 53 41 56 45 20  |           SAVE |
000011b0  52 4f 55 54 49 4e 45 53  00 cd 19 b2 61 a5 41 4d  |ROUTINES....a.AM|
000011c0  45 20 54 58 54 20 31 34  37 2c 35 00 e3 19 bc 61  |E TXT 147,5....a|
000011d0  54 58 54 20 22 46 49 4c  45 4e 41 4d 45 3a 22 2c  |TXT "FILENAME:",|
000011e0  30 00 0a 1a c6 61 a4 52  44 20 54 58 54 20 31 33  |0....a.RD TXT 13|
000011f0  2c 31 33 2c 22 28 54 29  41 50 45 20 4f 52 20 28  |,13,"(T)APE OR (|
00001200  44 29 49 53 4b 22 2c 30  00 38 1a d0 61 b9 54 20  |D)ISK",0.8..a.T |
00001210  54 58 54 20 31 33 2c 31  33 2c 22 50 4f 53 49 54  |TXT 13,13,"POSIT|
00001220  49 4f 4e 20 54 41 50 45  20 3c 53 50 41 43 45 3e  |ION TAPE <SPACE>|
00001230  22 2c 31 33 2c 30 00 66  1a da 61 49 4e 53 44 20  |",13,0.f..aINSD |
00001240  54 58 54 20 31 33 2c 31  33 2c 22 49 4e 53 45 52  |TXT 13,13,"INSER|
00001250  54 20 44 49 53 4b 20 3c  53 50 41 43 45 3e 22 2c  |T DISK <SPACE>",|
00001260  31 33 2c 30 00 7b 1a e4  61 50 53 54 52 49 4e 47  |13,0.{..aPSTRING|
00001270  20 4c 44 59 20 23 24 30  30 00 93 1a ee 61 50 53  | LDY #$00....aPS|
00001280  54 52 4c 4f 50 20 4c 44  41 20 28 24 46 42 29 2c  |TRLOP LDA ($FB),|
00001290  59 00 a4 1a f8 61 42 45  51 20 50 53 54 52 51 55  |Y....aBEQ PSTRQU|
000012a0  49 54 00 b2 1a 02 62 4a  53 52 20 4f 55 54 44 4f  |IT....bJSR OUTDO|
000012b0  00 ba 1a 07 62 49 4e 59  00 ca 1a 0c 62 4a 4d 50  |....bINY....bJMP|
000012c0  20 50 53 54 52 4c 4f 50  00 db 1a 16 62 50 53 54  | PSTRLOP....bPST|
000012d0  52 51 55 49 54 20 52 54  53 00 f0 1a 20 62 91 4f  |RQUIT RTS... b.O|
000012e0  46 46 20 4c 44 41 20 24  30 34 30 41 2c 59 00 fc  |FF LDA $040A,Y..|
000012f0  1a 2a 62 45 b0 20 23 24  38 30 00 0c 1b 34 62 53  |.*bE. #$80...4bS|
00001300  54 41 20 24 30 34 30 41  2c 59 00 14 1b 3e 62 52  |TA $040A,Y...>bR|
00001310  54 53 00 23 1b 48 62 a1  dc 20 4c 44 41 20 24 43  |TS.#.Hb.. LDA $C|
00001320  35 00 30 1b 52 62 43 4d  50 20 23 24 34 30 00 3b  |5.0.RbCMP #$40.;|
00001330  1b 5c 62 42 4e 45 20 a1  dc 00 4b 1b 66 62 a1 dc  |.\bBNE ...K.fb..|
00001340  42 20 4c 44 41 20 24 43  35 00 58 1b 70 62 43 4d  |B LDA $C5.X.pbCM|
00001350  50 20 23 24 34 30 00 64  1b 7a 62 42 45 51 20 a1  |P #$40.d.zbBEQ .|
00001360  dc 42 00 6c 1b 84 62 54  41 58 00 79 1b 8e 62 4c  |.B.l..bTAX.y..bL|
00001370  44 41 20 dc d4 2c 58 00  84 1b 98 62 42 45 51 20  |DA ..,X....bBEQ |
00001380  a1 dc 00 8c 1b a2 62 52  54 53 00 9f 1b ac 62 e4  |......bRTS....b.|
00001390  20 4a 53 52 20 48 49 52  45 53 4f 46 46 00 ac 1b  | JSR HIRESOFF...|
000013a0  b6 62 4c 44 58 20 23 24  30 30 00 b9 1b c0 62 4c  |.bLDX #$00....bL|
000013b0  44 41 20 23 24 32 30 00  cf 1b ca 62 a5 41 4d 45  |DA #$20....b.AME|
000013c0  9c 20 53 54 41 20 24 34  31 46 30 2c 58 00 d7 1b  |. STA $41F0,X...|
000013d0  d4 62 49 4e 58 00 e4 1b  de 62 43 50 58 20 23 24  |.bINX....bCPX #$|
000013e0  31 30 00 f2 1b e8 62 42  4e 45 20 a5 41 4d 45 9c  |10....bBNE .AME.|
000013f0  00 01 1c f2 62 4c 44 41  20 23 b3 a5 41 4d 45 00  |....bLDA #..AME.|
00001400  0d 1c fc 62 53 54 41 20  24 46 42 00 1c 1c 06 63  |...bSTA $FB....c|
00001410  4c 44 41 20 23 b1 a5 41  4d 45 00 28 1c 10 63 53  |LDA #..AME.(..cS|
00001420  54 41 20 24 46 43 00 38  1c 1a 63 4a 53 52 20 50  |TA $FC.8..cJSR P|
00001430  53 54 52 49 4e 47 00 45  1c 24 63 4c 44 41 20 23  |STRING.E.$cLDA #|
00001440  24 30 30 00 4d 1c 2e 63  50 48 41 00 5b 1c 38 63  |$00.M..cPHA.[.8c|
00001450  e4 4c 4f 4f 50 20 54 41  59 00 68 1c 3d 63 4a 53  |.LOOP TAY.h.=cJS|
00001460  52 20 91 4f 46 46 00 73  1c 42 63 4a 53 52 20 a1  |R .OFF.s.BcJSR .|
00001470  dc 00 7b 1c 47 63 50 48  41 00 88 1c 4c 63 4a 53  |..{.GcPHA...LcJS|
00001480  52 20 91 4f 46 46 00 90  1c 51 63 50 4c 41 00 9d  |R .OFF...QcPLA..|
00001490  1c 56 63 43 4d 50 20 23  24 38 30 00 ac 1c 60 63  |.VcCMP #$80...`c|
000014a0  42 43 53 20 44 45 43 4f  44 45 00 b4 1c 6a 63 54  |BCS DECODE...jcT|
000014b0  41 59 00 bc 1c 74 63 50  4c 41 00 c4 1c 7e 63 54  |AY...tcPLA...~cT|
000014c0  41 58 00 cc 1c 88 63 54  59 41 00 dc 1c 92 63 53  |AX....cTYA....cS|
000014d0  54 41 20 24 30 34 30 41  2c 58 00 e9 1c 9c 63 43  |TA $040A,X....cC|
000014e0  4d 50 20 23 24 32 30 00  f7 1c a6 63 42 43 53 20  |MP #$20....cBCS |
000014f0  4e 4f 53 50 43 00 ff 1c  b0 63 43 4c 43 00 0c 1d  |NOSPC....cCLC...|
00001500  ba 63 41 44 43 20 23 24  34 30 00 22 1d c4 63 4e  |.cADC #$40."..cN|
00001510  4f 53 50 43 20 53 54 41  20 24 34 31 46 30 2c 58  |OSPC STA $41F0,X|
00001520  00 34 1d ce 63 49 4e 43  b9 20 43 50 58 20 23 24  |.4..cINC. CPX #$|
00001530  30 46 00 43 1d d8 63 42  45 51 20 e4 52 45 4c 4f  |0F.C..cBEQ .RELO|
00001540  50 00 4b 1d e2 63 49 4e  58 00 5a 1d ec 63 e4 52  |P.K..cINX.Z..c.R|
00001550  45 4c 4f 50 20 54 58 41  00 62 1d f1 63 50 48 41  |ELOP TXA.b..cPHA|
00001560  00 70 1d f6 63 4a 4d 50  20 e4 4c 4f 4f 50 00 84  |.p..cJMP .LOOP..|
00001570  1d 00 64 44 45 43 4f 44  45 20 43 4d 50 20 23 24  |..dDECODE CMP #$|
00001580  38 30 00 8f 1d 0a 64 42  45 51 20 e4 9a 00 9c 1d  |80....dBEQ .....|
00001590  14 64 43 4d 50 20 23 24  38 31 00 a6 1d 1e 64 42  |.dCMP #$81....dB|
000015a0  45 51 20 d1 00 b3 1d 28  64 43 4d 50 20 23 24 38  |EQ ....(dCMP #$8|
000015b0  32 00 c1 1d 32 64 42 4e  45 20 e4 4c 4f 4f 50 00  |2...2dBNE .LOOP.|
000015c0  c9 1d 3c 64 50 4c 41 00  d1 1d 46 64 54 41 58 00  |..<dPLA...FdTAX.|
000015d0  df 1d 50 64 4c 44 41 20  24 30 32 38 44 00 ea 1d  |..PdLDA $028D...|
000015e0  5a 64 af 20 23 24 30 31  00 f7 1d 64 64 42 45 51  |Zd. #$01...ddBEQ|
000015f0  20 49 4e 43 b9 00 09 1e  6e 64 44 45 43 b9 20 43  | INC....ndDEC. C|
00001600  50 58 20 23 24 30 30 00  18 1e 78 64 42 45 51 20  |PX #$00...xdBEQ |
00001610  e4 52 45 4c 4f 50 00 20  1e 82 64 44 45 58 00 2f  |.RELOP. ..dDEX./|
00001620  1e 8c 64 4a 4d 50 20 e4  52 45 4c 4f 50 00 39 1e  |..dJMP .RELOP.9.|
00001630  96 64 d1 20 50 4c 41 00  41 1e a0 64 54 41 58 00  |.d. PLA.A..dTAX.|
00001640  4e 1e aa 64 4c 44 41 20  23 24 32 30 00 5e 1e b4  |N..dLDA #$20.^..|
00001650  64 53 54 41 20 24 30 34  30 41 2c 58 00 6e 1e be  |dSTA $040A,X.n..|
00001660  64 53 54 41 20 24 34 31  46 30 2c 58 00 7b 1e c8  |dSTA $41F0,X.{..|
00001670  64 4a 4d 50 20 44 45 43  b9 00 86 1e d2 64 e4 9a  |dJMP DEC.....d..|
00001680  20 50 4c 41 00 94 1e d7  64 4c 44 41 20 23 b3 a4  | PLA....dLDA #..|
00001690  52 44 00 a0 1e dc 64 53  54 41 20 24 46 42 00 ae  |RD....dSTA $FB..|
000016a0  1e e6 64 4c 44 41 20 23  b1 a4 52 44 00 ba 1e f0  |..dLDA #..RD....|
000016b0  64 53 54 41 20 24 46 43  00 ca 1e fa 64 4a 53 52  |dSTA $FC....dJSR|
000016c0  20 50 53 54 52 49 4e 47  00 d7 1e 04 65 e3 20 4a  | PSTRING....e. J|
000016d0  53 52 20 a1 dc 00 e4 1e  0e 65 43 4d 50 20 23 24  |SR ......eCMP #$|
000016e0  31 34 00 f2 1e 18 65 42  45 51 20 54 41 50 45 e4  |14....eBEQ TAPE.|
000016f0  00 ff 1e 22 65 43 4d 50  20 23 24 30 34 00 0d 1f  |..."eCMP #$04...|
00001700  2c 65 42 45 51 20 44 49  53 4b e4 00 17 1f 36 65  |,eBEQ DISK....6e|
00001710  4a 4d 50 20 e3 00 2a 1f  40 65 54 41 50 45 e4 20  |JMP ..*.@eTAPE. |
00001720  4c 44 41 20 23 b3 b9 54  00 36 1f 4a 65 53 54 41  |LDA #..T.6.JeSTA|
00001730  20 24 46 42 00 43 1f 54  65 4c 44 41 20 23 b1 b9  | $FB.C.TeLDA #..|
00001740  54 00 4f 1f 5e 65 53 54  41 20 24 46 43 00 5f 1f  |T.O.^eSTA $FC._.|
00001750  68 65 4a 53 52 20 50 53  54 52 49 4e 47 00 6c 1f  |heJSR PSTRING.l.|
00001760  72 65 4c 44 58 20 23 24  30 31 00 7a 1f 7c 65 4a  |reLDX #$01.z.|eJ|
00001770  4d 50 20 54 41 50 45 9a  00 8f 1f 86 65 44 49 53  |MP TAPE.....eDIS|
00001780  4b e4 20 4c 44 41 20 23  b3 49 4e 53 44 00 9b 1f  |K. LDA #.INSD...|
00001790  90 65 53 54 41 20 24 46  42 00 aa 1f 9a 65 4c 44  |.eSTA $FB....eLD|
000017a0  41 20 23 b1 49 4e 53 44  00 b6 1f a4 65 53 54 41  |A #.INSD....eSTA|
000017b0  20 24 46 43 00 c6 1f ae  65 4a 53 52 20 50 53 54  | $FC....eJSR PST|
000017c0  52 49 4e 47 00 d3 1f b8  65 4c 44 58 20 23 24 30  |RING....eLDX #$0|
000017d0  38 00 e5 1f c2 65 54 41  50 45 9a 20 4c 44 41 20  |8....eTAPE. LDA |
000017e0  24 43 35 00 f2 1f cc 65  43 4d 50 20 23 24 33 43  |$C5....eCMP #$3C|
000017f0  00 00 20 d6 65 42 4e 45  20 54 41 50 45 9a 00 0d  |.. .eBNE TAPE...|
00001800  20 e0 65 4c 44 41 20 23  24 30 31 00 15 20 ea 65  | .eLDA #$01.. .e|
00001810  54 41 59 00 22 20 f4 65  4a 53 52 20 e8 4c 46 53  |TAY." .eJSR .LFS|
00001820  00 2f 20 fe 65 4c 44 58  20 23 24 31 30 00 45 20  |./ .eLDX #$10.E |
00001830  08 66 a5 41 4d 45 c3 20  4c 44 41 20 24 34 31 45  |.f.AME. LDA $41E|
00001840  46 2c 58 00 52 20 12 66  43 4d 50 20 23 24 32 30  |F,X.R .fCMP #$20|
00001850  00 61 20 1c 66 42 4e 45  20 a5 41 4d 45 cb 54 00  |.a .fBNE .AME.T.|
00001860  69 20 26 66 44 45 58 00  78 20 30 66 42 45 51 20  |i &fDEX.x 0fBEQ |
00001870  a5 41 4d 45 cb 54 00 86  20 3a 66 4a 4d 50 20 a5  |.AME.T.. :fJMP .|
00001880  41 4d 45 c3 00 95 20 44  66 a5 41 4d 45 cb 54 20  |AME... Df.AME.T |
00001890  54 58 41 00 a2 20 4e 66  4c 44 58 20 23 24 46 30  |TXA.. NfLDX #$F0|
000018a0  00 af 20 62 66 4c 44 59  20 23 24 34 31 00 bc 20  |.. bfLDY #$41.. |
000018b0  6c 66 4a 53 52 20 e8 4e  41 4d 00 c9 20 76 66 4c  |lfJSR .NAM.. vfL|
000018c0  44 41 20 23 24 32 30 00  d5 20 80 66 53 54 41 20  |DA #$20.. .fSTA |
000018d0  24 46 43 00 e2 20 8a 66  4c 44 58 20 23 24 30 30  |$FC.. .fLDX #$00|
000018e0  00 ee 20 94 66 53 54 41  20 24 46 42 00 fb 20 9e  |.. .fSTA $FB.. .|
000018f0  66 4c 44 59 20 23 24 34  30 00 08 21 a8 66 4c 44  |fLDY #$40..!.fLD|
00001900  41 20 23 24 46 42 00 15  21 b2 66 4a 53 52 20 e4  |A #$FB..!.fJSR .|
00001910  52 4f 4d 00 26 21 bc 66  4a 4d 50 20 43 4f 4d 45  |ROM.&!.fJMP COME|
00001920  42 41 43 4b 00 4c 21 78  69 3b 20 20 20 20 20 20  |BACK.L!xi;      |
00001930  20 20 20 20 20 4b 45 59  42 4f 41 52 44 20 44 45  |     KEYBOARD DE|
00001940  43 4f 44 45 20 54 41 42  4c 45 00 52 21 82 69 3b  |CODE TABLE.R!.i;|
00001950  00 69 21 8c 69 dc d4 20  54 58 54 20 24 38 31 2c  |.i!.i.. TXT $81,|
00001960  24 38 30 2c 24 38 32 00  8b 21 96 69 54 58 54 20  |$80,$82..!.iTXT |
00001970  30 2c 30 2c 30 2c 30 2c  24 38 33 2c 35 31 2c 32  |0,0,0,0,$83,51,2|
00001980  33 2c 31 2c 35 32 2c 32  36 00 af 21 a0 69 54 58  |3,1,52,26..!.iTX|
00001990  54 20 31 39 2c 35 2c 30  2c 35 33 2c 31 38 2c 34  |T 19,5,0,53,18,4|
000019a0  2c 35 34 2c 33 2c 36 2c  32 30 2c 32 34 00 d4 21  |,54,3,6,20,24..!|
000019b0  aa 69 54 58 54 20 35 35  2c 32 35 2c 37 2c 35 36  |.iTXT 55,25,7,56|
000019c0  2c 32 2c 38 2c 32 31 2c  32 32 2c 35 37 2c 39 2c  |,2,8,21,22,57,9,|
000019d0  31 30 00 fa 21 b4 69 54  58 54 20 34 38 2c 31 33  |10..!.iTXT 48,13|
000019e0  2c 31 31 2c 31 35 2c 31  34 2c 34 33 2c 31 36 2c  |,11,15,14,43,16,|
000019f0  31 32 2c 34 35 2c 34 36  00 1e 22 be 69 54 58 54  |12,45,46..".iTXT|
00001a00  20 30 2c 30 2c 34 34 2c  30 2c 30 2c 30 2c 30 2c  | 0,0,44,0,0,0,0,|
00001a10  30 2c 30 2c 33 30 2c 34  37 2c 34 39 00 3a 22 c8  |0,0,30,47,49.:".|
00001a20  69 54 58 54 20 33 31 2c  30 2c 35 30 2c 33 32 2c  |iTXT 31,0,50,32,|
00001a30  30 2c 31 37 2c 30 2c 30  00 5e 22 30 75 3b 20 20  |0,17,0,0.^"0u;  |
00001a40  20 20 20 20 20 20 20 20  4d af 4c 45 42 52 4f 54  |        M.LEBROT|
00001a50  20 53 45 54 20 50 4c 4f  54 54 45 52 00 6b 22 3a  | SET PLOTTER.k":|
00001a60  75 4d af 4c 45 20 53 45  49 00 78 22 3c 75 4c 44  |uM.LE SEI.x"<uLD|
00001a70  41 20 23 24 30 31 00 85  22 3d 75 53 54 41 20 48  |A #$01.."=uSTA H|
00001a80  4f 55 52 00 92 22 3e 75  4a 53 52 20 4c 45 46 54  |OUR..">uJSR LEFT|
00001a90  00 9f 22 3f 75 4c 44 41  20 23 24 30 30 00 ae 22  |.."?uLDA #$00.."|
00001aa0  44 75 53 54 41 20 59 50  49 58 45 4c 00 bb 22 4e  |DuSTA YPIXEL.."N|
00001ab0  75 4c 44 41 20 23 24 30  33 00 c9 22 58 75 53 54  |uLDA #$03.."XuST|
00001ac0  41 20 24 34 31 30 30 00  d6 22 62 75 4c 44 41 20  |A $4100.."buLDA |
00001ad0  23 24 30 36 00 e4 22 6c  75 53 54 41 20 24 34 31  |#$06.."luSTA $41|
00001ae0  30 32 00 f2 22 76 75 4a  53 52 20 45 51 55 41 4c  |02.."vuJSR EQUAL|
00001af0  00 06 23 80 75 4d 4d 41  49 4e 4c 20 4c 44 41 20  |..#.uMMAINL LDA |
00001b00  23 24 30 30 00 15 23 8a  75 53 54 41 20 58 50 49  |#$00..#.uSTA XPI|
00001b10  58 45 4c 00 22 23 94 75  4c 44 41 20 23 24 30 31  |XEL."#.uLDA #$01|
00001b20  00 30 23 9e 75 53 54 41  20 24 34 31 30 30 00 3d  |.0#.uSTA $4100.=|
00001b30  23 a8 75 4c 44 41 20 23  24 30 35 00 4b 23 b2 75  |#.uLDA #$05.K#.u|
00001b40  53 54 41 20 24 34 31 30  32 00 59 23 bc 75 4a 53  |STA $4102.Y#.uJS|
00001b50  52 20 45 51 55 41 4c 00  6e 23 c6 75 4d 4d 41 49  |R EQUAL.n#.uMMAI|
00001b60  4e 4c 42 20 4c 44 41 20  23 24 30 35 00 7c 23 d0  |NLB LDA #$05.|#.|
00001b70  75 53 54 41 20 24 34 31  30 30 00 89 23 da 75 4c  |uSTA $4100..#.uL|
00001b80  44 41 20 23 24 30 37 00  97 23 e4 75 53 54 41 20  |DA #$07..#.uSTA |
00001b90  24 34 31 30 32 00 a5 23  ee 75 4a 53 52 20 45 51  |$4102..#.uJSR EQ|
00001ba0  55 41 4c 00 b3 23 f8 75  49 4e 43 20 24 34 31 30  |UAL..#.uINC $410|
00001bb0  30 00 c1 23 02 76 49 4e  43 20 24 34 31 30 32 00  |0..#.vINC $4102.|
00001bc0  cf 23 0c 76 4a 53 52 20  45 51 55 41 4c 00 dc 23  |.#.vJSR EQUAL..#|
00001bd0  16 76 4c 44 41 20 23 24  30 30 00 eb 23 20 76 53  |.vLDA #$00..# vS|
00001be0  54 41 20 43 4f 4c 4f 55  52 00 fd 23 2a 76 4c 4f  |TA COLOUR..#*vLO|
00001bf0  4f 50 20 4c 44 41 20 23  24 30 37 00 0b 24 34 76  |OP LDA #$07..$4v|
00001c00  53 54 41 20 24 34 31 30  30 00 19 24 3e 76 53 54  |STA $4100..$>vST|
00001c10  41 20 24 34 31 30 31 00  26 24 48 76 4c 44 41 20  |A $4101.&$HvLDA |
00001c20  23 24 31 30 00 34 24 52  76 53 54 41 20 24 34 31  |#$10.4$RvSTA $41|
00001c30  30 32 00 45 24 5c 76 4a  53 52 20 4d 55 4c 54 49  |02.E$\vJSR MULTI|
00001c40  50 4c 59 00 52 24 66 76  4c 44 41 20 23 24 30 38  |PLY.R$fvLDA #$08|
00001c50  00 60 24 70 76 53 54 41  20 24 34 31 30 30 00 6e  |.`$pvSTA $4100.n|
00001c60  24 7a 76 53 54 41 20 24  34 31 30 31 00 7b 24 84  |$zvSTA $4101.{$.|
00001c70  76 4c 44 41 20 23 24 31  31 00 89 24 8e 76 53 54  |vLDA #$11..$.vST|
00001c80  41 20 24 34 31 30 32 00  9a 24 98 76 4a 53 52 20  |A $4102..$.vJSR |
00001c90  4d 55 4c 54 49 50 4c 59  00 a7 24 a2 76 4c 44 58  |MULTIPLY..$.vLDX|
00001ca0  20 23 24 31 30 00 b5 24  ac 76 53 54 58 20 24 34  | #$10..$.vSTX $4|
00001cb0  31 30 30 00 bd 24 b6 76  49 4e 58 00 cb 24 c0 76  |100..$.vINX..$.v|
00001cc0  53 54 58 20 24 34 31 30  31 00 d3 24 ca 76 49 4e  |STX $4101..$.vIN|
00001cd0  58 00 e1 24 d4 76 53 54  58 20 24 34 31 30 32 00  |X..$.vSTX $4102.|
00001ce0  f1 24 de 76 4a 53 52 20  41 44 44 49 54 49 91 00  |.$.vJSR ADDITI..|
00001cf0  ff 24 e8 76 4c 44 41 20  24 34 30 39 31 00 0c 25  |.$.vLDA $4091..%|
00001d00  f2 76 43 4d 50 20 23 24  30 34 00 19 25 fc 76 42  |.vCMP #$04..%.vB|
00001d10  43 43 20 46 41 49 4c 00  26 25 06 77 43 4d 50 20  |CC FAIL.&%.wCMP |
00001d20  23 24 35 30 00 33 25 10  77 42 43 53 20 46 41 49  |#$50.3%.wBCS FAI|
00001d30  4c 00 4b 25 1a 77 53 55  43 50 41 53 53 20 4a 4d  |L.K%.wSUCPASS JM|
00001d40  50 20 53 55 43 43 45 53  53 00 5f 25 24 77 46 41  |P SUCCESS._%$wFA|
00001d50  49 4c 20 49 4e 43 20 43  4f 4c 4f 55 52 00 6e 25  |IL INC COLOUR.n%|
00001d60  29 77 4c 44 41 20 43 4f  4c 4f 55 52 00 7d 25 2e  |)wLDA COLOUR.}%.|
00001d70  77 43 4d 50 20 4d 41 58  43 4f 4c 00 8d 25 38 77  |wCMP MAXCOL..%8w|
00001d80  42 45 51 20 53 55 43 50  41 53 53 00 9e 25 42 77  |BEQ SUCPASS..%Bw|
00001d90  4a 53 52 20 53 55 42 54  52 41 43 54 00 ab 25 4c  |JSR SUBTRACT..%L|
00001da0  77 4c 44 41 20 23 24 31  32 00 b9 25 56 77 53 54  |wLDA #$12..%VwST|
00001db0  41 20 24 34 31 30 30 00  c6 25 60 77 4c 44 41 20  |A $4100..%`wLDA |
00001dc0  23 24 30 35 00 d4 25 6a  77 53 54 41 20 24 34 31  |#$05..%jwSTA $41|
00001dd0  30 31 00 e1 25 74 77 4c  44 41 20 23 24 31 33 00  |01..%twLDA #$13.|
00001de0  ef 25 7e 77 53 54 41 20  24 34 31 30 32 00 ff 25  |.%~wSTA $4102..%|
00001df0  88 77 4a 53 52 20 41 44  44 49 54 49 91 00 0c 26  |.wJSR ADDITI...&|
00001e00  92 77 4c 44 41 20 23 24  30 37 00 1a 26 9c 77 53  |.wLDA #$07..&.wS|
00001e10  54 41 20 24 34 31 30 30  00 27 26 a6 77 4c 44 41  |TA $4100.'&.wLDA|
00001e20  20 23 24 30 38 00 35 26  b0 77 53 54 41 20 24 34  | #$08.5&.wSTA $4|
00001e30  31 30 31 00 43 26 ba 77  49 4e 43 20 24 34 31 30  |101.C&.wINC $410|
00001e40  32 00 54 26 c4 77 4a 53  52 20 4d 55 4c 54 49 50  |2.T&.wJSR MULTIP|
00001e50  4c 59 00 61 26 ce 77 4c  44 41 20 23 24 31 34 00  |LY.a&.wLDA #$14.|
00001e60  6f 26 d8 77 53 54 41 20  24 34 31 30 30 00 7c 26  |o&.wSTA $4100.|&|
00001e70  e2 77 4c 44 41 20 23 24  31 43 00 8a 26 ec 77 53  |.wLDA #$1C..&.wS|
00001e80  54 41 20 24 34 31 30 31  00 97 26 f6 77 4c 44 41  |TA $4101..&.wLDA|
00001e90  20 23 24 31 35 00 a5 26  00 78 53 54 41 20 24 34  | #$15..&.xSTA $4|
00001ea0  31 30 32 00 b6 26 0a 78  4a 53 52 20 4d 55 4c 54  |102..&.xJSR MULT|
00001eb0  49 50 4c 59 00 c3 26 14  78 4c 44 41 20 23 24 31  |IPLY..&.xLDA #$1|
00001ec0  35 00 d1 26 1e 78 53 54  41 20 24 34 31 30 30 00  |5..&.xSTA $4100.|
00001ed0  de 26 28 78 4c 44 41 20  23 24 30 36 00 ec 26 32  |.&(xLDA #$06..&2|
00001ee0  78 53 54 41 20 24 34 31  30 31 00 f9 26 3c 78 4c  |xSTA $4101..&<xL|
00001ef0  44 41 20 23 24 31 36 00  07 27 46 78 53 54 41 20  |DA #$16..'FxSTA |
00001f00  24 34 31 30 32 00 17 27  50 78 4a 53 52 20 41 44  |$4102..'PxJSR AD|
00001f10  44 49 54 49 91 00 24 27  5a 78 4c 44 41 20 23 24  |DITI..$'ZxLDA #$|
00001f20  31 33 00 32 27 64 78 53  54 41 20 24 34 31 30 30  |13.2'dxSTA $4100|
00001f30  00 3f 27 6e 78 4c 44 41  20 23 24 30 37 00 4d 27  |.?'nxLDA #$07.M'|
00001f40  78 78 53 54 41 20 24 34  31 30 32 00 5b 27 82 78  |xxSTA $4102.['.x|
00001f50  4a 53 52 20 45 51 55 41  4c 00 68 27 8c 78 4c 44  |JSR EQUAL.h'.xLD|
00001f60  41 20 23 24 31 36 00 76  27 96 78 53 54 41 20 24  |A #$16.v'.xSTA $|
00001f70  34 31 30 30 00 83 27 a0  78 4c 44 41 20 23 24 30  |4100..'.xLDA #$0|
00001f80  38 00 91 27 aa 78 53 54  41 20 24 34 31 30 32 00  |8..'.xSTA $4102.|
00001f90  9f 27 b4 78 4a 53 52 20  45 51 55 41 4c 00 ac 27  |.'.xJSR EQUAL..'|
00001fa0  be 78 4a 4d 50 20 4c 4f  4f 50 00 c1 27 c8 78 53  |.xJMP LOOP..'.xS|
00001fb0  55 43 43 45 53 53 20 4a  53 52 20 50 4c 4f 54 00  |UCCESS JSR PLOT.|
00001fc0  ce 27 d2 78 4c 44 41 20  23 24 30 35 00 dc 27 dc  |.'.xLDA #$05..'.|
00001fd0  78 53 54 41 20 24 34 31  30 30 00 ea 27 e6 78 53  |xSTA $4100..'.xS|
00001fe0  54 41 20 24 34 31 30 32  00 f7 27 f0 78 4c 44 41  |TA $4102..'.xLDA|
00001ff0  20 23 24 30 32 00 05 28  fa 78 53 54 41 20 24 34  | #$02..(.xSTA $4|
00002000  31 30 31 00 15 28 04 79  4a 53 52 20 41 44 44 49  |101..(.yJSR ADDI|
00002010  54 49 91 00 24 28 0e 79  4c 44 41 20 58 50 49 58  |TI..$(.yLDA XPIX|
00002020  45 4c 00 33 28 18 79 42  4e 45 20 58 52 45 4c 4f  |EL.3(.yBNE XRELO|
00002030  50 00 40 28 22 79 4c 44  41 20 23 24 30 36 00 4e  |P.@("yLDA #$06.N|
00002040  28 2c 79 53 54 41 20 24  34 31 30 30 00 5c 28 36  |(,ySTA $4100.\(6|
00002050  79 53 54 41 20 24 34 31  30 32 00 69 28 40 79 4c  |ySTA $4102.i(@yL|
00002060  44 41 20 23 24 30 34 00  77 28 4a 79 53 54 41 20  |DA #$04.w(JySTA |
00002070  24 34 31 30 31 00 87 28  54 79 4a 53 52 20 41 44  |$4101..(TyJSR AD|
00002080  44 49 54 49 91 00 96 28  5e 79 49 4e 43 20 59 50  |DITI...(^yINC YP|
00002090  49 58 45 4c 00 a5 28 68  79 4c 44 41 20 59 50 49  |IXEL..(hyLDA YPI|
000020a0  58 45 4c 00 b2 28 72 79  43 4d 50 20 23 24 43 38  |XEL..(ryCMP #$C8|
000020b0  00 c1 28 7c 79 42 4e 45  20 59 52 45 4c 4f 50 00  |..(|yBNE YRELOP.|
000020c0  ce 28 7e 79 4c 44 41 20  23 24 30 30 00 db 28 7f  |.(~yLDA #$00..(.|
000020d0  79 53 54 41 20 48 4f 55  52 00 e9 28 80 79 4a 53  |ySTA HOUR..(.yJS|
000020e0  52 20 52 49 47 48 54 00  f1 28 81 79 43 4c 49 00  |R RIGHT..(.yCLI.|
000020f0  f9 28 86 79 52 54 53 00  10 29 90 79 58 52 45 4c  |.(.yRTS..).yXREL|
00002100  4f 50 20 4a 4d 50 20 4d  4d 41 49 4e 4c 42 00 26  |OP JMP MMAINLB.&|
00002110  29 9a 79 59 52 45 4c 4f  50 20 4a 4d 50 20 4d 4d  |).yYRELOP JMP MM|
00002120  41 49 4e 4c 00 3a 29 e0  79 4d af 50 4c 4f 54 20  |AINL.:).yM.PLOT |
00002130  4a 53 52 20 4d af 4c 45  00 49 29 ea 79 4a 4d 50  |JSR M.LE.I).yJMP|
00002140  20 9a 52 4f 4c 4f 50 00  6f 29 b8 88 3b 20 20 20  | .ROLOP.o)..;   |
00002150  20 20 20 20 20 20 20 20  20 20 20 20 20 20 43 4f  |              CO|
00002160  4c 4f 55 52 20 52 4f 55  54 49 4e 45 53 00 82 29  |LOUR ROUTINES..)|
00002170  c2 88 e8 43 4f 4c 53 20  4c 44 41 20 43 4f 4c 30  |...COLS LDA COL0|
00002180  00 90 29 cc 88 53 54 41  20 24 44 30 32 31 00 9d  |..)..STA $D021..|
00002190  29 d6 88 4c 44 59 20 23  24 30 30 00 a9 29 e0 88  |)..LDY #$00..)..|
000021a0  53 54 59 20 24 46 42 00  b6 29 ea 88 4c 44 41 20  |STY $FB..)..LDA |
000021b0  23 24 44 38 00 c2 29 f4  88 53 54 41 20 24 46 43  |#$D8..)..STA $FC|
000021c0  00 cf 29 fe 88 4c 44 41  20 43 4f 4c 33 00 e6 29  |..)..LDA COL3..)|
000021d0  08 89 e8 43 4c 4f 50 41  20 53 54 41 20 28 24 46  |...CLOPA STA ($F|
000021e0  42 29 2c 59 00 ee 29 12  89 49 4e 59 00 fd 29 1c  |B),Y..)..INY..).|
000021f0  89 42 4e 45 20 e8 43 4c  4f 50 41 00 09 2a 26 89  |.BNE .CLOPA..*&.|
00002200  49 4e 43 20 24 46 43 00  15 2a 30 89 4c 44 58 20  |INC $FC..*0.LDX |
00002210  24 46 43 00 22 2a 3a 89  43 50 58 20 23 24 44 43  |$FC."*:.CPX #$DC|
00002220  00 31 2a 44 89 42 4e 45  20 e8 43 4c 4f 50 41 00  |.1*D.BNE .CLOPA.|
00002230  3e 2a 4e 89 4c 44 41 20  23 24 30 34 00 4a 2a 58  |>*N.LDA #$04.J*X|
00002240  89 53 54 41 20 24 46 43  00 57 2a 62 89 4c 44 41  |.STA $FC.W*b.LDA|
00002250  20 43 4f 4c 31 00 61 2a  6c 89 41 53 4c 20 41 00  | COL1.a*l.ASL A.|
00002260  6b 2a 76 89 41 53 4c 20  41 00 75 2a 80 89 41 53  |k*v.ASL A.u*..AS|
00002270  4c 20 41 00 7f 2a 8a 89  41 53 4c 20 41 00 8b 2a  |L A..*..ASL A..*|
00002280  94 89 b0 41 20 43 4f 4c  32 00 a2 2a 9e 89 e8 43  |...A COL2..*...C|
00002290  4c 4f 50 42 20 53 54 41  20 28 24 46 42 29 2c 59  |LOPB STA ($FB),Y|
000022a0  00 aa 2a a8 89 49 4e 59  00 b9 2a b2 89 42 45 51  |..*..INY..*..BEQ|
000022b0  20 e8 43 4c 4f 50 43 00  c6 2a bc 89 43 50 59 20  | .CLOPC..*..CPY |
000022c0  23 24 46 38 00 d5 2a c6  89 42 4e 45 20 e8 43 4c  |#$F8..*..BNE .CL|
000022d0  4f 50 42 00 e1 2a d0 89  4c 44 58 20 24 46 43 00  |OPB..*..LDX $FC.|
000022e0  ee 2a da 89 43 50 58 20  23 24 30 37 00 fd 2a e4  |.*..CPX #$07..*.|
000022f0  89 42 4e 45 20 e8 43 4c  4f 50 42 00 05 2b ee 89  |.BNE .CLOPB..+..|
00002300  52 54 53 00 18 2b f8 89  e8 43 4c 4f 50 43 20 49  |RTS..+...CLOPC I|
00002310  4e 43 20 24 46 43 00 27  2b 02 8a 4a 4d 50 20 e8  |NC $FC.'+..JMP .|
00002320  43 4c 4f 50 42 00 3b 2b  0c 8a 43 4f 4c 43 92 20  |CLOPB.;+..COLC. |
00002330  4c 44 41 20 d5 54 49 4d  45 00 43 2b 16 8a 43 4c  |LDA .TIME.C+..CL|
00002340  43 00 51 2b 20 8a 41 44  43 20 53 50 45 45 44 00  |C.Q+ .ADC SPEED.|
00002350  5f 2b 2a 8a 53 54 41 20  d5 54 49 4d 45 00 73 2b  |_+*.STA .TIME.s+|
00002360  34 8a 43 4f 4c 43 4c 4f  50 20 43 4d 50 20 24 41  |4.COLCLOP CMP $A|
00002370  32 00 83 2b 3e 8a 42 4e  45 20 43 4f 4c 43 4c 4f  |2..+>.BNE COLCLO|
00002380  50 00 8b 2b 48 8a 52 54  53 00 9e 2b 52 8a 43 4f  |P..+H.RTS..+R.CO|
00002390  4c 43 dc 53 20 4c 44 41  20 24 43 35 00 ab 2b 5c  |LC.S LDA $C5..+\|
000023a0  8a 43 4d 50 20 23 24 32  38 00 b8 2b 66 8a 42 45  |.CMP #$28..+f.BE|
000023b0  51 20 53 50 55 50 00 c5  2b 70 8a 43 4d 50 20 23  |Q SPUP..+p.CMP #|
000023c0  24 32 42 00 d2 2b 7a 8a  42 45 51 20 53 4c 44 4e  |$2B..+z.BEQ SLDN|
000023d0  00 df 2b 84 8a 43 4d 50  20 23 24 30 31 00 ef 2b  |..+..CMP #$01..+|
000023e0  8e 8a 42 45 51 20 43 4f  4c 43 4f 46 46 00 fb 2b  |..BEQ COLCOFF..+|
000023f0  98 8a 4e 4f dc 20 52 54  53 00 0b 2c a2 8a 43 4f  |..NO. RTS..,..CO|
00002400  4c 43 4f 46 46 20 50 4c  41 00 13 2c ac 8a 50 4c  |LCOFF PLA..,..PL|
00002410  41 00 24 2c b6 8a 4a 4d  50 20 43 4f 4d 45 42 41  |A.$,..JMP COMEBA|
00002420  43 4b 00 37 2c c0 8a 53  50 55 50 20 4c 44 41 20  |CK.7,..SPUP LDA |
00002430  53 50 45 45 44 00 44 2c  c5 8a 43 4d 50 20 23 24  |SPEED.D,..CMP #$|
00002440  30 33 00 50 2c ca 8a 42  45 51 20 4e 4f dc 00 5e  |03.P,..BEQ NO..^|
00002450  2c d4 8a 44 45 43 20 53  50 45 45 44 00 66 2c de  |,..DEC SPEED.f,.|
00002460  8a 52 54 53 00 79 2c e8  8a 53 4c 44 4e 20 4c 44  |.RTS.y,..SLDN LD|
00002470  41 20 53 50 45 45 44 00  86 2c f2 8a 43 4d 50 20  |A SPEED..,..CMP |
00002480  23 24 31 39 00 92 2c fc  8a 42 45 51 20 4e 4f dc  |#$19..,..BEQ NO.|
00002490  00 a0 2c 06 8b 49 4e 43  20 53 50 45 45 44 00 a8  |..,..INC SPEED..|
000024a0  2c 10 8b 52 54 53 00 be  2c 1a 8b 43 4f 4c 43 59  |,..RTS..,..COLCY|
000024b0  43 4c 45 20 4c 44 41 20  23 24 30 41 00 cc 2c 24  |CLE LDA #$0A..,$|
000024c0  8b 53 54 41 20 53 50 45  45 44 00 d8 2c 2e 8b 4c  |.STA SPEED..,..L|
000024d0  44 41 20 24 41 32 00 e6  2c 38 8b 53 54 41 20 d5  |DA $A2..,8.STA .|
000024e0  54 49 4d 45 00 fe 2c 42  8b 43 4f 4c 43 59 43 4c  |TIME..,B.COLCYCL|
000024f0  4f 50 20 4c 44 41 20 43  4f 4c 30 53 00 0b 2d 4c  |OP LDA COL0S..-L|
00002500  8b 53 54 41 20 43 4f 4c  30 00 19 2d 56 8b 4c 44  |.STA COL0..-V.LD|
00002510  41 20 43 4f 4c 31 53 00  26 2d 60 8b 53 54 41 20  |A COL1S.&-`.STA |
00002520  43 4f 4c 31 00 34 2d 6a  8b 4c 44 41 20 43 4f 4c  |COL1.4-j.LDA COL|
00002530  32 53 00 41 2d 74 8b 53  54 41 20 43 4f 4c 32 00  |2S.A-t.STA COL2.|
00002540  4f 2d 7e 8b 4c 44 41 20  43 4f 4c 33 53 00 5c 2d  |O-~.LDA COL3S.\-|
00002550  88 8b 53 54 41 20 43 4f  4c 33 00 6a 2d 92 8b 4a  |..STA COL3.j-..J|
00002560  53 52 20 e8 43 4f 4c 53  00 79 2d 9c 8b 4a 53 52  |SR .COLS.y-..JSR|
00002570  20 43 4f 4c 43 dc 53 00  87 2d a6 8b 4a 53 52 20  | COLC.S..-..JSR |
00002580  43 4f 4c 43 92 00 95 2d  b0 8b 4c 44 41 20 43 4f  |COLC...-..LDA CO|
00002590  4c 33 53 00 a2 2d ba 8b  53 54 41 20 43 4f 4c 30  |L3S..-..STA COL0|
000025a0  00 b0 2d c4 8b 4c 44 41  20 43 4f 4c 30 53 00 bd  |..-..LDA COL0S..|
000025b0  2d ce 8b 53 54 41 20 43  4f 4c 31 00 cb 2d d8 8b  |-..STA COL1..-..|
000025c0  4c 44 41 20 43 4f 4c 31  53 00 d8 2d e2 8b 53 54  |LDA COL1S..-..ST|
000025d0  41 20 43 4f 4c 32 00 e6  2d ec 8b 4c 44 41 20 43  |A COL2..-..LDA C|
000025e0  4f 4c 32 53 00 f3 2d f6  8b 53 54 41 20 43 4f 4c  |OL2S..-..STA COL|
000025f0  33 00 01 2e 00 8c 4a 53  52 20 e8 43 4f 4c 53 00  |3.....JSR .COLS.|
00002600  10 2e 0a 8c 4a 53 52 20  43 4f 4c 43 dc 53 00 1e  |....JSR COLC.S..|
00002610  2e 14 8c 4a 53 52 20 43  4f 4c 43 92 00 2c 2e 1e  |...JSR COLC..,..|
00002620  8c 4c 44 41 20 43 4f 4c  32 53 00 39 2e 28 8c 53  |.LDA COL2S.9.(.S|
00002630  54 41 20 43 4f 4c 30 00  47 2e 32 8c 4c 44 41 20  |TA COL0.G.2.LDA |
00002640  43 4f 4c 33 53 00 54 2e  3c 8c 53 54 41 20 43 4f  |COL3S.T.<.STA CO|
00002650  4c 31 00 62 2e 46 8c 4c  44 41 20 43 4f 4c 30 53  |L1.b.F.LDA COL0S|
00002660  00 6f 2e 50 8c 53 54 41  20 43 4f 4c 32 00 7d 2e  |.o.P.STA COL2.}.|
00002670  5a 8c 4c 44 41 20 43 4f  4c 31 53 00 8a 2e 64 8c  |Z.LDA COL1S...d.|
00002680  53 54 41 20 43 4f 4c 33  00 98 2e 6e 8c 4a 53 52  |STA COL3...n.JSR|
00002690  20 e8 43 4f 4c 53 00 a7  2e 78 8c 4a 53 52 20 43  | .COLS...x.JSR C|
000026a0  4f 4c 43 dc 53 00 b5 2e  82 8c 4a 53 52 20 43 4f  |OLC.S.....JSR CO|
000026b0  4c 43 92 00 c3 2e 8c 8c  4c 44 41 20 43 4f 4c 31  |LC......LDA COL1|
000026c0  53 00 d0 2e 96 8c 53 54  41 20 43 4f 4c 30 00 de  |S.....STA COL0..|
000026d0  2e a0 8c 4c 44 41 20 43  4f 4c 32 53 00 eb 2e aa  |...LDA COL2S....|
000026e0  8c 53 54 41 20 43 4f 4c  31 00 f9 2e b4 8c 4c 44  |.STA COL1.....LD|
000026f0  41 20 43 4f 4c 33 53 00  06 2f be 8c 53 54 41 20  |A COL3S../..STA |
00002700  43 4f 4c 32 00 14 2f c8  8c 4c 44 41 20 43 4f 4c  |COL2../..LDA COL|
00002710  30 53 00 21 2f d2 8c 53  54 41 20 43 4f 4c 33 00  |0S.!/..STA COL3.|
00002720  2f 2f dc 8c 4a 53 52 20  e8 43 4f 4c 53 00 3e 2f  |//..JSR .COLS.>/|
00002730  e6 8c 4a 53 52 20 43 4f  4c 43 dc 53 00 4c 2f f0  |..JSR COLC.S.L/.|
00002740  8c 4a 53 52 20 43 4f 4c  43 92 00 5e 2f fa 8c 4a  |.JSR COLC..^/..J|
00002750  4d 50 20 43 4f 4c 43 59  43 4c 4f 50 00 73 2f 04  |MP COLCYCLOP.s/.|
00002760  8d 49 54 45 52 99 20 4c  44 41 20 4d 41 58 43 4f  |.ITER. LDA MAXCO|
00002770  4c 00 7e 2f 0e 8d af 20  23 24 46 30 00 88 2f 18  |L.~/... #$F0../.|
00002780  8d 4c 53 52 20 41 00 92  2f 22 8d 4c 53 52 20 41  |.LSR A../".LSR A|
00002790  00 9c 2f 2c 8d 4c 53 52  20 41 00 a6 2f 36 8d 4c  |../,.LSR A../6.L|
000027a0  53 52 20 41 00 b3 2f 40  8d 43 4d 50 20 23 24 30  |SR A../@.CMP #$0|
000027b0  41 00 c1 2f 4a 8d 42 43  43 20 49 54 41 44 44 00  |A../J.BCC ITADD.|
000027c0  c9 2f 54 8d 53 45 43 00  d6 2f 5e 8d 53 42 43 20  |./T.SEC../^.SBC |
000027d0  23 24 33 41 00 e4 2f 68  8d 49 54 41 44 44 20 43  |#$3A../h.ITADD C|
000027e0  4c 43 00 f1 2f 72 8d 41  44 43 20 23 24 33 30 00  |LC../r.ADC #$30.|
000027f0  ff 2f 7c 8d 53 54 41 20  24 30 35 30 35 00 0e 30  |./|.STA $0505..0|
00002800  86 8d 4c 44 41 20 4d 41  58 43 4f 4c 00 19 30 90  |..LDA MAXCOL..0.|
00002810  8d af 20 23 24 30 46 00  26 30 9a 8d 43 4d 50 20  |.. #$0F.&0..CMP |
00002820  23 24 30 41 00 36 30 a4  8d 42 43 43 20 4e 4f 41  |#$0A.60..BCC NOA|
00002830  44 44 49 54 00 3e 30 ae  8d 53 45 43 00 4b 30 b8  |DDIT.>0..SEC.K0.|
00002840  8d 53 42 43 20 23 24 33  41 00 5b 30 c2 8d 4e 4f  |.SBC #$3A.[0..NO|
00002850  41 44 44 49 54 20 43 4c  43 00 68 30 cc 8d 41 44  |ADDIT CLC.h0..AD|
00002860  43 20 23 24 33 30 00 76  30 d6 8d 53 54 41 20 24  |C #$30.v0..STA $|
00002870  30 35 30 36 00 7e 30 e0  8d 52 54 53 00 a6 30 ea  |0506.~0..RTS..0.|
00002880  8d 43 4f 4c 54 45 58 54  20 54 58 54 20 31 34 37  |.COLTEXT TXT 147|
00002890  2c 35 2c 22 b0 c3 ae b0  c3 ae b0 c3 ae b0 c3 ae  |,5,"............|
000028a0  22 2c 31 33 00 da 30 f4  8d 54 58 54 20 22 c2 12  |",13..0..TXT "..|
000028b0  20 92 c2 c2 12 20 92 c2  c2 12 20 92 c2 c2 12 20  | .... .... .... |
000028c0  92 c2 20 3c 2d 20 53 43  52 45 45 4e 20 43 4f 4c  |.. <- SCREEN COL|
000028d0  4f 55 52 53 22 2c 31 33  00 f4 30 fe 8d 54 58 54  |OURS",13..0..TXT|
000028e0  20 22 ad c3 bd ad c3 bd  ad c3 bd ad c3 bd 22 2c  | "............",|
000028f0  31 33 00 13 31 08 8e 54  58 54 20 22 20 31 20 20  |13..1..TXT " 1  |
00002900  32 20 20 33 20 20 34 22  2c 31 33 2c 31 33 2c 31  |2  3  4",13,13,1|
00002910  33 00 37 31 12 8e 54 58  54 20 22 4d 41 58 49 4d  |3.71..TXT "MAXIM|
00002920  55 4d 20 49 54 45 52 41  54 49 4f 4e 53 3a 20 24  |UM ITERATIONS: $|
00002930  24 24 22 2c 30 00 4d 31  1c 8e 43 4f 4c 53 20 4a  |$$",0.M1..COLS J|
00002940  53 52 20 48 49 52 45 53  4f 46 46 00 5f 31 26 8e  |SR HIRESOFF._1&.|
00002950  4c 44 41 20 23 b3 43 4f  4c 54 45 58 54 00 6b 31  |LDA #.COLTEXT.k1|
00002960  30 8e 53 54 41 20 24 46  42 00 7d 31 3a 8e 4c 44  |0.STA $FB.}1:.LD|
00002970  41 20 23 b1 43 4f 4c 54  45 58 54 00 89 31 44 8e  |A #.COLTEXT..1D.|
00002980  53 54 41 20 24 46 43 00  99 31 4e 8e 4a 53 52 20  |STA $FC..1N.JSR |
00002990  50 53 54 52 49 4e 47 00  a7 31 58 8e 4c 44 41 20  |PSTRING..1X.LDA |
000029a0  43 4f 4c 30 53 00 b5 31  62 8e 53 54 41 20 24 44  |COL0S..1b.STA $D|
000029b0  38 32 39 00 c3 31 6c 8e  4c 44 41 20 43 4f 4c 31  |829..1l.LDA COL1|
000029c0  53 00 d1 31 76 8e 53 54  41 20 24 44 38 32 43 00  |S..1v.STA $D82C.|
000029d0  df 31 80 8e 4c 44 41 20  43 4f 4c 32 53 00 ed 31  |.1..LDA COL2S..1|
000029e0  8a 8e 53 54 41 20 24 44  38 32 46 00 fb 31 94 8e  |..STA $D82F..1..|
000029f0  4c 44 41 20 43 4f 4c 33  53 00 09 32 9e 8e 53 54  |LDA COL3S..2..ST|
00002a00  41 20 24 44 38 33 32 00  17 32 a8 8e 4a 53 52 20  |A $D832..2..JSR |
00002a10  49 54 45 52 99 00 2b 32  b2 8e 43 4f 4c 4c 4f 4f  |ITER..+2..COLLOO|
00002a20  50 4b 20 4a 53 52 20 a1  dc 00 38 32 bc 8e 43 4d  |PK JSR ...82..CM|
00002a30  50 20 23 24 38 30 00 48  32 c6 8e 42 45 51 20 43  |P #$80.H2..BEQ C|
00002a40  4f 4c 51 55 49 54 00 55  32 d0 8e 43 4d 50 20 23  |OLQUIT.U2..CMP #|
00002a50  24 33 31 00 65 32 da 8e  42 45 51 20 43 4f 4c 31  |$31.e2..BEQ COL1|
00002a60  41 44 44 00 72 32 e4 8e  43 4d 50 20 23 24 33 32  |ADD.r2..CMP #$32|
00002a70  00 82 32 ee 8e 42 45 51  20 43 4f 4c 32 41 44 44  |..2..BEQ COL2ADD|
00002a80  00 8f 32 f8 8e 43 4d 50  20 23 24 33 33 00 9f 32  |..2..CMP #$33..2|
00002a90  02 8f 42 45 51 20 43 4f  4c 33 41 44 44 00 ac 32  |..BEQ COL3ADD..2|
00002aa0  0c 8f 43 4d 50 20 23 24  33 34 00 bc 32 16 8f 42  |..CMP #$34..2..B|
00002ab0  45 51 20 43 4f 4c 34 41  44 44 00 c9 32 20 8f 43  |EQ COL4ADD..2 .C|
00002ac0  4d 50 20 23 24 32 42 00  da 32 2a 8f 42 45 51 20  |MP #$2B..2*.BEQ |
00002ad0  49 54 45 52 50 4c 55 53  00 e7 32 34 8f 43 4d 50  |ITERPLUS..24.CMP|
00002ae0  20 23 24 32 44 00 f8 32  3e 8f 42 4e 45 20 43 4f  | #$2D..2>.BNE CO|
00002af0  4c 4c 4f 4f 50 4b 00 07  33 48 8f 44 45 43 20 4d  |LLOOPK..3H.DEC M|
00002b00  41 58 43 4f 4c 00 15 33  52 8f 4a 53 52 20 49 54  |AXCOL..3R.JSR IT|
00002b10  45 52 99 00 26 33 5c 8f  4a 4d 50 20 43 4f 4c 4c  |ER..&3\.JMP COLL|
00002b20  4f 4f 50 4b 00 3e 33 66  8f 49 54 45 52 50 4c 55  |OOPK.>3f.ITERPLU|
00002b30  53 20 49 4e 43 20 4d 41  58 43 4f 4c 00 4c 33 70  |S INC MAXCOL.L3p|
00002b40  8f 4a 53 52 20 49 54 45  52 99 00 5d 33 7a 8f 4a  |.JSR ITER..]3z.J|
00002b50  4d 50 20 43 4f 4c 4c 4f  4f 50 4b 00 76 33 84 8f  |MP COLLOOPK.v3..|
00002b60  43 4f 4c 51 55 49 54 20  4a 4d 50 20 43 4f 4d 45  |COLQUIT JMP COME|
00002b70  42 41 43 4b 00 8c 33 8e  8f 43 4f 4c 31 41 44 44  |BACK..3..COL1ADD|
00002b80  20 49 4e 43 20 43 4f 4c  30 53 00 9a 33 98 8f 4c  | INC COL0S..3..L|
00002b90  44 41 20 43 4f 4c 30 53  00 a5 33 a2 8f af 20 23  |DA COL0S..3... #|
00002ba0  24 30 46 00 b3 33 ac 8f  53 54 41 20 43 4f 4c 30  |$0F..3..STA COL0|
00002bb0  53 00 c1 33 b6 8f 53 54  41 20 24 44 38 32 39 00  |S..3..STA $D829.|
00002bc0  d2 33 c0 8f 4a 4d 50 20  43 4f 4c 4c 4f 4f 50 4b  |.3..JMP COLLOOPK|
00002bd0  00 e8 33 ca 8f 43 4f 4c  32 41 44 44 20 49 4e 43  |..3..COL2ADD INC|
00002be0  20 43 4f 4c 31 53 00 f6  33 d4 8f 4c 44 41 20 43  | COL1S..3..LDA C|
00002bf0  4f 4c 31 53 00 01 34 de  8f af 20 23 24 30 46 00  |OL1S..4... #$0F.|
00002c00  0f 34 e8 8f 53 54 41 20  43 4f 4c 31 53 00 1d 34  |.4..STA COL1S..4|
00002c10  f2 8f 53 54 41 20 24 44  38 32 43 00 2e 34 fc 8f  |..STA $D82C..4..|
00002c20  4a 4d 50 20 43 4f 4c 4c  4f 4f 50 4b 00 44 34 06  |JMP COLLOOPK.D4.|
00002c30  90 43 4f 4c 33 41 44 44  20 49 4e 43 20 43 4f 4c  |.COL3ADD INC COL|
00002c40  32 53 00 52 34 10 90 4c  44 41 20 43 4f 4c 32 53  |2S.R4..LDA COL2S|
00002c50  00 5d 34 1a 90 af 20 23  24 30 46 00 6b 34 24 90  |.]4... #$0F.k4$.|
00002c60  53 54 41 20 43 4f 4c 32  53 00 79 34 2e 90 53 54  |STA COL2S.y4..ST|
00002c70  41 20 24 44 38 32 46 00  8a 34 38 90 4a 4d 50 20  |A $D82F..48.JMP |
00002c80  43 4f 4c 4c 4f 4f 50 4b  00 a0 34 42 90 43 4f 4c  |COLLOOPK..4B.COL|
00002c90  34 41 44 44 20 49 4e 43  20 43 4f 4c 33 53 00 ae  |4ADD INC COL3S..|
00002ca0  34 4c 90 4c 44 41 20 43  4f 4c 33 53 00 b9 34 56  |4L.LDA COL3S..4V|
00002cb0  90 af 20 23 24 30 46 00  c7 34 60 90 53 54 41 20  |.. #$0F..4`.STA |
00002cc0  43 4f 4c 33 53 00 d5 34  6a 90 53 54 41 20 24 44  |COL3S..4j.STA $D|
00002cd0  38 33 32 00 e6 34 74 90  4a 4d 50 20 43 4f 4c 4c  |832..4t.JMP COLL|
00002ce0  4f 4f 50 4b 00 0c 35 40  9c 3b 20 20 20 20 20 20  |OOPK..5@.;      |
00002cf0  20 20 20 20 20 20 20 41  52 49 54 48 4d 45 54 49  |       ARITHMETI|
00002d00  43 20 52 4f 55 54 49 4e  45 53 00 1b 35 4a 9c a1  |C ROUTINES..5J..|
00002d10  44 49 47 49 54 20 43 4c  44 00 25 35 54 9c 41 53  |DIGIT CLD.%5T.AS|
00002d20  4c 20 41 00 2f 35 5e 9c  41 53 4c 20 41 00 39 35  |L A./5^.ASL A.95|
00002d30  68 9c 41 53 4c 20 41 00  45 35 72 9c 53 54 41 20  |h.ASL A.E5r.STA |
00002d40  24 30 32 00 4d 35 7c 9c  54 58 41 00 57 35 86 9c  |$02.M5|.TXA.W5..|
00002d50  4c 53 52 20 41 00 63 35  90 9c 53 54 41 20 24 32  |LSR A.c5..STA $2|
00002d60  34 00 70 35 9a 9c 4c 44  41 20 23 24 30 37 00 78  |4.p5..LDA #$07.x|
00002d70  35 a4 9c 53 45 43 00 84  35 ae 9c 53 42 43 20 24  |5..SEC..5..SBC $|
00002d80  32 34 00 8c 35 b8 9c 43  4c 43 00 98 35 c2 9c 41  |24..5..CLC..5..A|
00002d90  44 43 20 24 30 32 00 a0  35 cc 9c 54 41 59 00 b0  |DC $02..5..TAY..|
00002da0  35 d6 9c 4c 44 41 20 24  34 30 30 30 2c 59 00 b8  |5..LDA $4000,Y..|
00002db0  35 e0 9c 54 41 59 00 c0  35 ea 9c 54 58 41 00 cb  |5..TAY..5..TXA..|
00002dc0  35 f4 9c af 20 23 24 30  31 00 d9 35 fe 9c 42 45  |5... #$01..5..BE|
00002dd0  51 20 4c 53 4e 47 44 00  e1 35 08 9d 54 59 41 00  |Q LSNGD..5..TYA.|
00002de0  ec 35 12 9d af 20 23 24  46 30 00 f6 35 1c 9d 4c  |.5... #$F0..5..L|
00002df0  53 52 20 41 00 00 36 26  9d 4c 53 52 20 41 00 0a  |SR A..6&.LSR A..|
00002e00  36 30 9d 4c 53 52 20 41  00 14 36 3a 9d 4c 53 52  |60.LSR A..6:.LSR|
00002e10  20 41 00 1c 36 44 9d 52  54 53 00 2a 36 4e 9d 4c  | A..6D.RTS.*6N.L|
00002e20  53 4e 47 44 20 54 59 41  00 35 36 58 9d af 20 23  |SNGD TYA.56X.. #|
00002e30  24 30 46 00 3d 36 62 9d  52 54 53 00 58 36 6c 9d  |$0F.=6b.RTS.X6l.|
00002e40  4d 55 4c 54 49 50 4c 59  42 20 4a 53 52 20 4e 45  |MULTIPLYB JSR NE|
00002e50  47 41 54 49 56 45 00 66  36 71 9d 4c 44 41 20 24  |GATIVE.f6q.LDA $|
00002e60  34 31 30 32 00 70 36 76  9d 41 53 4c 20 41 00 7a  |4102.p6v.ASL A.z|
00002e70  36 80 9d 41 53 4c 20 41  00 84 36 8a 9d 41 53 4c  |6..ASL A..6..ASL|
00002e80  20 41 00 8c 36 94 9d 54  41 58 00 99 36 9e 9d 4c  | A..6..TAX..6..L|
00002e90  44 41 20 23 24 30 30 00  a1 36 a8 9d 54 41 59 00  |DA #$00..6..TAY.|
00002ea0  b7 36 b2 9d 4d 4c 4f 50  41 20 53 54 41 20 24 34  |.6..MLOPA STA $4|
00002eb0  30 30 30 2c 58 00 bf 36  bc 9d 49 4e 59 00 c7 36  |000,X..6..INY..6|
00002ec0  c6 9d 49 4e 58 00 d4 36  d0 9d 43 50 59 20 23 24  |..INX..6..CPY #$|
00002ed0  30 38 00 e2 36 da 9d 42  4e 45 20 4d 4c 4f 50 41  |08..6..BNE MLOPA|
00002ee0  00 ef 36 e4 9d 4c 44 41  20 23 24 30 36 00 fb 36  |..6..LDA #$06..6|
00002ef0  ee 9d 53 54 41 20 24 46  43 00 10 37 f8 9d a2 44  |..STA $FC..7...D|
00002f00  49 47 49 54 20 4c 44 41  20 24 34 31 30 31 00 1c  |IGIT LDA $4101..|
00002f10  37 02 9e 4c 44 58 20 24  46 43 00 2b 37 0c 9e 4a  |7..LDX $FC.+7..J|
00002f20  53 52 20 a1 44 49 47 49  54 00 38 37 16 9e 43 4d  |SR .DIGIT.87..CM|
00002f30  50 20 23 24 30 30 00 48  37 20 9e 42 45 51 20 44  |P #$00.H7 .BEQ D|
00002f40  4d 4f 56 45 52 42 00 54  37 2a 9e 53 54 41 20 24  |MOVERB.T7*.STA $|
00002f50  46 44 00 61 37 34 9e 4c  44 41 20 23 24 30 36 00  |FD.a74.LDA #$06.|
00002f60  6d 37 3e 9e 53 54 41 20  24 46 42 00 81 37 48 9e  |m7>.STA $FB..7H.|
00002f70  44 4d 4c 4f 50 20 4c 44  41 20 24 34 31 30 30 00  |DMLOP LDA $4100.|
00002f80  8d 37 52 9e 4c 44 58 20  24 46 42 00 9c 37 5c 9e  |.7R.LDX $FB..7\.|
00002f90  4a 53 52 20 a1 44 49 47  49 54 00 a9 37 66 9e 43  |JSR .DIGIT..7f.C|
00002fa0  4d 50 20 23 24 30 30 00  b8 37 70 9e 42 45 51 20  |MP #$00..7p.BEQ |
00002fb0  44 4d 4f 56 45 52 00 c2  37 7a 9e 41 53 4c 20 41  |DMOVER..7z.ASL A|
00002fc0  00 cc 37 84 9e 41 53 4c  20 41 00 d6 37 8e 9e 41  |..7..ASL A..7..A|
00002fd0  53 4c 20 41 00 e0 37 98  9e 41 53 4c 20 41 00 e8  |SL A..7..ASL A..|
00002fe0  37 a2 9e 43 4c 43 00 f4  37 ac 9e 41 44 43 20 24  |7..CLC..7..ADC $|
00002ff0  46 44 00 fc 37 b6 9e 54  41 59 00 09 38 c0 9e 4c  |FD..7..TAY..8..L|
00003000  44 41 20 4d d4 2c 59 00  15 38 ca 9e 53 54 41 20  |DA M.,Y..8..STA |
00003010  24 33 35 00 20 38 d4 9e  af 20 23 24 30 46 00 28  |$35. 8... #$0F.(|
00003020  38 de 9e 54 41 59 00 34  38 e8 9e 4c 44 41 20 24  |8..TAY.48..LDA $|
00003030  46 42 00 3c 38 f2 9e 43  4c 43 00 48 38 fc 9e 41  |FB.<8..CLC.H8..A|
00003040  44 43 20 24 46 43 00 50  38 06 9f 53 45 43 00 5d  |DC $FC.P8..SEC.]|
00003050  38 10 9f 53 42 43 20 23  24 30 43 00 65 38 1a 9f  |8..SBC #$0C.e8..|
00003060  54 41 58 00 70 38 24 9f  af 20 23 24 30 31 00 7e  |TAX.p8$.. #$01.~|
00003070  38 2e 9f 42 45 51 20 4d  53 4b 49 50 00 86 38 38  |8..BEQ MSKIP..88|
00003080  9f 54 59 41 00 90 38 42  9f 41 53 4c 20 41 00 9a  |.TYA..8B.ASL A..|
00003090  38 4c 9f 41 53 4c 20 41  00 a4 38 56 9f 41 53 4c  |8L.ASL A..8V.ASL|
000030a0  20 41 00 ae 38 60 9f 41  53 4c 20 41 00 b6 38 6a  | A..8`.ASL A..8j|
000030b0  9f 54 41 59 00 c2 38 74  9f 4c 44 41 20 24 33 35  |.TAY..8t.LDA $35|
000030c0  00 cd 38 7e 9f af 20 23  24 46 30 00 d7 38 88 9f  |..8~.. #$F0..8..|
000030d0  4c 53 52 20 41 00 e1 38  92 9f 4c 53 52 20 41 00  |LSR A..8..LSR A.|
000030e0  eb 38 9c 9f 4c 53 52 20  41 00 f5 38 a6 9f 4c 53  |.8..LSR A..8..LS|
000030f0  52 20 41 00 01 39 b0 9f  53 54 41 20 24 33 35 00  |R A..9..STA $35.|
00003100  0c 39 ba 9f 4a 4d 50 20  4d 9a 00 23 39 bf 9f 44  |.9..JMP M..#9..D|
00003110  4d 4f 56 45 52 42 20 4a  4d 50 20 44 4d 4f 56 45  |MOVERB JMP DMOVE|
00003120  52 00 35 39 c4 9f 4d 53  4b 49 50 20 4c 44 59 20  |R.59..MSKIP LDY |
00003130  24 33 35 00 42 39 ce 9f  4c 44 41 20 23 24 30 30  |$35.B9..LDA #$00|
00003140  00 4e 39 d8 9f 53 54 41  20 24 33 35 00 59 39 da  |.N9..STA $35.Y9.|
00003150  9f 4d 9a 20 54 58 41 00  63 39 dc 9f 4c 53 52 20  |.M. TXA.c9..LSR |
00003160  41 00 6f 39 de 9f 53 54  41 20 24 30 32 00 7c 39  |A.o9..STA $02.|9|
00003170  e0 9f 4c 44 41 20 23 24  30 37 00 84 39 e2 9f 53  |..LDA #$07..9..S|
00003180  45 43 00 90 39 e4 9f 53  42 43 20 24 30 32 00 9c  |EC..9..SBC $02..|
00003190  39 e6 9f 53 54 41 20 24  30 32 00 aa 39 e8 9f 4c  |9..STA $02..9..L|
000031a0  44 41 20 24 34 31 30 32  00 b4 39 ea 9f 41 53 4c  |DA $4102..9..ASL|
000031b0  20 41 00 be 39 ec 9f 41  53 4c 20 41 00 c8 39 ee  | A..9..ASL A..9.|
000031c0  9f 41 53 4c 20 41 00 d4  39 f0 9f 41 44 43 20 24  |.ASL A..9..ADC $|
000031d0  30 32 00 e0 39 f2 9f 53  54 59 20 24 32 35 00 e8  |02..9..STY $25..|
000031e0  39 f4 9f 54 41 59 00 f0  39 f6 9f 53 45 44 00 00  |9..TAY..9..SED..|
000031f0  3a f8 9f 4c 44 41 20 24  34 30 30 30 2c 59 00 08  |:..LDA $4000,Y..|
00003200  3a fa 9f 43 4c 43 00 14  3a fc 9f 41 44 43 20 24  |:..CLC..:..ADC $|
00003210  32 35 00 24 3a fe 9f 53  54 41 20 24 34 30 30 30  |25.$:..STA $4000|
00003220  2c 59 00 2c 3a 00 a0 43  4c 44 00 34 3a 02 a0 44  |,Y.,:..CLD.4:..D|
00003230  45 59 00 3c 3a 04 a0 53  45 44 00 4c 3a 06 a0 4c  |EY.<:..SED.L:..L|
00003240  44 41 20 24 34 30 30 30  2c 59 00 58 3a 08 a0 41  |DA $4000,Y.X:..A|
00003250  44 43 20 24 33 35 00 68  3a 0a a0 53 54 41 20 24  |DC $35.h:..STA $|
00003260  34 30 30 30 2c 59 00 70  3a 0c a0 43 4c 44 00 84  |4000,Y.p:..CLD..|
00003270  3a 0e a0 4d 41 4c 50 20  42 43 43 20 44 4d 4f 56  |:..MALP BCC DMOV|
00003280  45 52 00 8c 3a 10 a0 44  45 59 00 94 3a 12 a0 53  |ER..:..DEY..:..S|
00003290  45 44 00 a4 3a 14 a0 4c  44 41 20 24 34 30 30 30  |ED..:..LDA $4000|
000032a0  2c 59 00 b1 3a 16 a0 41  44 43 20 23 24 30 30 00  |,Y..:..ADC #$00.|
000032b0  c1 3a 18 a0 53 54 41 20  24 34 30 30 30 2c 59 00  |.:..STA $4000,Y.|
000032c0  c9 3a 1a a0 43 4c 44 00  d6 3a 1c a0 4a 4d 50 20  |.:..CLD..:..JMP |
000032d0  4d 41 4c 50 00 e9 3a 5a  a0 44 4d 4f 56 45 52 20  |MALP..:Z.DMOVER |
000032e0  49 4e 43 20 24 46 42 00  f5 3a 64 a0 4c 44 41 20  |INC $FB..:d.LDA |
000032f0  24 46 42 00 02 3b 6e a0  43 4d 50 20 23 24 30 45  |$FB..;n.CMP #$0E|
00003300  00 11 3b 78 a0 42 43 43  20 44 4d 4c 4f 50 42 00  |..;x.BCC DMLOPB.|
00003310  1d 3b 82 a0 49 4e 43 20  24 46 43 00 29 3b 8c a0  |.;..INC $FC.);..|
00003320  4c 44 41 20 24 46 43 00  36 3b 96 a0 43 4d 50 20  |LDA $FC.6;..CMP |
00003330  23 24 30 45 00 46 3b a0  a0 42 43 43 20 a2 44 49  |#$0E.F;..BCC .DI|
00003340  47 49 54 42 00 53 3b aa  a0 4c 44 41 20 59 50 49  |GITB.S;..LDA YPI|
00003350  42 00 60 3b b4 a0 42 45  51 20 51 55 49 54 00 6e  |B.`;..BEQ QUIT.n|
00003360  3b be a0 4c 44 41 20 24  34 31 30 32 00 7c 3b c8  |;..LDA $4102.|;.|
00003370  a0 53 54 41 20 24 34 31  30 31 00 89 3b d2 a0 4c  |.STA $4101..;..L|
00003380  44 41 20 23 24 31 44 00  97 3b dc a0 53 54 41 20  |DA #$1D..;..STA |
00003390  24 34 31 30 30 00 a8 3b  e6 a0 4a 53 52 20 53 55  |$4100..;..JSR SU|
000033a0  42 54 52 41 43 54 00 b5  3b f0 a0 51 55 49 54 20  |BTRACT..;..QUIT |
000033b0  52 54 53 00 ca 3b fa a0  44 4d 4c 4f 50 42 20 4a  |RTS..;..DMLOPB J|
000033c0  4d 50 20 44 4d 4c 4f 50  00 e1 3b 04 a1 a2 44 49  |MP DMLOP..;...DI|
000033d0  47 49 54 42 20 4a 4d 50  20 a2 44 49 47 49 54 00  |GITB JMP .DIGIT.|
000033e0  f4 3b 22 a1 4d 53 55 50  20 4c 44 41 20 24 34 31  |.;".MSUP LDA $41|
000033f0  30 30 00 fe 3b 2c a1 41  53 4c 20 41 00 08 3c 36  |00..;,.ASL A..<6|
00003400  a1 41 53 4c 20 41 00 12  3c 40 a1 41 53 4c 20 41  |.ASL A..<@.ASL A|
00003410  00 1a 3c 4a a1 54 41 58  00 22 3c 54 a1 44 45 58  |..<J.TAX."<T.DEX|
00003420  00 2e 3c 5e a1 53 54 58  20 24 46 42 00 3c 3c 68  |..<^.STX $FB.<<h|
00003430  a1 4c 44 41 20 24 34 31  30 31 00 46 3c 72 a1 41  |.LDA $4101.F<r.A|
00003440  53 4c 20 41 00 50 3c 7c  a1 41 53 4c 20 41 00 5a  |SL A.P<|.ASL A.Z|
00003450  3c 86 a1 41 53 4c 20 41  00 62 3c 90 a1 54 41 58  |<..ASL A.b<..TAX|
00003460  00 6a 3c 9a a1 44 45 58  00 76 3c a4 a1 53 54 58  |.j<..DEX.v<..STX|
00003470  20 24 46 44 00 84 3c ae  a1 4c 44 41 20 24 34 31  | $FD..<..LDA $41|
00003480  30 32 00 8e 3c b8 a1 41  53 4c 20 41 00 98 3c c2  |02..<..ASL A..<.|
00003490  a1 41 53 4c 20 41 00 a2  3c cc a1 41 53 4c 20 41  |.ASL A..<..ASL A|
000034a0  00 aa 3c d6 a1 54 41 58  00 b2 3c e0 a1 44 45 58  |..<..TAX..<..DEX|
000034b0  00 be 3c ea a1 53 54 58  20 24 32 32 00 cb 3c f4  |..<..STX $22..<.|
000034c0  a1 4c 44 41 20 23 24 34  30 00 d7 3c fe a1 53 54  |.LDA #$40..<..ST|
000034d0  41 20 24 46 43 00 e3 3c  08 a2 53 54 41 20 24 46  |A $FC..<..STA $F|
000034e0  45 00 ef 3c 12 a2 53 54  41 20 24 32 33 00 f7 3c  |E..<..STA $23..<|
000034f0  1c a2 52 54 53 00 0a 3d  26 a2 45 51 55 41 4c 20  |..RTS..=&.EQUAL |
00003500  4a 53 52 20 4d 53 55 50  00 17 3d 30 a2 4c 44 59  |JSR MSUP..=0.LDY|
00003510  20 23 24 30 38 00 2c 3d  3a a2 45 4c 4f 50 20 4c  | #$08.,=:.ELOP L|
00003520  44 41 20 28 24 46 42 29  2c 59 00 3c 3d 44 a2 53  |DA ($FB),Y.<=D.S|
00003530  54 41 20 28 24 32 32 29  2c 59 00 44 3d 4e a2 44  |TA ($22),Y.D=N.D|
00003540  45 59 00 51 3d 58 a2 42  4e 45 20 45 4c 4f 50 00  |EY.Q=X.BNE ELOP.|
00003550  59 3d 62 a2 52 54 53 00  6e 3d 6c a2 41 44 44 49  |Y=b.RTS.n=l.ADDI|
00003560  54 49 91 20 4a 53 52 20  4d 53 55 50 00 7b 3d 76  |TI. JSR MSUP.{=v|
00003570  a2 4c 44 59 20 23 24 30  38 00 83 3d 80 a2 53 45  |.LDY #$08..=..SE|
00003580  44 00 8b 3d 8a a2 43 4c  43 00 a1 3d 94 a2 41 44  |D..=..CLC..=..AD|
00003590  4c 4f 50 20 4c 44 41 20  28 24 46 42 29 2c 59 00  |LOP LDA ($FB),Y.|
000035a0  b1 3d 9e a2 41 44 43 20  28 24 46 44 29 2c 59 00  |.=..ADC ($FD),Y.|
000035b0  c1 3d a8 a2 53 54 41 20  28 24 32 32 29 2c 59 00  |.=..STA ($22),Y.|
000035c0  c9 3d b2 a2 44 45 59 00  d7 3d bc a2 42 4e 45 20  |.=..DEY..=..BNE |
000035d0  41 44 4c 4f 50 00 df 3d  c6 a2 43 4c 44 00 e7 3d  |ADLOP..=..CLD..=|
000035e0  d0 a2 52 54 53 00 fd 3d  da a2 53 55 42 54 52 41  |..RTS..=..SUBTRA|
000035f0  43 54 20 4a 53 52 20 4d  53 55 50 00 0a 3e e4 a2  |CT JSR MSUP..>..|
00003600  4c 44 59 20 23 24 30 38  00 12 3e ee a2 53 45 44  |LDY #$08..>..SED|
00003610  00 1a 3e f8 a2 53 45 43  00 30 3e 02 a3 53 55 4c  |..>..SEC.0>..SUL|
00003620  4f 50 20 4c 44 41 20 28  24 46 42 29 2c 59 00 40  |OP LDA ($FB),Y.@|
00003630  3e 0c a3 53 42 43 20 28  24 46 44 29 2c 59 00 50  |>..SBC ($FD),Y.P|
00003640  3e 16 a3 53 54 41 20 28  24 32 32 29 2c 59 00 58  |>..STA ($22),Y.X|
00003650  3e 20 a3 44 45 59 00 66  3e 2a a3 42 4e 45 20 53  |> .DEY.f>*.BNE S|
00003660  55 4c 4f 50 00 6e 3e 34  a3 43 4c 44 00 76 3e 3e  |ULOP.n>4.CLD.v>>|
00003670  a3 52 54 53 00 8c 3e 48  a3 4e 45 47 41 54 49 56  |.RTS..>H.NEGATIV|
00003680  45 20 4c 44 41 20 23 24  30 30 00 94 3e 52 a3 50  |E LDA #$00..>R.P|
00003690  48 41 00 a2 3e 5c a3 4c  44 41 20 24 34 31 30 30  |HA..>\.LDA $4100|
000036a0  00 aa 3e 66 a3 54 41 59  00 b4 3e 70 a3 41 53 4c  |..>f.TAY..>p.ASL|
000036b0  20 41 00 be 3e 7a a3 41  53 4c 20 41 00 c8 3e 84  | A..>z.ASL A..>.|
000036c0  a3 41 53 4c 20 41 00 d0  3e 8e a3 54 41 58 00 e0  |.ASL A..>..TAX..|
000036d0  3e 98 a3 4c 44 41 20 24  34 30 30 31 2c 58 00 ed  |>..LDA $4001,X..|
000036e0  3e a2 a3 43 4d 50 20 23  24 35 30 00 00 3f a7 a3  |>..CMP #$50..?..|
000036f0  42 43 43 20 4e 45 47 52  4d 4f 56 45 41 42 00 08  |BCC NEGRMOVEAB..|
00003700  3f ac a3 50 4c 41 00 15  3f b6 a3 41 44 43 20 23  |?..PLA..?..ADC #|
00003710  24 30 30 00 1d 3f c0 a3  50 48 41 00 2f 3f ca a3  |$00..?..PHA./?..|
00003720  4a 4d 50 20 4e 45 47 52  4d 4f 56 45 41 00 48 3f  |JMP NEGRMOVEA.H?|
00003730  d4 a3 4e 45 47 52 4d 4f  56 45 41 42 20 4c 44 41  |..NEGRMOVEAB LDA|
00003740  20 24 34 31 30 31 00 50  3f de a3 54 41 59 00 5a  | $4101.P?..TAY.Z|
00003750  3f e8 a3 41 53 4c 20 41  00 64 3f f2 a3 41 53 4c  |?..ASL A.d?..ASL|
00003760  20 41 00 6e 3f fc a3 41  53 4c 20 41 00 76 3f 06  | A.n?..ASL A.v?.|
00003770  a4 54 41 58 00 86 3f 10  a4 4c 44 41 20 24 34 30  |.TAX..?..LDA $40|
00003780  30 31 2c 58 00 93 3f 1a  a4 43 4d 50 20 23 24 35  |01,X..?..CMP #$5|
00003790  30 00 9b 3f 24 a4 50 4c  41 00 a8 3f 2e a4 42 43  |0..?$.PLA..?..BC|
000037a0  43 20 4e 4f 45 b0 00 b4  3f 38 a4 45 b0 20 23 24  |C NOE...?8.E. #$|
000037b0  30 31 00 bc 3f 42 a4 50  48 41 00 ce 3f 4c a4 42  |01..?B.PHA..?L.B|
000037c0  43 53 20 4e 45 47 52 4d  4f 56 45 42 00 e1 3f 56  |CS NEGRMOVEB..?V|
000037d0  a4 4e 45 47 52 4d 4f 56  45 42 42 20 50 4c 41 00  |.NEGRMOVEBB PLA.|
000037e0  f3 3f 60 a4 4e 4f 45 b0  20 53 54 41 20 59 50 49  |.?`.NOE. STA YPI|
000037f0  42 00 fb 3f 6a a4 52 54  53 00 12 40 74 a4 4e 45  |B..?j.RTS..@t.NE|
00003800  47 52 4d 4f 56 45 20 4c  44 41 20 24 34 31 30 30  |GRMOVE LDA $4100|
00003810  00 1a 40 7e a4 50 48 41  00 28 40 88 a4 4c 44 41  |..@~.PHA.(@..LDA|
00003820  20 24 34 31 30 31 00 30  40 92 a4 50 48 41 00 3e  | $4101.0@..PHA.>|
00003830  40 9c a4 4c 44 41 20 24  34 31 30 32 00 46 40 a6  |@..LDA $4102.F@.|
00003840  a4 50 48 41 00 4e 40 b0  a4 54 59 41 00 5c 40 ba  |.PHA.N@..TYA.\@.|
00003850  a4 53 54 41 20 24 34 31  30 31 00 6a 40 c4 a4 53  |.STA $4101.j@..S|
00003860  54 41 20 24 34 31 30 32  00 77 40 ce a4 4c 44 41  |TA $4102.w@..LDA|
00003870  20 23 24 31 44 00 85 40  d8 a4 53 54 41 20 24 34  | #$1D..@..STA $4|
00003880  31 30 30 00 96 40 e2 a4  4a 53 52 20 53 55 42 54  |100..@..JSR SUBT|
00003890  52 41 43 54 00 9e 40 ec  a4 50 4c 41 00 ac 40 f6  |RACT..@..PLA..@.|
000038a0  a4 53 54 41 20 24 34 31  30 32 00 b4 40 00 a5 50  |.STA $4102..@..P|
000038b0  4c 41 00 c2 40 0a a5 53  54 41 20 24 34 31 30 31  |LA..@..STA $4101|
000038c0  00 ca 40 14 a5 50 4c 41  00 d8 40 1e a5 53 54 41  |..@..PLA..@..STA|
000038d0  20 24 34 31 30 30 00 e0  40 28 a5 52 54 53 00 fb  | $4100..@(.RTS..|
000038e0  40 32 a5 4e 45 47 52 4d  4f 56 45 41 20 4a 53 52  |@2.NEGRMOVEA JSR|
000038f0  20 4e 45 47 52 4d 4f 56  45 00 0e 41 3c a5 4a 4d  | NEGRMOVE..A<.JM|
00003900  50 20 4e 45 47 52 4d 4f  56 45 41 42 00 29 41 46  |P NEGRMOVEAB.)AF|
00003910  a5 4e 45 47 52 4d 4f 56  45 42 20 4a 53 52 20 4e  |.NEGRMOVEB JSR N|
00003920  45 47 52 4d 4f 56 45 00  3c 41 50 a5 4a 4d 50 20  |EGRMOVE.<AP.JMP |
00003930  4e 45 47 52 4d 4f 56 45  42 42 00 53 41 5a a5 4d  |NEGRMOVEBB.SAZ.M|
00003940  55 4c 54 49 50 4c 59 20  4c 44 41 20 24 34 31 30  |ULTIPLY LDA $410|
00003950  32 00 5b 41 64 a5 50 48  41 00 69 41 6e a5 4c 44  |2.[Ad.PHA.iAn.LD|
00003960  41 20 24 34 31 30 31 00  71 41 78 a5 50 48 41 00  |A $4101.qAx.PHA.|
00003970  7e 41 82 a5 4c 44 41 20  23 24 31 38 00 8c 41 8c  |~A..LDA #$18..A.|
00003980  a5 53 54 41 20 24 34 31  30 32 00 9a 41 96 a5 4a  |.STA $4102..A..J|
00003990  53 52 20 45 51 55 41 4c  00 a8 41 a0 a5 49 4e 43  |SR EQUAL..A..INC|
000039a0  20 24 34 31 30 32 00 b0  41 aa a5 50 4c 41 00 be  | $4102..A..PLA..|
000039b0  41 b4 a5 53 54 41 20 24  34 31 30 30 00 cc 41 be  |A..STA $4100..A.|
000039c0  a5 4a 53 52 20 45 51 55  41 4c 00 d9 41 c8 a5 4c  |.JSR EQUAL..A..L|
000039d0  44 41 20 23 24 31 38 00  e7 41 d2 a5 53 54 41 20  |DA #$18..A..STA |
000039e0  24 34 31 30 30 00 f4 41  dc a5 4c 44 41 20 23 24  |$4100..A..LDA #$|
000039f0  31 39 00 02 42 e6 a5 53  54 41 20 24 34 31 30 31  |19..B..STA $4101|
00003a00  00 0a 42 f0 a5 50 4c 41  00 18 42 fa a5 53 54 41  |..B..PLA..B..STA|
00003a10  20 24 34 31 30 32 00 2a  42 04 a6 4a 4d 50 20 4d  | $4102.*B..JMP M|
00003a20  55 4c 54 49 50 4c 59 42  00 50 42 c8 af 3b 20 20  |ULTIPLYB.PB..;  |
00003a30  20 20 20 20 20 20 20 20  20 4d 55 4c 54 49 50 4c  |         MULTIPL|
00003a40  49 43 41 54 49 4f 4e 20  54 41 42 4c 45 53 00 56  |ICATION TABLES.V|
00003a50  42 ca af 3b 00 81 42 cc  af 4d d4 20 54 58 54 20  |B..;..B..M. TXT |
00003a60  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003a70  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 00  |0,0,0,0,0,0,0,0.|
00003a80  a9 42 ce af 54 58 54 20  30 2c 31 2c 32 2c 33 2c  |.B..TXT 0,1,2,3,|
00003a90  34 2c 35 2c 36 2c 37 2c  38 2c 39 2c 30 2c 30 2c  |4,5,6,7,8,9,0,0,|
00003aa0  30 2c 30 2c 30 2c 30 00  db 42 d0 af 54 58 54 20  |0,0,0,0..B..TXT |
00003ab0  30 2c 32 2c 34 2c 36 2c  38 2c 24 31 30 2c 24 31  |0,2,4,6,8,$10,$1|
00003ac0  32 2c 24 31 34 2c 24 31  36 2c 24 31 38 2c 30 2c  |2,$14,$16,$18,0,|
00003ad0  30 2c 30 2c 30 2c 30 2c  30 00 0f 43 d2 af 54 58  |0,0,0,0,0..C..TX|
00003ae0  54 20 30 2c 33 2c 36 2c  39 2c 24 31 32 2c 24 31  |T 0,3,6,9,$12,$1|
00003af0  35 2c 24 31 38 2c 24 32  31 2c 24 32 34 2c 24 32  |5,$18,$21,$24,$2|
00003b00  37 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 00 45 43  |7,0,0,0,0,0,0.EC|
00003b10  d4 af 54 58 54 20 30 2c  34 2c 38 2c 24 31 32 2c  |..TXT 0,4,8,$12,|
00003b20  24 31 36 2c 24 32 30 2c  24 32 34 2c 24 32 38 2c  |$16,$20,$24,$28,|
00003b30  24 33 32 2c 24 33 36 2c  30 2c 30 2c 30 2c 30 2c  |$32,$36,0,0,0,0,|
00003b40  30 2c 30 00 7d 43 d6 af  54 58 54 20 30 2c 35 2c  |0,0.}C..TXT 0,5,|
00003b50  24 31 30 2c 24 31 35 2c  24 32 30 2c 24 32 35 2c  |$10,$15,$20,$25,|
00003b60  24 33 30 2c 24 33 35 2c  24 34 30 2c 24 34 35 2c  |$30,$35,$40,$45,|
00003b70  30 2c 30 2c 30 2c 30 2c  30 2c 30 00 b5 43 d8 af  |0,0,0,0,0,0..C..|
00003b80  54 58 54 20 30 2c 36 2c  24 31 32 2c 24 31 38 2c  |TXT 0,6,$12,$18,|
00003b90  24 32 34 2c 24 33 30 2c  24 33 36 2c 24 34 32 2c  |$24,$30,$36,$42,|
00003ba0  24 34 38 2c 24 35 34 2c  30 2c 30 2c 30 2c 30 2c  |$48,$54,0,0,0,0,|
00003bb0  30 2c 30 00 ed 43 da af  54 58 54 20 30 2c 37 2c  |0,0..C..TXT 0,7,|
00003bc0  24 31 34 2c 24 32 31 2c  24 32 38 2c 24 33 35 2c  |$14,$21,$28,$35,|
00003bd0  24 34 32 2c 24 34 39 2c  24 35 36 2c 24 36 33 2c  |$42,$49,$56,$63,|
00003be0  30 2c 30 2c 30 2c 30 2c  30 2c 30 00 25 44 dc af  |0,0,0,0,0,0.%D..|
00003bf0  54 58 54 20 30 2c 38 2c  24 31 36 2c 24 32 34 2c  |TXT 0,8,$16,$24,|
00003c00  24 33 32 2c 24 34 30 2c  24 34 38 2c 24 35 36 2c  |$32,$40,$48,$56,|
00003c10  24 36 34 2c 24 37 32 2c  30 2c 30 2c 30 2c 30 2c  |$64,$72,0,0,0,0,|
00003c20  30 2c 30 00 5d 44 de af  54 58 54 20 30 2c 39 2c  |0,0.]D..TXT 0,9,|
00003c30  24 31 38 2c 24 32 37 2c  24 33 36 2c 24 34 35 2c  |$18,$27,$36,$45,|
00003c40  24 35 34 2c 24 36 33 2c  24 37 32 2c 24 38 31 2c  |$54,$63,$72,$81,|
00003c50  30 2c 30 2c 30 2c 30 2c  30 2c 30 00 80 44 b0 b3  |0,0,0,0,0,0..D..|
00003c60  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |;               |
00003c70  20 20 20 20 20 20 20 20  20 b9 49 54 49 91 00 c6  |         .ITI...|
00003c80  44 ba b3 b9 54 45 58 54  20 54 58 54 20 31 34 37  |D...TEXT TXT 147|
00003c90  2c 35 2c 22 20 20 20 20  20 20 20 20 20 20 20 20  |,5,"            |
00003ca0  50 20 4f 20 53 20 49 20  54 20 49 20 4f 20 4e 22  |P O S I T I O N"|
00003cb0  2c 31 33 2c 31 33 2c 31  33 2c 22 58 4d 49 4e 3a  |,13,13,13,"XMIN:|
00003cc0  22 2c 31 33 00 ee 44 c4  b3 54 58 54 20 22 58 4d  |",13..D..TXT "XM|
00003cd0  41 58 3a 22 2c 31 33 2c  22 59 4d 49 4e 3a 22 2c  |AX:",13,"YMIN:",|
00003ce0  31 33 2c 22 59 4d 41 58  3a 22 2c 30 00 fa 44 ce  |13,"YMAX:",0..D.|
00003cf0  b3 50 4e 4f 20 50 48 41  00 04 45 d8 b3 41 53 4c  |.PNO PHA..E..ASL|
00003d00  20 41 00 0e 45 e2 b3 41  53 4c 20 41 00 18 45 ec  | A..E..ASL A..E.|
00003d10  b3 41 53 4c 20 41 00 20  45 f6 b3 54 41 58 00 30  |.ASL A. E..TAX.0|
00003d20  45 00 b4 4c 44 41 20 24  34 30 30 31 2c 58 00 3d  |E..LDA $4001,X.=|
00003d30  45 0a b4 43 4d 50 20 23  24 35 30 00 4c 45 14 b4  |E..CMP #$50.LE..|
00003d40  42 43 53 20 50 4e 4f 56  45 52 00 59 45 1e b4 4c  |BCS PNOVER.YE..L|
00003d50  44 41 20 23 24 32 42 00  67 45 28 b4 4a 53 52 20  |DA #$2B.gE(.JSR |
00003d60  4f 55 54 44 4f 00 74 45  2a b4 4c 44 41 20 23 24  |OUTDO.tE*.LDA #$|
00003d70  30 30 00 83 45 2c b4 53  54 41 20 4e 45 47 52 45  |00..E,.STA NEGRE|
00003d80  47 00 8f 45 32 b4 4a 4d  50 20 50 4e 9a 00 a3 45  |G..E2.JMP PN...E|
00003d90  3c b4 50 4e 4f 56 45 52  20 4c 44 41 20 23 24 32  |<.PNOVER LDA #$2|
00003da0  44 00 b1 45 46 b4 4a 53  52 20 4f 55 54 44 4f 00  |D..EF.JSR OUTDO.|
00003db0  be 45 47 b4 4c 44 41 20  23 24 30 31 00 cd 45 48  |.EG.LDA #$01..EH|
00003dc0  b4 53 54 41 20 4e 45 47  52 45 47 00 d5 45 49 b4  |.STA NEGREG..EI.|
00003dd0  50 4c 41 00 dd 45 4a b4  50 48 41 00 eb 45 4b b4  |PLA..EJ.PHA..EK.|
00003de0  53 54 41 20 24 34 31 30  31 00 f9 45 4c b4 53 54  |STA $4101..EL.ST|
00003df0  41 20 24 34 31 30 32 00  06 46 4d b4 4c 44 41 20  |A $4102..FM.LDA |
00003e00  23 24 31 44 00 14 46 4e  b4 53 54 41 20 24 34 31  |#$1D..FN.STA $41|
00003e10  30 30 00 25 46 4f b4 4a  53 52 20 53 55 42 54 52  |00.%FO.JSR SUBTR|
00003e20  41 43 54 00 36 46 50 b4  50 4e 9a 20 4c 44 58 20  |ACT.6FP.PN. LDX |
00003e30  23 24 30 43 00 47 46 5a  b4 50 4e 43 42 20 53 54  |#$0C.GFZ.PNCB ST|
00003e40  58 20 24 32 32 00 4f 46  64 b4 50 4c 41 00 57 46  |X $22.OFd.PLA.WF|
00003e50  6e b4 50 48 41 00 66 46  78 b4 4a 53 52 20 a1 44  |n.PHA.fFx.JSR .D|
00003e60  49 47 49 54 00 6e 46 8c  b4 43 4c 43 00 7b 46 96  |IGIT.nF..CLC.{F.|
00003e70  b4 41 44 43 20 23 24 33  30 00 89 46 9b b4 4a 53  |.ADC #$30..F..JS|
00003e80  52 20 4f 55 54 44 4f 00  95 46 a0 b4 4c 44 58 20  |R OUTDO..F..LDX |
00003e90  24 32 32 00 a2 46 aa b4  42 45 51 20 50 4e 44 51  |$22..F..BEQ PNDQ|
00003ea0  00 af 46 b4 b4 43 50 58  20 23 24 30 43 00 bd 46  |..F..CPX #$0C..F|
00003eb0  be b4 42 45 51 20 50 4e  44 4f 54 00 c5 46 c8 b4  |..BEQ PNDOT..F..|
00003ec0  44 45 58 00 d2 46 d2 b4  4a 4d 50 20 50 4e 43 42  |DEX..F..JMP PNCB|
00003ed0  00 e5 46 dc b4 50 4e 44  4f 54 20 4c 44 41 20 23  |..F..PNDOT LDA #|
00003ee0  24 32 45 00 f3 46 e6 b4  4a 53 52 20 4f 55 54 44  |$2E..F..JSR OUTD|
00003ef0  4f 00 fb 46 f0 b4 44 45  58 00 08 47 fa b4 4a 4d  |O..F..DEX..G..JM|
00003f00  50 20 50 4e 43 42 00 15  47 04 b5 50 4e 44 51 20  |P PNCB..G..PNDQ |
00003f10  50 4c 41 00 24 47 05 b5  4c 44 58 20 4e 45 47 52  |PLA.$G..LDX NEGR|
00003f20  45 47 00 33 47 06 b5 42  45 51 20 4e 4f 47 52 45  |EG.3G..BEQ NOGRE|
00003f30  47 00 41 47 07 b5 53 54  41 20 24 34 31 30 31 00  |G.AG..STA $4101.|
00003f40  4f 47 08 b5 53 54 41 20  24 34 31 30 32 00 5c 47  |OG..STA $4102.\G|
00003f50  09 b5 4c 44 41 20 23 24  31 44 00 6a 47 0a b5 53  |..LDA #$1D.jG..S|
00003f60  54 41 20 24 34 31 30 30  00 7b 47 0b b5 4a 53 52  |TA $4100.{G..JSR|
00003f70  20 53 55 42 54 52 41 43  54 00 8a 47 0e b5 4e 4f  | SUBTRACT..G..NO|
00003f80  47 52 45 47 20 52 54 53  00 a1 47 18 b5 b9 49 54  |GREG RTS..G...IT|
00003f90  49 91 20 4a 53 52 20 48  49 52 45 53 4f 46 46 00  |I. JSR HIRESOFF.|
00003fa0  b1 47 22 b5 4c 44 41 20  23 b3 b9 54 45 58 54 00  |.G".LDA #..TEXT.|
00003fb0  bd 47 2c b5 53 54 41 20  24 46 42 00 cd 47 36 b5  |.G,.STA $FB..G6.|
00003fc0  4c 44 41 20 23 b1 b9 54  45 58 54 00 d9 47 40 b5  |LDA #..TEXT..G@.|
00003fd0  53 54 41 20 24 46 43 00  e9 47 4a b5 4a 53 52 20  |STA $FC..GJ.JSR |
00003fe0  50 53 54 52 49 4e 47 00  f6 47 54 b5 4c 44 41 20  |PSTRING..GT.LDA |
00003ff0  23 24 30 37 00 02 48 5e  b5 53 54 41 20 24 44 33  |#$07..H^.STA $D3|
00004000  00 0f 48 68 b5 4c 44 41  20 23 24 30 33 00 1b 48  |..Hh.LDA #$03..H|
00004010  72 b5 53 54 41 20 24 44  36 00 2c 48 7c b5 4a 53  |r.STA $D6.,H|.JS|
00004020  52 20 50 4c 4f 54 52 52  4f 4d 00 39 48 86 b5 4c  |R PLOTRROM.9H..L|
00004030  44 41 20 23 24 30 31 00  45 48 90 b5 4a 53 52 20  |DA #$01.EH..JSR |
00004040  50 4e 4f 00 52 48 9a b5  4c 44 41 20 23 24 30 37  |PNO.RH..LDA #$07|
00004050  00 5e 48 a4 b5 53 54 41  20 24 44 33 00 6b 48 ae  |.^H..STA $D3.kH.|
00004060  b5 4c 44 41 20 23 24 30  34 00 77 48 b8 b5 53 54  |.LDA #$04.wH..ST|
00004070  41 20 24 44 36 00 88 48  c2 b5 4a 53 52 20 50 4c  |A $D6..H..JSR PL|
00004080  4f 54 52 52 4f 4d 00 95  48 cc b5 4c 44 41 20 23  |OTRROM..H..LDA #|
00004090  24 31 45 00 a1 48 d6 b5  4a 53 52 20 50 4e 4f 00  |$1E..H..JSR PNO.|
000040a0  ae 48 e0 b5 4c 44 41 20  23 24 30 37 00 ba 48 ea  |.H..LDA #$07..H.|
000040b0  b5 53 54 41 20 24 44 33  00 c7 48 f4 b5 4c 44 41  |.STA $D3..H..LDA|
000040c0  20 23 24 30 35 00 d3 48  fe b5 53 54 41 20 24 44  | #$05..H..STA $D|
000040d0  36 00 e4 48 08 b6 4a 53  52 20 50 4c 4f 54 52 52  |6..H..JSR PLOTRR|
000040e0  4f 4d 00 f1 48 12 b6 4c  44 41 20 23 24 30 33 00  |OM..H..LDA #$03.|
000040f0  fd 48 1c b6 4a 53 52 20  50 4e 4f 00 0a 49 26 b6  |.H..JSR PNO..I&.|
00004100  4c 44 41 20 23 24 30 37  00 16 49 30 b6 53 54 41  |LDA #$07..I0.STA|
00004110  20 24 44 33 00 23 49 35  b6 4c 44 41 20 23 24 30  | $D3.#I5.LDA #$0|
00004120  36 00 2f 49 3a b6 53 54  41 20 24 44 36 00 40 49  |6./I:.STA $D6.@I|
00004130  44 b6 4a 53 52 20 50 4c  4f 54 52 52 4f 4d 00 4d  |D.JSR PLOTRROM.M|
00004140  49 4e b6 4c 44 41 20 23  24 31 46 00 59 49 58 b6  |IN.LDA #$1F.YIX.|
00004150  4a 53 52 20 50 4e 4f 00  66 49 62 b6 4c 44 58 20  |JSR PNO.fIb.LDX |
00004160  23 24 30 31 00 73 49 6c  b6 4c 44 59 20 23 24 30  |#$01.sIl.LDY #$0|
00004170  30 00 81 49 71 b6 4a 53  52 20 b9 91 4f 46 46 00  |0..Iq.JSR ..OFF.|
00004180  8e 49 76 b6 b9 4c 4f 50  20 54 58 41 00 96 49 80  |.Iv..LOP TXA..I.|
00004190  b6 50 48 41 00 a7 49 8a  b6 b9 4c 4f 50 42 20 4a  |.PHA..I...LOPB J|
000041a0  53 52 20 a1 dc 00 b4 49  94 b6 43 4d 50 20 23 24  |SR ....I..CMP #$|
000041b0  32 42 00 c0 49 9e b6 42  45 51 20 b9 49 b9 00 cd  |2B..I..BEQ .I...|
000041c0  49 a8 b6 43 4d 50 20 23  24 32 44 00 db 49 b2 b6  |I..CMP #$2D..I..|
000041d0  42 45 51 20 b9 49 4e 45  47 00 e8 49 bc b6 43 4d  |BEQ .INEG..I..CM|
000041e0  50 20 23 24 38 32 00 f7  49 c6 b6 42 45 51 20 58  |P #$82..I..BEQ X|
000041f0  b9 4d 4f 56 45 00 04 4a  d0 b6 43 4d 50 20 23 24  |.MOVE..J..CMP #$|
00004200  38 33 00 13 4a da b6 42  45 51 20 59 b9 4d 4f 56  |83..J..BEQ Y.MOV|
00004210  45 00 20 4a e4 b6 43 4d  50 20 23 24 38 30 00 2f  |E. J..CMP #$80./|
00004220  4a ee b6 42 45 51 20 b9  43 41 4c 43 54 00 3c 4a  |J..BEQ .CALCT.<J|
00004230  f8 b6 43 4d 50 20 23 24  33 30 00 4a 4a 02 b7 42  |..CMP #$30.JJ..B|
00004240  43 43 20 b9 4c 4f 50 42  00 57 4a 0c b7 43 4d 50  |CC .LOPB.WJ..CMP|
00004250  20 23 24 33 41 00 65 4a  16 b7 42 43 53 20 b9 4c  | #$3A.eJ..BCS .L|
00004260  4f 50 42 00 71 4a 1b b7  53 54 41 20 24 32 33 00  |OPB.qJ..STA $23.|
00004270  79 4a 20 b7 50 4c 41 00  81 4a 25 b7 50 48 41 00  |yJ .PLA..J%.PHA.|
00004280  89 4a 2a b7 54 41 58 00  98 4a 34 b7 4a 53 52 20  |.J*.TAX..J4.JSR |
00004290  a1 4d 45 4d 41 44 00 a4  4a 3e b7 53 54 58 20 24  |.MEMAD..J>.STX $|
000042a0  32 32 00 ac 4a 48 b7 54  41 58 00 b8 4a 52 b7 4c  |22..JH.TAX..JR.L|
000042b0  44 41 20 24 32 33 00 c4  4a 5c b7 45 b0 20 23 24  |DA $23..J\.E. #$|
000042c0  38 30 00 d4 4a 66 b7 53  54 41 20 24 30 34 37 46  |80..Jf.STA $047F|
000042d0  2c 58 00 e3 4a 70 b7 4a  4d 50 20 b9 52 49 47 48  |,X..Jp.JMP .RIGH|
000042e0  54 00 f8 4a 7a b7 b9 43  41 4c 43 54 20 4a 4d 50  |T..Jz..CALCT JMP|
000042f0  20 b9 43 41 4c 43 00 09  4b 98 b7 b9 49 b9 20 4c  | .CALC..K...I. L|
00004300  44 58 20 23 24 30 30 00  18 4b a2 b7 4a 53 52 20  |DX #$00..K..JSR |
00004310  a1 4d 45 4d 41 44 00 20  4b ac b7 54 41 58 00 2d  |.MEMAD. K..TAX.-|
00004320  4b b6 b7 4c 44 41 20 23  24 32 42 00 3d 4b c0 b7  |K..LDA #$2B.=K..|
00004330  53 54 41 20 24 30 34 37  46 2c 58 00 4b 4b ca b7  |STA $047F,X.KK..|
00004340  4a 4d 50 20 b9 4c 4f 50  42 00 5e 4b d4 b7 b9 49  |JMP .LOPB.^K...I|
00004350  4e 45 47 20 4c 44 58 20  23 24 30 30 00 6d 4b de  |NEG LDX #$00.mK.|
00004360  b7 4a 53 52 20 a1 4d 45  4d 41 44 00 75 4b e8 b7  |.JSR .MEMAD.uK..|
00004370  54 41 58 00 82 4b f2 b7  4c 44 41 20 23 24 32 44  |TAX..K..LDA #$2D|
00004380  00 92 4b fc b7 53 54 41  20 24 30 34 37 46 2c 58  |..K..STA $047F,X|
00004390  00 a0 4b 06 b8 4a 4d 50  20 b9 4c 4f 50 42 00 b5  |..K..JMP .LOPB..|
000043a0  4b 10 b8 58 b9 4d 4f 56  45 20 4c 44 41 20 24 30  |K..X.MOVE LDA $0|
000043b0  32 38 44 00 c0 4b 1a b8  af 20 23 24 30 31 00 cf  |28D..K... #$01..|
000043c0  4b 24 b8 42 45 51 20 b9  52 49 47 48 54 00 d7 4b  |K$.BEQ .RIGHT..K|
000043d0  2e b8 50 4c 41 00 df 4b  38 b8 54 41 58 00 ec 4b  |..PLA..K8.TAX..K|
000043e0  3d b8 43 50 58 20 23 24  30 31 00 f9 4b 42 b8 42  |=.CPX #$01..KB.B|
000043f0  45 51 20 b9 4c 4f 50 00  0d 4c 4c b8 4c 4d 49 53  |EQ .LOP..LL.LMIS|
00004400  53 20 4a 53 52 20 b9 91  4f 46 46 00 15 4c 56 b8  |S JSR ..OFF..LV.|
00004410  44 45 58 00 23 4c 60 b8  4a 53 52 20 b9 91 4f 46  |DEX.#L`.JSR ..OF|
00004420  46 00 30 4c 62 b8 43 50  58 20 23 24 30 32 00 3e  |F.0Lb.CPX #$02.>|
00004430  4c 64 b8 42 45 51 20 4c  4d 49 53 53 00 4b 4c 6a  |Ld.BEQ LMISS.KLj|
00004440  b8 4a 4d 50 20 b9 4c 4f  50 00 5a 4c 74 b8 b9 52  |.JMP .LOP.ZLt..R|
00004450  49 47 48 54 20 50 4c 41  00 62 4c 7e b8 54 41 58  |IGHT PLA.bL~.TAX|
00004460  00 6f 4c 88 b8 43 50 58  20 23 24 30 45 00 7c 4c  |.oL..CPX #$0E.|L|
00004470  92 b8 42 45 51 20 b9 4c  4f 50 00 90 4c 9c b8 52  |..BEQ .LOP..L..R|
00004480  4d 49 53 53 20 4a 53 52  20 b9 91 4f 46 46 00 98  |MISS JSR ..OFF..|
00004490  4c a6 b8 49 4e 58 00 a6  4c b0 b8 4a 53 52 20 b9  |L..INX..L..JSR .|
000044a0  91 4f 46 46 00 b3 4c b2  b8 43 50 58 20 23 24 30  |.OFF..L..CPX #$0|
000044b0  32 00 c1 4c b4 b8 42 45  51 20 52 4d 49 53 53 00  |2..L..BEQ RMISS.|
000044c0  ce 4c ba b8 4a 4d 50 20  b9 4c 4f 50 00 dd 4c c4  |.L..JMP .LOP..L.|
000044d0  b8 59 b9 4d 4f 56 45 20  50 4c 41 00 e5 4c c6 b8  |.Y.MOVE PLA..L..|
000044e0  54 41 58 00 f3 4c c8 b8  4c 44 41 20 24 30 32 38  |TAX..L..LDA $028|
000044f0  44 00 fe 4c ce b8 af 20  23 24 30 31 00 0c 4d d8  |D..L... #$01..M.|
00004500  b8 42 45 51 20 b9 44 4f  57 4e 00 19 4d e2 b8 43  |.BEQ .DOWN..M..C|
00004510  50 59 20 23 24 30 30 00  27 4d ec b8 42 45 51 20  |PY #$00.'M..BEQ |
00004520  b9 4c 4f 50 54 00 35 4d  f6 b8 4a 53 52 20 b9 91  |.LOPT.5M..JSR ..|
00004530  4f 46 46 00 3d 4d 00 b9  44 45 59 00 4b 4d 0a b9  |OFF.=M..DEY.KM..|
00004540  4a 53 52 20 b9 91 4f 46  46 00 59 4d 14 b9 4a 4d  |JSR ..OFF.YM..JM|
00004550  50 20 b9 4c 4f 50 54 00  6c 4d 1e b9 b9 44 4f 57  |P .LOPT.lM...DOW|
00004560  4e 20 43 50 59 20 23 24  30 33 00 7a 4d 28 b9 42  |N CPY #$03.zM(.B|
00004570  45 51 20 b9 4c 4f 50 54  00 88 4d 32 b9 4a 53 52  |EQ .LOPT..M2.JSR|
00004580  20 b9 91 4f 46 46 00 90  4d 3c b9 49 4e 59 00 9e  | ..OFF..M<.INY..|
00004590  4d 46 b9 4a 53 52 20 b9  91 4f 46 46 00 ac 4d 50  |MF.JSR ..OFF..MP|
000045a0  b9 4a 4d 50 20 b9 4c 4f  50 54 00 bf 4d 5a b9 b9  |.JMP .LOPT..MZ..|
000045b0  4c 4f 50 54 20 4a 4d 50  20 b9 4c 4f 50 00 f6 4d  |LOPT JMP .LOP..M|
000045c0  8c b9 b9 53 55 52 45 20  54 58 54 20 31 33 2c 31  |...SURE TXT 13,1|
000045d0  33 2c 22 52 45 50 4f 53  49 54 49 4f 4e 3a 20 41  |3,"REPOSITION: A|
000045e0  52 45 20 59 4f 55 20 53  55 52 45 20 28 59 2f 4e  |RE YOU SURE (Y/N|
000045f0  29 22 2c 30 00 04 4e 80  bb b9 43 41 4c 43 20 50  |)",0..N...CALC P|
00004600  4c 41 00 0c 4e 82 bb 54  41 58 00 1a 4e 84 bb 4a  |LA..N..TAX..N..J|
00004610  53 52 20 b9 91 4f 46 46  00 2a 4e 86 bb 4c 44 41  |SR ..OFF.*N..LDA|
00004620  20 23 b3 b9 53 55 52 45  00 36 4e 8a bb 53 54 41  | #..SURE.6N..STA|
00004630  20 24 46 42 00 46 4e 94  bb 4c 44 41 20 23 b1 b9  | $FB.FN..LDA #..|
00004640  53 55 52 45 00 52 4e 9e  bb 53 54 41 20 24 46 43  |SURE.RN..STA $FC|
00004650  00 62 4e a8 bb 4a 53 52  20 50 53 54 52 49 4e 47  |.bN..JSR PSTRING|
00004660  00 75 4e b2 bb 53 55 52  45 4c 4f 50 20 4a 53 52  |.uN..SURELOP JSR|
00004670  20 a1 dc 00 82 4e bc bb  43 4d 50 20 23 24 31 39  | ....N..CMP #$19|
00004680  00 8d 4e c6 bb 42 45 51  20 e9 b9 00 9a 4e d0 bb  |..N..BEQ ....N..|
00004690  43 4d 50 20 23 24 30 45  00 a6 4e da bb 42 45 51  |CMP #$0E..N..BEQ|
000046a0  20 4e 4f e9 00 b6 4e e4  bb 4a 4d 50 20 53 55 52  | NO...N..JMP SUR|
000046b0  45 4c 4f 50 00 cb 4e ee  bb 4e 4f e9 20 4a 4d 50  |ELOP..N..NO. JMP|
000046c0  20 43 4f 4d 45 42 41 43  4b 00 db 4e f8 bb e9 b9  | COMEBACK..N....|
000046d0  20 4c 44 41 20 23 24 38  30 00 e7 4e 02 bc 53 54  | LDA #$80..N..ST|
000046e0  41 20 24 46 42 00 f4 4e  0c bc 4c 44 41 20 23 24  |A $FB..N..LDA #$|
000046f0  30 34 00 00 4f 16 bc 53  54 41 20 24 46 43 00 0d  |04..O..STA $FC..|
00004700  4f 20 bc 4c 44 41 20 23  24 30 31 00 1a 4f 2a bc  |O .LDA #$01..O*.|
00004710  4a 53 52 20 e9 56 41 52  00 27 4f 34 bc 4c 44 41  |JSR .VAR.'O4.LDA|
00004720  20 23 24 41 38 00 33 4f  3e bc 53 54 41 20 24 46  | #$A8.3O>.STA $F|
00004730  42 00 40 4f 41 bc 4c 44  41 20 23 24 30 34 00 4c  |B.@OA.LDA #$04.L|
00004740  4f 44 bc 53 54 41 20 24  46 43 00 59 4f 48 bc 4c  |OD.STA $FC.YOH.L|
00004750  44 41 20 23 24 31 45 00  66 4f 52 bc 4a 53 52 20  |DA #$1E.fOR.JSR |
00004760  e9 56 41 52 00 73 4f 5c  bc 4c 44 41 20 23 24 44  |.VAR.sO\.LDA #$D|
00004770  30 00 7f 4f 66 bc 53 54  41 20 24 46 42 00 8c 4f  |0..Of.STA $FB..O|
00004780  69 bc 4c 44 41 20 23 24  30 34 00 98 4f 6c bc 53  |i.LDA #$04..Ol.S|
00004790  54 41 20 24 46 43 00 a5  4f 70 bc 4c 44 41 20 23  |TA $FC..Op.LDA #|
000047a0  24 30 33 00 b2 4f 7a bc  4a 53 52 20 e9 56 41 52  |$03..Oz.JSR .VAR|
000047b0  00 bf 4f 84 bc 4c 44 41  20 23 24 46 38 00 cb 4f  |..O..LDA #$F8..O|
000047c0  8e bc 53 54 41 20 24 46  42 00 d8 4f 91 bc 4c 44  |..STA $FB..O..LD|
000047d0  41 20 23 24 30 34 00 e4  4f 94 bc 53 54 41 20 24  |A #$04..O..STA $|
000047e0  46 43 00 f1 4f 98 bc 4c  44 41 20 23 24 31 46 00  |FC..O..LDA #$1F.|
000047f0  fe 4f a2 bc 4a 53 52 20  e9 56 41 52 00 0d 50 ac  |.O..JSR .VAR..P.|
00004800  bc 4a 53 52 20 48 49 52  45 53 91 00 1b 50 b6 bc  |.JSR HIRES...P..|
00004810  4a 4d 50 20 43 41 4c 43  a9 00 2c 50 74 bd e9 56  |JMP CALC..,Pt..V|
00004820  41 52 20 53 54 41 20 24  32 33 00 36 50 79 bd 41  |AR STA $23.6Py.A|
00004830  53 4c 20 41 00 40 50 7e  bd 41 53 4c 20 41 00 4a  |SL A.@P~.ASL A.J|
00004840  50 88 bd 41 53 4c 20 41  00 56 50 92 bd 53 54 41  |P..ASL A.VP..STA|
00004850  20 24 46 44 00 63 50 9c  bd 4c 44 41 20 23 24 34  | $FD.cP..LDA #$4|
00004860  30 00 6f 50 a6 bd 53 54  41 20 24 46 45 00 7c 50  |0.oP..STA $FE.|P|
00004870  b0 bd 4c 44 41 20 23 24  30 30 00 84 50 ba bd 54  |..LDA #$00..P..T|
00004880  41 58 00 8c 50 c4 bd 54  41 59 00 9c 50 ce bd 53  |AX..P..TAY..P..S|
00004890  54 41 20 28 24 46 44 29  2c 59 00 a4 50 d8 bd 49  |TA ($FD),Y..P..I|
000048a0  4e 59 00 ac 50 e2 bd 54  59 41 00 b4 50 ec bd 50  |NY..P..TYA..P..P|
000048b0  48 41 00 bc 50 f6 bd 54  58 41 00 c4 50 00 be 54  |HA..P..TXA..P..T|
000048c0  41 59 00 d4 50 0a be 4c  44 41 20 28 24 46 42 29  |AY..P..LDA ($FB)|
000048d0  2c 59 00 e0 50 14 be 53  54 41 20 24 32 32 00 e8  |,Y..P..STA $22..|
000048e0  50 1e be 54 59 41 00 f0  50 28 be 54 41 58 00 f8  |P..TYA..P(.TAX..|
000048f0  50 32 be 50 4c 41 00 00  51 3c be 54 41 59 00 0c  |P2.PLA..Q<.TAY..|
00004900  51 46 be 4c 44 41 20 24  32 32 00 14 51 50 be 53  |QF.LDA $22..QP.S|
00004910  45 43 00 21 51 5a be 53  42 43 20 23 24 33 30 00  |EC.!QZ.SBC #$30.|
00004920  31 51 64 be 53 54 41 20  28 24 46 44 29 2c 59 00  |1Qd.STA ($FD),Y.|
00004930  39 51 6e be 49 4e 59 00  41 51 78 be 49 4e 58 00  |9Qn.INY.AQx.INX.|
00004940  49 51 82 be 49 4e 58 00  57 51 8c be e9 56 4c 4f  |IQ..INX.WQ...VLO|
00004950  50 20 54 59 41 00 5f 51  96 be 50 48 41 00 67 51  |P TYA._Q..PHA.gQ|
00004960  a0 be 54 58 41 00 6f 51  aa be 54 41 59 00 7f 51  |..TXA.oQ..TAY..Q|
00004970  b4 be 4c 44 41 20 28 24  46 42 29 2c 59 00 87 51  |..LDA ($FB),Y..Q|
00004980  be be 53 45 43 00 94 51  c8 be 53 42 43 20 23 24  |..SEC..Q..SBC #$|
00004990  33 30 00 9e 51 d2 be 41  53 4c 20 41 00 a8 51 dc  |30..Q..ASL A..Q.|
000049a0  be 41 53 4c 20 41 00 b2  51 e6 be 41 53 4c 20 41  |.ASL A..Q..ASL A|
000049b0  00 bc 51 f0 be 41 53 4c  20 41 00 c4 51 fa be 49  |..Q..ASL A..Q..I|
000049c0  4e 59 00 cc 51 04 bf 43  4c 43 00 dc 51 0e bf 41  |NY..Q..CLC..Q..A|
000049d0  44 43 20 28 24 46 42 29  2c 59 00 e4 51 18 bf 53  |DC ($FB),Y..Q..S|
000049e0  45 43 00 f1 51 22 bf 53  42 43 20 23 24 33 30 00  |EC..Q".SBC #$30.|
000049f0  f9 51 2c bf 49 4e 59 00  05 52 36 bf 53 54 41 20  |.Q,.INY..R6.STA |
00004a00  24 32 32 00 0d 52 40 bf  54 59 41 00 15 52 4a bf  |$22..R@.TYA..RJ.|
00004a10  54 41 58 00 1d 52 54 bf  50 4c 41 00 25 52 5e bf  |TAX..RT.PLA.%R^.|
00004a20  54 41 59 00 31 52 68 bf  4c 44 41 20 24 32 32 00  |TAY.1Rh.LDA $22.|
00004a30  41 52 72 bf 53 54 41 20  28 24 46 44 29 2c 59 00  |ARr.STA ($FD),Y.|
00004a40  49 52 7c bf 49 4e 59 00  56 52 86 bf 43 50 59 20  |IR|.INY.VR..CPY |
00004a50  23 24 30 38 00 64 52 90  bf 42 4e 45 20 e9 56 4c  |#$08.dR..BNE .VL|
00004a60  4f 50 00 70 52 9a bf 44  45 43 20 24 46 42 00 7d  |OP.pR..DEC $FB.}|
00004a70  52 a4 bf 4c 44 59 20 23  24 30 30 00 8d 52 ae bf  |R..LDY #$00..R..|
00004a80  4c 44 41 20 28 24 46 42  29 2c 59 00 9a 52 b8 bf  |LDA ($FB),Y..R..|
00004a90  43 4d 50 20 23 24 32 44  00 aa 52 c2 bf 42 45 51  |CMP #$2D..R..BEQ|
00004aa0  20 4d 41 4b 45 4e 45 47  00 b2 52 cc bf 52 54 53  | MAKENEG..R..RTS|
00004ab0  00 c6 52 d6 bf 4d 41 4b  45 4e 45 47 20 4c 44 41  |..R..MAKENEG LDA|
00004ac0  20 24 32 33 00 d4 52 e0  bf 53 54 41 20 24 34 31  | $23..R..STA $41|
00004ad0  30 31 00 e2 52 ea bf 53  54 41 20 24 34 31 30 32  |01..R..STA $4102|
00004ae0  00 ef 52 f4 bf 4c 44 41  20 23 24 31 44 00 fd 52  |..R..LDA #$1D..R|
00004af0  fe bf 53 54 41 20 24 34  31 30 30 00 0e 53 08 c0  |..STA $4100..S..|
00004b00  4a 4d 50 20 53 55 42 54  52 41 43 54 00 1d 53 5c  |JMP SUBTRACT..S\|
00004b10  c1 a1 4d 45 4d 41 44 20  54 59 41 00 27 53 70 c1  |..MEMAD TYA.'Sp.|
00004b20  41 53 4c 20 41 00 31 53  7a c1 41 53 4c 20 41 00  |ASL A.1Sz.ASL A.|
00004b30  3b 53 84 c1 41 53 4c 20  41 00 47 53 8e c1 53 54  |;S..ASL A.GS..ST|
00004b40  41 20 24 32 32 00 51 53  98 c1 41 53 4c 20 41 00  |A $22.QS..ASL A.|
00004b50  5b 53 a2 c1 41 53 4c 20  41 00 63 53 ac c1 43 4c  |[S..ASL A.cS..CL|
00004b60  43 00 6f 53 b6 c1 41 44  43 20 24 32 32 00 7b 53  |C.oS..ADC $22.{S|
00004b70  c0 c1 53 54 58 20 24 32  32 00 87 53 ca c1 41 44  |..STX $22..S..AD|
00004b80  43 20 24 32 32 00 94 53  d4 c1 43 4d 50 20 23 24  |C $22..S..CMP #$|
00004b90  43 38 00 a4 53 de c1 42  43 43 20 47 4d 4d 51 55  |C8..S..BCC GMMQU|
00004ba0  49 54 00 ac 53 e8 c1 43  4c 43 00 b9 53 f2 c1 41  |IT..S..CLC..S..A|
00004bb0  44 43 20 23 24 32 38 00  c9 53 fc c1 47 4d 4d 51  |DC #$28..S..GMMQ|
00004bc0  55 49 54 20 52 54 53 00  de 53 24 c2 b9 91 4f 46  |UIT RTS..S$...OF|
00004bd0  46 20 4a 53 52 20 a1 4d  45 4d 41 44 00 ea 53 2e  |F JSR .MEMAD..S.|
00004be0  c2 53 54 41 20 24 32 32  00 f2 53 38 c2 54 58 41  |.STA $22..S8.TXA|
00004bf0  00 fa 53 42 c2 50 48 41  00 06 54 4c c2 4c 44 58  |..SB.PHA..TL.LDX|
00004c00  20 24 32 32 00 16 54 56  c2 4c 44 41 20 24 30 34  | $22..TV.LDA $04|
00004c10  37 46 2c 58 00 22 54 60  c2 45 b0 20 23 24 38 30  |7F,X."T`.E. #$80|
00004c20  00 32 54 6a c2 53 54 41  20 24 30 34 37 46 2c 58  |.2Tj.STA $047F,X|
00004c30  00 3a 54 74 c2 50 4c 41  00 42 54 7e c2 54 41 58  |.:Tt.PLA.BT~.TAX|
00004c40  00 4a 54 88 c2 52 54 53  00 6e 54 50 c3 3b 20 20  |.JT..RTS.nTP.;  |
00004c50  20 20 20 20 20 20 20 20  20 47 52 41 50 48 49 43  |         GRAPHIC|
00004c60  20 50 4f b5 20 50 4c 4f  54 54 45 52 00 82 54 5a  | PO. PLOTTER..TZ|
00004c70  c3 50 4c 4f 54 50 43 20  4c 44 41 20 23 24 34 37  |.PLOTPC LDA #$47|
00004c80  00 8e 54 64 c3 53 54 41  20 24 46 42 00 9b 54 6e  |..Td.STA $FB..Tn|
00004c90  c3 4c 44 41 20 23 24 33  46 00 a7 54 78 c3 53 54  |.LDA #$3F..Tx.ST|
00004ca0  41 20 24 46 43 00 b6 54  82 c3 4c 44 41 20 59 50  |A $FC..T..LDA YP|
00004cb0  49 58 45 4c 00 c0 54 8c  c3 4c 53 52 20 41 00 ca  |IXEL..T..LSR A..|
00004cc0  54 96 c3 4c 53 52 20 41  00 d4 54 a0 c3 4c 53 52  |T..LSR A..T..LSR|
00004cd0  20 41 00 e1 54 aa c3 53  54 41 20 59 50 49 42 00  | A..T..STA YPIB.|
00004ce0  ec 54 b4 c3 af 20 23 24  30 33 00 f6 54 be c3 41  |.T... #$03..T..A|
00004cf0  53 4c 20 41 00 00 55 c8  c3 41 53 4c 20 41 00 0a  |SL A..U..ASL A..|
00004d00  55 d2 c3 41 53 4c 20 41  00 14 55 dc c3 41 53 4c  |U..ASL A..U..ASL|
00004d10  20 41 00 1e 55 e6 c3 41  53 4c 20 41 00 28 55 f0  | A..U..ASL A.(U.|
00004d20  c3 41 53 4c 20 41 00 34  55 fa c3 53 54 41 20 24  |.ASL A.4U..STA $|
00004d30  30 32 00 40 55 04 c4 4c  44 41 20 24 46 42 00 48  |02.@U..LDA $FB.H|
00004d40  55 0e c4 53 45 43 00 54  55 18 c4 53 42 43 20 24  |U..SEC.TU..SBC $|
00004d50  30 32 00 60 55 22 c4 53  54 41 20 24 46 42 00 6c  |02.`U".STA $FB.l|
00004d60  55 2c c4 4c 44 41 20 24  46 43 00 79 55 36 c4 53  |U,.LDA $FC.yU6.S|
00004d70  42 43 20 23 24 30 30 00  86 55 3b c4 53 42 43 20  |BC #$00..U;.SBC |
00004d80  59 50 49 42 00 8e 55 40  c4 50 48 41 00 9b 55 4a  |YPIB..U@.PHA..UJ|
00004d90  c4 4c 44 41 20 59 50 49  42 00 a5 55 54 c4 4c 53  |.LDA YPIB..UT.LS|
00004da0  52 20 41 00 af 55 5e c4  4c 53 52 20 41 00 bb 55  |R A..U^.LSR A..U|
00004db0  68 c4 53 54 41 20 24 30  32 00 c3 55 72 c4 50 4c  |h.STA $02..Ur.PL|
00004dc0  41 00 cb 55 7c c4 53 45  43 00 d7 55 86 c4 53 42  |A..U|.SEC..U..SB|
00004dd0  43 20 24 30 32 00 e3 55  90 c4 53 54 41 20 24 46  |C $02..U..STA $F|
00004de0  43 00 f2 55 9a c4 4c 44  41 20 59 50 49 58 45 4c  |C..U..LDA YPIXEL|
00004df0  00 fd 55 a4 c4 af 20 23  24 30 37 00 0a 56 ae c4  |..U... #$07..V..|
00004e00  53 54 41 20 59 50 49 42  00 16 56 b8 c4 4c 44 41  |STA YPIB..V..LDA|
00004e10  20 24 46 42 00 1e 56 c2  c4 53 45 43 00 2b 56 cc  | $FB..V..SEC.+V.|
00004e20  c4 53 42 43 20 59 50 49  42 00 33 56 d6 c4 50 48  |.SBC YPIB.3V..PH|
00004e30  41 00 42 56 e0 c4 4c 44  41 20 58 50 49 58 45 4c  |A.BV..LDA XPIXEL|
00004e40  00 4d 56 ea c4 af 20 23  24 46 38 00 5a 56 f4 c4  |.MV... #$F8.ZV..|
00004e50  53 54 41 20 59 50 49 42  00 62 56 fe c4 50 4c 41  |STA YPIB.bV..PLA|
00004e60  00 6a 56 08 c5 43 4c 43  00 77 56 12 c5 41 44 43  |.jV..CLC.wV..ADC|
00004e70  20 59 50 49 42 00 83 56  1c c5 53 54 41 20 24 46  | YPIB..V..STA $F|
00004e80  42 00 8f 56 26 c5 4c 44  41 20 24 46 43 00 9c 56  |B..V&.LDA $FC..V|
00004e90  30 c5 53 42 43 20 23 24  30 30 00 a8 56 3a c5 53  |0.SBC #$00..V:.S|
00004ea0  54 41 20 24 46 43 00 b7  56 44 c5 4c 44 41 20 58  |TA $FC..VD.LDA X|
00004eb0  50 49 58 45 4c 00 c2 56  4e c5 af 20 23 24 30 37  |PIXEL..VN.. #$07|
00004ec0  00 ca 56 58 c5 54 41 58  00 d7 56 62 c5 4c 44 41  |..VX.TAX..Vb.LDA|
00004ed0  20 23 24 38 30 00 eb 56  6c c5 47 42 49 54 4c 50  | #$80..Vl.GBITLP|
00004ee0  20 43 50 58 20 23 24 30  30 00 f7 56 76 c5 42 45  | CPX #$00..Vv.BE|
00004ef0  51 20 50 50 9a 00 01 57  80 c5 4c 53 52 20 41 00  |Q PP...W..LSR A.|
00004f00  09 57 8a c5 44 45 58 00  18 57 94 c5 4a 4d 50 20  |.W..DEX..W..JMP |
00004f10  47 42 49 54 4c 50 00 28  57 9e c5 50 50 9a 20 53  |GBITLP.(W..PP. S|
00004f20  54 41 20 24 46 44 00 30  57 a8 c5 52 54 53 00 45  |TA $FD.0W..RTS.E|
00004f30  57 b2 c5 50 4c 4f a4 4e  20 4a 53 52 20 50 4c 4f  |W..PLO.N JSR PLO|
00004f40  54 50 43 00 52 57 bc c5  4c 44 59 20 23 24 30 30  |TPC.RW..LDY #$00|
00004f50  00 62 57 c6 c5 4c 44 41  20 28 24 46 42 29 2c 59  |.bW..LDA ($FB),Y|
00004f60  00 6d 57 d0 c5 b0 41 20  24 46 44 00 7d 57 da c5  |.mW...A $FD.}W..|
00004f70  53 54 41 20 28 24 46 42  29 2c 59 00 85 57 e4 c5  |STA ($FB),Y..W..|
00004f80  52 54 53 00 9b 57 ee c5  50 4c 4f a4 46 46 20 4a  |RTS..W..PLO.FF J|
00004f90  53 52 20 50 4c 4f 54 50  43 00 a7 57 f8 c5 4c 44  |SR PLOTPC..W..LD|
00004fa0  41 20 24 46 44 00 b3 57  02 c6 45 b0 20 23 24 46  |A $FD..W..E. #$F|
00004fb0  46 00 bf 57 0c c6 53 54  41 20 24 46 44 00 cc 57  |F..W..STA $FD..W|
00004fc0  16 c6 4c 44 59 20 23 24  30 30 00 dc 57 20 c6 4c  |..LDY #$00..W .L|
00004fd0  44 41 20 28 24 46 42 29  2c 59 00 e6 57 2a c6 af  |DA ($FB),Y..W*..|
00004fe0  20 24 46 44 00 f6 57 34  c6 53 54 41 20 28 24 46  | $FD..W4.STA ($F|
00004ff0  42 29 2c 59 00 fe 57 3e  c6 52 54 53 00 12 58 48  |B),Y..W>.RTS..XH|
00005000  c6 50 4c 4f 54 20 4c 44  41 20 43 4f 4c 4f 55 52  |.PLOT LDA COLOUR|
00005010  00 1d 58 52 c6 af 20 23  24 30 32 00 2a 58 5c c6  |..XR.. #$02.*X\.|
00005020  42 4e 45 20 50 50 41 91  00 39 58 66 c6 4a 53 52  |BNE PPA..9Xf.JSR|
00005030  20 50 4c 4f a4 46 46 00  48 58 70 c6 4a 4d 50 20  | PLO.FF.HXp.JMP |
00005040  50 50 41 43 4e 54 00 5b  58 7a c6 50 50 41 91 20  |PPACNT.[Xz.PPA. |
00005050  4a 53 52 20 50 4c 4f a4  4e 00 71 58 84 c6 50 50  |JSR PLO.N.qX..PP|
00005060  41 43 4e 54 20 49 4e 43  20 58 50 49 58 45 4c 00  |ACNT INC XPIXEL.|
00005070  80 58 8e c6 4c 44 41 20  43 4f 4c 4f 55 52 00 8b  |.X..LDA COLOUR..|
00005080  58 98 c6 af 20 23 24 30  31 00 98 58 a2 c6 42 4e  |X... #$01..X..BN|
00005090  45 20 50 50 42 91 00 a7  58 ac c6 4a 53 52 20 50  |E PPB...X..JSR P|
000050a0  4c 4f a4 46 46 00 b6 58  b6 c6 4a 4d 50 20 50 50  |LO.FF..X..JMP PP|
000050b0  42 43 4e 54 00 c9 58 c0  c6 50 50 42 91 20 4a 53  |BCNT..X..PPB. JS|
000050c0  52 20 50 4c 4f a4 4e 00  df 58 ca c6 50 50 42 43  |R PLO.N..X..PPBC|
000050d0  4e 54 20 49 4e 43 20 58  50 49 58 45 4c 00 e7 58  |NT INC XPIXEL..X|
000050e0  d4 c6 52 54 53 00 0c 59  d8 d6 3b 20 20 20 20 20  |..RTS..Y..;     |
000050f0  20 20 5a 4f 4f 4d 20 43  41 4c 43 55 4c 41 54 49  |  ZOOM CALCULATI|
00005100  91 20 52 4f 55 54 49 4e  45 53 00 22 59 e2 d6 4e  |. ROUTINES."Y..N|
00005110  4f 5a 4f 4f 4d 20 4a 4d  50 20 9a 52 4f 4c 4f 50  |OZOOM JMP .ROLOP|
00005120  00 37 59 ec d6 5a 4f 4f  4d 49 4e 20 4c 44 41 20  |.7Y..ZOOMIN LDA |
00005130  24 44 30 31 35 00 42 59  f6 d6 af 20 23 24 46 30  |$D015.BY... #$F0|
00005140  00 4f 59 00 d7 43 4d 50  20 23 24 46 30 00 5e 59  |.OY..CMP #$F0.^Y|
00005150  0a d7 42 4e 45 20 4e 4f  5a 4f 4f 4d 00 6b 59 14  |..BNE NOZOOM.kY.|
00005160  d7 4c 44 41 20 23 24 31  45 00 79 59 1e d7 53 54  |.LDA #$1E.yY..ST|
00005170  41 20 24 34 31 30 30 00  86 59 28 d7 4c 44 41 20  |A $4100..Y(.LDA |
00005180  23 24 30 31 00 94 59 32  d7 53 54 41 20 24 34 31  |#$01..Y2.STA $41|
00005190  30 31 00 a1 59 3c d7 4c  44 41 20 23 24 31 30 00  |01..Y<.LDA #$10.|
000051a0  af 59 46 d7 53 54 41 20  24 34 31 30 32 00 c0 59  |.YF.STA $4102..Y|
000051b0  50 d7 4a 53 52 20 53 55  42 54 52 41 43 54 00 cd  |P.JSR SUBTRACT..|
000051c0  59 5a d7 4c 44 41 20 23  24 30 31 00 db 59 64 d7  |YZ.LDA #$01..Yd.|
000051d0  53 54 41 20 24 34 31 30  30 00 e9 59 6e d7 49 4e  |STA $4100..Yn.IN|
000051e0  43 20 24 34 31 30 32 00  f7 59 78 d7 4a 53 52 20  |C $4102..Yx.JSR |
000051f0  45 51 55 41 4c 00 04 5a  82 d7 4c 44 41 20 23 24  |EQUAL..Z..LDA #$|
00005200  31 30 00 12 5a 8c d7 53  54 41 20 24 34 31 30 30  |10..Z..STA $4100|
00005210  00 1f 5a 96 d7 4c 44 41  20 23 24 31 42 00 2d 5a  |..Z..LDA #$1B.-Z|
00005220  a0 d7 53 54 41 20 24 34  31 30 31 00 3a 5a aa d7  |..STA $4101.:Z..|
00005230  4c 44 41 20 23 24 31 32  00 48 5a b4 d7 53 54 41  |LDA #$12.HZ..STA|
00005240  20 24 34 31 30 32 00 59  5a be d7 4a 53 52 20 4d  | $4102.YZ..JSR M|
00005250  55 4c 54 49 50 4c 59 00  66 5a c8 d7 4c 44 41 20  |ULTIPLY.fZ..LDA |
00005260  23 24 31 31 00 74 5a d2  d7 53 54 41 20 24 34 31  |#$11.tZ..STA $41|
00005270  30 30 00 82 5a dc d7 53  54 41 20 24 34 31 30 32  |00..Z..STA $4102|
00005280  00 8f 5a e6 d7 4c 44 41  20 23 24 31 32 00 9d 5a  |..Z..LDA #$12..Z|
00005290  f0 d7 53 54 41 20 24 34  31 30 31 00 ab 5a fa d7  |..STA $4101..Z..|
000052a0  4c 44 41 20 24 44 30 30  38 00 b3 5a 04 d8 53 45  |LDA $D008..Z..SE|
000052b0  43 00 c0 5a 0e d8 53 42  43 20 23 24 35 38 00 d8  |C..Z..SBC #$58..|
000052c0  5a 18 d8 43 41 4c 43 49  4e 4c 4f 50 41 20 43 4d  |Z..CALCINLOPA CM|
000052d0  50 20 23 24 30 30 00 e8  5a 22 d8 42 45 51 20 43  |P #$00..Z".BEQ C|
000052e0  41 4c 43 80 49 41 00 f0  5a 2c d8 50 48 41 00 00  |ALC.IA..Z,.PHA..|
000052f0  5b 36 d8 4a 53 52 20 41  44 44 49 54 49 91 00 08  |[6.JSR ADDITI...|
00005300  5b 40 d8 50 4c 41 00 10  5b 4a d8 54 41 58 00 18  |[@.PLA..[J.TAX..|
00005310  5b 54 d8 44 45 58 00 20  5b 5e d8 54 58 41 00 33  |[T.DEX. [^.TXA.3|
00005320  5b 68 d8 4a 4d 50 20 43  41 4c 43 49 4e 4c 4f 50  |[h.JMP CALCINLOP|
00005330  41 00 48 5b 72 d8 43 41  4c 43 80 49 41 20 4c 44  |A.H[r.CALC.IA LD|
00005340  41 20 23 24 30 31 00 56  5b 7c d8 53 54 41 20 24  |A #$01.V[|.STA $|
00005350  34 31 30 30 00 63 5b 86  d8 4c 44 41 20 23 24 31  |4100.c[..LDA #$1|
00005360  33 00 71 5b 90 d8 53 54  41 20 24 34 31 30 32 00  |3.q[..STA $4102.|
00005370  7f 5b 9a d8 4a 53 52 20  45 51 55 41 4c 00 8c 5b  |.[..JSR EQUAL..[|
00005380  a4 d8 4c 44 41 20 23 24  31 33 00 9a 5b ae d8 53  |..LDA #$13..[..S|
00005390  54 41 20 24 34 31 30 30  00 a8 5b b8 d8 53 54 41  |TA $4100..[..STA|
000053a0  20 24 34 31 30 32 00 b5  5b c2 d8 4c 44 41 20 23  | $4102..[..LDA #|
000053b0  24 31 32 00 c3 5b cc d8  53 54 41 20 24 34 31 30  |$12..[..STA $410|
000053c0  31 00 d1 5b d6 d8 4c 44  41 20 24 44 30 30 41 00  |1..[..LDA $D00A.|
000053d0  d9 5b e0 d8 53 45 43 00  e6 5b ea d8 53 42 43 20  |.[..SEC..[..SBC |
000053e0  23 24 34 30 00 fe 5b f4  d8 43 41 4c 43 49 4e 4c  |#$40..[..CALCINL|
000053f0  4f 50 42 20 43 4d 50 20  23 24 30 30 00 0e 5c fe  |OPB CMP #$00..\.|
00005400  d8 42 45 51 20 43 41 4c  43 80 49 42 00 16 5c 08  |.BEQ CALC.IB..\.|
00005410  d9 50 48 41 00 26 5c 12  d9 4a 53 52 20 41 44 44  |.PHA.&\..JSR ADD|
00005420  49 54 49 91 00 2e 5c 1c  d9 50 4c 41 00 36 5c 26  |ITI...\..PLA.6\&|
00005430  d9 54 41 58 00 3e 5c 30  d9 44 45 58 00 46 5c 3a  |.TAX.>\0.DEX.F\:|
00005440  d9 54 58 41 00 59 5c 44  d9 4a 4d 50 20 43 41 4c  |.TXA.Y\D.JMP CAL|
00005450  43 49 4e 4c 4f 50 42 00  6e 5c 4e d9 43 41 4c 43  |CINLOPB.n\N.CALC|
00005460  80 49 42 20 4c 44 41 20  23 24 31 31 00 7c 5c 58  |.IB LDA #$11.|\X|
00005470  d9 53 54 41 20 24 34 31  30 30 00 89 5c 62 d9 4c  |.STA $4100..\b.L|
00005480  44 41 20 23 24 30 31 00  97 5c 6c d9 53 54 41 20  |DA #$01..\l.STA |
00005490  24 34 31 30 32 00 a5 5c  76 d9 4a 53 52 20 45 51  |$4102..\v.JSR EQ|
000054a0  55 41 4c 00 b2 5c 80 d9  4c 44 41 20 23 24 31 33  |UAL..\..LDA #$13|
000054b0  00 c0 5c 8a d9 53 54 41  20 24 34 31 30 30 00 cd  |..\..STA $4100..|
000054c0  5c 94 d9 4c 44 41 20 23  24 31 45 00 db 5c 9e d9  |\..LDA #$1E..\..|
000054d0  53 54 41 20 24 34 31 30  32 00 e9 5c a8 d9 4a 53  |STA $4102..\..JS|
000054e0  52 20 45 51 55 41 4c 00  f6 5c b2 d9 4c 44 41 20  |R EQUAL..\..LDA |
000054f0  23 24 31 46 00 04 5d bc  d9 53 54 41 20 24 34 31  |#$1F..]..STA $41|
00005500  30 30 00 11 5d c6 d9 4c  44 41 20 23 24 30 33 00  |00..]..LDA #$03.|
00005510  1f 5d d0 d9 53 54 41 20  24 34 31 30 31 00 2c 5d  |.]..STA $4101.,]|
00005520  da d9 4c 44 41 20 23 24  31 30 00 3a 5d e4 d9 53  |..LDA #$10.:]..S|
00005530  54 41 20 24 34 31 30 32  00 4b 5d ee d9 4a 53 52  |TA $4102.K]..JSR|
00005540  20 53 55 42 54 52 41 43  54 00 58 5d f8 d9 4c 44  | SUBTRACT.X]..LD|
00005550  41 20 23 24 30 33 00 66  5d 02 da 53 54 41 20 24  |A #$03.f]..STA $|
00005560  34 31 30 30 00 74 5d 0c  da 49 4e 43 20 24 34 31  |4100.t]..INC $41|
00005570  30 32 00 82 5d 16 da 4a  53 52 20 45 51 55 41 4c  |02..]..JSR EQUAL|
00005580  00 8f 5d 20 da 4c 44 41  20 23 24 31 30 00 9d 5d  |..] .LDA #$10..]|
00005590  2a da 53 54 41 20 24 34  31 30 30 00 aa 5d 34 da  |*.STA $4100..]4.|
000055a0  4c 44 41 20 23 24 31 32  00 b8 5d 3e da 53 54 41  |LDA #$12..]>.STA|
000055b0  20 24 34 31 30 32 00 c5  5d 48 da 4c 44 41 20 23  | $4102..]H.LDA #|
000055c0  24 31 41 00 d3 5d 52 da  53 54 41 20 24 34 31 30  |$1A..]R.STA $410|
000055d0  31 00 e4 5d 5c da 4a 53  52 20 4d 55 4c 54 49 50  |1..]\.JSR MULTIP|
000055e0  4c 59 00 f1 5d 66 da 4c  44 41 20 23 24 31 31 00  |LY..]f.LDA #$11.|
000055f0  ff 5d 70 da 53 54 41 20  24 34 31 30 30 00 0d 5e  |.]p.STA $4100..^|
00005600  7a da 53 54 41 20 24 34  31 30 32 00 1a 5e 84 da  |z.STA $4102..^..|
00005610  4c 44 41 20 23 24 31 32  00 28 5e 8e da 53 54 41  |LDA #$12.(^..STA|
00005620  20 24 34 31 30 31 00 35  5e 98 da 4c 44 41 20 23  | $4101.5^..LDA #|
00005630  24 45 35 00 3d 5e a2 da  53 45 43 00 4b 5e ac da  |$E5.=^..SEC.K^..|
00005640  53 42 43 20 24 44 30 30  44 00 61 5e b6 da 43 41  |SBC $D00D.a^..CA|
00005650  4c 43 49 4e 59 41 20 43  4d 50 20 23 24 30 30 00  |LCINYA CMP #$00.|
00005660  71 5e c0 da 42 45 51 20  43 41 4c 43 80 49 43 00  |q^..BEQ CALC.IC.|
00005670  79 5e ca da 50 48 41 00  89 5e d4 da 4a 53 52 20  |y^..PHA..^..JSR |
00005680  41 44 44 49 54 49 91 00  91 5e de da 50 4c 41 00  |ADDITI...^..PLA.|
00005690  99 5e e8 da 54 41 58 00  a1 5e f2 da 44 45 58 00  |.^..TAX..^..DEX.|
000056a0  a9 5e fc da 54 58 41 00  ba 5e 06 db 4a 4d 50 20  |.^..TXA..^..JMP |
000056b0  43 41 4c 43 49 4e 59 41  00 cf 5e 10 db 43 41 4c  |CALCINYA..^..CAL|
000056c0  43 80 49 43 20 4c 44 41  20 23 24 30 33 00 dd 5e  |C.IC LDA #$03..^|
000056d0  1a db 53 54 41 20 24 34  31 30 30 00 ea 5e 24 db  |..STA $4100..^$.|
000056e0  4c 44 41 20 23 24 31 33  00 f8 5e 2e db 53 54 41  |LDA #$13..^..STA|
000056f0  20 24 34 31 30 32 00 06  5f 38 db 4a 53 52 20 45  | $4102.._8.JSR E|
00005700  51 55 41 4c 00 13 5f 42  db 4c 44 41 20 23 24 31  |QUAL.._B.LDA #$1|
00005710  33 00 21 5f 4c db 53 54  41 20 24 34 31 30 30 00  |3.!_L.STA $4100.|
00005720  2f 5f 56 db 53 54 41 20  24 34 31 30 32 00 3c 5f  |/_V.STA $4102.<_|
00005730  60 db 4c 44 41 20 23 24  31 32 00 4a 5f 6a db 53  |`.LDA #$12.J_j.S|
00005740  54 41 20 24 34 31 30 31  00 57 5f 74 db 4c 44 41  |TA $4101.W_t.LDA|
00005750  20 23 24 46 41 00 5f 5f  7e db 53 45 43 00 6d 5f  | #$FA.__~.SEC.m_|
00005760  88 db 53 42 43 20 24 44  30 30 39 00 83 5f 92 db  |..SBC $D009.._..|
00005770  43 41 4c 43 49 4e 59 42  20 43 4d 50 20 23 24 30  |CALCINYB CMP #$0|
00005780  30 00 93 5f 9c db 42 45  51 20 43 41 4c 43 80 49  |0.._..BEQ CALC.I|
00005790  44 00 9b 5f a6 db 50 48  41 00 ab 5f b0 db 4a 53  |D.._..PHA.._..JS|
000057a0  52 20 41 44 44 49 54 49  91 00 b3 5f ba db 50 4c  |R ADDITI..._..PL|
000057b0  41 00 bb 5f c4 db 54 41  58 00 c3 5f ce db 44 45  |A.._..TAX.._..DE|
000057c0  58 00 cb 5f d8 db 54 58  41 00 dc 5f e2 db 4a 4d  |X.._..TXA.._..JM|
000057d0  50 20 43 41 4c 43 49 4e  59 42 00 f1 5f ec db 43  |P CALCINYB.._..C|
000057e0  41 4c 43 80 49 44 20 4c  44 41 20 23 24 31 31 00  |ALC.ID LDA #$11.|
000057f0  ff 5f f6 db 53 54 41 20  24 34 31 30 30 00 0c 60  |._..STA $4100..`|
00005800  00 dc 4c 44 41 20 23 24  30 33 00 1a 60 0a dc 53  |..LDA #$03..`..S|
00005810  54 41 20 24 34 31 30 32  00 28 60 14 dc 4a 53 52  |TA $4102.(`..JSR|
00005820  20 45 51 55 41 4c 00 35  60 1e dc 4c 44 41 20 23  | EQUAL.5`..LDA #|
00005830  24 31 33 00 43 60 28 dc  53 54 41 20 24 34 31 30  |$13.C`(.STA $410|
00005840  30 00 50 60 32 dc 4c 44  41 20 23 24 31 46 00 5e  |0.P`2.LDA #$1F.^|
00005850  60 3c dc 53 54 41 20 24  34 31 30 32 00 6c 60 46  |`<.STA $4102.l`F|
00005860  dc 4a 53 52 20 45 51 55  41 4c 00 7f 60 50 dc 43  |.JSR EQUAL..`P.C|
00005870  41 4c 43 a9 20 4c 44 41  20 23 24 31 45 00 8d 60  |ALC. LDA #$1E..`|
00005880  5a dc 53 54 41 20 24 34  31 30 30 00 9a 60 64 dc  |Z.STA $4100..`d.|
00005890  4c 44 41 20 23 24 30 31  00 a8 60 6e dc 53 54 41  |LDA #$01..`n.STA|
000058a0  20 24 34 31 30 31 00 b5  60 78 dc 4c 44 41 20 23  | $4101..`x.LDA #|
000058b0  24 31 30 00 c3 60 82 dc  53 54 41 20 24 34 31 30  |$10..`..STA $410|
000058c0  32 00 d4 60 8c dc 4a 53  52 20 53 55 42 54 52 41  |2..`..JSR SUBTRA|
000058d0  43 54 00 e1 60 96 dc 4c  44 41 20 23 24 31 30 00  |CT..`..LDA #$10.|
000058e0  ef 60 a0 dc 53 54 41 20  24 34 31 30 30 00 fc 60  |.`..STA $4100..`|
000058f0  aa dc 4c 44 41 20 23 24  31 37 00 0a 61 b4 dc 53  |..LDA #$17..a..S|
00005900  54 41 20 24 34 31 30 31  00 17 61 be dc 4c 44 41  |TA $4101..a..LDA|
00005910  20 23 24 30 32 00 25 61  c8 dc 53 54 41 20 24 34  | #$02.%a..STA $4|
00005920  31 30 32 00 36 61 d2 dc  4a 53 52 20 4d 55 4c 54  |102.6a..JSR MULT|
00005930  49 50 4c 59 00 43 61 dc  dc 4c 44 41 20 23 24 31  |IPLY.Ca..LDA #$1|
00005940  46 00 51 61 e6 dc 53 54  41 20 24 34 31 30 30 00  |F.Qa..STA $4100.|
00005950  5e 61 f0 dc 4c 44 41 20  23 24 30 33 00 6c 61 fa  |^a..LDA #$03.la.|
00005960  dc 53 54 41 20 24 34 31  30 31 00 79 61 04 dd 4c  |.STA $4101.ya..L|
00005970  44 41 20 23 24 31 30 00  87 61 0e dd 53 54 41 20  |DA #$10..a..STA |
00005980  24 34 31 30 32 00 98 61  18 dd 4a 53 52 20 53 55  |$4102..a..JSR SU|
00005990  42 54 52 41 43 54 00 a5  61 22 dd 4c 44 41 20 23  |BTRACT..a".LDA #|
000059a0  24 31 30 00 b3 61 2c dd  53 54 41 20 24 34 31 30  |$10..a,.STA $410|
000059b0  30 00 c0 61 36 dd 4c 44  41 20 23 24 31 41 00 ce  |0..a6.LDA #$1A..|
000059c0  61 40 dd 53 54 41 20 24  34 31 30 31 00 db 61 4a  |a@.STA $4101..aJ|
000059d0  dd 4c 44 41 20 23 24 30  34 00 e9 61 54 dd 53 54  |.LDA #$04..aT.ST|
000059e0  41 20 24 34 31 30 32 00  fa 61 5e dd 4a 53 52 20  |A $4102..a^.JSR |
000059f0  4d 55 4c 54 49 50 4c 59  00 07 62 68 dd 4a 53 52  |MULTIPLY..bh.JSR|
00005a00  20 4d af 4c 45 00 16 62  72 dd 4a 4d 50 20 9a 52  | M.LE..br.JMP .R|
00005a10  4f 4c 4f 50 00 3c 62 60  ea 3b 20 20 20 20 20 20  |OLOP.<b`.;      |
00005a20  20 20 20 20 20 20 20 20  20 20 20 20 20 5a 4f 4f  |             ZOO|
00005a30  4d 20 52 4f 55 54 49 4e  45 53 00 48 62 65 ea ac  |M ROUTINES.Hbe..|
00005a40  b2 24 30 38 32 30 00 57  62 6a ea 42 4f 58 20 4c  |.$0820.Wbj.BOX L|
00005a50  44 41 20 58 50 00 64 62  74 ea 53 54 41 20 58 50  |DA XP.dbt.STA XP|
00005a60  49 42 00 6f 62 7e ea 4c  44 41 20 59 50 00 7c 62  |IB.ob~.LDA YP.|b|
00005a70  88 ea 53 54 41 20 59 50  49 42 00 88 62 92 ea 4c  |..STA YPIB..b..L|
00005a80  44 41 20 58 50 42 00 96  62 9c ea 53 54 41 20 58  |DA XPB..b..STA X|
00005a90  50 42 49 42 00 a3 62 a6  ea 4c 44 58 20 23 24 33  |PBIB..b..LDX #$3|
00005aa0  43 00 b1 62 b0 ea 53 54  58 20 24 30 37 46 43 00  |C..b..STX $07FC.|
00005ab0  b9 62 ba ea 49 4e 58 00  c7 62 c4 ea 53 54 58 20  |.b..INX..b..STX |
00005ac0  24 30 37 46 44 00 cf 62  ce ea 49 4e 58 00 dd 62  |$07FD..b..INX..b|
00005ad0  d8 ea 53 54 58 20 24 30  37 46 45 00 e5 62 e2 ea  |..STX $07FE..b..|
00005ae0  49 4e 58 00 f3 62 ec ea  53 54 58 20 24 30 37 46  |INX..b..STX $07F|
00005af0  46 00 01 63 f6 ea 4c 44  41 20 24 44 30 31 35 00  |F..c..LDA $D015.|
00005b00  0d 63 00 eb b0 41 20 23  24 46 30 00 1b 63 0a eb  |.c...A #$F0..c..|
00005b10  53 54 41 20 24 44 30 31  35 00 2e 63 14 eb 42 4f  |STA $D015..c..BO|
00005b20  58 92 20 4c 44 41 20 43  4c 49 43 4b 00 3b 63 1e  |X. LDA CLICK.;c.|
00005b30  eb 42 4e 45 20 42 4f 58  92 00 51 63 78 eb 42 4f  |.BNE BOX..Qcx.BO|
00005b40  58 4c 4f 4f 50 20 4c 44  41 20 58 50 42 49 42 00  |XLOOP LDA XPBIB.|
00005b50  5d 63 82 eb 43 4d 50 20  58 50 42 00 6f 63 8c eb  |]c..CMP XPB.oc..|
00005b60  42 45 51 20 43 48 45 43  4b 46 49 4e 45 00 80 63  |BEQ CHECKFINE..c|
00005b70  96 eb 42 43 53 20 4c 45  53 53 54 48 41 4e 00 90  |..BCS LESSTHAN..|
00005b80  63 a0 eb 4a 4d 50 20 4d  b0 45 54 48 41 4e 00 a7  |c..JMP M.ETHAN..|
00005b90  63 aa eb 43 48 45 43 4b  46 49 4e 45 20 4c 44 41  |c..CHECKFINE LDA|
00005ba0  20 58 50 49 42 00 b2 63  b4 eb 43 4d 50 20 58 50  | XPIB..c..CMP XP|
00005bb0  00 c3 63 be eb 42 43 53  20 4c 45 53 53 54 48 41  |..c..BCS LESSTHA|
00005bc0  4e 00 d8 63 c8 eb 4d b0  45 54 48 41 4e 20 4c 44  |N..c..M.ETHAN LD|
00005bd0  41 20 58 50 49 42 00 e6  63 d2 eb 53 54 41 20 24  |A XPIB..c..STA $|
00005be0  44 30 30 38 00 f4 63 dc  eb 53 54 41 20 24 44 30  |D008..c..STA $D0|
00005bf0  30 43 00 01 64 e6 eb 4c  44 58 20 23 24 30 30 00  |0C..d..LDX #$00.|
00005c00  0f 64 f0 eb 4c 44 41 20  58 50 42 49 42 00 20 64  |.d..LDA XPBIB. d|
00005c10  fa eb 42 45 51 20 4e 4f  58 50 42 41 44 44 00 2d  |..BEQ NOXPBADD.-|
00005c20  64 04 ec 4c 44 58 20 23  24 35 30 00 44 64 0e ec  |d..LDX #$50.Dd..|
00005c30  4e 4f 58 50 42 41 44 44  20 4c 44 41 20 24 44 30  |NOXPBADD LDA $D0|
00005c40  31 30 00 4f 64 18 ec af  20 23 24 41 46 00 5b 64  |10.Od... #$AF.[d|
00005c50  22 ec 53 54 58 20 24 30  32 00 63 64 2c ec 43 4c  |".STX $02.cd,.CL|
00005c60  43 00 6f 64 36 ec 41 44  43 20 24 30 32 00 7d 64  |C.od6.ADC $02.}d|
00005c70  40 ec 53 54 41 20 24 44  30 31 30 00 8a 64 45 ec  |@.STA $D010..dE.|
00005c80  4c 44 58 20 23 24 30 30  00 95 64 4a ec 4c 44 41  |LDX #$00..dJ.LDA|
00005c90  20 58 50 00 9d 64 54 ec  53 45 43 00 aa 64 5e ec  | XP..dT.SEC..d^.|
00005ca0  53 42 43 20 23 24 31 38  00 b8 64 68 ec 53 54 41  |SBC #$18..dh.STA|
00005cb0  20 24 44 30 30 41 00 c6  64 72 ec 53 54 41 20 24  | $D00A..dr.STA $|
00005cc0  44 30 30 45 00 d4 64 7c  ec 42 43 43 20 4d 54 53  |D00E..d|.BCC MTS|
00005cd0  55 42 00 e0 64 86 ec 4c  44 58 20 58 50 42 00 ee  |UB..d..LDX XPB..|
00005ce0  64 90 ec 42 45 51 20 4d  54 53 55 42 00 fb 64 9a  |d..BEQ MTSUB..d.|
00005cf0  ec 4c 44 58 20 23 24 41  30 00 0f 65 a4 ec 4d 54  |.LDX #$A0..e..MT|
00005d00  53 55 42 20 4c 44 41 20  24 44 30 31 30 00 1a 65  |SUB LDA $D010..e|
00005d10  ae ec af 20 23 24 35 46  00 26 65 b8 ec 53 54 58  |... #$5F.&e..STX|
00005d20  20 24 30 32 00 2e 65 c2  ec 43 4c 43 00 3a 65 cc  | $02..e..CLC.:e.|
00005d30  ec 41 44 43 20 24 30 32  00 48 65 d6 ec 53 54 41  |.ADC $02.He..STA|
00005d40  20 24 44 30 31 30 00 55  65 e0 ec 4a 4d 50 20 42  | $D010.Ue..JMP B|
00005d50  4f 58 9a 00 69 65 ea ec  4c 45 53 53 54 48 41 4e  |OX..ie..LESSTHAN|
00005d60  20 4c 44 41 20 58 50 00  75 65 f4 ec 4c 44 58 20  | LDA XP.ue..LDX |
00005d70  58 50 42 00 82 65 fe ec  42 4e 45 20 a8 4f 55 54  |XPB..e..BNE .OUT|
00005d80  00 8f 65 08 ed 43 4d 50  20 23 24 35 38 00 9c 65  |..e..CMP #$58..e|
00005d90  12 ed 42 43 53 20 a8 4f  55 54 00 a9 65 1c ed 4c  |..BCS .OUT..e..L|
00005da0  44 41 20 23 24 35 38 00  bc 65 26 ed a8 4f 55 54  |DA #$58..e&..OUT|
00005db0  20 53 54 41 20 24 44 30  30 38 00 ca 65 30 ed 53  | STA $D008..e0.S|
00005dc0  54 41 20 24 44 30 30 43  00 d7 65 3a ed 43 50 58  |TA $D00C..e:.CPX|
00005dd0  20 23 24 30 30 00 e7 65  44 ed 42 45 51 20 4c 54  | #$00..eD.BEQ LT|
00005de0  4e 4f 41 44 44 00 f4 65  4e ed 4c 44 58 20 23 24  |NOADD..eN.LDX #$|
00005df0  35 30 00 0a 66 58 ed 4c  54 4e 4f 41 44 44 20 4c  |50..fX.LTNOADD L|
00005e00  44 41 20 24 44 30 31 30  00 15 66 62 ed af 20 23  |DA $D010..fb.. #|
00005e10  24 41 46 00 21 66 6c ed  53 54 58 20 24 30 32 00  |$AF.!fl.STX $02.|
00005e20  29 66 76 ed 43 4c 43 00  35 66 80 ed 41 44 43 20  |)fv.CLC.5f..ADC |
00005e30  24 30 32 00 43 66 8a ed  53 54 41 20 24 44 30 31  |$02.Cf..STA $D01|
00005e40  30 00 50 66 8f ed 4c 44  58 20 23 24 30 30 00 5d  |0.Pf..LDX #$00.]|
00005e50  66 94 ed 4c 44 41 20 58  50 49 42 00 65 66 9e ed  |f..LDA XPIB.ef..|
00005e60  53 45 43 00 72 66 a8 ed  53 42 43 20 23 24 31 38  |SEC.rf..SBC #$18|
00005e70  00 80 66 b2 ed 53 54 41  20 24 44 30 30 41 00 8e  |..f..STA $D00A..|
00005e80  66 bc ed 53 54 41 20 24  44 30 30 45 00 9c 66 c6  |f..STA $D00E..f.|
00005e90  ed 42 43 43 20 4c 54 53  55 42 00 aa 66 d0 ed 4c  |.BCC LTSUB..f..L|
00005ea0  44 58 20 58 50 42 49 42  00 b8 66 da ed 42 45 51  |DX XPBIB..f..BEQ|
00005eb0  20 4c 54 53 55 42 00 c5  66 e4 ed 4c 44 58 20 23  | LTSUB..f..LDX #|
00005ec0  24 41 30 00 d9 66 ee ed  4c 54 53 55 42 20 4c 44  |$A0..f..LTSUB LD|
00005ed0  41 20 24 44 30 31 30 00  e4 66 f8 ed af 20 23 24  |A $D010..f... #$|
00005ee0  35 46 00 f0 66 02 ee 53  54 58 20 24 30 32 00 f8  |5F..f..STX $02..|
00005ef0  66 0c ee 43 4c 43 00 04  67 16 ee 41 44 43 20 24  |f..CLC..g..ADC $|
00005f00  30 32 00 12 67 20 ee 53  54 41 20 24 44 30 31 30  |02..g .STA $D010|
00005f10  00 22 67 2a ee 42 4f 58  9a 20 4c 44 41 20 59 50  |."g*.BOX. LDA YP|
00005f20  00 2f 67 34 ee 43 4d 50  20 59 50 49 42 00 3d 67  |./g4.CMP YPIB.=g|
00005f30  3e ee 42 43 43 20 4c 45  53 53 59 00 4a 67 48 ee  |>.BCC LESSY.JgH.|
00005f40  4c 44 41 20 59 50 49 42  00 58 67 52 ee 53 54 41  |LDA YPIB.XgR.STA|
00005f50  20 24 44 30 30 39 00 66  67 5c ee 53 54 41 20 24  | $D009.fg\.STA $|
00005f60  44 30 30 42 00 71 67 66  ee 4c 44 41 20 59 50 00  |D00B.qgf.LDA YP.|
00005f70  79 67 70 ee 53 45 43 00  86 67 7a ee 53 42 43 20  |ygp.SEC..gz.SBC |
00005f80  23 24 31 35 00 94 67 84  ee 53 54 41 20 24 44 30  |#$15..g..STA $D0|
00005f90  30 44 00 a2 67 8e ee 53  54 41 20 24 44 30 30 46  |0D..g..STA $D00F|
00005fa0  00 b1 67 98 ee 4a 4d 50  20 42 4f 58 9a 49 49 00  |..g..JMP BOX.II.|
00005fb0  c2 67 a2 ee 4c 45 53 53  59 20 4c 44 41 20 59 50  |.g..LESSY LDA YP|
00005fc0  00 d0 67 ac ee 53 54 41  20 24 44 30 30 39 00 de  |..g..STA $D009..|
00005fd0  67 b6 ee 53 54 41 20 24  44 30 30 42 00 eb 67 c0  |g..STA $D00B..g.|
00005fe0  ee 4c 44 41 20 59 50 49  42 00 f3 67 ca ee 53 45  |.LDA YPIB..g..SE|
00005ff0  43 00 00 68 d4 ee 53 42  43 20 23 24 31 35 00 0e  |C..h..SBC #$15..|
00006000  68 de ee 53 54 41 20 24  44 30 30 44 00 1c 68 e8  |h..STA $D00D..h.|
00006010  ee 53 54 41 20 24 44 30  30 46 00 31 68 f2 ee 42  |.STA $D00F.1h..B|
00006020  4f 58 9a 49 49 20 4c 44  41 20 43 4c 49 43 4b 00  |OX.II LDA CLICK.|
00006030  3e 68 fc ee 42 4e 45 20  42 4f 58 80 00 4e 68 06  |>h..BNE BOX..Nh.|
00006040  ef 4a 4d 50 20 42 4f 58  4c 4f 4f 50 00 62 68 10  |.JMP BOXLOOP.bh.|
00006050  ef 42 4f 58 80 20 4a 4d  50 20 9a 52 4f 4c 4f 50  |.BOX. JMP .ROLOP|
00006060  00 77 68 30 f2 42 4f 58  46 4c 41 53 48 20 4c 44  |.wh0.BOXFLASH LD|
00006070  41 20 24 41 32 00 82 68  3a f2 af 20 23 24 33 43  |A $A2..h:.. #$3C|
00006080  00 8c 68 44 f2 4c 53 52  20 41 00 96 68 4e f2 4c  |..hD.LSR A..hN.L|
00006090  53 52 20 41 00 9e 68 58  f2 54 41 58 00 b0 68 62  |SR A..hX.TAX..hb|
000060a0  f2 4c 44 41 20 42 4f 58  43 4f 4c 53 2c 58 00 be  |.LDA BOXCOLS,X..|
000060b0  68 6c f2 53 54 41 20 24  44 30 32 42 00 cc 68 76  |hl.STA $D02B..hv|
000060c0  f2 53 54 41 20 24 44 30  32 43 00 da 68 80 f2 53  |.STA $D02C..h..S|
000060d0  54 41 20 24 44 30 32 44  00 e8 68 8a f2 53 54 41  |TA $D02D..h..STA|
000060e0  20 24 44 30 32 45 00 f6  68 94 f2 4a 4d 50 20 24  | $D02E..h..JMP $|
000060f0  45 41 33 31 00 18 69 9e  f2 42 4f 58 43 4f 4c 53  |EA31..i..BOXCOLS|
00006100  20 54 58 54 20 30 2c 39  2c 32 2c 38 2c 31 30 2c  | TXT 0,9,2,8,10,|
00006110  37 2c 31 33 2c 31 00 32  69 a8 f2 54 58 54 20 31  |7,13,1.2i..TXT 1|
00006120  2c 31 33 2c 33 2c 35 2c  31 34 2c 34 2c 36 2c 30  |,13,3,5,14,4,6,0|
00006130  00 47 69 18 f6 3b 20 44  45 4c 45 54 45 20 54 48  |.Gi..; DELETE TH|
00006140  45 53 45 21 21 00 5e 69  54 f6 5a 4f 4f 4d 4f 55  |ESE!!.^iT.ZOOMOU|
00006150  54 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 76 69 7c  |T JMP .ROLOP.vi||
00006160  f6 43 48 4e 20 22 4d 41  4e 44 45 4c 43 4f 44 45  |.CHN "MANDELCODE|
00006170  32 2e 31 22 00 00 00                              |2.1"...|
00006177