�P%=&1C80:O%=&6480:[OPTpass
�.complete CPY#&99:BEQcongu:JSRscreen:JMPscrdisp:.congu LDA#(cmptxt � 256):STA&72:LDA#(cmptxt � 256):STA&73:LDA#4:STAcol:LSRA:STAxch:LDA#14:STAych:JSRstring:INC&72:LDA#3:STAxch:LDA#19:STAych
�JSRstring:.theend JMPtheend
�.mainclear LDAmtype:BEQnoclearm:LDAxpos:CMPxmoo:BNEmci:LDAypos:CMPymoo:BEQmcii:.mci LDAclearup:BEQnoclearm:.mcii LDA#1:STAchanged:JSRdelyou
�LDAsound:BEQnohiss:LDA#7:LDX#(splat � 256):LDY#(splat � 256):JSRosword:.nohiss LDXxpos:LDYypos:JSRmcd:LDA#0:STAwiper:STAwiperm:LDXxmont:LDYymont:JMPmcd:.noclearm RTS
�.dispmon LDA&78:PHA:LDA&79:PHA:LDAfine:PHA:LDAxpos:PHA:LDAypos:PHA:LDAxmont:STAxpos:LDAymont:STAypos:LDAmfine:STAfine:LDA&7A:STA&78:LDA&7B:STA&79
$�LDA#3:STAwirep+1:STAmflag:LDAwiperm:BEQdmnwpe:JSRwipeshr:.dmnwpe LDAmtype:BEQnodpmn:JSRdisps2:.nodpmn STAwiperm:LDA&78:STA&7A:LDA&79:STA&7B:PLA:STAypos:PLA:STAxpos:PLA:STAfine:PLA:STA&79:PLA:STA&78
)LDA#0:STAmflag:.nomonsr RTS
.�.monset LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:ADC#&20:STA&71:LDY#0:STY&70:INY:STYmfine:LDY#&FB:LDA(&70),Y:ASL A:ROL A:ROL A:�#3:TAX:LDAmonpd,X:STAxmont
8�INY:LDA(&70),Y:ASL A:ROL A:ROL A:�#3:TAX:LDAmonpd,X:STAymont:INY:LDA(&70),Y:ASL A:ROL A:ROL A:�#3:STAmtype:LDA#&FF:STAmdir:.lasexit RTS
B�.monpro LDAxmont:STAxmoo:LDAymont:STAymoo:LDA#0:STAclearup:LDAmtype:BEQlasexit:CMP#3:BNEnomonstl:LDA#0:STAmfine:STAmonstat:.nomonstl LDAxpos:CMPxmont:BNEmontch:LDAypos:CMPymont:BNEmontch:LDA#1:STAclearup:STApowchange:LDAfnst:BEQmontch
L;LDApower:SEC:SBC#8:STApower:BCSmontche:PLA:PLA:JMPkillu
V�.montche LDAmtype:CMP#3:BNEmontch:PLA:PLA:JMPzap:.montch JSRmovemst:LDAxpos:CMPxmont:BNElasexit:LDAypos:CMPymont:BNElasexit:LDA#1:STAclearup:STApowchange:LDApower:SEC:SBC#8:STApower:BCSlasexit:PLA:PLA:JMPkillu
`�.laser LDA#&81:LDX#&A6:LDY#&FF:JSRosbyte:BCClasexit:LDAlastat:BNElasexit:LDAsound:BEQnolassd:LDA#7:LDX#(switn �256):LDY#(switn �256):JSRosword:.nolassd LDApower:STApowchange:SEC:SBC#4:STApower
jBCSlasokay:.lasdie PLA:PLA
t|.killu JSRgameover:JMPprog:.lasokay LDAxmont:CMPxpos:BNEnotont:LDAymont:CMPypos:BNEnotont:LDA#0:STAmtype:RTS:.notont SEI
~KLDAscroll:CLC:ADC#&27:STAlasad:LDAscroll+1:ADC#&24:JSRscrolw:STAlasad+1
��LDAface:STAlasdir:BEQlefire:LDAlasad:CLC:ADC#&40:STAlasad:LDAlasad+1:ADC#0:JSRscrolw:STAlasad+1:LDA#9:SEC:SBCxpos:LDXxpos:CPX#1:BEQcorrigf:CPX#5:BEQcorrigf:BNEfinfire:.corrigf JMPfinfire
�w.lefire DEClasad+1:LDAxpos:.finfire ASL A:ASL A:ASL A:CMP#&20:BCCshrange:LDA#&1F:.shrange STAlastat:LDA#0:STAlastep
��LDA#1:LDXface:BNElealt:LDA#&FF:.lealt CLC:ADCxpos:STAxf:STAxset:LDAypos:STAyset:STAyf:JSRgetblock+3:CMP#&10:BCCnoobstr:LDA#0:STAlastat:.noobstr CLI:JMPwait
�M.dispyou LDA#8:STAwirep+1:LDAwiper:BEQdynwpe:JSRwipeshr:.dynwpe JMPdisps1
��.deadedch LDAdeaded:BEQnotdeadd:LDAmtype:CMP#3:BEQnodisp:LDA#0:STAmtype:.nodisp LDA&7A:CLC:ADC#&80:STA&70:LDA&7B:ADC#2:STA&71:LDY#31:.deada LDA&380,Y:STA(&7A),Y:LDA&3A0,Y:STA(&70),Y:DEY:BNEdeada
�hLDApower:STApowchange:CLC:ADC#4:BCCoverpowm:LDA#254:.overpowm STApower:LDA#0:STAdeaded:.notdeadd RTS
ħ.irq LDA&80:CMPclock:BEQnohelpc:INCclock:.nohelpc LDAlastat:BEQnolas:LDAmtype:BEQnohitm:LDAxmont:CMPxf:BNEnohitm:LDAymont:CMPyf:BNEnohitm:LDA#1:STAlastat:STAdeaded
�H.nohitm JSRsavevar:DEClastat:LDAlastep:CLC:ADC#8:STAlastep:LDAlasdir
�-BEQlasleft:BNElasright:.nolas JMP(vector)
�.lasright LDYlastep:JSRlaseorp:CPY#&28:BCCridel:TYA:SEC:SBC#&20:JSRlaseory:.ridel LDAlastat:BNEricont:LDAlastep:SEC:SBC#&18:BCSnormn:LDA#0:.normn TAY
�.ristop JSRlaseorp
��CPYlastep:BEQricontb:TYA:CLC:ADC#8:TAY:JMPristop:.ricontb JSRdelyou:.ricont LDAlastep:�#&3F:BNErwall:INCxf:LDAxf:STAxset:LDAyf:STAyset:JSRgetblock+3:CMP#&10:BCCrwall:LDA#1:STAlastat:.rwall JMPloadvar
�.lasleft LDA#0:SEC:SBClastep:JSRlaseory:CPY#&E0:BCSledel:TYA:CLC:ADC#&20:JSRlaseory:.ledel LDAlastat:BNElecont:LDA#0:SEC:SBClastep:STAlastep:CLC:ADC#&18:BCCnorln:LDA#&F8

.norln TAY
�.lestop JSRlaseorp:CPYlastep:BEQlecontb:TYA:SEC:SBC#8:TAY:JMPlestop:.lecontb JSRdelyou:.lecont LDAlastep:�#&3F:BNElwall:DECxf:LDAxf:STAxset:LDAyf:STAyset
DJSRgetblock+3:CMP#&10:BCClwall:LDA#1:STAlastat:.lwall JMPloadvar
(E.laseory TAY:.laseorp LDA(lasad),Y:�#&3F:STA(lasad),Y:.adjust RTS
2~EQUB10:EQUB-10:EQUB10:EQUB-10:EQUB0:EQUB0:EQUB10:.adjusty EQUB-10:EQUB0:EQUB0:EQUB0:EQUB0:EQUB-10:EQUB10:EQUB0:.key1 EQUB0
<�EQUB&9E:EQUB&BD:EQUB&9E:EQUB&BD:EQUB0:EQUB0:EQUB&9E:EQUB&BD:.key2 EQUB0:EQUB0:EQUB0:EQUB&B6:EQUB&B6:EQUB&97:EQUB&B6:EQUB&97:.adlo EQUB&97
>_EQUB8:EQUB8:EQUB8:EQUB&68:EQUB8:EQUB8:.adhi EQUB8:EQUB0:EQUB0:EQUB0:EQUB2:EQUB0:EQUB0:EQUB0
F/]:� P%>&2000 � �''"Code Overflow to:";~P%:�
P�15,3)~P%;
ZP%=&900:O%=&3E00:[OPT pass
dt.savevar LDA&70:STA&88:LDA&71:STA&89:LDA&72:STA&8A:LDA&73:STA&8B:LDAxset:STA&8C:LDAyset:STA&8D:STX&8F:STY&87:RTS
n|.loadvar LDA&88:STA&70:LDA&89:STA&71:LDA&8A:STA&72:LDA&8B:STA&73:LDA&8C:STAxset:LDA&8D:STAyset:LDX&8F:LDY&87:JMP(vector)
xg.xmom LDXxmont:CPXxpos:BEQonyou:BCCritemt:DEX:JSRlrxmsh:BCSonyou:DECxmont:LDA#1:.xmend STAmfine:RTS
��.ritemt INX:JSRlrxmsh:BCSonyou:INCxmont:LDA#2:BNExmend:.onyou LDA#0:BEQxmend:.lrxmsh STXxset:LDAymont:STAyset:JSRgetblock+3:CMP#&10:RTS
�x.cmptxt EQUB3:EQUB22:EQUB13:EQUB7:EQUB15:EQUB1:EQUB17:EQUB18:EQUB11:EQUB1:EQUB17:EQUB23:EQUB22:EQUB13:EQUB16:EQUB&FF
�i.cmptxtb EQUB3:EQUB22:EQUB4:EQUB5:EQUB0:EQUB23:EQUB16:EQUB0:EQUB0:EQUB27:EQUB26:EQUB24:EQUB28:EQUB&FF
�8.movemst LDAmtype:CMP#2:BEQypatrol:CMP#1:BNEmovemqut
��.xpatrol LDAxmont:BEQrevdir:CMP#9:BEQrevdir:ADCmdir:STAxset:LDAymont:STAyset:JSRgetblock+3:CMP#&10:BCSrevdir:INCyset:JSRgetblock+3:CMP#&10:BCCrevdir:LDAxset:STAxmont:.movemqut RTS
�Q.revdir LDAmdir:�#&FE:STAmdir:CLC:ADCxmont:STAxmont:LDAmfine:�#3:STAmfine:RTS
��.ypatrol LDXymont:CPXypos:BEQxadjb:BCCdownmt:DEX:JSRypshr:DECymont:LDA#6:STAmfine:RTS:.ypshr STXyset:LDAxmont:STAxset:JSRgetblock+3:CMP#&10:BCSxadj:RTS
�Q.downmt INX:JSRypshr:INCymont:LDA#5:STAmfine:RTS:.xadj PLA:PLA:.xadjb JMPxmom
�/]:� P%>&4100 � �''"Code Overflow to:";~P%:�
��15,3)~P%;
��
�

00000000  0d 03 e8 1e 50 25 3d 26  31 43 38 30 3a 4f 25 3d  |....P%=&1C80:O%=|
00000010  26 36 34 38 30 3a 5b 4f  50 54 70 61 73 73 0d 03  |&6480:[OPTpass..|
00000020  f2 c1 2e 63 6f 6d 70 6c  65 74 65 20 43 50 59 23  |...complete CPY#|
00000030  26 39 39 3a 42 45 51 63  6f 6e 67 75 3a 4a 53 52  |&99:BEQcongu:JSR|
00000040  73 63 72 65 65 6e 3a 4a  4d 50 73 63 72 64 69 73  |screen:JMPscrdis|
00000050  70 3a 2e 63 6f 6e 67 75  20 4c 44 41 23 28 63 6d  |p:.congu LDA#(cm|
00000060  70 74 78 74 20 83 20 32  35 36 29 3a 53 54 41 26  |ptxt . 256):STA&|
00000070  37 32 3a 4c 44 41 23 28  63 6d 70 74 78 74 20 81  |72:LDA#(cmptxt .|
00000080  20 32 35 36 29 3a 53 54  41 26 37 33 3a 4c 44 41  | 256):STA&73:LDA|
00000090  23 34 3a 53 54 41 63 6f  6c 3a 4c 53 52 41 3a 53  |#4:STAcol:LSRA:S|
000000a0  54 41 78 63 68 3a 4c 44  41 23 31 34 3a 53 54 41  |TAxch:LDA#14:STA|
000000b0  79 63 68 3a 4a 53 52 73  74 72 69 6e 67 3a 49 4e  |ych:JSRstring:IN|
000000c0  43 26 37 32 3a 4c 44 41  23 33 3a 53 54 41 78 63  |C&72:LDA#3:STAxc|
000000d0  68 3a 4c 44 41 23 31 39  3a 53 54 41 79 63 68 0d  |h:LDA#19:STAych.|
000000e0  03 fc 1f 4a 53 52 73 74  72 69 6e 67 3a 2e 74 68  |...JSRstring:.th|
000000f0  65 65 6e 64 20 4a 4d 50  74 68 65 65 6e 64 0d 04  |eend JMPtheend..|
00000100  06 8f 2e 6d 61 69 6e 63  6c 65 61 72 20 4c 44 41  |...mainclear LDA|
00000110  6d 74 79 70 65 3a 42 45  51 6e 6f 63 6c 65 61 72  |mtype:BEQnoclear|
00000120  6d 3a 4c 44 41 78 70 6f  73 3a 43 4d 50 78 6d 6f  |m:LDAxpos:CMPxmo|
00000130  6f 3a 42 4e 45 6d 63 69  3a 4c 44 41 79 70 6f 73  |o:BNEmci:LDAypos|
00000140  3a 43 4d 50 79 6d 6f 6f  3a 42 45 51 6d 63 69 69  |:CMPymoo:BEQmcii|
00000150  3a 2e 6d 63 69 20 4c 44  41 63 6c 65 61 72 75 70  |:.mci LDAclearup|
00000160  3a 42 45 51 6e 6f 63 6c  65 61 72 6d 3a 2e 6d 63  |:BEQnoclearm:.mc|
00000170  69 69 20 4c 44 41 23 31  3a 53 54 41 63 68 61 6e  |ii LDA#1:STAchan|
00000180  67 65 64 3a 4a 53 52 64  65 6c 79 6f 75 0d 04 10  |ged:JSRdelyou...|
00000190  a9 4c 44 41 73 6f 75 6e  64 3a 42 45 51 6e 6f 68  |.LDAsound:BEQnoh|
000001a0  69 73 73 3a 4c 44 41 23  37 3a 4c 44 58 23 28 73  |iss:LDA#7:LDX#(s|
000001b0  70 6c 61 74 20 83 20 32  35 36 29 3a 4c 44 59 23  |plat . 256):LDY#|
000001c0  28 73 70 6c 61 74 20 81  20 32 35 36 29 3a 4a 53  |(splat . 256):JS|
000001d0  52 6f 73 77 6f 72 64 3a  2e 6e 6f 68 69 73 73 20  |Rosword:.nohiss |
000001e0  4c 44 58 78 70 6f 73 3a  4c 44 59 79 70 6f 73 3a  |LDXxpos:LDYypos:|
000001f0  4a 53 52 6d 63 64 3a 4c  44 41 23 30 3a 53 54 41  |JSRmcd:LDA#0:STA|
00000200  77 69 70 65 72 3a 53 54  41 77 69 70 65 72 6d 3a  |wiper:STAwiperm:|
00000210  4c 44 58 78 6d 6f 6e 74  3a 4c 44 59 79 6d 6f 6e  |LDXxmont:LDYymon|
00000220  74 3a 4a 4d 50 6d 63 64  3a 2e 6e 6f 63 6c 65 61  |t:JMPmcd:.noclea|
00000230  72 6d 20 52 54 53 0d 04  1a 95 2e 64 69 73 70 6d  |rm RTS.....dispm|
00000240  6f 6e 20 4c 44 41 26 37  38 3a 50 48 41 3a 4c 44  |on LDA&78:PHA:LD|
00000250  41 26 37 39 3a 50 48 41  3a 4c 44 41 66 69 6e 65  |A&79:PHA:LDAfine|
00000260  3a 50 48 41 3a 4c 44 41  78 70 6f 73 3a 50 48 41  |:PHA:LDAxpos:PHA|
00000270  3a 4c 44 41 79 70 6f 73  3a 50 48 41 3a 4c 44 41  |:LDAypos:PHA:LDA|
00000280  78 6d 6f 6e 74 3a 53 54  41 78 70 6f 73 3a 4c 44  |xmont:STAxpos:LD|
00000290  41 79 6d 6f 6e 74 3a 53  54 41 79 70 6f 73 3a 4c  |Aymont:STAypos:L|
000002a0  44 41 6d 66 69 6e 65 3a  53 54 41 66 69 6e 65 3a  |DAmfine:STAfine:|
000002b0  4c 44 41 26 37 41 3a 53  54 41 26 37 38 3a 4c 44  |LDA&7A:STA&78:LD|
000002c0  41 26 37 42 3a 53 54 41  26 37 39 0d 04 24 c9 4c  |A&7B:STA&79..$.L|
000002d0  44 41 23 33 3a 53 54 41  77 69 72 65 70 2b 31 3a  |DA#3:STAwirep+1:|
000002e0  53 54 41 6d 66 6c 61 67  3a 4c 44 41 77 69 70 65  |STAmflag:LDAwipe|
000002f0  72 6d 3a 42 45 51 64 6d  6e 77 70 65 3a 4a 53 52  |rm:BEQdmnwpe:JSR|
00000300  77 69 70 65 73 68 72 3a  2e 64 6d 6e 77 70 65 20  |wipeshr:.dmnwpe |
00000310  4c 44 41 6d 74 79 70 65  3a 42 45 51 6e 6f 64 70  |LDAmtype:BEQnodp|
00000320  6d 6e 3a 4a 53 52 64 69  73 70 73 32 3a 2e 6e 6f  |mn:JSRdisps2:.no|
00000330  64 70 6d 6e 20 53 54 41  77 69 70 65 72 6d 3a 4c  |dpmn STAwiperm:L|
00000340  44 41 26 37 38 3a 53 54  41 26 37 41 3a 4c 44 41  |DA&78:STA&7A:LDA|
00000350  26 37 39 3a 53 54 41 26  37 42 3a 50 4c 41 3a 53  |&79:STA&7B:PLA:S|
00000360  54 41 79 70 6f 73 3a 50  4c 41 3a 53 54 41 78 70  |TAypos:PLA:STAxp|
00000370  6f 73 3a 50 4c 41 3a 53  54 41 66 69 6e 65 3a 50  |os:PLA:STAfine:P|
00000380  4c 41 3a 53 54 41 26 37  39 3a 50 4c 41 3a 53 54  |LA:STA&79:PLA:ST|
00000390  41 26 37 38 0d 04 29 1f  4c 44 41 23 30 3a 53 54  |A&78..).LDA#0:ST|
000003a0  41 6d 66 6c 61 67 3a 2e  6e 6f 6d 6f 6e 73 72 20  |Amflag:.nomonsr |
000003b0  52 54 53 0d 04 2e a1 2e  6d 6f 6e 73 65 74 20 4c  |RTS.....monset L|
000003c0  44 41 79 73 63 72 3a 41  53 4c 20 41 3a 41 53 4c  |DAyscr:ASL A:ASL|
000003d0  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 43  | A:ASL A:ASL A:C|
000003e0  4c 43 3a 41 44 43 78 73  63 72 3a 41 44 43 23 26  |LC:ADCxscr:ADC#&|
000003f0  32 30 3a 53 54 41 26 37  31 3a 4c 44 59 23 30 3a  |20:STA&71:LDY#0:|
00000400  53 54 59 26 37 30 3a 49  4e 59 3a 53 54 59 6d 66  |STY&70:INY:STYmf|
00000410  69 6e 65 3a 4c 44 59 23  26 46 42 3a 4c 44 41 28  |ine:LDY#&FB:LDA(|
00000420  26 37 30 29 2c 59 3a 41  53 4c 20 41 3a 52 4f 4c  |&70),Y:ASL A:ROL|
00000430  20 41 3a 52 4f 4c 20 41  3a 80 23 33 3a 54 41 58  | A:ROL A:.#3:TAX|
00000440  3a 4c 44 41 6d 6f 6e 70  64 2c 58 3a 53 54 41 78  |:LDAmonpd,X:STAx|
00000450  6d 6f 6e 74 0d 04 38 8b  49 4e 59 3a 4c 44 41 28  |mont..8.INY:LDA(|
00000460  26 37 30 29 2c 59 3a 41  53 4c 20 41 3a 52 4f 4c  |&70),Y:ASL A:ROL|
00000470  20 41 3a 52 4f 4c 20 41  3a 80 23 33 3a 54 41 58  | A:ROL A:.#3:TAX|
00000480  3a 4c 44 41 6d 6f 6e 70  64 2c 58 3a 53 54 41 79  |:LDAmonpd,X:STAy|
00000490  6d 6f 6e 74 3a 49 4e 59  3a 4c 44 41 28 26 37 30  |mont:INY:LDA(&70|
000004a0  29 2c 59 3a 41 53 4c 20  41 3a 52 4f 4c 20 41 3a  |),Y:ASL A:ROL A:|
000004b0  52 4f 4c 20 41 3a 80 23  33 3a 53 54 41 6d 74 79  |ROL A:.#3:STAmty|
000004c0  70 65 3a 4c 44 41 23 26  46 46 3a 53 54 41 6d 64  |pe:LDA#&FF:STAmd|
000004d0  69 72 3a 2e 6c 61 73 65  78 69 74 20 52 54 53 0d  |ir:.lasexit RTS.|
000004e0  04 42 ee 2e 6d 6f 6e 70  72 6f 20 4c 44 41 78 6d  |.B..monpro LDAxm|
000004f0  6f 6e 74 3a 53 54 41 78  6d 6f 6f 3a 4c 44 41 79  |ont:STAxmoo:LDAy|
00000500  6d 6f 6e 74 3a 53 54 41  79 6d 6f 6f 3a 4c 44 41  |mont:STAymoo:LDA|
00000510  23 30 3a 53 54 41 63 6c  65 61 72 75 70 3a 4c 44  |#0:STAclearup:LD|
00000520  41 6d 74 79 70 65 3a 42  45 51 6c 61 73 65 78 69  |Amtype:BEQlasexi|
00000530  74 3a 43 4d 50 23 33 3a  42 4e 45 6e 6f 6d 6f 6e  |t:CMP#3:BNEnomon|
00000540  73 74 6c 3a 4c 44 41 23  30 3a 53 54 41 6d 66 69  |stl:LDA#0:STAmfi|
00000550  6e 65 3a 53 54 41 6d 6f  6e 73 74 61 74 3a 2e 6e  |ne:STAmonstat:.n|
00000560  6f 6d 6f 6e 73 74 6c 20  4c 44 41 78 70 6f 73 3a  |omonstl LDAxpos:|
00000570  43 4d 50 78 6d 6f 6e 74  3a 42 4e 45 6d 6f 6e 74  |CMPxmont:BNEmont|
00000580  63 68 3a 4c 44 41 79 70  6f 73 3a 43 4d 50 79 6d  |ch:LDAypos:CMPym|
00000590  6f 6e 74 3a 42 4e 45 6d  6f 6e 74 63 68 3a 4c 44  |ont:BNEmontch:LD|
000005a0  41 23 31 3a 53 54 41 63  6c 65 61 72 75 70 3a 53  |A#1:STAclearup:S|
000005b0  54 41 70 6f 77 63 68 61  6e 67 65 3a 4c 44 41 66  |TApowchange:LDAf|
000005c0  6e 73 74 3a 42 45 51 6d  6f 6e 74 63 68 0d 04 4c  |nst:BEQmontch..L|
000005d0  3b 4c 44 41 70 6f 77 65  72 3a 53 45 43 3a 53 42  |;LDApower:SEC:SB|
000005e0  43 23 38 3a 53 54 41 70  6f 77 65 72 3a 42 43 53  |C#8:STApower:BCS|
000005f0  6d 6f 6e 74 63 68 65 3a  50 4c 41 3a 50 4c 41 3a  |montche:PLA:PLA:|
00000600  4a 4d 50 6b 69 6c 6c 75  0d 04 56 d5 2e 6d 6f 6e  |JMPkillu..V..mon|
00000610  74 63 68 65 20 4c 44 41  6d 74 79 70 65 3a 43 4d  |tche LDAmtype:CM|
00000620  50 23 33 3a 42 4e 45 6d  6f 6e 74 63 68 3a 50 4c  |P#3:BNEmontch:PL|
00000630  41 3a 50 4c 41 3a 4a 4d  50 7a 61 70 3a 2e 6d 6f  |A:PLA:JMPzap:.mo|
00000640  6e 74 63 68 20 4a 53 52  6d 6f 76 65 6d 73 74 3a  |ntch JSRmovemst:|
00000650  4c 44 41 78 70 6f 73 3a  43 4d 50 78 6d 6f 6e 74  |LDAxpos:CMPxmont|
00000660  3a 42 4e 45 6c 61 73 65  78 69 74 3a 4c 44 41 79  |:BNElasexit:LDAy|
00000670  70 6f 73 3a 43 4d 50 79  6d 6f 6e 74 3a 42 4e 45  |pos:CMPymont:BNE|
00000680  6c 61 73 65 78 69 74 3a  4c 44 41 23 31 3a 53 54  |lasexit:LDA#1:ST|
00000690  41 63 6c 65 61 72 75 70  3a 53 54 41 70 6f 77 63  |Aclearup:STApowc|
000006a0  68 61 6e 67 65 3a 4c 44  41 70 6f 77 65 72 3a 53  |hange:LDApower:S|
000006b0  45 43 3a 53 42 43 23 38  3a 53 54 41 70 6f 77 65  |EC:SBC#8:STApowe|
000006c0  72 3a 42 43 53 6c 61 73  65 78 69 74 3a 50 4c 41  |r:BCSlasexit:PLA|
000006d0  3a 50 4c 41 3a 4a 4d 50  6b 69 6c 6c 75 0d 04 60  |:PLA:JMPkillu..`|
000006e0  c4 2e 6c 61 73 65 72 20  4c 44 41 23 26 38 31 3a  |..laser LDA#&81:|
000006f0  4c 44 58 23 26 41 36 3a  4c 44 59 23 26 46 46 3a  |LDX#&A6:LDY#&FF:|
00000700  4a 53 52 6f 73 62 79 74  65 3a 42 43 43 6c 61 73  |JSRosbyte:BCClas|
00000710  65 78 69 74 3a 4c 44 41  6c 61 73 74 61 74 3a 42  |exit:LDAlastat:B|
00000720  4e 45 6c 61 73 65 78 69  74 3a 4c 44 41 73 6f 75  |NElasexit:LDAsou|
00000730  6e 64 3a 42 45 51 6e 6f  6c 61 73 73 64 3a 4c 44  |nd:BEQnolassd:LD|
00000740  41 23 37 3a 4c 44 58 23  28 73 77 69 74 6e 20 83  |A#7:LDX#(switn .|
00000750  32 35 36 29 3a 4c 44 59  23 28 73 77 69 74 6e 20  |256):LDY#(switn |
00000760  81 32 35 36 29 3a 4a 53  52 6f 73 77 6f 72 64 3a  |.256):JSRosword:|
00000770  2e 6e 6f 6c 61 73 73 64  20 4c 44 41 70 6f 77 65  |.nolassd LDApowe|
00000780  72 3a 53 54 41 70 6f 77  63 68 61 6e 67 65 3a 53  |r:STApowchange:S|
00000790  45 43 3a 53 42 43 23 34  3a 53 54 41 70 6f 77 65  |EC:SBC#4:STApowe|
000007a0  72 0d 04 6a 1e 42 43 53  6c 61 73 6f 6b 61 79 3a  |r..j.BCSlasokay:|
000007b0  2e 6c 61 73 64 69 65 20  50 4c 41 3a 50 4c 41 0d  |.lasdie PLA:PLA.|
000007c0  04 74 7c 2e 6b 69 6c 6c  75 20 4a 53 52 67 61 6d  |.t|.killu JSRgam|
000007d0  65 6f 76 65 72 3a 4a 4d  50 70 72 6f 67 3a 2e 6c  |eover:JMPprog:.l|
000007e0  61 73 6f 6b 61 79 20 4c  44 41 78 6d 6f 6e 74 3a  |asokay LDAxmont:|
000007f0  43 4d 50 78 70 6f 73 3a  42 4e 45 6e 6f 74 6f 6e  |CMPxpos:BNEnoton|
00000800  74 3a 4c 44 41 79 6d 6f  6e 74 3a 43 4d 50 79 70  |t:LDAymont:CMPyp|
00000810  6f 73 3a 42 4e 45 6e 6f  74 6f 6e 74 3a 4c 44 41  |os:BNEnotont:LDA|
00000820  23 30 3a 53 54 41 6d 74  79 70 65 3a 52 54 53 3a  |#0:STAmtype:RTS:|
00000830  2e 6e 6f 74 6f 6e 74 20  53 45 49 0d 04 7e 4b 4c  |.notont SEI..~KL|
00000840  44 41 73 63 72 6f 6c 6c  3a 43 4c 43 3a 41 44 43  |DAscroll:CLC:ADC|
00000850  23 26 32 37 3a 53 54 41  6c 61 73 61 64 3a 4c 44  |#&27:STAlasad:LD|
00000860  41 73 63 72 6f 6c 6c 2b  31 3a 41 44 43 23 26 32  |Ascroll+1:ADC#&2|
00000870  34 3a 4a 53 52 73 63 72  6f 6c 77 3a 53 54 41 6c  |4:JSRscrolw:STAl|
00000880  61 73 61 64 2b 31 0d 04  88 be 4c 44 41 66 61 63  |asad+1....LDAfac|
00000890  65 3a 53 54 41 6c 61 73  64 69 72 3a 42 45 51 6c  |e:STAlasdir:BEQl|
000008a0  65 66 69 72 65 3a 4c 44  41 6c 61 73 61 64 3a 43  |efire:LDAlasad:C|
000008b0  4c 43 3a 41 44 43 23 26  34 30 3a 53 54 41 6c 61  |LC:ADC#&40:STAla|
000008c0  73 61 64 3a 4c 44 41 6c  61 73 61 64 2b 31 3a 41  |sad:LDAlasad+1:A|
000008d0  44 43 23 30 3a 4a 53 52  73 63 72 6f 6c 77 3a 53  |DC#0:JSRscrolw:S|
000008e0  54 41 6c 61 73 61 64 2b  31 3a 4c 44 41 23 39 3a  |TAlasad+1:LDA#9:|
000008f0  53 45 43 3a 53 42 43 78  70 6f 73 3a 4c 44 58 78  |SEC:SBCxpos:LDXx|
00000900  70 6f 73 3a 43 50 58 23  31 3a 42 45 51 63 6f 72  |pos:CPX#1:BEQcor|
00000910  72 69 67 66 3a 43 50 58  23 35 3a 42 45 51 63 6f  |rigf:CPX#5:BEQco|
00000920  72 72 69 67 66 3a 42 4e  45 66 69 6e 66 69 72 65  |rrigf:BNEfinfire|
00000930  3a 2e 63 6f 72 72 69 67  66 20 4a 4d 50 66 69 6e  |:.corrigf JMPfin|
00000940  66 69 72 65 0d 04 92 77  2e 6c 65 66 69 72 65 20  |fire...w.lefire |
00000950  44 45 43 6c 61 73 61 64  2b 31 3a 4c 44 41 78 70  |DEClasad+1:LDAxp|
00000960  6f 73 3a 2e 66 69 6e 66  69 72 65 20 41 53 4c 20  |os:.finfire ASL |
00000970  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 43 4d  |A:ASL A:ASL A:CM|
00000980  50 23 26 32 30 3a 42 43  43 73 68 72 61 6e 67 65  |P#&20:BCCshrange|
00000990  3a 4c 44 41 23 26 31 46  3a 2e 73 68 72 61 6e 67  |:LDA#&1F:.shrang|
000009a0  65 20 53 54 41 6c 61 73  74 61 74 3a 4c 44 41 23  |e STAlastat:LDA#|
000009b0  30 3a 53 54 41 6c 61 73  74 65 70 0d 04 9c 9f 4c  |0:STAlastep....L|
000009c0  44 41 23 31 3a 4c 44 58  66 61 63 65 3a 42 4e 45  |DA#1:LDXface:BNE|
000009d0  6c 65 61 6c 74 3a 4c 44  41 23 26 46 46 3a 2e 6c  |lealt:LDA#&FF:.l|
000009e0  65 61 6c 74 20 43 4c 43  3a 41 44 43 78 70 6f 73  |ealt CLC:ADCxpos|
000009f0  3a 53 54 41 78 66 3a 53  54 41 78 73 65 74 3a 4c  |:STAxf:STAxset:L|
00000a00  44 41 79 70 6f 73 3a 53  54 41 79 73 65 74 3a 53  |DAypos:STAyset:S|
00000a10  54 41 79 66 3a 4a 53 52  67 65 74 62 6c 6f 63 6b  |TAyf:JSRgetblock|
00000a20  2b 33 3a 43 4d 50 23 26  31 30 3a 42 43 43 6e 6f  |+3:CMP#&10:BCCno|
00000a30  6f 62 73 74 72 3a 4c 44  41 23 30 3a 53 54 41 6c  |obstr:LDA#0:STAl|
00000a40  61 73 74 61 74 3a 2e 6e  6f 6f 62 73 74 72 20 43  |astat:.noobstr C|
00000a50  4c 49 3a 4a 4d 50 77 61  69 74 0d 04 a6 4d 2e 64  |LI:JMPwait...M.d|
00000a60  69 73 70 79 6f 75 20 4c  44 41 23 38 3a 53 54 41  |ispyou LDA#8:STA|
00000a70  77 69 72 65 70 2b 31 3a  4c 44 41 77 69 70 65 72  |wirep+1:LDAwiper|
00000a80  3a 42 45 51 64 79 6e 77  70 65 3a 4a 53 52 77 69  |:BEQdynwpe:JSRwi|
00000a90  70 65 73 68 72 3a 2e 64  79 6e 77 70 65 20 4a 4d  |peshr:.dynwpe JM|
00000aa0  50 64 69 73 70 73 31 0d  04 b0 c6 2e 64 65 61 64  |Pdisps1.....dead|
00000ab0  65 64 63 68 20 4c 44 41  64 65 61 64 65 64 3a 42  |edch LDAdeaded:B|
00000ac0  45 51 6e 6f 74 64 65 61  64 64 3a 4c 44 41 6d 74  |EQnotdeadd:LDAmt|
00000ad0  79 70 65 3a 43 4d 50 23  33 3a 42 45 51 6e 6f 64  |ype:CMP#3:BEQnod|
00000ae0  69 73 70 3a 4c 44 41 23  30 3a 53 54 41 6d 74 79  |isp:LDA#0:STAmty|
00000af0  70 65 3a 2e 6e 6f 64 69  73 70 20 4c 44 41 26 37  |pe:.nodisp LDA&7|
00000b00  41 3a 43 4c 43 3a 41 44  43 23 26 38 30 3a 53 54  |A:CLC:ADC#&80:ST|
00000b10  41 26 37 30 3a 4c 44 41  26 37 42 3a 41 44 43 23  |A&70:LDA&7B:ADC#|
00000b20  32 3a 53 54 41 26 37 31  3a 4c 44 59 23 33 31 3a  |2:STA&71:LDY#31:|
00000b30  2e 64 65 61 64 61 20 4c  44 41 26 33 38 30 2c 59  |.deada LDA&380,Y|
00000b40  3a 53 54 41 28 26 37 41  29 2c 59 3a 4c 44 41 26  |:STA(&7A),Y:LDA&|
00000b50  33 41 30 2c 59 3a 53 54  41 28 26 37 30 29 2c 59  |3A0,Y:STA(&70),Y|
00000b60  3a 44 45 59 3a 42 4e 45  64 65 61 64 61 0d 04 ba  |:DEY:BNEdeada...|
00000b70  68 4c 44 41 70 6f 77 65  72 3a 53 54 41 70 6f 77  |hLDApower:STApow|
00000b80  63 68 61 6e 67 65 3a 43  4c 43 3a 41 44 43 23 34  |change:CLC:ADC#4|
00000b90  3a 42 43 43 6f 76 65 72  70 6f 77 6d 3a 4c 44 41  |:BCCoverpowm:LDA|
00000ba0  23 32 35 34 3a 2e 6f 76  65 72 70 6f 77 6d 20 53  |#254:.overpowm S|
00000bb0  54 41 70 6f 77 65 72 3a  4c 44 41 23 30 3a 53 54  |TApower:LDA#0:ST|
00000bc0  41 64 65 61 64 65 64 3a  2e 6e 6f 74 64 65 61 64  |Adeaded:.notdead|
00000bd0  64 20 52 54 53 0d 04 c4  a7 2e 69 72 71 20 4c 44  |d RTS.....irq LD|
00000be0  41 26 38 30 3a 43 4d 50  63 6c 6f 63 6b 3a 42 45  |A&80:CMPclock:BE|
00000bf0  51 6e 6f 68 65 6c 70 63  3a 49 4e 43 63 6c 6f 63  |Qnohelpc:INCcloc|
00000c00  6b 3a 2e 6e 6f 68 65 6c  70 63 20 4c 44 41 6c 61  |k:.nohelpc LDAla|
00000c10  73 74 61 74 3a 42 45 51  6e 6f 6c 61 73 3a 4c 44  |stat:BEQnolas:LD|
00000c20  41 6d 74 79 70 65 3a 42  45 51 6e 6f 68 69 74 6d  |Amtype:BEQnohitm|
00000c30  3a 4c 44 41 78 6d 6f 6e  74 3a 43 4d 50 78 66 3a  |:LDAxmont:CMPxf:|
00000c40  42 4e 45 6e 6f 68 69 74  6d 3a 4c 44 41 79 6d 6f  |BNEnohitm:LDAymo|
00000c50  6e 74 3a 43 4d 50 79 66  3a 42 4e 45 6e 6f 68 69  |nt:CMPyf:BNEnohi|
00000c60  74 6d 3a 4c 44 41 23 31  3a 53 54 41 6c 61 73 74  |tm:LDA#1:STAlast|
00000c70  61 74 3a 53 54 41 64 65  61 64 65 64 0d 04 ce 48  |at:STAdeaded...H|
00000c80  2e 6e 6f 68 69 74 6d 20  4a 53 52 73 61 76 65 76  |.nohitm JSRsavev|
00000c90  61 72 3a 44 45 43 6c 61  73 74 61 74 3a 4c 44 41  |ar:DEClastat:LDA|
00000ca0  6c 61 73 74 65 70 3a 43  4c 43 3a 41 44 43 23 38  |lastep:CLC:ADC#8|
00000cb0  3a 53 54 41 6c 61 73 74  65 70 3a 4c 44 41 6c 61  |:STAlastep:LDAla|
00000cc0  73 64 69 72 0d 04 d8 2d  42 45 51 6c 61 73 6c 65  |sdir...-BEQlasle|
00000cd0  66 74 3a 42 4e 45 6c 61  73 72 69 67 68 74 3a 2e  |ft:BNElasright:.|
00000ce0  6e 6f 6c 61 73 20 4a 4d  50 28 76 65 63 74 6f 72  |nolas JMP(vector|
00000cf0  29 0d 04 e2 99 2e 6c 61  73 72 69 67 68 74 20 4c  |).....lasright L|
00000d00  44 59 6c 61 73 74 65 70  3a 4a 53 52 6c 61 73 65  |DYlastep:JSRlase|
00000d10  6f 72 70 3a 43 50 59 23  26 32 38 3a 42 43 43 72  |orp:CPY#&28:BCCr|
00000d20  69 64 65 6c 3a 54 59 41  3a 53 45 43 3a 53 42 43  |idel:TYA:SEC:SBC|
00000d30  23 26 32 30 3a 4a 53 52  6c 61 73 65 6f 72 79 3a  |#&20:JSRlaseory:|
00000d40  2e 72 69 64 65 6c 20 4c  44 41 6c 61 73 74 61 74  |.ridel LDAlastat|
00000d50  3a 42 4e 45 72 69 63 6f  6e 74 3a 4c 44 41 6c 61  |:BNEricont:LDAla|
00000d60  73 74 65 70 3a 53 45 43  3a 53 42 43 23 26 31 38  |step:SEC:SBC#&18|
00000d70  3a 42 43 53 6e 6f 72 6d  6e 3a 4c 44 41 23 30 3a  |:BCSnormn:LDA#0:|
00000d80  2e 6e 6f 72 6d 6e 20 54  41 59 0d 04 ec 16 2e 72  |.normn TAY.....r|
00000d90  69 73 74 6f 70 20 4a 53  52 6c 61 73 65 6f 72 70  |istop JSRlaseorp|
00000da0  0d 04 f6 cb 43 50 59 6c  61 73 74 65 70 3a 42 45  |....CPYlastep:BE|
00000db0  51 72 69 63 6f 6e 74 62  3a 54 59 41 3a 43 4c 43  |Qricontb:TYA:CLC|
00000dc0  3a 41 44 43 23 38 3a 54  41 59 3a 4a 4d 50 72 69  |:ADC#8:TAY:JMPri|
00000dd0  73 74 6f 70 3a 2e 72 69  63 6f 6e 74 62 20 4a 53  |stop:.ricontb JS|
00000de0  52 64 65 6c 79 6f 75 3a  2e 72 69 63 6f 6e 74 20  |Rdelyou:.ricont |
00000df0  4c 44 41 6c 61 73 74 65  70 3a 80 23 26 33 46 3a  |LDAlastep:.#&3F:|
00000e00  42 4e 45 72 77 61 6c 6c  3a 49 4e 43 78 66 3a 4c  |BNErwall:INCxf:L|
00000e10  44 41 78 66 3a 53 54 41  78 73 65 74 3a 4c 44 41  |DAxf:STAxset:LDA|
00000e20  79 66 3a 53 54 41 79 73  65 74 3a 4a 53 52 67 65  |yf:STAyset:JSRge|
00000e30  74 62 6c 6f 63 6b 2b 33  3a 43 4d 50 23 26 31 30  |tblock+3:CMP#&10|
00000e40  3a 42 43 43 72 77 61 6c  6c 3a 4c 44 41 23 31 3a  |:BCCrwall:LDA#1:|
00000e50  53 54 41 6c 61 73 74 61  74 3a 2e 72 77 61 6c 6c  |STAlastat:.rwall|
00000e60  20 4a 4d 50 6c 6f 61 64  76 61 72 0d 05 00 ad 2e  | JMPloadvar.....|
00000e70  6c 61 73 6c 65 66 74 20  4c 44 41 23 30 3a 53 45  |lasleft LDA#0:SE|
00000e80  43 3a 53 42 43 6c 61 73  74 65 70 3a 4a 53 52 6c  |C:SBClastep:JSRl|
00000e90  61 73 65 6f 72 79 3a 43  50 59 23 26 45 30 3a 42  |aseory:CPY#&E0:B|
00000ea0  43 53 6c 65 64 65 6c 3a  54 59 41 3a 43 4c 43 3a  |CSledel:TYA:CLC:|
00000eb0  41 44 43 23 26 32 30 3a  4a 53 52 6c 61 73 65 6f  |ADC#&20:JSRlaseo|
00000ec0  72 79 3a 2e 6c 65 64 65  6c 20 4c 44 41 6c 61 73  |ry:.ledel LDAlas|
00000ed0  74 61 74 3a 42 4e 45 6c  65 63 6f 6e 74 3a 4c 44  |tat:BNElecont:LD|
00000ee0  41 23 30 3a 53 45 43 3a  53 42 43 6c 61 73 74 65  |A#0:SEC:SBClaste|
00000ef0  70 3a 53 54 41 6c 61 73  74 65 70 3a 43 4c 43 3a  |p:STAlastep:CLC:|
00000f00  41 44 43 23 26 31 38 3a  42 43 43 6e 6f 72 6c 6e  |ADC#&18:BCCnorln|
00000f10  3a 4c 44 41 23 26 46 38  0d 05 0a 0e 2e 6e 6f 72  |:LDA#&F8.....nor|
00000f20  6c 6e 20 54 41 59 0d 05  14 9d 2e 6c 65 73 74 6f  |ln TAY.....lesto|
00000f30  70 20 4a 53 52 6c 61 73  65 6f 72 70 3a 43 50 59  |p JSRlaseorp:CPY|
00000f40  6c 61 73 74 65 70 3a 42  45 51 6c 65 63 6f 6e 74  |lastep:BEQlecont|
00000f50  62 3a 54 59 41 3a 53 45  43 3a 53 42 43 23 38 3a  |b:TYA:SEC:SBC#8:|
00000f60  54 41 59 3a 4a 4d 50 6c  65 73 74 6f 70 3a 2e 6c  |TAY:JMPlestop:.l|
00000f70  65 63 6f 6e 74 62 20 4a  53 52 64 65 6c 79 6f 75  |econtb JSRdelyou|
00000f80  3a 2e 6c 65 63 6f 6e 74  20 4c 44 41 6c 61 73 74  |:.lecont LDAlast|
00000f90  65 70 3a 80 23 26 33 46  3a 42 4e 45 6c 77 61 6c  |ep:.#&3F:BNElwal|
00000fa0  6c 3a 44 45 43 78 66 3a  4c 44 41 78 66 3a 53 54  |l:DECxf:LDAxf:ST|
00000fb0  41 78 73 65 74 3a 4c 44  41 79 66 3a 53 54 41 79  |Axset:LDAyf:STAy|
00000fc0  73 65 74 0d 05 1e 44 4a  53 52 67 65 74 62 6c 6f  |set...DJSRgetblo|
00000fd0  63 6b 2b 33 3a 43 4d 50  23 26 31 30 3a 42 43 43  |ck+3:CMP#&10:BCC|
00000fe0  6c 77 61 6c 6c 3a 4c 44  41 23 31 3a 53 54 41 6c  |lwall:LDA#1:STAl|
00000ff0  61 73 74 61 74 3a 2e 6c  77 61 6c 6c 20 4a 4d 50  |astat:.lwall JMP|
00001000  6c 6f 61 64 76 61 72 0d  05 28 45 2e 6c 61 73 65  |loadvar..(E.lase|
00001010  6f 72 79 20 54 41 59 3a  2e 6c 61 73 65 6f 72 70  |ory TAY:.laseorp|
00001020  20 4c 44 41 28 6c 61 73  61 64 29 2c 59 3a 82 23  | LDA(lasad),Y:.#|
00001030  26 33 46 3a 53 54 41 28  6c 61 73 61 64 29 2c 59  |&3F:STA(lasad),Y|
00001040  3a 2e 61 64 6a 75 73 74  20 52 54 53 0d 05 32 7e  |:.adjust RTS..2~|
00001050  45 51 55 42 31 30 3a 45  51 55 42 2d 31 30 3a 45  |EQUB10:EQUB-10:E|
00001060  51 55 42 31 30 3a 45 51  55 42 2d 31 30 3a 45 51  |QUB10:EQUB-10:EQ|
00001070  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 31 30  |UB0:EQUB0:EQUB10|
00001080  3a 2e 61 64 6a 75 73 74  79 20 45 51 55 42 2d 31  |:.adjusty EQUB-1|
00001090  30 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |0:EQUB0:EQUB0:EQ|
000010a0  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 2d 31  |UB0:EQUB0:EQUB-1|
000010b0  30 3a 45 51 55 42 31 30  3a 45 51 55 42 30 3a 2e  |0:EQUB10:EQUB0:.|
000010c0  6b 65 79 31 20 45 51 55  42 30 0d 05 3c 8d 45 51  |key1 EQUB0..<.EQ|
000010d0  55 42 26 39 45 3a 45 51  55 42 26 42 44 3a 45 51  |UB&9E:EQUB&BD:EQ|
*
000010f0  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 26 39  |UB0:EQUB0:EQUB&9|
00001100  45 3a 45 51 55 42 26 42  44 3a 2e 6b 65 79 32 20  |E:EQUB&BD:.key2 |
00001110  45 51 55 42 30 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB0:EQUB0:EQUB|
00001120  30 3a 45 51 55 42 26 42  36 3a 45 51 55 42 26 42  |0:EQUB&B6:EQUB&B|
00001130  36 3a 45 51 55 42 26 39  37 3a 45 51 55 42 26 42  |6:EQUB&97:EQUB&B|
00001140  36 3a 45 51 55 42 26 39  37 3a 2e 61 64 6c 6f 20  |6:EQUB&97:.adlo |
00001150  45 51 55 42 26 39 37 0d  05 3e 5f 45 51 55 42 38  |EQUB&97..>_EQUB8|
00001160  3a 45 51 55 42 38 3a 45  51 55 42 38 3a 45 51 55  |:EQUB8:EQUB8:EQU|
00001170  42 26 36 38 3a 45 51 55  42 38 3a 45 51 55 42 38  |B&68:EQUB8:EQUB8|
00001180  3a 2e 61 64 68 69 20 45  51 55 42 38 3a 45 51 55  |:.adhi EQUB8:EQU|
00001190  42 30 3a 45 51 55 42 30  3a 45 51 55 42 30 3a 45  |B0:EQUB0:EQUB0:E|
000011a0  51 55 42 32 3a 45 51 55  42 30 3a 45 51 55 42 30  |QUB2:EQUB0:EQUB0|
000011b0  3a 45 51 55 42 30 0d 05  46 2f 5d 3a e7 20 50 25  |:EQUB0..F/]:. P%|
000011c0  3e 26 32 30 30 30 20 8c  20 f1 27 27 22 43 6f 64  |>&2000 . .''"Cod|
000011d0  65 20 4f 76 65 72 66 6c  6f 77 20 74 6f 3a 22 3b  |e Overflow to:";|
000011e0  7e 50 25 3a e0 0d 05 50  0f f1 8a 31 35 2c 33 29  |~P%:...P...15,3)|
000011f0  7e 50 25 3b 0d 05 5a 1e  50 25 3d 26 39 30 30 3a  |~P%;..Z.P%=&900:|
00001200  4f 25 3d 26 33 45 30 30  3a 5b 4f 50 54 20 70 61  |O%=&3E00:[OPT pa|
00001210  73 73 0d 05 64 74 2e 73  61 76 65 76 61 72 20 4c  |ss..dt.savevar L|
00001220  44 41 26 37 30 3a 53 54  41 26 38 38 3a 4c 44 41  |DA&70:STA&88:LDA|
00001230  26 37 31 3a 53 54 41 26  38 39 3a 4c 44 41 26 37  |&71:STA&89:LDA&7|
00001240  32 3a 53 54 41 26 38 41  3a 4c 44 41 26 37 33 3a  |2:STA&8A:LDA&73:|
00001250  53 54 41 26 38 42 3a 4c  44 41 78 73 65 74 3a 53  |STA&8B:LDAxset:S|
00001260  54 41 26 38 43 3a 4c 44  41 79 73 65 74 3a 53 54  |TA&8C:LDAyset:ST|
00001270  41 26 38 44 3a 53 54 58  26 38 46 3a 53 54 59 26  |A&8D:STX&8F:STY&|
00001280  38 37 3a 52 54 53 0d 05  6e 7c 2e 6c 6f 61 64 76  |87:RTS..n|.loadv|
00001290  61 72 20 4c 44 41 26 38  38 3a 53 54 41 26 37 30  |ar LDA&88:STA&70|
000012a0  3a 4c 44 41 26 38 39 3a  53 54 41 26 37 31 3a 4c  |:LDA&89:STA&71:L|
000012b0  44 41 26 38 41 3a 53 54  41 26 37 32 3a 4c 44 41  |DA&8A:STA&72:LDA|
000012c0  26 38 42 3a 53 54 41 26  37 33 3a 4c 44 41 26 38  |&8B:STA&73:LDA&8|
000012d0  43 3a 53 54 41 78 73 65  74 3a 4c 44 41 26 38 44  |C:STAxset:LDA&8D|
000012e0  3a 53 54 41 79 73 65 74  3a 4c 44 58 26 38 46 3a  |:STAyset:LDX&8F:|
000012f0  4c 44 59 26 38 37 3a 4a  4d 50 28 76 65 63 74 6f  |LDY&87:JMP(vecto|
00001300  72 29 0d 05 78 67 2e 78  6d 6f 6d 20 4c 44 58 78  |r)..xg.xmom LDXx|
00001310  6d 6f 6e 74 3a 43 50 58  78 70 6f 73 3a 42 45 51  |mont:CPXxpos:BEQ|
00001320  6f 6e 79 6f 75 3a 42 43  43 72 69 74 65 6d 74 3a  |onyou:BCCritemt:|
00001330  44 45 58 3a 4a 53 52 6c  72 78 6d 73 68 3a 42 43  |DEX:JSRlrxmsh:BC|
00001340  53 6f 6e 79 6f 75 3a 44  45 43 78 6d 6f 6e 74 3a  |Sonyou:DECxmont:|
00001350  4c 44 41 23 31 3a 2e 78  6d 65 6e 64 20 53 54 41  |LDA#1:.xmend STA|
00001360  6d 66 69 6e 65 3a 52 54  53 0d 05 82 8b 2e 72 69  |mfine:RTS.....ri|
00001370  74 65 6d 74 20 49 4e 58  3a 4a 53 52 6c 72 78 6d  |temt INX:JSRlrxm|
00001380  73 68 3a 42 43 53 6f 6e  79 6f 75 3a 49 4e 43 78  |sh:BCSonyou:INCx|
00001390  6d 6f 6e 74 3a 4c 44 41  23 32 3a 42 4e 45 78 6d  |mont:LDA#2:BNExm|
000013a0  65 6e 64 3a 2e 6f 6e 79  6f 75 20 4c 44 41 23 30  |end:.onyou LDA#0|
000013b0  3a 42 45 51 78 6d 65 6e  64 3a 2e 6c 72 78 6d 73  |:BEQxmend:.lrxms|
000013c0  68 20 53 54 58 78 73 65  74 3a 4c 44 41 79 6d 6f  |h STXxset:LDAymo|
000013d0  6e 74 3a 53 54 41 79 73  65 74 3a 4a 53 52 67 65  |nt:STAyset:JSRge|
000013e0  74 62 6c 6f 63 6b 2b 33  3a 43 4d 50 23 26 31 30  |tblock+3:CMP#&10|
000013f0  3a 52 54 53 0d 05 8c 78  2e 63 6d 70 74 78 74 20  |:RTS...x.cmptxt |
00001400  45 51 55 42 33 3a 45 51  55 42 32 32 3a 45 51 55  |EQUB3:EQUB22:EQU|
00001410  42 31 33 3a 45 51 55 42  37 3a 45 51 55 42 31 35  |B13:EQUB7:EQUB15|
00001420  3a 45 51 55 42 31 3a 45  51 55 42 31 37 3a 45 51  |:EQUB1:EQUB17:EQ|
00001430  55 42 31 38 3a 45 51 55  42 31 31 3a 45 51 55 42  |UB18:EQUB11:EQUB|
00001440  31 3a 45 51 55 42 31 37  3a 45 51 55 42 32 33 3a  |1:EQUB17:EQUB23:|
00001450  45 51 55 42 32 32 3a 45  51 55 42 31 33 3a 45 51  |EQUB22:EQUB13:EQ|
00001460  55 42 31 36 3a 45 51 55  42 26 46 46 0d 05 91 69  |UB16:EQUB&FF...i|
00001470  2e 63 6d 70 74 78 74 62  20 45 51 55 42 33 3a 45  |.cmptxtb EQUB3:E|
00001480  51 55 42 32 32 3a 45 51  55 42 34 3a 45 51 55 42  |QUB22:EQUB4:EQUB|
00001490  35 3a 45 51 55 42 30 3a  45 51 55 42 32 33 3a 45  |5:EQUB0:EQUB23:E|
000014a0  51 55 42 31 36 3a 45 51  55 42 30 3a 45 51 55 42  |QUB16:EQUB0:EQUB|
000014b0  30 3a 45 51 55 42 32 37  3a 45 51 55 42 32 36 3a  |0:EQUB27:EQUB26:|
000014c0  45 51 55 42 32 34 3a 45  51 55 42 32 38 3a 45 51  |EQUB24:EQUB28:EQ|
000014d0  55 42 26 46 46 0d 05 96  38 2e 6d 6f 76 65 6d 73  |UB&FF...8.movems|
000014e0  74 20 4c 44 41 6d 74 79  70 65 3a 43 4d 50 23 32  |t LDAmtype:CMP#2|
000014f0  3a 42 45 51 79 70 61 74  72 6f 6c 3a 43 4d 50 23  |:BEQypatrol:CMP#|
00001500  31 3a 42 4e 45 6d 6f 76  65 6d 71 75 74 0d 05 a0  |1:BNEmovemqut...|
00001510  b7 2e 78 70 61 74 72 6f  6c 20 4c 44 41 78 6d 6f  |..xpatrol LDAxmo|
00001520  6e 74 3a 42 45 51 72 65  76 64 69 72 3a 43 4d 50  |nt:BEQrevdir:CMP|
00001530  23 39 3a 42 45 51 72 65  76 64 69 72 3a 41 44 43  |#9:BEQrevdir:ADC|
00001540  6d 64 69 72 3a 53 54 41  78 73 65 74 3a 4c 44 41  |mdir:STAxset:LDA|
00001550  79 6d 6f 6e 74 3a 53 54  41 79 73 65 74 3a 4a 53  |ymont:STAyset:JS|
00001560  52 67 65 74 62 6c 6f 63  6b 2b 33 3a 43 4d 50 23  |Rgetblock+3:CMP#|
00001570  26 31 30 3a 42 43 53 72  65 76 64 69 72 3a 49 4e  |&10:BCSrevdir:IN|
00001580  43 79 73 65 74 3a 4a 53  52 67 65 74 62 6c 6f 63  |Cyset:JSRgetbloc|
00001590  6b 2b 33 3a 43 4d 50 23  26 31 30 3a 42 43 43 72  |k+3:CMP#&10:BCCr|
000015a0  65 76 64 69 72 3a 4c 44  41 78 73 65 74 3a 53 54  |evdir:LDAxset:ST|
000015b0  41 78 6d 6f 6e 74 3a 2e  6d 6f 76 65 6d 71 75 74  |Axmont:.movemqut|
000015c0  20 52 54 53 0d 05 aa 51  2e 72 65 76 64 69 72 20  | RTS...Q.revdir |
000015d0  4c 44 41 6d 64 69 72 3a  82 23 26 46 45 3a 53 54  |LDAmdir:.#&FE:ST|
000015e0  41 6d 64 69 72 3a 43 4c  43 3a 41 44 43 78 6d 6f  |Amdir:CLC:ADCxmo|
000015f0  6e 74 3a 53 54 41 78 6d  6f 6e 74 3a 4c 44 41 6d  |nt:STAxmont:LDAm|
00001600  66 69 6e 65 3a 82 23 33  3a 53 54 41 6d 66 69 6e  |fine:.#3:STAmfin|
00001610  65 3a 52 54 53 0d 05 b4  9b 2e 79 70 61 74 72 6f  |e:RTS.....ypatro|
00001620  6c 20 4c 44 58 79 6d 6f  6e 74 3a 43 50 58 79 70  |l LDXymont:CPXyp|
00001630  6f 73 3a 42 45 51 78 61  64 6a 62 3a 42 43 43 64  |os:BEQxadjb:BCCd|
00001640  6f 77 6e 6d 74 3a 44 45  58 3a 4a 53 52 79 70 73  |ownmt:DEX:JSRyps|
00001650  68 72 3a 44 45 43 79 6d  6f 6e 74 3a 4c 44 41 23  |hr:DECymont:LDA#|
00001660  36 3a 53 54 41 6d 66 69  6e 65 3a 52 54 53 3a 2e  |6:STAmfine:RTS:.|
00001670  79 70 73 68 72 20 53 54  58 79 73 65 74 3a 4c 44  |ypshr STXyset:LD|
00001680  41 78 6d 6f 6e 74 3a 53  54 41 78 73 65 74 3a 4a  |Axmont:STAxset:J|
00001690  53 52 67 65 74 62 6c 6f  63 6b 2b 33 3a 43 4d 50  |SRgetblock+3:CMP|
000016a0  23 26 31 30 3a 42 43 53  78 61 64 6a 3a 52 54 53  |#&10:BCSxadj:RTS|
000016b0  0d 05 be 51 2e 64 6f 77  6e 6d 74 20 49 4e 58 3a  |...Q.downmt INX:|
000016c0  4a 53 52 79 70 73 68 72  3a 49 4e 43 79 6d 6f 6e  |JSRypshr:INCymon|
000016d0  74 3a 4c 44 41 23 35 3a  53 54 41 6d 66 69 6e 65  |t:LDA#5:STAmfine|
000016e0  3a 52 54 53 3a 2e 78 61  64 6a 20 50 4c 41 3a 50  |:RTS:.xadj PLA:P|
000016f0  4c 41 3a 2e 78 61 64 6a  62 20 4a 4d 50 78 6d 6f  |LA:.xadjb JMPxmo|
00001700  6d 0d 05 d2 2f 5d 3a e7  20 50 25 3e 26 34 31 30  |m.../]:. P%>&410|
00001710  30 20 8c 20 f1 27 27 22  43 6f 64 65 20 4f 76 65  |0 . .''"Code Ove|
00001720  72 66 6c 6f 77 20 74 6f  3a 22 3b 7e 50 25 3a e0  |rflow to:";~P%:.|
00001730  0d 05 dc 0f f1 8a 31 35  2c 33 29 7e 50 25 3b 0d  |......15,3)~P%;.|
00001740  05 e6 05 e1 0d ff                                 |......|
00001746