;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�$410EK	
;                      ROM ROUTINES\	"
OUTDO �$AB47�	,
;                       SPRITE DATA�	1
;�	6
TXT 224,000,000,176,000,000,152,000�	@
TXT 000,140,000,000,134,000,000,131
J
TXT 000,000,129,128,000,128,192,000*
T
TXT 128,064,000,147,192,000,185,000R
^
TXT 000,233,000,000,009,128,000,012z
h
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,124H�
TXT 000,000,126,000,000,127,000,000p�
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,064f�
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,000.
TXT 000,000,000,000,000,000,000,000V
TXT 000,000,000,000,000,000,000,197\
!;�
&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,128$NTXT 000,255,192,000,255,192,000,255LXTXT 192,000,255,192,000,000,000,000tbTXT 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,000B�TXT 000,000,000,000,000,000,000,000j�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,0008�TXT 001,000,000,000,000,000,001,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,000TXT 000,000,000,000,000,000,000,000(TXT 000,000,000,000,000,000,000,000.;VTXT 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�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,000FRTXT 128,000,000,000,000,000,128,000n\TXT 000,000,000,000,168,000,000,000ta;�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,000d�TXT 000,000,000,000,000,000,000,000��TXT 000,000,001,000,000,000,000,000��TXT 001,000,000,000,000,000,021,000��;�';           MAIN �ROL ROUTINES�'JSR INIT$'COMEBACK JSR HIRES�.'�ROLOP LDA CLICK&8'BNE �ROLOP:B'�LOPB LDA CLICKHL'BEQ �LOPBSV'LDA XP``'CMP #$58kj'BCC ��wt'JMP BOX�~'�� LDA YP��'SEC��'SBC #$5A��'LSR A��'LSR A��'� #$FE��'TAX��'LDA VEC�RS,X��'STA $FB��'INX��'LDA VEC�RS,X�'STA $FC�'JMP ($00FB)T(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�PLOT.((TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,�EXIT,�EXITb2(TXT ��ROLOP,��ROLOP,��,��,��ROLOP,��ROLOP,��,���<(TXT ��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP,��ROLOP�)EXIT JSR HIRESOFF�)LDA #$93�)JSR OUTDO�")LDA #$05�,)JSR OUTDO�6)RTS�.;                   WIMP ROUTINES'�.; WIMP - MOUSE8�.IRQ LDA #$00F/STA CLICKR/LDA $C5_/CMP #$01o&/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 UPK�v/UPKC CMP #$37��/BEQ DOWNK�/DKC LDA $DC00�/� #$01&�/BEQ UPJ8�/UJC LDA $DC00C�/� #$02Q�/BEQ DOWNJc�/DJC LDA $DC00n�/� #$04|�/BEQ LEFTJ��/LJC LDA $DC00��/� #$08�0BEQ RIGHTJ�0RJC LDA $DC00�0� #$10� 0E� #$10�*0BEQ CJCH�40STA CLICK>0CJCH JMP BOXFLASHH0LEFTK JSR LEFT!R0JMP LKC6\0RIGHTK JSR RIGHTBf0JMP RKCQp0UPK JSR UP^z0JMP UPKCq�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 XP�0LDA XP�0CMP #$FF+1BNE �FF81LDY #$00D1STY XPBT$1�FF LDY XPB`.1BNE FINm81CMP #$18yB1BNE 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 FIN�1DEC XP#�1JMP �ROL1�1UP DEC YP<�1LDA YPI�1CMP #$32U�1BNE FIN`�1INC YPm2JMP �ROL}
2DOWN INC YP�2LDA YP�2CMP #$F8�(2BNE FIN�22DEC YP�<2JMP �ROL�F2; WIMP � PO�ER�P2�ROL LDA HOUR�Z2BEQ NHGLASS��3LDX #$3A	�3STX $07F8�3INX�3STX $07F92�3NHGLASS LDA XP@�3STA $D000N�3STA $D002Y�3LDA YPg�3STA $D001u�3STA $D003��3LDA $D010�4� #$FC�4LSR A�4CLC�&4ADC XPB�04ASL A�:4CLC�D4ADC XPB�N4STA $D010�X4LDA #$00�b4STA $D027l4LDA #$01v4STA $D028�4LDA $D015(�4�A #$036�4STA $D015C�4LDA HOURP�4BNE QTRO]�4LDX #$38k�4STX $07F8s�4INX��4STX $07F9��4QTRO RTS��4; STARTUP ROUTINES��4INIT LDA #$00��4STA $D020�5STA $D021�5STA XP�5STA HOUR� 5STA $D015*5LDA #$0145STA XPB>5LDA #$80*H5STA YP>R5HIRES� LDA #$3BL\5STA $D011Yf5LDA #$D8gp5STA $D016tz5LDA #$00��5STA $FB��5TAY��5LDA #$04��5STA $FC��5LDA #$7E��5FLOP STA ($FB),Y��5INY��5BEQ FLOPINC��5CPY #$F8��5BNE FLOP
�5LDX $FC�5CPX #$07�5BNE FLOP(6JSR LEFT06SEI>6LDA #�IRQL$6STA $0314Z.6LDA #�IRQh86STA $0315pB6CLI}L6LDA #$D8�V6STA $FC�`6LDA #$02�j6LDY #$00�t6FLOPB STA ($FB),Y�~6INY��6BNE FLOPB��6INC $FC��6LDX $FC��6CPX #$DC �6BNE FLOPB �6LDA #$18 �6STA $D018% 4:RTS9 >:FLOPINC INC $FCF H:JMP FLOPW R:HIRESOFF SEId \:LDA #$31r f:STA $0314 p:LDA #$EA� z:STA $0315� �:CLI� �:LDA #$00� �:STA $D015� �:LDA #$9B� �:STA $D011� �:LDA #$C8� �:STA $D016� �:LDA #$15
!�:STA $D018	!�:RTS! N� JSR HIRESOFF)!*NLDA #$1C7!4NJSR OUTDOD!>NLDA #$93R!HNJSR OUTDO_!RNLDA #$00m!\N�LOOP PHAw!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),Y"�NINY"�NBNE �LOOPB*"�NINC $FC6"�NINC $FEB"OLDA $FEO"OCMP #$08^"OBNE �LOOPBm"$O�� LDA $C5z".OCMP #$40�"8OBNE ���"BO��B LDA $C5�"LOCMP #$40�"VOBEQ ��B�"`OTAX�"jOPLA�"tOCPX #$01�"~OBEQ HNOM�E�"�OCPX #$28�"�OBEQ ��"�OCPX #$2B#�OBEQ PREV#�O�RET PHA$#�OJMP ��B<#�OHNOM�E JMP COMEBACKK#�O� CMP #$05X#�OBEQ �RET`#�OCLCm#�OADC #$01{#�OJMP �LOOP�#PPREV CMP #$00�#
PBEQ �RET�#PSEC�#PSBC #$01�#(PJMP �LOOP�#0u;          M�LEBROT SET PLOTTER�#:uM�LE SEI�#?uLDA #$00
$DuSTA YPIXEL$NuLDA #$03%$XuSTA $41002$buLDA #$06@$luSTA $4102N$vuJSR EQUALb$�uMMAINL LDA #$00q$�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 EQUAL8%vLDA #$00G% vSTA COLOURY%*vLOOP LDA #$07g%4vSTA $4100u%>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 $4101/&�vINX=&�vSTX $4102M&�vJSR ADDITI�[&�vLDA $4091h&�vCMP #$04u&�vBCC FAIL�&wCMP #$50�&wBCS FAIL�&wSUCPASS JMP SUCCESS�&$wFAIL INC COLOUR�&)wLDA COLOUR�&.wCMP MAXCOL�&8wBEQ SUCPASS�&BwJSR SUBTRACT'LwLDA #$12'VwSTA $4100"'`wLDA #$050'jwSTA $4101='twLDA #$13K'~wSTA $4102['�wJSR ADDITI�h'�wLDA #$07v'�wSTA $4100�'�wLDA #$08�'�wSTA $4101�'�wINC $4102�'�wJSR MULTIPLY�'�wLDA #$14�'�wSTA $4100�'�wLDA #$1C�'�wSTA $4101�'�wLDA #$15
(xSTA $4102(
xJSR MULTIPLY(xLDA #$15-(xSTA $4100:((xLDA #$06H(2xSTA $4101U(<xLDA #$16c(FxSTA $4102s(PxJSR ADDITI��(ZxLDA #$13�(dxSTA $4100�(nxLDA #$07�(xxSTA $4102�(�xJSR EQUAL�(�xLDA #$16�(�xSTA $4100�(�xLDA #$08�(�xSTA $4102�(�xJSR EQUAL)�xJMP LOOP)�xSUCCESS JSR PLOT*)�xLDA #$058)�xSTA $4100F)�xSTA $4102S)�xLDA #$02a)�xSTA $4101q)yJSR ADDITI��)yLDA XPIXEL�)yBNE XRELOP�)"yLDA #$06�),ySTA $4100�)6ySTA $4102�)@yLDA #$04�)JySTA $4101�)TyJSR ADDITI��)^yINC YPIXEL
*hyLDA YPIXEL*ryCMP #$C8*|yBNE YRELOP%*�yCLI-*�yRTSD*�yXRELOP JMP MMAINLBZ*�yYRELOP JMP MMAINLn*�yM�PLOT JSR M�LE}*�yJMP �ROLOP�*@�;             ARITHMETIC ROUTINES�*J��DIGIT CLD�*T�ASL A�*^�ASL A�*h�ASL A�*r�STA $02�*|�TXA�*��LSR A�*��STA $24+��LDA #$07+��SEC+��SBC $24#+��CLC/+œADC $027+̜TAYG+֜LDA $4000,YO+�TAYW+�TXAb+� #$01p+��BEQ LSNGDx+�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 $4102,v�ASL A,��ASL A,��ASL A#,��TAX0,��LDA #$008,��TAYN,��MLOPA STA $4000,XV,��INY^,ƝINXk,НCPY #$08y,ڝBNE MLOPA�,�LDA #$06�,�STA $FC�,���DIGIT LDA $4101�,�LDX $FC�,�JSR �DIGIT�,�CMP #$00�, �BEQ DMOVER�,*�STA $FD�,4�LDA #$06->�STA $FB-H�DMLOP LDA $4100#-R�LDX $FB2-\�JSR �DIGIT?-f�CMP #$00N-p�BEQ DMOVERZ-z�STA $FEf-��LDA $FBn-��CLCz-��ADC $FC�-��SEC�-��SBC #$0C�-��LDX $FD�-��TAY�-ʞ� #$01�-ԞBEQ MSKIP�-ޞTXA�-�ASL A�-�ASL A�-��ASL A�-�ASL A�-�TAX.�MSKIP TYA.$�LSR A..�STA $02%.8�LDA #$07-.B�SEC9.L�SBC $02E.V�STA $02S.`�LDA $4102].j�ASL Ag.t�ASL Aq.~�ASL A}.��ADC $02�.��STA $25�.��TAY�.��STX $24�.��DMLB LDX $02�.��SED�.��LDA $4000,Y�.ğCLC�.ΟADC $24�.؟STA $4000,Y�.�MALP CLD/�BCC MAQUIT/��DEY/�DEX#/
�CPX #$FF2/�BEQ MAQUIT:/�SEDJ/(�LDA $4000,YR/2�CLC_/<�ADC #$01o/F�STA $4000,Y|/P�JMP MALP�/Z�DMOVER INC $FB�/d�LDA $FB�/n�CMP #$0E�/x�BCC DMLOP�/��INC $FC�/��LDA $FC�/��CMP #$0E�/��BCC �DIGIT�/��LDA YPIB0��BEQ QUIT0��LDA $4102 0ȠSTA $4101-0ҠLDA #$1D;0ܠSTA $4100L0�JSR SUBTRACTY0�QUIT RTSl0��MAQUIT LDX $FEt0�DEX�0�BEQ DMOVER�0
�STX $FE�0�LDY $25�0�JMP DMLB�0"�MSUP LDA $4100�0,�ASL A�06�ASL A�0@�ASL A�0J�TAX�0T�DEX�0^�STX $FB1h�LDA $4101
1r�ASL A1|�ASL A!1��ASL A)1��TAX11��DEX=1��STX $FDK1��LDA $4102U1��ASL A_1¡ASL Ai1̡ASL Aq1֡TAXy1�DEX�1�STX $22�1�LDA #$40�1��STA $FC�1�STA $FE�1�STA $23�1�RTS�1&�EQUAL JSR MSUP�10�LDY #$08�1:�ELOP LDA ($FB),Y2D�STA ($22),Y2N�DEY2X�BNE ELOP 2b�RTS52l�ADDITI� JSR MSUPB2v�LDY #$08J2��SEDR2��CLCh2��ADLOP LDA ($FB),Yx2��ADC ($FD),Y�2��STA ($22),Y�2��DEY�2��BNE ADLOP�2ƢCLD�2ТRTS�2ڢSUBTRACT JSR MSUP�2�LDY #$08�2�SED�2��SEC�2�SULOP LDA ($FB),Y3�SBC ($FD),Y3�STA ($22),Y3 �DEY-3*�BNE SULOP534�CLD=3>�RTSS3H�NEGATIVE LDA #$00[3R�PHAi3\�LDA $4100q3f�TAY{3p�ASL A�3z�ASL A�3��ASL A�3��TAX�3��LDA $4001,X�3��CMP #$50�3��BCC NEGRMOVEAB�3��PLA�3��ADC #$00�3��PHA�3ʣJMP NEGRMOVEA4ԣNEGRMOVEAB LDA $41014ޣTAY!4�ASL A+4�ASL A54��ASL A=4�TAXM4�LDA $4001,XZ4�CMP #$50b4$�PLAo4.�BCC NOE�{48�E� #$01�4B�PHA�4L�BCS NEGRMOVEB�4V�NEGRMOVEBB PLA�4`�NOE� STA YPIB�4j�RTS�4t�NEGRMOVE LDA $4100�4~�PHA�4��LDA $4101�4��PHA5��LDA $4102
5��PHA5��TYA#5��STA $410115ĤSTA $4102>5ΤLDA #$1DL5ؤSTA $4100]5�JSR SUBTRACTe5�PLAs5��STA $4102{5�PLA�5
�STA $4101�5�PLA�5�STA $4100�5(�RTS�52�NEGRMOVEA JSR NEGRMOVE�5<�JMP NEGRMOVEAB�5F�NEGRMOVEB JSR NEGRMOVE6P�JMP NEGRMOVEBB6Z�MULTIPLY LDA $4102"6d�PHA06n�LDA $410186x�PHAE6��LDA #$18S6��STA $4102a6��JSR EQUALo6��INC $4102w6��PLA�6��STA $4100�6��JSR EQUAL�6ȥLDA #$18�6ҥSTA $4100�6ܥLDA #$19�6�STA $4101�6�PLA�6��STA $4102�6�JMP MULTIPLYB7P�;           GRAPHIC PO� PLOTTER)7Z�PLOTPC LDA #$4757d�STA $FBB7n�LDA #$3FN7x�STA $FC]7��LDA YPIXELg7��LSR Aq7��LSR A{7��LSR A�7��STA YPIB�7�ï #$03�7��ASL A�7��ASL A�7��ASL A�7��ASL A�7��ASL A�7��ASL A�7��STA $02�7�LDA $FB�7�SEC�7�SBC $028"�STA $FB8,�LDA $FC 86�SBC #$00-8;�SBC YPIB58@�PHAB8J�LDA YPIBL8T�LSR AV8^�LSR Ab8h�STA $02j8r�PLAr8|�SEC~8��SBC $02�8��STA $FC�8��LDA YPIXEL�8�į #$07�8��STA YPIB�8��LDA $FB�8��SEC�8��SBC YPIB�8��PHA�8��LDA XPIXEL�8�į #$F8
9��STA YPIB	9��PLA9�CLC9�ADC YPIB*9�STA $FB69&�LDA $FCC90�SBC #$00O9:�STA $FC^9D�LDA XPIXELi9Nů #$07q9X�TAX~9b�LDA #$80�9l�GBITLP CPX #$00�9v�BEQ PP��9��LSR A�9��DEX�9��JMP GBITLP�9��PP� STA $FD�9��RTS�9��PLO�N JSR PLOTPC�9��LDY #$00	:��LDA ($FB),Y:�ŰA $FD$:��STA ($FB),Y,:��RTSB:��PLO�FF JSR PLOTPCN:��LDA $FDZ:�E� #$FFf:�STA $FDs:�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 XPIXEL';��LDA COLOUR2;�Ư #$01?;��BNE PPB�N;��JSR PLO�FF];��JMP PPBCNTp;��PPB� JSR PLO�N�;��PPBCNT INC XPIXEL�;��RTS�;��;       ZOOM CALCULATI� ROUTINES�;��NOZOOM JMP �ROLOP�;��ZOOMIN LDA $D015�;�֯ #$F0�;�CMP #$F0<
�BNE NOZOOM<�LDA #$1E <�STA $4100-<(�LDA #$01;<2�STA $4101H<<�LDA #$10V<F�STA $4102g<P�JSR SUBTRACTt<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 $41026=��LDA #$12D=��STA $4101R=��LDA $D008Z=�SECg=�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 $4102&>��JSR EQUAL3>��LDA #$13A>��STA $4100O>��STA $4102\>��LDA #$12j>��STA $4101x>��LDA $D00A�>��SEC�>��SBC #$40�>��CALCINLOPB CMP #$00�>��BEQ CALC�IB�>�PHA�>�JSR ADDITI��>�PLA�>&�TAX�>0�DEX�>:�TXA?D�JMP CALCINLOPB?N�CALC�IB LDA #$11#?X�STA $41000?b�LDA #$01>?l�STA $4102L?v�JSR EQUALY?��LDA #$13g?��STA $4100t?��LDA #$1E�?��STA $4102�?��JSR EQUAL�?��LDA #$1F�?��STA $4100�?��LDA #$03�?��STA $4101�?��LDA #$10�?��STA $4102�?��JSR SUBTRACT�?��LDA #$03
@�STA $4100@�INC $4102)@�JSR EQUAL6@ �LDA #$10D@*�STA $4100Q@4�LDA #$12_@>�STA $4102l@H�LDA #$1Az@R�STA $4101�@\�JSR MULTIPLY�@f�LDA #$11�@p�STA $4100�@z�STA $4102�@��LDA #$12�@��STA $4101�@��LDA $D009�@��SEC�@��SBC #$32A��CALCINYA CMP #$00A��BEQ CALC�IC A��PHA0A��JSR ADDITI�8A��PLA@A��TAXHA��DEXPA��TXAaA�JMP CALCINYAvA�CALC�IC LDA #$03�A�STA $4100�A$�LDA #$13�A.�STA $4102�A8�JSR EQUAL�AB�LDA #$13�AL�STA $4100�AV�STA $4102�A`�LDA #$12�Aj�STA $4101�At�LDA $D00DB~�SECB��SBC #$1D*B��CALCINYB CMP #$00:B��BEQ CALC�IDBB��PHARB��JSR ADDITI�ZB��PLAbB��TAXjB��DEXrB��TXA�B��JMP CALCINYB�B��CALC�ID LDA #$11�B��STA $4100�B�LDA #$03�B
�STA $4102�B�JSR EQUAL�B�LDA #$13�B(�STA $4100�B2�LDA #$1FC<�STA $4102CF�JSR EQUAL CP�LDA #$1E.CZ�STA $4100;Cd�LDA #$01ICn�STA $4101VCx�LDA #$10dC��STA $4102uC��JSR SUBTRACT�C��LDA #$10�C��STA $4100�C��LDA #$1B�C��STA $4101�C��LDA #$02�C��STA $4102�C��JSR MULTIPLY�C��LDA #$1F�C��STA $4100�C��LDA #$03
D��STA $4101D�LDA #$10(D�STA $41029D�JSR SUBTRACTFD"�LDA #$10TD,�STA $4100aD6�LDA #$1AoD@�STA $4101|DJ�LDA #$04�DT�STA $4102�D^�JSR MULTIPLY�Dh�JSR M�LE�Dr�JMP �ROLOP�D`�;                   ZOOM ROUTINES�Dj�BOX LDA XP�Dt�STA XPIBE~�LDA YPE��STA YPIBE��LDA XPB+E��STA XPBIB8E��LDX #$3CFE��STX $07FCNE��INX\E��STX $07FDdE��INXrE��STX $07FEzE��INX�E��STX $07FF�E��LDA $D015�E�A #$F0�E
�STA $D015�E�BOX� LDA CLICK�E�BNE BOX��Ex�BOXLOOP LDA XPBIB�E��CMP XPBF��BEQ CHECKFINEF��BCS LESSTHAN%F��JMP M�ETHAN<F��CHECKFINE LDA XPIBGF��CMP XPXF��BCS LESSTHANmF��M�ETHAN LDA XPIB{F��STA $D008�F��STA $D00C�F��LDX #$00�F��LDA XPBIB�F��BEQ NOXPBADD�F�LDX #$50�F�NOXPBADD LDA $D010�F� #$AF�F"�STX $02�F,�CLCG6�ADC $02G@�STA $D010GE�LDX #$00*GJ�LDA XP2GT�SEC?G^�SBC #$18MGh�STA $D00A[Gr�STA $D00EiG|�BCC MTSUBuG��LDX XPB�G��BEQ MTSUB�G��LDX #$A0�G��MTSUB LDA $D010�G�� #$5F�G��STX $02�G��CLC�G��ADC $02�G��STA $D010�G��JMP BOX��G��LESSTHAN LDA XP
H��LDX XPBH��BNE �OUT$H�CMP #$581H�BCS �OUT>H�LDA #$58QH&�OUT STA $D008_H0�STA $D00ClH:�CPX #$00|HD�BEQ LTNOADD�HN�LDX #$50�HX�LTNOADD LDA $D010�Hb� #$AF�Hl�STX $02�Hv�CLC�H��ADC $02�H��STA $D010�H��LDX #$00�H��LDA XPIB�H��SECI��SBC #$18I��STA $D00A#I��STA $D00E1I��BCC LTSUB?I��LDX XPBIBMI��BEQ LTSUBZI��LDX #$A0nI��LTSUB LDA $D010yI�� #$5F�I�STX $02�I�CLC�I�ADC $02�I �STA $D010�I*�BOX� LDA YP�I4�CMP YPIB�I>�BCC LESSY�IH�LDA YPIB�IR�STA $D009�I\�STA $D00BJf�LDA YPJp�SECJz�SBC #$15)J��STA $D00D7J��STA $D00FFJ��JMP BOX�IIWJ��LESSY LDA YPeJ��STA $D009sJ��STA $D00B�J��LDA YPIB�J��SEC�J��SBC #$15�J��STA $D00D�J��STA $D00F�J��BOX�II LDA CLICK�J��BNE BOX��J�JMP BOXLOOP�J�BOX� JMP �ROLOPK0�BOXFLASH LDA $A2K:� #$3C!KD�LSR A+KN�LSR A3KX�TAXEKb�LDA BOXCOLS,XSKl�STA $D02BaKv�STA $D02CoK��STA $D02D}K��STA $D02E�K��JMP $EA31�K��BOXCOLS TXT 0,9,2,8,10,7,13,1�K��TXT 1,13,3,5,14,4,6,0�K�; DELETE THESE!!�K"�COLS JMP �ROLOPL,�COLCYCLE JMP �ROLOPL@�� JMP �ROLOP.LJ��ITI� JMP �ROLOPELT�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@kIXA;                      rom routines@£I"Aoutdo .$ab47@.I,A;                       sprite data@.I1A;@.I6Atxt 224,000,000,176,000,000,152,000@.I@Atxt 000,140,000,000,134,000,000,131@BJjAtxt 000,000,129,128,000,128,192,000@*JtAtxt 128,064,000,147,192,000,185,000@rJ.Atxt 000,233,000,000,009,128,000,012@ZJHAtxt 128,000,004,128,000,004,128,000@.JRAtxt 007,128,000,000,000,000,000,000@.J.Atxt 000,000,000,000,000,000,000,153@.J.A;@.J.Atxt 000,000,000,064,000,000,096,000@ K.Atxt 000,112,000,000,120,000,000,124@hK.Atxt 000,000,126,000,000,127,000,000@PK.Atxt 127,128,000,108,000,000,070,000@.K.Atxt 000,006,000,000,006,000,000,003@.K.Atxt 000,000,003,000,000,003,000,000@.K.Atxt 000,000,000,000,000,000,000,000@PL.Atxt 000,000,000,000,000,000,000,153@VL.A;@>L.Atxt 255,192,000,129,064,000,128,064@FL.Atxt 000,129,064,000,066,128,000,064@.L.Atxt 128,000,051,000,000,012,000,000@.L.Atxt 055,000,000,065,128,000,066,128@.L.Atxt 000,129,064,000,130,192,000,133@FMHBtxt 064,000,255,192,000,000,000,000@.MRBtxt 000,000,000,000,000,000,000,000@vM£Btxt 000,000,000,000,000,000,000,197@£M!B;@.M&Btxt 255,192,000,255,192,000,255,192@.M0Btxt 000,255,192,000,127,128,000,127@.M:Btxt 128,000,063,000,000,012,000,000@.MdBtxt 063,000,000,127,128,000,127,128@$NnBtxt 000,255,192,000,255,192,000,255@lNxBtxt 192,000,255,192,000,000,000,000@TNBBtxt 000,000,000,000,000,000,000,000@.NLBtxt 000,000,000,000,000,000,000,197@.NQB;@.NVBtxt 168,000,000,000,000,000,128,000@.N.Btxt 000,000,000,000,128,000,000,000@ZO.Btxt 000,000,000,000,000,000,000,000@bO.Btxt 000,000,000,000,000,000,000,000@JO.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,000@.O.Btxt 000,000,000,000,000,000,000,197@.O.B;@PP.Btxt 000,000,021,000,000,000,000,000@8P.Btxt 001,000,000,000,000,000,001,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,000@.P.Btxt 000,000,000,000,000,000,000,000@@QBCtxt 000,000,000,000,000,000,000,000@(QLCtxt 000,000,000,000,000,000,000,000@.QQC;@vQVCtxt 000,000,000,000,000,000,000,000@.Q Ctxt 000,000,000,000,000,000,000,000@.Q*Ctxt 000,000,000,000,000,000,000,000@.Q4Ctxt 000,000,000,000,000,000,000,000@.Q>Ctxt 000,000,000,000,000,000,000,000@.RhCtxt 000,000,000,000,000,000,000,000@fRrCtxt 128,000,000,000,000,000,128,000@NR£Ctxt 000,000,000,000,168,000,000,000@TRAC;@.RFCtxt 000,000,000,000,000,000,000,000@.RPCtxt 000,000,000,000,000,000,000,000@.RZCtxt 000,000,000,000,000,000,000,000@TS.Ctxt 000,000,000,000,000,000,000,000@<S.Ctxt 000,000,000,000,000,000,000,000@DS.Ctxt 000,000,000,000,000,000,000,000@.S.Ctxt 000,000,001,000,000,000,000,000@.S.Ctxt 001,000,000,000,000,000,021,000@.S.C;@.SP';           main .rol routines@.SZ'jsr init@BT$'comeback jsr hires.@WT.'.rolop lda click@&T8'bne .rolop@:Tb'.lopb lda click@hTl'beq .lopb@sTv'lda xp@.T.'cmp #$58@KTJ'bcc ..@WTT'jmp box@.T.'.. lda yp@.T.'sec@.T.'sbc #$5a@.T.'lsr a@.T.'lsr a@.T.'. #$fe@.T.'tax@.T.'lda vec.rs,x@.T.'sta $fb@.T.'inx@.T.'lda vec.rs,x@CU.'sta $fc@SU.'jmp ($00fb)@tU@(vec.rs txt .zoomout,.zoomout,..rolop,..rolop,.zoomin,.zoomin@.UJ(txt ..rolop,..rolop,..iti.,..iti.,..rolop,..rolop@.UT(txt ..rolop,..rolop,.cols,.cols,..rolop,..rolop@.U.(txt .colcycle,.colcycle,..rolop,..rolop,.m.plot,.m.plot@.V((txt ..rolop,..rolop,..rolop,..rolop,.exit,.exit@BV2(txt ..rolop,..rolop,..,..,..rolop,..rolop,..,..@.V<(txt ..rolop,..rolop,..rolop,..rolop,..rolop,..rolop@.VD)exit jsr hiresoff@.VN)lda #$93@.VX)jsr outdo@.V")lda #$05@.V,)jsr outdo@.V6)rts@TW..;                   wimp routines@'W..; wimp - mouse@8W..irq lda #$00@fWH/sta click@rWR/lda $c5@.W£/cmp #$01@OW&/bne c.check@.W0/sta click@.W:/c.check cmp #$0c@.Wd/beq leftk@.Wn/lkc cmp #$17@.Wx/beq rightk@.WB/rkc cmp #$32@.WL/beq upk@.WV/upkc cmp #$37@.W./beq downk@OX./dkc lda $dc00@ZX./. #$01@&X./beq upj@8X./ujc lda $dc00@cX./. #$02@qX./beq downj@CX./djc lda $dc00@NX./. #$04@.X./beq leftj@.X./ljc lda $dc00@.X./. #$08@.XB0beq rightj@.XL0rjc lda $dc00@.XV0. #$10@.X 0e. #$10@.X*0beq cjch@.X40sta click@BY>0cjch jmp boxflash@UYh0leftk jsr left@!Yr0jmp lkc@6Y£0rightk jsr right@bYF0jmp rkc@qYP0upk jsr up@.YZ0jmp upkc@QY.0downk jsr down@.Y.0jmp dkc@.Y.0upj jsr up@.Y.0jmp ujc@.Y.0downj jsr down@.Y.0jmp djc@.Y.0leftj jsr left@.Y.0jmp ljc@.Y.0rightj jsr right@.Y.0jmp rjc@GZ.0left dec xp@RZ.0lda xp@.Z.0cmp #$ff@+ZF1bne .ff@8ZP1ldy #$00@dZZ1sty xpb@tZ$1.ff ldy xpb@.Z.1bne fin@MZ81cmp #$18@YZb1bne fin@.Zl1inc xp@.Zv1fin jmp .rol@.Z.1right inc xp@.ZJ1lda xp@.ZT1bne .00@.Z.1ldy #$01@.Z.1sty xpb@.Z.1.00 ldy xpb@.Z.1beq fin@.Z.1cmp #$58@K[.1bne fin@V[.1dec xp@#[.1jmp .rol@1[.1up dec yp@<[.1lda yp@i[.1cmp #$32@u[.1bne fin@.[.1inc yp@M[@2jmp .rol@.[J2down inc yp@.[T2lda yp@.[.2cmp #$f8@.[(2bne fin@.[22dec yp@.[<2jmp .rol@.[f2; wimp . po.er@.[p2.rol lda hour@.[z2beq nhglass@.[.3ldx #$3a@I£.3stx $07f8@Q£.3inx@.£.3stx $07f9@2£.3nhglass lda xp@@£.3sta $d000@n£.3sta $d002@y£.3lda yp@G£.3sta $d001@U£.3sta $d003@.£.3lda $d010@.£H4. #$fc@.£R4lsr a@.££4clc@.£&4adc xpb@.£04asl a@.£:4clc@.£d4adc xpb@.£n4sta $d010@.£x4lda #$00@.£B4sta $d027@@]L4lda #$01@N]V4sta $d028@£].4lda $d015@(].4.a #$03@6].4sta $d015@c].4lda hour@p].4bne qtro@]].4ldx #$38@K].4stx $07f8@S].4inx@.].4stx $07f9@.].4qtro rts@.].4; startup routines@.].4init lda #$00@.].4sta $d020@.]B5sta $d021@.]L5sta xp@.]V5sta hour@.] 5sta $d015@F.*5lda #$01@R.45sta xpb@..>5lda #$80@*.h5sta yp@>.r5hires. lda #$3b@l.£5sta $d011@y.F5lda #$d8@G.P5sta $d016@T.Z5lda #$00@...5sta $fb@...5tay@...5lda #$04@...5sta $fc@...5lda #$7e@...5flop sta ($fb),y@...5iny@...5beq flopinc@...5cpy #$f8@...5bne flop@A..5ldx $fc@N..5cpx #$07@[..5bne flop@(.F6jsr left@0.P6sei@>.Z6lda #.irq@l.$6sta $0314@z..6lda #.irq@H.86sta $0315@P.b6cli@..l6lda #$d8@..v6sta $fc@...6lda #$02@..J6ldy #$00@..T6flopb sta ($fb),y@...6iny@...6bne flopb@...6inc $fc@...6ldx $fc@...6cpx #$dc@B .6bne flopb@O .6lda #$18@] .6sta $d018@% 4:rts@9 >:flopinc inc $fc@f h:jmp flop@w r:hiresoff sei@D £:lda #$31@R F:sta $0314@. P:lda #$ea@. Z:sta $0315@. .:cli@. .:lda #$00@. .:sta $d015@. .:lda #$9b@. .:sta $d011@. .:lda #$c8@. .:sta $d016@. .:lda #$15@A!.:sta $d018@I!.:rts@£! n. jsr hiresoff@)!*nlda #$1c@7!4njsr outdo@d!>nlda #$93@r!hnjsr outdo@.!rnlda #$00@M!£n.loop pha@W!Fnasl a@.!Pnasl a@.!Znclc@.!.nadc #$42@.!.nsta $fc@.!.nldy #$00@.!.nsty $fb@.!.nsty $fd@.!.nlda #$04@.!.nsta $fe@.!.n.loopb lda ($fb),y@G".nsta ($fd),y@O".niny@.".nbne .loopb@*".ninc $fc@6".ninc $fe@b"Folda $fe@o"Pocmp #$08@."Zobne .loopb@M"$o.. lda $c5@Z".ocmp #$40@."8obne ..@."bo..b lda $c5@."locmp #$40@."vobeq ..b@.".otax@."Jopla@."Tocpx #$01@.".obeq hnom.e@.".ocpx #$28@.".obeq .@.".ocpx #$2b@K#.obeq prev@X#.o.ret pha@$#.ojmp ..b@<#.ohnom.e jmp comeback@k#.o. cmp #$05@x#.obeq .ret@.#.oclc@M#.oadc #$01@.#.ojmp .loop@.#@pprev cmp #$00@.#Jpbeq .ret@.#Tpsec@.#.psbc #$01@.#(pjmp .loop@.#0U;          m.lebrot set plotter@.#:Um.le sei@.#?Ulda #$00@J$dUsta ypixel@W$nUlda #$03@%$xUsta $4100@2$BUlda #$06@@$LUsta $4102@n$VUjsr equal@B$.Ummainl lda #$00@Q$.Usta xpixel@.$.Ulda #$01@.$.Usta $4100@.$.Ulda #$05@.$.Usta $4102@.$.Ujsr equal@.$.Ummainlb lda #$05@.$.Usta $4100@.$.Ulda #$07@.$.Usta $4102@A%.Ujsr equal@O%.Uinc $4100@]%BVinc $4102@+%LVjsr equal@8%VVlda #$00@g% Vsta colour@y%*Vloop lda #$07@G%4Vsta $4100@U%>Vsta $4101@.%hVlda #$10@.%rVsta $4102@.%£Vjsr multiply@.%FVlda #$08@.%PVsta $4100@.%ZVsta $4101@.%.Vlda #$11@.%.Vsta $4102@.%.Vjsr multiply@C&.Vldx #$10@Q&.Vstx $4100@Y&.Vinx@'&.Vstx $4101@/&.Vinx@=&.Vstx $4102@m&.Vjsr additi.@[&.Vlda $4091@H&.Vcmp #$04@U&.Vbcc fail@.&FWcmp #$50@.&PWbcs fail@.&ZWsucpass jmp success@.&$Wfail inc colour@.&)Wlda colour@.&.Wcmp maxcol@.&8Wbeq sucpass@.&bWjsr subtract@G'lWlda #$12@U'vWsta $4100@"'.Wlda #$05@0'JWsta $4101@='TWlda #$13@k'.Wsta $4102@['.Wjsr additi.@H'.Wlda #$07@V'.Wsta $4100@.'.Wlda #$08@.'.Wsta $4101@.'.Winc $4102@.'.Wjsr multiply@.'.Wlda #$14@.'.Wsta $4100@.'.Wlda #$1c@.'.Wsta $4101@.'.Wlda #$15@A(@Xsta $4102@R(JXjsr multiply@.(TXlda #$15@-(.Xsta $4100@:((Xlda #$06@h(2Xsta $4101@u(<Xlda #$16@C(fXsta $4102@S(pXjsr additi.@.(zXlda #$13@.(DXsta $4100@.(NXlda #$07@.(XXsta $4102@.(.Xjsr equal@.(.Xlda #$16@.(.Xsta $4100@.(.Xlda #$08@.(.Xsta $4102@.(.Xjsr equal@H).Xjmp loop@]).Xsuccess jsr plot@*).Xlda #$05@8).Xsta $4100@f).Xsta $4102@s).Xlda #$02@A).Xsta $4101@Q)DYjsr additi.@.)NYlda xpixel@.)XYbne xrelop@.)"Ylda #$06@.),Ysta $4100@.)6Ysta $4102@.)@Ylda #$04@.)jYsta $4101@.)tYjsr additi.@.).Yinc ypixel@A*HYlda ypixel@N*RYcmp #$c8@]*.Ybne yrelop@%*.Ycli@-*.Yrts@d*.Yxrelop jmp mmainlb@z*.Yyrelop jmp mmainl@N*.Ym.plot jsr m.le@.*.Yjmp .rolop@.*@.;             arithmetic routines@.*j..digit cld@.*t.asl a@.*..asl a@.*H.asl a@.*R.sta $02@.*..txa@.*..lsr a@.*..sta $24@G+..lda #$07@O+..sec@[+..sbc $24@#+..clc@/+..adc $02@7+..tay@g+..lda $4000,y@o+..tay@w+..txa@B+... #$01@P+..beq lsngd@X+H.tya@.+R.. #$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 $4102@G,V.asl a@Q,..asl a@[,..asl a@#,..tax@0,..lda #$00@8,..tay@n,..mlopa sta $4000,x@v,..iny@.,..inx@K,..cpy #$08@Y,..bne mlopa@.,..lda #$06@.,..sta $fc@.,...digit lda $4101@.,B.ldx $fc@.,L.jsr .digit@.,V.cmp #$00@., .beq dmover@.,*.sta $fd@.,4.lda #$06@C->.sta $fb@W-h.dmlop lda $4100@#-r.ldx $fb@2-£.jsr .digit@?-F.cmp #$00@n-P.beq dmover@z-Z.sta $fe@F-..lda $fb@N-..clc@Z-..adc $fc@.-..sec@.-..sbc #$0c@.-..ldx $fd@.-..tay@.-... #$01@.-..beq mskip@.-..txa@.-..asl a@.-..asl a@.-..asl a@.-F.asl a@.-P.tax@B.Z.mskip tya@L.$.lsr a@X...sta $02@%.8.lda #$07@-.b.sec@9.l.sbc $02@e.v.sta $02@s...lda $4102@].J.asl a@G.T.asl a@Q...asl a@....adc $02@....sta $25@....tay@....stx $24@....dmlb ldx $02@....sed@....lda $4000,y@....clc@....adc $24@....sta $4000,y@....malp cld@F/..bcc maquit@N/..dey@V/@.dex@#/J.cpx #$ff@2/T.beq maquit@:/..sed@j/(.lda $4000,y@r/2.clc@./<.adc #$01@O/f.sta $4000,y@./p.jmp malp@./z.dmover inc $fb@./D.lda $fb@./N.cmp #$0e@./X.bcc dmlop@./..inc $fc@./..lda $fc@./..cmp #$0e@./..bcc .digit@./..lda ypib@D0..beq quit@R0..lda $4102@ 0..sta $4101@-0..lda #$1d@;0..sta $4100@l0..jsr subtract@y0..quit rts@L0..maquit ldx $fe@T0D.dex@.0G.beq dmover@.0J.stx $fe@.0N.ldy $25@.0X.jmp dmlb@.0".msup lda $4100@.0,.asl a@.06.asl a@.0@.asl a@.0j.tax@.0t.dex@.0..stx $fb@C1H.lda $4101@M1R.asl a@W1..asl a@!1..asl a@)1..tax@11..dex@=1..stx $fd@k1..lda $4102@u1..asl a@.1..asl a@I1..asl a@Q1..tax@Y1..dex@.1..stx $22@.1..lda #$40@.1..sta $fc@.1H.sta $fe@.1R.sta $23@.1£.rts@.1&.equal jsr msup@.10.ldy #$08@.1:.elop lda ($fb),y@C2d.sta ($22),y@K2n.dey@X2x.bne elop@ 2B.rts@52L.additi. jsr msup@b2V.ldy #$08@j2..sed@r2..clc@H2..adlop lda ($fb),y@X2..adc ($fd),y@.2..sta ($22),y@.2..dey@.2..bne adlop@.2..cld@.2..rts@.2..subtract jsr msup@.2..ldy #$08@.2..sed@.2..sec@.2B.sulop lda ($fb),y@G3L.sbc ($fd),y@W3V.sta ($22),y@.3 .dey@-3*.bne sulop@534.cld@=3>.rts@s3h.negative lda #$00@[3r.pha@I3£.lda $4100@Q3F.tay@.3P.asl a@.3Z.asl a@.3..asl a@.3..tax@.3..lda $4001,x@.3..cmp #$50@.3..bcc negrmoveab@.3..pla@.3..adc #$00@.3..pha@.3..jmp negrmovea@O4..negrmoveab lda $4101@W4..tay@!4..asl a@+4..asl a@54..asl a@=4F.tax@m4P.lda $4001,x@z4Z.cmp #$50@B4$.pla@O4..bcc noe.@.48.e. #$01@.4b.pha@.4l.bcs negrmoveb@.4v.negrmovebb pla@.4..noe. sta ypib@.4J.rts@.4T.negrmove lda $4100@.4..pha@.4..lda $4101@.4..pha@E5..lda $4102@M5..pha@U5..tya@#5..sta $4101@15..sta $4102@>5..lda #$1d@l5..sta $4100@]5..jsr subtract@E5..pla@S5..sta $4102@.5@.pla@.5J.sta $4101@.5T.pla@.5..sta $4100@.5(.rts@.52.negrmovea jsr negrmove@.5<.jmp negrmoveab@.5f.negrmoveb jsr negrmove@C6p.jmp negrmovebb@Z6z.multiply lda $4102@"6D.pha@06N.lda $4101@86X.pha@e6..lda #$18@s6..sta $4102@A6..jsr equal@O6..inc $4102@W6..pla@.6..sta $4100@.6..jsr equal@.6..lda #$18@.6..sta $4100@.6..lda #$19@.6..sta $4101@.6..pla@.6..sta $4102@.6D.jmp multiplyb@U7p.;           graphic po. plotter@)7z.plotpc lda #$47@57D.sta $fb@b7N.lda #$3f@n7X.sta $fc@]7..lda ypixel@G7..lsr a@Q7..lsr a@.7..lsr a@.7..sta ypib@.7... #$03@.7..asl a@.7..asl a@.7..asl a@.7..asl a@.7..asl a@.7..asl a@.7..sta $02@.7D.lda $fb@.7N.sec@.7X.sbc $02@G8".sta $fb@S8,.lda $fc@ 86.sbc #$00@-8;.sbc ypib@58@.pha@b8j.lda ypib@l8t.lsr a@v8..lsr a@B8H.sta $02@J8R.pla@R8..sec@.8..sbc $02@.8..sta $fc@.8..lda ypixel@.8... #$07@.8..sta ypib@.8..lda $fb@.8..sec@.8..sbc ypib@.8..pha@.8..lda xpixel@.8... #$f8@A9..sta ypib@I9..pla@Q9H.clc@.9R.adc ypib@*9£.sta $fb@69&.lda $fc@c90.sbc #$00@o9:.sta $fc@.9d.lda xpixel@I9n.. #$07@Q9x.tax@.9B.lda #$80@.9L.gbitlp cpx #$00@.9V.beq pp.@.9..lsr a@.9..dex@.9..jmp gbitlp@.9..pp. sta $fd@.9..rts@.9..plo.n jsr plotpc@.9..ldy #$00@I:..lda ($fb),y@T:...a $fd@$:..sta ($fb),y@,:..rts@b:..plo.ff jsr plotpc@n:..lda $fd@z:B.e. #$ff@F:L.sta $fd@S: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@B;Z.ppa. jsr plo.n@X;..ppacnt inc xpixel@';..lda colour@2;... #$01@?;..bne ppb.@n;..jsr plo.ff@];..jmp ppbcnt@P;..ppb. jsr plo.n@.;..ppbcnt inc xpixel@.;..rts@.;..;       zoom calculati. routines@.;..nozoom jmp .rolop@.;..zoomin lda $d015@.;... #$f0@.;@.cmp #$f0@E<J.bne nozoom@R<T.lda #$1e@ <..sta $4100@-<(.lda #$01@;<2.sta $4101@h<<.lda #$10@v<f.sta $4102@G<p.jsr subtract@T<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@M=..lda #$11@[=..sta $4100@)=..sta $4102@6=..lda #$12@d=..sta $4101@r=..lda $d008@z=D.sec@G=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@.=..sta $4100@J>..lda #$13@X>..sta $4102@&>..jsr equal@3>..lda #$13@a>..sta $4100@o>..sta $4102@£>..lda #$12@J>..sta $4101@X>..lda $d00a@.>..sec@.>..sbc #$40@.>..calcinlopb cmp #$00@.>..beq calc.ib@.>H.pha@.>R.jsr additi.@.>£.pla@.>&.tax@.>0.dex@.>:.txa@@?d.jmp calcinlopb@U?n.calc.ib lda #$11@#?x.sta $4100@0?B.lda #$01@>?L.sta $4102@l?V.jsr equal@y?..lda #$13@G?..sta $4100@T?..lda #$1e@.?..sta $4102@.?..jsr equal@.?..lda #$1f@.?..sta $4100@.?..lda #$03@.?..sta $4101@.?..lda #$10@.?..sta $4102@.?..jsr subtract@.?..lda #$03@M@B.sta $4100@[@L.inc $4102@)@V.jsr equal@6@ .lda #$10@d@*.sta $4100@q@4.lda #$12@.@>.sta $4102@L@h.lda #$1a@Z@r.sta $4101@.@£.jsr multiply@.@F.lda #$11@.@P.sta $4100@.@Z.sta $4102@.@..lda #$12@.@..sta $4101@.@..lda $d009@.@..sec@.@..sbc #$32@Ha..calcinya cmp #$00@Xa..beq calc.ic@ a..pha@0a..jsr additi.@8a..pla@@a..tax@ha..dex@pa..txa@AaF.jmp calcinya@VaP.calc.ic lda #$03@.aZ.sta $4100@.a$.lda #$13@.a..sta $4102@.a8.jsr equal@.ab.lda #$13@.al.sta $4100@.av.sta $4102@.a..lda #$12@.aJ.sta $4101@.aT.lda $d00d@Gb..sec@Tb..sbc #$1d@*b..calcinyb cmp #$00@:b..beq calc.id@bb..pha@rb..jsr additi.@zb..pla@Bb..tax@Jb..dex@Rb..txa@.b..jmp calcinyb@.b..calc.id lda #$11@.b..sta $4100@.b@.lda #$03@.bJ.sta $4102@.bT.jsr equal@.b..lda #$13@.b(.sta $4100@.b2.lda #$1f@Ec<.sta $4102@Scf.jsr equal@ cp.lda #$1e@.cz.sta $4100@;cD.lda #$01@icN.sta $4101@vcX.lda #$10@Dc..sta $4102@Uc..jsr subtract@.c..lda #$10@.c..sta $4100@.c..lda #$1b@.c..sta $4101@.c..lda #$02@.c..sta $4102@.c..jsr multiply@.c..lda #$1f@.c..sta $4100@.c..lda #$03@Md..sta $4101@ZdD.lda #$10@(dN.sta $4102@9dX.jsr subtract@fd".lda #$10@td,.sta $4100@Ad6.lda #$1a@Od@.sta $4101@.dj.lda #$04@.dt.sta $4102@.d..jsr multiply@.dH.jsr m.le@.dR.jmp .rolop@.d..;                   zoom routines@.dJ.box lda xp@.dT.sta xpib@De..lda yp@Qe..sta ypib@]e..lda xpb@+e..sta xpbib@8e..ldx #$3c@fe..stx $07fc@ne..inx@£e..stx $07fd@De..inx@Re..stx $07fe@Ze..inx@.e..stx $07ff@.e..lda $d015@.e@..a #$f0@.eJ.sta $d015@.eT.box. lda click@.e..bne box.@.eX.boxloop lda xpbib@.e..cmp xpb@Df..beq checkfine@Uf..bcs lessthan@%f..jmp m.ethan@<f..checkfine lda xpib@gf..cmp xp@xf..bcs lessthan@Mf..m.ethan lda xpib@.f..sta $d008@.f..sta $d00c@.f..ldx #$00@.f..lda xpbib@.f..beq noxpbadd@.fD.ldx #$50@.fN.noxpbadd lda $d010@.fX.. #$af@.f".stx $02@.f,.clc@Dg6.adc $02@Rg@.sta $d010@.ge.ldx #$00@*gj.lda xp@2gt.sec@?g..sbc #$18@mgH.sta $d00a@[gR.sta $d00e@Ig..bcc mtsub@Ug..ldx xpb@.g..beq mtsub@.g..ldx #$a0@.g..mtsub lda $d010@.g... #$5f@.g..stx $02@.g..clc@.g..adc $02@.g..sta $d010@.g..jmp box.@.g..lessthan lda xp@Jh..ldx xpb@Wh..bne .out@$hH.cmp #$58@1hR.bcs .out@>h£.lda #$58@qh&..out sta $d008@.h0.sta $d00c@Lh:.cpx #$00@.hd.beq ltnoadd@.hn.ldx #$50@.hx.ltnoadd lda $d010@.hB.. #$af@.hL.stx $02@.hV.clc@.h..adc $02@.h..sta $d010@.h..ldx #$00@.h..lda xpib@.h..sec@Gi..sbc #$18@Ui..sta $d00a@#i..sta $d00e@1i..bcc ltsub@?i..ldx xpbib@mi..beq ltsub@zi..ldx #$a0@Ni..ltsub lda $d010@Yi... #$5f@.iB.stx $02@.iL.clc@.iV.adc $02@.i .sta $d010@.i*.box. lda yp@.i4.cmp ypib@.i>.bcc lessy@.ih.lda ypib@.ir.sta $d009@.i£.sta $d00b@FjF.lda yp@NjP.sec@[jZ.sbc #$15@)j..sta $d00d@7j..sta $d00f@fj..jmp box.ii@wj..lessy lda yp@Ej..sta $d009@Sj..sta $d00b@.j..lda ypib@.j..sec@.j..sbc #$15@.j..sta $d00d@.j..sta $d00f@.j..box.ii lda click@.j..bne box.@.jF.jmp boxloop@.jP.box. jmp .rolop@Lk0.boxflash lda $a2@Wk:.. #$3c@!kd.lsr a@+kn.lsr a@3kx.tax@ekB.lda boxcols,x@skL.sta $d02b@AkV.sta $d02c@Ok..sta $d02d@.k..sta $d02e@.k..jmp $ea31@.k..boxcols txt 0,9,2,8,10,7,13,1@.k..txt 1,13,3,5,14,4,6,0@.kX.; delete these!!@.k".cols jmp .rolop@Hl,.colcycle jmp .rolop@Yl@.. jmp .rolop@.lj..iti. jmp .rolop@elt.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 4b 09 18 01 3b 20  20 20 20 20 20 20 20 20  |E.K...;         |
00000130  20 20 20 20 20 20 20 20  20 20 20 20 20 52 4f 4d  |             ROM|
00000140  20 52 4f 55 54 49 4e 45  53 00 5c 09 22 01 4f 55  | ROUTINES.\.".OU|
00000150  54 44 4f 20 b2 24 41 42  34 37 00 84 09 2c 01 3b  |TDO .$AB47...,.;|
00000160  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000170  20 20 20 20 20 20 20 53  50 52 49 54 45 20 44 41  |       SPRITE DA|
00000180  54 41 00 8a 09 31 01 3b  00 b2 09 36 01 54 58 54  |TA...1.;...6.TXT|
00000190  20 32 32 34 2c 30 30 30  2c 30 30 30 2c 31 37 36  | 224,000,000,176|
000001a0  2c 30 30 30 2c 30 30 30  2c 31 35 32 2c 30 30 30  |,000,000,152,000|
000001b0  00 da 09 40 01 54 58 54  20 30 30 30 2c 31 34 30  |...@.TXT 000,140|
000001c0  2c 30 30 30 2c 30 30 30  2c 31 33 34 2c 30 30 30  |,000,000,134,000|
000001d0  2c 30 30 30 2c 31 33 31  00 02 0a 4a 01 54 58 54  |,000,131...J.TXT|
000001e0  20 30 30 30 2c 30 30 30  2c 31 32 39 2c 31 32 38  | 000,000,129,128|
000001f0  2c 30 30 30 2c 31 32 38  2c 31 39 32 2c 30 30 30  |,000,128,192,000|
00000200  00 2a 0a 54 01 54 58 54  20 31 32 38 2c 30 36 34  |.*.T.TXT 128,064|
00000210  2c 30 30 30 2c 31 34 37  2c 31 39 32 2c 30 30 30  |,000,147,192,000|
00000220  2c 31 38 35 2c 30 30 30  00 52 0a 5e 01 54 58 54  |,185,000.R.^.TXT|
00000230  20 30 30 30 2c 32 33 33  2c 30 30 30 2c 30 30 30  | 000,233,000,000|
00000240  2c 30 30 39 2c 31 32 38  2c 30 30 30 2c 30 31 32  |,009,128,000,012|
00000250  00 7a 0a 68 01 54 58 54  20 31 32 38 2c 30 30 30  |.z.h.TXT 128,000|
00000260  2c 30 30 34 2c 31 32 38  2c 30 30 30 2c 30 30 34  |,004,128,000,004|
00000270  2c 31 32 38 2c 30 30 30  00 a2 0a 72 01 54 58 54  |,128,000...r.TXT|
00000280  20 30 30 37 2c 31 32 38  2c 30 30 30 2c 30 30 30  | 007,128,000,000|
00000290  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000002a0  00 ca 0a 7c 01 54 58 54  20 30 30 30 2c 30 30 30  |...|.TXT 000,000|
000002b0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000002c0  2c 30 30 30 2c 31 35 33  00 d0 0a 81 01 3b 00 f8  |,000,153.....;..|
000002d0  0a 86 01 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
000002e0  30 30 2c 30 36 34 2c 30  30 30 2c 30 30 30 2c 30  |00,064,000,000,0|
000002f0  39 36 2c 30 30 30 00 20  0b 90 01 54 58 54 20 30  |96,000. ...TXT 0|
00000300  30 30 2c 31 31 32 2c 30  30 30 2c 30 30 30 2c 31  |00,112,000,000,1|
00000310  32 30 2c 30 30 30 2c 30  30 30 2c 31 32 34 00 48  |20,000,000,124.H|
00000320  0b 9a 01 54 58 54 20 30  30 30 2c 30 30 30 2c 31  |...TXT 000,000,1|
00000330  32 36 2c 30 30 30 2c 30  30 30 2c 31 32 37 2c 30  |26,000,000,127,0|
00000340  30 30 2c 30 30 30 00 70  0b a4 01 54 58 54 20 31  |00,000.p...TXT 1|
00000350  32 37 2c 31 32 38 2c 30  30 30 2c 31 30 38 2c 30  |27,128,000,108,0|
00000360  30 30 2c 30 30 30 2c 30  37 30 2c 30 30 30 00 98  |00,000,070,000..|
00000370  0b ae 01 54 58 54 20 30  30 30 2c 30 30 36 2c 30  |...TXT 000,006,0|
00000380  30 30 2c 30 30 30 2c 30  30 36 2c 30 30 30 2c 30  |00,000,006,000,0|
00000390  30 30 2c 30 30 33 00 c0  0b b8 01 54 58 54 20 30  |00,003.....TXT 0|
000003a0  30 30 2c 30 30 30 2c 30  30 33 2c 30 30 30 2c 30  |00,000,003,000,0|
000003b0  30 30 2c 30 30 33 2c 30  30 30 2c 30 30 30 00 e8  |00,003,000,000..|
000003c0  0b c2 01 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
000003d0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000003e0  30 30 2c 30 30 30 00 10  0c cc 01 54 58 54 20 30  |00,000.....TXT 0|
000003f0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000400  30 30 2c 30 30 30 2c 30  30 30 2c 31 35 33 00 16  |00,000,000,153..|
00000410  0c d1 01 3b 00 3e 0c d6  01 54 58 54 20 32 35 35  |...;.>...TXT 255|
00000420  2c 31 39 32 2c 30 30 30  2c 31 32 39 2c 30 36 34  |,192,000,129,064|
00000430  2c 30 30 30 2c 31 32 38  2c 30 36 34 00 66 0c e0  |,000,128,064.f..|
00000440  01 54 58 54 20 30 30 30  2c 31 32 39 2c 30 36 34  |.TXT 000,129,064|
00000450  2c 30 30 30 2c 30 36 36  2c 31 32 38 2c 30 30 30  |,000,066,128,000|
00000460  2c 30 36 34 00 8e 0c ea  01 54 58 54 20 31 32 38  |,064.....TXT 128|
00000470  2c 30 30 30 2c 30 35 31  2c 30 30 30 2c 30 30 30  |,000,051,000,000|
00000480  2c 30 31 32 2c 30 30 30  2c 30 30 30 00 b6 0c f4  |,012,000,000....|
00000490  01 54 58 54 20 30 35 35  2c 30 30 30 2c 30 30 30  |.TXT 055,000,000|
000004a0  2c 30 36 35 2c 31 32 38  2c 30 30 30 2c 30 36 36  |,065,128,000,066|
000004b0  2c 31 32 38 00 de 0c fe  01 54 58 54 20 30 30 30  |,128.....TXT 000|
000004c0  2c 31 32 39 2c 30 36 34  2c 30 30 30 2c 31 33 30  |,129,064,000,130|
000004d0  2c 31 39 32 2c 30 30 30  2c 31 33 33 00 06 0d 08  |,192,000,133....|
000004e0  02 54 58 54 20 30 36 34  2c 30 30 30 2c 32 35 35  |.TXT 064,000,255|
000004f0  2c 31 39 32 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,192,000,000,000|
00000500  2c 30 30 30 00 2e 0d 12  02 54 58 54 20 30 30 30  |,000.....TXT 000|
00000510  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000520  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 56 0d 1c  |,000,000,000.V..|
00000530  02 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000540  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000550  2c 31 39 37 00 5c 0d 21  02 3b 00 84 0d 26 02 54  |,197.\.!.;...&.T|
00000560  58 54 20 32 35 35 2c 31  39 32 2c 30 30 30 2c 32  |XT 255,192,000,2|
00000570  35 35 2c 31 39 32 2c 30  30 30 2c 32 35 35 2c 31  |55,192,000,255,1|
00000580  39 32 00 ac 0d 30 02 54  58 54 20 30 30 30 2c 32  |92...0.TXT 000,2|
00000590  35 35 2c 31 39 32 2c 30  30 30 2c 31 32 37 2c 31  |55,192,000,127,1|
000005a0  32 38 2c 30 30 30 2c 31  32 37 00 d4 0d 3a 02 54  |28,000,127...:.T|
000005b0  58 54 20 31 32 38 2c 30  30 30 2c 30 36 33 2c 30  |XT 128,000,063,0|
000005c0  30 30 2c 30 30 30 2c 30  31 32 2c 30 30 30 2c 30  |00,000,012,000,0|
000005d0  30 30 00 fc 0d 44 02 54  58 54 20 30 36 33 2c 30  |00...D.TXT 063,0|
000005e0  30 30 2c 30 30 30 2c 31  32 37 2c 31 32 38 2c 30  |00,000,127,128,0|
000005f0  30 30 2c 31 32 37 2c 31  32 38 00 24 0e 4e 02 54  |00,127,128.$.N.T|
00000600  58 54 20 30 30 30 2c 32  35 35 2c 31 39 32 2c 30  |XT 000,255,192,0|
00000610  30 30 2c 32 35 35 2c 31  39 32 2c 30 30 30 2c 32  |00,255,192,000,2|
00000620  35 35 00 4c 0e 58 02 54  58 54 20 31 39 32 2c 30  |55.L.X.TXT 192,0|
00000630  30 30 2c 32 35 35 2c 31  39 32 2c 30 30 30 2c 30  |00,255,192,000,0|
00000640  30 30 2c 30 30 30 2c 30  30 30 00 74 0e 62 02 54  |00,000,000.t.b.T|
00000650  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000660  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000670  30 30 00 9c 0e 6c 02 54  58 54 20 30 30 30 2c 30  |00...l.TXT 000,0|
00000680  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000690  30 30 2c 30 30 30 2c 31  39 37 00 a2 0e 71 02 3b  |00,000,197...q.;|
000006a0  00 ca 0e 76 02 54 58 54  20 31 36 38 2c 30 30 30  |...v.TXT 168,000|
000006b0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000006c0  2c 31 32 38 2c 30 30 30  00 f2 0e 80 02 54 58 54  |,128,000.....TXT|
000006d0  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
000006e0  2c 31 32 38 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,128,000,000,000|
000006f0  00 1a 0f 8a 02 54 58 54  20 30 30 30 2c 30 30 30  |.....TXT 000,000|
00000700  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000710  2c 30 30 30 2c 30 30 30  00 42 0f 94 02 54 58 54  |,000,000.B...TXT|
00000720  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000730  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000740  00 6a 0f 9e 02 54 58 54  20 30 30 30 2c 30 30 30  |.j...TXT 000,000|
00000750  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000760  2c 30 30 30 2c 30 30 30  00 92 0f a8 02 54 58 54  |,000,000.....TXT|
00000770  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
00000780  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000790  00 ba 0f b2 02 54 58 54  20 30 30 30 2c 30 30 30  |.....TXT 000,000|
000007a0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000007b0  2c 30 30 30 2c 30 30 30  00 e2 0f bc 02 54 58 54  |,000,000.....TXT|
000007c0  20 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  | 000,000,000,000|
000007d0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 31 39 37  |,000,000,000,197|
000007e0  00 e8 0f c1 02 3b 00 10  10 c6 02 54 58 54 20 30  |.....;.....TXT 0|
000007f0  30 30 2c 30 30 30 2c 30  32 31 2c 30 30 30 2c 30  |00,000,021,000,0|
00000800  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 38  |00,000,000,000.8|
00000810  10 d0 02 54 58 54 20 30  30 31 2c 30 30 30 2c 30  |...TXT 001,000,0|
00000820  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000830  30 31 2c 30 30 30 00 60  10 da 02 54 58 54 20 30  |01,000.`...TXT 0|
00000840  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000850  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 88  |00,000,000,000..|
00000860  10 e4 02 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
00000870  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000880  30 30 2c 30 30 30 00 b0  10 ee 02 54 58 54 20 30  |00,000.....TXT 0|
00000890  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000008a0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 d8  |00,000,000,000..|
000008b0  10 f8 02 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
000008c0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000008d0  30 30 2c 30 30 30 00 00  11 02 03 54 58 54 20 30  |00,000.....TXT 0|
000008e0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
000008f0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 00 28  |00,000,000,000.(|
00000900  11 0c 03 54 58 54 20 30  30 30 2c 30 30 30 2c 30  |...TXT 000,000,0|
00000910  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000920  30 30 2c 30 30 30 00 2e  11 11 03 3b 00 56 11 16  |00,000.....;.V..|
00000930  03 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000940  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000950  2c 30 30 30 00 7e 11 20  03 54 58 54 20 30 30 30  |,000.~. .TXT 000|
00000960  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000970  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 a6 11 2a  |,000,000,000...*|
00000980  03 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
00000990  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000009a0  2c 30 30 30 00 ce 11 34  03 54 58 54 20 30 30 30  |,000...4.TXT 000|
000009b0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000009c0  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 f6 11 3e  |,000,000,000...>|
000009d0  03 54 58 54 20 30 30 30  2c 30 30 30 2c 30 30 30  |.TXT 000,000,000|
000009e0  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
000009f0  2c 30 30 30 00 1e 12 48  03 54 58 54 20 30 30 30  |,000...H.TXT 000|
00000a00  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 30 30 30  |,000,000,000,000|
00000a10  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 46 12 52  |,000,000,000.F.R|
00000a20  03 54 58 54 20 31 32 38  2c 30 30 30 2c 30 30 30  |.TXT 128,000,000|
00000a30  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 31 32 38  |,000,000,000,128|
00000a40  2c 30 30 30 00 6e 12 5c  03 54 58 54 20 30 30 30  |,000.n.\.TXT 000|
00000a50  2c 30 30 30 2c 30 30 30  2c 30 30 30 2c 31 36 38  |,000,000,000,168|
00000a60  2c 30 30 30 2c 30 30 30  2c 30 30 30 00 74 12 61  |,000,000,000.t.a|
00000a70  03 3b 00 9c 12 66 03 54  58 54 20 30 30 30 2c 30  |.;...f.TXT 000,0|
00000a80  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000a90  30 30 2c 30 30 30 2c 30  30 30 00 c4 12 70 03 54  |00,000,000...p.T|
00000aa0  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000ab0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000ac0  30 30 00 ec 12 7a 03 54  58 54 20 30 30 30 2c 30  |00...z.TXT 000,0|
00000ad0  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000ae0  30 30 2c 30 30 30 2c 30  30 30 00 14 13 84 03 54  |00,000,000.....T|
00000af0  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000b00  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000b10  30 30 00 3c 13 8e 03 54  58 54 20 30 30 30 2c 30  |00.<...TXT 000,0|
00000b20  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000b30  30 30 2c 30 30 30 2c 30  30 30 00 64 13 98 03 54  |00,000,000.d...T|
00000b40  58 54 20 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |XT 000,000,000,0|
00000b50  30 30 2c 30 30 30 2c 30  30 30 2c 30 30 30 2c 30  |00,000,000,000,0|
00000b60  30 30 00 8c 13 a2 03 54  58 54 20 30 30 30 2c 30  |00.....TXT 000,0|
00000b70  30 30 2c 30 30 31 2c 30  30 30 2c 30 30 30 2c 30  |00,001,000,000,0|
00000b80  30 30 2c 30 30 30 2c 30  30 30 00 b4 13 ac 03 54  |00,000,000.....T|
00000b90  58 54 20 30 30 31 2c 30  30 30 2c 30 30 30 2c 30  |XT 001,000,000,0|
00000ba0  30 30 2c 30 30 30 2c 30  30 30 2c 30 32 31 2c 30  |00,000,000,021,0|
00000bb0  30 30 00 ba 13 b1 03 3b  00 dd 13 10 27 3b 20 20  |00.....;....';  |
00000bc0  20 20 20 20 20 20 20 20  20 4d 41 49 4e 20 9a 52  |         MAIN .R|
00000bd0  4f 4c 20 52 4f 55 54 49  4e 45 53 00 ea 13 1a 27  |OL ROUTINES....'|
00000be0  4a 53 52 20 49 4e 49 54  00 02 14 24 27 43 4f 4d  |JSR INIT...$'COM|
00000bf0  45 42 41 43 4b 20 4a 53  52 20 48 49 52 45 53 91  |EBACK JSR HIRES.|
00000c00  00 17 14 2e 27 9a 52 4f  4c 4f 50 20 4c 44 41 20  |....'.ROLOP LDA |
00000c10  43 4c 49 43 4b 00 26 14  38 27 42 4e 45 20 9a 52  |CLICK.&.8'BNE .R|
00000c20  4f 4c 4f 50 00 3a 14 42  27 9a 4c 4f 50 42 20 4c  |OLOP.:.B'.LOPB L|
00000c30  44 41 20 43 4c 49 43 4b  00 48 14 4c 27 42 45 51  |DA CLICK.H.L'BEQ|
00000c40  20 9a 4c 4f 50 42 00 53  14 56 27 4c 44 41 20 58  | .LOPB.S.V'LDA X|
00000c50  50 00 60 14 60 27 43 4d  50 20 23 24 35 38 00 6b  |P.`.`'CMP #$58.k|
00000c60  14 6a 27 42 43 43 20 9a  9a 00 77 14 74 27 4a 4d  |.j'BCC ...w.t'JM|
00000c70  50 20 42 4f 58 00 85 14  7e 27 9a 9a 20 4c 44 41  |P BOX...~'.. LDA|
00000c80  20 59 50 00 8d 14 88 27  53 45 43 00 9a 14 92 27  | YP....'SEC....'|
00000c90  53 42 43 20 23 24 35 41  00 a4 14 9c 27 4c 53 52  |SBC #$5A....'LSR|
00000ca0  20 41 00 ae 14 a6 27 4c  53 52 20 41 00 b9 14 b0  | A....'LSR A....|
00000cb0  27 af 20 23 24 46 45 00  c1 14 ba 27 54 41 58 00  |'. #$FE....'TAX.|
00000cc0  d2 14 c4 27 4c 44 41 20  56 45 43 a4 52 53 2c 58  |...'LDA VEC.RS,X|
00000cd0  00 de 14 ce 27 53 54 41  20 24 46 42 00 e6 14 d8  |....'STA $FB....|
00000ce0  27 49 4e 58 00 f7 14 e2  27 4c 44 41 20 56 45 43  |'INX....'LDA VEC|
00000cf0  a4 52 53 2c 58 00 03 15  ec 27 53 54 41 20 24 46  |.RS,X....'STA $F|
00000d00  43 00 13 15 f6 27 4a 4d  50 20 28 24 30 30 46 42  |C....'JMP ($00FB|
00000d10  29 00 54 15 00 28 56 45  43 a4 52 53 20 54 58 54  |).T..(VEC.RS TXT|
00000d20  20 b3 5a 4f 4f 4d 4f 55  54 2c b1 5a 4f 4f 4d 4f  | .ZOOMOUT,.ZOOMO|
00000d30  55 54 2c b3 9a 52 4f 4c  4f 50 2c b1 9a 52 4f 4c  |UT,..ROLOP,..ROL|
00000d40  4f 50 2c b3 5a 4f 4f 4d  49 4e 2c b1 5a 4f 4f 4d  |OP,.ZOOMIN,.ZOOM|
00000d50  49 4e 00 8a 15 0a 28 54  58 54 20 b3 9a 52 4f 4c  |IN....(TXT ..ROL|
00000d60  4f 50 2c b1 9a 52 4f 4c  4f 50 2c b3 b9 49 54 49  |OP,..ROLOP,..ITI|
00000d70  91 2c b1 b9 49 54 49 91  2c b3 9a 52 4f 4c 4f 50  |.,..ITI.,..ROLOP|
00000d80  2c b1 9a 52 4f 4c 4f 50  00 be 15 14 28 54 58 54  |,..ROLOP....(TXT|
00000d90  20 b3 9a 52 4f 4c 4f 50  2c b1 9a 52 4f 4c 4f 50  | ..ROLOP,..ROLOP|
00000da0  2c b3 43 4f 4c 53 2c b1  43 4f 4c 53 2c b3 9a 52  |,.COLS,.COLS,..R|
00000db0  4f 4c 4f 50 2c b1 9a 52  4f 4c 4f 50 00 fa 15 1e  |OLOP,..ROLOP....|
00000dc0  28 54 58 54 20 b3 43 4f  4c 43 59 43 4c 45 2c b1  |(TXT .COLCYCLE,.|
00000dd0  43 4f 4c 43 59 43 4c 45  2c b3 9a 52 4f 4c 4f 50  |COLCYCLE,..ROLOP|
00000de0  2c b1 9a 52 4f 4c 4f 50  2c b3 4d af 50 4c 4f 54  |,..ROLOP,.M.PLOT|
00000df0  2c b1 4d af 50 4c 4f 54  00 2e 16 28 28 54 58 54  |,.M.PLOT...((TXT|
00000e00  20 b3 9a 52 4f 4c 4f 50  2c b1 9a 52 4f 4c 4f 50  | ..ROLOP,..ROLOP|
00000e10  2c b3 9a 52 4f 4c 4f 50  2c b1 9a 52 4f 4c 4f 50  |,..ROLOP,..ROLOP|
00000e20  2c b3 45 58 49 54 2c b1  45 58 49 54 00 62 16 32  |,.EXIT,.EXIT.b.2|
00000e30  28 54 58 54 20 b3 9a 52  4f 4c 4f 50 2c b1 9a 52  |(TXT ..ROLOP,..R|
00000e40  4f 4c 4f 50 2c b3 e1 2c  b1 e1 2c b3 9a 52 4f 4c  |OLOP,..,..,..ROL|
00000e50  4f 50 2c b1 9a 52 4f 4c  4f 50 2c b3 e4 2c b1 e4  |OP,..ROLOP,..,..|
00000e60  00 9a 16 3c 28 54 58 54  20 b3 9a 52 4f 4c 4f 50  |...<(TXT ..ROLOP|
00000e70  2c b1 9a 52 4f 4c 4f 50  2c b3 9a 52 4f 4c 4f 50  |,..ROLOP,..ROLOP|
*
00000e90  2c b1 9a 52 4f 4c 4f 50  00 b0 16 04 29 45 58 49  |,..ROLOP....)EXI|
00000ea0  54 20 4a 53 52 20 48 49  52 45 53 4f 46 46 00 bd  |T JSR HIRESOFF..|
00000eb0  16 0e 29 4c 44 41 20 23  24 39 33 00 cb 16 18 29  |..)LDA #$93....)|
00000ec0  4a 53 52 20 4f 55 54 44  4f 00 d8 16 22 29 4c 44  |JSR OUTDO...")LD|
00000ed0  41 20 23 24 30 35 00 e6  16 2c 29 4a 53 52 20 4f  |A #$05...,)JSR O|
00000ee0  55 54 44 4f 00 ee 16 36  29 52 54 53 00 14 17 e0  |UTDO...6)RTS....|
00000ef0  2e 3b 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;              |
00000f00  20 20 20 20 20 57 49 4d  50 20 52 4f 55 54 49 4e  |     WIMP ROUTIN|
00000f10  45 53 00 27 17 f4 2e 3b  20 57 49 4d 50 20 2d 20  |ES.'...; WIMP - |
00000f20  4d 4f 55 53 45 00 38 17  fe 2e 49 52 51 20 4c 44  |MOUSE.8...IRQ LD|
00000f30  41 20 23 24 30 30 00 46  17 08 2f 53 54 41 20 43  |A #$00.F../STA C|
00000f40  4c 49 43 4b 00 52 17 12  2f 4c 44 41 20 24 43 35  |LICK.R../LDA $C5|
00000f50  00 5f 17 1c 2f 43 4d 50  20 23 24 30 31 00 6f 17  |._../CMP #$01.o.|
00000f60  26 2f 42 4e 45 20 43 91  43 48 45 43 4b 00 7d 17  |&/BNE C.CHECK.}.|
00000f70  30 2f 53 54 41 20 43 4c  49 43 4b 00 92 17 3a 2f  |0/STA CLICK...:/|
00000f80  43 91 43 48 45 43 4b 20  43 4d 50 20 23 24 30 43  |C.CHECK CMP #$0C|
00000f90  00 a0 17 44 2f 42 45 51  20 4c 45 46 54 4b 00 b1  |...D/BEQ LEFTK..|
00000fa0  17 4e 2f 4c 4b 43 20 43  4d 50 20 23 24 31 37 00  |.N/LKC CMP #$17.|
00000fb0  c0 17 58 2f 42 45 51 20  52 49 47 48 54 4b 00 d1  |..X/BEQ RIGHTK..|
00000fc0  17 62 2f 52 4b 43 20 43  4d 50 20 23 24 33 32 00  |.b/RKC CMP #$32.|
00000fd0  dd 17 6c 2f 42 45 51 20  55 50 4b 00 ef 17 76 2f  |..l/BEQ UPK...v/|
00000fe0  55 50 4b 43 20 43 4d 50  20 23 24 33 37 00 fd 17  |UPKC CMP #$37...|
00000ff0  80 2f 42 45 51 20 44 4f  57 4e 4b 00 0f 18 8a 2f  |./BEQ DOWNK..../|
00001000  44 4b 43 20 4c 44 41 20  24 44 43 30 30 00 1a 18  |DKC LDA $DC00...|
00001010  9e 2f af 20 23 24 30 31  00 26 18 a8 2f 42 45 51  |./. #$01.&../BEQ|
00001020  20 55 50 4a 00 38 18 b2  2f 55 4a 43 20 4c 44 41  | UPJ.8../UJC LDA|
00001030  20 24 44 43 30 30 00 43  18 bc 2f af 20 23 24 30  | $DC00.C../. #$0|
00001040  32 00 51 18 c6 2f 42 45  51 20 44 4f 57 4e 4a 00  |2.Q../BEQ DOWNJ.|
00001050  63 18 d0 2f 44 4a 43 20  4c 44 41 20 24 44 43 30  |c../DJC LDA $DC0|
00001060  30 00 6e 18 da 2f af 20  23 24 30 34 00 7c 18 e4  |0.n../. #$04.|..|
00001070  2f 42 45 51 20 4c 45 46  54 4a 00 8e 18 ee 2f 4c  |/BEQ LEFTJ..../L|
00001080  4a 43 20 4c 44 41 20 24  44 43 30 30 00 99 18 f8  |JC LDA $DC00....|
00001090  2f af 20 23 24 30 38 00  a8 18 02 30 42 45 51 20  |/. #$08....0BEQ |
000010a0  52 49 47 48 54 4a 00 ba  18 0c 30 52 4a 43 20 4c  |RIGHTJ....0RJC L|
000010b0  44 41 20 24 44 43 30 30  00 c5 18 16 30 af 20 23  |DA $DC00....0. #|
000010c0  24 31 30 00 d1 18 20 30  45 b0 20 23 24 31 30 00  |$10... 0E. #$10.|
000010d0  de 18 2a 30 42 45 51 20  43 4a 43 48 00 ec 18 34  |..*0BEQ CJCH...4|
000010e0  30 53 54 41 20 43 4c 49  43 4b 00 02 19 3e 30 43  |0STA CLICK...>0C|
000010f0  4a 43 48 20 4a 4d 50 20  42 4f 58 46 4c 41 53 48  |JCH JMP BOXFLASH|
00001100  00 15 19 48 30 4c 45 46  54 4b 20 4a 53 52 20 4c  |...H0LEFTK JSR L|
00001110  45 46 54 00 21 19 52 30  4a 4d 50 20 4c 4b 43 00  |EFT.!.R0JMP LKC.|
00001120  36 19 5c 30 52 49 47 48  54 4b 20 4a 53 52 20 52  |6.\0RIGHTK JSR R|
00001130  49 47 48 54 00 42 19 66  30 4a 4d 50 20 52 4b 43  |IGHT.B.f0JMP RKC|
00001140  00 51 19 70 30 55 50 4b  20 4a 53 52 20 55 50 00  |.Q.p0UPK JSR UP.|
00001150  5e 19 7a 30 4a 4d 50 20  55 50 4b 43 00 71 19 84  |^.z0JMP UPKC.q..|
00001160  30 44 4f 57 4e 4b 20 4a  53 52 20 44 4f 57 4e 00  |0DOWNK JSR DOWN.|
00001170  7d 19 8e 30 4a 4d 50 20  44 4b 43 00 8c 19 98 30  |}..0JMP DKC....0|
00001180  55 50 4a 20 4a 53 52 20  55 50 00 98 19 a2 30 4a  |UPJ JSR UP....0J|
00001190  4d 50 20 55 4a 43 00 ab  19 ac 30 44 4f 57 4e 4a  |MP UJC....0DOWNJ|
000011a0  20 4a 53 52 20 44 4f 57  4e 00 b7 19 b6 30 4a 4d  | JSR DOWN....0JM|
000011b0  50 20 44 4a 43 00 ca 19  c0 30 4c 45 46 54 4a 20  |P DJC....0LEFTJ |
000011c0  4a 53 52 20 4c 45 46 54  00 d6 19 ca 30 4a 4d 50  |JSR LEFT....0JMP|
000011d0  20 4c 4a 43 00 eb 19 d4  30 52 49 47 48 54 4a 20  | LJC....0RIGHTJ |
000011e0  4a 53 52 20 52 49 47 48  54 00 f7 19 de 30 4a 4d  |JSR RIGHT....0JM|
000011f0  50 20 52 4a 43 00 07 1a  e8 30 4c 45 46 54 20 44  |P RJC....0LEFT D|
00001200  45 43 20 58 50 00 12 1a  f2 30 4c 44 41 20 58 50  |EC XP....0LDA XP|
00001210  00 1f 1a fc 30 43 4d 50  20 23 24 46 46 00 2b 1a  |....0CMP #$FF.+.|
00001220  06 31 42 4e 45 20 a8 46  46 00 38 1a 10 31 4c 44  |.1BNE .FF.8..1LD|
00001230  59 20 23 24 30 30 00 44  1a 1a 31 53 54 59 20 58  |Y #$00.D..1STY X|
00001240  50 42 00 54 1a 24 31 a8  46 46 20 4c 44 59 20 58  |PB.T.$1.FF LDY X|
00001250  50 42 00 60 1a 2e 31 42  4e 45 20 46 49 4e 00 6d  |PB.`..1BNE FIN.m|
00001260  1a 38 31 43 4d 50 20 23  24 31 38 00 79 1a 42 31  |.81CMP #$18.y.B1|
00001270  42 4e 45 20 46 49 4e 00  84 1a 4c 31 49 4e 43 20  |BNE FIN...L1INC |
00001280  58 50 00 95 1a 56 31 46  49 4e 20 4a 4d 50 20 9a  |XP...V1FIN JMP .|
00001290  52 4f 4c 00 a6 1a 60 31  52 49 47 48 54 20 49 4e  |ROL...`1RIGHT IN|
000012a0  43 20 58 50 00 b1 1a 6a  31 4c 44 41 20 58 50 00  |C XP...j1LDA XP.|
000012b0  bd 1a 74 31 42 4e 45 20  a8 30 30 00 ca 1a 7e 31  |..t1BNE .00...~1|
000012c0  4c 44 59 20 23 24 30 31  00 d6 1a 88 31 53 54 59  |LDY #$01....1STY|
000012d0  20 58 50 42 00 e6 1a 92  31 a8 30 30 20 4c 44 59  | XPB....1.00 LDY|
000012e0  20 58 50 42 00 f2 1a 9c  31 42 45 51 20 46 49 4e  | XPB....1BEQ FIN|
000012f0  00 ff 1a a6 31 43 4d 50  20 23 24 35 38 00 0b 1b  |....1CMP #$58...|
00001300  b0 31 42 4e 45 20 46 49  4e 00 16 1b ba 31 44 45  |.1BNE FIN....1DE|
00001310  43 20 58 50 00 23 1b c4  31 4a 4d 50 20 9a 52 4f  |C XP.#..1JMP .RO|
00001320  4c 00 31 1b ce 31 55 50  20 44 45 43 20 59 50 00  |L.1..1UP DEC YP.|
00001330  3c 1b d8 31 4c 44 41 20  59 50 00 49 1b e2 31 43  |<..1LDA YP.I..1C|
00001340  4d 50 20 23 24 33 32 00  55 1b ec 31 42 4e 45 20  |MP #$32.U..1BNE |
00001350  46 49 4e 00 60 1b f6 31  49 4e 43 20 59 50 00 6d  |FIN.`..1INC YP.m|
00001360  1b 00 32 4a 4d 50 20 9a  52 4f 4c 00 7d 1b 0a 32  |..2JMP .ROL.}..2|
00001370  44 4f 57 4e 20 49 4e 43  20 59 50 00 88 1b 14 32  |DOWN INC YP....2|
00001380  4c 44 41 20 59 50 00 95  1b 1e 32 43 4d 50 20 23  |LDA YP....2CMP #|
00001390  24 46 38 00 a1 1b 28 32  42 4e 45 20 46 49 4e 00  |$F8...(2BNE FIN.|
000013a0  ac 1b 32 32 44 45 43 20  59 50 00 b9 1b 3c 32 4a  |..22DEC YP...<2J|
000013b0  4d 50 20 9a 52 4f 4c 00  cc 1b 46 32 3b 20 57 49  |MP .ROL...F2; WI|
000013c0  4d 50 20 ab 20 50 4f b5  45 52 00 de 1b 50 32 9a  |MP . PO.ER...P2.|
000013d0  52 4f 4c 20 4c 44 41 20  48 4f 55 52 00 ee 1b 5a  |ROL LDA HOUR...Z|
000013e0  32 42 45 51 20 4e 48 47  4c 41 53 53 00 fb 1b 9a  |2BEQ NHGLASS....|
000013f0  33 4c 44 58 20 23 24 33  41 00 09 1c a4 33 53 54  |3LDX #$3A....3ST|
00001400  58 20 24 30 37 46 38 00  11 1c ae 33 49 4e 58 00  |X $07F8....3INX.|
00001410  1f 1c b8 33 53 54 58 20  24 30 37 46 39 00 32 1c  |...3STX $07F9.2.|
00001420  c2 33 4e 48 47 4c 41 53  53 20 4c 44 41 20 58 50  |.3NHGLASS LDA XP|
00001430  00 40 1c cc 33 53 54 41  20 24 44 30 30 30 00 4e  |.@..3STA $D000.N|
00001440  1c d6 33 53 54 41 20 24  44 30 30 32 00 59 1c e0  |..3STA $D002.Y..|
00001450  33 4c 44 41 20 59 50 00  67 1c ea 33 53 54 41 20  |3LDA YP.g..3STA |
00001460  24 44 30 30 31 00 75 1c  f4 33 53 54 41 20 24 44  |$D001.u..3STA $D|
00001470  30 30 33 00 83 1c fe 33  4c 44 41 20 24 44 30 31  |003....3LDA $D01|
00001480  30 00 8e 1c 08 34 af 20  23 24 46 43 00 98 1c 12  |0....4. #$FC....|
00001490  34 4c 53 52 20 41 00 a0  1c 1c 34 43 4c 43 00 ac  |4LSR A....4CLC..|
000014a0  1c 26 34 41 44 43 20 58  50 42 00 b6 1c 30 34 41  |.&4ADC XPB...04A|
000014b0  53 4c 20 41 00 be 1c 3a  34 43 4c 43 00 ca 1c 44  |SL A...:4CLC...D|
000014c0  34 41 44 43 20 58 50 42  00 d8 1c 4e 34 53 54 41  |4ADC XPB...N4STA|
000014d0  20 24 44 30 31 30 00 e5  1c 58 34 4c 44 41 20 23  | $D010...X4LDA #|
000014e0  24 30 30 00 f3 1c 62 34  53 54 41 20 24 44 30 32  |$00...b4STA $D02|
000014f0  37 00 00 1d 6c 34 4c 44  41 20 23 24 30 31 00 0e  |7...l4LDA #$01..|
00001500  1d 76 34 53 54 41 20 24  44 30 32 38 00 1c 1d 80  |.v4STA $D028....|
00001510  34 4c 44 41 20 24 44 30  31 35 00 28 1d 8a 34 b0  |4LDA $D015.(..4.|
00001520  41 20 23 24 30 33 00 36  1d 94 34 53 54 41 20 24  |A #$03.6..4STA $|
00001530  44 30 31 35 00 43 1d 9e  34 4c 44 41 20 48 4f 55  |D015.C..4LDA HOU|
00001540  52 00 50 1d a8 34 42 4e  45 20 51 54 52 4f 00 5d  |R.P..4BNE QTRO.]|
00001550  1d b2 34 4c 44 58 20 23  24 33 38 00 6b 1d bc 34  |..4LDX #$38.k..4|
00001560  53 54 58 20 24 30 37 46  38 00 73 1d c6 34 49 4e  |STX $07F8.s..4IN|
00001570  58 00 81 1d d0 34 53 54  58 20 24 30 37 46 39 00  |X....4STX $07F9.|
00001580  8e 1d da 34 51 54 52 4f  20 52 54 53 00 a5 1d e4  |...4QTRO RTS....|
00001590  34 3b 20 53 54 41 52 54  55 50 20 52 4f 55 54 49  |4; STARTUP ROUTI|
000015a0  4e 45 53 00 b7 1d ee 34  49 4e 49 54 20 4c 44 41  |NES....4INIT LDA|
000015b0  20 23 24 30 30 00 c5 1d  f8 34 53 54 41 20 24 44  | #$00....4STA $D|
000015c0  30 32 30 00 d3 1d 02 35  53 54 41 20 24 44 30 32  |020....5STA $D02|
000015d0  31 00 de 1d 0c 35 53 54  41 20 58 50 00 eb 1d 16  |1....5STA XP....|
000015e0  35 53 54 41 20 48 4f 55  52 00 f9 1d 20 35 53 54  |5STA HOUR... 5ST|
000015f0  41 20 24 44 30 31 35 00  06 1e 2a 35 4c 44 41 20  |A $D015...*5LDA |
00001600  23 24 30 31 00 12 1e 34  35 53 54 41 20 58 50 42  |#$01...45STA XPB|
00001610  00 1f 1e 3e 35 4c 44 41  20 23 24 38 30 00 2a 1e  |...>5LDA #$80.*.|
00001620  48 35 53 54 41 20 59 50  00 3e 1e 52 35 48 49 52  |H5STA YP.>.R5HIR|
00001630  45 53 91 20 4c 44 41 20  23 24 33 42 00 4c 1e 5c  |ES. LDA #$3B.L.\|
00001640  35 53 54 41 20 24 44 30  31 31 00 59 1e 66 35 4c  |5STA $D011.Y.f5L|
00001650  44 41 20 23 24 44 38 00  67 1e 70 35 53 54 41 20  |DA #$D8.g.p5STA |
00001660  24 44 30 31 36 00 74 1e  7a 35 4c 44 41 20 23 24  |$D016.t.z5LDA #$|
00001670  30 30 00 80 1e 84 35 53  54 41 20 24 46 42 00 88  |00....5STA $FB..|
00001680  1e 8e 35 54 41 59 00 95  1e 98 35 4c 44 41 20 23  |..5TAY....5LDA #|
00001690  24 30 34 00 a1 1e a2 35  53 54 41 20 24 46 43 00  |$04....5STA $FC.|
000016a0  ae 1e ac 35 4c 44 41 20  23 24 37 45 00 c3 1e b6  |...5LDA #$7E....|
000016b0  35 46 4c 4f 50 20 53 54  41 20 28 24 46 42 29 2c  |5FLOP STA ($FB),|
000016c0  59 00 cb 1e c0 35 49 4e  59 00 db 1e ca 35 42 45  |Y....5INY....5BE|
000016d0  51 20 46 4c 4f 50 49 4e  43 00 e8 1e d4 35 43 50  |Q FLOPINC....5CP|
000016e0  59 20 23 24 46 38 00 f5  1e de 35 42 4e 45 20 46  |Y #$F8....5BNE F|
000016f0  4c 4f 50 00 01 1f e8 35  4c 44 58 20 24 46 43 00  |LOP....5LDX $FC.|
00001700  0e 1f f2 35 43 50 58 20  23 24 30 37 00 1b 1f fc  |...5CPX #$07....|
00001710  35 42 4e 45 20 46 4c 4f  50 00 28 1f 06 36 4a 53  |5BNE FLOP.(..6JS|
00001720  52 20 4c 45 46 54 00 30  1f 10 36 53 45 49 00 3e  |R LEFT.0..6SEI.>|
00001730  1f 1a 36 4c 44 41 20 23  b3 49 52 51 00 4c 1f 24  |..6LDA #.IRQ.L.$|
00001740  36 53 54 41 20 24 30 33  31 34 00 5a 1f 2e 36 4c  |6STA $0314.Z..6L|
00001750  44 41 20 23 b1 49 52 51  00 68 1f 38 36 53 54 41  |DA #.IRQ.h.86STA|
00001760  20 24 30 33 31 35 00 70  1f 42 36 43 4c 49 00 7d  | $0315.p.B6CLI.}|
00001770  1f 4c 36 4c 44 41 20 23  24 44 38 00 89 1f 56 36  |.L6LDA #$D8...V6|
00001780  53 54 41 20 24 46 43 00  96 1f 60 36 4c 44 41 20  |STA $FC...`6LDA |
00001790  23 24 30 32 00 a3 1f 6a  36 4c 44 59 20 23 24 30  |#$02...j6LDY #$0|
000017a0  30 00 b9 1f 74 36 46 4c  4f 50 42 20 53 54 41 20  |0...t6FLOPB STA |
000017b0  28 24 46 42 29 2c 59 00  c1 1f 7e 36 49 4e 59 00  |($FB),Y...~6INY.|
000017c0  cf 1f 88 36 42 4e 45 20  46 4c 4f 50 42 00 db 1f  |...6BNE FLOPB...|
000017d0  92 36 49 4e 43 20 24 46  43 00 e7 1f 9c 36 4c 44  |.6INC $FC....6LD|
000017e0  58 20 24 46 43 00 f4 1f  a6 36 43 50 58 20 23 24  |X $FC....6CPX #$|
000017f0  44 43 00 02 20 b0 36 42  4e 45 20 46 4c 4f 50 42  |DC.. .6BNE FLOPB|
00001800  00 0f 20 ba 36 4c 44 41  20 23 24 31 38 00 1d 20  |.. .6LDA #$18.. |
00001810  c4 36 53 54 41 20 24 44  30 31 38 00 25 20 34 3a  |.6STA $D018.% 4:|
00001820  52 54 53 00 39 20 3e 3a  46 4c 4f 50 49 4e 43 20  |RTS.9 >:FLOPINC |
00001830  49 4e 43 20 24 46 43 00  46 20 48 3a 4a 4d 50 20  |INC $FC.F H:JMP |
00001840  46 4c 4f 50 00 57 20 52  3a 48 49 52 45 53 4f 46  |FLOP.W R:HIRESOF|
00001850  46 20 53 45 49 00 64 20  5c 3a 4c 44 41 20 23 24  |F SEI.d \:LDA #$|
00001860  33 31 00 72 20 66 3a 53  54 41 20 24 30 33 31 34  |31.r f:STA $0314|
00001870  00 7f 20 70 3a 4c 44 41  20 23 24 45 41 00 8d 20  |.. p:LDA #$EA.. |
00001880  7a 3a 53 54 41 20 24 30  33 31 35 00 95 20 84 3a  |z:STA $0315.. .:|
00001890  43 4c 49 00 a2 20 8e 3a  4c 44 41 20 23 24 30 30  |CLI.. .:LDA #$00|
000018a0  00 b0 20 98 3a 53 54 41  20 24 44 30 31 35 00 bd  |.. .:STA $D015..|
000018b0  20 a2 3a 4c 44 41 20 23  24 39 42 00 cb 20 ac 3a  | .:LDA #$9B.. .:|
000018c0  53 54 41 20 24 44 30 31  31 00 d8 20 b6 3a 4c 44  |STA $D011.. .:LD|
000018d0  41 20 23 24 43 38 00 e6  20 c0 3a 53 54 41 20 24  |A #$C8.. .:STA $|
000018e0  44 30 31 36 00 f3 20 c3  3a 4c 44 41 20 23 24 31  |D016.. .:LDA #$1|
000018f0  35 00 01 21 c6 3a 53 54  41 20 24 44 30 31 38 00  |5..!.:STA $D018.|
00001900  09 21 ca 3a 52 54 53 00  1c 21 20 4e e1 20 4a 53  |.!.:RTS..! N. JS|
00001910  52 20 48 49 52 45 53 4f  46 46 00 29 21 2a 4e 4c  |R HIRESOFF.)!*NL|
00001920  44 41 20 23 24 31 43 00  37 21 34 4e 4a 53 52 20  |DA #$1C.7!4NJSR |
00001930  4f 55 54 44 4f 00 44 21  3e 4e 4c 44 41 20 23 24  |OUTDO.D!>NLDA #$|
00001940  39 33 00 52 21 48 4e 4a  53 52 20 4f 55 54 44 4f  |93.R!HNJSR OUTDO|
00001950  00 5f 21 52 4e 4c 44 41  20 23 24 30 30 00 6d 21  |._!RNLDA #$00.m!|
00001960  5c 4e e1 4c 4f 4f 50 20  50 48 41 00 77 21 66 4e  |\N.LOOP PHA.w!fN|
00001970  41 53 4c 20 41 00 81 21  70 4e 41 53 4c 20 41 00  |ASL A..!pNASL A.|
00001980  89 21 7a 4e 43 4c 43 00  96 21 84 4e 41 44 43 20  |.!zNCLC..!.NADC |
00001990  23 24 34 32 00 a2 21 8e  4e 53 54 41 20 24 46 43  |#$42..!.NSTA $FC|
000019a0  00 af 21 98 4e 4c 44 59  20 23 24 30 30 00 bb 21  |..!.NLDY #$00..!|
000019b0  a2 4e 53 54 59 20 24 46  42 00 c7 21 ac 4e 53 54  |.NSTY $FB..!.NST|
000019c0  59 20 24 46 44 00 d4 21  b6 4e 4c 44 41 20 23 24  |Y $FD..!.NLDA #$|
000019d0  30 34 00 e0 21 c0 4e 53  54 41 20 24 46 45 00 f7  |04..!.NSTA $FE..|
000019e0  21 ca 4e e1 4c 4f 4f 50  42 20 4c 44 41 20 28 24  |!.N.LOOPB LDA ($|
000019f0  46 42 29 2c 59 00 07 22  d4 4e 53 54 41 20 28 24  |FB),Y..".NSTA ($|
00001a00  46 44 29 2c 59 00 0f 22  de 4e 49 4e 59 00 1e 22  |FD),Y..".NINY.."|
00001a10  e8 4e 42 4e 45 20 e1 4c  4f 4f 50 42 00 2a 22 f2  |.NBNE .LOOPB.*".|
00001a20  4e 49 4e 43 20 24 46 43  00 36 22 fc 4e 49 4e 43  |NINC $FC.6".NINC|
00001a30  20 24 46 45 00 42 22 06  4f 4c 44 41 20 24 46 45  | $FE.B".OLDA $FE|
00001a40  00 4f 22 10 4f 43 4d 50  20 23 24 30 38 00 5e 22  |.O".OCMP #$08.^"|
00001a50  1a 4f 42 4e 45 20 e1 4c  4f 4f 50 42 00 6d 22 24  |.OBNE .LOOPB.m"$|
00001a60  4f e1 dc 20 4c 44 41 20  24 43 35 00 7a 22 2e 4f  |O.. LDA $C5.z".O|
00001a70  43 4d 50 20 23 24 34 30  00 85 22 38 4f 42 4e 45  |CMP #$40.."8OBNE|
00001a80  20 e1 dc 00 95 22 42 4f  e1 dc 42 20 4c 44 41 20  | ...."BO..B LDA |
00001a90  24 43 35 00 a2 22 4c 4f  43 4d 50 20 23 24 34 30  |$C5.."LOCMP #$40|
00001aa0  00 ae 22 56 4f 42 45 51  20 e1 dc 42 00 b6 22 60  |.."VOBEQ ..B.."`|
00001ab0  4f 54 41 58 00 be 22 6a  4f 50 4c 41 00 cb 22 74  |OTAX.."jOPLA.."t|
00001ac0  4f 43 50 58 20 23 24 30  31 00 da 22 7e 4f 42 45  |OCPX #$01.."~OBE|
00001ad0  51 20 48 4e 4f 4d b0 45  00 e7 22 88 4f 43 50 58  |Q HNOM.E..".OCPX|
00001ae0  20 23 24 32 38 00 f1 22  92 4f 42 45 51 20 82 00  | #$28..".OBEQ ..|
00001af0  fe 22 9c 4f 43 50 58 20  23 24 32 42 00 0b 23 a6  |.".OCPX #$2B..#.|
00001b00  4f 42 45 51 20 50 52 45  56 00 18 23 b0 4f e1 52  |OBEQ PREV..#.O.R|
00001b10  45 54 20 50 48 41 00 24  23 ba 4f 4a 4d 50 20 e1  |ET PHA.$#.OJMP .|
00001b20  dc 42 00 3c 23 c4 4f 48  4e 4f 4d b0 45 20 4a 4d  |.B.<#.OHNOM.E JM|
00001b30  50 20 43 4f 4d 45 42 41  43 4b 00 4b 23 ce 4f 82  |P COMEBACK.K#.O.|
00001b40  20 43 4d 50 20 23 24 30  35 00 58 23 d8 4f 42 45  | CMP #$05.X#.OBE|
00001b50  51 20 e1 52 45 54 00 60  23 e2 4f 43 4c 43 00 6d  |Q .RET.`#.OCLC.m|
00001b60  23 ec 4f 41 44 43 20 23  24 30 31 00 7b 23 f6 4f  |#.OADC #$01.{#.O|
00001b70  4a 4d 50 20 e1 4c 4f 4f  50 00 8d 23 00 50 50 52  |JMP .LOOP..#.PPR|
00001b80  45 56 20 43 4d 50 20 23  24 30 30 00 9a 23 0a 50  |EV CMP #$00..#.P|
00001b90  42 45 51 20 e1 52 45 54  00 a2 23 14 50 53 45 43  |BEQ .RET..#.PSEC|
00001ba0  00 af 23 1e 50 53 42 43  20 23 24 30 31 00 bd 23  |..#.PSBC #$01..#|
00001bb0  28 50 4a 4d 50 20 e1 4c  4f 4f 50 00 e1 23 30 75  |(PJMP .LOOP..#0u|
00001bc0  3b 20 20 20 20 20 20 20  20 20 20 4d af 4c 45 42  |;          M.LEB|
00001bd0  52 4f 54 20 53 45 54 20  50 4c 4f 54 54 45 52 00  |ROT SET PLOTTER.|
00001be0  ee 23 3a 75 4d af 4c 45  20 53 45 49 00 fb 23 3f  |.#:uM.LE SEI..#?|
00001bf0  75 4c 44 41 20 23 24 30  30 00 0a 24 44 75 53 54  |uLDA #$00..$DuST|
00001c00  41 20 59 50 49 58 45 4c  00 17 24 4e 75 4c 44 41  |A YPIXEL..$NuLDA|
00001c10  20 23 24 30 33 00 25 24  58 75 53 54 41 20 24 34  | #$03.%$XuSTA $4|
00001c20  31 30 30 00 32 24 62 75  4c 44 41 20 23 24 30 36  |100.2$buLDA #$06|
00001c30  00 40 24 6c 75 53 54 41  20 24 34 31 30 32 00 4e  |.@$luSTA $4102.N|
00001c40  24 76 75 4a 53 52 20 45  51 55 41 4c 00 62 24 80  |$vuJSR EQUAL.b$.|
00001c50  75 4d 4d 41 49 4e 4c 20  4c 44 41 20 23 24 30 30  |uMMAINL LDA #$00|
00001c60  00 71 24 8a 75 53 54 41  20 58 50 49 58 45 4c 00  |.q$.uSTA XPIXEL.|
00001c70  7e 24 94 75 4c 44 41 20  23 24 30 31 00 8c 24 9e  |~$.uLDA #$01..$.|
00001c80  75 53 54 41 20 24 34 31  30 30 00 99 24 a8 75 4c  |uSTA $4100..$.uL|
00001c90  44 41 20 23 24 30 35 00  a7 24 b2 75 53 54 41 20  |DA #$05..$.uSTA |
00001ca0  24 34 31 30 32 00 b5 24  bc 75 4a 53 52 20 45 51  |$4102..$.uJSR EQ|
00001cb0  55 41 4c 00 ca 24 c6 75  4d 4d 41 49 4e 4c 42 20  |UAL..$.uMMAINLB |
00001cc0  4c 44 41 20 23 24 30 35  00 d8 24 d0 75 53 54 41  |LDA #$05..$.uSTA|
00001cd0  20 24 34 31 30 30 00 e5  24 da 75 4c 44 41 20 23  | $4100..$.uLDA #|
00001ce0  24 30 37 00 f3 24 e4 75  53 54 41 20 24 34 31 30  |$07..$.uSTA $410|
00001cf0  32 00 01 25 ee 75 4a 53  52 20 45 51 55 41 4c 00  |2..%.uJSR EQUAL.|
00001d00  0f 25 f8 75 49 4e 43 20  24 34 31 30 30 00 1d 25  |.%.uINC $4100..%|
00001d10  02 76 49 4e 43 20 24 34  31 30 32 00 2b 25 0c 76  |.vINC $4102.+%.v|
00001d20  4a 53 52 20 45 51 55 41  4c 00 38 25 16 76 4c 44  |JSR EQUAL.8%.vLD|
00001d30  41 20 23 24 30 30 00 47  25 20 76 53 54 41 20 43  |A #$00.G% vSTA C|
00001d40  4f 4c 4f 55 52 00 59 25  2a 76 4c 4f 4f 50 20 4c  |OLOUR.Y%*vLOOP L|
00001d50  44 41 20 23 24 30 37 00  67 25 34 76 53 54 41 20  |DA #$07.g%4vSTA |
00001d60  24 34 31 30 30 00 75 25  3e 76 53 54 41 20 24 34  |$4100.u%>vSTA $4|
00001d70  31 30 31 00 82 25 48 76  4c 44 41 20 23 24 31 30  |101..%HvLDA #$10|
00001d80  00 90 25 52 76 53 54 41  20 24 34 31 30 32 00 a1  |..%RvSTA $4102..|
00001d90  25 5c 76 4a 53 52 20 4d  55 4c 54 49 50 4c 59 00  |%\vJSR MULTIPLY.|
00001da0  ae 25 66 76 4c 44 41 20  23 24 30 38 00 bc 25 70  |.%fvLDA #$08..%p|
00001db0  76 53 54 41 20 24 34 31  30 30 00 ca 25 7a 76 53  |vSTA $4100..%zvS|
00001dc0  54 41 20 24 34 31 30 31  00 d7 25 84 76 4c 44 41  |TA $4101..%.vLDA|
00001dd0  20 23 24 31 31 00 e5 25  8e 76 53 54 41 20 24 34  | #$11..%.vSTA $4|
00001de0  31 30 32 00 f6 25 98 76  4a 53 52 20 4d 55 4c 54  |102..%.vJSR MULT|
00001df0  49 50 4c 59 00 03 26 a2  76 4c 44 58 20 23 24 31  |IPLY..&.vLDX #$1|
00001e00  30 00 11 26 ac 76 53 54  58 20 24 34 31 30 30 00  |0..&.vSTX $4100.|
00001e10  19 26 b6 76 49 4e 58 00  27 26 c0 76 53 54 58 20  |.&.vINX.'&.vSTX |
00001e20  24 34 31 30 31 00 2f 26  ca 76 49 4e 58 00 3d 26  |$4101./&.vINX.=&|
00001e30  d4 76 53 54 58 20 24 34  31 30 32 00 4d 26 de 76  |.vSTX $4102.M&.v|
00001e40  4a 53 52 20 41 44 44 49  54 49 91 00 5b 26 e8 76  |JSR ADDITI..[&.v|
00001e50  4c 44 41 20 24 34 30 39  31 00 68 26 f2 76 43 4d  |LDA $4091.h&.vCM|
00001e60  50 20 23 24 30 34 00 75  26 fc 76 42 43 43 20 46  |P #$04.u&.vBCC F|
00001e70  41 49 4c 00 82 26 06 77  43 4d 50 20 23 24 35 30  |AIL..&.wCMP #$50|
00001e80  00 8f 26 10 77 42 43 53  20 46 41 49 4c 00 a7 26  |..&.wBCS FAIL..&|
00001e90  1a 77 53 55 43 50 41 53  53 20 4a 4d 50 20 53 55  |.wSUCPASS JMP SU|
00001ea0  43 43 45 53 53 00 bb 26  24 77 46 41 49 4c 20 49  |CCESS..&$wFAIL I|
00001eb0  4e 43 20 43 4f 4c 4f 55  52 00 ca 26 29 77 4c 44  |NC COLOUR..&)wLD|
00001ec0  41 20 43 4f 4c 4f 55 52  00 d9 26 2e 77 43 4d 50  |A COLOUR..&.wCMP|
00001ed0  20 4d 41 58 43 4f 4c 00  e9 26 38 77 42 45 51 20  | MAXCOL..&8wBEQ |
00001ee0  53 55 43 50 41 53 53 00  fa 26 42 77 4a 53 52 20  |SUCPASS..&BwJSR |
00001ef0  53 55 42 54 52 41 43 54  00 07 27 4c 77 4c 44 41  |SUBTRACT..'LwLDA|
00001f00  20 23 24 31 32 00 15 27  56 77 53 54 41 20 24 34  | #$12..'VwSTA $4|
00001f10  31 30 30 00 22 27 60 77  4c 44 41 20 23 24 30 35  |100."'`wLDA #$05|
00001f20  00 30 27 6a 77 53 54 41  20 24 34 31 30 31 00 3d  |.0'jwSTA $4101.=|
00001f30  27 74 77 4c 44 41 20 23  24 31 33 00 4b 27 7e 77  |'twLDA #$13.K'~w|
00001f40  53 54 41 20 24 34 31 30  32 00 5b 27 88 77 4a 53  |STA $4102.['.wJS|
00001f50  52 20 41 44 44 49 54 49  91 00 68 27 92 77 4c 44  |R ADDITI..h'.wLD|
00001f60  41 20 23 24 30 37 00 76  27 9c 77 53 54 41 20 24  |A #$07.v'.wSTA $|
00001f70  34 31 30 30 00 83 27 a6  77 4c 44 41 20 23 24 30  |4100..'.wLDA #$0|
00001f80  38 00 91 27 b0 77 53 54  41 20 24 34 31 30 31 00  |8..'.wSTA $4101.|
00001f90  9f 27 ba 77 49 4e 43 20  24 34 31 30 32 00 b0 27  |.'.wINC $4102..'|
00001fa0  c4 77 4a 53 52 20 4d 55  4c 54 49 50 4c 59 00 bd  |.wJSR MULTIPLY..|
00001fb0  27 ce 77 4c 44 41 20 23  24 31 34 00 cb 27 d8 77  |'.wLDA #$14..'.w|
00001fc0  53 54 41 20 24 34 31 30  30 00 d8 27 e2 77 4c 44  |STA $4100..'.wLD|
00001fd0  41 20 23 24 31 43 00 e6  27 ec 77 53 54 41 20 24  |A #$1C..'.wSTA $|
00001fe0  34 31 30 31 00 f3 27 f6  77 4c 44 41 20 23 24 31  |4101..'.wLDA #$1|
00001ff0  35 00 01 28 00 78 53 54  41 20 24 34 31 30 32 00  |5..(.xSTA $4102.|
00002000  12 28 0a 78 4a 53 52 20  4d 55 4c 54 49 50 4c 59  |.(.xJSR MULTIPLY|
00002010  00 1f 28 14 78 4c 44 41  20 23 24 31 35 00 2d 28  |..(.xLDA #$15.-(|
00002020  1e 78 53 54 41 20 24 34  31 30 30 00 3a 28 28 78  |.xSTA $4100.:((x|
00002030  4c 44 41 20 23 24 30 36  00 48 28 32 78 53 54 41  |LDA #$06.H(2xSTA|
00002040  20 24 34 31 30 31 00 55  28 3c 78 4c 44 41 20 23  | $4101.U(<xLDA #|
00002050  24 31 36 00 63 28 46 78  53 54 41 20 24 34 31 30  |$16.c(FxSTA $410|
00002060  32 00 73 28 50 78 4a 53  52 20 41 44 44 49 54 49  |2.s(PxJSR ADDITI|
00002070  91 00 80 28 5a 78 4c 44  41 20 23 24 31 33 00 8e  |...(ZxLDA #$13..|
00002080  28 64 78 53 54 41 20 24  34 31 30 30 00 9b 28 6e  |(dxSTA $4100..(n|
00002090  78 4c 44 41 20 23 24 30  37 00 a9 28 78 78 53 54  |xLDA #$07..(xxST|
000020a0  41 20 24 34 31 30 32 00  b7 28 82 78 4a 53 52 20  |A $4102..(.xJSR |
000020b0  45 51 55 41 4c 00 c4 28  8c 78 4c 44 41 20 23 24  |EQUAL..(.xLDA #$|
000020c0  31 36 00 d2 28 96 78 53  54 41 20 24 34 31 30 30  |16..(.xSTA $4100|
000020d0  00 df 28 a0 78 4c 44 41  20 23 24 30 38 00 ed 28  |..(.xLDA #$08..(|
000020e0  aa 78 53 54 41 20 24 34  31 30 32 00 fb 28 b4 78  |.xSTA $4102..(.x|
000020f0  4a 53 52 20 45 51 55 41  4c 00 08 29 be 78 4a 4d  |JSR EQUAL..).xJM|
00002100  50 20 4c 4f 4f 50 00 1d  29 c8 78 53 55 43 43 45  |P LOOP..).xSUCCE|
00002110  53 53 20 4a 53 52 20 50  4c 4f 54 00 2a 29 d2 78  |SS JSR PLOT.*).x|
00002120  4c 44 41 20 23 24 30 35  00 38 29 dc 78 53 54 41  |LDA #$05.8).xSTA|
00002130  20 24 34 31 30 30 00 46  29 e6 78 53 54 41 20 24  | $4100.F).xSTA $|
00002140  34 31 30 32 00 53 29 f0  78 4c 44 41 20 23 24 30  |4102.S).xLDA #$0|
00002150  32 00 61 29 fa 78 53 54  41 20 24 34 31 30 31 00  |2.a).xSTA $4101.|
00002160  71 29 04 79 4a 53 52 20  41 44 44 49 54 49 91 00  |q).yJSR ADDITI..|
00002170  80 29 0e 79 4c 44 41 20  58 50 49 58 45 4c 00 8f  |.).yLDA XPIXEL..|
00002180  29 18 79 42 4e 45 20 58  52 45 4c 4f 50 00 9c 29  |).yBNE XRELOP..)|
00002190  22 79 4c 44 41 20 23 24  30 36 00 aa 29 2c 79 53  |"yLDA #$06..),yS|
000021a0  54 41 20 24 34 31 30 30  00 b8 29 36 79 53 54 41  |TA $4100..)6ySTA|
000021b0  20 24 34 31 30 32 00 c5  29 40 79 4c 44 41 20 23  | $4102..)@yLDA #|
000021c0  24 30 34 00 d3 29 4a 79  53 54 41 20 24 34 31 30  |$04..)JySTA $410|
000021d0  31 00 e3 29 54 79 4a 53  52 20 41 44 44 49 54 49  |1..)TyJSR ADDITI|
000021e0  91 00 f2 29 5e 79 49 4e  43 20 59 50 49 58 45 4c  |...)^yINC YPIXEL|
000021f0  00 01 2a 68 79 4c 44 41  20 59 50 49 58 45 4c 00  |..*hyLDA YPIXEL.|
00002200  0e 2a 72 79 43 4d 50 20  23 24 43 38 00 1d 2a 7c  |.*ryCMP #$C8..*||
00002210  79 42 4e 45 20 59 52 45  4c 4f 50 00 25 2a 81 79  |yBNE YRELOP.%*.y|
00002220  43 4c 49 00 2d 2a 86 79  52 54 53 00 44 2a 90 79  |CLI.-*.yRTS.D*.y|
00002230  58 52 45 4c 4f 50 20 4a  4d 50 20 4d 4d 41 49 4e  |XRELOP JMP MMAIN|
00002240  4c 42 00 5a 2a 9a 79 59  52 45 4c 4f 50 20 4a 4d  |LB.Z*.yYRELOP JM|
00002250  50 20 4d 4d 41 49 4e 4c  00 6e 2a e0 79 4d af 50  |P MMAINL.n*.yM.P|
00002260  4c 4f 54 20 4a 53 52 20  4d af 4c 45 00 7d 2a ea  |LOT JSR M.LE.}*.|
00002270  79 4a 4d 50 20 9a 52 4f  4c 4f 50 00 a3 2a 40 9c  |yJMP .ROLOP..*@.|
00002280  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 41 52  |;             AR|
00002290  49 54 48 4d 45 54 49 43  20 52 4f 55 54 49 4e 45  |ITHMETIC ROUTINE|
000022a0  53 00 b2 2a 4a 9c a1 44  49 47 49 54 20 43 4c 44  |S..*J..DIGIT CLD|
000022b0  00 bc 2a 54 9c 41 53 4c  20 41 00 c6 2a 5e 9c 41  |..*T.ASL A..*^.A|
000022c0  53 4c 20 41 00 d0 2a 68  9c 41 53 4c 20 41 00 dc  |SL A..*h.ASL A..|
000022d0  2a 72 9c 53 54 41 20 24  30 32 00 e4 2a 7c 9c 54  |*r.STA $02..*|.T|
000022e0  58 41 00 ee 2a 86 9c 4c  53 52 20 41 00 fa 2a 90  |XA..*..LSR A..*.|
000022f0  9c 53 54 41 20 24 32 34  00 07 2b 9a 9c 4c 44 41  |.STA $24..+..LDA|
00002300  20 23 24 30 37 00 0f 2b  a4 9c 53 45 43 00 1b 2b  | #$07..+..SEC..+|
00002310  ae 9c 53 42 43 20 24 32  34 00 23 2b b8 9c 43 4c  |..SBC $24.#+..CL|
00002320  43 00 2f 2b c2 9c 41 44  43 20 24 30 32 00 37 2b  |C./+..ADC $02.7+|
00002330  cc 9c 54 41 59 00 47 2b  d6 9c 4c 44 41 20 24 34  |..TAY.G+..LDA $4|
00002340  30 30 30 2c 59 00 4f 2b  e0 9c 54 41 59 00 57 2b  |000,Y.O+..TAY.W+|
00002350  ea 9c 54 58 41 00 62 2b  f4 9c af 20 23 24 30 31  |..TXA.b+... #$01|
00002360  00 70 2b fe 9c 42 45 51  20 4c 53 4e 47 44 00 78  |.p+..BEQ LSNGD.x|
00002370  2b 08 9d 54 59 41 00 83  2b 12 9d af 20 23 24 46  |+..TYA..+... #$F|
00002380  30 00 8d 2b 1c 9d 4c 53  52 20 41 00 97 2b 26 9d  |0..+..LSR A..+&.|
00002390  4c 53 52 20 41 00 a1 2b  30 9d 4c 53 52 20 41 00  |LSR A..+0.LSR A.|
000023a0  ab 2b 3a 9d 4c 53 52 20  41 00 b3 2b 44 9d 52 54  |.+:.LSR A..+D.RT|
000023b0  53 00 c1 2b 4e 9d 4c 53  4e 47 44 20 54 59 41 00  |S..+N.LSNGD TYA.|
000023c0  cc 2b 58 9d af 20 23 24  30 46 00 d4 2b 62 9d 52  |.+X.. #$0F..+b.R|
000023d0  54 53 00 ef 2b 6c 9d 4d  55 4c 54 49 50 4c 59 42  |TS..+l.MULTIPLYB|
000023e0  20 4a 53 52 20 4e 45 47  41 54 49 56 45 00 fd 2b  | JSR NEGATIVE..+|
000023f0  71 9d 4c 44 41 20 24 34  31 30 32 00 07 2c 76 9d  |q.LDA $4102..,v.|
00002400  41 53 4c 20 41 00 11 2c  80 9d 41 53 4c 20 41 00  |ASL A..,..ASL A.|
00002410  1b 2c 8a 9d 41 53 4c 20  41 00 23 2c 94 9d 54 41  |.,..ASL A.#,..TA|
00002420  58 00 30 2c 9e 9d 4c 44  41 20 23 24 30 30 00 38  |X.0,..LDA #$00.8|
00002430  2c a8 9d 54 41 59 00 4e  2c b2 9d 4d 4c 4f 50 41  |,..TAY.N,..MLOPA|
00002440  20 53 54 41 20 24 34 30  30 30 2c 58 00 56 2c bc  | STA $4000,X.V,.|
00002450  9d 49 4e 59 00 5e 2c c6  9d 49 4e 58 00 6b 2c d0  |.INY.^,..INX.k,.|
00002460  9d 43 50 59 20 23 24 30  38 00 79 2c da 9d 42 4e  |.CPY #$08.y,..BN|
00002470  45 20 4d 4c 4f 50 41 00  86 2c e4 9d 4c 44 41 20  |E MLOPA..,..LDA |
00002480  23 24 30 36 00 92 2c ee  9d 53 54 41 20 24 46 43  |#$06..,..STA $FC|
00002490  00 a7 2c f8 9d a2 44 49  47 49 54 20 4c 44 41 20  |..,...DIGIT LDA |
000024a0  24 34 31 30 31 00 b3 2c  02 9e 4c 44 58 20 24 46  |$4101..,..LDX $F|
000024b0  43 00 c2 2c 0c 9e 4a 53  52 20 a1 44 49 47 49 54  |C..,..JSR .DIGIT|
000024c0  00 cf 2c 16 9e 43 4d 50  20 23 24 30 30 00 de 2c  |..,..CMP #$00..,|
000024d0  20 9e 42 45 51 20 44 4d  4f 56 45 52 00 ea 2c 2a  | .BEQ DMOVER..,*|
000024e0  9e 53 54 41 20 24 46 44  00 f7 2c 34 9e 4c 44 41  |.STA $FD..,4.LDA|
000024f0  20 23 24 30 36 00 03 2d  3e 9e 53 54 41 20 24 46  | #$06..->.STA $F|
00002500  42 00 17 2d 48 9e 44 4d  4c 4f 50 20 4c 44 41 20  |B..-H.DMLOP LDA |
00002510  24 34 31 30 30 00 23 2d  52 9e 4c 44 58 20 24 46  |$4100.#-R.LDX $F|
00002520  42 00 32 2d 5c 9e 4a 53  52 20 a1 44 49 47 49 54  |B.2-\.JSR .DIGIT|
00002530  00 3f 2d 66 9e 43 4d 50  20 23 24 30 30 00 4e 2d  |.?-f.CMP #$00.N-|
00002540  70 9e 42 45 51 20 44 4d  4f 56 45 52 00 5a 2d 7a  |p.BEQ DMOVER.Z-z|
00002550  9e 53 54 41 20 24 46 45  00 66 2d 84 9e 4c 44 41  |.STA $FE.f-..LDA|
00002560  20 24 46 42 00 6e 2d 8e  9e 43 4c 43 00 7a 2d 98  | $FB.n-..CLC.z-.|
00002570  9e 41 44 43 20 24 46 43  00 82 2d a2 9e 53 45 43  |.ADC $FC..-..SEC|
00002580  00 8f 2d ac 9e 53 42 43  20 23 24 30 43 00 9b 2d  |..-..SBC #$0C..-|
00002590  b6 9e 4c 44 58 20 24 46  44 00 a3 2d c0 9e 54 41  |..LDX $FD..-..TA|
000025a0  59 00 ae 2d ca 9e af 20  23 24 30 31 00 bc 2d d4  |Y..-... #$01..-.|
000025b0  9e 42 45 51 20 4d 53 4b  49 50 00 c4 2d de 9e 54  |.BEQ MSKIP..-..T|
000025c0  58 41 00 ce 2d e8 9e 41  53 4c 20 41 00 d8 2d f2  |XA..-..ASL A..-.|
000025d0  9e 41 53 4c 20 41 00 e2  2d fc 9e 41 53 4c 20 41  |.ASL A..-..ASL A|
000025e0  00 ec 2d 06 9f 41 53 4c  20 41 00 f4 2d 10 9f 54  |..-..ASL A..-..T|
000025f0  41 58 00 02 2e 1a 9f 4d  53 4b 49 50 20 54 59 41  |AX.....MSKIP TYA|
00002600  00 0c 2e 24 9f 4c 53 52  20 41 00 18 2e 2e 9f 53  |...$.LSR A.....S|
00002610  54 41 20 24 30 32 00 25  2e 38 9f 4c 44 41 20 23  |TA $02.%.8.LDA #|
00002620  24 30 37 00 2d 2e 42 9f  53 45 43 00 39 2e 4c 9f  |$07.-.B.SEC.9.L.|
00002630  53 42 43 20 24 30 32 00  45 2e 56 9f 53 54 41 20  |SBC $02.E.V.STA |
00002640  24 30 32 00 53 2e 60 9f  4c 44 41 20 24 34 31 30  |$02.S.`.LDA $410|
00002650  32 00 5d 2e 6a 9f 41 53  4c 20 41 00 67 2e 74 9f  |2.].j.ASL A.g.t.|
00002660  41 53 4c 20 41 00 71 2e  7e 9f 41 53 4c 20 41 00  |ASL A.q.~.ASL A.|
00002670  7d 2e 88 9f 41 44 43 20  24 30 32 00 89 2e 8d 9f  |}...ADC $02.....|
00002680  53 54 41 20 24 32 35 00  91 2e 92 9f 54 41 59 00  |STA $25.....TAY.|
00002690  9d 2e 9c 9f 53 54 58 20  24 32 34 00 ae 2e a6 9f  |....STX $24.....|
000026a0  44 4d 4c 42 20 4c 44 58  20 24 30 32 00 b6 2e b0  |DMLB LDX $02....|
000026b0  9f 53 45 44 00 c6 2e ba  9f 4c 44 41 20 24 34 30  |.SED.....LDA $40|
000026c0  30 30 2c 59 00 ce 2e c4  9f 43 4c 43 00 da 2e ce  |00,Y.....CLC....|
000026d0  9f 41 44 43 20 24 32 34  00 ea 2e d8 9f 53 54 41  |.ADC $24.....STA|
000026e0  20 24 34 30 30 30 2c 59  00 f7 2e e2 9f 4d 41 4c  | $4000,Y.....MAL|
000026f0  50 20 43 4c 44 00 06 2f  ec 9f 42 43 43 20 4d 41  |P CLD../..BCC MA|
00002700  51 55 49 54 00 0e 2f f6  9f 44 45 59 00 16 2f 00  |QUIT../..DEY../.|
00002710  a0 44 45 58 00 23 2f 0a  a0 43 50 58 20 23 24 46  |.DEX.#/..CPX #$F|
00002720  46 00 32 2f 14 a0 42 45  51 20 4d 41 51 55 49 54  |F.2/..BEQ MAQUIT|
00002730  00 3a 2f 1e a0 53 45 44  00 4a 2f 28 a0 4c 44 41  |.:/..SED.J/(.LDA|
00002740  20 24 34 30 30 30 2c 59  00 52 2f 32 a0 43 4c 43  | $4000,Y.R/2.CLC|
00002750  00 5f 2f 3c a0 41 44 43  20 23 24 30 31 00 6f 2f  |._/<.ADC #$01.o/|
00002760  46 a0 53 54 41 20 24 34  30 30 30 2c 59 00 7c 2f  |F.STA $4000,Y.|/|
00002770  50 a0 4a 4d 50 20 4d 41  4c 50 00 8f 2f 5a a0 44  |P.JMP MALP../Z.D|
00002780  4d 4f 56 45 52 20 49 4e  43 20 24 46 42 00 9b 2f  |MOVER INC $FB../|
00002790  64 a0 4c 44 41 20 24 46  42 00 a8 2f 6e a0 43 4d  |d.LDA $FB../n.CM|
000027a0  50 20 23 24 30 45 00 b6  2f 78 a0 42 43 43 20 44  |P #$0E../x.BCC D|
000027b0  4d 4c 4f 50 00 c2 2f 82  a0 49 4e 43 20 24 46 43  |MLOP../..INC $FC|
000027c0  00 ce 2f 8c a0 4c 44 41  20 24 46 43 00 db 2f 96  |../..LDA $FC../.|
000027d0  a0 43 4d 50 20 23 24 30  45 00 ea 2f a0 a0 42 43  |.CMP #$0E../..BC|
000027e0  43 20 a2 44 49 47 49 54  00 f7 2f aa a0 4c 44 41  |C .DIGIT../..LDA|
000027f0  20 59 50 49 42 00 04 30  b4 a0 42 45 51 20 51 55  | YPIB..0..BEQ QU|
00002800  49 54 00 12 30 be a0 4c  44 41 20 24 34 31 30 32  |IT..0..LDA $4102|
00002810  00 20 30 c8 a0 53 54 41  20 24 34 31 30 31 00 2d  |. 0..STA $4101.-|
00002820  30 d2 a0 4c 44 41 20 23  24 31 44 00 3b 30 dc a0  |0..LDA #$1D.;0..|
00002830  53 54 41 20 24 34 31 30  30 00 4c 30 e6 a0 4a 53  |STA $4100.L0..JS|
00002840  52 20 53 55 42 54 52 41  43 54 00 59 30 f0 a0 51  |R SUBTRACT.Y0..Q|
00002850  55 49 54 20 52 54 53 00  6c 30 fa a0 4d 41 51 55  |UIT RTS.l0..MAQU|
00002860  49 54 20 4c 44 58 20 24  46 45 00 74 30 04 a1 44  |IT LDX $FE.t0..D|
00002870  45 58 00 83 30 07 a1 42  45 51 20 44 4d 4f 56 45  |EX..0..BEQ DMOVE|
00002880  52 00 8f 30 0a a1 53 54  58 20 24 46 45 00 9b 30  |R..0..STX $FE..0|
00002890  0e a1 4c 44 59 20 24 32  35 00 a8 30 18 a1 4a 4d  |..LDY $25..0..JM|
000028a0  50 20 44 4d 4c 42 00 bb  30 22 a1 4d 53 55 50 20  |P DMLB..0".MSUP |
000028b0  4c 44 41 20 24 34 31 30  30 00 c5 30 2c a1 41 53  |LDA $4100..0,.AS|
000028c0  4c 20 41 00 cf 30 36 a1  41 53 4c 20 41 00 d9 30  |L A..06.ASL A..0|
000028d0  40 a1 41 53 4c 20 41 00  e1 30 4a a1 54 41 58 00  |@.ASL A..0J.TAX.|
000028e0  e9 30 54 a1 44 45 58 00  f5 30 5e a1 53 54 58 20  |.0T.DEX..0^.STX |
000028f0  24 46 42 00 03 31 68 a1  4c 44 41 20 24 34 31 30  |$FB..1h.LDA $410|
00002900  31 00 0d 31 72 a1 41 53  4c 20 41 00 17 31 7c a1  |1..1r.ASL A..1|.|
00002910  41 53 4c 20 41 00 21 31  86 a1 41 53 4c 20 41 00  |ASL A.!1..ASL A.|
00002920  29 31 90 a1 54 41 58 00  31 31 9a a1 44 45 58 00  |)1..TAX.11..DEX.|
00002930  3d 31 a4 a1 53 54 58 20  24 46 44 00 4b 31 ae a1  |=1..STX $FD.K1..|
00002940  4c 44 41 20 24 34 31 30  32 00 55 31 b8 a1 41 53  |LDA $4102.U1..AS|
00002950  4c 20 41 00 5f 31 c2 a1  41 53 4c 20 41 00 69 31  |L A._1..ASL A.i1|
00002960  cc a1 41 53 4c 20 41 00  71 31 d6 a1 54 41 58 00  |..ASL A.q1..TAX.|
00002970  79 31 e0 a1 44 45 58 00  85 31 ea a1 53 54 58 20  |y1..DEX..1..STX |
00002980  24 32 32 00 92 31 f4 a1  4c 44 41 20 23 24 34 30  |$22..1..LDA #$40|
00002990  00 9e 31 fe a1 53 54 41  20 24 46 43 00 aa 31 08  |..1..STA $FC..1.|
000029a0  a2 53 54 41 20 24 46 45  00 b6 31 12 a2 53 54 41  |.STA $FE..1..STA|
000029b0  20 24 32 33 00 be 31 1c  a2 52 54 53 00 d1 31 26  | $23..1..RTS..1&|
000029c0  a2 45 51 55 41 4c 20 4a  53 52 20 4d 53 55 50 00  |.EQUAL JSR MSUP.|
000029d0  de 31 30 a2 4c 44 59 20  23 24 30 38 00 f3 31 3a  |.10.LDY #$08..1:|
000029e0  a2 45 4c 4f 50 20 4c 44  41 20 28 24 46 42 29 2c  |.ELOP LDA ($FB),|
000029f0  59 00 03 32 44 a2 53 54  41 20 28 24 32 32 29 2c  |Y..2D.STA ($22),|
00002a00  59 00 0b 32 4e a2 44 45  59 00 18 32 58 a2 42 4e  |Y..2N.DEY..2X.BN|
00002a10  45 20 45 4c 4f 50 00 20  32 62 a2 52 54 53 00 35  |E ELOP. 2b.RTS.5|
00002a20  32 6c a2 41 44 44 49 54  49 91 20 4a 53 52 20 4d  |2l.ADDITI. JSR M|
00002a30  53 55 50 00 42 32 76 a2  4c 44 59 20 23 24 30 38  |SUP.B2v.LDY #$08|
00002a40  00 4a 32 80 a2 53 45 44  00 52 32 8a a2 43 4c 43  |.J2..SED.R2..CLC|
00002a50  00 68 32 94 a2 41 44 4c  4f 50 20 4c 44 41 20 28  |.h2..ADLOP LDA (|
00002a60  24 46 42 29 2c 59 00 78  32 9e a2 41 44 43 20 28  |$FB),Y.x2..ADC (|
00002a70  24 46 44 29 2c 59 00 88  32 a8 a2 53 54 41 20 28  |$FD),Y..2..STA (|
00002a80  24 32 32 29 2c 59 00 90  32 b2 a2 44 45 59 00 9e  |$22),Y..2..DEY..|
00002a90  32 bc a2 42 4e 45 20 41  44 4c 4f 50 00 a6 32 c6  |2..BNE ADLOP..2.|
00002aa0  a2 43 4c 44 00 ae 32 d0  a2 52 54 53 00 c4 32 da  |.CLD..2..RTS..2.|
00002ab0  a2 53 55 42 54 52 41 43  54 20 4a 53 52 20 4d 53  |.SUBTRACT JSR MS|
00002ac0  55 50 00 d1 32 e4 a2 4c  44 59 20 23 24 30 38 00  |UP..2..LDY #$08.|
00002ad0  d9 32 ee a2 53 45 44 00  e1 32 f8 a2 53 45 43 00  |.2..SED..2..SEC.|
00002ae0  f7 32 02 a3 53 55 4c 4f  50 20 4c 44 41 20 28 24  |.2..SULOP LDA ($|
00002af0  46 42 29 2c 59 00 07 33  0c a3 53 42 43 20 28 24  |FB),Y..3..SBC ($|
00002b00  46 44 29 2c 59 00 17 33  16 a3 53 54 41 20 28 24  |FD),Y..3..STA ($|
00002b10  32 32 29 2c 59 00 1f 33  20 a3 44 45 59 00 2d 33  |22),Y..3 .DEY.-3|
00002b20  2a a3 42 4e 45 20 53 55  4c 4f 50 00 35 33 34 a3  |*.BNE SULOP.534.|
00002b30  43 4c 44 00 3d 33 3e a3  52 54 53 00 53 33 48 a3  |CLD.=3>.RTS.S3H.|
00002b40  4e 45 47 41 54 49 56 45  20 4c 44 41 20 23 24 30  |NEGATIVE LDA #$0|
00002b50  30 00 5b 33 52 a3 50 48  41 00 69 33 5c a3 4c 44  |0.[3R.PHA.i3\.LD|
00002b60  41 20 24 34 31 30 30 00  71 33 66 a3 54 41 59 00  |A $4100.q3f.TAY.|
00002b70  7b 33 70 a3 41 53 4c 20  41 00 85 33 7a a3 41 53  |{3p.ASL A..3z.AS|
00002b80  4c 20 41 00 8f 33 84 a3  41 53 4c 20 41 00 97 33  |L A..3..ASL A..3|
00002b90  8e a3 54 41 58 00 a7 33  98 a3 4c 44 41 20 24 34  |..TAX..3..LDA $4|
00002ba0  30 30 31 2c 58 00 b4 33  a2 a3 43 4d 50 20 23 24  |001,X..3..CMP #$|
00002bb0  35 30 00 c7 33 a7 a3 42  43 43 20 4e 45 47 52 4d  |50..3..BCC NEGRM|
00002bc0  4f 56 45 41 42 00 cf 33  ac a3 50 4c 41 00 dc 33  |OVEAB..3..PLA..3|
00002bd0  b6 a3 41 44 43 20 23 24  30 30 00 e4 33 c0 a3 50  |..ADC #$00..3..P|
00002be0  48 41 00 f6 33 ca a3 4a  4d 50 20 4e 45 47 52 4d  |HA..3..JMP NEGRM|
00002bf0  4f 56 45 41 00 0f 34 d4  a3 4e 45 47 52 4d 4f 56  |OVEA..4..NEGRMOV|
00002c00  45 41 42 20 4c 44 41 20  24 34 31 30 31 00 17 34  |EAB LDA $4101..4|
00002c10  de a3 54 41 59 00 21 34  e8 a3 41 53 4c 20 41 00  |..TAY.!4..ASL A.|
00002c20  2b 34 f2 a3 41 53 4c 20  41 00 35 34 fc a3 41 53  |+4..ASL A.54..AS|
00002c30  4c 20 41 00 3d 34 06 a4  54 41 58 00 4d 34 10 a4  |L A.=4..TAX.M4..|
00002c40  4c 44 41 20 24 34 30 30  31 2c 58 00 5a 34 1a a4  |LDA $4001,X.Z4..|
00002c50  43 4d 50 20 23 24 35 30  00 62 34 24 a4 50 4c 41  |CMP #$50.b4$.PLA|
00002c60  00 6f 34 2e a4 42 43 43  20 4e 4f 45 b0 00 7b 34  |.o4..BCC NOE..{4|
00002c70  38 a4 45 b0 20 23 24 30  31 00 83 34 42 a4 50 48  |8.E. #$01..4B.PH|
00002c80  41 00 95 34 4c a4 42 43  53 20 4e 45 47 52 4d 4f  |A..4L.BCS NEGRMO|
00002c90  56 45 42 00 a8 34 56 a4  4e 45 47 52 4d 4f 56 45  |VEB..4V.NEGRMOVE|
00002ca0  42 42 20 50 4c 41 00 ba  34 60 a4 4e 4f 45 b0 20  |BB PLA..4`.NOE. |
00002cb0  53 54 41 20 59 50 49 42  00 c2 34 6a a4 52 54 53  |STA YPIB..4j.RTS|
00002cc0  00 d9 34 74 a4 4e 45 47  52 4d 4f 56 45 20 4c 44  |..4t.NEGRMOVE LD|
00002cd0  41 20 24 34 31 30 30 00  e1 34 7e a4 50 48 41 00  |A $4100..4~.PHA.|
00002ce0  ef 34 88 a4 4c 44 41 20  24 34 31 30 31 00 f7 34  |.4..LDA $4101..4|
00002cf0  92 a4 50 48 41 00 05 35  9c a4 4c 44 41 20 24 34  |..PHA..5..LDA $4|
00002d00  31 30 32 00 0d 35 a6 a4  50 48 41 00 15 35 b0 a4  |102..5..PHA..5..|
00002d10  54 59 41 00 23 35 ba a4  53 54 41 20 24 34 31 30  |TYA.#5..STA $410|
00002d20  31 00 31 35 c4 a4 53 54  41 20 24 34 31 30 32 00  |1.15..STA $4102.|
00002d30  3e 35 ce a4 4c 44 41 20  23 24 31 44 00 4c 35 d8  |>5..LDA #$1D.L5.|
00002d40  a4 53 54 41 20 24 34 31  30 30 00 5d 35 e2 a4 4a  |.STA $4100.]5..J|
00002d50  53 52 20 53 55 42 54 52  41 43 54 00 65 35 ec a4  |SR SUBTRACT.e5..|
00002d60  50 4c 41 00 73 35 f6 a4  53 54 41 20 24 34 31 30  |PLA.s5..STA $410|
00002d70  32 00 7b 35 00 a5 50 4c  41 00 89 35 0a a5 53 54  |2.{5..PLA..5..ST|
00002d80  41 20 24 34 31 30 31 00  91 35 14 a5 50 4c 41 00  |A $4101..5..PLA.|
00002d90  9f 35 1e a5 53 54 41 20  24 34 31 30 30 00 a7 35  |.5..STA $4100..5|
00002da0  28 a5 52 54 53 00 c2 35  32 a5 4e 45 47 52 4d 4f  |(.RTS..52.NEGRMO|
00002db0  56 45 41 20 4a 53 52 20  4e 45 47 52 4d 4f 56 45  |VEA JSR NEGRMOVE|
00002dc0  00 d5 35 3c a5 4a 4d 50  20 4e 45 47 52 4d 4f 56  |..5<.JMP NEGRMOV|
00002dd0  45 41 42 00 f0 35 46 a5  4e 45 47 52 4d 4f 56 45  |EAB..5F.NEGRMOVE|
00002de0  42 20 4a 53 52 20 4e 45  47 52 4d 4f 56 45 00 03  |B JSR NEGRMOVE..|
00002df0  36 50 a5 4a 4d 50 20 4e  45 47 52 4d 4f 56 45 42  |6P.JMP NEGRMOVEB|
00002e00  42 00 1a 36 5a a5 4d 55  4c 54 49 50 4c 59 20 4c  |B..6Z.MULTIPLY L|
00002e10  44 41 20 24 34 31 30 32  00 22 36 64 a5 50 48 41  |DA $4102."6d.PHA|
00002e20  00 30 36 6e a5 4c 44 41  20 24 34 31 30 31 00 38  |.06n.LDA $4101.8|
00002e30  36 78 a5 50 48 41 00 45  36 82 a5 4c 44 41 20 23  |6x.PHA.E6..LDA #|
00002e40  24 31 38 00 53 36 8c a5  53 54 41 20 24 34 31 30  |$18.S6..STA $410|
00002e50  32 00 61 36 96 a5 4a 53  52 20 45 51 55 41 4c 00  |2.a6..JSR EQUAL.|
00002e60  6f 36 a0 a5 49 4e 43 20  24 34 31 30 32 00 77 36  |o6..INC $4102.w6|
00002e70  aa a5 50 4c 41 00 85 36  b4 a5 53 54 41 20 24 34  |..PLA..6..STA $4|
00002e80  31 30 30 00 93 36 be a5  4a 53 52 20 45 51 55 41  |100..6..JSR EQUA|
00002e90  4c 00 a0 36 c8 a5 4c 44  41 20 23 24 31 38 00 ae  |L..6..LDA #$18..|
00002ea0  36 d2 a5 53 54 41 20 24  34 31 30 30 00 bb 36 dc  |6..STA $4100..6.|
00002eb0  a5 4c 44 41 20 23 24 31  39 00 c9 36 e6 a5 53 54  |.LDA #$19..6..ST|
00002ec0  41 20 24 34 31 30 31 00  d1 36 f0 a5 50 4c 41 00  |A $4101..6..PLA.|
00002ed0  df 36 fa a5 53 54 41 20  24 34 31 30 32 00 f1 36  |.6..STA $4102..6|
00002ee0  04 a6 4a 4d 50 20 4d 55  4c 54 49 50 4c 59 42 00  |..JMP MULTIPLYB.|
00002ef0  15 37 50 c3 3b 20 20 20  20 20 20 20 20 20 20 20  |.7P.;           |
00002f00  47 52 41 50 48 49 43 20  50 4f b5 20 50 4c 4f 54  |GRAPHIC PO. PLOT|
00002f10  54 45 52 00 29 37 5a c3  50 4c 4f 54 50 43 20 4c  |TER.)7Z.PLOTPC L|
00002f20  44 41 20 23 24 34 37 00  35 37 64 c3 53 54 41 20  |DA #$47.57d.STA |
00002f30  24 46 42 00 42 37 6e c3  4c 44 41 20 23 24 33 46  |$FB.B7n.LDA #$3F|
00002f40  00 4e 37 78 c3 53 54 41  20 24 46 43 00 5d 37 82  |.N7x.STA $FC.]7.|
00002f50  c3 4c 44 41 20 59 50 49  58 45 4c 00 67 37 8c c3  |.LDA YPIXEL.g7..|
00002f60  4c 53 52 20 41 00 71 37  96 c3 4c 53 52 20 41 00  |LSR A.q7..LSR A.|
00002f70  7b 37 a0 c3 4c 53 52 20  41 00 88 37 aa c3 53 54  |{7..LSR A..7..ST|
00002f80  41 20 59 50 49 42 00 93  37 b4 c3 af 20 23 24 30  |A YPIB..7... #$0|
00002f90  33 00 9d 37 be c3 41 53  4c 20 41 00 a7 37 c8 c3  |3..7..ASL A..7..|
00002fa0  41 53 4c 20 41 00 b1 37  d2 c3 41 53 4c 20 41 00  |ASL A..7..ASL A.|
00002fb0  bb 37 dc c3 41 53 4c 20  41 00 c5 37 e6 c3 41 53  |.7..ASL A..7..AS|
00002fc0  4c 20 41 00 cf 37 f0 c3  41 53 4c 20 41 00 db 37  |L A..7..ASL A..7|
00002fd0  fa c3 53 54 41 20 24 30  32 00 e7 37 04 c4 4c 44  |..STA $02..7..LD|
00002fe0  41 20 24 46 42 00 ef 37  0e c4 53 45 43 00 fb 37  |A $FB..7..SEC..7|
00002ff0  18 c4 53 42 43 20 24 30  32 00 07 38 22 c4 53 54  |..SBC $02..8".ST|
00003000  41 20 24 46 42 00 13 38  2c c4 4c 44 41 20 24 46  |A $FB..8,.LDA $F|
00003010  43 00 20 38 36 c4 53 42  43 20 23 24 30 30 00 2d  |C. 86.SBC #$00.-|
00003020  38 3b c4 53 42 43 20 59  50 49 42 00 35 38 40 c4  |8;.SBC YPIB.58@.|
00003030  50 48 41 00 42 38 4a c4  4c 44 41 20 59 50 49 42  |PHA.B8J.LDA YPIB|
00003040  00 4c 38 54 c4 4c 53 52  20 41 00 56 38 5e c4 4c  |.L8T.LSR A.V8^.L|
00003050  53 52 20 41 00 62 38 68  c4 53 54 41 20 24 30 32  |SR A.b8h.STA $02|
00003060  00 6a 38 72 c4 50 4c 41  00 72 38 7c c4 53 45 43  |.j8r.PLA.r8|.SEC|
00003070  00 7e 38 86 c4 53 42 43  20 24 30 32 00 8a 38 90  |.~8..SBC $02..8.|
00003080  c4 53 54 41 20 24 46 43  00 99 38 9a c4 4c 44 41  |.STA $FC..8..LDA|
00003090  20 59 50 49 58 45 4c 00  a4 38 a4 c4 af 20 23 24  | YPIXEL..8... #$|
000030a0  30 37 00 b1 38 ae c4 53  54 41 20 59 50 49 42 00  |07..8..STA YPIB.|
000030b0  bd 38 b8 c4 4c 44 41 20  24 46 42 00 c5 38 c2 c4  |.8..LDA $FB..8..|
000030c0  53 45 43 00 d2 38 cc c4  53 42 43 20 59 50 49 42  |SEC..8..SBC YPIB|
000030d0  00 da 38 d6 c4 50 48 41  00 e9 38 e0 c4 4c 44 41  |..8..PHA..8..LDA|
000030e0  20 58 50 49 58 45 4c 00  f4 38 ea c4 af 20 23 24  | XPIXEL..8... #$|
000030f0  46 38 00 01 39 f4 c4 53  54 41 20 59 50 49 42 00  |F8..9..STA YPIB.|
00003100  09 39 fe c4 50 4c 41 00  11 39 08 c5 43 4c 43 00  |.9..PLA..9..CLC.|
00003110  1e 39 12 c5 41 44 43 20  59 50 49 42 00 2a 39 1c  |.9..ADC YPIB.*9.|
00003120  c5 53 54 41 20 24 46 42  00 36 39 26 c5 4c 44 41  |.STA $FB.69&.LDA|
00003130  20 24 46 43 00 43 39 30  c5 53 42 43 20 23 24 30  | $FC.C90.SBC #$0|
00003140  30 00 4f 39 3a c5 53 54  41 20 24 46 43 00 5e 39  |0.O9:.STA $FC.^9|
00003150  44 c5 4c 44 41 20 58 50  49 58 45 4c 00 69 39 4e  |D.LDA XPIXEL.i9N|
00003160  c5 af 20 23 24 30 37 00  71 39 58 c5 54 41 58 00  |.. #$07.q9X.TAX.|
00003170  7e 39 62 c5 4c 44 41 20  23 24 38 30 00 92 39 6c  |~9b.LDA #$80..9l|
00003180  c5 47 42 49 54 4c 50 20  43 50 58 20 23 24 30 30  |.GBITLP CPX #$00|
00003190  00 9e 39 76 c5 42 45 51  20 50 50 9a 00 a8 39 80  |..9v.BEQ PP...9.|
000031a0  c5 4c 53 52 20 41 00 b0  39 8a c5 44 45 58 00 bf  |.LSR A..9..DEX..|
000031b0  39 94 c5 4a 4d 50 20 47  42 49 54 4c 50 00 cf 39  |9..JMP GBITLP..9|
000031c0  9e c5 50 50 9a 20 53 54  41 20 24 46 44 00 d7 39  |..PP. STA $FD..9|
000031d0  a8 c5 52 54 53 00 ec 39  b2 c5 50 4c 4f a4 4e 20  |..RTS..9..PLO.N |
000031e0  4a 53 52 20 50 4c 4f 54  50 43 00 f9 39 bc c5 4c  |JSR PLOTPC..9..L|
000031f0  44 59 20 23 24 30 30 00  09 3a c6 c5 4c 44 41 20  |DY #$00..:..LDA |
00003200  28 24 46 42 29 2c 59 00  14 3a d0 c5 b0 41 20 24  |($FB),Y..:...A $|
00003210  46 44 00 24 3a da c5 53  54 41 20 28 24 46 42 29  |FD.$:..STA ($FB)|
00003220  2c 59 00 2c 3a e4 c5 52  54 53 00 42 3a ee c5 50  |,Y.,:..RTS.B:..P|
00003230  4c 4f a4 46 46 20 4a 53  52 20 50 4c 4f 54 50 43  |LO.FF JSR PLOTPC|
00003240  00 4e 3a f8 c5 4c 44 41  20 24 46 44 00 5a 3a 02  |.N:..LDA $FD.Z:.|
00003250  c6 45 b0 20 23 24 46 46  00 66 3a 0c c6 53 54 41  |.E. #$FF.f:..STA|
00003260  20 24 46 44 00 73 3a 16  c6 4c 44 59 20 23 24 30  | $FD.s:..LDY #$0|
00003270  30 00 83 3a 20 c6 4c 44  41 20 28 24 46 42 29 2c  |0..: .LDA ($FB),|
00003280  59 00 8d 3a 2a c6 af 20  24 46 44 00 9d 3a 34 c6  |Y..:*.. $FD..:4.|
00003290  53 54 41 20 28 24 46 42  29 2c 59 00 a5 3a 3e c6  |STA ($FB),Y..:>.|
000032a0  52 54 53 00 b9 3a 48 c6  50 4c 4f 54 20 4c 44 41  |RTS..:H.PLOT LDA|
000032b0  20 43 4f 4c 4f 55 52 00  c4 3a 52 c6 af 20 23 24  | COLOUR..:R.. #$|
000032c0  30 32 00 d1 3a 5c c6 42  4e 45 20 50 50 41 91 00  |02..:\.BNE PPA..|
000032d0  e0 3a 66 c6 4a 53 52 20  50 4c 4f a4 46 46 00 ef  |.:f.JSR PLO.FF..|
000032e0  3a 70 c6 4a 4d 50 20 50  50 41 43 4e 54 00 02 3b  |:p.JMP PPACNT..;|
000032f0  7a c6 50 50 41 91 20 4a  53 52 20 50 4c 4f a4 4e  |z.PPA. JSR PLO.N|
00003300  00 18 3b 84 c6 50 50 41  43 4e 54 20 49 4e 43 20  |..;..PPACNT INC |
00003310  58 50 49 58 45 4c 00 27  3b 8e c6 4c 44 41 20 43  |XPIXEL.';..LDA C|
00003320  4f 4c 4f 55 52 00 32 3b  98 c6 af 20 23 24 30 31  |OLOUR.2;... #$01|
00003330  00 3f 3b a2 c6 42 4e 45  20 50 50 42 91 00 4e 3b  |.?;..BNE PPB..N;|
00003340  ac c6 4a 53 52 20 50 4c  4f a4 46 46 00 5d 3b b6  |..JSR PLO.FF.];.|
00003350  c6 4a 4d 50 20 50 50 42  43 4e 54 00 70 3b c0 c6  |.JMP PPBCNT.p;..|
00003360  50 50 42 91 20 4a 53 52  20 50 4c 4f a4 4e 00 86  |PPB. JSR PLO.N..|
00003370  3b ca c6 50 50 42 43 4e  54 20 49 4e 43 20 58 50  |;..PPBCNT INC XP|
00003380  49 58 45 4c 00 8e 3b d4  c6 52 54 53 00 b3 3b d8  |IXEL..;..RTS..;.|
00003390  d6 3b 20 20 20 20 20 20  20 5a 4f 4f 4d 20 43 41  |.;       ZOOM CA|
000033a0  4c 43 55 4c 41 54 49 91  20 52 4f 55 54 49 4e 45  |LCULATI. ROUTINE|
000033b0  53 00 c9 3b e2 d6 4e 4f  5a 4f 4f 4d 20 4a 4d 50  |S..;..NOZOOM JMP|
000033c0  20 9a 52 4f 4c 4f 50 00  de 3b ec d6 5a 4f 4f 4d  | .ROLOP..;..ZOOM|
000033d0  49 4e 20 4c 44 41 20 24  44 30 31 35 00 e9 3b f6  |IN LDA $D015..;.|
000033e0  d6 af 20 23 24 46 30 00  f6 3b 00 d7 43 4d 50 20  |.. #$F0..;..CMP |
000033f0  23 24 46 30 00 05 3c 0a  d7 42 4e 45 20 4e 4f 5a  |#$F0..<..BNE NOZ|
00003400  4f 4f 4d 00 12 3c 14 d7  4c 44 41 20 23 24 31 45  |OOM..<..LDA #$1E|
00003410  00 20 3c 1e d7 53 54 41  20 24 34 31 30 30 00 2d  |. <..STA $4100.-|
00003420  3c 28 d7 4c 44 41 20 23  24 30 31 00 3b 3c 32 d7  |<(.LDA #$01.;<2.|
00003430  53 54 41 20 24 34 31 30  31 00 48 3c 3c d7 4c 44  |STA $4101.H<<.LD|
00003440  41 20 23 24 31 30 00 56  3c 46 d7 53 54 41 20 24  |A #$10.V<F.STA $|
00003450  34 31 30 32 00 67 3c 50  d7 4a 53 52 20 53 55 42  |4102.g<P.JSR SUB|
00003460  54 52 41 43 54 00 74 3c  5a d7 4c 44 41 20 23 24  |TRACT.t<Z.LDA #$|
00003470  30 31 00 82 3c 64 d7 53  54 41 20 24 34 31 30 30  |01..<d.STA $4100|
00003480  00 90 3c 6e d7 49 4e 43  20 24 34 31 30 32 00 9e  |..<n.INC $4102..|
00003490  3c 78 d7 4a 53 52 20 45  51 55 41 4c 00 ab 3c 82  |<x.JSR EQUAL..<.|
000034a0  d7 4c 44 41 20 23 24 31  30 00 b9 3c 8c d7 53 54  |.LDA #$10..<..ST|
000034b0  41 20 24 34 31 30 30 00  c6 3c 96 d7 4c 44 41 20  |A $4100..<..LDA |
000034c0  23 24 31 42 00 d4 3c a0  d7 53 54 41 20 24 34 31  |#$1B..<..STA $41|
000034d0  30 31 00 e1 3c aa d7 4c  44 41 20 23 24 31 32 00  |01..<..LDA #$12.|
000034e0  ef 3c b4 d7 53 54 41 20  24 34 31 30 32 00 00 3d  |.<..STA $4102..=|
000034f0  be d7 4a 53 52 20 4d 55  4c 54 49 50 4c 59 00 0d  |..JSR MULTIPLY..|
00003500  3d c8 d7 4c 44 41 20 23  24 31 31 00 1b 3d d2 d7  |=..LDA #$11..=..|
00003510  53 54 41 20 24 34 31 30  30 00 29 3d dc d7 53 54  |STA $4100.)=..ST|
00003520  41 20 24 34 31 30 32 00  36 3d e6 d7 4c 44 41 20  |A $4102.6=..LDA |
00003530  23 24 31 32 00 44 3d f0  d7 53 54 41 20 24 34 31  |#$12.D=..STA $41|
00003540  30 31 00 52 3d fa d7 4c  44 41 20 24 44 30 30 38  |01.R=..LDA $D008|
00003550  00 5a 3d 04 d8 53 45 43  00 67 3d 0e d8 53 42 43  |.Z=..SEC.g=..SBC|
00003560  20 23 24 35 38 00 7f 3d  18 d8 43 41 4c 43 49 4e  | #$58..=..CALCIN|
00003570  4c 4f 50 41 20 43 4d 50  20 23 24 30 30 00 8f 3d  |LOPA CMP #$00..=|
00003580  22 d8 42 45 51 20 43 41  4c 43 80 49 41 00 97 3d  |".BEQ CALC.IA..=|
00003590  2c d8 50 48 41 00 a7 3d  36 d8 4a 53 52 20 41 44  |,.PHA..=6.JSR AD|
000035a0  44 49 54 49 91 00 af 3d  40 d8 50 4c 41 00 b7 3d  |DITI...=@.PLA..=|
000035b0  4a d8 54 41 58 00 bf 3d  54 d8 44 45 58 00 c7 3d  |J.TAX..=T.DEX..=|
000035c0  5e d8 54 58 41 00 da 3d  68 d8 4a 4d 50 20 43 41  |^.TXA..=h.JMP CA|
000035d0  4c 43 49 4e 4c 4f 50 41  00 ef 3d 72 d8 43 41 4c  |LCINLOPA..=r.CAL|
000035e0  43 80 49 41 20 4c 44 41  20 23 24 30 31 00 fd 3d  |C.IA LDA #$01..=|
000035f0  7c d8 53 54 41 20 24 34  31 30 30 00 0a 3e 86 d8  ||.STA $4100..>..|
00003600  4c 44 41 20 23 24 31 33  00 18 3e 90 d8 53 54 41  |LDA #$13..>..STA|
00003610  20 24 34 31 30 32 00 26  3e 9a d8 4a 53 52 20 45  | $4102.&>..JSR E|
00003620  51 55 41 4c 00 33 3e a4  d8 4c 44 41 20 23 24 31  |QUAL.3>..LDA #$1|
00003630  33 00 41 3e ae d8 53 54  41 20 24 34 31 30 30 00  |3.A>..STA $4100.|
00003640  4f 3e b8 d8 53 54 41 20  24 34 31 30 32 00 5c 3e  |O>..STA $4102.\>|
00003650  c2 d8 4c 44 41 20 23 24  31 32 00 6a 3e cc d8 53  |..LDA #$12.j>..S|
00003660  54 41 20 24 34 31 30 31  00 78 3e d6 d8 4c 44 41  |TA $4101.x>..LDA|
00003670  20 24 44 30 30 41 00 80  3e e0 d8 53 45 43 00 8d  | $D00A..>..SEC..|
00003680  3e ea d8 53 42 43 20 23  24 34 30 00 a5 3e f4 d8  |>..SBC #$40..>..|
00003690  43 41 4c 43 49 4e 4c 4f  50 42 20 43 4d 50 20 23  |CALCINLOPB CMP #|
000036a0  24 30 30 00 b5 3e fe d8  42 45 51 20 43 41 4c 43  |$00..>..BEQ CALC|
000036b0  80 49 42 00 bd 3e 08 d9  50 48 41 00 cd 3e 12 d9  |.IB..>..PHA..>..|
000036c0  4a 53 52 20 41 44 44 49  54 49 91 00 d5 3e 1c d9  |JSR ADDITI...>..|
000036d0  50 4c 41 00 dd 3e 26 d9  54 41 58 00 e5 3e 30 d9  |PLA..>&.TAX..>0.|
000036e0  44 45 58 00 ed 3e 3a d9  54 58 41 00 00 3f 44 d9  |DEX..>:.TXA..?D.|
000036f0  4a 4d 50 20 43 41 4c 43  49 4e 4c 4f 50 42 00 15  |JMP CALCINLOPB..|
00003700  3f 4e d9 43 41 4c 43 80  49 42 20 4c 44 41 20 23  |?N.CALC.IB LDA #|
00003710  24 31 31 00 23 3f 58 d9  53 54 41 20 24 34 31 30  |$11.#?X.STA $410|
00003720  30 00 30 3f 62 d9 4c 44  41 20 23 24 30 31 00 3e  |0.0?b.LDA #$01.>|
00003730  3f 6c d9 53 54 41 20 24  34 31 30 32 00 4c 3f 76  |?l.STA $4102.L?v|
00003740  d9 4a 53 52 20 45 51 55  41 4c 00 59 3f 80 d9 4c  |.JSR EQUAL.Y?..L|
00003750  44 41 20 23 24 31 33 00  67 3f 8a d9 53 54 41 20  |DA #$13.g?..STA |
00003760  24 34 31 30 30 00 74 3f  94 d9 4c 44 41 20 23 24  |$4100.t?..LDA #$|
00003770  31 45 00 82 3f 9e d9 53  54 41 20 24 34 31 30 32  |1E..?..STA $4102|
00003780  00 90 3f a8 d9 4a 53 52  20 45 51 55 41 4c 00 9d  |..?..JSR EQUAL..|
00003790  3f b2 d9 4c 44 41 20 23  24 31 46 00 ab 3f bc d9  |?..LDA #$1F..?..|
000037a0  53 54 41 20 24 34 31 30  30 00 b8 3f c6 d9 4c 44  |STA $4100..?..LD|
000037b0  41 20 23 24 30 33 00 c6  3f d0 d9 53 54 41 20 24  |A #$03..?..STA $|
000037c0  34 31 30 31 00 d3 3f da  d9 4c 44 41 20 23 24 31  |4101..?..LDA #$1|
000037d0  30 00 e1 3f e4 d9 53 54  41 20 24 34 31 30 32 00  |0..?..STA $4102.|
000037e0  f2 3f ee d9 4a 53 52 20  53 55 42 54 52 41 43 54  |.?..JSR SUBTRACT|
000037f0  00 ff 3f f8 d9 4c 44 41  20 23 24 30 33 00 0d 40  |..?..LDA #$03..@|
00003800  02 da 53 54 41 20 24 34  31 30 30 00 1b 40 0c da  |..STA $4100..@..|
00003810  49 4e 43 20 24 34 31 30  32 00 29 40 16 da 4a 53  |INC $4102.)@..JS|
00003820  52 20 45 51 55 41 4c 00  36 40 20 da 4c 44 41 20  |R EQUAL.6@ .LDA |
00003830  23 24 31 30 00 44 40 2a  da 53 54 41 20 24 34 31  |#$10.D@*.STA $41|
00003840  30 30 00 51 40 34 da 4c  44 41 20 23 24 31 32 00  |00.Q@4.LDA #$12.|
00003850  5f 40 3e da 53 54 41 20  24 34 31 30 32 00 6c 40  |_@>.STA $4102.l@|
00003860  48 da 4c 44 41 20 23 24  31 41 00 7a 40 52 da 53  |H.LDA #$1A.z@R.S|
00003870  54 41 20 24 34 31 30 31  00 8b 40 5c da 4a 53 52  |TA $4101..@\.JSR|
00003880  20 4d 55 4c 54 49 50 4c  59 00 98 40 66 da 4c 44  | MULTIPLY..@f.LD|
00003890  41 20 23 24 31 31 00 a6  40 70 da 53 54 41 20 24  |A #$11..@p.STA $|
000038a0  34 31 30 30 00 b4 40 7a  da 53 54 41 20 24 34 31  |4100..@z.STA $41|
000038b0  30 32 00 c1 40 84 da 4c  44 41 20 23 24 31 32 00  |02..@..LDA #$12.|
000038c0  cf 40 8e da 53 54 41 20  24 34 31 30 31 00 dd 40  |.@..STA $4101..@|
000038d0  98 da 4c 44 41 20 24 44  30 30 39 00 e5 40 a2 da  |..LDA $D009..@..|
000038e0  53 45 43 00 f2 40 ac da  53 42 43 20 23 24 33 32  |SEC..@..SBC #$32|
000038f0  00 08 41 b6 da 43 41 4c  43 49 4e 59 41 20 43 4d  |..A..CALCINYA CM|
00003900  50 20 23 24 30 30 00 18  41 c0 da 42 45 51 20 43  |P #$00..A..BEQ C|
00003910  41 4c 43 80 49 43 00 20  41 ca da 50 48 41 00 30  |ALC.IC. A..PHA.0|
00003920  41 d4 da 4a 53 52 20 41  44 44 49 54 49 91 00 38  |A..JSR ADDITI..8|
00003930  41 de da 50 4c 41 00 40  41 e8 da 54 41 58 00 48  |A..PLA.@A..TAX.H|
00003940  41 f2 da 44 45 58 00 50  41 fc da 54 58 41 00 61  |A..DEX.PA..TXA.a|
00003950  41 06 db 4a 4d 50 20 43  41 4c 43 49 4e 59 41 00  |A..JMP CALCINYA.|
00003960  76 41 10 db 43 41 4c 43  80 49 43 20 4c 44 41 20  |vA..CALC.IC LDA |
00003970  23 24 30 33 00 84 41 1a  db 53 54 41 20 24 34 31  |#$03..A..STA $41|
00003980  30 30 00 91 41 24 db 4c  44 41 20 23 24 31 33 00  |00..A$.LDA #$13.|
00003990  9f 41 2e db 53 54 41 20  24 34 31 30 32 00 ad 41  |.A..STA $4102..A|
000039a0  38 db 4a 53 52 20 45 51  55 41 4c 00 ba 41 42 db  |8.JSR EQUAL..AB.|
000039b0  4c 44 41 20 23 24 31 33  00 c8 41 4c db 53 54 41  |LDA #$13..AL.STA|
000039c0  20 24 34 31 30 30 00 d6  41 56 db 53 54 41 20 24  | $4100..AV.STA $|
000039d0  34 31 30 32 00 e3 41 60  db 4c 44 41 20 23 24 31  |4102..A`.LDA #$1|
000039e0  32 00 f1 41 6a db 53 54  41 20 24 34 31 30 31 00  |2..Aj.STA $4101.|
000039f0  ff 41 74 db 4c 44 41 20  24 44 30 30 44 00 07 42  |.At.LDA $D00D..B|
00003a00  7e db 53 45 43 00 14 42  88 db 53 42 43 20 23 24  |~.SEC..B..SBC #$|
00003a10  31 44 00 2a 42 92 db 43  41 4c 43 49 4e 59 42 20  |1D.*B..CALCINYB |
00003a20  43 4d 50 20 23 24 30 30  00 3a 42 9c db 42 45 51  |CMP #$00.:B..BEQ|
00003a30  20 43 41 4c 43 80 49 44  00 42 42 a6 db 50 48 41  | CALC.ID.BB..PHA|
00003a40  00 52 42 b0 db 4a 53 52  20 41 44 44 49 54 49 91  |.RB..JSR ADDITI.|
00003a50  00 5a 42 ba db 50 4c 41  00 62 42 c4 db 54 41 58  |.ZB..PLA.bB..TAX|
00003a60  00 6a 42 ce db 44 45 58  00 72 42 d8 db 54 58 41  |.jB..DEX.rB..TXA|
00003a70  00 83 42 e2 db 4a 4d 50  20 43 41 4c 43 49 4e 59  |..B..JMP CALCINY|
00003a80  42 00 98 42 ec db 43 41  4c 43 80 49 44 20 4c 44  |B..B..CALC.ID LD|
00003a90  41 20 23 24 31 31 00 a6  42 f6 db 53 54 41 20 24  |A #$11..B..STA $|
00003aa0  34 31 30 30 00 b3 42 00  dc 4c 44 41 20 23 24 30  |4100..B..LDA #$0|
00003ab0  33 00 c1 42 0a dc 53 54  41 20 24 34 31 30 32 00  |3..B..STA $4102.|
00003ac0  cf 42 14 dc 4a 53 52 20  45 51 55 41 4c 00 dc 42  |.B..JSR EQUAL..B|
00003ad0  1e dc 4c 44 41 20 23 24  31 33 00 ea 42 28 dc 53  |..LDA #$13..B(.S|
00003ae0  54 41 20 24 34 31 30 30  00 f7 42 32 dc 4c 44 41  |TA $4100..B2.LDA|
00003af0  20 23 24 31 46 00 05 43  3c dc 53 54 41 20 24 34  | #$1F..C<.STA $4|
00003b00  31 30 32 00 13 43 46 dc  4a 53 52 20 45 51 55 41  |102..CF.JSR EQUA|
00003b10  4c 00 20 43 50 dc 4c 44  41 20 23 24 31 45 00 2e  |L. CP.LDA #$1E..|
00003b20  43 5a dc 53 54 41 20 24  34 31 30 30 00 3b 43 64  |CZ.STA $4100.;Cd|
00003b30  dc 4c 44 41 20 23 24 30  31 00 49 43 6e dc 53 54  |.LDA #$01.ICn.ST|
00003b40  41 20 24 34 31 30 31 00  56 43 78 dc 4c 44 41 20  |A $4101.VCx.LDA |
00003b50  23 24 31 30 00 64 43 82  dc 53 54 41 20 24 34 31  |#$10.dC..STA $41|
00003b60  30 32 00 75 43 8c dc 4a  53 52 20 53 55 42 54 52  |02.uC..JSR SUBTR|
00003b70  41 43 54 00 82 43 96 dc  4c 44 41 20 23 24 31 30  |ACT..C..LDA #$10|
00003b80  00 90 43 a0 dc 53 54 41  20 24 34 31 30 30 00 9d  |..C..STA $4100..|
00003b90  43 aa dc 4c 44 41 20 23  24 31 42 00 ab 43 b4 dc  |C..LDA #$1B..C..|
00003ba0  53 54 41 20 24 34 31 30  31 00 b8 43 be dc 4c 44  |STA $4101..C..LD|
00003bb0  41 20 23 24 30 32 00 c6  43 c8 dc 53 54 41 20 24  |A #$02..C..STA $|
00003bc0  34 31 30 32 00 d7 43 d2  dc 4a 53 52 20 4d 55 4c  |4102..C..JSR MUL|
00003bd0  54 49 50 4c 59 00 e4 43  dc dc 4c 44 41 20 23 24  |TIPLY..C..LDA #$|
00003be0  31 46 00 f2 43 e6 dc 53  54 41 20 24 34 31 30 30  |1F..C..STA $4100|
00003bf0  00 ff 43 f0 dc 4c 44 41  20 23 24 30 33 00 0d 44  |..C..LDA #$03..D|
00003c00  fa dc 53 54 41 20 24 34  31 30 31 00 1a 44 04 dd  |..STA $4101..D..|
00003c10  4c 44 41 20 23 24 31 30  00 28 44 0e dd 53 54 41  |LDA #$10.(D..STA|
00003c20  20 24 34 31 30 32 00 39  44 18 dd 4a 53 52 20 53  | $4102.9D..JSR S|
00003c30  55 42 54 52 41 43 54 00  46 44 22 dd 4c 44 41 20  |UBTRACT.FD".LDA |
00003c40  23 24 31 30 00 54 44 2c  dd 53 54 41 20 24 34 31  |#$10.TD,.STA $41|
00003c50  30 30 00 61 44 36 dd 4c  44 41 20 23 24 31 41 00  |00.aD6.LDA #$1A.|
00003c60  6f 44 40 dd 53 54 41 20  24 34 31 30 31 00 7c 44  |oD@.STA $4101.|D|
00003c70  4a dd 4c 44 41 20 23 24  30 34 00 8a 44 54 dd 53  |J.LDA #$04..DT.S|
00003c80  54 41 20 24 34 31 30 32  00 9b 44 5e dd 4a 53 52  |TA $4102..D^.JSR|
00003c90  20 4d 55 4c 54 49 50 4c  59 00 a8 44 68 dd 4a 53  | MULTIPLY..Dh.JS|
00003ca0  52 20 4d af 4c 45 00 b7  44 72 dd 4a 4d 50 20 9a  |R M.LE..Dr.JMP .|
00003cb0  52 4f 4c 4f 50 00 dd 44  60 ea 3b 20 20 20 20 20  |ROLOP..D`.;     |
00003cc0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 5a 4f  |              ZO|
00003cd0  4f 4d 20 52 4f 55 54 49  4e 45 53 00 ec 44 6a ea  |OM ROUTINES..Dj.|
00003ce0  42 4f 58 20 4c 44 41 20  58 50 00 f9 44 74 ea 53  |BOX LDA XP..Dt.S|
00003cf0  54 41 20 58 50 49 42 00  04 45 7e ea 4c 44 41 20  |TA XPIB..E~.LDA |
00003d00  59 50 00 11 45 88 ea 53  54 41 20 59 50 49 42 00  |YP..E..STA YPIB.|
00003d10  1d 45 92 ea 4c 44 41 20  58 50 42 00 2b 45 9c ea  |.E..LDA XPB.+E..|
00003d20  53 54 41 20 58 50 42 49  42 00 38 45 a6 ea 4c 44  |STA XPBIB.8E..LD|
00003d30  58 20 23 24 33 43 00 46  45 b0 ea 53 54 58 20 24  |X #$3C.FE..STX $|
00003d40  30 37 46 43 00 4e 45 ba  ea 49 4e 58 00 5c 45 c4  |07FC.NE..INX.\E.|
00003d50  ea 53 54 58 20 24 30 37  46 44 00 64 45 ce ea 49  |.STX $07FD.dE..I|
00003d60  4e 58 00 72 45 d8 ea 53  54 58 20 24 30 37 46 45  |NX.rE..STX $07FE|
00003d70  00 7a 45 e2 ea 49 4e 58  00 88 45 ec ea 53 54 58  |.zE..INX..E..STX|
00003d80  20 24 30 37 46 46 00 96  45 f6 ea 4c 44 41 20 24  | $07FF..E..LDA $|
00003d90  44 30 31 35 00 a2 45 00  eb b0 41 20 23 24 46 30  |D015..E...A #$F0|
00003da0  00 b0 45 0a eb 53 54 41  20 24 44 30 31 35 00 c3  |..E..STA $D015..|
00003db0  45 14 eb 42 4f 58 92 20  4c 44 41 20 43 4c 49 43  |E..BOX. LDA CLIC|
00003dc0  4b 00 d0 45 1e eb 42 4e  45 20 42 4f 58 92 00 e6  |K..E..BNE BOX...|
00003dd0  45 78 eb 42 4f 58 4c 4f  4f 50 20 4c 44 41 20 58  |Ex.BOXLOOP LDA X|
00003de0  50 42 49 42 00 f2 45 82  eb 43 4d 50 20 58 50 42  |PBIB..E..CMP XPB|
00003df0  00 04 46 8c eb 42 45 51  20 43 48 45 43 4b 46 49  |..F..BEQ CHECKFI|
00003e00  4e 45 00 15 46 96 eb 42  43 53 20 4c 45 53 53 54  |NE..F..BCS LESST|
00003e10  48 41 4e 00 25 46 a0 eb  4a 4d 50 20 4d b0 45 54  |HAN.%F..JMP M.ET|
00003e20  48 41 4e 00 3c 46 aa eb  43 48 45 43 4b 46 49 4e  |HAN.<F..CHECKFIN|
00003e30  45 20 4c 44 41 20 58 50  49 42 00 47 46 b4 eb 43  |E LDA XPIB.GF..C|
00003e40  4d 50 20 58 50 00 58 46  be eb 42 43 53 20 4c 45  |MP XP.XF..BCS LE|
00003e50  53 53 54 48 41 4e 00 6d  46 c8 eb 4d b0 45 54 48  |SSTHAN.mF..M.ETH|
00003e60  41 4e 20 4c 44 41 20 58  50 49 42 00 7b 46 d2 eb  |AN LDA XPIB.{F..|
00003e70  53 54 41 20 24 44 30 30  38 00 89 46 dc eb 53 54  |STA $D008..F..ST|
00003e80  41 20 24 44 30 30 43 00  96 46 e6 eb 4c 44 58 20  |A $D00C..F..LDX |
00003e90  23 24 30 30 00 a4 46 f0  eb 4c 44 41 20 58 50 42  |#$00..F..LDA XPB|
00003ea0  49 42 00 b5 46 fa eb 42  45 51 20 4e 4f 58 50 42  |IB..F..BEQ NOXPB|
00003eb0  41 44 44 00 c2 46 04 ec  4c 44 58 20 23 24 35 30  |ADD..F..LDX #$50|
00003ec0  00 d9 46 0e ec 4e 4f 58  50 42 41 44 44 20 4c 44  |..F..NOXPBADD LD|
00003ed0  41 20 24 44 30 31 30 00  e4 46 18 ec af 20 23 24  |A $D010..F... #$|
00003ee0  41 46 00 f0 46 22 ec 53  54 58 20 24 30 32 00 f8  |AF..F".STX $02..|
00003ef0  46 2c ec 43 4c 43 00 04  47 36 ec 41 44 43 20 24  |F,.CLC..G6.ADC $|
00003f00  30 32 00 12 47 40 ec 53  54 41 20 24 44 30 31 30  |02..G@.STA $D010|
00003f10  00 1f 47 45 ec 4c 44 58  20 23 24 30 30 00 2a 47  |..GE.LDX #$00.*G|
00003f20  4a ec 4c 44 41 20 58 50  00 32 47 54 ec 53 45 43  |J.LDA XP.2GT.SEC|
00003f30  00 3f 47 5e ec 53 42 43  20 23 24 31 38 00 4d 47  |.?G^.SBC #$18.MG|
00003f40  68 ec 53 54 41 20 24 44  30 30 41 00 5b 47 72 ec  |h.STA $D00A.[Gr.|
00003f50  53 54 41 20 24 44 30 30  45 00 69 47 7c ec 42 43  |STA $D00E.iG|.BC|
00003f60  43 20 4d 54 53 55 42 00  75 47 86 ec 4c 44 58 20  |C MTSUB.uG..LDX |
00003f70  58 50 42 00 83 47 90 ec  42 45 51 20 4d 54 53 55  |XPB..G..BEQ MTSU|
00003f80  42 00 90 47 9a ec 4c 44  58 20 23 24 41 30 00 a4  |B..G..LDX #$A0..|
00003f90  47 a4 ec 4d 54 53 55 42  20 4c 44 41 20 24 44 30  |G..MTSUB LDA $D0|
00003fa0  31 30 00 af 47 ae ec af  20 23 24 35 46 00 bb 47  |10..G... #$5F..G|
00003fb0  b8 ec 53 54 58 20 24 30  32 00 c3 47 c2 ec 43 4c  |..STX $02..G..CL|
00003fc0  43 00 cf 47 cc ec 41 44  43 20 24 30 32 00 dd 47  |C..G..ADC $02..G|
00003fd0  d6 ec 53 54 41 20 24 44  30 31 30 00 ea 47 e0 ec  |..STA $D010..G..|
00003fe0  4a 4d 50 20 42 4f 58 9a  00 fe 47 ea ec 4c 45 53  |JMP BOX...G..LES|
00003ff0  53 54 48 41 4e 20 4c 44  41 20 58 50 00 0a 48 f4  |STHAN LDA XP..H.|
00004000  ec 4c 44 58 20 58 50 42  00 17 48 fe ec 42 4e 45  |.LDX XPB..H..BNE|
00004010  20 a8 4f 55 54 00 24 48  08 ed 43 4d 50 20 23 24  | .OUT.$H..CMP #$|
00004020  35 38 00 31 48 12 ed 42  43 53 20 a8 4f 55 54 00  |58.1H..BCS .OUT.|
00004030  3e 48 1c ed 4c 44 41 20  23 24 35 38 00 51 48 26  |>H..LDA #$58.QH&|
00004040  ed a8 4f 55 54 20 53 54  41 20 24 44 30 30 38 00  |..OUT STA $D008.|
00004050  5f 48 30 ed 53 54 41 20  24 44 30 30 43 00 6c 48  |_H0.STA $D00C.lH|
00004060  3a ed 43 50 58 20 23 24  30 30 00 7c 48 44 ed 42  |:.CPX #$00.|HD.B|
00004070  45 51 20 4c 54 4e 4f 41  44 44 00 89 48 4e ed 4c  |EQ LTNOADD..HN.L|
00004080  44 58 20 23 24 35 30 00  9f 48 58 ed 4c 54 4e 4f  |DX #$50..HX.LTNO|
00004090  41 44 44 20 4c 44 41 20  24 44 30 31 30 00 aa 48  |ADD LDA $D010..H|
000040a0  62 ed af 20 23 24 41 46  00 b6 48 6c ed 53 54 58  |b.. #$AF..Hl.STX|
000040b0  20 24 30 32 00 be 48 76  ed 43 4c 43 00 ca 48 80  | $02..Hv.CLC..H.|
000040c0  ed 41 44 43 20 24 30 32  00 d8 48 8a ed 53 54 41  |.ADC $02..H..STA|
000040d0  20 24 44 30 31 30 00 e5  48 8f ed 4c 44 58 20 23  | $D010..H..LDX #|
000040e0  24 30 30 00 f2 48 94 ed  4c 44 41 20 58 50 49 42  |$00..H..LDA XPIB|
000040f0  00 fa 48 9e ed 53 45 43  00 07 49 a8 ed 53 42 43  |..H..SEC..I..SBC|
00004100  20 23 24 31 38 00 15 49  b2 ed 53 54 41 20 24 44  | #$18..I..STA $D|
00004110  30 30 41 00 23 49 bc ed  53 54 41 20 24 44 30 30  |00A.#I..STA $D00|
00004120  45 00 31 49 c6 ed 42 43  43 20 4c 54 53 55 42 00  |E.1I..BCC LTSUB.|
00004130  3f 49 d0 ed 4c 44 58 20  58 50 42 49 42 00 4d 49  |?I..LDX XPBIB.MI|
00004140  da ed 42 45 51 20 4c 54  53 55 42 00 5a 49 e4 ed  |..BEQ LTSUB.ZI..|
00004150  4c 44 58 20 23 24 41 30  00 6e 49 ee ed 4c 54 53  |LDX #$A0.nI..LTS|
00004160  55 42 20 4c 44 41 20 24  44 30 31 30 00 79 49 f8  |UB LDA $D010.yI.|
00004170  ed af 20 23 24 35 46 00  85 49 02 ee 53 54 58 20  |.. #$5F..I..STX |
00004180  24 30 32 00 8d 49 0c ee  43 4c 43 00 99 49 16 ee  |$02..I..CLC..I..|
00004190  41 44 43 20 24 30 32 00  a7 49 20 ee 53 54 41 20  |ADC $02..I .STA |
000041a0  24 44 30 31 30 00 b7 49  2a ee 42 4f 58 9a 20 4c  |$D010..I*.BOX. L|
000041b0  44 41 20 59 50 00 c4 49  34 ee 43 4d 50 20 59 50  |DA YP..I4.CMP YP|
000041c0  49 42 00 d2 49 3e ee 42  43 43 20 4c 45 53 53 59  |IB..I>.BCC LESSY|
000041d0  00 df 49 48 ee 4c 44 41  20 59 50 49 42 00 ed 49  |..IH.LDA YPIB..I|
000041e0  52 ee 53 54 41 20 24 44  30 30 39 00 fb 49 5c ee  |R.STA $D009..I\.|
000041f0  53 54 41 20 24 44 30 30  42 00 06 4a 66 ee 4c 44  |STA $D00B..Jf.LD|
00004200  41 20 59 50 00 0e 4a 70  ee 53 45 43 00 1b 4a 7a  |A YP..Jp.SEC..Jz|
00004210  ee 53 42 43 20 23 24 31  35 00 29 4a 84 ee 53 54  |.SBC #$15.)J..ST|
00004220  41 20 24 44 30 30 44 00  37 4a 8e ee 53 54 41 20  |A $D00D.7J..STA |
00004230  24 44 30 30 46 00 46 4a  98 ee 4a 4d 50 20 42 4f  |$D00F.FJ..JMP BO|
00004240  58 9a 49 49 00 57 4a a2  ee 4c 45 53 53 59 20 4c  |X.II.WJ..LESSY L|
00004250  44 41 20 59 50 00 65 4a  ac ee 53 54 41 20 24 44  |DA YP.eJ..STA $D|
00004260  30 30 39 00 73 4a b6 ee  53 54 41 20 24 44 30 30  |009.sJ..STA $D00|
00004270  42 00 80 4a c0 ee 4c 44  41 20 59 50 49 42 00 88  |B..J..LDA YPIB..|
00004280  4a ca ee 53 45 43 00 95  4a d4 ee 53 42 43 20 23  |J..SEC..J..SBC #|
00004290  24 31 35 00 a3 4a de ee  53 54 41 20 24 44 30 30  |$15..J..STA $D00|
000042a0  44 00 b1 4a e8 ee 53 54  41 20 24 44 30 30 46 00  |D..J..STA $D00F.|
000042b0  c6 4a f2 ee 42 4f 58 9a  49 49 20 4c 44 41 20 43  |.J..BOX.II LDA C|
000042c0  4c 49 43 4b 00 d3 4a fc  ee 42 4e 45 20 42 4f 58  |LICK..J..BNE BOX|
000042d0  80 00 e3 4a 06 ef 4a 4d  50 20 42 4f 58 4c 4f 4f  |...J..JMP BOXLOO|
000042e0  50 00 f7 4a 10 ef 42 4f  58 80 20 4a 4d 50 20 9a  |P..J..BOX. JMP .|
000042f0  52 4f 4c 4f 50 00 0c 4b  30 f2 42 4f 58 46 4c 41  |ROLOP..K0.BOXFLA|
00004300  53 48 20 4c 44 41 20 24  41 32 00 17 4b 3a f2 af  |SH LDA $A2..K:..|
00004310  20 23 24 33 43 00 21 4b  44 f2 4c 53 52 20 41 00  | #$3C.!KD.LSR A.|
00004320  2b 4b 4e f2 4c 53 52 20  41 00 33 4b 58 f2 54 41  |+KN.LSR A.3KX.TA|
00004330  58 00 45 4b 62 f2 4c 44  41 20 42 4f 58 43 4f 4c  |X.EKb.LDA BOXCOL|
00004340  53 2c 58 00 53 4b 6c f2  53 54 41 20 24 44 30 32  |S,X.SKl.STA $D02|
00004350  42 00 61 4b 76 f2 53 54  41 20 24 44 30 32 43 00  |B.aKv.STA $D02C.|
00004360  6f 4b 80 f2 53 54 41 20  24 44 30 32 44 00 7d 4b  |oK..STA $D02D.}K|
00004370  8a f2 53 54 41 20 24 44  30 32 45 00 8b 4b 94 f2  |..STA $D02E..K..|
00004380  4a 4d 50 20 24 45 41 33  31 00 ad 4b 9e f2 42 4f  |JMP $EA31..K..BO|
00004390  58 43 4f 4c 53 20 54 58  54 20 30 2c 39 2c 32 2c  |XCOLS TXT 0,9,2,|
000043a0  38 2c 31 30 2c 37 2c 31  33 2c 31 00 c7 4b a8 f2  |8,10,7,13,1..K..|
000043b0  54 58 54 20 31 2c 31 33  2c 33 2c 35 2c 31 34 2c  |TXT 1,13,3,5,14,|
000043c0  34 2c 36 2c 30 00 dc 4b  18 f6 3b 20 44 45 4c 45  |4,6,0..K..; DELE|
000043d0  54 45 20 54 48 45 53 45  21 21 00 f0 4b 22 f6 43  |TE THESE!!..K".C|
000043e0  4f 4c 53 20 4a 4d 50 20  9a 52 4f 4c 4f 50 00 08  |OLS JMP .ROLOP..|
000043f0  4c 2c f6 43 4f 4c 43 59  43 4c 45 20 4a 4d 50 20  |L,.COLCYCLE JMP |
00004400  9a 52 4f 4c 4f 50 00 19  4c 40 f6 e4 20 4a 4d 50  |.ROLOP..L@.. JMP|
00004410  20 9a 52 4f 4c 4f 50 00  2e 4c 4a f6 b9 49 54 49  | .ROLOP..LJ..ITI|
00004420  91 20 4a 4d 50 20 9a 52  4f 4c 4f 50 00 45 4c 54  |. JMP .ROLOP.ELT|
00004430  f6 5a 4f 4f 4d 4f 55 54  20 4a 4d 50 20 9a 52 4f  |.ZOOMOUT JMP .RO|
00004440  4c 4f 50 00 00 00                                 |LOP...|
00004446