Home » CEEFAX disks » telesoftware12.adl » 27-01-89/Patrol

27-01-89/Patrol

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware12.adl
Filename: 27-01-89/Patrol
Read OK:
File size: 131F bytes
Load address: FFFF1C00
Exec address: FFFF8023
File contents
    1IFPAGE<>&1900 THEN PAGE=&1900:CHAIN"PATROL"
   10REM Moon Patrol - Listing I
   20REM by Andrew Cook
   30REM (c) The Micro User
   40MODE7:VDU23,1,0;0;0;0;
   50FORO%=0TO1:VDU129,157,131,141:PRINTTAB(15,O%)"Moon Patrol":NEXT
   60PRINTTAB(10,3)CHR$134"Written by Andrew Cook"
   70PRINTTAB(14,6)"Q - Sound off"'TAB(14)"S - Sound on"'TAB(9)"DELETE - Pause"'TAB(11)"COPY - Restart"
   80PRINTTAB(6,12)CHR$131"Controls:"''TAB(14)"Z - Left"'TAB(14)"X - Right"'TAB(14)"/ - Down"'TAB(14)": - Up"
   90ENVELOPE1,129,0,0,0,0,0,0,0,-2,-2,-2,100,0
  100ENVELOPE2,1,5,-5,0,10,10,0,0,0,0,0,20,20
  110ENVELOPE3,0,1,-1,0,16,16,0,0,55,-2,-4,126,126
  120FORO%=&A00TO&ADF STEP4
  130READ !O%:NEXT
  140DATA&00001500,&14000014,&293F2A3F
  150DATA&00280101,&163F153F,&00140202
  160DATA&00002A00,&28000028,&1A050A00
  170DATA&05051A10,&30250A0A,&05051A30
  180DATA&30250A0A,&05051A30,&20250A0A
  190DATA&00050A25,&1133110A,&04000022
  200DATA&050F0540,&0C0C0505,&0A0F0A80
  210DATA&0C0C0A0A,&22332205,&08000011
  220DATA&00000580,&80050000,&150A0000
  230DATA&00000A15,&2A050000,&0000052A
  240DATA&00000A40,&400A0000,&41000000
  250DATA&000041C6,&CDC64100,&41C6CDDA
  260DATA&C9820000,&0082C9CE,&00000000
  270DATA&00000082,&00000014,&00000000
  280DATA&383C143C,&3C383838,&28281428
  290DATA&28282828,&00000000,&00000000
  300DATA&E5E5E550,&50E5E5E5,&C9CCCFF0
  310DATA&F0CFCCC9,&C6CCCFF0,&F0CFCCC6
  320DATA&DADADAA0,&A0DADADA
  330VDU23,243,170,85,170,85,170,85,170,85
  340VDU23,244,168,80,168,80,168,80,168,80
  350VDU23,245,10,21,10,21,10,21,10,21
  360VDU23,246,170,85,170,85,0,0,0,0
  370VDU23,247,0,0,0,0,170,85,170,85
  380VDU23,248,124,68,84,84,56,16,16,16
  390VDU23,249,0,0,0,0,0,0,0,60
  400VDU23,250,0,0,0,0,1,1,1,1
  410VDU23,251,78,106,86,217,170,23,201,182
  420VDU23,252,0,0,0,0,128,128,128,128
  430VDU23,253,1,1,1,3,3,2,3,3
  440VDU23,254,90,173,85,182,173,210,117,255
  450VDU23,255,128,128,128,192,192,64,192,192
  460FOR L%=0TO2STEP2:P%=&1200:[OPT L%
  470.display LDY#31:.loop:LDA (&70),Y
  480EOR (&72),Y:STA (&70),Y:DEY
  490BPL loop:RTS:.check LDY#0:STY&75
  500STY&74:.loop2:LDA&74:BNE con
  510LDA&75:CMP#&3D:BEQ con:CMP#5
  520BEQ con:LDA(&70),Y:EOR(&72),Y
  530BEQ con:CMP#5:BNE cont2:STA&75
  540BNE con:.cont2 CMP#&3D:BNE cont3
  550STA&75:BNE con:.cont3 STA&75
  560CMP#&CD:BNE cont:CPY#13:BNE con
  570STY&74:JMP con:.cont CMP#&38
  580BNE cont4:CPY#14:BNE con:STY &74
  590JMP con:.cont4 CMP#&C9:BNE con
  600CPY#11:BNE con:STY&74:.con INY
  610CPY#32:BNE loop2:RTS:.left LDA&72
  620CMP#&20:BEQ lcont:LDY#1:.lt
  630LDA(&70),Y:CMP#&AA:BEQ end:CMP#&FF
  640BEQ end:CMP#&55:BEQ end:INY:CPY#7
  650BNE lt:.lcont LDA&70:SEC:SBC#16
  660STA&70:CMP#&F0:BCC end:DEC&71:RTS
  670.right LDA&72:CMP#&20:BEQ rcont
  680LDY#25:.lr LDA(&70),Y:CMP#&55
  690BEQ end:CMP#&AA:BEQ end:CMP#&FF
  700BEQ end:INY:CPY#31:BNE lr:.rcont
  710LDA&70:CLC:ADC#16:STA&70:CMP#16
  720BCS end:INC&71:.end RTS:.down
  730LDA#1:STA&75:LDA&72:BNE dcont
  740LDY#15:.ldo LDA(&70),Y:CMP#&AA
  750BEQ end:CMP#&FF:BEQ end:CMP#&55
  760BEQ end:TYA:CLC:ADC#8:TAY:CMP#31
  770BNE ldo:.dcont LDA&71:CMP#&7B
  780BCS end:LDA#0:STA&75:INC&71:INC&71
  790LDA&70:CLC:ADC#&80:STA&70:CMP#&80
  800BCS end:INC&71:RTS:.up LDA#1
  810STA&75:LDA&72:BNE ucont:LDY#8
  820.lu LDA(&70),Y:CMP#&AA:BEQ end
  830CMP#&FF:BEQ end:CMP#&55:BEQ end
  840TYA:CLC:ADC#8:TAY:CMP#24:BNE lu
  850.ucont LDA&71:CMP#&3A:BCC end
  860LDA#0:STA&75:DEC&71:DEC&71:LDA&70
  870SEC:SBC#&80:STA&70:CMP#&80:SBC#&80
  880BCC end3:DEC&71:.end3 RTS:.wino
  890LDA&7F:STA&76:LDA#&B:STA&77:.wloop
  900LDY#3:LDA(&76),Y:INC&296:SEC:SBC#1
  910STA(&76),Y:BNE wino2:LDY#3:LDA&296
  920CLC:AND#7:ADC#2:STA(&76),Y:DEY
  930LDA &296:ROR A:ROR A:ROR A:ROR A
  940AND #7:STA(&76),Y:.wino2 LDY#0
  950LDA (&76),Y:STA &70:INY:LDA(&76),Y
  960STA &71:LDA#&40:STA&72:LDA#&A
  970STA&73:JSR display:LDY#2
  980LDA (&76),Y:STA&78:CMP#0:BNE n
  990JSR up:JMP n8:.n LDA&78:CMP#1
 1000BNE n2:JSR right:JSR up:JMP n8:.n2
 1010LDA&78:CMP#2:BNE n3:JSR right
 1020JMP n8:.n3 LDA&78:CMP#3:BNE n4
 1030JSR down:JSR right:JMP n8:.n4
 1040LDA&78:CMP#4:BNE n5:JSR down:JMPn8
 1050.n5 LDA&78:CMP#5:BNE n6:JSR down
 1060JSR left:JMP n8:.n6 LDA&78:CMP#6
 1070BNE n7:JSR left:JMP n8:.n7 LDA&78
 1080CMP#7:BNE n8:JSR left:JSR up
 1090.n8 JSR display:LDY#0:LDA &70
 1100STA (&76),Y:INY:LDA &71:STA(&76),Y
 1110LDA &76:SEC:SBC#4:STA&76:BCC end2
 1120JMP wloop:.end2 RTS:.patrol
 1130LDA#&60:STA&72:LDA#&A:STA&73
 1140LDA#&80:STA&76:LDA#&B:STA&77
 1150.patloop LDY#1:LDA(&76),Y
 1160BEQ patcont:DEY:LDA(&76),Y:CLC
 1170ADC#1:STA(&76),Y:INY:CMP(&76),Y
 1180BNE patcont:LDA#0:DEY:STA(&76),Y
 1190LDY#3:LDA(&76),Y:STA&70:INY
 1200LDA(&76),Y:STA&71:JSR check:LDA&75
 1210CMP#&55:BEQ wipe:CMP#&AA:BEQ wipe
 1220CMP#&FF:BEQ wipe:JSR display:LDY#2
 1230LDA(&76),Y:CMP#0:BNE p1:JSR up
 1240LDA&75:CMP#0:BEQ p4:JSR display
 1250JMP wipe:.p1 CMP#1:BNE p2:JSRright
 1260JMP p4:.p2 CMP#2:BNE p3:JSR down
 1270LDA &75:CMP#0:BEQ p4:JSR display
 1280JMP wipe:.p3 CMP#3:BNE p4:JSR left
 1290.p4 JSR display:LDY#3:LDA&70
 1300STA(&76),Y:INY:LDA&71:STA(&76),Y
 1310.patcont LDA&76:CLC:ADC#5:STA&76
 1320CMP&7E:BEQ end4:JMP patloop:.end4
 1330RTS:.wipe LDA#0:LDY#1:STA(&76),Y
 1340JSR display:JMP patcont:]:NEXT
 1350W%=wino:T%=patrol
 1360M%=display:H%=check
 1370D%=down:L%=left:U%=up:R%=right
 1380VDU31,0,24,132,157,134,136
 1390PRINTSPC12"Press SPACE";
 1400REPEAT UNTIL INKEY-99
 1410VDU28,10,22,27,20:PAGE=&1500
 1420CHAIN"MOON2"
