F�    Jupiter III Map Printer                  by Dominic Ford 1997
:
�6:�=&1E80:�23,1,0;0;0;0;
(z�"Jupiter III Map Printer"'"======================="''"NOTE: The map is printed sideways, and"'"requires 2 A4 sheets."
2*�'"Press <SPACE> when ready to print."
<� � �(-99)
F �''"Preparing to print. . ."
P�ass:�printer
Z*LOAD DATA
d/�x=0�159:�1,27,1,42,1,4,1,28,1,2:�y=59�0�-1
n'?(!&9FC)=x � 10:?((!&9FC)+1)=y � 10
x)?(!&9FC-2)=x � 10:?((!&9FC)-1)=y � 10
�0�(!&9F8):� b=&1E80+(?&72)*9 � &1E88+(?&72)*9
�'�1,?b:�,:�1,32,1,48+(x � 10),1,13:�
��
�:
�
��printer
�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=&1E80 � &1F9F:� a:?ch=a
��:�1,27,1,65,1,8
��
�:
��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

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

6$�85,85,85,85,85,85,85,85,85:REM8

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

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

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

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

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

r&�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
:�pass=0�2�2:P%=&9F8
D
[OPT pass
NEQUD blockon
X
EQUD xscr
b.block JMP blockon
lS.screen LDA#&FF:STAyset:.ylop LDA#&FF:STAxset:INCyset:.xlop INCxset:JSR blockon
v"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 1d eb  |d 1997....:.....|
00000050  36 3a d3 3d 26 31 45 38  30 3a ef 32 33 2c 31 2c  |6:.=&1E80:.23,1,|
00000060  30 3b 30 3b 30 3b 30 3b  0d 00 28 7a f1 22 4a 75  |0;0;0;0;..(z."Ju|
00000070  70 69 74 65 72 20 49 49  49 20 4d 61 70 20 50 72  |piter III Map Pr|
00000080  69 6e 74 65 72 22 27 22  3d 3d 3d 3d 3d 3d 3d 3d  |inter"'"========|
00000090  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 22  |==============="|
000000a0  27 27 22 4e 4f 54 45 3a  20 54 68 65 20 6d 61 70  |''"NOTE: The map|
000000b0  20 69 73 20 70 72 69 6e  74 65 64 20 73 69 64 65  | is printed side|
000000c0  77 61 79 73 2c 20 61 6e  64 22 27 22 72 65 71 75  |ways, and"'"requ|
000000d0  69 72 65 73 20 32 20 41  34 20 73 68 65 65 74 73  |ires 2 A4 sheets|
000000e0  2e 22 0d 00 32 2a f1 27  22 50 72 65 73 73 20 3c  |."..2*.'"Press <|
000000f0  53 50 41 43 45 3e 20 77  68 65 6e 20 72 65 61 64  |SPACE> when read|
00000100  79 20 74 6f 20 70 72 69  6e 74 2e 22 0d 00 3c 0e  |y to print."..<.|
00000110  f5 20 fd 20 a6 28 2d 39  39 29 0d 00 46 20 f1 27  |. . .(-99)..F .'|
00000120  27 22 50 72 65 70 61 72  69 6e 67 20 74 6f 20 70  |'"Preparing to p|
00000130  72 69 6e 74 2e 20 2e 20  2e 22 0d 00 50 11 f2 61  |rint. . ."..P..a|
00000140  73 73 3a f2 70 72 69 6e  74 65 72 0d 00 5a 0e 2a  |ss:.printer..Z.*|
00000150  4c 4f 41 44 20 44 41 54  41 0d 00 64 2f e3 78 3d  |LOAD DATA..d/.x=|
00000160  30 b8 31 35 39 3a ef 31  2c 32 37 2c 31 2c 34 32  |0.159:.1,27,1,42|
00000170  2c 31 2c 34 2c 31 2c 32  38 2c 31 2c 32 3a e3 79  |,1,4,1,28,1,2:.y|
00000180  3d 35 39 b8 30 88 2d 31  0d 00 6e 27 3f 28 21 26  |=59.0.-1..n'?(!&|
00000190  39 46 43 29 3d 78 20 81  20 31 30 3a 3f 28 28 21  |9FC)=x . 10:?((!|
000001a0  26 39 46 43 29 2b 31 29  3d 79 20 81 20 31 30 0d  |&9FC)+1)=y . 10.|
000001b0  00 78 29 3f 28 21 26 39  46 43 2d 32 29 3d 78 20  |.x)?(!&9FC-2)=x |
000001c0  83 20 31 30 3a 3f 28 28  21 26 39 46 43 29 2d 31  |. 10:?((!&9FC)-1|
000001d0  29 3d 79 20 83 20 31 30  0d 00 82 30 d6 28 21 26  |)=y . 10...0.(!&|
000001e0  39 46 38 29 3a e3 20 62  3d 26 31 45 38 30 2b 28  |9F8):. b=&1E80+(|
000001f0  3f 26 37 32 29 2a 39 20  b8 20 26 31 45 38 38 2b  |?&72)*9 . &1E88+|
00000200  28 3f 26 37 32 29 2a 39  0d 00 8c 27 ef 31 2c 3f  |(?&72)*9...'.1,?|
00000210  62 3a ed 2c 3a ef 31 2c  33 32 2c 31 2c 34 38 2b  |b:.,:.1,32,1,48+|
00000220  28 78 20 81 20 31 30 29  2c 31 2c 31 33 3a ed 0d  |(x . 10),1,13:..|
00000230  00 96 05 e0 0d 00 a0 05  3a 0d 00 aa 0d dd f2 70  |........:......p|
00000240  72 69 6e 74 65 72 0d 00  b4 53 ef 32 2c 31 2c 32  |rinter...S.2,1,2|
00000250  37 2c 31 2c 36 34 2c 31  2c 32 37 2c 31 2c 38 30  |7,1,64,1,27,1,80|
00000260  3a e3 73 3d 35 b8 30 88  2d 31 3a e3 63 3d 30 b8  |:.s=5.0.-1:.c=0.|
00000270  39 3a f1 3b 73 3b 3a ef  31 2c 32 37 2c 31 2c 34  |9:.;s;:.1,27,1,4|
00000280  32 2c 31 2c 34 2c 31 2c  31 2c 31 2c 30 2c 31 2c  |2,1,4,1,1,1,0,1,|
00000290  32 35 35 3a ed 2c 3a f1  27 0d 00 be 1f e3 63 68  |255:.,:.'.....ch|
000002a0  3d 26 31 45 38 30 20 b8  20 26 31 46 39 46 3a f3  |=&1E80 . &1F9F:.|
000002b0  20 61 3a 3f 63 68 3d 61  0d 00 c8 14 ed 3a ef 31  | a:?ch=a.....:.1|
000002c0  2c 32 37 2c 31 2c 36 35  2c 31 2c 38 0d 00 d2 05  |,27,1,65,1,8....|
000002d0  e1 0d 00 dc 05 3a 0d 00  e6 16 dc 30 2c 30 2c 30  |.....:.....0,0,0|
000002e0  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 0d 00 f0 16  |,0,0,0,0,0,0....|
000002f0  dc 30 2c 30 2c 30 2c 30  2c 38 2c 30 2c 30 2c 30  |.0,0,0,0,8,0,0,0|
00000300  2c 30 0d 00 fa 17 dc 30  2c 30 2c 30 2c 38 2c 32  |,0.....0,0,0,8,2|
00000310  38 2c 38 2c 30 2c 30 2c  30 0d 01 04 18 dc 31 2c  |8,8,0,0,0.....1,|
00000320  31 2c 31 2c 31 2c 31 2c  31 2c 31 2c 31 2c 32 35  |1,1,1,1,1,1,1,25|
00000330  35 0d 01 0e 23 dc 38 35  2c 31 37 30 2c 38 35 2c  |5...#.85,170,85,|
00000340  31 37 30 2c 38 35 2c 31  37 30 2c 38 35 2c 31 37  |170,85,170,85,17|
00000350  30 2c 38 35 0d 01 18 20  dc 31 36 2c 31 36 2c 31  |0,85... .16,16,1|
00000360  36 2c 35 36 2c 32 33 39  2c 35 36 2c 31 36 2c 31  |6,56,239,56,16,1|
00000370  36 2c 31 36 0d 01 22 1e  dc 31 36 2c 31 36 2c 31  |6,16.."..16,16,1|
00000380  36 2c 30 2c 26 45 37 2c  30 2c 31 36 2c 31 36 2c  |6,0,&E7,0,16,16,|
00000390  31 36 0d 01 2c 22 dc 36  36 2c 36 36 2c 31 32 36  |16..,".66,66,126|
000003a0  2c 36 36 2c 36 36 2c 31  32 36 2c 36 36 2c 36 36  |,66,66,126,66,66|
000003b0  2c 31 32 36 0d 01 36 24  dc 38 35 2c 38 35 2c 38  |,126..6$.85,85,8|
000003c0  35 2c 38 35 2c 38 35 2c  38 35 2c 38 35 2c 38 35  |5,85,85,85,85,85|
000003d0  2c 38 35 3a 52 45 4d 38  0d 01 40 20 dc 32 35 35  |,85:REM8..@ .255|
000003e0  2c 30 2c 32 35 35 2c 30  2c 32 35 35 2c 30 2c 32  |,0,255,0,255,0,2|
000003f0  35 35 2c 30 2c 32 35 35  0d 01 4a 28 dc 26 31 30  |55,0,255..J(.&10|
00000400  2c 26 38 38 2c 26 34 34  2c 26 41 32 2c 26 35 31  |,&88,&44,&A2,&51|
00000410  2c 26 41 38 2c 26 35 34  2c 26 41 41 2c 26 35 35  |,&A8,&54,&AA,&55|
00000420  0d 01 54 28 dc 26 30 38  2c 26 31 31 2c 26 32 32  |..T(.&08,&11,&22|
00000430  2c 26 34 35 2c 26 38 41  2c 26 31 35 2c 26 32 41  |,&45,&8A,&15,&2A|
00000440  2c 26 35 35 2c 26 41 41  0d 01 5e 26 dc 30 2c 26  |,&55,&AA..^&.0,&|
00000450  38 30 2c 26 34 30 2c 26  41 30 2c 26 35 30 2c 26  |80,&40,&A0,&50,&|
00000460  41 38 2c 26 35 34 2c 26  41 41 2c 26 35 35 0d 01  |A8,&54,&AA,&55..|
00000470  68 20 dc 30 2c 31 2c 32  2c 35 2c 26 30 41 2c 26  |h .0,1,2,5,&0A,&|
00000480  31 35 2c 26 32 41 2c 26  35 35 2c 26 41 41 0d 01  |15,&2A,&55,&AA..|
00000490  72 26 dc 30 2c 26 38 30  2c 26 34 30 2c 26 41 30  |r&.0,&80,&40,&A0|
000004a0  2c 26 35 30 2c 26 41 38  2c 26 35 34 2c 26 41 41  |,&50,&A8,&54,&AA|
000004b0  2c 26 35 35 0d 01 7c 1f  dc 30 2c 31 32 36 2c 36  |,&55..|..0,126,6|
000004c0  36 2c 36 36 2c 36 36 2c  36 36 2c 36 36 2c 31 32  |6,66,66,66,66,12|
000004d0  36 2c 30 0d 01 86 28 dc  30 2c 31 2c 32 2c 35 2c  |6,0...(.0,1,2,5,|
000004e0  26 30 41 2c 26 31 35 2c  26 32 41 2c 26 35 35 2c  |&0A,&15,&2A,&55,|
000004f0  26 41 41 3a 52 45 4d 20  26 31 30 0d 01 90 1f dc  |&AA:REM &10.....|
00000500  38 35 2c 38 35 2c 38 35  2c 38 35 2c 38 35 2c 38  |85,85,85,85,85,8|
00000510  35 2c 38 35 2c 38 35 2c  38 35 0d 01 9a 20 dc 32  |5,85,85,85... .2|
00000520  35 35 2c 30 2c 32 35 35  2c 30 2c 32 35 35 2c 30  |55,0,255,0,255,0|
00000530  2c 32 35 35 2c 30 2c 32  35 35 0d 01 a4 24 dc 30  |,255,0,255...$.0|
00000540  2c 26 43 30 2c 26 44 46  2c 26 44 46 2c 26 44 46  |,&C0,&DF,&DF,&DF|
00000550  2c 26 44 46 2c 26 44 46  2c 26 43 30 2c 30 0d 01  |,&DF,&DF,&C0,0..|
00000560  ae 26 dc 26 33 39 2c 26  37 44 2c 26 46 46 2c 26  |.&.&39,&7D,&FF,&|
00000570  46 46 2c 26 37 44 2c 26  33 39 2c 26 37 44 2c 31  |FF,&7D,&39,&7D,1|
00000580  2c 26 46 46 0d 01 b8 26  dc 26 37 46 2c 26 34 33  |,&FF...&.&7F,&43|
00000590  2c 26 37 46 2c 26 46 46  2c 26 38 31 2c 26 38 31  |,&7F,&FF,&81,&81|
000005a0  2c 26 46 46 2c 31 2c 26  46 46 0d 01 c2 26 dc 26  |,&FF,1,&FF...&.&|
000005b0  32 39 2c 26 31 31 2c 26  31 31 2c 26 33 39 2c 26  |29,&11,&11,&39,&|
000005c0  30 39 2c 26 30 39 2c 26  30 39 2c 31 2c 26 46 46  |09,&09,&09,1,&FF|
000005d0  0d 01 cc 24 dc 30 2c 26  43 30 2c 26 31 46 2c 26  |...$.0,&C0,&1F,&|
000005e0  44 46 2c 26 31 46 2c 26  44 46 2c 26 31 46 2c 26  |DF,&1F,&DF,&1F,&|
000005f0  43 30 2c 30 0d 01 d6 27  dc 26 41 41 2c 26 35 35  |C0,0...'.&AA,&55|
00000600  2c 26 32 41 2c 26 31 35  2c 31 30 2c 35 2c 32 2c  |,&2A,&15,10,5,2,|
00000610  31 2c 30 3a 52 45 4d 20  26 31 38 0d 01 e0 24 dc  |1,0:REM &18...$.|
00000620  26 38 31 2c 26 38 31 2c  26 39 31 2c 26 41 39 2c  |&81,&81,&91,&A9,|
00000630  26 43 35 2c 26 43 35 2c  31 2c 31 2c 26 46 46 0d  |&C5,&C5,1,1,&FF.|
00000640  01 ea 28 dc 26 41 41 2c  26 35 35 2c 26 32 41 2c  |..(.&AA,&55,&2A,|
00000650  26 31 35 2c 26 30 41 2c  26 38 35 2c 26 34 32 2c  |&15,&0A,&85,&42,|
00000660  26 32 31 2c 26 31 30 0d  01 f4 1f dc 26 41 41 2c  |&21,&10.....&AA,|
00000670  26 35 35 2c 26 32 41 2c  26 31 35 2c 31 30 2c 35  |&55,&2A,&15,10,5|
00000680  2c 32 2c 31 2c 30 0d 01  fe 28 dc 26 46 46 2c 26  |,2,1,0...(.&FF,&|
00000690  38 39 2c 26 39 39 2c 26  38 39 2c 26 39 46 2c 26  |89,&99,&89,&9F,&|
000006a0  38 39 2c 26 39 39 2c 26  38 39 2c 26 46 46 0d 02  |89,&99,&89,&FF..|
000006b0  08 26 dc 26 35 35 2c 26  41 41 2c 26 35 34 2c 26  |.&.&55,&AA,&54,&|
000006c0  41 38 2c 26 35 30 2c 26  41 30 2c 26 34 30 2c 26  |A8,&50,&A0,&40,&|
000006d0  38 30 2c 30 0d 02 12 28  dc 26 35 35 2c 26 41 41  |80,0...(.&55,&AA|
000006e0  2c 26 35 34 2c 26 41 38  2c 26 35 31 2c 26 41 32  |,&54,&A8,&51,&A2|
000006f0  2c 26 34 34 2c 26 38 38  2c 26 31 30 0d 02 1c 26  |,&44,&88,&10...&|
00000700  dc 26 35 35 2c 26 41 41  2c 26 35 34 2c 26 41 38  |.&55,&AA,&54,&A8|
00000710  2c 26 35 30 2c 26 41 30  2c 26 34 30 2c 26 38 30  |,&50,&A0,&40,&80|
00000720  2c 30 0d 02 26 05 3a 0d  02 30 09 dd f2 61 73 73  |,0..&.:..0...ass|
00000730  0d 02 3a 17 e3 70 61 73  73 3d 30 b8 32 88 32 3a  |..:..pass=0.2.2:|
00000740  50 25 3d 26 39 46 38 0d  02 44 0d 5b 4f 50 54 20  |P%=&9F8..D.[OPT |
00000750  70 61 73 73 0d 02 4e 10  45 51 55 44 20 62 6c 6f  |pass..N.EQUD blo|
00000760  63 6b 6f 6e 0d 02 58 0d  45 51 55 44 20 78 73 63  |ckon..X.EQUD xsc|
00000770  72 0d 02 62 16 2e 62 6c  6f 63 6b 20 4a 4d 50 20  |r..b..block JMP |
00000780  62 6c 6f 63 6b 6f 6e 0d  02 6c 53 2e 73 63 72 65  |blockon..lS.scre|
00000790  65 6e 20 4c 44 41 23 26  46 46 3a 53 54 41 79 73  |en LDA#&FF:STAys|
000007a0  65 74 3a 2e 79 6c 6f 70  20 4c 44 41 23 26 46 46  |et:.ylop LDA#&FF|
000007b0  3a 53 54 41 78 73 65 74  3a 49 4e 43 79 73 65 74  |:STAxset:INCyset|
000007c0  3a 2e 78 6c 6f 70 20 49  4e 43 78 73 65 74 3a 4a  |:.xlop INCxset:J|
000007d0  53 52 20 62 6c 6f 63 6b  6f 6e 0d 02 76 22 4c 44  |SR blockon..v"LD|
000007e0  41 78 73 65 74 3a 43 4d  50 23 39 3a 42 45 51 6e  |Axset:CMP#9:BEQn|
000007f0  65 78 74 79 3a 4a 4d 50  78 6c 6f 70 0d 02 80 2a  |exty:JMPxlop...*|
00000800  2e 6e 65 78 74 79 20 4c  44 41 79 73 65 74 3a 43  |.nexty LDAyset:C|
00000810  4d 50 23 39 3a 42 45 51  73 63 72 65 6e 64 3a 4a  |MP#9:BEQscrend:J|
00000820  4d 50 79 6c 6f 70 0d 02  8a 0f 2e 73 63 72 65 6e  |MPylop.....scren|
00000830  64 20 52 54 53 0d 02 94  05 3a 0d 02 9e 5b 2e 62  |d RTS....:...[.b|
00000840  6c 6f 63 6b 6f 6e 20 4c  44 41 23 26 32 30 3a 43  |lockon LDA#&20:C|
00000850  4c 43 3a 41 44 43 78 73  63 72 3a 53 54 41 26 37  |LC:ADCxscr:STA&7|
00000860  31 3a 4c 44 41 79 73 63  72 3a 41 53 4c 20 41 3a  |1:LDAyscr:ASL A:|
00000870  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00000880  41 3a 43 4c 43 3a 41 44  43 26 37 31 3a 53 54 41  |A:CLC:ADC&71:STA|
00000890  73 63 72 6e 6f 0d 02 a8  67 4c 44 41 73 63 72 6e  |scrno...gLDAscrn|
000008a0  6f 3a 53 54 41 26 37 31  3a 4c 44 41 79 73 65 74  |o:STA&71:LDAyset|
000008b0  3a 50 48 41 3a 53 54 41  26 37 30 3a 50 4c 41 3a  |:PHA:STA&70:PLA:|
000008c0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000008d0  41 3a 50 48 41 3a 43 4c  43 3a 41 44 43 26 37 30  |A:PHA:CLC:ADC&70|
000008e0  3a 53 54 41 26 37 30 3a  50 4c 41 3a 41 53 4c 20  |:STA&70:PLA:ASL |
000008f0  41 3a 43 4c 43 3a 41 44  43 26 37 30 0d 02 b2 75  |A:CLC:ADC&70...u|
00000900  53 54 41 26 37 30 3a 4c  44 59 78 73 65 74 3a 4c  |STA&70:LDYxset:L|
00000910  44 41 78 64 61 74 61 2c  59 3a 54 41 59 3a 4c 44  |DAxdata,Y:TAY:LD|
00000920  41 28 26 37 30 29 2c 59  3a 52 4f 4c 20 41 3a 52  |A(&70),Y:ROL A:R|
00000930  4f 4c 20 41 3a 52 4f 4c  20 41 3a 80 23 33 3a 53  |OL A:ROL A:.#3:S|
00000940  54 41 26 37 32 3a 49 4e  59 3a 4c 44 41 28 26 37  |TA&72:INY:LDA(&7|
00000950  30 29 2c 59 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |0),Y:LSR A:LSR A|
00000960  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 80 23 31  |:LSR A:LSR A:.#1|
00000970  32 0d 02 bc 7e 43 4c 43  3a 41 44 43 26 37 32 3a  |2...~CLC:ADC&72:|
00000980  53 54 41 26 37 32 3a 4c  44 41 78 73 65 74 3a 4c  |STA&72:LDAxset:L|
00000990  53 52 20 41 3a 54 41 59  3a 4c 44 41 68 62 64 61  |SR A:TAY:LDAhbda|
000009a0  74 2c 59 3a 54 41 59 3a  4c 44 41 28 26 37 30 29  |t,Y:TAY:LDA(&70)|
000009b0  2c 59 3a 53 54 41 26 37  33 3a 4c 44 41 78 73 65  |,Y:STA&73:LDAxse|
000009c0  74 3a 80 23 31 3a 42 4e  45 62 69 74 32 3a 4c 44  |t:.#1:BNEbit2:LD|
000009d0  41 26 37 33 3a 41 53 4c  20 41 3a 52 4f 4c 20 41  |A&73:ASL A:ROL A|
000009e0  3a 52 4f 4c 20 41 3a 4a  4d 50 66 62 67 6f 74 0d  |:ROL A:JMPfbgot.|
000009f0  02 c6 1c 2e 62 69 74 32  20 4c 44 41 26 37 33 3a  |....bit2 LDA&73:|
00000a00  41 53 4c 20 41 3a 52 4f  4c 20 41 0d 02 d0 3c 2e  |ASL A:ROL A...<.|
00000a10  66 62 67 6f 74 20 80 23  31 3a 41 53 4c 20 41 3a  |fbgot .#1:ASL A:|
00000a20  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00000a30  41 3a 43 4c 43 3a 41 44  43 26 37 32 3a 53 54 41  |A:CLC:ADC&72:STA|
00000a40  26 37 32 3a 52 54 53 0d  02 da 4c 2e 78 64 61 74  |&72:RTS...L.xdat|
00000a50  61 20 45 51 55 42 30 3a  45 51 55 42 32 3a 45 51  |a EQUB0:EQUB2:EQ|
00000a60  55 42 35 3a 45 51 55 42  37 3a 45 51 55 42 31 30  |UB5:EQUB7:EQUB10|
00000a70  3a 45 51 55 42 31 32 3a  45 51 55 42 31 35 3a 45  |:EQUB12:EQUB15:E|
00000a80  51 55 42 31 37 3a 45 51  55 42 32 30 3a 45 51 55  |QUB17:EQUB20:EQU|
00000a90  42 32 32 0d 02 e4 2b 2e  68 62 64 61 74 20 45 51  |B22...+.hbdat EQ|
00000aa0  55 42 34 3a 45 51 55 42  39 3a 45 51 55 42 31 34  |UB4:EQUB9:EQUB14|
00000ab0  3a 45 51 55 42 31 39 3a  45 51 55 42 32 34 0d 02  |:EQUB19:EQUB24..|
00000ac0  ee 4b 2e 78 73 65 74 20  45 51 55 42 30 3a 2e 79  |.K.xset EQUB0:.y|
00000ad0  73 65 74 20 45 51 55 42  30 3a 2e 78 73 63 72 20  |set EQUB0:.xscr |
00000ae0  45 51 55 42 30 3a 2e 79  73 63 72 20 45 51 55 42  |EQUB0:.yscr EQUB|
00000af0  30 3a 2e 78 70 6f 73 20  45 51 55 42 30 3a 2e 79  |0:.xpos EQUB0:.y|
00000b00  70 6f 73 20 45 51 55 42  30 0d 02 f8 11 2e 73 63  |pos EQUB0.....sc|
00000b10  72 6e 6f 20 45 51 55 42  20 30 0d 03 02 07 5d 3a  |rno EQUB 0....]:|
00000b20  ed 0d 03 0c 05 e1 0d ff                           |........|
00000b28