;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ŊCMP #$03�5ʊBEQ NO��5ԊDEC SPEED�5ފRTS6�SLDN LDA SPEED6�CMP #$196��BEQ NO�+6�INC SPEED36�RTSI6�COLCYCLE LDA #$0AW6$�STA SPEEDc6.�LDA $A2q68�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 �COLS7��JSR COLC�S7��JSR COLC� 7��LDA COL3S-7��STA COL0;7ċLDA COL0SH7΋STA COL1V7؋LDA COL1Sc7�STA COL2q7�LDA COL2S~7��STA COL3�7�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 COL28Z�LDA COL1S8d�STA COL3#8n�JSR �COLS28x�JSR COLC�S@8��JSR COLC�N8��LDA COL1S[8��STA COL0i8��LDA COL2Sv8��STA COL1�8��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 CLD(9T�ASL A29^�ASL A<9h�ASL AH9r�STA $02P9|�TXAZ9��LSR Af9��STA $24s9��LDA #$07{9��SEC�9��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:&�LSR A
:0�LSR A::�LSR A:D�RTS-:N�LSNGD TYA8:X�� #$0F@:b�RTS[:l�MULTIPLYB JSR NEGATIVEi:q�LDA $4102s:v�ASL A}:��ASL A�:��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 #$00J; �BEQ DMOVERV;*�STA $FDc;4�LDA #$06o;>�STA $FB�;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 MSKIP0<ޞTXA:<�ASL AD<�ASL AN<��ASL AX<�ASL A`<�TAXn<�MSKIP TYAx<$�LSR A�<.�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"=��SED2=��LDA $4000,Y:=ğCLCF=ΟADC $24V=؟STA $4000,Yc=�MALP CLDr=�BCC MAQUITz=��DEY�=�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 $FCG>��CMP #$0EV>��BCC �DIGITc>��LDA YPIBp>��BEQ QUIT~>��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 $41001?,�ASL A;?6�ASL AE?@�ASL AM?J�TAXU?T�DEXa?^�STX $FBo?h�LDA $4101y?r�ASL A�?|�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*@�RTS=@&�EQUAL JSR MSUPJ@0�LDY #$08_@:�ELOP LDA ($FB),Yo@D�STA ($22),Yw@N�DEY�@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
A��BNE ADLOPAƢCLDAТRTS0AڢSUBTRACT JSR MSUP=A�LDY #$08EA�SEDMA��SECcA�SULOP LDA ($FB),YsA�SBC ($FD),Y�A�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 AB��TAXB��LDA $4001,X B��CMP #$503B��BCC NEGRMOVEAB;B��PLAHB��ADC #$00PB��PHAbBʣJMP NEGRMOVEA{BԣNEGRMOVEAB LDA $4101�Bޣ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
CL�BCS NEGRMOVEBCV�NEGRMOVEBB PLA&C`�NOE� STA YPIB.Cj�RTSECt�NEGRMOVE LDA $4100MC~�PHA[C��LDA $4101cC��PHAqC��LDA $4102yC��PHA�C��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�PLAD�STA $4100D(�RTS.D2�NEGRMOVEA JSR NEGRMOVEAD<�JMP NEGRMOVEAB\DF�NEGRMOVEB JSR NEGRMOVEoDP�JMP NEGRMOVEBB�DZ�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EȥLDA #$18EҥSTA $4100'EܥLDA #$195E�STA $4101=E�PLAKE��STA $4102]E�JMP MULTIPLYB�EP�;           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	F��ASL AF��ASL AF��ASL A'F��ASL A1F��ASL A;F��ASL AGF��STA $02SF�LDA $FB[F�SECgF�SBC $02sF"�STA $FBF,�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 $FCG��LDA YPIXELG�į #$07G��STA YPIB)G��LDA $FB1G��SEC>G��SBC YPIBFG��PHAUG��LDA XPIXEL`G�į #$F8mG��STA YPIBuG��PLA}G�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
Hv�BEQ PP�H��LSR AH��DEX+H��JMP GBITLP;H��PP� STA $FDCH��RTSXH��PLO�N JSR PLOTPCeH��LDY #$00uH��LDA ($FB),Y�H�Ű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	I4�STA ($FB),YI>�RTS%IH�PLOT LDA COLOUR0IRƯ #$02=I\�BNE PPA�LIf�JSR PLO�FF[Ip�JMP PPACNTnIz�PPA� JSR PLO�N�I��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� ROUTINES5J��NOZOOM JMP �ROLOPJJ��ZOOMIN LDA $D015UJ�֯ #$F0bJ�CMP #$F0qJ
�BNE NOZOOM~J�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
Kx�JSR EQUALK��LDA #$10%K��STA $41002K��LDA #$1B@K��STA $4101MK��LDA #$12[K��STA $4102lK��JSR MULTIPLYyK��LDA #$11�K��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�IAL,�PHAL6�JSR ADDITI�L@�PLA#LJ�TAX+LT�DEX3L^�TXAFLh�JMP CALCINLOPA[Lr�CALC�IA LDA #$01iL|�STA $4100vL��LDA #$13�L��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 #$00!M��BEQ CALC�IB)M�PHA9M�JSR ADDITI�AM�PLAIM&�TAXQM0�DEXYM:�TXAlMD�JMP CALCINLOPB�MN�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	N��LDA #$1FN��STA $4100$N��LDA #$032N��STA $4101?N��LDA #$10MN��STA $4102^N��JSR SUBTRACTkN��LDA #$03yN�STA $4100�N�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 MULTIPLYOf�LDA #$11Op�STA $4100 Oz�STA $4102-O��LDA #$12;O��STA $4101IO��LDA $D009QO��SEC^O��SBC #$32tO��CALCINYA CMP #$00�O��BEQ CALC�IC�O��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 #$13P.�STA $4102P8�JSR EQUAL&PB�LDA #$134PL�STA $4100BPV�STA $4102OP`�LDA #$12]Pj�STA $4101kPt�LDA $D00DsP~�SEC�P��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 CALCINYBQ��CALC�ID LDA #$11Q��STA $4100Q�LDA #$03-Q
�STA $4102;Q�JSR EQUALHQ�LDA #$13VQ(�STA $4100cQ2�LDA #$1FqQ<�STA $4102QF�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	R��LDA #$17R��STA $4101$R��LDA #$022R��STA $4102CR��JSR MULTIPLYPR��LDA #$1F^R��STA $4100kR��LDA #$03yR��STA $4101�R�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 $4102S^�JSR MULTIPLYSh�JSR M�LE#Sr�JMP �ROLOPIS`�;                   ZOOM ROUTINESXSj�BOX LDA XPeSt�STA XPIBpS~�LDA YP}S��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 $07FFT��LDA $D015T�A #$F0T
�STA $D015/T�BOX� LDA CLICK<T�BNE BOX�RTx�BOXLOOP LDA XPBIB^T��CMP XPBpT��BEQ CHECKFINE�T��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 $D00CU��LDX #$00U��LDA XPBIB!U��BEQ NOXPBADD.U�LDX #$50EU�NOXPBADD LDA $D010PU� #$AF\U"�STX $02dU,�CLCpU6�ADC $02~U@�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�� #$5F'V��STX $02/V��CLC;V��ADC $02IV��STA $D010VV��JMP BOX�jV��LESSTHAN LDA XPvV��LDX XPB�V��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 #$50WX�LTNOADD LDA $D010Wb� #$AF"Wl�STX $02*Wv�CLC6W��ADC $02DW��STA $D010QW��LDX #$00^W��LDA XPIBfW��SECsW��SBC #$18�W��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�CLCX�ADC $02X �STA $D010#X*�BOX� LDA YP0X4�CMP YPIB>X>�BCC LESSYKXH�LDA YPIBYXR�STA $D009gX\�STA $D00BrXf�LDA YPzXp�SEC�Xz�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
Y��SBC #$15Y��STA $D00DY��STA $D00F2Y��BOX�II LDA CLICK?Y��BNE BOX�OY�JMP BOXLOOPcY�BOX� JMP �ROLOPxY0�BOXFLASH LDA $A2�Y:� #$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 $EA31Z��BOXCOLS TXT 0,9,2,8,10,7,13,13Z��TXT 1,13,3,5,14,4,6,0HZ�; DELETE THESE!!\Z"�COLS JMP �ROLOPqZJ��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..cmp #$03@.5..beq no.@.5..dec speed@.5..rts@D6..sldn lda speed@Q6..cmp #$19@]6..beq no.@+6F.inc speed@36P.rts@i6Z.colcycle lda #$0a@w6$.sta speed@C6..lda $a2@Q68.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@D7..jsr colc.s@R7..jsr colc.@ 7..lda col3s@-7..sta col0@;7..lda col0s@h7..sta col1@v7..lda col1s@C7..sta col2@Q7..lda col2s@.7..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@H8z.lda col1s@U8D.sta col3@#8N.jsr .cols@28X.jsr colc.s@@8..jsr colc.@n8..lda col1s@[8..sta col0@I8..lda col2s@V8..sta col1@.8..lda col3s@.8..sta col2@.8..lda col0s@.8..sta col3@.8..jsr .cols@.8..jsr colc.s@.8..jsr colc.@.8..jmp colcyclop@O9@.;             arithmetic routines@.9j..digit cld@(9t.asl a@29..asl a@<9H.asl a@h9R.sta $02@p9..txa@z9..lsr a@F9..sta $24@S9..lda #$07@.9..sec@.9..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@C:&.lsr a@M:0.lsr a@W::.lsr a@.:d.rts@-:n.lsngd tya@8:x.. #$0f@@:B.rts@[:L.multiplyb jsr negative@I:Q.lda $4102@S:V.asl a@.:..asl a@.:..asl a@.:..tax@.:..lda #$00@.:..tay@.:..mlopa sta $4000,x@.:..iny@.:..inx@.:..cpy #$08@.:..bne mlopa@.:..lda #$06@.:..sta $fc@S;...digit lda $4101@.;B.ldx $fc@.;L.jsr .digit@;;V.cmp #$00@j; .beq dmover@v;*.sta $fd@C;4.lda #$06@O;>.sta $fb@.;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@G<..ldx $fd@O<..tay@Z<... #$01@(<..beq mskip@0<..txa@:<..asl a@d<..asl a@n<..asl a@x<F.asl a@.<P.tax@N<Z.mskip tya@X<$.lsr a@.<..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@I=..stx $24@Z=..dmlb ldx $02@"=..sed@2=..lda $4000,y@:=..clc@f=..adc $24@v=..sta $4000,y@C=..malp cld@R=..bcc maquit@Z=..dey@.=@.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@G>D.lda $fb@T>N.cmp #$0e@">X.bcc dmlop@.>..inc $fc@:>..lda $fc@g>..cmp #$0e@v>..bcc .digit@C>..lda ypib@P>..beq quit@.>..lda $4102@.>..sta $4101@.>..lda #$1d@.>..sta $4100@.>..jsr subtract@.>..quit rts@.>..maquit ldx $fe@.>D.dex@.>G.beq dmover@.>J.stx $fe@G?N.ldy $25@T?X.jmp dmlb@'?".msup lda $4100@1?,.asl a@;?6.asl a@e?@.asl a@m?j.tax@u?t.dex@A?..stx $fb@O?H.lda $4101@Y?R.asl a@.?..asl a@.?..asl a@.?..tax@.?..dex@.?..stx $fd@.?..lda $4102@.?..asl a@.?..asl a@.?..asl a@.?..tax@.?..dex@.?..stx $22@.?..lda #$40@J@..sta $fc@V@H.sta $fe@"@R.sta $23@*@£.rts@=@&.equal jsr msup@j@0.ldy #$08@.@:.elop lda ($fb),y@O@d.sta ($22),y@W@n.dey@.@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@Ja..bne adlop@Ra..cld@Za..rts@0a..subtract jsr msup@=a..ldy #$08@ea..sed@ma..sec@CaB.sulop lda ($fb),y@SaL.sbc ($fd),y@.aV.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@Cb..tax@Sb..lda $4001,x@ b..cmp #$50@3b..bcc negrmoveab@;b..pla@hb..adc #$00@pb..pha@Bb..jmp negrmovea@.b..negrmoveab lda $4101@.b..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@Acl.bcs negrmoveb@Tcv.negrmovebb pla@&c..noe. sta ypib@.cJ.rts@ecT.negrmove lda $4100@mc..pha@[c..lda $4101@Cc..pha@Qc..lda $4102@Yc..pha@.c..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@Kd..sta $4100@Sd(.rts@.d2.negrmovea jsr negrmove@ad<.jmp negrmoveab@£df.negrmoveb jsr negrmove@Odp.jmp negrmovebb@.dz.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@Le..lda #$18@Ze..sta $4100@'e..lda #$19@5e..sta $4101@=e..pla@ke..sta $4102@]eD.jmp multiplyb@.ep.;           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@If..asl a@Sf..asl a@]f..asl a@'f..asl a@1f..asl a@;f..asl a@gf..sta $02@sfD.lda $fb@[fN.sec@GfX.sbc $02@Sf".sta $fb@.f,.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@Eg..lda ypixel@Pg... #$07@]g..sta ypib@)g..lda $fb@1g..sec@>g..sbc ypib@fg..pha@ug..lda xpixel@.g... #$f8@Mg..sta ypib@Ug..pla@.gH.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@JhV.beq pp.@Th..lsr a@£h..dex@+h..jmp gbitlp@;h..pp. sta $fd@ch..rts@xh..plo.n jsr plotpc@Eh..ldy #$00@Uh..lda ($fb),y@.h...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@Ii4.sta ($fb),y@Qi>.rts@%ih.plot lda colour@0ir.. #$02@=i£.bne ppa.@liF.jsr plo.ff@[iP.jmp ppacnt@NiZ.ppa. jsr plo.n@.i..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@.j..;       zoom calculati. routines@5j..nozoom jmp .rolop@jj..zoomin lda $d015@uj... #$f0@Bj@.cmp #$f0@QjJ.bne nozoom@.jT.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@JkX.jsr equal@Wk..lda #$10@%k..sta $4100@2k..lda #$1b@@k..sta $4101@mk..lda #$12@[k..sta $4102@Lk..jsr multiply@Yk..lda #$11@.k..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@Cl,.pha@Sl6.jsr additi.@[l@.pla@#lj.tax@+lt.dex@3l..txa@flH.jmp calcinlopa@[lR.calc.ia lda #$01@Il..sta $4100@Vl..lda #$13@.l..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@Qm..calcinlopb cmp #$00@!m..beq calc.ib@)mH.pha@9mR.jsr additi.@am£.pla@im&.tax@qm0.dex@ym:.txa@Lmd.jmp calcinlopb@.mn.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@In..lda #$1f@Wn..sta $4100@$n..lda #$03@2n..sta $4101@?n..lda #$10@mn..sta $4102@.n..jsr subtract@Kn..lda #$03@YnB.sta $4100@.nL.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@DoF.lda #$11@RoP.sta $4100@ oZ.sta $4102@-o..lda #$12@;o..sta $4101@io..lda $d009@qo..sec@.o..sbc #$32@To..calcinya cmp #$00@.o..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@Kp..sta $4102@Yp8.jsr equal@&pb.lda #$13@4pl.sta $4100@bpv.sta $4102@op..lda #$12@]pJ.sta $4101@KpT.lda $d00d@Sp..sec@.p..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@Dq..calc.id lda #$11@Rq..sta $4100@.q@.lda #$03@-qJ.sta $4102@;qT.jsr equal@hq..lda #$13@vq(.sta $4100@Cq2.lda #$1f@Qq<.sta $4102@.qf.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@Ir..lda #$17@Wr..sta $4101@$r..lda #$02@2r..sta $4102@cr..jsr multiply@pr..lda #$1f@.r..sta $4100@Kr..lda #$03@Yr..sta $4101@.rD.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@Gs..jsr multiply@TsH.jsr m.le@#sR.jmp .rolop@is..;                   zoom routines@xsJ.box lda xp@EsT.sta xpib@Ps..lda yp@.s..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@Bt..lda $d015@Nt@..a #$f0@£tJ.sta $d015@/tT.box. lda click@<t..bne box.@rtX.boxloop lda xpbib@.t..cmp xpb@Pt..beq checkfine@.t..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@Bu..ldx #$00@Pu..lda xpbib@!u..beq noxpbadd@.uD.ldx #$50@euN.noxpbadd lda $d010@puX.. #$af@£u".stx $02@Du,.clc@Pu6.adc $02@.u@.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@Pv..mtsub lda $d010@[v... #$5f@'v..stx $02@/v..clc@;v..adc $02@iv..sta $d010@vv..jmp box.@Jv..lessthan lda xp@Vv..ldx xpb@.v..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@Kwx.ltnoadd lda $d010@VwB.. #$af@"wL.stx $02@*wV.clc@6w..adc $02@dw..sta $d010@qw..ldx #$00@.w..lda xpib@Fw..sec@Sw..sbc #$18@.w..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@ExV.adc $02@Sx .sta $d010@#x*.box. lda yp@0x4.cmp ypib@>x>.bcc lessy@kxh.lda ypib@yxr.sta $d009@Gx£.sta $d00b@RxF.lda yp@ZxP.sec@.xZ.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@Ay..sbc #$15@Oy..sta $d00d@]y..sta $d00f@2y..box.ii lda click@?y..bne box.@oyF.jmp boxloop@CyP.box. jmp .rolop@Xy0.boxflash lda $a2@.y:.. #$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@Yz..boxcols txt 0,9,2,8,10,7,13,1@3z..txt 1,13,3,5,14,4,6,0@hzX.; delete these!!@£z".cols jmp .rolop@Qzj..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 cf 35 c5 8a 43 4d 50  20 23 24 30 33 00 db 35  |..5..CMP #$03..5|
00002dd0  ca 8a 42 45 51 20 4e 4f  dc 00 e9 35 d4 8a 44 45  |..BEQ NO...5..DE|
00002de0  43 20 53 50 45 45 44 00  f1 35 de 8a 52 54 53 00  |C SPEED..5..RTS.|
00002df0  04 36 e8 8a 53 4c 44 4e  20 4c 44 41 20 53 50 45  |.6..SLDN LDA SPE|
00002e00  45 44 00 11 36 f2 8a 43  4d 50 20 23 24 31 39 00  |ED..6..CMP #$19.|
00002e10  1d 36 fc 8a 42 45 51 20  4e 4f dc 00 2b 36 06 8b  |.6..BEQ NO..+6..|
00002e20  49 4e 43 20 53 50 45 45  44 00 33 36 10 8b 52 54  |INC SPEED.36..RT|
00002e30  53 00 49 36 1a 8b 43 4f  4c 43 59 43 4c 45 20 4c  |S.I6..COLCYCLE L|
00002e40  44 41 20 23 24 30 41 00  57 36 24 8b 53 54 41 20  |DA #$0A.W6$.STA |
00002e50  53 50 45 45 44 00 63 36  2e 8b 4c 44 41 20 24 41  |SPEED.c6..LDA $A|
00002e60  32 00 71 36 38 8b 53 54  41 20 d5 54 49 4d 45 00  |2.q68.STA .TIME.|
00002e70  89 36 42 8b 43 4f 4c 43  59 43 4c 4f 50 20 4c 44  |.6B.COLCYCLOP LD|
00002e80  41 20 43 4f 4c 30 53 00  96 36 4c 8b 53 54 41 20  |A COL0S..6L.STA |
00002e90  43 4f 4c 30 00 a4 36 56  8b 4c 44 41 20 43 4f 4c  |COL0..6V.LDA COL|
00002ea0  31 53 00 b1 36 60 8b 53  54 41 20 43 4f 4c 31 00  |1S..6`.STA COL1.|
00002eb0  bf 36 6a 8b 4c 44 41 20  43 4f 4c 32 53 00 cc 36  |.6j.LDA COL2S..6|
00002ec0  74 8b 53 54 41 20 43 4f  4c 32 00 da 36 7e 8b 4c  |t.STA COL2..6~.L|
00002ed0  44 41 20 43 4f 4c 33 53  00 e7 36 88 8b 53 54 41  |DA COL3S..6..STA|
00002ee0  20 43 4f 4c 33 00 f5 36  92 8b 4a 53 52 20 e8 43  | COL3..6..JSR .C|
00002ef0  4f 4c 53 00 04 37 9c 8b  4a 53 52 20 43 4f 4c 43  |OLS..7..JSR COLC|
00002f00  dc 53 00 12 37 a6 8b 4a  53 52 20 43 4f 4c 43 92  |.S..7..JSR COLC.|
00002f10  00 20 37 b0 8b 4c 44 41  20 43 4f 4c 33 53 00 2d  |. 7..LDA COL3S.-|
00002f20  37 ba 8b 53 54 41 20 43  4f 4c 30 00 3b 37 c4 8b  |7..STA COL0.;7..|
00002f30  4c 44 41 20 43 4f 4c 30  53 00 48 37 ce 8b 53 54  |LDA COL0S.H7..ST|
00002f40  41 20 43 4f 4c 31 00 56  37 d8 8b 4c 44 41 20 43  |A COL1.V7..LDA C|
00002f50  4f 4c 31 53 00 63 37 e2  8b 53 54 41 20 43 4f 4c  |OL1S.c7..STA COL|
00002f60  32 00 71 37 ec 8b 4c 44  41 20 43 4f 4c 32 53 00  |2.q7..LDA COL2S.|
00002f70  7e 37 f6 8b 53 54 41 20  43 4f 4c 33 00 8c 37 00  |~7..STA COL3..7.|
00002f80  8c 4a 53 52 20 e8 43 4f  4c 53 00 9b 37 0a 8c 4a  |.JSR .COLS..7..J|
00002f90  53 52 20 43 4f 4c 43 dc  53 00 a9 37 14 8c 4a 53  |SR COLC.S..7..JS|
00002fa0  52 20 43 4f 4c 43 92 00  b7 37 1e 8c 4c 44 41 20  |R COLC...7..LDA |
00002fb0  43 4f 4c 32 53 00 c4 37  28 8c 53 54 41 20 43 4f  |COL2S..7(.STA CO|
00002fc0  4c 30 00 d2 37 32 8c 4c  44 41 20 43 4f 4c 33 53  |L0..72.LDA COL3S|
00002fd0  00 df 37 3c 8c 53 54 41  20 43 4f 4c 31 00 ed 37  |..7<.STA COL1..7|
00002fe0  46 8c 4c 44 41 20 43 4f  4c 30 53 00 fa 37 50 8c  |F.LDA COL0S..7P.|
00002ff0  53 54 41 20 43 4f 4c 32  00 08 38 5a 8c 4c 44 41  |STA COL2..8Z.LDA|
00003000  20 43 4f 4c 31 53 00 15  38 64 8c 53 54 41 20 43  | COL1S..8d.STA C|
00003010  4f 4c 33 00 23 38 6e 8c  4a 53 52 20 e8 43 4f 4c  |OL3.#8n.JSR .COL|
00003020  53 00 32 38 78 8c 4a 53  52 20 43 4f 4c 43 dc 53  |S.28x.JSR COLC.S|
00003030  00 40 38 82 8c 4a 53 52  20 43 4f 4c 43 92 00 4e  |.@8..JSR COLC..N|
00003040  38 8c 8c 4c 44 41 20 43  4f 4c 31 53 00 5b 38 96  |8..LDA COL1S.[8.|
00003050  8c 53 54 41 20 43 4f 4c  30 00 69 38 a0 8c 4c 44  |.STA COL0.i8..LD|
00003060  41 20 43 4f 4c 32 53 00  76 38 aa 8c 53 54 41 20  |A COL2S.v8..STA |
00003070  43 4f 4c 31 00 84 38 b4  8c 4c 44 41 20 43 4f 4c  |COL1..8..LDA COL|
00003080  33 53 00 91 38 be 8c 53  54 41 20 43 4f 4c 32 00  |3S..8..STA COL2.|
00003090  9f 38 c8 8c 4c 44 41 20  43 4f 4c 30 53 00 ac 38  |.8..LDA COL0S..8|
000030a0  d2 8c 53 54 41 20 43 4f  4c 33 00 ba 38 dc 8c 4a  |..STA COL3..8..J|
000030b0  53 52 20 e8 43 4f 4c 53  00 c9 38 e6 8c 4a 53 52  |SR .COLS..8..JSR|
000030c0  20 43 4f 4c 43 dc 53 00  d7 38 f0 8c 4a 53 52 20  | COLC.S..8..JSR |
000030d0  43 4f 4c 43 92 00 e9 38  fa 8c 4a 4d 50 20 43 4f  |COLC...8..JMP CO|
000030e0  4c 43 59 43 4c 4f 50 00  0f 39 40 9c 3b 20 20 20  |LCYCLOP..9@.;   |
000030f0  20 20 20 20 20 20 20 20  20 20 41 52 49 54 48 4d  |          ARITHM|
00003100  45 54 49 43 20 52 4f 55  54 49 4e 45 53 00 1e 39  |ETIC ROUTINES..9|
00003110  4a 9c a1 44 49 47 49 54  20 43 4c 44 00 28 39 54  |J..DIGIT CLD.(9T|
00003120  9c 41 53 4c 20 41 00 32  39 5e 9c 41 53 4c 20 41  |.ASL A.29^.ASL A|
00003130  00 3c 39 68 9c 41 53 4c  20 41 00 48 39 72 9c 53  |.<9h.ASL A.H9r.S|
00003140  54 41 20 24 30 32 00 50  39 7c 9c 54 58 41 00 5a  |TA $02.P9|.TXA.Z|
00003150  39 86 9c 4c 53 52 20 41  00 66 39 90 9c 53 54 41  |9..LSR A.f9..STA|
00003160  20 24 32 34 00 73 39 9a  9c 4c 44 41 20 23 24 30  | $24.s9..LDA #$0|
00003170  37 00 7b 39 a4 9c 53 45  43 00 87 39 ae 9c 53 42  |7.{9..SEC..9..SB|
00003180  43 20 24 32 34 00 8f 39  b8 9c 43 4c 43 00 9b 39  |C $24..9..CLC..9|
00003190  c2 9c 41 44 43 20 24 30  32 00 a3 39 cc 9c 54 41  |..ADC $02..9..TA|
000031a0  59 00 b3 39 d6 9c 4c 44  41 20 24 34 30 30 30 2c  |Y..9..LDA $4000,|
000031b0  59 00 bb 39 e0 9c 54 41  59 00 c3 39 ea 9c 54 58  |Y..9..TAY..9..TX|
000031c0  41 00 ce 39 f4 9c af 20  23 24 30 31 00 dc 39 fe  |A..9... #$01..9.|
000031d0  9c 42 45 51 20 4c 53 4e  47 44 00 e4 39 08 9d 54  |.BEQ LSNGD..9..T|
000031e0  59 41 00 ef 39 12 9d af  20 23 24 46 30 00 f9 39  |YA..9... #$F0..9|
000031f0  1c 9d 4c 53 52 20 41 00  03 3a 26 9d 4c 53 52 20  |..LSR A..:&.LSR |
00003200  41 00 0d 3a 30 9d 4c 53  52 20 41 00 17 3a 3a 9d  |A..:0.LSR A..::.|
00003210  4c 53 52 20 41 00 1f 3a  44 9d 52 54 53 00 2d 3a  |LSR A..:D.RTS.-:|
00003220  4e 9d 4c 53 4e 47 44 20  54 59 41 00 38 3a 58 9d  |N.LSNGD TYA.8:X.|
00003230  af 20 23 24 30 46 00 40  3a 62 9d 52 54 53 00 5b  |. #$0F.@:b.RTS.[|
00003240  3a 6c 9d 4d 55 4c 54 49  50 4c 59 42 20 4a 53 52  |:l.MULTIPLYB JSR|
00003250  20 4e 45 47 41 54 49 56  45 00 69 3a 71 9d 4c 44  | NEGATIVE.i:q.LD|
00003260  41 20 24 34 31 30 32 00  73 3a 76 9d 41 53 4c 20  |A $4102.s:v.ASL |
00003270  41 00 7d 3a 80 9d 41 53  4c 20 41 00 87 3a 8a 9d  |A.}:..ASL A..:..|
00003280  41 53 4c 20 41 00 8f 3a  94 9d 54 41 58 00 9c 3a  |ASL A..:..TAX..:|
00003290  9e 9d 4c 44 41 20 23 24  30 30 00 a4 3a a8 9d 54  |..LDA #$00..:..T|
000032a0  41 59 00 ba 3a b2 9d 4d  4c 4f 50 41 20 53 54 41  |AY..:..MLOPA STA|
000032b0  20 24 34 30 30 30 2c 58  00 c2 3a bc 9d 49 4e 59  | $4000,X..:..INY|
000032c0  00 ca 3a c6 9d 49 4e 58  00 d7 3a d0 9d 43 50 59  |..:..INX..:..CPY|
000032d0  20 23 24 30 38 00 e5 3a  da 9d 42 4e 45 20 4d 4c  | #$08..:..BNE ML|
000032e0  4f 50 41 00 f2 3a e4 9d  4c 44 41 20 23 24 30 36  |OPA..:..LDA #$06|
000032f0  00 fe 3a ee 9d 53 54 41  20 24 46 43 00 13 3b f8  |..:..STA $FC..;.|
00003300  9d a2 44 49 47 49 54 20  4c 44 41 20 24 34 31 30  |..DIGIT LDA $410|
00003310  31 00 1f 3b 02 9e 4c 44  58 20 24 46 43 00 2e 3b  |1..;..LDX $FC..;|
00003320  0c 9e 4a 53 52 20 a1 44  49 47 49 54 00 3b 3b 16  |..JSR .DIGIT.;;.|
00003330  9e 43 4d 50 20 23 24 30  30 00 4a 3b 20 9e 42 45  |.CMP #$00.J; .BE|
00003340  51 20 44 4d 4f 56 45 52  00 56 3b 2a 9e 53 54 41  |Q DMOVER.V;*.STA|
00003350  20 24 46 44 00 63 3b 34  9e 4c 44 41 20 23 24 30  | $FD.c;4.LDA #$0|
00003360  36 00 6f 3b 3e 9e 53 54  41 20 24 46 42 00 83 3b  |6.o;>.STA $FB..;|
00003370  48 9e 44 4d 4c 4f 50 20  4c 44 41 20 24 34 31 30  |H.DMLOP LDA $410|
00003380  30 00 8f 3b 52 9e 4c 44  58 20 24 46 42 00 9e 3b  |0..;R.LDX $FB..;|
00003390  5c 9e 4a 53 52 20 a1 44  49 47 49 54 00 ab 3b 66  |\.JSR .DIGIT..;f|
000033a0  9e 43 4d 50 20 23 24 30  30 00 ba 3b 70 9e 42 45  |.CMP #$00..;p.BE|
000033b0  51 20 44 4d 4f 56 45 52  00 c6 3b 7a 9e 53 54 41  |Q DMOVER..;z.STA|
000033c0  20 24 46 45 00 d2 3b 84  9e 4c 44 41 20 24 46 42  | $FE..;..LDA $FB|
000033d0  00 da 3b 8e 9e 43 4c 43  00 e6 3b 98 9e 41 44 43  |..;..CLC..;..ADC|
000033e0  20 24 46 43 00 ee 3b a2  9e 53 45 43 00 fb 3b ac  | $FC..;..SEC..;.|
000033f0  9e 53 42 43 20 23 24 30  43 00 07 3c b6 9e 4c 44  |.SBC #$0C..<..LD|
00003400  58 20 24 46 44 00 0f 3c  c0 9e 54 41 59 00 1a 3c  |X $FD..<..TAY..<|
00003410  ca 9e af 20 23 24 30 31  00 28 3c d4 9e 42 45 51  |... #$01.(<..BEQ|
00003420  20 4d 53 4b 49 50 00 30  3c de 9e 54 58 41 00 3a  | MSKIP.0<..TXA.:|
00003430  3c e8 9e 41 53 4c 20 41  00 44 3c f2 9e 41 53 4c  |<..ASL A.D<..ASL|
00003440  20 41 00 4e 3c fc 9e 41  53 4c 20 41 00 58 3c 06  | A.N<..ASL A.X<.|
00003450  9f 41 53 4c 20 41 00 60  3c 10 9f 54 41 58 00 6e  |.ASL A.`<..TAX.n|
00003460  3c 1a 9f 4d 53 4b 49 50  20 54 59 41 00 78 3c 24  |<..MSKIP TYA.x<$|
00003470  9f 4c 53 52 20 41 00 84  3c 2e 9f 53 54 41 20 24  |.LSR A..<..STA $|
00003480  30 32 00 91 3c 38 9f 4c  44 41 20 23 24 30 37 00  |02..<8.LDA #$07.|
00003490  99 3c 42 9f 53 45 43 00  a5 3c 4c 9f 53 42 43 20  |.<B.SEC..<L.SBC |
000034a0  24 30 32 00 b1 3c 56 9f  53 54 41 20 24 30 32 00  |$02..<V.STA $02.|
000034b0  bf 3c 60 9f 4c 44 41 20  24 34 31 30 32 00 c9 3c  |.<`.LDA $4102..<|
000034c0  6a 9f 41 53 4c 20 41 00  d3 3c 74 9f 41 53 4c 20  |j.ASL A..<t.ASL |
000034d0  41 00 dd 3c 7e 9f 41 53  4c 20 41 00 e9 3c 88 9f  |A..<~.ASL A..<..|
000034e0  41 44 43 20 24 30 32 00  f5 3c 8d 9f 53 54 41 20  |ADC $02..<..STA |
000034f0  24 32 35 00 fd 3c 92 9f  54 41 59 00 09 3d 9c 9f  |$25..<..TAY..=..|
00003500  53 54 58 20 24 32 34 00  1a 3d a6 9f 44 4d 4c 42  |STX $24..=..DMLB|
00003510  20 4c 44 58 20 24 30 32  00 22 3d b0 9f 53 45 44  | LDX $02."=..SED|
00003520  00 32 3d ba 9f 4c 44 41  20 24 34 30 30 30 2c 59  |.2=..LDA $4000,Y|
00003530  00 3a 3d c4 9f 43 4c 43  00 46 3d ce 9f 41 44 43  |.:=..CLC.F=..ADC|
00003540  20 24 32 34 00 56 3d d8  9f 53 54 41 20 24 34 30  | $24.V=..STA $40|
00003550  30 30 2c 59 00 63 3d e2  9f 4d 41 4c 50 20 43 4c  |00,Y.c=..MALP CL|
00003560  44 00 72 3d ec 9f 42 43  43 20 4d 41 51 55 49 54  |D.r=..BCC MAQUIT|
00003570  00 7a 3d f6 9f 44 45 59  00 82 3d 00 a0 44 45 58  |.z=..DEY..=..DEX|
00003580  00 8f 3d 0a a0 43 50 58  20 23 24 46 46 00 9e 3d  |..=..CPX #$FF..=|
00003590  14 a0 42 45 51 20 4d 41  51 55 49 54 00 a6 3d 1e  |..BEQ MAQUIT..=.|
000035a0  a0 53 45 44 00 b6 3d 28  a0 4c 44 41 20 24 34 30  |.SED..=(.LDA $40|
000035b0  30 30 2c 59 00 be 3d 32  a0 43 4c 43 00 cb 3d 3c  |00,Y..=2.CLC..=<|
000035c0  a0 41 44 43 20 23 24 30  31 00 db 3d 46 a0 53 54  |.ADC #$01..=F.ST|
000035d0  41 20 24 34 30 30 30 2c  59 00 e8 3d 50 a0 4a 4d  |A $4000,Y..=P.JM|
000035e0  50 20 4d 41 4c 50 00 fb  3d 5a a0 44 4d 4f 56 45  |P MALP..=Z.DMOVE|
000035f0  52 20 49 4e 43 20 24 46  42 00 07 3e 64 a0 4c 44  |R INC $FB..>d.LD|
00003600  41 20 24 46 42 00 14 3e  6e a0 43 4d 50 20 23 24  |A $FB..>n.CMP #$|
00003610  30 45 00 22 3e 78 a0 42  43 43 20 44 4d 4c 4f 50  |0E.">x.BCC DMLOP|
00003620  00 2e 3e 82 a0 49 4e 43  20 24 46 43 00 3a 3e 8c  |..>..INC $FC.:>.|
00003630  a0 4c 44 41 20 24 46 43  00 47 3e 96 a0 43 4d 50  |.LDA $FC.G>..CMP|
00003640  20 23 24 30 45 00 56 3e  a0 a0 42 43 43 20 a2 44  | #$0E.V>..BCC .D|
00003650  49 47 49 54 00 63 3e aa  a0 4c 44 41 20 59 50 49  |IGIT.c>..LDA YPI|
00003660  42 00 70 3e b4 a0 42 45  51 20 51 55 49 54 00 7e  |B.p>..BEQ QUIT.~|
00003670  3e be a0 4c 44 41 20 24  34 31 30 32 00 8c 3e c8  |>..LDA $4102..>.|
00003680  a0 53 54 41 20 24 34 31  30 31 00 99 3e d2 a0 4c  |.STA $4101..>..L|
00003690  44 41 20 23 24 31 44 00  a7 3e dc a0 53 54 41 20  |DA #$1D..>..STA |
000036a0  24 34 31 30 30 00 b8 3e  e6 a0 4a 53 52 20 53 55  |$4100..>..JSR SU|
000036b0  42 54 52 41 43 54 00 c5  3e f0 a0 51 55 49 54 20  |BTRACT..>..QUIT |
000036c0  52 54 53 00 d8 3e fa a0  4d 41 51 55 49 54 20 4c  |RTS..>..MAQUIT L|
000036d0  44 58 20 24 46 45 00 e0  3e 04 a1 44 45 58 00 ef  |DX $FE..>..DEX..|
000036e0  3e 07 a1 42 45 51 20 44  4d 4f 56 45 52 00 fb 3e  |>..BEQ DMOVER..>|
000036f0  0a a1 53 54 58 20 24 46  45 00 07 3f 0e a1 4c 44  |..STX $FE..?..LD|
00003700  59 20 24 32 35 00 14 3f  18 a1 4a 4d 50 20 44 4d  |Y $25..?..JMP DM|
00003710  4c 42 00 27 3f 22 a1 4d  53 55 50 20 4c 44 41 20  |LB.'?".MSUP LDA |
00003720  24 34 31 30 30 00 31 3f  2c a1 41 53 4c 20 41 00  |$4100.1?,.ASL A.|
00003730  3b 3f 36 a1 41 53 4c 20  41 00 45 3f 40 a1 41 53  |;?6.ASL A.E?@.AS|
00003740  4c 20 41 00 4d 3f 4a a1  54 41 58 00 55 3f 54 a1  |L A.M?J.TAX.U?T.|
00003750  44 45 58 00 61 3f 5e a1  53 54 58 20 24 46 42 00  |DEX.a?^.STX $FB.|
00003760  6f 3f 68 a1 4c 44 41 20  24 34 31 30 31 00 79 3f  |o?h.LDA $4101.y?|
00003770  72 a1 41 53 4c 20 41 00  83 3f 7c a1 41 53 4c 20  |r.ASL A..?|.ASL |
00003780  41 00 8d 3f 86 a1 41 53  4c 20 41 00 95 3f 90 a1  |A..?..ASL A..?..|
00003790  54 41 58 00 9d 3f 9a a1  44 45 58 00 a9 3f a4 a1  |TAX..?..DEX..?..|
000037a0  53 54 58 20 24 46 44 00  b7 3f ae a1 4c 44 41 20  |STX $FD..?..LDA |
000037b0  24 34 31 30 32 00 c1 3f  b8 a1 41 53 4c 20 41 00  |$4102..?..ASL A.|
000037c0  cb 3f c2 a1 41 53 4c 20  41 00 d5 3f cc a1 41 53  |.?..ASL A..?..AS|
000037d0  4c 20 41 00 dd 3f d6 a1  54 41 58 00 e5 3f e0 a1  |L A..?..TAX..?..|
000037e0  44 45 58 00 f1 3f ea a1  53 54 58 20 24 32 32 00  |DEX..?..STX $22.|
000037f0  fe 3f f4 a1 4c 44 41 20  23 24 34 30 00 0a 40 fe  |.?..LDA #$40..@.|
00003800  a1 53 54 41 20 24 46 43  00 16 40 08 a2 53 54 41  |.STA $FC..@..STA|
00003810  20 24 46 45 00 22 40 12  a2 53 54 41 20 24 32 33  | $FE."@..STA $23|
00003820  00 2a 40 1c a2 52 54 53  00 3d 40 26 a2 45 51 55  |.*@..RTS.=@&.EQU|
00003830  41 4c 20 4a 53 52 20 4d  53 55 50 00 4a 40 30 a2  |AL JSR MSUP.J@0.|
00003840  4c 44 59 20 23 24 30 38  00 5f 40 3a a2 45 4c 4f  |LDY #$08._@:.ELO|
00003850  50 20 4c 44 41 20 28 24  46 42 29 2c 59 00 6f 40  |P LDA ($FB),Y.o@|
00003860  44 a2 53 54 41 20 28 24  32 32 29 2c 59 00 77 40  |D.STA ($22),Y.w@|
00003870  4e a2 44 45 59 00 84 40  58 a2 42 4e 45 20 45 4c  |N.DEY..@X.BNE EL|
00003880  4f 50 00 8c 40 62 a2 52  54 53 00 a1 40 6c a2 41  |OP..@b.RTS..@l.A|
00003890  44 44 49 54 49 91 20 4a  53 52 20 4d 53 55 50 00  |DDITI. JSR MSUP.|
000038a0  ae 40 76 a2 4c 44 59 20  23 24 30 38 00 b6 40 80  |.@v.LDY #$08..@.|
000038b0  a2 53 45 44 00 be 40 8a  a2 43 4c 43 00 d4 40 94  |.SED..@..CLC..@.|
000038c0  a2 41 44 4c 4f 50 20 4c  44 41 20 28 24 46 42 29  |.ADLOP LDA ($FB)|
000038d0  2c 59 00 e4 40 9e a2 41  44 43 20 28 24 46 44 29  |,Y..@..ADC ($FD)|
000038e0  2c 59 00 f4 40 a8 a2 53  54 41 20 28 24 32 32 29  |,Y..@..STA ($22)|
000038f0  2c 59 00 fc 40 b2 a2 44  45 59 00 0a 41 bc a2 42  |,Y..@..DEY..A..B|
00003900  4e 45 20 41 44 4c 4f 50  00 12 41 c6 a2 43 4c 44  |NE ADLOP..A..CLD|
00003910  00 1a 41 d0 a2 52 54 53  00 30 41 da a2 53 55 42  |..A..RTS.0A..SUB|
00003920  54 52 41 43 54 20 4a 53  52 20 4d 53 55 50 00 3d  |TRACT JSR MSUP.=|
00003930  41 e4 a2 4c 44 59 20 23  24 30 38 00 45 41 ee a2  |A..LDY #$08.EA..|
00003940  53 45 44 00 4d 41 f8 a2  53 45 43 00 63 41 02 a3  |SED.MA..SEC.cA..|
00003950  53 55 4c 4f 50 20 4c 44  41 20 28 24 46 42 29 2c  |SULOP LDA ($FB),|
00003960  59 00 73 41 0c a3 53 42  43 20 28 24 46 44 29 2c  |Y.sA..SBC ($FD),|
00003970  59 00 83 41 16 a3 53 54  41 20 28 24 32 32 29 2c  |Y..A..STA ($22),|
00003980  59 00 8b 41 20 a3 44 45  59 00 99 41 2a a3 42 4e  |Y..A .DEY..A*.BN|
00003990  45 20 53 55 4c 4f 50 00  a1 41 34 a3 43 4c 44 00  |E SULOP..A4.CLD.|
000039a0  a9 41 3e a3 52 54 53 00  bf 41 48 a3 4e 45 47 41  |.A>.RTS..AH.NEGA|
000039b0  54 49 56 45 20 4c 44 41  20 23 24 30 30 00 c7 41  |TIVE LDA #$00..A|
000039c0  52 a3 50 48 41 00 d5 41  5c a3 4c 44 41 20 24 34  |R.PHA..A\.LDA $4|
000039d0  31 30 30 00 dd 41 66 a3  54 41 59 00 e7 41 70 a3  |100..Af.TAY..Ap.|
000039e0  41 53 4c 20 41 00 f1 41  7a a3 41 53 4c 20 41 00  |ASL A..Az.ASL A.|
000039f0  fb 41 84 a3 41 53 4c 20  41 00 03 42 8e a3 54 41  |.A..ASL A..B..TA|
00003a00  58 00 13 42 98 a3 4c 44  41 20 24 34 30 30 31 2c  |X..B..LDA $4001,|
00003a10  58 00 20 42 a2 a3 43 4d  50 20 23 24 35 30 00 33  |X. B..CMP #$50.3|
00003a20  42 a7 a3 42 43 43 20 4e  45 47 52 4d 4f 56 45 41  |B..BCC NEGRMOVEA|
00003a30  42 00 3b 42 ac a3 50 4c  41 00 48 42 b6 a3 41 44  |B.;B..PLA.HB..AD|
00003a40  43 20 23 24 30 30 00 50  42 c0 a3 50 48 41 00 62  |C #$00.PB..PHA.b|
00003a50  42 ca a3 4a 4d 50 20 4e  45 47 52 4d 4f 56 45 41  |B..JMP NEGRMOVEA|
00003a60  00 7b 42 d4 a3 4e 45 47  52 4d 4f 56 45 41 42 20  |.{B..NEGRMOVEAB |
00003a70  4c 44 41 20 24 34 31 30  31 00 83 42 de a3 54 41  |LDA $4101..B..TA|
00003a80  59 00 8d 42 e8 a3 41 53  4c 20 41 00 97 42 f2 a3  |Y..B..ASL A..B..|
00003a90  41 53 4c 20 41 00 a1 42  fc a3 41 53 4c 20 41 00  |ASL A..B..ASL A.|
00003aa0  a9 42 06 a4 54 41 58 00  b9 42 10 a4 4c 44 41 20  |.B..TAX..B..LDA |
00003ab0  24 34 30 30 31 2c 58 00  c6 42 1a a4 43 4d 50 20  |$4001,X..B..CMP |
00003ac0  23 24 35 30 00 ce 42 24  a4 50 4c 41 00 db 42 2e  |#$50..B$.PLA..B.|
00003ad0  a4 42 43 43 20 4e 4f 45  b0 00 e7 42 38 a4 45 b0  |.BCC NOE...B8.E.|
00003ae0  20 23 24 30 31 00 ef 42  42 a4 50 48 41 00 01 43  | #$01..BB.PHA..C|
00003af0  4c a4 42 43 53 20 4e 45  47 52 4d 4f 56 45 42 00  |L.BCS NEGRMOVEB.|
00003b00  14 43 56 a4 4e 45 47 52  4d 4f 56 45 42 42 20 50  |.CV.NEGRMOVEBB P|
00003b10  4c 41 00 26 43 60 a4 4e  4f 45 b0 20 53 54 41 20  |LA.&C`.NOE. STA |
00003b20  59 50 49 42 00 2e 43 6a  a4 52 54 53 00 45 43 74  |YPIB..Cj.RTS.ECt|
00003b30  a4 4e 45 47 52 4d 4f 56  45 20 4c 44 41 20 24 34  |.NEGRMOVE LDA $4|
00003b40  31 30 30 00 4d 43 7e a4  50 48 41 00 5b 43 88 a4  |100.MC~.PHA.[C..|
00003b50  4c 44 41 20 24 34 31 30  31 00 63 43 92 a4 50 48  |LDA $4101.cC..PH|
00003b60  41 00 71 43 9c a4 4c 44  41 20 24 34 31 30 32 00  |A.qC..LDA $4102.|
00003b70  79 43 a6 a4 50 48 41 00  81 43 b0 a4 54 59 41 00  |yC..PHA..C..TYA.|
00003b80  8f 43 ba a4 53 54 41 20  24 34 31 30 31 00 9d 43  |.C..STA $4101..C|
00003b90  c4 a4 53 54 41 20 24 34  31 30 32 00 aa 43 ce a4  |..STA $4102..C..|
00003ba0  4c 44 41 20 23 24 31 44  00 b8 43 d8 a4 53 54 41  |LDA #$1D..C..STA|
00003bb0  20 24 34 31 30 30 00 c9  43 e2 a4 4a 53 52 20 53  | $4100..C..JSR S|
00003bc0  55 42 54 52 41 43 54 00  d1 43 ec a4 50 4c 41 00  |UBTRACT..C..PLA.|
00003bd0  df 43 f6 a4 53 54 41 20  24 34 31 30 32 00 e7 43  |.C..STA $4102..C|
00003be0  00 a5 50 4c 41 00 f5 43  0a a5 53 54 41 20 24 34  |..PLA..C..STA $4|
00003bf0  31 30 31 00 fd 43 14 a5  50 4c 41 00 0b 44 1e a5  |101..C..PLA..D..|
00003c00  53 54 41 20 24 34 31 30  30 00 13 44 28 a5 52 54  |STA $4100..D(.RT|
00003c10  53 00 2e 44 32 a5 4e 45  47 52 4d 4f 56 45 41 20  |S..D2.NEGRMOVEA |
00003c20  4a 53 52 20 4e 45 47 52  4d 4f 56 45 00 41 44 3c  |JSR NEGRMOVE.AD<|
00003c30  a5 4a 4d 50 20 4e 45 47  52 4d 4f 56 45 41 42 00  |.JMP NEGRMOVEAB.|
00003c40  5c 44 46 a5 4e 45 47 52  4d 4f 56 45 42 20 4a 53  |\DF.NEGRMOVEB JS|
00003c50  52 20 4e 45 47 52 4d 4f  56 45 00 6f 44 50 a5 4a  |R NEGRMOVE.oDP.J|
00003c60  4d 50 20 4e 45 47 52 4d  4f 56 45 42 42 00 86 44  |MP NEGRMOVEBB..D|
00003c70  5a a5 4d 55 4c 54 49 50  4c 59 20 4c 44 41 20 24  |Z.MULTIPLY LDA $|
00003c80  34 31 30 32 00 8e 44 64  a5 50 48 41 00 9c 44 6e  |4102..Dd.PHA..Dn|
00003c90  a5 4c 44 41 20 24 34 31  30 31 00 a4 44 78 a5 50  |.LDA $4101..Dx.P|
00003ca0  48 41 00 b1 44 82 a5 4c  44 41 20 23 24 31 38 00  |HA..D..LDA #$18.|
00003cb0  bf 44 8c a5 53 54 41 20  24 34 31 30 32 00 cd 44  |.D..STA $4102..D|
00003cc0  96 a5 4a 53 52 20 45 51  55 41 4c 00 db 44 a0 a5  |..JSR EQUAL..D..|
00003cd0  49 4e 43 20 24 34 31 30  32 00 e3 44 aa a5 50 4c  |INC $4102..D..PL|
00003ce0  41 00 f1 44 b4 a5 53 54  41 20 24 34 31 30 30 00  |A..D..STA $4100.|
00003cf0  ff 44 be a5 4a 53 52 20  45 51 55 41 4c 00 0c 45  |.D..JSR EQUAL..E|
00003d00  c8 a5 4c 44 41 20 23 24  31 38 00 1a 45 d2 a5 53  |..LDA #$18..E..S|
00003d10  54 41 20 24 34 31 30 30  00 27 45 dc a5 4c 44 41  |TA $4100.'E..LDA|
00003d20  20 23 24 31 39 00 35 45  e6 a5 53 54 41 20 24 34  | #$19.5E..STA $4|
00003d30  31 30 31 00 3d 45 f0 a5  50 4c 41 00 4b 45 fa a5  |101.=E..PLA.KE..|
00003d40  53 54 41 20 24 34 31 30  32 00 5d 45 04 a6 4a 4d  |STA $4102.]E..JM|
00003d50  50 20 4d 55 4c 54 49 50  4c 59 42 00 81 45 50 c3  |P MULTIPLYB..EP.|
00003d60  3b 20 20 20 20 20 20 20  20 20 20 20 47 52 41 50  |;           GRAP|
00003d70  48 49 43 20 50 4f b5 20  50 4c 4f 54 54 45 52 00  |HIC PO. PLOTTER.|
00003d80  95 45 5a c3 50 4c 4f 54  50 43 20 4c 44 41 20 23  |.EZ.PLOTPC LDA #|
00003d90  24 34 37 00 a1 45 64 c3  53 54 41 20 24 46 42 00  |$47..Ed.STA $FB.|
00003da0  ae 45 6e c3 4c 44 41 20  23 24 33 46 00 ba 45 78  |.En.LDA #$3F..Ex|
00003db0  c3 53 54 41 20 24 46 43  00 c9 45 82 c3 4c 44 41  |.STA $FC..E..LDA|
00003dc0  20 59 50 49 58 45 4c 00  d3 45 8c c3 4c 53 52 20  | YPIXEL..E..LSR |
00003dd0  41 00 dd 45 96 c3 4c 53  52 20 41 00 e7 45 a0 c3  |A..E..LSR A..E..|
00003de0  4c 53 52 20 41 00 f4 45  aa c3 53 54 41 20 59 50  |LSR A..E..STA YP|
00003df0  49 42 00 ff 45 b4 c3 af  20 23 24 30 33 00 09 46  |IB..E... #$03..F|
00003e00  be c3 41 53 4c 20 41 00  13 46 c8 c3 41 53 4c 20  |..ASL A..F..ASL |
00003e10  41 00 1d 46 d2 c3 41 53  4c 20 41 00 27 46 dc c3  |A..F..ASL A.'F..|
00003e20  41 53 4c 20 41 00 31 46  e6 c3 41 53 4c 20 41 00  |ASL A.1F..ASL A.|
00003e30  3b 46 f0 c3 41 53 4c 20  41 00 47 46 fa c3 53 54  |;F..ASL A.GF..ST|
00003e40  41 20 24 30 32 00 53 46  04 c4 4c 44 41 20 24 46  |A $02.SF..LDA $F|
00003e50  42 00 5b 46 0e c4 53 45  43 00 67 46 18 c4 53 42  |B.[F..SEC.gF..SB|
00003e60  43 20 24 30 32 00 73 46  22 c4 53 54 41 20 24 46  |C $02.sF".STA $F|
00003e70  42 00 7f 46 2c c4 4c 44  41 20 24 46 43 00 8c 46  |B..F,.LDA $FC..F|
00003e80  36 c4 53 42 43 20 23 24  30 30 00 99 46 3b c4 53  |6.SBC #$00..F;.S|
00003e90  42 43 20 59 50 49 42 00  a1 46 40 c4 50 48 41 00  |BC YPIB..F@.PHA.|
00003ea0  ae 46 4a c4 4c 44 41 20  59 50 49 42 00 b8 46 54  |.FJ.LDA YPIB..FT|
00003eb0  c4 4c 53 52 20 41 00 c2  46 5e c4 4c 53 52 20 41  |.LSR A..F^.LSR A|
00003ec0  00 ce 46 68 c4 53 54 41  20 24 30 32 00 d6 46 72  |..Fh.STA $02..Fr|
00003ed0  c4 50 4c 41 00 de 46 7c  c4 53 45 43 00 ea 46 86  |.PLA..F|.SEC..F.|
00003ee0  c4 53 42 43 20 24 30 32  00 f6 46 90 c4 53 54 41  |.SBC $02..F..STA|
00003ef0  20 24 46 43 00 05 47 9a  c4 4c 44 41 20 59 50 49  | $FC..G..LDA YPI|
00003f00  58 45 4c 00 10 47 a4 c4  af 20 23 24 30 37 00 1d  |XEL..G... #$07..|
00003f10  47 ae c4 53 54 41 20 59  50 49 42 00 29 47 b8 c4  |G..STA YPIB.)G..|
00003f20  4c 44 41 20 24 46 42 00  31 47 c2 c4 53 45 43 00  |LDA $FB.1G..SEC.|
00003f30  3e 47 cc c4 53 42 43 20  59 50 49 42 00 46 47 d6  |>G..SBC YPIB.FG.|
00003f40  c4 50 48 41 00 55 47 e0  c4 4c 44 41 20 58 50 49  |.PHA.UG..LDA XPI|
00003f50  58 45 4c 00 60 47 ea c4  af 20 23 24 46 38 00 6d  |XEL.`G... #$F8.m|
00003f60  47 f4 c4 53 54 41 20 59  50 49 42 00 75 47 fe c4  |G..STA YPIB.uG..|
00003f70  50 4c 41 00 7d 47 08 c5  43 4c 43 00 8a 47 12 c5  |PLA.}G..CLC..G..|
00003f80  41 44 43 20 59 50 49 42  00 96 47 1c c5 53 54 41  |ADC YPIB..G..STA|
00003f90  20 24 46 42 00 a2 47 26  c5 4c 44 41 20 24 46 43  | $FB..G&.LDA $FC|
00003fa0  00 af 47 30 c5 53 42 43  20 23 24 30 30 00 bb 47  |..G0.SBC #$00..G|
00003fb0  3a c5 53 54 41 20 24 46  43 00 ca 47 44 c5 4c 44  |:.STA $FC..GD.LD|
00003fc0  41 20 58 50 49 58 45 4c  00 d5 47 4e c5 af 20 23  |A XPIXEL..GN.. #|
00003fd0  24 30 37 00 dd 47 58 c5  54 41 58 00 ea 47 62 c5  |$07..GX.TAX..Gb.|
00003fe0  4c 44 41 20 23 24 38 30  00 fe 47 6c c5 47 42 49  |LDA #$80..Gl.GBI|
00003ff0  54 4c 50 20 43 50 58 20  23 24 30 30 00 0a 48 76  |TLP CPX #$00..Hv|
00004000  c5 42 45 51 20 50 50 9a  00 14 48 80 c5 4c 53 52  |.BEQ PP...H..LSR|
00004010  20 41 00 1c 48 8a c5 44  45 58 00 2b 48 94 c5 4a  | A..H..DEX.+H..J|
00004020  4d 50 20 47 42 49 54 4c  50 00 3b 48 9e c5 50 50  |MP GBITLP.;H..PP|
00004030  9a 20 53 54 41 20 24 46  44 00 43 48 a8 c5 52 54  |. STA $FD.CH..RT|
00004040  53 00 58 48 b2 c5 50 4c  4f a4 4e 20 4a 53 52 20  |S.XH..PLO.N JSR |
00004050  50 4c 4f 54 50 43 00 65  48 bc c5 4c 44 59 20 23  |PLOTPC.eH..LDY #|
00004060  24 30 30 00 75 48 c6 c5  4c 44 41 20 28 24 46 42  |$00.uH..LDA ($FB|
00004070  29 2c 59 00 80 48 d0 c5  b0 41 20 24 46 44 00 90  |),Y..H...A $FD..|
00004080  48 da c5 53 54 41 20 28  24 46 42 29 2c 59 00 98  |H..STA ($FB),Y..|
00004090  48 e4 c5 52 54 53 00 ae  48 ee c5 50 4c 4f a4 46  |H..RTS..H..PLO.F|
000040a0  46 20 4a 53 52 20 50 4c  4f 54 50 43 00 ba 48 f8  |F JSR PLOTPC..H.|
000040b0  c5 4c 44 41 20 24 46 44  00 c6 48 02 c6 45 b0 20  |.LDA $FD..H..E. |
000040c0  23 24 46 46 00 d2 48 0c  c6 53 54 41 20 24 46 44  |#$FF..H..STA $FD|
000040d0  00 df 48 16 c6 4c 44 59  20 23 24 30 30 00 ef 48  |..H..LDY #$00..H|
000040e0  20 c6 4c 44 41 20 28 24  46 42 29 2c 59 00 f9 48  | .LDA ($FB),Y..H|
000040f0  2a c6 af 20 24 46 44 00  09 49 34 c6 53 54 41 20  |*.. $FD..I4.STA |
00004100  28 24 46 42 29 2c 59 00  11 49 3e c6 52 54 53 00  |($FB),Y..I>.RTS.|
00004110  25 49 48 c6 50 4c 4f 54  20 4c 44 41 20 43 4f 4c  |%IH.PLOT LDA COL|
00004120  4f 55 52 00 30 49 52 c6  af 20 23 24 30 32 00 3d  |OUR.0IR.. #$02.=|
00004130  49 5c c6 42 4e 45 20 50  50 41 91 00 4c 49 66 c6  |I\.BNE PPA..LIf.|
00004140  4a 53 52 20 50 4c 4f a4  46 46 00 5b 49 70 c6 4a  |JSR PLO.FF.[Ip.J|
00004150  4d 50 20 50 50 41 43 4e  54 00 6e 49 7a c6 50 50  |MP PPACNT.nIz.PP|
00004160  41 91 20 4a 53 52 20 50  4c 4f a4 4e 00 84 49 84  |A. JSR PLO.N..I.|
00004170  c6 50 50 41 43 4e 54 20  49 4e 43 20 58 50 49 58  |.PPACNT INC XPIX|
00004180  45 4c 00 93 49 8e c6 4c  44 41 20 43 4f 4c 4f 55  |EL..I..LDA COLOU|
00004190  52 00 9e 49 98 c6 af 20  23 24 30 31 00 ab 49 a2  |R..I... #$01..I.|
000041a0  c6 42 4e 45 20 50 50 42  91 00 ba 49 ac c6 4a 53  |.BNE PPB...I..JS|
000041b0  52 20 50 4c 4f a4 46 46  00 c9 49 b6 c6 4a 4d 50  |R PLO.FF..I..JMP|
000041c0  20 50 50 42 43 4e 54 00  dc 49 c0 c6 50 50 42 91  | PPBCNT..I..PPB.|
000041d0  20 4a 53 52 20 50 4c 4f  a4 4e 00 f2 49 ca c6 50  | JSR PLO.N..I..P|
000041e0  50 42 43 4e 54 20 49 4e  43 20 58 50 49 58 45 4c  |PBCNT INC XPIXEL|
000041f0  00 fa 49 d4 c6 52 54 53  00 1f 4a d8 d6 3b 20 20  |..I..RTS..J..;  |
00004200  20 20 20 20 20 5a 4f 4f  4d 20 43 41 4c 43 55 4c  |     ZOOM CALCUL|
00004210  41 54 49 91 20 52 4f 55  54 49 4e 45 53 00 35 4a  |ATI. ROUTINES.5J|
00004220  e2 d6 4e 4f 5a 4f 4f 4d  20 4a 4d 50 20 9a 52 4f  |..NOZOOM JMP .RO|
00004230  4c 4f 50 00 4a 4a ec d6  5a 4f 4f 4d 49 4e 20 4c  |LOP.JJ..ZOOMIN L|
00004240  44 41 20 24 44 30 31 35  00 55 4a f6 d6 af 20 23  |DA $D015.UJ... #|
00004250  24 46 30 00 62 4a 00 d7  43 4d 50 20 23 24 46 30  |$F0.bJ..CMP #$F0|
00004260  00 71 4a 0a d7 42 4e 45  20 4e 4f 5a 4f 4f 4d 00  |.qJ..BNE NOZOOM.|
00004270  7e 4a 14 d7 4c 44 41 20  23 24 31 45 00 8c 4a 1e  |~J..LDA #$1E..J.|
00004280  d7 53 54 41 20 24 34 31  30 30 00 99 4a 28 d7 4c  |.STA $4100..J(.L|
00004290  44 41 20 23 24 30 31 00  a7 4a 32 d7 53 54 41 20  |DA #$01..J2.STA |
000042a0  24 34 31 30 31 00 b4 4a  3c d7 4c 44 41 20 23 24  |$4101..J<.LDA #$|
000042b0  31 30 00 c2 4a 46 d7 53  54 41 20 24 34 31 30 32  |10..JF.STA $4102|
000042c0  00 d3 4a 50 d7 4a 53 52  20 53 55 42 54 52 41 43  |..JP.JSR SUBTRAC|
000042d0  54 00 e0 4a 5a d7 4c 44  41 20 23 24 30 31 00 ee  |T..JZ.LDA #$01..|
000042e0  4a 64 d7 53 54 41 20 24  34 31 30 30 00 fc 4a 6e  |Jd.STA $4100..Jn|
000042f0  d7 49 4e 43 20 24 34 31  30 32 00 0a 4b 78 d7 4a  |.INC $4102..Kx.J|
00004300  53 52 20 45 51 55 41 4c  00 17 4b 82 d7 4c 44 41  |SR EQUAL..K..LDA|
00004310  20 23 24 31 30 00 25 4b  8c d7 53 54 41 20 24 34  | #$10.%K..STA $4|
00004320  31 30 30 00 32 4b 96 d7  4c 44 41 20 23 24 31 42  |100.2K..LDA #$1B|
00004330  00 40 4b a0 d7 53 54 41  20 24 34 31 30 31 00 4d  |.@K..STA $4101.M|
00004340  4b aa d7 4c 44 41 20 23  24 31 32 00 5b 4b b4 d7  |K..LDA #$12.[K..|
00004350  53 54 41 20 24 34 31 30  32 00 6c 4b be d7 4a 53  |STA $4102.lK..JS|
00004360  52 20 4d 55 4c 54 49 50  4c 59 00 79 4b c8 d7 4c  |R MULTIPLY.yK..L|
00004370  44 41 20 23 24 31 31 00  87 4b d2 d7 53 54 41 20  |DA #$11..K..STA |
00004380  24 34 31 30 30 00 95 4b  dc d7 53 54 41 20 24 34  |$4100..K..STA $4|
00004390  31 30 32 00 a2 4b e6 d7  4c 44 41 20 23 24 31 32  |102..K..LDA #$12|
000043a0  00 b0 4b f0 d7 53 54 41  20 24 34 31 30 31 00 be  |..K..STA $4101..|
000043b0  4b fa d7 4c 44 41 20 24  44 30 30 38 00 c6 4b 04  |K..LDA $D008..K.|
000043c0  d8 53 45 43 00 d3 4b 0e  d8 53 42 43 20 23 24 35  |.SEC..K..SBC #$5|
000043d0  38 00 eb 4b 18 d8 43 41  4c 43 49 4e 4c 4f 50 41  |8..K..CALCINLOPA|
000043e0  20 43 4d 50 20 23 24 30  30 00 fb 4b 22 d8 42 45  | CMP #$00..K".BE|
000043f0  51 20 43 41 4c 43 80 49  41 00 03 4c 2c d8 50 48  |Q CALC.IA..L,.PH|
00004400  41 00 13 4c 36 d8 4a 53  52 20 41 44 44 49 54 49  |A..L6.JSR ADDITI|
00004410  91 00 1b 4c 40 d8 50 4c  41 00 23 4c 4a d8 54 41  |...L@.PLA.#LJ.TA|
00004420  58 00 2b 4c 54 d8 44 45  58 00 33 4c 5e d8 54 58  |X.+LT.DEX.3L^.TX|
00004430  41 00 46 4c 68 d8 4a 4d  50 20 43 41 4c 43 49 4e  |A.FLh.JMP CALCIN|
00004440  4c 4f 50 41 00 5b 4c 72  d8 43 41 4c 43 80 49 41  |LOPA.[Lr.CALC.IA|
00004450  20 4c 44 41 20 23 24 30  31 00 69 4c 7c d8 53 54  | LDA #$01.iL|.ST|
00004460  41 20 24 34 31 30 30 00  76 4c 86 d8 4c 44 41 20  |A $4100.vL..LDA |
00004470  23 24 31 33 00 84 4c 90  d8 53 54 41 20 24 34 31  |#$13..L..STA $41|
00004480  30 32 00 92 4c 9a d8 4a  53 52 20 45 51 55 41 4c  |02..L..JSR EQUAL|
00004490  00 9f 4c a4 d8 4c 44 41  20 23 24 31 33 00 ad 4c  |..L..LDA #$13..L|
000044a0  ae d8 53 54 41 20 24 34  31 30 30 00 bb 4c b8 d8  |..STA $4100..L..|
000044b0  53 54 41 20 24 34 31 30  32 00 c8 4c c2 d8 4c 44  |STA $4102..L..LD|
000044c0  41 20 23 24 31 32 00 d6  4c cc d8 53 54 41 20 24  |A #$12..L..STA $|
000044d0  34 31 30 31 00 e4 4c d6  d8 4c 44 41 20 24 44 30  |4101..L..LDA $D0|
000044e0  30 41 00 ec 4c e0 d8 53  45 43 00 f9 4c ea d8 53  |0A..L..SEC..L..S|
000044f0  42 43 20 23 24 34 30 00  11 4d f4 d8 43 41 4c 43  |BC #$40..M..CALC|
00004500  49 4e 4c 4f 50 42 20 43  4d 50 20 23 24 30 30 00  |INLOPB CMP #$00.|
00004510  21 4d fe d8 42 45 51 20  43 41 4c 43 80 49 42 00  |!M..BEQ CALC.IB.|
00004520  29 4d 08 d9 50 48 41 00  39 4d 12 d9 4a 53 52 20  |)M..PHA.9M..JSR |
00004530  41 44 44 49 54 49 91 00  41 4d 1c d9 50 4c 41 00  |ADDITI..AM..PLA.|
00004540  49 4d 26 d9 54 41 58 00  51 4d 30 d9 44 45 58 00  |IM&.TAX.QM0.DEX.|
00004550  59 4d 3a d9 54 58 41 00  6c 4d 44 d9 4a 4d 50 20  |YM:.TXA.lMD.JMP |
00004560  43 41 4c 43 49 4e 4c 4f  50 42 00 81 4d 4e d9 43  |CALCINLOPB..MN.C|
00004570  41 4c 43 80 49 42 20 4c  44 41 20 23 24 31 31 00  |ALC.IB LDA #$11.|
00004580  8f 4d 58 d9 53 54 41 20  24 34 31 30 30 00 9c 4d  |.MX.STA $4100..M|
00004590  62 d9 4c 44 41 20 23 24  30 31 00 aa 4d 6c d9 53  |b.LDA #$01..Ml.S|
000045a0  54 41 20 24 34 31 30 32  00 b8 4d 76 d9 4a 53 52  |TA $4102..Mv.JSR|
000045b0  20 45 51 55 41 4c 00 c5  4d 80 d9 4c 44 41 20 23  | EQUAL..M..LDA #|
000045c0  24 31 33 00 d3 4d 8a d9  53 54 41 20 24 34 31 30  |$13..M..STA $410|
000045d0  30 00 e0 4d 94 d9 4c 44  41 20 23 24 31 45 00 ee  |0..M..LDA #$1E..|
000045e0  4d 9e d9 53 54 41 20 24  34 31 30 32 00 fc 4d a8  |M..STA $4102..M.|
000045f0  d9 4a 53 52 20 45 51 55  41 4c 00 09 4e b2 d9 4c  |.JSR EQUAL..N..L|
00004600  44 41 20 23 24 31 46 00  17 4e bc d9 53 54 41 20  |DA #$1F..N..STA |
00004610  24 34 31 30 30 00 24 4e  c6 d9 4c 44 41 20 23 24  |$4100.$N..LDA #$|
00004620  30 33 00 32 4e d0 d9 53  54 41 20 24 34 31 30 31  |03.2N..STA $4101|
00004630  00 3f 4e da d9 4c 44 41  20 23 24 31 30 00 4d 4e  |.?N..LDA #$10.MN|
00004640  e4 d9 53 54 41 20 24 34  31 30 32 00 5e 4e ee d9  |..STA $4102.^N..|
00004650  4a 53 52 20 53 55 42 54  52 41 43 54 00 6b 4e f8  |JSR SUBTRACT.kN.|
00004660  d9 4c 44 41 20 23 24 30  33 00 79 4e 02 da 53 54  |.LDA #$03.yN..ST|
00004670  41 20 24 34 31 30 30 00  87 4e 0c da 49 4e 43 20  |A $4100..N..INC |
00004680  24 34 31 30 32 00 95 4e  16 da 4a 53 52 20 45 51  |$4102..N..JSR EQ|
00004690  55 41 4c 00 a2 4e 20 da  4c 44 41 20 23 24 31 30  |UAL..N .LDA #$10|
000046a0  00 b0 4e 2a da 53 54 41  20 24 34 31 30 30 00 bd  |..N*.STA $4100..|
000046b0  4e 34 da 4c 44 41 20 23  24 31 32 00 cb 4e 3e da  |N4.LDA #$12..N>.|
000046c0  53 54 41 20 24 34 31 30  32 00 d8 4e 48 da 4c 44  |STA $4102..NH.LD|
000046d0  41 20 23 24 31 41 00 e6  4e 52 da 53 54 41 20 24  |A #$1A..NR.STA $|
000046e0  34 31 30 31 00 f7 4e 5c  da 4a 53 52 20 4d 55 4c  |4101..N\.JSR MUL|
000046f0  54 49 50 4c 59 00 04 4f  66 da 4c 44 41 20 23 24  |TIPLY..Of.LDA #$|
00004700  31 31 00 12 4f 70 da 53  54 41 20 24 34 31 30 30  |11..Op.STA $4100|
00004710  00 20 4f 7a da 53 54 41  20 24 34 31 30 32 00 2d  |. Oz.STA $4102.-|
00004720  4f 84 da 4c 44 41 20 23  24 31 32 00 3b 4f 8e da  |O..LDA #$12.;O..|
00004730  53 54 41 20 24 34 31 30  31 00 49 4f 98 da 4c 44  |STA $4101.IO..LD|
00004740  41 20 24 44 30 30 39 00  51 4f a2 da 53 45 43 00  |A $D009.QO..SEC.|
00004750  5e 4f ac da 53 42 43 20  23 24 33 32 00 74 4f b6  |^O..SBC #$32.tO.|
00004760  da 43 41 4c 43 49 4e 59  41 20 43 4d 50 20 23 24  |.CALCINYA CMP #$|
00004770  30 30 00 84 4f c0 da 42  45 51 20 43 41 4c 43 80  |00..O..BEQ CALC.|
00004780  49 43 00 8c 4f ca da 50  48 41 00 9c 4f d4 da 4a  |IC..O..PHA..O..J|
00004790  53 52 20 41 44 44 49 54  49 91 00 a4 4f de da 50  |SR ADDITI...O..P|
000047a0  4c 41 00 ac 4f e8 da 54  41 58 00 b4 4f f2 da 44  |LA..O..TAX..O..D|
000047b0  45 58 00 bc 4f fc da 54  58 41 00 cd 4f 06 db 4a  |EX..O..TXA..O..J|
000047c0  4d 50 20 43 41 4c 43 49  4e 59 41 00 e2 4f 10 db  |MP CALCINYA..O..|
000047d0  43 41 4c 43 80 49 43 20  4c 44 41 20 23 24 30 33  |CALC.IC LDA #$03|
000047e0  00 f0 4f 1a db 53 54 41  20 24 34 31 30 30 00 fd  |..O..STA $4100..|
000047f0  4f 24 db 4c 44 41 20 23  24 31 33 00 0b 50 2e db  |O$.LDA #$13..P..|
00004800  53 54 41 20 24 34 31 30  32 00 19 50 38 db 4a 53  |STA $4102..P8.JS|
00004810  52 20 45 51 55 41 4c 00  26 50 42 db 4c 44 41 20  |R EQUAL.&PB.LDA |
00004820  23 24 31 33 00 34 50 4c  db 53 54 41 20 24 34 31  |#$13.4PL.STA $41|
00004830  30 30 00 42 50 56 db 53  54 41 20 24 34 31 30 32  |00.BPV.STA $4102|
00004840  00 4f 50 60 db 4c 44 41  20 23 24 31 32 00 5d 50  |.OP`.LDA #$12.]P|
00004850  6a db 53 54 41 20 24 34  31 30 31 00 6b 50 74 db  |j.STA $4101.kPt.|
00004860  4c 44 41 20 24 44 30 30  44 00 73 50 7e db 53 45  |LDA $D00D.sP~.SE|
00004870  43 00 80 50 88 db 53 42  43 20 23 24 31 44 00 96  |C..P..SBC #$1D..|
00004880  50 92 db 43 41 4c 43 49  4e 59 42 20 43 4d 50 20  |P..CALCINYB CMP |
00004890  23 24 30 30 00 a6 50 9c  db 42 45 51 20 43 41 4c  |#$00..P..BEQ CAL|
000048a0  43 80 49 44 00 ae 50 a6  db 50 48 41 00 be 50 b0  |C.ID..P..PHA..P.|
000048b0  db 4a 53 52 20 41 44 44  49 54 49 91 00 c6 50 ba  |.JSR ADDITI...P.|
000048c0  db 50 4c 41 00 ce 50 c4  db 54 41 58 00 d6 50 ce  |.PLA..P..TAX..P.|
000048d0  db 44 45 58 00 de 50 d8  db 54 58 41 00 ef 50 e2  |.DEX..P..TXA..P.|
000048e0  db 4a 4d 50 20 43 41 4c  43 49 4e 59 42 00 04 51  |.JMP CALCINYB..Q|
000048f0  ec db 43 41 4c 43 80 49  44 20 4c 44 41 20 23 24  |..CALC.ID LDA #$|
00004900  31 31 00 12 51 f6 db 53  54 41 20 24 34 31 30 30  |11..Q..STA $4100|
00004910  00 1f 51 00 dc 4c 44 41  20 23 24 30 33 00 2d 51  |..Q..LDA #$03.-Q|
00004920  0a dc 53 54 41 20 24 34  31 30 32 00 3b 51 14 dc  |..STA $4102.;Q..|
00004930  4a 53 52 20 45 51 55 41  4c 00 48 51 1e dc 4c 44  |JSR EQUAL.HQ..LD|
00004940  41 20 23 24 31 33 00 56  51 28 dc 53 54 41 20 24  |A #$13.VQ(.STA $|
00004950  34 31 30 30 00 63 51 32  dc 4c 44 41 20 23 24 31  |4100.cQ2.LDA #$1|
00004960  46 00 71 51 3c dc 53 54  41 20 24 34 31 30 32 00  |F.qQ<.STA $4102.|
00004970  7f 51 46 dc 4a 53 52 20  45 51 55 41 4c 00 8c 51  |.QF.JSR EQUAL..Q|
00004980  50 dc 4c 44 41 20 23 24  31 45 00 9a 51 5a dc 53  |P.LDA #$1E..QZ.S|
00004990  54 41 20 24 34 31 30 30  00 a7 51 64 dc 4c 44 41  |TA $4100..Qd.LDA|
000049a0  20 23 24 30 31 00 b5 51  6e dc 53 54 41 20 24 34  | #$01..Qn.STA $4|
000049b0  31 30 31 00 c2 51 78 dc  4c 44 41 20 23 24 31 30  |101..Qx.LDA #$10|
000049c0  00 d0 51 82 dc 53 54 41  20 24 34 31 30 32 00 e1  |..Q..STA $4102..|
000049d0  51 8c dc 4a 53 52 20 53  55 42 54 52 41 43 54 00  |Q..JSR SUBTRACT.|
000049e0  ee 51 96 dc 4c 44 41 20  23 24 31 30 00 fc 51 a0  |.Q..LDA #$10..Q.|
000049f0  dc 53 54 41 20 24 34 31  30 30 00 09 52 aa dc 4c  |.STA $4100..R..L|
00004a00  44 41 20 23 24 31 37 00  17 52 b4 dc 53 54 41 20  |DA #$17..R..STA |
00004a10  24 34 31 30 31 00 24 52  be dc 4c 44 41 20 23 24  |$4101.$R..LDA #$|
00004a20  30 32 00 32 52 c8 dc 53  54 41 20 24 34 31 30 32  |02.2R..STA $4102|
00004a30  00 43 52 d2 dc 4a 53 52  20 4d 55 4c 54 49 50 4c  |.CR..JSR MULTIPL|
00004a40  59 00 50 52 dc dc 4c 44  41 20 23 24 31 46 00 5e  |Y.PR..LDA #$1F.^|
00004a50  52 e6 dc 53 54 41 20 24  34 31 30 30 00 6b 52 f0  |R..STA $4100.kR.|
00004a60  dc 4c 44 41 20 23 24 30  33 00 79 52 fa dc 53 54  |.LDA #$03.yR..ST|
00004a70  41 20 24 34 31 30 31 00  86 52 04 dd 4c 44 41 20  |A $4101..R..LDA |
00004a80  23 24 31 30 00 94 52 0e  dd 53 54 41 20 24 34 31  |#$10..R..STA $41|
00004a90  30 32 00 a5 52 18 dd 4a  53 52 20 53 55 42 54 52  |02..R..JSR SUBTR|
00004aa0  41 43 54 00 b2 52 22 dd  4c 44 41 20 23 24 31 30  |ACT..R".LDA #$10|
00004ab0  00 c0 52 2c dd 53 54 41  20 24 34 31 30 30 00 cd  |..R,.STA $4100..|
00004ac0  52 36 dd 4c 44 41 20 23  24 31 41 00 db 52 40 dd  |R6.LDA #$1A..R@.|
00004ad0  53 54 41 20 24 34 31 30  31 00 e8 52 4a dd 4c 44  |STA $4101..RJ.LD|
00004ae0  41 20 23 24 30 34 00 f6  52 54 dd 53 54 41 20 24  |A #$04..RT.STA $|
00004af0  34 31 30 32 00 07 53 5e  dd 4a 53 52 20 4d 55 4c  |4102..S^.JSR MUL|
00004b00  54 49 50 4c 59 00 14 53  68 dd 4a 53 52 20 4d af  |TIPLY..Sh.JSR M.|
00004b10  4c 45 00 23 53 72 dd 4a  4d 50 20 9a 52 4f 4c 4f  |LE.#Sr.JMP .ROLO|
00004b20  50 00 49 53 60 ea 3b 20  20 20 20 20 20 20 20 20  |P.IS`.;         |
00004b30  20 20 20 20 20 20 20 20  20 20 5a 4f 4f 4d 20 52  |          ZOOM R|
00004b40  4f 55 54 49 4e 45 53 00  58 53 6a ea 42 4f 58 20  |OUTINES.XSj.BOX |
00004b50  4c 44 41 20 58 50 00 65  53 74 ea 53 54 41 20 58  |LDA XP.eSt.STA X|
00004b60  50 49 42 00 70 53 7e ea  4c 44 41 20 59 50 00 7d  |PIB.pS~.LDA YP.}|
00004b70  53 88 ea 53 54 41 20 59  50 49 42 00 89 53 92 ea  |S..STA YPIB..S..|
00004b80  4c 44 41 20 58 50 42 00  97 53 9c ea 53 54 41 20  |LDA XPB..S..STA |
00004b90  58 50 42 49 42 00 a4 53  a6 ea 4c 44 58 20 23 24  |XPBIB..S..LDX #$|
00004ba0  33 43 00 b2 53 b0 ea 53  54 58 20 24 30 37 46 43  |3C..S..STX $07FC|
00004bb0  00 ba 53 ba ea 49 4e 58  00 c8 53 c4 ea 53 54 58  |..S..INX..S..STX|
00004bc0  20 24 30 37 46 44 00 d0  53 ce ea 49 4e 58 00 de  | $07FD..S..INX..|
00004bd0  53 d8 ea 53 54 58 20 24  30 37 46 45 00 e6 53 e2  |S..STX $07FE..S.|
00004be0  ea 49 4e 58 00 f4 53 ec  ea 53 54 58 20 24 30 37  |.INX..S..STX $07|
00004bf0  46 46 00 02 54 f6 ea 4c  44 41 20 24 44 30 31 35  |FF..T..LDA $D015|
00004c00  00 0e 54 00 eb b0 41 20  23 24 46 30 00 1c 54 0a  |..T...A #$F0..T.|
00004c10  eb 53 54 41 20 24 44 30  31 35 00 2f 54 14 eb 42  |.STA $D015./T..B|
00004c20  4f 58 92 20 4c 44 41 20  43 4c 49 43 4b 00 3c 54  |OX. LDA CLICK.<T|
00004c30  1e eb 42 4e 45 20 42 4f  58 92 00 52 54 78 eb 42  |..BNE BOX..RTx.B|
00004c40  4f 58 4c 4f 4f 50 20 4c  44 41 20 58 50 42 49 42  |OXLOOP LDA XPBIB|
00004c50  00 5e 54 82 eb 43 4d 50  20 58 50 42 00 70 54 8c  |.^T..CMP XPB.pT.|
00004c60  eb 42 45 51 20 43 48 45  43 4b 46 49 4e 45 00 81  |.BEQ CHECKFINE..|
00004c70  54 96 eb 42 43 53 20 4c  45 53 53 54 48 41 4e 00  |T..BCS LESSTHAN.|
00004c80  91 54 a0 eb 4a 4d 50 20  4d b0 45 54 48 41 4e 00  |.T..JMP M.ETHAN.|
00004c90  a8 54 aa eb 43 48 45 43  4b 46 49 4e 45 20 4c 44  |.T..CHECKFINE LD|
00004ca0  41 20 58 50 49 42 00 b3  54 b4 eb 43 4d 50 20 58  |A XPIB..T..CMP X|
00004cb0  50 00 c4 54 be eb 42 43  53 20 4c 45 53 53 54 48  |P..T..BCS LESSTH|
00004cc0  41 4e 00 d9 54 c8 eb 4d  b0 45 54 48 41 4e 20 4c  |AN..T..M.ETHAN L|
00004cd0  44 41 20 58 50 49 42 00  e7 54 d2 eb 53 54 41 20  |DA XPIB..T..STA |
00004ce0  24 44 30 30 38 00 f5 54  dc eb 53 54 41 20 24 44  |$D008..T..STA $D|
00004cf0  30 30 43 00 02 55 e6 eb  4c 44 58 20 23 24 30 30  |00C..U..LDX #$00|
00004d00  00 10 55 f0 eb 4c 44 41  20 58 50 42 49 42 00 21  |..U..LDA XPBIB.!|
00004d10  55 fa eb 42 45 51 20 4e  4f 58 50 42 41 44 44 00  |U..BEQ NOXPBADD.|
00004d20  2e 55 04 ec 4c 44 58 20  23 24 35 30 00 45 55 0e  |.U..LDX #$50.EU.|
00004d30  ec 4e 4f 58 50 42 41 44  44 20 4c 44 41 20 24 44  |.NOXPBADD LDA $D|
00004d40  30 31 30 00 50 55 18 ec  af 20 23 24 41 46 00 5c  |010.PU... #$AF.\|
00004d50  55 22 ec 53 54 58 20 24  30 32 00 64 55 2c ec 43  |U".STX $02.dU,.C|
00004d60  4c 43 00 70 55 36 ec 41  44 43 20 24 30 32 00 7e  |LC.pU6.ADC $02.~|
00004d70  55 40 ec 53 54 41 20 24  44 30 31 30 00 8b 55 45  |U@.STA $D010..UE|
00004d80  ec 4c 44 58 20 23 24 30  30 00 96 55 4a ec 4c 44  |.LDX #$00..UJ.LD|
00004d90  41 20 58 50 00 9e 55 54  ec 53 45 43 00 ab 55 5e  |A XP..UT.SEC..U^|
00004da0  ec 53 42 43 20 23 24 31  38 00 b9 55 68 ec 53 54  |.SBC #$18..Uh.ST|
00004db0  41 20 24 44 30 30 41 00  c7 55 72 ec 53 54 41 20  |A $D00A..Ur.STA |
00004dc0  24 44 30 30 45 00 d5 55  7c ec 42 43 43 20 4d 54  |$D00E..U|.BCC MT|
00004dd0  53 55 42 00 e1 55 86 ec  4c 44 58 20 58 50 42 00  |SUB..U..LDX XPB.|
00004de0  ef 55 90 ec 42 45 51 20  4d 54 53 55 42 00 fc 55  |.U..BEQ MTSUB..U|
00004df0  9a ec 4c 44 58 20 23 24  41 30 00 10 56 a4 ec 4d  |..LDX #$A0..V..M|
00004e00  54 53 55 42 20 4c 44 41  20 24 44 30 31 30 00 1b  |TSUB LDA $D010..|
00004e10  56 ae ec af 20 23 24 35  46 00 27 56 b8 ec 53 54  |V... #$5F.'V..ST|
00004e20  58 20 24 30 32 00 2f 56  c2 ec 43 4c 43 00 3b 56  |X $02./V..CLC.;V|
00004e30  cc ec 41 44 43 20 24 30  32 00 49 56 d6 ec 53 54  |..ADC $02.IV..ST|
00004e40  41 20 24 44 30 31 30 00  56 56 e0 ec 4a 4d 50 20  |A $D010.VV..JMP |
00004e50  42 4f 58 9a 00 6a 56 ea  ec 4c 45 53 53 54 48 41  |BOX..jV..LESSTHA|
00004e60  4e 20 4c 44 41 20 58 50  00 76 56 f4 ec 4c 44 58  |N LDA XP.vV..LDX|
00004e70  20 58 50 42 00 83 56 fe  ec 42 4e 45 20 a8 4f 55  | XPB..V..BNE .OU|
00004e80  54 00 90 56 08 ed 43 4d  50 20 23 24 35 38 00 9d  |T..V..CMP #$58..|
00004e90  56 12 ed 42 43 53 20 a8  4f 55 54 00 aa 56 1c ed  |V..BCS .OUT..V..|
00004ea0  4c 44 41 20 23 24 35 38  00 bd 56 26 ed a8 4f 55  |LDA #$58..V&..OU|
00004eb0  54 20 53 54 41 20 24 44  30 30 38 00 cb 56 30 ed  |T STA $D008..V0.|
00004ec0  53 54 41 20 24 44 30 30  43 00 d8 56 3a ed 43 50  |STA $D00C..V:.CP|
00004ed0  58 20 23 24 30 30 00 e8  56 44 ed 42 45 51 20 4c  |X #$00..VD.BEQ L|
00004ee0  54 4e 4f 41 44 44 00 f5  56 4e ed 4c 44 58 20 23  |TNOADD..VN.LDX #|
00004ef0  24 35 30 00 0b 57 58 ed  4c 54 4e 4f 41 44 44 20  |$50..WX.LTNOADD |
00004f00  4c 44 41 20 24 44 30 31  30 00 16 57 62 ed af 20  |LDA $D010..Wb.. |
00004f10  23 24 41 46 00 22 57 6c  ed 53 54 58 20 24 30 32  |#$AF."Wl.STX $02|
00004f20  00 2a 57 76 ed 43 4c 43  00 36 57 80 ed 41 44 43  |.*Wv.CLC.6W..ADC|
00004f30  20 24 30 32 00 44 57 8a  ed 53 54 41 20 24 44 30  | $02.DW..STA $D0|
00004f40  31 30 00 51 57 8f ed 4c  44 58 20 23 24 30 30 00  |10.QW..LDX #$00.|
00004f50  5e 57 94 ed 4c 44 41 20  58 50 49 42 00 66 57 9e  |^W..LDA XPIB.fW.|
00004f60  ed 53 45 43 00 73 57 a8  ed 53 42 43 20 23 24 31  |.SEC.sW..SBC #$1|
00004f70  38 00 81 57 b2 ed 53 54  41 20 24 44 30 30 41 00  |8..W..STA $D00A.|
00004f80  8f 57 bc ed 53 54 41 20  24 44 30 30 45 00 9d 57  |.W..STA $D00E..W|
00004f90  c6 ed 42 43 43 20 4c 54  53 55 42 00 ab 57 d0 ed  |..BCC LTSUB..W..|
00004fa0  4c 44 58 20 58 50 42 49  42 00 b9 57 da ed 42 45  |LDX XPBIB..W..BE|
00004fb0  51 20 4c 54 53 55 42 00  c6 57 e4 ed 4c 44 58 20  |Q LTSUB..W..LDX |
00004fc0  23 24 41 30 00 da 57 ee  ed 4c 54 53 55 42 20 4c  |#$A0..W..LTSUB L|
00004fd0  44 41 20 24 44 30 31 30  00 e5 57 f8 ed af 20 23  |DA $D010..W... #|
00004fe0  24 35 46 00 f1 57 02 ee  53 54 58 20 24 30 32 00  |$5F..W..STX $02.|
00004ff0  f9 57 0c ee 43 4c 43 00  05 58 16 ee 41 44 43 20  |.W..CLC..X..ADC |
00005000  24 30 32 00 13 58 20 ee  53 54 41 20 24 44 30 31  |$02..X .STA $D01|
00005010  30 00 23 58 2a ee 42 4f  58 9a 20 4c 44 41 20 59  |0.#X*.BOX. LDA Y|
00005020  50 00 30 58 34 ee 43 4d  50 20 59 50 49 42 00 3e  |P.0X4.CMP YPIB.>|
00005030  58 3e ee 42 43 43 20 4c  45 53 53 59 00 4b 58 48  |X>.BCC LESSY.KXH|
00005040  ee 4c 44 41 20 59 50 49  42 00 59 58 52 ee 53 54  |.LDA YPIB.YXR.ST|
00005050  41 20 24 44 30 30 39 00  67 58 5c ee 53 54 41 20  |A $D009.gX\.STA |
00005060  24 44 30 30 42 00 72 58  66 ee 4c 44 41 20 59 50  |$D00B.rXf.LDA YP|
00005070  00 7a 58 70 ee 53 45 43  00 87 58 7a ee 53 42 43  |.zXp.SEC..Xz.SBC|
00005080  20 23 24 31 35 00 95 58  84 ee 53 54 41 20 24 44  | #$15..X..STA $D|
00005090  30 30 44 00 a3 58 8e ee  53 54 41 20 24 44 30 30  |00D..X..STA $D00|
000050a0  46 00 b2 58 98 ee 4a 4d  50 20 42 4f 58 9a 49 49  |F..X..JMP BOX.II|
000050b0  00 c3 58 a2 ee 4c 45 53  53 59 20 4c 44 41 20 59  |..X..LESSY LDA Y|
000050c0  50 00 d1 58 ac ee 53 54  41 20 24 44 30 30 39 00  |P..X..STA $D009.|
000050d0  df 58 b6 ee 53 54 41 20  24 44 30 30 42 00 ec 58  |.X..STA $D00B..X|
000050e0  c0 ee 4c 44 41 20 59 50  49 42 00 f4 58 ca ee 53  |..LDA YPIB..X..S|
000050f0  45 43 00 01 59 d4 ee 53  42 43 20 23 24 31 35 00  |EC..Y..SBC #$15.|
00005100  0f 59 de ee 53 54 41 20  24 44 30 30 44 00 1d 59  |.Y..STA $D00D..Y|
00005110  e8 ee 53 54 41 20 24 44  30 30 46 00 32 59 f2 ee  |..STA $D00F.2Y..|
00005120  42 4f 58 9a 49 49 20 4c  44 41 20 43 4c 49 43 4b  |BOX.II LDA CLICK|
00005130  00 3f 59 fc ee 42 4e 45  20 42 4f 58 80 00 4f 59  |.?Y..BNE BOX..OY|
00005140  06 ef 4a 4d 50 20 42 4f  58 4c 4f 4f 50 00 63 59  |..JMP BOXLOOP.cY|
00005150  10 ef 42 4f 58 80 20 4a  4d 50 20 9a 52 4f 4c 4f  |..BOX. JMP .ROLO|
00005160  50 00 78 59 30 f2 42 4f  58 46 4c 41 53 48 20 4c  |P.xY0.BOXFLASH L|
00005170  44 41 20 24 41 32 00 83  59 3a f2 af 20 23 24 33  |DA $A2..Y:.. #$3|
00005180  43 00 8d 59 44 f2 4c 53  52 20 41 00 97 59 4e f2  |C..YD.LSR A..YN.|
00005190  4c 53 52 20 41 00 9f 59  58 f2 54 41 58 00 b1 59  |LSR A..YX.TAX..Y|
000051a0  62 f2 4c 44 41 20 42 4f  58 43 4f 4c 53 2c 58 00  |b.LDA BOXCOLS,X.|
000051b0  bf 59 6c f2 53 54 41 20  24 44 30 32 42 00 cd 59  |.Yl.STA $D02B..Y|
000051c0  76 f2 53 54 41 20 24 44  30 32 43 00 db 59 80 f2  |v.STA $D02C..Y..|
000051d0  53 54 41 20 24 44 30 32  44 00 e9 59 8a f2 53 54  |STA $D02D..Y..ST|
000051e0  41 20 24 44 30 32 45 00  f7 59 94 f2 4a 4d 50 20  |A $D02E..Y..JMP |
000051f0  24 45 41 33 31 00 19 5a  9e f2 42 4f 58 43 4f 4c  |$EA31..Z..BOXCOL|
00005200  53 20 54 58 54 20 30 2c  39 2c 32 2c 38 2c 31 30  |S TXT 0,9,2,8,10|
00005210  2c 37 2c 31 33 2c 31 00  33 5a a8 f2 54 58 54 20  |,7,13,1.3Z..TXT |
00005220  31 2c 31 33 2c 33 2c 35  2c 31 34 2c 34 2c 36 2c  |1,13,3,5,14,4,6,|
00005230  30 00 48 5a 18 f6 3b 20  44 45 4c 45 54 45 20 54  |0.HZ..; DELETE T|
00005240  48 45 53 45 21 21 00 5c  5a 22 f6 43 4f 4c 53 20  |HESE!!.\Z".COLS |
00005250  4a 4d 50 20 9a 52 4f 4c  4f 50 00 71 5a 4a f6 b9  |JMP .ROLOP.qZJ..|
00005260  49 54 49 91 20 4a 4d 50  20 9a 52 4f 4c 4f 50 00  |ITI. JMP .ROLOP.|
00005270  88 5a 54 f6 5a 4f 4f 4d  4f 55 54 20 4a 4d 50 20  |.ZT.ZOOMOUT JMP |
00005280  9a 52 4f 4c 4f 50 00 00  00                       |.ROLOP...|
00005289