!�<>&1900 � �=&1900:�"PATROL"

� Moon Patrol - Listing I
� by Andrew Cook
� (c) The Micro User
(�7:�23,1,0;0;0;0;
24�O%=0�1:�129,157,131,141:�15,O%)"Moon Patrol":�
<'�10,3)�134"Written by Andrew Cook"
FV�14,6)"Q - Sound off"'�14)"S - Sound on"'�9)"DELETE - Pause"'�11)"COPY - Restart"
PV�6,12)�131"Controls:"''�14)"Z - Left"'�14)"X - Right"'�14)"/ - Down"'�14)": - Up"
Z'�1,129,0,0,0,0,0,0,0,-2,-2,-2,100,0
d%�2,1,5,-5,0,10,10,0,0,0,0,0,20,20
n*�3,0,1,-1,0,16,16,0,0,55,-2,-4,126,126
x�O%=&A00�&ADF �4
�� !O%:�
�"�&00001500,&14000014,&293F2A3F
�"�&00280101,&163F153F,&00140202
�"�&00002A00,&28000028,&1A050A00
�"�&05051A10,&30250A0A,&05051A30
�"�&30250A0A,&05051A30,&20250A0A
�"�&00050A25,&1133110A,&04000022
�"�&050F0540,&0C0C0505,&0A0F0A80
�"�&0C0C0A0A,&22332205,&08000011
�"�&00000580,&80050000,&150A0000
�"�&00000A15,&2A050000,&0000052A
�"�&00000A40,&400A0000,&41000000
�"�&000041C6,&CDC64100,&41C6CDDA
"�&C9820000,&0082C9CE,&00000000
"�&00000082,&00000014,&00000000
"�&383C143C,&3C383838,&28281428
""�&28282828,&00000000,&00000000
,"�&E5E5E550,&50E5E5E5,&C9CCCFF0
6"�&F0CFCCC9,&C6CCCFF0,&F0CFCCC6
@�&DADADAA0,&A0DADADA
J'�23,243,170,85,170,85,170,85,170,85
T'�23,244,168,80,168,80,168,80,168,80
^#�23,245,10,21,10,21,10,21,10,21
h!�23,246,170,85,170,85,0,0,0,0
r!�23,247,0,0,0,0,170,85,170,85
|$�23,248,124,68,84,84,56,16,16,16
��23,249,0,0,0,0,0,0,0,60
��23,250,0,0,0,0,1,1,1,1
�(�23,251,78,106,86,217,170,23,201,182
�#�23,252,0,0,0,0,128,128,128,128
��23,253,1,1,1,3,3,2,3,3
�)�23,254,90,173,85,182,173,210,117,255
�*�23,255,128,128,128,192,192,64,192,192
�� L%=0�2�2:P%=&1200:[OPT L%
�%.display LDY#31:.loop:LDA (&70),Y
�� (&72),Y:STA (&70),Y:DEY
�$BPL loop:RTS:.check LDY#0:STY&75
� STY&74:.loop2:LDA&74:BNE con
� LDA&75:CMP#&3D:BEQ con:CMP#5
BEQ con:LDA(&70),Y:�(&72),Y
"BEQ con:CMP#5:BNE cont2:STA&75
$BNE con:.cont2 CMP#&3D:BNE cont3
& STA&75:BNE con:.cont3 STA&75
0#CMP#&CD:BNE cont:CPY#13:BNE con
: STY&74:JMP con:.cont CMP#&38
D$BNE cont4:CPY#14:BNE con:STY &74
N"JMP con:.cont4 CMP#&C9:BNE con
X"CPY#11:BNE con:STY&74:.con INY
b%CPY#32:BNE loop2:RTS:.left LDA&72
lCMP#&20:BEQ lcont:LDY#1:.lt
v&LDA(&70),Y:CMP#&AA:BEQ end:CMP#&FF
�%BEQ end:CMP#&55:BEQ end:INY:CPY#7
�#BNE lt:.lcont LDA&70:SEC:SBC#16
�%STA&70:CMP#&F0:BCC end:DEC&71:RTS
�#.right LDA&72:CMP#&20:BEQ rcont
�!LDY#25:.lr LDA(&70),Y:CMP#&55
�#BEQ end:CMP#&AA:BEQ end:CMP#&FF
�$BEQ end:INY:CPY#31:BNE lr:.rcont
�#LDA&70:CLC:ADC#16:STA&70:CMP#16
�!BCS end:INC&71:.end RTS:.down
�!LDA#1:STA&75:LDA&72:BNE dcont
�"LDY#15:.ldo LDA(&70),Y:CMP#&AA
�#BEQ end:CMP#&FF:BEQ end:CMP#&55
�$BEQ end:TYA:CLC:ADC#8:TAY:CMP#31
!BNE ldo:.dcont LDA&71:CMP#&7B
&BCS end:LDA#0:STA&75:INC&71:INC&71
%LDA&70:CLC:ADC#&80:STA&70:CMP#&80
  BCS end:INC&71:RTS:.up LDA#1
*!STA&75:LDA&72:BNE ucont:LDY#8
4".lu LDA(&70),Y:CMP#&AA:BEQ end
>#CMP#&FF:BEQ end:CMP#&55:BEQ end
H#TYA:CLC:ADC#8:TAY:CMP#24:BNE lu
R!.ucont LDA&71:CMP#&3A:BCC end
\%LDA#0:STA&75:DEC&71:DEC&71:LDA&70
f&SEC:SBC#&80:STA&70:CMP#&80:SBC#&80
p#BCC end3:DEC&71:.end3 RTS:.wino
z&LDA&7F:STA&76:LDA#&B:STA&77:.wloop
�&LDY#3:LDA(&76),Y:INC&296:SEC:SBC#1
�&STA(&76),Y:BNE wino2:LDY#3:LDA&296
� CLC:�#7:ADC#2:STA(&76),Y:DEY
�$LDA &296:ROR A:ROR A:ROR A:ROR A
� � #7:STA(&76),Y:.wino2 LDY#0
�&LDA (&76),Y:STA &70:INY:LDA(&76),Y
�!STA &71:LDA#&40:STA&72:LDA#&A
�STA&73:JSR display:LDY#2
�"LDA (&76),Y:STA&78:CMP#0:BNE n
�!JSR up:JMP n8:.n LDA&78:CMP#1
�&BNE n2:JSR right:JSR up:JMP n8:.n2
�!LDA&78:CMP#2:BNE n3:JSR right
�"JMP n8:.n3 LDA&78:CMP#3:BNE n4
!JSR down:JSR right:JMP n8:.n4
&LDA&78:CMP#4:BNE n5:JSR down:JMPn8
$.n5 LDA&78:CMP#5:BNE n6:JSR down
$$JSR left:JMP n8:.n6 LDA&78:CMP#6
.%BNE n7:JSR left:JMP n8:.n7 LDA&78
8 CMP#7:BNE n8:JSR left:JSR up
B!.n8 JSR display:LDY#0:LDA &70
L&STA (&76),Y:INY:LDA &71:STA(&76),Y
V%LDA &76:SEC:SBC#4:STA&76:BCC end2
`JMP wloop:.end2 RTS:.patrol
j LDA#&60:STA&72:LDA#&A:STA&73
t LDA#&80:STA&76:LDA#&B:STA&77
~.patloop LDY#1:LDA(&76),Y
�"BEQ patcont:DEY:LDA(&76),Y:CLC
�#ADC#1:STA(&76),Y:INY:CMP(&76),Y
�$BNE patcont:LDA#0:DEY:STA(&76),Y
�LDY#3:LDA(&76),Y:STA&70:INY
�&LDA(&76),Y:STA&71:JSR check:LDA&75
�%CMP#&55:BEQ wipe:CMP#&AA:BEQ wipe
�&CMP#&FF:BEQ wipe:JSR display:LDY#2
�"LDA(&76),Y:CMP#0:BNE p1:JSR up
�#LDA&75:CMP#0:BEQ p4:JSR display
�&JMP wipe:.p1 CMP#1:BNE p2:JSRright
�$JMP p4:.p2 CMP#2:BNE p3:JSR down
�$LDA &75:CMP#0:BEQ p4:JSR display
&JMP wipe:.p3 CMP#3:BNE p4:JSR left

 .p4 JSR display:LDY#3:LDA&70
$STA(&76),Y:INY:LDA&71:STA(&76),Y
$.patcont LDA&76:CLC:ADC#5:STA&76
(%CMP&7E:BEQ end4:JMP patloop:.end4
2$RTS:.wipe LDA#0:LDY#1:STA(&76),Y
<JSR display:JMP patcont:]:�
FW%=wino:T%=patrol
PM%=display:H%=check
Z"D%=down:L%=left:U%=up:R%=right
d�31,0,24,132,157,134,136
n�12"Press SPACE";
x� � �-99
��28,10,22,27,20:�=&1500
��"MOON2"
�
00000000  0d 00 01 21 e7 90 3c 3e  26 31 39 30 30 20 8c 20  |...!..<>&1900 . |
00000010  d0 3d 26 31 39 30 30 3a  d7 22 50 41 54 52 4f 4c  |.=&1900:."PATROL|
00000020  22 0d 00 0a 1d f4 20 4d  6f 6f 6e 20 50 61 74 72  |"..... Moon Patr|
00000030  6f 6c 20 2d 20 4c 69 73  74 69 6e 67 20 49 0d 00  |ol - Listing I..|
00000040  14 14 f4 20 62 79 20 41  6e 64 72 65 77 20 43 6f  |... by Andrew Co|
00000050  6f 6b 0d 00 1e 18 f4 20  28 63 29 20 54 68 65 20  |ok..... (c) The |
00000060  4d 69 63 72 6f 20 55 73  65 72 0d 00 28 15 eb 37  |Micro User..(..7|
00000070  3a ef 32 33 2c 31 2c 30  3b 30 3b 30 3b 30 3b 0d  |:.23,1,0;0;0;0;.|
00000080  00 32 34 e3 4f 25 3d 30  b8 31 3a ef 31 32 39 2c  |.24.O%=0.1:.129,|
00000090  31 35 37 2c 31 33 31 2c  31 34 31 3a f1 8a 31 35  |157,131,141:..15|
000000a0  2c 4f 25 29 22 4d 6f 6f  6e 20 50 61 74 72 6f 6c  |,O%)"Moon Patrol|
000000b0  22 3a ed 0d 00 3c 27 f1  8a 31 30 2c 33 29 bd 31  |":...<'..10,3).1|
000000c0  33 34 22 57 72 69 74 74  65 6e 20 62 79 20 41 6e  |34"Written by An|
000000d0  64 72 65 77 20 43 6f 6f  6b 22 0d 00 46 56 f1 8a  |drew Cook"..FV..|
000000e0  31 34 2c 36 29 22 51 20  2d 20 53 6f 75 6e 64 20  |14,6)"Q - Sound |
000000f0  6f 66 66 22 27 8a 31 34  29 22 53 20 2d 20 53 6f  |off"'.14)"S - So|
00000100  75 6e 64 20 6f 6e 22 27  8a 39 29 22 44 45 4c 45  |und on"'.9)"DELE|
00000110  54 45 20 2d 20 50 61 75  73 65 22 27 8a 31 31 29  |TE - Pause"'.11)|
00000120  22 43 4f 50 59 20 2d 20  52 65 73 74 61 72 74 22  |"COPY - Restart"|
00000130  0d 00 50 56 f1 8a 36 2c  31 32 29 bd 31 33 31 22  |..PV..6,12).131"|
00000140  43 6f 6e 74 72 6f 6c 73  3a 22 27 27 8a 31 34 29  |Controls:"''.14)|
00000150  22 5a 20 2d 20 4c 65 66  74 22 27 8a 31 34 29 22  |"Z - Left"'.14)"|
00000160  58 20 2d 20 52 69 67 68  74 22 27 8a 31 34 29 22  |X - Right"'.14)"|
00000170  2f 20 2d 20 44 6f 77 6e  22 27 8a 31 34 29 22 3a  |/ - Down"'.14)":|
00000180  20 2d 20 55 70 22 0d 00  5a 27 e2 31 2c 31 32 39  | - Up"..Z'.1,129|
00000190  2c 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 30 2c 2d  |,0,0,0,0,0,0,0,-|
000001a0  32 2c 2d 32 2c 2d 32 2c  31 30 30 2c 30 0d 00 64  |2,-2,-2,100,0..d|
000001b0  25 e2 32 2c 31 2c 35 2c  2d 35 2c 30 2c 31 30 2c  |%.2,1,5,-5,0,10,|
000001c0  31 30 2c 30 2c 30 2c 30  2c 30 2c 30 2c 32 30 2c  |10,0,0,0,0,0,20,|
000001d0  32 30 0d 00 6e 2a e2 33  2c 30 2c 31 2c 2d 31 2c  |20..n*.3,0,1,-1,|
000001e0  30 2c 31 36 2c 31 36 2c  30 2c 30 2c 35 35 2c 2d  |0,16,16,0,0,55,-|
000001f0  32 2c 2d 34 2c 31 32 36  2c 31 32 36 0d 00 78 14  |2,-4,126,126..x.|
00000200  e3 4f 25 3d 26 41 30 30  b8 26 41 44 46 20 88 34  |.O%=&A00.&ADF .4|
00000210  0d 00 82 0b f3 20 21 4f  25 3a ed 0d 00 8c 22 dc  |..... !O%:....".|
00000220  26 30 30 30 30 31 35 30  30 2c 26 31 34 30 30 30  |&00001500,&14000|
00000230  30 31 34 2c 26 32 39 33  46 32 41 33 46 0d 00 96  |014,&293F2A3F...|
00000240  22 dc 26 30 30 32 38 30  31 30 31 2c 26 31 36 33  |".&00280101,&163|
00000250  46 31 35 33 46 2c 26 30  30 31 34 30 32 30 32 0d  |F153F,&00140202.|
00000260  00 a0 22 dc 26 30 30 30  30 32 41 30 30 2c 26 32  |..".&00002A00,&2|
00000270  38 30 30 30 30 32 38 2c  26 31 41 30 35 30 41 30  |8000028,&1A050A0|
00000280  30 0d 00 aa 22 dc 26 30  35 30 35 31 41 31 30 2c  |0...".&05051A10,|
00000290  26 33 30 32 35 30 41 30  41 2c 26 30 35 30 35 31  |&30250A0A,&05051|
000002a0  41 33 30 0d 00 b4 22 dc  26 33 30 32 35 30 41 30  |A30...".&30250A0|
000002b0  41 2c 26 30 35 30 35 31  41 33 30 2c 26 32 30 32  |A,&05051A30,&202|
000002c0  35 30 41 30 41 0d 00 be  22 dc 26 30 30 30 35 30  |50A0A...".&00050|
000002d0  41 32 35 2c 26 31 31 33  33 31 31 30 41 2c 26 30  |A25,&1133110A,&0|
000002e0  34 30 30 30 30 32 32 0d  00 c8 22 dc 26 30 35 30  |4000022...".&050|
000002f0  46 30 35 34 30 2c 26 30  43 30 43 30 35 30 35 2c  |F0540,&0C0C0505,|
00000300  26 30 41 30 46 30 41 38  30 0d 00 d2 22 dc 26 30  |&0A0F0A80...".&0|
00000310  43 30 43 30 41 30 41 2c  26 32 32 33 33 32 32 30  |C0C0A0A,&2233220|
00000320  35 2c 26 30 38 30 30 30  30 31 31 0d 00 dc 22 dc  |5,&08000011...".|
00000330  26 30 30 30 30 30 35 38  30 2c 26 38 30 30 35 30  |&00000580,&80050|
00000340  30 30 30 2c 26 31 35 30  41 30 30 30 30 0d 00 e6  |000,&150A0000...|
00000350  22 dc 26 30 30 30 30 30  41 31 35 2c 26 32 41 30  |".&00000A15,&2A0|
00000360  35 30 30 30 30 2c 26 30  30 30 30 30 35 32 41 0d  |50000,&0000052A.|
00000370  00 f0 22 dc 26 30 30 30  30 30 41 34 30 2c 26 34  |..".&00000A40,&4|
00000380  30 30 41 30 30 30 30 2c  26 34 31 30 30 30 30 30  |00A0000,&4100000|
00000390  30 0d 00 fa 22 dc 26 30  30 30 30 34 31 43 36 2c  |0...".&000041C6,|
000003a0  26 43 44 43 36 34 31 30  30 2c 26 34 31 43 36 43  |&CDC64100,&41C6C|
000003b0  44 44 41 0d 01 04 22 dc  26 43 39 38 32 30 30 30  |DDA...".&C982000|
000003c0  30 2c 26 30 30 38 32 43  39 43 45 2c 26 30 30 30  |0,&0082C9CE,&000|
000003d0  30 30 30 30 30 0d 01 0e  22 dc 26 30 30 30 30 30  |00000...".&00000|
000003e0  30 38 32 2c 26 30 30 30  30 30 30 31 34 2c 26 30  |082,&00000014,&0|
000003f0  30 30 30 30 30 30 30 0d  01 18 22 dc 26 33 38 33  |0000000...".&383|
00000400  43 31 34 33 43 2c 26 33  43 33 38 33 38 33 38 2c  |C143C,&3C383838,|
00000410  26 32 38 32 38 31 34 32  38 0d 01 22 22 dc 26 32  |&28281428.."".&2|
00000420  38 32 38 32 38 32 38 2c  26 30 30 30 30 30 30 30  |8282828,&0000000|
00000430  30 2c 26 30 30 30 30 30  30 30 30 0d 01 2c 22 dc  |0,&00000000..,".|
00000440  26 45 35 45 35 45 35 35  30 2c 26 35 30 45 35 45  |&E5E5E550,&50E5E|
00000450  35 45 35 2c 26 43 39 43  43 43 46 46 30 0d 01 36  |5E5,&C9CCCFF0..6|
00000460  22 dc 26 46 30 43 46 43  43 43 39 2c 26 43 36 43  |".&F0CFCCC9,&C6C|
00000470  43 43 46 46 30 2c 26 46  30 43 46 43 43 43 36 0d  |CCFF0,&F0CFCCC6.|
00000480  01 40 18 dc 26 44 41 44  41 44 41 41 30 2c 26 41  |.@..&DADADAA0,&A|
00000490  30 44 41 44 41 44 41 0d  01 4a 27 ef 32 33 2c 32  |0DADADA..J'.23,2|
000004a0  34 33 2c 31 37 30 2c 38  35 2c 31 37 30 2c 38 35  |43,170,85,170,85|
000004b0  2c 31 37 30 2c 38 35 2c  31 37 30 2c 38 35 0d 01  |,170,85,170,85..|
000004c0  54 27 ef 32 33 2c 32 34  34 2c 31 36 38 2c 38 30  |T'.23,244,168,80|
000004d0  2c 31 36 38 2c 38 30 2c  31 36 38 2c 38 30 2c 31  |,168,80,168,80,1|
000004e0  36 38 2c 38 30 0d 01 5e  23 ef 32 33 2c 32 34 35  |68,80..^#.23,245|
000004f0  2c 31 30 2c 32 31 2c 31  30 2c 32 31 2c 31 30 2c  |,10,21,10,21,10,|
00000500  32 31 2c 31 30 2c 32 31  0d 01 68 21 ef 32 33 2c  |21,10,21..h!.23,|
00000510  32 34 36 2c 31 37 30 2c  38 35 2c 31 37 30 2c 38  |246,170,85,170,8|
00000520  35 2c 30 2c 30 2c 30 2c  30 0d 01 72 21 ef 32 33  |5,0,0,0,0..r!.23|
00000530  2c 32 34 37 2c 30 2c 30  2c 30 2c 30 2c 31 37 30  |,247,0,0,0,0,170|
00000540  2c 38 35 2c 31 37 30 2c  38 35 0d 01 7c 24 ef 32  |,85,170,85..|$.2|
00000550  33 2c 32 34 38 2c 31 32  34 2c 36 38 2c 38 34 2c  |3,248,124,68,84,|
00000560  38 34 2c 35 36 2c 31 36  2c 31 36 2c 31 36 0d 01  |84,56,16,16,16..|
00000570  86 1c ef 32 33 2c 32 34  39 2c 30 2c 30 2c 30 2c  |...23,249,0,0,0,|
00000580  30 2c 30 2c 30 2c 30 2c  36 30 0d 01 90 1b ef 32  |0,0,0,0,60.....2|
00000590  33 2c 32 35 30 2c 30 2c  30 2c 30 2c 30 2c 31 2c  |3,250,0,0,0,0,1,|
000005a0  31 2c 31 2c 31 0d 01 9a  28 ef 32 33 2c 32 35 31  |1,1,1...(.23,251|
000005b0  2c 37 38 2c 31 30 36 2c  38 36 2c 32 31 37 2c 31  |,78,106,86,217,1|
000005c0  37 30 2c 32 33 2c 32 30  31 2c 31 38 32 0d 01 a4  |70,23,201,182...|
000005d0  23 ef 32 33 2c 32 35 32  2c 30 2c 30 2c 30 2c 30  |#.23,252,0,0,0,0|
000005e0  2c 31 32 38 2c 31 32 38  2c 31 32 38 2c 31 32 38  |,128,128,128,128|
000005f0  0d 01 ae 1b ef 32 33 2c  32 35 33 2c 31 2c 31 2c  |.....23,253,1,1,|
00000600  31 2c 33 2c 33 2c 32 2c  33 2c 33 0d 01 b8 29 ef  |1,3,3,2,3,3...).|
00000610  32 33 2c 32 35 34 2c 39  30 2c 31 37 33 2c 38 35  |23,254,90,173,85|
00000620  2c 31 38 32 2c 31 37 33  2c 32 31 30 2c 31 31 37  |,182,173,210,117|
00000630  2c 32 35 35 0d 01 c2 2a  ef 32 33 2c 32 35 35 2c  |,255...*.23,255,|
00000640  31 32 38 2c 31 32 38 2c  31 32 38 2c 31 39 32 2c  |128,128,128,192,|
00000650  31 39 32 2c 36 34 2c 31  39 32 2c 31 39 32 0d 01  |192,64,192,192..|
00000660  cc 1f e3 20 4c 25 3d 30  b8 32 88 32 3a 50 25 3d  |... L%=0.2.2:P%=|
00000670  26 31 32 30 30 3a 5b 4f  50 54 20 4c 25 0d 01 d6  |&1200:[OPT L%...|
00000680  25 2e 64 69 73 70 6c 61  79 20 4c 44 59 23 33 31  |%.display LDY#31|
00000690  3a 2e 6c 6f 6f 70 3a 4c  44 41 20 28 26 37 30 29  |:.loop:LDA (&70)|
000006a0  2c 59 0d 01 e0 1d 82 20  28 26 37 32 29 2c 59 3a  |,Y..... (&72),Y:|
000006b0  53 54 41 20 28 26 37 30  29 2c 59 3a 44 45 59 0d  |STA (&70),Y:DEY.|
000006c0  01 ea 24 42 50 4c 20 6c  6f 6f 70 3a 52 54 53 3a  |..$BPL loop:RTS:|
000006d0  2e 63 68 65 63 6b 20 4c  44 59 23 30 3a 53 54 59  |.check LDY#0:STY|
000006e0  26 37 35 0d 01 f4 20 53  54 59 26 37 34 3a 2e 6c  |&75... STY&74:.l|
000006f0  6f 6f 70 32 3a 4c 44 41  26 37 34 3a 42 4e 45 20  |oop2:LDA&74:BNE |
00000700  63 6f 6e 0d 01 fe 20 4c  44 41 26 37 35 3a 43 4d  |con... LDA&75:CM|
00000710  50 23 26 33 44 3a 42 45  51 20 63 6f 6e 3a 43 4d  |P#&3D:BEQ con:CM|
00000720  50 23 35 0d 02 08 1f 42  45 51 20 63 6f 6e 3a 4c  |P#5....BEQ con:L|
00000730  44 41 28 26 37 30 29 2c  59 3a 82 28 26 37 32 29  |DA(&70),Y:.(&72)|
00000740  2c 59 0d 02 12 22 42 45  51 20 63 6f 6e 3a 43 4d  |,Y..."BEQ con:CM|
00000750  50 23 35 3a 42 4e 45 20  63 6f 6e 74 32 3a 53 54  |P#5:BNE cont2:ST|
00000760  41 26 37 35 0d 02 1c 24  42 4e 45 20 63 6f 6e 3a  |A&75...$BNE con:|
00000770  2e 63 6f 6e 74 32 20 43  4d 50 23 26 33 44 3a 42  |.cont2 CMP#&3D:B|
00000780  4e 45 20 63 6f 6e 74 33  0d 02 26 20 53 54 41 26  |NE cont3..& STA&|
00000790  37 35 3a 42 4e 45 20 63  6f 6e 3a 2e 63 6f 6e 74  |75:BNE con:.cont|
000007a0  33 20 53 54 41 26 37 35  0d 02 30 23 43 4d 50 23  |3 STA&75..0#CMP#|
000007b0  26 43 44 3a 42 4e 45 20  63 6f 6e 74 3a 43 50 59  |&CD:BNE cont:CPY|
000007c0  23 31 33 3a 42 4e 45 20  63 6f 6e 0d 02 3a 20 53  |#13:BNE con..: S|
000007d0  54 59 26 37 34 3a 4a 4d  50 20 63 6f 6e 3a 2e 63  |TY&74:JMP con:.c|
000007e0  6f 6e 74 20 43 4d 50 23  26 33 38 0d 02 44 24 42  |ont CMP#&38..D$B|
000007f0  4e 45 20 63 6f 6e 74 34  3a 43 50 59 23 31 34 3a  |NE cont4:CPY#14:|
00000800  42 4e 45 20 63 6f 6e 3a  53 54 59 20 26 37 34 0d  |BNE con:STY &74.|
00000810  02 4e 22 4a 4d 50 20 63  6f 6e 3a 2e 63 6f 6e 74  |.N"JMP con:.cont|
00000820  34 20 43 4d 50 23 26 43  39 3a 42 4e 45 20 63 6f  |4 CMP#&C9:BNE co|
00000830  6e 0d 02 58 22 43 50 59  23 31 31 3a 42 4e 45 20  |n..X"CPY#11:BNE |
00000840  63 6f 6e 3a 53 54 59 26  37 34 3a 2e 63 6f 6e 20  |con:STY&74:.con |
00000850  49 4e 59 0d 02 62 25 43  50 59 23 33 32 3a 42 4e  |INY..b%CPY#32:BN|
00000860  45 20 6c 6f 6f 70 32 3a  52 54 53 3a 2e 6c 65 66  |E loop2:RTS:.lef|
00000870  74 20 4c 44 41 26 37 32  0d 02 6c 1f 43 4d 50 23  |t LDA&72..l.CMP#|
00000880  26 32 30 3a 42 45 51 20  6c 63 6f 6e 74 3a 4c 44  |&20:BEQ lcont:LD|
00000890  59 23 31 3a 2e 6c 74 0d  02 76 26 4c 44 41 28 26  |Y#1:.lt..v&LDA(&|
000008a0  37 30 29 2c 59 3a 43 4d  50 23 26 41 41 3a 42 45  |70),Y:CMP#&AA:BE|
000008b0  51 20 65 6e 64 3a 43 4d  50 23 26 46 46 0d 02 80  |Q end:CMP#&FF...|
000008c0  25 42 45 51 20 65 6e 64  3a 43 4d 50 23 26 35 35  |%BEQ end:CMP#&55|
000008d0  3a 42 45 51 20 65 6e 64  3a 49 4e 59 3a 43 50 59  |:BEQ end:INY:CPY|
000008e0  23 37 0d 02 8a 23 42 4e  45 20 6c 74 3a 2e 6c 63  |#7...#BNE lt:.lc|
000008f0  6f 6e 74 20 4c 44 41 26  37 30 3a 53 45 43 3a 53  |ont LDA&70:SEC:S|
00000900  42 43 23 31 36 0d 02 94  25 53 54 41 26 37 30 3a  |BC#16...%STA&70:|
00000910  43 4d 50 23 26 46 30 3a  42 43 43 20 65 6e 64 3a  |CMP#&F0:BCC end:|
00000920  44 45 43 26 37 31 3a 52  54 53 0d 02 9e 23 2e 72  |DEC&71:RTS...#.r|
00000930  69 67 68 74 20 4c 44 41  26 37 32 3a 43 4d 50 23  |ight LDA&72:CMP#|
00000940  26 32 30 3a 42 45 51 20  72 63 6f 6e 74 0d 02 a8  |&20:BEQ rcont...|
00000950  21 4c 44 59 23 32 35 3a  2e 6c 72 20 4c 44 41 28  |!LDY#25:.lr LDA(|
00000960  26 37 30 29 2c 59 3a 43  4d 50 23 26 35 35 0d 02  |&70),Y:CMP#&55..|
00000970  b2 23 42 45 51 20 65 6e  64 3a 43 4d 50 23 26 41  |.#BEQ end:CMP#&A|
00000980  41 3a 42 45 51 20 65 6e  64 3a 43 4d 50 23 26 46  |A:BEQ end:CMP#&F|
00000990  46 0d 02 bc 24 42 45 51  20 65 6e 64 3a 49 4e 59  |F...$BEQ end:INY|
000009a0  3a 43 50 59 23 33 31 3a  42 4e 45 20 6c 72 3a 2e  |:CPY#31:BNE lr:.|
000009b0  72 63 6f 6e 74 0d 02 c6  23 4c 44 41 26 37 30 3a  |rcont...#LDA&70:|
000009c0  43 4c 43 3a 41 44 43 23  31 36 3a 53 54 41 26 37  |CLC:ADC#16:STA&7|
000009d0  30 3a 43 4d 50 23 31 36  0d 02 d0 21 42 43 53 20  |0:CMP#16...!BCS |
000009e0  65 6e 64 3a 49 4e 43 26  37 31 3a 2e 65 6e 64 20  |end:INC&71:.end |
000009f0  52 54 53 3a 2e 64 6f 77  6e 0d 02 da 21 4c 44 41  |RTS:.down...!LDA|
00000a00  23 31 3a 53 54 41 26 37  35 3a 4c 44 41 26 37 32  |#1:STA&75:LDA&72|
00000a10  3a 42 4e 45 20 64 63 6f  6e 74 0d 02 e4 22 4c 44  |:BNE dcont..."LD|
00000a20  59 23 31 35 3a 2e 6c 64  6f 20 4c 44 41 28 26 37  |Y#15:.ldo LDA(&7|
00000a30  30 29 2c 59 3a 43 4d 50  23 26 41 41 0d 02 ee 23  |0),Y:CMP#&AA...#|
00000a40  42 45 51 20 65 6e 64 3a  43 4d 50 23 26 46 46 3a  |BEQ end:CMP#&FF:|
00000a50  42 45 51 20 65 6e 64 3a  43 4d 50 23 26 35 35 0d  |BEQ end:CMP#&55.|
00000a60  02 f8 24 42 45 51 20 65  6e 64 3a 54 59 41 3a 43  |..$BEQ end:TYA:C|
00000a70  4c 43 3a 41 44 43 23 38  3a 54 41 59 3a 43 4d 50  |LC:ADC#8:TAY:CMP|
00000a80  23 33 31 0d 03 02 21 42  4e 45 20 6c 64 6f 3a 2e  |#31...!BNE ldo:.|
00000a90  64 63 6f 6e 74 20 4c 44  41 26 37 31 3a 43 4d 50  |dcont LDA&71:CMP|
00000aa0  23 26 37 42 0d 03 0c 26  42 43 53 20 65 6e 64 3a  |#&7B...&BCS end:|
00000ab0  4c 44 41 23 30 3a 53 54  41 26 37 35 3a 49 4e 43  |LDA#0:STA&75:INC|
00000ac0  26 37 31 3a 49 4e 43 26  37 31 0d 03 16 25 4c 44  |&71:INC&71...%LD|
00000ad0  41 26 37 30 3a 43 4c 43  3a 41 44 43 23 26 38 30  |A&70:CLC:ADC#&80|
00000ae0  3a 53 54 41 26 37 30 3a  43 4d 50 23 26 38 30 0d  |:STA&70:CMP#&80.|
00000af0  03 20 20 42 43 53 20 65  6e 64 3a 49 4e 43 26 37  |.  BCS end:INC&7|
00000b00  31 3a 52 54 53 3a 2e 75  70 20 4c 44 41 23 31 0d  |1:RTS:.up LDA#1.|
00000b10  03 2a 21 53 54 41 26 37  35 3a 4c 44 41 26 37 32  |.*!STA&75:LDA&72|
00000b20  3a 42 4e 45 20 75 63 6f  6e 74 3a 4c 44 59 23 38  |:BNE ucont:LDY#8|
00000b30  0d 03 34 22 2e 6c 75 20  4c 44 41 28 26 37 30 29  |..4".lu LDA(&70)|
00000b40  2c 59 3a 43 4d 50 23 26  41 41 3a 42 45 51 20 65  |,Y:CMP#&AA:BEQ e|
00000b50  6e 64 0d 03 3e 23 43 4d  50 23 26 46 46 3a 42 45  |nd..>#CMP#&FF:BE|
00000b60  51 20 65 6e 64 3a 43 4d  50 23 26 35 35 3a 42 45  |Q end:CMP#&55:BE|
00000b70  51 20 65 6e 64 0d 03 48  23 54 59 41 3a 43 4c 43  |Q end..H#TYA:CLC|
00000b80  3a 41 44 43 23 38 3a 54  41 59 3a 43 4d 50 23 32  |:ADC#8:TAY:CMP#2|
00000b90  34 3a 42 4e 45 20 6c 75  0d 03 52 21 2e 75 63 6f  |4:BNE lu..R!.uco|
00000ba0  6e 74 20 4c 44 41 26 37  31 3a 43 4d 50 23 26 33  |nt LDA&71:CMP#&3|
00000bb0  41 3a 42 43 43 20 65 6e  64 0d 03 5c 25 4c 44 41  |A:BCC end..\%LDA|
00000bc0  23 30 3a 53 54 41 26 37  35 3a 44 45 43 26 37 31  |#0:STA&75:DEC&71|
00000bd0  3a 44 45 43 26 37 31 3a  4c 44 41 26 37 30 0d 03  |:DEC&71:LDA&70..|
00000be0  66 26 53 45 43 3a 53 42  43 23 26 38 30 3a 53 54  |f&SEC:SBC#&80:ST|
00000bf0  41 26 37 30 3a 43 4d 50  23 26 38 30 3a 53 42 43  |A&70:CMP#&80:SBC|
00000c00  23 26 38 30 0d 03 70 23  42 43 43 20 65 6e 64 33  |#&80..p#BCC end3|
00000c10  3a 44 45 43 26 37 31 3a  2e 65 6e 64 33 20 52 54  |:DEC&71:.end3 RT|
00000c20  53 3a 2e 77 69 6e 6f 0d  03 7a 26 4c 44 41 26 37  |S:.wino..z&LDA&7|
00000c30  46 3a 53 54 41 26 37 36  3a 4c 44 41 23 26 42 3a  |F:STA&76:LDA#&B:|
00000c40  53 54 41 26 37 37 3a 2e  77 6c 6f 6f 70 0d 03 84  |STA&77:.wloop...|
00000c50  26 4c 44 59 23 33 3a 4c  44 41 28 26 37 36 29 2c  |&LDY#3:LDA(&76),|
00000c60  59 3a 49 4e 43 26 32 39  36 3a 53 45 43 3a 53 42  |Y:INC&296:SEC:SB|
00000c70  43 23 31 0d 03 8e 26 53  54 41 28 26 37 36 29 2c  |C#1...&STA(&76),|
00000c80  59 3a 42 4e 45 20 77 69  6e 6f 32 3a 4c 44 59 23  |Y:BNE wino2:LDY#|
00000c90  33 3a 4c 44 41 26 32 39  36 0d 03 98 20 43 4c 43  |3:LDA&296... CLC|
00000ca0  3a 80 23 37 3a 41 44 43  23 32 3a 53 54 41 28 26  |:.#7:ADC#2:STA(&|
00000cb0  37 36 29 2c 59 3a 44 45  59 0d 03 a2 24 4c 44 41  |76),Y:DEY...$LDA|
00000cc0  20 26 32 39 36 3a 52 4f  52 20 41 3a 52 4f 52 20  | &296:ROR A:ROR |
00000cd0  41 3a 52 4f 52 20 41 3a  52 4f 52 20 41 0d 03 ac  |A:ROR A:ROR A...|
00000ce0  20 80 20 23 37 3a 53 54  41 28 26 37 36 29 2c 59  | . #7:STA(&76),Y|
00000cf0  3a 2e 77 69 6e 6f 32 20  4c 44 59 23 30 0d 03 b6  |:.wino2 LDY#0...|
00000d00  26 4c 44 41 20 28 26 37  36 29 2c 59 3a 53 54 41  |&LDA (&76),Y:STA|
00000d10  20 26 37 30 3a 49 4e 59  3a 4c 44 41 28 26 37 36  | &70:INY:LDA(&76|
00000d20  29 2c 59 0d 03 c0 21 53  54 41 20 26 37 31 3a 4c  |),Y...!STA &71:L|
00000d30  44 41 23 26 34 30 3a 53  54 41 26 37 32 3a 4c 44  |DA#&40:STA&72:LD|
00000d40  41 23 26 41 0d 03 ca 1c  53 54 41 26 37 33 3a 4a  |A#&A....STA&73:J|
00000d50  53 52 20 64 69 73 70 6c  61 79 3a 4c 44 59 23 32  |SR display:LDY#2|
00000d60  0d 03 d4 22 4c 44 41 20  28 26 37 36 29 2c 59 3a  |..."LDA (&76),Y:|
00000d70  53 54 41 26 37 38 3a 43  4d 50 23 30 3a 42 4e 45  |STA&78:CMP#0:BNE|
00000d80  20 6e 0d 03 de 21 4a 53  52 20 75 70 3a 4a 4d 50  | n...!JSR up:JMP|
00000d90  20 6e 38 3a 2e 6e 20 4c  44 41 26 37 38 3a 43 4d  | n8:.n LDA&78:CM|
00000da0  50 23 31 0d 03 e8 26 42  4e 45 20 6e 32 3a 4a 53  |P#1...&BNE n2:JS|
00000db0  52 20 72 69 67 68 74 3a  4a 53 52 20 75 70 3a 4a  |R right:JSR up:J|
00000dc0  4d 50 20 6e 38 3a 2e 6e  32 0d 03 f2 21 4c 44 41  |MP n8:.n2...!LDA|
00000dd0  26 37 38 3a 43 4d 50 23  32 3a 42 4e 45 20 6e 33  |&78:CMP#2:BNE n3|
00000de0  3a 4a 53 52 20 72 69 67  68 74 0d 03 fc 22 4a 4d  |:JSR right..."JM|
00000df0  50 20 6e 38 3a 2e 6e 33  20 4c 44 41 26 37 38 3a  |P n8:.n3 LDA&78:|
00000e00  43 4d 50 23 33 3a 42 4e  45 20 6e 34 0d 04 06 21  |CMP#3:BNE n4...!|
00000e10  4a 53 52 20 64 6f 77 6e  3a 4a 53 52 20 72 69 67  |JSR down:JSR rig|
00000e20  68 74 3a 4a 4d 50 20 6e  38 3a 2e 6e 34 0d 04 10  |ht:JMP n8:.n4...|
00000e30  26 4c 44 41 26 37 38 3a  43 4d 50 23 34 3a 42 4e  |&LDA&78:CMP#4:BN|
00000e40  45 20 6e 35 3a 4a 53 52  20 64 6f 77 6e 3a 4a 4d  |E n5:JSR down:JM|
00000e50  50 6e 38 0d 04 1a 24 2e  6e 35 20 4c 44 41 26 37  |Pn8...$.n5 LDA&7|
00000e60  38 3a 43 4d 50 23 35 3a  42 4e 45 20 6e 36 3a 4a  |8:CMP#5:BNE n6:J|
00000e70  53 52 20 64 6f 77 6e 0d  04 24 24 4a 53 52 20 6c  |SR down..$$JSR l|
00000e80  65 66 74 3a 4a 4d 50 20  6e 38 3a 2e 6e 36 20 4c  |eft:JMP n8:.n6 L|
00000e90  44 41 26 37 38 3a 43 4d  50 23 36 0d 04 2e 25 42  |DA&78:CMP#6...%B|
00000ea0  4e 45 20 6e 37 3a 4a 53  52 20 6c 65 66 74 3a 4a  |NE n7:JSR left:J|
00000eb0  4d 50 20 6e 38 3a 2e 6e  37 20 4c 44 41 26 37 38  |MP n8:.n7 LDA&78|
00000ec0  0d 04 38 20 43 4d 50 23  37 3a 42 4e 45 20 6e 38  |..8 CMP#7:BNE n8|
00000ed0  3a 4a 53 52 20 6c 65 66  74 3a 4a 53 52 20 75 70  |:JSR left:JSR up|
00000ee0  0d 04 42 21 2e 6e 38 20  4a 53 52 20 64 69 73 70  |..B!.n8 JSR disp|
00000ef0  6c 61 79 3a 4c 44 59 23  30 3a 4c 44 41 20 26 37  |lay:LDY#0:LDA &7|
00000f00  30 0d 04 4c 26 53 54 41  20 28 26 37 36 29 2c 59  |0..L&STA (&76),Y|
00000f10  3a 49 4e 59 3a 4c 44 41  20 26 37 31 3a 53 54 41  |:INY:LDA &71:STA|
00000f20  28 26 37 36 29 2c 59 0d  04 56 25 4c 44 41 20 26  |(&76),Y..V%LDA &|
00000f30  37 36 3a 53 45 43 3a 53  42 43 23 34 3a 53 54 41  |76:SEC:SBC#4:STA|
00000f40  26 37 36 3a 42 43 43 20  65 6e 64 32 0d 04 60 1f  |&76:BCC end2..`.|
00000f50  4a 4d 50 20 77 6c 6f 6f  70 3a 2e 65 6e 64 32 20  |JMP wloop:.end2 |
00000f60  52 54 53 3a 2e 70 61 74  72 6f 6c 0d 04 6a 20 4c  |RTS:.patrol..j L|
00000f70  44 41 23 26 36 30 3a 53  54 41 26 37 32 3a 4c 44  |DA#&60:STA&72:LD|
00000f80  41 23 26 41 3a 53 54 41  26 37 33 0d 04 74 20 4c  |A#&A:STA&73..t L|
00000f90  44 41 23 26 38 30 3a 53  54 41 26 37 36 3a 4c 44  |DA#&80:STA&76:LD|
00000fa0  41 23 26 42 3a 53 54 41  26 37 37 0d 04 7e 1d 2e  |A#&B:STA&77..~..|
00000fb0  70 61 74 6c 6f 6f 70 20  4c 44 59 23 31 3a 4c 44  |patloop LDY#1:LD|
00000fc0  41 28 26 37 36 29 2c 59  0d 04 88 22 42 45 51 20  |A(&76),Y..."BEQ |
00000fd0  70 61 74 63 6f 6e 74 3a  44 45 59 3a 4c 44 41 28  |patcont:DEY:LDA(|
00000fe0  26 37 36 29 2c 59 3a 43  4c 43 0d 04 92 23 41 44  |&76),Y:CLC...#AD|
00000ff0  43 23 31 3a 53 54 41 28  26 37 36 29 2c 59 3a 49  |C#1:STA(&76),Y:I|
00001000  4e 59 3a 43 4d 50 28 26  37 36 29 2c 59 0d 04 9c  |NY:CMP(&76),Y...|
00001010  24 42 4e 45 20 70 61 74  63 6f 6e 74 3a 4c 44 41  |$BNE patcont:LDA|
00001020  23 30 3a 44 45 59 3a 53  54 41 28 26 37 36 29 2c  |#0:DEY:STA(&76),|
00001030  59 0d 04 a6 1f 4c 44 59  23 33 3a 4c 44 41 28 26  |Y....LDY#3:LDA(&|
00001040  37 36 29 2c 59 3a 53 54  41 26 37 30 3a 49 4e 59  |76),Y:STA&70:INY|
00001050  0d 04 b0 26 4c 44 41 28  26 37 36 29 2c 59 3a 53  |...&LDA(&76),Y:S|
00001060  54 41 26 37 31 3a 4a 53  52 20 63 68 65 63 6b 3a  |TA&71:JSR check:|
00001070  4c 44 41 26 37 35 0d 04  ba 25 43 4d 50 23 26 35  |LDA&75...%CMP#&5|
00001080  35 3a 42 45 51 20 77 69  70 65 3a 43 4d 50 23 26  |5:BEQ wipe:CMP#&|
00001090  41 41 3a 42 45 51 20 77  69 70 65 0d 04 c4 26 43  |AA:BEQ wipe...&C|
000010a0  4d 50 23 26 46 46 3a 42  45 51 20 77 69 70 65 3a  |MP#&FF:BEQ wipe:|
000010b0  4a 53 52 20 64 69 73 70  6c 61 79 3a 4c 44 59 23  |JSR display:LDY#|
000010c0  32 0d 04 ce 22 4c 44 41  28 26 37 36 29 2c 59 3a  |2..."LDA(&76),Y:|
000010d0  43 4d 50 23 30 3a 42 4e  45 20 70 31 3a 4a 53 52  |CMP#0:BNE p1:JSR|
000010e0  20 75 70 0d 04 d8 23 4c  44 41 26 37 35 3a 43 4d  | up...#LDA&75:CM|
000010f0  50 23 30 3a 42 45 51 20  70 34 3a 4a 53 52 20 64  |P#0:BEQ p4:JSR d|
00001100  69 73 70 6c 61 79 0d 04  e2 26 4a 4d 50 20 77 69  |isplay...&JMP wi|
00001110  70 65 3a 2e 70 31 20 43  4d 50 23 31 3a 42 4e 45  |pe:.p1 CMP#1:BNE|
00001120  20 70 32 3a 4a 53 52 72  69 67 68 74 0d 04 ec 24  | p2:JSRright...$|
00001130  4a 4d 50 20 70 34 3a 2e  70 32 20 43 4d 50 23 32  |JMP p4:.p2 CMP#2|
00001140  3a 42 4e 45 20 70 33 3a  4a 53 52 20 64 6f 77 6e  |:BNE p3:JSR down|
00001150  0d 04 f6 24 4c 44 41 20  26 37 35 3a 43 4d 50 23  |...$LDA &75:CMP#|
00001160  30 3a 42 45 51 20 70 34  3a 4a 53 52 20 64 69 73  |0:BEQ p4:JSR dis|
00001170  70 6c 61 79 0d 05 00 26  4a 4d 50 20 77 69 70 65  |play...&JMP wipe|
00001180  3a 2e 70 33 20 43 4d 50  23 33 3a 42 4e 45 20 70  |:.p3 CMP#3:BNE p|
00001190  34 3a 4a 53 52 20 6c 65  66 74 0d 05 0a 20 2e 70  |4:JSR left... .p|
000011a0  34 20 4a 53 52 20 64 69  73 70 6c 61 79 3a 4c 44  |4 JSR display:LD|
000011b0  59 23 33 3a 4c 44 41 26  37 30 0d 05 14 24 53 54  |Y#3:LDA&70...$ST|
000011c0  41 28 26 37 36 29 2c 59  3a 49 4e 59 3a 4c 44 41  |A(&76),Y:INY:LDA|
000011d0  26 37 31 3a 53 54 41 28  26 37 36 29 2c 59 0d 05  |&71:STA(&76),Y..|
000011e0  1e 24 2e 70 61 74 63 6f  6e 74 20 4c 44 41 26 37  |.$.patcont LDA&7|
000011f0  36 3a 43 4c 43 3a 41 44  43 23 35 3a 53 54 41 26  |6:CLC:ADC#5:STA&|
00001200  37 36 0d 05 28 25 43 4d  50 26 37 45 3a 42 45 51  |76..(%CMP&7E:BEQ|
00001210  20 65 6e 64 34 3a 4a 4d  50 20 70 61 74 6c 6f 6f  | end4:JMP patloo|
00001220  70 3a 2e 65 6e 64 34 0d  05 32 24 52 54 53 3a 2e  |p:.end4..2$RTS:.|
00001230  77 69 70 65 20 4c 44 41  23 30 3a 4c 44 59 23 31  |wipe LDA#0:LDY#1|
00001240  3a 53 54 41 28 26 37 36  29 2c 59 0d 05 3c 1f 4a  |:STA(&76),Y..<.J|
00001250  53 52 20 64 69 73 70 6c  61 79 3a 4a 4d 50 20 70  |SR display:JMP p|
00001260  61 74 63 6f 6e 74 3a 5d  3a ed 0d 05 46 15 57 25  |atcont:]:...F.W%|
00001270  3d 77 69 6e 6f 3a 54 25  3d 70 61 74 72 6f 6c 0d  |=wino:T%=patrol.|
00001280  05 50 17 4d 25 3d 64 69  73 70 6c 61 79 3a 48 25  |.P.M%=display:H%|
00001290  3d 63 68 65 63 6b 0d 05  5a 22 44 25 3d 64 6f 77  |=check..Z"D%=dow|
000012a0  6e 3a 4c 25 3d 6c 65 66  74 3a 55 25 3d 75 70 3a  |n:L%=left:U%=up:|
000012b0  52 25 3d 72 69 67 68 74  0d 05 64 1c ef 33 31 2c  |R%=right..d..31,|
000012c0  30 2c 32 34 2c 31 33 32  2c 31 35 37 2c 31 33 34  |0,24,132,157,134|
000012d0  2c 31 33 36 0d 05 6e 16  f1 89 31 32 22 50 72 65  |,136..n...12"Pre|
000012e0  73 73 20 53 50 41 43 45  22 3b 0d 05 78 0c f5 20  |ss SPACE";..x.. |
000012f0  fd 20 a6 2d 39 39 0d 05  82 1b ef 32 38 2c 31 30  |. .-99.....28,10|
00001300  2c 32 32 2c 32 37 2c 32  30 3a d0 3d 26 31 35 30  |,22,27,20:.=&150|
00001310  30 0d 05 8c 0c d7 22 4d  4f 4f 4e 32 22 0d ff     |0....."MOON2"..|
0000131f
27-01-89/Patrol.m0
27-01-89/Patrol.m1
27-01-89/Patrol.m2
27-01-89/Patrol.m4
27-01-89/Patrol.m5