00000000  5c 20 53 68 69 70 57 72  65 63 6b 65 64 0a 5c 20  |\ ShipWrecked.\ |
00000010  44 6f 6d 69 6e 69 63 20  46 6f 72 64 0a 5c 20 43  |Dominic Ford.\ C|
00000020  5e 24 20 56 65 72 73 69  6f 6e 0a 0a 50 25 3d 32  |^$ Version..P%=2|
00000030  3a 4f 25 3d 26 35 33 30  32 0a 0a 2e 78 63 68 20  |:O%=&5302...xch |
00000040  45 51 55 42 30 3a 2e 79  63 68 20 45 51 55 42 30  |EQUB0:.ych EQUB0|
00000050  3a 2e 63 6f 6c 20 45 51  55 42 30 3a 2e 73 63 6f  |:.col EQUB0:.sco|
00000060  72 65 20 45 51 55 57 30  3a 2e 73 63 72 63 68 20  |re EQUW0:.scrch |
00000070  45 51 55 42 30 3a 2e 74  69 74 73 74 61 74 20 45  |EQUB0:.titstat E|
00000080  51 55 42 30 3a 2e 6d 64  69 72 20 45 51 55 42 30  |QUB0:.mdir EQUB0|
00000090  0a 2e 78 73 65 74 20 45  51 55 42 30 3a 2e 79 73  |..xset EQUB0:.ys|
000000a0  65 74 20 45 51 55 42 30  3a 2e 78 73 63 72 20 45  |et EQUB0:.xscr E|
000000b0  51 55 42 30 3a 2e 79 73  63 72 20 45 51 55 42 30  |QUB0:.yscr EQUB0|
000000c0  3a 2e 78 70 6f 73 20 45  51 55 42 30 3a 2e 79 70  |:.xpos EQUB0:.yp|
000000d0  6f 73 20 45 51 55 42 30  3a 2e 6d 66 69 6e 65 20  |os EQUB0:.mfine |
000000e0  45 51 55 42 30 3a 2e 6d  74 79 70 65 20 45 51 55  |EQUB0:.mtype EQU|
000000f0  42 30 0a 2e 73 63 72 6e  6f 20 45 51 55 42 30 3a  |B0..scrno EQUB0:|
00000100  2e 75 70 76 65 6c 6f 20  45 51 55 42 30 3a 2e 78  |.upvelo EQUB0:.x|
00000110  6f 6c 64 20 45 51 55 42  30 3a 2e 79 6f 6c 64 20  |old EQUB0:.yold |
00000120  45 51 55 42 30 3a 2e 66  69 6e 65 20 45 51 55 42  |EQUB0:.fine EQUB|
00000130  30 3a 2e 73 6f 75 6e 64  20 45 51 55 42 31 3a 2e  |0:.sound EQUB1:.|
00000140  63 6c 6f 63 6b 20 45 51  55 42 30 3a 2e 74 69 74  |clock EQUB0:.tit|
00000150  63 79 63 20 45 51 55 42  30 3a 2e 69 6e 76 66 6c  |cyc EQUB0:.invfl|
00000160  61 67 20 45 51 55 42 30  0a 2e 66 61 63 65 20 45  |ag EQUB0..face E|
00000170  51 55 42 31 3a 2e 70 68  61 73 65 20 45 51 55 42  |QUB1:.phase EQUB|
00000180  30 3a 2e 72 67 68 74 73  20 45 51 55 42 30 3a 2e  |0:.rghts EQUB0:.|
00000190  77 69 70 65 72 20 45 51  55 42 30 3a 2e 6d 6f 76  |wiper EQUB0:.mov|
000001a0  73 74 61 67 20 45 51 55  42 30 3a 2e 63 68 61 6e  |stag EQUB0:.chan|
000001b0  67 65 64 20 45 51 55 42  30 3a 2e 70 6f 77 65 72  |ged EQUB0:.power|
000001c0  20 45 51 55 42 30 3a 2e  70 6f 77 63 68 61 6e 67  | EQUB0:.powchang|
000001d0  65 20 45 51 55 42 30 3a  2e 6f 62 6a 65 63 74 73  |e EQUB0:.objects|
000001e0  20 45 51 55 57 30 3a 2e  6f 62 63 68 20 45 51 55  | EQUW0:.obch EQU|
000001f0  42 30 3a 2e 67 65 74 73  74 61 74 20 45 51 55 42  |B0:.getstat EQUB|
00000200  30 0a 2e 6c 61 73 74 61  74 20 45 51 55 42 30 3a  |0..lastat EQUB0:|
00000210  2e 6c 61 73 61 64 20 45  51 55 57 30 3a 2e 6c 61  |.lasad EQUW0:.la|
00000220  73 64 69 72 20 45 51 55  42 30 3a 2e 6c 61 73 74  |sdir EQUB0:.last|
00000230  65 70 20 45 51 55 42 30  3a 2e 78 66 20 45 51 55  |ep EQUB0:.xf EQU|
00000240  42 30 3a 2e 79 66 20 45  51 55 42 30 3a 2e 77 69  |B0:.yf EQUB0:.wi|
00000250  72 65 70 20 45 51 55 57  30 3a 2e 77 69 72 65 70  |rep EQUW0:.wirep|
00000260  62 20 45 51 55 57 30 3a  2e 78 6d 6f 6e 74 20 45  |b EQUW0:.xmont E|
00000270  51 55 42 30 3a 2e 79 6d  6f 6e 74 20 45 51 55 42  |QUB0:.ymont EQUB|
00000280  30 3a 2e 6d 66 6c 61 67  20 45 51 55 42 30 3a 2e  |0:.mflag EQUB0:.|
00000290  6d 6f 6e 73 74 61 74 20  45 51 55 42 30 3a 2e 77  |monstat EQUB0:.w|
000002a0  69 70 65 72 6d 20 45 51  55 42 30 0a 2e 64 65 61  |iperm EQUB0..dea|
000002b0  64 65 64 20 45 51 55 42  30 3a 2e 63 6c 65 61 72  |ded EQUB0:.clear|
000002c0  75 70 20 45 51 55 42 30  3a 2e 78 6d 6f 6f 20 45  |up EQUB0:.xmoo E|
000002d0  51 55 42 30 3a 2e 79 6d  6f 6f 20 45 51 55 42 30  |QUB0:.ymoo EQUB0|
000002e0  3a 2e 66 6e 73 74 20 45  51 55 42 30 0a 2e 73 63  |:.fnst EQUB0..sc|
000002f0  72 74 78 74 20 45 51 55  44 30 3a 2e 73 68 6f 6f  |rtxt EQUD0:.shoo|
00000300  74 20 45 51 55 42 30 0a  2e 64 65 6c 79 6f 75 20  |t EQUB0..delyou |
00000310  4c 44 58 78 6d 6f 6f 3a  4c 44 59 79 6d 6f 6f 3a  |LDXxmoo:LDYymoo:|
00000320  2e 6d 63 64 20 53 54 58  78 73 65 74 3a 53 54 59  |.mcd STXxset:STY|
00000330  79 73 65 74 0a 2e 64 61  72 6b 20 4c 44 59 23 35  |yset..dark LDY#5|
00000340  3a 43 50 59 78 73 63 72  3a 42 4e 45 72 65 61 6c  |:CPYxscr:BNEreal|
00000350  64 3a 44 45 59 3a 43 50  59 79 73 63 72 3a 42 4e  |d:DEY:CPYyscr:BN|
00000360  45 72 65 61 6c 64 3a 4c  44 41 23 26 31 41 3a 43  |Ereald:LDA#&1A:C|
00000370  4d 50 6f 62 6a 65 63 74  73 3a 42 45 51 72 65 61  |MPobjects:BEQrea|
00000380  6c 64 3a 43 4d 50 6f 62  6a 65 63 74 73 2b 31 3a  |ld:CMPobjects+1:|
00000390  42 45 51 72 65 61 6c 64  3a 4c 44 41 23 30 3a 53  |BEQreald:LDA#0:S|
000003a0  54 41 26 37 32 3a 4a 4d  50 62 6c 6f 63 6b 6f 6e  |TA&72:JMPblockon|
000003b0  2b 36 3a 2e 72 65 61 6c  64 20 4a 4d 50 62 6c 6f  |+6:.reald JMPblo|
000003c0  63 6b 6f 6e 0a 5d 3a 49  46 50 25 3e 26 37 30 54  |ckon.]:IFP%>&70T|
000003d0  48 45 4e 50 52 49 4e 54  22 43 6f 64 65 20 4f 76  |HENPRINT"Code Ov|
000003e0  65 72 66 6c 6f 77 20 74  6f 3a 22 3b 50 25 3a 45  |erflow to:";P%:E|
000003f0  4e 44 0a 50 25 3d 26 31  30 30 30 3a 4f 25 3d 26  |ND.P%=&1000:O%=&|
00000400  35 38 30 30 3a 5b 4f 50  54 20 70 61 73 73 0a 4c  |5800:[OPT pass.L|
00000410  44 41 23 26 46 46 3a 53  54 41 73 63 72 74 78 74  |DA#&FF:STAscrtxt|
00000420  2b 33 3a 53 45 49 3a 4c  44 41 23 28 69 72 71 20  |+3:SEI:LDA#(irq |
00000430  4d 4f 44 20 32 35 36 29  3a 53 54 41 26 33 31 34  |MOD 256):STA&314|
00000440  3a 4c 44 41 23 28 69 72  71 20 44 49 56 20 32 35  |:LDA#(irq DIV 25|
00000450  36 29 3a 53 54 41 26 33  31 35 3a 43 4c 49 0a 2e  |6):STA&315:CLI..|
00000460  70 72 6f 67 20 4a 53 52  74 69 74 6c 65 3a 4a 53  |prog JSRtitle:JS|
00000470  52 62 6c 61 73 63 72 3a  4a 53 52 73 63 72 6f 66  |Rblascr:JSRscrof|
00000480  66 0a 4c 44 59 23 30 3a  4c 44 41 23 33 3a 53 54  |f.LDY#0:LDA#3:ST|
00000490  41 26 37 30 3a 4c 44 41  23 26 33 30 3a 53 54 41  |A&70:LDA#&30:STA|
000004a0  26 37 31 0a 2e 6c 69 6e  65 73 20 4c 44 41 28 26  |&71..lines LDA(&|
000004b0  37 30 29 2c 59 3a 4f 52  41 23 31 32 3a 53 54 41  |70),Y:ORA#12:STA|
000004c0  28 26 37 30 29 2c 59 3a  4c 44 41 26 37 30 3a 43  |(&70),Y:LDA&70:C|
000004d0  4c 43 3a 41 44 43 23 38  3a 53 54 41 26 37 30 3a  |LC:ADC#8:STA&70:|
000004e0  4c 44 41 26 37 31 3a 41  44 43 23 30 3a 53 54 41  |LDA&71:ADC#0:STA|
000004f0  26 37 31 3a 43 4d 50 23  26 36 43 3a 42 4e 45 6c  |&71:CMP#&6C:BNEl|
00000500  69 6e 65 73 0a 53 54 41  70 6f 77 63 68 61 6e 67  |ines.STApowchang|
00000510  65 3a 53 54 41 6f 62 63  68 3a 53 54 41 73 63 72  |e:STAobch:STAscr|
00000520  63 68 3a 4c 44 59 23 32  35 35 3a 53 54 59 70 6f  |ch:LDY#255:STYpo|
00000530  77 65 72 3a 53 54 59 6f  62 6a 65 63 74 73 3a 53  |wer:STYobjects:S|
00000540  54 59 6f 62 6a 65 63 74  73 2b 31 3a 49 4e 59 3a  |TYobjects+1:INY:|
00000550  53 54 59 73 63 6f 72 65  3a 53 54 59 73 63 6f 72  |STYscore:STYscor|
00000560  65 2b 31 3a 2e 73 63 6f  62 61 72 6c 6f 70 20 4c  |e+1:.scobarlop L|
00000570  44 41 73 62 61 72 2c 59  3a 43 4d 50 23 26 46 46  |DAsbar,Y:CMP#&FF|
00000580  3a 42 45 51 73 74 65 78  74 3a 4a 53 52 6f 73 77  |:BEQstext:JSRosw|
00000590  72 63 68 3a 49 4e 59 3a  4a 4d 50 73 63 6f 62 61  |rch:INY:JMPscoba|
000005a0  72 6c 6f 70 0a 2e 73 74  65 78 74 20 4c 44 41 23  |rlop..stext LDA#|
000005b0  31 3a 53 54 41 63 6f 6c  3a 4c 44 41 23 32 3a 53  |1:STAcol:LDA#2:S|
000005c0  54 41 78 63 68 3a 4c 44  41 23 32 34 3a 53 54 41  |TAxch:LDA#24:STA|
000005d0  79 63 68 3a 4c 44 41 23  28 73 63 6f 72 74 20 4d  |ych:LDA#(scort M|
000005e0  4f 44 20 32 35 36 29 3a  53 54 41 26 37 32 3a 4c  |OD 256):STA&72:L|
000005f0  44 41 23 28 73 63 6f 72  74 20 44 49 56 20 32 35  |DA#(scort DIV 25|
00000600  36 29 3a 53 54 41 26 37  33 3a 4a 53 52 73 74 72  |6):STA&73:JSRstr|
00000610  69 6e 67 3a 4c 44 41 23  31 33 3a 53 54 41 78 63  |ing:LDA#13:STAxc|
00000620  68 3a 49 4e 43 26 37 32  3a 4a 53 52 73 74 72 69  |h:INC&72:JSRstri|
00000630  6e 67 3a 4c 44 41 23 38  3a 53 54 41 78 63 68 3a  |ng:LDA#8:STAxch:|
00000640  4c 44 41 23 32 38 3a 53  54 41 79 63 68 3a 49 4e  |LDA#28:STAych:IN|
00000650  43 26 37 32 3a 4a 53 52  73 74 72 69 6e 67 0a 2e  |C&72:JSRstring..|
00000660  67 61 6d 65 20 4c 44 41  23 30 3a 53 54 41 78 73  |game LDA#0:STAxs|
00000670  63 72 3a 53 54 41 79 73  63 72 3a 4c 44 41 23 32  |cr:STAyscr:LDA#2|
00000680  3a 53 54 41 78 70 6f 73  3a 53 54 41 79 70 6f 73  |:STAxpos:STAypos|
00000690  3a 4c 44 58 23 26 33 30  3a 2e 63 6c 72 70 6f 74  |:LDX#&30:.clrpot|
000006a0  20 53 54 58 63 6c 72 70  6e 74 2b 32 3a 53 54 58  | STXclrpnt+2:STX|
000006b0  63 6c 72 70 6c 70 2b 32  3a 2e 63 6c 72 70 6c 70  |clrplp+2:.clrplp|
000006c0  20 4c 44 41 26 33 30 46  45 3a 41 4e 44 23 26 37  | LDA&30FE:AND#&7|
000006d0  46 3a 2e 63 6c 72 70 6e  74 20 53 54 41 26 33 30  |F:.clrpnt STA&30|
000006e0  46 45 3a 49 4e 58 3a 43  50 58 23 26 38 30 3a 42  |FE:INX:CPX#&80:B|
000006f0  4e 45 63 6c 72 70 6f 74  0a 2e 6e 65 77 73 63 72  |NEclrpot..newscr|
00000700  20 4a 53 52 73 63 72 65  65 6e 3a 2e 6f 6c 64 73  | JSRscreen:.olds|
00000710  63 72 20 4a 53 52 71 75  69 74 63 68 3a 4a 53 52  |cr JSRquitch:JSR|
00000720  73 62 6f 61 72 64 3a 4c  44 41 23 30 3a 53 54 41  |sboard:LDA#0:STA|
00000730  6d 6f 76 73 74 61 67 3a  4c 44 41 66 69 6e 65 3a  |movstag:LDAfine:|
00000740  42 45 51 6d 6f 76 65 73  6c 6f 70 3a 53 54 41 63  |BEQmoveslop:STAc|
00000750  68 61 6e 67 65 64 3a 4c  44 41 77 69 70 65 72 3a  |hanged:LDAwiper:|
00000760  50 48 41 3a 4a 53 52 6d  61 69 6e 63 6c 65 61 72  |PHA:JSRmainclear|
00000770  3a 50 4c 41 3a 53 54 41  77 69 70 65 72 3a 2e 6d  |:PLA:STAwiper:.m|
00000780  6f 76 65 73 6c 6f 70 20  4c 44 41 63 68 61 6e 67  |oveslop LDAchang|
00000790  65 64 3a 42 45 51 6e 6f  64 79 6f 75 3a 4a 53 52  |ed:BEQnodyou:JSR|
000007a0  64 69 73 70 79 6f 75 3a  2e 6e 6f 64 79 6f 75 20  |dispyou:.nodyou |
000007b0  4a 53 52 64 69 73 70 6d  6f 6e 3a 4a 53 52 77 61  |JSRdispmon:JSRwa|
000007c0  69 74 3a 49 4e 43 6d 6f  76 73 74 61 67 0a 4c 44  |it:INCmovstag.LD|
000007d0  41 6d 6f 76 73 74 61 67  3a 43 4d 50 23 33 3a 42  |Amovstag:CMP#3:B|
000007e0  4e 45 6d 6f 76 65 73 6c  6f 70 3a 4c 44 41 6d 66  |NEmoveslop:LDAmf|
000007f0  69 6e 65 3a 50 48 41 3a  4c 44 41 66 69 6e 65 3a  |ine:PHA:LDAfine:|
00000800  53 54 41 66 6e 73 74 3a  4c 44 41 23 30 3a 53 54  |STAfnst:LDA#0:ST|
00000810  41 6d 6f 76 73 74 61 67  0a 53 54 41 63 68 61 6e  |Amovstag.STAchan|
00000820  67 65 64 3a 53 54 41 66  69 6e 65 3a 53 54 41 6d  |ged:STAfine:STAm|
00000830  66 69 6e 65 3a 4a 53 52  64 69 73 70 79 6f 75 3a  |fine:JSRdispyou:|
00000840  4a 53 52 64 69 73 70 6d  6f 6e 3a 50 4c 41 3a 53  |JSRdispmon:PLA:S|
00000850  54 41 6d 66 69 6e 65 3a  4a 53 52 77 61 69 74 3a  |TAmfine:JSRwait:|
00000860  4a 53 52 6d 61 69 6e 63  6c 65 61 72 0a 2e 66 69  |JSRmainclear..fi|
00000870  6e 65 6e 64 20 4a 53 52  6c 61 73 65 72 3a 4a 53  |nend JSRlaser:JS|
00000880  52 64 65 61 64 65 64 63  68 3a 4a 53 52 6d 6f 6e  |Rdeadedch:JSRmon|
00000890  70 72 6f 3a 4a 53 52 67  65 74 6f 70 75 74 3a 4c  |pro:JSRgetoput:L|
000008a0  44 41 75 70 76 65 6c 6f  3a 42 45 51 66 61 6c 6c  |DAupvelo:BEQfall|
000008b0  68 3a 4a 53 52 6a 75 6d  70 75 70 3a 4c 44 41 78  |h:JSRjumpup:LDAx|
000008c0  70 6f 73 3a 53 54 41 78  73 65 74 3a 4c 44 41 79  |pos:STAxset:LDAy|
000008d0  70 6f 73 3a 53 54 41 79  73 65 74 3a 4a 53 52 67  |pos:STAyset:JSRg|
000008e0  65 74 62 6c 6f 63 6b 3a  43 4d 50 23 31 30 3a 42  |etblock:CMP#10:B|
000008f0  4e 45 6e 6f 66 61 6c 6c  3a 42 45 51 77 61 74 74  |NEnofall:BEQwatt|
00000900  0a 2e 66 61 6c 6c 68 20  4c 44 41 78 70 6f 73 3a  |..fallh LDAxpos:|
00000910  53 54 41 78 73 65 74 3a  4c 44 41 79 70 6f 73 3a  |STAxset:LDAypos:|
00000920  53 54 41 79 73 65 74 3a  4a 53 52 67 65 74 62 6c  |STAyset:JSRgetbl|
00000930  6f 63 6b 3a 43 4d 50 23  38 3a 42 45 51 77 61 74  |ock:CMP#8:BEQwat|
00000940  74 3a 43 4d 50 23 31 30  3a 42 45 51 77 61 74 74  |t:CMP#10:BEQwatt|
00000950  3a 43 4d 50 23 31 34 3a  42 45 51 6c 61 64 64 65  |:CMP#14:BEQladde|
00000960  72 3a 2e 6c 61 64 64 6f  77 6e 20 4c 44 41 79 70  |r:.laddown LDAyp|
00000970  6f 73 3a 43 4d 50 23 39  3a 42 45 51 64 6f 77 6e  |os:CMP#9:BEQdown|
00000980  73 63 72 3a 49 4e 43 79  73 65 74 3a 4a 53 52 67  |scr:INCyset:JSRg|
00000990  65 74 62 6c 6f 63 6b 3a  4a 53 52 64 6f 6f 72 63  |etblock:JSRdoorc|
000009a0  68 3a 42 43 53 66 61 6c  6c 64 6f 77 6e 3a 41 4e  |h:BCSfalldown:AN|
000009b0  44 23 26 33 30 3a 42 45  51 66 61 6c 6c 64 6f 77  |D#&30:BEQfalldow|
000009c0  6e 3a 42 4e 45 6e 6f 66  61 6c 6c 0a 2e 64 6f 77  |n:BNEnofall..dow|
000009d0  6e 73 63 72 20 4c 44 41  23 30 3a 53 54 41 79 70  |nscr LDA#0:STAyp|
000009e0  6f 73 3a 49 4e 43 79 73  63 72 3a 4a 4d 50 6e 65  |os:INCyscr:JMPne|
000009f0  77 73 63 72 3a 2e 77 61  74 74 20 4a 4d 50 7a 61  |wscr:.watt JMPza|
00000a00  70 3a 2e 6c 61 64 64 65  72 20 4a 4d 50 20 6c 61  |p:.ladder JMP la|
00000a10  64 64 65 72 62 0a 2e 66  61 6c 6c 64 6f 77 6e 20  |dderb..falldown |
00000a20  4c 44 41 23 35 3a 53 54  41 66 69 6e 65 3a 49 4e  |LDA#5:STAfine:IN|
00000a30  43 79 70 6f 73 3a 2e 6e  6f 66 61 6c 6c 20 4c 44  |Cypos:.nofall LD|
00000a40  41 23 28 28 6f 6c 64 73  63 72 2d 31 29 20 44 49  |A#((oldscr-1) DI|
00000a50  56 20 32 35 36 29 3a 50  48 41 3a 4c 44 41 23 28  |V 256):PHA:LDA#(|
00000a60  28 6f 6c 64 73 63 72 2d  31 29 20 4d 4f 44 20 32  |(oldscr-1) MOD 2|
00000a70  35 36 29 3a 50 48 41 0a  2e 6d 6f 76 65 79 6f 75  |56):PHA..moveyou|
00000a80  20 4c 44 41 23 32 3a 4a  53 52 6b 65 79 62 79 74  | LDA#2:JSRkeybyt|
00000a90  65 3a 42 43 43 6e 6a 75  6d 70 3a 4a 53 52 6a 75  |e:BCCnjump:JSRju|
00000aa0  6d 70 3a 2e 6e 6a 75 6d  70 20 4c 44 41 23 30 3a  |mp:.njump LDA#0:|
00000ab0  4a 53 52 6b 65 79 62 79  74 65 3a 42 43 53 6c 65  |JSRkeybyte:BCSle|
00000ac0  66 74 3a 2e 6e 6c 65 66  74 20 4c 44 41 23 31 3a  |ft:.nleft LDA#1:|
00000ad0  4a 53 52 6b 65 79 62 79  74 65 3a 42 43 43 6e 72  |JSRkeybyte:BCCnr|
00000ae0  69 67 68 74 3a 42 43 53  72 69 67 68 74 0a 2e 6c  |ight:BCSright..l|
00000af0  65 66 74 20 4c 44 41 23  30 3a 53 54 41 66 61 63  |eft LDA#0:STAfac|
00000b00  65 3a 53 54 41 72 67 68  74 73 3a 4c 44 41 78 70  |e:STArghts:LDAxp|
00000b10  6f 73 3a 42 45 51 6c 65  66 74 73 63 72 3a 53 45  |os:BEQleftscr:SE|
00000b20  43 3a 53 42 43 23 31 3a  53 54 41 78 73 65 74 3a  |C:SBC#1:STAxset:|
00000b30  4c 44 41 79 70 6f 73 3a  53 54 41 79 73 65 74 3a  |LDAypos:STAyset:|
00000b40  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 4a 53 52 64  |JSRgetblock:JSRd|
00000b50  6f 6f 72 63 68 3a 42 43  53 6e 6f 75 70 6c 3a 41  |oorch:BCSnoupl:A|
00000b60  4e 44 23 26 33 30 3a 43  4d 50 23 26 31 30 3a 42  |ND#&30:CMP#&10:B|
00000b70  45 51 6e 6f 6d 6f 76 65  3a 43 4d 50 23 26 32 30  |EQnomove:CMP#&20|
00000b80  3a 42 45 51 6e 6f 6d 6f  76 65 3a 43 4d 50 23 26  |:BEQnomove:CMP#&|
00000b90  33 30 3a 42 4e 45 6e 6f  75 70 6c 3a 44 45 43 79  |30:BNEnoupl:DECy|
00000ba0  70 6f 73 3a 44 45 43 78  70 6f 73 3a 4c 44 41 23  |pos:DECxpos:LDA#|
00000bb0  33 3a 53 54 41 66 69 6e  65 3a 2e 6e 72 69 67 68  |3:STAfine:.nrigh|
00000bc0  74 20 52 54 53 0a 2e 6e  6f 75 70 6c 20 44 45 43  |t RTS..noupl DEC|
00000bd0  78 70 6f 73 3a 4c 44 41  23 31 3a 53 54 41 66 69  |xpos:LDA#1:STAfi|
00000be0  6e 65 3a 2e 6e 6f 6d 6f  76 65 20 52 54 53 3a 2e  |ne:.nomove RTS:.|
00000bf0  72 69 67 68 74 20 4c 44  41 23 30 3a 53 54 41 72  |right LDA#0:STAr|
00000c00  67 68 74 73 3a 4c 44 41  23 31 3a 53 54 41 66 61  |ghts:LDA#1:STAfa|
00000c10  63 65 3a 4c 44 41 78 70  6f 73 3a 43 4d 50 23 39  |ce:LDAxpos:CMP#9|
00000c20  3a 42 45 51 72 69 67 68  74 73 63 72 3a 43 4c 43  |:BEQrightscr:CLC|
00000c30  3a 41 44 43 23 31 3a 53  54 41 78 73 65 74 3a 4c  |:ADC#1:STAxset:L|
00000c40  44 41 79 70 6f 73 3a 53  54 41 79 73 65 74 3a 4a  |DAypos:STAyset:J|
00000c50  53 52 67 65 74 62 6c 6f  63 6b 3a 4a 53 52 64 6f  |SRgetblock:JSRdo|
00000c60  6f 72 63 68 3a 42 43 53  6e 6f 75 70 72 3a 41 4e  |orch:BCSnoupr:AN|
00000c70  44 23 26 33 30 3a 43 4d  50 23 26 31 30 3a 42 45  |D#&30:CMP#&10:BE|
00000c80  51 6e 6f 6d 6f 76 65 72  3a 43 4d 50 23 26 32 30  |Qnomover:CMP#&20|
00000c90  3a 42 45 51 6e 6f 6d 6f  76 65 72 3a 43 4d 50 23  |:BEQnomover:CMP#|
00000ca0  26 33 30 3a 42 4e 45 6e  6f 75 70 72 0a 44 45 43  |&30:BNEnoupr.DEC|
00000cb0  79 70 6f 73 3a 4c 44 41  23 34 3a 2e 6e 6f 75 70  |ypos:LDA#4:.noup|
00000cc0  72 73 20 49 4e 43 78 70  6f 73 3a 53 54 41 66 69  |rs INCxpos:STAfi|
00000cd0  6e 65 3a 2e 6e 6f 73 6e  64 20 52 54 53 3a 2e 6e  |ne:.nosnd RTS:.n|
00000ce0  6f 75 70 72 20 4c 44 41  23 32 3a 4a 4d 50 6e 6f  |oupr LDA#2:JMPno|
00000cf0  75 70 72 73 3a 2e 6e 6f  6d 6f 76 65 72 20 4c 44  |uprs:.nomover LD|
00000d00  41 23 31 3a 53 54 41 72  67 68 74 73 3a 53 54 41  |A#1:STArghts:STA|
00000d10  63 68 61 6e 67 65 64 3a  52 54 53 3a 2e 6c 65 66  |changed:RTS:.lef|
00000d20  74 73 63 72 20 4c 44 41  23 39 3a 53 54 41 78 70  |tscr LDA#9:STAxp|
00000d30  6f 73 3a 44 45 43 78 73  63 72 3a 2e 73 63 72 70  |os:DECxscr:.scrp|
00000d40  61 73 73 20 4a 4d 50 73  63 72 65 65 6e 3a 2e 72  |ass JMPscreen:.r|
00000d50  69 67 68 74 73 63 72 20  4c 44 41 23 30 3a 53 54  |ightscr LDA#0:ST|
00000d60  41 78 70 6f 73 3a 49 4e  43 78 73 63 72 3a 42 4e  |Axpos:INCxscr:BN|
00000d70  45 73 63 72 70 61 73 73  0a 2e 6a 75 6d 70 20 4c  |Escrpass..jump L|
00000d80  44 41 79 70 6f 73 3a 43  4d 50 23 39 3a 42 45 51  |DAypos:CMP#9:BEQ|
00000d90  6e 6f 73 6e 64 3a 43 4c  43 3a 41 44 43 23 31 3a  |nosnd:CLC:ADC#1:|
00000da0  53 54 41 79 73 65 74 3a  4c 44 41 78 70 6f 73 3a  |STAyset:LDAxpos:|
00000db0  53 54 41 78 73 65 74 3a  4a 53 52 67 65 74 62 6c  |STAxset:JSRgetbl|
00000dc0  6f 63 6b 3a 41 4e 44 23  26 33 30 3a 42 45 51 6e  |ock:AND#&30:BEQn|
00000dd0  6f 73 6e 64 3a 4c 44 41  23 33 3a 53 54 41 75 70  |osnd:LDA#3:STAup|
00000de0  76 65 6c 6f 3a 4c 44 41  73 6f 75 6e 64 3a 42 45  |velo:LDAsound:BE|
00000df0  51 6e 6f 73 6e 64 3a 4c  44 41 23 37 3a 4c 44 58  |Qnosnd:LDA#7:LDX|
00000e00  23 28 6a 75 6d 70 6e 20  4d 4f 44 20 32 35 36 29  |#(jumpn MOD 256)|
00000e10  3a 4c 44 59 23 28 6a 75  6d 70 6e 20 44 49 56 20  |:LDY#(jumpn DIV |
00000e20  32 35 36 29 3a 4a 4d 50  6f 73 77 6f 72 64 0a 2e  |256):JMPosword..|
00000e30  64 69 73 70 73 68 72 20  53 45 49 3a 4c 44 41 77  |dispshr SEI:LDAw|
00000e40  69 70 65 72 3a 42 45 51  6e 6f 77 69 70 65 3a 4c  |iper:BEQnowipe:L|
00000e50  44 59 23 30 3a 2e 77 69  70 6c 6f 70 20 4c 44 41  |DY#0:.wiplop LDA|
00000e60  28 77 69 72 65 70 29 2c  59 3a 53 54 41 28 26 37  |(wirep),Y:STA(&7|
00000e70  38 29 2c 59 3a 49 4e 59  3a 43 50 59 23 33 32 3a  |8),Y:INY:CPY#32:|
00000e80  42 4e 45 77 69 70 6c 6f  70 3a 4c 44 41 26 37 38  |BNEwiplop:LDA&78|
00000e90  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00000ea0  26 37 38 3a 4c 44 41 26  37 39 3a 41 44 43 23 32  |&78:LDA&79:ADC#2|
00000eb0  3a 53 54 41 26 37 39 3a  4c 44 59 23 30 3a 2e 77  |:STA&79:LDY#0:.w|
00000ec0  69 70 65 62 20 4c 44 41  28 77 69 72 65 70 62 29  |ipeb LDA(wirepb)|
00000ed0  2c 59 3a 53 54 41 28 26  37 38 29 2c 59 3a 49 4e  |,Y:STA(&78),Y:IN|
00000ee0  59 3a 43 50 59 23 33 32  3a 42 4e 45 77 69 70 65  |Y:CPY#32:BNEwipe|
00000ef0  62 0a 2e 6e 6f 77 69 70  65 20 4c 44 41 23 31 3a  |b..nowipe LDA#1:|
00000f00  53 54 41 77 69 70 65 72  3a 4c 44 41 78 70 6f 73  |STAwiper:LDAxpos|
00000f10  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00000f20  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00000f30  53 4c 20 41 3a 53 54 41  26 37 30 3a 4c 44 41 78  |SL A:STA&70:LDAx|
00000f40  70 6f 73 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |pos:LSR A:LSR A:|
00000f50  43 4c 43 3a 41 44 43 23  26 33 35 3a 53 54 41 26  |CLC:ADC#&35:STA&|
00000f60  37 31 3a 4c 44 41 79 70  6f 73 3a 43 4c 43 3a 41  |71:LDAypos:CLC:A|
00000f70  44 43 26 37 31 3a 53 54  41 26 37 31 3a 4c 44 41  |DC&71:STA&71:LDA|
00000f80  79 70 6f 73 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |ypos:ASL A:ASL A|
00000f90  3a 43 4c 43 3a 41 44 43  26 37 31 3a 53 54 41 26  |:CLC:ADC&71:STA&|
00000fa0  37 31 3a 4c 44 59 23 30  0a 53 54 59 26 37 32 3a  |71:LDY#0.STY&72:|
00000fb0  4c 44 41 23 26 31 41 3a  53 54 41 26 37 33 3a 4c  |LDA#&1A:STA&73:L|
00000fc0  44 58 6d 6f 76 73 74 61  67 3a 4c 44 41 73 65 71  |DXmovstag:LDAseq|
00000fd0  75 65 6e 2c 58 3a 43 4c  43 3a 41 44 43 66 69 6e  |uen,X:CLC:ADCfin|
00000fe0  65 3a 54 41 58 3a 4c 44  41 26 37 30 3a 43 4c 43  |e:TAX:LDA&70:CLC|
00000ff0  3a 41 44 43 6c 6f 77 61  64 2c 58 3a 53 54 41 26  |:ADClowad,X:STA&|
00001000  37 30 3a 4c 44 41 26 37  31 3a 41 44 43 68 69 67  |70:LDA&71:ADChig|
00001010  68 61 64 2c 58 3a 53 54  41 26 37 31 3a 4c 44 41  |had,X:STA&71:LDA|
00001020  6d 66 6c 61 67 3a 42 4e  45 6d 6f 6e 73 61 64 72  |mflag:BNEmonsadr|
00001030  3a 43 50 58 23 30 3a 42  45 51 6e 6f 70 68 61 73  |:CPX#0:BEQnophas|
00001040  65 3a 4c 44 41 6d 6f 76  73 74 61 67 3a 43 4d 50  |e:LDAmovstag:CMP|
00001050  23 32 3a 42 45 51 6e 6f  70 68 61 73 65 3a 4c 44  |#2:BEQnophase:LD|
00001060  58 70 68 61 73 65 3a 49  4e 58 0a 2e 61 64 64 70  |Xphase:INX..addp|
00001070  68 20 4c 44 41 26 37 32  3a 43 4c 43 3a 41 44 43  |h LDA&72:CLC:ADC|
00001080  23 26 38 30 3a 53 54 41  26 37 32 3a 4c 44 41 26  |#&80:STA&72:LDA&|
00001090  37 33 3a 41 44 43 23 30  3a 53 54 41 26 37 33 3a  |73:ADC#0:STA&73:|
000010a0  44 45 58 3a 42 4e 45 61  64 64 70 68 3a 4c 44 41  |DEX:BNEaddph:LDA|
000010b0  70 68 61 73 65 3a 45 4f  52 23 31 3a 53 54 41 70  |phase:EOR#1:STAp|
000010c0  68 61 73 65 3a 4a 4d 50  6e 6f 70 68 61 73 65 3a  |hase:JMPnophase:|
000010d0  2e 6d 6f 6e 73 61 64 72  20 4c 44 41 6d 6f 6e 73  |.monsadr LDAmons|
000010e0  74 61 74 3a 45 4f 52 23  31 3a 53 54 41 6d 6f 6e  |tat:EOR#1:STAmon|
000010f0  73 74 61 74 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |stat:ASL A:ASL A|
00001100  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 41 53 4c  |:ASL A:ASL A:ASL|
00001110  20 41 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 53  | A:CLC:ADC#&80:S|
00001120  54 41 26 37 32 3a 4c 44  41 23 26 31 42 3a 53 54  |TA&72:LDA#&1B:ST|
00001130  41 26 37 33 3a 4c 44 41  23 31 3a 53 54 41 77 69  |A&73:LDA#1:STAwi|
00001140  70 65 72 6d 0a 4c 44 41  6d 74 79 70 65 3a 43 4d  |perm.LDAmtype:CM|
00001150  50 23 32 3a 42 4e 45 6e  6f 74 79 70 74 72 3a 4c  |P#2:BNEnotyptr:L|
00001160  44 41 26 37 32 3a 43 4c  43 3a 41 44 43 23 26 38  |DA&72:CLC:ADC#&8|
00001170  30 3a 53 54 41 26 37 32  3a 4c 44 41 26 37 33 3a  |0:STA&72:LDA&73:|
00001180  41 44 43 23 30 3a 53 54  41 26 37 33 3a 2e 6e 6f  |ADC#0:STA&73:.no|
00001190  74 79 70 74 72 20 4a 4d  50 6c 65 66 61 63 65 0a  |typtr JMPleface.|
000011a0  2e 6e 6f 70 68 61 73 65  20 4c 44 41 72 67 68 74  |.nophase LDArght|
000011b0  73 3a 42 45 51 6e 6f 74  72 67 68 74 3a 4c 44 41  |s:BEQnotrght:LDA|
000011c0  26 37 30 3a 43 4c 43 3a  41 44 43 23 33 32 3a 53  |&70:CLC:ADC#32:S|
000011d0  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
000011e0  23 30 3a 53 54 41 26 37  31 3a 2e 6e 6f 74 72 67  |#0:STA&71:.notrg|
000011f0  68 74 20 4c 44 41 66 61  63 65 3a 42 4e 45 6c 65  |ht LDAface:BNEle|
00001200  66 61 63 65 3a 4c 44 41  26 37 32 3a 43 4c 43 3a  |face:LDA&72:CLC:|
00001210  41 44 43 23 26 32 30 3a  53 54 41 26 37 32 3a 2e  |ADC#&20:STA&72:.|
00001220  6c 65 66 61 63 65 20 4c  44 41 26 37 30 3a 53 54  |leface LDA&70:ST|
00001230  41 26 37 38 3a 4c 44 41  26 37 31 3a 53 54 41 26  |A&78:LDA&71:STA&|
00001240  37 39 0a 2e 6c 61 64 69  73 70 20 4c 44 41 28 26  |79..ladisp LDA(&|
00001250  37 30 29 2c 59 3a 53 54  41 28 77 69 72 65 70 29  |70),Y:STA(wirep)|
00001260  2c 59 3a 4f 52 41 28 26  37 32 29 2c 59 3a 53 54  |,Y:ORA(&72),Y:ST|
00001270  41 28 26 37 30 29 2c 59  3a 49 4e 59 3a 43 50 59  |A(&70),Y:INY:CPY|
00001280  23 33 32 3a 42 4e 45 6c  61 64 69 73 70 3a 4c 44  |#32:BNEladisp:LD|
00001290  41 26 37 32 3a 43 4c 43  3a 41 44 43 23 26 34 30  |A&72:CLC:ADC#&40|
000012a0  3a 53 54 41 26 37 32 3a  4c 44 41 26 37 33 3a 41  |:STA&72:LDA&73:A|
000012b0  44 43 23 30 3a 53 54 41  26 37 33 3a 4c 44 41 26  |DC#0:STA&73:LDA&|
000012c0  37 30 3a 43 4c 43 3a 41  44 43 23 26 38 30 3a 53  |70:CLC:ADC#&80:S|
000012d0  54 41 26 37 30 3a 4c 44  41 26 37 31 3a 41 44 43  |TA&70:LDA&71:ADC|
000012e0  23 32 3a 53 54 41 26 37  31 3a 4c 44 59 23 30 0a  |#2:STA&71:LDY#0.|
000012f0  2e 6c 62 64 69 73 70 20  4c 44 41 28 26 37 30 29  |.lbdisp LDA(&70)|
00001300  2c 59 3a 53 54 41 28 77  69 72 65 70 62 29 2c 59  |,Y:STA(wirepb),Y|
00001310  3a 4f 52 41 28 26 37 32  29 2c 59 3a 53 54 41 28  |:ORA(&72),Y:STA(|
00001320  26 37 30 29 2c 59 3a 49  4e 59 3a 43 50 59 23 33  |&70),Y:INY:CPY#3|
00001330  32 3a 42 4e 45 6c 62 64  69 73 70 3a 43 4c 49 3a  |2:BNElbdisp:CLI:|
00001340  52 54 53 0a 2e 77 61 69  74 20 4c 44 41 63 6c 6f  |RTS..wait LDAclo|
00001350  63 6b 3a 43 4d 50 26 38  30 3a 42 4e 45 77 61 69  |ck:CMP&80:BNEwai|
00001360  74 3a 4c 44 41 63 6c 6f  63 6b 3a 41 44 43 23 35  |t:LDAclock:ADC#5|
00001370  3a 53 54 41 26 38 30 3a  52 54 53 0a 2e 6a 75 6d  |:STA&80:RTS..jum|
00001380  70 75 70 20 44 45 43 75  70 76 65 6c 6f 3a 4c 44  |pup DECupvelo:LD|
00001390  41 79 70 6f 73 3a 42 45  51 75 70 73 63 72 3a 53  |Aypos:BEQupscr:S|
000013a0  45 43 3a 53 42 43 23 31  3a 53 54 41 79 73 65 74  |EC:SBC#1:STAyset|
000013b0  3a 4c 44 41 78 70 6f 73  3a 53 54 41 78 73 65 74  |:LDAxpos:STAxset|
000013c0  3a 4a 53 52 67 65 74 62  6c 6f 63 6b 3a 4a 53 52  |:JSRgetblock:JSR|
000013d0  64 6f 6f 72 63 68 3a 42  43 53 75 70 6f 6e 65 3a  |doorch:BCSupone:|
000013e0  41 4e 44 23 26 33 30 3a  42 45 51 75 70 6f 6e 65  |AND#&30:BEQupone|
000013f0  3a 4c 44 41 23 30 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#0:STAupvelo|
00001400  3a 52 54 53 3a 2e 75 70  6f 6e 65 20 4c 44 41 23  |:RTS:.upone LDA#|
00001410  36 3a 53 54 41 66 69 6e  65 3a 44 45 43 79 70 6f  |6:STAfine:DECypo|
00001420  73 3a 52 54 53 3a 2e 75  70 73 63 72 20 44 45 43  |s:RTS:.upscr DEC|
00001430  79 73 63 72 3a 4c 44 41  23 39 3a 53 54 41 79 70  |yscr:LDA#9:STAyp|
00001440  6f 73 3a 4a 4d 50 73 63  72 65 65 6e 0a 2e 73 63  |os:JMPscreen..sc|
00001450  72 65 65 6e 20 4c 44 41  23 30 3a 53 54 41 63 6c  |reen LDA#0:STAcl|
00001460  65 61 72 75 70 3a 53 54  41 6c 61 73 74 61 74 3a  |earup:STAlastat:|
00001470  53 54 41 69 6e 76 66 6c  61 67 3a 4a 53 52 73 63  |STAinvflag:JSRsc|
00001480  72 6f 66 66 3a 4c 44 41  78 70 6f 73 3a 53 54 41  |roff:LDAxpos:STA|
00001490  78 6f 6c 64 3a 4c 44 41  79 70 6f 73 3a 53 54 41  |xold:LDAypos:STA|
000014a0  79 6f 6c 64 3a 4a 53 52  70 6f 69 6e 74 3a 4c 44  |yold:JSRpoint:LD|
000014b0  41 23 26 46 46 3a 53 54  41 79 73 65 74 3a 2e 79  |A#&FF:STAyset:.y|
000014c0  6c 6f 70 20 4c 44 41 23  26 46 46 3a 53 54 41 78  |lop LDA#&FF:STAx|
000014d0  73 65 74 3a 49 4e 43 79  73 65 74 0a 2e 78 6c 6f  |set:INCyset..xlo|
000014e0  70 20 49 4e 43 78 73 65  74 3a 4a 53 52 64 61 72  |p INCxset:JSRdar|
000014f0  6b 3a 4c 44 41 78 73 65  74 3a 43 4d 50 23 39 3a  |k:LDAxset:CMP#9:|
00001500  42 45 51 6e 65 78 74 79  3a 4a 4d 50 78 6c 6f 70  |BEQnexty:JMPxlop|
00001510  3a 2e 6e 65 78 74 79 20  4c 44 41 79 73 65 74 3a  |:.nexty LDAyset:|
00001520  43 4d 50 23 39 3a 42 4e  45 79 6c 6f 70 3a 4a 53  |CMP#9:BNEylop:JS|
00001530  52 73 62 6f 61 72 64 3a  4a 53 52 6e 61 6d 73 63  |Rsboard:JSRnamsc|
00001540  72 0a 2e 73 63 72 6f 6e  20 4c 44 41 26 44 30 31  |r..scron LDA&D01|
00001550  31 3a 4f 52 41 23 26 31  30 3a 53 54 41 26 44 30  |1:ORA#&10:STA&D0|
00001560  31 31 3a 4c 44 41 63 6c  6f 63 6b 3a 43 4c 43 3a  |11:LDAclock:CLC:|
00001570  41 44 43 23 34 3a 53 54  41 26 38 30 3a 4c 44 41  |ADC#4:STA&80:LDA|
00001580  23 30 3a 53 54 41 77 69  70 65 72 3a 53 54 41 77  |#0:STAwiper:STAw|
00001590  69 70 65 72 6d 3a 4c 44  41 23 31 3a 53 54 41 63  |iperm:LDA#1:STAc|
000015a0  68 61 6e 67 65 64 3a 4a  4d 50 6d 6f 6e 73 65 74  |hanged:JMPmonset|
000015b0  0a 2e 6c 61 64 64 65 72  62 20 4c 44 41 23 33 3a  |..ladderb LDA#3:|
000015c0  4a 53 52 6b 65 79 62 79  74 65 3a 42 43 53 66 61  |JSRkeybyte:BCSfa|
000015d0  6c 6c 73 65 74 3a 4c 44  41 23 32 3a 4a 53 52 6b  |llset:LDA#2:JSRk|
000015e0  65 79 62 79 74 65 3a 42  43 43 73 74 61 62 6c 65  |eybyte:BCCstable|
000015f0  3a 4c 44 41 23 31 3a 53  54 41 75 70 76 65 6c 6f  |:LDA#1:STAupvelo|
00001600  3a 4a 53 52 6a 75 6d 70  75 70 3a 4a 4d 50 6f 6c  |:JSRjumpup:JMPol|
00001610  64 73 63 72 3a 2e 73 74  61 62 6c 65 20 4a 4d 50  |dscr:.stable JMP|
00001620  6e 6f 66 61 6c 6c 3a 2e  66 61 6c 6c 73 65 74 20  |nofall:.fallset |
00001630  4a 4d 50 6c 61 64 64 6f  77 6e 0a 2e 62 6c 6f 63  |JMPladdown..bloc|
00001640  6b 6f 6e 20 4a 53 52 6f  62 6a 63 68 65 63 6b 3a  |kon JSRobjcheck:|
00001650  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 4c 44 41 78  |JSRgetblock:LDAx|
00001660  73 65 74 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |set:ASL A:ASL A:|
00001670  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00001680  41 3a 41 53 4c 20 41 3a  53 54 41 26 37 30 3a 4c  |A:ASL A:STA&70:L|
00001690  44 41 78 73 65 74 3a 4c  53 52 20 41 3a 4c 53 52  |DAxset:LSR A:LSR|
000016a0  20 41 3a 43 4c 43 3a 41  44 43 23 26 33 35 3a 53  | A:CLC:ADC#&35:S|
000016b0  54 41 26 37 31 3a 4c 44  41 79 73 65 74 3a 43 4c  |TA&71:LDAyset:CL|
000016c0  43 3a 41 44 43 26 37 31  3a 53 54 41 26 37 31 3a  |C:ADC&71:STA&71:|
000016d0  4c 44 41 79 73 65 74 3a  41 53 4c 20 41 3a 41 53  |LDAyset:ASL A:AS|
000016e0  4c 20 41 3a 43 4c 43 3a  41 44 43 26 37 31 3a 53  |L A:CLC:ADC&71:S|
000016f0  54 41 26 37 31 0a 4c 44  41 26 37 32 3a 4c 53 52  |TA&71.LDA&72:LSR|
00001700  20 41 3a 4c 53 52 20 41  3a 43 4c 43 3a 41 44 43  | A:LSR A:CLC:ADC|
00001710  23 26 32 30 3a 53 54 41  26 37 33 3a 4c 44 41 26  |#&20:STA&73:LDA&|
00001720  37 32 3a 43 4d 50 23 33  30 3a 42 45 51 64 6f 6f  |72:CMP#30:BEQdoo|
00001730  72 63 6f 6c 3a 4c 53 52  20 41 3a 52 4f 52 20 41  |rcol:LSR A:ROR A|
00001740  3a 52 4f 52 20 41 3a 41  4e 44 23 26 43 30 3a 53  |:ROR A:AND#&C0:S|
00001750  54 41 26 37 32 3a 4c 44  59 23 30 0a 2e 74 72 61  |TA&72:LDY#0..tra|
00001760  6e 73 74 6f 70 20 4c 44  41 28 26 37 30 29 2c 59  |nstop LDA(&70),Y|
00001770  3a 41 4e 44 23 26 43 30  3a 43 4c 43 3a 41 44 43  |:AND#&C0:CLC:ADC|
00001780  28 26 37 32 29 2c 59 3a  53 54 41 28 26 37 30 29  |(&72),Y:STA(&70)|
00001790  2c 59 3a 49 4e 59 3a 43  50 59 23 26 34 30 3a 42  |,Y:INY:CPY#&40:B|
000017a0  4e 45 74 72 61 6e 73 74  6f 70 3a 4c 44 59 23 30  |NEtranstop:LDY#0|
000017b0  3a 4c 44 41 26 37 32 3a  43 4c 43 3a 41 44 43 23  |:LDA&72:CLC:ADC#|
000017c0  26 34 30 3a 53 54 41 26  37 32 3a 4c 44 41 26 37  |&40:STA&72:LDA&7|
000017d0  30 3a 43 4c 43 3a 41 44  43 23 26 38 30 3a 53 54  |0:CLC:ADC#&80:ST|
000017e0  41 26 37 30 3a 4c 44 41  26 37 31 3a 41 44 43 23  |A&70:LDA&71:ADC#|
000017f0  32 3a 53 54 41 26 37 31  0a 2e 74 72 61 6e 73 62  |2:STA&71..transb|
00001800  6f 74 20 4c 44 41 28 26  37 30 29 2c 59 3a 41 4e  |ot LDA(&70),Y:AN|
00001810  44 23 26 43 30 3a 43 4c  43 3a 41 44 43 28 26 37  |D#&C0:CLC:ADC(&7|
00001820  32 29 2c 59 3a 53 54 41  28 26 37 30 29 2c 59 3a  |2),Y:STA(&70),Y:|
00001830  49 4e 59 3a 43 50 59 23  26 34 30 3a 42 4e 45 74  |INY:CPY#&40:BNEt|
00001840  72 61 6e 73 62 6f 74 3a  52 54 53 3a 2e 64 6f 6f  |ransbot:RTS:.doo|
00001850  72 63 6f 6c 20 4a 4d 50  6c 6f 63 6b 74 79 70 65  |rcol JMPlocktype|
00001860  0a 2e 67 65 74 62 6c 6f  63 6b 20 4c 44 41 23 26  |..getblock LDA#&|
00001870  33 30 3a 43 4c 43 3a 41  44 43 78 73 63 72 3a 53  |30:CLC:ADCxscr:S|
00001880  54 41 26 37 31 3a 4c 44  41 79 73 63 72 3a 41 53  |TA&71:LDAyscr:AS|
00001890  4c 20 41 3a 41 53 4c 20  41 3a 41 53 4c 20 41 3a  |L A:ASL A:ASL A:|
000018a0  41 53 4c 20 41 3a 43 4c  43 3a 41 44 43 26 37 31  |ASL A:CLC:ADC&71|
000018b0  3a 53 54 41 73 63 72 6e  6f 0a 53 54 41 26 37 31  |:STAscrno.STA&71|
000018c0  3a 4c 44 41 79 73 65 74  3a 53 54 41 26 37 30 3a  |:LDAyset:STA&70:|
000018d0  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
000018e0  41 3a 50 48 41 3a 43 4c  43 3a 41 44 43 26 37 30  |A:PHA:CLC:ADC&70|
000018f0  3a 53 54 41 26 37 30 3a  50 4c 41 3a 41 53 4c 20  |:STA&70:PLA:ASL |
00001900  41 3a 43 4c 43 3a 41 44  43 26 37 30 3a 53 54 41  |A:CLC:ADC&70:STA|
00001910  26 37 30 3a 4c 44 59 78  73 65 74 3a 4c 44 41 78  |&70:LDYxset:LDAx|
00001920  64 61 74 61 2c 59 3a 54  41 59 3a 4c 44 41 28 26  |data,Y:TAY:LDA(&|
00001930  37 30 29 2c 59 3a 52 4f  4c 20 41 3a 52 4f 4c 20  |70),Y:ROL A:ROL |
00001940  41 3a 52 4f 4c 20 41 3a  41 4e 44 23 33 3a 53 54  |A:ROL A:AND#3:ST|
00001950  41 26 37 32 3a 49 4e 59  3a 4c 44 41 28 26 37 30  |A&72:INY:LDA(&70|
00001960  29 2c 59 3a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |),Y:LSR A:LSR A:|
00001970  4c 53 52 20 41 3a 4c 53  52 20 41 3a 41 4e 44 23  |LSR A:LSR A:AND#|
00001980  31 32 0a 43 4c 43 3a 41  44 43 26 37 32 3a 53 54  |12.CLC:ADC&72:ST|
00001990  41 26 37 32 3a 4c 44 41  78 73 65 74 3a 4c 53 52  |A&72:LDAxset:LSR|
000019a0  20 41 3a 54 41 59 3a 4c  44 41 68 62 64 61 74 2c  | A:TAY:LDAhbdat,|
000019b0  59 3a 54 41 59 3a 4c 44  41 28 26 37 30 29 2c 59  |Y:TAY:LDA(&70),Y|
000019c0  3a 53 54 41 26 37 33 3a  4c 44 41 78 73 65 74 3a  |:STA&73:LDAxset:|
000019d0  41 4e 44 23 31 3a 42 4e  45 62 69 74 32 3a 4c 44  |AND#1:BNEbit2:LD|
000019e0  41 26 37 33 3a 41 53 4c  20 41 3a 52 4f 4c 20 41  |A&73:ASL A:ROL A|
000019f0  3a 52 4f 4c 20 41 3a 4a  4d 50 66 62 67 6f 74 0a  |:ROL A:JMPfbgot.|
00001a00  2e 62 69 74 32 20 4c 44  41 26 37 33 3a 41 53 4c  |.bit2 LDA&73:ASL|
00001a10  20 41 3a 52 4f 4c 20 41  3a 2e 66 62 67 6f 74 20  | A:ROL A:.fbgot |
00001a20  41 4e 44 23 31 3a 41 53  4c 20 41 3a 41 53 4c 20  |AND#1:ASL A:ASL |
00001a30  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 43 4c  |A:ASL A:ASL A:CL|
00001a40  43 3a 41 44 43 26 37 32  3a 41 53 4c 20 41 3a 53  |C:ADC&72:ASL A:S|
00001a50  54 41 26 37 32 3a 52 54  53 0a 2e 62 6c 61 73 63  |TA&72:RTS..blasc|
00001a60  72 20 4a 53 52 73 63 72  6f 66 66 3a 4c 44 59 23  |r JSRscroff:LDY#|
00001a70  30 3a 53 54 59 26 37 30  3a 4c 44 41 23 26 33 30  |0:STY&70:LDA#&30|
00001a80  3a 53 54 41 26 37 31 3a  2e 62 6c 61 6e 6c 6f 70  |:STA&71:.blanlop|
00001a90  20 4c 44 41 28 26 37 30  29 2c 59 3a 41 4e 44 23  | LDA(&70),Y:AND#|
00001aa0  26 43 30 3a 53 54 41 28  26 37 30 29 2c 59 3a 49  |&C0:STA(&70),Y:I|
00001ab0  4e 59 3a 42 4e 45 62 6c  61 6e 6c 6f 70 3a 49 4e  |NY:BNEblanlop:IN|
00001ac0  43 26 37 31 3a 4c 44 41  26 37 31 3a 43 4d 50 23  |C&71:LDA&71:CMP#|
00001ad0  26 38 30 3a 42 4e 45 62  6c 61 6e 6c 6f 70 3a 4a  |&80:BNEblanlop:J|
00001ae0  4d 50 73 63 72 6f 6e 0a  2e 70 75 74 63 68 20 41  |MPscron..putch A|
00001af0  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00001b00  3a 54 41 58 3a 4c 44 41  23 30 3a 53 54 41 26 37  |:TAX:LDA#0:STA&7|
00001b10  30 3a 4c 44 41 23 26 33  30 3a 53 54 41 26 37 31  |0:LDA#&30:STA&71|
00001b20  3a 4c 44 59 78 63 68 0a  2e 78 6c 6f 70 63 20 42  |:LDYxch..xlopc B|
00001b30  45 51 6e 6f 78 63 68 3a  4c 44 41 26 37 30 3a 43  |EQnoxch:LDA&70:C|
00001b40  4c 43 3a 41 44 43 23 26  32 30 3a 53 54 41 26 37  |LC:ADC#&20:STA&7|
00001b50  30 3a 4c 44 41 26 37 31  3a 41 44 43 23 30 3a 53  |0:LDA&71:ADC#0:S|
00001b60  54 41 26 37 31 3a 44 45  59 3a 4a 4d 50 78 6c 6f  |TA&71:DEY:JMPxlo|
00001b70  70 63 0a 2e 6e 6f 78 63  68 20 4c 44 59 79 63 68  |pc..noxch LDYych|
00001b80  3a 2e 79 6c 6f 70 63 20  42 45 51 6e 6f 79 63 68  |:.ylopc BEQnoych|
00001b90  3a 4c 44 41 26 37 30 3a  43 4c 43 3a 41 44 43 23  |:LDA&70:CLC:ADC#|
00001ba0  26 38 30 3a 53 54 41 26  37 30 3a 4c 44 41 26 37  |&80:STA&70:LDA&7|
00001bb0  31 3a 41 44 43 23 32 3a  53 54 41 26 37 31 3a 44  |1:ADC#2:STA&71:D|
00001bc0  45 59 3a 4a 4d 50 79 6c  6f 70 63 0a 2e 6e 6f 79  |EY:JMPylopc..noy|
00001bd0  63 68 20 4c 44 59 23 30  3a 2e 73 6c 69 6e 65 20  |ch LDY#0:.sline |
00001be0  4c 44 41 26 43 30 30 2c  58 3a 2e 6c 69 6e 65 6c  |LDA&C00,X:.linel|
00001bf0  6f 70 20 50 48 41 3a 41  53 4c 20 41 3a 52 4f 4c  |op PHA:ASL A:ROL|
00001c00  20 41 3a 52 4f 4c 20 41  3a 41 4e 44 23 33 3a 42  | A:ROL A:AND#3:B|
00001c10  45 51 62 6c 61 6e 63 68  3a 53 54 41 26 38 30 3a  |EQblanch:STA&80:|
00001c20  4c 44 41 23 30 3a 2e 63  6f 6c 63 68 20 43 4c 43  |LDA#0:.colch CLC|
00001c30  3a 41 44 43 63 6f 6c 3a  44 45 43 26 38 30 3a 42  |:ADCcol:DEC&80:B|
00001c40  4e 45 63 6f 6c 63 68 3a  2e 62 6c 61 6e 63 68 20  |NEcolch:.blanch |
00001c50  53 54 41 26 38 30 3a 4c  44 41 28 26 37 30 29 2c  |STA&80:LDA(&70),|
00001c60  59 3a 41 4e 44 23 26 43  30 3a 4f 52 41 26 38 30  |Y:AND#&C0:ORA&80|
00001c70  3a 45 4f 52 69 6e 76 66  6c 61 67 3a 53 54 41 28  |:EORinvflag:STA(|
00001c80  26 37 30 29 2c 59 3a 54  59 41 3a 43 4c 43 3a 41  |&70),Y:TYA:CLC:A|
00001c90  44 43 23 38 3a 54 41 59  3a 43 4d 50 23 26 32 30  |DC#8:TAY:CMP#&20|
00001ca0  3a 42 43 53 6e 65 77 6c  69 6e 0a 50 4c 41 3a 41  |:BCSnewlin.PLA:A|
00001cb0  53 4c 20 41 3a 41 53 4c  20 41 3a 4a 4d 50 6c 69  |SL A:ASL A:JMPli|
00001cc0  6e 65 6c 6f 70 3a 2e 6e  65 77 6c 69 6e 20 41 4e  |nelop:.newlin AN|
00001cd0  44 23 37 3a 54 41 59 3a  50 4c 41 3a 49 4e 59 3a  |D#7:TAY:PLA:INY:|
00001ce0  49 4e 58 3a 43 50 59 23  38 3a 42 4e 45 73 6c 69  |INX:CPY#8:BNEsli|
00001cf0  6e 65 3a 52 54 53 0a 0a  2e 73 74 72 69 6e 67 20  |ne:RTS...string |
00001d00  4c 44 59 23 30 3a 4c 44  41 28 26 37 32 29 2c 59  |LDY#0:LDA(&72),Y|
00001d10  3a 43 4d 50 23 26 46 46  3a 42 45 51 73 74 72 65  |:CMP#&FF:BEQstre|
00001d20  6e 64 3a 4a 53 52 70 75  74 63 68 3a 49 4e 43 78  |nd:JSRputch:INCx|
00001d30  63 68 3a 4c 44 41 26 37  32 3a 43 4c 43 3a 41 44  |ch:LDA&72:CLC:AD|
00001d40  43 23 31 3a 53 54 41 26  37 32 3a 4c 44 41 26 37  |C#1:STA&72:LDA&7|
00001d50  33 3a 41 44 43 23 30 3a  53 54 41 26 37 33 3a 4a  |3:ADC#0:STA&73:J|
00001d60  4d 50 73 74 72 69 6e 67  0a 2e 71 75 69 74 63 68  |MPstring..quitch|
00001d70  20 4c 44 41 23 37 3a 4a  53 52 6b 65 79 62 79 74  | LDA#7:JSRkeybyt|
00001d80  65 3a 42 43 53 71 75 69  74 6f 6b 3a 2e 73 74 72  |e:BCSquitok:.str|
00001d90  65 6e 64 20 52 54 53 3a  2e 71 75 69 74 6f 6b 20  |end RTS:.quitok |
00001da0  50 4c 41 3a 50 4c 41 3a  4c 44 41 23 38 3a 4a 53  |PLA:PLA:LDA#8:JS|
00001db0  52 6b 65 79 62 79 74 65  3a 42 43 43 7a 61 70 3a  |Rkeybyte:BCCzap:|
00001dc0  4a 4d 50 70 72 6f 67 0a  2e 7a 61 70 20 4c 44 41  |JMPprog..zap LDA|
00001dd0  78 6f 6c 64 3a 53 54 41  78 70 6f 73 3a 4c 44 41  |xold:STAxpos:LDA|
00001de0  79 6f 6c 64 3a 53 54 41  79 70 6f 73 3a 4c 44 41  |yold:STAypos:LDA|
00001df0  73 6f 75 6e 64 3a 42 45  51 6e 6f 7a 61 70 73 3a  |sound:BEQnozaps:|
00001e00  4c 44 41 23 37 3a 4c 44  58 23 28 7a 61 70 6e 20  |LDA#7:LDX#(zapn |
00001e10  4d 4f 44 20 32 35 36 29  3a 4c 44 59 23 28 7a 61  |MOD 256):LDY#(za|
00001e20  70 6e 20 44 49 56 20 32  35 36 29 3a 4a 53 52 6f  |pn DIV 256):JSRo|
00001e30  73 77 6f 72 64 0a 2e 6e  6f 7a 61 70 73 20 4c 44  |sword..nozaps LD|
00001e40  41 23 31 3a 53 54 41 70  6f 77 63 68 61 6e 67 65  |A#1:STApowchange|
00001e50  3a 4c 44 41 70 6f 77 65  72 3a 53 45 43 3a 53 42  |:LDApower:SEC:SB|
00001e60  43 23 26 32 38 3a 53 54  41 70 6f 77 65 72 3a 42  |C#&28:STApower:B|
00001e70  45 51 79 6f 75 64 69 65  3a 42 43 43 79 6f 75 64  |EQyoudie:BCCyoud|
00001e80  69 65 3a 4a 4d 50 6e 65  77 73 63 72 0a 2e 79 6f  |ie:JMPnewscr..yo|
00001e90  75 64 69 65 20 4a 4d 50  6b 69 6c 6c 75 0a 2e 67  |udie JMPkillu..g|
00001ea0  61 6d 65 6f 76 65 72 20  4c 44 41 23 35 3a 53 54  |ameover LDA#5:ST|
00001eb0  41 78 63 68 3a 4c 44 41  23 31 36 3a 53 54 41 79  |Axch:LDA#16:STAy|
00001ec0  63 68 3a 4c 44 41 23 31  3a 53 54 41 63 6f 6c 3a  |ch:LDA#1:STAcol:|
00001ed0  4c 44 41 23 28 67 61 6d  64 65 61 64 20 4d 4f 44  |LDA#(gamdead MOD|
00001ee0  20 32 35 36 29 3a 53 54  41 26 37 32 3a 4c 44 41  | 256):STA&72:LDA|
00001ef0  23 28 67 61 6d 64 65 61  64 20 44 49 56 20 32 35  |#(gamdead DIV 25|
00001f00  36 29 3a 53 54 41 26 37  33 3a 4a 53 52 73 74 72  |6):STA&73:JSRstr|
00001f10  69 6e 67 3a 4c 44 41 23  30 3a 50 48 41 0a 2e 62  |ing:LDA#0:PHA..b|
00001f20  65 6c 6c 6f 70 20 4c 44  41 63 6c 6f 63 6b 3a 43  |ellop LDAclock:C|
00001f30  4c 43 3a 41 44 43 23 31  30 30 3a 53 54 41 26 38  |LC:ADC#100:STA&8|
00001f40  30 3a 2e 62 65 6c 77 61  69 74 20 4c 44 41 63 6c  |0:.belwait LDAcl|
00001f50  6f 63 6b 3a 43 4d 50 26  38 30 3a 42 4e 45 62 65  |ock:CMP&80:BNEbe|
00001f60  6c 77 61 69 74 3a 4c 44  41 73 6f 75 6e 64 3a 42  |lwait:LDAsound:B|
00001f70  45 51 6e 6f 62 65 6c 6c  3a 4c 44 41 23 37 3a 4c  |EQnobell:LDA#7:L|
00001f80  44 58 23 28 6f 76 65 72  20 4d 4f 44 20 32 35 36  |DX#(over MOD 256|
00001f90  29 3a 4c 44 59 23 28 6f  76 65 72 20 44 49 56 20  |):LDY#(over DIV |
00001fa0  32 35 36 29 3a 4a 53 52  6f 73 77 6f 72 64 0a 2e  |256):JSRosword..|
00001fb0  6e 6f 62 65 6c 6c 20 50  4c 41 3a 43 4c 43 3a 41  |nobell PLA:CLC:A|
00001fc0  44 43 23 31 3a 50 48 41  3a 43 4d 50 23 34 3a 42  |DC#1:PHA:CMP#4:B|
00001fd0  4e 45 62 65 6c 6c 6f 70  3a 50 4c 41 3a 52 54 53  |NEbellop:PLA:RTS|
00001fe0  0a 2e 67 61 6d 64 65 61  64 20 45 51 55 42 37 3a  |..gamdead EQUB7:|
00001ff0  45 51 55 42 31 3a 45 51  55 42 31 32 3a 45 51 55  |EQUB1:EQUB12:EQU|
00002000  42 35 3a 45 51 55 42 30  3a 45 51 55 42 32 32 3a  |B5:EQUB0:EQUB22:|
00002010  45 51 55 42 31 39 3a 45  51 55 42 35 3a 45 51 55  |EQUB19:EQUB5:EQU|
00002020  42 31 35 3a 45 51 55 42  32 35 35 0a 2e 6f 76 65  |B15:EQUB255..ove|
00002030  72 20 45 51 55 57 31 3a  45 51 55 57 2d 31 35 3a  |r EQUW1:EQUW-15:|
00002040  45 51 55 57 30 3a 45 51  55 57 35 0a 2e 73 62 6f  |EQUW0:EQUW5..sbo|
00002050  61 72 64 20 4c 44 41 70  6f 77 63 68 61 6e 67 65  |ard LDApowchange|
00002060  3a 42 45 51 6e 6f 70 6f  77 65 72 3a 4c 44 58 23  |:BEQnopower:LDX#|
00002070  30 3a 2e 70 6f 77 6c 6f  70 20 4c 44 41 26 37 43  |0:.powlop LDA&7C|
00002080  37 30 2c 58 3a 41 4e 44  23 26 43 30 3a 4f 52 41  |70,X:AND#&C0:ORA|
00002090  23 34 3a 53 54 41 26 37  43 37 30 2c 58 3a 3a 49  |#4:STA&7C70,X::I|
000020a0  4e 58 3a 43 50 58 70 6f  77 65 72 3a 42 4e 45 70  |NX:CPXpower:BNEp|
000020b0  6f 77 6c 6f 70 3a 2e 70  6f 77 6e 6f 6c 20 4c 44  |owlop:.pownol LD|
000020c0  41 26 37 43 37 30 2c 58  3a 41 4e 44 23 26 43 30  |A&7C70,X:AND#&C0|
000020d0  3a 53 54 41 26 37 43 37  30 2c 58 3a 49 4e 58 3a  |:STA&7C70,X:INX:|
000020e0  42 4e 45 70 6f 77 6e 6f  6c 0a 2e 6e 6f 70 6f 77  |BNEpownol..nopow|
000020f0  65 72 20 4c 44 41 6f 62  63 68 3a 42 45 51 66 69  |er LDAobch:BEQfi|
00002100  6e 6f 62 73 63 3a 4c 44  41 23 38 3a 53 54 41 78  |nobsc:LDA#8:STAx|
00002110  63 68 3a 4c 44 41 23 32  36 3a 53 54 41 79 63 68  |ch:LDA#26:STAych|
00002120  3a 4c 44 41 6f 62 6a 65  63 74 73 3a 43 4d 50 23  |:LDAobjects:CMP#|
00002130  26 32 30 3a 42 43 53 62  6c 61 6e 6b 6f 62 61 3a  |&20:BCSblankoba:|
00002140  54 41 59 3a 4a 53 52 64  72 61 77 6f 70 3a 4a 4d  |TAY:JSRdrawop:JM|
00002150  50 73 65 63 6f 6e 64 6f  3a 2e 62 6c 61 6e 6b 6f  |Psecondo:.blanko|
00002160  62 61 20 4a 53 52 62 6c  61 6e 6b 6f 62 3a 4a 4d  |ba JSRblankob:JM|
00002170  50 73 65 63 6f 6e 64 6f  0a 2e 62 6c 61 6e 6b 6f  |Psecondo..blanko|
00002180  62 20 4c 44 41 23 30 3a  4a 53 52 70 75 74 63 68  |b LDA#0:JSRputch|
00002190  3a 49 4e 43 78 63 68 3a  4c 44 41 23 30 3a 4a 53  |:INCxch:LDA#0:JS|
000021a0  52 70 75 74 63 68 3a 49  4e 43 79 63 68 3a 4c 44  |Rputch:INCych:LD|
000021b0  41 23 30 3a 4a 53 52 70  75 74 63 68 3a 44 45 43  |A#0:JSRputch:DEC|
000021c0  78 63 68 3a 4c 44 41 23  30 3a 4a 4d 50 70 75 74  |xch:LDA#0:JMPput|
000021d0  63 68 0a 2e 73 65 63 6f  6e 64 6f 20 4c 44 41 23  |ch..secondo LDA#|
000021e0  31 30 3a 53 54 41 78 63  68 3a 4c 44 41 23 32 36  |10:STAxch:LDA#26|
000021f0  3a 53 54 41 79 63 68 3a  4c 44 41 6f 62 6a 65 63  |:STAych:LDAobjec|
00002200  74 73 2b 31 3a 43 4d 50  23 26 32 30 3a 42 43 53  |ts+1:CMP#&20:BCS|
00002210  62 6c 61 6e 6b 6f 62 62  3a 54 41 59 3a 4a 53 52  |blankobb:TAY:JSR|
00002220  64 72 61 77 6f 70 3a 4a  4d 50 66 69 6e 6f 62 73  |drawop:JMPfinobs|
00002230  63 3a 2e 62 6c 61 6e 6b  6f 62 62 20 4a 53 52 62  |c:.blankobb JSRb|
00002240  6c 61 6e 6b 6f 62 0a 2e  66 69 6e 6f 62 73 63 20  |lankob..finobsc |
00002250  4c 44 41 73 63 72 63 68  3a 42 45 51 6e 6f 73 63  |LDAscrch:BEQnosc|
00002260  72 3a 4a 53 52 73 63 6f  72 62 3a 2e 6e 6f 73 63  |r:JSRscorb:.nosc|
00002270  72 20 4c 44 41 6f 62 63  68 3a 42 45 51 6e 6f 6f  |r LDAobch:BEQnoo|
00002280  62 63 68 3a 4c 44 41 63  6c 6f 63 6b 3a 43 4c 43  |bch:LDAclock:CLC|
00002290  3a 41 44 43 23 35 3a 53  54 41 26 38 30 3a 2e 6e  |:ADC#5:STA&80:.n|
000022a0  6f 6f 62 63 68 20 4c 44  41 23 30 3a 53 54 41 6f  |oobch LDA#0:STAo|
000022b0  62 63 68 3a 53 54 41 70  6f 77 63 68 61 6e 67 65  |bch:STApowchange|
000022c0  3a 53 54 41 73 63 72 63  68 3a 52 54 53 0a 2e 64  |:STAscrch:RTS..d|
000022d0  72 61 77 6f 70 20 4c 44  41 78 63 68 3a 4c 53 52  |rawop LDAxch:LSR|
000022e0  20 41 3a 53 54 41 78 73  65 74 3a 4c 44 41 79 63  | A:STAxset:LDAyc|
000022f0  68 3a 53 45 43 3a 53 42  43 23 32 3a 4c 53 52 20  |h:SEC:SBC#2:LSR |
00002300  41 3a 53 54 41 79 73 65  74 3a 4a 53 52 64 72 61  |A:STAyset:JSRdra|
00002310  77 6f 62 6a 0a 2e 6f 62  6a 65 63 74 68 20 4c 44  |wobj..objecth LD|
00002320  59 23 30 3a 2e 6f 62 6c  6f 70 20 4c 44 41 26 46  |Y#0:.oblop LDA&F|
00002330  41 30 2c 59 3a 41 4e 44  23 31 35 3a 53 54 41 26  |A0,Y:AND#15:STA&|
00002340  46 32 30 2c 59 3a 4c 44  41 26 46 43 30 2c 59 3a  |F20,Y:LDA&FC0,Y:|
00002350  41 4e 44 23 31 35 3a 53  54 41 26 46 34 30 2c 59  |AND#15:STA&F40,Y|
00002360  3a 4c 44 41 26 46 45 30  2c 59 3a 4c 53 52 20 41  |:LDA&FE0,Y:LSR A|
00002370  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00002380  20 41 3a 41 4e 44 23 31  35 3a 53 54 41 26 46 36  | A:AND#15:STA&F6|
00002390  30 2c 59 3a 4c 44 41 26  46 45 30 2c 59 3a 41 4e  |0,Y:LDA&FE0,Y:AN|
000023a0  44 23 31 35 3a 53 54 41  26 46 38 30 2c 59 3a 49  |D#15:STA&F80,Y:I|
000023b0  4e 59 3a 43 50 59 23 33  32 3a 42 4e 45 6f 62 6c  |NY:CPY#32:BNEobl|
000023c0  6f 70 3a 52 54 53 0a 2e  6f 62 6a 63 68 65 63 6b  |op:RTS..objcheck|
000023d0  20 4c 44 59 23 30 3a 2e  6f 62 63 6c 6f 70 20 4c  | LDY#0:.obclop L|
000023e0  44 41 26 46 32 30 2c 59  3a 43 4d 50 78 73 65 74  |DA&F20,Y:CMPxset|
000023f0  3a 42 4e 45 6e 6f 74 74  68 61 74 3a 4c 44 41 26  |:BNEnotthat:LDA&|
00002400  46 34 30 2c 59 3a 43 4d  50 79 73 65 74 3a 42 4e  |F40,Y:CMPyset:BN|
00002410  45 6e 6f 74 74 68 61 74  3a 4c 44 41 26 46 36 30  |Enotthat:LDA&F60|
00002420  2c 59 3a 43 4d 50 78 73  63 72 3a 42 4e 45 6e 6f  |,Y:CMPxscr:BNEno|
00002430  74 74 68 61 74 3a 4c 44  41 26 46 38 30 2c 59 3a  |tthat:LDA&F80,Y:|
00002440  43 4d 50 79 73 63 72 3a  42 45 51 20 64 72 61 77  |CMPyscr:BEQ draw|
00002450  6f 62 6a 3a 2e 6e 6f 74  74 68 61 74 20 49 4e 59  |obj:.notthat INY|
00002460  3a 43 50 59 23 33 32 3a  42 4e 45 6f 62 63 6c 6f  |:CPY#32:BNEobclo|
00002470  70 3a 52 54 53 0a 2e 64  72 61 77 6f 62 6a 20 50  |p:RTS..drawobj P|
00002480  4c 41 3a 50 4c 41 3a 4c  44 41 78 73 65 74 3a 41  |LA:PLA:LDAxset:A|
00002490  53 4c 20 41 3a 53 54 41  78 63 68 3a 4c 44 41 79  |SL A:STAxch:LDAy|
000024a0  73 65 74 3a 43 4c 43 3a  41 44 43 23 31 3a 41 53  |set:CLC:ADC#1:AS|
000024b0  4c 20 41 3a 53 54 41 79  63 68 3a 4c 44 41 26 46  |L A:STAych:LDA&F|
000024c0  30 30 2c 59 3a 53 54 41  63 6f 6c 3a 54 59 41 3a  |00,Y:STAcol:TYA:|
000024d0  43 4c 43 3a 41 44 43 23  26 45 30 3a 53 54 41 26  |CLC:ADC#&E0:STA&|
000024e0  37 46 0a 4c 44 41 23 30  3a 53 54 41 26 37 32 3a  |7F.LDA#0:STA&72:|
000024f0  4c 44 41 23 26 41 3a 53  54 41 26 37 33 3a 4a 53  |LDA#&A:STA&73:JS|
00002500  52 6f 62 6a 64 69 73 70  3a 49 4e 43 78 63 68 3a  |Robjdisp:INCxch:|
00002510  49 4e 43 26 37 33 3a 4a  53 52 6f 62 6a 64 69 73  |INC&73:JSRobjdis|
00002520  70 3a 49 4e 43 79 63 68  3a 4c 44 41 23 26 45 3a  |p:INCych:LDA#&E:|
00002530  53 54 41 26 37 33 3a 4a  53 52 6f 62 6a 64 69 73  |STA&73:JSRobjdis|
00002540  70 3a 44 45 43 78 63 68  3a 44 45 43 26 37 33 3a  |p:DECxch:DEC&73:|
00002550  4a 53 52 6f 62 6a 64 69  73 70 3a 4c 44 59 23 38  |JSRobjdisp:LDY#8|
00002560  3a 4c 44 41 23 30 3a 2e  63 6c 65 61 72 73 70 6f  |:LDA#0:.clearspo|
00002570  62 20 53 54 41 26 42 46  46 2c 59 3a 44 45 59 3a  |b STA&BFF,Y:DEY:|
00002580  42 4e 45 63 6c 65 61 72  73 70 6f 62 3a 52 54 53  |BNEclearspob:RTS|
00002590  0a 2e 6f 62 6a 64 69 73  70 20 4c 44 59 26 37 46  |..objdisp LDY&7F|
000025a0  3a 4c 44 58 23 38 3a 2e  6f 62 6a 64 6c 6f 70 20  |:LDX#8:.objdlop |
000025b0  4c 44 41 28 26 37 32 29  2c 59 3a 53 54 41 26 42  |LDA(&72),Y:STA&B|
000025c0  46 46 2c 58 3a 54 59 41  3a 53 45 43 3a 53 42 43  |FF,X:TYA:SEC:SBC|
000025d0  23 33 32 3a 54 41 59 3a  44 45 58 3a 42 4e 45 6f  |#32:TAY:DEX:BNEo|
000025e0  62 6a 64 6c 6f 70 3a 54  58 41 3a 4a 4d 50 70 75  |bjdlop:TXA:JMPpu|
000025f0  74 63 68 0a 2e 67 65 74  6f 70 75 74 20 4c 44 41  |tch..getoput LDA|
00002600  23 34 3a 4a 53 52 6b 65  79 62 79 74 65 3a 42 43  |#4:JSRkeybyte:BC|
00002610  53 70 69 63 6b 75 70 3a  4c 44 41 23 30 3a 53 54  |Spickup:LDA#0:ST|
00002620  41 67 65 74 73 74 61 74  3a 2e 6b 65 79 68 61 6e  |Agetstat:.keyhan|
00002630  67 20 52 54 53 0a 2e 70  69 63 6b 75 70 20 4c 44  |g RTS..pickup LD|
00002640  41 67 65 74 73 74 61 74  3a 42 4e 45 6b 65 79 68  |Agetstat:BNEkeyh|
00002650  61 6e 67 3a 4c 44 41 73  6f 75 6e 64 3a 42 45 51  |ang:LDAsound:BEQ|
00002660  6e 6f 67 70 3a 4c 44 41  23 37 3a 4c 44 58 23 28  |nogp:LDA#7:LDX#(|
00002670  73 77 69 74 6e 20 4d 4f  44 20 32 35 36 29 3a 4c  |switn MOD 256):L|
00002680  44 59 23 28 73 77 69 74  6e 20 44 49 56 20 32 35  |DY#(switn DIV 25|
00002690  36 29 3a 4a 53 52 6f 73  77 6f 72 64 3a 2e 6e 6f  |6):JSRosword:.no|
000026a0  67 70 20 4c 44 41 6f 62  6a 65 63 74 73 2b 31 3a  |gp LDAobjects+1:|
000026b0  43 4d 50 23 26 32 30 3a  42 43 53 6e 6f 70 75 74  |CMP#&20:BCSnoput|
000026c0  64 6f 77 6e 3a 54 41 59  3a 4c 44 41 78 73 63 72  |down:TAY:LDAxscr|
000026d0  3a 53 54 41 26 46 36 30  2c 59 3a 4c 44 41 79 73  |:STA&F60,Y:LDAys|
000026e0  63 72 3a 53 54 41 26 46  38 30 2c 59 3a 4c 44 41  |cr:STA&F80,Y:LDA|
000026f0  78 70 6f 73 3a 53 54 41  26 46 32 30 2c 59 3a 4c  |xpos:STA&F20,Y:L|
00002700  44 41 79 70 6f 73 3a 53  54 41 26 46 34 30 2c 59  |DAypos:STA&F40,Y|
00002710  3a 53 54 59 26 37 30 3a  4a 53 52 70 75 7a 7a 0a  |:STY&70:JSRpuzz.|
00002720  2e 6e 6f 70 75 74 64 6f  77 6e 20 4c 44 41 6f 62  |.noputdown LDAob|
00002730  6a 65 63 74 73 3a 53 54  41 6f 62 6a 65 63 74 73  |jects:STAobjects|
00002740  2b 31 3a 4c 44 59 23 30  3a 2e 6f 62 67 6c 6f 70  |+1:LDY#0:.obglop|
00002750  20 4c 44 41 26 46 32 30  2c 59 3a 43 50 59 26 37  | LDA&F20,Y:CPY&7|
00002760  30 3a 42 45 51 6e 6f 74  67 6f 74 3a 43 4d 50 78  |0:BEQnotgot:CMPx|
00002770  70 6f 73 3a 42 4e 45 6e  6f 74 67 6f 74 3a 4c 44  |pos:BNEnotgot:LD|
00002780  41 26 46 34 30 2c 59 3a  43 4d 50 79 70 6f 73 3a  |A&F40,Y:CMPypos:|
00002790  42 4e 45 6e 6f 74 67 6f  74 3a 4c 44 41 26 46 36  |BNEnotgot:LDA&F6|
000027a0  30 2c 59 3a 43 4d 50 78  73 63 72 3a 42 4e 45 6e  |0,Y:CMPxscr:BNEn|
000027b0  6f 74 67 6f 74 3a 4c 44  41 26 46 38 30 2c 59 3a  |otgot:LDA&F80,Y:|
000027c0  43 4d 50 79 73 63 72 3a  42 45 51 67 65 74 74 6f  |CMPyscr:BEQgetto|
000027d0  62 6a 3a 2e 6e 6f 74 67  6f 74 20 49 4e 59 3a 43  |bj:.notgot INY:C|
000027e0  50 59 23 33 32 3a 42 4e  45 6f 62 67 6c 6f 70 3a  |PY#32:BNEobglop:|
000027f0  53 54 59 6f 62 6a 65 63  74 73 3a 4a 4d 50 6e 6f  |STYobjects:JMPno|
00002800  67 65 74 6f 62 0a 2e 67  65 74 74 6f 62 6a 20 43  |getob..gettobj C|
00002810  50 59 23 32 38 3a 42 43  43 6e 6f 65 6e 65 72 3a  |PY#28:BCCnoener:|
00002820  4c 44 41 23 26 46 46 3a  53 54 41 26 46 32 30 2c  |LDA#&FF:STA&F20,|
00002830  59 3a 53 54 41 70 6f 77  65 72 3a 53 54 41 70 6f  |Y:STApower:STApo|
00002840  77 63 68 61 6e 67 65 3a  53 54 41 73 63 72 63 68  |wchange:STAscrch|
00002850  3a 53 45 44 3a 4c 44 41  73 63 6f 72 65 3a 43 4c  |:SED:LDAscore:CL|
00002860  43 3a 41 44 43 23 35 3a  53 54 41 73 63 6f 72 65  |C:ADC#5:STAscore|
00002870  3a 4c 44 41 73 63 6f 72  65 2b 31 3a 41 44 43 23  |:LDAscore+1:ADC#|
00002880  30 3a 53 54 41 73 63 6f  72 65 2b 31 3a 43 4c 44  |0:STAscore+1:CLD|
00002890  0a 4c 44 41 23 37 3a 4c  44 58 23 28 65 6e 72 75  |.LDA#7:LDX#(enru|
000028a0  70 20 4d 4f 44 20 32 35  36 29 3a 4c 44 59 23 28  |p MOD 256):LDY#(|
000028b0  65 6e 72 75 70 20 44 49  56 20 32 35 36 29 3a 4a  |enrup DIV 256):J|
000028c0  53 52 6f 73 77 6f 72 64  3a 4c 44 59 23 33 32 3a  |SRosword:LDY#32:|
000028d0  53 54 59 6f 62 6a 65 63  74 73 3a 4a 4d 50 6e 6f  |STYobjects:JMPno|
000028e0  67 65 74 6f 62 3a 2e 6e  6f 65 6e 65 72 20 53 54  |getob:.noener ST|
000028f0  59 6f 62 6a 65 63 74 73  3a 4c 44 41 23 26 46 46  |Yobjects:LDA#&FF|
00002900  3a 53 54 41 26 46 32 30  2c 59 0a 2e 6e 6f 67 65  |:STA&F20,Y..noge|
00002910  74 6f 62 20 4c 44 41 78  70 6f 73 3a 53 54 41 78  |tob LDAxpos:STAx|
00002920  73 65 74 3a 4c 44 41 79  70 6f 73 3a 53 54 41 79  |set:LDAypos:STAy|
00002930  73 65 74 3a 4a 53 52 62  6c 6f 63 6b 6f 6e 3a 4c  |set:JSRblockon:L|
00002940  44 41 23 30 3a 53 54 41  77 69 70 65 72 3a 4c 44  |DA#0:STAwiper:LD|
00002950  41 23 31 3a 53 54 41 63  68 61 6e 67 65 64 3a 53  |A#1:STAchanged:S|
00002960  54 41 6f 62 63 68 3a 53  54 41 67 65 74 73 74 61  |TAobch:STAgetsta|
00002970  74 3a 52 54 53 0a 2e 74  69 74 6c 65 20 4a 53 52  |t:RTS..title JSR|
00002980  62 6c 61 73 63 72 3a 4a  53 52 6f 62 6a 65 63 74  |blascr:JSRobject|
00002990  68 3a 2e 74 69 74 6c 6f  70 20 49 4e 43 74 69 74  |h:.titlop INCtit|
000029a0  73 74 61 74 3a 4c 44 41  74 69 74 73 74 61 74 3a  |stat:LDAtitstat:|
000029b0  41 4e 44 23 37 3a 54 41  59 3a 4c 44 41 74 69 74  |AND#7:TAY:LDAtit|
000029c0  73 63 72 73 2c 59 3a 4c  53 52 20 41 3a 4c 53 52  |scrs,Y:LSR A:LSR|
000029d0  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 53  | A:LSR A:LSR A:S|
000029e0  54 41 78 73 63 72 3a 4c  44 41 74 69 74 73 63 72  |TAxscr:LDAtitscr|
000029f0  73 2c 59 3a 41 4e 44 23  26 30 46 3a 53 54 41 79  |s,Y:AND#&0F:STAy|
00002a00  73 63 72 3a 4a 53 52 73  63 72 65 65 6e 3a 4c 44  |scr:JSRscreen:LD|
00002a10  41 23 26 33 30 3a 53 54  41 69 6e 76 66 6c 61 67  |A#&30:STAinvflag|
00002a20  0a 4c 44 41 23 35 3a 53  54 41 63 6f 6c 3a 4c 44  |.LDA#5:STAcol:LD|
00002a30  41 23 34 3a 53 54 41 78  63 68 3a 4c 44 41 23 35  |A#4:STAxch:LDA#5|
00002a40  3a 53 54 41 79 63 68 3a  4c 44 41 23 28 6e 61 6d  |:STAych:LDA#(nam|
00002a50  65 20 4d 4f 44 20 32 35  36 29 3a 53 54 41 26 37  |e MOD 256):STA&7|
00002a60  32 3a 4c 44 41 23 28 6e  61 6d 65 20 44 49 56 20  |2:LDA#(name DIV |
00002a70  32 35 36 29 3a 53 54 41  26 37 33 3a 4a 53 52 73  |256):STA&73:JSRs|
00002a80  74 72 69 6e 67 3a 4c 44  41 23 33 3a 53 54 41 78  |tring:LDA#3:STAx|
00002a90  63 68 3a 4c 44 41 23 31  36 3a 53 54 41 79 63 68  |ch:LDA#16:STAych|
00002aa0  3a 4c 44 41 23 28 63 72  65 64 61 20 4d 4f 44 20  |:LDA#(creda MOD |
00002ab0  32 35 36 29 3a 53 54 41  26 37 32 3a 4c 44 41 23  |256):STA&72:LDA#|
00002ac0  28 63 72 65 64 61 20 44  49 56 20 32 35 36 29 3a  |(creda DIV 256):|
00002ad0  53 54 41 26 37 33 3a 4a  53 52 73 74 72 69 6e 67  |STA&73:JSRstring|
00002ae0  0a 4c 44 41 23 34 3a 53  54 41 78 63 68 3a 4c 44  |.LDA#4:STAxch:LD|
00002af0  41 23 31 38 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#18:STAych:LDA#|
00002b00  28 63 72 65 64 62 20 4d  4f 44 20 32 35 36 29 3a  |(credb MOD 256):|
00002b10  53 54 41 26 37 32 3a 4a  53 52 73 74 72 69 6e 67  |STA&72:JSRstring|
00002b20  3a 4c 44 41 23 34 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#4:STAxch:LD|
00002b30  41 23 32 30 3a 53 54 41  79 63 68 3a 4c 44 41 23  |A#20:STAych:LDA#|
00002b40  28 63 72 65 64 63 20 4d  4f 44 20 32 35 36 29 3a  |(credc MOD 256):|
00002b50  53 54 41 26 37 32 3a 4c  44 41 23 28 63 72 65 64  |STA&72:LDA#(cred|
00002b60  63 20 44 49 56 20 32 35  36 29 3a 53 54 41 26 37  |c DIV 256):STA&7|
00002b70  33 3a 4a 53 52 73 74 72  69 6e 67 0a 4c 44 41 23  |3:JSRstring.LDA#|
00002b80  38 3a 53 54 41 78 63 68  3a 4c 44 41 23 32 32 3a  |8:STAxch:LDA#22:|
00002b90  53 54 41 79 63 68 3a 4c  44 41 23 28 63 72 65 64  |STAych:LDA#(cred|
00002ba0  64 20 4d 4f 44 20 32 35  36 29 3a 53 54 41 26 37  |d MOD 256):STA&7|
00002bb0  32 3a 4a 53 52 73 74 72  69 6e 67 3a 4c 44 41 23  |2:JSRstring:LDA#|
00002bc0  30 3a 53 54 41 78 63 68  3a 4c 44 41 23 33 30 3a  |0:STAxch:LDA#30:|
00002bd0  53 54 41 79 63 68 3a 4c  44 41 23 28 73 70 61 63  |STAych:LDA#(spac|
00002be0  65 20 4d 4f 44 20 32 35  36 29 3a 53 54 41 26 37  |e MOD 256):STA&7|
00002bf0  32 3a 4c 44 41 23 28 73  70 61 63 65 20 44 49 56  |2:LDA#(space DIV|
00002c00  20 32 35 36 29 3a 53 54  41 26 37 33 3a 4a 53 52  | 256):STA&73:JSR|
00002c10  73 74 72 69 6e 67 0a 4c  44 41 63 6c 6f 63 6b 3a  |string.LDAclock:|
00002c20  53 45 43 3a 53 42 43 23  31 3a 53 54 41 26 38 30  |SEC:SBC#1:STA&80|
00002c30  3a 2e 73 6f 75 6e 64 70  72 20 4c 44 41 23 36 3a  |:.soundpr LDA#6:|
00002c40  53 54 41 78 63 68 3a 4c  44 41 23 32 36 3a 53 54  |STAxch:LDA#26:ST|
00002c50  41 79 63 68 3a 4c 44 41  23 28 73 6e 64 6f 66 66  |Aych:LDA#(sndoff|
00002c60  20 4d 4f 44 20 32 35 36  29 3a 53 54 41 26 37 32  | MOD 256):STA&72|
00002c70  3a 4c 44 41 23 28 73 6e  64 6f 66 66 20 44 49 56  |:LDA#(sndoff DIV|
00002c80  20 32 35 36 29 3a 53 54  41 26 37 33 3a 4c 44 41  | 256):STA&73:LDA|
00002c90  73 6f 75 6e 64 3a 42 45  51 73 6f 75 6e 64 73 65  |sound:BEQsoundse|
00002ca0  74 3a 4c 44 41 23 28 73  6e 64 6f 6e 20 4d 4f 44  |t:LDA#(sndon MOD|
00002cb0  20 32 35 36 29 3a 53 54  41 26 37 32 0a 2e 73 6f  | 256):STA&72..so|
00002cc0  75 6e 64 73 65 74 20 4a  53 52 73 74 72 69 6e 67  |undset JSRstring|
00002cd0  3a 2e 73 73 74 6f 70 20  4c 44 41 23 39 3a 4a 53  |:.sstop LDA#9:JS|
00002ce0  52 6b 65 79 62 79 74 65  3a 42 43 53 73 73 74 6f  |Rkeybyte:BCSssto|
00002cf0  70 0a 2e 73 70 61 63 77  61 69 74 20 4c 44 41 63  |p..spacwait LDAc|
00002d00  6c 6f 63 6b 3a 43 4d 50  26 38 30 3a 42 45 51 6e  |lock:CMP&80:BEQn|
00002d10  65 78 74 73 63 72 3a 4c  44 41 23 39 3a 4a 53 52  |extscr:LDA#9:JSR|
00002d20  6b 65 79 62 79 74 65 3a  42 43 53 73 65 6f 72 3a  |keybyte:BCSseor:|
00002d30  4c 44 41 23 34 3a 4a 53  52 6b 65 79 62 79 74 65  |LDA#4:JSRkeybyte|
00002d40  3a 42 43 43 73 70 61 63  77 61 69 74 3a 52 54 53  |:BCCspacwait:RTS|
00002d50  3a 2e 6e 65 78 74 73 63  72 20 49 4e 43 74 69 74  |:.nextscr INCtit|
00002d60  63 79 63 3a 44 45 43 26  38 30 3a 4c 44 41 74 69  |cyc:DEC&80:LDAti|
00002d70  74 63 79 63 3a 41 4e 44  23 33 3a 42 4e 45 73 70  |tcyc:AND#3:BNEsp|
00002d80  61 63 77 61 69 74 3a 4a  4d 50 74 69 74 6c 6f 70  |acwait:JMPtitlop|
00002d90  0a 2e 73 65 6f 72 20 4c  44 41 73 6f 75 6e 64 3a  |..seor LDAsound:|
00002da0  45 4f 52 23 31 3a 53 54  41 73 6f 75 6e 64 3a 4a  |EOR#1:STAsound:J|
00002db0  4d 50 73 6f 75 6e 64 70  72 0a 2e 73 62 61 72 20  |MPsoundpr..sbar |
00002dc0  45 51 55 42 31 38 3a 45  51 55 42 31 3a 45 51 55  |EQUB18:EQUB1:EQU|
00002dd0  42 34 3a 45 51 55 42 32  35 3a 45 51 55 42 34 3a  |B4:EQUB25:EQUB4:|
00002de0  45 51 55 57 30 3a 45 51  55 57 32 35 32 3a 45 51  |EQUW0:EQUW252:EQ|
00002df0  55 42 32 35 3a 45 51 55  42 34 3a 45 51 55 57 35  |UB25:EQUB4:EQUW5|
00002e00  37 36 3a 45 51 55 57 32  35 32 3a 45 51 55 42 32  |76:EQUW252:EQUB2|
00002e10  35 3a 45 51 55 42 38 35  3a 45 51 55 57 32 38 38  |5:EQUB85:EQUW288|
00002e20  3a 45 51 55 57 39 36 3a  45 51 55 42 32 35 3a 45  |:EQUW96:EQUB25:E|
00002e30  51 55 42 34 3a 45 51 55  57 37 30 34 3a 45 51 55  |QUB4:EQUW704:EQU|
00002e40  57 32 35 32 3a 45 51 55  42 32 35 3a 45 51 55 42  |W252:EQUB25:EQUB|
00002e50  34 3a 45 51 55 57 31 32  38 30 3a 45 51 55 57 32  |4:EQUW1280:EQUW2|
00002e60  35 32 3a 45 51 55 42 32  35 3a 45 51 55 42 38 35  |52:EQUB25:EQUB85|
00002e70  3a 45 51 55 57 39 39 32  3a 45 51 55 57 39 36 0a  |:EQUW992:EQUW96.|
00002e80  45 51 55 42 32 35 3a 45  51 55 42 34 3a 45 51 55  |EQUB25:EQUB4:EQU|
00002e90  57 33 38 34 3a 45 51 55  57 39 36 3a 45 51 55 42  |W384:EQUW96:EQUB|
00002ea0  32 35 3a 45 51 55 42 34  3a 45 51 55 57 38 39 36  |25:EQUB4:EQUW896|
00002eb0  3a 45 51 55 57 39 36 3a  45 51 55 42 32 35 3a 45  |:EQUW96:EQUB25:E|
00002ec0  51 55 42 38 35 3a 45 51  55 57 36 34 30 3a 45 51  |QUB85:EQUW640:EQ|
00002ed0  55 57 32 35 32 0a 45 51  55 42 31 38 3a 45 51 55  |UW252.EQUB18:EQU|
00002ee0  42 33 3a 45 51 55 42 34  3a 45 51 55 42 32 35 3a  |B3:EQUB4:EQUB25:|
00002ef0  45 51 55 42 34 3a 45 51  55 57 39 36 3a 45 51 55  |EQUB4:EQUW96:EQU|
00002f00  57 32 32 34 3a 45 51 55  42 32 35 3a 45 51 55 42  |W224:EQUB25:EQUB|
00002f10  34 3a 45 51 55 57 34 38  30 3a 45 51 55 57 32 32  |4:EQUW480:EQUW22|
00002f20  34 3a 45 51 55 42 32 35  3a 45 51 55 42 38 35 3a  |4:EQUB25:EQUB85:|
00002f30  45 51 55 57 32 38 38 3a  45 51 55 57 31 32 38 3a  |EQUW288:EQUW128:|
00002f40  45 51 55 42 32 35 3a 45  51 55 42 34 3a 45 51 55  |EQUB25:EQUB4:EQU|
00002f50  57 38 30 30 3a 45 51 55  57 32 32 34 3a 45 51 55  |W800:EQUW224:EQU|
00002f60  42 32 35 3a 45 51 55 42  34 3a 45 51 55 57 31 31  |B25:EQUB4:EQUW11|
00002f70  38 34 3a 45 51 55 57 32  32 34 3a 45 51 55 42 32  |84:EQUW224:EQUB2|
00002f80  35 3a 45 51 55 42 38 35  3a 45 51 55 57 39 39 32  |5:EQUB85:EQUW992|
00002f90  3a 45 51 55 57 31 32 38  0a 45 51 55 42 31 38 3a  |:EQUW128.EQUB18:|
00002fa0  45 51 55 42 31 3a 45 51  55 42 31 3a 45 51 55 42  |EQUB1:EQUB1:EQUB|
00002fb0  32 35 3a 45 51 55 42 34  3a 45 51 55 57 31 32 38  |25:EQUB4:EQUW128|
00002fc0  3a 45 51 55 57 39 32 3a  45 51 55 42 32 35 3a 45  |:EQUW92:EQUB25:E|
00002fd0  51 55 42 34 3a 45 51 55  57 34 34 38 3a 45 51 55  |QUB4:EQUW448:EQU|
00002fe0  57 39 32 3a 45 51 55 42  32 35 3a 45 51 55 42 38  |W92:EQUB25:EQUB8|
00002ff0  35 3a 45 51 55 57 31 32  38 3a 45 51 55 57 30 3a  |5:EQUW128:EQUW0:|
00003000  45 51 55 42 32 35 3a 45  51 55 42 38 35 3a 45 51  |EQUB25:EQUB85:EQ|
00003010  55 57 34 34 38 3a 45 51  55 57 30 0a 45 51 55 42  |UW448:EQUW0.EQUB|
00003020  32 35 3a 45 51 55 42 34  3a 45 51 55 57 37 30 34  |25:EQUB4:EQUW704|
00003030  3a 45 51 55 57 39 32 3a  45 51 55 42 32 35 3a 45  |:EQUW92:EQUB25:E|
00003040  51 55 42 34 3a 45 51 55  57 31 32 38 30 3a 45 51  |QUB4:EQUW1280:EQ|
00003050  55 57 39 32 3a 45 51 55  42 32 35 3a 45 51 55 42  |UW92:EQUB25:EQUB|
00003060  38 35 3a 45 51 55 57 37  30 34 3a 45 51 55 57 30  |85:EQUW704:EQUW0|
00003070  3a 45 51 55 42 32 35 3a  45 51 55 42 38 35 3a 45  |:EQUB25:EQUB85:E|
00003080  51 55 57 31 32 38 30 3a  45 51 55 57 30 0a 45 51  |QUW1280:EQUW0.EQ|
00003090  55 42 26 46 46 0a 0a 50  25 3d 26 34 30 30 3a 4f  |UB&FF..P%=&400:O|
000030a0  25 3d 26 35 34 30 30 0a  0a 2e 63 72 65 64 63 20  |%=&5400...credc |
000030b0  45 51 55 42 34 3a 45 51  55 42 32 32 3a 45 51 55  |EQUB4:EQUB22:EQU|
000030c0  42 31 32 3a 45 51 55 42  32 33 3a 45 51 55 42 31  |B12:EQUB23:EQUB1|
000030d0  33 3a 45 51 55 42 32 33  3a 45 51 55 42 33 3a 45  |3:EQUB23:EQUB3:E|
000030e0  51 55 42 30 3a 45 51 55  42 36 3a 45 51 55 42 32  |QUB0:EQUB6:EQUB2|
000030f0  32 3a 45 51 55 42 31 35  3a 45 51 55 42 34 3a 45  |2:EQUB15:EQUB4:E|
00003100  51 55 42 32 35 35 3a 2e  63 72 65 64 64 20 45 51  |QUB255:.credd EQ|
00003110  55 42 32 33 3a 45 51 55  42 33 31 3a 45 51 55 42  |UB23:EQUB31:EQUB|
00003120  33 31 3a 45 51 55 42 32  38 3a 45 51 55 42 32 35  |31:EQUB28:EQUB25|
00003130  35 0a 2e 73 70 61 63 65  20 45 51 55 42 31 34 3a  |5..space EQUB14:|
00003140  45 51 55 42 31 35 3a 45  51 55 42 35 3a 45 51 55  |EQUB15:EQUB5:EQU|
00003150  42 31 36 3a 45 51 55 42  31 36 3a 45 51 55 42 30  |B16:EQUB16:EQUB0|
00003160  3a 45 51 55 42 31 36 3a  45 51 55 42 31 34 3a 45  |:EQUB16:EQUB14:E|
00003170  51 55 42 31 3a 45 51 55  42 33 3a 45 51 55 42 35  |QUB1:EQUB3:EQUB5|
00003180  3a 45 51 55 42 30 3a 45  51 55 42 31 37 3a 45 51  |:EQUB0:EQUB17:EQ|
00003190  55 42 32 32 3a 45 51 55  42 30 3a 45 51 55 42 31  |UB22:EQUB0:EQUB1|
000031a0  36 3a 45 51 55 42 31 37  3a 45 51 55 42 31 3a 45  |6:EQUB17:EQUB1:E|
000031b0  51 55 42 31 35 3a 45 51  55 42 31 37 3a 45 51 55  |QUB15:EQUB17:EQU|
000031c0  42 32 35 35 0a 2e 6e 61  6d 65 20 45 51 55 42 31  |B255..name EQUB1|
000031d0  36 3a 45 51 55 42 38 3a  45 51 55 42 32 33 3a 45  |6:EQUB8:EQUB23:E|
000031e0  51 55 42 31 34 3a 45 51  55 42 30 3a 45 51 55 42  |QUB14:EQUB0:EQUB|
000031f0  32 30 3a 45 51 55 42 31  35 3a 45 51 55 42 35 3a  |20:EQUB15:EQUB5:|
00003200  45 51 55 42 33 3a 45 51  55 42 31 30 3a 45 51 55  |EQUB3:EQUB10:EQU|
00003210  42 35 3a 45 51 55 42 34  3a 45 51 55 42 32 35 35  |B5:EQUB4:EQUB255|
00003220  0a 2e 70 6f 69 6e 74 20  4c 44 41 79 73 63 72 3a  |..point LDAyscr:|
00003230  41 53 4c 20 41 3a 41 53  4c 20 41 3a 41 53 4c 20  |ASL A:ASL A:ASL |
00003240  41 3a 41 53 4c 20 41 3a  43 4c 43 3a 41 44 43 78  |A:ASL A:CLC:ADCx|
00003250  73 63 72 3a 41 44 43 23  26 33 30 3a 53 54 41 70  |scr:ADC#&30:STAp|
00003260  6f 69 79 6e 2b 32 3a 54  41 58 3a 2e 70 6f 69 79  |oiyn+2:TAX:.poiy|
00003270  6e 20 4c 44 41 26 33 30  46 45 3a 41 4e 44 23 26  |n LDA&30FE:AND#&|
00003280  38 30 3a 42 4e 45 76 69  73 3a 53 54 58 70 6f 69  |80:BNEvis:STXpoi|
00003290  73 2b 32 3a 53 54 58 6f  72 70 73 2b 32 3a 4c 44  |s+2:STXorps+2:LD|
000032a0  41 23 26 38 30 3a 2e 6f  72 70 73 20 4f 52 41 26  |A#&80:.orps ORA&|
000032b0  33 30 46 45 3a 2e 70 6f  69 73 20 53 54 41 26 33  |30FE:.pois STA&3|
000032c0  30 46 45 3a 53 45 44 3a  4c 44 41 73 63 6f 72 65  |0FE:SED:LDAscore|
000032d0  3a 43 4c 43 3a 41 44 43  23 31 3a 53 54 41 73 63  |:CLC:ADC#1:STAsc|
000032e0  6f 72 65 3a 4c 44 41 73  63 6f 72 65 2b 31 3a 41  |ore:LDAscore+1:A|
000032f0  44 43 23 30 3a 53 54 41  73 63 6f 72 65 2b 31 0a  |DC#0:STAscore+1.|
00003300  43 4c 44 3a 49 4e 43 73  63 72 63 68 3a 2e 76 69  |CLD:INCscrch:.vi|
00003310  73 20 52 54 53 0a 2e 73  63 6f 72 62 20 4c 44 41  |s RTS..scorb LDA|
00003320  73 63 6f 72 65 3a 41 4e  44 23 31 35 3a 43 4c 43  |score:AND#15:CLC|
00003330  3a 41 44 43 23 32 32 3a  53 54 41 73 63 72 74 78  |:ADC#22:STAscrtx|
00003340  74 2b 32 3a 4c 44 41 73  63 6f 72 65 3a 4c 53 52  |t+2:LDAscore:LSR|
00003350  20 41 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  | A:LSR A:LSR A:L|
00003360  53 52 20 41 3a 43 4c 43  3a 41 44 43 23 32 32 3a  |SR A:CLC:ADC#22:|
00003370  53 54 41 73 63 72 74 78  74 2b 31 3a 4c 44 41 73  |STAscrtxt+1:LDAs|
00003380  63 6f 72 65 2b 31 3a 41  4e 44 23 31 35 3a 43 4c  |core+1:AND#15:CL|
00003390  43 3a 41 44 43 23 32 32  3a 53 54 41 73 63 72 74  |C:ADC#22:STAscrt|
000033a0  78 74 3a 4c 44 41 23 33  3a 53 54 41 78 63 68 3a  |xt:LDA#3:STAxch:|
000033b0  4c 44 41 23 33 30 3a 53  54 41 79 63 68 3a 4c 44  |LDA#30:STAych:LD|
000033c0  41 23 31 37 3a 53 54 41  63 6f 6c 3a 4c 44 41 23  |A#17:STAcol:LDA#|
000033d0  28 73 63 72 74 78 74 20  4d 4f 44 20 32 35 36 29  |(scrtxt MOD 256)|
000033e0  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 73 63 72  |:STA&72:LDA#(scr|
000033f0  74 78 74 20 44 49 56 20  32 35 36 29 0a 53 54 41  |txt DIV 256).STA|
00003400  26 37 33 3a 4a 4d 50 73  74 72 69 6e 67 0a 2e 64  |&73:JMPstring..d|
00003410  6f 6f 72 63 68 20 50 48  41 3a 43 4d 50 23 33 30  |oorch PHA:CMP#30|
00003420  3a 42 4e 45 6e 6f 64 6f  72 3a 4c 44 41 23 36 3a  |:BNEnodor:LDA#6:|
00003430  4a 53 52 6b 65 79 62 79  74 65 3a 42 43 43 6e 6f  |JSRkeybyte:BCCno|
00003440  64 6f 72 3a 4c 44 41 79  73 63 72 3a 41 53 4c 20  |dor:LDAyscr:ASL |
00003450  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00003460  4c 20 41 3a 43 4c 43 3a  41 44 43 78 73 63 72 3a  |L A:CLC:ADCxscr:|
00003470  41 44 43 23 26 33 30 3a  4a 53 52 61 64 6f 66 63  |ADC#&30:JSRadofc|
00003480  6f 6c 3a 53 45 43 3a 53  42 43 23 31 3a 43 4d 50  |ol:SEC:SBC#1:CMP|
00003490  6f 62 6a 65 63 74 73 3a  42 45 51 64 6f 6f 72 3a  |objects:BEQdoor:|
000034a0  43 4d 50 6f 62 6a 65 63  74 73 2b 31 3a 42 4e 45  |CMPobjects+1:BNE|
000034b0  6e 6f 64 6f 72 3a 2e 64  6f 6f 72 20 50 4c 41 3a  |nodor:.door PLA:|
000034c0  53 45 43 3a 52 54 53 3a  2e 6e 6f 64 6f 72 20 50  |SEC:RTS:.nodor P|
000034d0  4c 41 3a 43 4c 43 3a 52  54 53 0a 2e 6c 6f 63 6b  |LA:CLC:RTS..lock|
000034e0  74 79 70 65 20 4c 53 52  20 41 3a 52 4f 52 20 41  |type LSR A:ROR A|
000034f0  3a 52 4f 52 20 41 3a 41  4e 44 23 26 43 30 3a 53  |:ROR A:AND#&C0:S|
00003500  54 41 26 37 32 3a 4c 44  59 23 30 0a 2e 74 72 61  |TA&72:LDY#0..tra|
00003510  6e 73 74 6f 70 20 4c 44  41 28 26 37 30 29 2c 59  |nstop LDA(&70),Y|
00003520  3a 41 4e 44 23 26 43 30  3a 4a 53 52 63 6f 6c 62  |:AND#&C0:JSRcolb|
00003530  79 74 3a 53 54 41 28 26  37 30 29 2c 59 3a 49 4e  |yt:STA(&70),Y:IN|
00003540  59 3a 43 50 59 23 26 34  30 3a 42 4e 45 74 72 61  |Y:CPY#&40:BNEtra|
00003550  6e 73 74 6f 70 3a 4c 44  59 23 30 3a 4c 44 41 26  |nstop:LDY#0:LDA&|
00003560  37 32 3a 43 4c 43 3a 41  44 43 23 26 34 30 3a 53  |72:CLC:ADC#&40:S|
00003570  54 41 26 37 32 3a 4c 44  41 26 37 30 3a 43 4c 43  |TA&72:LDA&70:CLC|
00003580  3a 41 44 43 23 26 38 30  3a 53 54 41 26 37 30 3a  |:ADC#&80:STA&70:|
00003590  4c 44 41 26 37 31 3a 41  44 43 23 32 3a 53 54 41  |LDA&71:ADC#2:STA|
000035a0  26 37 31 0a 2e 74 72 61  6e 73 62 6f 74 20 4c 44  |&71..transbot LD|
000035b0  41 28 26 37 30 29 2c 59  3a 41 4e 44 23 26 43 30  |A(&70),Y:AND#&C0|
000035c0  3a 4a 53 52 63 6f 6c 62  79 74 3a 53 54 41 28 26  |:JSRcolbyt:STA(&|
000035d0  37 30 29 2c 59 3a 49 4e  59 3a 43 50 59 23 26 34  |70),Y:INY:CPY#&4|
000035e0  30 3a 42 4e 45 74 72 61  6e 73 62 6f 74 3a 52 54  |0:BNEtransbot:RT|
000035f0  53 3a 2e 63 6f 6c 62 79  74 20 50 48 41 3a 4c 44  |S:.colbyt PHA:LD|
00003600  41 73 63 72 6e 6f 3a 4a  53 52 61 64 6f 66 63 6f  |Ascrno:JSRadofco|
00003610  6c 3a 54 41 58 3a 4c 44  41 64 6f 6f 72 63 2c 58  |l:TAX:LDAdoorc,X|
00003620  3a 54 41 58 3a 50 4c 41  3a 2e 63 6f 6c 62 6c 6f  |:TAX:PLA:.colblo|
00003630  70 20 43 4c 43 3a 41 44  43 28 26 37 32 29 2c 59  |p CLC:ADC(&72),Y|
00003640  3a 44 45 58 3a 42 4e 45  63 6f 6c 62 6c 6f 70 3a  |:DEX:BNEcolblop:|
00003650  52 54 53 0a 2e 61 64 6f  66 63 6f 6c 20 53 54 41  |RTS..adofcol STA|
00003660  72 65 61 64 63 6c 6c 2b  32 3a 53 54 41 72 65 61  |readcll+2:STArea|
00003670  64 63 6c 68 2b 32 3a 2e  72 65 61 64 63 6c 6c 20  |dclh+2:.readcll |
00003680  4c 44 41 26 31 30 46 45  3a 4c 53 52 20 41 3a 4c  |LDA&10FE:LSR A:L|
00003690  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
000036a0  3a 41 4e 44 23 34 3a 53  54 41 73 6d 61 64 2b 31  |:AND#4:STAsmad+1|
000036b0  0a 2e 72 65 61 64 63 6c  68 20 4c 44 41 26 31 30  |..readclh LDA&10|
000036c0  46 46 3a 41 53 4c 20 41  3a 52 4f 4c 20 41 3a 52  |FF:ASL A:ROL A:R|
000036d0  4f 4c 20 41 3a 41 4e 44  23 33 3a 43 4c 43 3a 2e  |OL A:AND#3:CLC:.|
000036e0  73 6d 61 64 20 41 44 43  23 30 3a 52 54 53 0a 2e  |smad ADC#0:RTS..|
000036f0  70 75 7a 7a 20 4c 44 41  26 46 41 30 2c 59 3a 4c  |puzz LDA&FA0,Y:L|
00003700  53 52 20 41 3a 4c 53 52  20 41 3a 4c 53 52 20 41  |SR A:LSR A:LSR A|
00003710  3a 4c 53 52 20 41 3a 43  4d 50 78 73 63 72 3a 42  |:LSR A:CMPxscr:B|
00003720  4e 45 6e 6f 70 75 7a 7a  3a 4c 44 41 26 46 43 30  |NEnopuzz:LDA&FC0|
00003730  2c 59 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 4c  |,Y:LSR A:LSR A:L|
00003740  53 52 20 41 3a 4c 53 52  20 41 3a 43 4d 50 79 73  |SR A:LSR A:CMPys|
00003750  63 72 3a 42 45 51 70 73  6f 6c 76 3a 2e 6e 6f 70  |cr:BEQpsolv:.nop|
00003760  75 7a 7a 20 52 54 53 3a  2e 70 73 6f 6c 76 20 4c  |uzz RTS:.psolv L|
00003770  44 41 73 6f 75 6e 64 3a  42 45 51 70 75 7a 73 6e  |DAsound:BEQpuzsn|
00003780  64 3a 4c 44 41 23 37 3a  4c 44 58 23 28 70 75 7a  |d:LDA#7:LDX#(puz|
00003790  6e 20 4d 4f 44 20 32 35  36 29 3a 4c 44 59 23 28  |n MOD 256):LDY#(|
000037a0  70 75 7a 6e 20 44 49 56  20 32 35 36 29 3a 4a 53  |puzn DIV 256):JS|
000037b0  52 6f 73 77 6f 72 64 0a  2e 70 75 7a 73 6e 64 20  |Rosword..puzsnd |
000037c0  4c 44 59 26 37 30 3a 4c  44 41 26 37 30 30 2c 59  |LDY&70:LDA&700,Y|
000037d0  3a 43 4d 50 23 33 32 3a  42 43 53 70 75 73 77 61  |:CMP#32:BCSpuswa|
000037e0  70 3a 54 41 58 3a 4c 44  41 26 46 32 30 2c 59 3a  |p:TAX:LDA&F20,Y:|
000037f0  53 54 41 26 46 32 30 2c  58 3a 4c 44 41 26 46 34  |STA&F20,X:LDA&F4|
00003800  30 2c 59 3a 53 54 41 26  46 34 30 2c 58 3a 4c 44  |0,Y:STA&F40,X:LD|
00003810  41 26 46 36 30 2c 59 3a  53 54 41 26 46 36 30 2c  |A&F60,Y:STA&F60,|
00003820  58 3a 4c 44 41 26 46 38  30 2c 59 3a 53 54 41 26  |X:LDA&F80,Y:STA&|
00003830  46 38 30 2c 58 3a 2e 70  75 73 77 61 70 20 4c 44  |F80,X:.puswap LD|
00003840  41 23 26 37 38 3a 53 54  41 26 46 32 30 2c 59 3a  |A#&78:STA&F20,Y:|
00003850  4c 44 41 26 37 32 30 2c  59 3a 43 4d 50 23 33 32  |LDA&720,Y:CMP#32|
00003860  3a 42 43 53 70 75 6d 6f  76 6f 3a 54 41 58 3a 4c  |:BCSpumovo:TAX:L|
00003870  44 41 26 37 34 30 2c 59  3a 41 4e 44 23 31 35 3a  |DA&740,Y:AND#15:|
00003880  53 54 41 26 46 34 30 2c  58 3a 4c 44 41 26 37 34  |STA&F40,X:LDA&74|
00003890  30 2c 59 0a 4c 53 52 20  41 3a 4c 53 52 20 41 3a  |0,Y.LSR A:LSR A:|
000038a0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 53 54 41 26  |LSR A:LSR A:STA&|
000038b0  46 32 30 2c 58 3a 2e 70  75 6d 6f 76 6f 20 4c 44  |F20,X:.pumovo LD|
000038c0  41 26 37 36 30 2c 59 3a  43 4d 50 23 26 46 46 3a  |A&760,Y:CMP#&FF:|
000038d0  42 4e 45 70 75 7a 62 6c  6f 63 3a 2e 62 6c 6f 70  |BNEpuzbloc:.blop|
000038e0  63 62 20 4c 44 41 23 31  3a 53 54 41 73 63 72 63  |cb LDA#1:STAscrc|
000038f0  68 3a 53 45 44 3a 4c 44  41 73 63 6f 72 65 3a 43  |h:SED:LDAscore:C|
00003900  4c 43 3a 41 44 43 23 26  32 30 3a 53 54 41 73 63  |LC:ADC#&20:STAsc|
00003910  6f 72 65 3a 4c 44 41 73  63 6f 72 65 2b 31 3a 41  |ore:LDAscore+1:A|
00003920  44 43 23 30 3a 53 54 41  73 63 6f 72 65 2b 31 3a  |DC#0:STAscore+1:|
00003930  43 4c 44 3a 4a 4d 50 63  6f 6d 70 6c 65 74 65 3a  |CLD:JMPcomplete:|
00003940  2e 70 75 7a 6e 20 45 51  55 57 31 3a 45 51 55 57  |.puzn EQUW1:EQUW|
00003950  33 3a 45 51 55 57 35 32  3a 45 51 55 57 32 30 0a  |3:EQUW52:EQUW20.|
00003960  2e 70 75 7a 62 6c 6f 63  20 4c 44 58 78 73 63 72  |.puzbloc LDXxscr|
00003970  3a 53 54 58 78 63 68 3a  4c 44 58 79 73 63 72 3a  |:STXxch:LDXyscr:|
00003980  53 54 58 79 63 68 3a 41  4e 44 23 31 35 3a 53 54  |STXych:AND#15:ST|
00003990  41 79 73 63 72 3a 4c 44  41 26 37 36 30 2c 59 3a  |Ayscr:LDA&760,Y:|
000039a0  4c 53 52 20 41 3a 4c 53  52 20 41 3a 4c 53 52 20  |LSR A:LSR A:LSR |
000039b0  41 3a 4c 53 52 20 41 3a  53 54 41 78 73 63 72 3a  |A:LSR A:STAxscr:|
000039c0  2e 62 6c 6f 6c 6f 70 20  4c 44 41 26 37 38 30 2c  |.blolop LDA&780,|
000039d0  59 3a 41 4e 44 23 31 35  3a 53 54 41 79 73 65 74  |Y:AND#15:STAyset|
000039e0  3a 4c 44 41 26 37 38 30  2c 59 3a 4c 53 52 20 41  |:LDA&780,Y:LSR A|
000039f0  3a 4c 53 52 20 41 3a 4c  53 52 20 41 3a 4c 53 52  |:LSR A:LSR A:LSR|
00003a00  20 41 3a 53 54 41 78 73  65 74 3a 50 48 41 3a 54  | A:STAxset:PHA:T|
00003a10  59 41 3a 50 48 41 3a 4a  53 52 67 65 74 62 6c 6f  |YA:PHA:JSRgetblo|
00003a20  63 6b 3a 50 4c 41 3a 54  41 58 3a 50 4c 41 3a 50  |ck:PLA:TAX:PLA:P|
00003a30  48 41 3a 54 41 59 3a 4c  44 41 78 64 61 74 61 2c  |HA:TAY:LDAxdata,|
00003a40  59 3a 54 41 59 0a 4c 44  41 26 37 41 30 2c 58 3a  |Y:TAY.LDA&7A0,X:|
00003a50  41 4e 44 23 33 3a 4c 53  52 20 41 3a 52 4f 52 20  |AND#3:LSR A:ROR |
00003a60  41 3a 52 4f 52 20 41 3a  53 54 41 63 6f 6c 3a 4c  |A:ROR A:STAcol:L|
00003a70  44 41 28 26 37 30 29 2c  59 3a 41 4e 44 23 26 33  |DA(&70),Y:AND#&3|
00003a80  46 3a 4f 52 41 63 6f 6c  0a 53 54 41 28 26 37 30  |F:ORAcol.STA(&70|
00003a90  29 2c 59 3a 49 4e 59 3a  4c 44 41 26 37 41 30 2c  |),Y:INY:LDA&7A0,|
00003aa0  58 3a 41 4e 44 23 31 32  3a 41 53 4c 20 41 3a 41  |X:AND#12:ASL A:A|
00003ab0  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00003ac0  3a 53 54 41 63 6f 6c 3a  4c 44 41 28 26 37 30 29  |:STAcol:LDA(&70)|
00003ad0  2c 59 3a 41 4e 44 23 26  33 46 3a 4f 52 41 63 6f  |,Y:AND#&3F:ORAco|
00003ae0  6c 3a 53 54 41 28 26 37  30 29 2c 59 3a 50 4c 41  |l:STA(&70),Y:PLA|
00003af0  3a 4c 53 52 20 41 3a 54  41 59 3a 4c 44 41 68 62  |:LSR A:TAY:LDAhb|
00003b00  64 61 74 2c 59 3a 54 41  59 3a 4c 44 41 26 37 41  |dat,Y:TAY:LDA&7A|
00003b10  30 2c 58 3a 41 4e 44 23  31 36 3a 41 53 4c 20 41  |0,X:AND#16:ASL A|
00003b20  3a 41 53 4c 20 41 3a 53  54 41 63 6f 6c 3a 4c 44  |:ASL A:STAcol:LD|
00003b30  41 78 73 65 74 3a 41 4e  44 23 31 3a 42 45 51 73  |Axset:AND#1:BEQs|
00003b40  65 63 70 75 7a 3a 4c 44  41 28 26 37 30 29 2c 59  |ecpuz:LDA(&70),Y|
00003b50  3a 41 4e 44 23 26 37 46  3a 43 4c 43 3a 41 44 43  |:AND#&7F:CLC:ADC|
00003b60  63 6f 6c 3a 41 44 43 63  6f 6c 0a 53 54 41 28 26  |col:ADCcol.STA(&|
00003b70  37 30 29 2c 59 0a 4a 4d  50 66 69 72 70 75 7a 3a  |70),Y.JMPfirpuz:|
00003b80  2e 73 65 63 70 75 7a 20  4c 44 41 28 26 37 30 29  |.secpuz LDA(&70)|
00003b90  2c 59 3a 41 4e 44 23 26  42 46 3a 43 4c 43 3a 41  |,Y:AND#&BF:CLC:A|
00003ba0  44 43 63 6f 6c 3a 53 54  41 28 26 37 30 29 2c 59  |DCcol:STA(&70),Y|
00003bb0  0a 2e 66 69 72 70 75 7a  20 54 58 41 3a 43 4c 43  |..firpuz TXA:CLC|
00003bc0  3a 41 44 43 23 26 34 30  3a 54 41 59 3a 43 4d 50  |:ADC#&40:TAY:CMP|
00003bd0  23 26 38 30 3a 42 43 53  65 6e 64 62 6c 6f 63 3a  |#&80:BCSendbloc:|
00003be0  4a 4d 50 62 6c 6f 6c 6f  70 3a 2e 65 6e 64 62 6c  |JMPblolop:.endbl|
00003bf0  6f 63 20 4c 44 41 78 63  68 3a 53 54 41 78 73 63  |oc LDAxch:STAxsc|
00003c00  72 3a 4c 44 41 79 63 68  3a 53 54 41 79 73 63 72  |r:LDAych:STAyscr|
00003c10  3a 4a 4d 50 62 6c 6f 70  63 62 0a 2e 6e 61 6d 73  |:JMPblopcb..nams|
00003c20  63 72 20 4c 44 59 23 30  3a 54 59 41 3a 2e 73 63  |cr LDY#0:TYA:.sc|
00003c30  72 6e 61 6d 20 53 54 41  6e 61 6d 74 2c 59 3a 49  |rnam STAnamt,Y:I|
00003c40  4e 59 3a 43 50 59 23 31  36 3a 42 4e 45 73 63 72  |NY:CPY#16:BNEscr|
00003c50  6e 61 6d 3a 4c 44 41 79  73 63 72 3a 41 53 4c 20  |nam:LDAyscr:ASL |
00003c60  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00003c70  4c 20 41 3a 43 4c 43 3a  41 44 43 78 73 63 72 3a  |L A:CLC:ADCxscr:|
00003c80  54 41 59 3a 4c 44 41 26  36 42 30 2c 59 3a 54 41  |TAY:LDA&6B0,Y:TA|
00003c90  58 0a 4c 44 41 26 39 30  30 2c 58 3a 53 54 41 78  |X.LDA&900,X:STAx|
00003ca0  63 68 3a 4c 53 52 20 41  3a 53 54 41 63 6f 6c 3a  |ch:LSR A:STAcol:|
00003cb0  4c 44 41 23 38 3a 53 45  43 3a 53 42 43 63 6f 6c  |LDA#8:SEC:SBCcol|
00003cc0  3a 54 41 59 3a 2e 77 72  6e 61 6d 20 4c 44 41 26  |:TAY:.wrnam LDA&|
00003cd0  39 30 31 2c 58 3a 53 54  41 6e 61 6d 74 2c 59 3a  |901,X:STAnamt,Y:|
00003ce0  49 4e 59 3a 49 4e 58 3a  44 45 43 78 63 68 3a 42  |INY:INX:DECxch:B|
00003cf0  4e 45 77 72 6e 61 6d 3a  4c 44 41 23 32 30 3a 53  |NEwrnam:LDA#20:S|
00003d00  54 41 63 6f 6c 3a 4c 44  58 23 32 3a 53 54 58 78  |TAcol:LDX#2:STXx|
00003d10  63 68 3a 44 45 58 3a 53  54 58 79 63 68 3a 4c 44  |ch:DEX:STXych:LD|
00003d20  41 23 28 6e 61 6d 74 20  4d 4f 44 20 32 35 36 29  |A#(namt MOD 256)|
00003d30  3a 53 54 41 26 37 32 3a  4c 44 41 23 28 6e 61 6d  |:STA&72:LDA#(nam|
00003d40  74 20 44 49 56 20 32 35  36 29 3a 53 54 41 26 37  |t DIV 256):STA&7|
00003d50  33 3a 4a 4d 50 73 74 72  69 6e 67 0a 0a 50 25 3d  |3:JMPstring..P%=|
00003d60  26 31 30 30 3a 4f 25 3d  26 36 38 30 30 0a 0a 2e  |&100:O%=&6800...|
00003d70  74 69 74 73 63 72 73 20  45 51 55 42 26 33 34 3a  |titscrs EQUB&34:|
00003d80  45 51 55 42 26 35 32 3a  45 51 55 42 26 34 32 3a  |EQUB&52:EQUB&42:|
00003d90  45 51 55 42 26 45 32 3a  45 51 55 42 26 35 31 3a  |EQUB&E2:EQUB&51:|
00003da0  45 51 55 42 26 39 33 3a  45 51 55 42 26 39 30 3a  |EQUB&93:EQUB&90:|
00003db0  45 51 55 42 26 45 31 0a  2e 6d 6f 6e 70 64 20 45  |EQUB&E1..monpd E|
00003dc0  51 55 42 26 30 32 3a 45  51 55 42 26 30 34 3a 45  |QUB&02:EQUB&04:E|
00003dd0  51 55 42 26 30 36 3a 45  51 55 42 26 30 38 0a 2e  |QUB&06:EQUB&08..|
00003de0  6a 75 6d 70 6e 20 45 51  55 57 31 3a 45 51 55 57  |jumpn EQUW1:EQUW|
00003df0  31 3a 45 51 55 57 35 32  3a 45 51 55 57 35 3a 2e  |1:EQUW52:EQUW5:.|
00003e00  7a 61 70 6e 20 45 51 55  57 31 3a 45 51 55 57 32  |zapn EQUW1:EQUW2|
00003e10  3a 45 51 55 57 35 32 3a  45 51 55 57 31 30 3a 2e  |:EQUW52:EQUW10:.|
00003e20  73 77 69 74 6e 20 45 51  55 57 31 3a 45 51 55 57  |switn EQUW1:EQUW|
00003e30  33 3a 45 51 55 57 35 32  3a 45 51 55 57 32 0a 2e  |3:EQUW52:EQUW2..|
00003e40  73 63 6f 72 74 20 45 51  55 42 31 36 3a 45 51 55  |scort EQUB16:EQU|
00003e50  42 33 3a 45 51 55 42 32  32 3a 45 51 55 42 31 35  |B3:EQUB22:EQUB15|
00003e60  3a 45 51 55 42 35 3a 45  51 55 42 32 35 35 3a 2e  |:EQUB5:EQUB255:.|
00003e70  70 6f 77 74 20 45 51 55  42 31 34 3a 45 51 55 42  |powt EQUB14:EQUB|
00003e80  32 32 3a 45 51 55 42 32  30 3a 45 51 55 42 35 3a  |22:EQUB20:EQUB5:|
00003e90  45 51 55 42 31 35 3a 45  51 55 42 32 35 35 3a 2e  |EQUB15:EQUB255:.|
00003ea0  6f 62 73 74 78 74 20 45  51 55 42 32 32 3a 45 51  |obstxt EQUB22:EQ|
00003eb0  55 42 32 3a 45 51 55 42  39 3a 45 51 55 42 31 36  |UB2:EQUB9:EQUB16|
00003ec0  3a 45 51 55 42 32 35 35  0a 2e 73 65 71 75 65 6e  |:EQUB255..sequen|
00003ed0  20 45 51 55 42 30 3a 45  51 55 42 31 34 3a 45 51  | EQUB0:EQUB14:EQ|
00003ee0  55 42 32 38 3a 2e 6c 6f  77 61 64 20 45 51 55 42  |UB28:.lowad EQUB|
00003ef0  30 3a 45 51 55 42 26 33  30 3a 45 51 55 42 26 44  |0:EQUB&30:EQUB&D|
00003f00  30 3a 45 51 55 42 26 42  30 3a 45 51 55 42 26 35  |0:EQUB&B0:EQUB&5|
00003f10  30 3a 45 51 55 42 26 38  30 3a 45 51 55 42 26 38  |0:EQUB&80:EQUB&8|
00003f20  30 3a 2e 68 69 67 68 61  64 20 45 51 55 42 30 3a  |0:.highad EQUB0:|
00003f30  45 51 55 42 30 3a 45 51  55 42 26 46 46 3a 45 51  |EQUB0:EQUB&FF:EQ|
00003f40  55 42 32 3a 45 51 55 42  32 3a 45 51 55 42 26 46  |UB2:EQUB2:EQUB&F|
00003f50  44 3a 45 51 55 42 32 0a  45 51 55 42 30 3a 45 51  |D:EQUB2.EQUB0:EQ|
00003f60  55 42 26 32 30 3a 45 51  55 42 26 45 30 3a 45 51  |UB&20:EQUB&E0:EQ|
00003f70  55 42 26 41 30 3a 45 51  55 42 26 36 30 3a 45 51  |UB&A0:EQUB&60:EQ|
00003f80  55 42 26 38 30 3a 45 51  55 42 26 38 30 3a 45 51  |UB&80:EQUB&80:EQ|
00003f90  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 26 46  |UB0:EQUB0:EQUB&F|
00003fa0  46 3a 45 51 55 42 32 3a  45 51 55 42 32 3a 45 51  |F:EQUB2:EQUB2:EQ|
00003fb0  55 42 26 46 44 3a 45 51  55 42 32 3a 45 51 55 42  |UB&FD:EQUB2:EQUB|
00003fc0  30 3a 45 51 55 42 26 31  30 3a 45 51 55 42 26 46  |0:EQUB&10:EQUB&F|
00003fd0  30 3a 45 51 55 42 26 39  30 3a 45 51 55 42 26 37  |0:EQUB&90:EQUB&7|
00003fe0  30 3a 45 51 55 42 30 3a  45 51 55 42 30 3a 45 51  |0:EQUB0:EQUB0:EQ|
00003ff0  55 42 30 3a 45 51 55 42  30 3a 45 51 55 42 26 46  |UB0:EQUB0:EQUB&F|
00004000  46 3a 45 51 55 42 32 3a  45 51 55 42 32 3a 45 51  |F:EQUB2:EQUB2:EQ|
00004010  55 42 30 3a 45 51 55 42  30 0a 2e 78 64 61 74 61  |UB0:EQUB0..xdata|
00004020  20 45 51 55 42 30 3a 45  51 55 42 32 3a 45 51 55  | EQUB0:EQUB2:EQU|
00004030  42 35 3a 45 51 55 42 37  3a 45 51 55 42 31 30 3a  |B5:EQUB7:EQUB10:|
00004040  45 51 55 42 31 32 3a 45  51 55 42 31 35 3a 45 51  |EQUB12:EQUB15:EQ|
00004050  55 42 31 37 3a 45 51 55  42 32 30 3a 45 51 55 42  |UB17:EQUB20:EQUB|
00004060  32 32 3a 2e 68 62 64 61  74 20 45 51 55 42 34 3a  |22:.hbdat EQUB4:|
00004070  45 51 55 42 39 3a 45 51  55 42 31 34 3a 45 51 55  |EQUB9:EQUB14:EQU|
00004080  42 31 39 3a 45 51 55 42  32 34 3a 2e 64 6f 6f 72  |B19:EQUB24:.door|
00004090  63 20 45 51 55 42 30 3a  45 51 55 42 31 3a 45 51  |c EQUB0:EQUB1:EQ|
000040a0  55 42 34 3a 45 51 55 42  35 3a 45 51 55 42 31 36  |UB4:EQUB5:EQUB16|
000040b0  3a 45 51 55 42 31 37 3a  45 51 55 42 32 30 3a 45  |:EQUB17:EQUB20:E|
000040c0  51 55 42 32 31 0a 2e 6e  61 6d 74 20 45 51 55 53  |QUB21..namt EQUS|
000040d0  22 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |"---------------|
000040e0  2d 22 3a 45 51 55 42 32  35 35 0a 2e 63 72 65 64  |-":EQUB255..cred|
000040f0  61 20 45 51 55 42 31 34  3a 45 51 55 42 31 35 3a  |a EQUB14:EQUB15:|
00004100  45 51 55 42 32 32 3a 45  51 55 42 37 3a 45 51 55  |EQUB22:EQUB7:EQU|
00004110  42 31 35 3a 45 51 55 42  31 3a 45 51 55 42 31 32  |B15:EQUB1:EQUB12|
00004120  3a 45 51 55 42 31 32 3a  45 51 55 42 35 3a 45 51  |:EQUB12:EQUB5:EQ|
00004130  55 42 34 3a 45 51 55 42  30 3a 45 51 55 42 31 3a  |UB4:EQUB0:EQUB1:|
00004140  45 51 55 42 31 33 3a 45  51 55 42 34 3a 45 51 55  |EQUB13:EQUB4:EQU|
00004150  42 32 35 35 0a 2e 63 72  65 64 62 20 45 51 55 42  |B255..credb EQUB|
00004160  34 3a 45 51 55 42 35 3a  45 51 55 42 31 36 3a 45  |4:EQUB5:EQUB16:E|
00004170  51 55 42 32 33 3a 45 51  55 42 37 3a 45 51 55 42  |QUB23:EQUB7:EQUB|
00004180  31 33 3a 45 51 55 42 35  3a 45 51 55 42 34 3a 45  |13:EQUB5:EQUB4:E|
00004190  51 55 42 30 3a 45 51 55  42 32 3a 45 51 55 42 32  |QUB0:EQUB2:EQUB2|
000041a0  31 3a 45 51 55 42 32 35  35 0a 2e 73 6e 64 6f 6e  |1:EQUB255..sndon|
000041b0  20 45 51 55 42 31 36 3a  45 51 55 42 32 32 3a 45  | EQUB16:EQUB22:E|
000041c0  51 55 42 31 38 3a 45 51  55 42 31 33 3a 45 51 55  |QUB18:EQUB13:EQU|
000041d0  42 34 3a 45 51 55 42 30  3a 45 51 55 42 32 32 3a  |B4:EQUB0:EQUB22:|
000041e0  45 51 55 42 31 33 3a 45  51 55 42 30 3a 45 51 55  |EQUB13:EQUB0:EQU|
000041f0  42 32 35 35 0a 2e 73 6e  64 6f 66 66 20 45 51 55  |B255..sndoff EQU|
00004200  42 31 36 3a 45 51 55 42  32 32 3a 45 51 55 42 31  |B16:EQUB22:EQUB1|
00004210  38 3a 45 51 55 42 31 33  3a 45 51 55 42 34 3a 45  |8:EQUB13:EQUB4:E|
00004220  51 55 42 30 3a 45 51 55  42 32 32 3a 45 51 55 42  |QUB0:EQUB22:EQUB|
00004230  36 3a 45 51 55 42 36 3a  45 51 55 42 32 35 35 0a  |6:EQUB6:EQUB255.|
00004240  2e 65 6e 72 75 70 20 45  51 55 57 31 3a 45 51 55  |.enrup EQUW1:EQU|
00004250  57 31 3a 45 51 55 57 35  32 3a 45 51 55 57 32 30  |W1:EQUW52:EQUW20|
00004260  0a 0a 50 25 3d 26 31 43  38 30 3a 4f 25 3d 26 36  |..P%=&1C80:O%=&6|
00004270  34 38 30 0a 0a 2e 63 6f  6d 70 6c 65 74 65 20 43  |480...complete C|
00004280  50 59 23 26 31 34 3a 42  45 51 63 6f 6e 67 75 3a  |PY#&14:BEQcongu:|
00004290  4a 4d 50 73 63 72 65 65  6e 3a 2e 63 6f 6e 67 75  |JMPscreen:.congu|
000042a0  20 4a 53 52 73 62 6f 61  72 64 3a 4c 44 41 23 28  | JSRsboard:LDA#(|
000042b0  63 6d 70 74 78 74 20 4d  4f 44 20 32 35 36 29 3a  |cmptxt MOD 256):|
000042c0  53 54 41 26 37 32 3a 4c  44 41 23 28 63 6d 70 74  |STA&72:LDA#(cmpt|
000042d0  78 74 20 44 49 56 20 32  35 36 29 3a 53 54 41 26  |xt DIV 256):STA&|
000042e0  37 33 3a 4c 44 41 23 32  3a 53 54 41 78 63 68 3a  |73:LDA#2:STAxch:|
000042f0  4c 44 41 23 37 3a 53 54  41 79 63 68 3a 4a 53 52  |LDA#7:STAych:JSR|
00004300  73 74 72 69 6e 67 3a 4c  44 41 23 28 63 6d 70 74  |string:LDA#(cmpt|
00004310  78 74 62 20 4d 4f 44 20  32 35 36 29 3a 53 54 41  |xtb MOD 256):STA|
00004320  26 37 32 3a 4c 44 41 23  28 63 6d 70 74 78 74 62  |&72:LDA#(cmptxtb|
00004330  20 44 49 56 20 32 35 36  29 3a 53 54 41 26 37 33  | DIV 256):STA&73|
00004340  3a 4c 44 41 23 33 3a 53  54 41 78 63 68 3a 4c 44  |:LDA#3:STAxch:LD|
00004350  41 23 31 34 3a 53 54 41  79 63 68 0a 4a 53 52 73  |A#14:STAych.JSRs|
00004360  74 72 69 6e 67 3a 2e 74  68 65 65 6e 64 20 4a 4d  |tring:.theend JM|
00004370  50 74 68 65 65 6e 64 0a  2e 6d 61 69 6e 63 6c 65  |Ptheend..maincle|
00004380  61 72 20 4c 44 41 6d 74  79 70 65 3a 42 45 51 6e  |ar LDAmtype:BEQn|
00004390  6f 63 6c 65 61 72 6d 3a  4c 44 41 78 70 6f 73 3a  |oclearm:LDAxpos:|
000043a0  43 4d 50 78 6d 6f 6f 3a  42 4e 45 6d 63 69 3a 4c  |CMPxmoo:BNEmci:L|
000043b0  44 41 79 70 6f 73 3a 43  4d 50 79 6d 6f 6f 3a 42  |DAypos:CMPymoo:B|
000043c0  45 51 6d 63 69 69 3a 2e  6d 63 69 20 4c 44 41 63  |EQmcii:.mci LDAc|
000043d0  6c 65 61 72 75 70 3a 42  45 51 6e 6f 63 6c 65 61  |learup:BEQnoclea|
000043e0  72 6d 3a 2e 6d 63 69 69  20 4c 44 41 23 31 3a 53  |rm:.mcii LDA#1:S|
000043f0  54 41 63 68 61 6e 67 65  64 3a 4a 53 52 64 65 6c  |TAchanged:JSRdel|
00004400  79 6f 75 0a 4c 44 58 78  70 6f 73 3a 4c 44 59 79  |you.LDXxpos:LDYy|
00004410  70 6f 73 3a 4a 53 52 6d  63 64 3a 4c 44 41 23 30  |pos:JSRmcd:LDA#0|
00004420  3a 53 54 41 77 69 70 65  72 3a 53 54 41 77 69 70  |:STAwiper:STAwip|
00004430  65 72 6d 3a 4c 44 58 78  6d 6f 6e 74 3a 4c 44 59  |erm:LDXxmont:LDY|
00004440  79 6d 6f 6e 74 3a 4a 4d  50 6d 63 64 3a 2e 6e 6f  |ymont:JMPmcd:.no|
00004450  63 6c 65 61 72 6d 20 52  54 53 0a 2e 64 69 73 70  |clearm RTS..disp|
00004460  6d 6f 6e 20 4c 44 41 6d  74 79 70 65 3a 42 45 51  |mon LDAmtype:BEQ|
00004470  6e 6f 6d 6f 6e 73 72 3a  4c 44 41 26 37 38 3a 50  |nomonsr:LDA&78:P|
00004480  48 41 3a 4c 44 41 26 37  39 3a 50 48 41 3a 4c 44  |HA:LDA&79:PHA:LD|
00004490  41 66 69 6e 65 3a 50 48  41 3a 4c 44 41 78 70 6f  |Afine:PHA:LDAxpo|
000044a0  73 3a 50 48 41 3a 4c 44  41 79 70 6f 73 3a 50 48  |s:PHA:LDAypos:PH|
000044b0  41 3a 4c 44 41 77 69 70  65 72 3a 50 48 41 3a 4c  |A:LDAwiper:PHA:L|
000044c0  44 41 77 69 70 65 72 6d  3a 53 54 41 77 69 70 65  |DAwiperm:STAwipe|
000044d0  72 3a 4c 44 41 78 6d 6f  6e 74 3a 53 54 41 78 70  |r:LDAxmont:STAxp|
000044e0  6f 73 3a 4c 44 41 79 6d  6f 6e 74 3a 53 54 41 79  |os:LDAymont:STAy|
000044f0  70 6f 73 3a 4c 44 41 6d  66 69 6e 65 3a 53 54 41  |pos:LDAmfine:STA|
00004500  66 69 6e 65 3a 4c 44 41  26 37 41 3a 53 54 41 26  |fine:LDA&7A:STA&|
00004510  37 38 3a 4c 44 41 26 37  42 3a 53 54 41 26 37 39  |78:LDA&7B:STA&79|
00004520  0a 4c 44 41 23 26 32 46  3a 53 54 41 77 69 72 65  |.LDA#&2F:STAwire|
00004530  70 2b 31 3a 53 54 41 77  69 72 65 70 62 2b 31 3a  |p+1:STAwirepb+1:|
00004540  4c 44 41 23 26 43 30 3a  53 54 41 77 69 72 65 70  |LDA#&C0:STAwirep|
00004550  3a 4c 44 41 23 26 45 30  3a 53 54 41 77 69 72 65  |:LDA#&E0:STAwire|
00004560  70 62 3a 4c 44 41 23 31  3a 53 54 41 6d 66 6c 61  |pb:LDA#1:STAmfla|
00004570  67 3a 4a 53 52 64 69 73  70 73 68 72 3a 4c 44 41  |g:JSRdispshr:LDA|
00004580  26 37 38 3a 53 54 41 26  37 41 3a 4c 44 41 26 37  |&78:STA&7A:LDA&7|
00004590  39 3a 53 54 41 26 37 42  3a 50 4c 41 3a 53 54 41  |9:STA&7B:PLA:STA|
000045a0  77 69 70 65 72 3a 50 4c  41 3a 53 54 41 79 70 6f  |wiper:PLA:STAypo|
000045b0  73 3a 50 4c 41 3a 53 54  41 78 70 6f 73 3a 50 4c  |s:PLA:STAxpos:PL|
000045c0  41 3a 53 54 41 66 69 6e  65 3a 50 4c 41 3a 53 54  |A:STAfine:PLA:ST|
000045d0  41 26 37 39 3a 50 4c 41  3a 53 54 41 26 37 38 3a  |A&79:PLA:STA&78:|
000045e0  4c 44 41 23 30 3a 53 54  41 6d 66 6c 61 67 3a 2e  |LDA#0:STAmflag:.|
000045f0  6e 6f 6d 6f 6e 73 72 20  52 54 53 0a 2e 6d 6f 6e  |nomonsr RTS..mon|
00004600  73 65 74 20 4c 44 41 79  73 63 72 3a 41 53 4c 20  |set LDAyscr:ASL |
00004610  41 3a 41 53 4c 20 41 3a  41 53 4c 20 41 3a 41 53  |A:ASL A:ASL A:AS|
00004620  4c 20 41 3a 43 4c 43 3a  41 44 43 78 73 63 72 3a  |L A:CLC:ADCxscr:|
00004630  41 44 43 23 26 33 30 3a  53 54 41 26 37 31 3a 4c  |ADC#&30:STA&71:L|
00004640  44 59 23 30 3a 53 54 59  26 37 30 3a 49 4e 59 3a  |DY#0:STY&70:INY:|
00004650  53 54 59 6d 66 69 6e 65  3a 4c 44 59 23 26 46 42  |STYmfine:LDY#&FB|
00004660  3a 4c 44 41 28 26 37 30  29 2c 59 3a 41 53 4c 20  |:LDA(&70),Y:ASL |
00004670  41 3a 52 4f 4c 20 41 3a  52 4f 4c 20 41 3a 41 4e  |A:ROL A:ROL A:AN|
00004680  44 23 33 3a 54 41 58 3a  4c 44 41 6d 6f 6e 70 64  |D#3:TAX:LDAmonpd|
00004690  2c 58 3a 53 54 41 78 6d  6f 6e 74 0a 49 4e 59 3a  |,X:STAxmont.INY:|
000046a0  4c 44 41 28 26 37 30 29  2c 59 3a 41 53 4c 20 41  |LDA(&70),Y:ASL A|
000046b0  3a 52 4f 4c 20 41 3a 52  4f 4c 20 41 3a 41 4e 44  |:ROL A:ROL A:AND|
000046c0  23 33 3a 54 41 58 3a 4c  44 41 6d 6f 6e 70 64 2c  |#3:TAX:LDAmonpd,|
000046d0  58 3a 53 54 41 79 6d 6f  6e 74 3a 49 4e 59 3a 4c  |X:STAymont:INY:L|
000046e0  44 41 28 26 37 30 29 2c  59 3a 41 53 4c 20 41 3a  |DA(&70),Y:ASL A:|
000046f0  52 4f 4c 20 41 3a 52 4f  4c 20 41 3a 41 4e 44 23  |ROL A:ROL A:AND#|
00004700  33 3a 53 54 41 6d 74 79  70 65 3a 4c 44 41 23 26  |3:STAmtype:LDA#&|
00004710  46 46 3a 53 54 41 6d 64  69 72 3a 2e 6c 61 73 65  |FF:STAmdir:.lase|
00004720  78 69 74 20 52 54 53 0a  2e 6d 6f 6e 70 72 6f 20  |xit RTS..monpro |
00004730  4c 44 41 78 6d 6f 6e 74  3a 53 54 41 78 6d 6f 6f  |LDAxmont:STAxmoo|
00004740  3a 4c 44 41 79 6d 6f 6e  74 3a 53 54 41 79 6d 6f  |:LDAymont:STAymo|
00004750  6f 3a 4c 44 41 23 30 3a  53 54 41 63 6c 65 61 72  |o:LDA#0:STAclear|
00004760  75 70 3a 4c 44 41 6d 74  79 70 65 3a 42 45 51 6c  |up:LDAmtype:BEQl|
00004770  61 73 65 78 69 74 3a 43  4d 50 23 33 3a 42 4e 45  |asexit:CMP#3:BNE|
00004780  6e 6f 6d 6f 6e 73 74 6c  3a 4c 44 41 23 30 3a 53  |nomonstl:LDA#0:S|
00004790  54 41 6d 66 69 6e 65 3a  53 54 41 6d 6f 6e 73 74  |TAmfine:STAmonst|
000047a0  61 74 3a 2e 6e 6f 6d 6f  6e 73 74 6c 20 4c 44 41  |at:.nomonstl LDA|
000047b0  78 70 6f 73 3a 43 4d 50  78 6d 6f 6e 74 3a 42 4e  |xpos:CMPxmont:BN|
000047c0  45 6d 6f 6e 74 63 68 3a  4c 44 41 79 70 6f 73 3a  |Emontch:LDAypos:|
000047d0  43 4d 50 79 6d 6f 6e 74  3a 42 4e 45 6d 6f 6e 74  |CMPymont:BNEmont|
000047e0  63 68 3a 4c 44 41 23 31  3a 53 54 41 63 6c 65 61  |ch:LDA#1:STAclea|
000047f0  72 75 70 3a 53 54 41 70  6f 77 63 68 61 6e 67 65  |rup:STApowchange|
00004800  3a 4c 44 41 66 6e 73 74  3a 42 45 51 6d 6f 6e 74  |:LDAfnst:BEQmont|
00004810  63 68 0a 4c 44 41 70 6f  77 65 72 3a 53 45 43 3a  |ch.LDApower:SEC:|
00004820  53 42 43 23 38 3a 53 54  41 70 6f 77 65 72 3a 42  |SBC#8:STApower:B|
00004830  43 53 6d 6f 6e 74 63 68  65 3a 50 4c 41 3a 50 4c  |CSmontche:PLA:PL|
00004840  41 3a 4a 4d 50 6b 69 6c  6c 75 0a 2e 6d 6f 6e 74  |A:JMPkillu..mont|
00004850  63 68 65 20 4c 44 41 6d  74 79 70 65 3a 43 4d 50  |che LDAmtype:CMP|
00004860  23 33 3a 42 4e 45 6d 6f  6e 74 63 68 3a 50 4c 41  |#3:BNEmontch:PLA|
00004870  3a 50 4c 41 3a 4a 4d 50  7a 61 70 3a 2e 6d 6f 6e  |:PLA:JMPzap:.mon|
00004880  74 63 68 20 4a 53 52 6d  6f 76 65 6d 73 74 3a 4c  |tch JSRmovemst:L|
00004890  44 41 78 70 6f 73 3a 43  4d 50 78 6d 6f 6e 74 3a  |DAxpos:CMPxmont:|
000048a0  42 4e 45 6c 61 73 65 78  69 74 3a 4c 44 41 79 70  |BNElasexit:LDAyp|
000048b0  6f 73 3a 43 4d 50 79 6d  6f 6e 74 3a 42 4e 45 6c  |os:CMPymont:BNEl|
000048c0  61 73 65 78 69 74 3a 4c  44 41 23 31 3a 53 54 41  |asexit:LDA#1:STA|
000048d0  63 6c 65 61 72 75 70 3a  53 54 41 70 6f 77 63 68  |clearup:STApowch|
000048e0  61 6e 67 65 3a 4c 44 41  70 6f 77 65 72 3a 53 45  |ange:LDApower:SE|
000048f0  43 3a 53 42 43 23 38 3a  53 54 41 70 6f 77 65 72  |C:SBC#8:STApower|
00004900  3a 42 43 53 6c 61 73 65  78 69 74 3a 50 4c 41 3a  |:BCSlasexit:PLA:|
00004910  50 4c 41 3a 4a 4d 50 6b  69 6c 6c 75 0a 2e 6c 61  |PLA:JMPkillu..la|
00004920  73 65 72 20 4c 44 41 23  36 3a 4a 53 52 6b 65 79  |ser LDA#6:JSRkey|
00004930  62 79 74 65 3a 42 43 43  6c 61 73 65 78 69 74 3a  |byte:BCClasexit:|
00004940  4c 44 41 6c 61 73 74 61  74 3a 42 4e 45 6c 61 73  |LDAlastat:BNElas|
00004950  65 78 69 74 3a 4c 44 41  73 6f 75 6e 64 3a 42 45  |exit:LDAsound:BE|
00004960  51 6e 6f 6c 61 73 73 64  3a 4c 44 41 23 37 3a 4c  |Qnolassd:LDA#7:L|
00004970  44 58 23 28 73 77 69 74  6e 20 4d 4f 44 32 35 36  |DX#(switn MOD256|
00004980  29 3a 4c 44 59 23 28 73  77 69 74 6e 20 44 49 56  |):LDY#(switn DIV|
00004990  32 35 36 29 3a 4a 53 52  6f 73 77 6f 72 64 3a 2e  |256):JSRosword:.|
000049a0  6e 6f 6c 61 73 73 64 20  4c 44 41 70 6f 77 65 72  |nolassd LDApower|
000049b0  3a 53 54 41 70 6f 77 63  68 61 6e 67 65 3a 53 45  |:STApowchange:SE|
000049c0  43 3a 53 42 43 23 34 3a  53 54 41 70 6f 77 65 72  |C:SBC#4:STApower|
000049d0  0a 42 43 53 6c 61 73 6f  6b 61 79 3a 2e 6c 61 73  |.BCSlasokay:.las|
000049e0  64 69 65 20 50 4c 41 3a  50 4c 41 0a 2e 6b 69 6c  |die PLA:PLA..kil|
000049f0  6c 75 20 4a 53 52 67 61  6d 65 6f 76 65 72 3a 4a  |lu JSRgameover:J|
00004a00  4d 50 70 72 6f 67 3a 2e  6c 61 73 6f 6b 61 79 20  |MPprog:.lasokay |
00004a10  4c 44 41 78 6d 6f 6e 74  3a 43 4d 50 78 70 6f 73  |LDAxmont:CMPxpos|
00004a20  3a 42 4e 45 6e 6f 74 6f  6e 74 3a 4c 44 41 79 6d  |:BNEnotont:LDAym|
00004a30  6f 6e 74 3a 43 4d 50 79  70 6f 73 3a 42 4e 45 6e  |ont:CMPypos:BNEn|
00004a40  6f 74 6f 6e 74 3a 4c 44  41 23 30 3a 53 54 41 6d  |otont:LDA#0:STAm|
00004a50  74 79 70 65 3a 52 54 53  3a 2e 6e 6f 74 6f 6e 74  |type:RTS:.notont|
00004a60  20 53 45 49 3a 4c 44 41  78 70 6f 73 3a 41 53 4c  | SEI:LDAxpos:ASL|
00004a70  20 41 3a 41 53 4c 20 41  3a 41 53 4c 20 41 3a 41  | A:ASL A:ASL A:A|
00004a80  53 4c 20 41 3a 41 53 4c  20 41 3a 41 53 4c 20 41  |SL A:ASL A:ASL A|
00004a90  3a 43 4c 43 3a 41 44 43  23 26 38 30 3a 53 54 41  |:CLC:ADC#&80:STA|
00004aa0  6c 61 73 61 64 3a 4c 44  41 23 30 3a 41 44 43 23  |lasad:LDA#0:ADC#|
00004ab0  26 33 37 3a 53 54 41 26  37 31 0a 4c 44 41 78 70  |&37:STA&71.LDAxp|
00004ac0  6f 73 3a 4c 53 52 20 41  3a 4c 53 52 20 41 3a 43  |os:LSR A:LSR A:C|
00004ad0  4c 43 3a 41 44 43 26 37  31 3a 41 44 43 79 70 6f  |LC:ADC&71:ADCypo|
00004ae0  73 3a 53 54 41 26 37 31  3a 4c 44 41 79 70 6f 73  |s:STA&71:LDAypos|
00004af0  3a 41 53 4c 20 41 3a 41  53 4c 20 41 3a 43 4c 43  |:ASL A:ASL A:CLC|
00004b00  3a 41 44 43 26 37 31 3a  53 54 41 6c 61 73 61 64  |:ADC&71:STAlasad|
00004b10  2b 31 0a 4c 44 41 66 61  63 65 3a 53 54 41 6c 61  |+1.LDAface:STAla|
00004b20  73 64 69 72 3a 42 45 51  6c 65 66 69 72 65 3a 4c  |sdir:BEQlefire:L|
00004b30  44 41 6c 61 73 61 64 3a  43 4c 43 3a 41 44 43 23  |DAlasad:CLC:ADC#|
00004b40  26 34 30 3a 53 54 41 6c  61 73 61 64 3a 4c 44 41  |&40:STAlasad:LDA|
00004b50  23 39 3a 53 45 43 3a 53  42 43 78 70 6f 73 3a 4c  |#9:SEC:SBCxpos:L|
00004b60  44 58 78 70 6f 73 3a 43  50 58 23 31 3a 42 45 51  |DXxpos:CPX#1:BEQ|
00004b70  63 6f 72 72 69 67 66 3a  43 50 58 23 35 3a 42 45  |corrigf:CPX#5:BE|
00004b80  51 63 6f 72 72 69 67 66  3a 42 4e 45 66 69 6e 66  |Qcorrigf:BNEfinf|
00004b90  69 72 65 3a 2e 63 6f 72  72 69 67 66 20 49 4e 43  |ire:.corrigf INC|
00004ba0  6c 61 73 61 64 2b 31 3a  4a 4d 50 66 69 6e 66 69  |lasad+1:JMPfinfi|
00004bb0  72 65 0a 2e 6c 65 66 69  72 65 20 44 45 43 6c 61  |re..lefire DECla|
00004bc0  73 61 64 2b 31 3a 4c 44  41 78 70 6f 73 3a 2e 66  |sad+1:LDAxpos:.f|
00004bd0  69 6e 66 69 72 65 20 41  53 4c 20 41 3a 41 53 4c  |infire ASL A:ASL|
00004be0  20 41 3a 41 53 4c 20 41  3a 43 4d 50 23 26 32 30  | A:ASL A:CMP#&20|
00004bf0  3a 42 43 43 73 68 72 61  6e 67 65 3a 4c 44 41 23  |:BCCshrange:LDA#|
00004c00  26 31 46 3a 2e 73 68 72  61 6e 67 65 20 53 54 41  |&1F:.shrange STA|
00004c10  6c 61 73 74 61 74 3a 4c  44 41 23 30 3a 53 54 41  |lastat:LDA#0:STA|
00004c20  6c 61 73 74 65 70 0a 4c  44 41 23 31 3a 4c 44 58  |lastep.LDA#1:LDX|
00004c30  66 61 63 65 3a 42 4e 45  6c 65 61 6c 74 3a 4c 44  |face:BNElealt:LD|
00004c40  41 23 26 46 46 3a 2e 6c  65 61 6c 74 20 43 4c 43  |A#&FF:.lealt CLC|
00004c50  3a 41 44 43 78 70 6f 73  3a 53 54 41 78 66 3a 53  |:ADCxpos:STAxf:S|
00004c60  54 41 78 73 65 74 3a 4c  44 41 79 70 6f 73 3a 53  |TAxset:LDAypos:S|
00004c70  54 41 79 73 65 74 3a 53  54 41 79 66 3a 4a 53 52  |TAyset:STAyf:JSR|
00004c80  67 65 74 62 6c 6f 63 6b  3a 43 4d 50 23 26 31 30  |getblock:CMP#&10|
00004c90  3a 42 43 43 6e 6f 6f 62  73 74 72 3a 4c 44 41 23  |:BCCnoobstr:LDA#|
00004ca0  30 3a 53 54 41 6c 61 73  74 61 74 3a 2e 6e 6f 6f  |0:STAlastat:.noo|
00004cb0  62 73 74 72 20 43 4c 49  3a 4a 4d 50 77 61 69 74  |bstr CLI:JMPwait|
00004cc0  0a 2e 64 69 73 70 79 6f  75 20 4c 44 41 23 26 32  |..dispyou LDA#&2|
00004cd0  46 3a 53 54 41 77 69 72  65 70 2b 31 3a 53 54 41  |F:STAwirep+1:STA|
00004ce0  77 69 72 65 70 62 2b 31  3a 4c 44 41 23 26 38 30  |wirepb+1:LDA#&80|
00004cf0  3a 53 54 41 77 69 72 65  70 3a 4c 44 41 23 26 41  |:STAwirep:LDA#&A|
00004d00  30 3a 53 54 41 77 69 72  65 70 62 3a 4a 4d 50 64  |0:STAwirepb:JMPd|
00004d10  69 73 70 73 68 72 0a 2e  64 65 61 64 65 64 63 68  |ispshr..deadedch|
00004d20  20 4c 44 41 64 65 61 64  65 64 3a 42 45 51 6e 6f  | LDAdeaded:BEQno|
00004d30  74 64 65 61 64 64 3a 4c  44 41 6d 74 79 70 65 3a  |tdeadd:LDAmtype:|
00004d40  43 4d 50 23 33 3a 42 45  51 6e 6f 64 69 73 70 3a  |CMP#3:BEQnodisp:|
00004d50  4c 44 41 23 30 3a 53 54  41 6d 74 79 70 65 3a 2e  |LDA#0:STAmtype:.|
00004d60  6e 6f 64 69 73 70 20 4c  44 41 26 37 41 3a 43 4c  |nodisp LDA&7A:CL|
00004d70  43 3a 41 44 43 23 26 38  30 3a 53 54 41 26 37 30  |C:ADC#&80:STA&70|
00004d80  3a 4c 44 41 26 37 42 3a  41 44 43 23 32 3a 53 54  |:LDA&7B:ADC#2:ST|
00004d90  41 26 37 31 3a 4c 44 59  23 33 31 3a 2e 64 65 61  |A&71:LDY#31:.dea|
00004da0  64 61 20 4c 44 41 26 32  46 43 30 2c 59 3a 53 54  |da LDA&2FC0,Y:ST|
00004db0  41 28 26 37 41 29 2c 59  3a 4c 44 41 26 32 46 45  |A(&7A),Y:LDA&2FE|
00004dc0  30 2c 59 3a 53 54 41 28  26 37 30 29 2c 59 3a 44  |0,Y:STA(&70),Y:D|
00004dd0  45 59 3a 42 4e 45 64 65  61 64 61 0a 4c 44 41 70  |EY:BNEdeada.LDAp|
00004de0  6f 77 65 72 3a 53 54 41  70 6f 77 63 68 61 6e 67  |ower:STApowchang|
00004df0  65 3a 43 4c 43 3a 41 44  43 23 34 3a 42 43 43 6f  |e:CLC:ADC#4:BCCo|
00004e00  76 65 72 70 6f 77 6d 3a  4c 44 41 23 32 35 34 3a  |verpowm:LDA#254:|
00004e10  2e 6f 76 65 72 70 6f 77  6d 20 53 54 41 70 6f 77  |.overpowm STApow|
00004e20  65 72 3a 4c 44 41 23 30  3a 53 54 41 64 65 61 64  |er:LDA#0:STAdead|
00004e30  65 64 3a 2e 6e 6f 74 64  65 61 64 64 20 52 54 53  |ed:.notdeadd RTS|
00004e40  0a 2e 69 72 71 20 49 4e  43 63 6c 6f 63 6b 3a 4c  |..irq INCclock:L|
00004e50  44 41 26 38 30 3a 43 4c  43 3a 41 44 43 23 31 3a  |DA&80:CLC:ADC#1:|
00004e60  43 4d 50 63 6c 6f 63 6b  3a 42 4e 45 6e 6f 68 65  |CMPclock:BNEnohe|
00004e70  6c 70 63 3a 49 4e 43 26  38 30 3a 2e 6e 6f 68 65  |lpc:INC&80:.nohe|
00004e80  6c 70 63 20 4c 44 41 6c  61 73 74 61 74 3a 42 45  |lpc LDAlastat:BE|
00004e90  51 6e 6f 6c 61 73 3a 4c  44 41 6d 74 79 70 65 3a  |Qnolas:LDAmtype:|
00004ea0  42 45 51 6e 6f 68 69 74  6d 3a 4c 44 41 78 6d 6f  |BEQnohitm:LDAxmo|
00004eb0  6e 74 3a 43 4d 50 78 66  3a 42 4e 45 6e 6f 68 69  |nt:CMPxf:BNEnohi|
00004ec0  74 6d 3a 4c 44 41 79 6d  6f 6e 74 3a 43 4d 50 79  |tm:LDAymont:CMPy|
00004ed0  66 3a 42 4e 45 6e 6f 68  69 74 6d 3a 4c 44 41 23  |f:BNEnohitm:LDA#|
00004ee0  31 3a 53 54 41 6c 61 73  74 61 74 3a 53 54 41 64  |1:STAlastat:STAd|
00004ef0  65 61 64 65 64 0a 2e 6e  6f 68 69 74 6d 20 4a 53  |eaded..nohitm JS|
00004f00  52 73 61 76 65 76 61 72  3a 44 45 43 6c 61 73 74  |Rsavevar:DEClast|
00004f10  61 74 3a 4c 44 41 6c 61  73 74 65 70 3a 43 4c 43  |at:LDAlastep:CLC|
00004f20  3a 41 44 43 23 38 3a 53  54 41 6c 61 73 74 65 70  |:ADC#8:STAlastep|
00004f30  3a 4c 44 41 6c 61 73 64  69 72 0a 42 45 51 6c 61  |:LDAlasdir.BEQla|
00004f40  73 6c 65 66 74 3a 42 4e  45 6c 61 73 72 69 67 68  |sleft:BNElasrigh|
00004f50  74 3a 2e 6e 6f 6c 61 73  20 4a 4d 50 52 4f 4d 69  |t:.nolas JMPROMi|
00004f60  72 71 0a 2e 6c 61 73 72  69 67 68 74 20 4c 44 59  |rq..lasright LDY|
00004f70  6c 61 73 74 65 70 3a 4a  53 52 6c 61 73 65 6f 72  |lastep:JSRlaseor|
00004f80  70 3a 43 50 59 23 26 32  38 3a 42 43 43 72 69 64  |p:CPY#&28:BCCrid|
00004f90  65 6c 3a 54 59 41 3a 53  45 43 3a 53 42 43 23 26  |el:TYA:SEC:SBC#&|
00004fa0  32 30 3a 4a 53 52 6c 61  73 65 6f 72 79 3a 2e 72  |20:JSRlaseory:.r|
00004fb0  69 64 65 6c 20 4c 44 41  6c 61 73 74 61 74 3a 42  |idel LDAlastat:B|
00004fc0  4e 45 72 69 63 6f 6e 74  3a 4c 44 41 6c 61 73 74  |NEricont:LDAlast|
00004fd0  65 70 3a 53 45 43 3a 53  42 43 23 26 31 38 3a 42  |ep:SEC:SBC#&18:B|
00004fe0  43 53 6e 6f 72 6d 6e 3a  4c 44 41 23 30 3a 2e 6e  |CSnormn:LDA#0:.n|
00004ff0  6f 72 6d 6e 20 54 41 59  0a 2e 72 69 73 74 6f 70  |ormn TAY..ristop|
00005000  20 4a 53 52 6c 61 73 65  6f 72 70 0a 43 50 59 6c  | JSRlaseorp.CPYl|
00005010  61 73 74 65 70 3a 42 45  51 72 69 63 6f 6e 74 62  |astep:BEQricontb|
00005020  3a 54 59 41 3a 43 4c 43  3a 41 44 43 23 38 3a 54  |:TYA:CLC:ADC#8:T|
00005030  41 59 3a 4a 4d 50 72 69  73 74 6f 70 3a 2e 72 69  |AY:JMPristop:.ri|
00005040  63 6f 6e 74 62 20 4a 53  52 64 65 6c 79 6f 75 3a  |contb JSRdelyou:|
00005050  2e 72 69 63 6f 6e 74 20  4c 44 41 6c 61 73 74 65  |.ricont LDAlaste|
00005060  70 3a 41 4e 44 23 26 33  46 3a 42 4e 45 72 77 61  |p:AND#&3F:BNErwa|
00005070  6c 6c 3a 49 4e 43 78 66  3a 4c 44 41 78 66 3a 53  |ll:INCxf:LDAxf:S|
00005080  54 41 78 73 65 74 3a 4c  44 41 79 66 3a 53 54 41  |TAxset:LDAyf:STA|
00005090  79 73 65 74 3a 4a 53 52  67 65 74 62 6c 6f 63 6b  |yset:JSRgetblock|
000050a0  3a 43 4d 50 23 26 31 30  3a 42 43 43 72 77 61 6c  |:CMP#&10:BCCrwal|
000050b0  6c 3a 4c 44 41 23 31 3a  53 54 41 6c 61 73 74 61  |l:LDA#1:STAlasta|
000050c0  74 3a 2e 72 77 61 6c 6c  20 4a 4d 50 6c 6f 61 64  |t:.rwall JMPload|
000050d0  76 61 72 0a 2e 6c 61 73  6c 65 66 74 20 4c 44 41  |var..lasleft LDA|
000050e0  23 30 3a 53 45 43 3a 53  42 43 6c 61 73 74 65 70  |#0:SEC:SBClastep|
000050f0  3a 4a 53 52 6c 61 73 65  6f 72 79 3a 43 50 59 23  |:JSRlaseory:CPY#|
00005100  26 45 30 3a 42 43 53 6c  65 64 65 6c 3a 54 59 41  |&E0:BCSledel:TYA|
00005110  3a 43 4c 43 3a 41 44 43  23 26 32 30 3a 4a 53 52  |:CLC:ADC#&20:JSR|
00005120  6c 61 73 65 6f 72 79 3a  2e 6c 65 64 65 6c 20 4c  |laseory:.ledel L|
00005130  44 41 6c 61 73 74 61 74  3a 42 4e 45 6c 65 63 6f  |DAlastat:BNEleco|
00005140  6e 74 3a 4c 44 41 23 30  3a 53 45 43 3a 53 42 43  |nt:LDA#0:SEC:SBC|
00005150  6c 61 73 74 65 70 3a 53  54 41 6c 61 73 74 65 70  |lastep:STAlastep|
00005160  3a 43 4c 43 3a 41 44 43  23 26 31 38 3a 42 43 43  |:CLC:ADC#&18:BCC|
00005170  6e 6f 72 6c 6e 3a 4c 44  41 23 26 46 38 0a 2e 6e  |norln:LDA#&F8..n|
00005180  6f 72 6c 6e 20 54 41 59  0a 2e 6c 65 73 74 6f 70  |orln TAY..lestop|
00005190  20 4a 53 52 6c 61 73 65  6f 72 70 3a 43 50 59 6c  | JSRlaseorp:CPYl|
000051a0  61 73 74 65 70 3a 42 45  51 6c 65 63 6f 6e 74 62  |astep:BEQlecontb|
000051b0  3a 54 59 41 3a 53 45 43  3a 53 42 43 23 38 3a 54  |:TYA:SEC:SBC#8:T|
000051c0  41 59 3a 4a 4d 50 6c 65  73 74 6f 70 3a 2e 6c 65  |AY:JMPlestop:.le|
000051d0  63 6f 6e 74 62 20 4a 53  52 64 65 6c 79 6f 75 3a  |contb JSRdelyou:|
000051e0  2e 6c 65 63 6f 6e 74 20  4c 44 41 6c 61 73 74 65  |.lecont LDAlaste|
000051f0  70 3a 41 4e 44 23 26 33  46 3a 42 4e 45 6c 77 61  |p:AND#&3F:BNElwa|
00005200  6c 6c 3a 44 45 43 78 66  3a 4c 44 41 78 66 3a 53  |ll:DECxf:LDAxf:S|
00005210  54 41 78 73 65 74 3a 4c  44 41 79 66 3a 53 54 41  |TAxset:LDAyf:STA|
00005220  79 73 65 74 0a 4a 53 52  67 65 74 62 6c 6f 63 6b  |yset.JSRgetblock|
00005230  3a 43 4d 50 23 26 31 30  3a 42 43 43 6c 77 61 6c  |:CMP#&10:BCClwal|
00005240  6c 3a 4c 44 41 23 31 3a  53 54 41 6c 61 73 74 61  |l:LDA#1:STAlasta|
00005250  74 3a 2e 6c 77 61 6c 6c  20 4a 4d 50 6c 6f 61 64  |t:.lwall JMPload|
00005260  76 61 72 0a 2e 6c 61 73  65 6f 72 79 20 54 41 59  |var..laseory TAY|
00005270  3a 2e 6c 61 73 65 6f 72  70 20 4c 44 41 28 6c 61  |:.laseorp LDA(la|
00005280  73 61 64 29 2c 59 3a 45  4f 52 23 26 33 46 3a 53  |sad),Y:EOR#&3F:S|
00005290  54 41 28 6c 61 73 61 64  29 2c 59 3a 52 54 53 0a  |TA(lasad),Y:RTS.|
000052a0  2e 73 63 72 6f 66 66 20  4c 44 41 23 30 3a 53 54  |.scroff LDA#0:ST|
000052b0  41 6c 61 73 74 61 74 3a  4c 44 41 26 44 30 31 31  |Alastat:LDA&D011|
000052c0  3a 41 4e 44 23 26 45 46  3a 53 54 41 26 44 30 31  |:AND#&EF:STA&D01|
000052d0  31 3a 52 54 53 0a 0a 50  25 3d 26 32 33 30 30 3a  |1:RTS..P%=&2300:|
000052e0  4f 25 3d 26 41 30 30 0a  0a 2e 73 61 76 65 76 61  |O%=&A00...saveva|
000052f0  72 20 4c 44 41 26 37 30  3a 53 54 41 26 38 38 3a  |r LDA&70:STA&88:|
00005300  4c 44 41 26 37 31 3a 53  54 41 26 38 39 3a 4c 44  |LDA&71:STA&89:LD|
00005310  41 26 37 32 3a 53 54 41  26 38 41 3a 4c 44 41 26  |A&72:STA&8A:LDA&|
00005320  37 33 3a 53 54 41 26 38  42 3a 4c 44 41 78 73 65  |73:STA&8B:LDAxse|
00005330  74 3a 53 54 41 26 38 43  3a 4c 44 41 79 73 65 74  |t:STA&8C:LDAyset|
00005340  3a 53 54 41 26 38 44 3a  53 54 58 26 38 46 3a 53  |:STA&8D:STX&8F:S|
00005350  54 59 26 38 37 3a 52 54  53 0a 2e 6c 6f 61 64 76  |TY&87:RTS..loadv|
00005360  61 72 20 4c 44 41 26 38  38 3a 53 54 41 26 37 30  |ar LDA&88:STA&70|
00005370  3a 4c 44 41 26 38 39 3a  53 54 41 26 37 31 3a 4c  |:LDA&89:STA&71:L|
00005380  44 41 26 38 41 3a 53 54  41 26 37 32 3a 4c 44 41  |DA&8A:STA&72:LDA|
00005390  26 38 42 3a 53 54 41 26  37 33 3a 4c 44 41 26 38  |&8B:STA&73:LDA&8|
000053a0  43 3a 53 54 41 78 73 65  74 3a 4c 44 41 26 38 44  |C:STAxset:LDA&8D|
000053b0  3a 53 54 41 79 73 65 74  3a 4c 44 58 26 38 46 3a  |:STAyset:LDX&8F:|
000053c0  4c 44 59 26 38 37 3a 4a  4d 50 52 4f 4d 69 72 71  |LDY&87:JMPROMirq|
000053d0  0a 2e 78 6d 6f 6d 20 4c  44 58 78 6d 6f 6e 74 3a  |..xmom LDXxmont:|
000053e0  43 50 58 78 70 6f 73 3a  42 45 51 6f 6e 79 6f 75  |CPXxpos:BEQonyou|
000053f0  3a 42 43 43 72 69 74 65  6d 74 3a 44 45 58 3a 4a  |:BCCritemt:DEX:J|
00005400  53 52 6c 72 78 6d 73 68  3a 42 43 53 6f 6e 79 6f  |SRlrxmsh:BCSonyo|
00005410  75 3a 44 45 43 78 6d 6f  6e 74 3a 4c 44 41 23 31  |u:DECxmont:LDA#1|
00005420  3a 2e 78 6d 65 6e 64 20  53 54 41 6d 66 69 6e 65  |:.xmend STAmfine|
00005430  3a 52 54 53 0a 2e 72 69  74 65 6d 74 20 49 4e 58  |:RTS..ritemt INX|
00005440  3a 4a 53 52 6c 72 78 6d  73 68 3a 42 43 53 6f 6e  |:JSRlrxmsh:BCSon|
00005450  79 6f 75 3a 49 4e 43 78  6d 6f 6e 74 3a 4c 44 41  |you:INCxmont:LDA|
00005460  23 32 3a 42 4e 45 78 6d  65 6e 64 3a 2e 6f 6e 79  |#2:BNExmend:.ony|
00005470  6f 75 20 4c 44 41 23 30  3a 42 45 51 78 6d 65 6e  |ou LDA#0:BEQxmen|
00005480  64 3a 2e 6c 72 78 6d 73  68 20 53 54 58 78 73 65  |d:.lrxmsh STXxse|
00005490  74 3a 4c 44 41 79 6d 6f  6e 74 3a 53 54 41 79 73  |t:LDAymont:STAys|
000054a0  65 74 3a 4a 53 52 67 65  74 62 6c 6f 63 6b 3a 43  |et:JSRgetblock:C|
000054b0  4d 50 23 26 31 30 3a 52  54 53 0a 2e 63 6d 70 74  |MP#&10:RTS..cmpt|
000054c0  78 74 20 45 51 55 42 33  3a 45 51 55 42 32 32 3a  |xt EQUB3:EQUB22:|
000054d0  45 51 55 42 31 33 3a 45  51 55 42 37 3a 45 51 55  |EQUB13:EQUB7:EQU|
000054e0  42 31 35 3a 45 51 55 42  31 3a 45 51 55 42 31 37  |B15:EQUB1:EQUB17|
000054f0  3a 45 51 55 42 31 38 3a  45 51 55 42 31 31 3a 45  |:EQUB18:EQUB11:E|
00005500  51 55 42 31 3a 45 51 55  42 31 37 3a 45 51 55 42  |QUB1:EQUB17:EQUB|
00005510  32 33 3a 45 51 55 42 32  32 3a 45 51 55 42 31 33  |23:EQUB22:EQUB13|
00005520  3a 45 51 55 42 31 36 3a  45 51 55 42 26 46 46 0a  |:EQUB16:EQUB&FF.|
00005530  0a 50 25 3d 26 32 44 38  30 3a 4f 25 3d 26 41 38  |.P%=&2D80:O%=&A8|
00005540  30 0a 0a 2e 6d 6f 76 65  6d 73 74 20 4c 44 41 6d  |0...movemst LDAm|
00005550  74 79 70 65 3a 43 4d 50  23 32 3a 42 45 51 79 70  |type:CMP#2:BEQyp|
00005560  61 74 72 6f 6c 3a 43 4d  50 23 31 3a 42 4e 45 6d  |atrol:CMP#1:BNEm|
00005570  6f 76 65 6d 71 75 74 0a  2e 78 70 61 74 72 6f 6c  |ovemqut..xpatrol|
00005580  20 4c 44 41 78 6d 6f 6e  74 3a 42 45 51 72 65 76  | LDAxmont:BEQrev|
00005590  64 69 72 3a 43 4d 50 23  39 3a 42 45 51 72 65 76  |dir:CMP#9:BEQrev|
000055a0  64 69 72 3a 41 44 43 6d  64 69 72 3a 53 54 41 78  |dir:ADCmdir:STAx|
000055b0  73 65 74 3a 4c 44 41 79  6d 6f 6e 74 3a 53 54 41  |set:LDAymont:STA|
000055c0  79 73 65 74 3a 4a 53 52  67 65 74 62 6c 6f 63 6b  |yset:JSRgetblock|
000055d0  3a 43 4d 50 23 26 31 30  3a 42 43 53 72 65 76 64  |:CMP#&10:BCSrevd|
000055e0  69 72 3a 49 4e 43 79 73  65 74 3a 4a 53 52 67 65  |ir:INCyset:JSRge|
000055f0  74 62 6c 6f 63 6b 3a 43  4d 50 23 26 31 30 3a 42  |tblock:CMP#&10:B|
00005600  43 43 72 65 76 64 69 72  3a 4c 44 41 78 73 65 74  |CCrevdir:LDAxset|
00005610  3a 53 54 41 78 6d 6f 6e  74 3a 2e 6d 6f 76 65 6d  |:STAxmont:.movem|
00005620  71 75 74 20 52 54 53 0a  2e 72 65 76 64 69 72 20  |qut RTS..revdir |
00005630  4c 44 41 6d 64 69 72 3a  45 4f 52 23 26 46 45 3a  |LDAmdir:EOR#&FE:|
00005640  53 54 41 6d 64 69 72 3a  43 4c 43 3a 41 44 43 78  |STAmdir:CLC:ADCx|
00005650  6d 6f 6e 74 3a 53 54 41  78 6d 6f 6e 74 3a 4c 44  |mont:STAxmont:LD|
00005660  41 6d 66 69 6e 65 3a 45  4f 52 23 33 3a 53 54 41  |Amfine:EOR#3:STA|
00005670  6d 66 69 6e 65 3a 52 54  53 0a 2e 79 70 61 74 72  |mfine:RTS..ypatr|
00005680  6f 6c 20 4c 44 58 79 6d  6f 6e 74 3a 43 50 58 79  |ol LDXymont:CPXy|
00005690  70 6f 73 3a 42 45 51 78  61 64 6a 62 3a 42 43 43  |pos:BEQxadjb:BCC|
000056a0  64 6f 77 6e 6d 74 3a 44  45 58 3a 4a 53 52 79 70  |downmt:DEX:JSRyp|
000056b0  73 68 72 3a 44 45 43 79  6d 6f 6e 74 3a 4c 44 41  |shr:DECymont:LDA|
000056c0  23 36 3a 53 54 41 6d 66  69 6e 65 3a 52 54 53 3a  |#6:STAmfine:RTS:|
000056d0  2e 79 70 73 68 72 20 53  54 58 79 73 65 74 3a 4c  |.ypshr STXyset:L|
000056e0  44 41 78 6d 6f 6e 74 3a  53 54 41 78 73 65 74 3a  |DAxmont:STAxset:|
000056f0  4a 53 52 67 65 74 62 6c  6f 63 6b 3a 43 4d 50 23  |JSRgetblock:CMP#|
00005700  26 31 30 3a 42 43 53 78  61 64 6a 3a 52 54 53 0a  |&10:BCSxadj:RTS.|
00005710  2e 64 6f 77 6e 6d 74 20  49 4e 58 3a 4a 53 52 79  |.downmt INX:JSRy|
00005720  70 73 68 72 3a 49 4e 43  79 6d 6f 6e 74 3a 4c 44  |pshr:INCymont:LD|
00005730  41 23 35 3a 53 54 41 6d  66 69 6e 65 3a 52 54 53  |A#5:STAmfine:RTS|
00005740  3a 2e 78 61 64 6a 20 50  4c 41 3a 50 4c 41 3a 2e  |:.xadj PLA:PLA:.|
00005750  78 61 64 6a 62 20 4a 4d  50 78 6d 6f 6d 0a 2e 63  |xadjb JMPxmom..c|
00005760  6d 70 74 78 74 62 20 45  51 55 42 37 3a 45 51 55  |mptxtb EQUB7:EQU|
00005770  42 31 3a 45 51 55 42 31  32 3a 45 51 55 42 35 3a  |B1:EQUB12:EQUB5:|
00005780  45 51 55 42 30 3a 45 51  55 42 33 3a 45 51 55 42  |EQUB0:EQUB3:EQUB|
00005790  32 32 3a 45 51 55 42 31  32 3a 45 51 55 42 31 34  |22:EQUB12:EQUB14|
000057a0  3a 45 51 55 42 31 31 3a  45 51 55 42 35 3a 45 51  |:EQUB11:EQUB5:EQ|
000057b0  55 42 31 37 3a 45 51 55  42 35 3a 45 51 55 42 26  |UB17:EQUB5:EQUB&|
000057c0  46 46 0a 0a 5c 20 4d 4f  53 20 53 79 73 74 65 6d  |FF..\ MOS System|
000057d0  0a 0a 50 25 3d 26 38 30  30 30 3a 4f 25 3d 26 33  |..P%=&8000:O%=&3|
000057e0  46 30 30 0a 0a 2e 6b 65  79 62 79 74 65 20 43 4d  |F00...keybyte CM|
000057f0  50 23 38 3a 42 45 51 73  68 69 66 74 6b 3a 54 41  |P#8:BEQshiftk:TA|
00005800  58 3a 4c 44 41 26 44 43  30 30 3a 41 4e 44 6a 6f  |X:LDA&DC00:ANDjo|
00005810  79 73 74 2c 58 3a 42 45  51 73 65 6b 65 79 3a 4c  |yst,X:BEQsekey:L|
00005820  44 41 26 43 35 3a 43 4d  50 6b 65 79 70 2c 58 3a  |DA&C5:CMPkeyp,X:|
00005830  42 45 51 73 65 6b 65 79  3a 43 4c 43 3a 52 54 53  |BEQsekey:CLC:RTS|
00005840  3a 2e 73 65 6b 65 79 20  53 45 43 3a 52 54 53 0a  |:.sekey SEC:RTS.|
00005850  2e 73 68 69 66 74 6b 20  4c 44 41 26 32 38 44 3a  |.shiftk LDA&28D:|
00005860  41 4e 44 23 31 3a 42 4e  45 73 65 6b 65 79 3a 43  |AND#1:BNEsekey:C|
00005870  4c 43 3a 52 54 53 0a 2e  6a 6f 79 73 74 20 45 51  |LC:RTS..joyst EQ|
00005880  55 42 34 3a 45 51 55 42  38 3a 45 51 55 42 31 3a  |UB4:EQUB8:EQUB1:|
00005890  45 51 55 42 32 3a 45 51  55 42 26 46 46 3a 45 51  |EQUB2:EQUB&FF:EQ|
000058a0  55 42 31 36 3a 45 51 55  42 26 46 46 3a 45 51 55  |UB16:EQUB&FF:EQU|
000058b0  42 26 46 46 3a 45 51 55  42 26 46 46 3a 45 51 55  |B&FF:EQUB&FF:EQU|
000058c0  42 26 46 46 0a 2e 6b 65  79 70 20 45 51 55 42 31  |B&FF..keyp EQUB1|
000058d0  32 3a 45 51 55 42 32 33  3a 45 51 55 42 33 37 3a  |2:EQUB23:EQUB37:|
000058e0  45 51 55 42 33 36 3a 45  51 55 42 36 30 3a 45 51  |EQUB36:EQUB60:EQ|
000058f0  55 42 30 3a 45 51 55 42  34 31 3a 45 51 55 42 35  |UB0:EQUB41:EQUB5|
00005900  37 3a 45 51 55 42 26 46  46 3a 45 51 55 42 31 33  |7:EQUB&FF:EQUB13|
00005910  0a 2e 6f 73 77 6f 72 64  20 52 54 53 0a 2e 6f 73  |..osword RTS..os|
00005920  77 72 63 68 20 52 54 53  20 5c 20 54 65 6d 70 6f  |wrch RTS \ Tempo|
00005930  72 61 72 79 0a 2e 52 4f  4d 69 72 71 20 4a 4d 50  |rary..ROMirq JMP|
00005940  26 45 41 33 31                                    |&EA31|
00005945