F�    Jupiter III Map Printer                  by Dominic Ford 1997
:
#�6:�23,1,0;0;0;0;:�ass:�printer
(^A$="DEL.140,9999"+�13+"GOTO70"+�6+�13:�21:� char=1 � �(A$):�"FX138,0,"+�(�(�A$,char,1))):�
2�
<:
F�2:�=&2000:*LOAD Print2
P/�x=0�159:�1,27,1,42,1,4,1,28,1,2:�y=59�0�-1
Z'?(!&9FC)=x � 10:?((!&9FC)+1)=y � 10
d)?(!&9FC-2)=x � 10:?((!&9FC)-1)=y � 10
n.�(!&9F8):� b=&BC0+(?&72)*9 � &BC8+(?&72)*9
x'�1,?b:�,:�1,32,1,48+(x � 10),1,13:�
��3:�
�:
�
��printer
���"Jupiter III Map Printer"'"======================="''"NOTE: The map is printed sideways, and"'"requires 2 A4 sheets."''"Press <SPACE> when ready to print."
�� � �(-99)
� �''"Preparing to print. . ."
�S�2,1,27,1,64,1,27,1,80:�s=5�0�-1:�c=0�9:�;s;:�1,27,1,42,1,4,1,1,1,0,1,255:�,:�'
��ch=&BC0 � &CDF:� a:?ch=a
��:�1,27,1,65,1,8,3
��
�:
��0,0,0,0,0,0,0,0,0
��0,0,0,0,8,0,0,0,0

�0,0,0,8,28,8,0,0,0

�1,1,1,1,1,1,1,1,255

#�85,170,85,170,85,170,85,170,85

" �16,16,16,56,239,56,16,16,16

,�16,16,16,0,&E7,0,16,16,16

6"�66,66,126,66,66,126,66,66,126

@$�85,85,85,85,85,85,85,85,85:REM8

J �255,0,255,0,255,0,255,0,255

