�P%=&1C80:O%=&6480:[OPTpass
�Q.checkos CMP#16:BCSofftopz:LDAxset:CMP#10:BCSofftopz:RTS:.offtopz PLA:PLA:RTS
�.complete CPY#&19: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 LDAwiper:PHA: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:JSRdispshr:LDAwiper:.nodpmn STAwiperm:LDA&78:STA&7A:LDA&79:STA&7B:PLA:STAypos:PLA:STAxpos:PLA:STAfine:PLA:STA&79:PLA:STA&78:PLA:STAwiper
)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: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: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: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
�N.dispyou LDA#8:STAwirep+1:LDAwiper:BEQdynwpe:JSRwipeshr:.dynwpe JMPdispshr
�K.deadedch LDAdeaded:BEQnotdeadd:LDAmtype:CMP#3:BEQnodisp:LDA#0:STAmtype
�c.nodisp LDApower: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
(�.laseorp TYA:.laseory TAX:CLC:ADClasad:STA&70:LDAlasad+1:ADC#0:JSRscrolw:LDY#0:LDA(&70),Y:�#&3F:STA(&70),Y:TXA:TAY:.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  ed 51 2e 63 68 65 63 6b  6f 73 20 43 4d 50 23 31  |.Q.checkos CMP#1|
00000030  36 3a 42 43 53 6f 66 66  74 6f 70 7a 3a 4c 44 41  |6:BCSofftopz:LDA|
00000040  78 73 65 74 3a 43 4d 50  23 31 30 3a 42 43 53 6f  |xset:CMP#10:BCSo|
00000050  66 66 74 6f 70 7a 3a 52  54 53 3a 2e 6f 66 66 74  |fftopz:RTS:.offt|
00000060  6f 70 7a 20 50 4c 41 3a  50 4c 41 3a 52 54 53 0d  |opz PLA:PLA:RTS.|
00000070  03 f2 c1 2e 63 6f 6d 70  6c 65 74 65 20 43 50 59  |....complete CPY|
00000080  23 26 31 39 3a 42 45 51  63 6f 6e 67 75 3a 4a 53  |#&19:BEQcongu:JS|
00000090  52 73 63 72 65 65 6e 3a  4a 4d 50 73 63 72 64 69  |Rscreen:JMPscrdi|
000000a0  73 70 3a 2e 63 6f 6e 67  75 20 4c 44 41 23 28 63  |sp:.congu LDA#(c|
000000b0  6d 70 74 78 74 20 83 20  32 35 36 29 3a 53 54 41  |mptxt . 256):STA|
000000c0  26 37 32 3a 4c 44 41 23  28 63 6d 70 74 78 74 20  |&72:LDA#(cmptxt |
000000d0  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4c 44  |. 256):STA&73:LD|
000000e0  41 23 34 3a 53 54 41 63  6f 6c 3a 4c 53 52 41 3a  |A#4:STAcol:LSRA:|
000000f0  53 54 41 78 63 68 3a 4c  44 41 23 31 34 3a 53 54  |STAxch:LDA#14:ST|
00000100  41 79 63 68 3a 4a 53 52  73 74 72 69 6e 67 3a 49  |Aych:JSRstring:I|
00000110  4e 43 26 37 32 3a 4c 44  41 23 33 3a 53 54 41 78  |NC&72:LDA#3:STAx|
00000120  63 68 3a 4c 44 41 23 31  39 3a 53 54 41 79 63 68  |ch:LDA#19:STAych|
00000130  0d 03 fc 1f 4a 53 52 73  74 72 69 6e 67 3a 2e 74  |....JSRstring:.t|
00000140  68 65 65 6e 64 20 4a 4d  50 74 68 65 65 6e 64 0d  |heend JMPtheend.|
00000150  04 06 8f 2e 6d 61 69 6e  63 6c 65 61 72 20 4c 44  |....mainclear LD|
00000160  41 6d 74 79 70 65 3a 42  45 51 6e 6f 63 6c 65 61  |Amtype:BEQnoclea|
00000170  72 6d 3a 4c 44 41 78 70  6f 73 3a 43 4d 50 78 6d  |rm:LDAxpos:CMPxm|
00000180  6f 6f 3a 42 4e 45 6d 63  69 3a 4c 44 41 79 70 6f  |oo:BNEmci:LDAypo|
00000190  73 3a 43 4d 50 79 6d 6f  6f 3a 42 45 51 6d 63 69  |s:CMPymoo:BEQmci|
000001a0  69 3a 2e 6d 63 69 20 4c  44 41 63 6c 65 61 72 75  |i:.mci LDAclearu|
000001b0  70 3a 42 45 51 6e 6f 63  6c 65 61 72 6d 3a 2e 6d  |p:BEQnoclearm:.m|
000001c0  63 69 69 20 4c 44 41 23  31 3a 53 54 41 63 68 61  |cii LDA#1:STAcha|
000001d0  6e 67 65 64 3a 4a 53 52  64 65 6c 79 6f 75 0d 04  |nged:JSRdelyou..|
000001e0  10 a9 4c 44 41 73 6f 75  6e 64 3a 42 45 51 6e 6f  |..LDAsound:BEQno|
000001f0  68 69 73 73 3a 4c 44 41  23 37 3a 4c 44 58 23 28  |hiss:LDA#7:LDX#(|
00000200  73 70 6c 61 74 20 83 20  32 35 36 29 3a 4c 44 59  |splat . 256):LDY|
00000210  23 28 73 70 6c 61 74 20  81 20 32 35 36 29 3a 4a  |#(splat . 256):J|
00000220  53 52 6f 73 77 6f 72 64  3a 2e 6e 6f 68 69 73 73  |SRosword:.nohiss|
00000230  20 4c 44 58 78 70 6f 73  3a 4c 44 59 79 70 6f 73  | LDXxpos:LDYypos|
00000240  3a 4a 53 52 6d 63 64 3a  4c 44 41 23 30 3a 53 54  |:JSRmcd:LDA#0:ST|
00000250  41 77 69 70 65 72 3a 53  54 41 77 69 70 65 72 6d  |Awiper:STAwiperm|
00000260  3a 4c 44 58 78 6d 6f 6e  74 3a 4c 44 59 79 6d 6f  |:LDXxmont:LDYymo|
00000270  6e 74 3a 4a 4d 50 6d 63  64 3a 2e 6e 6f 63 6c 65  |nt:JMPmcd:.nocle|
00000280  61 72 6d 20 52 54 53 0d  04 1a a2 2e 64 69 73 70  |arm RTS.....disp|
00000290  6d 6f 6e 20 4c 44 41 77  69 70 65 72 3a 50 48 41  |mon LDAwiper:PHA|
000002a0  3a 4c 44 41 26 37 38 3a  50 48 41 3a 4c 44 41 26  |:LDA&78:PHA:LDA&|
000002b0  37 39 3a 50 48 41 3a 4c  44 41 66 69 6e 65 3a 50  |79:PHA:LDAfine:P|
000002c0  48 41 3a 4c 44 41 78 70  6f 73 3a 50 48 41 3a 4c  |HA:LDAxpos:PHA:L|
000002d0  44 41 79 70 6f 73 3a 50  48 41 3a 4c 44 41 78 6d  |DAypos:PHA:LDAxm|
000002e0  6f 6e 74 3a 53 54 41 78  70 6f 73 3a 4c 44 41 79  |ont:STAxpos:LDAy|
000002f0  6d 6f 6e 74 3a 53 54 41  79 70 6f 73 3a 4c 44 41  |mont:STAypos:LDA|
00000300  6d 66 69 6e 65 3a 53 54  41 66 69 6e 65 3a 4c 44  |mfine:STAfine:LD|
00000310  41 26 37 41 3a 53 54 41  26 37 38 3a 4c 44 41 26  |A&7A:STA&78:LDA&|
00000320  37 42 3a 53 54 41 26 37  39 0d 04 24 e0 4c 44 41  |7B:STA&79..$.LDA|
00000330  23 33 3a 53 54 41 77 69  72 65 70 2b 31 3a 53 54  |#3:STAwirep+1:ST|
00000340  41 6d 66 6c 61 67 3a 4c  44 41 77 69 70 65 72 6d  |Amflag:LDAwiperm|
00000350  3a 42 45 51 64 6d 6e 77  70 65 3a 4a 53 52 77 69  |:BEQdmnwpe:JSRwi|
00000360  70 65 73 68 72 3a 2e 64  6d 6e 77 70 65 20 4c 44  |peshr:.dmnwpe LD|
00000370  41 6d 74 79 70 65 3a 42  45 51 6e 6f 64 70 6d 6e  |Amtype:BEQnodpmn|
00000380  3a 4a 53 52 64 69 73 70  73 68 72 3a 4c 44 41 77  |:JSRdispshr:LDAw|
00000390  69 70 65 72 3a 2e 6e 6f  64 70 6d 6e 20 53 54 41  |iper:.nodpmn STA|
000003a0  77 69 70 65 72 6d 3a 4c  44 41 26 37 38 3a 53 54  |wiperm:LDA&78:ST|
000003b0  41 26 37 41 3a 4c 44 41  26 37 39 3a 53 54 41 26  |A&7A:LDA&79:STA&|
000003c0  37 42 3a 50 4c 41 3a 53  54 41 79 70 6f 73 3a 50  |7B:PLA:STAypos:P|
000003d0  4c 41 3a 53 54 41 78 70  6f 73 3a 50 4c 41 3a 53  |LA:STAxpos:PLA:S|
000003e0  54 41 66 69 6e 65 3a 50  4c 41 3a 53 54 41 26 37  |TAfine:PLA:STA&7|
000003f0  39 3a 50 4c 41 3a 53 54  41 26 37 38 3a 50 4c 41  |9:PLA:STA&78:PLA|
00000400  3a 53 54 41 77 69 70 65  72 0d 04 29 1f 4c 44 41  |:STAwiper..).LDA|
00000410  23 30 3a 53 54 41 6d 66  6c 61 67 3a 2e 6e 6f 6d  |#0:STAmflag:.nom|
00000420  6f 6e 73 72 20 52 54 53  0d 04 2e a1 2e 6d 6f 6e  |onsr RTS.....mon|
00000430  73 65 74 20 4c 44 41 79  73 63 72 3a 41 53 4c 20  |set LDAyscr:ASL |
00000440  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00000450  4c 20 41 3a 43 4c 43 3a  41 44 43 78 73 63 72 3a  |L A:CLC:ADCxscr:|
00000460  41 44 43 23 26 32 30 3a  53 54 41 26 37 31 3a 4c  |ADC#&20:STA&71:L|
00000470  44 59 23 30 3a 53 54 59  26 37 30 3a 49 4e 59 3a  |DY#0:STY&70:INY:|
00000480  53 54 59 6d 66 69 6e 65  3a 4c 44 59 23 26 46 42  |STYmfine:LDY#&FB|
00000490  3a 4c 44 41 28 26 37 30  29 2c 59 3a 41 53 4c 20  |:LDA(&70),Y:ASL |
000004a0  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 80 23  |A:ROL A:ROL A:.#|
000004b0  33 3a 54 41 58 3a 4c 44  41 6d 6f 6e 70 64 2c 58  |3:TAX:LDAmonpd,X|
000004c0  3a 53 54 41 78 6d 6f 6e  74 0d 04 38 8b 49 4e 59  |:STAxmont..8.INY|
000004d0  3a 4c 44 41 28 26 37 30  29 2c 59 3a 41 53 4c 20  |:LDA(&70),Y:ASL |
000004e0  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 80 23  |A:ROL A:ROL A:.#|
000004f0  33 3a 54 41 58 3a 4c 44  41 6d 6f 6e 70 64 2c 58  |3:TAX:LDAmonpd,X|
00000500  3a 53 54 41 79 6d 6f 6e  74 3a 49 4e 59 3a 4c 44  |:STAymont:INY:LD|
00000510  41 28 26 37 30 29 2c 59  3a 41 53 4c 20 41 3a 52  |A(&70),Y:ASL A:R|
00000520  4f 4c 20 41 3a 52 4f 4c  20 41 3a 80 23 33 3a 53  |OL A:ROL A:.#3:S|
00000530  54 41 6d 74 79 70 65 3a  4c 44 41 23 26 46 46 3a  |TAmtype:LDA#&FF:|
00000540  53 54 41 6d 64 69 72 3a  2e 6c 61 73 65 78 69 74  |STAmdir:.lasexit|
00000550  20 52 54 53 0d 04 42 e1  2e 6d 6f 6e 70 72 6f 20  | RTS..B..monpro |
00000560  4c 44 41 78 6d 6f 6e 74  3a 53 54 41 78 6d 6f 6f  |LDAxmont:STAxmoo|
00000570  3a 4c 44 41 79 6d 6f 6e  74 3a 53 54 41 79 6d 6f  |:LDAymont:STAymo|
00000580  6f 3a 4c 44 41 23 30 3a  53 54 41 63 6c 65 61 72  |o:LDA#0:STAclear|
00000590  75 70 3a 4c 44 41 6d 74  79 70 65 3a 42 45 51 6c  |up:LDAmtype:BEQl|
000005a0  61 73 65 78 69 74 3a 43  4d 50 23 33 3a 42 4e 45  |asexit:CMP#3:BNE|
000005b0  6e 6f 6d 6f 6e 73 74 6c  3a 4c 44 41 23 30 3a 53  |nomonstl:LDA#0:S|
000005c0  54 41 6d 66 69 6e 65 3a  53 54 41 6d 6f 6e 73 74  |TAmfine:STAmonst|
000005d0  61 74 3a 2e 6e 6f 6d 6f  6e 73 74 6c 20 4c 44 41  |at:.nomonstl LDA|
000005e0  78 70 6f 73 3a 43 4d 50  78 6d 6f 6e 74 3a 42 4e  |xpos:CMPxmont:BN|
000005f0  45 6d 6f 6e 74 63 68 3a  4c 44 41 79 70 6f 73 3a  |Emontch:LDAypos:|
00000600  43 4d 50 79 6d 6f 6e 74  3a 42 4e 45 6d 6f 6e 74  |CMPymont:BNEmont|
00000610  63 68 3a 4c 44 41 23 31  3a 53 54 41 63 6c 65 61  |ch:LDA#1:STAclea|
00000620  72 75 70 3a 4c 44 41 66  6e 73 74 3a 42 45 51 6d  |rup:LDAfnst:BEQm|
00000630  6f 6e 74 63 68 0d 04 4c  3b 4c 44 41 70 6f 77 65  |ontch..L;LDApowe|
00000640  72 3a 53 45 43 3a 53 42  43 23 38 3a 53 54 41 70  |r:SEC:SBC#8:STAp|
00000650  6f 77 65 72 3a 42 43 53  6d 6f 6e 74 63 68 65 3a  |ower:BCSmontche:|
00000660  50 4c 41 3a 50 4c 41 3a  4a 4d 50 6b 69 6c 6c 75  |PLA:PLA:JMPkillu|
00000670  0d 04 56 c8 2e 6d 6f 6e  74 63 68 65 20 4c 44 41  |..V..montche LDA|
00000680  6d 74 79 70 65 3a 43 4d  50 23 33 3a 42 4e 45 6d  |mtype:CMP#3:BNEm|
00000690  6f 6e 74 63 68 3a 50 4c  41 3a 50 4c 41 3a 4a 4d  |ontch:PLA:PLA:JM|
000006a0  50 7a 61 70 3a 2e 6d 6f  6e 74 63 68 20 4a 53 52  |Pzap:.montch JSR|
000006b0  6d 6f 76 65 6d 73 74 3a  4c 44 41 78 70 6f 73 3a  |movemst:LDAxpos:|
000006c0  43 4d 50 78 6d 6f 6e 74  3a 42 4e 45 6c 61 73 65  |CMPxmont:BNElase|
000006d0  78 69 74 3a 4c 44 41 79  70 6f 73 3a 43 4d 50 79  |xit:LDAypos:CMPy|
000006e0  6d 6f 6e 74 3a 42 4e 45  6c 61 73 65 78 69 74 3a  |mont:BNElasexit:|
000006f0  4c 44 41 23 31 3a 53 54  41 63 6c 65 61 72 75 70  |LDA#1:STAclearup|
00000700  3a 4c 44 41 70 6f 77 65  72 3a 53 45 43 3a 53 42  |:LDApower:SEC:SB|
00000710  43 23 38 3a 53 54 41 70  6f 77 65 72 3a 42 43 53  |C#8:STApower:BCS|
00000720  6c 61 73 65 78 69 74 3a  50 4c 41 3a 50 4c 41 3a  |lasexit:PLA:PLA:|
00000730  4a 4d 50 6b 69 6c 6c 75  0d 04 60 b7 2e 6c 61 73  |JMPkillu..`..las|
00000740  65 72 20 4c 44 41 23 26  38 31 3a 4c 44 58 23 26  |er LDA#&81:LDX#&|
00000750  41 36 3a 4c 44 59 23 26  46 46 3a 4a 53 52 6f 73  |A6:LDY#&FF:JSRos|
00000760  62 79 74 65 3a 42 43 43  6c 61 73 65 78 69 74 3a  |byte:BCClasexit:|
00000770  4c 44 41 6c 61 73 74 61  74 3a 42 4e 45 6c 61 73  |LDAlastat:BNElas|
00000780  65 78 69 74 3a 4c 44 41  73 6f 75 6e 64 3a 42 45  |exit:LDAsound:BE|
00000790  51 6e 6f 6c 61 73 73 64  3a 4c 44 41 23 37 3a 4c  |Qnolassd:LDA#7:L|
000007a0  44 58 23 28 73 77 69 74  6e 20 83 32 35 36 29 3a  |DX#(switn .256):|
000007b0  4c 44 59 23 28 73 77 69  74 6e 20 81 32 35 36 29  |LDY#(switn .256)|
000007c0  3a 4a 53 52 6f 73 77 6f  72 64 3a 2e 6e 6f 6c 61  |:JSRosword:.nola|
000007d0  73 73 64 20 4c 44 41 70  6f 77 65 72 3a 53 45 43  |ssd LDApower:SEC|
000007e0  3a 53 42 43 23 34 3a 53  54 41 70 6f 77 65 72 0d  |:SBC#4:STApower.|
000007f0  04 6a 1e 42 43 53 6c 61  73 6f 6b 61 79 3a 2e 6c  |.j.BCSlasokay:.l|
00000800  61 73 64 69 65 20 50 4c  41 3a 50 4c 41 0d 04 74  |asdie PLA:PLA..t|
00000810  7c 2e 6b 69 6c 6c 75 20  4a 53 52 67 61 6d 65 6f  ||.killu JSRgameo|
00000820  76 65 72 3a 4a 4d 50 70  72 6f 67 3a 2e 6c 61 73  |ver:JMPprog:.las|
00000830  6f 6b 61 79 20 4c 44 41  78 6d 6f 6e 74 3a 43 4d  |okay LDAxmont:CM|
00000840  50 78 70 6f 73 3a 42 4e  45 6e 6f 74 6f 6e 74 3a  |Pxpos:BNEnotont:|
00000850  4c 44 41 79 6d 6f 6e 74  3a 43 4d 50 79 70 6f 73  |LDAymont:CMPypos|
00000860  3a 42 4e 45 6e 6f 74 6f  6e 74 3a 4c 44 41 23 30  |:BNEnotont:LDA#0|
00000870  3a 53 54 41 6d 74 79 70  65 3a 52 54 53 3a 2e 6e  |:STAmtype:RTS:.n|
00000880  6f 74 6f 6e 74 20 53 45  49 0d 04 7e 4b 4c 44 41  |otont SEI..~KLDA|
00000890  73 63 72 6f 6c 6c 3a 43  4c 43 3a 41 44 43 23 26  |scroll:CLC:ADC#&|
000008a0  32 37 3a 53 54 41 6c 61  73 61 64 3a 4c 44 41 73  |27:STAlasad:LDAs|
000008b0  63 72 6f 6c 6c 2b 31 3a  41 44 43 23 26 32 34 3a  |croll+1:ADC#&24:|
000008c0  4a 53 52 73 63 72 6f 6c  77 3a 53 54 41 6c 61 73  |JSRscrolw:STAlas|
000008d0  61 64 2b 31 0d 04 88 be  4c 44 41 66 61 63 65 3a  |ad+1....LDAface:|
000008e0  53 54 41 6c 61 73 64 69  72 3a 42 45 51 6c 65 66  |STAlasdir:BEQlef|
000008f0  69 72 65 3a 4c 44 41 6c  61 73 61 64 3a 43 4c 43  |ire:LDAlasad:CLC|
00000900  3a 41 44 43 23 26 34 30  3a 53 54 41 6c 61 73 61  |:ADC#&40:STAlasa|
00000910  64 3a 4c 44 41 6c 61 73  61 64 2b 31 3a 41 44 43  |d:LDAlasad+1:ADC|
00000920  23 30 3a 4a 53 52 73 63  72 6f 6c 77 3a 53 54 41  |#0:JSRscrolw:STA|
00000930  6c 61 73 61 64 2b 31 3a  4c 44 41 23 39 3a 53 45  |lasad+1:LDA#9:SE|
00000940  43 3a 53 42 43 78 70 6f  73 3a 4c 44 58 78 70 6f  |C:SBCxpos:LDXxpo|
00000950  73 3a 43 50 58 23 31 3a  42 45 51 63 6f 72 72 69  |s:CPX#1:BEQcorri|
00000960  67 66 3a 43 50 58 23 35  3a 42 45 51 63 6f 72 72  |gf:CPX#5:BEQcorr|
00000970  69 67 66 3a 42 4e 45 66  69 6e 66 69 72 65 3a 2e  |igf:BNEfinfire:.|
00000980  63 6f 72 72 69 67 66 20  4a 4d 50 66 69 6e 66 69  |corrigf JMPfinfi|
00000990  72 65 0d 04 92 77 2e 6c  65 66 69 72 65 20 44 45  |re...w.lefire DE|
000009a0  43 6c 61 73 61 64 2b 31  3a 4c 44 41 78 70 6f 73  |Clasad+1:LDAxpos|
000009b0  3a 2e 66 69 6e 66 69 72  65 20 41 53 4c 20 41 3a  |:.finfire ASL A:|
000009c0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 43 4d 50 23  |ASL A:ASL A:CMP#|
000009d0  26 32 30 3a 42 43 43 73  68 72 61 6e 67 65 3a 4c  |&20:BCCshrange:L|
000009e0  44 41 23 26 31 46 3a 2e  73 68 72 61 6e 67 65 20  |DA#&1F:.shrange |
000009f0  53 54 41 6c 61 73 74 61  74 3a 4c 44 41 23 30 3a  |STAlastat:LDA#0:|
00000a00  53 54 41 6c 61 73 74 65  70 0d 04 9c 9f 4c 44 41  |STAlastep....LDA|
00000a10  23 31 3a 4c 44 58 66 61  63 65 3a 42 4e 45 6c 65  |#1:LDXface:BNEle|
00000a20  61 6c 74 3a 4c 44 41 23  26 46 46 3a 2e 6c 65 61  |alt:LDA#&FF:.lea|
00000a30  6c 74 20 43 4c 43 3a 41  44 43 78 70 6f 73 3a 53  |lt CLC:ADCxpos:S|
00000a40  54 41 78 66 3a 53 54 41  78 73 65 74 3a 4c 44 41  |TAxf:STAxset:LDA|
00000a50  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 53 54 41  |ypos:STAyset:STA|
00000a60  79 66 3a 4a 53 52 67 65  74 62 6c 6f 63 6b 2b 33  |yf:JSRgetblock+3|
00000a70  3a 43 4d 50 23 26 31 30  3a 42 43 43 6e 6f 6f 62  |:CMP#&10:BCCnoob|
00000a80  73 74 72 3a 4c 44 41 23  30 3a 53 54 41 6c 61 73  |str:LDA#0:STAlas|
00000a90  74 61 74 3a 2e 6e 6f 6f  62 73 74 72 20 43 4c 49  |tat:.noobstr CLI|
00000aa0  3a 4a 4d 50 77 61 69 74  0d 04 a6 4e 2e 64 69 73  |:JMPwait...N.dis|
00000ab0  70 79 6f 75 20 4c 44 41  23 38 3a 53 54 41 77 69  |pyou LDA#8:STAwi|
00000ac0  72 65 70 2b 31 3a 4c 44  41 77 69 70 65 72 3a 42  |rep+1:LDAwiper:B|
00000ad0  45 51 64 79 6e 77 70 65  3a 4a 53 52 77 69 70 65  |EQdynwpe:JSRwipe|
00000ae0  73 68 72 3a 2e 64 79 6e  77 70 65 20 4a 4d 50 64  |shr:.dynwpe JMPd|
00000af0  69 73 70 73 68 72 0d 04  b0 4b 2e 64 65 61 64 65  |ispshr...K.deade|
00000b00  64 63 68 20 4c 44 41 64  65 61 64 65 64 3a 42 45  |dch LDAdeaded:BE|
00000b10  51 6e 6f 74 64 65 61 64  64 3a 4c 44 41 6d 74 79  |Qnotdeadd:LDAmty|
00000b20  70 65 3a 43 4d 50 23 33  3a 42 45 51 6e 6f 64 69  |pe:CMP#3:BEQnodi|
00000b30  73 70 3a 4c 44 41 23 30  3a 53 54 41 6d 74 79 70  |sp:LDA#0:STAmtyp|
00000b40  65 0d 04 ba 63 2e 6e 6f  64 69 73 70 20 4c 44 41  |e...c.nodisp LDA|
00000b50  70 6f 77 65 72 3a 43 4c  43 3a 41 44 43 23 34 3a  |power:CLC:ADC#4:|
00000b60  42 43 43 6f 76 65 72 70  6f 77 6d 3a 4c 44 41 23  |BCCoverpowm:LDA#|
00000b70  32 35 34 3a 2e 6f 76 65  72 70 6f 77 6d 20 53 54  |254:.overpowm ST|
00000b80  41 70 6f 77 65 72 3a 4c  44 41 23 30 3a 53 54 41  |Apower:LDA#0:STA|
00000b90  64 65 61 64 65 64 3a 2e  6e 6f 74 64 65 61 64 64  |deaded:.notdeadd|
00000ba0  20 52 54 53 0d 04 c4 a7  2e 69 72 71 20 4c 44 41  | RTS.....irq LDA|
00000bb0  26 38 30 3a 43 4d 50 63  6c 6f 63 6b 3a 42 45 51  |&80:CMPclock:BEQ|
00000bc0  6e 6f 68 65 6c 70 63 3a  49 4e 43 63 6c 6f 63 6b  |nohelpc:INCclock|
00000bd0  3a 2e 6e 6f 68 65 6c 70  63 20 4c 44 41 6c 61 73  |:.nohelpc LDAlas|
00000be0  74 61 74 3a 42 45 51 6e  6f 6c 61 73 3a 4c 44 41  |tat:BEQnolas:LDA|
00000bf0  6d 74 79 70 65 3a 42 45  51 6e 6f 68 69 74 6d 3a  |mtype:BEQnohitm:|
00000c00  4c 44 41 78 6d 6f 6e 74  3a 43 4d 50 78 66 3a 42  |LDAxmont:CMPxf:B|
00000c10  4e 45 6e 6f 68 69 74 6d  3a 4c 44 41 79 6d 6f 6e  |NEnohitm:LDAymon|
00000c20  74 3a 43 4d 50 79 66 3a  42 4e 45 6e 6f 68 69 74  |t:CMPyf:BNEnohit|
00000c30  6d 3a 4c 44 41 23 31 3a  53 54 41 6c 61 73 74 61  |m:LDA#1:STAlasta|
00000c40  74 3a 53 54 41 64 65 61  64 65 64 0d 04 ce 48 2e  |t:STAdeaded...H.|
00000c50  6e 6f 68 69 74 6d 20 4a  53 52 73 61 76 65 76 61  |nohitm JSRsaveva|
00000c60  72 3a 44 45 43 6c 61 73  74 61 74 3a 4c 44 41 6c  |r:DEClastat:LDAl|
00000c70  61 73 74 65 70 3a 43 4c  43 3a 41 44 43 23 38 3a  |astep:CLC:ADC#8:|
00000c80  53 54 41 6c 61 73 74 65  70 3a 4c 44 41 6c 61 73  |STAlastep:LDAlas|
00000c90  64 69 72 0d 04 d8 2d 42  45 51 6c 61 73 6c 65 66  |dir...-BEQlaslef|
00000ca0  74 3a 42 4e 45 6c 61 73  72 69 67 68 74 3a 2e 6e  |t:BNElasright:.n|
00000cb0  6f 6c 61 73 20 4a 4d 50  28 76 65 63 74 6f 72 29  |olas JMP(vector)|
00000cc0  0d 04 e2 99 2e 6c 61 73  72 69 67 68 74 20 4c 44  |.....lasright LD|
00000cd0  59 6c 61 73 74 65 70 3a  4a 53 52 6c 61 73 65 6f  |Ylastep:JSRlaseo|
00000ce0  72 70 3a 43 50 59 23 26  32 38 3a 42 43 43 72 69  |rp:CPY#&28:BCCri|
00000cf0  64 65 6c 3a 54 59 41 3a  53 45 43 3a 53 42 43 23  |del:TYA:SEC:SBC#|
00000d00  26 32 30 3a 4a 53 52 6c  61 73 65 6f 72 79 3a 2e  |&20:JSRlaseory:.|
00000d10  72 69 64 65 6c 20 4c 44  41 6c 61 73 74 61 74 3a  |ridel LDAlastat:|
00000d20  42 4e 45 72 69 63 6f 6e  74 3a 4c 44 41 6c 61 73  |BNEricont:LDAlas|
00000d30  74 65 70 3a 53 45 43 3a  53 42 43 23 26 31 38 3a  |tep:SEC:SBC#&18:|
00000d40  42 43 53 6e 6f 72 6d 6e  3a 4c 44 41 23 30 3a 2e  |BCSnormn:LDA#0:.|
00000d50  6e 6f 72 6d 6e 20 54 41  59 0d 04 ec 16 2e 72 69  |normn TAY.....ri|
00000d60  73 74 6f 70 20 4a 53 52  6c 61 73 65 6f 72 70 0d  |stop JSRlaseorp.|
00000d70  04 f6 cb 43 50 59 6c 61  73 74 65 70 3a 42 45 51  |...CPYlastep:BEQ|
00000d80  72 69 63 6f 6e 74 62 3a  54 59 41 3a 43 4c 43 3a  |ricontb:TYA:CLC:|
00000d90  41 44 43 23 38 3a 54 41  59 3a 4a 4d 50 72 69 73  |ADC#8:TAY:JMPris|
00000da0  74 6f 70 3a 2e 72 69 63  6f 6e 74 62 20 4a 53 52  |top:.ricontb JSR|
00000db0  64 65 6c 79 6f 75 3a 2e  72 69 63 6f 6e 74 20 4c  |delyou:.ricont L|
00000dc0  44 41 6c 61 73 74 65 70  3a 80 23 26 33 46 3a 42  |DAlastep:.#&3F:B|
00000dd0  4e 45 72 77 61 6c 6c 3a  49 4e 43 78 66 3a 4c 44  |NErwall:INCxf:LD|
00000de0  41 78 66 3a 53 54 41 78  73 65 74 3a 4c 44 41 79  |Axf:STAxset:LDAy|
00000df0  66 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |f:STAyset:JSRget|
00000e00  62 6c 6f 63 6b 2b 33 3a  43 4d 50 23 26 31 30 3a  |block+3:CMP#&10:|
00000e10  42 43 43 72 77 61 6c 6c  3a 4c 44 41 23 31 3a 53  |BCCrwall:LDA#1:S|
00000e20  54 41 6c 61 73 74 61 74  3a 2e 72 77 61 6c 6c 20  |TAlastat:.rwall |
00000e30  4a 4d 50 6c 6f 61 64 76  61 72 0d 05 00 ad 2e 6c  |JMPloadvar.....l|
00000e40  61 73 6c 65 66 74 20 4c  44 41 23 30 3a 53 45 43  |asleft LDA#0:SEC|
00000e50  3a 53 42 43 6c 61 73 74  65 70 3a 4a 53 52 6c 61  |:SBClastep:JSRla|
00000e60  73 65 6f 72 79 3a 43 50  59 23 26 45 30 3a 42 43  |seory:CPY#&E0:BC|
00000e70  53 6c 65 64 65 6c 3a 54  59 41 3a 43 4c 43 3a 41  |Sledel:TYA:CLC:A|
00000e80  44 43 23 26 32 30 3a 4a  53 52 6c 61 73 65 6f 72  |DC#&20:JSRlaseor|
00000e90  79 3a 2e 6c 65 64 65 6c  20 4c 44 41 6c 61 73 74  |y:.ledel LDAlast|
00000ea0  61 74 3a 42 4e 45 6c 65  63 6f 6e 74 3a 4c 44 41  |at:BNElecont:LDA|
00000eb0  23 30 3a 53 45 43 3a 53  42 43 6c 61 73 74 65 70  |#0:SEC:SBClastep|
00000ec0  3a 53 54 41 6c 61 73 74  65 70 3a 43 4c 43 3a 41  |:STAlastep:CLC:A|
00000ed0  44 43 23 26 31 38 3a 42  43 43 6e 6f 72 6c 6e 3a  |DC#&18:BCCnorln:|
00000ee0  4c 44 41 23 26 46 38 0d  05 0a 0e 2e 6e 6f 72 6c  |LDA#&F8.....norl|
00000ef0  6e 20 54 41 59 0d 05 14  9d 2e 6c 65 73 74 6f 70  |n TAY.....lestop|
00000f00  20 4a 53 52 6c 61 73 65  6f 72 70 3a 43 50 59 6c  | JSRlaseorp:CPYl|
00000f10  61 73 74 65 70 3a 42 45  51 6c 65 63 6f 6e 74 62  |astep:BEQlecontb|
00000f20  3a 54 59 41 3a 53 45 43  3a 53 42 43 23 38 3a 54  |:TYA:SEC:SBC#8:T|
00000f30  41 59 3a 4a 4d 50 6c 65  73 74 6f 70 3a 2e 6c 65  |AY:JMPlestop:.le|
00000f40  63 6f 6e 74 62 20 4a 53  52 64 65 6c 79 6f 75 3a  |contb JSRdelyou:|
00000f50  2e 6c 65 63 6f 6e 74 20  4c 44 41 6c 61 73 74 65  |.lecont LDAlaste|
00000f60  70 3a 80 23 26 33 46 3a  42 4e 45 6c 77 61 6c 6c  |p:.#&3F:BNElwall|
00000f70  3a 44 45 43 78 66 3a 4c  44 41 78 66 3a 53 54 41  |:DECxf:LDAxf:STA|
00000f80  78 73 65 74 3a 4c 44 41  79 66 3a 53 54 41 79 73  |xset:LDAyf:STAys|
00000f90  65 74 0d 05 1e 44 4a 53  52 67 65 74 62 6c 6f 63  |et...DJSRgetbloc|
00000fa0  6b 2b 33 3a 43 4d 50 23  26 31 30 3a 42 43 43 6c  |k+3:CMP#&10:BCCl|
00000fb0  77 61 6c 6c 3a 4c 44 41  23 31 3a 53 54 41 6c 61  |wall:LDA#1:STAla|
00000fc0  73 74 61 74 3a 2e 6c 77  61 6c 6c 20 4a 4d 50 6c  |stat:.lwall JMPl|
00000fd0  6f 61 64 76 61 72 0d 05  28 82 2e 6c 61 73 65 6f  |oadvar..(..laseo|
00000fe0  72 70 20 54 59 41 3a 2e  6c 61 73 65 6f 72 79 20  |rp TYA:.laseory |
00000ff0  54 41 58 3a 43 4c 43 3a  41 44 43 6c 61 73 61 64  |TAX:CLC:ADClasad|
00001000  3a 53 54 41 26 37 30 3a  4c 44 41 6c 61 73 61 64  |:STA&70:LDAlasad|
00001010  2b 31 3a 41 44 43 23 30  3a 4a 53 52 73 63 72 6f  |+1:ADC#0:JSRscro|
00001020  6c 77 3a 4c 44 59 23 30  3a 4c 44 41 28 26 37 30  |lw:LDY#0:LDA(&70|
00001030  29 2c 59 3a 82 23 26 33  46 3a 53 54 41 28 26 37  |),Y:.#&3F:STA(&7|
00001040  30 29 2c 59 3a 54 58 41  3a 54 41 59 3a 2e 61 64  |0),Y:TXA:TAY:.ad|
00001050  6a 75 73 74 20 52 54 53  0d 05 32 7e 45 51 55 42  |just RTS..2~EQUB|
00001060  31 30 3a 45 51 55 42 2d  31 30 3a 45 51 55 42 31  |10:EQUB-10:EQUB1|
00001070  30 3a 45 51 55 42 2d 31  30 3a 45 51 55 42 30 3a  |0:EQUB-10:EQUB0:|
00001080  45 51 55 42 30 3a 45 51  55 42 31 30 3a 2e 61 64  |EQUB0:EQUB10:.ad|
00001090  6a 75 73 74 79 20 45 51  55 42 2d 31 30 3a 45 51  |justy EQUB-10:EQ|
000010a0  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 30 3a  |UB0:EQUB0:EQUB0:|
000010b0  45 51 55 42 30 3a 45 51  55 42 2d 31 30 3a 45 51  |EQUB0:EQUB-10:EQ|
000010c0  55 42 31 30 3a 45 51 55  42 30 3a 2e 6b 65 79 31  |UB10:EQUB0:.key1|
000010d0  20 45 51 55 42 30 0d 05  3c 8d 45 51 55 42 26 39  | EQUB0..<.EQUB&9|
000010e0  45 3a 45 51 55 42 26 42  44 3a 45 51 55 42 26 39  |E:EQUB&BD:EQUB&9|
000010f0  45 3a 45 51 55 42 26 42  44 3a 45 51 55 42 30 3a  |E:EQUB&BD:EQUB0:|
00001100  45 51 55 42 30 3a 45 51  55 42 26 39 45 3a 45 51  |EQUB0:EQUB&9E:EQ|
00001110  55 42 26 42 44 3a 2e 6b  65 79 32 20 45 51 55 42  |UB&BD:.key2 EQUB|
00001120  30 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |0:EQUB0:EQUB0:EQ|
00001130  55 42 26 42 36 3a 45 51  55 42 26 42 36 3a 45 51  |UB&B6:EQUB&B6:EQ|
00001140  55 42 26 39 37 3a 45 51  55 42 26 42 36 3a 45 51  |UB&97:EQUB&B6:EQ|
00001150  55 42 26 39 37 3a 2e 61  64 6c 6f 20 45 51 55 42  |UB&97:.adlo EQUB|
00001160  26 39 37 0d 05 3e 5f 45  51 55 42 38 3a 45 51 55  |&97..>_EQUB8:EQU|
00001170  42 38 3a 45 51 55 42 38  3a 45 51 55 42 26 36 38  |B8:EQUB8:EQUB&68|
00001180  3a 45 51 55 42 38 3a 45  51 55 42 38 3a 2e 61 64  |:EQUB8:EQUB8:.ad|
00001190  68 69 20 45 51 55 42 38  3a 45 51 55 42 30 3a 45  |hi EQUB8:EQUB0:E|
000011a0  51 55 42 30 3a 45 51 55  42 30 3a 45 51 55 42 32  |QUB0:EQUB0:EQUB2|
000011b0  3a 45 51 55 42 30 3a 45  51 55 42 30 3a 45 51 55  |:EQUB0:EQUB0:EQU|
000011c0  42 30 0d 05 46 2f 5d 3a  e7 20 50 25 3e 26 32 30  |B0..F/]:. P%>&20|
000011d0  30 30 20 8c 20 f1 27 27  22 43 6f 64 65 20 4f 76  |00 . .''"Code Ov|
000011e0  65 72 66 6c 6f 77 20 74  6f 3a 22 3b 7e 50 25 3a  |erflow to:";~P%:|
000011f0  e0 0d 05 50 0f f1 8a 31  35 2c 33 29 7e 50 25 3b  |...P...15,3)~P%;|
00001200  0d 05 5a 1e 50 25 3d 26  39 30 30 3a 4f 25 3d 26  |..Z.P%=&900:O%=&|
00001210  33 45 30 30 3a 5b 4f 50  54 20 70 61 73 73 0d 05  |3E00:[OPT pass..|
00001220  64 74 2e 73 61 76 65 76  61 72 20 4c 44 41 26 37  |dt.savevar LDA&7|
00001230  30 3a 53 54 41 26 38 38  3a 4c 44 41 26 37 31 3a  |0:STA&88:LDA&71:|
00001240  53 54 41 26 38 39 3a 4c  44 41 26 37 32 3a 53 54  |STA&89:LDA&72:ST|
00001250  41 26 38 41 3a 4c 44 41  26 37 33 3a 53 54 41 26  |A&8A:LDA&73:STA&|
00001260  38 42 3a 4c 44 41 78 73  65 74 3a 53 54 41 26 38  |8B:LDAxset:STA&8|
00001270  43 3a 4c 44 41 79 73 65  74 3a 53 54 41 26 38 44  |C:LDAyset:STA&8D|
00001280  3a 53 54 58 26 38 46 3a  53 54 59 26 38 37 3a 52  |:STX&8F:STY&87:R|
00001290  54 53 0d 05 6e 7c 2e 6c  6f 61 64 76 61 72 20 4c  |TS..n|.loadvar L|
000012a0  44 41 26 38 38 3a 53 54  41 26 37 30 3a 4c 44 41  |DA&88:STA&70:LDA|
000012b0  26 38 39 3a 53 54 41 26  37 31 3a 4c 44 41 26 38  |&89:STA&71:LDA&8|
000012c0  41 3a 53 54 41 26 37 32  3a 4c 44 41 26 38 42 3a  |A:STA&72:LDA&8B:|
000012d0  53 54 41 26 37 33 3a 4c  44 41 26 38 43 3a 53 54  |STA&73:LDA&8C:ST|
000012e0  41 78 73 65 74 3a 4c 44  41 26 38 44 3a 53 54 41  |Axset:LDA&8D:STA|
000012f0  79 73 65 74 3a 4c 44 58  26 38 46 3a 4c 44 59 26  |yset:LDX&8F:LDY&|
00001300  38 37 3a 4a 4d 50 28 76  65 63 74 6f 72 29 0d 05  |87:JMP(vector)..|
00001310  78 67 2e 78 6d 6f 6d 20  4c 44 58 78 6d 6f 6e 74  |xg.xmom LDXxmont|
00001320  3a 43 50 58 78 70 6f 73  3a 42 45 51 6f 6e 79 6f  |:CPXxpos:BEQonyo|
00001330  75 3a 42 43 43 72 69 74  65 6d 74 3a 44 45 58 3a  |u:BCCritemt:DEX:|
00001340  4a 53 52 6c 72 78 6d 73  68 3a 42 43 53 6f 6e 79  |JSRlrxmsh:BCSony|
00001350  6f 75 3a 44 45 43 78 6d  6f 6e 74 3a 4c 44 41 23  |ou:DECxmont:LDA#|
00001360  31 3a 2e 78 6d 65 6e 64  20 53 54 41 6d 66 69 6e  |1:.xmend STAmfin|
00001370  65 3a 52 54 53 0d 05 82  8b 2e 72 69 74 65 6d 74  |e:RTS.....ritemt|
00001380  20 49 4e 58 3a 4a 53 52  6c 72 78 6d 73 68 3a 42  | INX:JSRlrxmsh:B|
00001390  43 53 6f 6e 79 6f 75 3a  49 4e 43 78 6d 6f 6e 74  |CSonyou:INCxmont|
000013a0  3a 4c 44 41 23 32 3a 42  4e 45 78 6d 65 6e 64 3a  |:LDA#2:BNExmend:|
000013b0  2e 6f 6e 79 6f 75 20 4c  44 41 23 30 3a 42 45 51  |.onyou LDA#0:BEQ|
000013c0  78 6d 65 6e 64 3a 2e 6c  72 78 6d 73 68 20 53 54  |xmend:.lrxmsh ST|
000013d0  58 78 73 65 74 3a 4c 44  41 79 6d 6f 6e 74 3a 53  |Xxset:LDAymont:S|
000013e0  54 41 79 73 65 74 3a 4a  53 52 67 65 74 62 6c 6f  |TAyset:JSRgetblo|
000013f0  63 6b 2b 33 3a 43 4d 50  23 26 31 30 3a 52 54 53  |ck+3:CMP#&10:RTS|
00001400  0d 05 8c 78 2e 63 6d 70  74 78 74 20 45 51 55 42  |...x.cmptxt EQUB|
00001410  33 3a 45 51 55 42 32 32  3a 45 51 55 42 31 33 3a  |3:EQUB22:EQUB13:|
00001420  45 51 55 42 37 3a 45 51  55 42 31 35 3a 45 51 55  |EQUB7:EQUB15:EQU|
00001430  42 31 3a 45 51 55 42 31  37 3a 45 51 55 42 31 38  |B1:EQUB17:EQUB18|
00001440  3a 45 51 55 42 31 31 3a  45 51 55 42 31 3a 45 51  |:EQUB11:EQUB1:EQ|
00001450  55 42 31 37 3a 45 51 55  42 32 33 3a 45 51 55 42  |UB17:EQUB23:EQUB|
00001460  32 32 3a 45 51 55 42 31  33 3a 45 51 55 42 31 36  |22:EQUB13:EQUB16|
00001470  3a 45 51 55 42 26 46 46  0d 05 91 69 2e 63 6d 70  |:EQUB&FF...i.cmp|
00001480  74 78 74 62 20 45 51 55  42 33 3a 45 51 55 42 32  |txtb EQUB3:EQUB2|
00001490  32 3a 45 51 55 42 34 3a  45 51 55 42 35 3a 45 51  |2:EQUB4:EQUB5:EQ|
000014a0  55 42 30 3a 45 51 55 42  32 33 3a 45 51 55 42 31  |UB0:EQUB23:EQUB1|
000014b0  36 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |6:EQUB0:EQUB0:EQ|
000014c0  55 42 32 37 3a 45 51 55  42 32 36 3a 45 51 55 42  |UB27:EQUB26:EQUB|
000014d0  32 34 3a 45 51 55 42 32  38 3a 45 51 55 42 26 46  |24:EQUB28:EQUB&F|
000014e0  46 0d 05 96 38 2e 6d 6f  76 65 6d 73 74 20 4c 44  |F...8.movemst LD|
000014f0  41 6d 74 79 70 65 3a 43  4d 50 23 32 3a 42 45 51  |Amtype:CMP#2:BEQ|
00001500  79 70 61 74 72 6f 6c 3a  43 4d 50 23 31 3a 42 4e  |ypatrol:CMP#1:BN|
00001510  45 6d 6f 76 65 6d 71 75  74 0d 05 a0 b7 2e 78 70  |Emovemqut.....xp|
00001520  61 74 72 6f 6c 20 4c 44  41 78 6d 6f 6e 74 3a 42  |atrol LDAxmont:B|
00001530  45 51 72 65 76 64 69 72  3a 43 4d 50 23 39 3a 42  |EQrevdir:CMP#9:B|
00001540  45 51 72 65 76 64 69 72  3a 41 44 43 6d 64 69 72  |EQrevdir:ADCmdir|
00001550  3a 53 54 41 78 73 65 74  3a 4c 44 41 79 6d 6f 6e  |:STAxset:LDAymon|
00001560  74 3a 53 54 41 79 73 65  74 3a 4a 53 52 67 65 74  |t:STAyset:JSRget|
00001570  62 6c 6f 63 6b 2b 33 3a  43 4d 50 23 26 31 30 3a  |block+3:CMP#&10:|
00001580  42 43 53 72 65 76 64 69  72 3a 49 4e 43 79 73 65  |BCSrevdir:INCyse|
00001590  74 3a 4a 53 52 67 65 74  62 6c 6f 63 6b 2b 33 3a  |t:JSRgetblock+3:|
000015a0  43 4d 50 23 26 31 30 3a  42 43 43 72 65 76 64 69  |CMP#&10:BCCrevdi|
000015b0  72 3a 4c 44 41 78 73 65  74 3a 53 54 41 78 6d 6f  |r:LDAxset:STAxmo|
000015c0  6e 74 3a 2e 6d 6f 76 65  6d 71 75 74 20 52 54 53  |nt:.movemqut RTS|
000015d0  0d 05 aa 51 2e 72 65 76  64 69 72 20 4c 44 41 6d  |...Q.revdir LDAm|
000015e0  64 69 72 3a 82 23 26 46  45 3a 53 54 41 6d 64 69  |dir:.#&FE:STAmdi|
000015f0  72 3a 43 4c 43 3a 41 44  43 78 6d 6f 6e 74 3a 53  |r:CLC:ADCxmont:S|
00001600  54 41 78 6d 6f 6e 74 3a  4c 44 41 6d 66 69 6e 65  |TAxmont:LDAmfine|
00001610  3a 82 23 33 3a 53 54 41  6d 66 69 6e 65 3a 52 54  |:.#3:STAmfine:RT|
00001620  53 0d 05 b4 9b 2e 79 70  61 74 72 6f 6c 20 4c 44  |S.....ypatrol LD|
00001630  58 79 6d 6f 6e 74 3a 43  50 58 79 70 6f 73 3a 42  |Xymont:CPXypos:B|
00001640  45 51 78 61 64 6a 62 3a  42 43 43 64 6f 77 6e 6d  |EQxadjb:BCCdownm|
00001650  74 3a 44 45 58 3a 4a 53  52 79 70 73 68 72 3a 44  |t:DEX:JSRypshr:D|
00001660  45 43 79 6d 6f 6e 74 3a  4c 44 41 23 36 3a 53 54  |ECymont:LDA#6:ST|
00001670  41 6d 66 69 6e 65 3a 52  54 53 3a 2e 79 70 73 68  |Amfine:RTS:.ypsh|
00001680  72 20 53 54 58 79 73 65  74 3a 4c 44 41 78 6d 6f  |r STXyset:LDAxmo|
00001690  6e 74 3a 53 54 41 78 73  65 74 3a 4a 53 52 67 65  |nt:STAxset:JSRge|
000016a0  74 62 6c 6f 63 6b 2b 33  3a 43 4d 50 23 26 31 30  |tblock+3:CMP#&10|
000016b0  3a 42 43 53 78 61 64 6a  3a 52 54 53 0d 05 be 51  |:BCSxadj:RTS...Q|
000016c0  2e 64 6f 77 6e 6d 74 20  49 4e 58 3a 4a 53 52 79  |.downmt INX:JSRy|
000016d0  70 73 68 72 3a 49 4e 43  79 6d 6f 6e 74 3a 4c 44  |pshr:INCymont:LD|
000016e0  41 23 35 3a 53 54 41 6d  66 69 6e 65 3a 52 54 53  |A#5:STAmfine:RTS|
000016f0  3a 2e 78 61 64 6a 20 50  4c 41 3a 50 4c 41 3a 2e  |:.xadj PLA:PLA:.|
00001700  78 61 64 6a 62 20 4a 4d  50 78 6d 6f 6d 0d 05 d2  |xadjb JMPxmom...|
00001710  2f 5d 3a e7 20 50 25 3e  26 34 31 30 30 20 8c 20  |/]:. P%>&4100 . |
00001720  f1 27 27 22 43 6f 64 65  20 4f 76 65 72 66 6c 6f  |.''"Code Overflo|
00001730  77 20 74 6f 3a 22 3b 7e  50 25 3a e0 0d 05 dc 0f  |w to:";~P%:.....|
00001740  f1 8a 31 35 2c 33 29 7e  50 25 3b 0d 05 e6 05 e1  |..15,3)~P%;.....|
00001750  0d ff                                             |..|
00001752