;MANDELPLOT";SOURCE CODE0;22/10/956(;Bd��$0E00ji;                         VARIABLES{nXPIXEL�$4103�xYPIXEL�$4104��COLOUR�$4105��YPIB�$4106��MAXCOL�$4107��XP�$4108��YP�$4109��XPB�$410A��CLICK�$410B	�HOUR�$410C	�XPIB�$410D#	�XPBIB�$410E2	�COL0�$410FA	�COL1�$4110P	�COL2�$4111_	�COL3�$4112o	�COL0S�$4113	�COL1S�$4114�	�COL2S�$4115�	�COL3S�$4116�	��TIME�$4117�	�SPEED�$4118�	
;                      ROM ROUTINES�	"
OUTDO �$AB47
#
�LFS�$FFBA
$
�NAM�$FFBD%
%
�ROM�$FFD8M
,
;                       SPRITE DATAS
1
;{
6
TXT 224,000,000,176,000,000,152,000�
@
TXT 000,140,000,000,134,000,000,131�
J
TXT 000,000,129,128,000,128,192,000�
T
TXT 128,064,000,147,192,000,185,000^
TXT 000,233,000,000,009,128,000,012Ch
TXT 128,000,004,128,000,004,128,000kr
TXT 007,128,000,000,000,000,000,000�|
TXT 000,000,000,000,000,000,000,153��
;��
TXT 000,000,000,064,000,000,096,000��
TXT 000,112,000,000,120,000,000,124�
TXT 000,000,126,000,000,127,000,0009�
TXT 127,128,000,108,000,000,070,000a�
TXT 000,006,000,000,006,000,000,003��
TXT 000,000,003,000,000,003,000,000��
TXT 000,000,000,000,000,000,000,000��
TXT 000,000,000,000,000,000,000,153��
;
�
TXT 255,192,000,129,064,000,128,064/
�
TXT 000,129,064,000,066,128,000,064W
�
TXT 128,000,051,000,000,012,000,000
�
TXT 055,000,000,065,128,000,066,128�
�
TXT 000,129,064,000,130,192,000,133�
TXT 064,000,255,192,000,000,000,000�
TXT 000,000,000,000,000,000,000,000TXT 000,000,000,000,000,000,000,197%!;M&TXT 255,192,000,255,192,000,255,192u0TXT 000,255,192,000,127,128,000,127�:TXT 128,000,063,000,000,012,000,000�DTXT 063,000,000,127,128,000,127,128�NTXT 000,255,192,000,255,192,000,255XTXT 192,000,255,192,000,000,000,000=bTXT 000,000,000,000,000,000,000,000elTXT 000,000,000,000,000,000,000,197kq;�vTXT 168,000,000,000,000,000,128,000��TXT 000,000,000,000,128,000,000,000��TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,0003�TXT 000,000,000,000,000,000,000,000[�TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,197��;��TXT 000,000,021,000,000,000,000,000
�TXT 001,000,000,000,000,000,001,000)�TXT 000,000,000,000,000,000,000,000Q�TXT 000,000,000,000,000,000,000,000y�TXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000�;TXT 000,000,000,000,000,000,000,000G TXT 000,000,000,000,000,000,000,000o*TXT 000,000,000,000,000,000,000,000�4TXT 000,000,000,000,000,000,000,000�>TXT 000,000,000,000,000,000,000,000�HTXT 000,000,000,000,000,000,000,000RTXT 128,000,000,000,000,000,128,0007\TXT 000,000,000,000,168,000,000,000=a;efTXT 000,000,000,000,000,000,000,000�pTXT 000,000,000,000,000,000,000,000�zTXT 000,000,000,000,000,000,000,000��TXT 000,000,000,000,000,000,000,000�TXT 000,000,000,000,000,000,000,000-�TXT 000,000,000,000,000,000,000,000U�TXT 000,000,001,000,000,000,000,000}�TXT 001,000,000,000,000,000,021,000��;�';           MAIN �ROL ROUTINES�'JSR INIT�$'COMEBACK JSR HIRES��.'�ROLOP LDA CLICK�8'BNE �ROLOPB'�LOPB LDA CLICKL'BEQ �LOPBV'LDA XP)`'CMP #$584j'BCC ��@t'JMP BOXN~'�� LDA YPV�'SECc�'SBC #$5Am�'LSR Aw�'LSR A��'� #$FE��'TAX��'LDA VEC�RS,X��'STA $FB��'INX��'LDA VEC�RS,X��'STA $FC��'JMP ($00FB)(VEC�RS TXT �ZOOMOUT,�ZOOMOUT,��ROLOP,��ROLOP,�ZOOMIN,�ZOOMINS
(TXT ��ROLOP,��ROLOP,��ITI�,��ITI�,��ROLOP,��ROLOP�(TXT ��ROLOP,��ROLOP,�COLS,�COLS,��ROLOP,��ROLOP�(TXT �COLCYCLE,�COLCYCLE,��ROLOP,��ROLOP,�M�PLOT,�M�PLOT�((TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,�EXIT,�EXIT+2(TXT ��ROLOP,��ROLOP,��,��,��ROLOP,��ROLOP,��,��c<(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOPy)EXIT JSR HIRESOFF�)LDA #$93�)JSR OUTDO�")LDA #$05�,)JSR OUTDO�6)RTS��.;                   WIMP ROUTINES��.; WIMP - MOUSE
�.IRQ LDA #$00/STA CLICK/LDA $C5(/CMP #$018&/BNE C�CHECKF0/STA CLICK[:/C�CHECK CMP #$0CiD/BEQ LEFTKzN/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 $DC007�/� #$04E�/BEQ LEFTJW�/LJC LDA $DC00b�/� #$08q0BEQ 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 UPKC:�0DOWNK JSR DOWNF�0JMP DKCU�0UPJ JSR UPa�0JMP UJCt�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 #$00
1STY XPB$1�FF LDY XPB).1BNE FIN681CMP #$18BB1BNE FINML1INC XP^V1FIN JMP �ROLo`1RIGHT INC XPzj1LDA 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 YP62JMP �ROLF
2DOWN INC YPQ2LDA YP^2CMP #$F8j(2BNE FINu22DEC 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 YP0�3STA $D001>�3STA $D003L�3LDA $D010W4� #$FCa4LSR Ai4CLCu&4ADC XPB04ASL 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 #$384�4STX $07F8<�4INXJ�4STX $07F9W�4QTRO RTSn�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 $D011"f5LDA #$D80p5STA $D016>z5LDA COL0SK�5STA COL0Y�5LDA COL1Sf�5STA COL1t�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 $D018" 4:RTS3 R:HIRESOFF SEI@ \:LDA #$31N f:STA $0314[ p:LDA #$EAi z:STA $0315q �:CLI~ �:LDA #$00� �:STA $D015� �:LDA #$9B� �:STA $D011� �:LDA #$C8� �:STA $D016� �:LDA #$15� �:STA $D018� �:RTS�  N� JSR HIRESOFF!*NLDA #$1C!4NJSR OUTDO !>NLDA #$93.!HNJSR OUTDO;!RNLDA #$00I!\N�LOOP PHAS!fNASL A]!pNASL Ae!zNCLCr!�NADC #$42~!�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 $FE"OLDA $FE+"OCMP #$08:"OBNE �LOOPBI"$O�� LDA $C5V".OCMP #$40a"8OBNE ��q"BO��B LDA $C5~"LOCMP #$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 #$044#�OBEQ �RET<#�OCLCI#�OADC #$01W#�OJMP �LOOPi#PPREV CMP #$00v#
PBEQ �RET~#PSEC�#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",0=$�a�T TXT 13,13,"POSITION TAPE <SPACE>",13,0k$�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 $C55%RbCMP #$40@%\bBNE ��P%fb��B LDA $C5]%pbCMP #$40i%zbBEQ ��Bq%�bTAX~%�bLDA ��,X�%�bBEQ ���%�bRTS�%�b� JSR HIRESOFF�%�bLDX #$00�%�bLDA #$20�%�b�AME� STA $41F0,X�%�bINX�%�bCPX #$10�%�bBNE �AME�&�bLDA #��AME&�bSTA $FB!&cLDA #��AME-&cSTA $FC=&cJSR PSTRINGJ&$cLDA #$00R&.cPHA`&8c�LOOP TAYm&=cJSR �OFFx&BcJSR ���&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,X9'�cINC� CPX #$0FH'�cBEQ �RELOPP'�cINX_'�c�RELOP TXAg'�cPHAu'�cJMP �LOOP�'dDECODE CMP #$80�'
dBEQ ��'dCMP #$81�'dBEQ ��'(dCMP #$82�'2dBNE �LOOP�'<dPLA�'FdTAX�'PdLDA $0283�'Zd� #$01�'ddBEQ INC�(ndDEC� CPX #$00(xdBEQ �RELOP%(�dDEX4(�dJMP �RELOP>(�d� PLAF(�dTAXS(�dLDA #$20c(�dSTA $040A,Xs(�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 #��T;)JeSTA $FBH)TeLDA #��TT)^eSTA $FCd)heJSR PSTRINGq)reLDX #$01)|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'*�eLDX #$10=*f�AME� LDA $41EF,XJ*fCMP #$20Y*fBNE �AME�Ta*&fDEXp*0fBEQ �AME�T~*:fJMP �AME��*Df�AME�T TXA�*bfLDY #$41�*lfJSR �NAM�*vfLDA #$20�*�fSTA $FC�*�fLDX #$00�*�fSTA $FB�*�fLDY #$40�*�fLDA #$FB+�fJSR �ROM&+xi;           KEYBOARD DECODE TABLE,+�i;C+�i�� TXT $81,$80,$82e+�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,08,0u;          M�LEBROT SET PLOTTERE,:uM�LE SEIR,?uLDA #$00a,DuSTA YPIXELn,NuLDA #$03|,XuSTA $4100�,buLDA #$06�,luSTA $4102�,vuJSR EQUAL�,�uMMAINL LDA #$00�,�uSTA XPIXEL�,�uLDA #$01�,�uSTA $4100�,�uLDA #$05�,�uSTA $4102-�uJSR EQUAL!-�uMMAINLB LDA #$05/-�uSTA $4100<-�uLDA #$07J-�uSTA $4102X-�uJSR EQUALf-�uINC $4100t-vINC $4102�-vJSR EQUAL�-vLDA #$00�- vSTA COLOUR�-*vLOOP LDA #$07�-4vSTA $4100�->vSTA $4101�-HvLDA #$10�-RvSTA $4102�-\vJSR MULTIPLY.fvLDA #$08.pvSTA $4100!.zvSTA $4101..�vLDA #$11<.�vSTA $4102M.�vJSR MULTIPLYZ.�vLDX #$10h.�vSTX $4100p.�vINX~.�vSTX $4101�.�vINX�.�vSTX $4102�.�vJSR ADDITI��.�vLDA $4091�.�vCMP #$04�.�vBCC FAIL�.wCMP #$50�.wBCS FAIL�.wSUCPASS JMP SUCCESS/$wFAIL INC COLOUR!/)wLDA COLOUR0/.wCMP MAXCOL@/8wBEQ SUCPASSQ/BwJSR SUBTRACT^/LwLDA #$12l/VwSTA $4100y/`wLDA #$05�/jwSTA $4101�/twLDA #$13�/~wSTA $4102�/�wJSR ADDITI��/�wLDA #$07�/�wSTA $4100�/�wLDA #$08�/�wSTA $4101�/�wINC $41020�wJSR MULTIPLY0�wLDA #$14"0�wSTA $4100/0�wLDA #$1C=0�wSTA $4101J0�wLDA #$15X0xSTA $4102i0
xJSR MULTIPLYv0xLDA #$15�0xSTA $4100�0(xLDA #$06�02xSTA $4101�0<xLDA #$16�0FxSTA $4102�0PxJSR ADDITI��0ZxLDA #$13�0dxSTA $4100�0nxLDA #$071xxSTA $41021�xJSR EQUAL1�xLDA #$16)1�xSTA $410061�xLDA #$08D1�xSTA $4102R1�xJSR EQUAL_1�xJMP LOOPt1�xSUCCESS JSR PLOT�1�xLDA #$05�1�xSTA $4100�1�xSTA $4102�1�xLDA #$02�1�xSTA $4101�1yJSR ADDITI��1yLDA XPIXEL�1yBNE XRELOP�1"yLDA #$06
2,ySTA $410026ySTA $41022@yLDA #$04*2JySTA $4101:2TyJSR ADDITI�I2^yINC YPIXELX2hyLDA YPIXELe2ryCMP #$C8t2|yBNE YRELOP|2�yCLI�2�yRTS�2�yXRELOP JMP MMAINLB�2�yYRELOP JMP MMAINL�2�yM�PLOT JSR M�LE�2�yJMP �ROLOP�2��;                 COLOUR ROUTINES
3ˆ�COLS LDA COL03̈STA $D021(3ֈLDY #$0043�STY $FBA3�LDA #$D8M3�STA $FCZ3��LDA COL3q3��CLOPA STA ($FB),Yy3�INY�3�BNE �CLOPA�3&�INC $FC�30�LDX $FC�3:�CPX #$DC�3D�BNE �CLOPA�3N�LDA #$04�3X�STA $FC�3b�LDA COL1�3l�ASL A�3v�ASL A4��ASL A
4��ASL A4���A COL2-4���CLOPB STA ($FB),Y54��INYD4��BEQ �CLOPCQ4��CPY #$F8`4ƉBNE �CLOPBl4ЉLDX $FCy4ډCPX #$07�4�BNE �CLOPB�4�RTS�4���CLOPC INC $FC�4�JMP �CLOPB�4�COLC� LDA �TIME�4�CLC�4 �ADC SPEED�4*�STA �TIME�44�COLCLOP CMP $A25>�BNE COLCLOP5H�RTS)5R�COLC�S LDA $C565\�CMP #$28C5f�BEQ SPUPP5p�CMP #$2B]5z�BEQ SLDNj5��CMP #$01z5��BEQ COLCOFF�5��NO� RTS�5��COLCOFF PLA�5��PLA�5��JMP COMEBACK�5��SPUP LDA SPEED�5ʊBEQ NO��5ԊDEC SPEED�5ފRTS�5�SLDN LDA SPEED6�CMP #$196��BEQ NO�6�INC SPEED&6�RTS<6�COLCYCLE LDA #$0AJ6$�STA SPEEDV6.�LDA $A2d68�STA �TIME|6B�COLCYCLOP LDA COL0S�6L�STA COL0�6V�LDA COL1S�6`�STA COL1�6j�LDA COL2S�6t�STA COL2�6~�LDA COL3S�6��STA COL3�6��JSR �COLS�6��JSR COLC�S7��JSR COLC�7��LDA COL3S 7��STA COL0.7ċLDA COL0S;7΋STA COL1I7؋LDA COL1SV7�STA COL2d7�LDA COL2Sq7��STA COL37�JSR �COLS�7
�JSR COLC�S�7�JSR COLC��7�LDA COL2S�7(�STA COL0�72�LDA COL3S�7<�STA COL1�7F�LDA COL0S�7P�STA COL2�7Z�LDA COL1S8d�STA COL38n�JSR �COLS%8x�JSR COLC�S38��JSR COLC�A8��LDA COL1SN8��STA COL0\8��LDA COL2Si8��STA COL1w8��LDA COL3S�8��STA COL2�8ȌLDA COL0S�8ҌSTA COL3�8܌JSR �COLS�8�JSR COLC�S�8�JSR COLC��8��JMP COLCYCLOP9@�;             ARITHMETIC ROUTINES9J��DIGIT CLD9T�ASL A%9^�ASL A/9h�ASL A;9r�STA $02C9|�TXAM9��LSR AY9��STA $24f9��LDA #$07n9��SECz9��SBC $24�9��CLC�9œADC $02�9̜TAY�9֜LDA $4000,Y�9�TAY�9�TXA�9� #$01�9��BEQ LSNGD�9�TYA�9�� #$F0�9�LSR A�9&�LSR A:0�LSR A
::�LSR A:D�RTS :N�LSNGD TYA+:X�� #$0F3:b�RTSN:l�MULTIPLYB JSR NEGATIVE\:q�LDA $4102f:v�ASL Ap:��ASL Az:��ASL A�:��TAX�:��LDA #$00�:��TAY�:��MLOPA STA $4000,X�:��INY�:ƝINX�:НCPY #$08�:ڝBNE MLOPA�:�LDA #$06�:�STA $FC;���DIGIT LDA $4101;�LDX $FC!;�JSR �DIGIT.;�CMP #$00=; �BEQ DMOVERI;*�STA $FDV;4�LDA #$06b;>�STA $FBv;H�DMLOP LDA $4100�;R�LDX $FB�;\�JSR �DIGIT�;f�CMP #$00�;p�BEQ DMOVER�;z�STA $FE�;��LDA $FB�;��CLC�;��ADC $FC�;��SEC�;��SBC #$0C�;��LDX $FD<��TAY
<ʞ� #$01<ԞBEQ MSKIP#<ޞTXA-<�ASL A7<�ASL AA<��ASL AK<�ASL AS<�TAXa<�MSKIP TYAk<$�LSR Aw<.�STA $02�<8�LDA #$07�<B�SEC�<L�SBC $02�<V�STA $02�<`�LDA $4102�<j�ASL A�<t�ASL A�<~�ASL A�<��ADC $02�<��STA $25�<��TAY�<��STX $24
=��DMLB LDX $02=��SED%=��LDA $4000,Y-=ğCLC9=ΟADC $24I=؟STA $4000,YV=�MALP CLDe=�BCC MAQUITm=��DEYu=�DEX�=
�CPX #$FF�=�BEQ MAQUIT�=�SED�=(�LDA $4000,Y�=2�CLC�=<�ADC #$01�=F�STA $4000,Y�=P�JMP MALP�=Z�DMOVER INC $FB�=d�LDA $FB>n�CMP #$0E>x�BCC DMLOP!>��INC $FC->��LDA $FC:>��CMP #$0EI>��BCC �DIGITV>��LDA YPIBc>��BEQ QUITq>��LDA $4102>ȠSTA $4101�>ҠLDA #$1D�>ܠSTA $4100�>�JSR SUBTRACT�>�QUIT RTS�>��MAQUIT LDX $FE�>�DEX�>�BEQ DMOVER�>
�STX $FE�>�LDY $25?�JMP DMLB?"�MSUP LDA $4100$?,�ASL A.?6�ASL A8?@�ASL A@?J�TAXH?T�DEXT?^�STX $FBb?h�LDA $4101l?r�ASL Av?|�ASL A�?��ASL A�?��TAX�?��DEX�?��STX $FD�?��LDA $4102�?��ASL A�?¡ASL A�?̡ASL A�?֡TAX�?�DEX�?�STX $22�?�LDA #$40�?��STA $FC	@�STA $FE@�STA $23@�RTS0@&�EQUAL JSR MSUP=@0�LDY #$08R@:�ELOP LDA ($FB),Yb@D�STA ($22),Yj@N�DEYw@X�BNE ELOP@b�RTS�@l�ADDITI� JSR MSUP�@v�LDY #$08�@��SED�@��CLC�@��ADLOP LDA ($FB),Y�@��ADC ($FD),Y�@��STA ($22),Y�@��DEY�@��BNE ADLOPAƢCLD
AТRTS#AڢSUBTRACT JSR MSUP0A�LDY #$088A�SED@A��SECVA�SULOP LDA ($FB),YfA�SBC ($FD),YvA�STA ($22),Y~A �DEY�A*�BNE SULOP�A4�CLD�A>�RTS�AH�NEGATIVE LDA #$00�AR�PHA�A\�LDA $4100�Af�TAY�Ap�ASL A�Az�ASL A�A��ASL A�A��TAXB��LDA $4001,XB��CMP #$50&B��BCC NEGRMOVEAB.B��PLA;B��ADC #$00CB��PHAUBʣJMP NEGRMOVEAnBԣNEGRMOVEAB LDA $4101vBޣTAY�B�ASL A�B�ASL A�B��ASL A�B�TAX�B�LDA $4001,X�B�CMP #$50�B$�PLA�B.�BCC NOE��B8�E� #$01�BB�PHA�BL�BCS NEGRMOVEBCV�NEGRMOVEBB PLAC`�NOE� STA YPIB!Cj�RTS8Ct�NEGRMOVE LDA $4100@C~�PHANC��LDA $4101VC��PHAdC��LDA $4102lC��PHAtC��TYA�C��STA $4101�CĤSTA $4102�CΤLDA #$1D�CؤSTA $4100�C�JSR SUBTRACT�C�PLA�C��STA $4102�C�PLA�C
�STA $4101�C�PLA�C�STA $4100D(�RTS!D2�NEGRMOVEA JSR NEGRMOVE4D<�JMP NEGRMOVEABODF�NEGRMOVEB JSR NEGRMOVEbDP�JMP NEGRMOVEBByDZ�MULTIPLY LDA $4102�Dd�PHA�Dn�LDA $4101�Dx�PHA�D��LDA #$18�D��STA $4102�D��JSR EQUAL�D��INC $4102�D��PLA�D��STA $4100�D��JSR EQUAL�DȥLDA #$18
EҥSTA $4100EܥLDA #$19(E�STA $41010E�PLA>E��STA $4102PE�JMP MULTIPLYBtEP�;           GRAPHIC PO� PLOTTER�EZ�PLOTPC LDA #$47�Ed�STA $FB�En�LDA #$3F�Ex�STA $FC�E��LDA YPIXEL�E��LSR A�E��LSR A�E��LSR A�E��STA YPIB�E�ï #$03�E��ASL AF��ASL AF��ASL AF��ASL A$F��ASL A.F��ASL A:F��STA $02FF�LDA $FBNF�SECZF�SBC $02fF"�STA $FBrF,�LDA $FCF6�SBC #$00�F;�SBC YPIB�F@�PHA�FJ�LDA YPIB�FT�LSR A�F^�LSR A�Fh�STA $02�Fr�PLA�F|�SEC�F��SBC $02�F��STA $FC�F��LDA YPIXELG�į #$07G��STA YPIBG��LDA $FB$G��SEC1G��SBC YPIB9G��PHAHG��LDA XPIXELSG�į #$F8`G��STA YPIBhG��PLApG�CLC}G�ADC YPIB�G�STA $FB�G&�LDA $FC�G0�SBC #$00�G:�STA $FC�GD�LDA XPIXEL�GNů #$07�GX�TAX�Gb�LDA #$80�Gl�GBITLP CPX #$00�Gv�BEQ PP�H��LSR AH��DEXH��JMP GBITLP.H��PP� STA $FD6H��RTSKH��PLO�N JSR PLOTPCXH��LDY #$00hH��LDA ($FB),YsH�ŰA $FD�H��STA ($FB),Y�H��RTS�H��PLO�FF JSR PLOTPC�H��LDA $FD�H�E� #$FF�H�STA $FD�H�LDY #$00�H �LDA ($FB),Y�H*Ư $FD�H4�STA ($FB),YI>�RTSIH�PLOT LDA COLOUR#IRƯ #$020I\�BNE PPA�?If�JSR PLO�FFNIp�JMP PPACNTaIz�PPA� JSR PLO�NwI��PPACNT INC XPIXEL�I��LDA COLOUR�I�Ư #$01�I��BNE PPB��I��JSR PLO�FF�I��JMP PPBCNT�I��PPB� JSR PLO�N�I��PPBCNT INC XPIXEL�I��RTSJ��;       ZOOM CALCULATI� ROUTINES(J��NOZOOM JMP �ROLOP=J��ZOOMIN LDA $D015HJ�֯ #$F0UJ�CMP #$F0dJ
�BNE NOZOOMqJ�LDA #$1EJ�STA $4100�J(�LDA #$01�J2�STA $4101�J<�LDA #$10�JF�STA $4102�JP�JSR SUBTRACT�JZ�LDA #$01�Jd�STA $4100�Jn�INC $4102�Jx�JSR EQUAL
K��LDA #$10K��STA $4100%K��LDA #$1B3K��STA $4101@K��LDA #$12NK��STA $4102_K��JSR MULTIPLYlK��LDA #$11zK��STA $4100�K��STA $4102�K��LDA #$12�K��STA $4101�K��LDA $D008�K�SEC�K�SBC #$58�K�CALCINLOPA CMP #$00�K"�BEQ CALC�IA�K,�PHAL6�JSR ADDITI�L@�PLALJ�TAXLT�DEX&L^�TXA9Lh�JMP CALCINLOPANLr�CALC�IA LDA #$01\L|�STA $4100iL��LDA #$13wL��STA $4102�L��JSR EQUAL�L��LDA #$13�L��STA $4100�L��STA $4102�L��LDA #$12�L��STA $4101�L��LDA $D00A�L��SEC�L��SBC #$40M��CALCINLOPB CMP #$00M��BEQ CALC�IBM�PHA,M�JSR ADDITI�4M�PLA<M&�TAXDM0�DEXLM:�TXA_MD�JMP CALCINLOPBtMN�CALC�IB LDA #$11�MX�STA $4100�Mb�LDA #$01�Ml�STA $4102�Mv�JSR EQUAL�M��LDA #$13�M��STA $4100�M��LDA #$1E�M��STA $4102�M��JSR EQUAL�M��LDA #$1F
N��STA $4100N��LDA #$03%N��STA $41012N��LDA #$10@N��STA $4102QN��JSR SUBTRACT^N��LDA #$03lN�STA $4100zN�INC $4102�N�JSR EQUAL�N �LDA #$10�N*�STA $4100�N4�LDA #$12�N>�STA $4102�NH�LDA #$1A�NR�STA $4101�N\�JSR MULTIPLY�Nf�LDA #$11Op�STA $4100Oz�STA $4102 O��LDA #$12.O��STA $4101<O��LDA $D009DO��SECQO��SBC #$32gO��CALCINYA CMP #$00wO��BEQ CALC�ICO��PHA�O��JSR ADDITI��O��PLA�O��TAX�O��DEX�O��TXA�O�JMP CALCINYA�O�CALC�IC LDA #$03�O�STA $4100�O$�LDA #$13�O.�STA $4102P8�JSR EQUALPB�LDA #$13'PL�STA $41005PV�STA $4102BP`�LDA #$12PPj�STA $4101^Pt�LDA $D00DfP~�SECsP��SBC #$1D�P��CALCINYB CMP #$00�P��BEQ CALC�ID�P��PHA�P��JSR ADDITI��P��PLA�P��TAX�P��DEX�P��TXA�P��JMP CALCINYB�P��CALC�ID LDA #$11Q��STA $4100Q�LDA #$03 Q
�STA $4102.Q�JSR EQUAL;Q�LDA #$13IQ(�STA $4100VQ2�LDA #$1FdQ<�STA $4102rQF�JSR EQUALQP�LDA #$1E�QZ�STA $4100�Qd�LDA #$01�Qn�STA $4101�Qx�LDA #$10�Q��STA $4102�Q��JSR SUBTRACT�Q��LDA #$10�Q��STA $4100�Q��LDA #$17
R��STA $4101R��LDA #$02%R��STA $41026R��JSR MULTIPLYCR��LDA #$1FQR��STA $4100^R��LDA #$03lR��STA $4101yR�LDA #$10�R�STA $4102�R�JSR SUBTRACT�R"�LDA #$10�R,�STA $4100�R6�LDA #$1A�R@�STA $4101�RJ�LDA #$04�RT�STA $4102�R^�JSR MULTIPLYSh�JSR M�LESr�JMP �ROLOP<S`�;                   ZOOM ROUTINESKSj�BOX LDA XPXSt�STA XPIBcS~�LDA YPpS��STA YPIB|S��LDA XPB�S��STA XPBIB�S��LDX #$3C�S��STX $07FC�S��INX�S��STX $07FD�S��INX�S��STX $07FE�S��INX�S��STX $07FF�S��LDA $D015
T�A #$F0T
�STA $D015"T�BOX� LDA CLICK/T�BNE BOX�ETx�BOXLOOP LDA XPBIBQT��CMP XPBcT��BEQ CHECKFINEtT��BCS LESSTHAN�T��JMP M�ETHAN�T��CHECKFINE LDA XPIB�T��CMP XP�T��BCS LESSTHAN�T��M�ETHAN LDA XPIB�T��STA $D008�T��STA $D00C�T��LDX #$00U��LDA XPBIBU��BEQ NOXPBADD!U�LDX #$508U�NOXPBADD LDA $D010CU� #$AFOU"�STX $02WU,�CLCcU6�ADC $02qU@�STA $D010~UE�LDX #$00�UJ�LDA XP�UT�SEC�U^�SBC #$18�Uh�STA $D00A�Ur�STA $D00E�U|�BCC MTSUB�U��LDX XPB�U��BEQ MTSUB�U��LDX #$A0V��MTSUB LDA $D010V�� #$5FV��STX $02"V��CLC.V��ADC $02<V��STA $D010IV��JMP BOX�]V��LESSTHAN LDA XPiV��LDX XPBvV��BNE �OUT�V�CMP #$58�V�BCS �OUT�V�LDA #$58�V&�OUT STA $D008�V0�STA $D00C�V:�CPX #$00�VD�BEQ LTNOADD�VN�LDX #$50�VX�LTNOADD LDA $D010	Wb� #$AFWl�STX $02Wv�CLC)W��ADC $027W��STA $D010DW��LDX #$00QW��LDA XPIBYW��SECfW��SBC #$18tW��STA $D00A�W��STA $D00E�W��BCC LTSUB�W��LDX XPBIB�W��BEQ LTSUB�W��LDX #$A0�W��LTSUB LDA $D010�W�� #$5F�W�STX $02�W�CLC�W�ADC $02X �STA $D010X*�BOX� LDA YP#X4�CMP YPIB1X>�BCC LESSY>XH�LDA YPIBLXR�STA $D009ZX\�STA $D00BeXf�LDA YPmXp�SECzXz�SBC #$15�X��STA $D00D�X��STA $D00F�X��JMP BOX�II�X��LESSY LDA YP�X��STA $D009�X��STA $D00B�X��LDA YPIB�X��SEC�X��SBC #$15Y��STA $D00DY��STA $D00F%Y��BOX�II LDA CLICK2Y��BNE BOX�BY�JMP BOXLOOPVY�BOX� JMP �ROLOPkY0�BOXFLASH LDA $A2vY:� #$3C�YD�LSR A�YN�LSR A�YX�TAX�Yb�LDA BOXCOLS,X�Yl�STA $D02B�Yv�STA $D02C�Y��STA $D02D�Y��STA $D02E�Y��JMP $EA31Z��BOXCOLS TXT 0,9,2,8,10,7,13,1&Z��TXT 1,13,3,5,14,4,6,0;Z�; DELETE THESE!!OZ"�COLS JMP �ROLOPdZJ��ITI� JMP �ROLOP{ZT�ZOOMOUT JMP �ROLOP

QHJ@;mandelplot@"HT@;source code@0H.@;22/10/95@6H(@;@bHD@..$0e00@JHI@;                         variables@.HN@xpixel.$4103@.HX@ypixel.$4104@.H.@colour.$4105@.H.@ypib.$4106@.H.@maxcol.$4107@.H.@xp.$4108@.H.@yp.$4109@.H.@xpb.$410a@.H.@click.$410b@DI.@hour.$410c@SI.@xpib.$410d@#I.@xpbib.$410e@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@.IXA;                      rom routines@.I"Aoutdo .$ab47@GJ#A.lfs.$ffba@VJ$A.nam.$ffbd@%J%A.rom.$ffd8@mJ,A;                       sprite data@sJ1A;@.J6Atxt 224,000,000,176,000,000,152,000@.J@Atxt 000,140,000,000,134,000,000,131@.JjAtxt 000,000,129,128,000,128,192,000@.JtAtxt 128,064,000,147,192,000,185,000@[K.Atxt 000,233,000,000,009,128,000,012@cKHAtxt 128,000,004,128,000,004,128,000@KKRAtxt 007,128,000,000,000,000,000,000@.K.Atxt 000,000,000,000,000,000,000,153@.K.A;@.K.Atxt 000,000,000,064,000,000,096,000@.K.Atxt 000,112,000,000,120,000,000,124@QL.Atxt 000,000,126,000,000,127,000,000@9L.Atxt 127,128,000,108,000,000,070,000@AL.Atxt 000,006,000,000,006,000,000,003@.L.Atxt 000,000,003,000,000,003,000,000@.L.Atxt 000,000,000,000,000,000,000,000@.L.Atxt 000,000,000,000,000,000,000,153@.L.A;@GM.Atxt 255,192,000,129,064,000,128,064@/M.Atxt 000,129,064,000,066,128,000,064@wM.Atxt 128,000,051,000,000,012,000,000@.M.Atxt 055,000,000,065,128,000,066,128@.M.Atxt 000,129,064,000,130,192,000,133@.MHBtxt 064,000,255,192,000,000,000,000@.MRBtxt 000,000,000,000,000,000,000,000@.N£Btxt 000,000,000,000,000,000,000,197@%N!B;@mN&Btxt 255,192,000,255,192,000,255,192@UN0Btxt 000,255,192,000,127,128,000,127@.N:Btxt 128,000,063,000,000,012,000,000@.NdBtxt 063,000,000,127,128,000,127,128@.NnBtxt 000,255,192,000,255,192,000,255@UOxBtxt 192,000,255,192,000,000,000,000@=OBBtxt 000,000,000,000,000,000,000,000@EOLBtxt 000,000,000,000,000,000,000,197@KOQB;@.OVBtxt 168,000,000,000,000,000,128,000@.O.Btxt 000,000,000,000,128,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@KP.Btxt 000,000,000,000,000,000,000,000@3P.Btxt 000,000,000,000,000,000,000,000@[P.Btxt 000,000,000,000,000,000,000,000@.P.Btxt 000,000,000,000,000,000,000,000@.P.Btxt 000,000,000,000,000,000,000,197@.P.B;@.P.Btxt 000,000,021,000,000,000,000,000@AQ.Btxt 001,000,000,000,000,000,001,000@)Q.Btxt 000,000,000,000,000,000,000,000@qQ.Btxt 000,000,000,000,000,000,000,000@YQ.Btxt 000,000,000,000,000,000,000,000@.Q.Btxt 000,000,000,000,000,000,000,000@.QBCtxt 000,000,000,000,000,000,000,000@.QLCtxt 000,000,000,000,000,000,000,000@.QQC;@.RVCtxt 000,000,000,000,000,000,000,000@gR Ctxt 000,000,000,000,000,000,000,000@OR*Ctxt 000,000,000,000,000,000,000,000@.R4Ctxt 000,000,000,000,000,000,000,000@.R>Ctxt 000,000,000,000,000,000,000,000@.RhCtxt 000,000,000,000,000,000,000,000@OSrCtxt 128,000,000,000,000,000,128,000@7S£Ctxt 000,000,000,000,168,000,000,000@=SAC;@ESFCtxt 000,000,000,000,000,000,000,000@.SPCtxt 000,000,000,000,000,000,000,000@.SZCtxt 000,000,000,000,000,000,000,000@.S.Ctxt 000,000,000,000,000,000,000,000@ET.Ctxt 000,000,000,000,000,000,000,000@-T.Ctxt 000,000,000,000,000,000,000,000@uT.Ctxt 000,000,001,000,000,000,000,000@.T.Ctxt 001,000,000,000,000,000,021,000@.T.C;@.TP';           main .rol routines@.TZ'jsr init@.T$'comeback jsr hires.@.T.'.rolop lda click@.T8'bne .rolop@CUb'.lopb lda click@QUl'beq .lopb@£Uv'lda xp@)U.'cmp #$58@4UJ'bcc ..@@UT'jmp box@nU.'.. lda yp@vU.'sec@CU.'sbc #$5a@MU.'lsr a@WU.'lsr a@.U.'. #$fe@.U.'tax@.U.'lda vec.rs,x@.U.'sta $fb@.U.'inx@.U.'lda vec.rs,x@.U.'sta $fc@.U.'jmp ($00fb)@]V@(vec.rs txt .zoomout,.zoomout,..rolop,..rolop,.zoomin,.zoomin@sVJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@.VT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@.V.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@.V((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@+W2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@CW<(txt ..rolop,..rolop,..rolop,..rolop,..rolop,..rolop@YWD)exit jsr hiresoff@.WN)lda #$93@.WX)jsr outdo@.W")lda #$05@.W,)jsr outdo@.W6)rts@.W..;                   wimp routines@.W..; wimp - mouse@AX..irq lda #$00@OXH/sta click@[XR/lda $c5@(X£/cmp #$01@8X&/bne c.check@fX0/sta click@[X:/c.check cmp #$0c@IXd/beq leftk@ZXn/lkc cmp #$17@.Xx/beq rightk@.XB/rkc cmp #$32@.XL/beq upk@.XV/upkc cmp #$37@.X./beq downk@.X./dkc lda $dc00@.X./. #$01@.X./beq upj@AY./ujc lda $dc00@LY./. #$02@ZY./beq downj@,Y./djc lda $dc00@7Y./. #$04@eY./beq leftj@wY./ljc lda $dc00@BY./. #$08@QYB0beq rightj@.YL0rjc lda $dc00@.YV0. #$10@.Y 0e. #$10@.Y*0beq cjch@.Y40sta click@.Y>0cjch jmp boxflash@.Yh0leftk jsr left@.Yr0jmp lkc@.Y£0rightk jsr right@KZF0jmp rkc@ZZP0upk jsr up@'ZZ0jmp upkc@:Z.0downk jsr down@fZ.0jmp dkc@uZ.0upj jsr up@AZ.0jmp ujc@TZ.0downj jsr down@.Z.0jmp djc@.Z.0leftj jsr left@.Z.0jmp ljc@.Z.0rightj jsr right@.Z.0jmp rjc@.Z.0left dec xp@.Z.0lda xp@.Z.0cmp #$ff@.ZF1bne .ff@A[P1ldy #$00@M[Z1sty xpb@][$1.ff ldy xpb@)[.1bne fin@6[81cmp #$18@b[b1bne fin@m[l1inc xp@.[v1fin jmp .rol@O[.1right inc xp@Z[J1lda xp@.[T1bne .00@.[.1ldy #$01@.[.1sty xpb@.[.1.00 ldy xpb@.[.1beq fin@.[.1cmp #$58@.[.1bne fin@.[.1dec xp@.[.1jmp .rol@.[.1up dec yp@E£.1lda yp@R£.1cmp #$32@.£.1bne fin@)£.1inc yp@6£@2jmp .rol@f£J2down inc yp@q£T2lda yp@.£.2cmp #$f8@J£(2bne fin@U£22dec yp@.£<2jmp .rol@.£f2; wimp . po.er@.£p2.rol lda hour@.£z2beq nhglass@.£.3ldx #$3a@.£.3stx $07f8@.£.3inx@.£.3stx $07f9@.£.3nhglass lda xp@I].3sta $d000@W].3sta $d002@"].3lda yp@0].3sta $d001@>].3sta $d003@l].3lda $d010@w]H4. #$fc@A]R4lsr a@I]£4clc@U]&4adc xpb@.]04asl a@.]:4clc@.]d4adc xpb@.]n4sta $d010@.]x4lda #$00@.]B4sta $d027@.]L4lda #$01@.]V4sta $d028@.].4lda $d015@.].4.a #$03@.].4sta $d015@L..4lda hour@Y..4bne qtro@&..4ldx #$38@4..4stx $07f8@<..4inx@j..4stx $07f9@w..4qtro rts@N..4; startup routines@...4init lda #$00@...4sta $d020@..B5sta $d021@..L5sta xp@..V5sta hour@.. 5sta $d015@..*5lda #$01@..45sta xpb@..>5lda #$80@..h5sta yp@G.r5hires. lda #$3b@U.£5sta $d011@".F5lda #$d8@0.P5sta $d016@>.Z5lda col0s@k..5sta col0@y..5lda col1s@F..5sta col1@T..5lda col2s@...5sta col2@...5lda col3s@...5sta col3@...5jsr .cols@..F6jsr left@..P6sei@..Z6lda #.irq@..$6sta $0314@...6lda #.irq@..86sta $0315@..b6cli@L .6lda #$18@Z .6sta $d018@" 4:rts@3 r:hiresoff sei@@ £:lda #$31@n F:sta $0314@[ P:lda #$ea@I Z:sta $0315@Q .:cli@. .:lda #$00@. .:sta $d015@. .:lda #$9b@. .:sta $d011@. .:lda #$c8@. .:sta $d016@. .:lda #$15@. .:sta $d018@. .:rts@.  n. jsr hiresoff@E!*nlda #$1c@S!4njsr outdo@ !>nlda #$93@.!hnjsr outdo@;!rnlda #$00@i!£n.loop pha@s!Fnasl a@]!Pnasl a@E!Znclc@R!.nadc #$42@.!.nsta $fc@.!.nldy #$00@.!.nsty $fb@.!.nsty $fd@.!.nlda #$04@.!.nsta $fe@.!.n.loopb lda ($fb),y@.!.nsta ($fd),y@.!.niny@.!.nbne .loopb@F".ninc $fc@R".ninc $fe@."Folda $fe@+"Pocmp #$08@:"Zobne .loopb@i"$o.. lda $c5@v".ocmp #$40@A"8obne ..@Q"bo..b lda $c5@."locmp #$40@."vobeq ..b@.".otax@."Jopla@."Tocpx #$01@.".obeq hnom.e@.".ocpx #$28@.".obeq .@.".ocpx #$2b@.".obeq prev@.".o.ret pha@@#.ojmp ..b@X#.ohnom.e jmp comeback@'#.o. cmp #$04@4#.obeq .ret@<#.oclc@i#.oadc #$01@w#.ojmp .loop@I#@pprev cmp #$00@V#Jpbeq .ret@.#Tpsec@.#.psbc #$01@.#(pjmp .loop@.#.A;                   save routines@.#.A.ame txt 147,5@.#.Atxt "filename:",0@O$.A.rd txt 13,13,"(t)ape or (d)isk",0@=$.A.t txt 13,13,"position tape <space>",13,0@K$.Ainsd txt 13,13,"insert disk <space>",13,0@.$.Apstring ldy #$00@.$.Apstrlop lda ($fb),y@.$.Abeq pstrquit@.$BBjsr outdo@.$GBiny@.$LBjmp pstrlop@.$VBpstrquit rts@.$ B.off lda $040a,y@A%*Be. #$80@Q%4Bsta $040a,y@Y%>Brts@(%hB.. lda $c5@5%rBcmp #$40@@%£Bbne ..@p%FB..b lda $c5@]%PBcmp #$40@I%ZBbeq ..b@Q%.Btax@.%.Blda ..,x@.%.Bbeq ..@.%.Brts@.%.B. jsr hiresoff@.%.Bldx #$00@.%.Blda #$20@.%.B.ame. sta $41f0,x@.%.Binx@.%.Bcpx #$10@.%.Bbne .ame.@F&.Blda #..ame@R&.Bsta $fb@!&FClda #..ame@-&PCsta $fc@=&ZCjsr pstring@j&$Clda #$00@r&.Cpha@.&8C.loop tay@M&=Cjsr .off@X&bCjsr ..@.&gCpha@.&lCjsr .off@.&qCpla@.&vCcmp #$80@.&.Cbcs decode@.&JCtay@.&TCpla@.&.Ctax@.&.Ctya@.&.Csta $040a,x@.&.Ccmp #$20@.&.Cbcs nospc@D'.Cclc@Q'.Cadc #$40@''.Cnospc sta $41f0,x@9'.Cinc. cpx #$0f@h'.Cbeq .relop@p'.Cinx@.'.C.relop txa@G'.Cpha@U'.Cjmp .loop@.'@Ddecode cmp #$80@.'JDbeq ..@.'TDcmp #$81@.'.Dbeq .@.'(Dcmp #$82@.'2Dbne .loop@.'<Dpla@.'fDtax@.'pDlda $0283@.'zD. #$01@.'DDbeq inc.@N(NDdec. cpx #$00@](XDbeq .relop@%(.Ddex@4(.Djmp .relop@>(.D. pla@f(.Dtax@s(.Dlda #$20@C(.Dsta $040a,x@S(.Dsta $41f0,x@.(.Djmp dec.@.(.D.. pla@.(.Dlda #..rd@.(.Dsta $fb@.(.Dlda #..rd@.(.Dsta $fc@.(.Djsr pstring@.(DE. jsr ..@.(NEcmp #$14@.(XEbeq tape.@D)"Ecmp #$04@R),Ebeq disk.@£)6Ejmp .@/)@Etape. lda #..t@;)jEsta $fb@h)tElda #..t@t).Esta $fc@D)HEjsr pstring@Q)REldx #$01@.).Ejmp tape.@.).Edisk. lda #.insd@.).Esta $fb@.).Elda #.insd@.).Esta $fc@.).Ejsr pstring@.).Eldx #$08@.).Etape. lda $c5@.).Ecmp #$3c@E*.Ebne tape.@R*.Elda #$01@Z*.Etay@'*.Eldx #$10@=*HF.ame. lda $41ef,x@j*RFcmp #$20@y*£Fbne .ame.t@A*&Fdex@P*0Fbeq .ame.t@.*:Fjmp .ame.@.*dF.ame.t txa@.*BFldy #$41@.*LFjsr .nam@.*VFlda #$20@.*.Fsta $fc@.*.Fldx #$00@.*.Fsta $fb@.*.Fldy #$40@.*.Flda #$fb@@+.Fjsr .rom@&+XI;           keyboard decode table@,+.I;@c+.I.. txt $81,$80,$82@E+.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@T,.Itxt 31,0,50,32,0,17,0,0@8,0U;          m.lebrot set plotter@e,:Um.le sei@r,?Ulda #$00@A,dUsta ypixel@N,nUlda #$03@.,xUsta $4100@.,BUlda #$06@.,LUsta $4102@.,VUjsr equal@.,.Ummainl lda #$00@.,.Usta xpixel@.,.Ulda #$01@.,.Usta $4100@.,.Ulda #$05@.,.Usta $4102@L-.Ujsr equal@!-.Ummainlb lda #$05@/-.Usta $4100@<-.Ulda #$07@j-.Usta $4102@x-.Ujsr equal@F-.Uinc $4100@T-BVinc $4102@.-LVjsr equal@.-VVlda #$00@.- Vsta colour@.-*Vloop lda #$07@.-4Vsta $4100@.->Vsta $4101@.-hVlda #$10@.-rVsta $4102@.-£Vjsr multiply@E.FVlda #$08@S.PVsta $4100@!.ZVsta $4101@...Vlda #$11@<..Vsta $4102@m..Vjsr multiply@z..Vldx #$10@H..Vstx $4100@P..Vinx@...Vstx $4101@...Vinx@...Vstx $4102@...Vjsr additi.@...Vlda $4091@...Vcmp #$04@...Vbcc fail@..FWcmp #$50@..PWbcs fail@..ZWsucpass jmp success@R/$Wfail inc colour@!/)Wlda colour@0/.Wcmp maxcol@@/8Wbeq sucpass@q/bWjsr subtract@./lWlda #$12@L/vWsta $4100@Y/.Wlda #$05@./JWsta $4101@./TWlda #$13@./.Wsta $4102@./.Wjsr additi.@./.Wlda #$07@./.Wsta $4100@./.Wlda #$08@./.Wsta $4101@./.Winc $4102@G0.Wjsr multiply@T0.Wlda #$14@"0.Wsta $4100@/0.Wlda #$1c@=0.Wsta $4101@j0.Wlda #$15@x0@Xsta $4102@I0JXjsr multiply@V0TXlda #$15@.0.Xsta $4100@.0(Xlda #$06@.02Xsta $4101@.0<Xlda #$16@.0fXsta $4102@.0pXjsr additi.@.0zXlda #$13@.0DXsta $4100@.0NXlda #$07@@1XXsta $4102@N1.Xjsr equal@[1.Xlda #$16@)1.Xsta $4100@61.Xlda #$08@d1.Xsta $4102@r1.Xjsr equal@.1.Xjmp loop@T1.Xsuccess jsr plot@.1.Xlda #$05@.1.Xsta $4100@.1.Xsta $4102@.1.Xlda #$02@.1.Xsta $4101@.1DYjsr additi.@.1NYlda xpixel@.1XYbne xrelop@.1"Ylda #$06@A2,Ysta $4100@O26Ysta $4102@£2@Ylda #$04@*2jYsta $4101@:2tYjsr additi.@i2.Yinc ypixel@x2HYlda ypixel@E2RYcmp #$c8@T2.Ybne yrelop@.2.Ycli@.2.Yrts@.2.Yxrelop jmp mmainlb@.2.Yyrelop jmp mmainl@.2.Ym.plot jsr m.le@.2.Yjmp .rolop@.2..;                 colour routines@M3...cols lda col0@[3..sta $d021@(3..ldy #$00@43..sty $fb@a3..lda #$d8@m3..sta $fc@z3..lda col3@Q3H..clopa sta ($fb),y@Y3R.iny@.3£.bne .clopa@.3&.inc $fc@.30.ldx $fc@.3:.cpx #$dc@.3d.bne .clopa@.3n.lda #$04@.3x.sta $fc@.3B.lda col1@.3L.asl a@.3V.asl a@@4..asl a@J4..asl a@V4...a col2@-4...clopb sta ($fb),y@54..iny@d4..beq .clopc@q4..cpy #$f8@.4..bne .clopb@L4..ldx $fc@Y4..cpx #$07@.4..bne .clopb@.4..rts@.4...clopc inc $fc@.4B.jmp .clopb@.4L.colc. lda .time@.4V.clc@.4 .adc speed@.4*.sta .time@.44.colclop cmp $a2@N5>.bne colclop@V5h.rts@)5r.colc.s lda $c5@65£.cmp #$28@c5F.beq spup@p5P.cmp #$2b@]5Z.beq sldn@J5..cmp #$01@Z5..beq colcoff@.5..no. rts@.5..colcoff pla@.5..pla@.5..jmp comeback@.5..spup lda speed@.5..beq no.@.5..dec speed@.5..rts@.5..sldn lda speed@D6..cmp #$19@P6..beq no.@.6F.inc speed@&6P.rts@<6Z.colcycle lda #$0a@j6$.sta speed@v6..lda $a2@D68.sta .time@.6b.colcyclop lda col0s@.6l.sta col0@.6v.lda col1s@.6..sta col1@.6J.lda col2s@.6T.sta col2@.6..lda col3s@.6..sta col3@.6..jsr .cols@.6..jsr colc.s@E7..jsr colc.@S7..lda col3s@ 7..sta col0@.7..lda col0s@;7..sta col1@i7..lda col1s@v7..sta col2@D7..lda col2s@Q7..sta col3@.7@.jsr .cols@.7J.jsr colc.s@.7T.jsr colc.@.7..lda col2s@.7(.sta col0@.72.lda col3s@.7<.sta col1@.7f.lda col0s@.7p.sta col2@.7z.lda col1s@H8D.sta col3@V8N.jsr .cols@%8X.jsr colc.s@38..jsr colc.@a8..lda col1s@n8..sta col0@£8..lda col2s@I8..sta col1@W8..lda col3s@.8..sta col2@.8..lda col0s@.8..sta col3@.8..jsr .cols@.8..jsr colc.s@.8..jsr colc.@.8..jmp colcyclop@B9@.;             arithmetic routines@Q9j..digit cld@[9t.asl a@%9..asl a@/9H.asl a@;9R.sta $02@c9..txa@m9..lsr a@y9..sta $24@F9..lda #$07@N9..sec@Z9..sbc $24@.9..clc@.9..adc $02@.9..tay@.9..lda $4000,y@.9..tay@.9..txa@.9... #$01@.9..beq lsngd@.9H.tya@.9R.. #$f0@.9£.lsr a@.9&.lsr a@@:0.lsr a@J::.lsr a@R:d.rts@ :n.lsngd tya@+:x.. #$0f@3:B.rts@n:L.multiplyb jsr negative@£:Q.lda $4102@F:V.asl a@P:..asl a@Z:..asl a@.:..tax@.:..lda #$00@.:..tay@.:..mlopa sta $4000,x@.:..iny@.:..inx@.:..cpy #$08@.:..bne mlopa@.:..lda #$06@.:..sta $fc@F;...digit lda $4101@R;B.ldx $fc@!;L.jsr .digit@.;V.cmp #$00@=; .beq dmover@i;*.sta $fd@v;4.lda #$06@B;>.sta $fb@V;h.dmlop lda $4100@.;r.ldx $fb@.;£.jsr .digit@.;F.cmp #$00@.;P.beq dmover@.;Z.sta $fe@.;..lda $fb@.;..clc@.;..adc $fc@.;..sec@.;..sbc #$0c@.;..ldx $fd@B<..tay@M<... #$01@[<..beq mskip@#<..txa@-<..asl a@7<..asl a@a<..asl a@k<F.asl a@s<P.tax@A<Z.mskip tya@K<$.lsr a@W<..sta $02@.<8.lda #$07@.<b.sec@.<l.sbc $02@.<v.sta $02@.<..lda $4102@.<J.asl a@.<T.asl a@.<..asl a@.<..adc $02@.<..sta $25@.<..tay@.<..stx $24@M=..dmlb ldx $02@U=..sed@%=..lda $4000,y@-=..clc@9=..adc $24@i=..sta $4000,y@v=..malp cld@E=..bcc maquit@M=..dey@U=@.dex@.=J.cpx #$ff@.=T.beq maquit@.=..sed@.=(.lda $4000,y@.=2.clc@.=<.adc #$01@.=f.sta $4000,y@.=p.jmp malp@.=z.dmover inc $fb@.=D.lda $fb@G>N.cmp #$0e@U>X.bcc dmlop@!>..inc $fc@->..lda $fc@:>..cmp #$0e@i>..bcc .digit@v>..lda ypib@C>..beq quit@Q>..lda $4102@.>..sta $4101@.>..lda #$1d@.>..sta $4100@.>..jsr subtract@.>..quit rts@.>..maquit ldx $fe@.>D.dex@.>G.beq dmover@.>J.stx $fe@.>N.ldy $25@G?X.jmp dmlb@Z?".msup lda $4100@$?,.asl a@.?6.asl a@8?@.asl a@@?j.tax@h?t.dex@t?..stx $fb@B?H.lda $4101@L?R.asl a@V?..asl a@.?..asl a@.?..tax@.?..dex@.?..stx $fd@.?..lda $4102@.?..asl a@.?..asl a@.?..asl a@.?..tax@.?..dex@.?..stx $22@.?..lda #$40@.?..sta $fc@I@H.sta $fe@U@R.sta $23@]@£.rts@0@&.equal jsr msup@=@0.ldy #$08@r@:.elop lda ($fb),y@B@d.sta ($22),y@J@n.dey@W@x.bne elop@.@B.rts@.@L.additi. jsr msup@.@V.ldy #$08@.@..sed@.@..clc@.@..adlop lda ($fb),y@.@..adc ($fd),y@.@..sta ($22),y@.@..dey@.@..bne adlop@Ea..cld@Ma..rts@#a..subtract jsr msup@0a..ldy #$08@8a..sed@@a..sec@vaB.sulop lda ($fb),y@FaL.sbc ($fd),y@VaV.sta ($22),y@.a .dey@.a*.bne sulop@.a4.cld@.a>.rts@.ah.negative lda #$00@.ar.pha@.a£.lda $4100@.aF.tay@.aP.asl a@.aZ.asl a@.a..asl a@.a..tax@Fb..lda $4001,x@Sb..cmp #$50@&b..bcc negrmoveab@.b..pla@;b..adc #$00@cb..pha@ub..jmp negrmovea@Nb..negrmoveab lda $4101@Vb..tay@.b..asl a@.b..asl a@.b..asl a@.bF.tax@.bP.lda $4001,x@.bZ.cmp #$50@.b$.pla@.b..bcc noe.@.b8.e. #$01@.bb.pha@.bl.bcs negrmoveb@Gcv.negrmovebb pla@Yc..noe. sta ypib@!cJ.rts@8cT.negrmove lda $4100@@c..pha@nc..lda $4101@vc..pha@Dc..lda $4102@Lc..pha@Tc..tya@.c..sta $4101@.c..sta $4102@.c..lda #$1d@.c..sta $4100@.c..jsr subtract@.c..pla@.c..sta $4102@.c@.pla@.cJ.sta $4101@.cT.pla@.c..sta $4100@Fd(.rts@!d2.negrmovea jsr negrmove@4d<.jmp negrmoveab@odf.negrmoveb jsr negrmove@Bdp.jmp negrmovebb@Ydz.multiply lda $4102@.dD.pha@.dN.lda $4101@.dX.pha@.d..lda #$18@.d..sta $4102@.d..jsr equal@.d..inc $4102@.d..pla@.d..sta $4100@.d..jsr equal@.d..lda #$18@Me..sta $4100@Ze..lda #$19@(e..sta $4101@0e..pla@>e..sta $4102@peD.jmp multiplyb@Tep.;           graphic po. plotter@.ez.plotpc lda #$47@.eD.sta $fb@.eN.lda #$3f@.eX.sta $fc@.e..lda ypixel@.e..lsr a@.e..lsr a@.e..lsr a@.e..sta ypib@.e... #$03@.e..asl a@Ff..asl a@Pf..asl a@Zf..asl a@$f..asl a@.f..asl a@:f..sta $02@ffD.lda $fb@nfN.sec@zfX.sbc $02@Ff".sta $fb@Rf,.lda $fc@.f6.sbc #$00@.f;.sbc ypib@.f@.pha@.fj.lda ypib@.ft.lsr a@.f..lsr a@.fH.sta $02@.fR.pla@.f..sec@.f..sbc $02@.f..sta $fc@.f..lda ypixel@Cg... #$07@Pg..sta ypib@£g..lda $fb@$g..sec@1g..sbc ypib@9g..pha@hg..lda xpixel@sg... #$f8@.g..sta ypib@Hg..pla@PgH.clc@.gR.adc ypib@.g£.sta $fb@.g&.lda $fc@.g0.sbc #$00@.g:.sta $fc@.gd.lda xpixel@.gn.. #$07@.gx.tax@.gB.lda #$80@.gL.gbitlp cpx #$00@.gV.beq pp.@Gh..lsr a@Oh..dex@.h..jmp gbitlp@.h..pp. sta $fd@6h..rts@kh..plo.n jsr plotpc@xh..ldy #$00@Hh..lda ($fb),y@Sh...a $fd@.h..sta ($fb),y@.h..rts@.h..plo.ff jsr plotpc@.h..lda $fd@.hB.e. #$ff@.hL.sta $fd@.hV.ldy #$00@.h .lda ($fb),y@.h*.. $fd@.h4.sta ($fb),y@Di>.rts@Xih.plot lda colour@#ir.. #$02@0i£.bne ppa.@?iF.jsr plo.ff@niP.jmp ppacnt@AiZ.ppa. jsr plo.n@Wi..ppacnt inc xpixel@.i..lda colour@.i... #$01@.i..bne ppb.@.i..jsr plo.ff@.i..jmp ppbcnt@.i..ppb. jsr plo.n@.i..ppbcnt inc xpixel@.i..rts@Rj..;       zoom calculati. routines@(j..nozoom jmp .rolop@=j..zoomin lda $d015@hj... #$f0@uj@.cmp #$f0@DjJ.bne nozoom@QjT.lda #$1e@.j..sta $4100@.j(.lda #$01@.j2.sta $4101@.j<.lda #$10@.jf.sta $4102@.jp.jsr subtract@.jz.lda #$01@.jD.sta $4100@.jN.inc $4102@.jX.jsr equal@Jk..lda #$10@Xk..sta $4100@%k..lda #$1b@3k..sta $4101@@k..lda #$12@nk..sta $4102@.k..jsr multiply@Lk..lda #$11@Zk..sta $4100@.k..sta $4102@.k..lda #$12@.k..sta $4101@.k..lda $d008@.kD.sec@.kN.sbc #$58@.kX.calcinlopa cmp #$00@.k".beq calc.ia@.k,.pha@Fl6.jsr additi.@Nl@.pla@Vlj.tax@.lt.dex@&l..txa@9lH.jmp calcinlopa@nlR.calc.ia lda #$01@£l..sta $4100@Il..lda #$13@Wl..sta $4102@.l..jsr equal@.l..lda #$13@.l..sta $4100@.l..sta $4102@.l..lda #$12@.l..sta $4101@.l..lda $d00a@.l..sec@.l..sbc #$40@Dm..calcinlopb cmp #$00@Tm..beq calc.ib@£mH.pha@,mR.jsr additi.@4m£.pla@<m&.tax@dm0.dex@lm:.txa@.md.jmp calcinlopb@Tmn.calc.ib lda #$11@.mx.sta $4100@.mB.lda #$01@.mL.sta $4102@.mV.jsr equal@.m..lda #$13@.m..sta $4100@.m..lda #$1e@.m..sta $4102@.m..jsr equal@.m..lda #$1f@Jn..sta $4100@Wn..lda #$03@%n..sta $4101@2n..lda #$10@@n..sta $4102@qn..jsr subtract@.n..lda #$03@LnB.sta $4100@ZnL.inc $4102@.nV.jsr equal@.n .lda #$10@.n*.sta $4100@.n4.lda #$12@.n>.sta $4102@.nh.lda #$1a@.nr.sta $4101@.n£.jsr multiply@.nF.lda #$11@EoP.sta $4100@SoZ.sta $4102@ o..lda #$12@.o..sta $4101@<o..lda $d009@do..sec@qo..sbc #$32@Go..calcinya cmp #$00@Wo..beq calc.ic@.o..pha@.o..jsr additi.@.o..pla@.o..tax@.o..dex@.o..txa@.oF.jmp calcinya@.oP.calc.ic lda #$03@.oZ.sta $4100@.o$.lda #$13@.o..sta $4102@Lp8.jsr equal@Ypb.lda #$13@'pl.sta $4100@5pv.sta $4102@bp..lda #$12@ppJ.sta $4101@.pT.lda $d00d@Fp..sec@Sp..sbc #$1d@.p..calcinyb cmp #$00@.p..beq calc.id@.p..pha@.p..jsr additi.@.p..pla@.p..tax@.p..dex@.p..txa@.p..jmp calcinyb@.p..calc.id lda #$11@Eq..sta $4100@Rq@.lda #$03@ qJ.sta $4102@.qT.jsr equal@;q..lda #$13@iq(.sta $4100@vq2.lda #$1f@Dq<.sta $4102@Rqf.jsr equal@.qp.lda #$1e@.qz.sta $4100@.qD.lda #$01@.qN.sta $4101@.qX.lda #$10@.q..sta $4102@.q..jsr subtract@.q..lda #$10@.q..sta $4100@.q..lda #$17@Jr..sta $4101@Wr..lda #$02@%r..sta $4102@6r..jsr multiply@cr..lda #$1f@qr..sta $4100@.r..lda #$03@Lr..sta $4101@YrD.lda #$10@.rN.sta $4102@.rX.jsr subtract@.r".lda #$10@.r,.sta $4100@.r6.lda #$1a@.r@.sta $4101@.rj.lda #$04@.rt.sta $4102@.r..jsr multiply@GsH.jsr m.le@VsR.jmp .rolop@<s..;                   zoom routines@ksJ.box lda xp@xsT.sta xpib@Cs..lda yp@Ps..sta ypib@.s..lda xpb@.s..sta xpbib@.s..ldx #$3c@.s..stx $07fc@.s..inx@.s..stx $07fd@.s..inx@.s..stx $07fe@.s..inx@.s..stx $07ff@.s..lda $d015@At@..a #$f0@OtJ.sta $d015@"tT.box. lda click@/t..bne box.@etX.boxloop lda xpbib@qt..cmp xpb@Ct..beq checkfine@Tt..bcs lessthan@.t..jmp m.ethan@.t..checkfine lda xpib@.t..cmp xp@.t..bcs lessthan@.t..m.ethan lda xpib@.t..sta $d008@.t..sta $d00c@.t..ldx #$00@Cu..lda xpbib@Tu..beq noxpbadd@!uD.ldx #$50@8uN.noxpbadd lda $d010@cuX.. #$af@ou".stx $02@wu,.clc@Cu6.adc $02@Qu@.sta $d010@.ue.ldx #$00@.uj.lda xp@.ut.sec@.u..sbc #$18@.uH.sta $d00a@.uR.sta $d00e@.u..bcc mtsub@.u..ldx xpb@.u..beq mtsub@.u..ldx #$a0@Cv..mtsub lda $d010@Nv... #$5f@Zv..stx $02@"v..clc@.v..adc $02@<v..sta $d010@iv..jmp box.@]v..lessthan lda xp@Iv..ldx xpb@Vv..bne .out@.vH.cmp #$58@.vR.bcs .out@.v£.lda #$58@.v&..out sta $d008@.v0.sta $d00c@.v:.cpx #$00@.vd.beq ltnoadd@.vn.ldx #$50@.vx.ltnoadd lda $d010@IwB.. #$af@UwL.stx $02@]wV.clc@)w..adc $02@7w..sta $d010@dw..ldx #$00@qw..lda xpib@yw..sec@Fw..sbc #$18@Tw..sta $d00a@.w..sta $d00e@.w..bcc ltsub@.w..ldx xpbib@.w..beq ltsub@.w..ldx #$a0@.w..ltsub lda $d010@.w... #$5f@.wB.stx $02@.wL.clc@.wV.adc $02@Fx .sta $d010@Vx*.box. lda yp@#x4.cmp ypib@1x>.bcc lessy@>xh.lda ypib@lxr.sta $d009@zx£.sta $d00b@ExF.lda yp@MxP.sec@ZxZ.sbc #$15@.x..sta $d00d@.x..sta $d00f@.x..jmp box.ii@.x..lessy lda yp@.x..sta $d009@.x..sta $d00b@.x..lda ypib@.x..sec@.x..sbc #$15@By..sta $d00d@Py..sta $d00f@%y..box.ii lda click@2y..bne box.@byF.jmp boxloop@vyP.box. jmp .rolop@Ky0.boxflash lda $a2@Vy:.. #$3c@.yd.lsr a@.yn.lsr a@.yx.tax@.yB.lda boxcols,x@.yL.sta $d02b@.yV.sta $d02c@.y..sta $d02d@.y..sta $d02e@.y..jmp $ea31@Lz..boxcols txt 0,9,2,8,10,7,13,1@&z..txt 1,13,3,5,14,4,6,0@;zX.; delete these!!@oz".cols jmp .rolop@Dzj..iti. jmp .rolop@.zt.zoomout jmp .rolop@@@

00000000  11 08 0a 00 3b 4d 41 4e  44 45 4c 50 4c 4f 54 00  |....;MANDELPLOT.|
00000010  22 08 14 00 3b 53 4f 55  52 43 45 20 43 4f 44 45  |"...;SOURCE CODE|
00000020  00 30 08 1e 00 3b 32 32  2f 31 30 2f 39 35 00 36  |.0...;22/10/95.6|
00000030  08 28 00 3b 00 42 08 64  00 ac b2 24 30 45 30 30  |.(.;.B.d...$0E00|
00000040  00 6a 08 69 00 3b 20 20  20 20 20 20 20 20 20 20  |.j.i.;          |
00000050  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 56  |               V|
00000060  41 52 49 41 42 4c 45 53  00 7b 08 6e 00 58 50 49  |ARIABLES.{.n.XPI|
00000070  58 45 4c b2 24 34 31 30  33 00 8c 08 78 00 59 50  |XEL.$4103...x.YP|
00000080  49 58 45 4c b2 24 34 31  30 34 00 9d 08 82 00 43  |IXEL.$4104.....C|
00000090  4f 4c 4f 55 52 b2 24 34  31 30 35 00 ac 08 8c 00  |OLOUR.$4105.....|
000000a0  59 50 49 42 b2 24 34 31  30 36 00 bd 08 96 00 4d  |YPIB.$4106.....M|
000000b0  41 58 43 4f 4c b2 24 34  31 30 37 00 ca 08 a0 00  |AXCOL.$4107.....|
000000c0  58 50 b2 24 34 31 30 38  00 d7 08 aa 00 59 50 b2  |XP.$4108.....YP.|
000000d0  24 34 31 30 39 00 e5 08  b4 00 58 50 42 b2 24 34  |$4109.....XPB.$4|
000000e0  31 30 41 00 f5 08 be 00  43 4c 49 43 4b b2 24 34  |10A.....CLICK.$4|
000000f0  31 30 42 00 04 09 c8 00  48 4f 55 52 b2 24 34 31  |10B.....HOUR.$41|
00000100  30 43 00 13 09 d2 00 58  50 49 42 b2 24 34 31 30  |0C.....XPIB.$410|
00000110  44 00 23 09 dc 00 58 50  42 49 42 b2 24 34 31 30  |D.#...XPBIB.$410|
00000120  45 00 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 e7 09  |..SPEED.$4118...|
000001c0  18 01 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
000001d0  20 20 20 20 20 20 20 20  20 52 4f 4d 20 52 4f 55  |         ROM ROU|
000001e0  54 49 4e 45 53 00 f8 09  22 01 4f 55 54 44 4f 20  |TINES...".OUTDO |
000001f0  b2 24 41 42 34 37 00 07  0a 23 01 e8 4c 46 53 b2  |.$AB47...#..LFS.|
00000200  24 46 46 42 41 00 16 0a  24 01 e8 4e 41 4d b2 24  |$FFBA...$..NAM.$|
00000210  46 46 42 44 00 25 0a 25  01 e4 52 4f 4d b2 24 46  |FFBD.%.%..ROM.$F|
00000220  46 44 38 00 4d 0a 2c 01  3b 20 20 20 20 20 20 20  |FD8.M.,.;       |
00000230  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000240  53 50 52 49 54 45 20 44  41 54 41 00 53 0a 31 01  |SPRITE DATA.S.1.|
00000250  3b 00 7b 0a 36 01 54 58  54 20 32 32 34 2c 30 30  |;.{.6.TXT 224,00|
00000260  30 2c 30 30 30 2c 31 37  36 2c 30 30 30 2c 30 30  |0,000,176,000,00|
00000270  30 2c 31 35 32 2c 30 30  30 00 a3 0a 40 01 54 58  |0,152,000...@.TX|
00000280  54 20 30 30 30 2c 31 34  30 2c 30 30 30 2c 30 30  |T 000,140,000,00|
00000290  30 2c 31 33 34 2c 30 30  30 2c 30 30 30 2c 31 33  |0,134,000,000,13|
000002a0  31 00 cb 0a 4a 01 54 58  54 20 30 30 30 2c 30 30  |1...J.TXT 000,00|
000002b0  30 2c 31 32 39 2c 31 32  38 2c 30 30 30 2c 31 32  |0,129,128,000,12|
000002c0  38 2c 31 39 32 2c 30 30  30 00 f3 0a 54 01 54 58  |8,192,000...T.TX|
000002d0  54 20 31 32 38 2c 30 36  34 2c 30 30 30 2c 31 34  |T 128,064,000,14|
000002e0  37 2c 31 39 32 2c 30 30  30 2c 31 38 35 2c 30 30  |7,192,000,185,00|
000002f0  30 00 1b 0b 5e 01 54 58  54 20 30 30 30 2c 32 33  |0...^.TXT 000,23|
00000300  33 2c 30 30 30 2c 30 30  30 2c 30 30 39 2c 31 32  |3,000,000,009,12|
00000310  38 2c 30 30 30 2c 30 31  32 00 43 0b 68 01 54 58  |8,000,012.C.h.TX|
00000320  54 20 31 32 38 2c 30 30  30 2c 30 30 34 2c 31 32  |T 128,000,004,12|
00000330  38 2c 30 30 30 2c 30 30  34 2c 31 32 38 2c 30 30  |8,000,004,128,00|
00000340  30 00 6b 0b 72 01 54 58  54 20 30 30 37 2c 31 32  |0.k.r.TXT 007,12|
00000350  38 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |8,000,000,000,00|
00000360  30 2c 30 30 30 2c 30 30  30 00 93 0b 7c 01 54 58  |0,000,000...|.TX|
00000370  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000380  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 35  |0,000,000,000,15|
00000390  33 00 99 0b 81 01 3b 00  c1 0b 86 01 54 58 54 20  |3.....;.....TXT |
000003a0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 36 34 2c  |000,000,000,064,|
000003b0  30 30 30 2c 30 30 30 2c  30 39 36 2c 30 30 30 00  |000,000,096,000.|
000003c0  e9 0b 90 01 54 58 54 20  30 30 30 2c 31 31 32 2c  |....TXT 000,112,|
000003d0  30 30 30 2c 30 30 30 2c  31 32 30 2c 30 30 30 2c  |000,000,120,000,|
000003e0  30 30 30 2c 31 32 34 00  11 0c 9a 01 54 58 54 20  |000,124.....TXT |
000003f0  30 30 30 2c 30 30 30 2c  31 32 36 2c 30 30 30 2c  |000,000,126,000,|
00000400  30 30 30 2c 31 32 37 2c  30 30 30 2c 30 30 30 00  |000,127,000,000.|
00000410  39 0c a4 01 54 58 54 20  31 32 37 2c 31 32 38 2c  |9...TXT 127,128,|
00000420  30 30 30 2c 31 30 38 2c  30 30 30 2c 30 30 30 2c  |000,108,000,000,|
00000430  30 37 30 2c 30 30 30 00  61 0c ae 01 54 58 54 20  |070,000.a...TXT |
00000440  30 30 30 2c 30 30 36 2c  30 30 30 2c 30 30 30 2c  |000,006,000,000,|
00000450  30 30 36 2c 30 30 30 2c  30 30 30 2c 30 30 33 00  |006,000,000,003.|
00000460  89 0c b8 01 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
00000470  30 30 33 2c 30 30 30 2c  30 30 30 2c 30 30 33 2c  |003,000,000,003,|
00000480  30 30 30 2c 30 30 30 00  b1 0c c2 01 54 58 54 20  |000,000.....TXT |
00000490  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000004a0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
000004b0  d9 0c cc 01 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
000004c0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000004d0  30 30 30 2c 31 35 33 00  df 0c d1 01 3b 00 07 0d  |000,153.....;...|
000004e0  d6 01 54 58 54 20 32 35  35 2c 31 39 32 2c 30 30  |..TXT 255,192,00|
000004f0  30 2c 31 32 39 2c 30 36  34 2c 30 30 30 2c 31 32  |0,129,064,000,12|
00000500  38 2c 30 36 34 00 2f 0d  e0 01 54 58 54 20 30 30  |8,064./...TXT 00|
00000510  30 2c 31 32 39 2c 30 36  34 2c 30 30 30 2c 30 36  |0,129,064,000,06|
00000520  36 2c 31 32 38 2c 30 30  30 2c 30 36 34 00 57 0d  |6,128,000,064.W.|
00000530  ea 01 54 58 54 20 31 32  38 2c 30 30 30 2c 30 35  |..TXT 128,000,05|
00000540  31 2c 30 30 30 2c 30 30  30 2c 30 31 32 2c 30 30  |1,000,000,012,00|
00000550  30 2c 30 30 30 00 7f 0d  f4 01 54 58 54 20 30 35  |0,000.....TXT 05|
00000560  35 2c 30 30 30 2c 30 30  30 2c 30 36 35 2c 31 32  |5,000,000,065,12|
00000570  38 2c 30 30 30 2c 30 36  36 2c 31 32 38 00 a7 0d  |8,000,066,128...|
00000580  fe 01 54 58 54 20 30 30  30 2c 31 32 39 2c 30 36  |..TXT 000,129,06|
00000590  34 2c 30 30 30 2c 31 33  30 2c 31 39 32 2c 30 30  |4,000,130,192,00|
000005a0  30 2c 31 33 33 00 cf 0d  08 02 54 58 54 20 30 36  |0,133.....TXT 06|
000005b0  34 2c 30 30 30 2c 32 35  35 2c 31 39 32 2c 30 30  |4,000,255,192,00|
000005c0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 f7 0d  |0,000,000,000...|
000005d0  12 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,000,00|
000005e0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000005f0  30 2c 30 30 30 00 1f 0e  1c 02 54 58 54 20 30 30  |0,000.....TXT 00|
00000600  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000610  30 2c 30 30 30 2c 30 30  30 2c 31 39 37 00 25 0e  |0,000,000,197.%.|
00000620  21 02 3b 00 4d 0e 26 02  54 58 54 20 32 35 35 2c  |!.;.M.&.TXT 255,|
00000630  31 39 32 2c 30 30 30 2c  32 35 35 2c 31 39 32 2c  |192,000,255,192,|
00000640  30 30 30 2c 32 35 35 2c  31 39 32 00 75 0e 30 02  |000,255,192.u.0.|
00000650  54 58 54 20 30 30 30 2c  32 35 35 2c 31 39 32 2c  |TXT 000,255,192,|
00000660  30 30 30 2c 31 32 37 2c  31 32 38 2c 30 30 30 2c  |000,127,128,000,|
00000670  31 32 37 00 9d 0e 3a 02  54 58 54 20 31 32 38 2c  |127...:.TXT 128,|
00000680  30 30 30 2c 30 36 33 2c  30 30 30 2c 30 30 30 2c  |000,063,000,000,|
00000690  30 31 32 2c 30 30 30 2c  30 30 30 00 c5 0e 44 02  |012,000,000...D.|
000006a0  54 58 54 20 30 36 33 2c  30 30 30 2c 30 30 30 2c  |TXT 063,000,000,|
000006b0  31 32 37 2c 31 32 38 2c  30 30 30 2c 31 32 37 2c  |127,128,000,127,|
000006c0  31 32 38 00 ed 0e 4e 02  54 58 54 20 30 30 30 2c  |128...N.TXT 000,|
000006d0  32 35 35 2c 31 39 32 2c  30 30 30 2c 32 35 35 2c  |255,192,000,255,|
000006e0  31 39 32 2c 30 30 30 2c  32 35 35 00 15 0f 58 02  |192,000,255...X.|
000006f0  54 58 54 20 31 39 32 2c  30 30 30 2c 32 35 35 2c  |TXT 192,000,255,|
00000700  31 39 32 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |192,000,000,000,|
00000710  30 30 30 00 3d 0f 62 02  54 58 54 20 30 30 30 2c  |000.=.b.TXT 000,|
00000720  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000730  30 30 30 2c 30 30 30 2c  30 30 30 00 65 0f 6c 02  |000,000,000.e.l.|
00000740  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000750  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000760  31 39 37 00 6b 0f 71 02  3b 00 93 0f 76 02 54 58  |197.k.q.;...v.TX|
00000770  54 20 31 36 38 2c 30 30  30 2c 30 30 30 2c 30 30  |T 168,000,000,00|
00000780  30 2c 30 30 30 2c 30 30  30 2c 31 32 38 2c 30 30  |0,000,000,128,00|
00000790  30 00 bb 0f 80 02 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,00|
000007a0  30 2c 30 30 30 2c 30 30  30 2c 31 32 38 2c 30 30  |0,000,000,128,00|
000007b0  30 2c 30 30 30 2c 30 30  30 00 e3 0f 8a 02 54 58  |0,000,000.....TX|
000007c0  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
000007d0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000007e0  30 00 0b 10 94 02 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,00|
000007f0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000800  30 2c 30 30 30 2c 30 30  30 00 33 10 9e 02 54 58  |0,000,000.3...TX|
00000810  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000820  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000830  30 00 5b 10 a8 02 54 58  54 20 30 30 30 2c 30 30  |0.[...TXT 000,00|
00000840  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000850  30 2c 30 30 30 2c 30 30  30 00 83 10 b2 02 54 58  |0,000,000.....TX|
00000860  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000870  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000880  30 00 ab 10 bc 02 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,00|
00000890  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000008a0  30 2c 30 30 30 2c 31 39  37 00 b1 10 c1 02 3b 00  |0,000,197.....;.|
000008b0  d9 10 c6 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
000008c0  30 32 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |021,000,000,000,|
000008d0  30 30 30 2c 30 30 30 00  01 11 d0 02 54 58 54 20  |000,000.....TXT |
000008e0  30 30 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |001,000,000,000,|
000008f0  30 30 30 2c 30 30 30 2c  30 30 31 2c 30 30 30 00  |000,000,001,000.|
00000900  29 11 da 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |)...TXT 000,000,|
00000910  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000920  30 30 30 2c 30 30 30 00  51 11 e4 02 54 58 54 20  |000,000.Q...TXT |
00000930  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000940  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000950  79 11 ee 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |y...TXT 000,000,|
00000960  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000970  30 30 30 2c 30 30 30 00  a1 11 f8 02 54 58 54 20  |000,000.....TXT |
00000980  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000990  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
000009a0  c9 11 02 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |....TXT 000,000,|
000009b0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000009c0  30 30 30 2c 30 30 30 00  f1 11 0c 03 54 58 54 20  |000,000.....TXT |
000009d0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000009e0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
000009f0  f7 11 11 03 3b 00 1f 12  16 03 54 58 54 20 30 30  |....;.....TXT 00|
00000a00  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a10  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 47 12  |0,000,000,000.G.|
00000a20  20 03 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  | .TXT 000,000,00|
00000a30  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a40  30 2c 30 30 30 00 6f 12  2a 03 54 58 54 20 30 30  |0,000.o.*.TXT 00|
00000a50  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a60  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 97 12  |0,000,000,000...|
00000a70  34 03 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |4.TXT 000,000,00|
00000a80  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000a90  30 2c 30 30 30 00 bf 12  3e 03 54 58 54 20 30 30  |0,000...>.TXT 00|
00000aa0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000ab0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 e7 12  |0,000,000,000...|
00000ac0  48 03 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |H.TXT 000,000,00|
00000ad0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000ae0  30 2c 30 30 30 00 0f 13  52 03 54 58 54 20 31 32  |0,000...R.TXT 12|
00000af0  38 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |8,000,000,000,00|
00000b00  30 2c 30 30 30 2c 31 32  38 2c 30 30 30 00 37 13  |0,000,128,000.7.|
00000b10  5c 03 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |\.TXT 000,000,00|
00000b20  30 2c 30 30 30 2c 31 36  38 2c 30 30 30 2c 30 30  |0,000,168,000,00|
00000b30  30 2c 30 30 30 00 3d 13  61 03 3b 00 65 13 66 03  |0,000.=.a.;.e.f.|
00000b40  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000b50  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b60  30 30 30 00 8d 13 70 03  54 58 54 20 30 30 30 2c  |000...p.TXT 000,|
00000b70  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000b80  30 30 30 2c 30 30 30 2c  30 30 30 00 b5 13 7a 03  |000,000,000...z.|
00000b90  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000ba0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000bb0  30 30 30 00 dd 13 84 03  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
00000bc0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000bd0  30 30 30 2c 30 30 30 2c  30 30 30 00 05 14 8e 03  |000,000,000.....|
00000be0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000bf0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000c00  30 30 30 00 2d 14 98 03  54 58 54 20 30 30 30 2c  |000.-...TXT 000,|
00000c10  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000c20  30 30 30 2c 30 30 30 2c  30 30 30 00 55 14 a2 03  |000,000,000.U...|
00000c30  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 31 2c  |TXT 000,000,001,|
00000c40  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000c50  30 30 30 00 7d 14 ac 03  54 58 54 20 30 30 31 2c  |000.}...TXT 001,|
00000c60  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000c70  30 30 30 2c 30 32 31 2c  30 30 30 00 83 14 b1 03  |000,021,000.....|
00000c80  3b 00 a6 14 10 27 3b 20  20 20 20 20 20 20 20 20  |;....';         |
00000c90  20 20 4d 41 49 4e 20 9a  52 4f 4c 20 52 4f 55 54  |  MAIN .ROL ROUT|
00000ca0  49 4e 45 53 00 b3 14 1a  27 4a 53 52 20 49 4e 49  |INES....'JSR INI|
00000cb0  54 00 cb 14 24 27 43 4f  4d 45 42 41 43 4b 20 4a  |T...$'COMEBACK J|
00000cc0  53 52 20 48 49 52 45 53  91 00 e0 14 2e 27 9a 52  |SR HIRES.....'.R|
00000cd0  4f 4c 4f 50 20 4c 44 41  20 43 4c 49 43 4b 00 ef  |OLOP LDA CLICK..|
00000ce0  14 38 27 42 4e 45 20 9a  52 4f 4c 4f 50 00 03 15  |.8'BNE .ROLOP...|
00000cf0  42 27 9a 4c 4f 50 42 20  4c 44 41 20 43 4c 49 43  |B'.LOPB LDA CLIC|
00000d00  4b 00 11 15 4c 27 42 45  51 20 9a 4c 4f 50 42 00  |K...L'BEQ .LOPB.|
00000d10  1c 15 56 27 4c 44 41 20  58 50 00 29 15 60 27 43  |..V'LDA XP.).`'C|
00000d20  4d 50 20 23 24 35 38 00  34 15 6a 27 42 43 43 20  |MP #$58.4.j'BCC |
00000d30  9a 9a 00 40 15 74 27 4a  4d 50 20 42 4f 58 00 4e  |...@.t'JMP BOX.N|
00000d40  15 7e 27 9a 9a 20 4c 44  41 20 59 50 00 56 15 88  |.~'.. LDA YP.V..|
00000d50  27 53 45 43 00 63 15 92  27 53 42 43 20 23 24 35  |'SEC.c..'SBC #$5|
00000d60  41 00 6d 15 9c 27 4c 53  52 20 41 00 77 15 a6 27  |A.m..'LSR A.w..'|
00000d70  4c 53 52 20 41 00 82 15  b0 27 af 20 23 24 46 45  |LSR A....'. #$FE|
00000d80  00 8a 15 ba 27 54 41 58  00 9b 15 c4 27 4c 44 41  |....'TAX....'LDA|
00000d90  20 56 45 43 a4 52 53 2c  58 00 a7 15 ce 27 53 54  | VEC.RS,X....'ST|
00000da0  41 20 24 46 42 00 af 15  d8 27 49 4e 58 00 c0 15  |A $FB....'INX...|
00000db0  e2 27 4c 44 41 20 56 45  43 a4 52 53 2c 58 00 cc  |.'LDA VEC.RS,X..|
00000dc0  15 ec 27 53 54 41 20 24  46 43 00 dc 15 f6 27 4a  |..'STA $FC....'J|
00000dd0  4d 50 20 28 24 30 30 46  42 29 00 1d 16 00 28 56  |MP ($00FB)....(V|
00000de0  45 43 a4 52 53 20 54 58  54 20 b3 5a 4f 4f 4d 4f  |EC.RS TXT .ZOOMO|
00000df0  55 54 2c b1 5a 4f 4f 4d  4f 55 54 2c b3 9a 52 4f  |UT,.ZOOMOUT,..RO|
00000e00  4c 4f 50 2c b1 9a 52 4f  4c 4f 50 2c b3 5a 4f 4f  |LOP,..ROLOP,.ZOO|
00000e10  4d 49 4e 2c b1 5a 4f 4f  4d 49 4e 00 53 16 0a 28  |MIN,.ZOOMIN.S..(|
00000e20  54 58 54 20 b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |TXT ..ROLOP,..RO|
00000e30  4c 4f 50 2c b3 b9 49 54  49 91 2c b1 b9 49 54 49  |LOP,..ITI.,..ITI|
00000e40  91 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |.,..ROLOP,..ROLO|
00000e50  50 00 87 16 14 28 54 58  54 20 b3 9a 52 4f 4c 4f  |P....(TXT ..ROLO|
00000e60  50 2c b1 9a 52 4f 4c 4f  50 2c b3 43 4f 4c 53 2c  |P,..ROLOP,.COLS,|
00000e70  b1 43 4f 4c 53 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |.COLS,..ROLOP,..|
00000e80  52 4f 4c 4f 50 00 c3 16  1e 28 54 58 54 20 b3 43  |ROLOP....(TXT .C|
00000e90  4f 4c 43 59 43 4c 45 2c  b1 43 4f 4c 43 59 43 4c  |OLCYCLE,.COLCYCL|
00000ea0  45 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |E,..ROLOP,..ROLO|
00000eb0  50 2c b3 4d af 50 4c 4f  54 2c b1 4d af 50 4c 4f  |P,.M.PLOT,.M.PLO|
00000ec0  54 00 f7 16 28 28 54 58  54 20 b3 9a 52 4f 4c 4f  |T...((TXT ..ROLO|
00000ed0  50 2c b1 9a 52 4f 4c 4f  50 2c b3 9a 52 4f 4c 4f  |P,..ROLOP,..ROLO|
00000ee0  50 2c b1 9a 52 4f 4c 4f  50 2c b3 45 58 49 54 2c  |P,..ROLOP,.EXIT,|
00000ef0  b1 45 58 49 54 00 2b 17  32 28 54 58 54 20 b3 9a  |.EXIT.+.2(TXT ..|
00000f00  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 e1  |ROLOP,..ROLOP,..|
00000f10  2c b1 e1 2c b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |,..,..ROLOP,..RO|
00000f20  4c 4f 50 2c b3 e4 2c b1  e4 00 63 17 3c 28 54 58  |LOP,..,...c.<(TX|
00000f30  54 20 b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |T ..ROLOP,..ROLO|
00000f40  50 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |P,..ROLOP,..ROLO|
*
00000f60  50 00 79 17 04 29 45 58  49 54 20 4a 53 52 20 48  |P.y..)EXIT JSR H|
00000f70  49 52 45 53 4f 46 46 00  86 17 0e 29 4c 44 41 20  |IRESOFF....)LDA |
00000f80  23 24 39 33 00 94 17 18  29 4a 53 52 20 4f 55 54  |#$93....)JSR OUT|
00000f90  44 4f 00 a1 17 22 29 4c  44 41 20 23 24 30 35 00  |DO...")LDA #$05.|
00000fa0  af 17 2c 29 4a 53 52 20  4f 55 54 44 4f 00 b7 17  |..,)JSR OUTDO...|
00000fb0  36 29 52 54 53 00 dd 17  e0 2e 3b 20 20 20 20 20  |6)RTS.....;     |
00000fc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 57 49  |              WI|
00000fd0  4d 50 20 52 4f 55 54 49  4e 45 53 00 f0 17 f4 2e  |MP ROUTINES.....|
00000fe0  3b 20 57 49 4d 50 20 2d  20 4d 4f 55 53 45 00 01  |; WIMP - MOUSE..|
00000ff0  18 fe 2e 49 52 51 20 4c  44 41 20 23 24 30 30 00  |...IRQ LDA #$00.|
00001000  0f 18 08 2f 53 54 41 20  43 4c 49 43 4b 00 1b 18  |.../STA CLICK...|
00001010  12 2f 4c 44 41 20 24 43  35 00 28 18 1c 2f 43 4d  |./LDA $C5.(../CM|
00001020  50 20 23 24 30 31 00 38  18 26 2f 42 4e 45 20 43  |P #$01.8.&/BNE C|
00001030  91 43 48 45 43 4b 00 46  18 30 2f 53 54 41 20 43  |.CHECK.F.0/STA C|
00001040  4c 49 43 4b 00 5b 18 3a  2f 43 91 43 48 45 43 4b  |LICK.[.:/C.CHECK|
00001050  20 43 4d 50 20 23 24 30  43 00 69 18 44 2f 42 45  | CMP #$0C.i.D/BE|
00001060  51 20 4c 45 46 54 4b 00  7a 18 4e 2f 4c 4b 43 20  |Q LEFTK.z.N/LKC |
00001070  43 4d 50 20 23 24 31 37  00 89 18 58 2f 42 45 51  |CMP #$17...X/BEQ|
00001080  20 52 49 47 48 54 4b 00  9a 18 62 2f 52 4b 43 20  | RIGHTK...b/RKC |
00001090  43 4d 50 20 23 24 33 32  00 a6 18 6c 2f 42 45 51  |CMP #$32...l/BEQ|
000010a0  20 55 50 4b 00 b8 18 76  2f 55 50 4b 43 20 43 4d  | UPK...v/UPKC CM|
000010b0  50 20 23 24 33 37 00 c6  18 80 2f 42 45 51 20 44  |P #$37..../BEQ D|
000010c0  4f 57 4e 4b 00 d8 18 8a  2f 44 4b 43 20 4c 44 41  |OWNK..../DKC LDA|
000010d0  20 24 44 43 30 30 00 e3  18 9e 2f af 20 23 24 30  | $DC00..../. #$0|
000010e0  31 00 ef 18 a8 2f 42 45  51 20 55 50 4a 00 01 19  |1..../BEQ UPJ...|
000010f0  b2 2f 55 4a 43 20 4c 44  41 20 24 44 43 30 30 00  |./UJC LDA $DC00.|
00001100  0c 19 bc 2f af 20 23 24  30 32 00 1a 19 c6 2f 42  |.../. #$02..../B|
00001110  45 51 20 44 4f 57 4e 4a  00 2c 19 d0 2f 44 4a 43  |EQ DOWNJ.,../DJC|
00001120  20 4c 44 41 20 24 44 43  30 30 00 37 19 da 2f af  | LDA $DC00.7../.|
00001130  20 23 24 30 34 00 45 19  e4 2f 42 45 51 20 4c 45  | #$04.E../BEQ LE|
00001140  46 54 4a 00 57 19 ee 2f  4c 4a 43 20 4c 44 41 20  |FTJ.W../LJC LDA |
00001150  24 44 43 30 30 00 62 19  f8 2f af 20 23 24 30 38  |$DC00.b../. #$08|
00001160  00 71 19 02 30 42 45 51  20 52 49 47 48 54 4a 00  |.q..0BEQ RIGHTJ.|
00001170  83 19 0c 30 52 4a 43 20  4c 44 41 20 24 44 43 30  |...0RJC LDA $DC0|
00001180  30 00 8e 19 16 30 af 20  23 24 31 30 00 9a 19 20  |0....0. #$10... |
00001190  30 45 b0 20 23 24 31 30  00 a7 19 2a 30 42 45 51  |0E. #$10...*0BEQ|
000011a0  20 43 4a 43 48 00 b5 19  34 30 53 54 41 20 43 4c  | CJCH...40STA CL|
000011b0  49 43 4b 00 cb 19 3e 30  43 4a 43 48 20 4a 4d 50  |ICK...>0CJCH JMP|
000011c0  20 42 4f 58 46 4c 41 53  48 00 de 19 48 30 4c 45  | BOXFLASH...H0LE|
000011d0  46 54 4b 20 4a 53 52 20  4c 45 46 54 00 ea 19 52  |FTK JSR LEFT...R|
000011e0  30 4a 4d 50 20 4c 4b 43  00 ff 19 5c 30 52 49 47  |0JMP LKC...\0RIG|
000011f0  48 54 4b 20 4a 53 52 20  52 49 47 48 54 00 0b 1a  |HTK JSR RIGHT...|
00001200  66 30 4a 4d 50 20 52 4b  43 00 1a 1a 70 30 55 50  |f0JMP RKC...p0UP|
00001210  4b 20 4a 53 52 20 55 50  00 27 1a 7a 30 4a 4d 50  |K JSR UP.'.z0JMP|
00001220  20 55 50 4b 43 00 3a 1a  84 30 44 4f 57 4e 4b 20  | UPKC.:..0DOWNK |
00001230  4a 53 52 20 44 4f 57 4e  00 46 1a 8e 30 4a 4d 50  |JSR DOWN.F..0JMP|
00001240  20 44 4b 43 00 55 1a 98  30 55 50 4a 20 4a 53 52  | DKC.U..0UPJ JSR|
00001250  20 55 50 00 61 1a a2 30  4a 4d 50 20 55 4a 43 00  | UP.a..0JMP UJC.|
00001260  74 1a ac 30 44 4f 57 4e  4a 20 4a 53 52 20 44 4f  |t..0DOWNJ JSR DO|
00001270  57 4e 00 80 1a b6 30 4a  4d 50 20 44 4a 43 00 93  |WN....0JMP DJC..|
00001280  1a c0 30 4c 45 46 54 4a  20 4a 53 52 20 4c 45 46  |..0LEFTJ JSR LEF|
00001290  54 00 9f 1a ca 30 4a 4d  50 20 4c 4a 43 00 b4 1a  |T....0JMP LJC...|
000012a0  d4 30 52 49 47 48 54 4a  20 4a 53 52 20 52 49 47  |.0RIGHTJ JSR RIG|
000012b0  48 54 00 c0 1a de 30 4a  4d 50 20 52 4a 43 00 d0  |HT....0JMP RJC..|
000012c0  1a e8 30 4c 45 46 54 20  44 45 43 20 58 50 00 db  |..0LEFT DEC XP..|
000012d0  1a f2 30 4c 44 41 20 58  50 00 e8 1a fc 30 43 4d  |..0LDA XP....0CM|
000012e0  50 20 23 24 46 46 00 f4  1a 06 31 42 4e 45 20 a8  |P #$FF....1BNE .|
000012f0  46 46 00 01 1b 10 31 4c  44 59 20 23 24 30 30 00  |FF....1LDY #$00.|
00001300  0d 1b 1a 31 53 54 59 20  58 50 42 00 1d 1b 24 31  |...1STY XPB...$1|
00001310  a8 46 46 20 4c 44 59 20  58 50 42 00 29 1b 2e 31  |.FF LDY XPB.)..1|
00001320  42 4e 45 20 46 49 4e 00  36 1b 38 31 43 4d 50 20  |BNE FIN.6.81CMP |
00001330  23 24 31 38 00 42 1b 42  31 42 4e 45 20 46 49 4e  |#$18.B.B1BNE FIN|
00001340  00 4d 1b 4c 31 49 4e 43  20 58 50 00 5e 1b 56 31  |.M.L1INC XP.^.V1|
00001350  46 49 4e 20 4a 4d 50 20  9a 52 4f 4c 00 6f 1b 60  |FIN JMP .ROL.o.`|
00001360  31 52 49 47 48 54 20 49  4e 43 20 58 50 00 7a 1b  |1RIGHT INC XP.z.|
00001370  6a 31 4c 44 41 20 58 50  00 86 1b 74 31 42 4e 45  |j1LDA XP...t1BNE|
00001380  20 a8 30 30 00 93 1b 7e  31 4c 44 59 20 23 24 30  | .00...~1LDY #$0|
00001390  31 00 9f 1b 88 31 53 54  59 20 58 50 42 00 af 1b  |1....1STY XPB...|
000013a0  92 31 a8 30 30 20 4c 44  59 20 58 50 42 00 bb 1b  |.1.00 LDY XPB...|
000013b0  9c 31 42 45 51 20 46 49  4e 00 c8 1b a6 31 43 4d  |.1BEQ FIN....1CM|
000013c0  50 20 23 24 35 38 00 d4  1b b0 31 42 4e 45 20 46  |P #$58....1BNE F|
000013d0  49 4e 00 df 1b ba 31 44  45 43 20 58 50 00 ec 1b  |IN....1DEC XP...|
000013e0  c4 31 4a 4d 50 20 9a 52  4f 4c 00 fa 1b ce 31 55  |.1JMP .ROL....1U|
000013f0  50 20 44 45 43 20 59 50  00 05 1c d8 31 4c 44 41  |P DEC YP....1LDA|
00001400  20 59 50 00 12 1c e2 31  43 4d 50 20 23 24 33 32  | YP....1CMP #$32|
00001410  00 1e 1c ec 31 42 4e 45  20 46 49 4e 00 29 1c f6  |....1BNE FIN.)..|
00001420  31 49 4e 43 20 59 50 00  36 1c 00 32 4a 4d 50 20  |1INC YP.6..2JMP |
00001430  9a 52 4f 4c 00 46 1c 0a  32 44 4f 57 4e 20 49 4e  |.ROL.F..2DOWN IN|
00001440  43 20 59 50 00 51 1c 14  32 4c 44 41 20 59 50 00  |C YP.Q..2LDA YP.|
00001450  5e 1c 1e 32 43 4d 50 20  23 24 46 38 00 6a 1c 28  |^..2CMP #$F8.j.(|
00001460  32 42 4e 45 20 46 49 4e  00 75 1c 32 32 44 45 43  |2BNE FIN.u.22DEC|
00001470  20 59 50 00 82 1c 3c 32  4a 4d 50 20 9a 52 4f 4c  | YP...<2JMP .ROL|
00001480  00 95 1c 46 32 3b 20 57  49 4d 50 20 ab 20 50 4f  |...F2; WIMP . PO|
00001490  b5 45 52 00 a7 1c 50 32  9a 52 4f 4c 20 4c 44 41  |.ER...P2.ROL LDA|
000014a0  20 48 4f 55 52 00 b7 1c  5a 32 42 45 51 20 4e 48  | HOUR...Z2BEQ NH|
000014b0  47 4c 41 53 53 00 c4 1c  9a 33 4c 44 58 20 23 24  |GLASS....3LDX #$|
000014c0  33 41 00 d2 1c a4 33 53  54 58 20 24 30 37 46 38  |3A....3STX $07F8|
000014d0  00 da 1c ae 33 49 4e 58  00 e8 1c b8 33 53 54 58  |....3INX....3STX|
000014e0  20 24 30 37 46 39 00 fb  1c c2 33 4e 48 47 4c 41  | $07F9....3NHGLA|
000014f0  53 53 20 4c 44 41 20 58  50 00 09 1d cc 33 53 54  |SS LDA XP....3ST|
00001500  41 20 24 44 30 30 30 00  17 1d d6 33 53 54 41 20  |A $D000....3STA |
00001510  24 44 30 30 32 00 22 1d  e0 33 4c 44 41 20 59 50  |$D002."..3LDA YP|
00001520  00 30 1d ea 33 53 54 41  20 24 44 30 30 31 00 3e  |.0..3STA $D001.>|
00001530  1d f4 33 53 54 41 20 24  44 30 30 33 00 4c 1d fe  |..3STA $D003.L..|
00001540  33 4c 44 41 20 24 44 30  31 30 00 57 1d 08 34 af  |3LDA $D010.W..4.|
00001550  20 23 24 46 43 00 61 1d  12 34 4c 53 52 20 41 00  | #$FC.a..4LSR A.|
00001560  69 1d 1c 34 43 4c 43 00  75 1d 26 34 41 44 43 20  |i..4CLC.u.&4ADC |
00001570  58 50 42 00 7f 1d 30 34  41 53 4c 20 41 00 87 1d  |XPB...04ASL A...|
00001580  3a 34 43 4c 43 00 93 1d  44 34 41 44 43 20 58 50  |:4CLC...D4ADC XP|
00001590  42 00 a1 1d 4e 34 53 54  41 20 24 44 30 31 30 00  |B...N4STA $D010.|
000015a0  ae 1d 58 34 4c 44 41 20  23 24 30 30 00 bc 1d 62  |..X4LDA #$00...b|
000015b0  34 53 54 41 20 24 44 30  32 37 00 c9 1d 6c 34 4c  |4STA $D027...l4L|
000015c0  44 41 20 23 24 30 31 00  d7 1d 76 34 53 54 41 20  |DA #$01...v4STA |
000015d0  24 44 30 32 38 00 e5 1d  80 34 4c 44 41 20 24 44  |$D028....4LDA $D|
000015e0  30 31 35 00 f1 1d 8a 34  b0 41 20 23 24 30 33 00  |015....4.A #$03.|
000015f0  ff 1d 94 34 53 54 41 20  24 44 30 31 35 00 0c 1e  |...4STA $D015...|
00001600  9e 34 4c 44 41 20 48 4f  55 52 00 19 1e a8 34 42  |.4LDA HOUR....4B|
00001610  4e 45 20 51 54 52 4f 00  26 1e b2 34 4c 44 58 20  |NE QTRO.&..4LDX |
00001620  23 24 33 38 00 34 1e bc  34 53 54 58 20 24 30 37  |#$38.4..4STX $07|
00001630  46 38 00 3c 1e c6 34 49  4e 58 00 4a 1e d0 34 53  |F8.<..4INX.J..4S|
00001640  54 58 20 24 30 37 46 39  00 57 1e da 34 51 54 52  |TX $07F9.W..4QTR|
00001650  4f 20 52 54 53 00 6e 1e  e4 34 3b 20 53 54 41 52  |O RTS.n..4; STAR|
00001660  54 55 50 20 52 4f 55 54  49 4e 45 53 00 80 1e ee  |TUP ROUTINES....|
00001670  34 49 4e 49 54 20 4c 44  41 20 23 24 30 30 00 8e  |4INIT LDA #$00..|
00001680  1e f8 34 53 54 41 20 24  44 30 32 30 00 9c 1e 02  |..4STA $D020....|
00001690  35 53 54 41 20 24 44 30  32 31 00 a7 1e 0c 35 53  |5STA $D021....5S|
000016a0  54 41 20 58 50 00 b4 1e  16 35 53 54 41 20 48 4f  |TA XP....5STA HO|
000016b0  55 52 00 c2 1e 20 35 53  54 41 20 24 44 30 31 35  |UR... 5STA $D015|
000016c0  00 cf 1e 2a 35 4c 44 41  20 23 24 30 31 00 db 1e  |...*5LDA #$01...|
000016d0  34 35 53 54 41 20 58 50  42 00 e8 1e 3e 35 4c 44  |45STA XPB...>5LD|
000016e0  41 20 23 24 38 30 00 f3  1e 48 35 53 54 41 20 59  |A #$80...H5STA Y|
000016f0  50 00 07 1f 52 35 48 49  52 45 53 91 20 4c 44 41  |P...R5HIRES. LDA|
00001700  20 23 24 33 42 00 15 1f  5c 35 53 54 41 20 24 44  | #$3B...\5STA $D|
00001710  30 31 31 00 22 1f 66 35  4c 44 41 20 23 24 44 38  |011.".f5LDA #$D8|
00001720  00 30 1f 70 35 53 54 41  20 24 44 30 31 36 00 3e  |.0.p5STA $D016.>|
00001730  1f 7a 35 4c 44 41 20 43  4f 4c 30 53 00 4b 1f 84  |.z5LDA COL0S.K..|
00001740  35 53 54 41 20 43 4f 4c  30 00 59 1f 8e 35 4c 44  |5STA COL0.Y..5LD|
00001750  41 20 43 4f 4c 31 53 00  66 1f 98 35 53 54 41 20  |A COL1S.f..5STA |
00001760  43 4f 4c 31 00 74 1f a2  35 4c 44 41 20 43 4f 4c  |COL1.t..5LDA COL|
00001770  32 53 00 81 1f ac 35 53  54 41 20 43 4f 4c 32 00  |2S....5STA COL2.|
00001780  8f 1f b6 35 4c 44 41 20  43 4f 4c 33 53 00 9c 1f  |...5LDA COL3S...|
00001790  c0 35 53 54 41 20 43 4f  4c 33 00 aa 1f ca 35 4a  |.5STA COL3....5J|
000017a0  53 52 20 e8 43 4f 4c 53  00 b7 1f 06 36 4a 53 52  |SR .COLS....6JSR|
000017b0  20 4c 45 46 54 00 bf 1f  10 36 53 45 49 00 cd 1f  | LEFT....6SEI...|
000017c0  1a 36 4c 44 41 20 23 b3  49 52 51 00 db 1f 24 36  |.6LDA #.IRQ...$6|
000017d0  53 54 41 20 24 30 33 31  34 00 e9 1f 2e 36 4c 44  |STA $0314....6LD|
000017e0  41 20 23 b1 49 52 51 00  f7 1f 38 36 53 54 41 20  |A #.IRQ...86STA |
000017f0  24 30 33 31 35 00 ff 1f  42 36 43 4c 49 00 0c 20  |$0315...B6CLI.. |
00001800  ba 36 4c 44 41 20 23 24  31 38 00 1a 20 c4 36 53  |.6LDA #$18.. .6S|
00001810  54 41 20 24 44 30 31 38  00 22 20 34 3a 52 54 53  |TA $D018." 4:RTS|
00001820  00 33 20 52 3a 48 49 52  45 53 4f 46 46 20 53 45  |.3 R:HIRESOFF SE|
00001830  49 00 40 20 5c 3a 4c 44  41 20 23 24 33 31 00 4e  |I.@ \:LDA #$31.N|
00001840  20 66 3a 53 54 41 20 24  30 33 31 34 00 5b 20 70  | f:STA $0314.[ p|
00001850  3a 4c 44 41 20 23 24 45  41 00 69 20 7a 3a 53 54  |:LDA #$EA.i z:ST|
00001860  41 20 24 30 33 31 35 00  71 20 84 3a 43 4c 49 00  |A $0315.q .:CLI.|
00001870  7e 20 8e 3a 4c 44 41 20  23 24 30 30 00 8c 20 98  |~ .:LDA #$00.. .|
00001880  3a 53 54 41 20 24 44 30  31 35 00 99 20 a2 3a 4c  |:STA $D015.. .:L|
00001890  44 41 20 23 24 39 42 00  a7 20 ac 3a 53 54 41 20  |DA #$9B.. .:STA |
000018a0  24 44 30 31 31 00 b4 20  b6 3a 4c 44 41 20 23 24  |$D011.. .:LDA #$|
000018b0  43 38 00 c2 20 c0 3a 53  54 41 20 24 44 30 31 36  |C8.. .:STA $D016|
000018c0  00 cf 20 c3 3a 4c 44 41  20 23 24 31 35 00 dd 20  |.. .:LDA #$15.. |
000018d0  c6 3a 53 54 41 20 24 44  30 31 38 00 e5 20 ca 3a  |.:STA $D018.. .:|
000018e0  52 54 53 00 f8 20 20 4e  e1 20 4a 53 52 20 48 49  |RTS..  N. JSR HI|
000018f0  52 45 53 4f 46 46 00 05  21 2a 4e 4c 44 41 20 23  |RESOFF..!*NLDA #|
00001900  24 31 43 00 13 21 34 4e  4a 53 52 20 4f 55 54 44  |$1C..!4NJSR OUTD|
00001910  4f 00 20 21 3e 4e 4c 44  41 20 23 24 39 33 00 2e  |O. !>NLDA #$93..|
00001920  21 48 4e 4a 53 52 20 4f  55 54 44 4f 00 3b 21 52  |!HNJSR OUTDO.;!R|
00001930  4e 4c 44 41 20 23 24 30  30 00 49 21 5c 4e e1 4c  |NLDA #$00.I!\N.L|
00001940  4f 4f 50 20 50 48 41 00  53 21 66 4e 41 53 4c 20  |OOP PHA.S!fNASL |
00001950  41 00 5d 21 70 4e 41 53  4c 20 41 00 65 21 7a 4e  |A.]!pNASL A.e!zN|
00001960  43 4c 43 00 72 21 84 4e  41 44 43 20 23 24 34 32  |CLC.r!.NADC #$42|
00001970  00 7e 21 8e 4e 53 54 41  20 24 46 43 00 8b 21 98  |.~!.NSTA $FC..!.|
00001980  4e 4c 44 59 20 23 24 30  30 00 97 21 a2 4e 53 54  |NLDY #$00..!.NST|
00001990  59 20 24 46 42 00 a3 21  ac 4e 53 54 59 20 24 46  |Y $FB..!.NSTY $F|
000019a0  44 00 b0 21 b6 4e 4c 44  41 20 23 24 30 34 00 bc  |D..!.NLDA #$04..|
000019b0  21 c0 4e 53 54 41 20 24  46 45 00 d3 21 ca 4e e1  |!.NSTA $FE..!.N.|
000019c0  4c 4f 4f 50 42 20 4c 44  41 20 28 24 46 42 29 2c  |LOOPB LDA ($FB),|
000019d0  59 00 e3 21 d4 4e 53 54  41 20 28 24 46 44 29 2c  |Y..!.NSTA ($FD),|
000019e0  59 00 eb 21 de 4e 49 4e  59 00 fa 21 e8 4e 42 4e  |Y..!.NINY..!.NBN|
000019f0  45 20 e1 4c 4f 4f 50 42  00 06 22 f2 4e 49 4e 43  |E .LOOPB..".NINC|
00001a00  20 24 46 43 00 12 22 fc  4e 49 4e 43 20 24 46 45  | $FC..".NINC $FE|
00001a10  00 1e 22 06 4f 4c 44 41  20 24 46 45 00 2b 22 10  |..".OLDA $FE.+".|
00001a20  4f 43 4d 50 20 23 24 30  38 00 3a 22 1a 4f 42 4e  |OCMP #$08.:".OBN|
00001a30  45 20 e1 4c 4f 4f 50 42  00 49 22 24 4f e1 dc 20  |E .LOOPB.I"$O.. |
00001a40  4c 44 41 20 24 43 35 00  56 22 2e 4f 43 4d 50 20  |LDA $C5.V".OCMP |
00001a50  23 24 34 30 00 61 22 38  4f 42 4e 45 20 e1 dc 00  |#$40.a"8OBNE ...|
00001a60  71 22 42 4f e1 dc 42 20  4c 44 41 20 24 43 35 00  |q"BO..B LDA $C5.|
00001a70  7e 22 4c 4f 43 4d 50 20  23 24 34 30 00 8a 22 56  |~"LOCMP #$40.."V|
00001a80  4f 42 45 51 20 e1 dc 42  00 92 22 60 4f 54 41 58  |OBEQ ..B.."`OTAX|
00001a90  00 9a 22 6a 4f 50 4c 41  00 a7 22 74 4f 43 50 58  |.."jOPLA.."tOCPX|
00001aa0  20 23 24 30 31 00 b6 22  7e 4f 42 45 51 20 48 4e  | #$01.."~OBEQ HN|
00001ab0  4f 4d b0 45 00 c3 22 88  4f 43 50 58 20 23 24 32  |OM.E..".OCPX #$2|
00001ac0  38 00 cd 22 92 4f 42 45  51 20 82 00 da 22 9c 4f  |8..".OBEQ ...".O|
00001ad0  43 50 58 20 23 24 32 42  00 e7 22 a6 4f 42 45 51  |CPX #$2B..".OBEQ|
00001ae0  20 50 52 45 56 00 f4 22  b0 4f e1 52 45 54 20 50  | PREV..".O.RET P|
00001af0  48 41 00 00 23 ba 4f 4a  4d 50 20 e1 dc 42 00 18  |HA..#.OJMP ..B..|
00001b00  23 c4 4f 48 4e 4f 4d b0  45 20 4a 4d 50 20 43 4f  |#.OHNOM.E JMP CO|
00001b10  4d 45 42 41 43 4b 00 27  23 ce 4f 82 20 43 4d 50  |MEBACK.'#.O. CMP|
00001b20  20 23 24 30 34 00 34 23  d8 4f 42 45 51 20 e1 52  | #$04.4#.OBEQ .R|
00001b30  45 54 00 3c 23 e2 4f 43  4c 43 00 49 23 ec 4f 41  |ET.<#.OCLC.I#.OA|
00001b40  44 43 20 23 24 30 31 00  57 23 f6 4f 4a 4d 50 20  |DC #$01.W#.OJMP |
00001b50  e1 4c 4f 4f 50 00 69 23  00 50 50 52 45 56 20 43  |.LOOP.i#.PPREV C|
00001b60  4d 50 20 23 24 30 30 00  76 23 0a 50 42 45 51 20  |MP #$00.v#.PBEQ |
00001b70  e1 52 45 54 00 7e 23 14  50 53 45 43 00 8b 23 1e  |.RET.~#.PSEC..#.|
00001b80  50 53 42 43 20 23 24 30  31 00 99 23 28 50 4a 4d  |PSBC #$01..#(PJM|
00001b90  50 20 e1 4c 4f 4f 50 00  bf 23 a8 61 3b 20 20 20  |P .LOOP..#.a;   |
00001ba0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001bb0  53 41 56 45 20 52 4f 55  54 49 4e 45 53 00 d2 23  |SAVE ROUTINES..#|
00001bc0  b2 61 a5 41 4d 45 20 54  58 54 20 31 34 37 2c 35  |.a.AME TXT 147,5|
00001bd0  00 e8 23 bc 61 54 58 54  20 22 46 49 4c 45 4e 41  |..#.aTXT "FILENA|
00001be0  4d 45 3a 22 2c 30 00 0f  24 c6 61 a4 52 44 20 54  |ME:",0..$.a.RD T|
00001bf0  58 54 20 31 33 2c 31 33  2c 22 28 54 29 41 50 45  |XT 13,13,"(T)APE|
00001c00  20 4f 52 20 28 44 29 49  53 4b 22 2c 30 00 3d 24  | OR (D)ISK",0.=$|
00001c10  d0 61 b9 54 20 54 58 54  20 31 33 2c 31 33 2c 22  |.a.T TXT 13,13,"|
00001c20  50 4f 53 49 54 49 4f 4e  20 54 41 50 45 20 3c 53  |POSITION TAPE <S|
00001c30  50 41 43 45 3e 22 2c 31  33 2c 30 00 6b 24 da 61  |PACE>",13,0.k$.a|
00001c40  49 4e 53 44 20 54 58 54  20 31 33 2c 31 33 2c 22  |INSD TXT 13,13,"|
00001c50  49 4e 53 45 52 54 20 44  49 53 4b 20 3c 53 50 41  |INSERT DISK <SPA|
00001c60  43 45 3e 22 2c 31 33 2c  30 00 80 24 e4 61 50 53  |CE>",13,0..$.aPS|
00001c70  54 52 49 4e 47 20 4c 44  59 20 23 24 30 30 00 98  |TRING LDY #$00..|
00001c80  24 ee 61 50 53 54 52 4c  4f 50 20 4c 44 41 20 28  |$.aPSTRLOP LDA (|
00001c90  24 46 42 29 2c 59 00 a9  24 f8 61 42 45 51 20 50  |$FB),Y..$.aBEQ P|
00001ca0  53 54 52 51 55 49 54 00  b7 24 02 62 4a 53 52 20  |STRQUIT..$.bJSR |
00001cb0  4f 55 54 44 4f 00 bf 24  07 62 49 4e 59 00 cf 24  |OUTDO..$.bINY..$|
00001cc0  0c 62 4a 4d 50 20 50 53  54 52 4c 4f 50 00 e0 24  |.bJMP PSTRLOP..$|
00001cd0  16 62 50 53 54 52 51 55  49 54 20 52 54 53 00 f5  |.bPSTRQUIT RTS..|
00001ce0  24 20 62 91 4f 46 46 20  4c 44 41 20 24 30 34 30  |$ b.OFF LDA $040|
00001cf0  41 2c 59 00 01 25 2a 62  45 b0 20 23 24 38 30 00  |A,Y..%*bE. #$80.|
00001d00  11 25 34 62 53 54 41 20  24 30 34 30 41 2c 59 00  |.%4bSTA $040A,Y.|
00001d10  19 25 3e 62 52 54 53 00  28 25 48 62 a1 dc 20 4c  |.%>bRTS.(%Hb.. L|
00001d20  44 41 20 24 43 35 00 35  25 52 62 43 4d 50 20 23  |DA $C5.5%RbCMP #|
00001d30  24 34 30 00 40 25 5c 62  42 4e 45 20 a1 dc 00 50  |$40.@%\bBNE ...P|
00001d40  25 66 62 a1 dc 42 20 4c  44 41 20 24 43 35 00 5d  |%fb..B LDA $C5.]|
00001d50  25 70 62 43 4d 50 20 23  24 34 30 00 69 25 7a 62  |%pbCMP #$40.i%zb|
00001d60  42 45 51 20 a1 dc 42 00  71 25 84 62 54 41 58 00  |BEQ ..B.q%.bTAX.|
00001d70  7e 25 8e 62 4c 44 41 20  dc d4 2c 58 00 89 25 98  |~%.bLDA ..,X..%.|
00001d80  62 42 45 51 20 a1 dc 00  91 25 a2 62 52 54 53 00  |bBEQ ....%.bRTS.|
00001d90  a4 25 ac 62 e4 20 4a 53  52 20 48 49 52 45 53 4f  |.%.b. JSR HIRESO|
00001da0  46 46 00 b1 25 b6 62 4c  44 58 20 23 24 30 30 00  |FF..%.bLDX #$00.|
00001db0  be 25 c0 62 4c 44 41 20  23 24 32 30 00 d4 25 ca  |.%.bLDA #$20..%.|
00001dc0  62 a5 41 4d 45 9c 20 53  54 41 20 24 34 31 46 30  |b.AME. STA $41F0|
00001dd0  2c 58 00 dc 25 d4 62 49  4e 58 00 e9 25 de 62 43  |,X..%.bINX..%.bC|
00001de0  50 58 20 23 24 31 30 00  f7 25 e8 62 42 4e 45 20  |PX #$10..%.bBNE |
00001df0  a5 41 4d 45 9c 00 06 26  f2 62 4c 44 41 20 23 b3  |.AME...&.bLDA #.|
00001e00  a5 41 4d 45 00 12 26 fc  62 53 54 41 20 24 46 42  |.AME..&.bSTA $FB|
00001e10  00 21 26 06 63 4c 44 41  20 23 b1 a5 41 4d 45 00  |.!&.cLDA #..AME.|
00001e20  2d 26 10 63 53 54 41 20  24 46 43 00 3d 26 1a 63  |-&.cSTA $FC.=&.c|
00001e30  4a 53 52 20 50 53 54 52  49 4e 47 00 4a 26 24 63  |JSR PSTRING.J&$c|
00001e40  4c 44 41 20 23 24 30 30  00 52 26 2e 63 50 48 41  |LDA #$00.R&.cPHA|
00001e50  00 60 26 38 63 e4 4c 4f  4f 50 20 54 41 59 00 6d  |.`&8c.LOOP TAY.m|
00001e60  26 3d 63 4a 53 52 20 91  4f 46 46 00 78 26 42 63  |&=cJSR .OFF.x&Bc|
00001e70  4a 53 52 20 a1 dc 00 80  26 47 63 50 48 41 00 8d  |JSR ....&GcPHA..|
00001e80  26 4c 63 4a 53 52 20 91  4f 46 46 00 95 26 51 63  |&LcJSR .OFF..&Qc|
00001e90  50 4c 41 00 a2 26 56 63  43 4d 50 20 23 24 38 30  |PLA..&VcCMP #$80|
00001ea0  00 b1 26 60 63 42 43 53  20 44 45 43 4f 44 45 00  |..&`cBCS DECODE.|
00001eb0  b9 26 6a 63 54 41 59 00  c1 26 74 63 50 4c 41 00  |.&jcTAY..&tcPLA.|
00001ec0  c9 26 7e 63 54 41 58 00  d1 26 88 63 54 59 41 00  |.&~cTAX..&.cTYA.|
00001ed0  e1 26 92 63 53 54 41 20  24 30 34 30 41 2c 58 00  |.&.cSTA $040A,X.|
00001ee0  ee 26 9c 63 43 4d 50 20  23 24 32 30 00 fc 26 a6  |.&.cCMP #$20..&.|
00001ef0  63 42 43 53 20 4e 4f 53  50 43 00 04 27 b0 63 43  |cBCS NOSPC..'.cC|
00001f00  4c 43 00 11 27 ba 63 41  44 43 20 23 24 34 30 00  |LC..'.cADC #$40.|
00001f10  27 27 c4 63 4e 4f 53 50  43 20 53 54 41 20 24 34  |''.cNOSPC STA $4|
00001f20  31 46 30 2c 58 00 39 27  ce 63 49 4e 43 b9 20 43  |1F0,X.9'.cINC. C|
00001f30  50 58 20 23 24 30 46 00  48 27 d8 63 42 45 51 20  |PX #$0F.H'.cBEQ |
00001f40  e4 52 45 4c 4f 50 00 50  27 e2 63 49 4e 58 00 5f  |.RELOP.P'.cINX._|
00001f50  27 ec 63 e4 52 45 4c 4f  50 20 54 58 41 00 67 27  |'.c.RELOP TXA.g'|
00001f60  f1 63 50 48 41 00 75 27  f6 63 4a 4d 50 20 e4 4c  |.cPHA.u'.cJMP .L|
00001f70  4f 4f 50 00 89 27 00 64  44 45 43 4f 44 45 20 43  |OOP..'.dDECODE C|
00001f80  4d 50 20 23 24 38 30 00  94 27 0a 64 42 45 51 20  |MP #$80..'.dBEQ |
00001f90  e4 9a 00 a1 27 14 64 43  4d 50 20 23 24 38 31 00  |....'.dCMP #$81.|
00001fa0  ab 27 1e 64 42 45 51 20  d1 00 b8 27 28 64 43 4d  |.'.dBEQ ...'(dCM|
00001fb0  50 20 23 24 38 32 00 c6  27 32 64 42 4e 45 20 e4  |P #$82..'2dBNE .|
00001fc0  4c 4f 4f 50 00 ce 27 3c  64 50 4c 41 00 d6 27 46  |LOOP..'<dPLA..'F|
00001fd0  64 54 41 58 00 e4 27 50  64 4c 44 41 20 24 30 32  |dTAX..'PdLDA $02|
00001fe0  38 33 00 ef 27 5a 64 af  20 23 24 30 31 00 fc 27  |83..'Zd. #$01..'|
00001ff0  64 64 42 45 51 20 49 4e  43 b9 00 0e 28 6e 64 44  |ddBEQ INC...(ndD|
00002000  45 43 b9 20 43 50 58 20  23 24 30 30 00 1d 28 78  |EC. CPX #$00..(x|
00002010  64 42 45 51 20 e4 52 45  4c 4f 50 00 25 28 82 64  |dBEQ .RELOP.%(.d|
00002020  44 45 58 00 34 28 8c 64  4a 4d 50 20 e4 52 45 4c  |DEX.4(.dJMP .REL|
00002030  4f 50 00 3e 28 96 64 d1  20 50 4c 41 00 46 28 a0  |OP.>(.d. PLA.F(.|
00002040  64 54 41 58 00 53 28 aa  64 4c 44 41 20 23 24 32  |dTAX.S(.dLDA #$2|
00002050  30 00 63 28 b4 64 53 54  41 20 24 30 34 30 41 2c  |0.c(.dSTA $040A,|
00002060  58 00 73 28 be 64 53 54  41 20 24 34 31 46 30 2c  |X.s(.dSTA $41F0,|
00002070  58 00 80 28 c8 64 4a 4d  50 20 44 45 43 b9 00 8b  |X..(.dJMP DEC...|
00002080  28 d2 64 e4 9a 20 50 4c  41 00 99 28 d7 64 4c 44  |(.d.. PLA..(.dLD|
00002090  41 20 23 b3 a4 52 44 00  a5 28 dc 64 53 54 41 20  |A #..RD..(.dSTA |
000020a0  24 46 42 00 b3 28 e6 64  4c 44 41 20 23 b1 a4 52  |$FB..(.dLDA #..R|
000020b0  44 00 bf 28 f0 64 53 54  41 20 24 46 43 00 cf 28  |D..(.dSTA $FC..(|
000020c0  fa 64 4a 53 52 20 50 53  54 52 49 4e 47 00 dc 28  |.dJSR PSTRING..(|
000020d0  04 65 e3 20 4a 53 52 20  a1 dc 00 e9 28 0e 65 43  |.e. JSR ....(.eC|
000020e0  4d 50 20 23 24 31 34 00  f7 28 18 65 42 45 51 20  |MP #$14..(.eBEQ |
000020f0  54 41 50 45 e4 00 04 29  22 65 43 4d 50 20 23 24  |TAPE...)"eCMP #$|
00002100  30 34 00 12 29 2c 65 42  45 51 20 44 49 53 4b e4  |04..),eBEQ DISK.|
00002110  00 1c 29 36 65 4a 4d 50  20 e3 00 2f 29 40 65 54  |..)6eJMP ../)@eT|
00002120  41 50 45 e4 20 4c 44 41  20 23 b3 b9 54 00 3b 29  |APE. LDA #..T.;)|
00002130  4a 65 53 54 41 20 24 46  42 00 48 29 54 65 4c 44  |JeSTA $FB.H)TeLD|
00002140  41 20 23 b1 b9 54 00 54  29 5e 65 53 54 41 20 24  |A #..T.T)^eSTA $|
00002150  46 43 00 64 29 68 65 4a  53 52 20 50 53 54 52 49  |FC.d)heJSR PSTRI|
00002160  4e 47 00 71 29 72 65 4c  44 58 20 23 24 30 31 00  |NG.q)reLDX #$01.|
00002170  7f 29 7c 65 4a 4d 50 20  54 41 50 45 9a 00 94 29  |.)|eJMP TAPE...)|
00002180  86 65 44 49 53 4b e4 20  4c 44 41 20 23 b3 49 4e  |.eDISK. LDA #.IN|
00002190  53 44 00 a0 29 90 65 53  54 41 20 24 46 42 00 af  |SD..).eSTA $FB..|
000021a0  29 9a 65 4c 44 41 20 23  b1 49 4e 53 44 00 bb 29  |).eLDA #.INSD..)|
000021b0  a4 65 53 54 41 20 24 46  43 00 cb 29 ae 65 4a 53  |.eSTA $FC..).eJS|
000021c0  52 20 50 53 54 52 49 4e  47 00 d8 29 b8 65 4c 44  |R PSTRING..).eLD|
000021d0  58 20 23 24 30 38 00 ea  29 c2 65 54 41 50 45 9a  |X #$08..).eTAPE.|
000021e0  20 4c 44 41 20 24 43 35  00 f7 29 cc 65 43 4d 50  | LDA $C5..).eCMP|
000021f0  20 23 24 33 43 00 05 2a  d6 65 42 4e 45 20 54 41  | #$3C..*.eBNE TA|
00002200  50 45 9a 00 12 2a e0 65  4c 44 41 20 23 24 30 31  |PE...*.eLDA #$01|
00002210  00 1a 2a ea 65 54 41 59  00 27 2a fe 65 4c 44 58  |..*.eTAY.'*.eLDX|
00002220  20 23 24 31 30 00 3d 2a  08 66 a5 41 4d 45 c3 20  | #$10.=*.f.AME. |
00002230  4c 44 41 20 24 34 31 45  46 2c 58 00 4a 2a 12 66  |LDA $41EF,X.J*.f|
00002240  43 4d 50 20 23 24 32 30  00 59 2a 1c 66 42 4e 45  |CMP #$20.Y*.fBNE|
00002250  20 a5 41 4d 45 cb 54 00  61 2a 26 66 44 45 58 00  | .AME.T.a*&fDEX.|
00002260  70 2a 30 66 42 45 51 20  a5 41 4d 45 cb 54 00 7e  |p*0fBEQ .AME.T.~|
00002270  2a 3a 66 4a 4d 50 20 a5  41 4d 45 c3 00 8d 2a 44  |*:fJMP .AME...*D|
00002280  66 a5 41 4d 45 cb 54 20  54 58 41 00 9a 2a 62 66  |f.AME.T TXA..*bf|
00002290  4c 44 59 20 23 24 34 31  00 a7 2a 6c 66 4a 53 52  |LDY #$41..*lfJSR|
000022a0  20 e8 4e 41 4d 00 b4 2a  76 66 4c 44 41 20 23 24  | .NAM..*vfLDA #$|
000022b0  32 30 00 c0 2a 80 66 53  54 41 20 24 46 43 00 cd  |20..*.fSTA $FC..|
000022c0  2a 8a 66 4c 44 58 20 23  24 30 30 00 d9 2a 94 66  |*.fLDX #$00..*.f|
000022d0  53 54 41 20 24 46 42 00  e6 2a 9e 66 4c 44 59 20  |STA $FB..*.fLDY |
000022e0  23 24 34 30 00 f3 2a a8  66 4c 44 41 20 23 24 46  |#$40..*.fLDA #$F|
000022f0  42 00 00 2b b2 66 4a 53  52 20 e4 52 4f 4d 00 26  |B..+.fJSR .ROM.&|
00002300  2b 78 69 3b 20 20 20 20  20 20 20 20 20 20 20 4b  |+xi;           K|
00002310  45 59 42 4f 41 52 44 20  44 45 43 4f 44 45 20 54  |EYBOARD DECODE T|
00002320  41 42 4c 45 00 2c 2b 82  69 3b 00 43 2b 8c 69 dc  |ABLE.,+.i;.C+.i.|
00002330  d4 20 54 58 54 20 24 38  31 2c 24 38 30 2c 24 38  |. TXT $81,$80,$8|
00002340  32 00 65 2b 96 69 54 58  54 20 30 2c 30 2c 30 2c  |2.e+.iTXT 0,0,0,|
00002350  30 2c 24 38 33 2c 35 31  2c 32 33 2c 31 2c 35 32  |0,$83,51,23,1,52|
00002360  2c 32 36 00 89 2b a0 69  54 58 54 20 31 39 2c 35  |,26..+.iTXT 19,5|
00002370  2c 30 2c 35 33 2c 31 38  2c 34 2c 35 34 2c 33 2c  |,0,53,18,4,54,3,|
00002380  36 2c 32 30 2c 32 34 00  ae 2b aa 69 54 58 54 20  |6,20,24..+.iTXT |
00002390  35 35 2c 32 35 2c 37 2c  35 36 2c 32 2c 38 2c 32  |55,25,7,56,2,8,2|
000023a0  31 2c 32 32 2c 35 37 2c  39 2c 31 30 00 d4 2b b4  |1,22,57,9,10..+.|
000023b0  69 54 58 54 20 34 38 2c  31 33 2c 31 31 2c 31 35  |iTXT 48,13,11,15|
000023c0  2c 31 34 2c 34 33 2c 31  36 2c 31 32 2c 34 35 2c  |,14,43,16,12,45,|
000023d0  34 36 00 f8 2b be 69 54  58 54 20 30 2c 30 2c 34  |46..+.iTXT 0,0,4|
000023e0  34 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 33 30  |4,0,0,0,0,0,0,30|
000023f0  2c 34 37 2c 34 39 00 14  2c c8 69 54 58 54 20 33  |,47,49..,.iTXT 3|
00002400  31 2c 30 2c 35 30 2c 33  32 2c 30 2c 31 37 2c 30  |1,0,50,32,0,17,0|
00002410  2c 30 00 38 2c 30 75 3b  20 20 20 20 20 20 20 20  |,0.8,0u;        |
00002420  20 20 4d af 4c 45 42 52  4f 54 20 53 45 54 20 50  |  M.LEBROT SET P|
00002430  4c 4f 54 54 45 52 00 45  2c 3a 75 4d af 4c 45 20  |LOTTER.E,:uM.LE |
00002440  53 45 49 00 52 2c 3f 75  4c 44 41 20 23 24 30 30  |SEI.R,?uLDA #$00|
00002450  00 61 2c 44 75 53 54 41  20 59 50 49 58 45 4c 00  |.a,DuSTA YPIXEL.|
00002460  6e 2c 4e 75 4c 44 41 20  23 24 30 33 00 7c 2c 58  |n,NuLDA #$03.|,X|
00002470  75 53 54 41 20 24 34 31  30 30 00 89 2c 62 75 4c  |uSTA $4100..,buL|
00002480  44 41 20 23 24 30 36 00  97 2c 6c 75 53 54 41 20  |DA #$06..,luSTA |
00002490  24 34 31 30 32 00 a5 2c  76 75 4a 53 52 20 45 51  |$4102..,vuJSR EQ|
000024a0  55 41 4c 00 b9 2c 80 75  4d 4d 41 49 4e 4c 20 4c  |UAL..,.uMMAINL L|
000024b0  44 41 20 23 24 30 30 00  c8 2c 8a 75 53 54 41 20  |DA #$00..,.uSTA |
000024c0  58 50 49 58 45 4c 00 d5  2c 94 75 4c 44 41 20 23  |XPIXEL..,.uLDA #|
000024d0  24 30 31 00 e3 2c 9e 75  53 54 41 20 24 34 31 30  |$01..,.uSTA $410|
000024e0  30 00 f0 2c a8 75 4c 44  41 20 23 24 30 35 00 fe  |0..,.uLDA #$05..|
000024f0  2c b2 75 53 54 41 20 24  34 31 30 32 00 0c 2d bc  |,.uSTA $4102..-.|
00002500  75 4a 53 52 20 45 51 55  41 4c 00 21 2d c6 75 4d  |uJSR EQUAL.!-.uM|
00002510  4d 41 49 4e 4c 42 20 4c  44 41 20 23 24 30 35 00  |MAINLB LDA #$05.|
00002520  2f 2d d0 75 53 54 41 20  24 34 31 30 30 00 3c 2d  |/-.uSTA $4100.<-|
00002530  da 75 4c 44 41 20 23 24  30 37 00 4a 2d e4 75 53  |.uLDA #$07.J-.uS|
00002540  54 41 20 24 34 31 30 32  00 58 2d ee 75 4a 53 52  |TA $4102.X-.uJSR|
00002550  20 45 51 55 41 4c 00 66  2d f8 75 49 4e 43 20 24  | EQUAL.f-.uINC $|
00002560  34 31 30 30 00 74 2d 02  76 49 4e 43 20 24 34 31  |4100.t-.vINC $41|
00002570  30 32 00 82 2d 0c 76 4a  53 52 20 45 51 55 41 4c  |02..-.vJSR EQUAL|
00002580  00 8f 2d 16 76 4c 44 41  20 23 24 30 30 00 9e 2d  |..-.vLDA #$00..-|
00002590  20 76 53 54 41 20 43 4f  4c 4f 55 52 00 b0 2d 2a  | vSTA COLOUR..-*|
000025a0  76 4c 4f 4f 50 20 4c 44  41 20 23 24 30 37 00 be  |vLOOP LDA #$07..|
000025b0  2d 34 76 53 54 41 20 24  34 31 30 30 00 cc 2d 3e  |-4vSTA $4100..->|
000025c0  76 53 54 41 20 24 34 31  30 31 00 d9 2d 48 76 4c  |vSTA $4101..-HvL|
000025d0  44 41 20 23 24 31 30 00  e7 2d 52 76 53 54 41 20  |DA #$10..-RvSTA |
000025e0  24 34 31 30 32 00 f8 2d  5c 76 4a 53 52 20 4d 55  |$4102..-\vJSR MU|
000025f0  4c 54 49 50 4c 59 00 05  2e 66 76 4c 44 41 20 23  |LTIPLY...fvLDA #|
00002600  24 30 38 00 13 2e 70 76  53 54 41 20 24 34 31 30  |$08...pvSTA $410|
00002610  30 00 21 2e 7a 76 53 54  41 20 24 34 31 30 31 00  |0.!.zvSTA $4101.|
00002620  2e 2e 84 76 4c 44 41 20  23 24 31 31 00 3c 2e 8e  |...vLDA #$11.<..|
00002630  76 53 54 41 20 24 34 31  30 32 00 4d 2e 98 76 4a  |vSTA $4102.M..vJ|
00002640  53 52 20 4d 55 4c 54 49  50 4c 59 00 5a 2e a2 76  |SR MULTIPLY.Z..v|
00002650  4c 44 58 20 23 24 31 30  00 68 2e ac 76 53 54 58  |LDX #$10.h..vSTX|
00002660  20 24 34 31 30 30 00 70  2e b6 76 49 4e 58 00 7e  | $4100.p..vINX.~|
00002670  2e c0 76 53 54 58 20 24  34 31 30 31 00 86 2e ca  |..vSTX $4101....|
00002680  76 49 4e 58 00 94 2e d4  76 53 54 58 20 24 34 31  |vINX....vSTX $41|
00002690  30 32 00 a4 2e de 76 4a  53 52 20 41 44 44 49 54  |02....vJSR ADDIT|
000026a0  49 91 00 b2 2e e8 76 4c  44 41 20 24 34 30 39 31  |I.....vLDA $4091|
000026b0  00 bf 2e f2 76 43 4d 50  20 23 24 30 34 00 cc 2e  |....vCMP #$04...|
000026c0  fc 76 42 43 43 20 46 41  49 4c 00 d9 2e 06 77 43  |.vBCC FAIL....wC|
000026d0  4d 50 20 23 24 35 30 00  e6 2e 10 77 42 43 53 20  |MP #$50....wBCS |
000026e0  46 41 49 4c 00 fe 2e 1a  77 53 55 43 50 41 53 53  |FAIL....wSUCPASS|
000026f0  20 4a 4d 50 20 53 55 43  43 45 53 53 00 12 2f 24  | JMP SUCCESS../$|
00002700  77 46 41 49 4c 20 49 4e  43 20 43 4f 4c 4f 55 52  |wFAIL INC COLOUR|
00002710  00 21 2f 29 77 4c 44 41  20 43 4f 4c 4f 55 52 00  |.!/)wLDA COLOUR.|
00002720  30 2f 2e 77 43 4d 50 20  4d 41 58 43 4f 4c 00 40  |0/.wCMP MAXCOL.@|
00002730  2f 38 77 42 45 51 20 53  55 43 50 41 53 53 00 51  |/8wBEQ SUCPASS.Q|
00002740  2f 42 77 4a 53 52 20 53  55 42 54 52 41 43 54 00  |/BwJSR SUBTRACT.|
00002750  5e 2f 4c 77 4c 44 41 20  23 24 31 32 00 6c 2f 56  |^/LwLDA #$12.l/V|
00002760  77 53 54 41 20 24 34 31  30 30 00 79 2f 60 77 4c  |wSTA $4100.y/`wL|
00002770  44 41 20 23 24 30 35 00  87 2f 6a 77 53 54 41 20  |DA #$05../jwSTA |
00002780  24 34 31 30 31 00 94 2f  74 77 4c 44 41 20 23 24  |$4101../twLDA #$|
00002790  31 33 00 a2 2f 7e 77 53  54 41 20 24 34 31 30 32  |13../~wSTA $4102|
000027a0  00 b2 2f 88 77 4a 53 52  20 41 44 44 49 54 49 91  |../.wJSR ADDITI.|
000027b0  00 bf 2f 92 77 4c 44 41  20 23 24 30 37 00 cd 2f  |../.wLDA #$07../|
000027c0  9c 77 53 54 41 20 24 34  31 30 30 00 da 2f a6 77  |.wSTA $4100../.w|
000027d0  4c 44 41 20 23 24 30 38  00 e8 2f b0 77 53 54 41  |LDA #$08../.wSTA|
000027e0  20 24 34 31 30 31 00 f6  2f ba 77 49 4e 43 20 24  | $4101../.wINC $|
000027f0  34 31 30 32 00 07 30 c4  77 4a 53 52 20 4d 55 4c  |4102..0.wJSR MUL|
00002800  54 49 50 4c 59 00 14 30  ce 77 4c 44 41 20 23 24  |TIPLY..0.wLDA #$|
00002810  31 34 00 22 30 d8 77 53  54 41 20 24 34 31 30 30  |14."0.wSTA $4100|
00002820  00 2f 30 e2 77 4c 44 41  20 23 24 31 43 00 3d 30  |./0.wLDA #$1C.=0|
00002830  ec 77 53 54 41 20 24 34  31 30 31 00 4a 30 f6 77  |.wSTA $4101.J0.w|
00002840  4c 44 41 20 23 24 31 35  00 58 30 00 78 53 54 41  |LDA #$15.X0.xSTA|
00002850  20 24 34 31 30 32 00 69  30 0a 78 4a 53 52 20 4d  | $4102.i0.xJSR M|
00002860  55 4c 54 49 50 4c 59 00  76 30 14 78 4c 44 41 20  |ULTIPLY.v0.xLDA |
00002870  23 24 31 35 00 84 30 1e  78 53 54 41 20 24 34 31  |#$15..0.xSTA $41|
00002880  30 30 00 91 30 28 78 4c  44 41 20 23 24 30 36 00  |00..0(xLDA #$06.|
00002890  9f 30 32 78 53 54 41 20  24 34 31 30 31 00 ac 30  |.02xSTA $4101..0|
000028a0  3c 78 4c 44 41 20 23 24  31 36 00 ba 30 46 78 53  |<xLDA #$16..0FxS|
000028b0  54 41 20 24 34 31 30 32  00 ca 30 50 78 4a 53 52  |TA $4102..0PxJSR|
000028c0  20 41 44 44 49 54 49 91  00 d7 30 5a 78 4c 44 41  | ADDITI...0ZxLDA|
000028d0  20 23 24 31 33 00 e5 30  64 78 53 54 41 20 24 34  | #$13..0dxSTA $4|
000028e0  31 30 30 00 f2 30 6e 78  4c 44 41 20 23 24 30 37  |100..0nxLDA #$07|
000028f0  00 00 31 78 78 53 54 41  20 24 34 31 30 32 00 0e  |..1xxSTA $4102..|
00002900  31 82 78 4a 53 52 20 45  51 55 41 4c 00 1b 31 8c  |1.xJSR EQUAL..1.|
00002910  78 4c 44 41 20 23 24 31  36 00 29 31 96 78 53 54  |xLDA #$16.)1.xST|
00002920  41 20 24 34 31 30 30 00  36 31 a0 78 4c 44 41 20  |A $4100.61.xLDA |
00002930  23 24 30 38 00 44 31 aa  78 53 54 41 20 24 34 31  |#$08.D1.xSTA $41|
00002940  30 32 00 52 31 b4 78 4a  53 52 20 45 51 55 41 4c  |02.R1.xJSR EQUAL|
00002950  00 5f 31 be 78 4a 4d 50  20 4c 4f 4f 50 00 74 31  |._1.xJMP LOOP.t1|
00002960  c8 78 53 55 43 43 45 53  53 20 4a 53 52 20 50 4c  |.xSUCCESS JSR PL|
00002970  4f 54 00 81 31 d2 78 4c  44 41 20 23 24 30 35 00  |OT..1.xLDA #$05.|
00002980  8f 31 dc 78 53 54 41 20  24 34 31 30 30 00 9d 31  |.1.xSTA $4100..1|
00002990  e6 78 53 54 41 20 24 34  31 30 32 00 aa 31 f0 78  |.xSTA $4102..1.x|
000029a0  4c 44 41 20 23 24 30 32  00 b8 31 fa 78 53 54 41  |LDA #$02..1.xSTA|
000029b0  20 24 34 31 30 31 00 c8  31 04 79 4a 53 52 20 41  | $4101..1.yJSR A|
000029c0  44 44 49 54 49 91 00 d7  31 0e 79 4c 44 41 20 58  |DDITI...1.yLDA X|
000029d0  50 49 58 45 4c 00 e6 31  18 79 42 4e 45 20 58 52  |PIXEL..1.yBNE XR|
000029e0  45 4c 4f 50 00 f3 31 22  79 4c 44 41 20 23 24 30  |ELOP..1"yLDA #$0|
000029f0  36 00 01 32 2c 79 53 54  41 20 24 34 31 30 30 00  |6..2,ySTA $4100.|
00002a00  0f 32 36 79 53 54 41 20  24 34 31 30 32 00 1c 32  |.26ySTA $4102..2|
00002a10  40 79 4c 44 41 20 23 24  30 34 00 2a 32 4a 79 53  |@yLDA #$04.*2JyS|
00002a20  54 41 20 24 34 31 30 31  00 3a 32 54 79 4a 53 52  |TA $4101.:2TyJSR|
00002a30  20 41 44 44 49 54 49 91  00 49 32 5e 79 49 4e 43  | ADDITI..I2^yINC|
00002a40  20 59 50 49 58 45 4c 00  58 32 68 79 4c 44 41 20  | YPIXEL.X2hyLDA |
00002a50  59 50 49 58 45 4c 00 65  32 72 79 43 4d 50 20 23  |YPIXEL.e2ryCMP #|
00002a60  24 43 38 00 74 32 7c 79  42 4e 45 20 59 52 45 4c  |$C8.t2|yBNE YREL|
00002a70  4f 50 00 7c 32 81 79 43  4c 49 00 84 32 86 79 52  |OP.|2.yCLI..2.yR|
00002a80  54 53 00 9b 32 90 79 58  52 45 4c 4f 50 20 4a 4d  |TS..2.yXRELOP JM|
00002a90  50 20 4d 4d 41 49 4e 4c  42 00 b1 32 9a 79 59 52  |P MMAINLB..2.yYR|
00002aa0  45 4c 4f 50 20 4a 4d 50  20 4d 4d 41 49 4e 4c 00  |ELOP JMP MMAINL.|
00002ab0  c5 32 e0 79 4d af 50 4c  4f 54 20 4a 53 52 20 4d  |.2.yM.PLOT JSR M|
00002ac0  af 4c 45 00 d4 32 ea 79  4a 4d 50 20 9a 52 4f 4c  |.LE..2.yJMP .ROL|
00002ad0  4f 50 00 fa 32 b8 88 3b  20 20 20 20 20 20 20 20  |OP..2..;        |
00002ae0  20 20 20 20 20 20 20 20  20 43 4f 4c 4f 55 52 20  |         COLOUR |
00002af0  52 4f 55 54 49 4e 45 53  00 0d 33 c2 88 e8 43 4f  |ROUTINES..3...CO|
00002b00  4c 53 20 4c 44 41 20 43  4f 4c 30 00 1b 33 cc 88  |LS LDA COL0..3..|
00002b10  53 54 41 20 24 44 30 32  31 00 28 33 d6 88 4c 44  |STA $D021.(3..LD|
00002b20  59 20 23 24 30 30 00 34  33 e0 88 53 54 59 20 24  |Y #$00.43..STY $|
00002b30  46 42 00 41 33 ea 88 4c  44 41 20 23 24 44 38 00  |FB.A3..LDA #$D8.|
00002b40  4d 33 f4 88 53 54 41 20  24 46 43 00 5a 33 fe 88  |M3..STA $FC.Z3..|
00002b50  4c 44 41 20 43 4f 4c 33  00 71 33 08 89 e8 43 4c  |LDA COL3.q3...CL|
00002b60  4f 50 41 20 53 54 41 20  28 24 46 42 29 2c 59 00  |OPA STA ($FB),Y.|
00002b70  79 33 12 89 49 4e 59 00  88 33 1c 89 42 4e 45 20  |y3..INY..3..BNE |
00002b80  e8 43 4c 4f 50 41 00 94  33 26 89 49 4e 43 20 24  |.CLOPA..3&.INC $|
00002b90  46 43 00 a0 33 30 89 4c  44 58 20 24 46 43 00 ad  |FC..30.LDX $FC..|
00002ba0  33 3a 89 43 50 58 20 23  24 44 43 00 bc 33 44 89  |3:.CPX #$DC..3D.|
00002bb0  42 4e 45 20 e8 43 4c 4f  50 41 00 c9 33 4e 89 4c  |BNE .CLOPA..3N.L|
00002bc0  44 41 20 23 24 30 34 00  d5 33 58 89 53 54 41 20  |DA #$04..3X.STA |
00002bd0  24 46 43 00 e2 33 62 89  4c 44 41 20 43 4f 4c 31  |$FC..3b.LDA COL1|
00002be0  00 ec 33 6c 89 41 53 4c  20 41 00 f6 33 76 89 41  |..3l.ASL A..3v.A|
00002bf0  53 4c 20 41 00 00 34 80  89 41 53 4c 20 41 00 0a  |SL A..4..ASL A..|
00002c00  34 8a 89 41 53 4c 20 41  00 16 34 94 89 b0 41 20  |4..ASL A..4...A |
00002c10  43 4f 4c 32 00 2d 34 9e  89 e8 43 4c 4f 50 42 20  |COL2.-4...CLOPB |
00002c20  53 54 41 20 28 24 46 42  29 2c 59 00 35 34 a8 89  |STA ($FB),Y.54..|
00002c30  49 4e 59 00 44 34 b2 89  42 45 51 20 e8 43 4c 4f  |INY.D4..BEQ .CLO|
00002c40  50 43 00 51 34 bc 89 43  50 59 20 23 24 46 38 00  |PC.Q4..CPY #$F8.|
00002c50  60 34 c6 89 42 4e 45 20  e8 43 4c 4f 50 42 00 6c  |`4..BNE .CLOPB.l|
00002c60  34 d0 89 4c 44 58 20 24  46 43 00 79 34 da 89 43  |4..LDX $FC.y4..C|
00002c70  50 58 20 23 24 30 37 00  88 34 e4 89 42 4e 45 20  |PX #$07..4..BNE |
00002c80  e8 43 4c 4f 50 42 00 90  34 ee 89 52 54 53 00 a3  |.CLOPB..4..RTS..|
00002c90  34 f8 89 e8 43 4c 4f 50  43 20 49 4e 43 20 24 46  |4...CLOPC INC $F|
00002ca0  43 00 b2 34 02 8a 4a 4d  50 20 e8 43 4c 4f 50 42  |C..4..JMP .CLOPB|
00002cb0  00 c6 34 0c 8a 43 4f 4c  43 92 20 4c 44 41 20 d5  |..4..COLC. LDA .|
00002cc0  54 49 4d 45 00 ce 34 16  8a 43 4c 43 00 dc 34 20  |TIME..4..CLC..4 |
00002cd0  8a 41 44 43 20 53 50 45  45 44 00 ea 34 2a 8a 53  |.ADC SPEED..4*.S|
00002ce0  54 41 20 d5 54 49 4d 45  00 fe 34 34 8a 43 4f 4c  |TA .TIME..44.COL|
00002cf0  43 4c 4f 50 20 43 4d 50  20 24 41 32 00 0e 35 3e  |CLOP CMP $A2..5>|
00002d00  8a 42 4e 45 20 43 4f 4c  43 4c 4f 50 00 16 35 48  |.BNE COLCLOP..5H|
00002d10  8a 52 54 53 00 29 35 52  8a 43 4f 4c 43 dc 53 20  |.RTS.)5R.COLC.S |
00002d20  4c 44 41 20 24 43 35 00  36 35 5c 8a 43 4d 50 20  |LDA $C5.65\.CMP |
00002d30  23 24 32 38 00 43 35 66  8a 42 45 51 20 53 50 55  |#$28.C5f.BEQ SPU|
00002d40  50 00 50 35 70 8a 43 4d  50 20 23 24 32 42 00 5d  |P.P5p.CMP #$2B.]|
00002d50  35 7a 8a 42 45 51 20 53  4c 44 4e 00 6a 35 84 8a  |5z.BEQ SLDN.j5..|
00002d60  43 4d 50 20 23 24 30 31  00 7a 35 8e 8a 42 45 51  |CMP #$01.z5..BEQ|
00002d70  20 43 4f 4c 43 4f 46 46  00 86 35 98 8a 4e 4f dc  | COLCOFF..5..NO.|
00002d80  20 52 54 53 00 96 35 a2  8a 43 4f 4c 43 4f 46 46  | RTS..5..COLCOFF|
00002d90  20 50 4c 41 00 9e 35 ac  8a 50 4c 41 00 af 35 b6  | PLA..5..PLA..5.|
00002da0  8a 4a 4d 50 20 43 4f 4d  45 42 41 43 4b 00 c2 35  |.JMP COMEBACK..5|
00002db0  c0 8a 53 50 55 50 20 4c  44 41 20 53 50 45 45 44  |..SPUP LDA SPEED|
00002dc0  00 ce 35 ca 8a 42 45 51  20 4e 4f dc 00 dc 35 d4  |..5..BEQ NO...5.|
00002dd0  8a 44 45 43 20 53 50 45  45 44 00 e4 35 de 8a 52  |.DEC SPEED..5..R|
00002de0  54 53 00 f7 35 e8 8a 53  4c 44 4e 20 4c 44 41 20  |TS..5..SLDN LDA |
00002df0  53 50 45 45 44 00 04 36  f2 8a 43 4d 50 20 23 24  |SPEED..6..CMP #$|
00002e00  31 39 00 10 36 fc 8a 42  45 51 20 4e 4f dc 00 1e  |19..6..BEQ NO...|
00002e10  36 06 8b 49 4e 43 20 53  50 45 45 44 00 26 36 10  |6..INC SPEED.&6.|
00002e20  8b 52 54 53 00 3c 36 1a  8b 43 4f 4c 43 59 43 4c  |.RTS.<6..COLCYCL|
00002e30  45 20 4c 44 41 20 23 24  30 41 00 4a 36 24 8b 53  |E LDA #$0A.J6$.S|
00002e40  54 41 20 53 50 45 45 44  00 56 36 2e 8b 4c 44 41  |TA SPEED.V6..LDA|
00002e50  20 24 41 32 00 64 36 38  8b 53 54 41 20 d5 54 49  | $A2.d68.STA .TI|
00002e60  4d 45 00 7c 36 42 8b 43  4f 4c 43 59 43 4c 4f 50  |ME.|6B.COLCYCLOP|
00002e70  20 4c 44 41 20 43 4f 4c  30 53 00 89 36 4c 8b 53  | LDA COL0S..6L.S|
00002e80  54 41 20 43 4f 4c 30 00  97 36 56 8b 4c 44 41 20  |TA COL0..6V.LDA |
00002e90  43 4f 4c 31 53 00 a4 36  60 8b 53 54 41 20 43 4f  |COL1S..6`.STA CO|
00002ea0  4c 31 00 b2 36 6a 8b 4c  44 41 20 43 4f 4c 32 53  |L1..6j.LDA COL2S|
00002eb0  00 bf 36 74 8b 53 54 41  20 43 4f 4c 32 00 cd 36  |..6t.STA COL2..6|
00002ec0  7e 8b 4c 44 41 20 43 4f  4c 33 53 00 da 36 88 8b  |~.LDA COL3S..6..|
00002ed0  53 54 41 20 43 4f 4c 33  00 e8 36 92 8b 4a 53 52  |STA COL3..6..JSR|
00002ee0  20 e8 43 4f 4c 53 00 f7  36 9c 8b 4a 53 52 20 43  | .COLS..6..JSR C|
00002ef0  4f 4c 43 dc 53 00 05 37  a6 8b 4a 53 52 20 43 4f  |OLC.S..7..JSR CO|
00002f00  4c 43 92 00 13 37 b0 8b  4c 44 41 20 43 4f 4c 33  |LC...7..LDA COL3|
00002f10  53 00 20 37 ba 8b 53 54  41 20 43 4f 4c 30 00 2e  |S. 7..STA COL0..|
00002f20  37 c4 8b 4c 44 41 20 43  4f 4c 30 53 00 3b 37 ce  |7..LDA COL0S.;7.|
00002f30  8b 53 54 41 20 43 4f 4c  31 00 49 37 d8 8b 4c 44  |.STA COL1.I7..LD|
00002f40  41 20 43 4f 4c 31 53 00  56 37 e2 8b 53 54 41 20  |A COL1S.V7..STA |
00002f50  43 4f 4c 32 00 64 37 ec  8b 4c 44 41 20 43 4f 4c  |COL2.d7..LDA COL|
00002f60  32 53 00 71 37 f6 8b 53  54 41 20 43 4f 4c 33 00  |2S.q7..STA COL3.|
00002f70  7f 37 00 8c 4a 53 52 20  e8 43 4f 4c 53 00 8e 37  |.7..JSR .COLS..7|
00002f80  0a 8c 4a 53 52 20 43 4f  4c 43 dc 53 00 9c 37 14  |..JSR COLC.S..7.|
00002f90  8c 4a 53 52 20 43 4f 4c  43 92 00 aa 37 1e 8c 4c  |.JSR COLC...7..L|
00002fa0  44 41 20 43 4f 4c 32 53  00 b7 37 28 8c 53 54 41  |DA COL2S..7(.STA|
00002fb0  20 43 4f 4c 30 00 c5 37  32 8c 4c 44 41 20 43 4f  | COL0..72.LDA CO|
00002fc0  4c 33 53 00 d2 37 3c 8c  53 54 41 20 43 4f 4c 31  |L3S..7<.STA COL1|
00002fd0  00 e0 37 46 8c 4c 44 41  20 43 4f 4c 30 53 00 ed  |..7F.LDA COL0S..|
00002fe0  37 50 8c 53 54 41 20 43  4f 4c 32 00 fb 37 5a 8c  |7P.STA COL2..7Z.|
00002ff0  4c 44 41 20 43 4f 4c 31  53 00 08 38 64 8c 53 54  |LDA COL1S..8d.ST|
00003000  41 20 43 4f 4c 33 00 16  38 6e 8c 4a 53 52 20 e8  |A COL3..8n.JSR .|
00003010  43 4f 4c 53 00 25 38 78  8c 4a 53 52 20 43 4f 4c  |COLS.%8x.JSR COL|
00003020  43 dc 53 00 33 38 82 8c  4a 53 52 20 43 4f 4c 43  |C.S.38..JSR COLC|
00003030  92 00 41 38 8c 8c 4c 44  41 20 43 4f 4c 31 53 00  |..A8..LDA COL1S.|
00003040  4e 38 96 8c 53 54 41 20  43 4f 4c 30 00 5c 38 a0  |N8..STA COL0.\8.|
00003050  8c 4c 44 41 20 43 4f 4c  32 53 00 69 38 aa 8c 53  |.LDA COL2S.i8..S|
00003060  54 41 20 43 4f 4c 31 00  77 38 b4 8c 4c 44 41 20  |TA COL1.w8..LDA |
00003070  43 4f 4c 33 53 00 84 38  be 8c 53 54 41 20 43 4f  |COL3S..8..STA CO|
00003080  4c 32 00 92 38 c8 8c 4c  44 41 20 43 4f 4c 30 53  |L2..8..LDA COL0S|
00003090  00 9f 38 d2 8c 53 54 41  20 43 4f 4c 33 00 ad 38  |..8..STA COL3..8|
000030a0  dc 8c 4a 53 52 20 e8 43  4f 4c 53 00 bc 38 e6 8c  |..JSR .COLS..8..|
000030b0  4a 53 52 20 43 4f 4c 43  dc 53 00 ca 38 f0 8c 4a  |JSR COLC.S..8..J|
000030c0  53 52 20 43 4f 4c 43 92  00 dc 38 fa 8c 4a 4d 50  |SR COLC...8..JMP|
000030d0  20 43 4f 4c 43 59 43 4c  4f 50 00 02 39 40 9c 3b  | COLCYCLOP..9@.;|
000030e0  20 20 20 20 20 20 20 20  20 20 20 20 20 41 52 49  |             ARI|
000030f0  54 48 4d 45 54 49 43 20  52 4f 55 54 49 4e 45 53  |THMETIC ROUTINES|
00003100  00 11 39 4a 9c a1 44 49  47 49 54 20 43 4c 44 00  |..9J..DIGIT CLD.|
00003110  1b 39 54 9c 41 53 4c 20  41 00 25 39 5e 9c 41 53  |.9T.ASL A.%9^.AS|
00003120  4c 20 41 00 2f 39 68 9c  41 53 4c 20 41 00 3b 39  |L A./9h.ASL A.;9|
00003130  72 9c 53 54 41 20 24 30  32 00 43 39 7c 9c 54 58  |r.STA $02.C9|.TX|
00003140  41 00 4d 39 86 9c 4c 53  52 20 41 00 59 39 90 9c  |A.M9..LSR A.Y9..|
00003150  53 54 41 20 24 32 34 00  66 39 9a 9c 4c 44 41 20  |STA $24.f9..LDA |
00003160  23 24 30 37 00 6e 39 a4  9c 53 45 43 00 7a 39 ae  |#$07.n9..SEC.z9.|
00003170  9c 53 42 43 20 24 32 34  00 82 39 b8 9c 43 4c 43  |.SBC $24..9..CLC|
00003180  00 8e 39 c2 9c 41 44 43  20 24 30 32 00 96 39 cc  |..9..ADC $02..9.|
00003190  9c 54 41 59 00 a6 39 d6  9c 4c 44 41 20 24 34 30  |.TAY..9..LDA $40|
000031a0  30 30 2c 59 00 ae 39 e0  9c 54 41 59 00 b6 39 ea  |00,Y..9..TAY..9.|
000031b0  9c 54 58 41 00 c1 39 f4  9c af 20 23 24 30 31 00  |.TXA..9... #$01.|
000031c0  cf 39 fe 9c 42 45 51 20  4c 53 4e 47 44 00 d7 39  |.9..BEQ LSNGD..9|
000031d0  08 9d 54 59 41 00 e2 39  12 9d af 20 23 24 46 30  |..TYA..9... #$F0|
000031e0  00 ec 39 1c 9d 4c 53 52  20 41 00 f6 39 26 9d 4c  |..9..LSR A..9&.L|
000031f0  53 52 20 41 00 00 3a 30  9d 4c 53 52 20 41 00 0a  |SR A..:0.LSR A..|
00003200  3a 3a 9d 4c 53 52 20 41  00 12 3a 44 9d 52 54 53  |::.LSR A..:D.RTS|
00003210  00 20 3a 4e 9d 4c 53 4e  47 44 20 54 59 41 00 2b  |. :N.LSNGD TYA.+|
00003220  3a 58 9d af 20 23 24 30  46 00 33 3a 62 9d 52 54  |:X.. #$0F.3:b.RT|
00003230  53 00 4e 3a 6c 9d 4d 55  4c 54 49 50 4c 59 42 20  |S.N:l.MULTIPLYB |
00003240  4a 53 52 20 4e 45 47 41  54 49 56 45 00 5c 3a 71  |JSR NEGATIVE.\:q|
00003250  9d 4c 44 41 20 24 34 31  30 32 00 66 3a 76 9d 41  |.LDA $4102.f:v.A|
00003260  53 4c 20 41 00 70 3a 80  9d 41 53 4c 20 41 00 7a  |SL A.p:..ASL A.z|
00003270  3a 8a 9d 41 53 4c 20 41  00 82 3a 94 9d 54 41 58  |:..ASL A..:..TAX|
00003280  00 8f 3a 9e 9d 4c 44 41  20 23 24 30 30 00 97 3a  |..:..LDA #$00..:|
00003290  a8 9d 54 41 59 00 ad 3a  b2 9d 4d 4c 4f 50 41 20  |..TAY..:..MLOPA |
000032a0  53 54 41 20 24 34 30 30  30 2c 58 00 b5 3a bc 9d  |STA $4000,X..:..|
000032b0  49 4e 59 00 bd 3a c6 9d  49 4e 58 00 ca 3a d0 9d  |INY..:..INX..:..|
000032c0  43 50 59 20 23 24 30 38  00 d8 3a da 9d 42 4e 45  |CPY #$08..:..BNE|
000032d0  20 4d 4c 4f 50 41 00 e5  3a e4 9d 4c 44 41 20 23  | MLOPA..:..LDA #|
000032e0  24 30 36 00 f1 3a ee 9d  53 54 41 20 24 46 43 00  |$06..:..STA $FC.|
000032f0  06 3b f8 9d a2 44 49 47  49 54 20 4c 44 41 20 24  |.;...DIGIT LDA $|
00003300  34 31 30 31 00 12 3b 02  9e 4c 44 58 20 24 46 43  |4101..;..LDX $FC|
00003310  00 21 3b 0c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |.!;..JSR .DIGIT.|
00003320  2e 3b 16 9e 43 4d 50 20  23 24 30 30 00 3d 3b 20  |.;..CMP #$00.=; |
00003330  9e 42 45 51 20 44 4d 4f  56 45 52 00 49 3b 2a 9e  |.BEQ DMOVER.I;*.|
00003340  53 54 41 20 24 46 44 00  56 3b 34 9e 4c 44 41 20  |STA $FD.V;4.LDA |
00003350  23 24 30 36 00 62 3b 3e  9e 53 54 41 20 24 46 42  |#$06.b;>.STA $FB|
00003360  00 76 3b 48 9e 44 4d 4c  4f 50 20 4c 44 41 20 24  |.v;H.DMLOP LDA $|
00003370  34 31 30 30 00 82 3b 52  9e 4c 44 58 20 24 46 42  |4100..;R.LDX $FB|
00003380  00 91 3b 5c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |..;\.JSR .DIGIT.|
00003390  9e 3b 66 9e 43 4d 50 20  23 24 30 30 00 ad 3b 70  |.;f.CMP #$00..;p|
000033a0  9e 42 45 51 20 44 4d 4f  56 45 52 00 b9 3b 7a 9e  |.BEQ DMOVER..;z.|
000033b0  53 54 41 20 24 46 45 00  c5 3b 84 9e 4c 44 41 20  |STA $FE..;..LDA |
000033c0  24 46 42 00 cd 3b 8e 9e  43 4c 43 00 d9 3b 98 9e  |$FB..;..CLC..;..|
000033d0  41 44 43 20 24 46 43 00  e1 3b a2 9e 53 45 43 00  |ADC $FC..;..SEC.|
000033e0  ee 3b ac 9e 53 42 43 20  23 24 30 43 00 fa 3b b6  |.;..SBC #$0C..;.|
000033f0  9e 4c 44 58 20 24 46 44  00 02 3c c0 9e 54 41 59  |.LDX $FD..<..TAY|
00003400  00 0d 3c ca 9e af 20 23  24 30 31 00 1b 3c d4 9e  |..<... #$01..<..|
00003410  42 45 51 20 4d 53 4b 49  50 00 23 3c de 9e 54 58  |BEQ MSKIP.#<..TX|
00003420  41 00 2d 3c e8 9e 41 53  4c 20 41 00 37 3c f2 9e  |A.-<..ASL A.7<..|
00003430  41 53 4c 20 41 00 41 3c  fc 9e 41 53 4c 20 41 00  |ASL A.A<..ASL A.|
00003440  4b 3c 06 9f 41 53 4c 20  41 00 53 3c 10 9f 54 41  |K<..ASL A.S<..TA|
00003450  58 00 61 3c 1a 9f 4d 53  4b 49 50 20 54 59 41 00  |X.a<..MSKIP TYA.|
00003460  6b 3c 24 9f 4c 53 52 20  41 00 77 3c 2e 9f 53 54  |k<$.LSR A.w<..ST|
00003470  41 20 24 30 32 00 84 3c  38 9f 4c 44 41 20 23 24  |A $02..<8.LDA #$|
00003480  30 37 00 8c 3c 42 9f 53  45 43 00 98 3c 4c 9f 53  |07..<B.SEC..<L.S|
00003490  42 43 20 24 30 32 00 a4  3c 56 9f 53 54 41 20 24  |BC $02..<V.STA $|
000034a0  30 32 00 b2 3c 60 9f 4c  44 41 20 24 34 31 30 32  |02..<`.LDA $4102|
000034b0  00 bc 3c 6a 9f 41 53 4c  20 41 00 c6 3c 74 9f 41  |..<j.ASL A..<t.A|
000034c0  53 4c 20 41 00 d0 3c 7e  9f 41 53 4c 20 41 00 dc  |SL A..<~.ASL A..|
000034d0  3c 88 9f 41 44 43 20 24  30 32 00 e8 3c 8d 9f 53  |<..ADC $02..<..S|
000034e0  54 41 20 24 32 35 00 f0  3c 92 9f 54 41 59 00 fc  |TA $25..<..TAY..|
000034f0  3c 9c 9f 53 54 58 20 24  32 34 00 0d 3d a6 9f 44  |<..STX $24..=..D|
00003500  4d 4c 42 20 4c 44 58 20  24 30 32 00 15 3d b0 9f  |MLB LDX $02..=..|
00003510  53 45 44 00 25 3d ba 9f  4c 44 41 20 24 34 30 30  |SED.%=..LDA $400|
00003520  30 2c 59 00 2d 3d c4 9f  43 4c 43 00 39 3d ce 9f  |0,Y.-=..CLC.9=..|
00003530  41 44 43 20 24 32 34 00  49 3d d8 9f 53 54 41 20  |ADC $24.I=..STA |
00003540  24 34 30 30 30 2c 59 00  56 3d e2 9f 4d 41 4c 50  |$4000,Y.V=..MALP|
00003550  20 43 4c 44 00 65 3d ec  9f 42 43 43 20 4d 41 51  | CLD.e=..BCC MAQ|
00003560  55 49 54 00 6d 3d f6 9f  44 45 59 00 75 3d 00 a0  |UIT.m=..DEY.u=..|
00003570  44 45 58 00 82 3d 0a a0  43 50 58 20 23 24 46 46  |DEX..=..CPX #$FF|
00003580  00 91 3d 14 a0 42 45 51  20 4d 41 51 55 49 54 00  |..=..BEQ MAQUIT.|
00003590  99 3d 1e a0 53 45 44 00  a9 3d 28 a0 4c 44 41 20  |.=..SED..=(.LDA |
000035a0  24 34 30 30 30 2c 59 00  b1 3d 32 a0 43 4c 43 00  |$4000,Y..=2.CLC.|
000035b0  be 3d 3c a0 41 44 43 20  23 24 30 31 00 ce 3d 46  |.=<.ADC #$01..=F|
000035c0  a0 53 54 41 20 24 34 30  30 30 2c 59 00 db 3d 50  |.STA $4000,Y..=P|
000035d0  a0 4a 4d 50 20 4d 41 4c  50 00 ee 3d 5a a0 44 4d  |.JMP MALP..=Z.DM|
000035e0  4f 56 45 52 20 49 4e 43  20 24 46 42 00 fa 3d 64  |OVER INC $FB..=d|
000035f0  a0 4c 44 41 20 24 46 42  00 07 3e 6e a0 43 4d 50  |.LDA $FB..>n.CMP|
00003600  20 23 24 30 45 00 15 3e  78 a0 42 43 43 20 44 4d  | #$0E..>x.BCC DM|
00003610  4c 4f 50 00 21 3e 82 a0  49 4e 43 20 24 46 43 00  |LOP.!>..INC $FC.|
00003620  2d 3e 8c a0 4c 44 41 20  24 46 43 00 3a 3e 96 a0  |->..LDA $FC.:>..|
00003630  43 4d 50 20 23 24 30 45  00 49 3e a0 a0 42 43 43  |CMP #$0E.I>..BCC|
00003640  20 a2 44 49 47 49 54 00  56 3e aa a0 4c 44 41 20  | .DIGIT.V>..LDA |
00003650  59 50 49 42 00 63 3e b4  a0 42 45 51 20 51 55 49  |YPIB.c>..BEQ QUI|
00003660  54 00 71 3e be a0 4c 44  41 20 24 34 31 30 32 00  |T.q>..LDA $4102.|
00003670  7f 3e c8 a0 53 54 41 20  24 34 31 30 31 00 8c 3e  |.>..STA $4101..>|
00003680  d2 a0 4c 44 41 20 23 24  31 44 00 9a 3e dc a0 53  |..LDA #$1D..>..S|
00003690  54 41 20 24 34 31 30 30  00 ab 3e e6 a0 4a 53 52  |TA $4100..>..JSR|
000036a0  20 53 55 42 54 52 41 43  54 00 b8 3e f0 a0 51 55  | SUBTRACT..>..QU|
000036b0  49 54 20 52 54 53 00 cb  3e fa a0 4d 41 51 55 49  |IT RTS..>..MAQUI|
000036c0  54 20 4c 44 58 20 24 46  45 00 d3 3e 04 a1 44 45  |T LDX $FE..>..DE|
000036d0  58 00 e2 3e 07 a1 42 45  51 20 44 4d 4f 56 45 52  |X..>..BEQ DMOVER|
000036e0  00 ee 3e 0a a1 53 54 58  20 24 46 45 00 fa 3e 0e  |..>..STX $FE..>.|
000036f0  a1 4c 44 59 20 24 32 35  00 07 3f 18 a1 4a 4d 50  |.LDY $25..?..JMP|
00003700  20 44 4d 4c 42 00 1a 3f  22 a1 4d 53 55 50 20 4c  | DMLB..?".MSUP L|
00003710  44 41 20 24 34 31 30 30  00 24 3f 2c a1 41 53 4c  |DA $4100.$?,.ASL|
00003720  20 41 00 2e 3f 36 a1 41  53 4c 20 41 00 38 3f 40  | A..?6.ASL A.8?@|
00003730  a1 41 53 4c 20 41 00 40  3f 4a a1 54 41 58 00 48  |.ASL A.@?J.TAX.H|
00003740  3f 54 a1 44 45 58 00 54  3f 5e a1 53 54 58 20 24  |?T.DEX.T?^.STX $|
00003750  46 42 00 62 3f 68 a1 4c  44 41 20 24 34 31 30 31  |FB.b?h.LDA $4101|
00003760  00 6c 3f 72 a1 41 53 4c  20 41 00 76 3f 7c a1 41  |.l?r.ASL A.v?|.A|
00003770  53 4c 20 41 00 80 3f 86  a1 41 53 4c 20 41 00 88  |SL A..?..ASL A..|
00003780  3f 90 a1 54 41 58 00 90  3f 9a a1 44 45 58 00 9c  |?..TAX..?..DEX..|
00003790  3f a4 a1 53 54 58 20 24  46 44 00 aa 3f ae a1 4c  |?..STX $FD..?..L|
000037a0  44 41 20 24 34 31 30 32  00 b4 3f b8 a1 41 53 4c  |DA $4102..?..ASL|
000037b0  20 41 00 be 3f c2 a1 41  53 4c 20 41 00 c8 3f cc  | A..?..ASL A..?.|
000037c0  a1 41 53 4c 20 41 00 d0  3f d6 a1 54 41 58 00 d8  |.ASL A..?..TAX..|
000037d0  3f e0 a1 44 45 58 00 e4  3f ea a1 53 54 58 20 24  |?..DEX..?..STX $|
000037e0  32 32 00 f1 3f f4 a1 4c  44 41 20 23 24 34 30 00  |22..?..LDA #$40.|
000037f0  fd 3f fe a1 53 54 41 20  24 46 43 00 09 40 08 a2  |.?..STA $FC..@..|
00003800  53 54 41 20 24 46 45 00  15 40 12 a2 53 54 41 20  |STA $FE..@..STA |
00003810  24 32 33 00 1d 40 1c a2  52 54 53 00 30 40 26 a2  |$23..@..RTS.0@&.|
00003820  45 51 55 41 4c 20 4a 53  52 20 4d 53 55 50 00 3d  |EQUAL JSR MSUP.=|
00003830  40 30 a2 4c 44 59 20 23  24 30 38 00 52 40 3a a2  |@0.LDY #$08.R@:.|
00003840  45 4c 4f 50 20 4c 44 41  20 28 24 46 42 29 2c 59  |ELOP LDA ($FB),Y|
00003850  00 62 40 44 a2 53 54 41  20 28 24 32 32 29 2c 59  |.b@D.STA ($22),Y|
00003860  00 6a 40 4e a2 44 45 59  00 77 40 58 a2 42 4e 45  |.j@N.DEY.w@X.BNE|
00003870  20 45 4c 4f 50 00 7f 40  62 a2 52 54 53 00 94 40  | ELOP..@b.RTS..@|
00003880  6c a2 41 44 44 49 54 49  91 20 4a 53 52 20 4d 53  |l.ADDITI. JSR MS|
00003890  55 50 00 a1 40 76 a2 4c  44 59 20 23 24 30 38 00  |UP..@v.LDY #$08.|
000038a0  a9 40 80 a2 53 45 44 00  b1 40 8a a2 43 4c 43 00  |.@..SED..@..CLC.|
000038b0  c7 40 94 a2 41 44 4c 4f  50 20 4c 44 41 20 28 24  |.@..ADLOP LDA ($|
000038c0  46 42 29 2c 59 00 d7 40  9e a2 41 44 43 20 28 24  |FB),Y..@..ADC ($|
000038d0  46 44 29 2c 59 00 e7 40  a8 a2 53 54 41 20 28 24  |FD),Y..@..STA ($|
000038e0  32 32 29 2c 59 00 ef 40  b2 a2 44 45 59 00 fd 40  |22),Y..@..DEY..@|
000038f0  bc a2 42 4e 45 20 41 44  4c 4f 50 00 05 41 c6 a2  |..BNE ADLOP..A..|
00003900  43 4c 44 00 0d 41 d0 a2  52 54 53 00 23 41 da a2  |CLD..A..RTS.#A..|
00003910  53 55 42 54 52 41 43 54  20 4a 53 52 20 4d 53 55  |SUBTRACT JSR MSU|
00003920  50 00 30 41 e4 a2 4c 44  59 20 23 24 30 38 00 38  |P.0A..LDY #$08.8|
00003930  41 ee a2 53 45 44 00 40  41 f8 a2 53 45 43 00 56  |A..SED.@A..SEC.V|
00003940  41 02 a3 53 55 4c 4f 50  20 4c 44 41 20 28 24 46  |A..SULOP LDA ($F|
00003950  42 29 2c 59 00 66 41 0c  a3 53 42 43 20 28 24 46  |B),Y.fA..SBC ($F|
00003960  44 29 2c 59 00 76 41 16  a3 53 54 41 20 28 24 32  |D),Y.vA..STA ($2|
00003970  32 29 2c 59 00 7e 41 20  a3 44 45 59 00 8c 41 2a  |2),Y.~A .DEY..A*|
00003980  a3 42 4e 45 20 53 55 4c  4f 50 00 94 41 34 a3 43  |.BNE SULOP..A4.C|
00003990  4c 44 00 9c 41 3e a3 52  54 53 00 b2 41 48 a3 4e  |LD..A>.RTS..AH.N|
000039a0  45 47 41 54 49 56 45 20  4c 44 41 20 23 24 30 30  |EGATIVE LDA #$00|
000039b0  00 ba 41 52 a3 50 48 41  00 c8 41 5c a3 4c 44 41  |..AR.PHA..A\.LDA|
000039c0  20 24 34 31 30 30 00 d0  41 66 a3 54 41 59 00 da  | $4100..Af.TAY..|
000039d0  41 70 a3 41 53 4c 20 41  00 e4 41 7a a3 41 53 4c  |Ap.ASL A..Az.ASL|
000039e0  20 41 00 ee 41 84 a3 41  53 4c 20 41 00 f6 41 8e  | A..A..ASL A..A.|
000039f0  a3 54 41 58 00 06 42 98  a3 4c 44 41 20 24 34 30  |.TAX..B..LDA $40|
00003a00  30 31 2c 58 00 13 42 a2  a3 43 4d 50 20 23 24 35  |01,X..B..CMP #$5|
00003a10  30 00 26 42 a7 a3 42 43  43 20 4e 45 47 52 4d 4f  |0.&B..BCC NEGRMO|
00003a20  56 45 41 42 00 2e 42 ac  a3 50 4c 41 00 3b 42 b6  |VEAB..B..PLA.;B.|
00003a30  a3 41 44 43 20 23 24 30  30 00 43 42 c0 a3 50 48  |.ADC #$00.CB..PH|
00003a40  41 00 55 42 ca a3 4a 4d  50 20 4e 45 47 52 4d 4f  |A.UB..JMP NEGRMO|
00003a50  56 45 41 00 6e 42 d4 a3  4e 45 47 52 4d 4f 56 45  |VEA.nB..NEGRMOVE|
00003a60  41 42 20 4c 44 41 20 24  34 31 30 31 00 76 42 de  |AB LDA $4101.vB.|
00003a70  a3 54 41 59 00 80 42 e8  a3 41 53 4c 20 41 00 8a  |.TAY..B..ASL A..|
00003a80  42 f2 a3 41 53 4c 20 41  00 94 42 fc a3 41 53 4c  |B..ASL A..B..ASL|
00003a90  20 41 00 9c 42 06 a4 54  41 58 00 ac 42 10 a4 4c  | A..B..TAX..B..L|
00003aa0  44 41 20 24 34 30 30 31  2c 58 00 b9 42 1a a4 43  |DA $4001,X..B..C|
00003ab0  4d 50 20 23 24 35 30 00  c1 42 24 a4 50 4c 41 00  |MP #$50..B$.PLA.|
00003ac0  ce 42 2e a4 42 43 43 20  4e 4f 45 b0 00 da 42 38  |.B..BCC NOE...B8|
00003ad0  a4 45 b0 20 23 24 30 31  00 e2 42 42 a4 50 48 41  |.E. #$01..BB.PHA|
00003ae0  00 f4 42 4c a4 42 43 53  20 4e 45 47 52 4d 4f 56  |..BL.BCS NEGRMOV|
00003af0  45 42 00 07 43 56 a4 4e  45 47 52 4d 4f 56 45 42  |EB..CV.NEGRMOVEB|
00003b00  42 20 50 4c 41 00 19 43  60 a4 4e 4f 45 b0 20 53  |B PLA..C`.NOE. S|
00003b10  54 41 20 59 50 49 42 00  21 43 6a a4 52 54 53 00  |TA YPIB.!Cj.RTS.|
00003b20  38 43 74 a4 4e 45 47 52  4d 4f 56 45 20 4c 44 41  |8Ct.NEGRMOVE LDA|
00003b30  20 24 34 31 30 30 00 40  43 7e a4 50 48 41 00 4e  | $4100.@C~.PHA.N|
00003b40  43 88 a4 4c 44 41 20 24  34 31 30 31 00 56 43 92  |C..LDA $4101.VC.|
00003b50  a4 50 48 41 00 64 43 9c  a4 4c 44 41 20 24 34 31  |.PHA.dC..LDA $41|
00003b60  30 32 00 6c 43 a6 a4 50  48 41 00 74 43 b0 a4 54  |02.lC..PHA.tC..T|
00003b70  59 41 00 82 43 ba a4 53  54 41 20 24 34 31 30 31  |YA..C..STA $4101|
00003b80  00 90 43 c4 a4 53 54 41  20 24 34 31 30 32 00 9d  |..C..STA $4102..|
00003b90  43 ce a4 4c 44 41 20 23  24 31 44 00 ab 43 d8 a4  |C..LDA #$1D..C..|
00003ba0  53 54 41 20 24 34 31 30  30 00 bc 43 e2 a4 4a 53  |STA $4100..C..JS|
00003bb0  52 20 53 55 42 54 52 41  43 54 00 c4 43 ec a4 50  |R SUBTRACT..C..P|
00003bc0  4c 41 00 d2 43 f6 a4 53  54 41 20 24 34 31 30 32  |LA..C..STA $4102|
00003bd0  00 da 43 00 a5 50 4c 41  00 e8 43 0a a5 53 54 41  |..C..PLA..C..STA|
00003be0  20 24 34 31 30 31 00 f0  43 14 a5 50 4c 41 00 fe  | $4101..C..PLA..|
00003bf0  43 1e a5 53 54 41 20 24  34 31 30 30 00 06 44 28  |C..STA $4100..D(|
00003c00  a5 52 54 53 00 21 44 32  a5 4e 45 47 52 4d 4f 56  |.RTS.!D2.NEGRMOV|
00003c10  45 41 20 4a 53 52 20 4e  45 47 52 4d 4f 56 45 00  |EA JSR NEGRMOVE.|
00003c20  34 44 3c a5 4a 4d 50 20  4e 45 47 52 4d 4f 56 45  |4D<.JMP NEGRMOVE|
00003c30  41 42 00 4f 44 46 a5 4e  45 47 52 4d 4f 56 45 42  |AB.ODF.NEGRMOVEB|
00003c40  20 4a 53 52 20 4e 45 47  52 4d 4f 56 45 00 62 44  | JSR NEGRMOVE.bD|
00003c50  50 a5 4a 4d 50 20 4e 45  47 52 4d 4f 56 45 42 42  |P.JMP NEGRMOVEBB|
00003c60  00 79 44 5a a5 4d 55 4c  54 49 50 4c 59 20 4c 44  |.yDZ.MULTIPLY LD|
00003c70  41 20 24 34 31 30 32 00  81 44 64 a5 50 48 41 00  |A $4102..Dd.PHA.|
00003c80  8f 44 6e a5 4c 44 41 20  24 34 31 30 31 00 97 44  |.Dn.LDA $4101..D|
00003c90  78 a5 50 48 41 00 a4 44  82 a5 4c 44 41 20 23 24  |x.PHA..D..LDA #$|
00003ca0  31 38 00 b2 44 8c a5 53  54 41 20 24 34 31 30 32  |18..D..STA $4102|
00003cb0  00 c0 44 96 a5 4a 53 52  20 45 51 55 41 4c 00 ce  |..D..JSR EQUAL..|
00003cc0  44 a0 a5 49 4e 43 20 24  34 31 30 32 00 d6 44 aa  |D..INC $4102..D.|
00003cd0  a5 50 4c 41 00 e4 44 b4  a5 53 54 41 20 24 34 31  |.PLA..D..STA $41|
00003ce0  30 30 00 f2 44 be a5 4a  53 52 20 45 51 55 41 4c  |00..D..JSR EQUAL|
00003cf0  00 ff 44 c8 a5 4c 44 41  20 23 24 31 38 00 0d 45  |..D..LDA #$18..E|
00003d00  d2 a5 53 54 41 20 24 34  31 30 30 00 1a 45 dc a5  |..STA $4100..E..|
00003d10  4c 44 41 20 23 24 31 39  00 28 45 e6 a5 53 54 41  |LDA #$19.(E..STA|
00003d20  20 24 34 31 30 31 00 30  45 f0 a5 50 4c 41 00 3e  | $4101.0E..PLA.>|
00003d30  45 fa a5 53 54 41 20 24  34 31 30 32 00 50 45 04  |E..STA $4102.PE.|
00003d40  a6 4a 4d 50 20 4d 55 4c  54 49 50 4c 59 42 00 74  |.JMP MULTIPLYB.t|
00003d50  45 50 c3 3b 20 20 20 20  20 20 20 20 20 20 20 47  |EP.;           G|
00003d60  52 41 50 48 49 43 20 50  4f b5 20 50 4c 4f 54 54  |RAPHIC PO. PLOTT|
00003d70  45 52 00 88 45 5a c3 50  4c 4f 54 50 43 20 4c 44  |ER..EZ.PLOTPC LD|
00003d80  41 20 23 24 34 37 00 94  45 64 c3 53 54 41 20 24  |A #$47..Ed.STA $|
00003d90  46 42 00 a1 45 6e c3 4c  44 41 20 23 24 33 46 00  |FB..En.LDA #$3F.|
00003da0  ad 45 78 c3 53 54 41 20  24 46 43 00 bc 45 82 c3  |.Ex.STA $FC..E..|
00003db0  4c 44 41 20 59 50 49 58  45 4c 00 c6 45 8c c3 4c  |LDA YPIXEL..E..L|
00003dc0  53 52 20 41 00 d0 45 96  c3 4c 53 52 20 41 00 da  |SR A..E..LSR A..|
00003dd0  45 a0 c3 4c 53 52 20 41  00 e7 45 aa c3 53 54 41  |E..LSR A..E..STA|
00003de0  20 59 50 49 42 00 f2 45  b4 c3 af 20 23 24 30 33  | YPIB..E... #$03|
00003df0  00 fc 45 be c3 41 53 4c  20 41 00 06 46 c8 c3 41  |..E..ASL A..F..A|
00003e00  53 4c 20 41 00 10 46 d2  c3 41 53 4c 20 41 00 1a  |SL A..F..ASL A..|
00003e10  46 dc c3 41 53 4c 20 41  00 24 46 e6 c3 41 53 4c  |F..ASL A.$F..ASL|
00003e20  20 41 00 2e 46 f0 c3 41  53 4c 20 41 00 3a 46 fa  | A..F..ASL A.:F.|
00003e30  c3 53 54 41 20 24 30 32  00 46 46 04 c4 4c 44 41  |.STA $02.FF..LDA|
00003e40  20 24 46 42 00 4e 46 0e  c4 53 45 43 00 5a 46 18  | $FB.NF..SEC.ZF.|
00003e50  c4 53 42 43 20 24 30 32  00 66 46 22 c4 53 54 41  |.SBC $02.fF".STA|
00003e60  20 24 46 42 00 72 46 2c  c4 4c 44 41 20 24 46 43  | $FB.rF,.LDA $FC|
00003e70  00 7f 46 36 c4 53 42 43  20 23 24 30 30 00 8c 46  |..F6.SBC #$00..F|
00003e80  3b c4 53 42 43 20 59 50  49 42 00 94 46 40 c4 50  |;.SBC YPIB..F@.P|
00003e90  48 41 00 a1 46 4a c4 4c  44 41 20 59 50 49 42 00  |HA..FJ.LDA YPIB.|
00003ea0  ab 46 54 c4 4c 53 52 20  41 00 b5 46 5e c4 4c 53  |.FT.LSR A..F^.LS|
00003eb0  52 20 41 00 c1 46 68 c4  53 54 41 20 24 30 32 00  |R A..Fh.STA $02.|
00003ec0  c9 46 72 c4 50 4c 41 00  d1 46 7c c4 53 45 43 00  |.Fr.PLA..F|.SEC.|
00003ed0  dd 46 86 c4 53 42 43 20  24 30 32 00 e9 46 90 c4  |.F..SBC $02..F..|
00003ee0  53 54 41 20 24 46 43 00  f8 46 9a c4 4c 44 41 20  |STA $FC..F..LDA |
00003ef0  59 50 49 58 45 4c 00 03  47 a4 c4 af 20 23 24 30  |YPIXEL..G... #$0|
00003f00  37 00 10 47 ae c4 53 54  41 20 59 50 49 42 00 1c  |7..G..STA YPIB..|
00003f10  47 b8 c4 4c 44 41 20 24  46 42 00 24 47 c2 c4 53  |G..LDA $FB.$G..S|
00003f20  45 43 00 31 47 cc c4 53  42 43 20 59 50 49 42 00  |EC.1G..SBC YPIB.|
00003f30  39 47 d6 c4 50 48 41 00  48 47 e0 c4 4c 44 41 20  |9G..PHA.HG..LDA |
00003f40  58 50 49 58 45 4c 00 53  47 ea c4 af 20 23 24 46  |XPIXEL.SG... #$F|
00003f50  38 00 60 47 f4 c4 53 54  41 20 59 50 49 42 00 68  |8.`G..STA YPIB.h|
00003f60  47 fe c4 50 4c 41 00 70  47 08 c5 43 4c 43 00 7d  |G..PLA.pG..CLC.}|
00003f70  47 12 c5 41 44 43 20 59  50 49 42 00 89 47 1c c5  |G..ADC YPIB..G..|
00003f80  53 54 41 20 24 46 42 00  95 47 26 c5 4c 44 41 20  |STA $FB..G&.LDA |
00003f90  24 46 43 00 a2 47 30 c5  53 42 43 20 23 24 30 30  |$FC..G0.SBC #$00|
00003fa0  00 ae 47 3a c5 53 54 41  20 24 46 43 00 bd 47 44  |..G:.STA $FC..GD|
00003fb0  c5 4c 44 41 20 58 50 49  58 45 4c 00 c8 47 4e c5  |.LDA XPIXEL..GN.|
00003fc0  af 20 23 24 30 37 00 d0  47 58 c5 54 41 58 00 dd  |. #$07..GX.TAX..|
00003fd0  47 62 c5 4c 44 41 20 23  24 38 30 00 f1 47 6c c5  |Gb.LDA #$80..Gl.|
00003fe0  47 42 49 54 4c 50 20 43  50 58 20 23 24 30 30 00  |GBITLP CPX #$00.|
00003ff0  fd 47 76 c5 42 45 51 20  50 50 9a 00 07 48 80 c5  |.Gv.BEQ PP...H..|
00004000  4c 53 52 20 41 00 0f 48  8a c5 44 45 58 00 1e 48  |LSR A..H..DEX..H|
00004010  94 c5 4a 4d 50 20 47 42  49 54 4c 50 00 2e 48 9e  |..JMP GBITLP..H.|
00004020  c5 50 50 9a 20 53 54 41  20 24 46 44 00 36 48 a8  |.PP. STA $FD.6H.|
00004030  c5 52 54 53 00 4b 48 b2  c5 50 4c 4f a4 4e 20 4a  |.RTS.KH..PLO.N J|
00004040  53 52 20 50 4c 4f 54 50  43 00 58 48 bc c5 4c 44  |SR PLOTPC.XH..LD|
00004050  59 20 23 24 30 30 00 68  48 c6 c5 4c 44 41 20 28  |Y #$00.hH..LDA (|
00004060  24 46 42 29 2c 59 00 73  48 d0 c5 b0 41 20 24 46  |$FB),Y.sH...A $F|
00004070  44 00 83 48 da c5 53 54  41 20 28 24 46 42 29 2c  |D..H..STA ($FB),|
00004080  59 00 8b 48 e4 c5 52 54  53 00 a1 48 ee c5 50 4c  |Y..H..RTS..H..PL|
00004090  4f a4 46 46 20 4a 53 52  20 50 4c 4f 54 50 43 00  |O.FF JSR PLOTPC.|
000040a0  ad 48 f8 c5 4c 44 41 20  24 46 44 00 b9 48 02 c6  |.H..LDA $FD..H..|
000040b0  45 b0 20 23 24 46 46 00  c5 48 0c c6 53 54 41 20  |E. #$FF..H..STA |
000040c0  24 46 44 00 d2 48 16 c6  4c 44 59 20 23 24 30 30  |$FD..H..LDY #$00|
000040d0  00 e2 48 20 c6 4c 44 41  20 28 24 46 42 29 2c 59  |..H .LDA ($FB),Y|
000040e0  00 ec 48 2a c6 af 20 24  46 44 00 fc 48 34 c6 53  |..H*.. $FD..H4.S|
000040f0  54 41 20 28 24 46 42 29  2c 59 00 04 49 3e c6 52  |TA ($FB),Y..I>.R|
00004100  54 53 00 18 49 48 c6 50  4c 4f 54 20 4c 44 41 20  |TS..IH.PLOT LDA |
00004110  43 4f 4c 4f 55 52 00 23  49 52 c6 af 20 23 24 30  |COLOUR.#IR.. #$0|
00004120  32 00 30 49 5c c6 42 4e  45 20 50 50 41 91 00 3f  |2.0I\.BNE PPA..?|
00004130  49 66 c6 4a 53 52 20 50  4c 4f a4 46 46 00 4e 49  |If.JSR PLO.FF.NI|
00004140  70 c6 4a 4d 50 20 50 50  41 43 4e 54 00 61 49 7a  |p.JMP PPACNT.aIz|
00004150  c6 50 50 41 91 20 4a 53  52 20 50 4c 4f a4 4e 00  |.PPA. JSR PLO.N.|
00004160  77 49 84 c6 50 50 41 43  4e 54 20 49 4e 43 20 58  |wI..PPACNT INC X|
00004170  50 49 58 45 4c 00 86 49  8e c6 4c 44 41 20 43 4f  |PIXEL..I..LDA CO|
00004180  4c 4f 55 52 00 91 49 98  c6 af 20 23 24 30 31 00  |LOUR..I... #$01.|
00004190  9e 49 a2 c6 42 4e 45 20  50 50 42 91 00 ad 49 ac  |.I..BNE PPB...I.|
000041a0  c6 4a 53 52 20 50 4c 4f  a4 46 46 00 bc 49 b6 c6  |.JSR PLO.FF..I..|
000041b0  4a 4d 50 20 50 50 42 43  4e 54 00 cf 49 c0 c6 50  |JMP PPBCNT..I..P|
000041c0  50 42 91 20 4a 53 52 20  50 4c 4f a4 4e 00 e5 49  |PB. JSR PLO.N..I|
000041d0  ca c6 50 50 42 43 4e 54  20 49 4e 43 20 58 50 49  |..PPBCNT INC XPI|
000041e0  58 45 4c 00 ed 49 d4 c6  52 54 53 00 12 4a d8 d6  |XEL..I..RTS..J..|
000041f0  3b 20 20 20 20 20 20 20  5a 4f 4f 4d 20 43 41 4c  |;       ZOOM CAL|
00004200  43 55 4c 41 54 49 91 20  52 4f 55 54 49 4e 45 53  |CULATI. ROUTINES|
00004210  00 28 4a e2 d6 4e 4f 5a  4f 4f 4d 20 4a 4d 50 20  |.(J..NOZOOM JMP |
00004220  9a 52 4f 4c 4f 50 00 3d  4a ec d6 5a 4f 4f 4d 49  |.ROLOP.=J..ZOOMI|
00004230  4e 20 4c 44 41 20 24 44  30 31 35 00 48 4a f6 d6  |N LDA $D015.HJ..|
00004240  af 20 23 24 46 30 00 55  4a 00 d7 43 4d 50 20 23  |. #$F0.UJ..CMP #|
00004250  24 46 30 00 64 4a 0a d7  42 4e 45 20 4e 4f 5a 4f  |$F0.dJ..BNE NOZO|
00004260  4f 4d 00 71 4a 14 d7 4c  44 41 20 23 24 31 45 00  |OM.qJ..LDA #$1E.|
00004270  7f 4a 1e d7 53 54 41 20  24 34 31 30 30 00 8c 4a  |.J..STA $4100..J|
00004280  28 d7 4c 44 41 20 23 24  30 31 00 9a 4a 32 d7 53  |(.LDA #$01..J2.S|
00004290  54 41 20 24 34 31 30 31  00 a7 4a 3c d7 4c 44 41  |TA $4101..J<.LDA|
000042a0  20 23 24 31 30 00 b5 4a  46 d7 53 54 41 20 24 34  | #$10..JF.STA $4|
000042b0  31 30 32 00 c6 4a 50 d7  4a 53 52 20 53 55 42 54  |102..JP.JSR SUBT|
000042c0  52 41 43 54 00 d3 4a 5a  d7 4c 44 41 20 23 24 30  |RACT..JZ.LDA #$0|
000042d0  31 00 e1 4a 64 d7 53 54  41 20 24 34 31 30 30 00  |1..Jd.STA $4100.|
000042e0  ef 4a 6e d7 49 4e 43 20  24 34 31 30 32 00 fd 4a  |.Jn.INC $4102..J|
000042f0  78 d7 4a 53 52 20 45 51  55 41 4c 00 0a 4b 82 d7  |x.JSR EQUAL..K..|
00004300  4c 44 41 20 23 24 31 30  00 18 4b 8c d7 53 54 41  |LDA #$10..K..STA|
00004310  20 24 34 31 30 30 00 25  4b 96 d7 4c 44 41 20 23  | $4100.%K..LDA #|
00004320  24 31 42 00 33 4b a0 d7  53 54 41 20 24 34 31 30  |$1B.3K..STA $410|
00004330  31 00 40 4b aa d7 4c 44  41 20 23 24 31 32 00 4e  |1.@K..LDA #$12.N|
00004340  4b b4 d7 53 54 41 20 24  34 31 30 32 00 5f 4b be  |K..STA $4102._K.|
00004350  d7 4a 53 52 20 4d 55 4c  54 49 50 4c 59 00 6c 4b  |.JSR MULTIPLY.lK|
00004360  c8 d7 4c 44 41 20 23 24  31 31 00 7a 4b d2 d7 53  |..LDA #$11.zK..S|
00004370  54 41 20 24 34 31 30 30  00 88 4b dc d7 53 54 41  |TA $4100..K..STA|
00004380  20 24 34 31 30 32 00 95  4b e6 d7 4c 44 41 20 23  | $4102..K..LDA #|
00004390  24 31 32 00 a3 4b f0 d7  53 54 41 20 24 34 31 30  |$12..K..STA $410|
000043a0  31 00 b1 4b fa d7 4c 44  41 20 24 44 30 30 38 00  |1..K..LDA $D008.|
000043b0  b9 4b 04 d8 53 45 43 00  c6 4b 0e d8 53 42 43 20  |.K..SEC..K..SBC |
000043c0  23 24 35 38 00 de 4b 18  d8 43 41 4c 43 49 4e 4c  |#$58..K..CALCINL|
000043d0  4f 50 41 20 43 4d 50 20  23 24 30 30 00 ee 4b 22  |OPA CMP #$00..K"|
000043e0  d8 42 45 51 20 43 41 4c  43 80 49 41 00 f6 4b 2c  |.BEQ CALC.IA..K,|
000043f0  d8 50 48 41 00 06 4c 36  d8 4a 53 52 20 41 44 44  |.PHA..L6.JSR ADD|
00004400  49 54 49 91 00 0e 4c 40  d8 50 4c 41 00 16 4c 4a  |ITI...L@.PLA..LJ|
00004410  d8 54 41 58 00 1e 4c 54  d8 44 45 58 00 26 4c 5e  |.TAX..LT.DEX.&L^|
00004420  d8 54 58 41 00 39 4c 68  d8 4a 4d 50 20 43 41 4c  |.TXA.9Lh.JMP CAL|
00004430  43 49 4e 4c 4f 50 41 00  4e 4c 72 d8 43 41 4c 43  |CINLOPA.NLr.CALC|
00004440  80 49 41 20 4c 44 41 20  23 24 30 31 00 5c 4c 7c  |.IA LDA #$01.\L||
00004450  d8 53 54 41 20 24 34 31  30 30 00 69 4c 86 d8 4c  |.STA $4100.iL..L|
00004460  44 41 20 23 24 31 33 00  77 4c 90 d8 53 54 41 20  |DA #$13.wL..STA |
00004470  24 34 31 30 32 00 85 4c  9a d8 4a 53 52 20 45 51  |$4102..L..JSR EQ|
00004480  55 41 4c 00 92 4c a4 d8  4c 44 41 20 23 24 31 33  |UAL..L..LDA #$13|
00004490  00 a0 4c ae d8 53 54 41  20 24 34 31 30 30 00 ae  |..L..STA $4100..|
000044a0  4c b8 d8 53 54 41 20 24  34 31 30 32 00 bb 4c c2  |L..STA $4102..L.|
000044b0  d8 4c 44 41 20 23 24 31  32 00 c9 4c cc d8 53 54  |.LDA #$12..L..ST|
000044c0  41 20 24 34 31 30 31 00  d7 4c d6 d8 4c 44 41 20  |A $4101..L..LDA |
000044d0  24 44 30 30 41 00 df 4c  e0 d8 53 45 43 00 ec 4c  |$D00A..L..SEC..L|
000044e0  ea d8 53 42 43 20 23 24  34 30 00 04 4d f4 d8 43  |..SBC #$40..M..C|
000044f0  41 4c 43 49 4e 4c 4f 50  42 20 43 4d 50 20 23 24  |ALCINLOPB CMP #$|
00004500  30 30 00 14 4d fe d8 42  45 51 20 43 41 4c 43 80  |00..M..BEQ CALC.|
00004510  49 42 00 1c 4d 08 d9 50  48 41 00 2c 4d 12 d9 4a  |IB..M..PHA.,M..J|
00004520  53 52 20 41 44 44 49 54  49 91 00 34 4d 1c d9 50  |SR ADDITI..4M..P|
00004530  4c 41 00 3c 4d 26 d9 54  41 58 00 44 4d 30 d9 44  |LA.<M&.TAX.DM0.D|
00004540  45 58 00 4c 4d 3a d9 54  58 41 00 5f 4d 44 d9 4a  |EX.LM:.TXA._MD.J|
00004550  4d 50 20 43 41 4c 43 49  4e 4c 4f 50 42 00 74 4d  |MP CALCINLOPB.tM|
00004560  4e d9 43 41 4c 43 80 49  42 20 4c 44 41 20 23 24  |N.CALC.IB LDA #$|
00004570  31 31 00 82 4d 58 d9 53  54 41 20 24 34 31 30 30  |11..MX.STA $4100|
00004580  00 8f 4d 62 d9 4c 44 41  20 23 24 30 31 00 9d 4d  |..Mb.LDA #$01..M|
00004590  6c d9 53 54 41 20 24 34  31 30 32 00 ab 4d 76 d9  |l.STA $4102..Mv.|
000045a0  4a 53 52 20 45 51 55 41  4c 00 b8 4d 80 d9 4c 44  |JSR EQUAL..M..LD|
000045b0  41 20 23 24 31 33 00 c6  4d 8a d9 53 54 41 20 24  |A #$13..M..STA $|
000045c0  34 31 30 30 00 d3 4d 94  d9 4c 44 41 20 23 24 31  |4100..M..LDA #$1|
000045d0  45 00 e1 4d 9e d9 53 54  41 20 24 34 31 30 32 00  |E..M..STA $4102.|
000045e0  ef 4d a8 d9 4a 53 52 20  45 51 55 41 4c 00 fc 4d  |.M..JSR EQUAL..M|
000045f0  b2 d9 4c 44 41 20 23 24  31 46 00 0a 4e bc d9 53  |..LDA #$1F..N..S|
00004600  54 41 20 24 34 31 30 30  00 17 4e c6 d9 4c 44 41  |TA $4100..N..LDA|
00004610  20 23 24 30 33 00 25 4e  d0 d9 53 54 41 20 24 34  | #$03.%N..STA $4|
00004620  31 30 31 00 32 4e da d9  4c 44 41 20 23 24 31 30  |101.2N..LDA #$10|
00004630  00 40 4e e4 d9 53 54 41  20 24 34 31 30 32 00 51  |.@N..STA $4102.Q|
00004640  4e ee d9 4a 53 52 20 53  55 42 54 52 41 43 54 00  |N..JSR SUBTRACT.|
00004650  5e 4e f8 d9 4c 44 41 20  23 24 30 33 00 6c 4e 02  |^N..LDA #$03.lN.|
00004660  da 53 54 41 20 24 34 31  30 30 00 7a 4e 0c da 49  |.STA $4100.zN..I|
00004670  4e 43 20 24 34 31 30 32  00 88 4e 16 da 4a 53 52  |NC $4102..N..JSR|
00004680  20 45 51 55 41 4c 00 95  4e 20 da 4c 44 41 20 23  | EQUAL..N .LDA #|
00004690  24 31 30 00 a3 4e 2a da  53 54 41 20 24 34 31 30  |$10..N*.STA $410|
000046a0  30 00 b0 4e 34 da 4c 44  41 20 23 24 31 32 00 be  |0..N4.LDA #$12..|
000046b0  4e 3e da 53 54 41 20 24  34 31 30 32 00 cb 4e 48  |N>.STA $4102..NH|
000046c0  da 4c 44 41 20 23 24 31  41 00 d9 4e 52 da 53 54  |.LDA #$1A..NR.ST|
000046d0  41 20 24 34 31 30 31 00  ea 4e 5c da 4a 53 52 20  |A $4101..N\.JSR |
000046e0  4d 55 4c 54 49 50 4c 59  00 f7 4e 66 da 4c 44 41  |MULTIPLY..Nf.LDA|
000046f0  20 23 24 31 31 00 05 4f  70 da 53 54 41 20 24 34  | #$11..Op.STA $4|
00004700  31 30 30 00 13 4f 7a da  53 54 41 20 24 34 31 30  |100..Oz.STA $410|
00004710  32 00 20 4f 84 da 4c 44  41 20 23 24 31 32 00 2e  |2. O..LDA #$12..|
00004720  4f 8e da 53 54 41 20 24  34 31 30 31 00 3c 4f 98  |O..STA $4101.<O.|
00004730  da 4c 44 41 20 24 44 30  30 39 00 44 4f a2 da 53  |.LDA $D009.DO..S|
00004740  45 43 00 51 4f ac da 53  42 43 20 23 24 33 32 00  |EC.QO..SBC #$32.|
00004750  67 4f b6 da 43 41 4c 43  49 4e 59 41 20 43 4d 50  |gO..CALCINYA CMP|
00004760  20 23 24 30 30 00 77 4f  c0 da 42 45 51 20 43 41  | #$00.wO..BEQ CA|
00004770  4c 43 80 49 43 00 7f 4f  ca da 50 48 41 00 8f 4f  |LC.IC..O..PHA..O|
00004780  d4 da 4a 53 52 20 41 44  44 49 54 49 91 00 97 4f  |..JSR ADDITI...O|
00004790  de da 50 4c 41 00 9f 4f  e8 da 54 41 58 00 a7 4f  |..PLA..O..TAX..O|
000047a0  f2 da 44 45 58 00 af 4f  fc da 54 58 41 00 c0 4f  |..DEX..O..TXA..O|
000047b0  06 db 4a 4d 50 20 43 41  4c 43 49 4e 59 41 00 d5  |..JMP CALCINYA..|
000047c0  4f 10 db 43 41 4c 43 80  49 43 20 4c 44 41 20 23  |O..CALC.IC LDA #|
000047d0  24 30 33 00 e3 4f 1a db  53 54 41 20 24 34 31 30  |$03..O..STA $410|
000047e0  30 00 f0 4f 24 db 4c 44  41 20 23 24 31 33 00 fe  |0..O$.LDA #$13..|
000047f0  4f 2e db 53 54 41 20 24  34 31 30 32 00 0c 50 38  |O..STA $4102..P8|
00004800  db 4a 53 52 20 45 51 55  41 4c 00 19 50 42 db 4c  |.JSR EQUAL..PB.L|
00004810  44 41 20 23 24 31 33 00  27 50 4c db 53 54 41 20  |DA #$13.'PL.STA |
00004820  24 34 31 30 30 00 35 50  56 db 53 54 41 20 24 34  |$4100.5PV.STA $4|
00004830  31 30 32 00 42 50 60 db  4c 44 41 20 23 24 31 32  |102.BP`.LDA #$12|
00004840  00 50 50 6a db 53 54 41  20 24 34 31 30 31 00 5e  |.PPj.STA $4101.^|
00004850  50 74 db 4c 44 41 20 24  44 30 30 44 00 66 50 7e  |Pt.LDA $D00D.fP~|
00004860  db 53 45 43 00 73 50 88  db 53 42 43 20 23 24 31  |.SEC.sP..SBC #$1|
00004870  44 00 89 50 92 db 43 41  4c 43 49 4e 59 42 20 43  |D..P..CALCINYB C|
00004880  4d 50 20 23 24 30 30 00  99 50 9c db 42 45 51 20  |MP #$00..P..BEQ |
00004890  43 41 4c 43 80 49 44 00  a1 50 a6 db 50 48 41 00  |CALC.ID..P..PHA.|
000048a0  b1 50 b0 db 4a 53 52 20  41 44 44 49 54 49 91 00  |.P..JSR ADDITI..|
000048b0  b9 50 ba db 50 4c 41 00  c1 50 c4 db 54 41 58 00  |.P..PLA..P..TAX.|
000048c0  c9 50 ce db 44 45 58 00  d1 50 d8 db 54 58 41 00  |.P..DEX..P..TXA.|
000048d0  e2 50 e2 db 4a 4d 50 20  43 41 4c 43 49 4e 59 42  |.P..JMP CALCINYB|
000048e0  00 f7 50 ec db 43 41 4c  43 80 49 44 20 4c 44 41  |..P..CALC.ID LDA|
000048f0  20 23 24 31 31 00 05 51  f6 db 53 54 41 20 24 34  | #$11..Q..STA $4|
00004900  31 30 30 00 12 51 00 dc  4c 44 41 20 23 24 30 33  |100..Q..LDA #$03|
00004910  00 20 51 0a dc 53 54 41  20 24 34 31 30 32 00 2e  |. Q..STA $4102..|
00004920  51 14 dc 4a 53 52 20 45  51 55 41 4c 00 3b 51 1e  |Q..JSR EQUAL.;Q.|
00004930  dc 4c 44 41 20 23 24 31  33 00 49 51 28 dc 53 54  |.LDA #$13.IQ(.ST|
00004940  41 20 24 34 31 30 30 00  56 51 32 dc 4c 44 41 20  |A $4100.VQ2.LDA |
00004950  23 24 31 46 00 64 51 3c  dc 53 54 41 20 24 34 31  |#$1F.dQ<.STA $41|
00004960  30 32 00 72 51 46 dc 4a  53 52 20 45 51 55 41 4c  |02.rQF.JSR EQUAL|
00004970  00 7f 51 50 dc 4c 44 41  20 23 24 31 45 00 8d 51  |..QP.LDA #$1E..Q|
00004980  5a dc 53 54 41 20 24 34  31 30 30 00 9a 51 64 dc  |Z.STA $4100..Qd.|
00004990  4c 44 41 20 23 24 30 31  00 a8 51 6e dc 53 54 41  |LDA #$01..Qn.STA|
000049a0  20 24 34 31 30 31 00 b5  51 78 dc 4c 44 41 20 23  | $4101..Qx.LDA #|
000049b0  24 31 30 00 c3 51 82 dc  53 54 41 20 24 34 31 30  |$10..Q..STA $410|
000049c0  32 00 d4 51 8c dc 4a 53  52 20 53 55 42 54 52 41  |2..Q..JSR SUBTRA|
000049d0  43 54 00 e1 51 96 dc 4c  44 41 20 23 24 31 30 00  |CT..Q..LDA #$10.|
000049e0  ef 51 a0 dc 53 54 41 20  24 34 31 30 30 00 fc 51  |.Q..STA $4100..Q|
000049f0  aa dc 4c 44 41 20 23 24  31 37 00 0a 52 b4 dc 53  |..LDA #$17..R..S|
00004a00  54 41 20 24 34 31 30 31  00 17 52 be dc 4c 44 41  |TA $4101..R..LDA|
00004a10  20 23 24 30 32 00 25 52  c8 dc 53 54 41 20 24 34  | #$02.%R..STA $4|
00004a20  31 30 32 00 36 52 d2 dc  4a 53 52 20 4d 55 4c 54  |102.6R..JSR MULT|
00004a30  49 50 4c 59 00 43 52 dc  dc 4c 44 41 20 23 24 31  |IPLY.CR..LDA #$1|
00004a40  46 00 51 52 e6 dc 53 54  41 20 24 34 31 30 30 00  |F.QR..STA $4100.|
00004a50  5e 52 f0 dc 4c 44 41 20  23 24 30 33 00 6c 52 fa  |^R..LDA #$03.lR.|
00004a60  dc 53 54 41 20 24 34 31  30 31 00 79 52 04 dd 4c  |.STA $4101.yR..L|
00004a70  44 41 20 23 24 31 30 00  87 52 0e dd 53 54 41 20  |DA #$10..R..STA |
00004a80  24 34 31 30 32 00 98 52  18 dd 4a 53 52 20 53 55  |$4102..R..JSR SU|
00004a90  42 54 52 41 43 54 00 a5  52 22 dd 4c 44 41 20 23  |BTRACT..R".LDA #|
00004aa0  24 31 30 00 b3 52 2c dd  53 54 41 20 24 34 31 30  |$10..R,.STA $410|
00004ab0  30 00 c0 52 36 dd 4c 44  41 20 23 24 31 41 00 ce  |0..R6.LDA #$1A..|
00004ac0  52 40 dd 53 54 41 20 24  34 31 30 31 00 db 52 4a  |R@.STA $4101..RJ|
00004ad0  dd 4c 44 41 20 23 24 30  34 00 e9 52 54 dd 53 54  |.LDA #$04..RT.ST|
00004ae0  41 20 24 34 31 30 32 00  fa 52 5e dd 4a 53 52 20  |A $4102..R^.JSR |
00004af0  4d 55 4c 54 49 50 4c 59  00 07 53 68 dd 4a 53 52  |MULTIPLY..Sh.JSR|
00004b00  20 4d af 4c 45 00 16 53  72 dd 4a 4d 50 20 9a 52  | M.LE..Sr.JMP .R|
00004b10  4f 4c 4f 50 00 3c 53 60  ea 3b 20 20 20 20 20 20  |OLOP.<S`.;      |
00004b20  20 20 20 20 20 20 20 20  20 20 20 20 20 5a 4f 4f  |             ZOO|
00004b30  4d 20 52 4f 55 54 49 4e  45 53 00 4b 53 6a ea 42  |M ROUTINES.KSj.B|
00004b40  4f 58 20 4c 44 41 20 58  50 00 58 53 74 ea 53 54  |OX LDA XP.XSt.ST|
00004b50  41 20 58 50 49 42 00 63  53 7e ea 4c 44 41 20 59  |A XPIB.cS~.LDA Y|
00004b60  50 00 70 53 88 ea 53 54  41 20 59 50 49 42 00 7c  |P.pS..STA YPIB.||
00004b70  53 92 ea 4c 44 41 20 58  50 42 00 8a 53 9c ea 53  |S..LDA XPB..S..S|
00004b80  54 41 20 58 50 42 49 42  00 97 53 a6 ea 4c 44 58  |TA XPBIB..S..LDX|
00004b90  20 23 24 33 43 00 a5 53  b0 ea 53 54 58 20 24 30  | #$3C..S..STX $0|
00004ba0  37 46 43 00 ad 53 ba ea  49 4e 58 00 bb 53 c4 ea  |7FC..S..INX..S..|
00004bb0  53 54 58 20 24 30 37 46  44 00 c3 53 ce ea 49 4e  |STX $07FD..S..IN|
00004bc0  58 00 d1 53 d8 ea 53 54  58 20 24 30 37 46 45 00  |X..S..STX $07FE.|
00004bd0  d9 53 e2 ea 49 4e 58 00  e7 53 ec ea 53 54 58 20  |.S..INX..S..STX |
00004be0  24 30 37 46 46 00 f5 53  f6 ea 4c 44 41 20 24 44  |$07FF..S..LDA $D|
00004bf0  30 31 35 00 01 54 00 eb  b0 41 20 23 24 46 30 00  |015..T...A #$F0.|
00004c00  0f 54 0a eb 53 54 41 20  24 44 30 31 35 00 22 54  |.T..STA $D015."T|
00004c10  14 eb 42 4f 58 92 20 4c  44 41 20 43 4c 49 43 4b  |..BOX. LDA CLICK|
00004c20  00 2f 54 1e eb 42 4e 45  20 42 4f 58 92 00 45 54  |./T..BNE BOX..ET|
00004c30  78 eb 42 4f 58 4c 4f 4f  50 20 4c 44 41 20 58 50  |x.BOXLOOP LDA XP|
00004c40  42 49 42 00 51 54 82 eb  43 4d 50 20 58 50 42 00  |BIB.QT..CMP XPB.|
00004c50  63 54 8c eb 42 45 51 20  43 48 45 43 4b 46 49 4e  |cT..BEQ CHECKFIN|
00004c60  45 00 74 54 96 eb 42 43  53 20 4c 45 53 53 54 48  |E.tT..BCS LESSTH|
00004c70  41 4e 00 84 54 a0 eb 4a  4d 50 20 4d b0 45 54 48  |AN..T..JMP M.ETH|
00004c80  41 4e 00 9b 54 aa eb 43  48 45 43 4b 46 49 4e 45  |AN..T..CHECKFINE|
00004c90  20 4c 44 41 20 58 50 49  42 00 a6 54 b4 eb 43 4d  | LDA XPIB..T..CM|
00004ca0  50 20 58 50 00 b7 54 be  eb 42 43 53 20 4c 45 53  |P XP..T..BCS LES|
00004cb0  53 54 48 41 4e 00 cc 54  c8 eb 4d b0 45 54 48 41  |STHAN..T..M.ETHA|
00004cc0  4e 20 4c 44 41 20 58 50  49 42 00 da 54 d2 eb 53  |N LDA XPIB..T..S|
00004cd0  54 41 20 24 44 30 30 38  00 e8 54 dc eb 53 54 41  |TA $D008..T..STA|
00004ce0  20 24 44 30 30 43 00 f5  54 e6 eb 4c 44 58 20 23  | $D00C..T..LDX #|
00004cf0  24 30 30 00 03 55 f0 eb  4c 44 41 20 58 50 42 49  |$00..U..LDA XPBI|
00004d00  42 00 14 55 fa eb 42 45  51 20 4e 4f 58 50 42 41  |B..U..BEQ NOXPBA|
00004d10  44 44 00 21 55 04 ec 4c  44 58 20 23 24 35 30 00  |DD.!U..LDX #$50.|
00004d20  38 55 0e ec 4e 4f 58 50  42 41 44 44 20 4c 44 41  |8U..NOXPBADD LDA|
00004d30  20 24 44 30 31 30 00 43  55 18 ec af 20 23 24 41  | $D010.CU... #$A|
00004d40  46 00 4f 55 22 ec 53 54  58 20 24 30 32 00 57 55  |F.OU".STX $02.WU|
00004d50  2c ec 43 4c 43 00 63 55  36 ec 41 44 43 20 24 30  |,.CLC.cU6.ADC $0|
00004d60  32 00 71 55 40 ec 53 54  41 20 24 44 30 31 30 00  |2.qU@.STA $D010.|
00004d70  7e 55 45 ec 4c 44 58 20  23 24 30 30 00 89 55 4a  |~UE.LDX #$00..UJ|
00004d80  ec 4c 44 41 20 58 50 00  91 55 54 ec 53 45 43 00  |.LDA XP..UT.SEC.|
00004d90  9e 55 5e ec 53 42 43 20  23 24 31 38 00 ac 55 68  |.U^.SBC #$18..Uh|
00004da0  ec 53 54 41 20 24 44 30  30 41 00 ba 55 72 ec 53  |.STA $D00A..Ur.S|
00004db0  54 41 20 24 44 30 30 45  00 c8 55 7c ec 42 43 43  |TA $D00E..U|.BCC|
00004dc0  20 4d 54 53 55 42 00 d4  55 86 ec 4c 44 58 20 58  | MTSUB..U..LDX X|
00004dd0  50 42 00 e2 55 90 ec 42  45 51 20 4d 54 53 55 42  |PB..U..BEQ MTSUB|
00004de0  00 ef 55 9a ec 4c 44 58  20 23 24 41 30 00 03 56  |..U..LDX #$A0..V|
00004df0  a4 ec 4d 54 53 55 42 20  4c 44 41 20 24 44 30 31  |..MTSUB LDA $D01|
00004e00  30 00 0e 56 ae ec af 20  23 24 35 46 00 1a 56 b8  |0..V... #$5F..V.|
00004e10  ec 53 54 58 20 24 30 32  00 22 56 c2 ec 43 4c 43  |.STX $02."V..CLC|
00004e20  00 2e 56 cc ec 41 44 43  20 24 30 32 00 3c 56 d6  |..V..ADC $02.<V.|
00004e30  ec 53 54 41 20 24 44 30  31 30 00 49 56 e0 ec 4a  |.STA $D010.IV..J|
00004e40  4d 50 20 42 4f 58 9a 00  5d 56 ea ec 4c 45 53 53  |MP BOX..]V..LESS|
00004e50  54 48 41 4e 20 4c 44 41  20 58 50 00 69 56 f4 ec  |THAN LDA XP.iV..|
00004e60  4c 44 58 20 58 50 42 00  76 56 fe ec 42 4e 45 20  |LDX XPB.vV..BNE |
00004e70  a8 4f 55 54 00 83 56 08  ed 43 4d 50 20 23 24 35  |.OUT..V..CMP #$5|
00004e80  38 00 90 56 12 ed 42 43  53 20 a8 4f 55 54 00 9d  |8..V..BCS .OUT..|
00004e90  56 1c ed 4c 44 41 20 23  24 35 38 00 b0 56 26 ed  |V..LDA #$58..V&.|
00004ea0  a8 4f 55 54 20 53 54 41  20 24 44 30 30 38 00 be  |.OUT STA $D008..|
00004eb0  56 30 ed 53 54 41 20 24  44 30 30 43 00 cb 56 3a  |V0.STA $D00C..V:|
00004ec0  ed 43 50 58 20 23 24 30  30 00 db 56 44 ed 42 45  |.CPX #$00..VD.BE|
00004ed0  51 20 4c 54 4e 4f 41 44  44 00 e8 56 4e ed 4c 44  |Q LTNOADD..VN.LD|
00004ee0  58 20 23 24 35 30 00 fe  56 58 ed 4c 54 4e 4f 41  |X #$50..VX.LTNOA|
00004ef0  44 44 20 4c 44 41 20 24  44 30 31 30 00 09 57 62  |DD LDA $D010..Wb|
00004f00  ed af 20 23 24 41 46 00  15 57 6c ed 53 54 58 20  |.. #$AF..Wl.STX |
00004f10  24 30 32 00 1d 57 76 ed  43 4c 43 00 29 57 80 ed  |$02..Wv.CLC.)W..|
00004f20  41 44 43 20 24 30 32 00  37 57 8a ed 53 54 41 20  |ADC $02.7W..STA |
00004f30  24 44 30 31 30 00 44 57  8f ed 4c 44 58 20 23 24  |$D010.DW..LDX #$|
00004f40  30 30 00 51 57 94 ed 4c  44 41 20 58 50 49 42 00  |00.QW..LDA XPIB.|
00004f50  59 57 9e ed 53 45 43 00  66 57 a8 ed 53 42 43 20  |YW..SEC.fW..SBC |
00004f60  23 24 31 38 00 74 57 b2  ed 53 54 41 20 24 44 30  |#$18.tW..STA $D0|
00004f70  30 41 00 82 57 bc ed 53  54 41 20 24 44 30 30 45  |0A..W..STA $D00E|
00004f80  00 90 57 c6 ed 42 43 43  20 4c 54 53 55 42 00 9e  |..W..BCC LTSUB..|
00004f90  57 d0 ed 4c 44 58 20 58  50 42 49 42 00 ac 57 da  |W..LDX XPBIB..W.|
00004fa0  ed 42 45 51 20 4c 54 53  55 42 00 b9 57 e4 ed 4c  |.BEQ LTSUB..W..L|
00004fb0  44 58 20 23 24 41 30 00  cd 57 ee ed 4c 54 53 55  |DX #$A0..W..LTSU|
00004fc0  42 20 4c 44 41 20 24 44  30 31 30 00 d8 57 f8 ed  |B LDA $D010..W..|
00004fd0  af 20 23 24 35 46 00 e4  57 02 ee 53 54 58 20 24  |. #$5F..W..STX $|
00004fe0  30 32 00 ec 57 0c ee 43  4c 43 00 f8 57 16 ee 41  |02..W..CLC..W..A|
00004ff0  44 43 20 24 30 32 00 06  58 20 ee 53 54 41 20 24  |DC $02..X .STA $|
00005000  44 30 31 30 00 16 58 2a  ee 42 4f 58 9a 20 4c 44  |D010..X*.BOX. LD|
00005010  41 20 59 50 00 23 58 34  ee 43 4d 50 20 59 50 49  |A YP.#X4.CMP YPI|
00005020  42 00 31 58 3e ee 42 43  43 20 4c 45 53 53 59 00  |B.1X>.BCC LESSY.|
00005030  3e 58 48 ee 4c 44 41 20  59 50 49 42 00 4c 58 52  |>XH.LDA YPIB.LXR|
00005040  ee 53 54 41 20 24 44 30  30 39 00 5a 58 5c ee 53  |.STA $D009.ZX\.S|
00005050  54 41 20 24 44 30 30 42  00 65 58 66 ee 4c 44 41  |TA $D00B.eXf.LDA|
00005060  20 59 50 00 6d 58 70 ee  53 45 43 00 7a 58 7a ee  | YP.mXp.SEC.zXz.|
00005070  53 42 43 20 23 24 31 35  00 88 58 84 ee 53 54 41  |SBC #$15..X..STA|
00005080  20 24 44 30 30 44 00 96  58 8e ee 53 54 41 20 24  | $D00D..X..STA $|
00005090  44 30 30 46 00 a5 58 98  ee 4a 4d 50 20 42 4f 58  |D00F..X..JMP BOX|
000050a0  9a 49 49 00 b6 58 a2 ee  4c 45 53 53 59 20 4c 44  |.II..X..LESSY LD|
000050b0  41 20 59 50 00 c4 58 ac  ee 53 54 41 20 24 44 30  |A YP..X..STA $D0|
000050c0  30 39 00 d2 58 b6 ee 53  54 41 20 24 44 30 30 42  |09..X..STA $D00B|
000050d0  00 df 58 c0 ee 4c 44 41  20 59 50 49 42 00 e7 58  |..X..LDA YPIB..X|
000050e0  ca ee 53 45 43 00 f4 58  d4 ee 53 42 43 20 23 24  |..SEC..X..SBC #$|
000050f0  31 35 00 02 59 de ee 53  54 41 20 24 44 30 30 44  |15..Y..STA $D00D|
00005100  00 10 59 e8 ee 53 54 41  20 24 44 30 30 46 00 25  |..Y..STA $D00F.%|
00005110  59 f2 ee 42 4f 58 9a 49  49 20 4c 44 41 20 43 4c  |Y..BOX.II LDA CL|
00005120  49 43 4b 00 32 59 fc ee  42 4e 45 20 42 4f 58 80  |ICK.2Y..BNE BOX.|
00005130  00 42 59 06 ef 4a 4d 50  20 42 4f 58 4c 4f 4f 50  |.BY..JMP BOXLOOP|
00005140  00 56 59 10 ef 42 4f 58  80 20 4a 4d 50 20 9a 52  |.VY..BOX. JMP .R|
00005150  4f 4c 4f 50 00 6b 59 30  f2 42 4f 58 46 4c 41 53  |OLOP.kY0.BOXFLAS|
00005160  48 20 4c 44 41 20 24 41  32 00 76 59 3a f2 af 20  |H LDA $A2.vY:.. |
00005170  23 24 33 43 00 80 59 44  f2 4c 53 52 20 41 00 8a  |#$3C..YD.LSR A..|
00005180  59 4e f2 4c 53 52 20 41  00 92 59 58 f2 54 41 58  |YN.LSR A..YX.TAX|
00005190  00 a4 59 62 f2 4c 44 41  20 42 4f 58 43 4f 4c 53  |..Yb.LDA BOXCOLS|
000051a0  2c 58 00 b2 59 6c f2 53  54 41 20 24 44 30 32 42  |,X..Yl.STA $D02B|
000051b0  00 c0 59 76 f2 53 54 41  20 24 44 30 32 43 00 ce  |..Yv.STA $D02C..|
000051c0  59 80 f2 53 54 41 20 24  44 30 32 44 00 dc 59 8a  |Y..STA $D02D..Y.|
000051d0  f2 53 54 41 20 24 44 30  32 45 00 ea 59 94 f2 4a  |.STA $D02E..Y..J|
000051e0  4d 50 20 24 45 41 33 31  00 0c 5a 9e f2 42 4f 58  |MP $EA31..Z..BOX|
000051f0  43 4f 4c 53 20 54 58 54  20 30 2c 39 2c 32 2c 38  |COLS TXT 0,9,2,8|
00005200  2c 31 30 2c 37 2c 31 33  2c 31 00 26 5a a8 f2 54  |,10,7,13,1.&Z..T|
00005210  58 54 20 31 2c 31 33 2c  33 2c 35 2c 31 34 2c 34  |XT 1,13,3,5,14,4|
00005220  2c 36 2c 30 00 3b 5a 18  f6 3b 20 44 45 4c 45 54  |,6,0.;Z..; DELET|
00005230  45 20 54 48 45 53 45 21  21 00 4f 5a 22 f6 43 4f  |E THESE!!.OZ".CO|
00005240  4c 53 20 4a 4d 50 20 9a  52 4f 4c 4f 50 00 64 5a  |LS JMP .ROLOP.dZ|
00005250  4a f6 b9 49 54 49 91 20  4a 4d 50 20 9a 52 4f 4c  |J..ITI. JMP .ROL|
00005260  4f 50 00 7b 5a 54 f6 5a  4f 4f 4d 4f 55 54 20 4a  |OP.{ZT.ZOOMOUT J|
00005270  4d 50 20 9a 52 4f 4c 4f  50 00 00 00              |MP .ROLOP...|
0000527c