;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�	�NEGREG�$4119�	
;                      ROM ROUTINES	
"
OUTDO �$AB47
#
�LFS�$FFBA'
$
�NAM�$FFBD6
%
�ROM�$FFD8I
&
PLOTRROM�$E56Cq
,
;                       SPRITE DATAw
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,000T
TXT 128,064,000,147,192,000,185,000?^
TXT 000,233,000,000,009,128,000,012gh
TXT 128,000,004,128,000,004,128,000�r
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,1245�
TXT 000,000,126,000,000,127,000,000]�
TXT 127,128,000,108,000,000,070,000��
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,064S
�
TXT 000,129,064,000,066,128,000,064{
�
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,000TXT 000,000,000,000,000,000,000,000CTXT 000,000,000,000,000,000,000,197I!;q&TXT 255,192,000,255,192,000,255,192�0TXT 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,128NTXT 000,255,192,000,255,192,000,2559XTXT 192,000,255,192,000,000,000,000abTXT 000,000,000,000,000,000,000,000�lTXT 000,000,000,000,000,000,000,197�q;�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,000W�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,000M�TXT 000,000,000,000,000,000,000,000u�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,000;CTXT 000,000,000,000,000,000,000,000k TXT 000,000,000,000,000,000,000,000�*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,000HTXT 000,000,000,000,000,000,000,0003RTXT 128,000,000,000,000,000,128,000[\TXT 000,000,000,000,168,000,000,000aa;�fTXT 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,000Q�TXT 000,000,000,000,000,000,000,000y�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 CLICK8'BNE �ROLOP'B'�LOPB LDA CLICK5L'BEQ �LOPB@V'LDA XPM`'CMP #$58Xj'BCC ��dt'JMP BOXr~'�� LDA YP�'CMP #$5A��'BCC �ROLOP��'SEC��'SBC #$5A��'LSR A��'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,�ZOOMIN�
(TXT ��ROLOP,��ROLOP,��ITI�,��ITI�,��ROLOP,��ROLOP�(TXT ��ROLOP,��ROLOP,�COLS,�COLS,��ROLOP,��ROLOP(TXT �COLCYCLE,�COLCYCLE,��ROLOP,��ROLOP,�M�PLOT,�M�PLOT7((TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,�EXIT,�EXITk2(TXT ��ROLOP,��ROLOP,��,��,��ROLOP,��ROLOP,��,���<(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP�)EXIT JSR HIRESOFF�)LDA #$93�)JSR OUTDO�")LDA #$05�,)JSR OUTDO�6)LDA #$00@)STA $C6J)RTS6�.;                   WIMP ROUTINESI�.; WIMP - MOUSEZ�.IRQ LDA #$00h/STA CLICKt/LDA $C5�/CMP #$01�&/BNE C�CHECK�0/STA CLICK�:/C�CHECK CMP #$0C�D/BEQ LEFTK�N/LKC CMP #$17�X/BEQ RIGHTK�b/RKC CMP #$32�l/BEQ UPKv/UPKC CMP #$37�/BEQ DOWNK1�/DKC LDA $DC00<�/� #$01H�/BEQ UPJZ�/UJC LDA $DC00e�/� #$02s�/BEQ DOWNJ��/DJC LDA $DC00��/� #$04��/BEQ LEFTJ��/LJC LDA $DC00��/� #$08�0BEQ RIGHTJ�0RJC LDA $DC00�0� #$10� 0E� #$10*0BEQ CJCH40STA CLICK$>0CJCH JMP BOXFLASH7H0LEFTK JSR LEFTCR0JMP LKCX\0RIGHTK JSR RIGHTdf0JMP RKCsp0UPK JSR UP�z0JMP UPKC��0DOWNK JSR DOWN��0JMP DKC��0UPJ JSR UP��0JMP UJC��0DOWNJ JSR DOWN��0JMP DJC��0LEFTJ JSR LEFT��0JMP LJC
�0RIGHTJ JSR RIGHT�0JMP RJC)�0LEFT DEC XP4�0LDA XPA�0CMP #$FFM1BNE �FFZ1LDY #$00f1STY XPBv$1�FF LDY XPB�.1BNE FIN�81CMP #$18�B1BNE FIN�L1INC XP�V1FIN JMP �ROL�`1RIGHT INC XP�j1LDA XP�t1BNE �00�~1LDY #$01��1STY XPB�1�00 LDY XPB�1BEQ FIN!�1CMP #$58-�1BNE FIN8�1DEC XPE�1JMP �ROLS�1UP DEC YP^�1LDA YPk�1CMP #$32w�1BNE FIN��1INC YP�2JMP �ROL�
2DOWN INC YP�2LDA YP�2CMP #$F8�(2BNE FIN�22DEC YP�<2JMP �ROL�F2; WIMP � PO�ERP2�ROL LDA HOURZ2BEQ NHGLASS�3LDX #$3A+�3STX $07F83�3INXA�3STX $07F9T�3NHGLASS LDA XPb�3STA $D000p�3STA $D002{�3LDA YP��3STA $D001��3STA $D003��3LDA $D010�4� #$FC�4LSR A�4CLC�&4ADC XPB�04ASL A�:4CLC�D4ADC XPB�N4STA $D010X4LDA #$00b4STA $D027"l4LDA #$010v4STA $D028>�4LDA $D015J�4�A #$03X�4STA $D015e�4LDA HOURr�4BNE QTRO�4LDX #$38��4STX $07F8��4INX��4STX $07F9��4QTRO RTS��4; STARTUP ROUTINES��4INIT LDA #$00��4STA $D020�5STA $D0215STA XP
5STA HOUR 5STA $D015(*5LDA #$01445STA XPBA>5LDA #$80LH5STA YP`R5HIRES� LDA #$3Bn\5STA $D011{f5LDA #$D8�p5STA $D016�z5LDA COL0S��5STA COL0��5LDA COL1S��5STA COL1��5LDA COL2S��5STA COL2��5LDA COL3S��5STA COL3 �5JSR �COLS 6JSR LEFT 6SEI& 6LDA #�IRQ4 $6STA $0314B .6LDA #�IRQP 86STA $0315X B6CLIe �6LDA #$18s �6STA $D018{ 4:RTS� R:HIRESOFF SEI� \:LDA #$31� f:STA $0314� p:LDA #$EA� z:STA $0315� �:CLI� �:LDA #$00� �:STA $D015� �:LDA #$9B!�:STA $D011
!�:LDA #$C8!�:STA $D016(!�:LDA #$156!�:STA $D018>!�:RTSQ! N� JSR HIRESOFF^!*NLDA #$1Cl!4NJSR OUTDOy!>NLDA #$93�!HNJSR OUTDO�!RNLDA #$00�!\N�LOOP PHA�!fNASL A�!pNASL A�!zNCLC�!�NADC #$42�!�NSTA $FC�!�NLDY #$00�!�NSTY $FB�!�NSTY $FD	"�NLDA #$04"�NSTA $FE,"�N�LOOPB LDA ($FB),Y<"�NSTA ($FD),YD"�NINYS"�NBNE �LOOPB_"�NINC $FCk"�NINC $FEw"OLDA $FE�"OCMP #$08�"OBNE �LOOPB�"$O�� LDA $C5�".OCMP #$40�"8OBNE ���"BO��B LDA $C5�"LOCMP #$40�"VOBEQ ��B�"`OTAX�"jOPLA#tOCPX #$01#~OBEQ HNOM�E#�OCPX #$28&#�OBEQ �3#�OCPX #$2B@#�OBEQ PREVM#�O�RET PHAY#�OJMP ��Bq#�OHNOM�E JMP COMEBACK�#�O� CMP #$04�#�OBEQ �RET�#�OCLC�#�OADC #$01�#�OJMP �LOOP�#PPREV CMP #$00�#
PBEQ �RET�#PSEC�#PSBC #$01�#(PJMP �LOOP$�a;                   SAVE ROUTINES+$�a�AME TXT 147,5A$�aTXT "FILENAME:",0h$�a�RD TXT 13,13,"(T)APE OR (D)ISK",0�$�a�T TXT 13,13,"POSITION TAPE <SPACE>",13,0�$�aINSD TXT 13,13,"INSERT DISK <SPACE>",13,0�$�aPSTRING LDY #$00�$�aPSTRLOP LDA ($FB),Y%�aBEQ PSTRQUIT%bJSR OUTDO%bINY(%bJMP PSTRLOP9%bPSTRQUIT RTSN% b�OFF LDA $040A,YZ%*bE� #$80j%4bSTA $040A,Yr%>bRTS�%Hb�� LDA $C5�%RbCMP #$40�%\bBNE ���%fb��B LDA $C5�%pbCMP #$40�%zbBEQ ��B�%�bTAX�%�bLDA ��,X�%�bBEQ ���%�bRTS�%�b� JSR HIRESOFF
&�bLDX #$00&�bLDA #$20-&�b�AME� STA $41F0,X5&�bINXB&�bCPX #$10P&�bBNE �AME�_&�bLDA #��AMEk&�bSTA $FBz&cLDA #��AME�&cSTA $FC�&cJSR PSTRING�&$cLDA #$00�&.cPHA�&8c�LOOP TAY�&=cJSR �OFF�&BcJSR ���&GcPHA�&LcJSR �OFF�&QcPLA�&VcCMP #$80
'`cBCS DECODE'jcTAY'tcPLA"'~cTAX*'�cTYA:'�cSTA $040A,XG'�cCMP #$20U'�cBCS NOSPC]'�cCLCj'�cADC #$40�'�cNOSPC STA $41F0,X�'�cINC� CPX #$0F�'�cBEQ �RELOP�'�cINX�'�c�RELOP TXA�'�cPHA�'�cJMP �LOOP�'dDECODE CMP #$80�'
dBEQ ��'dCMP #$81(dBEQ �((dCMP #$82(2dBNE �LOOP'(<dPLA/(FdTAX=(PdLDA $028DH(Zd� #$01U(ddBEQ INC�g(ndDEC� CPX #$00v(xdBEQ �RELOP~(�dDEX�(�dJMP �RELOP�(�d� PLA�(�dTAX�(�dLDA #$20�(�dSTA $040A,X�(�dSTA $41F0,X�(�dJMP DEC��(�d� PLA�(�dLDA #��RD�(�dSTA $FB)�dLDA #��RD)�dSTA $FC()�dJSR PSTRING5)e� JSR ��B)eCMP #$14P)eBEQ TAPE�])"eCMP #$04k),eBEQ DISK�u)6eJMP ��)@eTAPE� LDA #��T�)JeSTA $FB�)TeLDA #��T�)^eSTA $FC�)heJSR PSTRING�)reLDX #$01�)|eJMP TAPE��)�eDISK� LDA #�INSD�)�eSTA $FB*�eLDA #�INSD*�eSTA $FC$*�eJSR PSTRING1*�eLDX #$08C*�eTAPE� LDA $C5P*�eCMP #$3C^*�eBNE TAPE�k*�eLDA #$01s*�eTAY�*�eJSR �LFS�*�eLDX #$10�*f�AME� LDA $41EF,X�*fCMP #$20�*fBNE �AME�T�*&fDEX�*0fBEQ �AME�T�*:fJMP �AME��*Df�AME�T TXA+NfLDX #$F0
+bfLDY #$41+lfJSR �NAM'+vfLDA #$203+�fSTA $FC@+�fLDX #$00L+�fSTA $FBY+�fLDY #$40f+�fLDA #$FBs+�fJSR �ROM�+�fJMP COMEBACK�+xi;           KEYBOARD DECODE TABLE�+�i;�+�i�� TXT $81,$80,$82�+�iTXT 0,0,0,0,$83,51,23,1,52,26
,�iTXT 19,5,0,53,18,4,54,3,6,20,242,�iTXT 55,25,7,56,2,8,21,22,57,9,10X,�iTXT 48,13,11,15,14,43,16,12,45,46|,�iTXT 0,0,44,0,0,0,0,0,0,30,47,49�,�iTXT 31,0,50,32,0,17,0,0�,0u;          M�LEBROT SET PLOTTER�,:uM�LE SEI�,<uLDA #$01�,=uSTA HOUR�,>uJSR LEFT�,?uLDA #$00-DuSTA YPIXEL-NuLDA #$03'-XuSTA $41004-buLDA #$06B-luSTA $4102P-vuJSR EQUALd-�uMMAINL LDA #$00s-�uSTA XPIXEL�-�uLDA #$01�-�uSTA $4100�-�uLDA #$05�-�uSTA $4102�-�uJSR EQUAL�-�uMMAINLB LDA #$05�-�uSTA $4100�-�uLDA #$07�-�uSTA $4102.�uJSR EQUAL.�uINC $4100.vINC $4102-.vJSR EQUAL:.vLDA #$00I. vSTA COLOUR[.*vLOOP LDA #$07i.4vSTA $4100w.>vSTA $4101�.HvLDA #$10�.RvSTA $4102�.\vJSR MULTIPLY�.fvLDA #$08�.pvSTA $4100�.zvSTA $4101�.�vLDA #$11�.�vSTA $4102�.�vJSR MULTIPLY/�vLDX #$10/�vSTX $4100/�vINX)/�vSTX $41011/�vINX?/�vSTX $4102O/�vJSR ADDITI�]/�vLDA $4091j/�vCMP #$04w/�vBCC FAIL�/wCMP #$50�/wBCS FAIL�/wSUCPASS JMP SUCCESS�/$wFAIL INC COLOUR�/)wLDA COLOUR�/.wCMP MAXCOL�/8wBEQ SUCPASS�/BwJSR SUBTRACT	0LwLDA #$120VwSTA $4100$0`wLDA #$0520jwSTA $4101?0twLDA #$13M0~wSTA $4102]0�wJSR ADDITI�j0�wLDA #$07x0�wSTA $4100�0�wLDA #$08�0�wSTA $4101�0�wINC $4102�0�wJSR MULTIPLY�0�wLDA #$14�0�wSTA $4100�0�wLDA #$1C�0�wSTA $4101�0�wLDA #$151xSTA $41021
xJSR MULTIPLY!1xLDA #$15/1xSTA $4100<1(xLDA #$06J12xSTA $4101W1<xLDA #$16e1FxSTA $4102u1PxJSR ADDITI��1ZxLDA #$13�1dxSTA $4100�1nxLDA #$07�1xxSTA $4102�1�xJSR EQUAL�1�xLDA #$16�1�xSTA $4100�1�xLDA #$08�1�xSTA $4102�1�xJSR EQUAL
2�xJMP LOOP2�xSUCCESS JSR PLOT,2�xLDA #$05:2�xSTA $4100H2�xSTA $4102U2�xLDA #$02c2�xSTA $4101s2yJSR ADDITI��2yLDA XPIXEL�2yBNE XRELOP�2"yLDA #$06�2,ySTA $4100�26ySTA $4102�2@yLDA #$04�2JySTA $4101�2TyJSR ADDITI��2^yINC YPIXEL3hyLDA YPIXEL3ryCMP #$C83|yBNE YRELOP,3~yLDA #$0093ySTA HOURG3�yJSR RIGHTO3�yCLIW3�yRTSn3�yXRELOP JMP MMAINLB�3�yYRELOP JMP MMAINL�3�yM�PLOT JSR M�LE�3�yJMP �ROLOP�3��;                 COLOUR ROUTINES�3ˆ�COLS LDA COL0�3̈STA $D021�3ֈLDY #$004�STY $FB4�LDA #$D8 4�STA $FC-4��LDA COL3D4��CLOPA STA ($FB),YL4�INY[4�BNE �CLOPAg4&�INC $FCs40�LDX $FC�4:�CPX #$DC�4D�BNE �CLOPA�4N�LDA #$04�4X�STA $FC�4b�LDA COL1�4l�ASL A�4v�ASL A�4��ASL A�4��ASL A�4���A COL25���CLOPB STA ($FB),Y5��INY5��BEQ �CLOPC$5��CPY #$F835ƉBNE �CLOPB?5ЉLDX $FCL5ډCPX #$07[5�BNE �CLOPBc5�RTSv5���CLOPC INC $FC�5�JMP �CLOPB�5�COLC� LDA �TIME�5�CLC�5 �ADC SPEED�5*�STA �TIME�54�COLCLOP CMP $A2�5>�BNE COLCLOP�5H�RTS�5R�COLC�S LDA $C5	6\�CMP #$286f�BEQ SPUP#6p�CMP #$2B06z�BEQ SLDN=6��CMP #$01M6��BEQ COLCOFFY6��NO� RTSi6��COLCOFF PLAq6��PLA�6��JMP COMEBACK�6��SPUP LDA SPEED�6ŊCMP #$03�6ʊBEQ NO��6ԊDEC SPEED�6ފRTS�6�SLDN LDA SPEED�6�CMP #$19�6��BEQ NO��6�INC SPEED7�RTS7�COLCYCLE LDA #$0A*7$�STA SPEED67.�LDA $A2D78�STA �TIME\7B�COLCYCLOP LDA COL0Si7L�STA COL0w7V�LDA COL1S�7`�STA COL1�7j�LDA COL2S�7t�STA COL2�7~�LDA COL3S�7��STA COL3�7��JSR �COLS�7��JSR COLC�S�7��JSR COLC��7��LDA COL3S8��STA COL08ċLDA COL0S8΋STA COL1)8؋LDA COL1S68�STA COL2D8�LDA COL2SQ8��STA COL3_8�JSR �COLSn8
�JSR COLC�S|8�JSR COLC��8�LDA COL2S�8(�STA COL0�82�LDA COL3S�8<�STA COL1�8F�LDA COL0S�8P�STA COL2�8Z�LDA COL1S�8d�STA COL3�8n�JSR �COLS9x�JSR COLC�S9��JSR COLC�!9��LDA COL1S.9��STA COL0<9��LDA COL2SI9��STA COL1W9��LDA COL3Sd9��STA COL2r9ȌLDA COL0S9ҌSTA COL3�9܌JSR �COLS�9�JSR COLC�S�9�JSR COLC��9��JMP COLCYCLOP�9@�;             ARITHMETIC ROUTINES�9J��DIGIT CLD�9T�ASL A:^�ASL A:h�ASL A:r�STA $02#:|�TXA-:��LSR A9:��STA $24F:��LDA #$07N:��SECZ:��SBC $24b:��CLCn:œADC $02v:̜TAY�:֜LDA $4000,Y�:�TAY�:�TXA�:� #$01�:��BEQ LSNGD�:�TYA�:�� #$F0�:�LSR A�:&�LSR A�:0�LSR A�::�LSR A�:D�RTS;N�LSNGD TYA;X�� #$0F;b�RTS.;l�MULTIPLYB JSR NEGATIVE<;q�LDA $4102F;v�ASL AP;��ASL AZ;��ASL Ab;��TAXo;��LDA #$00w;��TAY�;��MLOPA STA $4000,X�;��INY�;ƝINX�;НCPY #$08�;ڝBNE MLOPA�;�LDA #$06�;�STA $FC�;���DIGIT LDA $4101�;�LDX $FC
<�JSR �DIGIT<�CMP #$00< �BEQ DMOVERB*<*�STA $FD7<4�LDA #$06C<>�STA $FBW<H�DMLOP LDA $4100c<R�LDX $FBr<\�JSR �DIGIT<f�CMP #$00�<p�BEQ DMOVER�<z�ASL A�<��ASL A�<��ASL A�<��ASL A�<��CLC�<��ADC $FD�<��TAY�<��LDA M�,Y�<ʞSTA $35�<Ԟ� #$0F�<ޞTAY
=�LDA $FB=�CLC=��ADC $FC&=�SEC3=�SBC #$0C;=�TAXF=$�� #$01T=.�BEQ MSKIP\=8�TYAf=B�ASL Ap=L�ASL Az=V�ASL A�=`�ASL A�=j�TAY�=t�LDA $35�=~�� #$F0�=��LSR A�=��LSR A�=��LSR A�=��LSR A�=��STA $35�=��JMP M��=��DMOVERB JMP DMOVER>ğMSKIP LDY $35>ΟLDA #$00$>؟STA $35/>ڟM� TXA9>ܟLSR AE>ޟSTA $02R>�LDA #$07Z>�SECf>�SBC $02r>�STA $02�>�LDA $4102�>�ASL A�>�ASL A�>�ASL A�>�ADC $02�>�STY $25�>�TAY�>��SED�>��LDA $4000,Y�>��CLC�>��ADC $25�>��STA $4000,Y?�CLD
?�DEY?�SED"?�LDA $4000,Y.?�ADC $35>?
�STA $4000,YF?�CLDZ?�MALP BCC DMOVERb?�DEYj?�SEDz?�LDA $4000,Y�?�ADC #$00�?�STA $4000,Y�?�CLD�?�JMP MALP�?Z�DMOVER INC $FB�?d�LDA $FB�?n�CMP #$0E�?x�BCC DMLOPB�?��INC $FC�?��LDA $FC@��CMP #$0E@��BCC �DIGITB)@��LDA YPIB6@��BEQ QUITD@��LDA $4102R@ȠSTA $4101_@ҠLDA #$1Dm@ܠSTA $4100~@�JSR SUBTRACT�@�QUIT RTS�@��DMLOPB JMP DMLOP�@��DIGITB JMP �DIGIT�@"�MSUP LDA $4100�@,�ASL A�@6�ASL A�@@�ASL A�@J�TAX�@T�DEXA^�STX $FBAh�LDA $4101Ar�ASL A&A|�ASL A0A��ASL A8A��TAX@A��DEXLA��STX $FDZA��LDA $4102dA��ASL AnA¡ASL AxA̡ASL A�A֡TAX�A�DEX�A�STX $22�A�LDA #$40�A��STA $FC�A�STA $FE�A�STA $23�A�RTS�A&�EQUAL JSR MSUP�A0�LDY #$08B:�ELOP LDA ($FB),YBD�STA ($22),YBN�DEY'BX�BNE ELOP/Bb�RTSDBl�ADDITI� JSR MSUPQBv�LDY #$08YB��SEDaB��CLCwB��ADLOP LDA ($FB),Y�B��ADC ($FD),Y�B��STA ($22),Y�B��DEY�B��BNE ADLOP�BƢCLD�BТRTS�BڢSUBTRACT JSR MSUP�B�LDY #$08�B�SED�B��SECC�SULOP LDA ($FB),YC�SBC ($FD),Y&C�STA ($22),Y.C �DEY<C*�BNE SULOPDC4�CLDLC>�RTSbCH�NEGATIVE LDA #$00jCR�PHAxC\�LDA $4100�Cf�TAY�Cp�ASL A�Cz�ASL A�C��ASL A�C��TAX�C��LDA $4001,X�C��CMP #$50�C��BCC NEGRMOVEAB�C��PLA�C��ADC #$00�C��PHADʣJMP NEGRMOVEADԣNEGRMOVEAB LDA $4101&DޣTAY0D�ASL A:D�ASL ADD��ASL ALD�TAX\D�LDA $4001,XiD�CMP #$50qD$�PLA~D.�BCC NOE��D8�E� #$01�DB�PHA�DL�BCS NEGRMOVEB�DV�NEGRMOVEBB PLA�D`�NOE� STA YPIB�Dj�RTS�Dt�NEGRMOVE LDA $4100�D~�PHA�D��LDA $4101E��PHAE��LDA $4102E��PHA$E��TYA2E��STA $4101@EĤSTA $4102MEΤLDA #$1D[EؤSTA $4100lE�JSR SUBTRACTtE�PLA�E��STA $4102�E�PLA�E
�STA $4101�E�PLA�E�STA $4100�E(�RTS�E2�NEGRMOVEA JSR NEGRMOVE�E<�JMP NEGRMOVEAB�EF�NEGRMOVEB JSR NEGRMOVEFP�JMP NEGRMOVEBB)FZ�MULTIPLY LDA $41021Fd�PHA?Fn�LDA $4101GFx�PHATF��LDA #$18bF��STA $4102pF��JSR EQUAL~F��INC $4102�F��PLA�F��STA $4100�F��JSR EQUAL�FȥLDA #$18�FҥSTA $4100�FܥLDA #$19�F�STA $4101�F�PLA�F��STA $4102G�JMP MULTIPLYB&Gȯ;           MULTIPLICATION TABLES,Gʯ;WG̯M� TXT 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0Gί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,0HԯTXT 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0SH֯TXT 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0�Hد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�HܯTXT 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,03IޯTXT 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0VI��;                        �ITI��I���TEXT TXT 147,5,"            P O S I T I O N",13,13,13,"XMIN:",13�IijTXT "XMAX:",13,"YMIN:",13,"YMAX:",0�IγPNO PHA�IسASL A�I�ASL A�I�ASL A�I��TAXJ�LDA $4001,XJ
�CMP #$50"J�BCS PNOVER/J�LDA #$2B=J(�JSR OUTDOJJ*�LDA #$00YJ,�STA NEGREGeJ2�JMP PN�yJ<�PNOVER LDA #$2D�JF�JSR OUTDO�JG�LDA #$01�JH�STA NEGREG�JI�PLA�JJ�PHA�JK�STA $4101�JL�STA $4102�JM�LDA #$1D�JN�STA $4100�JO�JSR SUBTRACTKP�PN� LDX #$0CKZ�PNCB STX $22%Kd�PLA-Kn�PHA<Kx�JSR �DIGITDK��CLCQK��ADC #$30_K��JSR OUTDOkK��LDX $22xK��BEQ PNDQ�K��CPX #$0C�K��BEQ PNDOT�KȴDEX�KҴJMP PNCB�KܴPNDOT LDA #$2E�K�JSR OUTDO�K�DEX�K��JMP PNCB�K�PNDQ PLA�K�LDX NEGREG	L�BEQ NOGREGL�STA $4101%L�STA $41022L	�LDA #$1D@L
�STA $4100QL�JSR SUBTRACT`L�NOGREG RTSwL��ITI� JSR HIRESOFF�L"�LDA #��TEXT�L,�STA $FB�L6�LDA #��TEXT�L@�STA $FC�LJ�JSR PSTRING�LT�LDA #$07�L^�STA $D3�Lh�LDA #$03�Lr�STA $D6M|�JSR PLOTRROMM��LDA #$01M��JSR PNO(M��LDA #$074M��STA $D3AM��LDA #$04MM��STA $D6^MµJSR PLOTRROMkM̵LDA #$1EwMֵJSR PNO�M�LDA #$07�M�STA $D3�M�LDA #$05�M��STA $D6�M�JSR PLOTRROM�M�LDA #$03�M�JSR PNO�M&�LDA #$07�M0�STA $D3�M5�LDA #$06N:�STA $D6ND�JSR PLOTRROM#NN�LDA #$1F/NX�JSR PNO<Nb�LDX #$01INl�LDY #$00WNq�JSR ��OFFdNv��LOP TXAlN��PHA}N���LOPB JSR ���N��CMP #$2B�N��BEQ �I��N��CMP #$2D�N��BEQ �INEG�N��CMP #$82�NƶBEQ X�MOVE�NжCMP #$83�NڶBEQ Y�MOVE�N�CMP #$80O�BEQ �CALCTO��CMP #$30 O�BCC �LOPB-O�CMP #$3A;O�BCS �LOPBGO�STA $23OO �PLAWO%�PHA_O*�TAXnO4�JSR �MEMADzO>�STX $22�OH�TAX�OR�LDA $23�O\�E� #$80�Of�STA $047F,X�Op�JMP �RIGHT�Oz��CALCT JMP �CALC�O���I� LDX #$00�O��JSR �MEMAD�O��TAXP��LDA #$2BP��STA $047F,X!PʷJMP �LOPB4PԷ�INEG LDX #$00CP޷JSR �MEMADKP�TAXXP�LDA #$2DhP��STA $047F,XvP�JMP �LOPB�P�X�MOVE LDA $028D�P�� #$01�P$�BEQ �RIGHT�P.�PLA�P8�TAX�P=�CPX #$01�PB�BEQ �LOP�PL�LMISS JSR ��OFF�PV�DEX�P`�JSR ��OFFQb�CPX #$02Qd�BEQ LMISS!Qj�JMP �LOP0Qt��RIGHT PLA8Q~�TAXEQ��CPX #$0ERQ��BEQ �LOPfQ��RMISS JSR ��OFFnQ��INX|Q��JSR ��OFF�Q��CPX #$02�Q��BEQ RMISS�Q��JMP �LOP�QĸY�MOVE PLA�QƸTAX�QȸLDA $028D�Qθ� #$01�QظBEQ �DOWN�Q�CPY #$00�Q�BEQ �LOPTR��JSR ��OFFR�DEY!R
�JSR ��OFF/R�JMP �LOPTBR��DOWN CPY #$03PR(�BEQ �LOPT^R2�JSR ��OFFfR<�INYtRF�JSR ��OFF�RP�JMP �LOPT�RZ��LOPT JMP �LOP�R���SURE TXT 13,13,"REPOSITION: ARE YOU SURE (Y/N)",0�R���CALC LDA #��SURE�R��STA $FB�R��LDA #��SURE
S��STA $FCS��JSR PSTRING-S��SURELOP JSR ��:S��CMP #$19ESƻBEQ ��RSлCMP #$0E^SڻBEQ NO�nS�JMP SURELOP�S�NO� JMP COMEBACK�S��� LDA #$80�S�STA $FB�S�LDA #$04�S�STA $FC�S �LDA #$01�S*�JSR �VAR�S4�LDA #$A8�S>�STA $FB�SA�LDA #$04TD�STA $FCTH�LDA #$1ETR�JSR �VAR+T\�LDA #$D07Tf�STA $FBDTi�LDA #$04PTl�STA $FC]Tp�LDA #$03jTz�JSR �VARwT��LDA #$F8�T��STA $FB�T��LDA #$04�T��STA $FC�T��LDA #$1F�T��JSR �VAR�T��JSR HIRES��T��JMP CALC��Tt��VAR STA $23�Ty�ASL A�T~�ASL AU��ASL AU��STA $FDU��LDA #$40'U��STA $FE4U��LDA #$00<U��TAXDUĽTAYTUνSTA ($FD),Y\UؽINYdU�TYAlU�PHAtU��TXA|U�TAY�U
�LDA ($FB),Y�U�STA $22�U�TYA�U(�TAX�U2�PLA�U<�TAY�UF�LDA $22�UP�SEC�UZ�SBC #$30�Ud�STA ($FD),Y�Un�INY�Ux�INX
V��INXV���VLOP TYAV��PHAV��TXA'V��TAY7V��LDA ($FB),Y?V��SECLVȾSBC #$30VVҾASL A`VܾASL AjV�ASL AtV�ASL A|V��INY�V�CLC�V�ADC ($FB),Y�V�SEC�V"�SBC #$30�V,�INY�V6�STA $22�V@�TYA�VJ�TAX�VT�PLA�V^�TAY�Vh�LDA $22�Vr�STA ($FD),Y
W|�INYW��CPY #$08W��BNE �VLOP(W��DEC $FB5W��LDY #$00EW��LDA ($FB),YRW��CMP #$2DbW¿BEQ MAKENEGjW̿RTS~WֿMAKENEG LDA $23�W�STA $4101�W�STA $4102�W�LDA #$1D�W��STA $4100�W�JMP SUBTRACT�W\��MEMAD TYA�Wp�ASL A�Wz�ASL A�W��ASL A�W��STA $22	X��ASL AX��ASL AX��CLC'X��ADC $223X��STX $22?X�ADC $22LX�CMP #$C8\X�BCC GMMQUITdX�CLCqX�ADC #$28�X��GMMQUIT RTS�X$¹�OFF JSR �MEMAD�X.�STA $22�X8�TXA�XB�PHA�XL�LDX $22�XV�LDA $047F,X�X`�E� #$80�Xj�STA $047F,X�Xt�PLA�X~�TAXY��RTS&YP�;           GRAPHIC PO� PLOTTER:YZ�PLOTPC LDA #$47FYd�STA $FBSYn�LDA #$3F_Yx�STA $FCnY��LDA YPIXELxY��LSR A�Y��LSR A�Y��LSR A�Y��STA YPIB�Y�ï #$03�Y��ASL A�Y��ASL A�Y��ASL A�Y��ASL A�Y��ASL A�Y��ASL A�Y��STA $02�Y�LDA $FBZ�SECZ�SBC $02Z"�STA $FB$Z,�LDA $FC1Z6�SBC #$00>Z;�SBC YPIBFZ@�PHASZJ�LDA YPIB]ZT�LSR AgZ^�LSR AsZh�STA $02{Zr�PLA�Z|�SEC�Z��SBC $02�Z��STA $FC�Z��LDA YPIXEL�Z�į #$07�Z��STA YPIB�Z��LDA $FB�Z��SEC�Z��SBC YPIB�Z��PHA�Z��LDA XPIXEL[�į #$F8[��STA YPIB[��PLA"[�CLC/[�ADC YPIB;[�STA $FBG[&�LDA $FCT[0�SBC #$00`[:�STA $FCo[D�LDA XPIXELz[Nů #$07�[X�TAX�[b�LDA #$80�[l�GBITLP CPX #$00�[v�BEQ PP��[��LSR A�[��DEX�[��JMP GBITLP�[��PP� STA $FD�[��RTS�[��PLO�N JSR PLOTPC
\��LDY #$00\��LDA ($FB),Y%\�ŰA $FD5\��STA ($FB),Y=\��RTSS\��PLO�FF JSR PLOTPC_\��LDA $FDk\�E� #$FFw\�STA $FD�\�LDY #$00�\ �LDA ($FB),Y�\*Ư $FD�\4�STA ($FB),Y�\>�RTS�\H�PLOT LDA COLOUR�\RƯ #$02�\\�BNE PPA��\f�JSR PLO�FF]p�JMP PPACNT]z�PPA� JSR PLO�N)]��PPACNT INC XPIXEL8]��LDA COLOURC]�Ư #$01P]��BNE PPB�_]��JSR PLO�FFn]��JMP PPBCNT�]��PPB� JSR PLO�N�]��PPBCNT INC XPIXEL�]��RTS�]��;       ZOOM CALCULATI� ROUTINES�]��NOZOOM JMP �ROLOP�]��ZOOMIN LDA $D015�]�֯ #$F0^�CMP #$F0^
�BNE NOZOOM#^�LDA #$1E1^�STA $4100>^(�LDA #$01L^2�STA $4101Y^<�LDA #$10g^F�STA $4102x^P�JSR SUBTRACT�^Z�LDA #$01�^d�STA $4100�^n�INC $4102�^x�JSR EQUAL�^��LDA #$10�^��STA $4100�^��LDA #$1B�^��STA $4101�^��LDA #$12_��STA $4102_��JSR MULTIPLY_��LDA #$11,_��STA $4100:_��STA $4102G_��LDA #$12U_��STA $4101c_��LDA $D008k_�SECx_�SBC #$58�_�CALCINLOPA CMP #$00�_"�BEQ CALC�IA�_,�PHA�_6�JSR ADDITI��_@�PLA�_J�TAX�_T�DEX�_^�TXA�_h�JMP CALCINLOPA`r�CALC�IA LDA #$01`|�STA $4100`��LDA #$13)`��STA $41027`��JSR EQUALD`��LDA #$13R`��STA $4100``��STA $4102m`��LDA #$12{`��STA $4101�`��LDA $D00A�`��SEC�`��SBC #$40�`��CALCINLOPB CMP #$00�`��BEQ CALC�IB�`�PHA�`�JSR ADDITI��`�PLA�`&�TAX�`0�DEX�`:�TXAaD�JMP CALCINLOPB&aN�CALC�IB LDA #$114aX�STA $4100Aab�LDA #$01Oal�STA $4102]av�JSR EQUALja��LDA #$13xa��STA $4100�a��LDA #$1E�a��STA $4102�a��JSR EQUAL�a��LDA #$1F�a��STA $4100�a��LDA #$03�a��STA $4101�a��LDA #$10�a��STA $4102b��JSR SUBTRACTb��LDA #$03b�STA $4100,b�INC $4102:b�JSR EQUALGb �LDA #$10Ub*�STA $4100bb4�LDA #$12pb>�STA $4102}bH�LDA #$1A�bR�STA $4101�b\�JSR MULTIPLY�bf�LDA #$11�bp�STA $4100�bz�STA $4102�b��LDA #$12�b��STA $4101�b��LDA #$E5�b��SECc��SBC $D00Dc��CALCINYA CMP #$00)c��BEQ CALC�IC1c��PHAAc��JSR ADDITI�Ic��PLAQc��TAXYc��DEXac��TXArc�JMP CALCINYA�c�CALC�IC LDA #$03�c�STA $4100�c$�LDA #$13�c.�STA $4102�c8�JSR EQUAL�cB�LDA #$13�cL�STA $4100�cV�STA $4102�c`�LDA #$12dj�STA $4101dt�LDA #$FAd~�SEC%d��SBC $D009;d��CALCINYB CMP #$00Kd��BEQ CALC�IDSd��PHAcd��JSR ADDITI�kd��PLAsd��TAX{d��DEX�d��TXA�d��JMP CALCINYB�d��CALC�ID LDA #$11�d��STA $4100�d�LDA #$03�d
�STA $4102�d�JSR EQUAL�d�LDA #$13�d(�STA $4100e2�LDA #$1Fe<�STA $4102$eF�JSR EQUAL7eP�CALC� LDA #$1EEeZ�STA $4100Red�LDA #$01`en�STA $4101mex�LDA #$10{e��STA $4102�e��JSR SUBTRACT�e��LDA #$10�e��STA $4100�e��LDA #$17�e��STA $4101�e��LDA #$02�e��STA $4102�e��JSR MULTIPLY�e��LDA #$1F	f��STA $4100f��LDA #$03$f��STA $41011f�LDA #$10?f�STA $4102Pf�JSR SUBTRACT]f"�LDA #$10kf,�STA $4100xf6�LDA #$1A�f@�STA $4101�fJ�LDA #$04�fT�STA $4102�f^�JSR MULTIPLY�fh�JSR M�LE�fr�JMP �ROLOP�f`�;                   ZOOM ROUTINESgj�BOX LDA XPgt�STA XPIBg~�LDA YP(g��STA YPIB4g��LDA XPBBg��STA XPBIBOg��LDX #$3C]g��STX $07FCeg��INXsg��STX $07FD{g��INX�g��STX $07FE�g��INX�g��STX $07FF�g��LDA $D015�g�A #$F0�g
�STA $D015�g�BOX� LDA CLICK�g�BNE BOX��gx�BOXLOOP LDA XPBIB	h��CMP XPBh��BEQ CHECKFINE,h��BCS LESSTHAN<h��JMP M�ETHANSh��CHECKFINE LDA XPIB^h��CMP XPoh��BCS LESSTHAN�h��M�ETHAN LDA XPIB�h��STA $D008�h��STA $D00C�h��LDX #$00�h��LDA XPBIB�h��BEQ NOXPBADD�h�LDX #$50�h�NOXPBADD LDA $D010�h� #$AFi"�STX $02i,�CLCi6�ADC $02)i@�STA $D0106iE�LDX #$00AiJ�LDA XPIiT�SECVi^�SBC #$18dih�STA $D00Arir�STA $D00E�i|�BCC MTSUB�i��LDX XPB�i��BEQ MTSUB�i��LDX #$A0�i��MTSUB LDA $D010�i�� #$5F�i��STX $02�i��CLC�i��ADC $02�i��STA $D010
j��JMP BOX�j��LESSTHAN LDA XP!j��LDX XPB.j��BNE �OUT;j�CMP #$58Hj�BCS �OUTUj�LDA #$58hj&�OUT STA $D008vj0�STA $D00C�j:�CPX #$00�jD�BEQ LTNOADD�jN�LDX #$50�jX�LTNOADD LDA $D010�jb� #$AF�jl�STX $02�jv�CLC�j��ADC $02�j��STA $D010�j��LDX #$00	k��LDA XPIBk��SECk��SBC #$18,k��STA $D00A:k��STA $D00EHk��BCC LTSUBVk��LDX XPBIBdk��BEQ LTSUBqk��LDX #$A0�k��LTSUB LDA $D010�k�� #$5F�k�STX $02�k�CLC�k�ADC $02�k �STA $D010�k*�BOX� LDA YP�k4�CMP YPIB�k>�BCC LESSY�kH�LDA YPIBlR�STA $D009l\�STA $D00Blf�LDA YP%lp�SEC2lz�SBC #$15@l��STA $D00DNl��STA $D00F]l��JMP BOX�IInl��LESSY LDA YP|l��STA $D009�l��STA $D00B�l��LDA YPIB�l��SEC�l��SBC #$15�l��STA $D00D�l��STA $D00F�l��BOX�II LDA CLICK�l��BNE BOX��l�JMP BOXLOOPm�BOX� JMP �ROLOP#m0�BOXFLASH LDA $A2.m:� #$3C8mD�LSR ABmN�LSR AJmX�TAX\mb�LDA BOXCOLS,Xjml�STA $D02Bxmv�STA $D02C�m��STA $D02D�m��STA $D02E�m��JMP $EA31�m��BOXCOLS TXT 0,9,2,8,10,7,13,1�m��TXT 1,13,3,5,14,4,6,0�m�; DELETE THESE!!n"�COLS JMP �ROLOPnT�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@.I.@negreg.$4119@.IXA;                      rom routines@IJ"Aoutdo .$ab47@XJ#A.lfs.$ffba@'J$A.nam.$ffbd@6J%A.rom.$ffd8@iJ&Aplotrrom.$e56c@QJ,A;                       sprite data@WJ1A;@.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@WKtAtxt 128,064,000,147,192,000,185,000@?K.Atxt 000,233,000,000,009,128,000,012@GKHAtxt 128,000,004,128,000,004,128,000@.KRAtxt 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@ML.Atxt 000,112,000,000,120,000,000,124@5L.Atxt 000,000,126,000,000,127,000,000@]L.Atxt 127,128,000,108,000,000,070,000@.L.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@CM.A;@+M.Atxt 255,192,000,129,064,000,128,064@sM.Atxt 000,129,064,000,066,128,000,064@.M.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@[NRBtxt 000,000,000,000,000,000,000,000@cN£Btxt 000,000,000,000,000,000,000,197@iN!B;@QN&Btxt 255,192,000,255,192,000,255,192@.N0Btxt 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@QOnBtxt 000,255,192,000,255,192,000,255@9OxBtxt 192,000,255,192,000,000,000,000@AOBBtxt 000,000,000,000,000,000,000,000@.OLBtxt 000,000,000,000,000,000,000,197@.OQB;@.OVBtxt 168,000,000,000,000,000,128,000@.O.Btxt 000,000,000,000,128,000,000,000@GP.Btxt 000,000,000,000,000,000,000,000@/P.Btxt 000,000,000,000,000,000,000,000@wP.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@%Q.Btxt 001,000,000,000,000,000,001,000@mQ.Btxt 000,000,000,000,000,000,000,000@UQ.Btxt 000,000,000,000,000,000,000,000@.Q.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@URLCtxt 000,000,000,000,000,000,000,000@[RQC;@cRVCtxt 000,000,000,000,000,000,000,000@KR Ctxt 000,000,000,000,000,000,000,000@.R*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@KShCtxt 000,000,000,000,000,000,000,000@3SrCtxt 128,000,000,000,000,000,128,000@[S£Ctxt 000,000,000,000,168,000,000,000@ASAC;@.SFCtxt 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@AT.Ctxt 000,000,000,000,000,000,000,000@)T.Ctxt 000,000,000,000,000,000,000,000@qT.Ctxt 000,000,000,000,000,000,000,000@YT.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.@DU.'.rolop lda click@SU8'bne .rolop@'Ub'.lopb lda click@5Ul'beq .lopb@@Uv'lda xp@mU.'cmp #$58@xUJ'bcc ..@DUT'jmp box@RU.'.. lda yp@.U.'cmp #$5a@.U.'bcc .rolop@.U.'sec@.U.'sbc #$5a@.U.'lsr a@.U.'lsr a@.U.'. #$fe@.U.'tax@.U.'lda vec.rs,x@.U.'sta $fb@.U.'inx@@V.'lda vec.rs,x@LV.'sta $fc@£V.'jmp ($00fb)@]V@(vec.rs txt .zoomout,.zoomout,..rolop,..rolop,.zoomin,.zoomin@.VJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@.VT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@CW.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@7W((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@KW2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@.W<(txt ..rolop,..rolop,..rolop,..rolop,..rolop,..rolop@.WD)exit jsr hiresoff@.WN)lda #$93@.WX)jsr outdo@.W")lda #$05@.W,)jsr outdo@.W6)lda #$00@HX@)sta $c6@PXj)rts@6X..;                   wimp routines@iX..; wimp - mouse@zX..irq lda #$00@HXH/sta click@TXR/lda $c5@.X£/cmp #$01@.X&/bne c.check@.X0/sta click@.X:/c.check cmp #$0c@.Xd/beq leftk@.Xn/lkc cmp #$17@.Xx/beq rightk@.XB/rkc cmp #$32@.XL/beq upk@QYV/upkc cmp #$37@.Y./beq downk@1Y./dkc lda $dc00@<Y./. #$01@hY./beq upj@zY./ujc lda $dc00@EY./. #$02@SY./beq downj@.Y./djc lda $dc00@.Y./. #$04@.Y./beq leftj@.Y./ljc lda $dc00@.Y./. #$08@.YB0beq rightj@.YL0rjc lda $dc00@.YV0. #$10@.Y 0e. #$10@@Z*0beq cjch@NZ40sta click@$Z>0cjch jmp boxflash@7Zh0leftk jsr left@cZr0jmp lkc@xZ£0rightk jsr right@DZF0jmp rkc@SZP0upk jsr up@.ZZ0jmp upkc@.Z.0downk jsr down@.Z.0jmp dkc@.Z.0upj jsr up@.Z.0jmp ujc@.Z.0downj jsr down@.Z.0jmp djc@.Z.0leftj jsr left@.Z.0jmp ljc@M[.0rightj jsr right@Y[.0jmp rjc@)[.0left dec xp@4[.0lda xp@a[.0cmp #$ff@m[F1bne .ff@z[P1ldy #$00@F[Z1sty xpb@V[$1.ff ldy xpb@.[.1bne fin@.[81cmp #$18@.[b1bne fin@.[l1inc xp@.[v1fin jmp .rol@.[.1right inc xp@.[J1lda xp@.[T1bne .00@.[.1ldy #$01@.[.1sty xpb@H£.1.00 ldy xpb@T£.1beq fin@!£.1cmp #$58@-£.1bne fin@8£.1dec xp@e£.1jmp .rol@s£.1up dec yp@.£.1lda yp@K£.1cmp #$32@W£.1bne fin@.£.1inc yp@.£@2jmp .rol@.£J2down inc yp@.£T2lda yp@.£.2cmp #$f8@.£(2bne fin@.£22dec yp@.£<2jmp .rol@.£f2; wimp . po.er@@]p2.rol lda hour@P]z2beq nhglass@]].3ldx #$3a@+].3stx $07f8@3].3inx@a].3stx $07f9@t].3nhglass lda xp@B].3sta $d000@P].3sta $d002@.].3lda yp@.].3sta $d001@.].3sta $d003@.].3lda $d010@.]H4. #$fc@.]R4lsr a@.]£4clc@.]&4adc xpb@.]04asl a@.]:4clc@.]d4adc xpb@.]n4sta $d010@G.x4lda #$00@U.B4sta $d027@".L4lda #$01@0.V4sta $d028@>..4lda $d015@j..4.a #$03@x..4sta $d015@E..4lda hour@R..4bne qtro@...4ldx #$38@...4stx $07f8@...4inx@...4stx $07f9@...4qtro rts@...4; startup routines@...4init lda #$00@...4sta $d020@..B5sta $d021@@.L5sta xp@M.V5sta hour@[. 5sta $d015@(.*5lda #$01@4.45sta xpb@a.>5lda #$80@l.h5sta yp@..r5hires. lda #$3b@N.£5sta $d011@..F5lda #$d8@..P5sta $d016@..Z5lda col0s@...5sta col0@...5lda col1s@...5sta col1@...5lda col2s@...5sta col2@...5lda col3s@...5sta col3@C .5jsr .cols@P F6jsr left@X P6sei@& Z6lda #.irq@4 $6sta $0314@b .6lda #.irq@p 86sta $0315@x b6cli@E .6lda #$18@S .6sta $d018@. 4:rts@. r:hiresoff sei@. £:lda #$31@. F:sta $0314@. P:lda #$ea@. Z:sta $0315@. .:cli@. .:lda #$00@. .:sta $d015@. .:lda #$9b@@!.:sta $d011@M!.:lda #$c8@[!.:sta $d016@(!.:lda #$15@6!.:sta $d018@>!.:rts@q! n. jsr hiresoff@.!*nlda #$1c@L!4njsr outdo@Y!>nlda #$93@.!hnjsr outdo@.!rnlda #$00@.!£n.loop pha@.!Fnasl a@.!Pnasl a@.!Znclc@.!.nadc #$42@.!.nsta $fc@.!.nldy #$00@.!.nsty $fb@.!.nsty $fd@I".nlda #$04@U".nsta $fe@,".n.loopb lda ($fb),y@<".nsta ($fd),y@d".niny@s".nbne .loopb@.".ninc $fc@K".ninc $fe@W"Folda $fe@."Pocmp #$08@."Zobne .loopb@."$o.. lda $c5@.".ocmp #$40@."8obne ..@."bo..b lda $c5@."locmp #$40@."vobeq ..b@.".otax@."Jopla@@#Tocpx #$01@O#.obeq hnom.e@£#.ocpx #$28@&#.obeq .@3#.ocpx #$2b@@#.obeq prev@m#.o.ret pha@y#.ojmp ..b@Q#.ohnom.e jmp comeback@.#.o. cmp #$04@.#.obeq .ret@.#.oclc@.#.oadc #$01@.#.ojmp .loop@.#@pprev cmp #$00@.#Jpbeq .ret@.#Tpsec@.#.psbc #$01@.#(pjmp .loop@X$.A;                   save routines@+$.A.ame txt 147,5@a$.Atxt "filename:",0@H$.A.rd txt 13,13,"(t)ape or (d)isk",0@.$.A.t txt 13,13,"position tape <space>",13,0@.$.Ainsd txt 13,13,"insert disk <space>",13,0@.$.Apstring ldy #$00@.$.Apstrlop lda ($fb),y@B%.Abeq pstrquit@P%BBjsr outdo@X%GBiny@(%LBjmp pstrlop@9%VBpstrquit rts@n% B.off lda $040a,y@z%*Be. #$80@J%4Bsta $040a,y@R%>Brts@.%hB.. lda $c5@.%rBcmp #$40@.%£Bbne ..@.%FB..b lda $c5@.%PBcmp #$40@.%ZBbeq ..b@.%.Btax@.%.Blda ..,x@.%.Bbeq ..@.%.Brts@.%.B. jsr hiresoff@J&.Bldx #$00@W&.Blda #$20@-&.B.ame. sta $41f0,x@5&.Binx@b&.Bcpx #$10@p&.Bbne .ame.@.&.Blda #..ame@K&.Bsta $fb@Z&FClda #..ame@.&PCsta $fc@.&ZCjsr pstring@.&$Clda #$00@.&.Cpha@.&8C.loop tay@.&=Cjsr .off@.&bCjsr ..@.&gCpha@.&lCjsr .off@.&qCpla@.&vCcmp #$80@J'.Cbcs decode@R'JCtay@Z'TCpla@"'.Ctax@*'.Ctya@:'.Csta $040a,x@g'.Ccmp #$20@u'.Cbcs nospc@]'.Cclc@J'.Cadc #$40@.'.Cnospc sta $41f0,x@.'.Cinc. cpx #$0f@.'.Cbeq .relop@.'.Cinx@.'.C.relop txa@.'.Cpha@.'.Cjmp .loop@.'@Ddecode cmp #$80@.'JDbeq ..@.'TDcmp #$81@D(.Dbeq .@Q((Dcmp #$82@.(2Dbne .loop@'(<Dpla@/(fDtax@=(pDlda $028d@h(zD. #$01@u(DDbeq inc.@G(NDdec. cpx #$00@V(XDbeq .relop@.(.Ddex@.(.Djmp .relop@.(.D. pla@.(.Dtax@.(.Dlda #$20@.(.Dsta $040a,x@.(.Dsta $41f0,x@.(.Djmp dec.@.(.D.. pla@.(.Dlda #..rd@.(.Dsta $fb@L).Dlda #..rd@X).Dsta $fc@().Djsr pstring@5)DE. jsr ..@b)NEcmp #$14@p)XEbeq tape.@])"Ecmp #$04@K),Ebeq disk.@U)6Ejmp .@.)@Etape. lda #..t@.)jEsta $fb@.)tElda #..t@.).Esta $fc@.)HEjsr pstring@.)REldx #$01@.).Ejmp tape.@.).Edisk. lda #.insd@.).Esta $fb@H*.Elda #.insd@T*.Esta $fc@$*.Ejsr pstring@1*.Eldx #$08@c*.Etape. lda $c5@p*.Ecmp #$3c@.*.Ebne tape.@K*.Elda #$01@S*.Etay@.*.Ejsr .lfs@.*.Eldx #$10@.*HF.ame. lda $41ef,x@.*RFcmp #$20@.*£Fbne .ame.t@.*&Fdex@.*0Fbeq .ame.t@.*:Fjmp .ame.@.*dF.ame.t txa@@+nFldx #$f0@M+BFldy #$41@Z+LFjsr .nam@'+VFlda #$20@3+.Fsta $fc@@+.Fldx #$00@l+.Fsta $fb@y+.Fldy #$40@F+.Flda #$fb@S+.Fjsr .rom@.+.Fjmp comeback@.+XI;           keyboard decode table@.+.I;@.+.I.. txt $81,$80,$82@.+.Itxt 0,0,0,0,$83,51,23,1,52,26@M,.Itxt 19,5,0,53,18,4,54,3,6,20,24@2,.Itxt 55,25,7,56,2,8,21,22,57,9,10@x,.Itxt 48,13,11,15,14,43,16,12,45,46@.,.Itxt 0,0,44,0,0,0,0,0,0,30,47,49@.,.Itxt 31,0,50,32,0,17,0,0@.,0U;          m.lebrot set plotter@.,:Um.le sei@.,<Ulda #$01@.,=Usta hour@.,>Ujsr left@.,?Ulda #$00@L-dUsta ypixel@Y-nUlda #$03@'-xUsta $4100@4-BUlda #$06@b-LUsta $4102@p-VUjsr equal@D-.Ummainl lda #$00@S-.Usta xpixel@.-.Ulda #$01@.-.Usta $4100@.-.Ulda #$05@.-.Usta $4102@.-.Ujsr equal@.-.Ummainlb lda #$05@.-.Usta $4100@.-.Ulda #$07@.-.Usta $4102@C..Ujsr equal@Q..Uinc $4100@..BVinc $4102@-.LVjsr equal@:.VVlda #$00@i. Vsta colour@[.*Vloop lda #$07@I.4Vsta $4100@W.>Vsta $4101@..hVlda #$10@..rVsta $4102@..£Vjsr multiply@..FVlda #$08@..PVsta $4100@..ZVsta $4101@...Vlda #$11@...Vsta $4102@...Vjsr multiply@E/.Vldx #$10@S/.Vstx $4100@[/.Vinx@)/.Vstx $4101@1/.Vinx@?/.Vstx $4102@o/.Vjsr additi.@]/.Vlda $4091@J/.Vcmp #$04@W/.Vbcc fail@./FWcmp #$50@./PWbcs fail@./ZWsucpass jmp success@./$Wfail inc colour@./)Wlda colour@./.Wcmp maxcol@./8Wbeq sucpass@./bWjsr subtract@I0lWlda #$12@W0vWsta $4100@$0.Wlda #$05@20JWsta $4101@?0TWlda #$13@m0.Wsta $4102@]0.Wjsr additi.@J0.Wlda #$07@X0.Wsta $4100@.0.Wlda #$08@.0.Wsta $4101@.0.Winc $4102@.0.Wjsr multiply@.0.Wlda #$14@.0.Wsta $4100@.0.Wlda #$1c@.0.Wsta $4101@.0.Wlda #$15@C1@Xsta $4102@T1JXjsr multiply@!1TXlda #$15@/1.Xsta $4100@<1(Xlda #$06@j12Xsta $4101@w1<Xlda #$16@E1fXsta $4102@U1pXjsr additi.@.1zXlda #$13@.1DXsta $4100@.1NXlda #$07@.1XXsta $4102@.1.Xjsr equal@.1.Xlda #$16@.1.Xsta $4100@.1.Xlda #$08@.1.Xsta $4102@.1.Xjsr equal@J2.Xjmp loop@.2.Xsuccess jsr plot@,2.Xlda #$05@:2.Xsta $4100@h2.Xsta $4102@u2.Xlda #$02@C2.Xsta $4101@S2DYjsr additi.@.2NYlda xpixel@.2XYbne xrelop@.2"Ylda #$06@.2,Ysta $4100@.26Ysta $4102@.2@Ylda #$04@.2jYsta $4101@.2tYjsr additi.@.2.Yinc ypixel@C3HYlda ypixel@P3RYcmp #$c8@.3.Ybne yrelop@,3.Ylda #$00@93.Ysta hour@g3.Yjsr right@o3.Ycli@w3.Yrts@N3.Yxrelop jmp mmainlb@.3.Yyrelop jmp mmainl@.3.Ym.plot jsr m.le@.3.Yjmp .rolop@.3..;                 colour routines@.3...cols lda col0@.3..sta $d021@.3..ldy #$00@G4..sty $fb@T4..lda #$d8@ 4..sta $fc@-4..lda col3@d4H..clopa sta ($fb),y@l4R.iny@[4£.bne .clopa@G4&.inc $fc@S40.ldx $fc@.4:.cpx #$dc@.4d.bne .clopa@.4n.lda #$04@.4x.sta $fc@.4B.lda col1@.4L.asl a@.4V.asl a@.4..asl a@.4..asl a@.4...a col2@@5...clopb sta ($fb),y@H5..iny@W5..beq .clopc@$5..cpy #$f8@35..bne .clopb@?5..ldx $fc@l5..cpx #$07@[5..bne .clopb@C5..rts@V5...clopc inc $fc@.5B.jmp .clopb@.5L.colc. lda .time@.5V.clc@.5 .adc speed@.5*.sta .time@.54.colclop cmp $a2@.5>.bne colclop@.5h.rts@.5r.colc.s lda $c5@I6£.cmp #$28@V6F.beq spup@#6P.cmp #$2b@06Z.beq sldn@=6..cmp #$01@m6..beq colcoff@y6..no. rts@I6..colcoff pla@Q6..pla@.6..jmp comeback@.6..spup lda speed@.6..cmp #$03@.6..beq no.@.6..dec speed@.6..rts@.6..sldn lda speed@.6..cmp #$19@.6..beq no.@.6F.inc speed@F7P.rts@£7Z.colcycle lda #$0a@*7$.sta speed@67..lda $a2@d78.sta .time@£7b.colcyclop lda col0s@I7l.sta col0@W7v.lda col1s@.7..sta col1@.7J.lda col2s@.7T.sta col2@.7..lda col3s@.7..sta col3@.7..jsr .cols@.7..jsr colc.s@.7..jsr colc.@.7..lda col3s@@8..sta col0@N8..lda col0s@[8..sta col1@)8..lda col1s@68..sta col2@d8..lda col2s@q8..sta col3@.8@.jsr .cols@N8J.jsr colc.s@.8T.jsr colc.@.8..lda col2s@.8(.sta col0@.82.lda col3s@.8<.sta col1@.8f.lda col0s@.8p.sta col2@.8z.lda col1s@.8D.sta col3@.8N.jsr .cols@E9X.jsr colc.s@S9..jsr colc.@!9..lda col1s@.9..sta col0@<9..lda col2s@i9..sta col1@w9..lda col3s@D9..sta col2@R9..lda col0s@.9..sta col3@.9..jsr .cols@.9..jsr colc.s@.9..jsr colc.@.9..jmp colcyclop@.9@.;             arithmetic routines@.9j..digit cld@.9t.asl a@E:..asl a@O:H.asl a@[:R.sta $02@#:..txa@-:..lsr a@9:..sta $24@f:..lda #$07@n:..sec@z:..sbc $24@B:..clc@N:..adc $02@V:..tay@.:..lda $4000,y@.:..tay@.:..txa@.:... #$01@.:..beq lsngd@.:H.tya@.:R.. #$f0@.:£.lsr a@.:&.lsr a@.:0.lsr a@.::.lsr a@.:d.rts@@;n.lsngd tya@K;x.. #$0f@S;B.rts@.;L.multiplyb jsr negative@<;Q.lda $4102@f;V.asl a@p;..asl a@z;..asl a@B;..tax@O;..lda #$00@W;..tay@.;..mlopa sta $4000,x@.;..iny@.;..inx@.;..cpy #$08@.;..bne mlopa@.;..lda #$06@.;..sta $fc@.;...digit lda $4101@.;B.ldx $fc@A<L.jsr .digit@N<V.cmp #$00@.< .beq dmoverb@*<*.sta $fd@7<4.lda #$06@c<>.sta $fb@w<h.dmlop lda $4100@C<r.ldx $fb@R<£.jsr .digit@.<F.cmp #$00@.<P.beq dmover@.<Z.asl a@.<..asl a@.<..asl a@.<..asl a@.<..clc@.<..adc $fd@.<..tay@.<..lda m.,y@.<..sta $35@.<... #$0f@.<..tay@J=..lda $fb@R=..clc@.=..adc $fc@&=F.sec@3=P.sbc #$0c@;=Z.tax@f=$.. #$01@t=..beq mskip@£=8.tya@F=b.asl a@P=l.asl a@Z=v.asl a@.=..asl a@.=J.tay@.=T.lda $35@.=... #$f0@.=..lsr a@.=..lsr a@.=..lsr a@.=..lsr a@.=..sta $35@.=..jmp m.@.=..dmoverb jmp dmover@K>..mskip ldy $35@X>..lda #$00@$>..sta $35@/>..m. txa@9>..lsr a@e>..sta $02@r>..lda #$07@z>..sec@F>..sbc $02@R>..sta $02@.>..lda $4102@.>..asl a@.>..asl a@.>..asl a@.>..adc $02@.>..sty $25@.>..tay@.>..sed@.>..lda $4000,y@.>..clc@.>..adc $25@.>..sta $4000,y@B?@.cld@J?B.dey@R?D.sed@"?F.lda $4000,y@.?H.adc $35@>?J.sta $4000,y@f?L.cld@z?N.malp bcc dmover@B?P.dey@J?R.sed@Z?T.lda $4000,y@.?V.adc #$00@.?X.sta $4000,y@.?Z.cld@.?£.jmp malp@.?z.dmover inc $fb@.?D.lda $fb@.?N.cmp #$0e@.?X.bcc dmlopb@.?..inc $fc@.?..lda $fc@L@..cmp #$0e@£@..bcc .digitb@)@..lda ypib@6@..beq quit@d@..lda $4102@r@..sta $4101@.@..lda #$1d@M@..sta $4100@.@..jsr subtract@.@..quit rts@.@..dmlopb jmp dmlop@.@D..digitb jmp .digit@.@".msup lda $4100@.@,.asl a@.@6.asl a@.@@.asl a@.@j.tax@.@t.dex@Da..stx $fb@RaH.lda $4101@£aR.asl a@&a..asl a@0a..asl a@8a..tax@@a..dex@la..stx $fd@za..lda $4102@Da..asl a@Na..asl a@Xa..asl a@.a..tax@.a..dex@.a..stx $22@.a..lda #$40@.a..sta $fc@.aH.sta $fe@.aR.sta $23@.a£.rts@.a&.equal jsr msup@.a0.ldy #$08@Bb:.elop lda ($fb),y@Rbd.sta ($22),y@Zbn.dey@'bx.bne elop@/bB.rts@dbL.additi. jsr msup@qbV.ldy #$08@yb..sed@Ab..clc@Wb..adlop lda ($fb),y@.b..adc ($fd),y@.b..sta ($22),y@.b..dey@.b..bne adlop@.b..cld@.b..rts@.b..subtract jsr msup@.b..ldy #$08@.b..sed@.b..sec@FcB.sulop lda ($fb),y@VcL.sbc ($fd),y@&cV.sta ($22),y@.c .dey@<c*.bne sulop@dc4.cld@lc>.rts@Bch.negative lda #$00@Jcr.pha@Xc£.lda $4100@.cF.tay@.cP.asl a@.cZ.asl a@.c..asl a@.c..tax@.c..lda $4001,x@.c..cmp #$50@.c..bcc negrmoveab@.c..pla@.c..adc #$00@.c..pha@Ed..jmp negrmovea@.d..negrmoveab lda $4101@&d..tay@0d..asl a@:d..asl a@dd..asl a@ldF.tax@£dP.lda $4001,x@IdZ.cmp #$50@Qd$.pla@.d..bcc noe.@.d8.e. #$01@.db.pha@.dl.bcs negrmoveb@.dv.negrmovebb pla@.d..noe. sta ypib@.dJ.rts@.dT.negrmove lda $4100@.d..pha@.d..lda $4101@Fe..pha@Te..lda $4102@£e..pha@$e..tya@2e..sta $4101@@e..sta $4102@me..lda #$1d@[e..sta $4100@Le..jsr subtract@Te..pla@.e..sta $4102@.e@.pla@.eJ.sta $4101@.eT.pla@.e..sta $4100@.e(.rts@.e2.negrmovea jsr negrmove@.e<.jmp negrmoveab@.ef.negrmoveb jsr negrmove@Rfp.jmp negrmovebb@)fz.multiply lda $4102@1fD.pha@?fN.lda $4101@gfX.pha@tf..lda #$18@Bf..sta $4102@Pf..jsr equal@.f..inc $4102@.f..pla@.f..sta $4100@.f..jsr equal@.f..lda #$18@.f..sta $4100@.f..lda #$19@.f..sta $4101@.f..pla@.f..sta $4102@@gD.jmp multiplyb@&g..;           multiplication tables@,g..;@wg..m. txt 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0@.g..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,0@[h..txt 0,4,8,$12,$16,$20,$24,$28,$32,$36,0,0,0,0,0,0@sh..txt 0,5,$10,$15,$20,$25,$30,$35,$40,$45,0,0,0,0,0,0@.h..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@.h..txt 0,8,$16,$24,$32,$40,$48,$56,$64,$72,0,0,0,0,0,0@3i..txt 0,9,$18,$27,$36,$45,$54,$63,$72,$81,0,0,0,0,0,0@vi..;                        .iti.@.i...text txt 147,5,"            p o s i t i o n",13,13,13,"xmin:",13@.i..txt "xmax:",13,"ymin:",13,"ymax:",0@.i..pno pha@.i..asl a@.i..asl a@.i..asl a@.i..tax@Fj@.lda $4001,x@SjJ.cmp #$50@"jT.bcs pnover@/j..lda #$2b@=j(.jsr outdo@jj*.lda #$00@yj,.sta negreg@Ej2.jmp pn.@Yj<.pnover lda #$2d@.jf.jsr outdo@.jg.lda #$01@.jh.sta negreg@.ji.pla@.jj.pha@.jk.sta $4101@.jl.sta $4102@.jm.lda #$1d@.jn.sta $4100@.jo.jsr subtract@Lkp.pn. ldx #$0c@]kz.pncb stx $22@%kD.pla@-kN.pha@<kX.jsr .digit@dk..clc@qk..adc #$30@.k..jsr outdo@Kk..ldx $22@Xk..beq pndq@.k..cpx #$0c@.k..beq pndot@.k..dex@.k..jmp pncb@.k..pndot lda #$2e@.k..jsr outdo@.k..dex@.k..jmp pncb@.kD.pndq pla@.kE.ldx negreg@IlF.beq nogreg@WlG.sta $4101@%lH.sta $4102@2lI.lda #$1d@@lJ.sta $4100@qlK.jsr subtract@.lN.nogreg rts@WlX..iti. jsr hiresoff@.l".lda #..text@.l,.sta $fb@.l6.lda #..text@.l@.sta $fc@.lj.jsr pstring@.lt.lda #$07@.l..sta $d3@.lH.lda #$03@.lR.sta $d6@Bm..jsr plotrrom@Om..lda #$01@[m..jsr pno@(m..lda #$07@4m..sta $d3@am..lda #$04@mm..sta $d6@.m..jsr plotrrom@Km..lda #$1e@Wm..jsr pno@.m..lda #$07@.m..sta $d3@.m..lda #$05@.m..sta $d6@.mH.jsr plotrrom@.mR.lda #$03@.m£.jsr pno@.m&.lda #$07@.m0.sta $d3@.m5.lda #$06@En:.sta $d6@Vnd.jsr plotrrom@#nn.lda #$1f@/nx.jsr pno@<nB.ldx #$01@inL.ldy #$00@wnQ.jsr ..off@DnV..lop txa@Ln..pha@.n...lopb jsr ..@.n..cmp #$2b@.n..beq .i.@.n..cmp #$2d@.n..beq .ineg@.n..cmp #$82@.n..beq x.move@.n..cmp #$83@.n..beq y.move@.n..cmp #$80@Eo..beq .calct@Ro..cmp #$30@ oB.bcc .lopb@-oL.cmp #$3a@;oV.bcs .lopb@go[.sta $23@oo .pla@wo%.pha@.o*.tax@No4.jsr .memad@Zo>.stx $22@.oh.tax@.or.lda $23@.o£.e. #$80@.oF.sta $047f,x@.oP.jmp .right@.oZ..calct jmp .calc@.o...i. ldx #$00@.o..jsr .memad@.o..tax@Cp..lda #$2b@Sp..sta $047f,x@!p..jmp .lopb@4p...ineg ldx #$00@cp..jsr .memad@kp..tax@xp..lda #$2d@Hp..sta $047f,x@VpF.jmp .lopb@.pP.x.move lda $028d@.pZ.. #$01@.p$.beq .right@.p..pla@.p8.tax@.p=.cpx #$01@.pb.beq .lop@.pl.lmiss jsr ..off@.pv.dex@.p..jsr ..off@FqB.cpx #$02@TqD.beq lmiss@!qJ.jmp .lop@0qT..right pla@8q..tax@eq..cpx #$0e@rq..beq .lop@Fq..rmiss jsr ..off@Nq..inx@.q..jsr ..off@.q..cpx #$02@.q..beq rmiss@.q..jmp .lop@.q..y.move pla@.q..tax@.q..lda $028d@.q... #$01@.q..beq .down@.q..cpy #$00@.q..beq .lopt@Kr..jsr ..off@Sr@.dey@!rJ.jsr ..off@/rT.jmp .lopt@br...down cpy #$03@pr(.beq .lopt@.r2.jsr ..off@Fr<.iny@Trf.jsr ..off@.rp.jmp .lopt@.rz..lopt jmp .lop@.r...sure txt 13,13,"reposition: are you sure (y/n)",0@.r...calc lda #..sure@.r..sta $fb@.r..lda #..sure@Js..sta $fc@Zs..jsr pstring@-s..surelop jsr ..@:s..cmp #$19@es..beq ..@rs..cmp #$0e@.s..beq no.@Ns..jmp surelop@.s..no. jmp comeback@.s.... lda #$80@.sB.sta $fb@.sL.lda #$04@.sV.sta $fc@.s .lda #$01@.s*.jsr .var@.s4.lda #$a8@.s>.sta $fb@.sa.lda #$04@Dtd.sta $fc@Qth.lda #$1e@.tr.jsr .var@+t£.lda #$d0@7tF.sta $fb@dtI.lda #$04@ptL.sta $fc@]tP.lda #$03@JtZ.jsr .var@Wt..lda #$f8@.t..sta $fb@.t..lda #$04@.t..sta $fc@.t..lda #$1f@.t..jsr .var@.t..jsr hires.@.t..jmp calc.@.tT..var sta $23@.tY.asl a@.t..asl a@Bu..asl a@Nu..sta $fd@[u..lda #$40@'u..sta $fe@4u..lda #$00@<u..tax@du..tay@tu..sta ($fd),y@£u..iny@Du..tya@Lu..pha@Tu..txa@.u@.tay@.uJ.lda ($fb),y@.uT.sta $22@.u..tya@.u(.tax@.u2.pla@.u<.tay@.uf.lda $22@.up.sec@.uz.sbc #$30@.uD.sta ($fd),y@.uN.iny@.uX.inx@Av..inx@Ov...vlop tya@Wv..pha@.v..txa@'v..tay@7v..lda ($fb),y@?v..sec@lv..sbc #$30@vv..asl a@.v..asl a@Jv..asl a@Tv..asl a@.v..iny@.vD.clc@.vN.adc ($fb),y@.vX.sec@.v".sbc #$30@.v,.iny@.v6.sta $22@.v@.tya@.vj.tax@.vt.pla@.v..tay@.vH.lda $22@.vR.sta ($fd),y@Aw..iny@Nw..cpy #$08@£w..bne .vlop@(w..dec $fb@5w..ldy #$00@ew..lda ($fb),y@rw..cmp #$2d@Bw..beq makeneg@Jw..rts@.w..makeneg lda $23@.w..sta $4101@.w..sta $4102@.w..lda #$1d@.w..sta $4100@.wH.jmp subtract@.w£..memad tya@.wP.asl a@.wZ.asl a@.w..asl a@.w..sta $22@Ix..asl a@Sx..asl a@[x..clc@'x..adc $22@3x..stx $22@?x..adc $22@lx..cmp #$c8@£x..bcc gmmquit@Dx..clc@Qx..adc #$28@.x..gmmquit rts@.x$...off jsr .memad@.x..sta $22@.x8.txa@.xb.pha@.xl.ldx $22@.xv.lda $047f,x@.x..e. #$80@.xJ.sta $047f,x@.xT.pla@.x..tax@By..rts@&yp.;           graphic po. plotter@:yz.plotpc lda #$47@fyD.sta $fb@syN.lda #$3f@.yX.sta $fc@Ny..lda ypixel@Xy..lsr a@.y..lsr a@.y..lsr a@.y..sta ypib@.y... #$03@.y..asl a@.y..asl a@.y..asl a@.y..asl a@.y..asl a@.y..asl a@.y..sta $02@.yD.lda $fb@@zN.sec@LzX.sbc $02@Xz".sta $fb@$z,.lda $fc@1z6.sbc #$00@>z;.sbc ypib@fz@.pha@szj.lda ypib@]zt.lsr a@Gz..lsr a@SzH.sta $02@.zR.pla@.z..sec@.z..sbc $02@.z..sta $fc@.z..lda ypixel@.z... #$07@.z..sta ypib@.z..lda $fb@.z..sec@.z..sbc ypib@.z..pha@.z..lda xpixel@E[... #$f8@R[..sta ypib@Z[..pla@"[H.clc@/[R.adc ypib@;[£.sta $fb@g[&.lda $fc@t[0.sbc #$00@.[:.sta $fc@O[d.lda xpixel@Z[n.. #$07@.[x.tax@.[B.lda #$80@.[L.gbitlp cpx #$00@.[V.beq pp.@.[..lsr a@.[..dex@.[..jmp gbitlp@.[..pp. sta $fd@.[..rts@.[..plo.n jsr plotpc@J£..ldy #$00@Z£..lda ($fb),y@%£...a $fd@5£..sta ($fb),y@=£..rts@s£..plo.ff jsr plotpc@.£..lda $fd@K£B.e. #$ff@W£L.sta $fd@.£V.ldy #$00@.£ .lda ($fb),y@.£*.. $fd@.£4.sta ($fb),y@.£>.rts@.£h.plot lda colour@.£r.. #$02@.££.bne ppa.@.£F.jsr plo.ff@@]P.jmp ppacnt@S]Z.ppa. jsr plo.n@)]..ppacnt inc xpixel@8]..lda colour@c]... #$01@p]..bne ppb.@.]..jsr plo.ff@N]..jmp ppbcnt@.]..ppb. jsr plo.n@.]..ppbcnt inc xpixel@.]..rts@.]..;       zoom calculati. routines@.]..nozoom jmp .rolop@.]..zoomin lda $d015@.]... #$f0@G.@.cmp #$f0@V.J.bne nozoom@#.T.lda #$1e@1...sta $4100@>.(.lda #$01@l.2.sta $4101@y.<.lda #$10@G.f.sta $4102@X.p.jsr subtract@..z.lda #$01@..D.sta $4100@..N.inc $4102@..X.jsr equal@....lda #$10@....sta $4100@....lda #$1b@....sta $4101@....lda #$12@@...sta $4102@Q...jsr multiply@....lda #$11@,...sta $4100@:...sta $4102@g...lda #$12@u...sta $4101@C...lda $d008@K.D.sec@X.N.sbc #$58@..X.calcinlopa cmp #$00@..".beq calc.ia@..,.pha@..6.jsr additi.@..@.pla@..j.tax@..t.dex@....txa@..H.jmp calcinlopa@@.R.calc.ia lda #$01@N...sta $4100@[...lda #$13@)...sta $4102@7...jsr equal@d...lda #$13@r...sta $4100@....sta $4102@M...lda #$12@....sta $4101@....lda $d00a@....sec@....sbc #$40@....calcinlopb cmp #$00@....beq calc.ib@..H.pha@..R.jsr additi.@..£.pla@..&.tax@..0.dex@..:.txa@QAd.jmp calcinlopb@&An.calc.ib lda #$11@4Ax.sta $4100@aAB.lda #$01@oAL.sta $4102@]AV.jsr equal@JA..lda #$13@XA..sta $4100@.A..lda #$1e@.A..sta $4102@.A..jsr equal@.A..lda #$1f@.A..sta $4100@.A..lda #$03@.A..sta $4101@.A..lda #$10@.A..sta $4102@CB..jsr subtract@PB..lda #$03@.BB.sta $4100@,BL.inc $4102@:BV.jsr equal@gB .lda #$10@uB*.sta $4100@BB4.lda #$12@PB>.sta $4102@.Bh.lda #$1a@.Br.sta $4101@.B£.jsr multiply@.BF.lda #$11@.BP.sta $4100@.BZ.sta $4102@.B..lda #$12@.B..sta $4101@.B..lda #$e5@.B..sec@CC..sbc $d00d@YC..calcinya cmp #$00@)C..beq calc.ic@1C..pha@aC..jsr additi.@iC..pla@qC..tax@yC..dex@AC..txa@RCF.jmp calcinya@.CP.calc.ic lda #$03@.CZ.sta $4100@.C$.lda #$13@.C..sta $4102@.C8.jsr equal@.Cb.lda #$13@.Cl.sta $4100@.Cv.sta $4102@.C..lda #$12@BDJ.sta $4101@ODT.lda #$fa@WD..sec@%D..sbc $d009@;D..calcinyb cmp #$00@kD..beq calc.id@sD..pha@CD..jsr additi.@KD..pla@SD..tax@.D..dex@.D..txa@.D..jmp calcinyb@.D..calc.id lda #$11@.D..sta $4100@.D@.lda #$03@.DJ.sta $4102@.DT.jsr equal@.D..lda #$13@.D(.sta $4100@HE2.lda #$1f@VE<.sta $4102@$Ef.jsr equal@7Ep.calc. lda #$1e@eEz.sta $4100@rED.lda #$01@.EN.sta $4101@MEX.lda #$10@.E..sta $4102@.E..jsr subtract@.E..lda #$10@.E..sta $4100@.E..lda #$17@.E..sta $4101@.E..lda #$02@.E..sta $4102@.E..jsr multiply@.E..lda #$1f@IF..sta $4100@VF..lda #$03@$F..sta $4101@1FD.lda #$10@?FN.sta $4102@pFX.jsr subtract@]F".lda #$10@KF,.sta $4100@XF6.lda #$1a@.F@.sta $4101@.Fj.lda #$04@.Ft.sta $4102@.F..jsr multiply@.FH.jsr m.le@.FR.jmp .rolop@.F..;                   zoom routines@CGJ.box lda xp@PGT.sta xpib@[G..lda yp@(G..sta ypib@4G..lda xpb@bG..sta xpbib@oG..ldx #$3c@]G..stx $07fc@EG..inx@SG..stx $07fd@.G..inx@.G..stx $07fe@.G..inx@.G..stx $07ff@.G..lda $d015@.G@..a #$f0@.GJ.sta $d015@.GT.box. lda click@.G..bne box.@.GX.boxloop lda xpbib@IH..cmp xpb@[H..beq checkfine@,H..bcs lessthan@<H..jmp m.ethan@sH..checkfine lda xpib@.H..cmp xp@OH..bcs lessthan@.H..m.ethan lda xpib@.H..sta $d008@.H..sta $d00c@.H..ldx #$00@.H..lda xpbib@.H..beq noxpbadd@.HD.ldx #$50@.HN.noxpbadd lda $d010@.HX.. #$af@GI".stx $02@OI,.clc@[I6.adc $02@)I@.sta $d010@6Ie.ldx #$00@aIj.lda xp@iIt.sec@vI..sbc #$18@DIH.sta $d00a@RIR.sta $d00e@.I..bcc mtsub@.I..ldx xpb@.I..beq mtsub@.I..ldx #$a0@.I..mtsub lda $d010@.I... #$5f@.I..stx $02@.I..clc@.I..adc $02@.I..sta $d010@AJ..jmp box.@UJ..lessthan lda xp@!J..ldx xpb@.J..bne .out@;JH.cmp #$58@hJR.bcs .out@uJ£.lda #$58@HJ&..out sta $d008@VJ0.sta $d00c@.J:.cpx #$00@.Jd.beq ltnoadd@.Jn.ldx #$50@.Jx.ltnoadd lda $d010@.JB.. #$af@.JL.stx $02@.JV.clc@.J..adc $02@.J..sta $d010@.J..ldx #$00@IK..lda xpib@QK..sec@.K..sbc #$18@,K..sta $d00a@:K..sta $d00e@hK..bcc ltsub@vK..ldx xpbib@DK..beq ltsub@QK..ldx #$a0@.K..ltsub lda $d010@.K... #$5f@.KB.stx $02@.KL.clc@.KV.adc $02@.K .sta $d010@.K*.box. lda yp@.K4.cmp ypib@.K>.bcc lessy@.Kh.lda ypib@DLr.sta $d009@RL£.sta $d00b@]LF.lda yp@%LP.sec@2LZ.sbc #$15@@L..sta $d00d@nL..sta $d00f@]L..jmp box.ii@NL..lessy lda yp@.L..sta $d009@.L..sta $d00b@.L..lda ypib@.L..sec@.L..sbc #$15@.L..sta $d00d@.L..sta $d00f@.L..box.ii lda click@.L..bne box.@.LF.jmp boxloop@NMP.box. jmp .rolop@#M0.boxflash lda $a2@.M:.. #$3c@8Md.lsr a@bMn.lsr a@jMx.tax@£MB.lda boxcols,x@JML.sta $d02b@XMV.sta $d02c@.M..sta $d02d@.M..sta $d02e@.M..jmp $ea31@.M..boxcols txt 0,9,2,8,10,7,13,1@.M..txt 1,13,3,5,14,4,6,0@.MX.; delete these!!@GN".cols jmp .rolop@.Nt.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 d0 09  |..SPEED.$4118...|
000001c0  f2 00 4e 45 47 52 45 47  b2 24 34 31 31 39 00 f8  |..NEGREG.$4119..|
000001d0  09 18 01 3b 20 20 20 20  20 20 20 20 20 20 20 20  |...;            |
000001e0  20 20 20 20 20 20 20 20  20 20 52 4f 4d 20 52 4f  |          ROM RO|
000001f0  55 54 49 4e 45 53 00 09  0a 22 01 4f 55 54 44 4f  |UTINES...".OUTDO|
00000200  20 b2 24 41 42 34 37 00  18 0a 23 01 e8 4c 46 53  | .$AB47...#..LFS|
00000210  b2 24 46 46 42 41 00 27  0a 24 01 e8 4e 41 4d b2  |.$FFBA.'.$..NAM.|
00000220  24 46 46 42 44 00 36 0a  25 01 e4 52 4f 4d b2 24  |$FFBD.6.%..ROM.$|
00000230  46 46 44 38 00 49 0a 26  01 50 4c 4f 54 52 52 4f  |FFD8.I.&.PLOTRRO|
00000240  4d b2 24 45 35 36 43 00  71 0a 2c 01 3b 20 20 20  |M.$E56C.q.,.;   |
00000250  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000260  20 20 20 20 53 50 52 49  54 45 20 44 41 54 41 00  |    SPRITE DATA.|
00000270  77 0a 31 01 3b 00 9f 0a  36 01 54 58 54 20 32 32  |w.1.;...6.TXT 22|
00000280  34 2c 30 30 30 2c 30 30  30 2c 31 37 36 2c 30 30  |4,000,000,176,00|
00000290  30 2c 30 30 30 2c 31 35  32 2c 30 30 30 00 c7 0a  |0,000,152,000...|
000002a0  40 01 54 58 54 20 30 30  30 2c 31 34 30 2c 30 30  |@.TXT 000,140,00|
000002b0  30 2c 30 30 30 2c 31 33  34 2c 30 30 30 2c 30 30  |0,000,134,000,00|
000002c0  30 2c 31 33 31 00 ef 0a  4a 01 54 58 54 20 30 30  |0,131...J.TXT 00|
000002d0  30 2c 30 30 30 2c 31 32  39 2c 31 32 38 2c 30 30  |0,000,129,128,00|
000002e0  30 2c 31 32 38 2c 31 39  32 2c 30 30 30 00 17 0b  |0,128,192,000...|
000002f0  54 01 54 58 54 20 31 32  38 2c 30 36 34 2c 30 30  |T.TXT 128,064,00|
00000300  30 2c 31 34 37 2c 31 39  32 2c 30 30 30 2c 31 38  |0,147,192,000,18|
00000310  35 2c 30 30 30 00 3f 0b  5e 01 54 58 54 20 30 30  |5,000.?.^.TXT 00|
00000320  30 2c 32 33 33 2c 30 30  30 2c 30 30 30 2c 30 30  |0,233,000,000,00|
00000330  39 2c 31 32 38 2c 30 30  30 2c 30 31 32 00 67 0b  |9,128,000,012.g.|
00000340  68 01 54 58 54 20 31 32  38 2c 30 30 30 2c 30 30  |h.TXT 128,000,00|
00000350  34 2c 31 32 38 2c 30 30  30 2c 30 30 34 2c 31 32  |4,128,000,004,12|
00000360  38 2c 30 30 30 00 8f 0b  72 01 54 58 54 20 30 30  |8,000...r.TXT 00|
00000370  37 2c 31 32 38 2c 30 30  30 2c 30 30 30 2c 30 30  |7,128,000,000,00|
00000380  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 b7 0b  |0,000,000,000...|
00000390  7c 01 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  ||.TXT 000,000,00|
000003a0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000003b0  30 2c 31 35 33 00 bd 0b  81 01 3b 00 e5 0b 86 01  |0,153.....;.....|
000003c0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
000003d0  30 36 34 2c 30 30 30 2c  30 30 30 2c 30 39 36 2c  |064,000,000,096,|
000003e0  30 30 30 00 0d 0c 90 01  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
000003f0  31 31 32 2c 30 30 30 2c  30 30 30 2c 31 32 30 2c  |112,000,000,120,|
00000400  30 30 30 2c 30 30 30 2c  31 32 34 00 35 0c 9a 01  |000,000,124.5...|
00000410  54 58 54 20 30 30 30 2c  30 30 30 2c 31 32 36 2c  |TXT 000,000,126,|
00000420  30 30 30 2c 30 30 30 2c  31 32 37 2c 30 30 30 2c  |000,000,127,000,|
00000430  30 30 30 00 5d 0c a4 01  54 58 54 20 31 32 37 2c  |000.]...TXT 127,|
00000440  31 32 38 2c 30 30 30 2c  31 30 38 2c 30 30 30 2c  |128,000,108,000,|
00000450  30 30 30 2c 30 37 30 2c  30 30 30 00 85 0c ae 01  |000,070,000.....|
00000460  54 58 54 20 30 30 30 2c  30 30 36 2c 30 30 30 2c  |TXT 000,006,000,|
00000470  30 30 30 2c 30 30 36 2c  30 30 30 2c 30 30 30 2c  |000,006,000,000,|
00000480  30 30 33 00 ad 0c b8 01  54 58 54 20 30 30 30 2c  |003.....TXT 000,|
00000490  30 30 30 2c 30 30 33 2c  30 30 30 2c 30 30 30 2c  |000,003,000,000,|
000004a0  30 30 33 2c 30 30 30 2c  30 30 30 00 d5 0c c2 01  |003,000,000.....|
000004b0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,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 00 fd 0c cc 01  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
000004e0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
000004f0  30 30 30 2c 30 30 30 2c  31 35 33 00 03 0d d1 01  |000,000,153.....|
00000500  3b 00 2b 0d d6 01 54 58  54 20 32 35 35 2c 31 39  |;.+...TXT 255,19|
00000510  32 2c 30 30 30 2c 31 32  39 2c 30 36 34 2c 30 30  |2,000,129,064,00|
00000520  30 2c 31 32 38 2c 30 36  34 00 53 0d e0 01 54 58  |0,128,064.S...TX|
00000530  54 20 30 30 30 2c 31 32  39 2c 30 36 34 2c 30 30  |T 000,129,064,00|
00000540  30 2c 30 36 36 2c 31 32  38 2c 30 30 30 2c 30 36  |0,066,128,000,06|
00000550  34 00 7b 0d ea 01 54 58  54 20 31 32 38 2c 30 30  |4.{...TXT 128,00|
00000560  30 2c 30 35 31 2c 30 30  30 2c 30 30 30 2c 30 31  |0,051,000,000,01|
00000570  32 2c 30 30 30 2c 30 30  30 00 a3 0d f4 01 54 58  |2,000,000.....TX|
00000580  54 20 30 35 35 2c 30 30  30 2c 30 30 30 2c 30 36  |T 055,000,000,06|
00000590  35 2c 31 32 38 2c 30 30  30 2c 30 36 36 2c 31 32  |5,128,000,066,12|
000005a0  38 00 cb 0d fe 01 54 58  54 20 30 30 30 2c 31 32  |8.....TXT 000,12|
000005b0  39 2c 30 36 34 2c 30 30  30 2c 31 33 30 2c 31 39  |9,064,000,130,19|
000005c0  32 2c 30 30 30 2c 31 33  33 00 f3 0d 08 02 54 58  |2,000,133.....TX|
000005d0  54 20 30 36 34 2c 30 30  30 2c 32 35 35 2c 31 39  |T 064,000,255,19|
000005e0  32 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |2,000,000,000,00|
000005f0  30 00 1b 0e 12 02 54 58  54 20 30 30 30 2c 30 30  |0.....TXT 000,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 00 43 0e 1c 02 54 58  |0,000,000.C...TX|
00000620  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,000,000,00|
00000630  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 39  |0,000,000,000,19|
00000640  37 00 49 0e 21 02 3b 00  71 0e 26 02 54 58 54 20  |7.I.!.;.q.&.TXT |
00000650  32 35 35 2c 31 39 32 2c  30 30 30 2c 32 35 35 2c  |255,192,000,255,|
00000660  31 39 32 2c 30 30 30 2c  32 35 35 2c 31 39 32 00  |192,000,255,192.|
00000670  99 0e 30 02 54 58 54 20  30 30 30 2c 32 35 35 2c  |..0.TXT 000,255,|
00000680  31 39 32 2c 30 30 30 2c  31 32 37 2c 31 32 38 2c  |192,000,127,128,|
00000690  30 30 30 2c 31 32 37 00  c1 0e 3a 02 54 58 54 20  |000,127...:.TXT |
000006a0  31 32 38 2c 30 30 30 2c  30 36 33 2c 30 30 30 2c  |128,000,063,000,|
000006b0  30 30 30 2c 30 31 32 2c  30 30 30 2c 30 30 30 00  |000,012,000,000.|
000006c0  e9 0e 44 02 54 58 54 20  30 36 33 2c 30 30 30 2c  |..D.TXT 063,000,|
000006d0  30 30 30 2c 31 32 37 2c  31 32 38 2c 30 30 30 2c  |000,127,128,000,|
000006e0  31 32 37 2c 31 32 38 00  11 0f 4e 02 54 58 54 20  |127,128...N.TXT |
000006f0  30 30 30 2c 32 35 35 2c  31 39 32 2c 30 30 30 2c  |000,255,192,000,|
00000700  32 35 35 2c 31 39 32 2c  30 30 30 2c 32 35 35 00  |255,192,000,255.|
00000710  39 0f 58 02 54 58 54 20  31 39 32 2c 30 30 30 2c  |9.X.TXT 192,000,|
00000720  32 35 35 2c 31 39 32 2c  30 30 30 2c 30 30 30 2c  |255,192,000,000,|
00000730  30 30 30 2c 30 30 30 00  61 0f 62 02 54 58 54 20  |000,000.a.b.TXT |
00000740  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000750  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000760  89 0f 6c 02 54 58 54 20  30 30 30 2c 30 30 30 2c  |..l.TXT 000,000,|
00000770  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000780  30 30 30 2c 31 39 37 00  8f 0f 71 02 3b 00 b7 0f  |000,197...q.;...|
00000790  76 02 54 58 54 20 31 36  38 2c 30 30 30 2c 30 30  |v.TXT 168,000,00|
000007a0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 32  |0,000,000,000,12|
000007b0  38 2c 30 30 30 00 df 0f  80 02 54 58 54 20 30 30  |8,000.....TXT 00|
000007c0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 31 32  |0,000,000,000,12|
000007d0  38 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 07 10  |8,000,000,000...|
000007e0  8a 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,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 00 2f 10  94 02 54 58 54 20 30 30  |0,000./...TXT 00|
00000810  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000820  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 57 10  |0,000,000,000.W.|
00000830  9e 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,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 00 7f 10  a8 02 54 58 54 20 30 30  |0,000.....TXT 00|
00000860  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000870  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 00 a7 10  |0,000,000,000...|
00000880  b2 02 54 58 54 20 30 30  30 2c 30 30 30 2c 30 30  |..TXT 000,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 00 cf 10  bc 02 54 58 54 20 30 30  |0,000.....TXT 00|
000008b0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
000008c0  30 2c 30 30 30 2c 30 30  30 2c 31 39 37 00 d5 10  |0,000,000,197...|
000008d0  c1 02 3b 00 fd 10 c6 02  54 58 54 20 30 30 30 2c  |..;.....TXT 000,|
000008e0  30 30 30 2c 30 32 31 2c  30 30 30 2c 30 30 30 2c  |000,021,000,000,|
000008f0  30 30 30 2c 30 30 30 2c  30 30 30 00 25 11 d0 02  |000,000,000.%...|
00000900  54 58 54 20 30 30 31 2c  30 30 30 2c 30 30 30 2c  |TXT 001,000,000,|
00000910  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 31 2c  |000,000,000,001,|
00000920  30 30 30 00 4d 11 da 02  54 58 54 20 30 30 30 2c  |000.M...TXT 000,|
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 00 75 11 e4 02  |000,000,000.u...|
00000950  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,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 00 9d 11 ee 02  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
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 00 c5 11 f8 02  |000,000,000.....|
000009a0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,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 00 ed 11 02 03  54 58 54 20 30 30 30 2c  |000.....TXT 000,|
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 00 15 12 0c 03  |000,000,000.....|
000009f0  54 58 54 20 30 30 30 2c  30 30 30 2c 30 30 30 2c  |TXT 000,000,000,|
00000a00  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000a10  30 30 30 00 1b 12 11 03  3b 00 43 12 16 03 54 58  |000.....;.C...TX|
00000a20  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,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 00 6b 12 20 03 54 58  54 20 30 30 30 2c 30 30  |0.k. .TXT 000,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 00 93 12 2a 03 54 58  |0,000,000...*.TX|
00000a70  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,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 00 bb 12 34 03 54 58  54 20 30 30 30 2c 30 30  |0...4.TXT 000,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 00 e3 12 3e 03 54 58  |0,000,000...>.TX|
00000ac0  54 20 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |T 000,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 00 0b 13 48 03 54 58  54 20 30 30 30 2c 30 30  |0...H.TXT 000,00|
00000af0  30 2c 30 30 30 2c 30 30  30 2c 30 30 30 2c 30 30  |0,000,000,000,00|
00000b00  30 2c 30 30 30 2c 30 30  30 00 33 13 52 03 54 58  |0,000,000.3.R.TX|
00000b10  54 20 31 32 38 2c 30 30  30 2c 30 30 30 2c 30 30  |T 128,000,000,00|
00000b20  30 2c 30 30 30 2c 30 30  30 2c 31 32 38 2c 30 30  |0,000,000,128,00|
00000b30  30 00 5b 13 5c 03 54 58  54 20 30 30 30 2c 30 30  |0.[.\.TXT 000,00|
00000b40  30 2c 30 30 30 2c 30 30  30 2c 31 36 38 2c 30 30  |0,000,000,168,00|
00000b50  30 2c 30 30 30 2c 30 30  30 00 61 13 61 03 3b 00  |0,000,000.a.a.;.|
00000b60  89 13 66 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |..f.TXT 000,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 00  b1 13 70 03 54 58 54 20  |000,000...p.TXT |
00000b90  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000ba0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000bb0  d9 13 7a 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |..z.TXT 000,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 00  01 14 84 03 54 58 54 20  |000,000.....TXT |
00000be0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000bf0  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000c00  29 14 8e 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |)...TXT 000,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 00  51 14 98 03 54 58 54 20  |000,000.Q...TXT |
00000c30  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |000,000,000,000,|
00000c40  30 30 30 2c 30 30 30 2c  30 30 30 2c 30 30 30 00  |000,000,000,000.|
00000c50  79 14 a2 03 54 58 54 20  30 30 30 2c 30 30 30 2c  |y...TXT 000,000,|
00000c60  30 30 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |001,000,000,000,|
00000c70  30 30 30 2c 30 30 30 00  a1 14 ac 03 54 58 54 20  |000,000.....TXT |
00000c80  30 30 31 2c 30 30 30 2c  30 30 30 2c 30 30 30 2c  |001,000,000,000,|
00000c90  30 30 30 2c 30 30 30 2c  30 32 31 2c 30 30 30 00  |000,000,021,000.|
00000ca0  a7 14 b1 03 3b 00 ca 14  10 27 3b 20 20 20 20 20  |....;....';     |
00000cb0  20 20 20 20 20 20 4d 41  49 4e 20 9a 52 4f 4c 20  |      MAIN .ROL |
00000cc0  52 4f 55 54 49 4e 45 53  00 d7 14 1a 27 4a 53 52  |ROUTINES....'JSR|
00000cd0  20 49 4e 49 54 00 ef 14  24 27 43 4f 4d 45 42 41  | INIT...$'COMEBA|
00000ce0  43 4b 20 4a 53 52 20 48  49 52 45 53 91 00 04 15  |CK JSR HIRES....|
00000cf0  2e 27 9a 52 4f 4c 4f 50  20 4c 44 41 20 43 4c 49  |.'.ROLOP LDA CLI|
00000d00  43 4b 00 13 15 38 27 42  4e 45 20 9a 52 4f 4c 4f  |CK...8'BNE .ROLO|
00000d10  50 00 27 15 42 27 9a 4c  4f 50 42 20 4c 44 41 20  |P.'.B'.LOPB LDA |
00000d20  43 4c 49 43 4b 00 35 15  4c 27 42 45 51 20 9a 4c  |CLICK.5.L'BEQ .L|
00000d30  4f 50 42 00 40 15 56 27  4c 44 41 20 58 50 00 4d  |OPB.@.V'LDA XP.M|
00000d40  15 60 27 43 4d 50 20 23  24 35 38 00 58 15 6a 27  |.`'CMP #$58.X.j'|
00000d50  42 43 43 20 9a 9a 00 64  15 74 27 4a 4d 50 20 42  |BCC ...d.t'JMP B|
00000d60  4f 58 00 72 15 7e 27 9a  9a 20 4c 44 41 20 59 50  |OX.r.~'.. LDA YP|
00000d70  00 7f 15 80 27 43 4d 50  20 23 24 35 41 00 8e 15  |....'CMP #$5A...|
00000d80  82 27 42 43 43 20 9a 52  4f 4c 4f 50 00 96 15 88  |.'BCC .ROLOP....|
00000d90  27 53 45 43 00 a3 15 92  27 53 42 43 20 23 24 35  |'SEC....'SBC #$5|
00000da0  41 00 ad 15 9c 27 4c 53  52 20 41 00 b7 15 a6 27  |A....'LSR A....'|
00000db0  4c 53 52 20 41 00 c2 15  b0 27 af 20 23 24 46 45  |LSR A....'. #$FE|
00000dc0  00 ca 15 ba 27 54 41 58  00 db 15 c4 27 4c 44 41  |....'TAX....'LDA|
00000dd0  20 56 45 43 a4 52 53 2c  58 00 e7 15 ce 27 53 54  | VEC.RS,X....'ST|
00000de0  41 20 24 46 42 00 ef 15  d8 27 49 4e 58 00 00 16  |A $FB....'INX...|
00000df0  e2 27 4c 44 41 20 56 45  43 a4 52 53 2c 58 00 0c  |.'LDA VEC.RS,X..|
00000e00  16 ec 27 53 54 41 20 24  46 43 00 1c 16 f6 27 4a  |..'STA $FC....'J|
00000e10  4d 50 20 28 24 30 30 46  42 29 00 5d 16 00 28 56  |MP ($00FB).]..(V|
00000e20  45 43 a4 52 53 20 54 58  54 20 b3 5a 4f 4f 4d 4f  |EC.RS TXT .ZOOMO|
00000e30  55 54 2c b1 5a 4f 4f 4d  4f 55 54 2c b3 9a 52 4f  |UT,.ZOOMOUT,..RO|
00000e40  4c 4f 50 2c b1 9a 52 4f  4c 4f 50 2c b3 5a 4f 4f  |LOP,..ROLOP,.ZOO|
00000e50  4d 49 4e 2c b1 5a 4f 4f  4d 49 4e 00 93 16 0a 28  |MIN,.ZOOMIN....(|
00000e60  54 58 54 20 b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |TXT ..ROLOP,..RO|
00000e70  4c 4f 50 2c b3 b9 49 54  49 91 2c b1 b9 49 54 49  |LOP,..ITI.,..ITI|
00000e80  91 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |.,..ROLOP,..ROLO|
00000e90  50 00 c7 16 14 28 54 58  54 20 b3 9a 52 4f 4c 4f  |P....(TXT ..ROLO|
00000ea0  50 2c b1 9a 52 4f 4c 4f  50 2c b3 43 4f 4c 53 2c  |P,..ROLOP,.COLS,|
00000eb0  b1 43 4f 4c 53 2c b3 9a  52 4f 4c 4f 50 2c b1 9a  |.COLS,..ROLOP,..|
00000ec0  52 4f 4c 4f 50 00 03 17  1e 28 54 58 54 20 b3 43  |ROLOP....(TXT .C|
00000ed0  4f 4c 43 59 43 4c 45 2c  b1 43 4f 4c 43 59 43 4c  |OLCYCLE,.COLCYCL|
00000ee0  45 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |E,..ROLOP,..ROLO|
00000ef0  50 2c b3 4d af 50 4c 4f  54 2c b1 4d af 50 4c 4f  |P,.M.PLOT,.M.PLO|
00000f00  54 00 37 17 28 28 54 58  54 20 b3 9a 52 4f 4c 4f  |T.7.((TXT ..ROLO|
00000f10  50 2c b1 9a 52 4f 4c 4f  50 2c b3 9a 52 4f 4c 4f  |P,..ROLOP,..ROLO|
00000f20  50 2c b1 9a 52 4f 4c 4f  50 2c b3 45 58 49 54 2c  |P,..ROLOP,.EXIT,|
00000f30  b1 45 58 49 54 00 6b 17  32 28 54 58 54 20 b3 9a  |.EXIT.k.2(TXT ..|
00000f40  52 4f 4c 4f 50 2c b1 9a  52 4f 4c 4f 50 2c b3 e1  |ROLOP,..ROLOP,..|
00000f50  2c b1 e1 2c b3 9a 52 4f  4c 4f 50 2c b1 9a 52 4f  |,..,..ROLOP,..RO|
00000f60  4c 4f 50 2c b3 e4 2c b1  e4 00 a3 17 3c 28 54 58  |LOP,..,.....<(TX|
00000f70  54 20 b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |T ..ROLOP,..ROLO|
00000f80  50 2c b3 9a 52 4f 4c 4f  50 2c b1 9a 52 4f 4c 4f  |P,..ROLOP,..ROLO|
*
00000fa0  50 00 b9 17 04 29 45 58  49 54 20 4a 53 52 20 48  |P....)EXIT JSR H|
00000fb0  49 52 45 53 4f 46 46 00  c6 17 0e 29 4c 44 41 20  |IRESOFF....)LDA |
00000fc0  23 24 39 33 00 d4 17 18  29 4a 53 52 20 4f 55 54  |#$93....)JSR OUT|
00000fd0  44 4f 00 e1 17 22 29 4c  44 41 20 23 24 30 35 00  |DO...")LDA #$05.|
00000fe0  ef 17 2c 29 4a 53 52 20  4f 55 54 44 4f 00 fc 17  |..,)JSR OUTDO...|
00000ff0  36 29 4c 44 41 20 23 24  30 30 00 08 18 40 29 53  |6)LDA #$00...@)S|
00001000  54 41 20 24 43 36 00 10  18 4a 29 52 54 53 00 36  |TA $C6...J)RTS.6|
00001010  18 e0 2e 3b 20 20 20 20  20 20 20 20 20 20 20 20  |...;            |
00001020  20 20 20 20 20 20 20 57  49 4d 50 20 52 4f 55 54  |       WIMP ROUT|
00001030  49 4e 45 53 00 49 18 f4  2e 3b 20 57 49 4d 50 20  |INES.I...; WIMP |
00001040  2d 20 4d 4f 55 53 45 00  5a 18 fe 2e 49 52 51 20  |- MOUSE.Z...IRQ |
00001050  4c 44 41 20 23 24 30 30  00 68 18 08 2f 53 54 41  |LDA #$00.h../STA|
00001060  20 43 4c 49 43 4b 00 74  18 12 2f 4c 44 41 20 24  | CLICK.t../LDA $|
00001070  43 35 00 81 18 1c 2f 43  4d 50 20 23 24 30 31 00  |C5..../CMP #$01.|
00001080  91 18 26 2f 42 4e 45 20  43 91 43 48 45 43 4b 00  |..&/BNE C.CHECK.|
00001090  9f 18 30 2f 53 54 41 20  43 4c 49 43 4b 00 b4 18  |..0/STA CLICK...|
000010a0  3a 2f 43 91 43 48 45 43  4b 20 43 4d 50 20 23 24  |:/C.CHECK CMP #$|
000010b0  30 43 00 c2 18 44 2f 42  45 51 20 4c 45 46 54 4b  |0C...D/BEQ LEFTK|
000010c0  00 d3 18 4e 2f 4c 4b 43  20 43 4d 50 20 23 24 31  |...N/LKC CMP #$1|
000010d0  37 00 e2 18 58 2f 42 45  51 20 52 49 47 48 54 4b  |7...X/BEQ RIGHTK|
000010e0  00 f3 18 62 2f 52 4b 43  20 43 4d 50 20 23 24 33  |...b/RKC CMP #$3|
000010f0  32 00 ff 18 6c 2f 42 45  51 20 55 50 4b 00 11 19  |2...l/BEQ UPK...|
00001100  76 2f 55 50 4b 43 20 43  4d 50 20 23 24 33 37 00  |v/UPKC CMP #$37.|
00001110  1f 19 80 2f 42 45 51 20  44 4f 57 4e 4b 00 31 19  |.../BEQ DOWNK.1.|
00001120  8a 2f 44 4b 43 20 4c 44  41 20 24 44 43 30 30 00  |./DKC LDA $DC00.|
00001130  3c 19 9e 2f af 20 23 24  30 31 00 48 19 a8 2f 42  |<../. #$01.H../B|
00001140  45 51 20 55 50 4a 00 5a  19 b2 2f 55 4a 43 20 4c  |EQ UPJ.Z../UJC L|
00001150  44 41 20 24 44 43 30 30  00 65 19 bc 2f af 20 23  |DA $DC00.e../. #|
00001160  24 30 32 00 73 19 c6 2f  42 45 51 20 44 4f 57 4e  |$02.s../BEQ DOWN|
00001170  4a 00 85 19 d0 2f 44 4a  43 20 4c 44 41 20 24 44  |J..../DJC LDA $D|
00001180  43 30 30 00 90 19 da 2f  af 20 23 24 30 34 00 9e  |C00..../. #$04..|
00001190  19 e4 2f 42 45 51 20 4c  45 46 54 4a 00 b0 19 ee  |../BEQ LEFTJ....|
000011a0  2f 4c 4a 43 20 4c 44 41  20 24 44 43 30 30 00 bb  |/LJC LDA $DC00..|
000011b0  19 f8 2f af 20 23 24 30  38 00 ca 19 02 30 42 45  |../. #$08....0BE|
000011c0  51 20 52 49 47 48 54 4a  00 dc 19 0c 30 52 4a 43  |Q RIGHTJ....0RJC|
000011d0  20 4c 44 41 20 24 44 43  30 30 00 e7 19 16 30 af  | LDA $DC00....0.|
000011e0  20 23 24 31 30 00 f3 19  20 30 45 b0 20 23 24 31  | #$10... 0E. #$1|
000011f0  30 00 00 1a 2a 30 42 45  51 20 43 4a 43 48 00 0e  |0...*0BEQ CJCH..|
00001200  1a 34 30 53 54 41 20 43  4c 49 43 4b 00 24 1a 3e  |.40STA CLICK.$.>|
00001210  30 43 4a 43 48 20 4a 4d  50 20 42 4f 58 46 4c 41  |0CJCH JMP BOXFLA|
00001220  53 48 00 37 1a 48 30 4c  45 46 54 4b 20 4a 53 52  |SH.7.H0LEFTK JSR|
00001230  20 4c 45 46 54 00 43 1a  52 30 4a 4d 50 20 4c 4b  | LEFT.C.R0JMP LK|
00001240  43 00 58 1a 5c 30 52 49  47 48 54 4b 20 4a 53 52  |C.X.\0RIGHTK JSR|
00001250  20 52 49 47 48 54 00 64  1a 66 30 4a 4d 50 20 52  | RIGHT.d.f0JMP R|
00001260  4b 43 00 73 1a 70 30 55  50 4b 20 4a 53 52 20 55  |KC.s.p0UPK JSR U|
00001270  50 00 80 1a 7a 30 4a 4d  50 20 55 50 4b 43 00 93  |P...z0JMP UPKC..|
00001280  1a 84 30 44 4f 57 4e 4b  20 4a 53 52 20 44 4f 57  |..0DOWNK JSR DOW|
00001290  4e 00 9f 1a 8e 30 4a 4d  50 20 44 4b 43 00 ae 1a  |N....0JMP DKC...|
000012a0  98 30 55 50 4a 20 4a 53  52 20 55 50 00 ba 1a a2  |.0UPJ JSR UP....|
000012b0  30 4a 4d 50 20 55 4a 43  00 cd 1a ac 30 44 4f 57  |0JMP UJC....0DOW|
000012c0  4e 4a 20 4a 53 52 20 44  4f 57 4e 00 d9 1a b6 30  |NJ JSR DOWN....0|
000012d0  4a 4d 50 20 44 4a 43 00  ec 1a c0 30 4c 45 46 54  |JMP DJC....0LEFT|
000012e0  4a 20 4a 53 52 20 4c 45  46 54 00 f8 1a ca 30 4a  |J JSR LEFT....0J|
000012f0  4d 50 20 4c 4a 43 00 0d  1b d4 30 52 49 47 48 54  |MP LJC....0RIGHT|
00001300  4a 20 4a 53 52 20 52 49  47 48 54 00 19 1b de 30  |J JSR RIGHT....0|
00001310  4a 4d 50 20 52 4a 43 00  29 1b e8 30 4c 45 46 54  |JMP RJC.)..0LEFT|
00001320  20 44 45 43 20 58 50 00  34 1b f2 30 4c 44 41 20  | DEC XP.4..0LDA |
00001330  58 50 00 41 1b fc 30 43  4d 50 20 23 24 46 46 00  |XP.A..0CMP #$FF.|
00001340  4d 1b 06 31 42 4e 45 20  a8 46 46 00 5a 1b 10 31  |M..1BNE .FF.Z..1|
00001350  4c 44 59 20 23 24 30 30  00 66 1b 1a 31 53 54 59  |LDY #$00.f..1STY|
00001360  20 58 50 42 00 76 1b 24  31 a8 46 46 20 4c 44 59  | XPB.v.$1.FF LDY|
00001370  20 58 50 42 00 82 1b 2e  31 42 4e 45 20 46 49 4e  | XPB....1BNE FIN|
00001380  00 8f 1b 38 31 43 4d 50  20 23 24 31 38 00 9b 1b  |...81CMP #$18...|
00001390  42 31 42 4e 45 20 46 49  4e 00 a6 1b 4c 31 49 4e  |B1BNE FIN...L1IN|
000013a0  43 20 58 50 00 b7 1b 56  31 46 49 4e 20 4a 4d 50  |C XP...V1FIN JMP|
000013b0  20 9a 52 4f 4c 00 c8 1b  60 31 52 49 47 48 54 20  | .ROL...`1RIGHT |
000013c0  49 4e 43 20 58 50 00 d3  1b 6a 31 4c 44 41 20 58  |INC XP...j1LDA X|
000013d0  50 00 df 1b 74 31 42 4e  45 20 a8 30 30 00 ec 1b  |P...t1BNE .00...|
000013e0  7e 31 4c 44 59 20 23 24  30 31 00 f8 1b 88 31 53  |~1LDY #$01....1S|
000013f0  54 59 20 58 50 42 00 08  1c 92 31 a8 30 30 20 4c  |TY XPB....1.00 L|
00001400  44 59 20 58 50 42 00 14  1c 9c 31 42 45 51 20 46  |DY XPB....1BEQ F|
00001410  49 4e 00 21 1c a6 31 43  4d 50 20 23 24 35 38 00  |IN.!..1CMP #$58.|
00001420  2d 1c b0 31 42 4e 45 20  46 49 4e 00 38 1c ba 31  |-..1BNE FIN.8..1|
00001430  44 45 43 20 58 50 00 45  1c c4 31 4a 4d 50 20 9a  |DEC XP.E..1JMP .|
00001440  52 4f 4c 00 53 1c ce 31  55 50 20 44 45 43 20 59  |ROL.S..1UP DEC Y|
00001450  50 00 5e 1c d8 31 4c 44  41 20 59 50 00 6b 1c e2  |P.^..1LDA YP.k..|
00001460  31 43 4d 50 20 23 24 33  32 00 77 1c ec 31 42 4e  |1CMP #$32.w..1BN|
00001470  45 20 46 49 4e 00 82 1c  f6 31 49 4e 43 20 59 50  |E FIN....1INC YP|
00001480  00 8f 1c 00 32 4a 4d 50  20 9a 52 4f 4c 00 9f 1c  |....2JMP .ROL...|
00001490  0a 32 44 4f 57 4e 20 49  4e 43 20 59 50 00 aa 1c  |.2DOWN INC YP...|
000014a0  14 32 4c 44 41 20 59 50  00 b7 1c 1e 32 43 4d 50  |.2LDA YP....2CMP|
000014b0  20 23 24 46 38 00 c3 1c  28 32 42 4e 45 20 46 49  | #$F8...(2BNE FI|
000014c0  4e 00 ce 1c 32 32 44 45  43 20 59 50 00 db 1c 3c  |N...22DEC YP...<|
000014d0  32 4a 4d 50 20 9a 52 4f  4c 00 ee 1c 46 32 3b 20  |2JMP .ROL...F2; |
000014e0  57 49 4d 50 20 ab 20 50  4f b5 45 52 00 00 1d 50  |WIMP . PO.ER...P|
000014f0  32 9a 52 4f 4c 20 4c 44  41 20 48 4f 55 52 00 10  |2.ROL LDA HOUR..|
00001500  1d 5a 32 42 45 51 20 4e  48 47 4c 41 53 53 00 1d  |.Z2BEQ NHGLASS..|
00001510  1d 9a 33 4c 44 58 20 23  24 33 41 00 2b 1d a4 33  |..3LDX #$3A.+..3|
00001520  53 54 58 20 24 30 37 46  38 00 33 1d ae 33 49 4e  |STX $07F8.3..3IN|
00001530  58 00 41 1d b8 33 53 54  58 20 24 30 37 46 39 00  |X.A..3STX $07F9.|
00001540  54 1d c2 33 4e 48 47 4c  41 53 53 20 4c 44 41 20  |T..3NHGLASS LDA |
00001550  58 50 00 62 1d cc 33 53  54 41 20 24 44 30 30 30  |XP.b..3STA $D000|
00001560  00 70 1d d6 33 53 54 41  20 24 44 30 30 32 00 7b  |.p..3STA $D002.{|
00001570  1d e0 33 4c 44 41 20 59  50 00 89 1d ea 33 53 54  |..3LDA YP....3ST|
00001580  41 20 24 44 30 30 31 00  97 1d f4 33 53 54 41 20  |A $D001....3STA |
00001590  24 44 30 30 33 00 a5 1d  fe 33 4c 44 41 20 24 44  |$D003....3LDA $D|
000015a0  30 31 30 00 b0 1d 08 34  af 20 23 24 46 43 00 ba  |010....4. #$FC..|
000015b0  1d 12 34 4c 53 52 20 41  00 c2 1d 1c 34 43 4c 43  |..4LSR A....4CLC|
000015c0  00 ce 1d 26 34 41 44 43  20 58 50 42 00 d8 1d 30  |...&4ADC XPB...0|
000015d0  34 41 53 4c 20 41 00 e0  1d 3a 34 43 4c 43 00 ec  |4ASL A...:4CLC..|
000015e0  1d 44 34 41 44 43 20 58  50 42 00 fa 1d 4e 34 53  |.D4ADC XPB...N4S|
000015f0  54 41 20 24 44 30 31 30  00 07 1e 58 34 4c 44 41  |TA $D010...X4LDA|
00001600  20 23 24 30 30 00 15 1e  62 34 53 54 41 20 24 44  | #$00...b4STA $D|
00001610  30 32 37 00 22 1e 6c 34  4c 44 41 20 23 24 30 31  |027.".l4LDA #$01|
00001620  00 30 1e 76 34 53 54 41  20 24 44 30 32 38 00 3e  |.0.v4STA $D028.>|
00001630  1e 80 34 4c 44 41 20 24  44 30 31 35 00 4a 1e 8a  |..4LDA $D015.J..|
00001640  34 b0 41 20 23 24 30 33  00 58 1e 94 34 53 54 41  |4.A #$03.X..4STA|
00001650  20 24 44 30 31 35 00 65  1e 9e 34 4c 44 41 20 48  | $D015.e..4LDA H|
00001660  4f 55 52 00 72 1e a8 34  42 4e 45 20 51 54 52 4f  |OUR.r..4BNE QTRO|
00001670  00 7f 1e b2 34 4c 44 58  20 23 24 33 38 00 8d 1e  |....4LDX #$38...|
00001680  bc 34 53 54 58 20 24 30  37 46 38 00 95 1e c6 34  |.4STX $07F8....4|
00001690  49 4e 58 00 a3 1e d0 34  53 54 58 20 24 30 37 46  |INX....4STX $07F|
000016a0  39 00 b0 1e da 34 51 54  52 4f 20 52 54 53 00 c7  |9....4QTRO RTS..|
000016b0  1e e4 34 3b 20 53 54 41  52 54 55 50 20 52 4f 55  |..4; STARTUP ROU|
000016c0  54 49 4e 45 53 00 d9 1e  ee 34 49 4e 49 54 20 4c  |TINES....4INIT L|
000016d0  44 41 20 23 24 30 30 00  e7 1e f8 34 53 54 41 20  |DA #$00....4STA |
000016e0  24 44 30 32 30 00 f5 1e  02 35 53 54 41 20 24 44  |$D020....5STA $D|
000016f0  30 32 31 00 00 1f 0c 35  53 54 41 20 58 50 00 0d  |021....5STA XP..|
00001700  1f 16 35 53 54 41 20 48  4f 55 52 00 1b 1f 20 35  |..5STA HOUR... 5|
00001710  53 54 41 20 24 44 30 31  35 00 28 1f 2a 35 4c 44  |STA $D015.(.*5LD|
00001720  41 20 23 24 30 31 00 34  1f 34 35 53 54 41 20 58  |A #$01.4.45STA X|
00001730  50 42 00 41 1f 3e 35 4c  44 41 20 23 24 38 30 00  |PB.A.>5LDA #$80.|
00001740  4c 1f 48 35 53 54 41 20  59 50 00 60 1f 52 35 48  |L.H5STA YP.`.R5H|
00001750  49 52 45 53 91 20 4c 44  41 20 23 24 33 42 00 6e  |IRES. LDA #$3B.n|
00001760  1f 5c 35 53 54 41 20 24  44 30 31 31 00 7b 1f 66  |.\5STA $D011.{.f|
00001770  35 4c 44 41 20 23 24 44  38 00 89 1f 70 35 53 54  |5LDA #$D8...p5ST|
00001780  41 20 24 44 30 31 36 00  97 1f 7a 35 4c 44 41 20  |A $D016...z5LDA |
00001790  43 4f 4c 30 53 00 a4 1f  84 35 53 54 41 20 43 4f  |COL0S....5STA CO|
000017a0  4c 30 00 b2 1f 8e 35 4c  44 41 20 43 4f 4c 31 53  |L0....5LDA COL1S|
000017b0  00 bf 1f 98 35 53 54 41  20 43 4f 4c 31 00 cd 1f  |....5STA COL1...|
000017c0  a2 35 4c 44 41 20 43 4f  4c 32 53 00 da 1f ac 35  |.5LDA COL2S....5|
000017d0  53 54 41 20 43 4f 4c 32  00 e8 1f b6 35 4c 44 41  |STA COL2....5LDA|
000017e0  20 43 4f 4c 33 53 00 f5  1f c0 35 53 54 41 20 43  | COL3S....5STA C|
000017f0  4f 4c 33 00 03 20 ca 35  4a 53 52 20 e8 43 4f 4c  |OL3.. .5JSR .COL|
00001800  53 00 10 20 06 36 4a 53  52 20 4c 45 46 54 00 18  |S.. .6JSR LEFT..|
00001810  20 10 36 53 45 49 00 26  20 1a 36 4c 44 41 20 23  | .6SEI.& .6LDA #|
00001820  b3 49 52 51 00 34 20 24  36 53 54 41 20 24 30 33  |.IRQ.4 $6STA $03|
00001830  31 34 00 42 20 2e 36 4c  44 41 20 23 b1 49 52 51  |14.B .6LDA #.IRQ|
00001840  00 50 20 38 36 53 54 41  20 24 30 33 31 35 00 58  |.P 86STA $0315.X|
00001850  20 42 36 43 4c 49 00 65  20 ba 36 4c 44 41 20 23  | B6CLI.e .6LDA #|
00001860  24 31 38 00 73 20 c4 36  53 54 41 20 24 44 30 31  |$18.s .6STA $D01|
00001870  38 00 7b 20 34 3a 52 54  53 00 8c 20 52 3a 48 49  |8.{ 4:RTS.. R:HI|
00001880  52 45 53 4f 46 46 20 53  45 49 00 99 20 5c 3a 4c  |RESOFF SEI.. \:L|
00001890  44 41 20 23 24 33 31 00  a7 20 66 3a 53 54 41 20  |DA #$31.. f:STA |
000018a0  24 30 33 31 34 00 b4 20  70 3a 4c 44 41 20 23 24  |$0314.. p:LDA #$|
000018b0  45 41 00 c2 20 7a 3a 53  54 41 20 24 30 33 31 35  |EA.. z:STA $0315|
000018c0  00 ca 20 84 3a 43 4c 49  00 d7 20 8e 3a 4c 44 41  |.. .:CLI.. .:LDA|
000018d0  20 23 24 30 30 00 e5 20  98 3a 53 54 41 20 24 44  | #$00.. .:STA $D|
000018e0  30 31 35 00 f2 20 a2 3a  4c 44 41 20 23 24 39 42  |015.. .:LDA #$9B|
000018f0  00 00 21 ac 3a 53 54 41  20 24 44 30 31 31 00 0d  |..!.:STA $D011..|
00001900  21 b6 3a 4c 44 41 20 23  24 43 38 00 1b 21 c0 3a  |!.:LDA #$C8..!.:|
00001910  53 54 41 20 24 44 30 31  36 00 28 21 c3 3a 4c 44  |STA $D016.(!.:LD|
00001920  41 20 23 24 31 35 00 36  21 c6 3a 53 54 41 20 24  |A #$15.6!.:STA $|
00001930  44 30 31 38 00 3e 21 ca  3a 52 54 53 00 51 21 20  |D018.>!.:RTS.Q! |
00001940  4e e1 20 4a 53 52 20 48  49 52 45 53 4f 46 46 00  |N. JSR HIRESOFF.|
00001950  5e 21 2a 4e 4c 44 41 20  23 24 31 43 00 6c 21 34  |^!*NLDA #$1C.l!4|
00001960  4e 4a 53 52 20 4f 55 54  44 4f 00 79 21 3e 4e 4c  |NJSR OUTDO.y!>NL|
00001970  44 41 20 23 24 39 33 00  87 21 48 4e 4a 53 52 20  |DA #$93..!HNJSR |
00001980  4f 55 54 44 4f 00 94 21  52 4e 4c 44 41 20 23 24  |OUTDO..!RNLDA #$|
00001990  30 30 00 a2 21 5c 4e e1  4c 4f 4f 50 20 50 48 41  |00..!\N.LOOP PHA|
000019a0  00 ac 21 66 4e 41 53 4c  20 41 00 b6 21 70 4e 41  |..!fNASL A..!pNA|
000019b0  53 4c 20 41 00 be 21 7a  4e 43 4c 43 00 cb 21 84  |SL A..!zNCLC..!.|
000019c0  4e 41 44 43 20 23 24 34  32 00 d7 21 8e 4e 53 54  |NADC #$42..!.NST|
000019d0  41 20 24 46 43 00 e4 21  98 4e 4c 44 59 20 23 24  |A $FC..!.NLDY #$|
000019e0  30 30 00 f0 21 a2 4e 53  54 59 20 24 46 42 00 fc  |00..!.NSTY $FB..|
000019f0  21 ac 4e 53 54 59 20 24  46 44 00 09 22 b6 4e 4c  |!.NSTY $FD..".NL|
00001a00  44 41 20 23 24 30 34 00  15 22 c0 4e 53 54 41 20  |DA #$04..".NSTA |
00001a10  24 46 45 00 2c 22 ca 4e  e1 4c 4f 4f 50 42 20 4c  |$FE.,".N.LOOPB L|
00001a20  44 41 20 28 24 46 42 29  2c 59 00 3c 22 d4 4e 53  |DA ($FB),Y.<".NS|
00001a30  54 41 20 28 24 46 44 29  2c 59 00 44 22 de 4e 49  |TA ($FD),Y.D".NI|
00001a40  4e 59 00 53 22 e8 4e 42  4e 45 20 e1 4c 4f 4f 50  |NY.S".NBNE .LOOP|
00001a50  42 00 5f 22 f2 4e 49 4e  43 20 24 46 43 00 6b 22  |B._".NINC $FC.k"|
00001a60  fc 4e 49 4e 43 20 24 46  45 00 77 22 06 4f 4c 44  |.NINC $FE.w".OLD|
00001a70  41 20 24 46 45 00 84 22  10 4f 43 4d 50 20 23 24  |A $FE..".OCMP #$|
00001a80  30 38 00 93 22 1a 4f 42  4e 45 20 e1 4c 4f 4f 50  |08..".OBNE .LOOP|
00001a90  42 00 a2 22 24 4f e1 dc  20 4c 44 41 20 24 43 35  |B.."$O.. LDA $C5|
00001aa0  00 af 22 2e 4f 43 4d 50  20 23 24 34 30 00 ba 22  |..".OCMP #$40.."|
00001ab0  38 4f 42 4e 45 20 e1 dc  00 ca 22 42 4f e1 dc 42  |8OBNE ...."BO..B|
00001ac0  20 4c 44 41 20 24 43 35  00 d7 22 4c 4f 43 4d 50  | LDA $C5.."LOCMP|
00001ad0  20 23 24 34 30 00 e3 22  56 4f 42 45 51 20 e1 dc  | #$40.."VOBEQ ..|
00001ae0  42 00 eb 22 60 4f 54 41  58 00 f3 22 6a 4f 50 4c  |B.."`OTAX.."jOPL|
00001af0  41 00 00 23 74 4f 43 50  58 20 23 24 30 31 00 0f  |A..#tOCPX #$01..|
00001b00  23 7e 4f 42 45 51 20 48  4e 4f 4d b0 45 00 1c 23  |#~OBEQ HNOM.E..#|
00001b10  88 4f 43 50 58 20 23 24  32 38 00 26 23 92 4f 42  |.OCPX #$28.&#.OB|
00001b20  45 51 20 82 00 33 23 9c  4f 43 50 58 20 23 24 32  |EQ ..3#.OCPX #$2|
00001b30  42 00 40 23 a6 4f 42 45  51 20 50 52 45 56 00 4d  |B.@#.OBEQ PREV.M|
00001b40  23 b0 4f e1 52 45 54 20  50 48 41 00 59 23 ba 4f  |#.O.RET PHA.Y#.O|
00001b50  4a 4d 50 20 e1 dc 42 00  71 23 c4 4f 48 4e 4f 4d  |JMP ..B.q#.OHNOM|
00001b60  b0 45 20 4a 4d 50 20 43  4f 4d 45 42 41 43 4b 00  |.E JMP COMEBACK.|
00001b70  80 23 ce 4f 82 20 43 4d  50 20 23 24 30 34 00 8d  |.#.O. CMP #$04..|
00001b80  23 d8 4f 42 45 51 20 e1  52 45 54 00 95 23 e2 4f  |#.OBEQ .RET..#.O|
00001b90  43 4c 43 00 a2 23 ec 4f  41 44 43 20 23 24 30 31  |CLC..#.OADC #$01|
00001ba0  00 b0 23 f6 4f 4a 4d 50  20 e1 4c 4f 4f 50 00 c2  |..#.OJMP .LOOP..|
00001bb0  23 00 50 50 52 45 56 20  43 4d 50 20 23 24 30 30  |#.PPREV CMP #$00|
00001bc0  00 cf 23 0a 50 42 45 51  20 e1 52 45 54 00 d7 23  |..#.PBEQ .RET..#|
00001bd0  14 50 53 45 43 00 e4 23  1e 50 53 42 43 20 23 24  |.PSEC..#.PSBC #$|
00001be0  30 31 00 f2 23 28 50 4a  4d 50 20 e1 4c 4f 4f 50  |01..#(PJMP .LOOP|
00001bf0  00 18 24 a8 61 3b 20 20  20 20 20 20 20 20 20 20  |..$.a;          |
00001c00  20 20 20 20 20 20 20 20  20 53 41 56 45 20 52 4f  |         SAVE RO|
00001c10  55 54 49 4e 45 53 00 2b  24 b2 61 a5 41 4d 45 20  |UTINES.+$.a.AME |
00001c20  54 58 54 20 31 34 37 2c  35 00 41 24 bc 61 54 58  |TXT 147,5.A$.aTX|
00001c30  54 20 22 46 49 4c 45 4e  41 4d 45 3a 22 2c 30 00  |T "FILENAME:",0.|
00001c40  68 24 c6 61 a4 52 44 20  54 58 54 20 31 33 2c 31  |h$.a.RD TXT 13,1|
00001c50  33 2c 22 28 54 29 41 50  45 20 4f 52 20 28 44 29  |3,"(T)APE OR (D)|
00001c60  49 53 4b 22 2c 30 00 96  24 d0 61 b9 54 20 54 58  |ISK",0..$.a.T TX|
00001c70  54 20 31 33 2c 31 33 2c  22 50 4f 53 49 54 49 4f  |T 13,13,"POSITIO|
00001c80  4e 20 54 41 50 45 20 3c  53 50 41 43 45 3e 22 2c  |N TAPE <SPACE>",|
00001c90  31 33 2c 30 00 c4 24 da  61 49 4e 53 44 20 54 58  |13,0..$.aINSD TX|
00001ca0  54 20 31 33 2c 31 33 2c  22 49 4e 53 45 52 54 20  |T 13,13,"INSERT |
00001cb0  44 49 53 4b 20 3c 53 50  41 43 45 3e 22 2c 31 33  |DISK <SPACE>",13|
00001cc0  2c 30 00 d9 24 e4 61 50  53 54 52 49 4e 47 20 4c  |,0..$.aPSTRING L|
00001cd0  44 59 20 23 24 30 30 00  f1 24 ee 61 50 53 54 52  |DY #$00..$.aPSTR|
00001ce0  4c 4f 50 20 4c 44 41 20  28 24 46 42 29 2c 59 00  |LOP LDA ($FB),Y.|
00001cf0  02 25 f8 61 42 45 51 20  50 53 54 52 51 55 49 54  |.%.aBEQ PSTRQUIT|
00001d00  00 10 25 02 62 4a 53 52  20 4f 55 54 44 4f 00 18  |..%.bJSR OUTDO..|
00001d10  25 07 62 49 4e 59 00 28  25 0c 62 4a 4d 50 20 50  |%.bINY.(%.bJMP P|
00001d20  53 54 52 4c 4f 50 00 39  25 16 62 50 53 54 52 51  |STRLOP.9%.bPSTRQ|
00001d30  55 49 54 20 52 54 53 00  4e 25 20 62 91 4f 46 46  |UIT RTS.N% b.OFF|
00001d40  20 4c 44 41 20 24 30 34  30 41 2c 59 00 5a 25 2a  | LDA $040A,Y.Z%*|
00001d50  62 45 b0 20 23 24 38 30  00 6a 25 34 62 53 54 41  |bE. #$80.j%4bSTA|
00001d60  20 24 30 34 30 41 2c 59  00 72 25 3e 62 52 54 53  | $040A,Y.r%>bRTS|
00001d70  00 81 25 48 62 a1 dc 20  4c 44 41 20 24 43 35 00  |..%Hb.. LDA $C5.|
00001d80  8e 25 52 62 43 4d 50 20  23 24 34 30 00 99 25 5c  |.%RbCMP #$40..%\|
00001d90  62 42 4e 45 20 a1 dc 00  a9 25 66 62 a1 dc 42 20  |bBNE ....%fb..B |
00001da0  4c 44 41 20 24 43 35 00  b6 25 70 62 43 4d 50 20  |LDA $C5..%pbCMP |
00001db0  23 24 34 30 00 c2 25 7a  62 42 45 51 20 a1 dc 42  |#$40..%zbBEQ ..B|
00001dc0  00 ca 25 84 62 54 41 58  00 d7 25 8e 62 4c 44 41  |..%.bTAX..%.bLDA|
00001dd0  20 dc d4 2c 58 00 e2 25  98 62 42 45 51 20 a1 dc  | ..,X..%.bBEQ ..|
00001de0  00 ea 25 a2 62 52 54 53  00 fd 25 ac 62 e4 20 4a  |..%.bRTS..%.b. J|
00001df0  53 52 20 48 49 52 45 53  4f 46 46 00 0a 26 b6 62  |SR HIRESOFF..&.b|
00001e00  4c 44 58 20 23 24 30 30  00 17 26 c0 62 4c 44 41  |LDX #$00..&.bLDA|
00001e10  20 23 24 32 30 00 2d 26  ca 62 a5 41 4d 45 9c 20  | #$20.-&.b.AME. |
00001e20  53 54 41 20 24 34 31 46  30 2c 58 00 35 26 d4 62  |STA $41F0,X.5&.b|
00001e30  49 4e 58 00 42 26 de 62  43 50 58 20 23 24 31 30  |INX.B&.bCPX #$10|
00001e40  00 50 26 e8 62 42 4e 45  20 a5 41 4d 45 9c 00 5f  |.P&.bBNE .AME.._|
00001e50  26 f2 62 4c 44 41 20 23  b3 a5 41 4d 45 00 6b 26  |&.bLDA #..AME.k&|
00001e60  fc 62 53 54 41 20 24 46  42 00 7a 26 06 63 4c 44  |.bSTA $FB.z&.cLD|
00001e70  41 20 23 b1 a5 41 4d 45  00 86 26 10 63 53 54 41  |A #..AME..&.cSTA|
00001e80  20 24 46 43 00 96 26 1a  63 4a 53 52 20 50 53 54  | $FC..&.cJSR PST|
00001e90  52 49 4e 47 00 a3 26 24  63 4c 44 41 20 23 24 30  |RING..&$cLDA #$0|
00001ea0  30 00 ab 26 2e 63 50 48  41 00 b9 26 38 63 e4 4c  |0..&.cPHA..&8c.L|
00001eb0  4f 4f 50 20 54 41 59 00  c6 26 3d 63 4a 53 52 20  |OOP TAY..&=cJSR |
00001ec0  91 4f 46 46 00 d1 26 42  63 4a 53 52 20 a1 dc 00  |.OFF..&BcJSR ...|
00001ed0  d9 26 47 63 50 48 41 00  e6 26 4c 63 4a 53 52 20  |.&GcPHA..&LcJSR |
00001ee0  91 4f 46 46 00 ee 26 51  63 50 4c 41 00 fb 26 56  |.OFF..&QcPLA..&V|
00001ef0  63 43 4d 50 20 23 24 38  30 00 0a 27 60 63 42 43  |cCMP #$80..'`cBC|
00001f00  53 20 44 45 43 4f 44 45  00 12 27 6a 63 54 41 59  |S DECODE..'jcTAY|
00001f10  00 1a 27 74 63 50 4c 41  00 22 27 7e 63 54 41 58  |..'tcPLA."'~cTAX|
00001f20  00 2a 27 88 63 54 59 41  00 3a 27 92 63 53 54 41  |.*'.cTYA.:'.cSTA|
00001f30  20 24 30 34 30 41 2c 58  00 47 27 9c 63 43 4d 50  | $040A,X.G'.cCMP|
00001f40  20 23 24 32 30 00 55 27  a6 63 42 43 53 20 4e 4f  | #$20.U'.cBCS NO|
00001f50  53 50 43 00 5d 27 b0 63  43 4c 43 00 6a 27 ba 63  |SPC.]'.cCLC.j'.c|
00001f60  41 44 43 20 23 24 34 30  00 80 27 c4 63 4e 4f 53  |ADC #$40..'.cNOS|
00001f70  50 43 20 53 54 41 20 24  34 31 46 30 2c 58 00 92  |PC STA $41F0,X..|
00001f80  27 ce 63 49 4e 43 b9 20  43 50 58 20 23 24 30 46  |'.cINC. CPX #$0F|
00001f90  00 a1 27 d8 63 42 45 51  20 e4 52 45 4c 4f 50 00  |..'.cBEQ .RELOP.|
00001fa0  a9 27 e2 63 49 4e 58 00  b8 27 ec 63 e4 52 45 4c  |.'.cINX..'.c.REL|
00001fb0  4f 50 20 54 58 41 00 c0  27 f1 63 50 48 41 00 ce  |OP TXA..'.cPHA..|
00001fc0  27 f6 63 4a 4d 50 20 e4  4c 4f 4f 50 00 e2 27 00  |'.cJMP .LOOP..'.|
00001fd0  64 44 45 43 4f 44 45 20  43 4d 50 20 23 24 38 30  |dDECODE CMP #$80|
00001fe0  00 ed 27 0a 64 42 45 51  20 e4 9a 00 fa 27 14 64  |..'.dBEQ ....'.d|
00001ff0  43 4d 50 20 23 24 38 31  00 04 28 1e 64 42 45 51  |CMP #$81..(.dBEQ|
00002000  20 d1 00 11 28 28 64 43  4d 50 20 23 24 38 32 00  | ...((dCMP #$82.|
00002010  1f 28 32 64 42 4e 45 20  e4 4c 4f 4f 50 00 27 28  |.(2dBNE .LOOP.'(|
00002020  3c 64 50 4c 41 00 2f 28  46 64 54 41 58 00 3d 28  |<dPLA./(FdTAX.=(|
00002030  50 64 4c 44 41 20 24 30  32 38 44 00 48 28 5a 64  |PdLDA $028D.H(Zd|
00002040  af 20 23 24 30 31 00 55  28 64 64 42 45 51 20 49  |. #$01.U(ddBEQ I|
00002050  4e 43 b9 00 67 28 6e 64  44 45 43 b9 20 43 50 58  |NC..g(ndDEC. CPX|
00002060  20 23 24 30 30 00 76 28  78 64 42 45 51 20 e4 52  | #$00.v(xdBEQ .R|
00002070  45 4c 4f 50 00 7e 28 82  64 44 45 58 00 8d 28 8c  |ELOP.~(.dDEX..(.|
00002080  64 4a 4d 50 20 e4 52 45  4c 4f 50 00 97 28 96 64  |dJMP .RELOP..(.d|
00002090  d1 20 50 4c 41 00 9f 28  a0 64 54 41 58 00 ac 28  |. PLA..(.dTAX..(|
000020a0  aa 64 4c 44 41 20 23 24  32 30 00 bc 28 b4 64 53  |.dLDA #$20..(.dS|
000020b0  54 41 20 24 30 34 30 41  2c 58 00 cc 28 be 64 53  |TA $040A,X..(.dS|
000020c0  54 41 20 24 34 31 46 30  2c 58 00 d9 28 c8 64 4a  |TA $41F0,X..(.dJ|
000020d0  4d 50 20 44 45 43 b9 00  e4 28 d2 64 e4 9a 20 50  |MP DEC...(.d.. P|
000020e0  4c 41 00 f2 28 d7 64 4c  44 41 20 23 b3 a4 52 44  |LA..(.dLDA #..RD|
000020f0  00 fe 28 dc 64 53 54 41  20 24 46 42 00 0c 29 e6  |..(.dSTA $FB..).|
00002100  64 4c 44 41 20 23 b1 a4  52 44 00 18 29 f0 64 53  |dLDA #..RD..).dS|
00002110  54 41 20 24 46 43 00 28  29 fa 64 4a 53 52 20 50  |TA $FC.().dJSR P|
00002120  53 54 52 49 4e 47 00 35  29 04 65 e3 20 4a 53 52  |STRING.5).e. JSR|
00002130  20 a1 dc 00 42 29 0e 65  43 4d 50 20 23 24 31 34  | ...B).eCMP #$14|
00002140  00 50 29 18 65 42 45 51  20 54 41 50 45 e4 00 5d  |.P).eBEQ TAPE..]|
00002150  29 22 65 43 4d 50 20 23  24 30 34 00 6b 29 2c 65  |)"eCMP #$04.k),e|
00002160  42 45 51 20 44 49 53 4b  e4 00 75 29 36 65 4a 4d  |BEQ DISK..u)6eJM|
00002170  50 20 e3 00 88 29 40 65  54 41 50 45 e4 20 4c 44  |P ...)@eTAPE. LD|
00002180  41 20 23 b3 b9 54 00 94  29 4a 65 53 54 41 20 24  |A #..T..)JeSTA $|
00002190  46 42 00 a1 29 54 65 4c  44 41 20 23 b1 b9 54 00  |FB..)TeLDA #..T.|
000021a0  ad 29 5e 65 53 54 41 20  24 46 43 00 bd 29 68 65  |.)^eSTA $FC..)he|
000021b0  4a 53 52 20 50 53 54 52  49 4e 47 00 ca 29 72 65  |JSR PSTRING..)re|
000021c0  4c 44 58 20 23 24 30 31  00 d8 29 7c 65 4a 4d 50  |LDX #$01..)|eJMP|
000021d0  20 54 41 50 45 9a 00 ed  29 86 65 44 49 53 4b e4  | TAPE...).eDISK.|
000021e0  20 4c 44 41 20 23 b3 49  4e 53 44 00 f9 29 90 65  | LDA #.INSD..).e|
000021f0  53 54 41 20 24 46 42 00  08 2a 9a 65 4c 44 41 20  |STA $FB..*.eLDA |
00002200  23 b1 49 4e 53 44 00 14  2a a4 65 53 54 41 20 24  |#.INSD..*.eSTA $|
00002210  46 43 00 24 2a ae 65 4a  53 52 20 50 53 54 52 49  |FC.$*.eJSR PSTRI|
00002220  4e 47 00 31 2a b8 65 4c  44 58 20 23 24 30 38 00  |NG.1*.eLDX #$08.|
00002230  43 2a c2 65 54 41 50 45  9a 20 4c 44 41 20 24 43  |C*.eTAPE. LDA $C|
00002240  35 00 50 2a cc 65 43 4d  50 20 23 24 33 43 00 5e  |5.P*.eCMP #$3C.^|
00002250  2a d6 65 42 4e 45 20 54  41 50 45 9a 00 6b 2a e0  |*.eBNE TAPE..k*.|
00002260  65 4c 44 41 20 23 24 30  31 00 73 2a ea 65 54 41  |eLDA #$01.s*.eTA|
00002270  59 00 80 2a f4 65 4a 53  52 20 e8 4c 46 53 00 8d  |Y..*.eJSR .LFS..|
00002280  2a fe 65 4c 44 58 20 23  24 31 30 00 a3 2a 08 66  |*.eLDX #$10..*.f|
00002290  a5 41 4d 45 c3 20 4c 44  41 20 24 34 31 45 46 2c  |.AME. LDA $41EF,|
000022a0  58 00 b0 2a 12 66 43 4d  50 20 23 24 32 30 00 bf  |X..*.fCMP #$20..|
000022b0  2a 1c 66 42 4e 45 20 a5  41 4d 45 cb 54 00 c7 2a  |*.fBNE .AME.T..*|
000022c0  26 66 44 45 58 00 d6 2a  30 66 42 45 51 20 a5 41  |&fDEX..*0fBEQ .A|
000022d0  4d 45 cb 54 00 e4 2a 3a  66 4a 4d 50 20 a5 41 4d  |ME.T..*:fJMP .AM|
000022e0  45 c3 00 f3 2a 44 66 a5  41 4d 45 cb 54 20 54 58  |E...*Df.AME.T TX|
000022f0  41 00 00 2b 4e 66 4c 44  58 20 23 24 46 30 00 0d  |A..+NfLDX #$F0..|
00002300  2b 62 66 4c 44 59 20 23  24 34 31 00 1a 2b 6c 66  |+bfLDY #$41..+lf|
00002310  4a 53 52 20 e8 4e 41 4d  00 27 2b 76 66 4c 44 41  |JSR .NAM.'+vfLDA|
00002320  20 23 24 32 30 00 33 2b  80 66 53 54 41 20 24 46  | #$20.3+.fSTA $F|
00002330  43 00 40 2b 8a 66 4c 44  58 20 23 24 30 30 00 4c  |C.@+.fLDX #$00.L|
00002340  2b 94 66 53 54 41 20 24  46 42 00 59 2b 9e 66 4c  |+.fSTA $FB.Y+.fL|
00002350  44 59 20 23 24 34 30 00  66 2b a8 66 4c 44 41 20  |DY #$40.f+.fLDA |
00002360  23 24 46 42 00 73 2b b2  66 4a 53 52 20 e4 52 4f  |#$FB.s+.fJSR .RO|
00002370  4d 00 84 2b bc 66 4a 4d  50 20 43 4f 4d 45 42 41  |M..+.fJMP COMEBA|
00002380  43 4b 00 aa 2b 78 69 3b  20 20 20 20 20 20 20 20  |CK..+xi;        |
00002390  20 20 20 4b 45 59 42 4f  41 52 44 20 44 45 43 4f  |   KEYBOARD DECO|
000023a0  44 45 20 54 41 42 4c 45  00 b0 2b 82 69 3b 00 c7  |DE TABLE..+.i;..|
000023b0  2b 8c 69 dc d4 20 54 58  54 20 24 38 31 2c 24 38  |+.i.. TXT $81,$8|
000023c0  30 2c 24 38 32 00 e9 2b  96 69 54 58 54 20 30 2c  |0,$82..+.iTXT 0,|
000023d0  30 2c 30 2c 30 2c 24 38  33 2c 35 31 2c 32 33 2c  |0,0,0,$83,51,23,|
000023e0  31 2c 35 32 2c 32 36 00  0d 2c a0 69 54 58 54 20  |1,52,26..,.iTXT |
000023f0  31 39 2c 35 2c 30 2c 35  33 2c 31 38 2c 34 2c 35  |19,5,0,53,18,4,5|
00002400  34 2c 33 2c 36 2c 32 30  2c 32 34 00 32 2c aa 69  |4,3,6,20,24.2,.i|
00002410  54 58 54 20 35 35 2c 32  35 2c 37 2c 35 36 2c 32  |TXT 55,25,7,56,2|
00002420  2c 38 2c 32 31 2c 32 32  2c 35 37 2c 39 2c 31 30  |,8,21,22,57,9,10|
00002430  00 58 2c b4 69 54 58 54  20 34 38 2c 31 33 2c 31  |.X,.iTXT 48,13,1|
00002440  31 2c 31 35 2c 31 34 2c  34 33 2c 31 36 2c 31 32  |1,15,14,43,16,12|
00002450  2c 34 35 2c 34 36 00 7c  2c be 69 54 58 54 20 30  |,45,46.|,.iTXT 0|
00002460  2c 30 2c 34 34 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |,0,44,0,0,0,0,0,|
00002470  30 2c 33 30 2c 34 37 2c  34 39 00 98 2c c8 69 54  |0,30,47,49..,.iT|
00002480  58 54 20 33 31 2c 30 2c  35 30 2c 33 32 2c 30 2c  |XT 31,0,50,32,0,|
00002490  31 37 2c 30 2c 30 00 bc  2c 30 75 3b 20 20 20 20  |17,0,0..,0u;    |
000024a0  20 20 20 20 20 20 4d af  4c 45 42 52 4f 54 20 53  |      M.LEBROT S|
000024b0  45 54 20 50 4c 4f 54 54  45 52 00 c9 2c 3a 75 4d  |ET PLOTTER..,:uM|
000024c0  af 4c 45 20 53 45 49 00  d6 2c 3c 75 4c 44 41 20  |.LE SEI..,<uLDA |
000024d0  23 24 30 31 00 e3 2c 3d  75 53 54 41 20 48 4f 55  |#$01..,=uSTA HOU|
000024e0  52 00 f0 2c 3e 75 4a 53  52 20 4c 45 46 54 00 fd  |R..,>uJSR LEFT..|
000024f0  2c 3f 75 4c 44 41 20 23  24 30 30 00 0c 2d 44 75  |,?uLDA #$00..-Du|
00002500  53 54 41 20 59 50 49 58  45 4c 00 19 2d 4e 75 4c  |STA YPIXEL..-NuL|
00002510  44 41 20 23 24 30 33 00  27 2d 58 75 53 54 41 20  |DA #$03.'-XuSTA |
00002520  24 34 31 30 30 00 34 2d  62 75 4c 44 41 20 23 24  |$4100.4-buLDA #$|
00002530  30 36 00 42 2d 6c 75 53  54 41 20 24 34 31 30 32  |06.B-luSTA $4102|
00002540  00 50 2d 76 75 4a 53 52  20 45 51 55 41 4c 00 64  |.P-vuJSR EQUAL.d|
00002550  2d 80 75 4d 4d 41 49 4e  4c 20 4c 44 41 20 23 24  |-.uMMAINL LDA #$|
00002560  30 30 00 73 2d 8a 75 53  54 41 20 58 50 49 58 45  |00.s-.uSTA XPIXE|
00002570  4c 00 80 2d 94 75 4c 44  41 20 23 24 30 31 00 8e  |L..-.uLDA #$01..|
00002580  2d 9e 75 53 54 41 20 24  34 31 30 30 00 9b 2d a8  |-.uSTA $4100..-.|
00002590  75 4c 44 41 20 23 24 30  35 00 a9 2d b2 75 53 54  |uLDA #$05..-.uST|
000025a0  41 20 24 34 31 30 32 00  b7 2d bc 75 4a 53 52 20  |A $4102..-.uJSR |
000025b0  45 51 55 41 4c 00 cc 2d  c6 75 4d 4d 41 49 4e 4c  |EQUAL..-.uMMAINL|
000025c0  42 20 4c 44 41 20 23 24  30 35 00 da 2d d0 75 53  |B LDA #$05..-.uS|
000025d0  54 41 20 24 34 31 30 30  00 e7 2d da 75 4c 44 41  |TA $4100..-.uLDA|
000025e0  20 23 24 30 37 00 f5 2d  e4 75 53 54 41 20 24 34  | #$07..-.uSTA $4|
000025f0  31 30 32 00 03 2e ee 75  4a 53 52 20 45 51 55 41  |102....uJSR EQUA|
00002600  4c 00 11 2e f8 75 49 4e  43 20 24 34 31 30 30 00  |L....uINC $4100.|
00002610  1f 2e 02 76 49 4e 43 20  24 34 31 30 32 00 2d 2e  |...vINC $4102.-.|
00002620  0c 76 4a 53 52 20 45 51  55 41 4c 00 3a 2e 16 76  |.vJSR EQUAL.:..v|
00002630  4c 44 41 20 23 24 30 30  00 49 2e 20 76 53 54 41  |LDA #$00.I. vSTA|
00002640  20 43 4f 4c 4f 55 52 00  5b 2e 2a 76 4c 4f 4f 50  | COLOUR.[.*vLOOP|
00002650  20 4c 44 41 20 23 24 30  37 00 69 2e 34 76 53 54  | LDA #$07.i.4vST|
00002660  41 20 24 34 31 30 30 00  77 2e 3e 76 53 54 41 20  |A $4100.w.>vSTA |
00002670  24 34 31 30 31 00 84 2e  48 76 4c 44 41 20 23 24  |$4101...HvLDA #$|
00002680  31 30 00 92 2e 52 76 53  54 41 20 24 34 31 30 32  |10...RvSTA $4102|
00002690  00 a3 2e 5c 76 4a 53 52  20 4d 55 4c 54 49 50 4c  |...\vJSR MULTIPL|
000026a0  59 00 b0 2e 66 76 4c 44  41 20 23 24 30 38 00 be  |Y...fvLDA #$08..|
000026b0  2e 70 76 53 54 41 20 24  34 31 30 30 00 cc 2e 7a  |.pvSTA $4100...z|
000026c0  76 53 54 41 20 24 34 31  30 31 00 d9 2e 84 76 4c  |vSTA $4101....vL|
000026d0  44 41 20 23 24 31 31 00  e7 2e 8e 76 53 54 41 20  |DA #$11....vSTA |
000026e0  24 34 31 30 32 00 f8 2e  98 76 4a 53 52 20 4d 55  |$4102....vJSR MU|
000026f0  4c 54 49 50 4c 59 00 05  2f a2 76 4c 44 58 20 23  |LTIPLY../.vLDX #|
00002700  24 31 30 00 13 2f ac 76  53 54 58 20 24 34 31 30  |$10../.vSTX $410|
00002710  30 00 1b 2f b6 76 49 4e  58 00 29 2f c0 76 53 54  |0../.vINX.)/.vST|
00002720  58 20 24 34 31 30 31 00  31 2f ca 76 49 4e 58 00  |X $4101.1/.vINX.|
00002730  3f 2f d4 76 53 54 58 20  24 34 31 30 32 00 4f 2f  |?/.vSTX $4102.O/|
00002740  de 76 4a 53 52 20 41 44  44 49 54 49 91 00 5d 2f  |.vJSR ADDITI..]/|
00002750  e8 76 4c 44 41 20 24 34  30 39 31 00 6a 2f f2 76  |.vLDA $4091.j/.v|
00002760  43 4d 50 20 23 24 30 34  00 77 2f fc 76 42 43 43  |CMP #$04.w/.vBCC|
00002770  20 46 41 49 4c 00 84 2f  06 77 43 4d 50 20 23 24  | FAIL../.wCMP #$|
00002780  35 30 00 91 2f 10 77 42  43 53 20 46 41 49 4c 00  |50../.wBCS FAIL.|
00002790  a9 2f 1a 77 53 55 43 50  41 53 53 20 4a 4d 50 20  |./.wSUCPASS JMP |
000027a0  53 55 43 43 45 53 53 00  bd 2f 24 77 46 41 49 4c  |SUCCESS../$wFAIL|
000027b0  20 49 4e 43 20 43 4f 4c  4f 55 52 00 cc 2f 29 77  | INC COLOUR../)w|
000027c0  4c 44 41 20 43 4f 4c 4f  55 52 00 db 2f 2e 77 43  |LDA COLOUR../.wC|
000027d0  4d 50 20 4d 41 58 43 4f  4c 00 eb 2f 38 77 42 45  |MP MAXCOL../8wBE|
000027e0  51 20 53 55 43 50 41 53  53 00 fc 2f 42 77 4a 53  |Q SUCPASS../BwJS|
000027f0  52 20 53 55 42 54 52 41  43 54 00 09 30 4c 77 4c  |R SUBTRACT..0LwL|
00002800  44 41 20 23 24 31 32 00  17 30 56 77 53 54 41 20  |DA #$12..0VwSTA |
00002810  24 34 31 30 30 00 24 30  60 77 4c 44 41 20 23 24  |$4100.$0`wLDA #$|
00002820  30 35 00 32 30 6a 77 53  54 41 20 24 34 31 30 31  |05.20jwSTA $4101|
00002830  00 3f 30 74 77 4c 44 41  20 23 24 31 33 00 4d 30  |.?0twLDA #$13.M0|
00002840  7e 77 53 54 41 20 24 34  31 30 32 00 5d 30 88 77  |~wSTA $4102.]0.w|
00002850  4a 53 52 20 41 44 44 49  54 49 91 00 6a 30 92 77  |JSR ADDITI..j0.w|
00002860  4c 44 41 20 23 24 30 37  00 78 30 9c 77 53 54 41  |LDA #$07.x0.wSTA|
00002870  20 24 34 31 30 30 00 85  30 a6 77 4c 44 41 20 23  | $4100..0.wLDA #|
00002880  24 30 38 00 93 30 b0 77  53 54 41 20 24 34 31 30  |$08..0.wSTA $410|
00002890  31 00 a1 30 ba 77 49 4e  43 20 24 34 31 30 32 00  |1..0.wINC $4102.|
000028a0  b2 30 c4 77 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |.0.wJSR MULTIPLY|
000028b0  00 bf 30 ce 77 4c 44 41  20 23 24 31 34 00 cd 30  |..0.wLDA #$14..0|
000028c0  d8 77 53 54 41 20 24 34  31 30 30 00 da 30 e2 77  |.wSTA $4100..0.w|
000028d0  4c 44 41 20 23 24 31 43  00 e8 30 ec 77 53 54 41  |LDA #$1C..0.wSTA|
000028e0  20 24 34 31 30 31 00 f5  30 f6 77 4c 44 41 20 23  | $4101..0.wLDA #|
000028f0  24 31 35 00 03 31 00 78  53 54 41 20 24 34 31 30  |$15..1.xSTA $410|
00002900  32 00 14 31 0a 78 4a 53  52 20 4d 55 4c 54 49 50  |2..1.xJSR MULTIP|
00002910  4c 59 00 21 31 14 78 4c  44 41 20 23 24 31 35 00  |LY.!1.xLDA #$15.|
00002920  2f 31 1e 78 53 54 41 20  24 34 31 30 30 00 3c 31  |/1.xSTA $4100.<1|
00002930  28 78 4c 44 41 20 23 24  30 36 00 4a 31 32 78 53  |(xLDA #$06.J12xS|
00002940  54 41 20 24 34 31 30 31  00 57 31 3c 78 4c 44 41  |TA $4101.W1<xLDA|
00002950  20 23 24 31 36 00 65 31  46 78 53 54 41 20 24 34  | #$16.e1FxSTA $4|
00002960  31 30 32 00 75 31 50 78  4a 53 52 20 41 44 44 49  |102.u1PxJSR ADDI|
00002970  54 49 91 00 82 31 5a 78  4c 44 41 20 23 24 31 33  |TI...1ZxLDA #$13|
00002980  00 90 31 64 78 53 54 41  20 24 34 31 30 30 00 9d  |..1dxSTA $4100..|
00002990  31 6e 78 4c 44 41 20 23  24 30 37 00 ab 31 78 78  |1nxLDA #$07..1xx|
000029a0  53 54 41 20 24 34 31 30  32 00 b9 31 82 78 4a 53  |STA $4102..1.xJS|
000029b0  52 20 45 51 55 41 4c 00  c6 31 8c 78 4c 44 41 20  |R EQUAL..1.xLDA |
000029c0  23 24 31 36 00 d4 31 96  78 53 54 41 20 24 34 31  |#$16..1.xSTA $41|
000029d0  30 30 00 e1 31 a0 78 4c  44 41 20 23 24 30 38 00  |00..1.xLDA #$08.|
000029e0  ef 31 aa 78 53 54 41 20  24 34 31 30 32 00 fd 31  |.1.xSTA $4102..1|
000029f0  b4 78 4a 53 52 20 45 51  55 41 4c 00 0a 32 be 78  |.xJSR EQUAL..2.x|
00002a00  4a 4d 50 20 4c 4f 4f 50  00 1f 32 c8 78 53 55 43  |JMP LOOP..2.xSUC|
00002a10  43 45 53 53 20 4a 53 52  20 50 4c 4f 54 00 2c 32  |CESS JSR PLOT.,2|
00002a20  d2 78 4c 44 41 20 23 24  30 35 00 3a 32 dc 78 53  |.xLDA #$05.:2.xS|
00002a30  54 41 20 24 34 31 30 30  00 48 32 e6 78 53 54 41  |TA $4100.H2.xSTA|
00002a40  20 24 34 31 30 32 00 55  32 f0 78 4c 44 41 20 23  | $4102.U2.xLDA #|
00002a50  24 30 32 00 63 32 fa 78  53 54 41 20 24 34 31 30  |$02.c2.xSTA $410|
00002a60  31 00 73 32 04 79 4a 53  52 20 41 44 44 49 54 49  |1.s2.yJSR ADDITI|
00002a70  91 00 82 32 0e 79 4c 44  41 20 58 50 49 58 45 4c  |...2.yLDA XPIXEL|
00002a80  00 91 32 18 79 42 4e 45  20 58 52 45 4c 4f 50 00  |..2.yBNE XRELOP.|
00002a90  9e 32 22 79 4c 44 41 20  23 24 30 36 00 ac 32 2c  |.2"yLDA #$06..2,|
00002aa0  79 53 54 41 20 24 34 31  30 30 00 ba 32 36 79 53  |ySTA $4100..26yS|
00002ab0  54 41 20 24 34 31 30 32  00 c7 32 40 79 4c 44 41  |TA $4102..2@yLDA|
00002ac0  20 23 24 30 34 00 d5 32  4a 79 53 54 41 20 24 34  | #$04..2JySTA $4|
00002ad0  31 30 31 00 e5 32 54 79  4a 53 52 20 41 44 44 49  |101..2TyJSR ADDI|
00002ae0  54 49 91 00 f4 32 5e 79  49 4e 43 20 59 50 49 58  |TI...2^yINC YPIX|
00002af0  45 4c 00 03 33 68 79 4c  44 41 20 59 50 49 58 45  |EL..3hyLDA YPIXE|
00002b00  4c 00 10 33 72 79 43 4d  50 20 23 24 43 38 00 1f  |L..3ryCMP #$C8..|
00002b10  33 7c 79 42 4e 45 20 59  52 45 4c 4f 50 00 2c 33  |3|yBNE YRELOP.,3|
00002b20  7e 79 4c 44 41 20 23 24  30 30 00 39 33 7f 79 53  |~yLDA #$00.93.yS|
00002b30  54 41 20 48 4f 55 52 00  47 33 80 79 4a 53 52 20  |TA HOUR.G3.yJSR |
00002b40  52 49 47 48 54 00 4f 33  81 79 43 4c 49 00 57 33  |RIGHT.O3.yCLI.W3|
00002b50  86 79 52 54 53 00 6e 33  90 79 58 52 45 4c 4f 50  |.yRTS.n3.yXRELOP|
00002b60  20 4a 4d 50 20 4d 4d 41  49 4e 4c 42 00 84 33 9a  | JMP MMAINLB..3.|
00002b70  79 59 52 45 4c 4f 50 20  4a 4d 50 20 4d 4d 41 49  |yYRELOP JMP MMAI|
00002b80  4e 4c 00 98 33 e0 79 4d  af 50 4c 4f 54 20 4a 53  |NL..3.yM.PLOT JS|
00002b90  52 20 4d af 4c 45 00 a7  33 ea 79 4a 4d 50 20 9a  |R M.LE..3.yJMP .|
00002ba0  52 4f 4c 4f 50 00 cd 33  b8 88 3b 20 20 20 20 20  |ROLOP..3..;     |
00002bb0  20 20 20 20 20 20 20 20  20 20 20 20 43 4f 4c 4f  |            COLO|
00002bc0  55 52 20 52 4f 55 54 49  4e 45 53 00 e0 33 c2 88  |UR ROUTINES..3..|
00002bd0  e8 43 4f 4c 53 20 4c 44  41 20 43 4f 4c 30 00 ee  |.COLS LDA COL0..|
00002be0  33 cc 88 53 54 41 20 24  44 30 32 31 00 fb 33 d6  |3..STA $D021..3.|
00002bf0  88 4c 44 59 20 23 24 30  30 00 07 34 e0 88 53 54  |.LDY #$00..4..ST|
00002c00  59 20 24 46 42 00 14 34  ea 88 4c 44 41 20 23 24  |Y $FB..4..LDA #$|
00002c10  44 38 00 20 34 f4 88 53  54 41 20 24 46 43 00 2d  |D8. 4..STA $FC.-|
00002c20  34 fe 88 4c 44 41 20 43  4f 4c 33 00 44 34 08 89  |4..LDA COL3.D4..|
00002c30  e8 43 4c 4f 50 41 20 53  54 41 20 28 24 46 42 29  |.CLOPA STA ($FB)|
00002c40  2c 59 00 4c 34 12 89 49  4e 59 00 5b 34 1c 89 42  |,Y.L4..INY.[4..B|
00002c50  4e 45 20 e8 43 4c 4f 50  41 00 67 34 26 89 49 4e  |NE .CLOPA.g4&.IN|
00002c60  43 20 24 46 43 00 73 34  30 89 4c 44 58 20 24 46  |C $FC.s40.LDX $F|
00002c70  43 00 80 34 3a 89 43 50  58 20 23 24 44 43 00 8f  |C..4:.CPX #$DC..|
00002c80  34 44 89 42 4e 45 20 e8  43 4c 4f 50 41 00 9c 34  |4D.BNE .CLOPA..4|
00002c90  4e 89 4c 44 41 20 23 24  30 34 00 a8 34 58 89 53  |N.LDA #$04..4X.S|
00002ca0  54 41 20 24 46 43 00 b5  34 62 89 4c 44 41 20 43  |TA $FC..4b.LDA C|
00002cb0  4f 4c 31 00 bf 34 6c 89  41 53 4c 20 41 00 c9 34  |OL1..4l.ASL A..4|
00002cc0  76 89 41 53 4c 20 41 00  d3 34 80 89 41 53 4c 20  |v.ASL A..4..ASL |
00002cd0  41 00 dd 34 8a 89 41 53  4c 20 41 00 e9 34 94 89  |A..4..ASL A..4..|
00002ce0  b0 41 20 43 4f 4c 32 00  00 35 9e 89 e8 43 4c 4f  |.A COL2..5...CLO|
00002cf0  50 42 20 53 54 41 20 28  24 46 42 29 2c 59 00 08  |PB STA ($FB),Y..|
00002d00  35 a8 89 49 4e 59 00 17  35 b2 89 42 45 51 20 e8  |5..INY..5..BEQ .|
00002d10  43 4c 4f 50 43 00 24 35  bc 89 43 50 59 20 23 24  |CLOPC.$5..CPY #$|
00002d20  46 38 00 33 35 c6 89 42  4e 45 20 e8 43 4c 4f 50  |F8.35..BNE .CLOP|
00002d30  42 00 3f 35 d0 89 4c 44  58 20 24 46 43 00 4c 35  |B.?5..LDX $FC.L5|
00002d40  da 89 43 50 58 20 23 24  30 37 00 5b 35 e4 89 42  |..CPX #$07.[5..B|
00002d50  4e 45 20 e8 43 4c 4f 50  42 00 63 35 ee 89 52 54  |NE .CLOPB.c5..RT|
00002d60  53 00 76 35 f8 89 e8 43  4c 4f 50 43 20 49 4e 43  |S.v5...CLOPC INC|
00002d70  20 24 46 43 00 85 35 02  8a 4a 4d 50 20 e8 43 4c  | $FC..5..JMP .CL|
00002d80  4f 50 42 00 99 35 0c 8a  43 4f 4c 43 92 20 4c 44  |OPB..5..COLC. LD|
00002d90  41 20 d5 54 49 4d 45 00  a1 35 16 8a 43 4c 43 00  |A .TIME..5..CLC.|
00002da0  af 35 20 8a 41 44 43 20  53 50 45 45 44 00 bd 35  |.5 .ADC SPEED..5|
00002db0  2a 8a 53 54 41 20 d5 54  49 4d 45 00 d1 35 34 8a  |*.STA .TIME..54.|
00002dc0  43 4f 4c 43 4c 4f 50 20  43 4d 50 20 24 41 32 00  |COLCLOP CMP $A2.|
00002dd0  e1 35 3e 8a 42 4e 45 20  43 4f 4c 43 4c 4f 50 00  |.5>.BNE COLCLOP.|
00002de0  e9 35 48 8a 52 54 53 00  fc 35 52 8a 43 4f 4c 43  |.5H.RTS..5R.COLC|
00002df0  dc 53 20 4c 44 41 20 24  43 35 00 09 36 5c 8a 43  |.S LDA $C5..6\.C|
00002e00  4d 50 20 23 24 32 38 00  16 36 66 8a 42 45 51 20  |MP #$28..6f.BEQ |
00002e10  53 50 55 50 00 23 36 70  8a 43 4d 50 20 23 24 32  |SPUP.#6p.CMP #$2|
00002e20  42 00 30 36 7a 8a 42 45  51 20 53 4c 44 4e 00 3d  |B.06z.BEQ SLDN.=|
00002e30  36 84 8a 43 4d 50 20 23  24 30 31 00 4d 36 8e 8a  |6..CMP #$01.M6..|
00002e40  42 45 51 20 43 4f 4c 43  4f 46 46 00 59 36 98 8a  |BEQ COLCOFF.Y6..|
00002e50  4e 4f dc 20 52 54 53 00  69 36 a2 8a 43 4f 4c 43  |NO. RTS.i6..COLC|
00002e60  4f 46 46 20 50 4c 41 00  71 36 ac 8a 50 4c 41 00  |OFF PLA.q6..PLA.|
00002e70  82 36 b6 8a 4a 4d 50 20  43 4f 4d 45 42 41 43 4b  |.6..JMP COMEBACK|
00002e80  00 95 36 c0 8a 53 50 55  50 20 4c 44 41 20 53 50  |..6..SPUP LDA SP|
00002e90  45 45 44 00 a2 36 c5 8a  43 4d 50 20 23 24 30 33  |EED..6..CMP #$03|
00002ea0  00 ae 36 ca 8a 42 45 51  20 4e 4f dc 00 bc 36 d4  |..6..BEQ NO...6.|
00002eb0  8a 44 45 43 20 53 50 45  45 44 00 c4 36 de 8a 52  |.DEC SPEED..6..R|
00002ec0  54 53 00 d7 36 e8 8a 53  4c 44 4e 20 4c 44 41 20  |TS..6..SLDN LDA |
00002ed0  53 50 45 45 44 00 e4 36  f2 8a 43 4d 50 20 23 24  |SPEED..6..CMP #$|
00002ee0  31 39 00 f0 36 fc 8a 42  45 51 20 4e 4f dc 00 fe  |19..6..BEQ NO...|
00002ef0  36 06 8b 49 4e 43 20 53  50 45 45 44 00 06 37 10  |6..INC SPEED..7.|
00002f00  8b 52 54 53 00 1c 37 1a  8b 43 4f 4c 43 59 43 4c  |.RTS..7..COLCYCL|
00002f10  45 20 4c 44 41 20 23 24  30 41 00 2a 37 24 8b 53  |E LDA #$0A.*7$.S|
00002f20  54 41 20 53 50 45 45 44  00 36 37 2e 8b 4c 44 41  |TA SPEED.67..LDA|
00002f30  20 24 41 32 00 44 37 38  8b 53 54 41 20 d5 54 49  | $A2.D78.STA .TI|
00002f40  4d 45 00 5c 37 42 8b 43  4f 4c 43 59 43 4c 4f 50  |ME.\7B.COLCYCLOP|
00002f50  20 4c 44 41 20 43 4f 4c  30 53 00 69 37 4c 8b 53  | LDA COL0S.i7L.S|
00002f60  54 41 20 43 4f 4c 30 00  77 37 56 8b 4c 44 41 20  |TA COL0.w7V.LDA |
00002f70  43 4f 4c 31 53 00 84 37  60 8b 53 54 41 20 43 4f  |COL1S..7`.STA CO|
00002f80  4c 31 00 92 37 6a 8b 4c  44 41 20 43 4f 4c 32 53  |L1..7j.LDA COL2S|
00002f90  00 9f 37 74 8b 53 54 41  20 43 4f 4c 32 00 ad 37  |..7t.STA COL2..7|
00002fa0  7e 8b 4c 44 41 20 43 4f  4c 33 53 00 ba 37 88 8b  |~.LDA COL3S..7..|
00002fb0  53 54 41 20 43 4f 4c 33  00 c8 37 92 8b 4a 53 52  |STA COL3..7..JSR|
00002fc0  20 e8 43 4f 4c 53 00 d7  37 9c 8b 4a 53 52 20 43  | .COLS..7..JSR C|
00002fd0  4f 4c 43 dc 53 00 e5 37  a6 8b 4a 53 52 20 43 4f  |OLC.S..7..JSR CO|
00002fe0  4c 43 92 00 f3 37 b0 8b  4c 44 41 20 43 4f 4c 33  |LC...7..LDA COL3|
00002ff0  53 00 00 38 ba 8b 53 54  41 20 43 4f 4c 30 00 0e  |S..8..STA COL0..|
00003000  38 c4 8b 4c 44 41 20 43  4f 4c 30 53 00 1b 38 ce  |8..LDA COL0S..8.|
00003010  8b 53 54 41 20 43 4f 4c  31 00 29 38 d8 8b 4c 44  |.STA COL1.)8..LD|
00003020  41 20 43 4f 4c 31 53 00  36 38 e2 8b 53 54 41 20  |A COL1S.68..STA |
00003030  43 4f 4c 32 00 44 38 ec  8b 4c 44 41 20 43 4f 4c  |COL2.D8..LDA COL|
00003040  32 53 00 51 38 f6 8b 53  54 41 20 43 4f 4c 33 00  |2S.Q8..STA COL3.|
00003050  5f 38 00 8c 4a 53 52 20  e8 43 4f 4c 53 00 6e 38  |_8..JSR .COLS.n8|
00003060  0a 8c 4a 53 52 20 43 4f  4c 43 dc 53 00 7c 38 14  |..JSR COLC.S.|8.|
00003070  8c 4a 53 52 20 43 4f 4c  43 92 00 8a 38 1e 8c 4c  |.JSR COLC...8..L|
00003080  44 41 20 43 4f 4c 32 53  00 97 38 28 8c 53 54 41  |DA COL2S..8(.STA|
00003090  20 43 4f 4c 30 00 a5 38  32 8c 4c 44 41 20 43 4f  | COL0..82.LDA CO|
000030a0  4c 33 53 00 b2 38 3c 8c  53 54 41 20 43 4f 4c 31  |L3S..8<.STA COL1|
000030b0  00 c0 38 46 8c 4c 44 41  20 43 4f 4c 30 53 00 cd  |..8F.LDA COL0S..|
000030c0  38 50 8c 53 54 41 20 43  4f 4c 32 00 db 38 5a 8c  |8P.STA COL2..8Z.|
000030d0  4c 44 41 20 43 4f 4c 31  53 00 e8 38 64 8c 53 54  |LDA COL1S..8d.ST|
000030e0  41 20 43 4f 4c 33 00 f6  38 6e 8c 4a 53 52 20 e8  |A COL3..8n.JSR .|
000030f0  43 4f 4c 53 00 05 39 78  8c 4a 53 52 20 43 4f 4c  |COLS..9x.JSR COL|
00003100  43 dc 53 00 13 39 82 8c  4a 53 52 20 43 4f 4c 43  |C.S..9..JSR COLC|
00003110  92 00 21 39 8c 8c 4c 44  41 20 43 4f 4c 31 53 00  |..!9..LDA COL1S.|
00003120  2e 39 96 8c 53 54 41 20  43 4f 4c 30 00 3c 39 a0  |.9..STA COL0.<9.|
00003130  8c 4c 44 41 20 43 4f 4c  32 53 00 49 39 aa 8c 53  |.LDA COL2S.I9..S|
00003140  54 41 20 43 4f 4c 31 00  57 39 b4 8c 4c 44 41 20  |TA COL1.W9..LDA |
00003150  43 4f 4c 33 53 00 64 39  be 8c 53 54 41 20 43 4f  |COL3S.d9..STA CO|
00003160  4c 32 00 72 39 c8 8c 4c  44 41 20 43 4f 4c 30 53  |L2.r9..LDA COL0S|
00003170  00 7f 39 d2 8c 53 54 41  20 43 4f 4c 33 00 8d 39  |..9..STA COL3..9|
00003180  dc 8c 4a 53 52 20 e8 43  4f 4c 53 00 9c 39 e6 8c  |..JSR .COLS..9..|
00003190  4a 53 52 20 43 4f 4c 43  dc 53 00 aa 39 f0 8c 4a  |JSR COLC.S..9..J|
000031a0  53 52 20 43 4f 4c 43 92  00 bc 39 fa 8c 4a 4d 50  |SR COLC...9..JMP|
000031b0  20 43 4f 4c 43 59 43 4c  4f 50 00 e2 39 40 9c 3b  | COLCYCLOP..9@.;|
000031c0  20 20 20 20 20 20 20 20  20 20 20 20 20 41 52 49  |             ARI|
000031d0  54 48 4d 45 54 49 43 20  52 4f 55 54 49 4e 45 53  |THMETIC ROUTINES|
000031e0  00 f1 39 4a 9c a1 44 49  47 49 54 20 43 4c 44 00  |..9J..DIGIT CLD.|
000031f0  fb 39 54 9c 41 53 4c 20  41 00 05 3a 5e 9c 41 53  |.9T.ASL A..:^.AS|
00003200  4c 20 41 00 0f 3a 68 9c  41 53 4c 20 41 00 1b 3a  |L A..:h.ASL A..:|
00003210  72 9c 53 54 41 20 24 30  32 00 23 3a 7c 9c 54 58  |r.STA $02.#:|.TX|
00003220  41 00 2d 3a 86 9c 4c 53  52 20 41 00 39 3a 90 9c  |A.-:..LSR A.9:..|
00003230  53 54 41 20 24 32 34 00  46 3a 9a 9c 4c 44 41 20  |STA $24.F:..LDA |
00003240  23 24 30 37 00 4e 3a a4  9c 53 45 43 00 5a 3a ae  |#$07.N:..SEC.Z:.|
00003250  9c 53 42 43 20 24 32 34  00 62 3a b8 9c 43 4c 43  |.SBC $24.b:..CLC|
00003260  00 6e 3a c2 9c 41 44 43  20 24 30 32 00 76 3a cc  |.n:..ADC $02.v:.|
00003270  9c 54 41 59 00 86 3a d6  9c 4c 44 41 20 24 34 30  |.TAY..:..LDA $40|
00003280  30 30 2c 59 00 8e 3a e0  9c 54 41 59 00 96 3a ea  |00,Y..:..TAY..:.|
00003290  9c 54 58 41 00 a1 3a f4  9c af 20 23 24 30 31 00  |.TXA..:... #$01.|
000032a0  af 3a fe 9c 42 45 51 20  4c 53 4e 47 44 00 b7 3a  |.:..BEQ LSNGD..:|
000032b0  08 9d 54 59 41 00 c2 3a  12 9d af 20 23 24 46 30  |..TYA..:... #$F0|
000032c0  00 cc 3a 1c 9d 4c 53 52  20 41 00 d6 3a 26 9d 4c  |..:..LSR A..:&.L|
000032d0  53 52 20 41 00 e0 3a 30  9d 4c 53 52 20 41 00 ea  |SR A..:0.LSR A..|
000032e0  3a 3a 9d 4c 53 52 20 41  00 f2 3a 44 9d 52 54 53  |::.LSR A..:D.RTS|
000032f0  00 00 3b 4e 9d 4c 53 4e  47 44 20 54 59 41 00 0b  |..;N.LSNGD TYA..|
00003300  3b 58 9d af 20 23 24 30  46 00 13 3b 62 9d 52 54  |;X.. #$0F..;b.RT|
00003310  53 00 2e 3b 6c 9d 4d 55  4c 54 49 50 4c 59 42 20  |S..;l.MULTIPLYB |
00003320  4a 53 52 20 4e 45 47 41  54 49 56 45 00 3c 3b 71  |JSR NEGATIVE.<;q|
00003330  9d 4c 44 41 20 24 34 31  30 32 00 46 3b 76 9d 41  |.LDA $4102.F;v.A|
00003340  53 4c 20 41 00 50 3b 80  9d 41 53 4c 20 41 00 5a  |SL A.P;..ASL A.Z|
00003350  3b 8a 9d 41 53 4c 20 41  00 62 3b 94 9d 54 41 58  |;..ASL A.b;..TAX|
00003360  00 6f 3b 9e 9d 4c 44 41  20 23 24 30 30 00 77 3b  |.o;..LDA #$00.w;|
00003370  a8 9d 54 41 59 00 8d 3b  b2 9d 4d 4c 4f 50 41 20  |..TAY..;..MLOPA |
00003380  53 54 41 20 24 34 30 30  30 2c 58 00 95 3b bc 9d  |STA $4000,X..;..|
00003390  49 4e 59 00 9d 3b c6 9d  49 4e 58 00 aa 3b d0 9d  |INY..;..INX..;..|
000033a0  43 50 59 20 23 24 30 38  00 b8 3b da 9d 42 4e 45  |CPY #$08..;..BNE|
000033b0  20 4d 4c 4f 50 41 00 c5  3b e4 9d 4c 44 41 20 23  | MLOPA..;..LDA #|
000033c0  24 30 36 00 d1 3b ee 9d  53 54 41 20 24 46 43 00  |$06..;..STA $FC.|
000033d0  e6 3b f8 9d a2 44 49 47  49 54 20 4c 44 41 20 24  |.;...DIGIT LDA $|
000033e0  34 31 30 31 00 f2 3b 02  9e 4c 44 58 20 24 46 43  |4101..;..LDX $FC|
000033f0  00 01 3c 0c 9e 4a 53 52  20 a1 44 49 47 49 54 00  |..<..JSR .DIGIT.|
00003400  0e 3c 16 9e 43 4d 50 20  23 24 30 30 00 1e 3c 20  |.<..CMP #$00..< |
00003410  9e 42 45 51 20 44 4d 4f  56 45 52 42 00 2a 3c 2a  |.BEQ DMOVERB.*<*|
00003420  9e 53 54 41 20 24 46 44  00 37 3c 34 9e 4c 44 41  |.STA $FD.7<4.LDA|
00003430  20 23 24 30 36 00 43 3c  3e 9e 53 54 41 20 24 46  | #$06.C<>.STA $F|
00003440  42 00 57 3c 48 9e 44 4d  4c 4f 50 20 4c 44 41 20  |B.W<H.DMLOP LDA |
00003450  24 34 31 30 30 00 63 3c  52 9e 4c 44 58 20 24 46  |$4100.c<R.LDX $F|
00003460  42 00 72 3c 5c 9e 4a 53  52 20 a1 44 49 47 49 54  |B.r<\.JSR .DIGIT|
00003470  00 7f 3c 66 9e 43 4d 50  20 23 24 30 30 00 8e 3c  |..<f.CMP #$00..<|
00003480  70 9e 42 45 51 20 44 4d  4f 56 45 52 00 98 3c 7a  |p.BEQ DMOVER..<z|
00003490  9e 41 53 4c 20 41 00 a2  3c 84 9e 41 53 4c 20 41  |.ASL A..<..ASL A|
000034a0  00 ac 3c 8e 9e 41 53 4c  20 41 00 b6 3c 98 9e 41  |..<..ASL A..<..A|
000034b0  53 4c 20 41 00 be 3c a2  9e 43 4c 43 00 ca 3c ac  |SL A..<..CLC..<.|
000034c0  9e 41 44 43 20 24 46 44  00 d2 3c b6 9e 54 41 59  |.ADC $FD..<..TAY|
000034d0  00 df 3c c0 9e 4c 44 41  20 4d d4 2c 59 00 eb 3c  |..<..LDA M.,Y..<|
000034e0  ca 9e 53 54 41 20 24 33  35 00 f6 3c d4 9e af 20  |..STA $35..<... |
000034f0  23 24 30 46 00 fe 3c de  9e 54 41 59 00 0a 3d e8  |#$0F..<..TAY..=.|
00003500  9e 4c 44 41 20 24 46 42  00 12 3d f2 9e 43 4c 43  |.LDA $FB..=..CLC|
00003510  00 1e 3d fc 9e 41 44 43  20 24 46 43 00 26 3d 06  |..=..ADC $FC.&=.|
00003520  9f 53 45 43 00 33 3d 10  9f 53 42 43 20 23 24 30  |.SEC.3=..SBC #$0|
00003530  43 00 3b 3d 1a 9f 54 41  58 00 46 3d 24 9f af 20  |C.;=..TAX.F=$.. |
00003540  23 24 30 31 00 54 3d 2e  9f 42 45 51 20 4d 53 4b  |#$01.T=..BEQ MSK|
00003550  49 50 00 5c 3d 38 9f 54  59 41 00 66 3d 42 9f 41  |IP.\=8.TYA.f=B.A|
00003560  53 4c 20 41 00 70 3d 4c  9f 41 53 4c 20 41 00 7a  |SL A.p=L.ASL A.z|
00003570  3d 56 9f 41 53 4c 20 41  00 84 3d 60 9f 41 53 4c  |=V.ASL A..=`.ASL|
00003580  20 41 00 8c 3d 6a 9f 54  41 59 00 98 3d 74 9f 4c  | A..=j.TAY..=t.L|
00003590  44 41 20 24 33 35 00 a3  3d 7e 9f af 20 23 24 46  |DA $35..=~.. #$F|
000035a0  30 00 ad 3d 88 9f 4c 53  52 20 41 00 b7 3d 92 9f  |0..=..LSR A..=..|
000035b0  4c 53 52 20 41 00 c1 3d  9c 9f 4c 53 52 20 41 00  |LSR A..=..LSR A.|
000035c0  cb 3d a6 9f 4c 53 52 20  41 00 d7 3d b0 9f 53 54  |.=..LSR A..=..ST|
000035d0  41 20 24 33 35 00 e2 3d  ba 9f 4a 4d 50 20 4d 9a  |A $35..=..JMP M.|
000035e0  00 f9 3d bf 9f 44 4d 4f  56 45 52 42 20 4a 4d 50  |..=..DMOVERB JMP|
000035f0  20 44 4d 4f 56 45 52 00  0b 3e c4 9f 4d 53 4b 49  | DMOVER..>..MSKI|
00003600  50 20 4c 44 59 20 24 33  35 00 18 3e ce 9f 4c 44  |P LDY $35..>..LD|
00003610  41 20 23 24 30 30 00 24  3e d8 9f 53 54 41 20 24  |A #$00.$>..STA $|
00003620  33 35 00 2f 3e da 9f 4d  9a 20 54 58 41 00 39 3e  |35./>..M. TXA.9>|
00003630  dc 9f 4c 53 52 20 41 00  45 3e de 9f 53 54 41 20  |..LSR A.E>..STA |
00003640  24 30 32 00 52 3e e0 9f  4c 44 41 20 23 24 30 37  |$02.R>..LDA #$07|
00003650  00 5a 3e e2 9f 53 45 43  00 66 3e e4 9f 53 42 43  |.Z>..SEC.f>..SBC|
00003660  20 24 30 32 00 72 3e e6  9f 53 54 41 20 24 30 32  | $02.r>..STA $02|
00003670  00 80 3e e8 9f 4c 44 41  20 24 34 31 30 32 00 8a  |..>..LDA $4102..|
00003680  3e ea 9f 41 53 4c 20 41  00 94 3e ec 9f 41 53 4c  |>..ASL A..>..ASL|
00003690  20 41 00 9e 3e ee 9f 41  53 4c 20 41 00 aa 3e f0  | A..>..ASL A..>.|
000036a0  9f 41 44 43 20 24 30 32  00 b6 3e f2 9f 53 54 59  |.ADC $02..>..STY|
000036b0  20 24 32 35 00 be 3e f4  9f 54 41 59 00 c6 3e f6  | $25..>..TAY..>.|
000036c0  9f 53 45 44 00 d6 3e f8  9f 4c 44 41 20 24 34 30  |.SED..>..LDA $40|
000036d0  30 30 2c 59 00 de 3e fa  9f 43 4c 43 00 ea 3e fc  |00,Y..>..CLC..>.|
000036e0  9f 41 44 43 20 24 32 35  00 fa 3e fe 9f 53 54 41  |.ADC $25..>..STA|
000036f0  20 24 34 30 30 30 2c 59  00 02 3f 00 a0 43 4c 44  | $4000,Y..?..CLD|
00003700  00 0a 3f 02 a0 44 45 59  00 12 3f 04 a0 53 45 44  |..?..DEY..?..SED|
00003710  00 22 3f 06 a0 4c 44 41  20 24 34 30 30 30 2c 59  |."?..LDA $4000,Y|
00003720  00 2e 3f 08 a0 41 44 43  20 24 33 35 00 3e 3f 0a  |..?..ADC $35.>?.|
00003730  a0 53 54 41 20 24 34 30  30 30 2c 59 00 46 3f 0c  |.STA $4000,Y.F?.|
00003740  a0 43 4c 44 00 5a 3f 0e  a0 4d 41 4c 50 20 42 43  |.CLD.Z?..MALP BC|
00003750  43 20 44 4d 4f 56 45 52  00 62 3f 10 a0 44 45 59  |C DMOVER.b?..DEY|
00003760  00 6a 3f 12 a0 53 45 44  00 7a 3f 14 a0 4c 44 41  |.j?..SED.z?..LDA|
00003770  20 24 34 30 30 30 2c 59  00 87 3f 16 a0 41 44 43  | $4000,Y..?..ADC|
00003780  20 23 24 30 30 00 97 3f  18 a0 53 54 41 20 24 34  | #$00..?..STA $4|
00003790  30 30 30 2c 59 00 9f 3f  1a a0 43 4c 44 00 ac 3f  |000,Y..?..CLD..?|
000037a0  1c a0 4a 4d 50 20 4d 41  4c 50 00 bf 3f 5a a0 44  |..JMP MALP..?Z.D|
000037b0  4d 4f 56 45 52 20 49 4e  43 20 24 46 42 00 cb 3f  |MOVER INC $FB..?|
000037c0  64 a0 4c 44 41 20 24 46  42 00 d8 3f 6e a0 43 4d  |d.LDA $FB..?n.CM|
000037d0  50 20 23 24 30 45 00 e7  3f 78 a0 42 43 43 20 44  |P #$0E..?x.BCC D|
000037e0  4d 4c 4f 50 42 00 f3 3f  82 a0 49 4e 43 20 24 46  |MLOPB..?..INC $F|
000037f0  43 00 ff 3f 8c a0 4c 44  41 20 24 46 43 00 0c 40  |C..?..LDA $FC..@|
00003800  96 a0 43 4d 50 20 23 24  30 45 00 1c 40 a0 a0 42  |..CMP #$0E..@..B|
00003810  43 43 20 a2 44 49 47 49  54 42 00 29 40 aa a0 4c  |CC .DIGITB.)@..L|
00003820  44 41 20 59 50 49 42 00  36 40 b4 a0 42 45 51 20  |DA YPIB.6@..BEQ |
00003830  51 55 49 54 00 44 40 be  a0 4c 44 41 20 24 34 31  |QUIT.D@..LDA $41|
00003840  30 32 00 52 40 c8 a0 53  54 41 20 24 34 31 30 31  |02.R@..STA $4101|
00003850  00 5f 40 d2 a0 4c 44 41  20 23 24 31 44 00 6d 40  |._@..LDA #$1D.m@|
00003860  dc a0 53 54 41 20 24 34  31 30 30 00 7e 40 e6 a0  |..STA $4100.~@..|
00003870  4a 53 52 20 53 55 42 54  52 41 43 54 00 8b 40 f0  |JSR SUBTRACT..@.|
00003880  a0 51 55 49 54 20 52 54  53 00 a0 40 fa a0 44 4d  |.QUIT RTS..@..DM|
00003890  4c 4f 50 42 20 4a 4d 50  20 44 4d 4c 4f 50 00 b7  |LOPB JMP DMLOP..|
000038a0  40 04 a1 a2 44 49 47 49  54 42 20 4a 4d 50 20 a2  |@...DIGITB JMP .|
000038b0  44 49 47 49 54 00 ca 40  22 a1 4d 53 55 50 20 4c  |DIGIT..@".MSUP L|
000038c0  44 41 20 24 34 31 30 30  00 d4 40 2c a1 41 53 4c  |DA $4100..@,.ASL|
000038d0  20 41 00 de 40 36 a1 41  53 4c 20 41 00 e8 40 40  | A..@6.ASL A..@@|
000038e0  a1 41 53 4c 20 41 00 f0  40 4a a1 54 41 58 00 f8  |.ASL A..@J.TAX..|
000038f0  40 54 a1 44 45 58 00 04  41 5e a1 53 54 58 20 24  |@T.DEX..A^.STX $|
00003900  46 42 00 12 41 68 a1 4c  44 41 20 24 34 31 30 31  |FB..Ah.LDA $4101|
00003910  00 1c 41 72 a1 41 53 4c  20 41 00 26 41 7c a1 41  |..Ar.ASL A.&A|.A|
00003920  53 4c 20 41 00 30 41 86  a1 41 53 4c 20 41 00 38  |SL A.0A..ASL A.8|
00003930  41 90 a1 54 41 58 00 40  41 9a a1 44 45 58 00 4c  |A..TAX.@A..DEX.L|
00003940  41 a4 a1 53 54 58 20 24  46 44 00 5a 41 ae a1 4c  |A..STX $FD.ZA..L|
00003950  44 41 20 24 34 31 30 32  00 64 41 b8 a1 41 53 4c  |DA $4102.dA..ASL|
00003960  20 41 00 6e 41 c2 a1 41  53 4c 20 41 00 78 41 cc  | A.nA..ASL A.xA.|
00003970  a1 41 53 4c 20 41 00 80  41 d6 a1 54 41 58 00 88  |.ASL A..A..TAX..|
00003980  41 e0 a1 44 45 58 00 94  41 ea a1 53 54 58 20 24  |A..DEX..A..STX $|
00003990  32 32 00 a1 41 f4 a1 4c  44 41 20 23 24 34 30 00  |22..A..LDA #$40.|
000039a0  ad 41 fe a1 53 54 41 20  24 46 43 00 b9 41 08 a2  |.A..STA $FC..A..|
000039b0  53 54 41 20 24 46 45 00  c5 41 12 a2 53 54 41 20  |STA $FE..A..STA |
000039c0  24 32 33 00 cd 41 1c a2  52 54 53 00 e0 41 26 a2  |$23..A..RTS..A&.|
000039d0  45 51 55 41 4c 20 4a 53  52 20 4d 53 55 50 00 ed  |EQUAL JSR MSUP..|
000039e0  41 30 a2 4c 44 59 20 23  24 30 38 00 02 42 3a a2  |A0.LDY #$08..B:.|
000039f0  45 4c 4f 50 20 4c 44 41  20 28 24 46 42 29 2c 59  |ELOP LDA ($FB),Y|
00003a00  00 12 42 44 a2 53 54 41  20 28 24 32 32 29 2c 59  |..BD.STA ($22),Y|
00003a10  00 1a 42 4e a2 44 45 59  00 27 42 58 a2 42 4e 45  |..BN.DEY.'BX.BNE|
00003a20  20 45 4c 4f 50 00 2f 42  62 a2 52 54 53 00 44 42  | ELOP./Bb.RTS.DB|
00003a30  6c a2 41 44 44 49 54 49  91 20 4a 53 52 20 4d 53  |l.ADDITI. JSR MS|
00003a40  55 50 00 51 42 76 a2 4c  44 59 20 23 24 30 38 00  |UP.QBv.LDY #$08.|
00003a50  59 42 80 a2 53 45 44 00  61 42 8a a2 43 4c 43 00  |YB..SED.aB..CLC.|
00003a60  77 42 94 a2 41 44 4c 4f  50 20 4c 44 41 20 28 24  |wB..ADLOP LDA ($|
00003a70  46 42 29 2c 59 00 87 42  9e a2 41 44 43 20 28 24  |FB),Y..B..ADC ($|
00003a80  46 44 29 2c 59 00 97 42  a8 a2 53 54 41 20 28 24  |FD),Y..B..STA ($|
00003a90  32 32 29 2c 59 00 9f 42  b2 a2 44 45 59 00 ad 42  |22),Y..B..DEY..B|
00003aa0  bc a2 42 4e 45 20 41 44  4c 4f 50 00 b5 42 c6 a2  |..BNE ADLOP..B..|
00003ab0  43 4c 44 00 bd 42 d0 a2  52 54 53 00 d3 42 da a2  |CLD..B..RTS..B..|
00003ac0  53 55 42 54 52 41 43 54  20 4a 53 52 20 4d 53 55  |SUBTRACT JSR MSU|
00003ad0  50 00 e0 42 e4 a2 4c 44  59 20 23 24 30 38 00 e8  |P..B..LDY #$08..|
00003ae0  42 ee a2 53 45 44 00 f0  42 f8 a2 53 45 43 00 06  |B..SED..B..SEC..|
00003af0  43 02 a3 53 55 4c 4f 50  20 4c 44 41 20 28 24 46  |C..SULOP LDA ($F|
00003b00  42 29 2c 59 00 16 43 0c  a3 53 42 43 20 28 24 46  |B),Y..C..SBC ($F|
00003b10  44 29 2c 59 00 26 43 16  a3 53 54 41 20 28 24 32  |D),Y.&C..STA ($2|
00003b20  32 29 2c 59 00 2e 43 20  a3 44 45 59 00 3c 43 2a  |2),Y..C .DEY.<C*|
00003b30  a3 42 4e 45 20 53 55 4c  4f 50 00 44 43 34 a3 43  |.BNE SULOP.DC4.C|
00003b40  4c 44 00 4c 43 3e a3 52  54 53 00 62 43 48 a3 4e  |LD.LC>.RTS.bCH.N|
00003b50  45 47 41 54 49 56 45 20  4c 44 41 20 23 24 30 30  |EGATIVE LDA #$00|
00003b60  00 6a 43 52 a3 50 48 41  00 78 43 5c a3 4c 44 41  |.jCR.PHA.xC\.LDA|
00003b70  20 24 34 31 30 30 00 80  43 66 a3 54 41 59 00 8a  | $4100..Cf.TAY..|
00003b80  43 70 a3 41 53 4c 20 41  00 94 43 7a a3 41 53 4c  |Cp.ASL A..Cz.ASL|
00003b90  20 41 00 9e 43 84 a3 41  53 4c 20 41 00 a6 43 8e  | A..C..ASL A..C.|
00003ba0  a3 54 41 58 00 b6 43 98  a3 4c 44 41 20 24 34 30  |.TAX..C..LDA $40|
00003bb0  30 31 2c 58 00 c3 43 a2  a3 43 4d 50 20 23 24 35  |01,X..C..CMP #$5|
00003bc0  30 00 d6 43 a7 a3 42 43  43 20 4e 45 47 52 4d 4f  |0..C..BCC NEGRMO|
00003bd0  56 45 41 42 00 de 43 ac  a3 50 4c 41 00 eb 43 b6  |VEAB..C..PLA..C.|
00003be0  a3 41 44 43 20 23 24 30  30 00 f3 43 c0 a3 50 48  |.ADC #$00..C..PH|
00003bf0  41 00 05 44 ca a3 4a 4d  50 20 4e 45 47 52 4d 4f  |A..D..JMP NEGRMO|
00003c00  56 45 41 00 1e 44 d4 a3  4e 45 47 52 4d 4f 56 45  |VEA..D..NEGRMOVE|
00003c10  41 42 20 4c 44 41 20 24  34 31 30 31 00 26 44 de  |AB LDA $4101.&D.|
00003c20  a3 54 41 59 00 30 44 e8  a3 41 53 4c 20 41 00 3a  |.TAY.0D..ASL A.:|
00003c30  44 f2 a3 41 53 4c 20 41  00 44 44 fc a3 41 53 4c  |D..ASL A.DD..ASL|
00003c40  20 41 00 4c 44 06 a4 54  41 58 00 5c 44 10 a4 4c  | A.LD..TAX.\D..L|
00003c50  44 41 20 24 34 30 30 31  2c 58 00 69 44 1a a4 43  |DA $4001,X.iD..C|
00003c60  4d 50 20 23 24 35 30 00  71 44 24 a4 50 4c 41 00  |MP #$50.qD$.PLA.|
00003c70  7e 44 2e a4 42 43 43 20  4e 4f 45 b0 00 8a 44 38  |~D..BCC NOE...D8|
00003c80  a4 45 b0 20 23 24 30 31  00 92 44 42 a4 50 48 41  |.E. #$01..DB.PHA|
00003c90  00 a4 44 4c a4 42 43 53  20 4e 45 47 52 4d 4f 56  |..DL.BCS NEGRMOV|
00003ca0  45 42 00 b7 44 56 a4 4e  45 47 52 4d 4f 56 45 42  |EB..DV.NEGRMOVEB|
00003cb0  42 20 50 4c 41 00 c9 44  60 a4 4e 4f 45 b0 20 53  |B PLA..D`.NOE. S|
00003cc0  54 41 20 59 50 49 42 00  d1 44 6a a4 52 54 53 00  |TA YPIB..Dj.RTS.|
00003cd0  e8 44 74 a4 4e 45 47 52  4d 4f 56 45 20 4c 44 41  |.Dt.NEGRMOVE LDA|
00003ce0  20 24 34 31 30 30 00 f0  44 7e a4 50 48 41 00 fe  | $4100..D~.PHA..|
00003cf0  44 88 a4 4c 44 41 20 24  34 31 30 31 00 06 45 92  |D..LDA $4101..E.|
00003d00  a4 50 48 41 00 14 45 9c  a4 4c 44 41 20 24 34 31  |.PHA..E..LDA $41|
00003d10  30 32 00 1c 45 a6 a4 50  48 41 00 24 45 b0 a4 54  |02..E..PHA.$E..T|
00003d20  59 41 00 32 45 ba a4 53  54 41 20 24 34 31 30 31  |YA.2E..STA $4101|
00003d30  00 40 45 c4 a4 53 54 41  20 24 34 31 30 32 00 4d  |.@E..STA $4102.M|
00003d40  45 ce a4 4c 44 41 20 23  24 31 44 00 5b 45 d8 a4  |E..LDA #$1D.[E..|
00003d50  53 54 41 20 24 34 31 30  30 00 6c 45 e2 a4 4a 53  |STA $4100.lE..JS|
00003d60  52 20 53 55 42 54 52 41  43 54 00 74 45 ec a4 50  |R SUBTRACT.tE..P|
00003d70  4c 41 00 82 45 f6 a4 53  54 41 20 24 34 31 30 32  |LA..E..STA $4102|
00003d80  00 8a 45 00 a5 50 4c 41  00 98 45 0a a5 53 54 41  |..E..PLA..E..STA|
00003d90  20 24 34 31 30 31 00 a0  45 14 a5 50 4c 41 00 ae  | $4101..E..PLA..|
00003da0  45 1e a5 53 54 41 20 24  34 31 30 30 00 b6 45 28  |E..STA $4100..E(|
00003db0  a5 52 54 53 00 d1 45 32  a5 4e 45 47 52 4d 4f 56  |.RTS..E2.NEGRMOV|
00003dc0  45 41 20 4a 53 52 20 4e  45 47 52 4d 4f 56 45 00  |EA JSR NEGRMOVE.|
00003dd0  e4 45 3c a5 4a 4d 50 20  4e 45 47 52 4d 4f 56 45  |.E<.JMP NEGRMOVE|
00003de0  41 42 00 ff 45 46 a5 4e  45 47 52 4d 4f 56 45 42  |AB..EF.NEGRMOVEB|
00003df0  20 4a 53 52 20 4e 45 47  52 4d 4f 56 45 00 12 46  | JSR NEGRMOVE..F|
00003e00  50 a5 4a 4d 50 20 4e 45  47 52 4d 4f 56 45 42 42  |P.JMP NEGRMOVEBB|
00003e10  00 29 46 5a a5 4d 55 4c  54 49 50 4c 59 20 4c 44  |.)FZ.MULTIPLY LD|
00003e20  41 20 24 34 31 30 32 00  31 46 64 a5 50 48 41 00  |A $4102.1Fd.PHA.|
00003e30  3f 46 6e a5 4c 44 41 20  24 34 31 30 31 00 47 46  |?Fn.LDA $4101.GF|
00003e40  78 a5 50 48 41 00 54 46  82 a5 4c 44 41 20 23 24  |x.PHA.TF..LDA #$|
00003e50  31 38 00 62 46 8c a5 53  54 41 20 24 34 31 30 32  |18.bF..STA $4102|
00003e60  00 70 46 96 a5 4a 53 52  20 45 51 55 41 4c 00 7e  |.pF..JSR EQUAL.~|
00003e70  46 a0 a5 49 4e 43 20 24  34 31 30 32 00 86 46 aa  |F..INC $4102..F.|
00003e80  a5 50 4c 41 00 94 46 b4  a5 53 54 41 20 24 34 31  |.PLA..F..STA $41|
00003e90  30 30 00 a2 46 be a5 4a  53 52 20 45 51 55 41 4c  |00..F..JSR EQUAL|
00003ea0  00 af 46 c8 a5 4c 44 41  20 23 24 31 38 00 bd 46  |..F..LDA #$18..F|
00003eb0  d2 a5 53 54 41 20 24 34  31 30 30 00 ca 46 dc a5  |..STA $4100..F..|
00003ec0  4c 44 41 20 23 24 31 39  00 d8 46 e6 a5 53 54 41  |LDA #$19..F..STA|
00003ed0  20 24 34 31 30 31 00 e0  46 f0 a5 50 4c 41 00 ee  | $4101..F..PLA..|
00003ee0  46 fa a5 53 54 41 20 24  34 31 30 32 00 00 47 04  |F..STA $4102..G.|
00003ef0  a6 4a 4d 50 20 4d 55 4c  54 49 50 4c 59 42 00 26  |.JMP MULTIPLYB.&|
00003f00  47 c8 af 3b 20 20 20 20  20 20 20 20 20 20 20 4d  |G..;           M|
00003f10  55 4c 54 49 50 4c 49 43  41 54 49 4f 4e 20 54 41  |ULTIPLICATION TA|
00003f20  42 4c 45 53 00 2c 47 ca  af 3b 00 57 47 cc af 4d  |BLES.,G..;.WG..M|
00003f30  d4 20 54 58 54 20 30 2c  30 2c 30 2c 30 2c 30 2c  |. TXT 0,0,0,0,0,|
00003f40  30 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,0,0,0,0,0,0,0,|
00003f50  30 2c 30 2c 30 00 7f 47  ce af 54 58 54 20 30 2c  |0,0,0..G..TXT 0,|
00003f60  31 2c 32 2c 33 2c 34 2c  35 2c 36 2c 37 2c 38 2c  |1,2,3,4,5,6,7,8,|
00003f70  39 2c 30 2c 30 2c 30 2c  30 2c 30 2c 30 00 b1 47  |9,0,0,0,0,0,0..G|
00003f80  d0 af 54 58 54 20 30 2c  32 2c 34 2c 36 2c 38 2c  |..TXT 0,2,4,6,8,|
00003f90  24 31 30 2c 24 31 32 2c  24 31 34 2c 24 31 36 2c  |$10,$12,$14,$16,|
00003fa0  24 31 38 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 00  |$18,0,0,0,0,0,0.|
00003fb0  e5 47 d2 af 54 58 54 20  30 2c 33 2c 36 2c 39 2c  |.G..TXT 0,3,6,9,|
00003fc0  24 31 32 2c 24 31 35 2c  24 31 38 2c 24 32 31 2c  |$12,$15,$18,$21,|
00003fd0  24 32 34 2c 24 32 37 2c  30 2c 30 2c 30 2c 30 2c  |$24,$27,0,0,0,0,|
00003fe0  30 2c 30 00 1b 48 d4 af  54 58 54 20 30 2c 34 2c  |0,0..H..TXT 0,4,|
00003ff0  38 2c 24 31 32 2c 24 31  36 2c 24 32 30 2c 24 32  |8,$12,$16,$20,$2|
00004000  34 2c 24 32 38 2c 24 33  32 2c 24 33 36 2c 30 2c  |4,$28,$32,$36,0,|
00004010  30 2c 30 2c 30 2c 30 2c  30 00 53 48 d6 af 54 58  |0,0,0,0,0.SH..TX|
00004020  54 20 30 2c 35 2c 24 31  30 2c 24 31 35 2c 24 32  |T 0,5,$10,$15,$2|
00004030  30 2c 24 32 35 2c 24 33  30 2c 24 33 35 2c 24 34  |0,$25,$30,$35,$4|
00004040  30 2c 24 34 35 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |0,$45,0,0,0,0,0,|
00004050  30 00 8b 48 d8 af 54 58  54 20 30 2c 36 2c 24 31  |0..H..TXT 0,6,$1|
00004060  32 2c 24 31 38 2c 24 32  34 2c 24 33 30 2c 24 33  |2,$18,$24,$30,$3|
00004070  36 2c 24 34 32 2c 24 34  38 2c 24 35 34 2c 30 2c  |6,$42,$48,$54,0,|
00004080  30 2c 30 2c 30 2c 30 2c  30 00 c3 48 da af 54 58  |0,0,0,0,0..H..TX|
00004090  54 20 30 2c 37 2c 24 31  34 2c 24 32 31 2c 24 32  |T 0,7,$14,$21,$2|
000040a0  38 2c 24 33 35 2c 24 34  32 2c 24 34 39 2c 24 35  |8,$35,$42,$49,$5|
000040b0  36 2c 24 36 33 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |6,$63,0,0,0,0,0,|
000040c0  30 00 fb 48 dc af 54 58  54 20 30 2c 38 2c 24 31  |0..H..TXT 0,8,$1|
000040d0  36 2c 24 32 34 2c 24 33  32 2c 24 34 30 2c 24 34  |6,$24,$32,$40,$4|
000040e0  38 2c 24 35 36 2c 24 36  34 2c 24 37 32 2c 30 2c  |8,$56,$64,$72,0,|
000040f0  30 2c 30 2c 30 2c 30 2c  30 00 33 49 de af 54 58  |0,0,0,0,0.3I..TX|
00004100  54 20 30 2c 39 2c 24 31  38 2c 24 32 37 2c 24 33  |T 0,9,$18,$27,$3|
00004110  36 2c 24 34 35 2c 24 35  34 2c 24 36 33 2c 24 37  |6,$45,$54,$63,$7|
00004120  32 2c 24 38 31 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |2,$81,0,0,0,0,0,|
00004130  30 00 56 49 b0 b3 3b 20  20 20 20 20 20 20 20 20  |0.VI..;         |
00004140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 b9  |               .|
00004150  49 54 49 91 00 9c 49 ba  b3 b9 54 45 58 54 20 54  |ITI...I...TEXT T|
00004160  58 54 20 31 34 37 2c 35  2c 22 20 20 20 20 20 20  |XT 147,5,"      |
00004170  20 20 20 20 20 20 50 20  4f 20 53 20 49 20 54 20  |      P O S I T |
00004180  49 20 4f 20 4e 22 2c 31  33 2c 31 33 2c 31 33 2c  |I O N",13,13,13,|
00004190  22 58 4d 49 4e 3a 22 2c  31 33 00 c4 49 c4 b3 54  |"XMIN:",13..I..T|
000041a0  58 54 20 22 58 4d 41 58  3a 22 2c 31 33 2c 22 59  |XT "XMAX:",13,"Y|
000041b0  4d 49 4e 3a 22 2c 31 33  2c 22 59 4d 41 58 3a 22  |MIN:",13,"YMAX:"|
000041c0  2c 30 00 d0 49 ce b3 50  4e 4f 20 50 48 41 00 da  |,0..I..PNO PHA..|
000041d0  49 d8 b3 41 53 4c 20 41  00 e4 49 e2 b3 41 53 4c  |I..ASL A..I..ASL|
000041e0  20 41 00 ee 49 ec b3 41  53 4c 20 41 00 f6 49 f6  | A..I..ASL A..I.|
000041f0  b3 54 41 58 00 06 4a 00  b4 4c 44 41 20 24 34 30  |.TAX..J..LDA $40|
00004200  30 31 2c 58 00 13 4a 0a  b4 43 4d 50 20 23 24 35  |01,X..J..CMP #$5|
00004210  30 00 22 4a 14 b4 42 43  53 20 50 4e 4f 56 45 52  |0."J..BCS PNOVER|
00004220  00 2f 4a 1e b4 4c 44 41  20 23 24 32 42 00 3d 4a  |./J..LDA #$2B.=J|
00004230  28 b4 4a 53 52 20 4f 55  54 44 4f 00 4a 4a 2a b4  |(.JSR OUTDO.JJ*.|
00004240  4c 44 41 20 23 24 30 30  00 59 4a 2c b4 53 54 41  |LDA #$00.YJ,.STA|
00004250  20 4e 45 47 52 45 47 00  65 4a 32 b4 4a 4d 50 20  | NEGREG.eJ2.JMP |
00004260  50 4e 9a 00 79 4a 3c b4  50 4e 4f 56 45 52 20 4c  |PN..yJ<.PNOVER L|
00004270  44 41 20 23 24 32 44 00  87 4a 46 b4 4a 53 52 20  |DA #$2D..JF.JSR |
00004280  4f 55 54 44 4f 00 94 4a  47 b4 4c 44 41 20 23 24  |OUTDO..JG.LDA #$|
00004290  30 31 00 a3 4a 48 b4 53  54 41 20 4e 45 47 52 45  |01..JH.STA NEGRE|
000042a0  47 00 ab 4a 49 b4 50 4c  41 00 b3 4a 4a b4 50 48  |G..JI.PLA..JJ.PH|
000042b0  41 00 c1 4a 4b b4 53 54  41 20 24 34 31 30 31 00  |A..JK.STA $4101.|
000042c0  cf 4a 4c b4 53 54 41 20  24 34 31 30 32 00 dc 4a  |.JL.STA $4102..J|
000042d0  4d b4 4c 44 41 20 23 24  31 44 00 ea 4a 4e b4 53  |M.LDA #$1D..JN.S|
000042e0  54 41 20 24 34 31 30 30  00 fb 4a 4f b4 4a 53 52  |TA $4100..JO.JSR|
000042f0  20 53 55 42 54 52 41 43  54 00 0c 4b 50 b4 50 4e  | SUBTRACT..KP.PN|
00004300  9a 20 4c 44 58 20 23 24  30 43 00 1d 4b 5a b4 50  |. LDX #$0C..KZ.P|
00004310  4e 43 42 20 53 54 58 20  24 32 32 00 25 4b 64 b4  |NCB STX $22.%Kd.|
00004320  50 4c 41 00 2d 4b 6e b4  50 48 41 00 3c 4b 78 b4  |PLA.-Kn.PHA.<Kx.|
00004330  4a 53 52 20 a1 44 49 47  49 54 00 44 4b 8c b4 43  |JSR .DIGIT.DK..C|
00004340  4c 43 00 51 4b 96 b4 41  44 43 20 23 24 33 30 00  |LC.QK..ADC #$30.|
00004350  5f 4b 9b b4 4a 53 52 20  4f 55 54 44 4f 00 6b 4b  |_K..JSR OUTDO.kK|
00004360  a0 b4 4c 44 58 20 24 32  32 00 78 4b aa b4 42 45  |..LDX $22.xK..BE|
00004370  51 20 50 4e 44 51 00 85  4b b4 b4 43 50 58 20 23  |Q PNDQ..K..CPX #|
00004380  24 30 43 00 93 4b be b4  42 45 51 20 50 4e 44 4f  |$0C..K..BEQ PNDO|
00004390  54 00 9b 4b c8 b4 44 45  58 00 a8 4b d2 b4 4a 4d  |T..K..DEX..K..JM|
000043a0  50 20 50 4e 43 42 00 bb  4b dc b4 50 4e 44 4f 54  |P PNCB..K..PNDOT|
000043b0  20 4c 44 41 20 23 24 32  45 00 c9 4b e6 b4 4a 53  | LDA #$2E..K..JS|
000043c0  52 20 4f 55 54 44 4f 00  d1 4b f0 b4 44 45 58 00  |R OUTDO..K..DEX.|
000043d0  de 4b fa b4 4a 4d 50 20  50 4e 43 42 00 eb 4b 04  |.K..JMP PNCB..K.|
000043e0  b5 50 4e 44 51 20 50 4c  41 00 fa 4b 05 b5 4c 44  |.PNDQ PLA..K..LD|
000043f0  58 20 4e 45 47 52 45 47  00 09 4c 06 b5 42 45 51  |X NEGREG..L..BEQ|
00004400  20 4e 4f 47 52 45 47 00  17 4c 07 b5 53 54 41 20  | NOGREG..L..STA |
00004410  24 34 31 30 31 00 25 4c  08 b5 53 54 41 20 24 34  |$4101.%L..STA $4|
00004420  31 30 32 00 32 4c 09 b5  4c 44 41 20 23 24 31 44  |102.2L..LDA #$1D|
00004430  00 40 4c 0a b5 53 54 41  20 24 34 31 30 30 00 51  |.@L..STA $4100.Q|
00004440  4c 0b b5 4a 53 52 20 53  55 42 54 52 41 43 54 00  |L..JSR SUBTRACT.|
00004450  60 4c 0e b5 4e 4f 47 52  45 47 20 52 54 53 00 77  |`L..NOGREG RTS.w|
00004460  4c 18 b5 b9 49 54 49 91  20 4a 53 52 20 48 49 52  |L...ITI. JSR HIR|
00004470  45 53 4f 46 46 00 87 4c  22 b5 4c 44 41 20 23 b3  |ESOFF..L".LDA #.|
00004480  b9 54 45 58 54 00 93 4c  2c b5 53 54 41 20 24 46  |.TEXT..L,.STA $F|
00004490  42 00 a3 4c 36 b5 4c 44  41 20 23 b1 b9 54 45 58  |B..L6.LDA #..TEX|
000044a0  54 00 af 4c 40 b5 53 54  41 20 24 46 43 00 bf 4c  |T..L@.STA $FC..L|
000044b0  4a b5 4a 53 52 20 50 53  54 52 49 4e 47 00 cc 4c  |J.JSR PSTRING..L|
000044c0  54 b5 4c 44 41 20 23 24  30 37 00 d8 4c 5e b5 53  |T.LDA #$07..L^.S|
000044d0  54 41 20 24 44 33 00 e5  4c 68 b5 4c 44 41 20 23  |TA $D3..Lh.LDA #|
000044e0  24 30 33 00 f1 4c 72 b5  53 54 41 20 24 44 36 00  |$03..Lr.STA $D6.|
000044f0  02 4d 7c b5 4a 53 52 20  50 4c 4f 54 52 52 4f 4d  |.M|.JSR PLOTRROM|
00004500  00 0f 4d 86 b5 4c 44 41  20 23 24 30 31 00 1b 4d  |..M..LDA #$01..M|
00004510  90 b5 4a 53 52 20 50 4e  4f 00 28 4d 9a b5 4c 44  |..JSR PNO.(M..LD|
00004520  41 20 23 24 30 37 00 34  4d a4 b5 53 54 41 20 24  |A #$07.4M..STA $|
00004530  44 33 00 41 4d ae b5 4c  44 41 20 23 24 30 34 00  |D3.AM..LDA #$04.|
00004540  4d 4d b8 b5 53 54 41 20  24 44 36 00 5e 4d c2 b5  |MM..STA $D6.^M..|
00004550  4a 53 52 20 50 4c 4f 54  52 52 4f 4d 00 6b 4d cc  |JSR PLOTRROM.kM.|
00004560  b5 4c 44 41 20 23 24 31  45 00 77 4d d6 b5 4a 53  |.LDA #$1E.wM..JS|
00004570  52 20 50 4e 4f 00 84 4d  e0 b5 4c 44 41 20 23 24  |R PNO..M..LDA #$|
00004580  30 37 00 90 4d ea b5 53  54 41 20 24 44 33 00 9d  |07..M..STA $D3..|
00004590  4d f4 b5 4c 44 41 20 23  24 30 35 00 a9 4d fe b5  |M..LDA #$05..M..|
000045a0  53 54 41 20 24 44 36 00  ba 4d 08 b6 4a 53 52 20  |STA $D6..M..JSR |
000045b0  50 4c 4f 54 52 52 4f 4d  00 c7 4d 12 b6 4c 44 41  |PLOTRROM..M..LDA|
000045c0  20 23 24 30 33 00 d3 4d  1c b6 4a 53 52 20 50 4e  | #$03..M..JSR PN|
000045d0  4f 00 e0 4d 26 b6 4c 44  41 20 23 24 30 37 00 ec  |O..M&.LDA #$07..|
000045e0  4d 30 b6 53 54 41 20 24  44 33 00 f9 4d 35 b6 4c  |M0.STA $D3..M5.L|
000045f0  44 41 20 23 24 30 36 00  05 4e 3a b6 53 54 41 20  |DA #$06..N:.STA |
00004600  24 44 36 00 16 4e 44 b6  4a 53 52 20 50 4c 4f 54  |$D6..ND.JSR PLOT|
00004610  52 52 4f 4d 00 23 4e 4e  b6 4c 44 41 20 23 24 31  |RROM.#NN.LDA #$1|
00004620  46 00 2f 4e 58 b6 4a 53  52 20 50 4e 4f 00 3c 4e  |F./NX.JSR PNO.<N|
00004630  62 b6 4c 44 58 20 23 24  30 31 00 49 4e 6c b6 4c  |b.LDX #$01.INl.L|
00004640  44 59 20 23 24 30 30 00  57 4e 71 b6 4a 53 52 20  |DY #$00.WNq.JSR |
00004650  b9 91 4f 46 46 00 64 4e  76 b6 b9 4c 4f 50 20 54  |..OFF.dNv..LOP T|
00004660  58 41 00 6c 4e 80 b6 50  48 41 00 7d 4e 8a b6 b9  |XA.lN..PHA.}N...|
00004670  4c 4f 50 42 20 4a 53 52  20 a1 dc 00 8a 4e 94 b6  |LOPB JSR ....N..|
00004680  43 4d 50 20 23 24 32 42  00 96 4e 9e b6 42 45 51  |CMP #$2B..N..BEQ|
00004690  20 b9 49 b9 00 a3 4e a8  b6 43 4d 50 20 23 24 32  | .I...N..CMP #$2|
000046a0  44 00 b1 4e b2 b6 42 45  51 20 b9 49 4e 45 47 00  |D..N..BEQ .INEG.|
000046b0  be 4e bc b6 43 4d 50 20  23 24 38 32 00 cd 4e c6  |.N..CMP #$82..N.|
000046c0  b6 42 45 51 20 58 b9 4d  4f 56 45 00 da 4e d0 b6  |.BEQ X.MOVE..N..|
000046d0  43 4d 50 20 23 24 38 33  00 e9 4e da b6 42 45 51  |CMP #$83..N..BEQ|
000046e0  20 59 b9 4d 4f 56 45 00  f6 4e e4 b6 43 4d 50 20  | Y.MOVE..N..CMP |
000046f0  23 24 38 30 00 05 4f ee  b6 42 45 51 20 b9 43 41  |#$80..O..BEQ .CA|
00004700  4c 43 54 00 12 4f f8 b6  43 4d 50 20 23 24 33 30  |LCT..O..CMP #$30|
00004710  00 20 4f 02 b7 42 43 43  20 b9 4c 4f 50 42 00 2d  |. O..BCC .LOPB.-|
00004720  4f 0c b7 43 4d 50 20 23  24 33 41 00 3b 4f 16 b7  |O..CMP #$3A.;O..|
00004730  42 43 53 20 b9 4c 4f 50  42 00 47 4f 1b b7 53 54  |BCS .LOPB.GO..ST|
00004740  41 20 24 32 33 00 4f 4f  20 b7 50 4c 41 00 57 4f  |A $23.OO .PLA.WO|
00004750  25 b7 50 48 41 00 5f 4f  2a b7 54 41 58 00 6e 4f  |%.PHA._O*.TAX.nO|
00004760  34 b7 4a 53 52 20 a1 4d  45 4d 41 44 00 7a 4f 3e  |4.JSR .MEMAD.zO>|
00004770  b7 53 54 58 20 24 32 32  00 82 4f 48 b7 54 41 58  |.STX $22..OH.TAX|
00004780  00 8e 4f 52 b7 4c 44 41  20 24 32 33 00 9a 4f 5c  |..OR.LDA $23..O\|
00004790  b7 45 b0 20 23 24 38 30  00 aa 4f 66 b7 53 54 41  |.E. #$80..Of.STA|
000047a0  20 24 30 34 37 46 2c 58  00 b9 4f 70 b7 4a 4d 50  | $047F,X..Op.JMP|
000047b0  20 b9 52 49 47 48 54 00  ce 4f 7a b7 b9 43 41 4c  | .RIGHT..Oz..CAL|
000047c0  43 54 20 4a 4d 50 20 b9  43 41 4c 43 00 df 4f 98  |CT JMP .CALC..O.|
000047d0  b7 b9 49 b9 20 4c 44 58  20 23 24 30 30 00 ee 4f  |..I. LDX #$00..O|
000047e0  a2 b7 4a 53 52 20 a1 4d  45 4d 41 44 00 f6 4f ac  |..JSR .MEMAD..O.|
000047f0  b7 54 41 58 00 03 50 b6  b7 4c 44 41 20 23 24 32  |.TAX..P..LDA #$2|
00004800  42 00 13 50 c0 b7 53 54  41 20 24 30 34 37 46 2c  |B..P..STA $047F,|
00004810  58 00 21 50 ca b7 4a 4d  50 20 b9 4c 4f 50 42 00  |X.!P..JMP .LOPB.|
00004820  34 50 d4 b7 b9 49 4e 45  47 20 4c 44 58 20 23 24  |4P...INEG LDX #$|
00004830  30 30 00 43 50 de b7 4a  53 52 20 a1 4d 45 4d 41  |00.CP..JSR .MEMA|
00004840  44 00 4b 50 e8 b7 54 41  58 00 58 50 f2 b7 4c 44  |D.KP..TAX.XP..LD|
00004850  41 20 23 24 32 44 00 68  50 fc b7 53 54 41 20 24  |A #$2D.hP..STA $|
00004860  30 34 37 46 2c 58 00 76  50 06 b8 4a 4d 50 20 b9  |047F,X.vP..JMP .|
00004870  4c 4f 50 42 00 8b 50 10  b8 58 b9 4d 4f 56 45 20  |LOPB..P..X.MOVE |
00004880  4c 44 41 20 24 30 32 38  44 00 96 50 1a b8 af 20  |LDA $028D..P... |
00004890  23 24 30 31 00 a5 50 24  b8 42 45 51 20 b9 52 49  |#$01..P$.BEQ .RI|
000048a0  47 48 54 00 ad 50 2e b8  50 4c 41 00 b5 50 38 b8  |GHT..P..PLA..P8.|
000048b0  54 41 58 00 c2 50 3d b8  43 50 58 20 23 24 30 31  |TAX..P=.CPX #$01|
000048c0  00 cf 50 42 b8 42 45 51  20 b9 4c 4f 50 00 e3 50  |..PB.BEQ .LOP..P|
000048d0  4c b8 4c 4d 49 53 53 20  4a 53 52 20 b9 91 4f 46  |L.LMISS JSR ..OF|
000048e0  46 00 eb 50 56 b8 44 45  58 00 f9 50 60 b8 4a 53  |F..PV.DEX..P`.JS|
000048f0  52 20 b9 91 4f 46 46 00  06 51 62 b8 43 50 58 20  |R ..OFF..Qb.CPX |
00004900  23 24 30 32 00 14 51 64  b8 42 45 51 20 4c 4d 49  |#$02..Qd.BEQ LMI|
00004910  53 53 00 21 51 6a b8 4a  4d 50 20 b9 4c 4f 50 00  |SS.!Qj.JMP .LOP.|
00004920  30 51 74 b8 b9 52 49 47  48 54 20 50 4c 41 00 38  |0Qt..RIGHT PLA.8|
00004930  51 7e b8 54 41 58 00 45  51 88 b8 43 50 58 20 23  |Q~.TAX.EQ..CPX #|
00004940  24 30 45 00 52 51 92 b8  42 45 51 20 b9 4c 4f 50  |$0E.RQ..BEQ .LOP|
00004950  00 66 51 9c b8 52 4d 49  53 53 20 4a 53 52 20 b9  |.fQ..RMISS JSR .|
00004960  91 4f 46 46 00 6e 51 a6  b8 49 4e 58 00 7c 51 b0  |.OFF.nQ..INX.|Q.|
00004970  b8 4a 53 52 20 b9 91 4f  46 46 00 89 51 b2 b8 43  |.JSR ..OFF..Q..C|
00004980  50 58 20 23 24 30 32 00  97 51 b4 b8 42 45 51 20  |PX #$02..Q..BEQ |
00004990  52 4d 49 53 53 00 a4 51  ba b8 4a 4d 50 20 b9 4c  |RMISS..Q..JMP .L|
000049a0  4f 50 00 b3 51 c4 b8 59  b9 4d 4f 56 45 20 50 4c  |OP..Q..Y.MOVE PL|
000049b0  41 00 bb 51 c6 b8 54 41  58 00 c9 51 c8 b8 4c 44  |A..Q..TAX..Q..LD|
000049c0  41 20 24 30 32 38 44 00  d4 51 ce b8 af 20 23 24  |A $028D..Q... #$|
000049d0  30 31 00 e2 51 d8 b8 42  45 51 20 b9 44 4f 57 4e  |01..Q..BEQ .DOWN|
000049e0  00 ef 51 e2 b8 43 50 59  20 23 24 30 30 00 fd 51  |..Q..CPY #$00..Q|
000049f0  ec b8 42 45 51 20 b9 4c  4f 50 54 00 0b 52 f6 b8  |..BEQ .LOPT..R..|
00004a00  4a 53 52 20 b9 91 4f 46  46 00 13 52 00 b9 44 45  |JSR ..OFF..R..DE|
00004a10  59 00 21 52 0a b9 4a 53  52 20 b9 91 4f 46 46 00  |Y.!R..JSR ..OFF.|
00004a20  2f 52 14 b9 4a 4d 50 20  b9 4c 4f 50 54 00 42 52  |/R..JMP .LOPT.BR|
00004a30  1e b9 b9 44 4f 57 4e 20  43 50 59 20 23 24 30 33  |...DOWN CPY #$03|
00004a40  00 50 52 28 b9 42 45 51  20 b9 4c 4f 50 54 00 5e  |.PR(.BEQ .LOPT.^|
00004a50  52 32 b9 4a 53 52 20 b9  91 4f 46 46 00 66 52 3c  |R2.JSR ..OFF.fR<|
00004a60  b9 49 4e 59 00 74 52 46  b9 4a 53 52 20 b9 91 4f  |.INY.tRF.JSR ..O|
00004a70  46 46 00 82 52 50 b9 4a  4d 50 20 b9 4c 4f 50 54  |FF..RP.JMP .LOPT|
00004a80  00 95 52 5a b9 b9 4c 4f  50 54 20 4a 4d 50 20 b9  |..RZ..LOPT JMP .|
00004a90  4c 4f 50 00 cc 52 8c b9  b9 53 55 52 45 20 54 58  |LOP..R...SURE TX|
00004aa0  54 20 31 33 2c 31 33 2c  22 52 45 50 4f 53 49 54  |T 13,13,"REPOSIT|
00004ab0  49 4f 4e 3a 20 41 52 45  20 59 4f 55 20 53 55 52  |ION: ARE YOU SUR|
00004ac0  45 20 28 59 2f 4e 29 22  2c 30 00 e2 52 80 bb b9  |E (Y/N)",0..R...|
00004ad0  43 41 4c 43 20 4c 44 41  20 23 b3 b9 53 55 52 45  |CALC LDA #..SURE|
00004ae0  00 ee 52 8a bb 53 54 41  20 24 46 42 00 fe 52 94  |..R..STA $FB..R.|
00004af0  bb 4c 44 41 20 23 b1 b9  53 55 52 45 00 0a 53 9e  |.LDA #..SURE..S.|
00004b00  bb 53 54 41 20 24 46 43  00 1a 53 a8 bb 4a 53 52  |.STA $FC..S..JSR|
00004b10  20 50 53 54 52 49 4e 47  00 2d 53 b2 bb 53 55 52  | PSTRING.-S..SUR|
00004b20  45 4c 4f 50 20 4a 53 52  20 a1 dc 00 3a 53 bc bb  |ELOP JSR ...:S..|
00004b30  43 4d 50 20 23 24 31 39  00 45 53 c6 bb 42 45 51  |CMP #$19.ES..BEQ|
00004b40  20 b9 e9 00 52 53 d0 bb  43 4d 50 20 23 24 30 45  | ...RS..CMP #$0E|
00004b50  00 5e 53 da bb 42 45 51  20 4e 4f e9 00 6e 53 e4  |.^S..BEQ NO..nS.|
00004b60  bb 4a 4d 50 20 53 55 52  45 4c 4f 50 00 83 53 ee  |.JMP SURELOP..S.|
00004b70  bb 4e 4f e9 20 4a 4d 50  20 43 4f 4d 45 42 41 43  |.NO. JMP COMEBAC|
00004b80  4b 00 93 53 f8 bb e9 b9  20 4c 44 41 20 23 24 38  |K..S.... LDA #$8|
00004b90  30 00 9f 53 02 bc 53 54  41 20 24 46 42 00 ac 53  |0..S..STA $FB..S|
00004ba0  0c bc 4c 44 41 20 23 24  30 34 00 b8 53 16 bc 53  |..LDA #$04..S..S|
00004bb0  54 41 20 24 46 43 00 c5  53 20 bc 4c 44 41 20 23  |TA $FC..S .LDA #|
00004bc0  24 30 31 00 d2 53 2a bc  4a 53 52 20 e9 56 41 52  |$01..S*.JSR .VAR|
00004bd0  00 df 53 34 bc 4c 44 41  20 23 24 41 38 00 eb 53  |..S4.LDA #$A8..S|
00004be0  3e bc 53 54 41 20 24 46  42 00 f8 53 41 bc 4c 44  |>.STA $FB..SA.LD|
00004bf0  41 20 23 24 30 34 00 04  54 44 bc 53 54 41 20 24  |A #$04..TD.STA $|
00004c00  46 43 00 11 54 48 bc 4c  44 41 20 23 24 31 45 00  |FC..TH.LDA #$1E.|
00004c10  1e 54 52 bc 4a 53 52 20  e9 56 41 52 00 2b 54 5c  |.TR.JSR .VAR.+T\|
00004c20  bc 4c 44 41 20 23 24 44  30 00 37 54 66 bc 53 54  |.LDA #$D0.7Tf.ST|
00004c30  41 20 24 46 42 00 44 54  69 bc 4c 44 41 20 23 24  |A $FB.DTi.LDA #$|
00004c40  30 34 00 50 54 6c bc 53  54 41 20 24 46 43 00 5d  |04.PTl.STA $FC.]|
00004c50  54 70 bc 4c 44 41 20 23  24 30 33 00 6a 54 7a bc  |Tp.LDA #$03.jTz.|
00004c60  4a 53 52 20 e9 56 41 52  00 77 54 84 bc 4c 44 41  |JSR .VAR.wT..LDA|
00004c70  20 23 24 46 38 00 83 54  8e bc 53 54 41 20 24 46  | #$F8..T..STA $F|
00004c80  42 00 90 54 91 bc 4c 44  41 20 23 24 30 34 00 9c  |B..T..LDA #$04..|
00004c90  54 94 bc 53 54 41 20 24  46 43 00 a9 54 98 bc 4c  |T..STA $FC..T..L|
00004ca0  44 41 20 23 24 31 46 00  b6 54 a2 bc 4a 53 52 20  |DA #$1F..T..JSR |
00004cb0  e9 56 41 52 00 c5 54 ac  bc 4a 53 52 20 48 49 52  |.VAR..T..JSR HIR|
00004cc0  45 53 91 00 d3 54 b6 bc  4a 4d 50 20 43 41 4c 43  |ES...T..JMP CALC|
00004cd0  a9 00 e4 54 74 bd e9 56  41 52 20 53 54 41 20 24  |...Tt..VAR STA $|
00004ce0  32 33 00 ee 54 79 bd 41  53 4c 20 41 00 f8 54 7e  |23..Ty.ASL A..T~|
00004cf0  bd 41 53 4c 20 41 00 02  55 88 bd 41 53 4c 20 41  |.ASL A..U..ASL A|
00004d00  00 0e 55 92 bd 53 54 41  20 24 46 44 00 1b 55 9c  |..U..STA $FD..U.|
00004d10  bd 4c 44 41 20 23 24 34  30 00 27 55 a6 bd 53 54  |.LDA #$40.'U..ST|
00004d20  41 20 24 46 45 00 34 55  b0 bd 4c 44 41 20 23 24  |A $FE.4U..LDA #$|
00004d30  30 30 00 3c 55 ba bd 54  41 58 00 44 55 c4 bd 54  |00.<U..TAX.DU..T|
00004d40  41 59 00 54 55 ce bd 53  54 41 20 28 24 46 44 29  |AY.TU..STA ($FD)|
00004d50  2c 59 00 5c 55 d8 bd 49  4e 59 00 64 55 e2 bd 54  |,Y.\U..INY.dU..T|
00004d60  59 41 00 6c 55 ec bd 50  48 41 00 74 55 f6 bd 54  |YA.lU..PHA.tU..T|
00004d70  58 41 00 7c 55 00 be 54  41 59 00 8c 55 0a be 4c  |XA.|U..TAY..U..L|
00004d80  44 41 20 28 24 46 42 29  2c 59 00 98 55 14 be 53  |DA ($FB),Y..U..S|
00004d90  54 41 20 24 32 32 00 a0  55 1e be 54 59 41 00 a8  |TA $22..U..TYA..|
00004da0  55 28 be 54 41 58 00 b0  55 32 be 50 4c 41 00 b8  |U(.TAX..U2.PLA..|
00004db0  55 3c be 54 41 59 00 c4  55 46 be 4c 44 41 20 24  |U<.TAY..UF.LDA $|
00004dc0  32 32 00 cc 55 50 be 53  45 43 00 d9 55 5a be 53  |22..UP.SEC..UZ.S|
00004dd0  42 43 20 23 24 33 30 00  e9 55 64 be 53 54 41 20  |BC #$30..Ud.STA |
00004de0  28 24 46 44 29 2c 59 00  f1 55 6e be 49 4e 59 00  |($FD),Y..Un.INY.|
00004df0  f9 55 78 be 49 4e 58 00  01 56 82 be 49 4e 58 00  |.Ux.INX..V..INX.|
00004e00  0f 56 8c be e9 56 4c 4f  50 20 54 59 41 00 17 56  |.V...VLOP TYA..V|
00004e10  96 be 50 48 41 00 1f 56  a0 be 54 58 41 00 27 56  |..PHA..V..TXA.'V|
00004e20  aa be 54 41 59 00 37 56  b4 be 4c 44 41 20 28 24  |..TAY.7V..LDA ($|
00004e30  46 42 29 2c 59 00 3f 56  be be 53 45 43 00 4c 56  |FB),Y.?V..SEC.LV|
00004e40  c8 be 53 42 43 20 23 24  33 30 00 56 56 d2 be 41  |..SBC #$30.VV..A|
00004e50  53 4c 20 41 00 60 56 dc  be 41 53 4c 20 41 00 6a  |SL A.`V..ASL A.j|
00004e60  56 e6 be 41 53 4c 20 41  00 74 56 f0 be 41 53 4c  |V..ASL A.tV..ASL|
00004e70  20 41 00 7c 56 fa be 49  4e 59 00 84 56 04 bf 43  | A.|V..INY..V..C|
00004e80  4c 43 00 94 56 0e bf 41  44 43 20 28 24 46 42 29  |LC..V..ADC ($FB)|
00004e90  2c 59 00 9c 56 18 bf 53  45 43 00 a9 56 22 bf 53  |,Y..V..SEC..V".S|
00004ea0  42 43 20 23 24 33 30 00  b1 56 2c bf 49 4e 59 00  |BC #$30..V,.INY.|
00004eb0  bd 56 36 bf 53 54 41 20  24 32 32 00 c5 56 40 bf  |.V6.STA $22..V@.|
00004ec0  54 59 41 00 cd 56 4a bf  54 41 58 00 d5 56 54 bf  |TYA..VJ.TAX..VT.|
00004ed0  50 4c 41 00 dd 56 5e bf  54 41 59 00 e9 56 68 bf  |PLA..V^.TAY..Vh.|
00004ee0  4c 44 41 20 24 32 32 00  f9 56 72 bf 53 54 41 20  |LDA $22..Vr.STA |
00004ef0  28 24 46 44 29 2c 59 00  01 57 7c bf 49 4e 59 00  |($FD),Y..W|.INY.|
00004f00  0e 57 86 bf 43 50 59 20  23 24 30 38 00 1c 57 90  |.W..CPY #$08..W.|
00004f10  bf 42 4e 45 20 e9 56 4c  4f 50 00 28 57 9a bf 44  |.BNE .VLOP.(W..D|
00004f20  45 43 20 24 46 42 00 35  57 a4 bf 4c 44 59 20 23  |EC $FB.5W..LDY #|
00004f30  24 30 30 00 45 57 ae bf  4c 44 41 20 28 24 46 42  |$00.EW..LDA ($FB|
00004f40  29 2c 59 00 52 57 b8 bf  43 4d 50 20 23 24 32 44  |),Y.RW..CMP #$2D|
00004f50  00 62 57 c2 bf 42 45 51  20 4d 41 4b 45 4e 45 47  |.bW..BEQ MAKENEG|
00004f60  00 6a 57 cc bf 52 54 53  00 7e 57 d6 bf 4d 41 4b  |.jW..RTS.~W..MAK|
00004f70  45 4e 45 47 20 4c 44 41  20 24 32 33 00 8c 57 e0  |ENEG LDA $23..W.|
00004f80  bf 53 54 41 20 24 34 31  30 31 00 9a 57 ea bf 53  |.STA $4101..W..S|
00004f90  54 41 20 24 34 31 30 32  00 a7 57 f4 bf 4c 44 41  |TA $4102..W..LDA|
00004fa0  20 23 24 31 44 00 b5 57  fe bf 53 54 41 20 24 34  | #$1D..W..STA $4|
00004fb0  31 30 30 00 c6 57 08 c0  4a 4d 50 20 53 55 42 54  |100..W..JMP SUBT|
00004fc0  52 41 43 54 00 d5 57 5c  c1 a1 4d 45 4d 41 44 20  |RACT..W\..MEMAD |
00004fd0  54 59 41 00 df 57 70 c1  41 53 4c 20 41 00 e9 57  |TYA..Wp.ASL A..W|
00004fe0  7a c1 41 53 4c 20 41 00  f3 57 84 c1 41 53 4c 20  |z.ASL A..W..ASL |
00004ff0  41 00 ff 57 8e c1 53 54  41 20 24 32 32 00 09 58  |A..W..STA $22..X|
00005000  98 c1 41 53 4c 20 41 00  13 58 a2 c1 41 53 4c 20  |..ASL A..X..ASL |
00005010  41 00 1b 58 ac c1 43 4c  43 00 27 58 b6 c1 41 44  |A..X..CLC.'X..AD|
00005020  43 20 24 32 32 00 33 58  c0 c1 53 54 58 20 24 32  |C $22.3X..STX $2|
00005030  32 00 3f 58 ca c1 41 44  43 20 24 32 32 00 4c 58  |2.?X..ADC $22.LX|
00005040  d4 c1 43 4d 50 20 23 24  43 38 00 5c 58 de c1 42  |..CMP #$C8.\X..B|
00005050  43 43 20 47 4d 4d 51 55  49 54 00 64 58 e8 c1 43  |CC GMMQUIT.dX..C|
00005060  4c 43 00 71 58 f2 c1 41  44 43 20 23 24 32 38 00  |LC.qX..ADC #$28.|
00005070  81 58 fc c1 47 4d 4d 51  55 49 54 20 52 54 53 00  |.X..GMMQUIT RTS.|
00005080  96 58 24 c2 b9 91 4f 46  46 20 4a 53 52 20 a1 4d  |.X$...OFF JSR .M|
00005090  45 4d 41 44 00 a2 58 2e  c2 53 54 41 20 24 32 32  |EMAD..X..STA $22|
000050a0  00 aa 58 38 c2 54 58 41  00 b2 58 42 c2 50 48 41  |..X8.TXA..XB.PHA|
000050b0  00 be 58 4c c2 4c 44 58  20 24 32 32 00 ce 58 56  |..XL.LDX $22..XV|
000050c0  c2 4c 44 41 20 24 30 34  37 46 2c 58 00 da 58 60  |.LDA $047F,X..X`|
000050d0  c2 45 b0 20 23 24 38 30  00 ea 58 6a c2 53 54 41  |.E. #$80..Xj.STA|
000050e0  20 24 30 34 37 46 2c 58  00 f2 58 74 c2 50 4c 41  | $047F,X..Xt.PLA|
000050f0  00 fa 58 7e c2 54 41 58  00 02 59 88 c2 52 54 53  |..X~.TAX..Y..RTS|
00005100  00 26 59 50 c3 3b 20 20  20 20 20 20 20 20 20 20  |.&YP.;          |
00005110  20 47 52 41 50 48 49 43  20 50 4f b5 20 50 4c 4f  | GRAPHIC PO. PLO|
00005120  54 54 45 52 00 3a 59 5a  c3 50 4c 4f 54 50 43 20  |TTER.:YZ.PLOTPC |
00005130  4c 44 41 20 23 24 34 37  00 46 59 64 c3 53 54 41  |LDA #$47.FYd.STA|
00005140  20 24 46 42 00 53 59 6e  c3 4c 44 41 20 23 24 33  | $FB.SYn.LDA #$3|
00005150  46 00 5f 59 78 c3 53 54  41 20 24 46 43 00 6e 59  |F._Yx.STA $FC.nY|
00005160  82 c3 4c 44 41 20 59 50  49 58 45 4c 00 78 59 8c  |..LDA YPIXEL.xY.|
00005170  c3 4c 53 52 20 41 00 82  59 96 c3 4c 53 52 20 41  |.LSR A..Y..LSR A|
00005180  00 8c 59 a0 c3 4c 53 52  20 41 00 99 59 aa c3 53  |..Y..LSR A..Y..S|
00005190  54 41 20 59 50 49 42 00  a4 59 b4 c3 af 20 23 24  |TA YPIB..Y... #$|
000051a0  30 33 00 ae 59 be c3 41  53 4c 20 41 00 b8 59 c8  |03..Y..ASL A..Y.|
000051b0  c3 41 53 4c 20 41 00 c2  59 d2 c3 41 53 4c 20 41  |.ASL A..Y..ASL A|
000051c0  00 cc 59 dc c3 41 53 4c  20 41 00 d6 59 e6 c3 41  |..Y..ASL A..Y..A|
000051d0  53 4c 20 41 00 e0 59 f0  c3 41 53 4c 20 41 00 ec  |SL A..Y..ASL A..|
000051e0  59 fa c3 53 54 41 20 24  30 32 00 f8 59 04 c4 4c  |Y..STA $02..Y..L|
000051f0  44 41 20 24 46 42 00 00  5a 0e c4 53 45 43 00 0c  |DA $FB..Z..SEC..|
00005200  5a 18 c4 53 42 43 20 24  30 32 00 18 5a 22 c4 53  |Z..SBC $02..Z".S|
00005210  54 41 20 24 46 42 00 24  5a 2c c4 4c 44 41 20 24  |TA $FB.$Z,.LDA $|
00005220  46 43 00 31 5a 36 c4 53  42 43 20 23 24 30 30 00  |FC.1Z6.SBC #$00.|
00005230  3e 5a 3b c4 53 42 43 20  59 50 49 42 00 46 5a 40  |>Z;.SBC YPIB.FZ@|
00005240  c4 50 48 41 00 53 5a 4a  c4 4c 44 41 20 59 50 49  |.PHA.SZJ.LDA YPI|
00005250  42 00 5d 5a 54 c4 4c 53  52 20 41 00 67 5a 5e c4  |B.]ZT.LSR A.gZ^.|
00005260  4c 53 52 20 41 00 73 5a  68 c4 53 54 41 20 24 30  |LSR A.sZh.STA $0|
00005270  32 00 7b 5a 72 c4 50 4c  41 00 83 5a 7c c4 53 45  |2.{Zr.PLA..Z|.SE|
00005280  43 00 8f 5a 86 c4 53 42  43 20 24 30 32 00 9b 5a  |C..Z..SBC $02..Z|
00005290  90 c4 53 54 41 20 24 46  43 00 aa 5a 9a c4 4c 44  |..STA $FC..Z..LD|
000052a0  41 20 59 50 49 58 45 4c  00 b5 5a a4 c4 af 20 23  |A YPIXEL..Z... #|
000052b0  24 30 37 00 c2 5a ae c4  53 54 41 20 59 50 49 42  |$07..Z..STA YPIB|
000052c0  00 ce 5a b8 c4 4c 44 41  20 24 46 42 00 d6 5a c2  |..Z..LDA $FB..Z.|
000052d0  c4 53 45 43 00 e3 5a cc  c4 53 42 43 20 59 50 49  |.SEC..Z..SBC YPI|
000052e0  42 00 eb 5a d6 c4 50 48  41 00 fa 5a e0 c4 4c 44  |B..Z..PHA..Z..LD|
000052f0  41 20 58 50 49 58 45 4c  00 05 5b ea c4 af 20 23  |A XPIXEL..[... #|
00005300  24 46 38 00 12 5b f4 c4  53 54 41 20 59 50 49 42  |$F8..[..STA YPIB|
00005310  00 1a 5b fe c4 50 4c 41  00 22 5b 08 c5 43 4c 43  |..[..PLA."[..CLC|
00005320  00 2f 5b 12 c5 41 44 43  20 59 50 49 42 00 3b 5b  |./[..ADC YPIB.;[|
00005330  1c c5 53 54 41 20 24 46  42 00 47 5b 26 c5 4c 44  |..STA $FB.G[&.LD|
00005340  41 20 24 46 43 00 54 5b  30 c5 53 42 43 20 23 24  |A $FC.T[0.SBC #$|
00005350  30 30 00 60 5b 3a c5 53  54 41 20 24 46 43 00 6f  |00.`[:.STA $FC.o|
00005360  5b 44 c5 4c 44 41 20 58  50 49 58 45 4c 00 7a 5b  |[D.LDA XPIXEL.z[|
00005370  4e c5 af 20 23 24 30 37  00 82 5b 58 c5 54 41 58  |N.. #$07..[X.TAX|
00005380  00 8f 5b 62 c5 4c 44 41  20 23 24 38 30 00 a3 5b  |..[b.LDA #$80..[|
00005390  6c c5 47 42 49 54 4c 50  20 43 50 58 20 23 24 30  |l.GBITLP CPX #$0|
000053a0  30 00 af 5b 76 c5 42 45  51 20 50 50 9a 00 b9 5b  |0..[v.BEQ PP...[|
000053b0  80 c5 4c 53 52 20 41 00  c1 5b 8a c5 44 45 58 00  |..LSR A..[..DEX.|
000053c0  d0 5b 94 c5 4a 4d 50 20  47 42 49 54 4c 50 00 e0  |.[..JMP GBITLP..|
000053d0  5b 9e c5 50 50 9a 20 53  54 41 20 24 46 44 00 e8  |[..PP. STA $FD..|
000053e0  5b a8 c5 52 54 53 00 fd  5b b2 c5 50 4c 4f a4 4e  |[..RTS..[..PLO.N|
000053f0  20 4a 53 52 20 50 4c 4f  54 50 43 00 0a 5c bc c5  | JSR PLOTPC..\..|
00005400  4c 44 59 20 23 24 30 30  00 1a 5c c6 c5 4c 44 41  |LDY #$00..\..LDA|
00005410  20 28 24 46 42 29 2c 59  00 25 5c d0 c5 b0 41 20  | ($FB),Y.%\...A |
00005420  24 46 44 00 35 5c da c5  53 54 41 20 28 24 46 42  |$FD.5\..STA ($FB|
00005430  29 2c 59 00 3d 5c e4 c5  52 54 53 00 53 5c ee c5  |),Y.=\..RTS.S\..|
00005440  50 4c 4f a4 46 46 20 4a  53 52 20 50 4c 4f 54 50  |PLO.FF JSR PLOTP|
00005450  43 00 5f 5c f8 c5 4c 44  41 20 24 46 44 00 6b 5c  |C._\..LDA $FD.k\|
00005460  02 c6 45 b0 20 23 24 46  46 00 77 5c 0c c6 53 54  |..E. #$FF.w\..ST|
00005470  41 20 24 46 44 00 84 5c  16 c6 4c 44 59 20 23 24  |A $FD..\..LDY #$|
00005480  30 30 00 94 5c 20 c6 4c  44 41 20 28 24 46 42 29  |00..\ .LDA ($FB)|
00005490  2c 59 00 9e 5c 2a c6 af  20 24 46 44 00 ae 5c 34  |,Y..\*.. $FD..\4|
000054a0  c6 53 54 41 20 28 24 46  42 29 2c 59 00 b6 5c 3e  |.STA ($FB),Y..\>|
000054b0  c6 52 54 53 00 ca 5c 48  c6 50 4c 4f 54 20 4c 44  |.RTS..\H.PLOT LD|
000054c0  41 20 43 4f 4c 4f 55 52  00 d5 5c 52 c6 af 20 23  |A COLOUR..\R.. #|
000054d0  24 30 32 00 e2 5c 5c c6  42 4e 45 20 50 50 41 91  |$02..\\.BNE PPA.|
000054e0  00 f1 5c 66 c6 4a 53 52  20 50 4c 4f a4 46 46 00  |..\f.JSR PLO.FF.|
000054f0  00 5d 70 c6 4a 4d 50 20  50 50 41 43 4e 54 00 13  |.]p.JMP PPACNT..|
00005500  5d 7a c6 50 50 41 91 20  4a 53 52 20 50 4c 4f a4  |]z.PPA. JSR PLO.|
00005510  4e 00 29 5d 84 c6 50 50  41 43 4e 54 20 49 4e 43  |N.)]..PPACNT INC|
00005520  20 58 50 49 58 45 4c 00  38 5d 8e c6 4c 44 41 20  | XPIXEL.8]..LDA |
00005530  43 4f 4c 4f 55 52 00 43  5d 98 c6 af 20 23 24 30  |COLOUR.C]... #$0|
00005540  31 00 50 5d a2 c6 42 4e  45 20 50 50 42 91 00 5f  |1.P]..BNE PPB.._|
00005550  5d ac c6 4a 53 52 20 50  4c 4f a4 46 46 00 6e 5d  |]..JSR PLO.FF.n]|
00005560  b6 c6 4a 4d 50 20 50 50  42 43 4e 54 00 81 5d c0  |..JMP PPBCNT..].|
00005570  c6 50 50 42 91 20 4a 53  52 20 50 4c 4f a4 4e 00  |.PPB. JSR PLO.N.|
00005580  97 5d ca c6 50 50 42 43  4e 54 20 49 4e 43 20 58  |.]..PPBCNT INC X|
00005590  50 49 58 45 4c 00 9f 5d  d4 c6 52 54 53 00 c4 5d  |PIXEL..]..RTS..]|
000055a0  d8 d6 3b 20 20 20 20 20  20 20 5a 4f 4f 4d 20 43  |..;       ZOOM C|
000055b0  41 4c 43 55 4c 41 54 49  91 20 52 4f 55 54 49 4e  |ALCULATI. ROUTIN|
000055c0  45 53 00 da 5d e2 d6 4e  4f 5a 4f 4f 4d 20 4a 4d  |ES..]..NOZOOM JM|
000055d0  50 20 9a 52 4f 4c 4f 50  00 ef 5d ec d6 5a 4f 4f  |P .ROLOP..]..ZOO|
000055e0  4d 49 4e 20 4c 44 41 20  24 44 30 31 35 00 fa 5d  |MIN LDA $D015..]|
000055f0  f6 d6 af 20 23 24 46 30  00 07 5e 00 d7 43 4d 50  |... #$F0..^..CMP|
00005600  20 23 24 46 30 00 16 5e  0a d7 42 4e 45 20 4e 4f  | #$F0..^..BNE NO|
00005610  5a 4f 4f 4d 00 23 5e 14  d7 4c 44 41 20 23 24 31  |ZOOM.#^..LDA #$1|
00005620  45 00 31 5e 1e d7 53 54  41 20 24 34 31 30 30 00  |E.1^..STA $4100.|
00005630  3e 5e 28 d7 4c 44 41 20  23 24 30 31 00 4c 5e 32  |>^(.LDA #$01.L^2|
00005640  d7 53 54 41 20 24 34 31  30 31 00 59 5e 3c d7 4c  |.STA $4101.Y^<.L|
00005650  44 41 20 23 24 31 30 00  67 5e 46 d7 53 54 41 20  |DA #$10.g^F.STA |
00005660  24 34 31 30 32 00 78 5e  50 d7 4a 53 52 20 53 55  |$4102.x^P.JSR SU|
00005670  42 54 52 41 43 54 00 85  5e 5a d7 4c 44 41 20 23  |BTRACT..^Z.LDA #|
00005680  24 30 31 00 93 5e 64 d7  53 54 41 20 24 34 31 30  |$01..^d.STA $410|
00005690  30 00 a1 5e 6e d7 49 4e  43 20 24 34 31 30 32 00  |0..^n.INC $4102.|
000056a0  af 5e 78 d7 4a 53 52 20  45 51 55 41 4c 00 bc 5e  |.^x.JSR EQUAL..^|
000056b0  82 d7 4c 44 41 20 23 24  31 30 00 ca 5e 8c d7 53  |..LDA #$10..^..S|
000056c0  54 41 20 24 34 31 30 30  00 d7 5e 96 d7 4c 44 41  |TA $4100..^..LDA|
000056d0  20 23 24 31 42 00 e5 5e  a0 d7 53 54 41 20 24 34  | #$1B..^..STA $4|
000056e0  31 30 31 00 f2 5e aa d7  4c 44 41 20 23 24 31 32  |101..^..LDA #$12|
000056f0  00 00 5f b4 d7 53 54 41  20 24 34 31 30 32 00 11  |.._..STA $4102..|
00005700  5f be d7 4a 53 52 20 4d  55 4c 54 49 50 4c 59 00  |_..JSR MULTIPLY.|
00005710  1e 5f c8 d7 4c 44 41 20  23 24 31 31 00 2c 5f d2  |._..LDA #$11.,_.|
00005720  d7 53 54 41 20 24 34 31  30 30 00 3a 5f dc d7 53  |.STA $4100.:_..S|
00005730  54 41 20 24 34 31 30 32  00 47 5f e6 d7 4c 44 41  |TA $4102.G_..LDA|
00005740  20 23 24 31 32 00 55 5f  f0 d7 53 54 41 20 24 34  | #$12.U_..STA $4|
00005750  31 30 31 00 63 5f fa d7  4c 44 41 20 24 44 30 30  |101.c_..LDA $D00|
00005760  38 00 6b 5f 04 d8 53 45  43 00 78 5f 0e d8 53 42  |8.k_..SEC.x_..SB|
00005770  43 20 23 24 35 38 00 90  5f 18 d8 43 41 4c 43 49  |C #$58.._..CALCI|
00005780  4e 4c 4f 50 41 20 43 4d  50 20 23 24 30 30 00 a0  |NLOPA CMP #$00..|
00005790  5f 22 d8 42 45 51 20 43  41 4c 43 80 49 41 00 a8  |_".BEQ CALC.IA..|
000057a0  5f 2c d8 50 48 41 00 b8  5f 36 d8 4a 53 52 20 41  |_,.PHA.._6.JSR A|
000057b0  44 44 49 54 49 91 00 c0  5f 40 d8 50 4c 41 00 c8  |DDITI..._@.PLA..|
000057c0  5f 4a d8 54 41 58 00 d0  5f 54 d8 44 45 58 00 d8  |_J.TAX.._T.DEX..|
000057d0  5f 5e d8 54 58 41 00 eb  5f 68 d8 4a 4d 50 20 43  |_^.TXA.._h.JMP C|
000057e0  41 4c 43 49 4e 4c 4f 50  41 00 00 60 72 d8 43 41  |ALCINLOPA..`r.CA|
000057f0  4c 43 80 49 41 20 4c 44  41 20 23 24 30 31 00 0e  |LC.IA LDA #$01..|
00005800  60 7c d8 53 54 41 20 24  34 31 30 30 00 1b 60 86  |`|.STA $4100..`.|
00005810  d8 4c 44 41 20 23 24 31  33 00 29 60 90 d8 53 54  |.LDA #$13.)`..ST|
00005820  41 20 24 34 31 30 32 00  37 60 9a d8 4a 53 52 20  |A $4102.7`..JSR |
00005830  45 51 55 41 4c 00 44 60  a4 d8 4c 44 41 20 23 24  |EQUAL.D`..LDA #$|
00005840  31 33 00 52 60 ae d8 53  54 41 20 24 34 31 30 30  |13.R`..STA $4100|
00005850  00 60 60 b8 d8 53 54 41  20 24 34 31 30 32 00 6d  |.``..STA $4102.m|
00005860  60 c2 d8 4c 44 41 20 23  24 31 32 00 7b 60 cc d8  |`..LDA #$12.{`..|
00005870  53 54 41 20 24 34 31 30  31 00 89 60 d6 d8 4c 44  |STA $4101..`..LD|
00005880  41 20 24 44 30 30 41 00  91 60 e0 d8 53 45 43 00  |A $D00A..`..SEC.|
00005890  9e 60 ea d8 53 42 43 20  23 24 34 30 00 b6 60 f4  |.`..SBC #$40..`.|
000058a0  d8 43 41 4c 43 49 4e 4c  4f 50 42 20 43 4d 50 20  |.CALCINLOPB CMP |
000058b0  23 24 30 30 00 c6 60 fe  d8 42 45 51 20 43 41 4c  |#$00..`..BEQ CAL|
000058c0  43 80 49 42 00 ce 60 08  d9 50 48 41 00 de 60 12  |C.IB..`..PHA..`.|
000058d0  d9 4a 53 52 20 41 44 44  49 54 49 91 00 e6 60 1c  |.JSR ADDITI...`.|
000058e0  d9 50 4c 41 00 ee 60 26  d9 54 41 58 00 f6 60 30  |.PLA..`&.TAX..`0|
000058f0  d9 44 45 58 00 fe 60 3a  d9 54 58 41 00 11 61 44  |.DEX..`:.TXA..aD|
00005900  d9 4a 4d 50 20 43 41 4c  43 49 4e 4c 4f 50 42 00  |.JMP CALCINLOPB.|
00005910  26 61 4e d9 43 41 4c 43  80 49 42 20 4c 44 41 20  |&aN.CALC.IB LDA |
00005920  23 24 31 31 00 34 61 58  d9 53 54 41 20 24 34 31  |#$11.4aX.STA $41|
00005930  30 30 00 41 61 62 d9 4c  44 41 20 23 24 30 31 00  |00.Aab.LDA #$01.|
00005940  4f 61 6c d9 53 54 41 20  24 34 31 30 32 00 5d 61  |Oal.STA $4102.]a|
00005950  76 d9 4a 53 52 20 45 51  55 41 4c 00 6a 61 80 d9  |v.JSR EQUAL.ja..|
00005960  4c 44 41 20 23 24 31 33  00 78 61 8a d9 53 54 41  |LDA #$13.xa..STA|
00005970  20 24 34 31 30 30 00 85  61 94 d9 4c 44 41 20 23  | $4100..a..LDA #|
00005980  24 31 45 00 93 61 9e d9  53 54 41 20 24 34 31 30  |$1E..a..STA $410|
00005990  32 00 a1 61 a8 d9 4a 53  52 20 45 51 55 41 4c 00  |2..a..JSR EQUAL.|
000059a0  ae 61 b2 d9 4c 44 41 20  23 24 31 46 00 bc 61 bc  |.a..LDA #$1F..a.|
000059b0  d9 53 54 41 20 24 34 31  30 30 00 c9 61 c6 d9 4c  |.STA $4100..a..L|
000059c0  44 41 20 23 24 30 33 00  d7 61 d0 d9 53 54 41 20  |DA #$03..a..STA |
000059d0  24 34 31 30 31 00 e4 61  da d9 4c 44 41 20 23 24  |$4101..a..LDA #$|
000059e0  31 30 00 f2 61 e4 d9 53  54 41 20 24 34 31 30 32  |10..a..STA $4102|
000059f0  00 03 62 ee d9 4a 53 52  20 53 55 42 54 52 41 43  |..b..JSR SUBTRAC|
00005a00  54 00 10 62 f8 d9 4c 44  41 20 23 24 30 33 00 1e  |T..b..LDA #$03..|
00005a10  62 02 da 53 54 41 20 24  34 31 30 30 00 2c 62 0c  |b..STA $4100.,b.|
00005a20  da 49 4e 43 20 24 34 31  30 32 00 3a 62 16 da 4a  |.INC $4102.:b..J|
00005a30  53 52 20 45 51 55 41 4c  00 47 62 20 da 4c 44 41  |SR EQUAL.Gb .LDA|
00005a40  20 23 24 31 30 00 55 62  2a da 53 54 41 20 24 34  | #$10.Ub*.STA $4|
00005a50  31 30 30 00 62 62 34 da  4c 44 41 20 23 24 31 32  |100.bb4.LDA #$12|
00005a60  00 70 62 3e da 53 54 41  20 24 34 31 30 32 00 7d  |.pb>.STA $4102.}|
00005a70  62 48 da 4c 44 41 20 23  24 31 41 00 8b 62 52 da  |bH.LDA #$1A..bR.|
00005a80  53 54 41 20 24 34 31 30  31 00 9c 62 5c da 4a 53  |STA $4101..b\.JS|
00005a90  52 20 4d 55 4c 54 49 50  4c 59 00 a9 62 66 da 4c  |R MULTIPLY..bf.L|
00005aa0  44 41 20 23 24 31 31 00  b7 62 70 da 53 54 41 20  |DA #$11..bp.STA |
00005ab0  24 34 31 30 30 00 c5 62  7a da 53 54 41 20 24 34  |$4100..bz.STA $4|
00005ac0  31 30 32 00 d2 62 84 da  4c 44 41 20 23 24 31 32  |102..b..LDA #$12|
00005ad0  00 e0 62 8e da 53 54 41  20 24 34 31 30 31 00 ed  |..b..STA $4101..|
00005ae0  62 98 da 4c 44 41 20 23  24 45 35 00 f5 62 a2 da  |b..LDA #$E5..b..|
00005af0  53 45 43 00 03 63 ac da  53 42 43 20 24 44 30 30  |SEC..c..SBC $D00|
00005b00  44 00 19 63 b6 da 43 41  4c 43 49 4e 59 41 20 43  |D..c..CALCINYA C|
00005b10  4d 50 20 23 24 30 30 00  29 63 c0 da 42 45 51 20  |MP #$00.)c..BEQ |
00005b20  43 41 4c 43 80 49 43 00  31 63 ca da 50 48 41 00  |CALC.IC.1c..PHA.|
00005b30  41 63 d4 da 4a 53 52 20  41 44 44 49 54 49 91 00  |Ac..JSR ADDITI..|
00005b40  49 63 de da 50 4c 41 00  51 63 e8 da 54 41 58 00  |Ic..PLA.Qc..TAX.|
00005b50  59 63 f2 da 44 45 58 00  61 63 fc da 54 58 41 00  |Yc..DEX.ac..TXA.|
00005b60  72 63 06 db 4a 4d 50 20  43 41 4c 43 49 4e 59 41  |rc..JMP CALCINYA|
00005b70  00 87 63 10 db 43 41 4c  43 80 49 43 20 4c 44 41  |..c..CALC.IC LDA|
00005b80  20 23 24 30 33 00 95 63  1a db 53 54 41 20 24 34  | #$03..c..STA $4|
00005b90  31 30 30 00 a2 63 24 db  4c 44 41 20 23 24 31 33  |100..c$.LDA #$13|
00005ba0  00 b0 63 2e db 53 54 41  20 24 34 31 30 32 00 be  |..c..STA $4102..|
00005bb0  63 38 db 4a 53 52 20 45  51 55 41 4c 00 cb 63 42  |c8.JSR EQUAL..cB|
00005bc0  db 4c 44 41 20 23 24 31  33 00 d9 63 4c db 53 54  |.LDA #$13..cL.ST|
00005bd0  41 20 24 34 31 30 30 00  e7 63 56 db 53 54 41 20  |A $4100..cV.STA |
00005be0  24 34 31 30 32 00 f4 63  60 db 4c 44 41 20 23 24  |$4102..c`.LDA #$|
00005bf0  31 32 00 02 64 6a db 53  54 41 20 24 34 31 30 31  |12..dj.STA $4101|
00005c00  00 0f 64 74 db 4c 44 41  20 23 24 46 41 00 17 64  |..dt.LDA #$FA..d|
00005c10  7e db 53 45 43 00 25 64  88 db 53 42 43 20 24 44  |~.SEC.%d..SBC $D|
00005c20  30 30 39 00 3b 64 92 db  43 41 4c 43 49 4e 59 42  |009.;d..CALCINYB|
00005c30  20 43 4d 50 20 23 24 30  30 00 4b 64 9c db 42 45  | CMP #$00.Kd..BE|
00005c40  51 20 43 41 4c 43 80 49  44 00 53 64 a6 db 50 48  |Q CALC.ID.Sd..PH|
00005c50  41 00 63 64 b0 db 4a 53  52 20 41 44 44 49 54 49  |A.cd..JSR ADDITI|
00005c60  91 00 6b 64 ba db 50 4c  41 00 73 64 c4 db 54 41  |..kd..PLA.sd..TA|
00005c70  58 00 7b 64 ce db 44 45  58 00 83 64 d8 db 54 58  |X.{d..DEX..d..TX|
00005c80  41 00 94 64 e2 db 4a 4d  50 20 43 41 4c 43 49 4e  |A..d..JMP CALCIN|
00005c90  59 42 00 a9 64 ec db 43  41 4c 43 80 49 44 20 4c  |YB..d..CALC.ID L|
00005ca0  44 41 20 23 24 31 31 00  b7 64 f6 db 53 54 41 20  |DA #$11..d..STA |
00005cb0  24 34 31 30 30 00 c4 64  00 dc 4c 44 41 20 23 24  |$4100..d..LDA #$|
00005cc0  30 33 00 d2 64 0a dc 53  54 41 20 24 34 31 30 32  |03..d..STA $4102|
00005cd0  00 e0 64 14 dc 4a 53 52  20 45 51 55 41 4c 00 ed  |..d..JSR EQUAL..|
00005ce0  64 1e dc 4c 44 41 20 23  24 31 33 00 fb 64 28 dc  |d..LDA #$13..d(.|
00005cf0  53 54 41 20 24 34 31 30  30 00 08 65 32 dc 4c 44  |STA $4100..e2.LD|
00005d00  41 20 23 24 31 46 00 16  65 3c dc 53 54 41 20 24  |A #$1F..e<.STA $|
00005d10  34 31 30 32 00 24 65 46  dc 4a 53 52 20 45 51 55  |4102.$eF.JSR EQU|
00005d20  41 4c 00 37 65 50 dc 43  41 4c 43 a9 20 4c 44 41  |AL.7eP.CALC. LDA|
00005d30  20 23 24 31 45 00 45 65  5a dc 53 54 41 20 24 34  | #$1E.EeZ.STA $4|
00005d40  31 30 30 00 52 65 64 dc  4c 44 41 20 23 24 30 31  |100.Red.LDA #$01|
00005d50  00 60 65 6e dc 53 54 41  20 24 34 31 30 31 00 6d  |.`en.STA $4101.m|
00005d60  65 78 dc 4c 44 41 20 23  24 31 30 00 7b 65 82 dc  |ex.LDA #$10.{e..|
00005d70  53 54 41 20 24 34 31 30  32 00 8c 65 8c dc 4a 53  |STA $4102..e..JS|
00005d80  52 20 53 55 42 54 52 41  43 54 00 99 65 96 dc 4c  |R SUBTRACT..e..L|
00005d90  44 41 20 23 24 31 30 00  a7 65 a0 dc 53 54 41 20  |DA #$10..e..STA |
00005da0  24 34 31 30 30 00 b4 65  aa dc 4c 44 41 20 23 24  |$4100..e..LDA #$|
00005db0  31 37 00 c2 65 b4 dc 53  54 41 20 24 34 31 30 31  |17..e..STA $4101|
00005dc0  00 cf 65 be dc 4c 44 41  20 23 24 30 32 00 dd 65  |..e..LDA #$02..e|
00005dd0  c8 dc 53 54 41 20 24 34  31 30 32 00 ee 65 d2 dc  |..STA $4102..e..|
00005de0  4a 53 52 20 4d 55 4c 54  49 50 4c 59 00 fb 65 dc  |JSR MULTIPLY..e.|
00005df0  dc 4c 44 41 20 23 24 31  46 00 09 66 e6 dc 53 54  |.LDA #$1F..f..ST|
00005e00  41 20 24 34 31 30 30 00  16 66 f0 dc 4c 44 41 20  |A $4100..f..LDA |
00005e10  23 24 30 33 00 24 66 fa  dc 53 54 41 20 24 34 31  |#$03.$f..STA $41|
00005e20  30 31 00 31 66 04 dd 4c  44 41 20 23 24 31 30 00  |01.1f..LDA #$10.|
00005e30  3f 66 0e dd 53 54 41 20  24 34 31 30 32 00 50 66  |?f..STA $4102.Pf|
00005e40  18 dd 4a 53 52 20 53 55  42 54 52 41 43 54 00 5d  |..JSR SUBTRACT.]|
00005e50  66 22 dd 4c 44 41 20 23  24 31 30 00 6b 66 2c dd  |f".LDA #$10.kf,.|
00005e60  53 54 41 20 24 34 31 30  30 00 78 66 36 dd 4c 44  |STA $4100.xf6.LD|
00005e70  41 20 23 24 31 41 00 86  66 40 dd 53 54 41 20 24  |A #$1A..f@.STA $|
00005e80  34 31 30 31 00 93 66 4a  dd 4c 44 41 20 23 24 30  |4101..fJ.LDA #$0|
00005e90  34 00 a1 66 54 dd 53 54  41 20 24 34 31 30 32 00  |4..fT.STA $4102.|
00005ea0  b2 66 5e dd 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |.f^.JSR MULTIPLY|
00005eb0  00 bf 66 68 dd 4a 53 52  20 4d af 4c 45 00 ce 66  |..fh.JSR M.LE..f|
00005ec0  72 dd 4a 4d 50 20 9a 52  4f 4c 4f 50 00 f4 66 60  |r.JMP .ROLOP..f`|
00005ed0  ea 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00005ee0  20 20 20 20 20 5a 4f 4f  4d 20 52 4f 55 54 49 4e  |     ZOOM ROUTIN|
00005ef0  45 53 00 03 67 6a ea 42  4f 58 20 4c 44 41 20 58  |ES..gj.BOX LDA X|
00005f00  50 00 10 67 74 ea 53 54  41 20 58 50 49 42 00 1b  |P..gt.STA XPIB..|
00005f10  67 7e ea 4c 44 41 20 59  50 00 28 67 88 ea 53 54  |g~.LDA YP.(g..ST|
00005f20  41 20 59 50 49 42 00 34  67 92 ea 4c 44 41 20 58  |A YPIB.4g..LDA X|
00005f30  50 42 00 42 67 9c ea 53  54 41 20 58 50 42 49 42  |PB.Bg..STA XPBIB|
00005f40  00 4f 67 a6 ea 4c 44 58  20 23 24 33 43 00 5d 67  |.Og..LDX #$3C.]g|
00005f50  b0 ea 53 54 58 20 24 30  37 46 43 00 65 67 ba ea  |..STX $07FC.eg..|
00005f60  49 4e 58 00 73 67 c4 ea  53 54 58 20 24 30 37 46  |INX.sg..STX $07F|
00005f70  44 00 7b 67 ce ea 49 4e  58 00 89 67 d8 ea 53 54  |D.{g..INX..g..ST|
00005f80  58 20 24 30 37 46 45 00  91 67 e2 ea 49 4e 58 00  |X $07FE..g..INX.|
00005f90  9f 67 ec ea 53 54 58 20  24 30 37 46 46 00 ad 67  |.g..STX $07FF..g|
00005fa0  f6 ea 4c 44 41 20 24 44  30 31 35 00 b9 67 00 eb  |..LDA $D015..g..|
00005fb0  b0 41 20 23 24 46 30 00  c7 67 0a eb 53 54 41 20  |.A #$F0..g..STA |
00005fc0  24 44 30 31 35 00 da 67  14 eb 42 4f 58 92 20 4c  |$D015..g..BOX. L|
00005fd0  44 41 20 43 4c 49 43 4b  00 e7 67 1e eb 42 4e 45  |DA CLICK..g..BNE|
00005fe0  20 42 4f 58 92 00 fd 67  78 eb 42 4f 58 4c 4f 4f  | BOX...gx.BOXLOO|
00005ff0  50 20 4c 44 41 20 58 50  42 49 42 00 09 68 82 eb  |P LDA XPBIB..h..|
00006000  43 4d 50 20 58 50 42 00  1b 68 8c eb 42 45 51 20  |CMP XPB..h..BEQ |
00006010  43 48 45 43 4b 46 49 4e  45 00 2c 68 96 eb 42 43  |CHECKFINE.,h..BC|
00006020  53 20 4c 45 53 53 54 48  41 4e 00 3c 68 a0 eb 4a  |S LESSTHAN.<h..J|
00006030  4d 50 20 4d b0 45 54 48  41 4e 00 53 68 aa eb 43  |MP M.ETHAN.Sh..C|
00006040  48 45 43 4b 46 49 4e 45  20 4c 44 41 20 58 50 49  |HECKFINE LDA XPI|
00006050  42 00 5e 68 b4 eb 43 4d  50 20 58 50 00 6f 68 be  |B.^h..CMP XP.oh.|
00006060  eb 42 43 53 20 4c 45 53  53 54 48 41 4e 00 84 68  |.BCS LESSTHAN..h|
00006070  c8 eb 4d b0 45 54 48 41  4e 20 4c 44 41 20 58 50  |..M.ETHAN LDA XP|
00006080  49 42 00 92 68 d2 eb 53  54 41 20 24 44 30 30 38  |IB..h..STA $D008|
00006090  00 a0 68 dc eb 53 54 41  20 24 44 30 30 43 00 ad  |..h..STA $D00C..|
000060a0  68 e6 eb 4c 44 58 20 23  24 30 30 00 bb 68 f0 eb  |h..LDX #$00..h..|
000060b0  4c 44 41 20 58 50 42 49  42 00 cc 68 fa eb 42 45  |LDA XPBIB..h..BE|
000060c0  51 20 4e 4f 58 50 42 41  44 44 00 d9 68 04 ec 4c  |Q NOXPBADD..h..L|
000060d0  44 58 20 23 24 35 30 00  f0 68 0e ec 4e 4f 58 50  |DX #$50..h..NOXP|
000060e0  42 41 44 44 20 4c 44 41  20 24 44 30 31 30 00 fb  |BADD LDA $D010..|
000060f0  68 18 ec af 20 23 24 41  46 00 07 69 22 ec 53 54  |h... #$AF..i".ST|
00006100  58 20 24 30 32 00 0f 69  2c ec 43 4c 43 00 1b 69  |X $02..i,.CLC..i|
00006110  36 ec 41 44 43 20 24 30  32 00 29 69 40 ec 53 54  |6.ADC $02.)i@.ST|
00006120  41 20 24 44 30 31 30 00  36 69 45 ec 4c 44 58 20  |A $D010.6iE.LDX |
00006130  23 24 30 30 00 41 69 4a  ec 4c 44 41 20 58 50 00  |#$00.AiJ.LDA XP.|
00006140  49 69 54 ec 53 45 43 00  56 69 5e ec 53 42 43 20  |IiT.SEC.Vi^.SBC |
00006150  23 24 31 38 00 64 69 68  ec 53 54 41 20 24 44 30  |#$18.dih.STA $D0|
00006160  30 41 00 72 69 72 ec 53  54 41 20 24 44 30 30 45  |0A.rir.STA $D00E|
00006170  00 80 69 7c ec 42 43 43  20 4d 54 53 55 42 00 8c  |..i|.BCC MTSUB..|
00006180  69 86 ec 4c 44 58 20 58  50 42 00 9a 69 90 ec 42  |i..LDX XPB..i..B|
00006190  45 51 20 4d 54 53 55 42  00 a7 69 9a ec 4c 44 58  |EQ MTSUB..i..LDX|
000061a0  20 23 24 41 30 00 bb 69  a4 ec 4d 54 53 55 42 20  | #$A0..i..MTSUB |
000061b0  4c 44 41 20 24 44 30 31  30 00 c6 69 ae ec af 20  |LDA $D010..i... |
000061c0  23 24 35 46 00 d2 69 b8  ec 53 54 58 20 24 30 32  |#$5F..i..STX $02|
000061d0  00 da 69 c2 ec 43 4c 43  00 e6 69 cc ec 41 44 43  |..i..CLC..i..ADC|
000061e0  20 24 30 32 00 f4 69 d6  ec 53 54 41 20 24 44 30  | $02..i..STA $D0|
000061f0  31 30 00 01 6a e0 ec 4a  4d 50 20 42 4f 58 9a 00  |10..j..JMP BOX..|
00006200  15 6a ea ec 4c 45 53 53  54 48 41 4e 20 4c 44 41  |.j..LESSTHAN LDA|
00006210  20 58 50 00 21 6a f4 ec  4c 44 58 20 58 50 42 00  | XP.!j..LDX XPB.|
00006220  2e 6a fe ec 42 4e 45 20  a8 4f 55 54 00 3b 6a 08  |.j..BNE .OUT.;j.|
00006230  ed 43 4d 50 20 23 24 35  38 00 48 6a 12 ed 42 43  |.CMP #$58.Hj..BC|
00006240  53 20 a8 4f 55 54 00 55  6a 1c ed 4c 44 41 20 23  |S .OUT.Uj..LDA #|
00006250  24 35 38 00 68 6a 26 ed  a8 4f 55 54 20 53 54 41  |$58.hj&..OUT STA|
00006260  20 24 44 30 30 38 00 76  6a 30 ed 53 54 41 20 24  | $D008.vj0.STA $|
00006270  44 30 30 43 00 83 6a 3a  ed 43 50 58 20 23 24 30  |D00C..j:.CPX #$0|
00006280  30 00 93 6a 44 ed 42 45  51 20 4c 54 4e 4f 41 44  |0..jD.BEQ LTNOAD|
00006290  44 00 a0 6a 4e ed 4c 44  58 20 23 24 35 30 00 b6  |D..jN.LDX #$50..|
000062a0  6a 58 ed 4c 54 4e 4f 41  44 44 20 4c 44 41 20 24  |jX.LTNOADD LDA $|
000062b0  44 30 31 30 00 c1 6a 62  ed af 20 23 24 41 46 00  |D010..jb.. #$AF.|
000062c0  cd 6a 6c ed 53 54 58 20  24 30 32 00 d5 6a 76 ed  |.jl.STX $02..jv.|
000062d0  43 4c 43 00 e1 6a 80 ed  41 44 43 20 24 30 32 00  |CLC..j..ADC $02.|
000062e0  ef 6a 8a ed 53 54 41 20  24 44 30 31 30 00 fc 6a  |.j..STA $D010..j|
000062f0  8f ed 4c 44 58 20 23 24  30 30 00 09 6b 94 ed 4c  |..LDX #$00..k..L|
00006300  44 41 20 58 50 49 42 00  11 6b 9e ed 53 45 43 00  |DA XPIB..k..SEC.|
00006310  1e 6b a8 ed 53 42 43 20  23 24 31 38 00 2c 6b b2  |.k..SBC #$18.,k.|
00006320  ed 53 54 41 20 24 44 30  30 41 00 3a 6b bc ed 53  |.STA $D00A.:k..S|
00006330  54 41 20 24 44 30 30 45  00 48 6b c6 ed 42 43 43  |TA $D00E.Hk..BCC|
00006340  20 4c 54 53 55 42 00 56  6b d0 ed 4c 44 58 20 58  | LTSUB.Vk..LDX X|
00006350  50 42 49 42 00 64 6b da  ed 42 45 51 20 4c 54 53  |PBIB.dk..BEQ LTS|
00006360  55 42 00 71 6b e4 ed 4c  44 58 20 23 24 41 30 00  |UB.qk..LDX #$A0.|
00006370  85 6b ee ed 4c 54 53 55  42 20 4c 44 41 20 24 44  |.k..LTSUB LDA $D|
00006380  30 31 30 00 90 6b f8 ed  af 20 23 24 35 46 00 9c  |010..k... #$5F..|
00006390  6b 02 ee 53 54 58 20 24  30 32 00 a4 6b 0c ee 43  |k..STX $02..k..C|
000063a0  4c 43 00 b0 6b 16 ee 41  44 43 20 24 30 32 00 be  |LC..k..ADC $02..|
000063b0  6b 20 ee 53 54 41 20 24  44 30 31 30 00 ce 6b 2a  |k .STA $D010..k*|
000063c0  ee 42 4f 58 9a 20 4c 44  41 20 59 50 00 db 6b 34  |.BOX. LDA YP..k4|
000063d0  ee 43 4d 50 20 59 50 49  42 00 e9 6b 3e ee 42 43  |.CMP YPIB..k>.BC|
000063e0  43 20 4c 45 53 53 59 00  f6 6b 48 ee 4c 44 41 20  |C LESSY..kH.LDA |
000063f0  59 50 49 42 00 04 6c 52  ee 53 54 41 20 24 44 30  |YPIB..lR.STA $D0|
00006400  30 39 00 12 6c 5c ee 53  54 41 20 24 44 30 30 42  |09..l\.STA $D00B|
00006410  00 1d 6c 66 ee 4c 44 41  20 59 50 00 25 6c 70 ee  |..lf.LDA YP.%lp.|
00006420  53 45 43 00 32 6c 7a ee  53 42 43 20 23 24 31 35  |SEC.2lz.SBC #$15|
00006430  00 40 6c 84 ee 53 54 41  20 24 44 30 30 44 00 4e  |.@l..STA $D00D.N|
00006440  6c 8e ee 53 54 41 20 24  44 30 30 46 00 5d 6c 98  |l..STA $D00F.]l.|
00006450  ee 4a 4d 50 20 42 4f 58  9a 49 49 00 6e 6c a2 ee  |.JMP BOX.II.nl..|
00006460  4c 45 53 53 59 20 4c 44  41 20 59 50 00 7c 6c ac  |LESSY LDA YP.|l.|
00006470  ee 53 54 41 20 24 44 30  30 39 00 8a 6c b6 ee 53  |.STA $D009..l..S|
00006480  54 41 20 24 44 30 30 42  00 97 6c c0 ee 4c 44 41  |TA $D00B..l..LDA|
00006490  20 59 50 49 42 00 9f 6c  ca ee 53 45 43 00 ac 6c  | YPIB..l..SEC..l|
000064a0  d4 ee 53 42 43 20 23 24  31 35 00 ba 6c de ee 53  |..SBC #$15..l..S|
000064b0  54 41 20 24 44 30 30 44  00 c8 6c e8 ee 53 54 41  |TA $D00D..l..STA|
000064c0  20 24 44 30 30 46 00 dd  6c f2 ee 42 4f 58 9a 49  | $D00F..l..BOX.I|
000064d0  49 20 4c 44 41 20 43 4c  49 43 4b 00 ea 6c fc ee  |I LDA CLICK..l..|
000064e0  42 4e 45 20 42 4f 58 80  00 fa 6c 06 ef 4a 4d 50  |BNE BOX...l..JMP|
000064f0  20 42 4f 58 4c 4f 4f 50  00 0e 6d 10 ef 42 4f 58  | BOXLOOP..m..BOX|
00006500  80 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 23 6d 30  |. JMP .ROLOP.#m0|
00006510  f2 42 4f 58 46 4c 41 53  48 20 4c 44 41 20 24 41  |.BOXFLASH LDA $A|
00006520  32 00 2e 6d 3a f2 af 20  23 24 33 43 00 38 6d 44  |2..m:.. #$3C.8mD|
00006530  f2 4c 53 52 20 41 00 42  6d 4e f2 4c 53 52 20 41  |.LSR A.BmN.LSR A|
00006540  00 4a 6d 58 f2 54 41 58  00 5c 6d 62 f2 4c 44 41  |.JmX.TAX.\mb.LDA|
00006550  20 42 4f 58 43 4f 4c 53  2c 58 00 6a 6d 6c f2 53  | BOXCOLS,X.jml.S|
00006560  54 41 20 24 44 30 32 42  00 78 6d 76 f2 53 54 41  |TA $D02B.xmv.STA|
00006570  20 24 44 30 32 43 00 86  6d 80 f2 53 54 41 20 24  | $D02C..m..STA $|
00006580  44 30 32 44 00 94 6d 8a  f2 53 54 41 20 24 44 30  |D02D..m..STA $D0|
00006590  32 45 00 a2 6d 94 f2 4a  4d 50 20 24 45 41 33 31  |2E..m..JMP $EA31|
000065a0  00 c4 6d 9e f2 42 4f 58  43 4f 4c 53 20 54 58 54  |..m..BOXCOLS TXT|
000065b0  20 30 2c 39 2c 32 2c 38  2c 31 30 2c 37 2c 31 33  | 0,9,2,8,10,7,13|
000065c0  2c 31 00 de 6d a8 f2 54  58 54 20 31 2c 31 33 2c  |,1..m..TXT 1,13,|
000065d0  33 2c 35 2c 31 34 2c 34  2c 36 2c 30 00 f3 6d 18  |3,5,14,4,6,0..m.|
000065e0  f6 3b 20 44 45 4c 45 54  45 20 54 48 45 53 45 21  |.; DELETE THESE!|
000065f0  21 00 07 6e 22 f6 43 4f  4c 53 20 4a 4d 50 20 9a  |!..n".COLS JMP .|
00006600  52 4f 4c 4f 50 00 1e 6e  54 f6 5a 4f 4f 4d 4f 55  |ROLOP..nT.ZOOMOU|
00006610  54 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 00 00     |T JMP .ROLOP...|
0000661f