PROGRAM LISTING: 86-09/FAXA.M65

��^4dQ

�P

�Q

6
	S>5@

P

J
T
X;^
�LEA.W h
	Q>5
r

P
|
	Q>4
�
P�
�
X;�
�MOVE.B �
Q
�
P�
�
X;�
�MOVE.W �
�MOVE.B 
=�
�MOVE.B 

=
�
�
X;
�POKE 	Q>4P
&0X;:
�ALSO DP
NXX;b�WRITE l$>v�@PLC�Q
9�;�S> �P9�0�	I�@PLC��X;��MOVEM �$>�LMS@��MODEFO��JMPWTA��CH�;;where keys sit��PIXSTART
;;status values��PIXDRAW��PIXOVER��GHOST,;;BOO!��ORINCOLOR��RANDOM
��IRQEN�;;Hardware�SDMCTL/;;DMA Shadow$�STICK0x;;Stick shadow.�AUDCTL�;;Audio Control8�POKMSK;;IRQEN shadowB�COLOR0�;;soft shadowsL�COLOR1�COLOR0
V�COLOR2�COLOR0`�COLOR3�COLOR0j�COLOR4�COLOR0t�ATRACTM;;It's atractive~�PORTA�ESC��CR
;;Honest CR�TOTAL.COLUMNS�
;;512�TIMER.DELAYQ;;06F2�BYTES.PER.LINE@(�NUM.SCAN.LINES�
2�SCAN.LINES.ONSCREEN�<�BPL�BYTES.PER.LINEF�NSL�NUM.SCAN.LINESP�SLO�SCAN.LINES.ONSCREENZ�SCREEN�BUFFER�	l�TWOPER	�TIMER.DELAYv�ONEPER	�;;$0EA9��MICROROW	A
��TWOLINEROW	�TOTAL.COLUMNS��ONELINEROW	�TOTAL.COLUMNS��TIMERCOUNT	�TIMER.DELAY�X;��ST.LINE�	A�K A�A�   <    >A�A�   -    +A�
�TEXT.LINE�!�JMPWT.	
	�DLIST8	X;B	X;-------------------------L	H�BL1

X;
:
X;(
X;-------------------------2
�BUILD.MODE.LINE<
%>Q>�MODEFP
P@�POINTER.A7Z
3d
Q�MLADDRn
P@�POINTER.A7x
3�
Q�MLADDR
�
P@�POINTER.A7�
�ADD.W �POINTER.A=�
�ADD.W �MLADDR=�BPL�
:�
X;�
X;-------------------------�

�SCROLL�
Q�STICK0�
N>�

P�STICK�
H�TRY.RIGHT�
:X;
�TRY.RIGHTP�ATRACT"M>�RIGHT,
F�TRY.LEFT6X;@Q�HORIZ.COUNTJR�HORIZ.LIMITT
F�TRY.LEFT^X;h#�HORIZ.COUNTr�ADD.W �DISPLAY=
|�TRY.LEFT�
Q�STICK�
M>�LEFT�F�TRY.UP�X;�Q�HORIZ.COUNT�F�TRY.UP�X;�"�HORIZ.COUNT��SUB.W �DISPLAY=
�
�TRY.UP�
Q�STICK�M>�UP�
F�TRY.DOWNX;Q�VERT.COUNT
F�TRY.DOWN&X;0"�VERT.COUNT:�SUB.W �DISPLAY=�BPLD�TRY.DOWNN
Q�STICKX
M>�DOWNb
F�FIXDLlX;vQ�VERT.COUNT�R�VERT.LIMIT�
F�FIXDL�X;�#�VERT.COUNT��ADD.W �DISPLAY=�BPL�	�FIXDL� �BUILD.LIST�:�X;�X;-------------------------��CLEAR.SCREEN��POKE �INVMASK=
��LEA.W �SCREEN=�POINTER.B
�LEA.W �SCRSIZE=�COUNTER.B
�CLS1
%>�POKE �COLMASK=��POKE �ADJCOUNT=Q�PORTAP	I�PLT0ZX;dQ>�GHOSTx�PLT0�Q>
�N�INVMASK�X;�6�%>H�PRO1X�X;��POKE �COLMASK=���MOVE.B �SPEEDADJ=�ADJCOUNT��ADD.W �POINTER.C=
	�PRO1X:X;- - - - - - - - - - - - -&�PRO20�POKE �COLMASK=�:�MOVE.B �SPEEDADJ=�ADJCOUNTD�LEA.W 
�PRINTBYTEP�BUFFER�BPUT �PRINTER=�BUFFER=
(:2X;<X;--------------------------F�PRINTFAXMAPP"�OPEN �PRINTER=�WRITE=�POKE �COLOR3=4&�POKE �SDMCTL="0::X;DX;--------------------------N�DECIMALIZEX�MOVE.W �DECIMAL=�COUNTER.Db�LEA.W F�DECIX�X;��SUB.W �COUNTER.D=
�	�DECI1�<��ADD.W �DECIMAL=
�-��SUB.W �COUNTER.D=
�
E�DECI1�	�DECIX�Q�DECIMAL�5�Q�DECIMAL
 �DEC.TO.ASCII'�DECIMAL&�DECIMAL
 7* �DEC.TO.ASCII4'�DECIMAL>&�DECIMALH:RX;\"X;- - - - - - - - - - - - - - -f�DEC.TO.ASCIIp5zM>��V?�V?�V?�V?� �CHROUT�?�7�M>�
�CHROUT�,�O>0�L>�ORINCOLOR�>X;:X;$X;--------------------------.�UPDATE.STATS8�LEA.W A�<A=A�>A=A�+A=A�-AA�1A=A�2A=A�3A=A�IAA�CA=A�LA=A�SA(�LENKEYTABLE
�KEYTABLE2X;<�KEYJUMPTABLEF	�PRINT.A.FAXMAP
P	�ADJUST.SYNC
Z
	�RESET
d	�CHANGE.SKIP
n	�LESS.COLUMNS
x	�MORE.COLUMNS
�	�MORE.TIME
�	�LESS.TIME
�	�SET1LINESEC
�	�SET2LINESEC
�	�SETMICROMODE
�	�INV.SCREEN
�	�CLEAR.SCREEN
�	�LOAD.PIX
�	�SAVE.PIX
�X;�X;--------------------------��MAIN� �INIT.SCREEN �UPDATE.STATS"�OPEN �KEYBOARD=�READ=F�MAIN1TX;^�BGET �KEYBOARD=�KEYBUFF=
hQ�KEYBUFFr$>�LENKEYTABLE|	�MAIN2�R�KEYTABLE9�
F�MAIN3�X;�0�
I�MAIN2�X;�
!�MAIN1�X;- - - - - - - - - - - - -�	�MAIN3� �PERFORM.ROUTINE�
!�MAIN1�X;�X;--------------------------�PERFORM.ROUTINEAT?&>0Q�KEYJUMPTABLE
9:5DQ�KEYJUMPTABLE9N5X:bX;lX;--------------------------v�PRINT.A.FAXMAP��POKE �STATUS=�PIXOVER� �STOP.TIMER�!�PRINTFAXMAP�X;�X;--------------------------��ADJUST.SYNC��POKE �ADJCOUNT=�:�X;�X;--------------------------�	�RESET�Q�STATUS�
R>�PIXDRAWH�GETFAXMAPX;Q�CURRCOL L�CURRCOL
*
H�RESET4X;>!�INITFAXMAPHX;RX;--------------------------\
�GETFAXMAPf�POKE �STATUS=�PIXSTARTp �START.TIMERz:�X;�X;--------------------------��CHANGE.SKIP�#�COLSKIP�Q�COLSKIP�R>
�	D�CS11�X;��POKE �COLSKIP=!�START.TIMERX;X;--------------------------(�SET2LINESEC2�MOVE.W �TWOPER=�TIMERCOUNT<�MOVE.W �TWOLINEROW=�NUMCOLF �UPDATE.STATSP!�START.TIMERZX;dX;--------------------------n�SETMICROMODEx�MOVE.W �MICROM=�TIMERCOUNT��MOVE.W �MICROROW=�NUMCOL� �UPDATE.STATS�!�START.TIMER�X;�X;--------------------------��SAVE.PIX� �STOP.TIMER��WRITE �TYPEMESS=�TEXT.LINE�X;��BGET �KEYBOARD=�KEYBUFF=
�Q�KEYBUFF�R>
M�H�SP3X;!�SAVEMICRO�SP3"R>
F,H�SP46X;@
!�SAVEFULLJ�SP4T!�UPDATE.STATS^X;h"X;-----------------------------r
�SAVEMICRO|!�WRITE �SAVINGMESS=�TEXT.LINE� �OPEN �DISK==1>!	F�SAF0H!X;R!R>
2\!
H�SAVEFULLf!�SAF0p! �MOVE.B �KEYBUFF=�FILENAME.Xz!X;�!#�OPEN �DISK=�WRITE=1V"	F�LDP0`"X;j"R>
2t"	F�LDP0~"X;�"!�UPDATE.STATS�"X;�" X;- - - - - - - - - - - - - -�"�LDP0�" �MOVE.B �KEYBUFF=�FILENAME.X�"X;�""�OPEN �DISK=�READ=# X;- - - - - - - - - - - - - -#�LPX2#!�WRITE �LOADERMESS=�TEXT.LINE(# �BGET �DISK=�SCREEN=�SCRSIZE2#�CLOSE �DISK<#!�UPDATE.STATS