P%=&400:O%=&5400:[OPT pass
�.credc EQUB4:EQUB22:EQUB12:EQUB23:EQUB13:EQUB23:EQUB3:EQUB0:EQUB6:EQUB22:EQUB15:EQUB4:EQUB255:.credd EQUB23:EQUB31:EQUB31:EQUB28:EQUB255
�.space EQUB14:EQUB15:EQUB5:EQUB16:EQUB16:EQUB0:EQUB16:EQUB14:EQUB1:EQUB3:EQUB5:EQUB0:EQUB17:EQUB22:EQUB0:EQUB16:EQUB17:EQUB1:EQUB15:EQUB17:EQUB255
(�.point LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:ADC#&20:STApoiyn+2:TAX:.poiyn LDA&20FE:�#&80:BNEvis:STXpois+2:STXorps+2:LDA#&80:.orps �A&20FE:.pois STA&30FE:SED:LDAscore:CLC:ADC#1:STAscore:LDAscore+1:ADC#0:STAscore+1
2CLD:INCscrch:.vis RTS
<�.scorb LDAscore:�#15:CLC:ADC#22:STAscrtxt+2:LDAscore:LSR A:LSR A:LSR A:LSR A:CLC:ADC#22:STAscrtxt+1:LDAscore+1:�#15:CLC:ADC#22:STAscrtxt:LDA#3:STAxch:LDA#30:STAych:LDA#17:STAcol:LDA#(scrtxt � 256):STA&72:LDA#(scrtxt � 256)
FSTA&73:JMPstring
P�.doorch PHA:CMP#30:BNEnodor:LDX#&C8:JSRkeybyte:BCCnodor:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:ADC#&20:JSRadofcol:SEC:SBC#1:CMPobjects:BEQdoor:CMPobjects+1:BNEnodor:.door PLA:SEC:RTS:.nodor PLA:CLC:RTS
Z2.locktype LSR A:ROR A:ROR A:�#&C0:STA&72:LDY#0
d�.transtop LDA(&70),Y:�#&C0:JSRcolbyt:STA(&70),Y:INY:CPY#&40:BNEtranstop:LDY#0:LDA&72:CLC:ADC#&40:STA&72:LDA&70:CLC:ADC#&80:STA&70:LDA&71:ADC#2:STA&71
n�.transbot LDA(&70),Y:�#&C0:JSRcolbyt:STA(&70),Y:INY:CPY#&40:BNEtransbot:RTS:.colbyt PHA:LDAscrno:JSRadofcol:TAX:LDAdoorc,X:TAX:PLA:.colblop CLC:ADC(&72),Y:DEX:BNEcolblop:RTS
x^.adofcol STAreadcll+2:STAreadclh+2:.readcll LDA&10FE:LSR A:LSR A:LSR A:LSR A:�#4:STAsmad+1
�?.readclh LDA&10FF:ASL A:ROL A:ROL A:�#3:CLC:.smad ADC#0:RTS
��.puzz LDA&FA0,Y:LSR A:LSR A:LSR A:LSR A:CMPxscr:BNEnopuzz:LDA&FC0,Y:LSR A:LSR A:LSR A:LSR A:CMPyscr:BEQpsolv:.nopuzz RTS:.psolv LDAsound:BEQpuzsnd:LDA#7:LDX#(puzn � 256):LDY#(puzn � 256):JSRosword
��.puzsnd LDY&70:LDA&700,Y:CMP#32:BCSpuswap:TAX:LDA&F20,Y:STA&F20,X:LDA&F40,Y:STA&F40,X:LDA&F60,Y:STA&F60,X:LDA&F80,Y:STA&F80,X:.puswap LDA#&78:STA&F20,Y:LDA&720,Y:CMP#32:BCSpumovo:TAX:LDA&740,Y:�#15:STA&F40,X:LDA&740,Y
��LSR A:LSR A:LSR A:LSR A:STA&F20,X:.pumovo LDA&760,Y:CMP#&FF:BNEpuzbloc:.blopcb LDA#1:STAscrch:SED:LDAscore:CLC:ADC#&20:STAscore:LDAscore+1:ADC#0:STAscore+1:CLD:JMPcomplete:.puzn EQUW1:EQUW3:EQUW52:EQUW20
��.puzbloc LDXxscr:STXxch:LDXyscr:STXych:�#15:STAyscr:LDA&760,Y:LSR A:LSR A:LSR A:LSR A:STAxscr:.blolop LDA&780,Y:�#15:STAyset:LDA&780,Y:LSR A:LSR A:LSR A:LSR A:STAxset:PHA:TYA:PHA:JSRgetblock:PLA:TAX:PLA:PHA:TAY:LDAxdata,Y:TAY
�ALDA&7A0,X:�#3:LSR A:ROR A:ROR A:STAcol:LDA(&70),Y:�#&3F:�Acol
��STA(&70),Y:INY:LDA&7A0,X:�#12:ASL A:ASL A:ASL A:ASL A:STAcol:LDA(&70),Y:�#&3F:�Acol:STA(&70),Y:PLA:LSR A:TAY:LDAhbdat,Y:TAY:LDA&7A0,X:�#16:ASL A:ASL A:STAcol:LDAxset:�#1:BEQsecpuz:LDA(&70),Y:�#&7F:CLC:ADCcol:ADCcol
�STA(&70),Y
�<JMPfirpuz:.secpuz LDA(&70),Y:�#&BF:CLC:ADCcol:STA(&70),Y
�m.firpuz TXA:CLC:ADC#&40:TAY:CMP#&80:BCSendbloc:JMPblolop:.endbloc LDAxch:STAxscr:LDAych:STAyscr:JMPblopcb
�z.namscr LDY#0:TYA:.scrnam STAnamt,Y:INY:CPY#16:BNEscrnam:LDAyscr:ASL A:ASL A:ASL A:ASL A:CLC:ADCxscr:TAY:LDA&6A0,Y:TAX
��LDA&900,X:STAxch:LSR A:STAcol:LDA#8:SEC:SBCcol:TAY:.wrnam LDA&901,X:STAnamt,Y:INY:INX:DECxch:BNEwrnam:LDA#17:STAcol:LDX#2:STXxch:DEX:STXych:LDA#(namt � 256):STA&72:LDA#(namt � 256):STA&73:JMPstring
�,]:� P%>&6A0 � �"Code Overflow to:";~P%:�

P%=&100:O%=&6800:[OPT pass

L.titscrs EQUB&34:EQUB&52:EQUB&42:EQUB&E2:EQUB&51:EQUB&93:EQUB&90:EQUB&E1

*.monpd EQUB&02:EQUB&04:EQUB&06:EQUB&08

"c.jumpn EQUW1:EQUW1:EQUW52:EQUW5:.zapn EQUW1:EQUW2:EQUW52:EQUW10:.switn EQUW1:EQUW3:EQUW52:EQUW2

,�.sequen EQUB0:EQUB14:EQUB28:.lowad EQUB0:EQUB&30:EQUB&D0:EQUB&B0:EQUB&50:EQUB&80:EQUB&80:.highad EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2

6�EQUB0:EQUB&20:EQUB&E0:EQUB&A0:EQUB&60:EQUB&80:EQUB&80:EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB&FD:EQUB2:EQUB0:EQUB&10:EQUB&F0:EQUB&90:EQUB&70:EQUB0:EQUB0:EQUB0:EQUB0:EQUB&FF:EQUB2:EQUB2:EQUB0:EQUB0

@�.xdata EQUB0:EQUB2:EQUB5:EQUB7:EQUB10:EQUB12:EQUB15:EQUB17:EQUB20:EQUB22:.hbdat EQUB4:EQUB9:EQUB14:EQUB19:EQUB24:.doorc EQUB0:EQUB1:EQUB4:EQUB5:EQUB16:EQUB17:EQUB20:EQUB21

J(.namt EQUS"----------------":EQUB255

Tm.creda EQUB14:EQUB15:EQUB22:EQUB7:EQUB15:EQUB1:EQUB12:EQUB12:EQUB5:EQUB4:EQUB0:EQUB1:EQUB13:EQUB4:EQUB255

^X.credb EQUB4:EQUB5:EQUB16:EQUB23:EQUB7:EQUB13:EQUB5:EQUB4:EQUB0:EQUB2:EQUB21:EQUB255

hN.sndon EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB13:EQUB0:EQUB255

rN.sndoff EQUB16:EQUB22:EQUB18:EQUB13:EQUB4:EQUB0:EQUB22:EQUB6:EQUB6:EQUB255

|$.enrup EQUW1:EQUW1:EQUW52:EQUW20

�]

��
�

00000000  0d 00 0a 1e 50 25 3d 26  34 30 30 3a 4f 25 3d 26  |....P%=&400:O%=&|
00000010  35 34 30 30 3a 5b 4f 50  54 20 70 61 73 73 0d 00  |5400:[OPT pass..|
00000020  14 8c 2e 63 72 65 64 63  20 45 51 55 42 34 3a 45  |...credc EQUB4:E|
00000030  51 55 42 32 32 3a 45 51  55 42 31 32 3a 45 51 55  |QUB22:EQUB12:EQU|
00000040  42 32 33 3a 45 51 55 42  31 33 3a 45 51 55 42 32  |B23:EQUB13:EQUB2|
00000050  33 3a 45 51 55 42 33 3a  45 51 55 42 30 3a 45 51  |3:EQUB3:EQUB0:EQ|
00000060  55 42 36 3a 45 51 55 42  32 32 3a 45 51 55 42 31  |UB6:EQUB22:EQUB1|
00000070  35 3a 45 51 55 42 34 3a  45 51 55 42 32 35 35 3a  |5:EQUB4:EQUB255:|
00000080  2e 63 72 65 64 64 20 45  51 55 42 32 33 3a 45 51  |.credd EQUB23:EQ|
00000090  55 42 33 31 3a 45 51 55  42 33 31 3a 45 51 55 42  |UB31:EQUB31:EQUB|
000000a0  32 38 3a 45 51 55 42 32  35 35 0d 00 1e 96 2e 73  |28:EQUB255.....s|
000000b0  70 61 63 65 20 45 51 55  42 31 34 3a 45 51 55 42  |pace EQUB14:EQUB|
000000c0  31 35 3a 45 51 55 42 35  3a 45 51 55 42 31 36 3a  |15:EQUB5:EQUB16:|
000000d0  45 51 55 42 31 36 3a 45  51 55 42 30 3a 45 51 55  |EQUB16:EQUB0:EQU|
000000e0  42 31 36 3a 45 51 55 42  31 34 3a 45 51 55 42 31  |B16:EQUB14:EQUB1|
000000f0  3a 45 51 55 42 33 3a 45  51 55 42 35 3a 45 51 55  |:EQUB3:EQUB5:EQU|
00000100  42 30 3a 45 51 55 42 31  37 3a 45 51 55 42 32 32  |B0:EQUB17:EQUB22|
00000110  3a 45 51 55 42 30 3a 45  51 55 42 31 36 3a 45 51  |:EQUB0:EQUB16:EQ|
00000120  55 42 31 37 3a 45 51 55  42 31 3a 45 51 55 42 31  |UB17:EQUB1:EQUB1|
00000130  35 3a 45 51 55 42 31 37  3a 45 51 55 42 32 35 35  |5:EQUB17:EQUB255|
00000140  0d 00 28 df 2e 70 6f 69  6e 74 20 4c 44 41 79 73  |..(..point LDAys|
00000150  63 72 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  |cr:ASL A:ASL A:A|
00000160  53 4c 20 41 3a 41 53 4c  20 41 3a 43 4c 43 3a 41  |SL A:ASL A:CLC:A|
00000170  44 43 78 73 63 72 3a 41  44 43 23 26 32 30 3a 53  |DCxscr:ADC#&20:S|
00000180  54 41 70 6f 69 79 6e 2b  32 3a 54 41 58 3a 2e 70  |TApoiyn+2:TAX:.p|
00000190  6f 69 79 6e 20 4c 44 41  26 32 30 46 45 3a 80 23  |oiyn LDA&20FE:.#|
000001a0  26 38 30 3a 42 4e 45 76  69 73 3a 53 54 58 70 6f  |&80:BNEvis:STXpo|
000001b0  69 73 2b 32 3a 53 54 58  6f 72 70 73 2b 32 3a 4c  |is+2:STXorps+2:L|
000001c0  44 41 23 26 38 30 3a 2e  6f 72 70 73 20 84 41 26  |DA#&80:.orps .A&|
000001d0  32 30 46 45 3a 2e 70 6f  69 73 20 53 54 41 26 33  |20FE:.pois STA&3|
000001e0  30 46 45 3a 53 45 44 3a  4c 44 41 73 63 6f 72 65  |0FE:SED:LDAscore|
000001f0  3a 43 4c 43 3a 41 44 43  23 31 3a 53 54 41 73 63  |:CLC:ADC#1:STAsc|
00000200  6f 72 65 3a 4c 44 41 73  63 6f 72 65 2b 31 3a 41  |ore:LDAscore+1:A|
00000210  44 43 23 30 3a 53 54 41  73 63 6f 72 65 2b 31 0d  |DC#0:STAscore+1.|
00000220  00 32 19 43 4c 44 3a 49  4e 43 73 63 72 63 68 3a  |.2.CLD:INCscrch:|
00000230  2e 76 69 73 20 52 54 53  0d 00 3c e2 2e 73 63 6f  |.vis RTS..<..sco|
00000240  72 62 20 4c 44 41 73 63  6f 72 65 3a 80 23 31 35  |rb LDAscore:.#15|
00000250  3a 43 4c 43 3a 41 44 43  23 32 32 3a 53 54 41 73  |:CLC:ADC#22:STAs|
00000260  63 72 74 78 74 2b 32 3a  4c 44 41 73 63 6f 72 65  |crtxt+2:LDAscore|
00000270  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000280  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00000290  23 32 32 3a 53 54 41 73  63 72 74 78 74 2b 31 3a  |#22:STAscrtxt+1:|
000002a0  4c 44 41 73 63 6f 72 65  2b 31 3a 80 23 31 35 3a  |LDAscore+1:.#15:|
000002b0  43 4c 43 3a 41 44 43 23  32 32 3a 53 54 41 73 63  |CLC:ADC#22:STAsc|
000002c0  72 74 78 74 3a 4c 44 41  23 33 3a 53 54 41 78 63  |rtxt:LDA#3:STAxc|
000002d0  68 3a 4c 44 41 23 33 30  3a 53 54 41 79 63 68 3a  |h:LDA#30:STAych:|
000002e0  4c 44 41 23 31 37 3a 53  54 41 63 6f 6c 3a 4c 44  |LDA#17:STAcol:LD|
000002f0  41 23 28 73 63 72 74 78  74 20 83 20 32 35 36 29  |A#(scrtxt . 256)|
00000300  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 73 63 72  |:STA&72:LDA#(scr|
00000310  74 78 74 20 81 20 32 35  36 29 0d 00 46 14 53 54  |txt . 256)..F.ST|
00000320  41 26 37 33 3a 4a 4d 50  73 74 72 69 6e 67 0d 00  |A&73:JMPstring..|
00000330  50 d2 2e 64 6f 6f 72 63  68 20 50 48 41 3a 43 4d  |P..doorch PHA:CM|
00000340  50 23 33 30 3a 42 4e 45  6e 6f 64 6f 72 3a 4c 44  |P#30:BNEnodor:LD|
00000350  58 23 26 43 38 3a 4a 53  52 6b 65 79 62 79 74 65  |X#&C8:JSRkeybyte|
00000360  3a 42 43 43 6e 6f 64 6f  72 3a 4c 44 41 79 73 63  |:BCCnodor:LDAysc|
00000370  72 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |r:ASL A:ASL A:AS|
00000380  4c 20 41 3a 41 53 4c 20  41 3a 43 4c 43 3a 41 44  |L A:ASL A:CLC:AD|
00000390  43 78 73 63 72 3a 41 44  43 23 26 32 30 3a 4a 53  |Cxscr:ADC#&20:JS|
000003a0  52 61 64 6f 66 63 6f 6c  3a 53 45 43 3a 53 42 43  |Radofcol:SEC:SBC|
000003b0  23 31 3a 43 4d 50 6f 62  6a 65 63 74 73 3a 42 45  |#1:CMPobjects:BE|
000003c0  51 64 6f 6f 72 3a 43 4d  50 6f 62 6a 65 63 74 73  |Qdoor:CMPobjects|
000003d0  2b 31 3a 42 4e 45 6e 6f  64 6f 72 3a 2e 64 6f 6f  |+1:BNEnodor:.doo|
000003e0  72 20 50 4c 41 3a 53 45  43 3a 52 54 53 3a 2e 6e  |r PLA:SEC:RTS:.n|
000003f0  6f 64 6f 72 20 50 4c 41  3a 43 4c 43 3a 52 54 53  |odor PLA:CLC:RTS|
00000400  0d 00 5a 32 2e 6c 6f 63  6b 74 79 70 65 20 4c 53  |..Z2.locktype LS|
00000410  52 20 41 3a 52 4f 52 20  41 3a 52 4f 52 20 41 3a  |R A:ROR A:ROR A:|
00000420  80 23 26 43 30 3a 53 54  41 26 37 32 3a 4c 44 59  |.#&C0:STA&72:LDY|
00000430  23 30 0d 00 64 99 2e 74  72 61 6e 73 74 6f 70 20  |#0..d..transtop |
00000440  4c 44 41 28 26 37 30 29  2c 59 3a 80 23 26 43 30  |LDA(&70),Y:.#&C0|
00000450  3a 4a 53 52 63 6f 6c 62  79 74 3a 53 54 41 28 26  |:JSRcolbyt:STA(&|
00000460  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
00000470  30 3a 42 4e 45 74 72 61  6e 73 74 6f 70 3a 4c 44  |0:BNEtranstop:LD|
00000480  59 23 30 3a 4c 44 41 26  37 32 3a 43 4c 43 3a 41  |Y#0:LDA&72:CLC:A|
00000490  44 43 23 26 34 30 3a 53  54 41 26 37 32 3a 4c 44  |DC#&40:STA&72:LD|
000004a0  41 26 37 30 3a 43 4c 43  3a 41 44 43 23 26 38 30  |A&70:CLC:ADC#&80|
000004b0  3a 53 54 41 26 37 30 3a  4c 44 41 26 37 31 3a 41  |:STA&70:LDA&71:A|
000004c0  44 43 23 32 3a 53 54 41  26 37 31 0d 00 6e b1 2e  |DC#2:STA&71..n..|
000004d0  74 72 61 6e 73 62 6f 74  20 4c 44 41 28 26 37 30  |transbot LDA(&70|
000004e0  29 2c 59 3a 80 23 26 43  30 3a 4a 53 52 63 6f 6c  |),Y:.#&C0:JSRcol|
000004f0  62 79 74 3a 53 54 41 28  26 37 30 29 2c 59 3a 49  |byt:STA(&70),Y:I|
00000500  4e 59 3a 43 50 59 23 26  34 30 3a 42 4e 45 74 72  |NY:CPY#&40:BNEtr|
00000510  61 6e 73 62 6f 74 3a 52  54 53 3a 2e 63 6f 6c 62  |ansbot:RTS:.colb|
00000520  79 74 20 50 48 41 3a 4c  44 41 73 63 72 6e 6f 3a  |yt PHA:LDAscrno:|
00000530  4a 53 52 61 64 6f 66 63  6f 6c 3a 54 41 58 3a 4c  |JSRadofcol:TAX:L|
00000540  44 41 64 6f 6f 72 63 2c  58 3a 54 41 58 3a 50 4c  |DAdoorc,X:TAX:PL|
00000550  41 3a 2e 63 6f 6c 62 6c  6f 70 20 43 4c 43 3a 41  |A:.colblop CLC:A|
00000560  44 43 28 26 37 32 29 2c  59 3a 44 45 58 3a 42 4e  |DC(&72),Y:DEX:BN|
00000570  45 63 6f 6c 62 6c 6f 70  3a 52 54 53 0d 00 78 5e  |Ecolblop:RTS..x^|
00000580  2e 61 64 6f 66 63 6f 6c  20 53 54 41 72 65 61 64  |.adofcol STAread|
00000590  63 6c 6c 2b 32 3a 53 54  41 72 65 61 64 63 6c 68  |cll+2:STAreadclh|
000005a0  2b 32 3a 2e 72 65 61 64  63 6c 6c 20 4c 44 41 26  |+2:.readcll LDA&|
000005b0  31 30 46 45 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |10FE:LSR A:LSR A|
000005c0  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 80 23 34  |:LSR A:LSR A:.#4|
000005d0  3a 53 54 41 73 6d 61 64  2b 31 0d 00 82 3f 2e 72  |:STAsmad+1...?.r|
000005e0  65 61 64 63 6c 68 20 4c  44 41 26 31 30 46 46 3a  |eadclh LDA&10FF:|
000005f0  41 53 4c 20 41 3a 52 4f  4c 20 41 3a 52 4f 4c 20  |ASL A:ROL A:ROL |
00000600  41 3a 80 23 33 3a 43 4c  43 3a 2e 73 6d 61 64 20  |A:.#3:CLC:.smad |
00000610  41 44 43 23 30 3a 52 54  53 0d 00 8c c8 2e 70 75  |ADC#0:RTS.....pu|
00000620  7a 7a 20 4c 44 41 26 46  41 30 2c 59 3a 4c 53 52  |zz LDA&FA0,Y:LSR|
00000630  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  | A:LSR A:LSR A:L|
00000640  53 52 20 41 3a 43 4d 50  78 73 63 72 3a 42 4e 45  |SR A:CMPxscr:BNE|
00000650  6e 6f 70 75 7a 7a 3a 4c  44 41 26 46 43 30 2c 59  |nopuzz:LDA&FC0,Y|
00000660  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00000670  20 41 3a 4c 53 52 20 41  3a 43 4d 50 79 73 63 72  | A:LSR A:CMPyscr|
00000680  3a 42 45 51 70 73 6f 6c  76 3a 2e 6e 6f 70 75 7a  |:BEQpsolv:.nopuz|
00000690  7a 20 52 54 53 3a 2e 70  73 6f 6c 76 20 4c 44 41  |z RTS:.psolv LDA|
000006a0  73 6f 75 6e 64 3a 42 45  51 70 75 7a 73 6e 64 3a  |sound:BEQpuzsnd:|
000006b0  4c 44 41 23 37 3a 4c 44  58 23 28 70 75 7a 6e 20  |LDA#7:LDX#(puzn |
000006c0  83 20 32 35 36 29 3a 4c  44 59 23 28 70 75 7a 6e  |. 256):LDY#(puzn|
000006d0  20 81 20 32 35 36 29 3a  4a 53 52 6f 73 77 6f 72  | . 256):JSRoswor|
000006e0  64 0d 00 96 dd 2e 70 75  7a 73 6e 64 20 4c 44 59  |d.....puzsnd LDY|
000006f0  26 37 30 3a 4c 44 41 26  37 30 30 2c 59 3a 43 4d  |&70:LDA&700,Y:CM|
00000700  50 23 33 32 3a 42 43 53  70 75 73 77 61 70 3a 54  |P#32:BCSpuswap:T|
00000710  41 58 3a 4c 44 41 26 46  32 30 2c 59 3a 53 54 41  |AX:LDA&F20,Y:STA|
00000720  26 46 32 30 2c 58 3a 4c  44 41 26 46 34 30 2c 59  |&F20,X:LDA&F40,Y|
00000730  3a 53 54 41 26 46 34 30  2c 58 3a 4c 44 41 26 46  |:STA&F40,X:LDA&F|
00000740  36 30 2c 59 3a 53 54 41  26 46 36 30 2c 58 3a 4c  |60,Y:STA&F60,X:L|
00000750  44 41 26 46 38 30 2c 59  3a 53 54 41 26 46 38 30  |DA&F80,Y:STA&F80|
00000760  2c 58 3a 2e 70 75 73 77  61 70 20 4c 44 41 23 26  |,X:.puswap LDA#&|
00000770  37 38 3a 53 54 41 26 46  32 30 2c 59 3a 4c 44 41  |78:STA&F20,Y:LDA|
00000780  26 37 32 30 2c 59 3a 43  4d 50 23 33 32 3a 42 43  |&720,Y:CMP#32:BC|
00000790  53 70 75 6d 6f 76 6f 3a  54 41 58 3a 4c 44 41 26  |Spumovo:TAX:LDA&|
000007a0  37 34 30 2c 59 3a 80 23  31 35 3a 53 54 41 26 46  |740,Y:.#15:STA&F|
000007b0  34 30 2c 58 3a 4c 44 41  26 37 34 30 2c 59 0d 00  |40,X:LDA&740,Y..|
000007c0  a0 cf 4c 53 52 20 41 3a  4c 53 52 20 41 3a 4c 53  |..LSR A:LSR A:LS|
000007d0  52 20 41 3a 4c 53 52 20  41 3a 53 54 41 26 46 32  |R A:LSR A:STA&F2|
000007e0  30 2c 58 3a 2e 70 75 6d  6f 76 6f 20 4c 44 41 26  |0,X:.pumovo LDA&|
000007f0  37 36 30 2c 59 3a 43 4d  50 23 26 46 46 3a 42 4e  |760,Y:CMP#&FF:BN|
00000800  45 70 75 7a 62 6c 6f 63  3a 2e 62 6c 6f 70 63 62  |Epuzbloc:.blopcb|
00000810  20 4c 44 41 23 31 3a 53  54 41 73 63 72 63 68 3a  | LDA#1:STAscrch:|
00000820  53 45 44 3a 4c 44 41 73  63 6f 72 65 3a 43 4c 43  |SED:LDAscore:CLC|
00000830  3a 41 44 43 23 26 32 30  3a 53 54 41 73 63 6f 72  |:ADC#&20:STAscor|
00000840  65 3a 4c 44 41 73 63 6f  72 65 2b 31 3a 41 44 43  |e:LDAscore+1:ADC|
00000850  23 30 3a 53 54 41 73 63  6f 72 65 2b 31 3a 43 4c  |#0:STAscore+1:CL|
00000860  44 3a 4a 4d 50 63 6f 6d  70 6c 65 74 65 3a 2e 70  |D:JMPcomplete:.p|
00000870  75 7a 6e 20 45 51 55 57  31 3a 45 51 55 57 33 3a  |uzn EQUW1:EQUW3:|
00000880  45 51 55 57 35 32 3a 45  51 55 57 32 30 0d 00 aa  |EQUW52:EQUW20...|
00000890  e5 2e 70 75 7a 62 6c 6f  63 20 4c 44 58 78 73 63  |..puzbloc LDXxsc|
000008a0  72 3a 53 54 58 78 63 68  3a 4c 44 58 79 73 63 72  |r:STXxch:LDXyscr|
000008b0  3a 53 54 58 79 63 68 3a  80 23 31 35 3a 53 54 41  |:STXych:.#15:STA|
000008c0  79 73 63 72 3a 4c 44 41  26 37 36 30 2c 59 3a 4c  |yscr:LDA&760,Y:L|
000008d0  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
000008e0  3a 4c 53 52 20 41 3a 53  54 41 78 73 63 72 3a 2e  |:LSR A:STAxscr:.|
000008f0  62 6c 6f 6c 6f 70 20 4c  44 41 26 37 38 30 2c 59  |blolop LDA&780,Y|
00000900  3a 80 23 31 35 3a 53 54  41 79 73 65 74 3a 4c 44  |:.#15:STAyset:LD|
00000910  41 26 37 38 30 2c 59 3a  4c 53 52 20 41 3a 4c 53  |A&780,Y:LSR A:LS|
00000920  52 20 41 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |R A:LSR A:LSR A:|
00000930  53 54 41 78 73 65 74 3a  50 48 41 3a 54 59 41 3a  |STAxset:PHA:TYA:|
00000940  50 48 41 3a 4a 53 52 67  65 74 62 6c 6f 63 6b 3a  |PHA:JSRgetblock:|
00000950  50 4c 41 3a 54 41 58 3a  50 4c 41 3a 50 48 41 3a  |PLA:TAX:PLA:PHA:|
00000960  54 41 59 3a 4c 44 41 78  64 61 74 61 2c 59 3a 54  |TAY:LDAxdata,Y:T|
00000970  41 59 0d 00 b4 41 4c 44  41 26 37 41 30 2c 58 3a  |AY...ALDA&7A0,X:|
00000980  80 23 33 3a 4c 53 52 20  41 3a 52 4f 52 20 41 3a  |.#3:LSR A:ROR A:|
00000990  52 4f 52 20 41 3a 53 54  41 63 6f 6c 3a 4c 44 41  |ROR A:STAcol:LDA|
000009a0  28 26 37 30 29 2c 59 3a  80 23 26 33 46 3a 84 41  |(&70),Y:.#&3F:.A|
000009b0  63 6f 6c 0d 00 be da 53  54 41 28 26 37 30 29 2c  |col....STA(&70),|
000009c0  59 3a 49 4e 59 3a 4c 44  41 26 37 41 30 2c 58 3a  |Y:INY:LDA&7A0,X:|
000009d0  80 23 31 32 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |.#12:ASL A:ASL A|
000009e0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 53 54 41  |:ASL A:ASL A:STA|
000009f0  63 6f 6c 3a 4c 44 41 28  26 37 30 29 2c 59 3a 80  |col:LDA(&70),Y:.|
00000a00  23 26 33 46 3a 84 41 63  6f 6c 3a 53 54 41 28 26  |#&3F:.Acol:STA(&|
00000a10  37 30 29 2c 59 3a 50 4c  41 3a 4c 53 52 20 41 3a  |70),Y:PLA:LSR A:|
00000a20  54 41 59 3a 4c 44 41 68  62 64 61 74 2c 59 3a 54  |TAY:LDAhbdat,Y:T|
00000a30  41 59 3a 4c 44 41 26 37  41 30 2c 58 3a 80 23 31  |AY:LDA&7A0,X:.#1|
00000a40  36 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 53 54  |6:ASL A:ASL A:ST|
00000a50  41 63 6f 6c 3a 4c 44 41  78 73 65 74 3a 80 23 31  |Acol:LDAxset:.#1|
00000a60  3a 42 45 51 73 65 63 70  75 7a 3a 4c 44 41 28 26  |:BEQsecpuz:LDA(&|
00000a70  37 30 29 2c 59 3a 80 23  26 37 46 3a 43 4c 43 3a  |70),Y:.#&7F:CLC:|
00000a80  41 44 43 63 6f 6c 3a 41  44 43 63 6f 6c 0d 00 c8  |ADCcol:ADCcol...|
00000a90  0e 53 54 41 28 26 37 30  29 2c 59 0d 00 d2 3c 4a  |.STA(&70),Y...<J|
00000aa0  4d 50 66 69 72 70 75 7a  3a 2e 73 65 63 70 75 7a  |MPfirpuz:.secpuz|
00000ab0  20 4c 44 41 28 26 37 30  29 2c 59 3a 80 23 26 42  | LDA(&70),Y:.#&B|
00000ac0  46 3a 43 4c 43 3a 41 44  43 63 6f 6c 3a 53 54 41  |F:CLC:ADCcol:STA|
00000ad0  28 26 37 30 29 2c 59 0d  00 dc 6d 2e 66 69 72 70  |(&70),Y...m.firp|
00000ae0  75 7a 20 54 58 41 3a 43  4c 43 3a 41 44 43 23 26  |uz TXA:CLC:ADC#&|
00000af0  34 30 3a 54 41 59 3a 43  4d 50 23 26 38 30 3a 42  |40:TAY:CMP#&80:B|
00000b00  43 53 65 6e 64 62 6c 6f  63 3a 4a 4d 50 62 6c 6f  |CSendbloc:JMPblo|
00000b10  6c 6f 70 3a 2e 65 6e 64  62 6c 6f 63 20 4c 44 41  |lop:.endbloc LDA|
00000b20  78 63 68 3a 53 54 41 78  73 63 72 3a 4c 44 41 79  |xch:STAxscr:LDAy|
00000b30  63 68 3a 53 54 41 79 73  63 72 3a 4a 4d 50 62 6c  |ch:STAyscr:JMPbl|
00000b40  6f 70 63 62 0d 00 e6 7a  2e 6e 61 6d 73 63 72 20  |opcb...z.namscr |
00000b50  4c 44 59 23 30 3a 54 59  41 3a 2e 73 63 72 6e 61  |LDY#0:TYA:.scrna|
00000b60  6d 20 53 54 41 6e 61 6d  74 2c 59 3a 49 4e 59 3a  |m STAnamt,Y:INY:|
00000b70  43 50 59 23 31 36 3a 42  4e 45 73 63 72 6e 61 6d  |CPY#16:BNEscrnam|
00000b80  3a 4c 44 41 79 73 63 72  3a 41 53 4c 20 41 3a 41  |:LDAyscr:ASL A:A|
00000b90  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00000ba0  3a 43 4c 43 3a 41 44 43  78 73 63 72 3a 54 41 59  |:CLC:ADCxscr:TAY|
00000bb0  3a 4c 44 41 26 36 41 30  2c 59 3a 54 41 58 0d 00  |:LDA&6A0,Y:TAX..|
00000bc0  f0 c9 4c 44 41 26 39 30  30 2c 58 3a 53 54 41 78  |..LDA&900,X:STAx|
00000bd0  63 68 3a 4c 53 52 20 41  3a 53 54 41 63 6f 6c 3a  |ch:LSR A:STAcol:|
00000be0  4c 44 41 23 38 3a 53 45  43 3a 53 42 43 63 6f 6c  |LDA#8:SEC:SBCcol|
00000bf0  3a 54 41 59 3a 2e 77 72  6e 61 6d 20 4c 44 41 26  |:TAY:.wrnam LDA&|
00000c00  39 30 31 2c 58 3a 53 54  41 6e 61 6d 74 2c 59 3a  |901,X:STAnamt,Y:|
00000c10  49 4e 59 3a 49 4e 58 3a  44 45 43 78 63 68 3a 42  |INY:INX:DECxch:B|
00000c20  4e 45 77 72 6e 61 6d 3a  4c 44 41 23 31 37 3a 53  |NEwrnam:LDA#17:S|
00000c30  54 41 63 6f 6c 3a 4c 44  58 23 32 3a 53 54 58 78  |TAcol:LDX#2:STXx|
00000c40  63 68 3a 44 45 58 3a 53  54 58 79 63 68 3a 4c 44  |ch:DEX:STXych:LD|
00000c50  41 23 28 6e 61 6d 74 20  83 20 32 35 36 29 3a 53  |A#(namt . 256):S|
00000c60  54 41 26 37 32 3a 4c 44  41 23 28 6e 61 6d 74 20  |TA&72:LDA#(namt |
00000c70  81 20 32 35 36 29 3a 53  54 41 26 37 33 3a 4a 4d  |. 256):STA&73:JM|
00000c80  50 73 74 72 69 6e 67 0d  00 fa 2c 5d 3a e7 20 50  |Pstring...,]:. P|
00000c90  25 3e 26 36 41 30 20 8c  20 f1 22 43 6f 64 65 20  |%>&6A0 . ."Code |
00000ca0  4f 76 65 72 66 6c 6f 77  20 74 6f 3a 22 3b 7e 50  |Overflow to:";~P|
00000cb0  25 3a e0 0d 01 04 1e 50  25 3d 26 31 30 30 3a 4f  |%:.....P%=&100:O|
00000cc0  25 3d 26 36 38 30 30 3a  5b 4f 50 54 20 70 61 73  |%=&6800:[OPT pas|
00000cd0  73 0d 01 0e 4c 2e 74 69  74 73 63 72 73 20 45 51  |s...L.titscrs EQ|
00000ce0  55 42 26 33 34 3a 45 51  55 42 26 35 32 3a 45 51  |UB&34:EQUB&52:EQ|
00000cf0  55 42 26 34 32 3a 45 51  55 42 26 45 32 3a 45 51  |UB&42:EQUB&E2:EQ|
00000d00  55 42 26 35 31 3a 45 51  55 42 26 39 33 3a 45 51  |UB&51:EQUB&93:EQ|
00000d10  55 42 26 39 30 3a 45 51  55 42 26 45 31 0d 01 18  |UB&90:EQUB&E1...|
00000d20  2a 2e 6d 6f 6e 70 64 20  45 51 55 42 26 30 32 3a  |*.monpd EQUB&02:|
00000d30  45 51 55 42 26 30 34 3a  45 51 55 42 26 30 36 3a  |EQUB&04:EQUB&06:|
00000d40  45 51 55 42 26 30 38 0d  01 22 63 2e 6a 75 6d 70  |EQUB&08.."c.jump|
00000d50  6e 20 45 51 55 57 31 3a  45 51 55 57 31 3a 45 51  |n EQUW1:EQUW1:EQ|
00000d60  55 57 35 32 3a 45 51 55  57 35 3a 2e 7a 61 70 6e  |UW52:EQUW5:.zapn|
00000d70  20 45 51 55 57 31 3a 45  51 55 57 32 3a 45 51 55  | EQUW1:EQUW2:EQU|
00000d80  57 35 32 3a 45 51 55 57  31 30 3a 2e 73 77 69 74  |W52:EQUW10:.swit|
00000d90  6e 20 45 51 55 57 31 3a  45 51 55 57 33 3a 45 51  |n EQUW1:EQUW3:EQ|
00000da0  55 57 35 32 3a 45 51 55  57 32 0d 01 2c 92 2e 73  |UW52:EQUW2..,..s|
00000db0  65 71 75 65 6e 20 45 51  55 42 30 3a 45 51 55 42  |equen EQUB0:EQUB|
00000dc0  31 34 3a 45 51 55 42 32  38 3a 2e 6c 6f 77 61 64  |14:EQUB28:.lowad|
00000dd0  20 45 51 55 42 30 3a 45  51 55 42 26 33 30 3a 45  | EQUB0:EQUB&30:E|
00000de0  51 55 42 26 44 30 3a 45  51 55 42 26 42 30 3a 45  |QUB&D0:EQUB&B0:E|
00000df0  51 55 42 26 35 30 3a 45  51 55 42 26 38 30 3a 45  |QUB&50:EQUB&80:E|
00000e00  51 55 42 26 38 30 3a 2e  68 69 67 68 61 64 20 45  |QUB&80:.highad E|
00000e10  51 55 42 30 3a 45 51 55  42 30 3a 45 51 55 42 26  |QUB0:EQUB0:EQUB&|
00000e20  46 46 3a 45 51 55 42 32  3a 45 51 55 42 32 3a 45  |FF:EQUB2:EQUB2:E|
00000e30  51 55 42 26 46 44 3a 45  51 55 42 32 0d 01 36 c5  |QUB&FD:EQUB2..6.|
00000e40  45 51 55 42 30 3a 45 51  55 42 26 32 30 3a 45 51  |EQUB0:EQUB&20:EQ|
00000e50  55 42 26 45 30 3a 45 51  55 42 26 41 30 3a 45 51  |UB&E0:EQUB&A0:EQ|
00000e60  55 42 26 36 30 3a 45 51  55 42 26 38 30 3a 45 51  |UB&60:EQUB&80:EQ|
00000e70  55 42 26 38 30 3a 45 51  55 42 30 3a 45 51 55 42  |UB&80:EQUB0:EQUB|
00000e80  30 3a 45 51 55 42 26 46  46 3a 45 51 55 42 32 3a  |0:EQUB&FF:EQUB2:|
00000e90  45 51 55 42 32 3a 45 51  55 42 26 46 44 3a 45 51  |EQUB2:EQUB&FD:EQ|
00000ea0  55 42 32 3a 45 51 55 42  30 3a 45 51 55 42 26 31  |UB2:EQUB0:EQUB&1|
00000eb0  30 3a 45 51 55 42 26 46  30 3a 45 51 55 42 26 39  |0:EQUB&F0:EQUB&9|
00000ec0  30 3a 45 51 55 42 26 37  30 3a 45 51 55 42 30 3a  |0:EQUB&70:EQUB0:|
00000ed0  45 51 55 42 30 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB0:EQUB0:EQUB|
00000ee0  30 3a 45 51 55 42 26 46  46 3a 45 51 55 42 32 3a  |0:EQUB&FF:EQUB2:|
00000ef0  45 51 55 42 32 3a 45 51  55 42 30 3a 45 51 55 42  |EQUB2:EQUB0:EQUB|
00000f00  30 0d 01 40 af 2e 78 64  61 74 61 20 45 51 55 42  |0..@..xdata EQUB|
00000f10  30 3a 45 51 55 42 32 3a  45 51 55 42 35 3a 45 51  |0:EQUB2:EQUB5:EQ|
00000f20  55 42 37 3a 45 51 55 42  31 30 3a 45 51 55 42 31  |UB7:EQUB10:EQUB1|
00000f30  32 3a 45 51 55 42 31 35  3a 45 51 55 42 31 37 3a  |2:EQUB15:EQUB17:|
00000f40  45 51 55 42 32 30 3a 45  51 55 42 32 32 3a 2e 68  |EQUB20:EQUB22:.h|
00000f50  62 64 61 74 20 45 51 55  42 34 3a 45 51 55 42 39  |bdat EQUB4:EQUB9|
00000f60  3a 45 51 55 42 31 34 3a  45 51 55 42 31 39 3a 45  |:EQUB14:EQUB19:E|
00000f70  51 55 42 32 34 3a 2e 64  6f 6f 72 63 20 45 51 55  |QUB24:.doorc EQU|
00000f80  42 30 3a 45 51 55 42 31  3a 45 51 55 42 34 3a 45  |B0:EQUB1:EQUB4:E|
00000f90  51 55 42 35 3a 45 51 55  42 31 36 3a 45 51 55 42  |QUB5:EQUB16:EQUB|
00000fa0  31 37 3a 45 51 55 42 32  30 3a 45 51 55 42 32 31  |17:EQUB20:EQUB21|
00000fb0  0d 01 4a 28 2e 6e 61 6d  74 20 45 51 55 53 22 2d  |..J(.namt EQUS"-|
00000fc0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 22  |---------------"|
00000fd0  3a 45 51 55 42 32 35 35  0d 01 54 6d 2e 63 72 65  |:EQUB255..Tm.cre|
00000fe0  64 61 20 45 51 55 42 31  34 3a 45 51 55 42 31 35  |da EQUB14:EQUB15|
00000ff0  3a 45 51 55 42 32 32 3a  45 51 55 42 37 3a 45 51  |:EQUB22:EQUB7:EQ|
00001000  55 42 31 35 3a 45 51 55  42 31 3a 45 51 55 42 31  |UB15:EQUB1:EQUB1|
00001010  32 3a 45 51 55 42 31 32  3a 45 51 55 42 35 3a 45  |2:EQUB12:EQUB5:E|
00001020  51 55 42 34 3a 45 51 55  42 30 3a 45 51 55 42 31  |QUB4:EQUB0:EQUB1|
00001030  3a 45 51 55 42 31 33 3a  45 51 55 42 34 3a 45 51  |:EQUB13:EQUB4:EQ|
00001040  55 42 32 35 35 0d 01 5e  58 2e 63 72 65 64 62 20  |UB255..^X.credb |
00001050  45 51 55 42 34 3a 45 51  55 42 35 3a 45 51 55 42  |EQUB4:EQUB5:EQUB|
00001060  31 36 3a 45 51 55 42 32  33 3a 45 51 55 42 37 3a  |16:EQUB23:EQUB7:|
00001070  45 51 55 42 31 33 3a 45  51 55 42 35 3a 45 51 55  |EQUB13:EQUB5:EQU|
00001080  42 34 3a 45 51 55 42 30  3a 45 51 55 42 32 3a 45  |B4:EQUB0:EQUB2:E|
00001090  51 55 42 32 31 3a 45 51  55 42 32 35 35 0d 01 68  |QUB21:EQUB255..h|
000010a0  4e 2e 73 6e 64 6f 6e 20  45 51 55 42 31 36 3a 45  |N.sndon EQUB16:E|
000010b0  51 55 42 32 32 3a 45 51  55 42 31 38 3a 45 51 55  |QUB22:EQUB18:EQU|
000010c0  42 31 33 3a 45 51 55 42  34 3a 45 51 55 42 30 3a  |B13:EQUB4:EQUB0:|
000010d0  45 51 55 42 32 32 3a 45  51 55 42 31 33 3a 45 51  |EQUB22:EQUB13:EQ|
000010e0  55 42 30 3a 45 51 55 42  32 35 35 0d 01 72 4e 2e  |UB0:EQUB255..rN.|
000010f0  73 6e 64 6f 66 66 20 45  51 55 42 31 36 3a 45 51  |sndoff EQUB16:EQ|
00001100  55 42 32 32 3a 45 51 55  42 31 38 3a 45 51 55 42  |UB22:EQUB18:EQUB|
00001110  31 33 3a 45 51 55 42 34  3a 45 51 55 42 30 3a 45  |13:EQUB4:EQUB0:E|
00001120  51 55 42 32 32 3a 45 51  55 42 36 3a 45 51 55 42  |QUB22:EQUB6:EQUB|
00001130  36 3a 45 51 55 42 32 35  35 0d 01 7c 24 2e 65 6e  |6:EQUB255..|$.en|
00001140  72 75 70 20 45 51 55 57  31 3a 45 51 55 57 31 3a  |rup EQUW1:EQUW1:|
00001150  45 51 55 57 35 32 3a 45  51 55 57 32 30 0d 01 86  |EQUW52:EQUW20...|
00001160  05 5d 0d 01 90 05 e1 0d  ff                       |.].......|
00001169