T(�&10,&88,&44,&A2,&51,&A8,&54,&AA,&55

^(�&08,&11,&22,&45,&8A,&15,&2A,&55,&AA

h&�0,&80,&40,&A0,&50,&A8,&54,&AA,&55

r �0,1,2,5,&0A,&15,&2A,&55,&AA

|&�0,&80,&40,&A0,&50,&A8,&54,&AA,&55

��0,126,66,66,66,66,66,126,0

�(�0,1,2,5,&0A,&15,&2A,&55,&AA:REM &10

��85,85,85,85,85,85,85,85,85

� �255,0,255,0,255,0,255,0,255

�$�0,&C0,&DF,&DF,&DF,&DF,&DF,&C0,0

�&�&39,&7D,&FF,&FF,&7D,&39,&7D,1,&FF

�&�&7F,&43,&7F,&FF,&81,&81,&FF,1,&FF

�&�&29,&11,&11,&39,&09,&09,&09,1,&FF

�$�0,&C0,&1F,&DF,&1F,&DF,&1F,&C0,0

�'�&AA,&55,&2A,&15,10,5,2,1,0:REM &18

�$�&81,&81,&91,&A9,&C5,&C5,1,1,&FF

�(�&AA,&55,&2A,&15,&0A,&85,&42,&21,&10

��&AA,&55,&2A,&15,10,5,2,1,0
(�&FF,&89,&99,&89,&9F,&89,&99,&89,&FF
&�&55,&AA,&54,&A8,&50,&A0,&40,&80,0
(�&55,&AA,&54,&A8,&51,&A2,&44,&88,&10
&&�&55,&AA,&54,&A8,&50,&A0,&40,&80,0
0:
:	��ass
D�pass=0�2�2:P%=&9F8
N
[OPT pass
XEQUD blockon
b
EQUD xscr
l.block JMP blockon
vS.screen LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset:.xlop INCxset:JSR blockon
�"LDAxset:CMP#9:BEQnexty:JMPxlop
�*.nexty LDAyset:CMP#9:BEQscrend:JMPylop
�.scrend RTS
�:
�[.blockon LDA#&20:CLC:ADCxscr:STA&71:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADC&71:STAscrno
�gLDAscrno:STA&71:LDAyset:PHA:STA&70:PLA:ASL A:ASL A:ASL A:PHA:CLC:ADC&70:STA&70:PLA:ASL A:CLC:ADC&70
�uSTA&70:LDYxset:LDAxdata,Y:TAY:LDA(&70),Y:ROL A:ROL A:ROL A:�#3:STA&72:INY:LDA(&70),Y:LSR A:LSR A:LSR A:LSR A:�#12
�~CLC:ADC&72:STA&72:LDAxset:LSR A:TAY:LDAhbdat,Y:TAY:LDA(&70),Y:STA&73:LDAxset:�#1:BNEbit2:LDA&73:ASL A:ROL A:ROL A:JMPfbgot
�.bit2 LDA&73:ASL A:ROL A
�<.fbgot �#1:ASL A:ASL A:ASL A:ASL A:CLC:ADC&72:STA&72:RTS
�L.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22
�+.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24
�K.xset EQUB0:.yset EQUB0:.xscr EQUB0:.yscr EQUB0:.xpos EQUB0:.ypos EQUB0
.scrno EQUB 0
]:�
�
�

00000000  0d 00 0a 46 f4 20 20 20  20 4a 75 70 69 74 65 72  |...F.    Jupiter|
00000010  20 49 49 49 20 4d 61 70  20 50 72 69 6e 74 65 72  | III Map Printer|
00000020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000030  20 20 62 79 20 44 6f 6d  69 6e 69 63 20 46 6f 72  |  by Dominic For|
00000040  64 20 31 39 39 37 0d 00  14 05 3a 0d 00 1e 23 eb  |d 1997....:...#.|
00000050  36 3a ef 32 33 2c 31 2c  30 3b 30 3b 30 3b 30 3b  |6:.23,1,0;0;0;0;|
00000060  3a f2 61 73 73 3a f2 70  72 69 6e 74 65 72 0d 00  |:.ass:.printer..|
00000070  28 5e 41 24 3d 22 44 45  4c 2e 31 34 30 2c 39 39  |(^A$="DEL.140,99|
00000080  39 39 22 2b bd 31 33 2b  22 47 4f 54 4f 37 30 22  |99"+.13+"GOTO70"|
00000090  2b bd 36 2b bd 31 33 3a  ef 32 31 3a e3 20 63 68  |+.6+.13:.21:. ch|
000000a0  61 72 3d 31 20 b8 20 a9  28 41 24 29 3a ff 22 46  |ar=1 . .(A$):."F|
000000b0  58 31 33 38 2c 30 2c 22  2b c3 28 97 28 c1 41 24  |X138,0,"+.(.(.A$|
000000c0  2c 63 68 61 72 2c 31 29  29 29 3a ed 0d 00 32 05  |,char,1))):...2.|
000000d0  e0 0d 00 3c 05 3a 0d 00  46 1b ef 32 3a d3 3d 26  |...<.:..F..2:.=&|
000000e0  32 30 30 30 3a 2a 4c 4f  41 44 20 50 72 69 6e 74  |2000:*LOAD Print|
000000f0  32 0d 00 50 2f e3 78 3d  30 b8 31 35 39 3a ef 31  |2..P/.x=0.159:.1|
00000100  2c 32 37 2c 31 2c 34 32  2c 31 2c 34 2c 31 2c 32  |,27,1,42,1,4,1,2|
00000110  38 2c 31 2c 32 3a e3 79  3d 35 39 b8 30 88 2d 31  |8,1,2:.y=59.0.-1|
00000120  0d 00 5a 27 3f 28 21 26  39 46 43 29 3d 78 20 81  |..Z'?(!&9FC)=x .|
00000130  20 31 30 3a 3f 28 28 21  26 39 46 43 29 2b 31 29  | 10:?((!&9FC)+1)|
00000140  3d 79 20 81 20 31 30 0d  00 64 29 3f 28 21 26 39  |=y . 10..d)?(!&9|
00000150  46 43 2d 32 29 3d 78 20  83 20 31 30 3a 3f 28 28  |FC-2)=x . 10:?((|
00000160  21 26 39 46 43 29 2d 31  29 3d 79 20 83 20 31 30  |!&9FC)-1)=y . 10|
00000170  0d 00 6e 2e d6 28 21 26  39 46 38 29 3a e3 20 62  |..n..(!&9F8):. b|
00000180  3d 26 42 43 30 2b 28 3f  26 37 32 29 2a 39 20 b8  |=&BC0+(?&72)*9 .|
00000190  20 26 42 43 38 2b 28 3f  26 37 32 29 2a 39 0d 00  | &BC8+(?&72)*9..|
000001a0  78 27 ef 31 2c 3f 62 3a  ed 2c 3a ef 31 2c 33 32  |x'.1,?b:.,:.1,32|
000001b0  2c 31 2c 34 38 2b 28 78  20 81 20 31 30 29 2c 31  |,1,48+(x . 10),1|
000001c0  2c 31 33 3a ed 0d 00 82  08 ef 33 3a e0 0d 00 8c  |,13:......3:....|
000001d0  05 3a 0d 00 96 0d dd f2  70 72 69 6e 74 65 72 0d  |.:......printer.|
000001e0  00 a0 a0 f1 22 4a 75 70  69 74 65 72 20 49 49 49  |...."Jupiter III|
000001f0  20 4d 61 70 20 50 72 69  6e 74 65 72 22 27 22 3d  | Map Printer"'"=|
00000200  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
00000210  3d 3d 3d 3d 3d 3d 22 27  27 22 4e 4f 54 45 3a 20  |======"''"NOTE: |
00000220  54 68 65 20 6d 61 70 20  69 73 20 70 72 69 6e 74  |The map is print|
00000230  65 64 20 73 69 64 65 77  61 79 73 2c 20 61 6e 64  |ed sideways, and|
00000240  22 27 22 72 65 71 75 69  72 65 73 20 32 20 41 34  |"'"requires 2 A4|
00000250  20 73 68 65 65 74 73 2e  22 27 27 22 50 72 65 73  | sheets."''"Pres|
00000260  73 20 3c 53 50 41 43 45  3e 20 77 68 65 6e 20 72  |s <SPACE> when r|
00000270  65 61 64 79 20 74 6f 20  70 72 69 6e 74 2e 22 0d  |eady to print.".|
00000280  00 aa 0e f5 20 fd 20 a6  28 2d 39 39 29 0d 00 b4  |.... . .(-99)...|
00000290  20 f1 27 27 22 50 72 65  70 61 72 69 6e 67 20 74  | .''"Preparing t|
000002a0  6f 20 70 72 69 6e 74 2e  20 2e 20 2e 22 0d 00 be  |o print. . ."...|
000002b0  53 ef 32 2c 31 2c 32 37  2c 31 2c 36 34 2c 31 2c  |S.2,1,27,1,64,1,|
000002c0  32 37 2c 31 2c 38 30 3a  e3 73 3d 35 b8 30 88 2d  |27,1,80:.s=5.0.-|
000002d0  31 3a e3 63 3d 30 b8 39  3a f1 3b 73 3b 3a ef 31  |1:.c=0.9:.;s;:.1|
000002e0  2c 32 37 2c 31 2c 34 32  2c 31 2c 34 2c 31 2c 31  |,27,1,42,1,4,1,1|
000002f0  2c 31 2c 30 2c 31 2c 32  35 35 3a ed 2c 3a f1 27  |,1,0,1,255:.,:.'|
00000300  0d 00 c8 1d e3 63 68 3d  26 42 43 30 20 b8 20 26  |.....ch=&BC0 . &|
00000310  43 44 46 3a f3 20 61 3a  3f 63 68 3d 61 0d 00 d2  |CDF:. a:?ch=a...|
00000320  16 ed 3a ef 31 2c 32 37  2c 31 2c 36 35 2c 31 2c  |..:.1,27,1,65,1,|
00000330  38 2c 33 0d 00 dc 05 e1  0d 00 e6 05 3a 0d 00 f0  |8,3.........:...|
00000340  16 dc 30 2c 30 2c 30 2c  30 2c 30 2c 30 2c 30 2c  |..0,0,0,0,0,0,0,|
00000350  30 2c 30 0d 00 fa 16 dc  30 2c 30 2c 30 2c 30 2c  |0,0.....0,0,0,0,|
00000360  38 2c 30 2c 30 2c 30 2c  30 0d 01 04 17 dc 30 2c  |8,0,0,0,0.....0,|
00000370  30 2c 30 2c 38 2c 32 38  2c 38 2c 30 2c 30 2c 30  |0,0,8,28,8,0,0,0|
00000380  0d 01 0e 18 dc 31 2c 31  2c 31 2c 31 2c 31 2c 31  |.....1,1,1,1,1,1|
00000390  2c 31 2c 31 2c 32 35 35  0d 01 18 23 dc 38 35 2c  |,1,1,255...#.85,|
000003a0  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
000003b0  30 2c 38 35 2c 31 37 30  2c 38 35 0d 01 22 20 dc  |0,85,170,85.." .|
000003c0  31 36 2c 31 36 2c 31 36  2c 35 36 2c 32 33 39 2c  |16,16,16,56,239,|
000003d0  35 36 2c 31 36 2c 31 36  2c 31 36 0d 01 2c 1e dc  |56,16,16,16..,..|
000003e0  31 36 2c 31 36 2c 31 36  2c 30 2c 26 45 37 2c 30  |16,16,16,0,&E7,0|
000003f0  2c 31 36 2c 31 36 2c 31  36 0d 01 36 22 dc 36 36  |,16,16,16..6".66|
00000400  2c 36 36 2c 31 32 36 2c  36 36 2c 36 36 2c 31 32  |,66,126,66,66,12|
00000410  36 2c 36 36 2c 36 36 2c  31 32 36 0d 01 40 24 dc  |6,66,66,126..@$.|
00000420  38 35 2c 38 35 2c 38 35  2c 38 35 2c 38 35 2c 38  |85,85,85,85,85,8|
00000430  35 2c 38 35 2c 38 35 2c  38 35 3a 52 45 4d 38 0d  |5,85,85,85:REM8.|
00000440  01 4a 20 dc 32 35 35 2c  30 2c 32 35 35 2c 30 2c  |.J .255,0,255,0,|
00000450  32 35 35 2c 30 2c 32 35  35 2c 30 2c 32 35 35 0d  |255,0,255,0,255.|
00000460  01 54 28 dc 26 31 30 2c  26 38 38 2c 26 34 34 2c  |.T(.&10,&88,&44,|
00000470  26 41 32 2c 26 35 31 2c  26 41 38 2c 26 35 34 2c  |&A2,&51,&A8,&54,|
00000480  26 41 41 2c 26 35 35 0d  01 5e 28 dc 26 30 38 2c  |&AA,&55..^(.&08,|
00000490  26 31 31 2c 26 32 32 2c  26 34 35 2c 26 38 41 2c  |&11,&22,&45,&8A,|
000004a0  26 31 35 2c 26 32 41 2c  26 35 35 2c 26 41 41 0d  |&15,&2A,&55,&AA.|
000004b0  01 68 26 dc 30 2c 26 38  30 2c 26 34 30 2c 26 41  |.h&.0,&80,&40,&A|
000004c0  30 2c 26 35 30 2c 26 41  38 2c 26 35 34 2c 26 41  |0,&50,&A8,&54,&A|
000004d0  41 2c 26 35 35 0d 01 72  20 dc 30 2c 31 2c 32 2c  |A,&55..r .0,1,2,|
000004e0  35 2c 26 30 41 2c 26 31  35 2c 26 32 41 2c 26 35  |5,&0A,&15,&2A,&5|
000004f0  35 2c 26 41 41 0d 01 7c  26 dc 30 2c 26 38 30 2c  |5,&AA..|&.0,&80,|
00000500  26 34 30 2c 26 41 30 2c  26 35 30 2c 26 41 38 2c  |&40,&A0,&50,&A8,|
00000510  26 35 34 2c 26 41 41 2c  26 35 35 0d 01 86 1f dc  |&54,&AA,&55.....|
00000520  30 2c 31 32 36 2c 36 36  2c 36 36 2c 36 36 2c 36  |0,126,66,66,66,6|
00000530  36 2c 36 36 2c 31 32 36  2c 30 0d 01 90 28 dc 30  |6,66,126,0...(.0|
00000540  2c 31 2c 32 2c 35 2c 26  30 41 2c 26 31 35 2c 26  |,1,2,5,&0A,&15,&|
00000550  32 41 2c 26 35 35 2c 26  41 41 3a 52 45 4d 20 26  |2A,&55,&AA:REM &|
00000560  31 30 0d 01 9a 1f dc 38  35 2c 38 35 2c 38 35 2c  |10.....85,85,85,|
00000570  38 35 2c 38 35 2c 38 35  2c 38 35 2c 38 35 2c 38  |85,85,85,85,85,8|
00000580  35 0d 01 a4 20 dc 32 35  35 2c 30 2c 32 35 35 2c  |5... .255,0,255,|
00000590  30 2c 32 35 35 2c 30 2c  32 35 35 2c 30 2c 32 35  |0,255,0,255,0,25|
000005a0  35 0d 01 ae 24 dc 30 2c  26 43 30 2c 26 44 46 2c  |5...$.0,&C0,&DF,|
000005b0  26 44 46 2c 26 44 46 2c  26 44 46 2c 26 44 46 2c  |&DF,&DF,&DF,&DF,|
000005c0  26 43 30 2c 30 0d 01 b8  26 dc 26 33 39 2c 26 37  |&C0,0...&.&39,&7|
000005d0  44 2c 26 46 46 2c 26 46  46 2c 26 37 44 2c 26 33  |D,&FF,&FF,&7D,&3|
000005e0  39 2c 26 37 44 2c 31 2c  26 46 46 0d 01 c2 26 dc  |9,&7D,1,&FF...&.|
000005f0  26 37 46 2c 26 34 33 2c  26 37 46 2c 26 46 46 2c  |&7F,&43,&7F,&FF,|
00000600  26 38 31 2c 26 38 31 2c  26 46 46 2c 31 2c 26 46  |&81,&81,&FF,1,&F|
00000610  46 0d 01 cc 26 dc 26 32  39 2c 26 31 31 2c 26 31  |F...&.&29,&11,&1|
00000620  31 2c 26 33 39 2c 26 30  39 2c 26 30 39 2c 26 30  |1,&39,&09,&09,&0|
00000630  39 2c 31 2c 26 46 46 0d  01 d6 24 dc 30 2c 26 43  |9,1,&FF...$.0,&C|
00000640  30 2c 26 31 46 2c 26 44  46 2c 26 31 46 2c 26 44  |0,&1F,&DF,&1F,&D|
00000650  46 2c 26 31 46 2c 26 43  30 2c 30 0d 01 e0 27 dc  |F,&1F,&C0,0...'.|
00000660  26 41 41 2c 26 35 35 2c  26 32 41 2c 26 31 35 2c  |&AA,&55,&2A,&15,|
00000670  31 30 2c 35 2c 32 2c 31  2c 30 3a 52 45 4d 20 26  |10,5,2,1,0:REM &|
00000680  31 38 0d 01 ea 24 dc 26  38 31 2c 26 38 31 2c 26  |18...$.&81,&81,&|
00000690  39 31 2c 26 41 39 2c 26  43 35 2c 26 43 35 2c 31  |91,&A9,&C5,&C5,1|
000006a0  2c 31 2c 26 46 46 0d 01  f4 28 dc 26 41 41 2c 26  |,1,&FF...(.&AA,&|
000006b0  35 35 2c 26 32 41 2c 26  31 35 2c 26 30 41 2c 26  |55,&2A,&15,&0A,&|
000006c0  38 35 2c 26 34 32 2c 26  32 31 2c 26 31 30 0d 01  |85,&42,&21,&10..|
000006d0  fe 1f dc 26 41 41 2c 26  35 35 2c 26 32 41 2c 26  |...&AA,&55,&2A,&|
000006e0  31 35 2c 31 30 2c 35 2c  32 2c 31 2c 30 0d 02 08  |15,10,5,2,1,0...|
000006f0  28 dc 26 46 46 2c 26 38  39 2c 26 39 39 2c 26 38  |(.&FF,&89,&99,&8|
00000700  39 2c 26 39 46 2c 26 38  39 2c 26 39 39 2c 26 38  |9,&9F,&89,&99,&8|
00000710  39 2c 26 46 46 0d 02 12  26 dc 26 35 35 2c 26 41  |9,&FF...&.&55,&A|
00000720  41 2c 26 35 34 2c 26 41  38 2c 26 35 30 2c 26 41  |A,&54,&A8,&50,&A|
00000730  30 2c 26 34 30 2c 26 38  30 2c 30 0d 02 1c 28 dc  |0,&40,&80,0...(.|
00000740  26 35 35 2c 26 41 41 2c  26 35 34 2c 26 41 38 2c  |&55,&AA,&54,&A8,|
00000750  26 35 31 2c 26 41 32 2c  26 34 34 2c 26 38 38 2c  |&51,&A2,&44,&88,|
00000760  26 31 30 0d 02 26 26 dc  26 35 35 2c 26 41 41 2c  |&10..&&.&55,&AA,|
00000770  26 35 34 2c 26 41 38 2c  26 35 30 2c 26 41 30 2c  |&54,&A8,&50,&A0,|
00000780  26 34 30 2c 26 38 30 2c  30 0d 02 30 05 3a 0d 02  |&40,&80,0..0.:..|
00000790  3a 09 dd f2 61 73 73 0d  02 44 17 e3 70 61 73 73  |:...ass..D..pass|
000007a0  3d 30 b8 32 88 32 3a 50  25 3d 26 39 46 38 0d 02  |=0.2.2:P%=&9F8..|
000007b0  4e 0d 5b 4f 50 54 20 70  61 73 73 0d 02 58 10 45  |N.[OPT pass..X.E|
000007c0  51 55 44 20 62 6c 6f 63  6b 6f 6e 0d 02 62 0d 45  |QUD blockon..b.E|
000007d0  51 55 44 20 78 73 63 72  0d 02 6c 16 2e 62 6c 6f  |QUD xscr..l..blo|
000007e0  63 6b 20 4a 4d 50 20 62  6c 6f 63 6b 6f 6e 0d 02  |ck JMP blockon..|
000007f0  76 53 2e 73 63 72 65 65  6e 20 4c 44 41 23 26 46  |vS.screen LDA#&F|
00000800  46 3a 53 54 41 79 73 65  74 3a 2e 79 6c 6f 70 20  |F:STAyset:.ylop |
00000810  4c 44 41 23 26 46 46 3a  53 54 41 78 73 65 74 3a  |LDA#&FF:STAxset:|
00000820  49 4e 43 79 73 65 74 3a  2e 78 6c 6f 70 20 49 4e  |INCyset:.xlop IN|
00000830  43 78 73 65 74 3a 4a 53  52 20 62 6c 6f 63 6b 6f  |Cxset:JSR blocko|
00000840  6e 0d 02 80 22 4c 44 41  78 73 65 74 3a 43 4d 50  |n..."LDAxset:CMP|
00000850  23 39 3a 42 45 51 6e 65  78 74 79 3a 4a 4d 50 78  |#9:BEQnexty:JMPx|
00000860  6c 6f 70 0d 02 8a 2a 2e  6e 65 78 74 79 20 4c 44  |lop...*.nexty LD|
00000870  41 79 73 65 74 3a 43 4d  50 23 39 3a 42 45 51 73  |Ayset:CMP#9:BEQs|
00000880  63 72 65 6e 64 3a 4a 4d  50 79 6c 6f 70 0d 02 94  |crend:JMPylop...|
00000890  0f 2e 73 63 72 65 6e 64  20 52 54 53 0d 02 9e 05  |..scrend RTS....|
000008a0  3a 0d 02 a8 5b 2e 62 6c  6f 63 6b 6f 6e 20 4c 44  |:...[.blockon LD|
000008b0  41 23 26 32 30 3a 43 4c  43 3a 41 44 43 78 73 63  |A#&20:CLC:ADCxsc|
000008c0  72 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 63 72  |r:STA&71:LDAyscr|
000008d0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
000008e0  20 41 3a 41 53 4c 20 41  3a 43 4c 43 3a 41 44 43  | A:ASL A:CLC:ADC|
000008f0  26 37 31 3a 53 54 41 73  63 72 6e 6f 0d 02 b2 67  |&71:STAscrno...g|
00000900  4c 44 41 73 63 72 6e 6f  3a 53 54 41 26 37 31 3a  |LDAscrno:STA&71:|
00000910  4c 44 41 79 73 65 74 3a  50 48 41 3a 53 54 41 26  |LDAyset:PHA:STA&|
00000920  37 30 3a 50 4c 41 3a 41  53 4c 20 41 3a 41 53 4c  |70:PLA:ASL A:ASL|
00000930  20 41 3a 41 53 4c 20 41  3a 50 48 41 3a 43 4c 43  | A:ASL A:PHA:CLC|
00000940  3a 41 44 43 26 37 30 3a  53 54 41 26 37 30 3a 50  |:ADC&70:STA&70:P|
00000950  4c 41 3a 41 53 4c 20 41  3a 43 4c 43 3a 41 44 43  |LA:ASL A:CLC:ADC|
00000960  26 37 30 0d 02 bc 75 53  54 41 26 37 30 3a 4c 44  |&70...uSTA&70:LD|
00000970  59 78 73 65 74 3a 4c 44  41 78 64 61 74 61 2c 59  |Yxset:LDAxdata,Y|
00000980  3a 54 41 59 3a 4c 44 41  28 26 37 30 29 2c 59 3a  |:TAY:LDA(&70),Y:|
00000990  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 52 4f 4c 20  |ROL A:ROL A:ROL |
000009a0  41 3a 80 23 33 3a 53 54  41 26 37 32 3a 49 4e 59  |A:.#3:STA&72:INY|
000009b0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 4c 53 52 20  |:LDA(&70),Y:LSR |
000009c0  41 3a 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |A:LSR A:LSR A:LS|
000009d0  52 20 41 3a 80 23 31 32  0d 02 c6 7e 43 4c 43 3a  |R A:.#12...~CLC:|
000009e0  41 44 43 26 37 32 3a 53  54 41 26 37 32 3a 4c 44  |ADC&72:STA&72:LD|
000009f0  41 78 73 65 74 3a 4c 53  52 20 41 3a 54 41 59 3a  |Axset:LSR A:TAY:|
00000a00  4c 44 41 68 62 64 61 74  2c 59 3a 54 41 59 3a 4c  |LDAhbdat,Y:TAY:L|
00000a10  44 41 28 26 37 30 29 2c  59 3a 53 54 41 26 37 33  |DA(&70),Y:STA&73|
00000a20  3a 4c 44 41 78 73 65 74  3a 80 23 31 3a 42 4e 45  |:LDAxset:.#1:BNE|
00000a30  62 69 74 32 3a 4c 44 41  26 37 33 3a 41 53 4c 20  |bit2:LDA&73:ASL |
00000a40  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 4a 4d  |A:ROL A:ROL A:JM|
00000a50  50 66 62 67 6f 74 0d 02  d0 1c 2e 62 69 74 32 20  |Pfbgot.....bit2 |
00000a60  4c 44 41 26 37 33 3a 41  53 4c 20 41 3a 52 4f 4c  |LDA&73:ASL A:ROL|
00000a70  20 41 0d 02 da 3c 2e 66  62 67 6f 74 20 80 23 31  | A...<.fbgot .#1|
00000a80  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00000a90  20 41 3a 41 53 4c 20 41  3a 43 4c 43 3a 41 44 43  | A:ASL A:CLC:ADC|
00000aa0  26 37 32 3a 53 54 41 26  37 32 3a 52 54 53 0d 02  |&72:STA&72:RTS..|
00000ab0  e4 4c 2e 78 64 61 74 61  20 45 51 55 42 30 3a 45  |.L.xdata EQUB0:E|
00000ac0  51 55 42 32 3a 45 51 55  42 35 3a 45 51 55 42 37  |QUB2:EQUB5:EQUB7|
00000ad0  3a 45 51 55 42 31 30 3a  45 51 55 42 31 32 3a 45  |:EQUB10:EQUB12:E|
00000ae0  51 55 42 31 35 3a 45 51  55 42 31 37 3a 45 51 55  |QUB15:EQUB17:EQU|
00000af0  42 32 30 3a 45 51 55 42  32 32 0d 02 ee 2b 2e 68  |B20:EQUB22...+.h|
00000b00  62 64 61 74 20 45 51 55  42 34 3a 45 51 55 42 39  |bdat EQUB4:EQUB9|
00000b10  3a 45 51 55 42 31 34 3a  45 51 55 42 31 39 3a 45  |:EQUB14:EQUB19:E|
00000b20  51 55 42 32 34 0d 02 f8  4b 2e 78 73 65 74 20 45  |QUB24...K.xset E|
00000b30  51 55 42 30 3a 2e 79 73  65 74 20 45 51 55 42 30  |QUB0:.yset EQUB0|
00000b40  3a 2e 78 73 63 72 20 45  51 55 42 30 3a 2e 79 73  |:.xscr EQUB0:.ys|
00000b50  63 72 20 45 51 55 42 30  3a 2e 78 70 6f 73 20 45  |cr EQUB0:.xpos E|
00000b60  51 55 42 30 3a 2e 79 70  6f 73 20 45 51 55 42 30  |QUB0:.ypos EQUB0|
00000b70  0d 03 02 11 2e 73 63 72  6e 6f 20 45 51 55 42 20  |.....scrno EQUB |
00000b80  30 0d 03 0c 07 5d 3a ed  0d 03 16 05 e1 0d ff     |0....]:........|
00000b8f