[OPT pass
�.string2 STA&72:.string LDY#0:LDA(&72),Y:CMP#&FF:BEQstrend:JSRputch:INCxch:LDA&72:CLC:ADC#1:STA&72:LDA&73:ADC#0:STA&73:JMPstring
�.quitch LDA#&81:LDX#&8F:LDY#&FF:JSRosbyte:BCSquitok:.strend RTS:.quitok PLA:PLA:LDA#&81:LDX#&FF:LDY#&FF:JSRosbyte:BCCzap:JMPprog
(m.zap LDAxold:STAxpos:LDAyold:STAypos:LDAsound:BEQnozaps:LDA#7:LDX#(zapn � 256):LDY#(zapn � 256):JSRosword
2Z.nozaps LDA#1:STApowchange:LDApower:SEC:SBC#&28:STApower:BEQyoudie:BCCyoudie:JMPnewscr
<.youdie JMPkillu
F.gameover LDA#5:STAxch:LDA#16:STAych:LDA#1:STAcol:LDA#(gamdead � 256):STA&72:LDA#(gamdead � 256):STA&73:JSRstring:LDA#0:PHA
P�.bellop LDAclock:CLC:ADC#100:STA&80:.belwait LDAclock:CMP&80:BNEbelwait:LDAsound:BEQnobell:LDA#7:LDX#(over � 256):LDY#(over � 256):JSRosword
Z5.nobell PLA:CLC:ADC#1:PHA:CMP#4:BNEbellop:PLA:RTS
dN.gamdead EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB22:EQUB19:EQUB5:EQUB15:EQUB255
n#.over EQUW1:EQUW-15:EQUW0:EQUW5
x�.sboard LDApowchange:BEQnopower:LDX#0:.powlop LDA&79E0,X:�#&C0:�A#4:STA&79E0,X::INX:CPXpower:BNEpowlop:.pownol LDA&79E0,X:�#&C0:STA&79E0,X:INX:BNEpownol
��.nopower LDAobch:BEQfinobsc:LDA#8:STAxch:LDA#25:STAych:LDAobjects:CMP#&20:BCSblankoba:TAY:JSRdrawop:JMPsecondo:.blankoba JSRblankob:JMPsecondo
�].blankob LDA#0:JSRputch:INCxch:LDA#0:JSRputch:INCych:LDA#0:JSRputch:DECxch:LDA#0:JMPputch
�w.secondo LDA#10:STAxch:LDA#25:STAych:LDAobjects+1:CMP#&20:BCSblankobb:TAY:JSRdrawop:JMPfinobsc:.blankobb JSRblankob
��.finobsc LDAscrch:BEQnoscr:JSRscorb:.noscr LDAobch:BEQnoobch:LDAclock:CLC:ADC#5:STA&80:.noobch LDA#0:STAobch:STApowchange:STAscrch:RTS
�J.drawop LDAxch:LSR A:STAxset:LDAych:SEC:SBC#2:LSR A:STAyset:JSRdrawobj
��.objecth LDY#0:.oblop LDA&FA0,Y:�#15:STA&F20,Y:LDA&FC0,Y:�#15:STA&F40,Y:LDA&FE0,Y:LSR A:LSR A:LSR A:LSR A:�#15:STA&F60,Y:LDA&FE0,Y:�#15:STA&F80,Y:INY:CPY#32:BNEoblop:RTS
��.objcheck LDY#0:.obclop LDA&F20,Y:CMPxset:BNEnotthat:LDA&F40,Y:CMPyset:BNEnotthat:LDA&F60,Y:CMPxscr:BNEnotthat:LDA&F80,Y:CMPyscr:BEQ drawobj:.notthat INY:CPY#32:BNEobclop:RTS
�p.drawobj PLA:PLA:LDAxset:ASL A:STAxch:LDAyset:CLC:ADC#1:ASL A:STAych:LDA&F00,Y:STAcol:TYA:CLC:ADC#&E0:STA&7F
ұLDA#0:STA&72:LDA#&A:STA&73:JSRobjdisp:INCxch:INC&73:JSRobjdisp:INCych:LDA#&E:STA&73:JSRobjdisp:DECxch:DEC&73:JSRobjdisp:LDY#8:LDA#0:.clearspob STA&BFF,Y:DEY:BNEclearspob:RTS
�f.objdisp LDY&7F:LDX#8:.objdlop LDA(&72),Y:STA&BFF,X:TYA:SEC:SBC#32:TAY:DEX:BNEobjdlop:TXA:JMPputch
�V.getoput LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCSpickup:LDA#0:STAgetstat:.keyhang RTS
��.pickup LDAgetstat:BNEkeyhang:LDAsound:BEQnogp:LDA#7:LDX#(switn � 256):LDY#(switn � 256):JSRosword:.nogp LDAobjects+1:CMP#&20:BCSnoputdown:TAY:LDAxscr:STA&F60,Y:LDAyscr:STA&F80,Y:LDAxpos:STA&F20,Y:LDAypos:STA&F40,Y:STY&70:JSRpuzz
��.noputdown LDAobjects:STAobjects+1:LDY#0:.obglop LDA&F20,Y:CPY&70:BEQnotgot:CMPxpos:BNEnotgot:LDA&F40,Y:CMPypos:BNEnotgot:LDA&F60,Y:CMPxscr:BNEnotgot:LDA&F80,Y:CMPyscr:BEQgettobj:.notgot INY:CPY#32:BNEobglop:STYobjects:JMPnogetob

�.gettobj CPY#28:BCCnoener:LDA#&FF:STA&F20,Y:STApower:STApowchange:STAscrch:SED:LDAscore:CLC:ADC#5:STAscore:LDAscore+1:ADC#0:STAscore+1:CLD

yLDA#7:LDX#(enrup � 256):LDY#(enrup � 256):JSRosword:LDY#32:STYobjects:JMPnogetob:.noener STYobjects:LDA#&FF:STA&F20,Y

n.nogetob LDAxpos:STAxset:LDAypos:STAyset:JSRblockon:LDA#0:STAwiper:LDA#1:STAchanged:STAobch:STAgetstat:RTS

"�.title JSRobjecth:.titlop INCtitstat:LDAtitstat:�#7:TAY:LDAtitscrs,Y:LSR A:LSR A:LSR A:LSR A:STAxscr:LDAtitscrs,Y:�#&0F:STAyscr:JSRscreen:LDA#&3C:STAinvflag

,�LDA#20:STAcol:LDA#4:STAxch:LDA#4:STAych:LDA#(name � 256):STA&73:LDA#(name � 256):JSRstring2:INCcol:LDA#1:STAxch:LDA#11:STAych:LDA#(credb � 256):STA&73:LDA#(credb � 256):JSRstring2

6;LDA#4:STAxch:LDA#12:STAych:LDA#(crede � 256):JSRstring2

@�LDA#1:STAxch:LDA#7:STAych:LDA#(creda � 256):JSRstring2:LDA#7:STAxch:LDA#8:STAych:LDA#(credc � 256):STA&73:LDA#(credc � 256):JSRstring2

J�LDA#8:STAxch:LDA#15:STAych:LDA#(credd � 256):JSRstring2:LDA#0:STAxch:LDA#20:STAych:LDA#(space � 256):STA&73:LDA#(space � 256):JSRstring2

T�LDAclock:SEC:SBC#1:STA&80:.soundpr LDA#6:STAxch:LDA#18:STAych:LDA#(sndoff � 256):STA&72:LDA#(sndoff � 256):STA&73:LDAsound:BEQsoundset:LDA#(sndon � 256):STA&72

^I.soundset JSRstring:.sstop LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSsstop

h�.spacwait LDAclock:CMP&80:BEQnextscr:LDA#&81:LDX#&AE:LDY#&FF:JSRosbyte:BCSseor:LDA#&81:LDX#&9D:LDY#&FF:JSRosbyte:BCCspacwait:RTS:.nextscr INCtitcyc:DEC&80:LDAtitcyc:�#3:BNEspacwait:JMPtitlop

r*.seor LDAsound:�#1:STAsound:JMPsoundpr

|e.name EQUB17:EQUB8:EQUB5:EQUB0:EQUB6:EQUB23:EQUB13:EQUB1:EQUB11:EQUB0:EQUB20:EQUB1:EQUB15:EQUB255

�t.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

�|.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)

