;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'*�eJSR �LFS4*�eLDX #$10J*f�AME� LDA $41EF,XW*fCMP #$20f*fBNE �AME�Tn*&fDEX}*0fBEQ �AME�T�*:fJMP �AME��*Df�AME�T TXA�*NfLDX #$F0�*bfLDY #$41�*lfJSR �NAM�*vfLDA #$20�*�fSTA $FC�*�fLDX #$00�*�fSTA $FB+�fLDY #$40
+�fLDA #$FB+�fJSR �ROM++�fJMP COMEBACKQ+xi;           KEYBOARD DECODE TABLEW+�i;n+�i�� TXT $81,$80,$82�+�iTXT 0,0,0,0,$83,51,23,1,52,26�+�iTXT 19,5,0,53,18,4,54,3,6,20,24�+�iTXT 55,25,7,56,2,8,21,22,57,9,10�+�iTXT 48,13,11,15,14,43,16,12,45,46#,�iTXT 0,0,44,0,0,0,0,0,0,30,47,49?,�iTXT 31,0,50,32,0,17,0,0c,0u;          M�LEBROT SET PLOTTERp,:uM�LE SEI},?uLDA #$00�,DuSTA YPIXEL�,NuLDA #$03�,XuSTA $4100�,buLDA #$06�,luSTA $4102�,vuJSR EQUAL�,�uMMAINL LDA #$00�,�uSTA XPIXEL-�uLDA #$01-�uSTA $4100-�uLDA #$05)-�uSTA $41027-�uJSR EQUALL-�uMMAINLB LDA #$05Z-�uSTA $4100g-�uLDA #$07u-�uSTA $4102�-�uJSR EQUAL�-�uINC $4100�-vINC $4102�-vJSR EQUAL�-vLDA #$00�- vSTA COLOUR�-*vLOOP LDA #$07�-4vSTA $4100�->vSTA $4101.HvLDA #$10.RvSTA $4102#.\vJSR MULTIPLY0.fvLDA #$08>.pvSTA $4100L.zvSTA $4101Y.�vLDA #$11g.�vSTA $4102x.�vJSR MULTIPLY�.�vLDX #$10�.�vSTX $4100�.�vINX�.�vSTX $4101�.�vINX�.�vSTX $4102�.�vJSR ADDITI��.�vLDA $4091�.�vCMP #$04�.�vBCC FAIL/wCMP #$50/wBCS FAIL)/wSUCPASS JMP SUCCESS=/$wFAIL INC COLOURL/)wLDA COLOUR[/.wCMP MAXCOLk/8wBEQ SUCPASS|/BwJSR SUBTRACT�/LwLDA #$12�/VwSTA $4100�/`wLDA #$05�/jwSTA $4101�/twLDA #$13�/~wSTA $4102�/�wJSR ADDITI��/�wLDA #$07�/�wSTA $41000�wLDA #$080�wSTA $4101!0�wINC $410220�wJSR MULTIPLY?0�wLDA #$14M0�wSTA $4100Z0�wLDA #$1Ch0�wSTA $4101u0�wLDA #$15�0xSTA $4102�0
xJSR MULTIPLY�0xLDA #$15�0xSTA $4100�0(xLDA #$06�02xSTA $4101�0<xLDA #$16�0FxSTA $4102�0PxJSR ADDITI�1ZxLDA #$131dxSTA $41001nxLDA #$07+1xxSTA $410291�xJSR EQUALF1�xLDA #$16T1�xSTA $4100a1�xLDA #$08o1�xSTA $4102}1�xJSR EQUAL�1�xJMP LOOP�1�xSUCCESS JSR PLOT�1�xLDA #$05�1�xSTA $4100�1�xSTA $4102�1�xLDA #$02�1�xSTA $4101�1yJSR ADDITI�2yLDA XPIXEL2yBNE XRELOP2"yLDA #$06,2,ySTA $4100:26ySTA $4102G2@yLDA #$04U2JySTA $4101e2TyJSR ADDITI�t2^yINC YPIXEL�2hyLDA YPIXEL�2ryCMP #$C8�2|yBNE YRELOP�2�yCLI�2�yRTS�2�yXRELOP JMP MMAINLB�2�yYRELOP JMP MMAINL�2�yM�PLOT JSR M�LE�2�yJMP �ROLOP%3��;                 COLOUR ROUTINES83ˆ�COLS LDA COL0F3̈STA $D021S3ֈLDY #$00_3�STY $FBl3�LDA #$D8x3�STA $FC�3��LDA COL3�3��CLOPA STA ($FB),Y�3�INY�3�BNE �CLOPA�3&�INC $FC�30�LDX $FC�3:�CPX #$DC�3D�BNE �CLOPA�3N�LDA #$044X�STA $FC
4b�LDA COL14l�ASL A!4v�ASL A+4��ASL A54��ASL AA4���A COL2X4���CLOPB STA ($FB),Y`4��INYo4��BEQ �CLOPC|4��CPY #$F8�4ƉBNE �CLOPB�4ЉLDX $FC�4ډCPX #$07�4�BNE �CLOPB�4�RTS�4���CLOPC INC $FC�4�JMP �CLOPB�4�COLC� LDA �TIME�4�CLC5 �ADC SPEED5*�STA �TIME)54�COLCLOP CMP $A295>�BNE COLCLOPA5H�RTST5R�COLC�S LDA $C5a5\�CMP #$28n5f�BEQ SPUP{5p�CMP #$2B�5z�BEQ SLDN�5��CMP #$01�5��BEQ COLCOFF�5��NO� RTS�5��COLCOFF PLA�5��PLA�5��JMP COMEBACK�5��SPUP LDA SPEED�5ŊCMP #$036ʊBEQ NO�6ԊDEC SPEED6ފRTS/6�SLDN LDA SPEED<6�CMP #$19H6��BEQ NO�V6�INC SPEED^6�RTSt6�COLCYCLE LDA #$0A�6$�STA SPEED�6.�LDA $A2�68�STA �TIME�6B�COLCYCLOP LDA COL0S�6L�STA COL0�6V�LDA COL1S�6`�STA COL1�6j�LDA COL2S�6t�STA COL27~�LDA COL3S7��STA COL3 7��JSR �COLS/7��JSR COLC�S=7��JSR COLC�K7��LDA COL3SX7��STA COL0f7ċLDA COL0Ss7΋STA COL1�7؋LDA COL1S�7�STA COL2�7�LDA COL2S�7��STA COL3�7�JSR �COLS�7
�JSR COLC�S�7�JSR COLC��7�LDA COL2S�7(�STA COL0�72�LDA COL3S
8<�STA COL18F�LDA COL0S%8P�STA COL238Z�LDA COL1S@8d�STA COL3N8n�JSR �COLS]8x�JSR COLC�Sk8��JSR COLC�y8��LDA COL1S�8��STA COL0�8��LDA COL2S�8��STA COL1�8��LDA COL3S�8��STA COL2�8ȌLDA COL0S�8ҌSTA COL3�8܌JSR �COLS�8�JSR COLC�S9�JSR COLC�9��JMP COLCYCLOP:9@�;             ARITHMETIC ROUTINESI9J��DIGIT CLDS9T�ASL A]9^�ASL Ag9h�ASL As9r�STA $02{9|�TXA�9��LSR A�9��STA $24�9��LDA #$07�9��SEC�9��SBC $24�9��CLC�9œADC $02�9̜TAY�9֜LDA $4000,Y�9�TAY�9�TXA�9� #$01:��BEQ LSNGD:�TYA:�� #$F0$:�LSR A.:&�LSR A8:0�LSR AB::�LSR AJ:D�RTSX:N�LSNGD TYAc:X�� #$0Fk:b�RTS�:l�MULTIPLYB JSR NEGATIVE�:q�LDA $4102�: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 $4101J;�LDX $FCY;�JSR �DIGITf;�CMP #$00u; �BEQ DMOVER�;*�STA $FD�;4�LDA #$06�;>�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 #$0C2<��LDX $FD:<��TAYE<ʞ� #$01S<ԞBEQ MSKIP[<ޞTXAe<�ASL Ao<�ASL Ay<��ASL A�<�ASL A�<�TAX�<�MSKIP TYA�<$�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(=��TAY4=��STX $24E=��DMLB LDX $02M=��SED]=��LDA $4000,Ye=ğCLCq=ΟADC $24�=؟STA $4000,Y�=�MALP CLD�=�BCC MAQUIT�=��DEY�=�DEX�=
�CPX #$FF�=�BEQ MAQUIT�=�SED�=(�LDA $4000,Y�=2�CLC�=<�ADC #$01>F�STA $4000,Y>P�JMP MALP&>Z�DMOVER INC $FB2>d�LDA $FB?>n�CMP #$0EM>x�BCC DMLOPY>��INC $FCe>��LDA $FCr>��CMP #$0E�>��BCC �DIGIT�>��LDA YPIB�>��BEQ QUIT�>��LDA $4102�>ȠSTA $4101�>ҠLDA #$1D�>ܠSTA $4100�>�JSR SUBTRACT�>�QUIT RTS?��MAQUIT LDX $FE?�DEX?�BEQ DMOVER&?
�STX $FE2?�LDY $25??�JMP DMLBR?"�MSUP LDA $4100\?,�ASL Af?6�ASL Ap?@�ASL Ax?J�TAX�?T�DEX�?^�STX $FB�?h�LDA $4101�?r�ASL A�?|�ASL A�?��ASL A�?��TAX�?��DEX�?��STX $FD�?��LDA $4102�?��ASL A�?¡ASL A@̡ASL A@֡TAX@�DEX@�STX $22)@�LDA #$405@��STA $FCA@�STA $FEM@�STA $23U@�RTSh@&�EQUAL JSR MSUPu@0�LDY #$08�@:�ELOP LDA ($FB),Y�@D�STA ($22),Y�@N�DEY�@X�BNE ELOP�@b�RTS�@l�ADDITI� JSR MSUP�@v�LDY #$08�@��SED�@��CLC�@��ADLOP LDA ($FB),YA��ADC ($FD),YA��STA ($22),Y'A��DEY5A��BNE ADLOP=AƢCLDEAТRTS[AڢSUBTRACT JSR MSUPhA�LDY #$08pA�SEDxA��SEC�A�SULOP LDA ($FB),Y�A�SBC ($FD),Y�A�STA ($22),Y�A �DEY�A*�BNE SULOP�A4�CLD�A>�RTS�AH�NEGATIVE LDA #$00�AR�PHAB\�LDA $4100Bf�TAYBp�ASL ABz�ASL A&B��ASL A.B��TAX>B��LDA $4001,XKB��CMP #$50^B��BCC NEGRMOVEABfB��PLAsB��ADC #$00{B��PHA�Bʣ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$�PLAC.�BCC NOE�C8�E� #$01CB�PHA,CL�BCS NEGRMOVEB?CV�NEGRMOVEBB PLAQC`�NOE� STA YPIBYCj�RTSpCt�NEGRMOVE LDA $4100xC~�PHA�C��LDA $4101�C��PHA�C��LDA $4102�C��PHA�C��TYA�C��STA $4101�CĤSTA $4102�CΤLDA #$1D�CؤSTA $4100�C�JSR SUBTRACT�C�PLA
D��STA $4102D�PLA D
�STA $4101(D�PLA6D�STA $4100>D(�RTSYD2�NEGRMOVEA JSR NEGRMOVElD<�JMP NEGRMOVEAB�DF�NEGRMOVEB JSR NEGRMOVE�DP�JMP NEGRMOVEBB�DZ�MULTIPLY LDA $4102�Dd�PHA�Dn�LDA $4101�Dx�PHA�D��LDA #$18�D��STA $4102�D��JSR EQUALE��INC $4102E��PLAE��STA $4100*E��JSR EQUAL7EȥLDA #$18EEҥSTA $4100REܥLDA #$19`E�STA $4101hE�PLAvE��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 AF��LSR AF��LSR AF��STA YPIB*F�ï #$034F��ASL A>F��ASL AHF��ASL ARF��ASL A\F��ASL AfF��ASL ArF��STA $02~F�LDA $FB�F�SEC�F�SBC $02�F"�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
Gr�PLA	G|�SECG��SBC $02!G��STA $FC0G��LDA YPIXEL;G�į #$07HG��STA YPIBTG��LDA $FB\G��SECiG��SBC YPIBqG��PHA�G��LDA XPIXEL�G�į #$F8�G��STA YPIB�G��PLA�G�CLC�G�ADC YPIB�G�STA $FB�G&�LDA $FC�G0�SBC #$00�G:�STA $FC�GD�LDA XPIXELHNů #$07HX�TAXHb�LDA #$80)Hl�GBITLP CPX #$005Hv�BEQ PP�?H��LSR AGH��DEXVH��JMP GBITLPfH��PP� STA $FDnH��RTS�H��PLO�N JSR PLOTPC�H��LDY #$00�H��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
I�LDY #$00I �LDA ($FB),Y$I*Ư $FD4I4�STA ($FB),Y<I>�RTSPIH�PLOT LDA COLOUR[IRƯ #$02hI\�BNE PPA�wIf�JSR PLO�FF�Ip�JMP PPACNT�Iz�PPA� JSR PLO�N�I��PPACNT INC XPIXEL�I��LDA COLOUR�I�Ư #$01�I��BNE PPB��I��JSR PLO�FF�I��JMP PPBCNTJ��PPB� JSR PLO�NJ��PPBCNT INC XPIXEL%J��RTSJJ��;       ZOOM CALCULATI� ROUTINES`J��NOZOOM JMP �ROLOPuJ��ZOOMIN LDA $D015�J�֯ #$F0�J�CMP #$F0�J
�BNE NOZOOM�J�LDA #$1E�J�STA $4100�J(�LDA #$01�J2�STA $4101�J<�LDA #$10�JF�STA $4102�JP�JSR SUBTRACTKZ�LDA #$01Kd�STA $4100'Kn�INC $41025Kx�JSR EQUALBK��LDA #$10PK��STA $4100]K��LDA #$1BkK��STA $4101xK��LDA #$12�K��STA $4102�K��JSR MULTIPLY�K��LDA #$11�K��STA $4100�K��STA $4102�K��LDA #$12�K��STA $4101�K��LDA $D008�K�SEC�K�SBC #$58L�CALCINLOPA CMP #$00&L"�BEQ CALC�IA.L,�PHA>L6�JSR ADDITI�FL@�PLANLJ�TAXVLT�DEX^L^�TXAqLh�JMP CALCINLOPA�Lr�CALC�IA LDA #$01�L|�STA $4100�L��LDA #$13�L��STA $4102�L��JSR EQUAL�L��LDA #$13�L��STA $4100�L��STA $4102�L��LDA #$12
M��STA $4101M��LDA $D00AM��SEC$M��SBC #$40<M��CALCINLOPB CMP #$00LM��BEQ CALC�IBTM�PHAdM�JSR ADDITI�lM�PLAtM&�TAX|M0�DEX�M:�TXA�MD�JMP CALCINLOPB�MN�CALC�IB LDA #$11�MX�STA $4100�Mb�LDA #$01�Ml�STA $4102�Mv�JSR EQUAL�M��LDA #$13�M��STA $4100N��LDA #$1EN��STA $4102'N��JSR EQUAL4N��LDA #$1FBN��STA $4100ON��LDA #$03]N��STA $4101jN��LDA #$10xN��STA $4102�N��JSR SUBTRACT�N��LDA #$03�N�STA $4100�N�INC $4102�N�JSR EQUAL�N �LDA #$10�N*�STA $4100�N4�LDA #$12�N>�STA $4102OH�LDA #$1AOR�STA $4101"O\�JSR MULTIPLY/Of�LDA #$11=Op�STA $4100KOz�STA $4102XO��LDA #$12fO��STA $4101sO��LDA #$E5{O��SEC�O��SBC $D00D�O��CALCINYA CMP #$00�O��BEQ CALC�IC�O��PHA�O��JSR ADDITI��O��PLA�O��TAX�O��DEX�O��TXA�O�JMP CALCINYA
P�CALC�IC LDA #$03P�STA $4100(P$�LDA #$136P.�STA $4102DP8�JSR EQUALQPB�LDA #$13_PL�STA $4100mPV�STA $4102zP`�LDA #$12�Pj�STA $4101�Pt�LDA #$FA�P~�SEC�P��SBC $D009�P��CALCINYB CMP #$00�P��BEQ CALC�ID�P��PHA�P��JSR ADDITI��P��PLA�P��TAX
Q��DEX	Q��TXAQ��JMP CALCINYB/Q��CALC�ID LDA #$11=Q��STA $4100JQ�LDA #$03XQ
�STA $4102fQ�JSR EQUALsQ�LDA #$13�Q(�STA $4100�Q2�LDA #$1F�Q<�STA $4102�QF�JSR EQUAL�QP�LDA #$1E�QZ�STA $4100�Qd�LDA #$01�Qn�STA $4101�Qx�LDA #$10�Q��STA $4102R��JSR SUBTRACTR��LDA #$10'R��STA $41004R��LDA #$17BR��STA $4101OR��LDA #$02]R��STA $4102nR��JSR MULTIPLY{R��LDA #$1F�R��STA $4100�R��LDA #$03�R��STA $4101�R�LDA #$10�R�STA $4102�R�JSR SUBTRACT�R"�LDA #$10�R,�STA $4100�R6�LDA #$1AS@�STA $4101SJ�LDA #$04!ST�STA $41022S^�JSR MULTIPLY?Sh�JSR M�LENSr�JMP �ROLOPtS`�;                   ZOOM ROUTINES�Sj�BOX LDA XP�St�STA XPIB�S~�LDA YP�S��STA YPIB�S��LDA XPB�S��STA XPBIB�S��LDX #$3C�S��STX $07FC�S��INX�S��STX $07FD�S��INX	T��STX $07FET��INXT��STX $07FF-T��LDA $D0159T�A #$F0GT
�STA $D015ZT�BOX� LDA CLICKgT�BNE BOX�}Tx�BOXLOOP LDA XPBIB�T��CMP XPB�T��BEQ CHECKFINE�T��BCS LESSTHAN�T��JMP M�ETHAN�T��CHECKFINE LDA XPIB�T��CMP XP�T��BCS LESSTHANU��M�ETHAN LDA XPIBU��STA $D008 U��STA $D00C-U��LDX #$00;U��LDA XPBIBLU��BEQ NOXPBADDYU�LDX #$50pU�NOXPBADD LDA $D010{U� #$AF�U"�STX $02�U,�CLC�U6�ADC $02�U@�STA $D010�UE�LDX #$00�UJ�LDA XP�UT�SEC�U^�SBC #$18�Uh�STA $D00A�Ur�STA $D00EV|�BCC MTSUBV��LDX XPBV��BEQ MTSUB'V��LDX #$A0;V��MTSUB LDA $D010FV�� #$5FRV��STX $02ZV��CLCfV��ADC $02tV��STA $D010�V��JMP BOX��V��LESSTHAN LDA XP�V��LDX XPB�V��BNE �OUT�V�CMP #$58�V�BCS �OUT�V�LDA #$58�V&�OUT STA $D008�V0�STA $D00CW:�CPX #$00WD�BEQ LTNOADD WN�LDX #$506WX�LTNOADD LDA $D010AWb� #$AFMWl�STX $02UWv�CLCaW��ADC $02oW��STA $D010|W��LDX #$00�W��LDA XPIB�W��SEC�W��SBC #$18�W��STA $D00A�W��STA $D00E�W��BCC LTSUB�W��LDX XPBIB�W��BEQ LTSUB�W��LDX #$A0X��LTSUB LDA $D010X�� #$5FX�STX $02$X�CLC0X�ADC $02>X �STA $D010NX*�BOX� LDA YP[X4�CMP YPIBiX>�BCC LESSYvXH�LDA YPIB�XR�STA $D009�X\�STA $D00B�Xf�LDA YP�Xp�SEC�Xz�SBC #$15�X��STA $D00D�X��STA $D00F�X��JMP BOX�II�X��LESSY LDA YP�X��STA $D009
Y��STA $D00BY��LDA YPIBY��SEC,Y��SBC #$15:Y��STA $D00DHY��STA $D00F]Y��BOX�II LDA CLICKjY��BNE BOX�zY�JMP BOXLOOP�Y�BOX� JMP �ROLOP�Y0�BOXFLASH LDA $A2�Y:� #$3C�YD�LSR A�YN�LSR A�YX�TAX�Yb�LDA BOXCOLS,X�Yl�STA $D02B�Yv�STA $D02CZ��STA $D02DZ��STA $D02E"Z��JMP $EA31DZ��BOXCOLS TXT 0,9,2,8,10,7,13,1^Z��TXT 1,13,3,5,14,4,6,0sZ�; DELETE THESE!!�Z"�COLS JMP �ROLOP�ZJ��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@'*.Ejsr .lfs@4*.Eldx #$10@j*HF.ame. lda $41ef,x@w*RFcmp #$20@F*£Fbne .ame.t@N*&Fdex@.*0Fbeq .ame.t@.*:Fjmp .ame.@.*dF.ame.t txa@.*nFldx #$f0@.*BFldy #$41@.*LFjsr .nam@.*VFlda #$20@.*.Fsta $fc@.*.Fldx #$00@.*.Fsta $fb@@+.Fldy #$40@M+.Flda #$fb@Z+.Fjsr .rom@++.Fjmp comeback@q+XI;           keyboard decode table@w+.I;@N+.I.. txt $81,$80,$82@.+.Itxt 0,0,0,0,$83,51,23,1,52,26@.+.Itxt 19,5,0,53,18,4,54,3,6,20,24@.+.Itxt 55,25,7,56,2,8,21,22,57,9,10@.+.Itxt 48,13,11,15,14,43,16,12,45,46@#,.Itxt 0,0,44,0,0,0,0,0,0,30,47,49@?,.Itxt 31,0,50,32,0,17,0,0@C,0U;          m.lebrot set plotter@P,:Um.le sei@.,?Ulda #$00@.,dUsta ypixel@.,nUlda #$03@.,xUsta $4100@.,BUlda #$06@.,LUsta $4102@.,VUjsr equal@.,.Ummainl lda #$00@.,.Usta xpixel@@-.Ulda #$01@N-.Usta $4100@[-.Ulda #$05@)-.Usta $4102@7-.Ujsr equal@l-.Ummainlb lda #$05@z-.Usta $4100@G-.Ulda #$07@U-.Usta $4102@.-.Ujsr equal@.-.Uinc $4100@.-BVinc $4102@.-LVjsr equal@.-VVlda #$00@.- Vsta colour@.-*Vloop lda #$07@.-4Vsta $4100@.->Vsta $4101@D.hVlda #$10@R.rVsta $4102@#.£Vjsr multiply@0.FVlda #$08@>.PVsta $4100@l.ZVsta $4101@y..Vlda #$11@G..Vsta $4102@X..Vjsr multiply@...Vldx #$10@...Vstx $4100@...Vinx@...Vstx $4101@...Vinx@...Vstx $4102@...Vjsr additi.@...Vlda $4091@...Vcmp #$04@...Vbcc fail@D/FWcmp #$50@Q/PWbcs fail@)/ZWsucpass jmp success@=/$Wfail inc colour@l/)Wlda colour@[/.Wcmp maxcol@K/8Wbeq sucpass@./bWjsr subtract@./lWlda #$12@./vWsta $4100@./.Wlda #$05@./JWsta $4101@./TWlda #$13@./.Wsta $4102@./.Wjsr additi.@./.Wlda #$07@./.Wsta $4100@E0.Wlda #$08@S0.Wsta $4101@!0.Winc $4102@20.Wjsr multiply@?0.Wlda #$14@m0.Wsta $4100@z0.Wlda #$1c@H0.Wsta $4101@U0.Wlda #$15@.0@Xsta $4102@.0JXjsr multiply@.0TXlda #$15@.0.Xsta $4100@.0(Xlda #$06@.02Xsta $4101@.0<Xlda #$16@.0fXsta $4102@.0pXjsr additi.@B1zXlda #$13@P1DXsta $4100@]1NXlda #$07@+1XXsta $4102@91.Xjsr equal@f1.Xlda #$16@t1.Xsta $4100@A1.Xlda #$08@O1.Xsta $4102@.1.Xjsr equal@.1.Xjmp loop@.1.Xsuccess jsr plot@.1.Xlda #$05@.1.Xsta $4100@.1.Xsta $4102@.1.Xlda #$02@.1.Xsta $4101@.1DYjsr additi.@B2NYlda xpixel@Q2XYbne xrelop@.2"Ylda #$06@,2,Ysta $4100@:26Ysta $4102@g2@Ylda #$04@u2jYsta $4101@E2tYjsr additi.@T2.Yinc ypixel@.2HYlda ypixel@.2RYcmp #$c8@.2.Ybne yrelop@.2.Ycli@.2.Yrts@.2.Yxrelop jmp mmainlb@.2.Yyrelop jmp mmainl@.2.Ym.plot jsr m.le@.2.Yjmp .rolop@%3..;                 colour routines@83...cols lda col0@f3..sta $d021@s3..ldy #$00@.3..sty $fb@L3..lda #$d8@X3..sta $fc@.3..lda col3@.3H..clopa sta ($fb),y@.3R.iny@.3£.bne .clopa@.3&.inc $fc@.30.ldx $fc@.3:.cpx #$dc@.3d.bne .clopa@.3n.lda #$04@@4x.sta $fc@M4B.lda col1@W4L.asl a@!4V.asl a@+4..asl a@54..asl a@a4...a col2@x4...clopb sta ($fb),y@.4..iny@O4..beq .clopc@.4..cpy #$f8@.4..bne .clopb@.4..ldx $fc@.4..cpx #$07@.4..bne .clopb@.4..rts@.4...clopc inc $fc@.4B.jmp .clopb@.4L.colc. lda .time@.4V.clc@G5 .adc speed@U5*.sta .time@)54.colclop cmp $a2@95>.bne colclop@a5h.rts@t5r.colc.s lda $c5@A5£.cmp #$28@N5F.beq spup@.5P.cmp #$2b@.5Z.beq sldn@.5..cmp #$01@.5..beq colcoff@.5..no. rts@.5..colcoff pla@.5..pla@.5..jmp comeback@.5..spup lda speed@.5..cmp #$03@F6..beq no.@T6..dec speed@£6..rts@/6..sldn lda speed@<6..cmp #$19@h6..beq no.@v6F.inc speed@.6P.rts@T6Z.colcycle lda #$0a@.6$.sta speed@.6..lda $a2@.68.sta .time@.6b.colcyclop lda col0s@.6l.sta col0@.6v.lda col1s@.6..sta col1@.6J.lda col2s@.6T.sta col2@E7..lda col3s@R7..sta col3@ 7..jsr .cols@/7..jsr colc.s@=7..jsr colc.@k7..lda col3s@x7..sta col0@F7..lda col0s@S7..sta col1@.7..lda col1s@.7..sta col2@.7..lda col2s@.7..sta col3@.7@.jsr .cols@.7J.jsr colc.s@.7T.jsr colc.@.7..lda col2s@.7(.sta col0@.72.lda col3s@J8<.sta col1@X8f.lda col0s@%8p.sta col2@38z.lda col1s@@8D.sta col3@n8N.jsr .cols@]8X.jsr colc.s@K8..jsr colc.@Y8..lda col1s@.8..sta col0@.8..lda col2s@.8..sta col1@.8..lda col3s@.8..sta col2@.8..lda col0s@.8..sta col3@.8..jsr .cols@.8..jsr colc.s@B9..jsr colc.@T9..jmp colcyclop@:9@.;             arithmetic routines@i9j..digit cld@s9t.asl a@]9..asl a@G9H.asl a@S9R.sta $02@.9..txa@.9..lsr a@.9..sta $24@.9..lda #$07@.9..sec@.9..sbc $24@.9..clc@.9..adc $02@.9..tay@.9..lda $4000,y@.9..tay@.9..txa@.9... #$01@G:..beq lsngd@O:H.tya@Z:R.. #$f0@$:£.lsr a@.:&.lsr a@8:0.lsr a@b::.lsr a@j:d.rts@x:n.lsngd tya@C:x.. #$0f@K:B.rts@.:L.multiplyb jsr negative@.:Q.lda $4102@.:V.asl a@.:..asl a@.:..asl a@.:..tax@.:..lda #$00@.:..tay@.:..mlopa sta $4000,x@.:..iny@.:..inx@B;..cpy #$08@P;..bne mlopa@];..lda #$06@);..sta $fc@>;...digit lda $4101@j;B.ldx $fc@y;L.jsr .digit@F;V.cmp #$00@U; .beq dmover@.;*.sta $fd@.;4.lda #$06@.;>.sta $fb@.;h.dmlop lda $4100@.;r.ldx $fb@.;£.jsr .digit@.;F.cmp #$00@.;P.beq dmover@.;Z.sta $fe@.;..lda $fb@E<..clc@Q<..adc $fc@Y<..sec@&<..sbc #$0c@2<..ldx $fd@:<..tay@e<... #$01@s<..beq mskip@[<..txa@E<..asl a@O<..asl a@Y<..asl a@.<F.asl a@.<P.tax@.<Z.mskip tya@.<$.lsr a@.<..sta $02@.<8.lda #$07@.<b.sec@.<l.sbc $02@.<v.sta $02@.<..lda $4102@.<J.asl a@.<T.asl a@H=..asl a@T=..adc $02@ =..sta $25@(=..tay@4=..stx $24@e=..dmlb ldx $02@m=..sed@]=..lda $4000,y@E=..clc@Q=..adc $24@.=..sta $4000,y@.=..malp cld@.=..bcc maquit@.=..dey@.=@.dex@.=J.cpx #$ff@.=T.beq maquit@.=..sed@.=(.lda $4000,y@.=2.clc@.=<.adc #$01@F>f.sta $4000,y@S>p.jmp malp@&>z.dmover inc $fb@2>D.lda $fb@?>N.cmp #$0e@m>X.bcc dmlop@y>..inc $fc@E>..lda $fc@R>..cmp #$0e@.>..bcc .digit@.>..lda ypib@.>..beq quit@.>..lda $4102@.>..sta $4101@.>..lda #$1d@.>..sta $4100@.>..jsr subtract@.>..quit rts@C?..maquit ldx $fe@K?D.dex@Z?G.beq dmover@&?J.stx $fe@2?N.ldy $25@??X.jmp dmlb@r?".msup lda $4100@£?,.asl a@F?6.asl a@P?@.asl a@X?j.tax@.?t.dex@.?..stx $fb@.?H.lda $4101@.?R.asl a@.?..asl a@.?..asl a@.?..tax@.?..dex@.?..stx $fd@.?..lda $4102@.?..asl a@.?..asl a@@@..asl a@H@..tax@P@..dex@£@..stx $22@)@..lda #$40@5@..sta $fc@a@H.sta $fe@m@R.sta $23@u@£.rts@H@&.equal jsr msup@U@0.ldy #$08@.@:.elop lda ($fb),y@.@d.sta ($22),y@.@n.dey@.@x.bne elop@.@B.rts@.@L.additi. jsr msup@.@V.ldy #$08@.@..sed@.@..clc@.@..adlop lda ($fb),y@Oa..adc ($fd),y@.a..sta ($22),y@'a..dey@5a..bne adlop@=a..cld@ea..rts@[a..subtract jsr msup@Ha..ldy #$08@Pa..sed@Xa..sec@.aB.sulop lda ($fb),y@.aL.sbc ($fd),y@.aV.sta ($22),y@.a .dey@.a*.bne sulop@.a4.cld@.a>.rts@.ah.negative lda #$00@.ar.pha@@b£.lda $4100@HbF.tay@RbP.asl a@£bZ.asl a@&b..asl a@.b..tax@>b..lda $4001,x@kb..cmp #$50@.b..bcc negrmoveab@Fb..pla@Sb..adc #$00@.b..pha@.b..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@Fc..bcc noe.@Rc8.e. #$01@Zcb.pha@,cl.bcs negrmoveb@?cv.negrmovebb pla@qc..noe. sta ypib@ycJ.rts@PcT.negrmove lda $4100@Xc..pha@.c..lda $4101@.c..pha@.c..lda $4102@.c..pha@.c..tya@.c..sta $4101@.c..sta $4102@.c..lda #$1d@.c..sta $4100@.c..jsr subtract@.c..pla@Jd..sta $4102@Rd@.pla@ dJ.sta $4101@(dT.pla@6d..sta $4100@>d(.rts@yd2.negrmovea jsr negrmove@Ld<.jmp negrmoveab@.df.negrmoveb jsr negrmove@.dp.jmp negrmovebb@.dz.multiply lda $4102@.dD.pha@.dN.lda $4101@.dX.pha@.d..lda #$18@.d..sta $4102@.d..jsr equal@Fe..inc $4102@Ne..pla@£e..sta $4100@*e..jsr equal@7e..lda #$18@ee..sta $4100@re..lda #$19@.e..sta $4101@He..pla@Ve..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@Hf..lsr a@Rf..lsr a@.f..sta ypib@*f... #$03@4f..asl a@>f..asl a@hf..asl a@rf..asl a@£f..asl a@Ff..asl a@Rf..sta $02@.fD.lda $fb@.fN.sec@.fX.sbc $02@.f".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@AgR.pla@Ig..sec@Ug..sbc $02@!g..sta $fc@0g..lda ypixel@;g... #$07@hg..sta ypib@tg..lda $fb@£g..sec@Ig..sbc ypib@Qg..pha@.g..lda xpixel@.g... #$f8@.g..sta ypib@.g..pla@.gH.clc@.gR.adc ypib@.g£.sta $fb@.g&.lda $fc@.g0.sbc #$00@.g:.sta $fc@.gd.lda xpixel@@hn.. #$07@Hhx.tax@UhB.lda #$80@)hL.gbitlp cpx #$00@5hV.beq pp.@?h..lsr a@gh..dex@vh..jmp gbitlp@Fh..pp. sta $fd@Nh..rts@.h..plo.n jsr plotpc@.h..ldy #$00@.h..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@JiV.ldy #$00@Zi .lda ($fb),y@$i*.. $fd@4i4.sta ($fb),y@<i>.rts@pih.plot lda colour@[ir.. #$02@Hi£.bne ppa.@WiF.jsr plo.ff@.iP.jmp ppacnt@.iZ.ppa. jsr plo.n@.i..ppacnt inc xpixel@.i..lda colour@.i... #$01@.i..bne ppb.@.i..jsr plo.ff@.i..jmp ppbcnt@Gj..ppb. jsr plo.n@]j..ppbcnt inc xpixel@%j..rts@jj..;       zoom calculati. routines@.j..nozoom jmp .rolop@Uj..zoomin lda $d015@.j... #$f0@.j@.cmp #$f0@.jJ.bne nozoom@.jT.lda #$1e@.j..sta $4100@.j(.lda #$01@.j2.sta $4101@.j<.lda #$10@.jf.sta $4102@.jp.jsr subtract@Kkz.lda #$01@YkD.sta $4100@'kN.inc $4102@5kX.jsr equal@bk..lda #$10@pk..sta $4100@]k..lda #$1b@Kk..sta $4101@Xk..lda #$12@.k..sta $4102@.k..jsr multiply@.k..lda #$11@.k..sta $4100@.k..sta $4102@.k..lda #$12@.k..sta $4101@.k..lda $d008@.kD.sec@.kN.sbc #$58@VlX.calcinlopa cmp #$00@&l".beq calc.ia@.l,.pha@>l6.jsr additi.@fl@.pla@nlj.tax@vlt.dex@.l..txa@QlH.jmp calcinlopa@.lR.calc.ia lda #$01@.l..sta $4100@.l..lda #$13@.l..sta $4102@.l..jsr equal@.l..lda #$13@.l..sta $4100@.l..sta $4102@.l..lda #$12@Am..sta $4101@Om..lda $d00a@Wm..sec@$m..sbc #$40@<m..calcinlopb cmp #$00@lm..beq calc.ib@tmH.pha@DmR.jsr additi.@Lm£.pla@Tm&.tax@.m0.dex@.m:.txa@.md.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@Kn..lda #$1e@Yn..sta $4102@'n..jsr equal@4n..lda #$1f@bn..sta $4100@on..lda #$03@]n..sta $4101@Jn..lda #$10@Xn..sta $4102@.n..jsr subtract@.n..lda #$03@.nB.sta $4100@.nL.inc $4102@.nV.jsr equal@.n .lda #$10@.n*.sta $4100@.n4.lda #$12@.n>.sta $4102@Coh.lda #$1a@Qor.sta $4101@"o£.jsr multiply@/oF.lda #$11@=oP.sta $4100@koZ.sta $4102@xo..lda #$12@Fo..sta $4101@So..lda #$e5@.o..sec@.o..sbc $d00d@.o..calcinya cmp #$00@.o..beq calc.ic@.o..pha@.o..jsr additi.@.o..pla@.o..tax@.o..dex@.o..txa@.oF.jmp calcinya@MpP.calc.ic lda #$03@[pZ.sta $4100@(p$.lda #$13@6p..sta $4102@dp8.jsr equal@qpb.lda #$13@.pl.sta $4100@Mpv.sta $4102@Zp..lda #$12@.pJ.sta $4101@.pT.lda #$fa@.p..sec@.p..sbc $d009@.p..calcinyb cmp #$00@.p..beq calc.id@.p..pha@.p..jsr additi.@.p..pla@.p..tax@Aq..dex@Iq..txa@Zq..jmp calcinyb@/q..calc.id lda #$11@=q..sta $4100@jq@.lda #$03@xqJ.sta $4102@FqT.jsr equal@Sq..lda #$13@.q(.sta $4100@.q2.lda #$1f@.q<.sta $4102@.qf.jsr equal@.qp.lda #$1e@.qz.sta $4100@.qD.lda #$01@.qN.sta $4101@.qX.lda #$10@.q..sta $4102@Lr..jsr subtract@Yr..lda #$10@'r..sta $4100@4r..lda #$17@br..sta $4101@or..lda #$02@]r..sta $4102@Nr..jsr multiply@.r..lda #$1f@.r..sta $4100@.r..lda #$03@.r..sta $4101@.rD.lda #$10@.rN.sta $4102@.rX.jsr subtract@.r".lda #$10@.r,.sta $4100@.r6.lda #$1a@Fs@.sta $4101@Ssj.lda #$04@!st.sta $4102@2s..jsr multiply@?sH.jsr m.le@nsR.jmp .rolop@Ts..;                   zoom routines@.sJ.box lda xp@.sT.sta xpib@.s..lda yp@.s..sta ypib@.s..lda xpb@.s..sta xpbib@.s..ldx #$3c@.s..stx $07fc@.s..inx@.s..stx $07fd@.s..inx@It..stx $07fe@Qt..inx@.t..stx $07ff@-t..lda $d015@9t@..a #$f0@gtJ.sta $d015@ztT.box. lda click@Gt..bne box.@.tX.boxloop lda xpbib@.t..cmp xpb@.t..beq checkfine@.t..bcs lessthan@.t..jmp m.ethan@.t..checkfine lda xpib@.t..cmp xp@.t..bcs lessthan@Du..m.ethan lda xpib@Ru..sta $d008@ u..sta $d00c@-u..ldx #$00@;u..lda xpbib@lu..beq noxpbadd@yuD.ldx #$50@PuN.noxpbadd lda $d010@.uX.. #$af@.u".stx $02@.u,.clc@.u6.adc $02@.u@.sta $d010@.ue.ldx #$00@.uj.lda xp@.ut.sec@.u..sbc #$18@.uH.sta $d00a@.uR.sta $d00e@@v..bcc mtsub@Lv..ldx xpb@Zv..beq mtsub@'v..ldx #$a0@;v..mtsub lda $d010@fv... #$5f@rv..stx $02@zv..clc@Fv..adc $02@Tv..sta $d010@.v..jmp box.@.v..lessthan lda xp@.v..ldx xpb@.v..bne .out@.vH.cmp #$58@.vR.bcs .out@.v£.lda #$58@.v&..out sta $d008@.v0.sta $d00c@Cw:.cpx #$00@Swd.beq ltnoadd@ wn.ldx #$50@6wx.ltnoadd lda $d010@awB.. #$af@mwL.stx $02@uwV.clc@Aw..adc $02@Ow..sta $d010@.w..ldx #$00@.w..lda xpib@.w..sec@.w..sbc #$18@.w..sta $d00a@.w..sta $d00e@.w..bcc ltsub@.w..ldx xpbib@.w..beq ltsub@.w..ldx #$a0@Ex..ltsub lda $d010@Px... #$5f@£xB.stx $02@$xL.clc@0xV.adc $02@>x .sta $d010@nx*.box. lda yp@[x4.cmp ypib@Ix>.bcc lessy@Vxh.lda ypib@.xr.sta $d009@.x£.sta $d00b@.xF.lda yp@.xP.sec@.xZ.sbc #$15@.x..sta $d00d@.x..sta $d00f@.x..jmp box.ii@.x..lessy lda yp@.x..sta $d009@Jy..sta $d00b@Wy..lda ypib@.y..sec@,y..sbc #$15@:y..sta $d00d@hy..sta $d00f@]y..box.ii lda click@Jy..bne box.@ZyF.jmp boxloop@.yP.box. jmp .rolop@.y0.boxflash lda $a2@.y:.. #$3c@.yd.lsr a@.yn.lsr a@.yx.tax@.yB.lda boxcols,x@.yL.sta $d02b@.yV.sta $d02c@Fz..sta $d02d@Tz..sta $d02e@"z..jmp $ea31@dz..boxcols txt 0,9,2,8,10,7,13,1@.z..txt 1,13,3,5,14,4,6,0@SzX.; delete these!!@.z".cols jmp .rolop@.zj..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 f4 65 4a 53 52  |..*.eTAY.'*.eJSR|
00002220  20 e8 4c 46 53 00 34 2a  fe 65 4c 44 58 20 23 24  | .LFS.4*.eLDX #$|
00002230  31 30 00 4a 2a 08 66 a5  41 4d 45 c3 20 4c 44 41  |10.J*.f.AME. LDA|
00002240  20 24 34 31 45 46 2c 58  00 57 2a 12 66 43 4d 50  | $41EF,X.W*.fCMP|
00002250  20 23 24 32 30 00 66 2a  1c 66 42 4e 45 20 a5 41  | #$20.f*.fBNE .A|
00002260  4d 45 cb 54 00 6e 2a 26  66 44 45 58 00 7d 2a 30  |ME.T.n*&fDEX.}*0|
00002270  66 42 45 51 20 a5 41 4d  45 cb 54 00 8b 2a 3a 66  |fBEQ .AME.T..*:f|
00002280  4a 4d 50 20 a5 41 4d 45  c3 00 9a 2a 44 66 a5 41  |JMP .AME...*Df.A|
00002290  4d 45 cb 54 20 54 58 41  00 a7 2a 4e 66 4c 44 58  |ME.T TXA..*NfLDX|
000022a0  20 23 24 46 30 00 b4 2a  62 66 4c 44 59 20 23 24  | #$F0..*bfLDY #$|
000022b0  34 31 00 c1 2a 6c 66 4a  53 52 20 e8 4e 41 4d 00  |41..*lfJSR .NAM.|
000022c0  ce 2a 76 66 4c 44 41 20  23 24 32 30 00 da 2a 80  |.*vfLDA #$20..*.|
000022d0  66 53 54 41 20 24 46 43  00 e7 2a 8a 66 4c 44 58  |fSTA $FC..*.fLDX|
000022e0  20 23 24 30 30 00 f3 2a  94 66 53 54 41 20 24 46  | #$00..*.fSTA $F|
000022f0  42 00 00 2b 9e 66 4c 44  59 20 23 24 34 30 00 0d  |B..+.fLDY #$40..|
00002300  2b a8 66 4c 44 41 20 23  24 46 42 00 1a 2b b2 66  |+.fLDA #$FB..+.f|
00002310  4a 53 52 20 e4 52 4f 4d  00 2b 2b bc 66 4a 4d 50  |JSR .ROM.++.fJMP|
00002320  20 43 4f 4d 45 42 41 43  4b 00 51 2b 78 69 3b 20  | COMEBACK.Q+xi; |
00002330  20 20 20 20 20 20 20 20  20 20 4b 45 59 42 4f 41  |          KEYBOA|
00002340  52 44 20 44 45 43 4f 44  45 20 54 41 42 4c 45 00  |RD DECODE TABLE.|
00002350  57 2b 82 69 3b 00 6e 2b  8c 69 dc d4 20 54 58 54  |W+.i;.n+.i.. TXT|
00002360  20 24 38 31 2c 24 38 30  2c 24 38 32 00 90 2b 96  | $81,$80,$82..+.|
00002370  69 54 58 54 20 30 2c 30  2c 30 2c 30 2c 24 38 33  |iTXT 0,0,0,0,$83|
00002380  2c 35 31 2c 32 33 2c 31  2c 35 32 2c 32 36 00 b4  |,51,23,1,52,26..|
00002390  2b a0 69 54 58 54 20 31  39 2c 35 2c 30 2c 35 33  |+.iTXT 19,5,0,53|
000023a0  2c 31 38 2c 34 2c 35 34  2c 33 2c 36 2c 32 30 2c  |,18,4,54,3,6,20,|
000023b0  32 34 00 d9 2b aa 69 54  58 54 20 35 35 2c 32 35  |24..+.iTXT 55,25|
000023c0  2c 37 2c 35 36 2c 32 2c  38 2c 32 31 2c 32 32 2c  |,7,56,2,8,21,22,|
000023d0  35 37 2c 39 2c 31 30 00  ff 2b b4 69 54 58 54 20  |57,9,10..+.iTXT |
000023e0  34 38 2c 31 33 2c 31 31  2c 31 35 2c 31 34 2c 34  |48,13,11,15,14,4|
000023f0  33 2c 31 36 2c 31 32 2c  34 35 2c 34 36 00 23 2c  |3,16,12,45,46.#,|
00002400  be 69 54 58 54 20 30 2c  30 2c 34 34 2c 30 2c 30  |.iTXT 0,0,44,0,0|
00002410  2c 30 2c 30 2c 30 2c 30  2c 33 30 2c 34 37 2c 34  |,0,0,0,0,30,47,4|
00002420  39 00 3f 2c c8 69 54 58  54 20 33 31 2c 30 2c 35  |9.?,.iTXT 31,0,5|
00002430  30 2c 33 32 2c 30 2c 31  37 2c 30 2c 30 00 63 2c  |0,32,0,17,0,0.c,|
00002440  30 75 3b 20 20 20 20 20  20 20 20 20 20 4d af 4c  |0u;          M.L|
00002450  45 42 52 4f 54 20 53 45  54 20 50 4c 4f 54 54 45  |EBROT SET PLOTTE|
00002460  52 00 70 2c 3a 75 4d af  4c 45 20 53 45 49 00 7d  |R.p,:uM.LE SEI.}|
00002470  2c 3f 75 4c 44 41 20 23  24 30 30 00 8c 2c 44 75  |,?uLDA #$00..,Du|
00002480  53 54 41 20 59 50 49 58  45 4c 00 99 2c 4e 75 4c  |STA YPIXEL..,NuL|
00002490  44 41 20 23 24 30 33 00  a7 2c 58 75 53 54 41 20  |DA #$03..,XuSTA |
000024a0  24 34 31 30 30 00 b4 2c  62 75 4c 44 41 20 23 24  |$4100..,buLDA #$|
000024b0  30 36 00 c2 2c 6c 75 53  54 41 20 24 34 31 30 32  |06..,luSTA $4102|
000024c0  00 d0 2c 76 75 4a 53 52  20 45 51 55 41 4c 00 e4  |..,vuJSR EQUAL..|
000024d0  2c 80 75 4d 4d 41 49 4e  4c 20 4c 44 41 20 23 24  |,.uMMAINL LDA #$|
000024e0  30 30 00 f3 2c 8a 75 53  54 41 20 58 50 49 58 45  |00..,.uSTA XPIXE|
000024f0  4c 00 00 2d 94 75 4c 44  41 20 23 24 30 31 00 0e  |L..-.uLDA #$01..|
00002500  2d 9e 75 53 54 41 20 24  34 31 30 30 00 1b 2d a8  |-.uSTA $4100..-.|
00002510  75 4c 44 41 20 23 24 30  35 00 29 2d b2 75 53 54  |uLDA #$05.)-.uST|
00002520  41 20 24 34 31 30 32 00  37 2d bc 75 4a 53 52 20  |A $4102.7-.uJSR |
00002530  45 51 55 41 4c 00 4c 2d  c6 75 4d 4d 41 49 4e 4c  |EQUAL.L-.uMMAINL|
00002540  42 20 4c 44 41 20 23 24  30 35 00 5a 2d d0 75 53  |B LDA #$05.Z-.uS|
00002550  54 41 20 24 34 31 30 30  00 67 2d da 75 4c 44 41  |TA $4100.g-.uLDA|
00002560  20 23 24 30 37 00 75 2d  e4 75 53 54 41 20 24 34  | #$07.u-.uSTA $4|
00002570  31 30 32 00 83 2d ee 75  4a 53 52 20 45 51 55 41  |102..-.uJSR EQUA|
00002580  4c 00 91 2d f8 75 49 4e  43 20 24 34 31 30 30 00  |L..-.uINC $4100.|
00002590  9f 2d 02 76 49 4e 43 20  24 34 31 30 32 00 ad 2d  |.-.vINC $4102..-|
000025a0  0c 76 4a 53 52 20 45 51  55 41 4c 00 ba 2d 16 76  |.vJSR EQUAL..-.v|
000025b0  4c 44 41 20 23 24 30 30  00 c9 2d 20 76 53 54 41  |LDA #$00..- vSTA|
000025c0  20 43 4f 4c 4f 55 52 00  db 2d 2a 76 4c 4f 4f 50  | COLOUR..-*vLOOP|
000025d0  20 4c 44 41 20 23 24 30  37 00 e9 2d 34 76 53 54  | LDA #$07..-4vST|
000025e0  41 20 24 34 31 30 30 00  f7 2d 3e 76 53 54 41 20  |A $4100..->vSTA |
000025f0  24 34 31 30 31 00 04 2e  48 76 4c 44 41 20 23 24  |$4101...HvLDA #$|
00002600  31 30 00 12 2e 52 76 53  54 41 20 24 34 31 30 32  |10...RvSTA $4102|
00002610  00 23 2e 5c 76 4a 53 52  20 4d 55 4c 54 49 50 4c  |.#.\vJSR MULTIPL|
00002620  59 00 30 2e 66 76 4c 44  41 20 23 24 30 38 00 3e  |Y.0.fvLDA #$08.>|
00002630  2e 70 76 53 54 41 20 24  34 31 30 30 00 4c 2e 7a  |.pvSTA $4100.L.z|
00002640  76 53 54 41 20 24 34 31  30 31 00 59 2e 84 76 4c  |vSTA $4101.Y..vL|
00002650  44 41 20 23 24 31 31 00  67 2e 8e 76 53 54 41 20  |DA #$11.g..vSTA |
00002660  24 34 31 30 32 00 78 2e  98 76 4a 53 52 20 4d 55  |$4102.x..vJSR MU|
00002670  4c 54 49 50 4c 59 00 85  2e a2 76 4c 44 58 20 23  |LTIPLY....vLDX #|
00002680  24 31 30 00 93 2e ac 76  53 54 58 20 24 34 31 30  |$10....vSTX $410|
00002690  30 00 9b 2e b6 76 49 4e  58 00 a9 2e c0 76 53 54  |0....vINX....vST|
000026a0  58 20 24 34 31 30 31 00  b1 2e ca 76 49 4e 58 00  |X $4101....vINX.|
000026b0  bf 2e d4 76 53 54 58 20  24 34 31 30 32 00 cf 2e  |...vSTX $4102...|
000026c0  de 76 4a 53 52 20 41 44  44 49 54 49 91 00 dd 2e  |.vJSR ADDITI....|
000026d0  e8 76 4c 44 41 20 24 34  30 39 31 00 ea 2e f2 76  |.vLDA $4091....v|
000026e0  43 4d 50 20 23 24 30 34  00 f7 2e fc 76 42 43 43  |CMP #$04....vBCC|
000026f0  20 46 41 49 4c 00 04 2f  06 77 43 4d 50 20 23 24  | FAIL../.wCMP #$|
00002700  35 30 00 11 2f 10 77 42  43 53 20 46 41 49 4c 00  |50../.wBCS FAIL.|
00002710  29 2f 1a 77 53 55 43 50  41 53 53 20 4a 4d 50 20  |)/.wSUCPASS JMP |
00002720  53 55 43 43 45 53 53 00  3d 2f 24 77 46 41 49 4c  |SUCCESS.=/$wFAIL|
00002730  20 49 4e 43 20 43 4f 4c  4f 55 52 00 4c 2f 29 77  | INC COLOUR.L/)w|
00002740  4c 44 41 20 43 4f 4c 4f  55 52 00 5b 2f 2e 77 43  |LDA COLOUR.[/.wC|
00002750  4d 50 20 4d 41 58 43 4f  4c 00 6b 2f 38 77 42 45  |MP MAXCOL.k/8wBE|
00002760  51 20 53 55 43 50 41 53  53 00 7c 2f 42 77 4a 53  |Q SUCPASS.|/BwJS|
00002770  52 20 53 55 42 54 52 41  43 54 00 89 2f 4c 77 4c  |R SUBTRACT../LwL|
00002780  44 41 20 23 24 31 32 00  97 2f 56 77 53 54 41 20  |DA #$12../VwSTA |
00002790  24 34 31 30 30 00 a4 2f  60 77 4c 44 41 20 23 24  |$4100../`wLDA #$|
000027a0  30 35 00 b2 2f 6a 77 53  54 41 20 24 34 31 30 31  |05../jwSTA $4101|
000027b0  00 bf 2f 74 77 4c 44 41  20 23 24 31 33 00 cd 2f  |../twLDA #$13../|
000027c0  7e 77 53 54 41 20 24 34  31 30 32 00 dd 2f 88 77  |~wSTA $4102../.w|
000027d0  4a 53 52 20 41 44 44 49  54 49 91 00 ea 2f 92 77  |JSR ADDITI.../.w|
000027e0  4c 44 41 20 23 24 30 37  00 f8 2f 9c 77 53 54 41  |LDA #$07../.wSTA|
000027f0  20 24 34 31 30 30 00 05  30 a6 77 4c 44 41 20 23  | $4100..0.wLDA #|
00002800  24 30 38 00 13 30 b0 77  53 54 41 20 24 34 31 30  |$08..0.wSTA $410|
00002810  31 00 21 30 ba 77 49 4e  43 20 24 34 31 30 32 00  |1.!0.wINC $4102.|
00002820  32 30 c4 77 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |20.wJSR MULTIPLY|
00002830  00 3f 30 ce 77 4c 44 41  20 23 24 31 34 00 4d 30  |.?0.wLDA #$14.M0|
00002840  d8 77 53 54 41 20 24 34  31 30 30 00 5a 30 e2 77  |.wSTA $4100.Z0.w|
00002850  4c 44 41 20 23 24 31 43  00 68 30 ec 77 53 54 41  |LDA #$1C.h0.wSTA|
00002860  20 24 34 31 30 31 00 75  30 f6 77 4c 44 41 20 23  | $4101.u0.wLDA #|
00002870  24 31 35 00 83 30 00 78  53 54 41 20 24 34 31 30  |$15..0.xSTA $410|
00002880  32 00 94 30 0a 78 4a 53  52 20 4d 55 4c 54 49 50  |2..0.xJSR MULTIP|
00002890  4c 59 00 a1 30 14 78 4c  44 41 20 23 24 31 35 00  |LY..0.xLDA #$15.|
000028a0  af 30 1e 78 53 54 41 20  24 34 31 30 30 00 bc 30  |.0.xSTA $4100..0|
000028b0  28 78 4c 44 41 20 23 24  30 36 00 ca 30 32 78 53  |(xLDA #$06..02xS|
000028c0  54 41 20 24 34 31 30 31  00 d7 30 3c 78 4c 44 41  |TA $4101..0<xLDA|
000028d0  20 23 24 31 36 00 e5 30  46 78 53 54 41 20 24 34  | #$16..0FxSTA $4|
000028e0  31 30 32 00 f5 30 50 78  4a 53 52 20 41 44 44 49  |102..0PxJSR ADDI|
000028f0  54 49 91 00 02 31 5a 78  4c 44 41 20 23 24 31 33  |TI...1ZxLDA #$13|
00002900  00 10 31 64 78 53 54 41  20 24 34 31 30 30 00 1d  |..1dxSTA $4100..|
00002910  31 6e 78 4c 44 41 20 23  24 30 37 00 2b 31 78 78  |1nxLDA #$07.+1xx|
00002920  53 54 41 20 24 34 31 30  32 00 39 31 82 78 4a 53  |STA $4102.91.xJS|
00002930  52 20 45 51 55 41 4c 00  46 31 8c 78 4c 44 41 20  |R EQUAL.F1.xLDA |
00002940  23 24 31 36 00 54 31 96  78 53 54 41 20 24 34 31  |#$16.T1.xSTA $41|
00002950  30 30 00 61 31 a0 78 4c  44 41 20 23 24 30 38 00  |00.a1.xLDA #$08.|
00002960  6f 31 aa 78 53 54 41 20  24 34 31 30 32 00 7d 31  |o1.xSTA $4102.}1|
00002970  b4 78 4a 53 52 20 45 51  55 41 4c 00 8a 31 be 78  |.xJSR EQUAL..1.x|
00002980  4a 4d 50 20 4c 4f 4f 50  00 9f 31 c8 78 53 55 43  |JMP LOOP..1.xSUC|
00002990  43 45 53 53 20 4a 53 52  20 50 4c 4f 54 00 ac 31  |CESS JSR PLOT..1|
000029a0  d2 78 4c 44 41 20 23 24  30 35 00 ba 31 dc 78 53  |.xLDA #$05..1.xS|
000029b0  54 41 20 24 34 31 30 30  00 c8 31 e6 78 53 54 41  |TA $4100..1.xSTA|
000029c0  20 24 34 31 30 32 00 d5  31 f0 78 4c 44 41 20 23  | $4102..1.xLDA #|
000029d0  24 30 32 00 e3 31 fa 78  53 54 41 20 24 34 31 30  |$02..1.xSTA $410|
000029e0  31 00 f3 31 04 79 4a 53  52 20 41 44 44 49 54 49  |1..1.yJSR ADDITI|
000029f0  91 00 02 32 0e 79 4c 44  41 20 58 50 49 58 45 4c  |...2.yLDA XPIXEL|
00002a00  00 11 32 18 79 42 4e 45  20 58 52 45 4c 4f 50 00  |..2.yBNE XRELOP.|
00002a10  1e 32 22 79 4c 44 41 20  23 24 30 36 00 2c 32 2c  |.2"yLDA #$06.,2,|
00002a20  79 53 54 41 20 24 34 31  30 30 00 3a 32 36 79 53  |ySTA $4100.:26yS|
00002a30  54 41 20 24 34 31 30 32  00 47 32 40 79 4c 44 41  |TA $4102.G2@yLDA|
00002a40  20 23 24 30 34 00 55 32  4a 79 53 54 41 20 24 34  | #$04.U2JySTA $4|
00002a50  31 30 31 00 65 32 54 79  4a 53 52 20 41 44 44 49  |101.e2TyJSR ADDI|
00002a60  54 49 91 00 74 32 5e 79  49 4e 43 20 59 50 49 58  |TI..t2^yINC YPIX|
00002a70  45 4c 00 83 32 68 79 4c  44 41 20 59 50 49 58 45  |EL..2hyLDA YPIXE|
00002a80  4c 00 90 32 72 79 43 4d  50 20 23 24 43 38 00 9f  |L..2ryCMP #$C8..|
00002a90  32 7c 79 42 4e 45 20 59  52 45 4c 4f 50 00 a7 32  |2|yBNE YRELOP..2|
00002aa0  81 79 43 4c 49 00 af 32  86 79 52 54 53 00 c6 32  |.yCLI..2.yRTS..2|
00002ab0  90 79 58 52 45 4c 4f 50  20 4a 4d 50 20 4d 4d 41  |.yXRELOP JMP MMA|
00002ac0  49 4e 4c 42 00 dc 32 9a  79 59 52 45 4c 4f 50 20  |INLB..2.yYRELOP |
00002ad0  4a 4d 50 20 4d 4d 41 49  4e 4c 00 f0 32 e0 79 4d  |JMP MMAINL..2.yM|
00002ae0  af 50 4c 4f 54 20 4a 53  52 20 4d af 4c 45 00 ff  |.PLOT JSR M.LE..|
00002af0  32 ea 79 4a 4d 50 20 9a  52 4f 4c 4f 50 00 25 33  |2.yJMP .ROLOP.%3|
00002b00  b8 88 3b 20 20 20 20 20  20 20 20 20 20 20 20 20  |..;             |
00002b10  20 20 20 20 43 4f 4c 4f  55 52 20 52 4f 55 54 49  |    COLOUR ROUTI|
00002b20  4e 45 53 00 38 33 c2 88  e8 43 4f 4c 53 20 4c 44  |NES.83...COLS LD|
00002b30  41 20 43 4f 4c 30 00 46  33 cc 88 53 54 41 20 24  |A COL0.F3..STA $|
00002b40  44 30 32 31 00 53 33 d6  88 4c 44 59 20 23 24 30  |D021.S3..LDY #$0|
00002b50  30 00 5f 33 e0 88 53 54  59 20 24 46 42 00 6c 33  |0._3..STY $FB.l3|
00002b60  ea 88 4c 44 41 20 23 24  44 38 00 78 33 f4 88 53  |..LDA #$D8.x3..S|
00002b70  54 41 20 24 46 43 00 85  33 fe 88 4c 44 41 20 43  |TA $FC..3..LDA C|
00002b80  4f 4c 33 00 9c 33 08 89  e8 43 4c 4f 50 41 20 53  |OL3..3...CLOPA S|
00002b90  54 41 20 28 24 46 42 29  2c 59 00 a4 33 12 89 49  |TA ($FB),Y..3..I|
00002ba0  4e 59 00 b3 33 1c 89 42  4e 45 20 e8 43 4c 4f 50  |NY..3..BNE .CLOP|
00002bb0  41 00 bf 33 26 89 49 4e  43 20 24 46 43 00 cb 33  |A..3&.INC $FC..3|
00002bc0  30 89 4c 44 58 20 24 46  43 00 d8 33 3a 89 43 50  |0.LDX $FC..3:.CP|
00002bd0  58 20 23 24 44 43 00 e7  33 44 89 42 4e 45 20 e8  |X #$DC..3D.BNE .|
00002be0  43 4c 4f 50 41 00 f4 33  4e 89 4c 44 41 20 23 24  |CLOPA..3N.LDA #$|
00002bf0  30 34 00 00 34 58 89 53  54 41 20 24 46 43 00 0d  |04..4X.STA $FC..|
00002c00  34 62 89 4c 44 41 20 43  4f 4c 31 00 17 34 6c 89  |4b.LDA COL1..4l.|
00002c10  41 53 4c 20 41 00 21 34  76 89 41 53 4c 20 41 00  |ASL A.!4v.ASL A.|
00002c20  2b 34 80 89 41 53 4c 20  41 00 35 34 8a 89 41 53  |+4..ASL A.54..AS|
00002c30  4c 20 41 00 41 34 94 89  b0 41 20 43 4f 4c 32 00  |L A.A4...A COL2.|
00002c40  58 34 9e 89 e8 43 4c 4f  50 42 20 53 54 41 20 28  |X4...CLOPB STA (|
00002c50  24 46 42 29 2c 59 00 60  34 a8 89 49 4e 59 00 6f  |$FB),Y.`4..INY.o|
00002c60  34 b2 89 42 45 51 20 e8  43 4c 4f 50 43 00 7c 34  |4..BEQ .CLOPC.|4|
00002c70  bc 89 43 50 59 20 23 24  46 38 00 8b 34 c6 89 42  |..CPY #$F8..4..B|
00002c80  4e 45 20 e8 43 4c 4f 50  42 00 97 34 d0 89 4c 44  |NE .CLOPB..4..LD|
00002c90  58 20 24 46 43 00 a4 34  da 89 43 50 58 20 23 24  |X $FC..4..CPX #$|
00002ca0  30 37 00 b3 34 e4 89 42  4e 45 20 e8 43 4c 4f 50  |07..4..BNE .CLOP|
00002cb0  42 00 bb 34 ee 89 52 54  53 00 ce 34 f8 89 e8 43  |B..4..RTS..4...C|
00002cc0  4c 4f 50 43 20 49 4e 43  20 24 46 43 00 dd 34 02  |LOPC INC $FC..4.|
00002cd0  8a 4a 4d 50 20 e8 43 4c  4f 50 42 00 f1 34 0c 8a  |.JMP .CLOPB..4..|
00002ce0  43 4f 4c 43 92 20 4c 44  41 20 d5 54 49 4d 45 00  |COLC. LDA .TIME.|
00002cf0  f9 34 16 8a 43 4c 43 00  07 35 20 8a 41 44 43 20  |.4..CLC..5 .ADC |
00002d00  53 50 45 45 44 00 15 35  2a 8a 53 54 41 20 d5 54  |SPEED..5*.STA .T|
00002d10  49 4d 45 00 29 35 34 8a  43 4f 4c 43 4c 4f 50 20  |IME.)54.COLCLOP |
00002d20  43 4d 50 20 24 41 32 00  39 35 3e 8a 42 4e 45 20  |CMP $A2.95>.BNE |
00002d30  43 4f 4c 43 4c 4f 50 00  41 35 48 8a 52 54 53 00  |COLCLOP.A5H.RTS.|
00002d40  54 35 52 8a 43 4f 4c 43  dc 53 20 4c 44 41 20 24  |T5R.COLC.S LDA $|
00002d50  43 35 00 61 35 5c 8a 43  4d 50 20 23 24 32 38 00  |C5.a5\.CMP #$28.|
00002d60  6e 35 66 8a 42 45 51 20  53 50 55 50 00 7b 35 70  |n5f.BEQ SPUP.{5p|
00002d70  8a 43 4d 50 20 23 24 32  42 00 88 35 7a 8a 42 45  |.CMP #$2B..5z.BE|
00002d80  51 20 53 4c 44 4e 00 95  35 84 8a 43 4d 50 20 23  |Q SLDN..5..CMP #|
00002d90  24 30 31 00 a5 35 8e 8a  42 45 51 20 43 4f 4c 43  |$01..5..BEQ COLC|
00002da0  4f 46 46 00 b1 35 98 8a  4e 4f dc 20 52 54 53 00  |OFF..5..NO. RTS.|
00002db0  c1 35 a2 8a 43 4f 4c 43  4f 46 46 20 50 4c 41 00  |.5..COLCOFF PLA.|
00002dc0  c9 35 ac 8a 50 4c 41 00  da 35 b6 8a 4a 4d 50 20  |.5..PLA..5..JMP |
00002dd0  43 4f 4d 45 42 41 43 4b  00 ed 35 c0 8a 53 50 55  |COMEBACK..5..SPU|
00002de0  50 20 4c 44 41 20 53 50  45 45 44 00 fa 35 c5 8a  |P LDA SPEED..5..|
00002df0  43 4d 50 20 23 24 30 33  00 06 36 ca 8a 42 45 51  |CMP #$03..6..BEQ|
00002e00  20 4e 4f dc 00 14 36 d4  8a 44 45 43 20 53 50 45  | NO...6..DEC SPE|
00002e10  45 44 00 1c 36 de 8a 52  54 53 00 2f 36 e8 8a 53  |ED..6..RTS./6..S|
00002e20  4c 44 4e 20 4c 44 41 20  53 50 45 45 44 00 3c 36  |LDN LDA SPEED.<6|
00002e30  f2 8a 43 4d 50 20 23 24  31 39 00 48 36 fc 8a 42  |..CMP #$19.H6..B|
00002e40  45 51 20 4e 4f dc 00 56  36 06 8b 49 4e 43 20 53  |EQ NO..V6..INC S|
00002e50  50 45 45 44 00 5e 36 10  8b 52 54 53 00 74 36 1a  |PEED.^6..RTS.t6.|
00002e60  8b 43 4f 4c 43 59 43 4c  45 20 4c 44 41 20 23 24  |.COLCYCLE LDA #$|
00002e70  30 41 00 82 36 24 8b 53  54 41 20 53 50 45 45 44  |0A..6$.STA SPEED|
00002e80  00 8e 36 2e 8b 4c 44 41  20 24 41 32 00 9c 36 38  |..6..LDA $A2..68|
00002e90  8b 53 54 41 20 d5 54 49  4d 45 00 b4 36 42 8b 43  |.STA .TIME..6B.C|
00002ea0  4f 4c 43 59 43 4c 4f 50  20 4c 44 41 20 43 4f 4c  |OLCYCLOP LDA COL|
00002eb0  30 53 00 c1 36 4c 8b 53  54 41 20 43 4f 4c 30 00  |0S..6L.STA COL0.|
00002ec0  cf 36 56 8b 4c 44 41 20  43 4f 4c 31 53 00 dc 36  |.6V.LDA COL1S..6|
00002ed0  60 8b 53 54 41 20 43 4f  4c 31 00 ea 36 6a 8b 4c  |`.STA COL1..6j.L|
00002ee0  44 41 20 43 4f 4c 32 53  00 f7 36 74 8b 53 54 41  |DA COL2S..6t.STA|
00002ef0  20 43 4f 4c 32 00 05 37  7e 8b 4c 44 41 20 43 4f  | COL2..7~.LDA CO|
00002f00  4c 33 53 00 12 37 88 8b  53 54 41 20 43 4f 4c 33  |L3S..7..STA COL3|
00002f10  00 20 37 92 8b 4a 53 52  20 e8 43 4f 4c 53 00 2f  |. 7..JSR .COLS./|
00002f20  37 9c 8b 4a 53 52 20 43  4f 4c 43 dc 53 00 3d 37  |7..JSR COLC.S.=7|
00002f30  a6 8b 4a 53 52 20 43 4f  4c 43 92 00 4b 37 b0 8b  |..JSR COLC..K7..|
00002f40  4c 44 41 20 43 4f 4c 33  53 00 58 37 ba 8b 53 54  |LDA COL3S.X7..ST|
00002f50  41 20 43 4f 4c 30 00 66  37 c4 8b 4c 44 41 20 43  |A COL0.f7..LDA C|
00002f60  4f 4c 30 53 00 73 37 ce  8b 53 54 41 20 43 4f 4c  |OL0S.s7..STA COL|
00002f70  31 00 81 37 d8 8b 4c 44  41 20 43 4f 4c 31 53 00  |1..7..LDA COL1S.|
00002f80  8e 37 e2 8b 53 54 41 20  43 4f 4c 32 00 9c 37 ec  |.7..STA COL2..7.|
00002f90  8b 4c 44 41 20 43 4f 4c  32 53 00 a9 37 f6 8b 53  |.LDA COL2S..7..S|
00002fa0  54 41 20 43 4f 4c 33 00  b7 37 00 8c 4a 53 52 20  |TA COL3..7..JSR |
00002fb0  e8 43 4f 4c 53 00 c6 37  0a 8c 4a 53 52 20 43 4f  |.COLS..7..JSR CO|
00002fc0  4c 43 dc 53 00 d4 37 14  8c 4a 53 52 20 43 4f 4c  |LC.S..7..JSR COL|
00002fd0  43 92 00 e2 37 1e 8c 4c  44 41 20 43 4f 4c 32 53  |C...7..LDA COL2S|
00002fe0  00 ef 37 28 8c 53 54 41  20 43 4f 4c 30 00 fd 37  |..7(.STA COL0..7|
00002ff0  32 8c 4c 44 41 20 43 4f  4c 33 53 00 0a 38 3c 8c  |2.LDA COL3S..8<.|
00003000  53 54 41 20 43 4f 4c 31  00 18 38 46 8c 4c 44 41  |STA COL1..8F.LDA|
00003010  20 43 4f 4c 30 53 00 25  38 50 8c 53 54 41 20 43  | COL0S.%8P.STA C|
00003020  4f 4c 32 00 33 38 5a 8c  4c 44 41 20 43 4f 4c 31  |OL2.38Z.LDA COL1|
00003030  53 00 40 38 64 8c 53 54  41 20 43 4f 4c 33 00 4e  |S.@8d.STA COL3.N|
00003040  38 6e 8c 4a 53 52 20 e8  43 4f 4c 53 00 5d 38 78  |8n.JSR .COLS.]8x|
00003050  8c 4a 53 52 20 43 4f 4c  43 dc 53 00 6b 38 82 8c  |.JSR COLC.S.k8..|
00003060  4a 53 52 20 43 4f 4c 43  92 00 79 38 8c 8c 4c 44  |JSR COLC..y8..LD|
00003070  41 20 43 4f 4c 31 53 00  86 38 96 8c 53 54 41 20  |A COL1S..8..STA |
00003080  43 4f 4c 30 00 94 38 a0  8c 4c 44 41 20 43 4f 4c  |COL0..8..LDA COL|
00003090  32 53 00 a1 38 aa 8c 53  54 41 20 43 4f 4c 31 00  |2S..8..STA COL1.|
000030a0  af 38 b4 8c 4c 44 41 20  43 4f 4c 33 53 00 bc 38  |.8..LDA COL3S..8|
000030b0  be 8c 53 54 41 20 43 4f  4c 32 00 ca 38 c8 8c 4c  |..STA COL2..8..L|
000030c0  44 41 20 43 4f 4c 30 53  00 d7 38 d2 8c 53 54 41  |DA COL0S..8..STA|
000030d0  20 43 4f 4c 33 00 e5 38  dc 8c 4a 53 52 20 e8 43  | COL3..8..JSR .C|
000030e0  4f 4c 53 00 f4 38 e6 8c  4a 53 52 20 43 4f 4c 43  |OLS..8..JSR COLC|
000030f0  dc 53 00 02 39 f0 8c 4a  53 52 20 43 4f 4c 43 92  |.S..9..JSR COLC.|
00003100  00 14 39 fa 8c 4a 4d 50  20 43 4f 4c 43 59 43 4c  |..9..JMP COLCYCL|
00003110  4f 50 00 3a 39 40 9c 3b  20 20 20 20 20 20 20 20  |OP.:9@.;        |
00003120  20 20 20 20 20 41 52 49  54 48 4d 45 54 49 43 20  |     ARITHMETIC |
00003130  52 4f 55 54 49 4e 45 53  00 49 39 4a 9c a1 44 49  |ROUTINES.I9J..DI|
00003140  47 49 54 20 43 4c 44 00  53 39 54 9c 41 53 4c 20  |GIT CLD.S9T.ASL |
00003150  41 00 5d 39 5e 9c 41 53  4c 20 41 00 67 39 68 9c  |A.]9^.ASL A.g9h.|
00003160  41 53 4c 20 41 00 73 39  72 9c 53 54 41 20 24 30  |ASL A.s9r.STA $0|
00003170  32 00 7b 39 7c 9c 54 58  41 00 85 39 86 9c 4c 53  |2.{9|.TXA..9..LS|
00003180  52 20 41 00 91 39 90 9c  53 54 41 20 24 32 34 00  |R A..9..STA $24.|
00003190  9e 39 9a 9c 4c 44 41 20  23 24 30 37 00 a6 39 a4  |.9..LDA #$07..9.|
000031a0  9c 53 45 43 00 b2 39 ae  9c 53 42 43 20 24 32 34  |.SEC..9..SBC $24|
000031b0  00 ba 39 b8 9c 43 4c 43  00 c6 39 c2 9c 41 44 43  |..9..CLC..9..ADC|
000031c0  20 24 30 32 00 ce 39 cc  9c 54 41 59 00 de 39 d6  | $02..9..TAY..9.|
000031d0  9c 4c 44 41 20 24 34 30  30 30 2c 59 00 e6 39 e0  |.LDA $4000,Y..9.|
000031e0  9c 54 41 59 00 ee 39 ea  9c 54 58 41 00 f9 39 f4  |.TAY..9..TXA..9.|
000031f0  9c af 20 23 24 30 31 00  07 3a fe 9c 42 45 51 20  |.. #$01..:..BEQ |
00003200  4c 53 4e 47 44 00 0f 3a  08 9d 54 59 41 00 1a 3a  |LSNGD..:..TYA..:|
00003210  12 9d af 20 23 24 46 30  00 24 3a 1c 9d 4c 53 52  |... #$F0.$:..LSR|
00003220  20 41 00 2e 3a 26 9d 4c  53 52 20 41 00 38 3a 30  | A..:&.LSR A.8:0|
00003230  9d 4c 53 52 20 41 00 42  3a 3a 9d 4c 53 52 20 41  |.LSR A.B::.LSR A|
00003240  00 4a 3a 44 9d 52 54 53  00 58 3a 4e 9d 4c 53 4e  |.J:D.RTS.X:N.LSN|
00003250  47 44 20 54 59 41 00 63  3a 58 9d af 20 23 24 30  |GD TYA.c:X.. #$0|
00003260  46 00 6b 3a 62 9d 52 54  53 00 86 3a 6c 9d 4d 55  |F.k:b.RTS..:l.MU|
00003270  4c 54 49 50 4c 59 42 20  4a 53 52 20 4e 45 47 41  |LTIPLYB JSR NEGA|
00003280  54 49 56 45 00 94 3a 71  9d 4c 44 41 20 24 34 31  |TIVE..:q.LDA $41|
00003290  30 32 00 9e 3a 76 9d 41  53 4c 20 41 00 a8 3a 80  |02..:v.ASL A..:.|
000032a0  9d 41 53 4c 20 41 00 b2  3a 8a 9d 41 53 4c 20 41  |.ASL A..:..ASL A|
000032b0  00 ba 3a 94 9d 54 41 58  00 c7 3a 9e 9d 4c 44 41  |..:..TAX..:..LDA|
000032c0  20 23 24 30 30 00 cf 3a  a8 9d 54 41 59 00 e5 3a  | #$00..:..TAY..:|
000032d0  b2 9d 4d 4c 4f 50 41 20  53 54 41 20 24 34 30 30  |..MLOPA STA $400|
000032e0  30 2c 58 00 ed 3a bc 9d  49 4e 59 00 f5 3a c6 9d  |0,X..:..INY..:..|
000032f0  49 4e 58 00 02 3b d0 9d  43 50 59 20 23 24 30 38  |INX..;..CPY #$08|
00003300  00 10 3b da 9d 42 4e 45  20 4d 4c 4f 50 41 00 1d  |..;..BNE MLOPA..|
00003310  3b e4 9d 4c 44 41 20 23  24 30 36 00 29 3b ee 9d  |;..LDA #$06.);..|
00003320  53 54 41 20 24 46 43 00  3e 3b f8 9d a2 44 49 47  |STA $FC.>;...DIG|
00003330  49 54 20 4c 44 41 20 24  34 31 30 31 00 4a 3b 02  |IT LDA $4101.J;.|
00003340  9e 4c 44 58 20 24 46 43  00 59 3b 0c 9e 4a 53 52  |.LDX $FC.Y;..JSR|
00003350  20 a1 44 49 47 49 54 00  66 3b 16 9e 43 4d 50 20  | .DIGIT.f;..CMP |
00003360  23 24 30 30 00 75 3b 20  9e 42 45 51 20 44 4d 4f  |#$00.u; .BEQ DMO|
00003370  56 45 52 00 81 3b 2a 9e  53 54 41 20 24 46 44 00  |VER..;*.STA $FD.|
00003380  8e 3b 34 9e 4c 44 41 20  23 24 30 36 00 9a 3b 3e  |.;4.LDA #$06..;>|
00003390  9e 53 54 41 20 24 46 42  00 ae 3b 48 9e 44 4d 4c  |.STA $FB..;H.DML|
000033a0  4f 50 20 4c 44 41 20 24  34 31 30 30 00 ba 3b 52  |OP LDA $4100..;R|
000033b0  9e 4c 44 58 20 24 46 42  00 c9 3b 5c 9e 4a 53 52  |.LDX $FB..;\.JSR|
000033c0  20 a1 44 49 47 49 54 00  d6 3b 66 9e 43 4d 50 20  | .DIGIT..;f.CMP |
000033d0  23 24 30 30 00 e5 3b 70  9e 42 45 51 20 44 4d 4f  |#$00..;p.BEQ DMO|
000033e0  56 45 52 00 f1 3b 7a 9e  53 54 41 20 24 46 45 00  |VER..;z.STA $FE.|
000033f0  fd 3b 84 9e 4c 44 41 20  24 46 42 00 05 3c 8e 9e  |.;..LDA $FB..<..|
00003400  43 4c 43 00 11 3c 98 9e  41 44 43 20 24 46 43 00  |CLC..<..ADC $FC.|
00003410  19 3c a2 9e 53 45 43 00  26 3c ac 9e 53 42 43 20  |.<..SEC.&<..SBC |
00003420  23 24 30 43 00 32 3c b6  9e 4c 44 58 20 24 46 44  |#$0C.2<..LDX $FD|
00003430  00 3a 3c c0 9e 54 41 59  00 45 3c ca 9e af 20 23  |.:<..TAY.E<... #|
00003440  24 30 31 00 53 3c d4 9e  42 45 51 20 4d 53 4b 49  |$01.S<..BEQ MSKI|
00003450  50 00 5b 3c de 9e 54 58  41 00 65 3c e8 9e 41 53  |P.[<..TXA.e<..AS|
00003460  4c 20 41 00 6f 3c f2 9e  41 53 4c 20 41 00 79 3c  |L A.o<..ASL A.y<|
00003470  fc 9e 41 53 4c 20 41 00  83 3c 06 9f 41 53 4c 20  |..ASL A..<..ASL |
00003480  41 00 8b 3c 10 9f 54 41  58 00 99 3c 1a 9f 4d 53  |A..<..TAX..<..MS|
00003490  4b 49 50 20 54 59 41 00  a3 3c 24 9f 4c 53 52 20  |KIP TYA..<$.LSR |
000034a0  41 00 af 3c 2e 9f 53 54  41 20 24 30 32 00 bc 3c  |A..<..STA $02..<|
000034b0  38 9f 4c 44 41 20 23 24  30 37 00 c4 3c 42 9f 53  |8.LDA #$07..<B.S|
000034c0  45 43 00 d0 3c 4c 9f 53  42 43 20 24 30 32 00 dc  |EC..<L.SBC $02..|
000034d0  3c 56 9f 53 54 41 20 24  30 32 00 ea 3c 60 9f 4c  |<V.STA $02..<`.L|
000034e0  44 41 20 24 34 31 30 32  00 f4 3c 6a 9f 41 53 4c  |DA $4102..<j.ASL|
000034f0  20 41 00 fe 3c 74 9f 41  53 4c 20 41 00 08 3d 7e  | A..<t.ASL A..=~|
00003500  9f 41 53 4c 20 41 00 14  3d 88 9f 41 44 43 20 24  |.ASL A..=..ADC $|
00003510  30 32 00 20 3d 8d 9f 53  54 41 20 24 32 35 00 28  |02. =..STA $25.(|
00003520  3d 92 9f 54 41 59 00 34  3d 9c 9f 53 54 58 20 24  |=..TAY.4=..STX $|
00003530  32 34 00 45 3d a6 9f 44  4d 4c 42 20 4c 44 58 20  |24.E=..DMLB LDX |
00003540  24 30 32 00 4d 3d b0 9f  53 45 44 00 5d 3d ba 9f  |$02.M=..SED.]=..|
00003550  4c 44 41 20 24 34 30 30  30 2c 59 00 65 3d c4 9f  |LDA $4000,Y.e=..|
00003560  43 4c 43 00 71 3d ce 9f  41 44 43 20 24 32 34 00  |CLC.q=..ADC $24.|
00003570  81 3d d8 9f 53 54 41 20  24 34 30 30 30 2c 59 00  |.=..STA $4000,Y.|
00003580  8e 3d e2 9f 4d 41 4c 50  20 43 4c 44 00 9d 3d ec  |.=..MALP CLD..=.|
00003590  9f 42 43 43 20 4d 41 51  55 49 54 00 a5 3d f6 9f  |.BCC MAQUIT..=..|
000035a0  44 45 59 00 ad 3d 00 a0  44 45 58 00 ba 3d 0a a0  |DEY..=..DEX..=..|
000035b0  43 50 58 20 23 24 46 46  00 c9 3d 14 a0 42 45 51  |CPX #$FF..=..BEQ|
000035c0  20 4d 41 51 55 49 54 00  d1 3d 1e a0 53 45 44 00  | MAQUIT..=..SED.|
000035d0  e1 3d 28 a0 4c 44 41 20  24 34 30 30 30 2c 59 00  |.=(.LDA $4000,Y.|
000035e0  e9 3d 32 a0 43 4c 43 00  f6 3d 3c a0 41 44 43 20  |.=2.CLC..=<.ADC |
000035f0  23 24 30 31 00 06 3e 46  a0 53 54 41 20 24 34 30  |#$01..>F.STA $40|
00003600  30 30 2c 59 00 13 3e 50  a0 4a 4d 50 20 4d 41 4c  |00,Y..>P.JMP MAL|
00003610  50 00 26 3e 5a a0 44 4d  4f 56 45 52 20 49 4e 43  |P.&>Z.DMOVER INC|
00003620  20 24 46 42 00 32 3e 64  a0 4c 44 41 20 24 46 42  | $FB.2>d.LDA $FB|
00003630  00 3f 3e 6e a0 43 4d 50  20 23 24 30 45 00 4d 3e  |.?>n.CMP #$0E.M>|
00003640  78 a0 42 43 43 20 44 4d  4c 4f 50 00 59 3e 82 a0  |x.BCC DMLOP.Y>..|
00003650  49 4e 43 20 24 46 43 00  65 3e 8c a0 4c 44 41 20  |INC $FC.e>..LDA |
00003660  24 46 43 00 72 3e 96 a0  43 4d 50 20 23 24 30 45  |$FC.r>..CMP #$0E|
00003670  00 81 3e a0 a0 42 43 43  20 a2 44 49 47 49 54 00  |..>..BCC .DIGIT.|
00003680  8e 3e aa a0 4c 44 41 20  59 50 49 42 00 9b 3e b4  |.>..LDA YPIB..>.|
00003690  a0 42 45 51 20 51 55 49  54 00 a9 3e be a0 4c 44  |.BEQ QUIT..>..LD|
000036a0  41 20 24 34 31 30 32 00  b7 3e c8 a0 53 54 41 20  |A $4102..>..STA |
000036b0  24 34 31 30 31 00 c4 3e  d2 a0 4c 44 41 20 23 24  |$4101..>..LDA #$|
000036c0  31 44 00 d2 3e dc a0 53  54 41 20 24 34 31 30 30  |1D..>..STA $4100|
000036d0  00 e3 3e e6 a0 4a 53 52  20 53 55 42 54 52 41 43  |..>..JSR SUBTRAC|
000036e0  54 00 f0 3e f0 a0 51 55  49 54 20 52 54 53 00 03  |T..>..QUIT RTS..|
000036f0  3f fa a0 4d 41 51 55 49  54 20 4c 44 58 20 24 46  |?..MAQUIT LDX $F|
00003700  45 00 0b 3f 04 a1 44 45  58 00 1a 3f 07 a1 42 45  |E..?..DEX..?..BE|
00003710  51 20 44 4d 4f 56 45 52  00 26 3f 0a a1 53 54 58  |Q DMOVER.&?..STX|
00003720  20 24 46 45 00 32 3f 0e  a1 4c 44 59 20 24 32 35  | $FE.2?..LDY $25|
00003730  00 3f 3f 18 a1 4a 4d 50  20 44 4d 4c 42 00 52 3f  |.??..JMP DMLB.R?|
00003740  22 a1 4d 53 55 50 20 4c  44 41 20 24 34 31 30 30  |".MSUP LDA $4100|
00003750  00 5c 3f 2c a1 41 53 4c  20 41 00 66 3f 36 a1 41  |.\?,.ASL A.f?6.A|
00003760  53 4c 20 41 00 70 3f 40  a1 41 53 4c 20 41 00 78  |SL A.p?@.ASL A.x|
00003770  3f 4a a1 54 41 58 00 80  3f 54 a1 44 45 58 00 8c  |?J.TAX..?T.DEX..|
00003780  3f 5e a1 53 54 58 20 24  46 42 00 9a 3f 68 a1 4c  |?^.STX $FB..?h.L|
00003790  44 41 20 24 34 31 30 31  00 a4 3f 72 a1 41 53 4c  |DA $4101..?r.ASL|
000037a0  20 41 00 ae 3f 7c a1 41  53 4c 20 41 00 b8 3f 86  | A..?|.ASL A..?.|
000037b0  a1 41 53 4c 20 41 00 c0  3f 90 a1 54 41 58 00 c8  |.ASL A..?..TAX..|
000037c0  3f 9a a1 44 45 58 00 d4  3f a4 a1 53 54 58 20 24  |?..DEX..?..STX $|
000037d0  46 44 00 e2 3f ae a1 4c  44 41 20 24 34 31 30 32  |FD..?..LDA $4102|
000037e0  00 ec 3f b8 a1 41 53 4c  20 41 00 f6 3f c2 a1 41  |..?..ASL A..?..A|
000037f0  53 4c 20 41 00 00 40 cc  a1 41 53 4c 20 41 00 08  |SL A..@..ASL A..|
00003800  40 d6 a1 54 41 58 00 10  40 e0 a1 44 45 58 00 1c  |@..TAX..@..DEX..|
00003810  40 ea a1 53 54 58 20 24  32 32 00 29 40 f4 a1 4c  |@..STX $22.)@..L|
00003820  44 41 20 23 24 34 30 00  35 40 fe a1 53 54 41 20  |DA #$40.5@..STA |
00003830  24 46 43 00 41 40 08 a2  53 54 41 20 24 46 45 00  |$FC.A@..STA $FE.|
00003840  4d 40 12 a2 53 54 41 20  24 32 33 00 55 40 1c a2  |M@..STA $23.U@..|
00003850  52 54 53 00 68 40 26 a2  45 51 55 41 4c 20 4a 53  |RTS.h@&.EQUAL JS|
00003860  52 20 4d 53 55 50 00 75  40 30 a2 4c 44 59 20 23  |R MSUP.u@0.LDY #|
00003870  24 30 38 00 8a 40 3a a2  45 4c 4f 50 20 4c 44 41  |$08..@:.ELOP LDA|
00003880  20 28 24 46 42 29 2c 59  00 9a 40 44 a2 53 54 41  | ($FB),Y..@D.STA|
00003890  20 28 24 32 32 29 2c 59  00 a2 40 4e a2 44 45 59  | ($22),Y..@N.DEY|
000038a0  00 af 40 58 a2 42 4e 45  20 45 4c 4f 50 00 b7 40  |..@X.BNE ELOP..@|
000038b0  62 a2 52 54 53 00 cc 40  6c a2 41 44 44 49 54 49  |b.RTS..@l.ADDITI|
000038c0  91 20 4a 53 52 20 4d 53  55 50 00 d9 40 76 a2 4c  |. JSR MSUP..@v.L|
000038d0  44 59 20 23 24 30 38 00  e1 40 80 a2 53 45 44 00  |DY #$08..@..SED.|
000038e0  e9 40 8a a2 43 4c 43 00  ff 40 94 a2 41 44 4c 4f  |.@..CLC..@..ADLO|
000038f0  50 20 4c 44 41 20 28 24  46 42 29 2c 59 00 0f 41  |P LDA ($FB),Y..A|
00003900  9e a2 41 44 43 20 28 24  46 44 29 2c 59 00 1f 41  |..ADC ($FD),Y..A|
00003910  a8 a2 53 54 41 20 28 24  32 32 29 2c 59 00 27 41  |..STA ($22),Y.'A|
00003920  b2 a2 44 45 59 00 35 41  bc a2 42 4e 45 20 41 44  |..DEY.5A..BNE AD|
00003930  4c 4f 50 00 3d 41 c6 a2  43 4c 44 00 45 41 d0 a2  |LOP.=A..CLD.EA..|
00003940  52 54 53 00 5b 41 da a2  53 55 42 54 52 41 43 54  |RTS.[A..SUBTRACT|
00003950  20 4a 53 52 20 4d 53 55  50 00 68 41 e4 a2 4c 44  | JSR MSUP.hA..LD|
00003960  59 20 23 24 30 38 00 70  41 ee a2 53 45 44 00 78  |Y #$08.pA..SED.x|
00003970  41 f8 a2 53 45 43 00 8e  41 02 a3 53 55 4c 4f 50  |A..SEC..A..SULOP|
00003980  20 4c 44 41 20 28 24 46  42 29 2c 59 00 9e 41 0c  | LDA ($FB),Y..A.|
00003990  a3 53 42 43 20 28 24 46  44 29 2c 59 00 ae 41 16  |.SBC ($FD),Y..A.|
000039a0  a3 53 54 41 20 28 24 32  32 29 2c 59 00 b6 41 20  |.STA ($22),Y..A |
000039b0  a3 44 45 59 00 c4 41 2a  a3 42 4e 45 20 53 55 4c  |.DEY..A*.BNE SUL|
000039c0  4f 50 00 cc 41 34 a3 43  4c 44 00 d4 41 3e a3 52  |OP..A4.CLD..A>.R|
000039d0  54 53 00 ea 41 48 a3 4e  45 47 41 54 49 56 45 20  |TS..AH.NEGATIVE |
000039e0  4c 44 41 20 23 24 30 30  00 f2 41 52 a3 50 48 41  |LDA #$00..AR.PHA|
000039f0  00 00 42 5c a3 4c 44 41  20 24 34 31 30 30 00 08  |..B\.LDA $4100..|
00003a00  42 66 a3 54 41 59 00 12  42 70 a3 41 53 4c 20 41  |Bf.TAY..Bp.ASL A|
00003a10  00 1c 42 7a a3 41 53 4c  20 41 00 26 42 84 a3 41  |..Bz.ASL A.&B..A|
00003a20  53 4c 20 41 00 2e 42 8e  a3 54 41 58 00 3e 42 98  |SL A..B..TAX.>B.|
00003a30  a3 4c 44 41 20 24 34 30  30 31 2c 58 00 4b 42 a2  |.LDA $4001,X.KB.|
00003a40  a3 43 4d 50 20 23 24 35  30 00 5e 42 a7 a3 42 43  |.CMP #$50.^B..BC|
00003a50  43 20 4e 45 47 52 4d 4f  56 45 41 42 00 66 42 ac  |C NEGRMOVEAB.fB.|
00003a60  a3 50 4c 41 00 73 42 b6  a3 41 44 43 20 23 24 30  |.PLA.sB..ADC #$0|
00003a70  30 00 7b 42 c0 a3 50 48  41 00 8d 42 ca a3 4a 4d  |0.{B..PHA..B..JM|
00003a80  50 20 4e 45 47 52 4d 4f  56 45 41 00 a6 42 d4 a3  |P NEGRMOVEA..B..|
00003a90  4e 45 47 52 4d 4f 56 45  41 42 20 4c 44 41 20 24  |NEGRMOVEAB LDA $|
00003aa0  34 31 30 31 00 ae 42 de  a3 54 41 59 00 b8 42 e8  |4101..B..TAY..B.|
00003ab0  a3 41 53 4c 20 41 00 c2  42 f2 a3 41 53 4c 20 41  |.ASL A..B..ASL A|
00003ac0  00 cc 42 fc a3 41 53 4c  20 41 00 d4 42 06 a4 54  |..B..ASL A..B..T|
00003ad0  41 58 00 e4 42 10 a4 4c  44 41 20 24 34 30 30 31  |AX..B..LDA $4001|
00003ae0  2c 58 00 f1 42 1a a4 43  4d 50 20 23 24 35 30 00  |,X..B..CMP #$50.|
00003af0  f9 42 24 a4 50 4c 41 00  06 43 2e a4 42 43 43 20  |.B$.PLA..C..BCC |
00003b00  4e 4f 45 b0 00 12 43 38  a4 45 b0 20 23 24 30 31  |NOE...C8.E. #$01|
00003b10  00 1a 43 42 a4 50 48 41  00 2c 43 4c a4 42 43 53  |..CB.PHA.,CL.BCS|
00003b20  20 4e 45 47 52 4d 4f 56  45 42 00 3f 43 56 a4 4e  | NEGRMOVEB.?CV.N|
00003b30  45 47 52 4d 4f 56 45 42  42 20 50 4c 41 00 51 43  |EGRMOVEBB PLA.QC|
00003b40  60 a4 4e 4f 45 b0 20 53  54 41 20 59 50 49 42 00  |`.NOE. STA YPIB.|
00003b50  59 43 6a a4 52 54 53 00  70 43 74 a4 4e 45 47 52  |YCj.RTS.pCt.NEGR|
00003b60  4d 4f 56 45 20 4c 44 41  20 24 34 31 30 30 00 78  |MOVE LDA $4100.x|
00003b70  43 7e a4 50 48 41 00 86  43 88 a4 4c 44 41 20 24  |C~.PHA..C..LDA $|
00003b80  34 31 30 31 00 8e 43 92  a4 50 48 41 00 9c 43 9c  |4101..C..PHA..C.|
00003b90  a4 4c 44 41 20 24 34 31  30 32 00 a4 43 a6 a4 50  |.LDA $4102..C..P|
00003ba0  48 41 00 ac 43 b0 a4 54  59 41 00 ba 43 ba a4 53  |HA..C..TYA..C..S|
00003bb0  54 41 20 24 34 31 30 31  00 c8 43 c4 a4 53 54 41  |TA $4101..C..STA|
00003bc0  20 24 34 31 30 32 00 d5  43 ce a4 4c 44 41 20 23  | $4102..C..LDA #|
00003bd0  24 31 44 00 e3 43 d8 a4  53 54 41 20 24 34 31 30  |$1D..C..STA $410|
00003be0  30 00 f4 43 e2 a4 4a 53  52 20 53 55 42 54 52 41  |0..C..JSR SUBTRA|
00003bf0  43 54 00 fc 43 ec a4 50  4c 41 00 0a 44 f6 a4 53  |CT..C..PLA..D..S|
00003c00  54 41 20 24 34 31 30 32  00 12 44 00 a5 50 4c 41  |TA $4102..D..PLA|
00003c10  00 20 44 0a a5 53 54 41  20 24 34 31 30 31 00 28  |. D..STA $4101.(|
00003c20  44 14 a5 50 4c 41 00 36  44 1e a5 53 54 41 20 24  |D..PLA.6D..STA $|
00003c30  34 31 30 30 00 3e 44 28  a5 52 54 53 00 59 44 32  |4100.>D(.RTS.YD2|
00003c40  a5 4e 45 47 52 4d 4f 56  45 41 20 4a 53 52 20 4e  |.NEGRMOVEA JSR N|
00003c50  45 47 52 4d 4f 56 45 00  6c 44 3c a5 4a 4d 50 20  |EGRMOVE.lD<.JMP |
00003c60  4e 45 47 52 4d 4f 56 45  41 42 00 87 44 46 a5 4e  |NEGRMOVEAB..DF.N|
00003c70  45 47 52 4d 4f 56 45 42  20 4a 53 52 20 4e 45 47  |EGRMOVEB JSR NEG|
00003c80  52 4d 4f 56 45 00 9a 44  50 a5 4a 4d 50 20 4e 45  |RMOVE..DP.JMP NE|
00003c90  47 52 4d 4f 56 45 42 42  00 b1 44 5a a5 4d 55 4c  |GRMOVEBB..DZ.MUL|
00003ca0  54 49 50 4c 59 20 4c 44  41 20 24 34 31 30 32 00  |TIPLY LDA $4102.|
00003cb0  b9 44 64 a5 50 48 41 00  c7 44 6e a5 4c 44 41 20  |.Dd.PHA..Dn.LDA |
00003cc0  24 34 31 30 31 00 cf 44  78 a5 50 48 41 00 dc 44  |$4101..Dx.PHA..D|
00003cd0  82 a5 4c 44 41 20 23 24  31 38 00 ea 44 8c a5 53  |..LDA #$18..D..S|
00003ce0  54 41 20 24 34 31 30 32  00 f8 44 96 a5 4a 53 52  |TA $4102..D..JSR|
00003cf0  20 45 51 55 41 4c 00 06  45 a0 a5 49 4e 43 20 24  | EQUAL..E..INC $|
00003d00  34 31 30 32 00 0e 45 aa  a5 50 4c 41 00 1c 45 b4  |4102..E..PLA..E.|
00003d10  a5 53 54 41 20 24 34 31  30 30 00 2a 45 be a5 4a  |.STA $4100.*E..J|
00003d20  53 52 20 45 51 55 41 4c  00 37 45 c8 a5 4c 44 41  |SR EQUAL.7E..LDA|
00003d30  20 23 24 31 38 00 45 45  d2 a5 53 54 41 20 24 34  | #$18.EE..STA $4|
00003d40  31 30 30 00 52 45 dc a5  4c 44 41 20 23 24 31 39  |100.RE..LDA #$19|
00003d50  00 60 45 e6 a5 53 54 41  20 24 34 31 30 31 00 68  |.`E..STA $4101.h|
00003d60  45 f0 a5 50 4c 41 00 76  45 fa a5 53 54 41 20 24  |E..PLA.vE..STA $|
00003d70  34 31 30 32 00 88 45 04  a6 4a 4d 50 20 4d 55 4c  |4102..E..JMP MUL|
00003d80  54 49 50 4c 59 42 00 ac  45 50 c3 3b 20 20 20 20  |TIPLYB..EP.;    |
00003d90  20 20 20 20 20 20 20 47  52 41 50 48 49 43 20 50  |       GRAPHIC P|
00003da0  4f b5 20 50 4c 4f 54 54  45 52 00 c0 45 5a c3 50  |O. PLOTTER..EZ.P|
00003db0  4c 4f 54 50 43 20 4c 44  41 20 23 24 34 37 00 cc  |LOTPC LDA #$47..|
00003dc0  45 64 c3 53 54 41 20 24  46 42 00 d9 45 6e c3 4c  |Ed.STA $FB..En.L|
00003dd0  44 41 20 23 24 33 46 00  e5 45 78 c3 53 54 41 20  |DA #$3F..Ex.STA |
00003de0  24 46 43 00 f4 45 82 c3  4c 44 41 20 59 50 49 58  |$FC..E..LDA YPIX|
00003df0  45 4c 00 fe 45 8c c3 4c  53 52 20 41 00 08 46 96  |EL..E..LSR A..F.|
00003e00  c3 4c 53 52 20 41 00 12  46 a0 c3 4c 53 52 20 41  |.LSR A..F..LSR A|
00003e10  00 1f 46 aa c3 53 54 41  20 59 50 49 42 00 2a 46  |..F..STA YPIB.*F|
00003e20  b4 c3 af 20 23 24 30 33  00 34 46 be c3 41 53 4c  |... #$03.4F..ASL|
00003e30  20 41 00 3e 46 c8 c3 41  53 4c 20 41 00 48 46 d2  | A.>F..ASL A.HF.|
00003e40  c3 41 53 4c 20 41 00 52  46 dc c3 41 53 4c 20 41  |.ASL A.RF..ASL A|
00003e50  00 5c 46 e6 c3 41 53 4c  20 41 00 66 46 f0 c3 41  |.\F..ASL A.fF..A|
00003e60  53 4c 20 41 00 72 46 fa  c3 53 54 41 20 24 30 32  |SL A.rF..STA $02|
00003e70  00 7e 46 04 c4 4c 44 41  20 24 46 42 00 86 46 0e  |.~F..LDA $FB..F.|
00003e80  c4 53 45 43 00 92 46 18  c4 53 42 43 20 24 30 32  |.SEC..F..SBC $02|
00003e90  00 9e 46 22 c4 53 54 41  20 24 46 42 00 aa 46 2c  |..F".STA $FB..F,|
00003ea0  c4 4c 44 41 20 24 46 43  00 b7 46 36 c4 53 42 43  |.LDA $FC..F6.SBC|
00003eb0  20 23 24 30 30 00 c4 46  3b c4 53 42 43 20 59 50  | #$00..F;.SBC YP|
00003ec0  49 42 00 cc 46 40 c4 50  48 41 00 d9 46 4a c4 4c  |IB..F@.PHA..FJ.L|
00003ed0  44 41 20 59 50 49 42 00  e3 46 54 c4 4c 53 52 20  |DA YPIB..FT.LSR |
00003ee0  41 00 ed 46 5e c4 4c 53  52 20 41 00 f9 46 68 c4  |A..F^.LSR A..Fh.|
00003ef0  53 54 41 20 24 30 32 00  01 47 72 c4 50 4c 41 00  |STA $02..Gr.PLA.|
00003f00  09 47 7c c4 53 45 43 00  15 47 86 c4 53 42 43 20  |.G|.SEC..G..SBC |
00003f10  24 30 32 00 21 47 90 c4  53 54 41 20 24 46 43 00  |$02.!G..STA $FC.|
00003f20  30 47 9a c4 4c 44 41 20  59 50 49 58 45 4c 00 3b  |0G..LDA YPIXEL.;|
00003f30  47 a4 c4 af 20 23 24 30  37 00 48 47 ae c4 53 54  |G... #$07.HG..ST|
00003f40  41 20 59 50 49 42 00 54  47 b8 c4 4c 44 41 20 24  |A YPIB.TG..LDA $|
00003f50  46 42 00 5c 47 c2 c4 53  45 43 00 69 47 cc c4 53  |FB.\G..SEC.iG..S|
00003f60  42 43 20 59 50 49 42 00  71 47 d6 c4 50 48 41 00  |BC YPIB.qG..PHA.|
00003f70  80 47 e0 c4 4c 44 41 20  58 50 49 58 45 4c 00 8b  |.G..LDA XPIXEL..|
00003f80  47 ea c4 af 20 23 24 46  38 00 98 47 f4 c4 53 54  |G... #$F8..G..ST|
00003f90  41 20 59 50 49 42 00 a0  47 fe c4 50 4c 41 00 a8  |A YPIB..G..PLA..|
00003fa0  47 08 c5 43 4c 43 00 b5  47 12 c5 41 44 43 20 59  |G..CLC..G..ADC Y|
00003fb0  50 49 42 00 c1 47 1c c5  53 54 41 20 24 46 42 00  |PIB..G..STA $FB.|
00003fc0  cd 47 26 c5 4c 44 41 20  24 46 43 00 da 47 30 c5  |.G&.LDA $FC..G0.|
00003fd0  53 42 43 20 23 24 30 30  00 e6 47 3a c5 53 54 41  |SBC #$00..G:.STA|
00003fe0  20 24 46 43 00 f5 47 44  c5 4c 44 41 20 58 50 49  | $FC..GD.LDA XPI|
00003ff0  58 45 4c 00 00 48 4e c5  af 20 23 24 30 37 00 08  |XEL..HN.. #$07..|
00004000  48 58 c5 54 41 58 00 15  48 62 c5 4c 44 41 20 23  |HX.TAX..Hb.LDA #|
00004010  24 38 30 00 29 48 6c c5  47 42 49 54 4c 50 20 43  |$80.)Hl.GBITLP C|
00004020  50 58 20 23 24 30 30 00  35 48 76 c5 42 45 51 20  |PX #$00.5Hv.BEQ |
00004030  50 50 9a 00 3f 48 80 c5  4c 53 52 20 41 00 47 48  |PP..?H..LSR A.GH|
00004040  8a c5 44 45 58 00 56 48  94 c5 4a 4d 50 20 47 42  |..DEX.VH..JMP GB|
00004050  49 54 4c 50 00 66 48 9e  c5 50 50 9a 20 53 54 41  |ITLP.fH..PP. STA|
00004060  20 24 46 44 00 6e 48 a8  c5 52 54 53 00 83 48 b2  | $FD.nH..RTS..H.|
00004070  c5 50 4c 4f a4 4e 20 4a  53 52 20 50 4c 4f 54 50  |.PLO.N JSR PLOTP|
00004080  43 00 90 48 bc c5 4c 44  59 20 23 24 30 30 00 a0  |C..H..LDY #$00..|
00004090  48 c6 c5 4c 44 41 20 28  24 46 42 29 2c 59 00 ab  |H..LDA ($FB),Y..|
000040a0  48 d0 c5 b0 41 20 24 46  44 00 bb 48 da c5 53 54  |H...A $FD..H..ST|
000040b0  41 20 28 24 46 42 29 2c  59 00 c3 48 e4 c5 52 54  |A ($FB),Y..H..RT|
000040c0  53 00 d9 48 ee c5 50 4c  4f a4 46 46 20 4a 53 52  |S..H..PLO.FF JSR|
000040d0  20 50 4c 4f 54 50 43 00  e5 48 f8 c5 4c 44 41 20  | PLOTPC..H..LDA |
000040e0  24 46 44 00 f1 48 02 c6  45 b0 20 23 24 46 46 00  |$FD..H..E. #$FF.|
000040f0  fd 48 0c c6 53 54 41 20  24 46 44 00 0a 49 16 c6  |.H..STA $FD..I..|
00004100  4c 44 59 20 23 24 30 30  00 1a 49 20 c6 4c 44 41  |LDY #$00..I .LDA|
00004110  20 28 24 46 42 29 2c 59  00 24 49 2a c6 af 20 24  | ($FB),Y.$I*.. $|
00004120  46 44 00 34 49 34 c6 53  54 41 20 28 24 46 42 29  |FD.4I4.STA ($FB)|
00004130  2c 59 00 3c 49 3e c6 52  54 53 00 50 49 48 c6 50  |,Y.<I>.RTS.PIH.P|
00004140  4c 4f 54 20 4c 44 41 20  43 4f 4c 4f 55 52 00 5b  |LOT LDA COLOUR.[|
00004150  49 52 c6 af 20 23 24 30  32 00 68 49 5c c6 42 4e  |IR.. #$02.hI\.BN|
00004160  45 20 50 50 41 91 00 77  49 66 c6 4a 53 52 20 50  |E PPA..wIf.JSR P|
00004170  4c 4f a4 46 46 00 86 49  70 c6 4a 4d 50 20 50 50  |LO.FF..Ip.JMP PP|
00004180  41 43 4e 54 00 99 49 7a  c6 50 50 41 91 20 4a 53  |ACNT..Iz.PPA. JS|
00004190  52 20 50 4c 4f a4 4e 00  af 49 84 c6 50 50 41 43  |R PLO.N..I..PPAC|
000041a0  4e 54 20 49 4e 43 20 58  50 49 58 45 4c 00 be 49  |NT INC XPIXEL..I|
000041b0  8e c6 4c 44 41 20 43 4f  4c 4f 55 52 00 c9 49 98  |..LDA COLOUR..I.|
000041c0  c6 af 20 23 24 30 31 00  d6 49 a2 c6 42 4e 45 20  |.. #$01..I..BNE |
000041d0  50 50 42 91 00 e5 49 ac  c6 4a 53 52 20 50 4c 4f  |PPB...I..JSR PLO|
000041e0  a4 46 46 00 f4 49 b6 c6  4a 4d 50 20 50 50 42 43  |.FF..I..JMP PPBC|
000041f0  4e 54 00 07 4a c0 c6 50  50 42 91 20 4a 53 52 20  |NT..J..PPB. JSR |
00004200  50 4c 4f a4 4e 00 1d 4a  ca c6 50 50 42 43 4e 54  |PLO.N..J..PPBCNT|
00004210  20 49 4e 43 20 58 50 49  58 45 4c 00 25 4a d4 c6  | INC XPIXEL.%J..|
00004220  52 54 53 00 4a 4a d8 d6  3b 20 20 20 20 20 20 20  |RTS.JJ..;       |
00004230  5a 4f 4f 4d 20 43 41 4c  43 55 4c 41 54 49 91 20  |ZOOM CALCULATI. |
00004240  52 4f 55 54 49 4e 45 53  00 60 4a e2 d6 4e 4f 5a  |ROUTINES.`J..NOZ|
00004250  4f 4f 4d 20 4a 4d 50 20  9a 52 4f 4c 4f 50 00 75  |OOM JMP .ROLOP.u|
00004260  4a ec d6 5a 4f 4f 4d 49  4e 20 4c 44 41 20 24 44  |J..ZOOMIN LDA $D|
00004270  30 31 35 00 80 4a f6 d6  af 20 23 24 46 30 00 8d  |015..J... #$F0..|
00004280  4a 00 d7 43 4d 50 20 23  24 46 30 00 9c 4a 0a d7  |J..CMP #$F0..J..|
00004290  42 4e 45 20 4e 4f 5a 4f  4f 4d 00 a9 4a 14 d7 4c  |BNE NOZOOM..J..L|
000042a0  44 41 20 23 24 31 45 00  b7 4a 1e d7 53 54 41 20  |DA #$1E..J..STA |
000042b0  24 34 31 30 30 00 c4 4a  28 d7 4c 44 41 20 23 24  |$4100..J(.LDA #$|
000042c0  30 31 00 d2 4a 32 d7 53  54 41 20 24 34 31 30 31  |01..J2.STA $4101|
000042d0  00 df 4a 3c d7 4c 44 41  20 23 24 31 30 00 ed 4a  |..J<.LDA #$10..J|
000042e0  46 d7 53 54 41 20 24 34  31 30 32 00 fe 4a 50 d7  |F.STA $4102..JP.|
000042f0  4a 53 52 20 53 55 42 54  52 41 43 54 00 0b 4b 5a  |JSR SUBTRACT..KZ|
00004300  d7 4c 44 41 20 23 24 30  31 00 19 4b 64 d7 53 54  |.LDA #$01..Kd.ST|
00004310  41 20 24 34 31 30 30 00  27 4b 6e d7 49 4e 43 20  |A $4100.'Kn.INC |
00004320  24 34 31 30 32 00 35 4b  78 d7 4a 53 52 20 45 51  |$4102.5Kx.JSR EQ|
00004330  55 41 4c 00 42 4b 82 d7  4c 44 41 20 23 24 31 30  |UAL.BK..LDA #$10|
00004340  00 50 4b 8c d7 53 54 41  20 24 34 31 30 30 00 5d  |.PK..STA $4100.]|
00004350  4b 96 d7 4c 44 41 20 23  24 31 42 00 6b 4b a0 d7  |K..LDA #$1B.kK..|
00004360  53 54 41 20 24 34 31 30  31 00 78 4b aa d7 4c 44  |STA $4101.xK..LD|
00004370  41 20 23 24 31 32 00 86  4b b4 d7 53 54 41 20 24  |A #$12..K..STA $|
00004380  34 31 30 32 00 97 4b be  d7 4a 53 52 20 4d 55 4c  |4102..K..JSR MUL|
00004390  54 49 50 4c 59 00 a4 4b  c8 d7 4c 44 41 20 23 24  |TIPLY..K..LDA #$|
000043a0  31 31 00 b2 4b d2 d7 53  54 41 20 24 34 31 30 30  |11..K..STA $4100|
000043b0  00 c0 4b dc d7 53 54 41  20 24 34 31 30 32 00 cd  |..K..STA $4102..|
000043c0  4b e6 d7 4c 44 41 20 23  24 31 32 00 db 4b f0 d7  |K..LDA #$12..K..|
000043d0  53 54 41 20 24 34 31 30  31 00 e9 4b fa d7 4c 44  |STA $4101..K..LD|
000043e0  41 20 24 44 30 30 38 00  f1 4b 04 d8 53 45 43 00  |A $D008..K..SEC.|
000043f0  fe 4b 0e d8 53 42 43 20  23 24 35 38 00 16 4c 18  |.K..SBC #$58..L.|
00004400  d8 43 41 4c 43 49 4e 4c  4f 50 41 20 43 4d 50 20  |.CALCINLOPA CMP |
00004410  23 24 30 30 00 26 4c 22  d8 42 45 51 20 43 41 4c  |#$00.&L".BEQ CAL|
00004420  43 80 49 41 00 2e 4c 2c  d8 50 48 41 00 3e 4c 36  |C.IA..L,.PHA.>L6|
00004430  d8 4a 53 52 20 41 44 44  49 54 49 91 00 46 4c 40  |.JSR ADDITI..FL@|
00004440  d8 50 4c 41 00 4e 4c 4a  d8 54 41 58 00 56 4c 54  |.PLA.NLJ.TAX.VLT|
00004450  d8 44 45 58 00 5e 4c 5e  d8 54 58 41 00 71 4c 68  |.DEX.^L^.TXA.qLh|
00004460  d8 4a 4d 50 20 43 41 4c  43 49 4e 4c 4f 50 41 00  |.JMP CALCINLOPA.|
00004470  86 4c 72 d8 43 41 4c 43  80 49 41 20 4c 44 41 20  |.Lr.CALC.IA LDA |
00004480  23 24 30 31 00 94 4c 7c  d8 53 54 41 20 24 34 31  |#$01..L|.STA $41|
00004490  30 30 00 a1 4c 86 d8 4c  44 41 20 23 24 31 33 00  |00..L..LDA #$13.|
000044a0  af 4c 90 d8 53 54 41 20  24 34 31 30 32 00 bd 4c  |.L..STA $4102..L|
000044b0  9a d8 4a 53 52 20 45 51  55 41 4c 00 ca 4c a4 d8  |..JSR EQUAL..L..|
000044c0  4c 44 41 20 23 24 31 33  00 d8 4c ae d8 53 54 41  |LDA #$13..L..STA|
000044d0  20 24 34 31 30 30 00 e6  4c b8 d8 53 54 41 20 24  | $4100..L..STA $|
000044e0  34 31 30 32 00 f3 4c c2  d8 4c 44 41 20 23 24 31  |4102..L..LDA #$1|
000044f0  32 00 01 4d cc d8 53 54  41 20 24 34 31 30 31 00  |2..M..STA $4101.|
00004500  0f 4d d6 d8 4c 44 41 20  24 44 30 30 41 00 17 4d  |.M..LDA $D00A..M|
00004510  e0 d8 53 45 43 00 24 4d  ea d8 53 42 43 20 23 24  |..SEC.$M..SBC #$|
00004520  34 30 00 3c 4d f4 d8 43  41 4c 43 49 4e 4c 4f 50  |40.<M..CALCINLOP|
00004530  42 20 43 4d 50 20 23 24  30 30 00 4c 4d fe d8 42  |B CMP #$00.LM..B|
00004540  45 51 20 43 41 4c 43 80  49 42 00 54 4d 08 d9 50  |EQ CALC.IB.TM..P|
00004550  48 41 00 64 4d 12 d9 4a  53 52 20 41 44 44 49 54  |HA.dM..JSR ADDIT|
00004560  49 91 00 6c 4d 1c d9 50  4c 41 00 74 4d 26 d9 54  |I..lM..PLA.tM&.T|
00004570  41 58 00 7c 4d 30 d9 44  45 58 00 84 4d 3a d9 54  |AX.|M0.DEX..M:.T|
00004580  58 41 00 97 4d 44 d9 4a  4d 50 20 43 41 4c 43 49  |XA..MD.JMP CALCI|
00004590  4e 4c 4f 50 42 00 ac 4d  4e d9 43 41 4c 43 80 49  |NLOPB..MN.CALC.I|
000045a0  42 20 4c 44 41 20 23 24  31 31 00 ba 4d 58 d9 53  |B LDA #$11..MX.S|
000045b0  54 41 20 24 34 31 30 30  00 c7 4d 62 d9 4c 44 41  |TA $4100..Mb.LDA|
000045c0  20 23 24 30 31 00 d5 4d  6c d9 53 54 41 20 24 34  | #$01..Ml.STA $4|
000045d0  31 30 32 00 e3 4d 76 d9  4a 53 52 20 45 51 55 41  |102..Mv.JSR EQUA|
000045e0  4c 00 f0 4d 80 d9 4c 44  41 20 23 24 31 33 00 fe  |L..M..LDA #$13..|
000045f0  4d 8a d9 53 54 41 20 24  34 31 30 30 00 0b 4e 94  |M..STA $4100..N.|
00004600  d9 4c 44 41 20 23 24 31  45 00 19 4e 9e d9 53 54  |.LDA #$1E..N..ST|
00004610  41 20 24 34 31 30 32 00  27 4e a8 d9 4a 53 52 20  |A $4102.'N..JSR |
00004620  45 51 55 41 4c 00 34 4e  b2 d9 4c 44 41 20 23 24  |EQUAL.4N..LDA #$|
00004630  31 46 00 42 4e bc d9 53  54 41 20 24 34 31 30 30  |1F.BN..STA $4100|
00004640  00 4f 4e c6 d9 4c 44 41  20 23 24 30 33 00 5d 4e  |.ON..LDA #$03.]N|
00004650  d0 d9 53 54 41 20 24 34  31 30 31 00 6a 4e da d9  |..STA $4101.jN..|
00004660  4c 44 41 20 23 24 31 30  00 78 4e e4 d9 53 54 41  |LDA #$10.xN..STA|
00004670  20 24 34 31 30 32 00 89  4e ee d9 4a 53 52 20 53  | $4102..N..JSR S|
00004680  55 42 54 52 41 43 54 00  96 4e f8 d9 4c 44 41 20  |UBTRACT..N..LDA |
00004690  23 24 30 33 00 a4 4e 02  da 53 54 41 20 24 34 31  |#$03..N..STA $41|
000046a0  30 30 00 b2 4e 0c da 49  4e 43 20 24 34 31 30 32  |00..N..INC $4102|
000046b0  00 c0 4e 16 da 4a 53 52  20 45 51 55 41 4c 00 cd  |..N..JSR EQUAL..|
000046c0  4e 20 da 4c 44 41 20 23  24 31 30 00 db 4e 2a da  |N .LDA #$10..N*.|
000046d0  53 54 41 20 24 34 31 30  30 00 e8 4e 34 da 4c 44  |STA $4100..N4.LD|
000046e0  41 20 23 24 31 32 00 f6  4e 3e da 53 54 41 20 24  |A #$12..N>.STA $|
000046f0  34 31 30 32 00 03 4f 48  da 4c 44 41 20 23 24 31  |4102..OH.LDA #$1|
00004700  41 00 11 4f 52 da 53 54  41 20 24 34 31 30 31 00  |A..OR.STA $4101.|
00004710  22 4f 5c da 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |"O\.JSR MULTIPLY|
00004720  00 2f 4f 66 da 4c 44 41  20 23 24 31 31 00 3d 4f  |./Of.LDA #$11.=O|
00004730  70 da 53 54 41 20 24 34  31 30 30 00 4b 4f 7a da  |p.STA $4100.KOz.|
00004740  53 54 41 20 24 34 31 30  32 00 58 4f 84 da 4c 44  |STA $4102.XO..LD|
00004750  41 20 23 24 31 32 00 66  4f 8e da 53 54 41 20 24  |A #$12.fO..STA $|
00004760  34 31 30 31 00 73 4f 98  da 4c 44 41 20 23 24 45  |4101.sO..LDA #$E|
00004770  35 00 7b 4f a2 da 53 45  43 00 89 4f ac da 53 42  |5.{O..SEC..O..SB|
00004780  43 20 24 44 30 30 44 00  9f 4f b6 da 43 41 4c 43  |C $D00D..O..CALC|
00004790  49 4e 59 41 20 43 4d 50  20 23 24 30 30 00 af 4f  |INYA CMP #$00..O|
000047a0  c0 da 42 45 51 20 43 41  4c 43 80 49 43 00 b7 4f  |..BEQ CALC.IC..O|
000047b0  ca da 50 48 41 00 c7 4f  d4 da 4a 53 52 20 41 44  |..PHA..O..JSR AD|
000047c0  44 49 54 49 91 00 cf 4f  de da 50 4c 41 00 d7 4f  |DITI...O..PLA..O|
000047d0  e8 da 54 41 58 00 df 4f  f2 da 44 45 58 00 e7 4f  |..TAX..O..DEX..O|
000047e0  fc da 54 58 41 00 f8 4f  06 db 4a 4d 50 20 43 41  |..TXA..O..JMP CA|
000047f0  4c 43 49 4e 59 41 00 0d  50 10 db 43 41 4c 43 80  |LCINYA..P..CALC.|
00004800  49 43 20 4c 44 41 20 23  24 30 33 00 1b 50 1a db  |IC LDA #$03..P..|
00004810  53 54 41 20 24 34 31 30  30 00 28 50 24 db 4c 44  |STA $4100.(P$.LD|
00004820  41 20 23 24 31 33 00 36  50 2e db 53 54 41 20 24  |A #$13.6P..STA $|
00004830  34 31 30 32 00 44 50 38  db 4a 53 52 20 45 51 55  |4102.DP8.JSR EQU|
00004840  41 4c 00 51 50 42 db 4c  44 41 20 23 24 31 33 00  |AL.QPB.LDA #$13.|
00004850  5f 50 4c db 53 54 41 20  24 34 31 30 30 00 6d 50  |_PL.STA $4100.mP|
00004860  56 db 53 54 41 20 24 34  31 30 32 00 7a 50 60 db  |V.STA $4102.zP`.|
00004870  4c 44 41 20 23 24 31 32  00 88 50 6a db 53 54 41  |LDA #$12..Pj.STA|
00004880  20 24 34 31 30 31 00 95  50 74 db 4c 44 41 20 23  | $4101..Pt.LDA #|
00004890  24 46 41 00 9d 50 7e db  53 45 43 00 ab 50 88 db  |$FA..P~.SEC..P..|
000048a0  53 42 43 20 24 44 30 30  39 00 c1 50 92 db 43 41  |SBC $D009..P..CA|
000048b0  4c 43 49 4e 59 42 20 43  4d 50 20 23 24 30 30 00  |LCINYB CMP #$00.|
000048c0  d1 50 9c db 42 45 51 20  43 41 4c 43 80 49 44 00  |.P..BEQ CALC.ID.|
000048d0  d9 50 a6 db 50 48 41 00  e9 50 b0 db 4a 53 52 20  |.P..PHA..P..JSR |
000048e0  41 44 44 49 54 49 91 00  f1 50 ba db 50 4c 41 00  |ADDITI...P..PLA.|
000048f0  f9 50 c4 db 54 41 58 00  01 51 ce db 44 45 58 00  |.P..TAX..Q..DEX.|
00004900  09 51 d8 db 54 58 41 00  1a 51 e2 db 4a 4d 50 20  |.Q..TXA..Q..JMP |
00004910  43 41 4c 43 49 4e 59 42  00 2f 51 ec db 43 41 4c  |CALCINYB./Q..CAL|
00004920  43 80 49 44 20 4c 44 41  20 23 24 31 31 00 3d 51  |C.ID LDA #$11.=Q|
00004930  f6 db 53 54 41 20 24 34  31 30 30 00 4a 51 00 dc  |..STA $4100.JQ..|
00004940  4c 44 41 20 23 24 30 33  00 58 51 0a dc 53 54 41  |LDA #$03.XQ..STA|
00004950  20 24 34 31 30 32 00 66  51 14 dc 4a 53 52 20 45  | $4102.fQ..JSR E|
00004960  51 55 41 4c 00 73 51 1e  dc 4c 44 41 20 23 24 31  |QUAL.sQ..LDA #$1|
00004970  33 00 81 51 28 dc 53 54  41 20 24 34 31 30 30 00  |3..Q(.STA $4100.|
00004980  8e 51 32 dc 4c 44 41 20  23 24 31 46 00 9c 51 3c  |.Q2.LDA #$1F..Q<|
00004990  dc 53 54 41 20 24 34 31  30 32 00 aa 51 46 dc 4a  |.STA $4102..QF.J|
000049a0  53 52 20 45 51 55 41 4c  00 b7 51 50 dc 4c 44 41  |SR EQUAL..QP.LDA|
000049b0  20 23 24 31 45 00 c5 51  5a dc 53 54 41 20 24 34  | #$1E..QZ.STA $4|
000049c0  31 30 30 00 d2 51 64 dc  4c 44 41 20 23 24 30 31  |100..Qd.LDA #$01|
000049d0  00 e0 51 6e dc 53 54 41  20 24 34 31 30 31 00 ed  |..Qn.STA $4101..|
000049e0  51 78 dc 4c 44 41 20 23  24 31 30 00 fb 51 82 dc  |Qx.LDA #$10..Q..|
000049f0  53 54 41 20 24 34 31 30  32 00 0c 52 8c dc 4a 53  |STA $4102..R..JS|
00004a00  52 20 53 55 42 54 52 41  43 54 00 19 52 96 dc 4c  |R SUBTRACT..R..L|
00004a10  44 41 20 23 24 31 30 00  27 52 a0 dc 53 54 41 20  |DA #$10.'R..STA |
00004a20  24 34 31 30 30 00 34 52  aa dc 4c 44 41 20 23 24  |$4100.4R..LDA #$|
00004a30  31 37 00 42 52 b4 dc 53  54 41 20 24 34 31 30 31  |17.BR..STA $4101|
00004a40  00 4f 52 be dc 4c 44 41  20 23 24 30 32 00 5d 52  |.OR..LDA #$02.]R|
00004a50  c8 dc 53 54 41 20 24 34  31 30 32 00 6e 52 d2 dc  |..STA $4102.nR..|
00004a60  4a 53 52 20 4d 55 4c 54  49 50 4c 59 00 7b 52 dc  |JSR MULTIPLY.{R.|
00004a70  dc 4c 44 41 20 23 24 31  46 00 89 52 e6 dc 53 54  |.LDA #$1F..R..ST|
00004a80  41 20 24 34 31 30 30 00  96 52 f0 dc 4c 44 41 20  |A $4100..R..LDA |
00004a90  23 24 30 33 00 a4 52 fa  dc 53 54 41 20 24 34 31  |#$03..R..STA $41|
00004aa0  30 31 00 b1 52 04 dd 4c  44 41 20 23 24 31 30 00  |01..R..LDA #$10.|
00004ab0  bf 52 0e dd 53 54 41 20  24 34 31 30 32 00 d0 52  |.R..STA $4102..R|
00004ac0  18 dd 4a 53 52 20 53 55  42 54 52 41 43 54 00 dd  |..JSR SUBTRACT..|
00004ad0  52 22 dd 4c 44 41 20 23  24 31 30 00 eb 52 2c dd  |R".LDA #$10..R,.|
00004ae0  53 54 41 20 24 34 31 30  30 00 f8 52 36 dd 4c 44  |STA $4100..R6.LD|
00004af0  41 20 23 24 31 41 00 06  53 40 dd 53 54 41 20 24  |A #$1A..S@.STA $|
00004b00  34 31 30 31 00 13 53 4a  dd 4c 44 41 20 23 24 30  |4101..SJ.LDA #$0|
00004b10  34 00 21 53 54 dd 53 54  41 20 24 34 31 30 32 00  |4.!ST.STA $4102.|
00004b20  32 53 5e dd 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |2S^.JSR MULTIPLY|
00004b30  00 3f 53 68 dd 4a 53 52  20 4d af 4c 45 00 4e 53  |.?Sh.JSR M.LE.NS|
00004b40  72 dd 4a 4d 50 20 9a 52  4f 4c 4f 50 00 74 53 60  |r.JMP .ROLOP.tS`|
00004b50  ea 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00004b60  20 20 20 20 20 5a 4f 4f  4d 20 52 4f 55 54 49 4e  |     ZOOM ROUTIN|
00004b70  45 53 00 83 53 6a ea 42  4f 58 20 4c 44 41 20 58  |ES..Sj.BOX LDA X|
00004b80  50 00 90 53 74 ea 53 54  41 20 58 50 49 42 00 9b  |P..St.STA XPIB..|
00004b90  53 7e ea 4c 44 41 20 59  50 00 a8 53 88 ea 53 54  |S~.LDA YP..S..ST|
00004ba0  41 20 59 50 49 42 00 b4  53 92 ea 4c 44 41 20 58  |A YPIB..S..LDA X|
00004bb0  50 42 00 c2 53 9c ea 53  54 41 20 58 50 42 49 42  |PB..S..STA XPBIB|
00004bc0  00 cf 53 a6 ea 4c 44 58  20 23 24 33 43 00 dd 53  |..S..LDX #$3C..S|
00004bd0  b0 ea 53 54 58 20 24 30  37 46 43 00 e5 53 ba ea  |..STX $07FC..S..|
00004be0  49 4e 58 00 f3 53 c4 ea  53 54 58 20 24 30 37 46  |INX..S..STX $07F|
00004bf0  44 00 fb 53 ce ea 49 4e  58 00 09 54 d8 ea 53 54  |D..S..INX..T..ST|
00004c00  58 20 24 30 37 46 45 00  11 54 e2 ea 49 4e 58 00  |X $07FE..T..INX.|
00004c10  1f 54 ec ea 53 54 58 20  24 30 37 46 46 00 2d 54  |.T..STX $07FF.-T|
00004c20  f6 ea 4c 44 41 20 24 44  30 31 35 00 39 54 00 eb  |..LDA $D015.9T..|
00004c30  b0 41 20 23 24 46 30 00  47 54 0a eb 53 54 41 20  |.A #$F0.GT..STA |
00004c40  24 44 30 31 35 00 5a 54  14 eb 42 4f 58 92 20 4c  |$D015.ZT..BOX. L|
00004c50  44 41 20 43 4c 49 43 4b  00 67 54 1e eb 42 4e 45  |DA CLICK.gT..BNE|
00004c60  20 42 4f 58 92 00 7d 54  78 eb 42 4f 58 4c 4f 4f  | BOX..}Tx.BOXLOO|
00004c70  50 20 4c 44 41 20 58 50  42 49 42 00 89 54 82 eb  |P LDA XPBIB..T..|
00004c80  43 4d 50 20 58 50 42 00  9b 54 8c eb 42 45 51 20  |CMP XPB..T..BEQ |
00004c90  43 48 45 43 4b 46 49 4e  45 00 ac 54 96 eb 42 43  |CHECKFINE..T..BC|
00004ca0  53 20 4c 45 53 53 54 48  41 4e 00 bc 54 a0 eb 4a  |S LESSTHAN..T..J|
00004cb0  4d 50 20 4d b0 45 54 48  41 4e 00 d3 54 aa eb 43  |MP M.ETHAN..T..C|
00004cc0  48 45 43 4b 46 49 4e 45  20 4c 44 41 20 58 50 49  |HECKFINE LDA XPI|
00004cd0  42 00 de 54 b4 eb 43 4d  50 20 58 50 00 ef 54 be  |B..T..CMP XP..T.|
00004ce0  eb 42 43 53 20 4c 45 53  53 54 48 41 4e 00 04 55  |.BCS LESSTHAN..U|
00004cf0  c8 eb 4d b0 45 54 48 41  4e 20 4c 44 41 20 58 50  |..M.ETHAN LDA XP|
00004d00  49 42 00 12 55 d2 eb 53  54 41 20 24 44 30 30 38  |IB..U..STA $D008|
00004d10  00 20 55 dc eb 53 54 41  20 24 44 30 30 43 00 2d  |. U..STA $D00C.-|
00004d20  55 e6 eb 4c 44 58 20 23  24 30 30 00 3b 55 f0 eb  |U..LDX #$00.;U..|
00004d30  4c 44 41 20 58 50 42 49  42 00 4c 55 fa eb 42 45  |LDA XPBIB.LU..BE|
00004d40  51 20 4e 4f 58 50 42 41  44 44 00 59 55 04 ec 4c  |Q NOXPBADD.YU..L|
00004d50  44 58 20 23 24 35 30 00  70 55 0e ec 4e 4f 58 50  |DX #$50.pU..NOXP|
00004d60  42 41 44 44 20 4c 44 41  20 24 44 30 31 30 00 7b  |BADD LDA $D010.{|
00004d70  55 18 ec af 20 23 24 41  46 00 87 55 22 ec 53 54  |U... #$AF..U".ST|
00004d80  58 20 24 30 32 00 8f 55  2c ec 43 4c 43 00 9b 55  |X $02..U,.CLC..U|
00004d90  36 ec 41 44 43 20 24 30  32 00 a9 55 40 ec 53 54  |6.ADC $02..U@.ST|
00004da0  41 20 24 44 30 31 30 00  b6 55 45 ec 4c 44 58 20  |A $D010..UE.LDX |
00004db0  23 24 30 30 00 c1 55 4a  ec 4c 44 41 20 58 50 00  |#$00..UJ.LDA XP.|
00004dc0  c9 55 54 ec 53 45 43 00  d6 55 5e ec 53 42 43 20  |.UT.SEC..U^.SBC |
00004dd0  23 24 31 38 00 e4 55 68  ec 53 54 41 20 24 44 30  |#$18..Uh.STA $D0|
00004de0  30 41 00 f2 55 72 ec 53  54 41 20 24 44 30 30 45  |0A..Ur.STA $D00E|
00004df0  00 00 56 7c ec 42 43 43  20 4d 54 53 55 42 00 0c  |..V|.BCC MTSUB..|
00004e00  56 86 ec 4c 44 58 20 58  50 42 00 1a 56 90 ec 42  |V..LDX XPB..V..B|
00004e10  45 51 20 4d 54 53 55 42  00 27 56 9a ec 4c 44 58  |EQ MTSUB.'V..LDX|
00004e20  20 23 24 41 30 00 3b 56  a4 ec 4d 54 53 55 42 20  | #$A0.;V..MTSUB |
00004e30  4c 44 41 20 24 44 30 31  30 00 46 56 ae ec af 20  |LDA $D010.FV... |
00004e40  23 24 35 46 00 52 56 b8  ec 53 54 58 20 24 30 32  |#$5F.RV..STX $02|
00004e50  00 5a 56 c2 ec 43 4c 43  00 66 56 cc ec 41 44 43  |.ZV..CLC.fV..ADC|
00004e60  20 24 30 32 00 74 56 d6  ec 53 54 41 20 24 44 30  | $02.tV..STA $D0|
00004e70  31 30 00 81 56 e0 ec 4a  4d 50 20 42 4f 58 9a 00  |10..V..JMP BOX..|
00004e80  95 56 ea ec 4c 45 53 53  54 48 41 4e 20 4c 44 41  |.V..LESSTHAN LDA|
00004e90  20 58 50 00 a1 56 f4 ec  4c 44 58 20 58 50 42 00  | XP..V..LDX XPB.|
00004ea0  ae 56 fe ec 42 4e 45 20  a8 4f 55 54 00 bb 56 08  |.V..BNE .OUT..V.|
00004eb0  ed 43 4d 50 20 23 24 35  38 00 c8 56 12 ed 42 43  |.CMP #$58..V..BC|
00004ec0  53 20 a8 4f 55 54 00 d5  56 1c ed 4c 44 41 20 23  |S .OUT..V..LDA #|
00004ed0  24 35 38 00 e8 56 26 ed  a8 4f 55 54 20 53 54 41  |$58..V&..OUT STA|
00004ee0  20 24 44 30 30 38 00 f6  56 30 ed 53 54 41 20 24  | $D008..V0.STA $|
00004ef0  44 30 30 43 00 03 57 3a  ed 43 50 58 20 23 24 30  |D00C..W:.CPX #$0|
00004f00  30 00 13 57 44 ed 42 45  51 20 4c 54 4e 4f 41 44  |0..WD.BEQ LTNOAD|
00004f10  44 00 20 57 4e ed 4c 44  58 20 23 24 35 30 00 36  |D. WN.LDX #$50.6|
00004f20  57 58 ed 4c 54 4e 4f 41  44 44 20 4c 44 41 20 24  |WX.LTNOADD LDA $|
00004f30  44 30 31 30 00 41 57 62  ed af 20 23 24 41 46 00  |D010.AWb.. #$AF.|
00004f40  4d 57 6c ed 53 54 58 20  24 30 32 00 55 57 76 ed  |MWl.STX $02.UWv.|
00004f50  43 4c 43 00 61 57 80 ed  41 44 43 20 24 30 32 00  |CLC.aW..ADC $02.|
00004f60  6f 57 8a ed 53 54 41 20  24 44 30 31 30 00 7c 57  |oW..STA $D010.|W|
00004f70  8f ed 4c 44 58 20 23 24  30 30 00 89 57 94 ed 4c  |..LDX #$00..W..L|
00004f80  44 41 20 58 50 49 42 00  91 57 9e ed 53 45 43 00  |DA XPIB..W..SEC.|
00004f90  9e 57 a8 ed 53 42 43 20  23 24 31 38 00 ac 57 b2  |.W..SBC #$18..W.|
00004fa0  ed 53 54 41 20 24 44 30  30 41 00 ba 57 bc ed 53  |.STA $D00A..W..S|
00004fb0  54 41 20 24 44 30 30 45  00 c8 57 c6 ed 42 43 43  |TA $D00E..W..BCC|
00004fc0  20 4c 54 53 55 42 00 d6  57 d0 ed 4c 44 58 20 58  | LTSUB..W..LDX X|
00004fd0  50 42 49 42 00 e4 57 da  ed 42 45 51 20 4c 54 53  |PBIB..W..BEQ LTS|
00004fe0  55 42 00 f1 57 e4 ed 4c  44 58 20 23 24 41 30 00  |UB..W..LDX #$A0.|
00004ff0  05 58 ee ed 4c 54 53 55  42 20 4c 44 41 20 24 44  |.X..LTSUB LDA $D|
00005000  30 31 30 00 10 58 f8 ed  af 20 23 24 35 46 00 1c  |010..X... #$5F..|
00005010  58 02 ee 53 54 58 20 24  30 32 00 24 58 0c ee 43  |X..STX $02.$X..C|
00005020  4c 43 00 30 58 16 ee 41  44 43 20 24 30 32 00 3e  |LC.0X..ADC $02.>|
00005030  58 20 ee 53 54 41 20 24  44 30 31 30 00 4e 58 2a  |X .STA $D010.NX*|
00005040  ee 42 4f 58 9a 20 4c 44  41 20 59 50 00 5b 58 34  |.BOX. LDA YP.[X4|
00005050  ee 43 4d 50 20 59 50 49  42 00 69 58 3e ee 42 43  |.CMP YPIB.iX>.BC|
00005060  43 20 4c 45 53 53 59 00  76 58 48 ee 4c 44 41 20  |C LESSY.vXH.LDA |
00005070  59 50 49 42 00 84 58 52  ee 53 54 41 20 24 44 30  |YPIB..XR.STA $D0|
00005080  30 39 00 92 58 5c ee 53  54 41 20 24 44 30 30 42  |09..X\.STA $D00B|
00005090  00 9d 58 66 ee 4c 44 41  20 59 50 00 a5 58 70 ee  |..Xf.LDA YP..Xp.|
000050a0  53 45 43 00 b2 58 7a ee  53 42 43 20 23 24 31 35  |SEC..Xz.SBC #$15|
000050b0  00 c0 58 84 ee 53 54 41  20 24 44 30 30 44 00 ce  |..X..STA $D00D..|
000050c0  58 8e ee 53 54 41 20 24  44 30 30 46 00 dd 58 98  |X..STA $D00F..X.|
000050d0  ee 4a 4d 50 20 42 4f 58  9a 49 49 00 ee 58 a2 ee  |.JMP BOX.II..X..|
000050e0  4c 45 53 53 59 20 4c 44  41 20 59 50 00 fc 58 ac  |LESSY LDA YP..X.|
000050f0  ee 53 54 41 20 24 44 30  30 39 00 0a 59 b6 ee 53  |.STA $D009..Y..S|
00005100  54 41 20 24 44 30 30 42  00 17 59 c0 ee 4c 44 41  |TA $D00B..Y..LDA|
00005110  20 59 50 49 42 00 1f 59  ca ee 53 45 43 00 2c 59  | YPIB..Y..SEC.,Y|
00005120  d4 ee 53 42 43 20 23 24  31 35 00 3a 59 de ee 53  |..SBC #$15.:Y..S|
00005130  54 41 20 24 44 30 30 44  00 48 59 e8 ee 53 54 41  |TA $D00D.HY..STA|
00005140  20 24 44 30 30 46 00 5d  59 f2 ee 42 4f 58 9a 49  | $D00F.]Y..BOX.I|
00005150  49 20 4c 44 41 20 43 4c  49 43 4b 00 6a 59 fc ee  |I LDA CLICK.jY..|
00005160  42 4e 45 20 42 4f 58 80  00 7a 59 06 ef 4a 4d 50  |BNE BOX..zY..JMP|
00005170  20 42 4f 58 4c 4f 4f 50  00 8e 59 10 ef 42 4f 58  | BOXLOOP..Y..BOX|
00005180  80 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 a3 59 30  |. JMP .ROLOP..Y0|
00005190  f2 42 4f 58 46 4c 41 53  48 20 4c 44 41 20 24 41  |.BOXFLASH LDA $A|
000051a0  32 00 ae 59 3a f2 af 20  23 24 33 43 00 b8 59 44  |2..Y:.. #$3C..YD|
000051b0  f2 4c 53 52 20 41 00 c2  59 4e f2 4c 53 52 20 41  |.LSR A..YN.LSR A|
000051c0  00 ca 59 58 f2 54 41 58  00 dc 59 62 f2 4c 44 41  |..YX.TAX..Yb.LDA|
000051d0  20 42 4f 58 43 4f 4c 53  2c 58 00 ea 59 6c f2 53  | BOXCOLS,X..Yl.S|
000051e0  54 41 20 24 44 30 32 42  00 f8 59 76 f2 53 54 41  |TA $D02B..Yv.STA|
000051f0  20 24 44 30 32 43 00 06  5a 80 f2 53 54 41 20 24  | $D02C..Z..STA $|
00005200  44 30 32 44 00 14 5a 8a  f2 53 54 41 20 24 44 30  |D02D..Z..STA $D0|
00005210  32 45 00 22 5a 94 f2 4a  4d 50 20 24 45 41 33 31  |2E."Z..JMP $EA31|
00005220  00 44 5a 9e f2 42 4f 58  43 4f 4c 53 20 54 58 54  |.DZ..BOXCOLS TXT|
00005230  20 30 2c 39 2c 32 2c 38  2c 31 30 2c 37 2c 31 33  | 0,9,2,8,10,7,13|
00005240  2c 31 00 5e 5a a8 f2 54  58 54 20 31 2c 31 33 2c  |,1.^Z..TXT 1,13,|
00005250  33 2c 35 2c 31 34 2c 34  2c 36 2c 30 00 73 5a 18  |3,5,14,4,6,0.sZ.|
00005260  f6 3b 20 44 45 4c 45 54  45 20 54 48 45 53 45 21  |.; DELETE THESE!|
00005270  21 00 87 5a 22 f6 43 4f  4c 53 20 4a 4d 50 20 9a  |!..Z".COLS JMP .|
00005280  52 4f 4c 4f 50 00 9c 5a  4a f6 b9 49 54 49 91 20  |ROLOP..ZJ..ITI. |
00005290  4a 4d 50 20 9a 52 4f 4c  4f 50 00 b3 5a 54 f6 5a  |JMP .ROLOP..ZT.Z|
000052a0  4f 4f 4d 4f 55 54 20 4a  4d 50 20 9a 52 4f 4c 4f  |OOMOUT JMP .ROLO|
000052b0  50 00 00 00                                       |P...|
000052b4