;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 #$00v; �BEQ DMOVERB�;*�STA $FD�;4�LDA #$06�;>�STA $FB�;H�DMLOP LDA $4100�;R�LDX $FB�;\�JSR �DIGIT�;f�CMP #$00�;p�BEQ DMOVER�;z�ASL A�;��ASL A<��ASL A<��ASL A<��CLC"<��ADC $FD*<��TAY7<��LDA M�,YC<ʞSTA $35N<Ԟ� #$0FV<ޞTAYb<�LDA $FBj<�CLCv<��ADC $FC~<�SEC�<�SBC #$0C�<�TAX�<$�� #$01�<.�BEQ MSKIP�<8�TYA�<B�ASL A�<L�ASL A�<V�ASL A�<`�ASL A�<j�TAY�<t�LDA $35�<~�� #$F0=��LSR A=��LSR A=��LSR A#=��LSR A/=��STA $35:=��JMP M�Q=��DMOVERB JMP DMOVERc=ğMSKIP LDY $35p=ΟLDA #$00|=؟STA $35�=ڟM� TXA�=ܟLSR A�=ޟSTA $02�=�LDA #$07�=�SEC�=�SBC $02�=�STA $02�=�LDA $4102�=�ASL A�=�ASL A�=�ASL A>�ADC $02>�STY $25>�TAY>��SED.>��LDA $4000,Y6>��CLCB>��ADC $25R>��STA $4000,YZ>�CLDb>�DEYj>�SEDz>�LDA $4000,Y�>�ADC $35�>
�STA $4000,Y�>�CLD�>�MALP BCC DMOVER�>�DEY�>�SED�>�LDA $4000,Y�>�ADC #$00�>�STA $4000,Y�>�CLD?�JMP MALP?Z�DMOVER INC $FB#?d�LDA $FB0?n�CMP #$0E??x�BCC DMLOPBK?��INC $FCW?��LDA $FCd?��CMP #$0Et?��BCC �DIGITB�?��LDA YPIB�?��BEQ QUIT�?��LDA $4102�?ȠSTA $4101�?ҠLDA #$1D�?ܠSTA $4100�?�JSR SUBTRACT�?�QUIT RTS�?��DMLOPB JMP DMLOP@��DIGITB JMP �DIGIT"@"�MSUP LDA $4100,@,�ASL A6@6�ASL A@@@�ASL AH@J�TAXP@T�DEX\@^�STX $FBj@h�LDA $4101t@r�ASL A~@|�ASL A�@��ASL A�@��TAX�@��DEX�@��STX $FD�@��LDA $4102�@��ASL A�@¡ASL A�@̡ASL A�@֡TAX�@�DEX�@�STX $22�@�LDA #$40A��STA $FCA�STA $FEA�STA $23%A�RTS8A&�EQUAL JSR MSUPEA0�LDY #$08ZA:�ELOP LDA ($FB),YjAD�STA ($22),YrAN�DEYAX�BNE ELOP�Ab�RTS�Al�ADDITI� JSR MSUP�Av�LDY #$08�A��SED�A��CLC�A��ADLOP LDA ($FB),Y�A��ADC ($FD),Y�A��STA ($22),Y�A��DEYB��BNE ADLOP
BƢCLDBТRTS+BڢSUBTRACT JSR MSUP8B�LDY #$08@B�SEDHB��SEC^B�SULOP LDA ($FB),YnB�SBC ($FD),Y~B�STA ($22),Y�B �DEY�B*�BNE SULOP�B4�CLD�B>�RTS�BH�NEGATIVE LDA #$00�BR�PHA�B\�LDA $4100�Bf�TAY�Bp�ASL A�Bz�ASL A�B��ASL A�B��TAXC��LDA $4001,XC��CMP #$50.C��BCC NEGRMOVEAB6C��PLACC��ADC #$00KC��PHA]CʣJMP NEGRMOVEAvCԣNEGRMOVEAB LDA $4101~CޣTAY�C�ASL A�C�ASL A�C��ASL A�C�TAX�C�LDA $4001,X�C�CMP #$50�C$�PLA�C.�BCC NOE��C8�E� #$01�CB�PHA�CL�BCS NEGRMOVEBDV�NEGRMOVEBB PLA!D`�NOE� STA YPIB)Dj�RTS@Dt�NEGRMOVE LDA $4100HD~�PHAVD��LDA $4101^D��PHAlD��LDA $4102tD��PHA|D��TYA�D��STA $4101�DĤSTA $4102�DΤLDA #$1D�DؤSTA $4100�D�JSR SUBTRACT�D�PLA�D��STA $4102�D�PLA�D
�STA $4101�D�PLAE�STA $4100E(�RTS)E2�NEGRMOVEA JSR NEGRMOVE<E<�JMP NEGRMOVEABWEF�NEGRMOVEB JSR NEGRMOVEjEP�JMP NEGRMOVEBB�EZ�MULTIPLY LDA $4102�Ed�PHA�En�LDA $4101�Ex�PHA�E��LDA #$18�E��STA $4102�E��JSR EQUAL�E��INC $4102�E��PLA�E��STA $4100�E��JSR EQUALFȥLDA #$18FҥSTA $4100"FܥLDA #$190F�STA $41018F�PLAFF��STA $4102XF�JMP MULTIPLYB~Fȯ;           MULTIPLICATION TABLES�Fʯ;�F̯M� TXT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0�FίTXT 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0	GЯTXT 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0=GүTXT 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0sGԯTXT 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0�G֯TXT 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0�GدTXT 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0HگTXT 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0SHܯTXT 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0�HޯTXT 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0�HP�;           GRAPHIC PO� PLOTTER�HZ�PLOTPC LDA #$47�Hd�STA $FB�Hn�LDA #$3F�Hx�STA $FC�H��LDA YPIXEL
I��LSR AI��LSR AI��LSR A"I��STA YPIB-I�ï #$037I��ASL AAI��ASL AKI��ASL AUI��ASL A_I��ASL AiI��ASL AuI��STA $02�I�LDA $FB�I�SEC�I�SBC $02�I"�STA $FB�I,�LDA $FC�I6�SBC #$00�I;�SBC YPIB�I@�PHA�IJ�LDA YPIB�IT�LSR A�I^�LSR A�Ih�STA $02Jr�PLAJ|�SECJ��SBC $02$J��STA $FC3J��LDA YPIXEL>J�į #$07KJ��STA YPIBWJ��LDA $FB_J��SEClJ��SBC YPIBtJ��PHA�J��LDA XPIXEL�J�į #$F8�J��STA YPIB�J��PLA�J�CLC�J�ADC YPIB�J�STA $FB�J&�LDA $FC�J0�SBC #$00�J:�STA $FC�JD�LDA XPIXELKNů #$07KX�TAXKb�LDA #$80,Kl�GBITLP CPX #$008Kv�BEQ PP�BK��LSR AJK��DEXYK��JMP GBITLPiK��PP� STA $FDqK��RTS�K��PLO�N JSR PLOTPC�K��LDY #$00�K��LDA ($FB),Y�K�ŰA $FD�K��STA ($FB),Y�K��RTS�K��PLO�FF JSR PLOTPC�K��LDA $FD�K�E� #$FFL�STA $FD
L�LDY #$00L �LDA ($FB),Y'L*Ư $FD7L4�STA ($FB),Y?L>�RTSSLH�PLOT LDA COLOUR^LRƯ #$02kL\�BNE PPA�zLf�JSR PLO�FF�Lp�JMP PPACNT�Lz�PPA� JSR PLO�N�L��PPACNT INC XPIXEL�L��LDA COLOUR�L�Ư #$01�L��BNE PPB��L��JSR PLO�FF�L��JMP PPBCNT
M��PPB� JSR PLO�N M��PPBCNT INC XPIXEL(M��RTSMM��;       ZOOM CALCULATI� ROUTINEScM��NOZOOM JMP �ROLOPxM��ZOOMIN LDA $D015�M�֯ #$F0�M�CMP #$F0�M
�BNE NOZOOM�M�LDA #$1E�M�STA $4100�M(�LDA #$01�M2�STA $4101�M<�LDA #$10�MF�STA $4102
NP�JSR SUBTRACTNZ�LDA #$01Nd�STA $4100*Nn�INC $41028Nx�JSR EQUALEN��LDA #$10SN��STA $4100`N��LDA #$1BnN��STA $4101{N��LDA #$12�N��STA $4102�N��JSR MULTIPLY�N��LDA #$11�N��STA $4100�N��STA $4102�N��LDA #$12�N��STA $4101�N��LDA $D008�N�SEC
O�SBC #$58O�CALCINLOPA CMP #$00)O"�BEQ CALC�IA1O,�PHAAO6�JSR ADDITI�IO@�PLAQOJ�TAXYOT�DEXaO^�TXAtOh�JMP CALCINLOPA�Or�CALC�IA LDA #$01�O|�STA $4100�O��LDA #$13�O��STA $4102�O��JSR EQUAL�O��LDA #$13�O��STA $4100�O��STA $4102�O��LDA #$12P��STA $4101P��LDA $D00AP��SEC'P��SBC #$40?P��CALCINLOPB CMP #$00OP��BEQ CALC�IBWP�PHAgP�JSR ADDITI�oP�PLAwP&�TAXP0�DEX�P:�TXA�PD�JMP CALCINLOPB�PN�CALC�IB LDA #$11�PX�STA $4100�Pb�LDA #$01�Pl�STA $4102�Pv�JSR EQUAL�P��LDA #$13
Q��STA $4100Q��LDA #$1EQ��STA $4102*Q��JSR EQUAL7Q��LDA #$1FEQ��STA $4100RQ��LDA #$03`Q��STA $4101mQ��LDA #$10{Q��STA $4102�Q��JSR SUBTRACT�Q��LDA #$03�Q�STA $4100�Q�INC $4102�Q�JSR EQUAL�Q �LDA #$10�Q*�STA $4100�Q4�LDA #$12�Q>�STA $4102RH�LDA #$1ARR�STA $4101%R\�JSR MULTIPLY2Rf�LDA #$11@Rp�STA $4100NRz�STA $4102[R��LDA #$12iR��STA $4101vR��LDA #$E5~R��SEC�R��SBC $D00D�R��CALCINYA CMP #$00�R��BEQ CALC�IC�R��PHA�R��JSR ADDITI��R��PLA�R��TAX�R��DEX�R��TXA�R�JMP CALCINYAS�CALC�IC LDA #$03S�STA $4100+S$�LDA #$139S.�STA $4102GS8�JSR EQUALTSB�LDA #$13bSL�STA $4100pSV�STA $4102}S`�LDA #$12�Sj�STA $4101�St�LDA #$FA�S~�SEC�S��SBC $D009�S��CALCINYB CMP #$00�S��BEQ CALC�ID�S��PHA�S��JSR ADDITI��S��PLA�S��TAXT��DEXT��TXAT��JMP CALCINYB2T��CALC�ID LDA #$11@T��STA $4100MT�LDA #$03[T
�STA $4102iT�JSR EQUALvT�LDA #$13�T(�STA $4100�T2�LDA #$1F�T<�STA $4102�TF�JSR EQUAL�TP�LDA #$1E�TZ�STA $4100�Td�LDA #$01�Tn�STA $4101�Tx�LDA #$10�T��STA $4102U��JSR SUBTRACTU��LDA #$10*U��STA $41007U��LDA #$17EU��STA $4101RU��LDA #$02`U��STA $4102qU��JSR MULTIPLY~U��LDA #$1F�U��STA $4100�U��LDA #$03�U��STA $4101�U�LDA #$10�U�STA $4102�U�JSR SUBTRACT�U"�LDA #$10�U,�STA $4100�U6�LDA #$1A	V@�STA $4101VJ�LDA #$04$VT�STA $41025V^�JSR MULTIPLYBVh�JSR M�LEQVr�JMP �ROLOPwV`�;                   ZOOM ROUTINES�Vj�BOX LDA XP�Vt�STA XPIB�V~�LDA YP�V��STA YPIB�V��LDA XPB�V��STA XPBIB�V��LDX #$3C�V��STX $07FC�V��INX�V��STX $07FD�V��INXW��STX $07FEW��INX"W��STX $07FF0W��LDA $D015<W�A #$F0JW
�STA $D015]W�BOX� LDA CLICKjW�BNE BOX��Wx�BOXLOOP LDA XPBIB�W��CMP XPB�W��BEQ CHECKFINE�W��BCS LESSTHAN�W��JMP M�ETHAN�W��CHECKFINE LDA XPIB�W��CMP XP�W��BCS LESSTHANX��M�ETHAN LDA XPIBX��STA $D008#X��STA $D00C0X��LDX #$00>X��LDA XPBIBOX��BEQ NOXPBADD\X�LDX #$50sX�NOXPBADD LDA $D010~X� #$AF�X"�STX $02�X,�CLC�X6�ADC $02�X@�STA $D010�XE�LDX #$00�XJ�LDA XP�XT�SEC�X^�SBC #$18�Xh�STA $D00A�Xr�STA $D00EY|�BCC MTSUBY��LDX XPBY��BEQ MTSUB*Y��LDX #$A0>Y��MTSUB LDA $D010IY�� #$5FUY��STX $02]Y��CLCiY��ADC $02wY��STA $D010�Y��JMP BOX��Y��LESSTHAN LDA XP�Y��LDX XPB�Y��BNE �OUT�Y�CMP #$58�Y�BCS �OUT�Y�LDA #$58�Y&�OUT STA $D008�Y0�STA $D00CZ:�CPX #$00ZD�BEQ LTNOADD#ZN�LDX #$509ZX�LTNOADD LDA $D010DZb� #$AFPZl�STX $02XZv�CLCdZ��ADC $02rZ��STA $D010Z��LDX #$00�Z��LDA XPIB�Z��SEC�Z��SBC #$18�Z��STA $D00A�Z��STA $D00E�Z��BCC LTSUB�Z��LDX XPBIB�Z��BEQ LTSUB�Z��LDX #$A0[��LTSUB LDA $D010[�� #$5F[�STX $02'[�CLC3[�ADC $02A[ �STA $D010Q[*�BOX� LDA YP^[4�CMP YPIBl[>�BCC LESSYy[H�LDA YPIB�[R�STA $D009�[\�STA $D00B�[f�LDA YP�[p�SEC�[z�SBC #$15�[��STA $D00D�[��STA $D00F�[��JMP BOX�II�[��LESSY LDA YP�[��STA $D009
\��STA $D00B\��LDA YPIB"\��SEC/\��SBC #$15=\��STA $D00DK\��STA $D00F`\��BOX�II LDA CLICKm\��BNE BOX�}\�JMP BOXLOOP�\�BOX� JMP �ROLOP�\0�BOXFLASH LDA $A2�\:� #$3C�\D�LSR A�\N�LSR A�\X�TAX�\b�LDA BOXCOLS,X�\l�STA $D02B�\v�STA $D02C	]��STA $D02D]��STA $D02E%]��JMP $EA31G]��BOXCOLS TXT 0,9,2,8,10,7,13,1a]��TXT 1,13,3,5,14,4,6,0v]�; DELETE THESE!!�]"�COLS JMP �ROLOP�]J��ITI� JMP �ROLOP�]T�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@V; .beq dmoverb@.;*.sta $fd@.;4.lda #$06@.;>.sta $fb@.;h.dmlop lda $4100@.;r.ldx $fb@.;£.jsr .digit@.;F.cmp #$00@.;P.beq dmover@.;Z.asl a@.;..asl a@D<..asl a@N<..asl a@V<..clc@"<..adc $fd@*<..tay@7<..lda m.,y@c<..sta $35@n<... #$0f@v<..tay@B<..lda $fb@J<..clc@V<..adc $fc@.<F.sec@.<P.sbc #$0c@.<Z.tax@.<$.. #$01@.<..beq mskip@.<8.tya@.<b.asl a@.<l.asl a@.<v.asl a@.<..asl a@.<J.tay@.<T.lda $35@.<... #$f0@E=..lsr a@O=..lsr a@Y=..lsr a@#=..lsr a@/=..sta $35@:=..jmp m.@q=..dmoverb jmp dmover@C=..mskip ldy $35@P=..lda #$00@.=..sta $35@.=..m. txa@.=..lsr a@.=..sta $02@.=..lda #$07@.=..sec@.=..sbc $02@.=..sta $02@.=..lda $4102@.=..asl a@.=..asl a@.=..asl a@B>..adc $02@N>..sty $25@V>..tay@.>..sed@.>..lda $4000,y@6>..clc@b>..adc $25@r>..sta $4000,y@z>@.cld@B>B.dey@J>D.sed@Z>F.lda $4000,y@.>H.adc $35@.>J.sta $4000,y@.>L.cld@.>N.malp bcc dmover@.>P.dey@.>R.sed@.>T.lda $4000,y@.>V.adc #$00@.>X.sta $4000,y@.>Z.cld@D?£.jmp malp@W?z.dmover inc $fb@#?D.lda $fb@0?N.cmp #$0e@??X.bcc dmlopb@k?..inc $fc@w?..lda $fc@D?..cmp #$0e@T?..bcc .digitb@.?..lda ypib@.?..beq quit@.?..lda $4102@.?..sta $4101@.?..lda #$1d@.?..sta $4100@.?..jsr subtract@.?..quit rts@.?..dmlopb jmp dmlop@O@D..digitb jmp .digit@"@".msup lda $4100@,@,.asl a@6@6.asl a@@@@.asl a@h@j.tax@p@t.dex@£@..stx $fb@J@H.lda $4101@T@R.asl a@.@..asl a@.@..asl a@.@..tax@.@..dex@.@..stx $fd@.@..lda $4102@.@..asl a@.@..asl a@.@..asl a@.@..tax@.@..dex@.@..stx $22@.@..lda #$40@Ea..sta $fc@QaH.sta $fe@]aR.sta $23@%a£.rts@8a&.equal jsr msup@ea0.ldy #$08@za:.elop lda ($fb),y@Jad.sta ($22),y@Ran.dey@.ax.bne elop@.aB.rts@.aL.additi. jsr msup@.aV.ldy #$08@.a..sed@.a..clc@.a..adlop lda ($fb),y@.a..adc ($fd),y@.a..sta ($22),y@.a..dey@Eb..bne adlop@Mb..cld@Ub..rts@+b..subtract jsr msup@8b..ldy #$08@@b..sed@hb..sec@.bB.sulop lda ($fb),y@NbL.sbc ($fd),y@.bV.sta ($22),y@.b .dey@.b*.bne sulop@.b4.cld@.b>.rts@.bh.negative lda #$00@.br.pha@.b£.lda $4100@.bF.tay@.bP.asl a@.bZ.asl a@.b..asl a@.b..tax@Nc..lda $4001,x@[c..cmp #$50@.c..bcc negrmoveab@6c..pla@cc..adc #$00@kc..pha@]c..jmp negrmovea@Vc..negrmoveab lda $4101@.c..tay@.c..asl a@.c..asl a@.c..asl a@.cF.tax@.cP.lda $4001,x@.cZ.cmp #$50@.c$.pla@.c..bcc noe.@.c8.e. #$01@.cb.pha@.cl.bcs negrmoveb@Odv.negrmovebb pla@!d..noe. sta ypib@)dJ.rts@@dT.negrmove lda $4100@hd..pha@vd..lda $4101@.d..pha@Ld..lda $4102@Td..pha@.d..tya@.d..sta $4101@.d..sta $4102@.d..lda #$1d@.d..sta $4100@.d..jsr subtract@.d..pla@.d..sta $4102@.d@.pla@.dJ.sta $4101@.dT.pla@Fe..sta $4100@Ne(.rts@)e2.negrmovea jsr negrmove@<e<.jmp negrmoveab@wef.negrmoveb jsr negrmove@Jep.jmp negrmovebb@.ez.multiply lda $4102@.eD.pha@.eN.lda $4101@.eX.pha@.e..lda #$18@.e..sta $4102@.e..jsr equal@.e..inc $4102@.e..pla@.e..sta $4100@.e..jsr equal@Gf..lda #$18@Uf..sta $4100@"f..lda #$19@0f..sta $4101@8f..pla@ff..sta $4102@xfD.jmp multiplyb@.f..;           multiplication tables@.f..;@.f..m. txt 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@.f..txt 0,1,2,3,4,5,6,7,8,9,0,0,0,0,0,0@Ig..txt 0,2,4,6,8,$10,$12,$14,$16,$18,0,0,0,0,0,0@=g..txt 0,3,6,9,$12,$15,$18,$21,$24,$27,0,0,0,0,0,0@Sg..txt 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0@.g..txt 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0@.g..txt 0,6,$12,$18,$24,$30,$36,$42,$48,$54,0,0,0,0,0,0@[h..txt 0,7,$14,$21,$28,$35,$42,$49,$56,$63,0,0,0,0,0,0@sh..txt 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0@.h..txt 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0@.hp.;           graphic po. plotter@.hz.plotpc lda #$47@.hD.sta $fb@.hN.lda #$3f@.hX.sta $fc@.h..lda ypixel@Ai..lsr a@Ki..lsr a@Ui..lsr a@"i..sta ypib@-i... #$03@7i..asl a@ai..asl a@ki..asl a@ui..asl a@.i..asl a@Ii..asl a@Ui..sta $02@.iD.lda $fb@.iN.sec@.iX.sbc $02@.i".sta $fb@.i,.lda $fc@.i6.sbc #$00@.i;.sbc ypib@.i@.pha@.ij.lda ypib@.it.lsr a@.i..lsr a@.iH.sta $02@DjR.pla@Lj..sec@Xj..sbc $02@$j..sta $fc@3j..lda ypixel@>j... #$07@kj..sta ypib@wj..lda $fb@.j..sec@Lj..sbc ypib@Tj..pha@.j..lda xpixel@.j... #$f8@.j..sta ypib@.j..pla@.jH.clc@.jR.adc ypib@.j£.sta $fb@.j&.lda $fc@.j0.sbc #$00@.j:.sta $fc@.jd.lda xpixel@Ckn.. #$07@Kkx.tax@XkB.lda #$80@,kL.gbitlp cpx #$00@8kV.beq pp.@bk..lsr a@jk..dex@yk..jmp gbitlp@Ik..pp. sta $fd@Qk..rts@.k..plo.n jsr plotpc@.k..ldy #$00@.k..lda ($fb),y@.k...a $fd@.k..sta ($fb),y@.k..rts@.k..plo.ff jsr plotpc@.k..lda $fd@.kB.e. #$ff@@lL.sta $fd@MlV.ldy #$00@]l .lda ($fb),y@'l*.. $fd@7l4.sta ($fb),y@?l>.rts@slh.plot lda colour@.lr.. #$02@Kl£.bne ppa.@ZlF.jsr plo.ff@.lP.jmp ppacnt@.lZ.ppa. jsr plo.n@.l..ppacnt inc xpixel@.l..lda colour@.l... #$01@.l..bne ppb.@.l..jsr plo.ff@.l..jmp ppbcnt@Jm..ppb. jsr plo.n@ m..ppbcnt inc xpixel@(m..rts@mm..;       zoom calculati. routines@Cm..nozoom jmp .rolop@Xm..zoomin lda $d015@.m... #$f0@.m@.cmp #$f0@.mJ.bne nozoom@.mT.lda #$1e@.m..sta $4100@.m(.lda #$01@.m2.sta $4101@.m<.lda #$10@.mf.sta $4102@Anp.jsr subtract@Nnz.lda #$01@£nD.sta $4100@*nN.inc $4102@8nX.jsr equal@en..lda #$10@sn..sta $4100@.n..lda #$1b@Nn..sta $4101@.n..lda #$12@.n..sta $4102@.n..jsr multiply@.n..lda #$11@.n..sta $4100@.n..sta $4102@.n..lda #$12@.n..sta $4101@.n..lda $d008@.nD.sec@AoN.sbc #$58@YoX.calcinlopa cmp #$00@)o".beq calc.ia@1o,.pha@ao6.jsr additi.@io@.pla@qoj.tax@yot.dex@Ao..txa@ToH.jmp calcinlopa@.oR.calc.ia lda #$01@.o..sta $4100@.o..lda #$13@.o..sta $4102@.o..jsr equal@.o..lda #$13@.o..sta $4100@.o..sta $4102@.o..lda #$12@Dp..sta $4101@Rp..lda $d00a@Zp..sec@'p..sbc #$40@?p..calcinlopb cmp #$00@op..beq calc.ib@wpH.pha@GpR.jsr additi.@Op£.pla@Wp&.tax@.p0.dex@.p:.txa@.pd.jmp calcinlopb@.pn.calc.ib lda #$11@.px.sta $4100@.pB.lda #$01@.pL.sta $4102@.pV.jsr equal@.p..lda #$13@Aq..sta $4100@Nq..lda #$1e@£q..sta $4102@*q..jsr equal@7q..lda #$1f@eq..sta $4100@rq..lda #$03@.q..sta $4101@Mq..lda #$10@.q..sta $4102@.q..jsr subtract@.q..lda #$03@.qB.sta $4100@.qL.inc $4102@.qV.jsr equal@.q .lda #$10@.q*.sta $4100@.q4.lda #$12@.q>.sta $4102@Frh.lda #$1a@Trr.sta $4101@%r£.jsr multiply@2rF.lda #$11@@rP.sta $4100@nrZ.sta $4102@[r..lda #$12@Ir..sta $4101@Vr..lda #$e5@.r..sec@.r..sbc $d00d@.r..calcinya cmp #$00@.r..beq calc.ic@.r..pha@.r..jsr additi.@.r..pla@.r..tax@.r..dex@.r..txa@.rF.jmp calcinya@PsP.calc.ic lda #$03@.sZ.sta $4100@+s$.lda #$13@9s..sta $4102@gs8.jsr equal@tsb.lda #$13@Bsl.sta $4100@Psv.sta $4102@.s..lda #$12@.sJ.sta $4101@.sT.lda #$fa@.s..sec@.s..sbc $d009@.s..calcinyb cmp #$00@.s..beq calc.id@.s..pha@.s..jsr additi.@.s..pla@.s..tax@Dt..dex@Lt..txa@]t..jmp calcinyb@2t..calc.id lda #$11@@t..sta $4100@mt@.lda #$03@[tJ.sta $4102@ItT.jsr equal@Vt..lda #$13@.t(.sta $4100@.t2.lda #$1f@.t<.sta $4102@.tf.jsr equal@.tp.lda #$1e@.tz.sta $4100@.tD.lda #$01@.tN.sta $4101@.tX.lda #$10@.t..sta $4102@Ou..jsr subtract@£u..lda #$10@*u..sta $4100@7u..lda #$17@eu..sta $4101@ru..lda #$02@.u..sta $4102@Qu..jsr multiply@.u..lda #$1f@.u..sta $4100@.u..lda #$03@.u..sta $4101@.uD.lda #$10@.uN.sta $4102@.uX.jsr subtract@.u".lda #$10@.u,.sta $4100@.u6.lda #$1a@Iv@.sta $4101@Vvj.lda #$04@$vt.sta $4102@5v..jsr multiply@bvH.jsr m.le@qvR.jmp .rolop@Wv..;                   zoom routines@.vJ.box lda xp@.vT.sta xpib@.v..lda yp@.v..sta ypib@.v..lda xpb@.v..sta xpbib@.v..ldx #$3c@.v..stx $07fc@.v..inx@.v..stx $07fd@.v..inx@Lw..stx $07fe@Tw..inx@"w..stx $07ff@0w..lda $d015@<w@..a #$f0@jwJ.sta $d015@]wT.box. lda click@Jw..bne box.@.wX.boxloop lda xpbib@.w..cmp xpb@.w..beq checkfine@.w..bcs lessthan@.w..jmp m.ethan@.w..checkfine lda xpib@.w..cmp xp@.w..bcs lessthan@Gx..m.ethan lda xpib@Ux..sta $d008@#x..sta $d00c@0x..ldx #$00@>x..lda xpbib@ox..beq noxpbadd@£xD.ldx #$50@SxN.noxpbadd lda $d010@.xX.. #$af@.x".stx $02@.x,.clc@.x6.adc $02@.x@.sta $d010@.xe.ldx #$00@.xj.lda xp@.xt.sec@.x..sbc #$18@.xH.sta $d00a@.xR.sta $d00e@Cy..bcc mtsub@Oy..ldx xpb@]y..beq mtsub@*y..ldx #$a0@>y..mtsub lda $d010@iy... #$5f@uy..stx $02@]y..clc@Iy..adc $02@Wy..sta $d010@.y..jmp box.@.y..lessthan lda xp@.y..ldx xpb@.y..bne .out@.yH.cmp #$58@.yR.bcs .out@.y£.lda #$58@.y&..out sta $d008@.y0.sta $d00c@Fz:.cpx #$00@Vzd.beq ltnoadd@#zn.ldx #$50@9zx.ltnoadd lda $d010@dzB.. #$af@pzL.stx $02@xzV.clc@Dz..adc $02@Rz..sta $d010@.z..ldx #$00@.z..lda xpib@.z..sec@.z..sbc #$18@.z..sta $d00a@.z..sta $d00e@.z..bcc ltsub@.z..ldx xpbib@.z..beq ltsub@.z..ldx #$a0@H[..ltsub lda $d010@S[... #$5f@.[B.stx $02@'[L.clc@3[V.adc $02@a[ .sta $d010@q[*.box. lda yp@.[4.cmp ypib@L[>.bcc lessy@Y[h.lda ypib@.[r.sta $d009@.[£.sta $d00b@.[F.lda yp@.[P.sec@.[Z.sbc #$15@.[..sta $d00d@.[..sta $d00f@.[..jmp box.ii@.[..lessy lda yp@.[..sta $d009@M£..sta $d00b@Z£..lda ypib@"£..sec@/£..sbc #$15@=£..sta $d00d@k£..sta $d00f@.£..box.ii lda click@M£..bne box.@.£F.jmp boxloop@.£P.box. jmp .rolop@.£0.boxflash lda $a2@.£:.. #$3c@.£d.lsr a@.£n.lsr a@.£x.tax@.£B.lda boxcols,x@.£L.sta $d02b@.£V.sta $d02c@I]..sta $d02d@W]..sta $d02e@%]..jmp $ea31@g]..boxcols txt 0,9,2,8,10,7,13,1@A]..txt 1,13,3,5,14,4,6,0@V]X.; delete these!!@.]".cols jmp .rolop@.]j..iti. jmp .rolop@.]t.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 76 3b 20  9e 42 45 51 20 44 4d 4f  |#$00.v; .BEQ DMO|
00003370  56 45 52 42 00 82 3b 2a  9e 53 54 41 20 24 46 44  |VERB..;*.STA $FD|
00003380  00 8f 3b 34 9e 4c 44 41  20 23 24 30 36 00 9b 3b  |..;4.LDA #$06..;|
00003390  3e 9e 53 54 41 20 24 46  42 00 af 3b 48 9e 44 4d  |>.STA $FB..;H.DM|
000033a0  4c 4f 50 20 4c 44 41 20  24 34 31 30 30 00 bb 3b  |LOP LDA $4100..;|
000033b0  52 9e 4c 44 58 20 24 46  42 00 ca 3b 5c 9e 4a 53  |R.LDX $FB..;\.JS|
000033c0  52 20 a1 44 49 47 49 54  00 d7 3b 66 9e 43 4d 50  |R .DIGIT..;f.CMP|
000033d0  20 23 24 30 30 00 e6 3b  70 9e 42 45 51 20 44 4d  | #$00..;p.BEQ DM|
000033e0  4f 56 45 52 00 f0 3b 7a  9e 41 53 4c 20 41 00 fa  |OVER..;z.ASL A..|
000033f0  3b 84 9e 41 53 4c 20 41  00 04 3c 8e 9e 41 53 4c  |;..ASL A..<..ASL|
00003400  20 41 00 0e 3c 98 9e 41  53 4c 20 41 00 16 3c a2  | A..<..ASL A..<.|
00003410  9e 43 4c 43 00 22 3c ac  9e 41 44 43 20 24 46 44  |.CLC."<..ADC $FD|
00003420  00 2a 3c b6 9e 54 41 59  00 37 3c c0 9e 4c 44 41  |.*<..TAY.7<..LDA|
00003430  20 4d d4 2c 59 00 43 3c  ca 9e 53 54 41 20 24 33  | M.,Y.C<..STA $3|
00003440  35 00 4e 3c d4 9e af 20  23 24 30 46 00 56 3c de  |5.N<... #$0F.V<.|
00003450  9e 54 41 59 00 62 3c e8  9e 4c 44 41 20 24 46 42  |.TAY.b<..LDA $FB|
00003460  00 6a 3c f2 9e 43 4c 43  00 76 3c fc 9e 41 44 43  |.j<..CLC.v<..ADC|
00003470  20 24 46 43 00 7e 3c 06  9f 53 45 43 00 8b 3c 10  | $FC.~<..SEC..<.|
00003480  9f 53 42 43 20 23 24 30  43 00 93 3c 1a 9f 54 41  |.SBC #$0C..<..TA|
00003490  58 00 9e 3c 24 9f af 20  23 24 30 31 00 ac 3c 2e  |X..<$.. #$01..<.|
000034a0  9f 42 45 51 20 4d 53 4b  49 50 00 b4 3c 38 9f 54  |.BEQ MSKIP..<8.T|
000034b0  59 41 00 be 3c 42 9f 41  53 4c 20 41 00 c8 3c 4c  |YA..<B.ASL A..<L|
000034c0  9f 41 53 4c 20 41 00 d2  3c 56 9f 41 53 4c 20 41  |.ASL A..<V.ASL A|
000034d0  00 dc 3c 60 9f 41 53 4c  20 41 00 e4 3c 6a 9f 54  |..<`.ASL A..<j.T|
000034e0  41 59 00 f0 3c 74 9f 4c  44 41 20 24 33 35 00 fb  |AY..<t.LDA $35..|
000034f0  3c 7e 9f af 20 23 24 46  30 00 05 3d 88 9f 4c 53  |<~.. #$F0..=..LS|
00003500  52 20 41 00 0f 3d 92 9f  4c 53 52 20 41 00 19 3d  |R A..=..LSR A..=|
00003510  9c 9f 4c 53 52 20 41 00  23 3d a6 9f 4c 53 52 20  |..LSR A.#=..LSR |
00003520  41 00 2f 3d b0 9f 53 54  41 20 24 33 35 00 3a 3d  |A./=..STA $35.:=|
00003530  ba 9f 4a 4d 50 20 4d 9a  00 51 3d bf 9f 44 4d 4f  |..JMP M..Q=..DMO|
00003540  56 45 52 42 20 4a 4d 50  20 44 4d 4f 56 45 52 00  |VERB JMP DMOVER.|
00003550  63 3d c4 9f 4d 53 4b 49  50 20 4c 44 59 20 24 33  |c=..MSKIP LDY $3|
00003560  35 00 70 3d ce 9f 4c 44  41 20 23 24 30 30 00 7c  |5.p=..LDA #$00.||
00003570  3d d8 9f 53 54 41 20 24  33 35 00 87 3d da 9f 4d  |=..STA $35..=..M|
00003580  9a 20 54 58 41 00 91 3d  dc 9f 4c 53 52 20 41 00  |. TXA..=..LSR A.|
00003590  9d 3d de 9f 53 54 41 20  24 30 32 00 aa 3d e0 9f  |.=..STA $02..=..|
000035a0  4c 44 41 20 23 24 30 37  00 b2 3d e2 9f 53 45 43  |LDA #$07..=..SEC|
000035b0  00 be 3d e4 9f 53 42 43  20 24 30 32 00 ca 3d e6  |..=..SBC $02..=.|
000035c0  9f 53 54 41 20 24 30 32  00 d8 3d e8 9f 4c 44 41  |.STA $02..=..LDA|
000035d0  20 24 34 31 30 32 00 e2  3d ea 9f 41 53 4c 20 41  | $4102..=..ASL A|
000035e0  00 ec 3d ec 9f 41 53 4c  20 41 00 f6 3d ee 9f 41  |..=..ASL A..=..A|
000035f0  53 4c 20 41 00 02 3e f0  9f 41 44 43 20 24 30 32  |SL A..>..ADC $02|
00003600  00 0e 3e f2 9f 53 54 59  20 24 32 35 00 16 3e f4  |..>..STY $25..>.|
00003610  9f 54 41 59 00 1e 3e f6  9f 53 45 44 00 2e 3e f8  |.TAY..>..SED..>.|
00003620  9f 4c 44 41 20 24 34 30  30 30 2c 59 00 36 3e fa  |.LDA $4000,Y.6>.|
00003630  9f 43 4c 43 00 42 3e fc  9f 41 44 43 20 24 32 35  |.CLC.B>..ADC $25|
00003640  00 52 3e fe 9f 53 54 41  20 24 34 30 30 30 2c 59  |.R>..STA $4000,Y|
00003650  00 5a 3e 00 a0 43 4c 44  00 62 3e 02 a0 44 45 59  |.Z>..CLD.b>..DEY|
00003660  00 6a 3e 04 a0 53 45 44  00 7a 3e 06 a0 4c 44 41  |.j>..SED.z>..LDA|
00003670  20 24 34 30 30 30 2c 59  00 86 3e 08 a0 41 44 43  | $4000,Y..>..ADC|
00003680  20 24 33 35 00 96 3e 0a  a0 53 54 41 20 24 34 30  | $35..>..STA $40|
00003690  30 30 2c 59 00 9e 3e 0c  a0 43 4c 44 00 b2 3e 0e  |00,Y..>..CLD..>.|
000036a0  a0 4d 41 4c 50 20 42 43  43 20 44 4d 4f 56 45 52  |.MALP BCC DMOVER|
000036b0  00 ba 3e 10 a0 44 45 59  00 c2 3e 12 a0 53 45 44  |..>..DEY..>..SED|
000036c0  00 d2 3e 14 a0 4c 44 41  20 24 34 30 30 30 2c 59  |..>..LDA $4000,Y|
000036d0  00 df 3e 16 a0 41 44 43  20 23 24 30 30 00 ef 3e  |..>..ADC #$00..>|
000036e0  18 a0 53 54 41 20 24 34  30 30 30 2c 59 00 f7 3e  |..STA $4000,Y..>|
000036f0  1a a0 43 4c 44 00 04 3f  1c a0 4a 4d 50 20 4d 41  |..CLD..?..JMP MA|
00003700  4c 50 00 17 3f 5a a0 44  4d 4f 56 45 52 20 49 4e  |LP..?Z.DMOVER IN|
00003710  43 20 24 46 42 00 23 3f  64 a0 4c 44 41 20 24 46  |C $FB.#?d.LDA $F|
00003720  42 00 30 3f 6e a0 43 4d  50 20 23 24 30 45 00 3f  |B.0?n.CMP #$0E.?|
00003730  3f 78 a0 42 43 43 20 44  4d 4c 4f 50 42 00 4b 3f  |?x.BCC DMLOPB.K?|
00003740  82 a0 49 4e 43 20 24 46  43 00 57 3f 8c a0 4c 44  |..INC $FC.W?..LD|
00003750  41 20 24 46 43 00 64 3f  96 a0 43 4d 50 20 23 24  |A $FC.d?..CMP #$|
00003760  30 45 00 74 3f a0 a0 42  43 43 20 a2 44 49 47 49  |0E.t?..BCC .DIGI|
00003770  54 42 00 81 3f aa a0 4c  44 41 20 59 50 49 42 00  |TB..?..LDA YPIB.|
00003780  8e 3f b4 a0 42 45 51 20  51 55 49 54 00 9c 3f be  |.?..BEQ QUIT..?.|
00003790  a0 4c 44 41 20 24 34 31  30 32 00 aa 3f c8 a0 53  |.LDA $4102..?..S|
000037a0  54 41 20 24 34 31 30 31  00 b7 3f d2 a0 4c 44 41  |TA $4101..?..LDA|
000037b0  20 23 24 31 44 00 c5 3f  dc a0 53 54 41 20 24 34  | #$1D..?..STA $4|
000037c0  31 30 30 00 d6 3f e6 a0  4a 53 52 20 53 55 42 54  |100..?..JSR SUBT|
000037d0  52 41 43 54 00 e3 3f f0  a0 51 55 49 54 20 52 54  |RACT..?..QUIT RT|
000037e0  53 00 f8 3f fa a0 44 4d  4c 4f 50 42 20 4a 4d 50  |S..?..DMLOPB JMP|
000037f0  20 44 4d 4c 4f 50 00 0f  40 04 a1 a2 44 49 47 49  | DMLOP..@...DIGI|
00003800  54 42 20 4a 4d 50 20 a2  44 49 47 49 54 00 22 40  |TB JMP .DIGIT."@|
00003810  22 a1 4d 53 55 50 20 4c  44 41 20 24 34 31 30 30  |".MSUP LDA $4100|
00003820  00 2c 40 2c a1 41 53 4c  20 41 00 36 40 36 a1 41  |.,@,.ASL A.6@6.A|
00003830  53 4c 20 41 00 40 40 40  a1 41 53 4c 20 41 00 48  |SL A.@@@.ASL A.H|
00003840  40 4a a1 54 41 58 00 50  40 54 a1 44 45 58 00 5c  |@J.TAX.P@T.DEX.\|
00003850  40 5e a1 53 54 58 20 24  46 42 00 6a 40 68 a1 4c  |@^.STX $FB.j@h.L|
00003860  44 41 20 24 34 31 30 31  00 74 40 72 a1 41 53 4c  |DA $4101.t@r.ASL|
00003870  20 41 00 7e 40 7c a1 41  53 4c 20 41 00 88 40 86  | A.~@|.ASL A..@.|
00003880  a1 41 53 4c 20 41 00 90  40 90 a1 54 41 58 00 98  |.ASL A..@..TAX..|
00003890  40 9a a1 44 45 58 00 a4  40 a4 a1 53 54 58 20 24  |@..DEX..@..STX $|
000038a0  46 44 00 b2 40 ae a1 4c  44 41 20 24 34 31 30 32  |FD..@..LDA $4102|
000038b0  00 bc 40 b8 a1 41 53 4c  20 41 00 c6 40 c2 a1 41  |..@..ASL A..@..A|
000038c0  53 4c 20 41 00 d0 40 cc  a1 41 53 4c 20 41 00 d8  |SL A..@..ASL A..|
000038d0  40 d6 a1 54 41 58 00 e0  40 e0 a1 44 45 58 00 ec  |@..TAX..@..DEX..|
000038e0  40 ea a1 53 54 58 20 24  32 32 00 f9 40 f4 a1 4c  |@..STX $22..@..L|
000038f0  44 41 20 23 24 34 30 00  05 41 fe a1 53 54 41 20  |DA #$40..A..STA |
00003900  24 46 43 00 11 41 08 a2  53 54 41 20 24 46 45 00  |$FC..A..STA $FE.|
00003910  1d 41 12 a2 53 54 41 20  24 32 33 00 25 41 1c a2  |.A..STA $23.%A..|
00003920  52 54 53 00 38 41 26 a2  45 51 55 41 4c 20 4a 53  |RTS.8A&.EQUAL JS|
00003930  52 20 4d 53 55 50 00 45  41 30 a2 4c 44 59 20 23  |R MSUP.EA0.LDY #|
00003940  24 30 38 00 5a 41 3a a2  45 4c 4f 50 20 4c 44 41  |$08.ZA:.ELOP LDA|
00003950  20 28 24 46 42 29 2c 59  00 6a 41 44 a2 53 54 41  | ($FB),Y.jAD.STA|
00003960  20 28 24 32 32 29 2c 59  00 72 41 4e a2 44 45 59  | ($22),Y.rAN.DEY|
00003970  00 7f 41 58 a2 42 4e 45  20 45 4c 4f 50 00 87 41  |..AX.BNE ELOP..A|
00003980  62 a2 52 54 53 00 9c 41  6c a2 41 44 44 49 54 49  |b.RTS..Al.ADDITI|
00003990  91 20 4a 53 52 20 4d 53  55 50 00 a9 41 76 a2 4c  |. JSR MSUP..Av.L|
000039a0  44 59 20 23 24 30 38 00  b1 41 80 a2 53 45 44 00  |DY #$08..A..SED.|
000039b0  b9 41 8a a2 43 4c 43 00  cf 41 94 a2 41 44 4c 4f  |.A..CLC..A..ADLO|
000039c0  50 20 4c 44 41 20 28 24  46 42 29 2c 59 00 df 41  |P LDA ($FB),Y..A|
000039d0  9e a2 41 44 43 20 28 24  46 44 29 2c 59 00 ef 41  |..ADC ($FD),Y..A|
000039e0  a8 a2 53 54 41 20 28 24  32 32 29 2c 59 00 f7 41  |..STA ($22),Y..A|
000039f0  b2 a2 44 45 59 00 05 42  bc a2 42 4e 45 20 41 44  |..DEY..B..BNE AD|
00003a00  4c 4f 50 00 0d 42 c6 a2  43 4c 44 00 15 42 d0 a2  |LOP..B..CLD..B..|
00003a10  52 54 53 00 2b 42 da a2  53 55 42 54 52 41 43 54  |RTS.+B..SUBTRACT|
00003a20  20 4a 53 52 20 4d 53 55  50 00 38 42 e4 a2 4c 44  | JSR MSUP.8B..LD|
00003a30  59 20 23 24 30 38 00 40  42 ee a2 53 45 44 00 48  |Y #$08.@B..SED.H|
00003a40  42 f8 a2 53 45 43 00 5e  42 02 a3 53 55 4c 4f 50  |B..SEC.^B..SULOP|
00003a50  20 4c 44 41 20 28 24 46  42 29 2c 59 00 6e 42 0c  | LDA ($FB),Y.nB.|
00003a60  a3 53 42 43 20 28 24 46  44 29 2c 59 00 7e 42 16  |.SBC ($FD),Y.~B.|
00003a70  a3 53 54 41 20 28 24 32  32 29 2c 59 00 86 42 20  |.STA ($22),Y..B |
00003a80  a3 44 45 59 00 94 42 2a  a3 42 4e 45 20 53 55 4c  |.DEY..B*.BNE SUL|
00003a90  4f 50 00 9c 42 34 a3 43  4c 44 00 a4 42 3e a3 52  |OP..B4.CLD..B>.R|
00003aa0  54 53 00 ba 42 48 a3 4e  45 47 41 54 49 56 45 20  |TS..BH.NEGATIVE |
00003ab0  4c 44 41 20 23 24 30 30  00 c2 42 52 a3 50 48 41  |LDA #$00..BR.PHA|
00003ac0  00 d0 42 5c a3 4c 44 41  20 24 34 31 30 30 00 d8  |..B\.LDA $4100..|
00003ad0  42 66 a3 54 41 59 00 e2  42 70 a3 41 53 4c 20 41  |Bf.TAY..Bp.ASL A|
00003ae0  00 ec 42 7a a3 41 53 4c  20 41 00 f6 42 84 a3 41  |..Bz.ASL A..B..A|
00003af0  53 4c 20 41 00 fe 42 8e  a3 54 41 58 00 0e 43 98  |SL A..B..TAX..C.|
00003b00  a3 4c 44 41 20 24 34 30  30 31 2c 58 00 1b 43 a2  |.LDA $4001,X..C.|
00003b10  a3 43 4d 50 20 23 24 35  30 00 2e 43 a7 a3 42 43  |.CMP #$50..C..BC|
00003b20  43 20 4e 45 47 52 4d 4f  56 45 41 42 00 36 43 ac  |C NEGRMOVEAB.6C.|
00003b30  a3 50 4c 41 00 43 43 b6  a3 41 44 43 20 23 24 30  |.PLA.CC..ADC #$0|
00003b40  30 00 4b 43 c0 a3 50 48  41 00 5d 43 ca a3 4a 4d  |0.KC..PHA.]C..JM|
00003b50  50 20 4e 45 47 52 4d 4f  56 45 41 00 76 43 d4 a3  |P NEGRMOVEA.vC..|
00003b60  4e 45 47 52 4d 4f 56 45  41 42 20 4c 44 41 20 24  |NEGRMOVEAB LDA $|
00003b70  34 31 30 31 00 7e 43 de  a3 54 41 59 00 88 43 e8  |4101.~C..TAY..C.|
00003b80  a3 41 53 4c 20 41 00 92  43 f2 a3 41 53 4c 20 41  |.ASL A..C..ASL A|
00003b90  00 9c 43 fc a3 41 53 4c  20 41 00 a4 43 06 a4 54  |..C..ASL A..C..T|
00003ba0  41 58 00 b4 43 10 a4 4c  44 41 20 24 34 30 30 31  |AX..C..LDA $4001|
00003bb0  2c 58 00 c1 43 1a a4 43  4d 50 20 23 24 35 30 00  |,X..C..CMP #$50.|
00003bc0  c9 43 24 a4 50 4c 41 00  d6 43 2e a4 42 43 43 20  |.C$.PLA..C..BCC |
00003bd0  4e 4f 45 b0 00 e2 43 38  a4 45 b0 20 23 24 30 31  |NOE...C8.E. #$01|
00003be0  00 ea 43 42 a4 50 48 41  00 fc 43 4c a4 42 43 53  |..CB.PHA..CL.BCS|
00003bf0  20 4e 45 47 52 4d 4f 56  45 42 00 0f 44 56 a4 4e  | NEGRMOVEB..DV.N|
00003c00  45 47 52 4d 4f 56 45 42  42 20 50 4c 41 00 21 44  |EGRMOVEBB PLA.!D|
00003c10  60 a4 4e 4f 45 b0 20 53  54 41 20 59 50 49 42 00  |`.NOE. STA YPIB.|
00003c20  29 44 6a a4 52 54 53 00  40 44 74 a4 4e 45 47 52  |)Dj.RTS.@Dt.NEGR|
00003c30  4d 4f 56 45 20 4c 44 41  20 24 34 31 30 30 00 48  |MOVE LDA $4100.H|
00003c40  44 7e a4 50 48 41 00 56  44 88 a4 4c 44 41 20 24  |D~.PHA.VD..LDA $|
00003c50  34 31 30 31 00 5e 44 92  a4 50 48 41 00 6c 44 9c  |4101.^D..PHA.lD.|
00003c60  a4 4c 44 41 20 24 34 31  30 32 00 74 44 a6 a4 50  |.LDA $4102.tD..P|
00003c70  48 41 00 7c 44 b0 a4 54  59 41 00 8a 44 ba a4 53  |HA.|D..TYA..D..S|
00003c80  54 41 20 24 34 31 30 31  00 98 44 c4 a4 53 54 41  |TA $4101..D..STA|
00003c90  20 24 34 31 30 32 00 a5  44 ce a4 4c 44 41 20 23  | $4102..D..LDA #|
00003ca0  24 31 44 00 b3 44 d8 a4  53 54 41 20 24 34 31 30  |$1D..D..STA $410|
00003cb0  30 00 c4 44 e2 a4 4a 53  52 20 53 55 42 54 52 41  |0..D..JSR SUBTRA|
00003cc0  43 54 00 cc 44 ec a4 50  4c 41 00 da 44 f6 a4 53  |CT..D..PLA..D..S|
00003cd0  54 41 20 24 34 31 30 32  00 e2 44 00 a5 50 4c 41  |TA $4102..D..PLA|
00003ce0  00 f0 44 0a a5 53 54 41  20 24 34 31 30 31 00 f8  |..D..STA $4101..|
00003cf0  44 14 a5 50 4c 41 00 06  45 1e a5 53 54 41 20 24  |D..PLA..E..STA $|
00003d00  34 31 30 30 00 0e 45 28  a5 52 54 53 00 29 45 32  |4100..E(.RTS.)E2|
00003d10  a5 4e 45 47 52 4d 4f 56  45 41 20 4a 53 52 20 4e  |.NEGRMOVEA JSR N|
00003d20  45 47 52 4d 4f 56 45 00  3c 45 3c a5 4a 4d 50 20  |EGRMOVE.<E<.JMP |
00003d30  4e 45 47 52 4d 4f 56 45  41 42 00 57 45 46 a5 4e  |NEGRMOVEAB.WEF.N|
00003d40  45 47 52 4d 4f 56 45 42  20 4a 53 52 20 4e 45 47  |EGRMOVEB JSR NEG|
00003d50  52 4d 4f 56 45 00 6a 45  50 a5 4a 4d 50 20 4e 45  |RMOVE.jEP.JMP NE|
00003d60  47 52 4d 4f 56 45 42 42  00 81 45 5a a5 4d 55 4c  |GRMOVEBB..EZ.MUL|
00003d70  54 49 50 4c 59 20 4c 44  41 20 24 34 31 30 32 00  |TIPLY LDA $4102.|
00003d80  89 45 64 a5 50 48 41 00  97 45 6e a5 4c 44 41 20  |.Ed.PHA..En.LDA |
00003d90  24 34 31 30 31 00 9f 45  78 a5 50 48 41 00 ac 45  |$4101..Ex.PHA..E|
00003da0  82 a5 4c 44 41 20 23 24  31 38 00 ba 45 8c a5 53  |..LDA #$18..E..S|
00003db0  54 41 20 24 34 31 30 32  00 c8 45 96 a5 4a 53 52  |TA $4102..E..JSR|
00003dc0  20 45 51 55 41 4c 00 d6  45 a0 a5 49 4e 43 20 24  | EQUAL..E..INC $|
00003dd0  34 31 30 32 00 de 45 aa  a5 50 4c 41 00 ec 45 b4  |4102..E..PLA..E.|
00003de0  a5 53 54 41 20 24 34 31  30 30 00 fa 45 be a5 4a  |.STA $4100..E..J|
00003df0  53 52 20 45 51 55 41 4c  00 07 46 c8 a5 4c 44 41  |SR EQUAL..F..LDA|
00003e00  20 23 24 31 38 00 15 46  d2 a5 53 54 41 20 24 34  | #$18..F..STA $4|
00003e10  31 30 30 00 22 46 dc a5  4c 44 41 20 23 24 31 39  |100."F..LDA #$19|
00003e20  00 30 46 e6 a5 53 54 41  20 24 34 31 30 31 00 38  |.0F..STA $4101.8|
00003e30  46 f0 a5 50 4c 41 00 46  46 fa a5 53 54 41 20 24  |F..PLA.FF..STA $|
00003e40  34 31 30 32 00 58 46 04  a6 4a 4d 50 20 4d 55 4c  |4102.XF..JMP MUL|
00003e50  54 49 50 4c 59 42 00 7e  46 c8 af 3b 20 20 20 20  |TIPLYB.~F..;    |
00003e60  20 20 20 20 20 20 20 4d  55 4c 54 49 50 4c 49 43  |       MULTIPLIC|
00003e70  41 54 49 4f 4e 20 54 41  42 4c 45 53 00 84 46 ca  |ATION TABLES..F.|
00003e80  af 3b 00 af 46 cc af 4d  d4 20 54 58 54 20 30 2c  |.;..F..M. TXT 0,|
00003e90  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003ea0  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 00 d7 46  |0,0,0,0,0,0,0..F|
00003eb0  ce af 54 58 54 20 30 2c  31 2c 32 2c 33 2c 34 2c  |..TXT 0,1,2,3,4,|
00003ec0  35 2c 36 2c 37 2c 38 2c  39 2c 30 2c 30 2c 30 2c  |5,6,7,8,9,0,0,0,|
00003ed0  30 2c 30 2c 30 00 09 47  d0 af 54 58 54 20 30 2c  |0,0,0..G..TXT 0,|
00003ee0  32 2c 34 2c 36 2c 38 2c  24 31 30 2c 24 31 32 2c  |2,4,6,8,$10,$12,|
00003ef0  24 31 34 2c 24 31 36 2c  24 31 38 2c 30 2c 30 2c  |$14,$16,$18,0,0,|
00003f00  30 2c 30 2c 30 2c 30 00  3d 47 d2 af 54 58 54 20  |0,0,0,0.=G..TXT |
00003f10  30 2c 33 2c 36 2c 39 2c  24 31 32 2c 24 31 35 2c  |0,3,6,9,$12,$15,|
00003f20  24 31 38 2c 24 32 31 2c  24 32 34 2c 24 32 37 2c  |$18,$21,$24,$27,|
00003f30  30 2c 30 2c 30 2c 30 2c  30 2c 30 00 73 47 d4 af  |0,0,0,0,0,0.sG..|
00003f40  54 58 54 20 30 2c 34 2c  38 2c 24 31 32 2c 24 31  |TXT 0,4,8,$12,$1|
00003f50  36 2c 24 32 30 2c 24 32  34 2c 24 32 38 2c 24 33  |6,$20,$24,$28,$3|
00003f60  32 2c 24 33 36 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |2,$36,0,0,0,0,0,|
00003f70  30 00 ab 47 d6 af 54 58  54 20 30 2c 35 2c 24 31  |0..G..TXT 0,5,$1|
00003f80  30 2c 24 31 35 2c 24 32  30 2c 24 32 35 2c 24 33  |0,$15,$20,$25,$3|
00003f90  30 2c 24 33 35 2c 24 34  30 2c 24 34 35 2c 30 2c  |0,$35,$40,$45,0,|
00003fa0  30 2c 30 2c 30 2c 30 2c  30 00 e3 47 d8 af 54 58  |0,0,0,0,0..G..TX|
00003fb0  54 20 30 2c 36 2c 24 31  32 2c 24 31 38 2c 24 32  |T 0,6,$12,$18,$2|
00003fc0  34 2c 24 33 30 2c 24 33  36 2c 24 34 32 2c 24 34  |4,$30,$36,$42,$4|
00003fd0  38 2c 24 35 34 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |8,$54,0,0,0,0,0,|
00003fe0  30 00 1b 48 da af 54 58  54 20 30 2c 37 2c 24 31  |0..H..TXT 0,7,$1|
00003ff0  34 2c 24 32 31 2c 24 32  38 2c 24 33 35 2c 24 34  |4,$21,$28,$35,$4|
00004000  32 2c 24 34 39 2c 24 35  36 2c 24 36 33 2c 30 2c  |2,$49,$56,$63,0,|
00004010  30 2c 30 2c 30 2c 30 2c  30 00 53 48 dc af 54 58  |0,0,0,0,0.SH..TX|
00004020  54 20 30 2c 38 2c 24 31  36 2c 24 32 34 2c 24 33  |T 0,8,$16,$24,$3|
00004030  32 2c 24 34 30 2c 24 34  38 2c 24 35 36 2c 24 36  |2,$40,$48,$56,$6|
00004040  34 2c 24 37 32 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |4,$72,0,0,0,0,0,|
00004050  30 00 8b 48 de af 54 58  54 20 30 2c 39 2c 24 31  |0..H..TXT 0,9,$1|
00004060  38 2c 24 32 37 2c 24 33  36 2c 24 34 35 2c 24 35  |8,$27,$36,$45,$5|
00004070  34 2c 24 36 33 2c 24 37  32 2c 24 38 31 2c 30 2c  |4,$63,$72,$81,0,|
00004080  30 2c 30 2c 30 2c 30 2c  30 00 af 48 50 c3 3b 20  |0,0,0,0,0..HP.; |
00004090  20 20 20 20 20 20 20 20  20 20 47 52 41 50 48 49  |          GRAPHI|
000040a0  43 20 50 4f b5 20 50 4c  4f 54 54 45 52 00 c3 48  |C PO. PLOTTER..H|
000040b0  5a c3 50 4c 4f 54 50 43  20 4c 44 41 20 23 24 34  |Z.PLOTPC LDA #$4|
000040c0  37 00 cf 48 64 c3 53 54  41 20 24 46 42 00 dc 48  |7..Hd.STA $FB..H|
000040d0  6e c3 4c 44 41 20 23 24  33 46 00 e8 48 78 c3 53  |n.LDA #$3F..Hx.S|
000040e0  54 41 20 24 46 43 00 f7  48 82 c3 4c 44 41 20 59  |TA $FC..H..LDA Y|
000040f0  50 49 58 45 4c 00 01 49  8c c3 4c 53 52 20 41 00  |PIXEL..I..LSR A.|
00004100  0b 49 96 c3 4c 53 52 20  41 00 15 49 a0 c3 4c 53  |.I..LSR A..I..LS|
00004110  52 20 41 00 22 49 aa c3  53 54 41 20 59 50 49 42  |R A."I..STA YPIB|
00004120  00 2d 49 b4 c3 af 20 23  24 30 33 00 37 49 be c3  |.-I... #$03.7I..|
00004130  41 53 4c 20 41 00 41 49  c8 c3 41 53 4c 20 41 00  |ASL A.AI..ASL A.|
00004140  4b 49 d2 c3 41 53 4c 20  41 00 55 49 dc c3 41 53  |KI..ASL A.UI..AS|
00004150  4c 20 41 00 5f 49 e6 c3  41 53 4c 20 41 00 69 49  |L A._I..ASL A.iI|
00004160  f0 c3 41 53 4c 20 41 00  75 49 fa c3 53 54 41 20  |..ASL A.uI..STA |
00004170  24 30 32 00 81 49 04 c4  4c 44 41 20 24 46 42 00  |$02..I..LDA $FB.|
00004180  89 49 0e c4 53 45 43 00  95 49 18 c4 53 42 43 20  |.I..SEC..I..SBC |
00004190  24 30 32 00 a1 49 22 c4  53 54 41 20 24 46 42 00  |$02..I".STA $FB.|
000041a0  ad 49 2c c4 4c 44 41 20  24 46 43 00 ba 49 36 c4  |.I,.LDA $FC..I6.|
000041b0  53 42 43 20 23 24 30 30  00 c7 49 3b c4 53 42 43  |SBC #$00..I;.SBC|
000041c0  20 59 50 49 42 00 cf 49  40 c4 50 48 41 00 dc 49  | YPIB..I@.PHA..I|
000041d0  4a c4 4c 44 41 20 59 50  49 42 00 e6 49 54 c4 4c  |J.LDA YPIB..IT.L|
000041e0  53 52 20 41 00 f0 49 5e  c4 4c 53 52 20 41 00 fc  |SR A..I^.LSR A..|
000041f0  49 68 c4 53 54 41 20 24  30 32 00 04 4a 72 c4 50  |Ih.STA $02..Jr.P|
00004200  4c 41 00 0c 4a 7c c4 53  45 43 00 18 4a 86 c4 53  |LA..J|.SEC..J..S|
00004210  42 43 20 24 30 32 00 24  4a 90 c4 53 54 41 20 24  |BC $02.$J..STA $|
00004220  46 43 00 33 4a 9a c4 4c  44 41 20 59 50 49 58 45  |FC.3J..LDA YPIXE|
00004230  4c 00 3e 4a a4 c4 af 20  23 24 30 37 00 4b 4a ae  |L.>J... #$07.KJ.|
00004240  c4 53 54 41 20 59 50 49  42 00 57 4a b8 c4 4c 44  |.STA YPIB.WJ..LD|
00004250  41 20 24 46 42 00 5f 4a  c2 c4 53 45 43 00 6c 4a  |A $FB._J..SEC.lJ|
00004260  cc c4 53 42 43 20 59 50  49 42 00 74 4a d6 c4 50  |..SBC YPIB.tJ..P|
00004270  48 41 00 83 4a e0 c4 4c  44 41 20 58 50 49 58 45  |HA..J..LDA XPIXE|
00004280  4c 00 8e 4a ea c4 af 20  23 24 46 38 00 9b 4a f4  |L..J... #$F8..J.|
00004290  c4 53 54 41 20 59 50 49  42 00 a3 4a fe c4 50 4c  |.STA YPIB..J..PL|
000042a0  41 00 ab 4a 08 c5 43 4c  43 00 b8 4a 12 c5 41 44  |A..J..CLC..J..AD|
000042b0  43 20 59 50 49 42 00 c4  4a 1c c5 53 54 41 20 24  |C YPIB..J..STA $|
000042c0  46 42 00 d0 4a 26 c5 4c  44 41 20 24 46 43 00 dd  |FB..J&.LDA $FC..|
000042d0  4a 30 c5 53 42 43 20 23  24 30 30 00 e9 4a 3a c5  |J0.SBC #$00..J:.|
000042e0  53 54 41 20 24 46 43 00  f8 4a 44 c5 4c 44 41 20  |STA $FC..JD.LDA |
000042f0  58 50 49 58 45 4c 00 03  4b 4e c5 af 20 23 24 30  |XPIXEL..KN.. #$0|
00004300  37 00 0b 4b 58 c5 54 41  58 00 18 4b 62 c5 4c 44  |7..KX.TAX..Kb.LD|
00004310  41 20 23 24 38 30 00 2c  4b 6c c5 47 42 49 54 4c  |A #$80.,Kl.GBITL|
00004320  50 20 43 50 58 20 23 24  30 30 00 38 4b 76 c5 42  |P CPX #$00.8Kv.B|
00004330  45 51 20 50 50 9a 00 42  4b 80 c5 4c 53 52 20 41  |EQ PP..BK..LSR A|
00004340  00 4a 4b 8a c5 44 45 58  00 59 4b 94 c5 4a 4d 50  |.JK..DEX.YK..JMP|
00004350  20 47 42 49 54 4c 50 00  69 4b 9e c5 50 50 9a 20  | GBITLP.iK..PP. |
00004360  53 54 41 20 24 46 44 00  71 4b a8 c5 52 54 53 00  |STA $FD.qK..RTS.|
00004370  86 4b b2 c5 50 4c 4f a4  4e 20 4a 53 52 20 50 4c  |.K..PLO.N JSR PL|
00004380  4f 54 50 43 00 93 4b bc  c5 4c 44 59 20 23 24 30  |OTPC..K..LDY #$0|
00004390  30 00 a3 4b c6 c5 4c 44  41 20 28 24 46 42 29 2c  |0..K..LDA ($FB),|
000043a0  59 00 ae 4b d0 c5 b0 41  20 24 46 44 00 be 4b da  |Y..K...A $FD..K.|
000043b0  c5 53 54 41 20 28 24 46  42 29 2c 59 00 c6 4b e4  |.STA ($FB),Y..K.|
000043c0  c5 52 54 53 00 dc 4b ee  c5 50 4c 4f a4 46 46 20  |.RTS..K..PLO.FF |
000043d0  4a 53 52 20 50 4c 4f 54  50 43 00 e8 4b f8 c5 4c  |JSR PLOTPC..K..L|
000043e0  44 41 20 24 46 44 00 f4  4b 02 c6 45 b0 20 23 24  |DA $FD..K..E. #$|
000043f0  46 46 00 00 4c 0c c6 53  54 41 20 24 46 44 00 0d  |FF..L..STA $FD..|
00004400  4c 16 c6 4c 44 59 20 23  24 30 30 00 1d 4c 20 c6  |L..LDY #$00..L .|
00004410  4c 44 41 20 28 24 46 42  29 2c 59 00 27 4c 2a c6  |LDA ($FB),Y.'L*.|
00004420  af 20 24 46 44 00 37 4c  34 c6 53 54 41 20 28 24  |. $FD.7L4.STA ($|
00004430  46 42 29 2c 59 00 3f 4c  3e c6 52 54 53 00 53 4c  |FB),Y.?L>.RTS.SL|
00004440  48 c6 50 4c 4f 54 20 4c  44 41 20 43 4f 4c 4f 55  |H.PLOT LDA COLOU|
00004450  52 00 5e 4c 52 c6 af 20  23 24 30 32 00 6b 4c 5c  |R.^LR.. #$02.kL\|
00004460  c6 42 4e 45 20 50 50 41  91 00 7a 4c 66 c6 4a 53  |.BNE PPA..zLf.JS|
00004470  52 20 50 4c 4f a4 46 46  00 89 4c 70 c6 4a 4d 50  |R PLO.FF..Lp.JMP|
00004480  20 50 50 41 43 4e 54 00  9c 4c 7a c6 50 50 41 91  | PPACNT..Lz.PPA.|
00004490  20 4a 53 52 20 50 4c 4f  a4 4e 00 b2 4c 84 c6 50  | JSR PLO.N..L..P|
000044a0  50 41 43 4e 54 20 49 4e  43 20 58 50 49 58 45 4c  |PACNT INC XPIXEL|
000044b0  00 c1 4c 8e c6 4c 44 41  20 43 4f 4c 4f 55 52 00  |..L..LDA COLOUR.|
000044c0  cc 4c 98 c6 af 20 23 24  30 31 00 d9 4c a2 c6 42  |.L... #$01..L..B|
000044d0  4e 45 20 50 50 42 91 00  e8 4c ac c6 4a 53 52 20  |NE PPB...L..JSR |
000044e0  50 4c 4f a4 46 46 00 f7  4c b6 c6 4a 4d 50 20 50  |PLO.FF..L..JMP P|
000044f0  50 42 43 4e 54 00 0a 4d  c0 c6 50 50 42 91 20 4a  |PBCNT..M..PPB. J|
00004500  53 52 20 50 4c 4f a4 4e  00 20 4d ca c6 50 50 42  |SR PLO.N. M..PPB|
00004510  43 4e 54 20 49 4e 43 20  58 50 49 58 45 4c 00 28  |CNT INC XPIXEL.(|
00004520  4d d4 c6 52 54 53 00 4d  4d d8 d6 3b 20 20 20 20  |M..RTS.MM..;    |
00004530  20 20 20 5a 4f 4f 4d 20  43 41 4c 43 55 4c 41 54  |   ZOOM CALCULAT|
00004540  49 91 20 52 4f 55 54 49  4e 45 53 00 63 4d e2 d6  |I. ROUTINES.cM..|
00004550  4e 4f 5a 4f 4f 4d 20 4a  4d 50 20 9a 52 4f 4c 4f  |NOZOOM JMP .ROLO|
00004560  50 00 78 4d ec d6 5a 4f  4f 4d 49 4e 20 4c 44 41  |P.xM..ZOOMIN LDA|
00004570  20 24 44 30 31 35 00 83  4d f6 d6 af 20 23 24 46  | $D015..M... #$F|
00004580  30 00 90 4d 00 d7 43 4d  50 20 23 24 46 30 00 9f  |0..M..CMP #$F0..|
00004590  4d 0a d7 42 4e 45 20 4e  4f 5a 4f 4f 4d 00 ac 4d  |M..BNE NOZOOM..M|
000045a0  14 d7 4c 44 41 20 23 24  31 45 00 ba 4d 1e d7 53  |..LDA #$1E..M..S|
000045b0  54 41 20 24 34 31 30 30  00 c7 4d 28 d7 4c 44 41  |TA $4100..M(.LDA|
000045c0  20 23 24 30 31 00 d5 4d  32 d7 53 54 41 20 24 34  | #$01..M2.STA $4|
000045d0  31 30 31 00 e2 4d 3c d7  4c 44 41 20 23 24 31 30  |101..M<.LDA #$10|
000045e0  00 f0 4d 46 d7 53 54 41  20 24 34 31 30 32 00 01  |..MF.STA $4102..|
000045f0  4e 50 d7 4a 53 52 20 53  55 42 54 52 41 43 54 00  |NP.JSR SUBTRACT.|
00004600  0e 4e 5a d7 4c 44 41 20  23 24 30 31 00 1c 4e 64  |.NZ.LDA #$01..Nd|
00004610  d7 53 54 41 20 24 34 31  30 30 00 2a 4e 6e d7 49  |.STA $4100.*Nn.I|
00004620  4e 43 20 24 34 31 30 32  00 38 4e 78 d7 4a 53 52  |NC $4102.8Nx.JSR|
00004630  20 45 51 55 41 4c 00 45  4e 82 d7 4c 44 41 20 23  | EQUAL.EN..LDA #|
00004640  24 31 30 00 53 4e 8c d7  53 54 41 20 24 34 31 30  |$10.SN..STA $410|
00004650  30 00 60 4e 96 d7 4c 44  41 20 23 24 31 42 00 6e  |0.`N..LDA #$1B.n|
00004660  4e a0 d7 53 54 41 20 24  34 31 30 31 00 7b 4e aa  |N..STA $4101.{N.|
00004670  d7 4c 44 41 20 23 24 31  32 00 89 4e b4 d7 53 54  |.LDA #$12..N..ST|
00004680  41 20 24 34 31 30 32 00  9a 4e be d7 4a 53 52 20  |A $4102..N..JSR |
00004690  4d 55 4c 54 49 50 4c 59  00 a7 4e c8 d7 4c 44 41  |MULTIPLY..N..LDA|
000046a0  20 23 24 31 31 00 b5 4e  d2 d7 53 54 41 20 24 34  | #$11..N..STA $4|
000046b0  31 30 30 00 c3 4e dc d7  53 54 41 20 24 34 31 30  |100..N..STA $410|
000046c0  32 00 d0 4e e6 d7 4c 44  41 20 23 24 31 32 00 de  |2..N..LDA #$12..|
000046d0  4e f0 d7 53 54 41 20 24  34 31 30 31 00 ec 4e fa  |N..STA $4101..N.|
000046e0  d7 4c 44 41 20 24 44 30  30 38 00 f4 4e 04 d8 53  |.LDA $D008..N..S|
000046f0  45 43 00 01 4f 0e d8 53  42 43 20 23 24 35 38 00  |EC..O..SBC #$58.|
00004700  19 4f 18 d8 43 41 4c 43  49 4e 4c 4f 50 41 20 43  |.O..CALCINLOPA C|
00004710  4d 50 20 23 24 30 30 00  29 4f 22 d8 42 45 51 20  |MP #$00.)O".BEQ |
00004720  43 41 4c 43 80 49 41 00  31 4f 2c d8 50 48 41 00  |CALC.IA.1O,.PHA.|
00004730  41 4f 36 d8 4a 53 52 20  41 44 44 49 54 49 91 00  |AO6.JSR ADDITI..|
00004740  49 4f 40 d8 50 4c 41 00  51 4f 4a d8 54 41 58 00  |IO@.PLA.QOJ.TAX.|
00004750  59 4f 54 d8 44 45 58 00  61 4f 5e d8 54 58 41 00  |YOT.DEX.aO^.TXA.|
00004760  74 4f 68 d8 4a 4d 50 20  43 41 4c 43 49 4e 4c 4f  |tOh.JMP CALCINLO|
00004770  50 41 00 89 4f 72 d8 43  41 4c 43 80 49 41 20 4c  |PA..Or.CALC.IA L|
00004780  44 41 20 23 24 30 31 00  97 4f 7c d8 53 54 41 20  |DA #$01..O|.STA |
00004790  24 34 31 30 30 00 a4 4f  86 d8 4c 44 41 20 23 24  |$4100..O..LDA #$|
000047a0  31 33 00 b2 4f 90 d8 53  54 41 20 24 34 31 30 32  |13..O..STA $4102|
000047b0  00 c0 4f 9a d8 4a 53 52  20 45 51 55 41 4c 00 cd  |..O..JSR EQUAL..|
000047c0  4f a4 d8 4c 44 41 20 23  24 31 33 00 db 4f ae d8  |O..LDA #$13..O..|
000047d0  53 54 41 20 24 34 31 30  30 00 e9 4f b8 d8 53 54  |STA $4100..O..ST|
000047e0  41 20 24 34 31 30 32 00  f6 4f c2 d8 4c 44 41 20  |A $4102..O..LDA |
000047f0  23 24 31 32 00 04 50 cc  d8 53 54 41 20 24 34 31  |#$12..P..STA $41|
00004800  30 31 00 12 50 d6 d8 4c  44 41 20 24 44 30 30 41  |01..P..LDA $D00A|
00004810  00 1a 50 e0 d8 53 45 43  00 27 50 ea d8 53 42 43  |..P..SEC.'P..SBC|
00004820  20 23 24 34 30 00 3f 50  f4 d8 43 41 4c 43 49 4e  | #$40.?P..CALCIN|
00004830  4c 4f 50 42 20 43 4d 50  20 23 24 30 30 00 4f 50  |LOPB CMP #$00.OP|
00004840  fe d8 42 45 51 20 43 41  4c 43 80 49 42 00 57 50  |..BEQ CALC.IB.WP|
00004850  08 d9 50 48 41 00 67 50  12 d9 4a 53 52 20 41 44  |..PHA.gP..JSR AD|
00004860  44 49 54 49 91 00 6f 50  1c d9 50 4c 41 00 77 50  |DITI..oP..PLA.wP|
00004870  26 d9 54 41 58 00 7f 50  30 d9 44 45 58 00 87 50  |&.TAX..P0.DEX..P|
00004880  3a d9 54 58 41 00 9a 50  44 d9 4a 4d 50 20 43 41  |:.TXA..PD.JMP CA|
00004890  4c 43 49 4e 4c 4f 50 42  00 af 50 4e d9 43 41 4c  |LCINLOPB..PN.CAL|
000048a0  43 80 49 42 20 4c 44 41  20 23 24 31 31 00 bd 50  |C.IB LDA #$11..P|
000048b0  58 d9 53 54 41 20 24 34  31 30 30 00 ca 50 62 d9  |X.STA $4100..Pb.|
000048c0  4c 44 41 20 23 24 30 31  00 d8 50 6c d9 53 54 41  |LDA #$01..Pl.STA|
000048d0  20 24 34 31 30 32 00 e6  50 76 d9 4a 53 52 20 45  | $4102..Pv.JSR E|
000048e0  51 55 41 4c 00 f3 50 80  d9 4c 44 41 20 23 24 31  |QUAL..P..LDA #$1|
000048f0  33 00 01 51 8a d9 53 54  41 20 24 34 31 30 30 00  |3..Q..STA $4100.|
00004900  0e 51 94 d9 4c 44 41 20  23 24 31 45 00 1c 51 9e  |.Q..LDA #$1E..Q.|
00004910  d9 53 54 41 20 24 34 31  30 32 00 2a 51 a8 d9 4a  |.STA $4102.*Q..J|
00004920  53 52 20 45 51 55 41 4c  00 37 51 b2 d9 4c 44 41  |SR EQUAL.7Q..LDA|
00004930  20 23 24 31 46 00 45 51  bc d9 53 54 41 20 24 34  | #$1F.EQ..STA $4|
00004940  31 30 30 00 52 51 c6 d9  4c 44 41 20 23 24 30 33  |100.RQ..LDA #$03|
00004950  00 60 51 d0 d9 53 54 41  20 24 34 31 30 31 00 6d  |.`Q..STA $4101.m|
00004960  51 da d9 4c 44 41 20 23  24 31 30 00 7b 51 e4 d9  |Q..LDA #$10.{Q..|
00004970  53 54 41 20 24 34 31 30  32 00 8c 51 ee d9 4a 53  |STA $4102..Q..JS|
00004980  52 20 53 55 42 54 52 41  43 54 00 99 51 f8 d9 4c  |R SUBTRACT..Q..L|
00004990  44 41 20 23 24 30 33 00  a7 51 02 da 53 54 41 20  |DA #$03..Q..STA |
000049a0  24 34 31 30 30 00 b5 51  0c da 49 4e 43 20 24 34  |$4100..Q..INC $4|
000049b0  31 30 32 00 c3 51 16 da  4a 53 52 20 45 51 55 41  |102..Q..JSR EQUA|
000049c0  4c 00 d0 51 20 da 4c 44  41 20 23 24 31 30 00 de  |L..Q .LDA #$10..|
000049d0  51 2a da 53 54 41 20 24  34 31 30 30 00 eb 51 34  |Q*.STA $4100..Q4|
000049e0  da 4c 44 41 20 23 24 31  32 00 f9 51 3e da 53 54  |.LDA #$12..Q>.ST|
000049f0  41 20 24 34 31 30 32 00  06 52 48 da 4c 44 41 20  |A $4102..RH.LDA |
00004a00  23 24 31 41 00 14 52 52  da 53 54 41 20 24 34 31  |#$1A..RR.STA $41|
00004a10  30 31 00 25 52 5c da 4a  53 52 20 4d 55 4c 54 49  |01.%R\.JSR MULTI|
00004a20  50 4c 59 00 32 52 66 da  4c 44 41 20 23 24 31 31  |PLY.2Rf.LDA #$11|
00004a30  00 40 52 70 da 53 54 41  20 24 34 31 30 30 00 4e  |.@Rp.STA $4100.N|
00004a40  52 7a da 53 54 41 20 24  34 31 30 32 00 5b 52 84  |Rz.STA $4102.[R.|
00004a50  da 4c 44 41 20 23 24 31  32 00 69 52 8e da 53 54  |.LDA #$12.iR..ST|
00004a60  41 20 24 34 31 30 31 00  76 52 98 da 4c 44 41 20  |A $4101.vR..LDA |
00004a70  23 24 45 35 00 7e 52 a2  da 53 45 43 00 8c 52 ac  |#$E5.~R..SEC..R.|
00004a80  da 53 42 43 20 24 44 30  30 44 00 a2 52 b6 da 43  |.SBC $D00D..R..C|
00004a90  41 4c 43 49 4e 59 41 20  43 4d 50 20 23 24 30 30  |ALCINYA CMP #$00|
00004aa0  00 b2 52 c0 da 42 45 51  20 43 41 4c 43 80 49 43  |..R..BEQ CALC.IC|
00004ab0  00 ba 52 ca da 50 48 41  00 ca 52 d4 da 4a 53 52  |..R..PHA..R..JSR|
00004ac0  20 41 44 44 49 54 49 91  00 d2 52 de da 50 4c 41  | ADDITI...R..PLA|
00004ad0  00 da 52 e8 da 54 41 58  00 e2 52 f2 da 44 45 58  |..R..TAX..R..DEX|
00004ae0  00 ea 52 fc da 54 58 41  00 fb 52 06 db 4a 4d 50  |..R..TXA..R..JMP|
00004af0  20 43 41 4c 43 49 4e 59  41 00 10 53 10 db 43 41  | CALCINYA..S..CA|
00004b00  4c 43 80 49 43 20 4c 44  41 20 23 24 30 33 00 1e  |LC.IC LDA #$03..|
00004b10  53 1a db 53 54 41 20 24  34 31 30 30 00 2b 53 24  |S..STA $4100.+S$|
00004b20  db 4c 44 41 20 23 24 31  33 00 39 53 2e db 53 54  |.LDA #$13.9S..ST|
00004b30  41 20 24 34 31 30 32 00  47 53 38 db 4a 53 52 20  |A $4102.GS8.JSR |
00004b40  45 51 55 41 4c 00 54 53  42 db 4c 44 41 20 23 24  |EQUAL.TSB.LDA #$|
00004b50  31 33 00 62 53 4c db 53  54 41 20 24 34 31 30 30  |13.bSL.STA $4100|
00004b60  00 70 53 56 db 53 54 41  20 24 34 31 30 32 00 7d  |.pSV.STA $4102.}|
00004b70  53 60 db 4c 44 41 20 23  24 31 32 00 8b 53 6a db  |S`.LDA #$12..Sj.|
00004b80  53 54 41 20 24 34 31 30  31 00 98 53 74 db 4c 44  |STA $4101..St.LD|
00004b90  41 20 23 24 46 41 00 a0  53 7e db 53 45 43 00 ae  |A #$FA..S~.SEC..|
00004ba0  53 88 db 53 42 43 20 24  44 30 30 39 00 c4 53 92  |S..SBC $D009..S.|
00004bb0  db 43 41 4c 43 49 4e 59  42 20 43 4d 50 20 23 24  |.CALCINYB CMP #$|
00004bc0  30 30 00 d4 53 9c db 42  45 51 20 43 41 4c 43 80  |00..S..BEQ CALC.|
00004bd0  49 44 00 dc 53 a6 db 50  48 41 00 ec 53 b0 db 4a  |ID..S..PHA..S..J|
00004be0  53 52 20 41 44 44 49 54  49 91 00 f4 53 ba db 50  |SR ADDITI...S..P|
00004bf0  4c 41 00 fc 53 c4 db 54  41 58 00 04 54 ce db 44  |LA..S..TAX..T..D|
00004c00  45 58 00 0c 54 d8 db 54  58 41 00 1d 54 e2 db 4a  |EX..T..TXA..T..J|
00004c10  4d 50 20 43 41 4c 43 49  4e 59 42 00 32 54 ec db  |MP CALCINYB.2T..|
00004c20  43 41 4c 43 80 49 44 20  4c 44 41 20 23 24 31 31  |CALC.ID LDA #$11|
00004c30  00 40 54 f6 db 53 54 41  20 24 34 31 30 30 00 4d  |.@T..STA $4100.M|
00004c40  54 00 dc 4c 44 41 20 23  24 30 33 00 5b 54 0a dc  |T..LDA #$03.[T..|
00004c50  53 54 41 20 24 34 31 30  32 00 69 54 14 dc 4a 53  |STA $4102.iT..JS|
00004c60  52 20 45 51 55 41 4c 00  76 54 1e dc 4c 44 41 20  |R EQUAL.vT..LDA |
00004c70  23 24 31 33 00 84 54 28  dc 53 54 41 20 24 34 31  |#$13..T(.STA $41|
00004c80  30 30 00 91 54 32 dc 4c  44 41 20 23 24 31 46 00  |00..T2.LDA #$1F.|
00004c90  9f 54 3c dc 53 54 41 20  24 34 31 30 32 00 ad 54  |.T<.STA $4102..T|
00004ca0  46 dc 4a 53 52 20 45 51  55 41 4c 00 ba 54 50 dc  |F.JSR EQUAL..TP.|
00004cb0  4c 44 41 20 23 24 31 45  00 c8 54 5a dc 53 54 41  |LDA #$1E..TZ.STA|
00004cc0  20 24 34 31 30 30 00 d5  54 64 dc 4c 44 41 20 23  | $4100..Td.LDA #|
00004cd0  24 30 31 00 e3 54 6e dc  53 54 41 20 24 34 31 30  |$01..Tn.STA $410|
00004ce0  31 00 f0 54 78 dc 4c 44  41 20 23 24 31 30 00 fe  |1..Tx.LDA #$10..|
00004cf0  54 82 dc 53 54 41 20 24  34 31 30 32 00 0f 55 8c  |T..STA $4102..U.|
00004d00  dc 4a 53 52 20 53 55 42  54 52 41 43 54 00 1c 55  |.JSR SUBTRACT..U|
00004d10  96 dc 4c 44 41 20 23 24  31 30 00 2a 55 a0 dc 53  |..LDA #$10.*U..S|
00004d20  54 41 20 24 34 31 30 30  00 37 55 aa dc 4c 44 41  |TA $4100.7U..LDA|
00004d30  20 23 24 31 37 00 45 55  b4 dc 53 54 41 20 24 34  | #$17.EU..STA $4|
00004d40  31 30 31 00 52 55 be dc  4c 44 41 20 23 24 30 32  |101.RU..LDA #$02|
00004d50  00 60 55 c8 dc 53 54 41  20 24 34 31 30 32 00 71  |.`U..STA $4102.q|
00004d60  55 d2 dc 4a 53 52 20 4d  55 4c 54 49 50 4c 59 00  |U..JSR MULTIPLY.|
00004d70  7e 55 dc dc 4c 44 41 20  23 24 31 46 00 8c 55 e6  |~U..LDA #$1F..U.|
00004d80  dc 53 54 41 20 24 34 31  30 30 00 99 55 f0 dc 4c  |.STA $4100..U..L|
00004d90  44 41 20 23 24 30 33 00  a7 55 fa dc 53 54 41 20  |DA #$03..U..STA |
00004da0  24 34 31 30 31 00 b4 55  04 dd 4c 44 41 20 23 24  |$4101..U..LDA #$|
00004db0  31 30 00 c2 55 0e dd 53  54 41 20 24 34 31 30 32  |10..U..STA $4102|
00004dc0  00 d3 55 18 dd 4a 53 52  20 53 55 42 54 52 41 43  |..U..JSR SUBTRAC|
00004dd0  54 00 e0 55 22 dd 4c 44  41 20 23 24 31 30 00 ee  |T..U".LDA #$10..|
00004de0  55 2c dd 53 54 41 20 24  34 31 30 30 00 fb 55 36  |U,.STA $4100..U6|
00004df0  dd 4c 44 41 20 23 24 31  41 00 09 56 40 dd 53 54  |.LDA #$1A..V@.ST|
00004e00  41 20 24 34 31 30 31 00  16 56 4a dd 4c 44 41 20  |A $4101..VJ.LDA |
00004e10  23 24 30 34 00 24 56 54  dd 53 54 41 20 24 34 31  |#$04.$VT.STA $41|
00004e20  30 32 00 35 56 5e dd 4a  53 52 20 4d 55 4c 54 49  |02.5V^.JSR MULTI|
00004e30  50 4c 59 00 42 56 68 dd  4a 53 52 20 4d af 4c 45  |PLY.BVh.JSR M.LE|
00004e40  00 51 56 72 dd 4a 4d 50  20 9a 52 4f 4c 4f 50 00  |.QVr.JMP .ROLOP.|
00004e50  77 56 60 ea 3b 20 20 20  20 20 20 20 20 20 20 20  |wV`.;           |
00004e60  20 20 20 20 20 20 20 20  5a 4f 4f 4d 20 52 4f 55  |        ZOOM ROU|
00004e70  54 49 4e 45 53 00 86 56  6a ea 42 4f 58 20 4c 44  |TINES..Vj.BOX LD|
00004e80  41 20 58 50 00 93 56 74  ea 53 54 41 20 58 50 49  |A XP..Vt.STA XPI|
00004e90  42 00 9e 56 7e ea 4c 44  41 20 59 50 00 ab 56 88  |B..V~.LDA YP..V.|
00004ea0  ea 53 54 41 20 59 50 49  42 00 b7 56 92 ea 4c 44  |.STA YPIB..V..LD|
00004eb0  41 20 58 50 42 00 c5 56  9c ea 53 54 41 20 58 50  |A XPB..V..STA XP|
00004ec0  42 49 42 00 d2 56 a6 ea  4c 44 58 20 23 24 33 43  |BIB..V..LDX #$3C|
00004ed0  00 e0 56 b0 ea 53 54 58  20 24 30 37 46 43 00 e8  |..V..STX $07FC..|
00004ee0  56 ba ea 49 4e 58 00 f6  56 c4 ea 53 54 58 20 24  |V..INX..V..STX $|
00004ef0  30 37 46 44 00 fe 56 ce  ea 49 4e 58 00 0c 57 d8  |07FD..V..INX..W.|
00004f00  ea 53 54 58 20 24 30 37  46 45 00 14 57 e2 ea 49  |.STX $07FE..W..I|
00004f10  4e 58 00 22 57 ec ea 53  54 58 20 24 30 37 46 46  |NX."W..STX $07FF|
00004f20  00 30 57 f6 ea 4c 44 41  20 24 44 30 31 35 00 3c  |.0W..LDA $D015.<|
00004f30  57 00 eb b0 41 20 23 24  46 30 00 4a 57 0a eb 53  |W...A #$F0.JW..S|
00004f40  54 41 20 24 44 30 31 35  00 5d 57 14 eb 42 4f 58  |TA $D015.]W..BOX|
00004f50  92 20 4c 44 41 20 43 4c  49 43 4b 00 6a 57 1e eb  |. LDA CLICK.jW..|
00004f60  42 4e 45 20 42 4f 58 92  00 80 57 78 eb 42 4f 58  |BNE BOX...Wx.BOX|
00004f70  4c 4f 4f 50 20 4c 44 41  20 58 50 42 49 42 00 8c  |LOOP LDA XPBIB..|
00004f80  57 82 eb 43 4d 50 20 58  50 42 00 9e 57 8c eb 42  |W..CMP XPB..W..B|
00004f90  45 51 20 43 48 45 43 4b  46 49 4e 45 00 af 57 96  |EQ CHECKFINE..W.|
00004fa0  eb 42 43 53 20 4c 45 53  53 54 48 41 4e 00 bf 57  |.BCS LESSTHAN..W|
00004fb0  a0 eb 4a 4d 50 20 4d b0  45 54 48 41 4e 00 d6 57  |..JMP M.ETHAN..W|
00004fc0  aa eb 43 48 45 43 4b 46  49 4e 45 20 4c 44 41 20  |..CHECKFINE LDA |
00004fd0  58 50 49 42 00 e1 57 b4  eb 43 4d 50 20 58 50 00  |XPIB..W..CMP XP.|
00004fe0  f2 57 be eb 42 43 53 20  4c 45 53 53 54 48 41 4e  |.W..BCS LESSTHAN|
00004ff0  00 07 58 c8 eb 4d b0 45  54 48 41 4e 20 4c 44 41  |..X..M.ETHAN LDA|
00005000  20 58 50 49 42 00 15 58  d2 eb 53 54 41 20 24 44  | XPIB..X..STA $D|
00005010  30 30 38 00 23 58 dc eb  53 54 41 20 24 44 30 30  |008.#X..STA $D00|
00005020  43 00 30 58 e6 eb 4c 44  58 20 23 24 30 30 00 3e  |C.0X..LDX #$00.>|
00005030  58 f0 eb 4c 44 41 20 58  50 42 49 42 00 4f 58 fa  |X..LDA XPBIB.OX.|
00005040  eb 42 45 51 20 4e 4f 58  50 42 41 44 44 00 5c 58  |.BEQ NOXPBADD.\X|
00005050  04 ec 4c 44 58 20 23 24  35 30 00 73 58 0e ec 4e  |..LDX #$50.sX..N|
00005060  4f 58 50 42 41 44 44 20  4c 44 41 20 24 44 30 31  |OXPBADD LDA $D01|
00005070  30 00 7e 58 18 ec af 20  23 24 41 46 00 8a 58 22  |0.~X... #$AF..X"|
00005080  ec 53 54 58 20 24 30 32  00 92 58 2c ec 43 4c 43  |.STX $02..X,.CLC|
00005090  00 9e 58 36 ec 41 44 43  20 24 30 32 00 ac 58 40  |..X6.ADC $02..X@|
000050a0  ec 53 54 41 20 24 44 30  31 30 00 b9 58 45 ec 4c  |.STA $D010..XE.L|
000050b0  44 58 20 23 24 30 30 00  c4 58 4a ec 4c 44 41 20  |DX #$00..XJ.LDA |
000050c0  58 50 00 cc 58 54 ec 53  45 43 00 d9 58 5e ec 53  |XP..XT.SEC..X^.S|
000050d0  42 43 20 23 24 31 38 00  e7 58 68 ec 53 54 41 20  |BC #$18..Xh.STA |
000050e0  24 44 30 30 41 00 f5 58  72 ec 53 54 41 20 24 44  |$D00A..Xr.STA $D|
000050f0  30 30 45 00 03 59 7c ec  42 43 43 20 4d 54 53 55  |00E..Y|.BCC MTSU|
00005100  42 00 0f 59 86 ec 4c 44  58 20 58 50 42 00 1d 59  |B..Y..LDX XPB..Y|
00005110  90 ec 42 45 51 20 4d 54  53 55 42 00 2a 59 9a ec  |..BEQ MTSUB.*Y..|
00005120  4c 44 58 20 23 24 41 30  00 3e 59 a4 ec 4d 54 53  |LDX #$A0.>Y..MTS|
00005130  55 42 20 4c 44 41 20 24  44 30 31 30 00 49 59 ae  |UB LDA $D010.IY.|
00005140  ec af 20 23 24 35 46 00  55 59 b8 ec 53 54 58 20  |.. #$5F.UY..STX |
00005150  24 30 32 00 5d 59 c2 ec  43 4c 43 00 69 59 cc ec  |$02.]Y..CLC.iY..|
00005160  41 44 43 20 24 30 32 00  77 59 d6 ec 53 54 41 20  |ADC $02.wY..STA |
00005170  24 44 30 31 30 00 84 59  e0 ec 4a 4d 50 20 42 4f  |$D010..Y..JMP BO|
00005180  58 9a 00 98 59 ea ec 4c  45 53 53 54 48 41 4e 20  |X...Y..LESSTHAN |
00005190  4c 44 41 20 58 50 00 a4  59 f4 ec 4c 44 58 20 58  |LDA XP..Y..LDX X|
000051a0  50 42 00 b1 59 fe ec 42  4e 45 20 a8 4f 55 54 00  |PB..Y..BNE .OUT.|
000051b0  be 59 08 ed 43 4d 50 20  23 24 35 38 00 cb 59 12  |.Y..CMP #$58..Y.|
000051c0  ed 42 43 53 20 a8 4f 55  54 00 d8 59 1c ed 4c 44  |.BCS .OUT..Y..LD|
000051d0  41 20 23 24 35 38 00 eb  59 26 ed a8 4f 55 54 20  |A #$58..Y&..OUT |
000051e0  53 54 41 20 24 44 30 30  38 00 f9 59 30 ed 53 54  |STA $D008..Y0.ST|
000051f0  41 20 24 44 30 30 43 00  06 5a 3a ed 43 50 58 20  |A $D00C..Z:.CPX |
00005200  23 24 30 30 00 16 5a 44  ed 42 45 51 20 4c 54 4e  |#$00..ZD.BEQ LTN|
00005210  4f 41 44 44 00 23 5a 4e  ed 4c 44 58 20 23 24 35  |OADD.#ZN.LDX #$5|
00005220  30 00 39 5a 58 ed 4c 54  4e 4f 41 44 44 20 4c 44  |0.9ZX.LTNOADD LD|
00005230  41 20 24 44 30 31 30 00  44 5a 62 ed af 20 23 24  |A $D010.DZb.. #$|
00005240  41 46 00 50 5a 6c ed 53  54 58 20 24 30 32 00 58  |AF.PZl.STX $02.X|
00005250  5a 76 ed 43 4c 43 00 64  5a 80 ed 41 44 43 20 24  |Zv.CLC.dZ..ADC $|
00005260  30 32 00 72 5a 8a ed 53  54 41 20 24 44 30 31 30  |02.rZ..STA $D010|
00005270  00 7f 5a 8f ed 4c 44 58  20 23 24 30 30 00 8c 5a  |..Z..LDX #$00..Z|
00005280  94 ed 4c 44 41 20 58 50  49 42 00 94 5a 9e ed 53  |..LDA XPIB..Z..S|
00005290  45 43 00 a1 5a a8 ed 53  42 43 20 23 24 31 38 00  |EC..Z..SBC #$18.|
000052a0  af 5a b2 ed 53 54 41 20  24 44 30 30 41 00 bd 5a  |.Z..STA $D00A..Z|
000052b0  bc ed 53 54 41 20 24 44  30 30 45 00 cb 5a c6 ed  |..STA $D00E..Z..|
000052c0  42 43 43 20 4c 54 53 55  42 00 d9 5a d0 ed 4c 44  |BCC LTSUB..Z..LD|
000052d0  58 20 58 50 42 49 42 00  e7 5a da ed 42 45 51 20  |X XPBIB..Z..BEQ |
000052e0  4c 54 53 55 42 00 f4 5a  e4 ed 4c 44 58 20 23 24  |LTSUB..Z..LDX #$|
000052f0  41 30 00 08 5b ee ed 4c  54 53 55 42 20 4c 44 41  |A0..[..LTSUB LDA|
00005300  20 24 44 30 31 30 00 13  5b f8 ed af 20 23 24 35  | $D010..[... #$5|
00005310  46 00 1f 5b 02 ee 53 54  58 20 24 30 32 00 27 5b  |F..[..STX $02.'[|
00005320  0c ee 43 4c 43 00 33 5b  16 ee 41 44 43 20 24 30  |..CLC.3[..ADC $0|
00005330  32 00 41 5b 20 ee 53 54  41 20 24 44 30 31 30 00  |2.A[ .STA $D010.|
00005340  51 5b 2a ee 42 4f 58 9a  20 4c 44 41 20 59 50 00  |Q[*.BOX. LDA YP.|
00005350  5e 5b 34 ee 43 4d 50 20  59 50 49 42 00 6c 5b 3e  |^[4.CMP YPIB.l[>|
00005360  ee 42 43 43 20 4c 45 53  53 59 00 79 5b 48 ee 4c  |.BCC LESSY.y[H.L|
00005370  44 41 20 59 50 49 42 00  87 5b 52 ee 53 54 41 20  |DA YPIB..[R.STA |
00005380  24 44 30 30 39 00 95 5b  5c ee 53 54 41 20 24 44  |$D009..[\.STA $D|
00005390  30 30 42 00 a0 5b 66 ee  4c 44 41 20 59 50 00 a8  |00B..[f.LDA YP..|
000053a0  5b 70 ee 53 45 43 00 b5  5b 7a ee 53 42 43 20 23  |[p.SEC..[z.SBC #|
000053b0  24 31 35 00 c3 5b 84 ee  53 54 41 20 24 44 30 30  |$15..[..STA $D00|
000053c0  44 00 d1 5b 8e ee 53 54  41 20 24 44 30 30 46 00  |D..[..STA $D00F.|
000053d0  e0 5b 98 ee 4a 4d 50 20  42 4f 58 9a 49 49 00 f1  |.[..JMP BOX.II..|
000053e0  5b a2 ee 4c 45 53 53 59  20 4c 44 41 20 59 50 00  |[..LESSY LDA YP.|
000053f0  ff 5b ac ee 53 54 41 20  24 44 30 30 39 00 0d 5c  |.[..STA $D009..\|
00005400  b6 ee 53 54 41 20 24 44  30 30 42 00 1a 5c c0 ee  |..STA $D00B..\..|
00005410  4c 44 41 20 59 50 49 42  00 22 5c ca ee 53 45 43  |LDA YPIB."\..SEC|
00005420  00 2f 5c d4 ee 53 42 43  20 23 24 31 35 00 3d 5c  |./\..SBC #$15.=\|
00005430  de ee 53 54 41 20 24 44  30 30 44 00 4b 5c e8 ee  |..STA $D00D.K\..|
00005440  53 54 41 20 24 44 30 30  46 00 60 5c f2 ee 42 4f  |STA $D00F.`\..BO|
00005450  58 9a 49 49 20 4c 44 41  20 43 4c 49 43 4b 00 6d  |X.II LDA CLICK.m|
00005460  5c fc ee 42 4e 45 20 42  4f 58 80 00 7d 5c 06 ef  |\..BNE BOX..}\..|
00005470  4a 4d 50 20 42 4f 58 4c  4f 4f 50 00 91 5c 10 ef  |JMP BOXLOOP..\..|
00005480  42 4f 58 80 20 4a 4d 50  20 9a 52 4f 4c 4f 50 00  |BOX. JMP .ROLOP.|
00005490  a6 5c 30 f2 42 4f 58 46  4c 41 53 48 20 4c 44 41  |.\0.BOXFLASH LDA|
000054a0  20 24 41 32 00 b1 5c 3a  f2 af 20 23 24 33 43 00  | $A2..\:.. #$3C.|
000054b0  bb 5c 44 f2 4c 53 52 20  41 00 c5 5c 4e f2 4c 53  |.\D.LSR A..\N.LS|
000054c0  52 20 41 00 cd 5c 58 f2  54 41 58 00 df 5c 62 f2  |R A..\X.TAX..\b.|
000054d0  4c 44 41 20 42 4f 58 43  4f 4c 53 2c 58 00 ed 5c  |LDA BOXCOLS,X..\|
000054e0  6c f2 53 54 41 20 24 44  30 32 42 00 fb 5c 76 f2  |l.STA $D02B..\v.|
000054f0  53 54 41 20 24 44 30 32  43 00 09 5d 80 f2 53 54  |STA $D02C..]..ST|
00005500  41 20 24 44 30 32 44 00  17 5d 8a f2 53 54 41 20  |A $D02D..]..STA |
00005510  24 44 30 32 45 00 25 5d  94 f2 4a 4d 50 20 24 45  |$D02E.%]..JMP $E|
00005520  41 33 31 00 47 5d 9e f2  42 4f 58 43 4f 4c 53 20  |A31.G]..BOXCOLS |
00005530  54 58 54 20 30 2c 39 2c  32 2c 38 2c 31 30 2c 37  |TXT 0,9,2,8,10,7|
00005540  2c 31 33 2c 31 00 61 5d  a8 f2 54 58 54 20 31 2c  |,13,1.a]..TXT 1,|
00005550  31 33 2c 33 2c 35 2c 31  34 2c 34 2c 36 2c 30 00  |13,3,5,14,4,6,0.|
00005560  76 5d 18 f6 3b 20 44 45  4c 45 54 45 20 54 48 45  |v]..; DELETE THE|
00005570  53 45 21 21 00 8a 5d 22  f6 43 4f 4c 53 20 4a 4d  |SE!!..]".COLS JM|
00005580  50 20 9a 52 4f 4c 4f 50  00 9f 5d 4a f6 b9 49 54  |P .ROLOP..]J..IT|
00005590  49 91 20 4a 4d 50 20 9a  52 4f 4c 4f 50 00 b6 5d  |I. JMP .ROLOP..]|
000055a0  54 f6 5a 4f 4f 4d 4f 55  54 20 4a 4d 50 20 9a 52  |T.ZOOMOUT JMP .R|
000055b0  4f 4c 4f 50 00 00 00                              |OLOP...|
000055b7