�g.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:CMP#&10:RTS

�x.cmptxt EQUB3:EQUB22:EQUB13:EQUB7:EQUB15:EQUB1:EQUB17:EQUB18:EQUB11:EQUB1:EQUB17:EQUB23:EQUB22:EQUB13:EQUB16:EQUB&FF

�8.movemst LDAmtype:CMP#2:BEQypatrol:CMP#1:BNEmovemqut

³.xpatrol LDAxmont:BEQrevdir:CMP#9:BEQrevdir:ADCmdir:STAxset:LDAymont:STAyset:JSRgetblock:CMP#&10:BCSrevdir:INCyset:JSRgetblock: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:CMP#&10:BCSxadj:RTS

�Q.downmt INX:JSRypshr:INCymont:LDA#5:STAmfine:RTS:.xadj PLA:PLA:.xadjb JMPxmom

�h.cmptxtb EQUB7:EQUB1:EQUB12:EQUB5:EQUB0:EQUB3:EQUB22:EQUB12:EQUB14:EQUB11:EQUB5:EQUB17:EQUB5:EQUB&FF

�9]:�0,6)~P%:� P%>&1A00 � �''"Code Overflow to:";~P%:�

��
�

00000000  0d 00 0a 0d 5b 4f 50 54  20 70 61 73 73 0d 00 14  |....[OPT pass...|
00000010  84 2e 73 74 72 69 6e 67  32 20 53 54 41 26 37 32  |..string2 STA&72|
00000020  3a 2e 73 74 72 69 6e 67  20 4c 44 59 23 30 3a 4c  |:.string LDY#0:L|
00000030  44 41 28 26 37 32 29 2c  59 3a 43 4d 50 23 26 46  |DA(&72),Y:CMP#&F|
00000040  46 3a 42 45 51 73 74 72  65 6e 64 3a 4a 53 52 70  |F:BEQstrend:JSRp|
00000050  75 74 63 68 3a 49 4e 43  78 63 68 3a 4c 44 41 26  |utch:INCxch:LDA&|
00000060  37 32 3a 43 4c 43 3a 41  44 43 23 31 3a 53 54 41  |72:CLC:ADC#1:STA|
00000070  26 37 32 3a 4c 44 41 26  37 33 3a 41 44 43 23 30  |&72:LDA&73:ADC#0|
00000080  3a 53 54 41 26 37 33 3a  4a 4d 50 73 74 72 69 6e  |:STA&73:JMPstrin|
00000090  67 0d 00 1e 84 2e 71 75  69 74 63 68 20 4c 44 41  |g.....quitch LDA|
000000a0  23 26 38 31 3a 4c 44 58  23 26 38 46 3a 4c 44 59  |#&81:LDX#&8F:LDY|
000000b0  23 26 46 46 3a 4a 53 52  6f 73 62 79 74 65 3a 42  |#&FF:JSRosbyte:B|
000000c0  43 53 71 75 69 74 6f 6b  3a 2e 73 74 72 65 6e 64  |CSquitok:.strend|
000000d0  20 52 54 53 3a 2e 71 75  69 74 6f 6b 20 50 4c 41  | RTS:.quitok PLA|
000000e0  3a 50 4c 41 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |:PLA:LDA#&81:LDX|
000000f0  23 26 46 46 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&FF:LDY#&FF:JSR|
00000100  6f 73 62 79 74 65 3a 42  43 43 7a 61 70 3a 4a 4d  |osbyte:BCCzap:JM|
00000110  50 70 72 6f 67 0d 00 28  6d 2e 7a 61 70 20 4c 44  |Pprog..(m.zap LD|
00000120  41 78 6f 6c 64 3a 53 54  41 78 70 6f 73 3a 4c 44  |Axold:STAxpos:LD|
00000130  41 79 6f 6c 64 3a 53 54  41 79 70 6f 73 3a 4c 44  |Ayold:STAypos:LD|
00000140  41 73 6f 75 6e 64 3a 42  45 51 6e 6f 7a 61 70 73  |Asound:BEQnozaps|
00000150  3a 4c 44 41 23 37 3a 4c  44 58 23 28 7a 61 70 6e  |:LDA#7:LDX#(zapn|
00000160  20 83 20 32 35 36 29 3a  4c 44 59 23 28 7a 61 70  | . 256):LDY#(zap|
00000170  6e 20 81 20 32 35 36 29  3a 4a 53 52 6f 73 77 6f  |n . 256):JSRoswo|
00000180  72 64 0d 00 32 5a 2e 6e  6f 7a 61 70 73 20 4c 44  |rd..2Z.nozaps LD|
00000190  41 23 31 3a 53 54 41 70  6f 77 63 68 61 6e 67 65  |A#1:STApowchange|
000001a0  3a 4c 44 41 70 6f 77 65  72 3a 53 45 43 3a 53 42  |:LDApower:SEC:SB|
000001b0  43 23 26 32 38 3a 53 54  41 70 6f 77 65 72 3a 42  |C#&28:STApower:B|
000001c0  45 51 79 6f 75 64 69 65  3a 42 43 43 79 6f 75 64  |EQyoudie:BCCyoud|
000001d0  69 65 3a 4a 4d 50 6e 65  77 73 63 72 0d 00 3c 14  |ie:JMPnewscr..<.|
000001e0  2e 79 6f 75 64 69 65 20  4a 4d 50 6b 69 6c 6c 75  |.youdie JMPkillu|
000001f0  0d 00 46 7f 2e 67 61 6d  65 6f 76 65 72 20 4c 44  |..F..gameover LD|
00000200  41 23 35 3a 53 54 41 78  63 68 3a 4c 44 41 23 31  |A#5:STAxch:LDA#1|
00000210  36 3a 53 54 41 79 63 68  3a 4c 44 41 23 31 3a 53  |6:STAych:LDA#1:S|
00000220  54 41 63 6f 6c 3a 4c 44  41 23 28 67 61 6d 64 65  |TAcol:LDA#(gamde|
00000230  61 64 20 83 20 32 35 36  29 3a 53 54 41 26 37 32  |ad . 256):STA&72|
00000240  3a 4c 44 41 23 28 67 61  6d 64 65 61 64 20 81 20  |:LDA#(gamdead . |
00000250  32 35 36 29 3a 53 54 41  26 37 33 3a 4a 53 52 73  |256):STA&73:JSRs|
00000260  74 72 69 6e 67 3a 4c 44  41 23 30 3a 50 48 41 0d  |tring:LDA#0:PHA.|
00000270  00 50 90 2e 62 65 6c 6c  6f 70 20 4c 44 41 63 6c  |.P..bellop LDAcl|
00000280  6f 63 6b 3a 43 4c 43 3a  41 44 43 23 31 30 30 3a  |ock:CLC:ADC#100:|
00000290  53 54 41 26 38 30 3a 2e  62 65 6c 77 61 69 74 20  |STA&80:.belwait |
000002a0  4c 44 41 63 6c 6f 63 6b  3a 43 4d 50 26 38 30 3a  |LDAclock:CMP&80:|
000002b0  42 4e 45 62 65 6c 77 61  69 74 3a 4c 44 41 73 6f  |BNEbelwait:LDAso|
000002c0  75 6e 64 3a 42 45 51 6e  6f 62 65 6c 6c 3a 4c 44  |und:BEQnobell:LD|
000002d0  41 23 37 3a 4c 44 58 23  28 6f 76 65 72 20 83 20  |A#7:LDX#(over . |
000002e0  32 35 36 29 3a 4c 44 59  23 28 6f 76 65 72 20 81  |256):LDY#(over .|
000002f0  20 32 35 36 29 3a 4a 53  52 6f 73 77 6f 72 64 0d  | 256):JSRosword.|
00000300  00 5a 35 2e 6e 6f 62 65  6c 6c 20 50 4c 41 3a 43  |.Z5.nobell PLA:C|
00000310  4c 43 3a 41 44 43 23 31  3a 50 48 41 3a 43 4d 50  |LC:ADC#1:PHA:CMP|
00000320  23 34 3a 42 4e 45 62 65  6c 6c 6f 70 3a 50 4c 41  |#4:BNEbellop:PLA|
00000330  3a 52 54 53 0d 00 64 4e  2e 67 61 6d 64 65 61 64  |:RTS..dN.gamdead|
00000340  20 45 51 55 42 37 3a 45  51 55 42 31 3a 45 51 55  | EQUB7:EQUB1:EQU|
00000350  42 31 32 3a 45 51 55 42  35 3a 45 51 55 42 30 3a  |B12:EQUB5:EQUB0:|
00000360  45 51 55 42 32 32 3a 45  51 55 42 31 39 3a 45 51  |EQUB22:EQUB19:EQ|
00000370  55 42 35 3a 45 51 55 42  31 35 3a 45 51 55 42 32  |UB5:EQUB15:EQUB2|
00000380  35 35 0d 00 6e 23 2e 6f  76 65 72 20 45 51 55 57  |55..n#.over EQUW|
00000390  31 3a 45 51 55 57 2d 31  35 3a 45 51 55 57 30 3a  |1:EQUW-15:EQUW0:|
000003a0  45 51 55 57 35 0d 00 78  9c 2e 73 62 6f 61 72 64  |EQUW5..x..sboard|
000003b0  20 4c 44 41 70 6f 77 63  68 61 6e 67 65 3a 42 45  | LDApowchange:BE|
000003c0  51 6e 6f 70 6f 77 65 72  3a 4c 44 58 23 30 3a 2e  |Qnopower:LDX#0:.|
000003d0  70 6f 77 6c 6f 70 20 4c  44 41 26 37 39 45 30 2c  |powlop LDA&79E0,|
000003e0  58 3a 80 23 26 43 30 3a  84 41 23 34 3a 53 54 41  |X:.#&C0:.A#4:STA|
000003f0  26 37 39 45 30 2c 58 3a  3a 49 4e 58 3a 43 50 58  |&79E0,X::INX:CPX|
00000400  70 6f 77 65 72 3a 42 4e  45 70 6f 77 6c 6f 70 3a  |power:BNEpowlop:|
00000410  2e 70 6f 77 6e 6f 6c 20  4c 44 41 26 37 39 45 30  |.pownol LDA&79E0|
00000420  2c 58 3a 80 23 26 43 30  3a 53 54 41 26 37 39 45  |,X:.#&C0:STA&79E|
00000430  30 2c 58 3a 49 4e 58 3a  42 4e 45 70 6f 77 6e 6f  |0,X:INX:BNEpowno|
00000440  6c 0d 00 82 92 2e 6e 6f  70 6f 77 65 72 20 4c 44  |l.....nopower LD|
00000450  41 6f 62 63 68 3a 42 45  51 66 69 6e 6f 62 73 63  |Aobch:BEQfinobsc|
00000460  3a 4c 44 41 23 38 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#8:STAxch:LD|
00000470  41 23 32 35 3a 53 54 41  79 63 68 3a 4c 44 41 6f  |A#25:STAych:LDAo|
00000480  62 6a 65 63 74 73 3a 43  4d 50 23 26 32 30 3a 42  |bjects:CMP#&20:B|
00000490  43 53 62 6c 61 6e 6b 6f  62 61 3a 54 41 59 3a 4a  |CSblankoba:TAY:J|
000004a0  53 52 64 72 61 77 6f 70  3a 4a 4d 50 73 65 63 6f  |SRdrawop:JMPseco|
000004b0  6e 64 6f 3a 2e 62 6c 61  6e 6b 6f 62 61 20 4a 53  |ndo:.blankoba JS|
000004c0  52 62 6c 61 6e 6b 6f 62  3a 4a 4d 50 73 65 63 6f  |Rblankob:JMPseco|
000004d0  6e 64 6f 0d 00 8c 5d 2e  62 6c 61 6e 6b 6f 62 20  |ndo...].blankob |
000004e0  4c 44 41 23 30 3a 4a 53  52 70 75 74 63 68 3a 49  |LDA#0:JSRputch:I|
000004f0  4e 43 78 63 68 3a 4c 44  41 23 30 3a 4a 53 52 70  |NCxch:LDA#0:JSRp|
00000500  75 74 63 68 3a 49 4e 43  79 63 68 3a 4c 44 41 23  |utch:INCych:LDA#|
00000510  30 3a 4a 53 52 70 75 74  63 68 3a 44 45 43 78 63  |0:JSRputch:DECxc|
00000520  68 3a 4c 44 41 23 30 3a  4a 4d 50 70 75 74 63 68  |h:LDA#0:JMPputch|
00000530  0d 00 96 77 2e 73 65 63  6f 6e 64 6f 20 4c 44 41  |...w.secondo LDA|
00000540  23 31 30 3a 53 54 41 78  63 68 3a 4c 44 41 23 32  |#10:STAxch:LDA#2|
00000550  35 3a 53 54 41 79 63 68  3a 4c 44 41 6f 62 6a 65  |5:STAych:LDAobje|
00000560  63 74 73 2b 31 3a 43 4d  50 23 26 32 30 3a 42 43  |cts+1:CMP#&20:BC|
00000570  53 62 6c 61 6e 6b 6f 62  62 3a 54 41 59 3a 4a 53  |Sblankobb:TAY:JS|
00000580  52 64 72 61 77 6f 70 3a  4a 4d 50 66 69 6e 6f 62  |Rdrawop:JMPfinob|
00000590  73 63 3a 2e 62 6c 61 6e  6b 6f 62 62 20 4a 53 52  |sc:.blankobb JSR|
000005a0  62 6c 61 6e 6b 6f 62 0d  00 a0 8a 2e 66 69 6e 6f  |blankob.....fino|
000005b0  62 73 63 20 4c 44 41 73  63 72 63 68 3a 42 45 51  |bsc LDAscrch:BEQ|
000005c0  6e 6f 73 63 72 3a 4a 53  52 73 63 6f 72 62 3a 2e  |noscr:JSRscorb:.|
000005d0  6e 6f 73 63 72 20 4c 44  41 6f 62 63 68 3a 42 45  |noscr LDAobch:BE|
000005e0  51 6e 6f 6f 62 63 68 3a  4c 44 41 63 6c 6f 63 6b  |Qnoobch:LDAclock|
000005f0  3a 43 4c 43 3a 41 44 43  23 35 3a 53 54 41 26 38  |:CLC:ADC#5:STA&8|
00000600  30 3a 2e 6e 6f 6f 62 63  68 20 4c 44 41 23 30 3a  |0:.noobch LDA#0:|
00000610  53 54 41 6f 62 63 68 3a  53 54 41 70 6f 77 63 68  |STAobch:STApowch|
00000620  61 6e 67 65 3a 53 54 41  73 63 72 63 68 3a 52 54  |ange:STAscrch:RT|
00000630  53 0d 00 aa 4a 2e 64 72  61 77 6f 70 20 4c 44 41  |S...J.drawop LDA|
00000640  78 63 68 3a 4c 53 52 20  41 3a 53 54 41 78 73 65  |xch:LSR A:STAxse|
00000650  74 3a 4c 44 41 79 63 68  3a 53 45 43 3a 53 42 43  |t:LDAych:SEC:SBC|
00000660  23 32 3a 4c 53 52 20 41  3a 53 54 41 79 73 65 74  |#2:LSR A:STAyset|
00000670  3a 4a 53 52 64 72 61 77  6f 62 6a 0d 00 b4 ad 2e  |:JSRdrawobj.....|
00000680  6f 62 6a 65 63 74 68 20  4c 44 59 23 30 3a 2e 6f  |objecth LDY#0:.o|
00000690  62 6c 6f 70 20 4c 44 41  26 46 41 30 2c 59 3a 80  |blop LDA&FA0,Y:.|
000006a0  23 31 35 3a 53 54 41 26  46 32 30 2c 59 3a 4c 44  |#15:STA&F20,Y:LD|
000006b0  41 26 46 43 30 2c 59 3a  80 23 31 35 3a 53 54 41  |A&FC0,Y:.#15:STA|
000006c0  26 46 34 30 2c 59 3a 4c  44 41 26 46 45 30 2c 59  |&F40,Y:LDA&FE0,Y|
000006d0  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
000006e0  20 41 3a 4c 53 52 20 41  3a 80 23 31 35 3a 53 54  | A:LSR A:.#15:ST|
000006f0  41 26 46 36 30 2c 59 3a  4c 44 41 26 46 45 30 2c  |A&F60,Y:LDA&FE0,|
00000700  59 3a 80 23 31 35 3a 53  54 41 26 46 38 30 2c 59  |Y:.#15:STA&F80,Y|
00000710  3a 49 4e 59 3a 43 50 59  23 33 32 3a 42 4e 45 6f  |:INY:CPY#32:BNEo|
00000720  62 6c 6f 70 3a 52 54 53  0d 00 be b2 2e 6f 62 6a  |blop:RTS.....obj|
00000730  63 68 65 63 6b 20 4c 44  59 23 30 3a 2e 6f 62 63  |check LDY#0:.obc|
00000740  6c 6f 70 20 4c 44 41 26  46 32 30 2c 59 3a 43 4d  |lop LDA&F20,Y:CM|
00000750  50 78 73 65 74 3a 42 4e  45 6e 6f 74 74 68 61 74  |Pxset:BNEnotthat|
00000760  3a 4c 44 41 26 46 34 30  2c 59 3a 43 4d 50 79 73  |:LDA&F40,Y:CMPys|
00000770  65 74 3a 42 4e 45 6e 6f  74 74 68 61 74 3a 4c 44  |et:BNEnotthat:LD|
00000780  41 26 46 36 30 2c 59 3a  43 4d 50 78 73 63 72 3a  |A&F60,Y:CMPxscr:|
00000790  42 4e 45 6e 6f 74 74 68  61 74 3a 4c 44 41 26 46  |BNEnotthat:LDA&F|
000007a0  38 30 2c 59 3a 43 4d 50  79 73 63 72 3a 42 45 51  |80,Y:CMPyscr:BEQ|
000007b0  20 64 72 61 77 6f 62 6a  3a 2e 6e 6f 74 74 68 61  | drawobj:.nottha|
000007c0  74 20 49 4e 59 3a 43 50  59 23 33 32 3a 42 4e 45  |t INY:CPY#32:BNE|
000007d0  6f 62 63 6c 6f 70 3a 52  54 53 0d 00 c8 70 2e 64  |obclop:RTS...p.d|
000007e0  72 61 77 6f 62 6a 20 50  4c 41 3a 50 4c 41 3a 4c  |rawobj PLA:PLA:L|
000007f0  44 41 78 73 65 74 3a 41  53 4c 20 41 3a 53 54 41  |DAxset:ASL A:STA|
00000800  78 63 68 3a 4c 44 41 79  73 65 74 3a 43 4c 43 3a  |xch:LDAyset:CLC:|
00000810  41 44 43 23 31 3a 41 53  4c 20 41 3a 53 54 41 79  |ADC#1:ASL A:STAy|
00000820  63 68 3a 4c 44 41 26 46  30 30 2c 59 3a 53 54 41  |ch:LDA&F00,Y:STA|
00000830  63 6f 6c 3a 54 59 41 3a  43 4c 43 3a 41 44 43 23  |col:TYA:CLC:ADC#|
00000840  26 45 30 3a 53 54 41 26  37 46 0d 00 d2 b1 4c 44  |&E0:STA&7F....LD|
00000850  41 23 30 3a 53 54 41 26  37 32 3a 4c 44 41 23 26  |A#0:STA&72:LDA#&|
00000860  41 3a 53 54 41 26 37 33  3a 4a 53 52 6f 62 6a 64  |A:STA&73:JSRobjd|
00000870  69 73 70 3a 49 4e 43 78  63 68 3a 49 4e 43 26 37  |isp:INCxch:INC&7|
00000880  33 3a 4a 53 52 6f 62 6a  64 69 73 70 3a 49 4e 43  |3:JSRobjdisp:INC|
00000890  79 63 68 3a 4c 44 41 23  26 45 3a 53 54 41 26 37  |ych:LDA#&E:STA&7|
000008a0  33 3a 4a 53 52 6f 62 6a  64 69 73 70 3a 44 45 43  |3:JSRobjdisp:DEC|
000008b0  78 63 68 3a 44 45 43 26  37 33 3a 4a 53 52 6f 62  |xch:DEC&73:JSRob|
000008c0  6a 64 69 73 70 3a 4c 44  59 23 38 3a 4c 44 41 23  |jdisp:LDY#8:LDA#|
000008d0  30 3a 2e 63 6c 65 61 72  73 70 6f 62 20 53 54 41  |0:.clearspob STA|
000008e0  26 42 46 46 2c 59 3a 44  45 59 3a 42 4e 45 63 6c  |&BFF,Y:DEY:BNEcl|
000008f0  65 61 72 73 70 6f 62 3a  52 54 53 0d 00 dc 66 2e  |earspob:RTS...f.|
00000900  6f 62 6a 64 69 73 70 20  4c 44 59 26 37 46 3a 4c  |objdisp LDY&7F:L|
00000910  44 58 23 38 3a 2e 6f 62  6a 64 6c 6f 70 20 4c 44  |DX#8:.objdlop LD|
00000920  41 28 26 37 32 29 2c 59  3a 53 54 41 26 42 46 46  |A(&72),Y:STA&BFF|
00000930  2c 58 3a 54 59 41 3a 53  45 43 3a 53 42 43 23 33  |,X:TYA:SEC:SBC#3|
00000940  32 3a 54 41 59 3a 44 45  58 3a 42 4e 45 6f 62 6a  |2:TAY:DEX:BNEobj|
00000950  64 6c 6f 70 3a 54 58 41  3a 4a 4d 50 70 75 74 63  |dlop:TXA:JMPputc|
00000960  68 0d 00 e6 56 2e 67 65  74 6f 70 75 74 20 4c 44  |h...V.getoput LD|
00000970  41 23 26 38 31 3a 4c 44  58 23 26 39 44 3a 4c 44  |A#&81:LDX#&9D:LD|
00000980  59 23 26 46 46 3a 4a 53  52 6f 73 62 79 74 65 3a  |Y#&FF:JSRosbyte:|
00000990  42 43 53 70 69 63 6b 75  70 3a 4c 44 41 23 30 3a  |BCSpickup:LDA#0:|
000009a0  53 54 41 67 65 74 73 74  61 74 3a 2e 6b 65 79 68  |STAgetstat:.keyh|
000009b0  61 6e 67 20 52 54 53 0d  00 f0 e9 2e 70 69 63 6b  |ang RTS.....pick|
000009c0  75 70 20 4c 44 41 67 65  74 73 74 61 74 3a 42 4e  |up LDAgetstat:BN|
000009d0  45 6b 65 79 68 61 6e 67  3a 4c 44 41 73 6f 75 6e  |Ekeyhang:LDAsoun|
000009e0  64 3a 42 45 51 6e 6f 67  70 3a 4c 44 41 23 37 3a  |d:BEQnogp:LDA#7:|
000009f0  4c 44 58 23 28 73 77 69  74 6e 20 83 20 32 35 36  |LDX#(switn . 256|
00000a00  29 3a 4c 44 59 23 28 73  77 69 74 6e 20 81 20 32  |):LDY#(switn . 2|
00000a10  35 36 29 3a 4a 53 52 6f  73 77 6f 72 64 3a 2e 6e  |56):JSRosword:.n|
00000a20  6f 67 70 20 4c 44 41 6f  62 6a 65 63 74 73 2b 31  |ogp LDAobjects+1|
00000a30  3a 43 4d 50 23 26 32 30  3a 42 43 53 6e 6f 70 75  |:CMP#&20:BCSnopu|
00000a40  74 64 6f 77 6e 3a 54 41  59 3a 4c 44 41 78 73 63  |tdown:TAY:LDAxsc|
00000a50  72 3a 53 54 41 26 46 36  30 2c 59 3a 4c 44 41 79  |r:STA&F60,Y:LDAy|
00000a60  73 63 72 3a 53 54 41 26  46 38 30 2c 59 3a 4c 44  |scr:STA&F80,Y:LD|
00000a70  41 78 70 6f 73 3a 53 54  41 26 46 32 30 2c 59 3a  |Axpos:STA&F20,Y:|
00000a80  4c 44 41 79 70 6f 73 3a  53 54 41 26 46 34 30 2c  |LDAypos:STA&F40,|
00000a90  59 3a 53 54 59 26 37 30  3a 4a 53 52 70 75 7a 7a  |Y:STY&70:JSRpuzz|
00000aa0  0d 00 fa e9 2e 6e 6f 70  75 74 64 6f 77 6e 20 4c  |.....noputdown L|
00000ab0  44 41 6f 62 6a 65 63 74  73 3a 53 54 41 6f 62 6a  |DAobjects:STAobj|
00000ac0  65 63 74 73 2b 31 3a 4c  44 59 23 30 3a 2e 6f 62  |ects+1:LDY#0:.ob|
00000ad0  67 6c 6f 70 20 4c 44 41  26 46 32 30 2c 59 3a 43  |glop LDA&F20,Y:C|
00000ae0  50 59 26 37 30 3a 42 45  51 6e 6f 74 67 6f 74 3a  |PY&70:BEQnotgot:|
00000af0  43 4d 50 78 70 6f 73 3a  42 4e 45 6e 6f 74 67 6f  |CMPxpos:BNEnotgo|
00000b00  74 3a 4c 44 41 26 46 34  30 2c 59 3a 43 4d 50 79  |t:LDA&F40,Y:CMPy|
00000b10  70 6f 73 3a 42 4e 45 6e  6f 74 67 6f 74 3a 4c 44  |pos:BNEnotgot:LD|
00000b20  41 26 46 36 30 2c 59 3a  43 4d 50 78 73 63 72 3a  |A&F60,Y:CMPxscr:|
00000b30  42 4e 45 6e 6f 74 67 6f  74 3a 4c 44 41 26 46 38  |BNEnotgot:LDA&F8|
00000b40  30 2c 59 3a 43 4d 50 79  73 63 72 3a 42 45 51 67  |0,Y:CMPyscr:BEQg|
00000b50  65 74 74 6f 62 6a 3a 2e  6e 6f 74 67 6f 74 20 49  |ettobj:.notgot I|
00000b60  4e 59 3a 43 50 59 23 33  32 3a 42 4e 45 6f 62 67  |NY:CPY#32:BNEobg|
00000b70  6c 6f 70 3a 53 54 59 6f  62 6a 65 63 74 73 3a 4a  |lop:STYobjects:J|
00000b80  4d 50 6e 6f 67 65 74 6f  62 0d 01 04 8e 2e 67 65  |MPnogetob.....ge|
00000b90  74 74 6f 62 6a 20 43 50  59 23 32 38 3a 42 43 43  |ttobj CPY#28:BCC|
00000ba0  6e 6f 65 6e 65 72 3a 4c  44 41 23 26 46 46 3a 53  |noener:LDA#&FF:S|
00000bb0  54 41 26 46 32 30 2c 59  3a 53 54 41 70 6f 77 65  |TA&F20,Y:STApowe|
00000bc0  72 3a 53 54 41 70 6f 77  63 68 61 6e 67 65 3a 53  |r:STApowchange:S|
00000bd0  54 41 73 63 72 63 68 3a  53 45 44 3a 4c 44 41 73  |TAscrch:SED:LDAs|
00000be0  63 6f 72 65 3a 43 4c 43  3a 41 44 43 23 35 3a 53  |core:CLC:ADC#5:S|
00000bf0  54 41 73 63 6f 72 65 3a  4c 44 41 73 63 6f 72 65  |TAscore:LDAscore|
00000c00  2b 31 3a 41 44 43 23 30  3a 53 54 41 73 63 6f 72  |+1:ADC#0:STAscor|
00000c10  65 2b 31 3a 43 4c 44 0d  01 0e 79 4c 44 41 23 37  |e+1:CLD...yLDA#7|
00000c20  3a 4c 44 58 23 28 65 6e  72 75 70 20 83 20 32 35  |:LDX#(enrup . 25|
00000c30  36 29 3a 4c 44 59 23 28  65 6e 72 75 70 20 81 20  |6):LDY#(enrup . |
00000c40  32 35 36 29 3a 4a 53 52  6f 73 77 6f 72 64 3a 4c  |256):JSRosword:L|
00000c50  44 59 23 33 32 3a 53 54  59 6f 62 6a 65 63 74 73  |DY#32:STYobjects|
00000c60  3a 4a 4d 50 6e 6f 67 65  74 6f 62 3a 2e 6e 6f 65  |:JMPnogetob:.noe|
00000c70  6e 65 72 20 53 54 59 6f  62 6a 65 63 74 73 3a 4c  |ner STYobjects:L|
00000c80  44 41 23 26 46 46 3a 53  54 41 26 46 32 30 2c 59  |DA#&FF:STA&F20,Y|
00000c90  0d 01 18 6e 2e 6e 6f 67  65 74 6f 62 20 4c 44 41  |...n.nogetob LDA|
00000ca0  78 70 6f 73 3a 53 54 41  78 73 65 74 3a 4c 44 41  |xpos:STAxset:LDA|
00000cb0  79 70 6f 73 3a 53 54 41  79 73 65 74 3a 4a 53 52  |ypos:STAyset:JSR|
00000cc0  62 6c 6f 63 6b 6f 6e 3a  4c 44 41 23 30 3a 53 54  |blockon:LDA#0:ST|
00000cd0  41 77 69 70 65 72 3a 4c  44 41 23 31 3a 53 54 41  |Awiper:LDA#1:STA|
00000ce0  63 68 61 6e 67 65 64 3a  53 54 41 6f 62 63 68 3a  |changed:STAobch:|
00000cf0  53 54 41 67 65 74 73 74  61 74 3a 52 54 53 0d 01  |STAgetstat:RTS..|
00000d00  22 a0 2e 74 69 74 6c 65  20 4a 53 52 6f 62 6a 65  |"..title JSRobje|
00000d10  63 74 68 3a 2e 74 69 74  6c 6f 70 20 49 4e 43 74  |cth:.titlop INCt|
00000d20  69 74 73 74 61 74 3a 4c  44 41 74 69 74 73 74 61  |itstat:LDAtitsta|
00000d30  74 3a 80 23 37 3a 54 41  59 3a 4c 44 41 74 69 74  |t:.#7:TAY:LDAtit|
00000d40  73 63 72 73 2c 59 3a 4c  53 52 20 41 3a 4c 53 52  |scrs,Y:LSR A:LSR|
00000d50  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 53  | A:LSR A:LSR A:S|
00000d60  54 41 78 73 63 72 3a 4c  44 41 74 69 74 73 63 72  |TAxscr:LDAtitscr|
00000d70  73 2c 59 3a 80 23 26 30  46 3a 53 54 41 79 73 63  |s,Y:.#&0F:STAysc|
00000d80  72 3a 4a 53 52 73 63 72  65 65 6e 3a 4c 44 41 23  |r:JSRscreen:LDA#|
00000d90  26 33 43 3a 53 54 41 69  6e 76 66 6c 61 67 0d 01  |&3C:STAinvflag..|
00000da0  2c b7 4c 44 41 23 32 30  3a 53 54 41 63 6f 6c 3a  |,.LDA#20:STAcol:|
00000db0  4c 44 41 23 34 3a 53 54  41 78 63 68 3a 4c 44 41  |LDA#4:STAxch:LDA|
00000dc0  23 34 3a 53 54 41 79 63  68 3a 4c 44 41 23 28 6e  |#4:STAych:LDA#(n|
00000dd0  61 6d 65 20 81 20 32 35  36 29 3a 53 54 41 26 37  |ame . 256):STA&7|
00000de0  33 3a 4c 44 41 23 28 6e  61 6d 65 20 83 20 32 35  |3:LDA#(name . 25|
00000df0  36 29 3a 4a 53 52 73 74  72 69 6e 67 32 3a 49 4e  |6):JSRstring2:IN|
00000e00  43 63 6f 6c 3a 4c 44 41  23 31 3a 53 54 41 78 63  |Ccol:LDA#1:STAxc|
00000e10  68 3a 4c 44 41 23 31 31  3a 53 54 41 79 63 68 3a  |h:LDA#11:STAych:|
00000e20  4c 44 41 23 28 63 72 65  64 62 20 81 20 32 35 36  |LDA#(credb . 256|
00000e30  29 3a 53 54 41 26 37 33  3a 4c 44 41 23 28 63 72  |):STA&73:LDA#(cr|
00000e40  65 64 62 20 83 20 32 35  36 29 3a 4a 53 52 73 74  |edb . 256):JSRst|
00000e50  72 69 6e 67 32 0d 01 36  3b 4c 44 41 23 34 3a 53  |ring2..6;LDA#4:S|
00000e60  54 41 78 63 68 3a 4c 44  41 23 31 32 3a 53 54 41  |TAxch:LDA#12:STA|
00000e70  79 63 68 3a 4c 44 41 23  28 63 72 65 64 65 20 83  |ych:LDA#(crede .|
00000e80  20 32 35 36 29 3a 4a 53  52 73 74 72 69 6e 67 32  | 256):JSRstring2|
00000e90  0d 01 40 8a 4c 44 41 23  31 3a 53 54 41 78 63 68  |..@.LDA#1:STAxch|
00000ea0  3a 4c 44 41 23 37 3a 53  54 41 79 63 68 3a 4c 44  |:LDA#7:STAych:LD|
00000eb0  41 23 28 63 72 65 64 61  20 83 20 32 35 36 29 3a  |A#(creda . 256):|
00000ec0  4a 53 52 73 74 72 69 6e  67 32 3a 4c 44 41 23 37  |JSRstring2:LDA#7|
00000ed0  3a 53 54 41 78 63 68 3a  4c 44 41 23 38 3a 53 54  |:STAxch:LDA#8:ST|
00000ee0  41 79 63 68 3a 4c 44 41  23 28 63 72 65 64 63 20  |Aych:LDA#(credc |
00000ef0  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4c 44  |. 256):STA&73:LD|
00000f00  41 23 28 63 72 65 64 63  20 83 20 32 35 36 29 3a  |A#(credc . 256):|
00000f10  4a 53 52 73 74 72 69 6e  67 32 0d 01 4a 8c 4c 44  |JSRstring2..J.LD|
00000f20  41 23 38 3a 53 54 41 78  63 68 3a 4c 44 41 23 31  |A#8:STAxch:LDA#1|
00000f30  35 3a 53 54 41 79 63 68  3a 4c 44 41 23 28 63 72  |5:STAych:LDA#(cr|
00000f40  65 64 64 20 83 20 32 35  36 29 3a 4a 53 52 73 74  |edd . 256):JSRst|
00000f50  72 69 6e 67 32 3a 4c 44  41 23 30 3a 53 54 41 78  |ring2:LDA#0:STAx|
00000f60  63 68 3a 4c 44 41 23 32  30 3a 53 54 41 79 63 68  |ch:LDA#20:STAych|
00000f70  3a 4c 44 41 23 28 73 70  61 63 65 20 81 20 32 35  |:LDA#(space . 25|
00000f80  36 29 3a 53 54 41 26 37  33 3a 4c 44 41 23 28 73  |6):STA&73:LDA#(s|
00000f90  70 61 63 65 20 83 20 32  35 36 29 3a 4a 53 52 73  |pace . 256):JSRs|
00000fa0  74 72 69 6e 67 32 0d 01  54 a3 4c 44 41 63 6c 6f  |tring2..T.LDAclo|
00000fb0  63 6b 3a 53 45 43 3a 53  42 43 23 31 3a 53 54 41  |ck:SEC:SBC#1:STA|
00000fc0  26 38 30 3a 2e 73 6f 75  6e 64 70 72 20 4c 44 41  |&80:.soundpr LDA|
00000fd0  23 36 3a 53 54 41 78 63  68 3a 4c 44 41 23 31 38  |#6:STAxch:LDA#18|
00000fe0  3a 53 54 41 79 63 68 3a  4c 44 41 23 28 73 6e 64  |:STAych:LDA#(snd|
00000ff0  6f 66 66 20 83 20 32 35  36 29 3a 53 54 41 26 37  |off . 256):STA&7|
00001000  32 3a 4c 44 41 23 28 73  6e 64 6f 66 66 20 81 20  |2:LDA#(sndoff . |
00001010  32 35 36 29 3a 53 54 41  26 37 33 3a 4c 44 41 73  |256):STA&73:LDAs|
00001020  6f 75 6e 64 3a 42 45 51  73 6f 75 6e 64 73 65 74  |ound:BEQsoundset|
00001030  3a 4c 44 41 23 28 73 6e  64 6f 6e 20 83 20 32 35  |:LDA#(sndon . 25|
00001040  36 29 3a 53 54 41 26 37  32 0d 01 5e 49 2e 73 6f  |6):STA&72..^I.so|
00001050  75 6e 64 73 65 74 20 4a  53 52 73 74 72 69 6e 67  |undset JSRstring|
00001060  3a 2e 73 73 74 6f 70 20  4c 44 41 23 26 38 31 3a  |:.sstop LDA#&81:|
00001070  4c 44 58 23 26 41 45 3a  4c 44 59 23 26 46 46 3a  |LDX#&AE:LDY#&FF:|
00001080  4a 53 52 6f 73 62 79 74  65 3a 42 43 53 73 73 74  |JSRosbyte:BCSsst|
00001090  6f 70 0d 01 68 c2 2e 73  70 61 63 77 61 69 74 20  |op..h..spacwait |
000010a0  4c 44 41 63 6c 6f 63 6b  3a 43 4d 50 26 38 30 3a  |LDAclock:CMP&80:|
000010b0  42 45 51 6e 65 78 74 73  63 72 3a 4c 44 41 23 26  |BEQnextscr:LDA#&|
000010c0  38 31 3a 4c 44 58 23 26  41 45 3a 4c 44 59 23 26  |81:LDX#&AE:LDY#&|
000010d0  46 46 3a 4a 53 52 6f 73  62 79 74 65 3a 42 43 53  |FF:JSRosbyte:BCS|
000010e0  73 65 6f 72 3a 4c 44 41  23 26 38 31 3a 4c 44 58  |seor:LDA#&81:LDX|
000010f0  23 26 39 44 3a 4c 44 59  23 26 46 46 3a 4a 53 52  |#&9D:LDY#&FF:JSR|
00001100  6f 73 62 79 74 65 3a 42  43 43 73 70 61 63 77 61  |osbyte:BCCspacwa|
00001110  69 74 3a 52 54 53 3a 2e  6e 65 78 74 73 63 72 20  |it:RTS:.nextscr |
00001120  49 4e 43 74 69 74 63 79  63 3a 44 45 43 26 38 30  |INCtitcyc:DEC&80|
00001130  3a 4c 44 41 74 69 74 63  79 63 3a 80 23 33 3a 42  |:LDAtitcyc:.#3:B|
00001140  4e 45 73 70 61 63 77 61  69 74 3a 4a 4d 50 74 69  |NEspacwait:JMPti|
00001150  74 6c 6f 70 0d 01 72 2a  2e 73 65 6f 72 20 4c 44  |tlop..r*.seor LD|
00001160  41 73 6f 75 6e 64 3a 82  23 31 3a 53 54 41 73 6f  |Asound:.#1:STAso|
00001170  75 6e 64 3a 4a 4d 50 73  6f 75 6e 64 70 72 0d 01  |und:JMPsoundpr..|
00001180  7c 65 2e 6e 61 6d 65 20  45 51 55 42 31 37 3a 45  ||e.name EQUB17:E|
00001190  51 55 42 38 3a 45 51 55  42 35 3a 45 51 55 42 30  |QUB8:EQUB5:EQUB0|
000011a0  3a 45 51 55 42 36 3a 45  51 55 42 32 33 3a 45 51  |:EQUB6:EQUB23:EQ|
000011b0  55 42 31 33 3a 45 51 55  42 31 3a 45 51 55 42 31  |UB13:EQUB1:EQUB1|
000011c0  31 3a 45 51 55 42 30 3a  45 51 55 42 32 30 3a 45  |1:EQUB0:EQUB20:E|
000011d0  51 55 42 31 3a 45 51 55  42 31 35 3a 45 51 55 42  |QUB1:EQUB15:EQUB|
000011e0  32 35 35 0d 01 86 74 2e  73 61 76 65 76 61 72 20  |255...t.savevar |
000011f0  4c 44 41 26 37 30 3a 53  54 41 26 38 38 3a 4c 44  |LDA&70:STA&88:LD|
00001200  41 26 37 31 3a 53 54 41  26 38 39 3a 4c 44 41 26  |A&71:STA&89:LDA&|
00001210  37 32 3a 53 54 41 26 38  41 3a 4c 44 41 26 37 33  |72:STA&8A:LDA&73|
00001220  3a 53 54 41 26 38 42 3a  4c 44 41 78 73 65 74 3a  |:STA&8B:LDAxset:|
00001230  53 54 41 26 38 43 3a 4c  44 41 79 73 65 74 3a 53  |STA&8C:LDAyset:S|
00001240  54 41 26 38 44 3a 53 54  58 26 38 46 3a 53 54 59  |TA&8D:STX&8F:STY|
00001250  26 38 37 3a 52 54 53 0d  01 90 7c 2e 6c 6f 61 64  |&87:RTS...|.load|
00001260  76 61 72 20 4c 44 41 26  38 38 3a 53 54 41 26 37  |var LDA&88:STA&7|
00001270  30 3a 4c 44 41 26 38 39  3a 53 54 41 26 37 31 3a  |0:LDA&89:STA&71:|
00001280  4c 44 41 26 38 41 3a 53  54 41 26 37 32 3a 4c 44  |LDA&8A:STA&72:LD|
00001290  41 26 38 42 3a 53 54 41  26 37 33 3a 4c 44 41 26  |A&8B:STA&73:LDA&|
000012a0  38 43 3a 53 54 41 78 73  65 74 3a 4c 44 41 26 38  |8C:STAxset:LDA&8|
000012b0  44 3a 53 54 41 79 73 65  74 3a 4c 44 58 26 38 46  |D:STAyset:LDX&8F|
000012c0  3a 4c 44 59 26 38 37 3a  4a 4d 50 28 76 65 63 74  |:LDY&87:JMP(vect|
000012d0  6f 72 29 0d 01 9a 67 2e  78 6d 6f 6d 20 4c 44 58  |or)...g.xmom LDX|
000012e0  78 6d 6f 6e 74 3a 43 50  58 78 70 6f 73 3a 42 45  |xmont:CPXxpos:BE|
000012f0  51 6f 6e 79 6f 75 3a 42  43 43 72 69 74 65 6d 74  |Qonyou:BCCritemt|
00001300  3a 44 45 58 3a 4a 53 52  6c 72 78 6d 73 68 3a 42  |:DEX:JSRlrxmsh:B|
00001310  43 53 6f 6e 79 6f 75 3a  44 45 43 78 6d 6f 6e 74  |CSonyou:DECxmont|
00001320  3a 4c 44 41 23 31 3a 2e  78 6d 65 6e 64 20 53 54  |:LDA#1:.xmend ST|
00001330  41 6d 66 69 6e 65 3a 52  54 53 0d 01 a4 89 2e 72  |Amfine:RTS.....r|
00001340  69 74 65 6d 74 20 49 4e  58 3a 4a 53 52 6c 72 78  |itemt INX:JSRlrx|
00001350  6d 73 68 3a 42 43 53 6f  6e 79 6f 75 3a 49 4e 43  |msh:BCSonyou:INC|
00001360  78 6d 6f 6e 74 3a 4c 44  41 23 32 3a 42 4e 45 78  |xmont:LDA#2:BNEx|
00001370  6d 65 6e 64 3a 2e 6f 6e  79 6f 75 20 4c 44 41 23  |mend:.onyou LDA#|
00001380  30 3a 42 45 51 78 6d 65  6e 64 3a 2e 6c 72 78 6d  |0:BEQxmend:.lrxm|
00001390  73 68 20 53 54 58 78 73  65 74 3a 4c 44 41 79 6d  |sh STXxset:LDAym|
000013a0  6f 6e 74 3a 53 54 41 79  73 65 74 3a 4a 53 52 67  |ont:STAyset:JSRg|
000013b0  65 74 62 6c 6f 63 6b 3a  43 4d 50 23 26 31 30 3a  |etblock:CMP#&10:|
000013c0  52 54 53 0d 01 ae 78 2e  63 6d 70 74 78 74 20 45  |RTS...x.cmptxt E|
000013d0  51 55 42 33 3a 45 51 55  42 32 32 3a 45 51 55 42  |QUB3:EQUB22:EQUB|
000013e0  31 33 3a 45 51 55 42 37  3a 45 51 55 42 31 35 3a  |13:EQUB7:EQUB15:|
000013f0  45 51 55 42 31 3a 45 51  55 42 31 37 3a 45 51 55  |EQUB1:EQUB17:EQU|
00001400  42 31 38 3a 45 51 55 42  31 31 3a 45 51 55 42 31  |B18:EQUB11:EQUB1|
00001410  3a 45 51 55 42 31 37 3a  45 51 55 42 32 33 3a 45  |:EQUB17:EQUB23:E|
00001420  51 55 42 32 32 3a 45 51  55 42 31 33 3a 45 51 55  |QUB22:EQUB13:EQU|
00001430  42 31 36 3a 45 51 55 42  26 46 46 0d 01 b8 38 2e  |B16:EQUB&FF...8.|
00001440  6d 6f 76 65 6d 73 74 20  4c 44 41 6d 74 79 70 65  |movemst LDAmtype|
00001450  3a 43 4d 50 23 32 3a 42  45 51 79 70 61 74 72 6f  |:CMP#2:BEQypatro|
00001460  6c 3a 43 4d 50 23 31 3a  42 4e 45 6d 6f 76 65 6d  |l:CMP#1:BNEmovem|
00001470  71 75 74 0d 01 c2 b3 2e  78 70 61 74 72 6f 6c 20  |qut.....xpatrol |
00001480  4c 44 41 78 6d 6f 6e 74  3a 42 45 51 72 65 76 64  |LDAxmont:BEQrevd|
00001490  69 72 3a 43 4d 50 23 39  3a 42 45 51 72 65 76 64  |ir:CMP#9:BEQrevd|
000014a0  69 72 3a 41 44 43 6d 64  69 72 3a 53 54 41 78 73  |ir:ADCmdir:STAxs|
000014b0  65 74 3a 4c 44 41 79 6d  6f 6e 74 3a 53 54 41 79  |et:LDAymont:STAy|
000014c0  73 65 74 3a 4a 53 52 67  65 74 62 6c 6f 63 6b 3a  |set:JSRgetblock:|
000014d0  43 4d 50 23 26 31 30 3a  42 43 53 72 65 76 64 69  |CMP#&10:BCSrevdi|
000014e0  72 3a 49 4e 43 79 73 65  74 3a 4a 53 52 67 65 74  |r:INCyset:JSRget|
000014f0  62 6c 6f 63 6b 3a 43 4d  50 23 26 31 30 3a 42 43  |block:CMP#&10:BC|
00001500  43 72 65 76 64 69 72 3a  4c 44 41 78 73 65 74 3a  |Crevdir:LDAxset:|
00001510  53 54 41 78 6d 6f 6e 74  3a 2e 6d 6f 76 65 6d 71  |STAxmont:.movemq|
00001520  75 74 20 52 54 53 0d 01  cc 51 2e 72 65 76 64 69  |ut RTS...Q.revdi|
00001530  72 20 4c 44 41 6d 64 69  72 3a 82 23 26 46 45 3a  |r LDAmdir:.#&FE:|
00001540  53 54 41 6d 64 69 72 3a  43 4c 43 3a 41 44 43 78  |STAmdir:CLC:ADCx|
00001550  6d 6f 6e 74 3a 53 54 41  78 6d 6f 6e 74 3a 4c 44  |mont:STAxmont:LD|
00001560  41 6d 66 69 6e 65 3a 82  23 33 3a 53 54 41 6d 66  |Amfine:.#3:STAmf|
00001570  69 6e 65 3a 52 54 53 0d  01 d6 99 2e 79 70 61 74  |ine:RTS.....ypat|
00001580  72 6f 6c 20 4c 44 58 79  6d 6f 6e 74 3a 43 50 58  |rol LDXymont:CPX|
00001590  79 70 6f 73 3a 42 45 51  78 61 64 6a 62 3a 42 43  |ypos:BEQxadjb:BC|
000015a0  43 64 6f 77 6e 6d 74 3a  44 45 58 3a 4a 53 52 79  |Cdownmt:DEX:JSRy|
000015b0  70 73 68 72 3a 44 45 43  79 6d 6f 6e 74 3a 4c 44  |pshr:DECymont:LD|
000015c0  41 23 36 3a 53 54 41 6d  66 69 6e 65 3a 52 54 53  |A#6:STAmfine:RTS|
000015d0  3a 2e 79 70 73 68 72 20  53 54 58 79 73 65 74 3a  |:.ypshr STXyset:|
000015e0  4c 44 41 78 6d 6f 6e 74  3a 53 54 41 78 73 65 74  |LDAxmont:STAxset|
000015f0  3a 4a 53 52 67 65 74 62  6c 6f 63 6b 3a 43 4d 50  |:JSRgetblock:CMP|
00001600  23 26 31 30 3a 42 43 53  78 61 64 6a 3a 52 54 53  |#&10:BCSxadj:RTS|
00001610  0d 01 e0 51 2e 64 6f 77  6e 6d 74 20 49 4e 58 3a  |...Q.downmt INX:|
00001620  4a 53 52 79 70 73 68 72  3a 49 4e 43 79 6d 6f 6e  |JSRypshr:INCymon|
00001630  74 3a 4c 44 41 23 35 3a  53 54 41 6d 66 69 6e 65  |t:LDA#5:STAmfine|
00001640  3a 52 54 53 3a 2e 78 61  64 6a 20 50 4c 41 3a 50  |:RTS:.xadj PLA:P|
00001650  4c 41 3a 2e 78 61 64 6a  62 20 4a 4d 50 78 6d 6f  |LA:.xadjb JMPxmo|
00001660  6d 0d 01 ea 68 2e 63 6d  70 74 78 74 62 20 45 51  |m...h.cmptxtb EQ|
00001670  55 42 37 3a 45 51 55 42  31 3a 45 51 55 42 31 32  |UB7:EQUB1:EQUB12|
00001680  3a 45 51 55 42 35 3a 45  51 55 42 30 3a 45 51 55  |:EQUB5:EQUB0:EQU|
00001690  42 33 3a 45 51 55 42 32  32 3a 45 51 55 42 31 32  |B3:EQUB22:EQUB12|
000016a0  3a 45 51 55 42 31 34 3a  45 51 55 42 31 31 3a 45  |:EQUB14:EQUB11:E|
000016b0  51 55 42 35 3a 45 51 55  42 31 37 3a 45 51 55 42  |QUB5:EQUB17:EQUB|
000016c0  35 3a 45 51 55 42 26 46  46 0d 01 f4 39 5d 3a f1  |5:EQUB&FF...9]:.|
000016d0  8a 30 2c 36 29 7e 50 25  3a e7 20 50 25 3e 26 31  |.0,6)~P%:. P%>&1|
000016e0  41 30 30 20 8c 20 f1 27  27 22 43 6f 64 65 20 4f  |A00 . .''"Code O|
000016f0  76 65 72 66 6c 6f 77 20  74 6f 3a 22 3b 7e 50 25  |verflow to:";~P%|
00001700  3a e0 0d 01 fe 05 e1 0d  ff                       |:........|
00001709