� X_PLAY version 8.06
� By Rafael Jay
� (C) The Micro User 1991
(:
2oldvec=&80:st=&82:stp=&84
<stl=&86:nsta=&87
F� PASS=0 � 2 � 2
PP%=&8C0:[OPT PASS
ZJSRs_init:LDA&20A:LDX&20B
dCMP#newvec �&100:BNEsetvec
nCPX#newvec �&100:BEQvecset
x!.setvec STAoldvec:STXoldvec+1
�LDA#newvec �&100:STA&20A
�LDA#newvec �&100:STA&20B
� .vecset LDA#&00:STAst:STAstp
�LDA#&11:STAst+1:STAstp+1
�LDA#&01:STAstl
�LDA#&FF:JSRpop:RTS
�.s_init LDA#&FF:STA&FE43
�LDA#&84:JSRto_chip
�LDA#&00:JSRto_chip
�LDA#&A4:JSRto_chip
�LDA#&00:JSRto_chip
�LDA#&C4:JSRto_chip
�LDA#&00:JSRto_chip

RTS:.smp SEI:JSRs_init

LDA#&00:STA&70

LDA&75:STA&71

".loop1 LDY#&00

,
.loop2

6LDA(&70),Y:NOP:JSRsound

@INY:BNEloop2

JINC&71:LDA&71

TCMP&76:BNEloop1

^LDA#&FF:JSRsound

hCLI:RTS

r.to_chip STA&FE4F

|LDX#&00:STX&FE40

�NOP:NOP:NOP:NOP

�LDX#&08:STX&FE40

�RTS

�.sound TAX:TYA:PHA

�LDA&C00,X:TAX

�
LDAtab1,X

�STA&FE4F:LDY#&00:STY&FE40

�NOP:NOP:NOP:NOP

�LDY#&08:STY&FE40

�LDAtab1+&2E,X

�STA&FE4F:LDY#&00:STY&FE40

�NOP:NOP:NOP:NOP

�LDY#&08:STY&FE40
LDAtab1+&5C,X
STA&FE4F:LDY#&00:STY&FE40
NOP:NOP:NOP:NOP
&LDY#&08:STY&FE40
0LDX&74:.d_loop
:DEX:BNEd_loop
DPLA:TAY:RTS
N.newvec
XCMP#&A1:BCCexit
bCMP#&A4:BCCact
l.exit JMP(oldvec)
v$.act STAnsta:PHA:TXA:PHA:TYA:PHA
�LDAnsta:CMP#&A1:BEQstats
�CMP#&A2:BEQto_stack
�CMP#&A3:BNEquit1:JSRplay
�.quit LDA&F4:STA&FE30
�#PLA:TAY:PLA:TAX:PLA:PLA:PLA:RTS
�.quit1 PLA:TAY:PLA:TAX:PLA
�JMP(oldvec)
� .to_stack LDAram_type:JSRpop
�LDA&74:JSRpop
�TXA:JSRpop:TYA:JSRpop
�JMPquit
�.stats CPX#&00:BNEnot_freq
�STY&74:JMPquit
 .not_freq CPX#&01:BNEnot_ram
STYram_type:JMPquit
!.not_ram CPX#&02:BNEnot_saddr
 LDA#&00:STAnsta:STYnsta+1
* JSRcheck_empty:LDAnsta:STAst
4STAstp:LDAnsta+1:STAst+1
>#STAstp+1:LDA#&FF:JSRpop:JMPquit
H".not_saddr CPX#&03:BNEnot_slen
RSTYnsta:JSRcheck_empty
\LDAnsta:STAstl:JMPquit
f#.not_slen CPX#&04:BNEnot_sflush
pLDAst:STAstp:LDAst+1
zSTAstp+1:LDA#&FF:JSRpop
�.not_sflush JMPquit
�.check_empty
�%LDXstp:DEX:TXA:CMPst:BNEnot_empty
�!LDAst+1:CMPstp+1:BNEnot_empty
�RTS:.not_empty BRK:EQUB&70
�EQUS"Stack not empty":BRK
� .pop STAnsta:TXA:PHA:TYA:PHA
�LDXstp:BNEok1:LDAst+1
�CLC:ADCstl:STAnsta+1
�LDAstp+1:CMPnsta+1:BNEok1
�$BRK:EQUB&71:EQUS"Stack full":BRK
�.ok1 LDAnsta:LDY#&00
�STA(stp),Y:INCstp:BNEskip1
INCstp+1:.skip1 PLA:TAY
PLA:TAX:RTS
.pull LDAstp:CMPst:BNEok
$LDAstp+1:CMPst+1:BNEok
.%BRK:EQUB&72:EQUS"Stack underflow"
8!BRK:.ok DECstp:LDAstp:CMP#&FF
BBNEskip2:DECstp+1:.skip2
LLDY#&00:LDA(stp),Y:RTS
V.ram_type BRK
`.play STXcount:STYcount+1
j$.p_loop1 JSRpull:CMP#&FF:BNEp_ok
tJSRpop:RTS:.p_ok STA&76
~JSRpull:STA&75:JSRpull
�STA&74:JSRpull
�CMP#&10:BCSnot_sram
�STA&FE30:.not_sram CMP#&80
�BNEnot_tube:JSRalt_tube
�!JMPtube:.not_tube JSRalt_norm
�".tube JSRsmp:DECcount:LDAcount
�!CMP#&FF:BNEp_loop1:DECcount+1
�LDAcount+1:CMP#&FF
�BNEp_loop1:RTS
�.count EQUW&00
�.alt_tube LDA#&AD:STAloop2
�LDA#&E5:STAloop2+1
LDA#&FE:STAloop2+2

.claim_loop LDA#&C8
JSR&406:BCCclaim_loop
$LDA#&00:STAt_pb:LDA&75:STAt_pb+1
(LDA#&00:LDX#t_pb �&100
2LDY#t_pb �&100:JMP&406
<.alt_norm LDA#&B1:STAloop2
FLDA#&70:STAloop2+1
PLDA#&EA:STAloop2+2:RTS
Z.t_pb EQUD&00
d	.tab1
n]:�
x�C%(2):C%(0)=&90:C%(1)=&B0
�C%(2)=&D0:�L%=0�&2D
�?(P%+L%)=C%(0)
�?(P%+&2E+L%)=C%(1)
�?(P%+&5C+L%)=C%(2)
�C%(L%�3)=C%(L%�3)+1
��:P%=P%+&8A
�P%=&CFF:�L%=45�0�-1
��N%:�K%=1�N%:?P%=L%
�P%=P%-1:�:�:P%=&D00
�*SAVE XP8 FFFF08C0 FFFF0D00
��1,2,2,2,2,2,2,2,2,2,2,2,2
��3,3,3,3,3,3,3,3,3,4,4,4
��4,4,4,5,5,5,6,6,6,7,7,7
�9,9,9,12,12,12,21,21,21
�

00000000  0d 00 0a 19 f4 20 58 5f  50 4c 41 59 20 76 65 72  |..... X_PLAY ver|
00000010  73 69 6f 6e 20 38 2e 30  36 0d 00 14 13 f4 20 42  |sion 8.06..... B|
00000020  79 20 52 61 66 61 65 6c  20 4a 61 79 0d 00 1e 1d  |y Rafael Jay....|
00000030  f4 20 28 43 29 20 54 68  65 20 4d 69 63 72 6f 20  |. (C) The Micro |
00000040  55 73 65 72 20 31 39 39  31 0d 00 28 05 3a 0d 00  |User 1991..(.:..|
00000050  32 1d 6f 6c 64 76 65 63  3d 26 38 30 3a 73 74 3d  |2.oldvec=&80:st=|
00000060  26 38 32 3a 73 74 70 3d  26 38 34 0d 00 3c 14 73  |&82:stp=&84..<.s|
00000070  74 6c 3d 26 38 36 3a 6e  73 74 61 3d 26 38 37 0d  |tl=&86:nsta=&87.|
00000080  00 46 14 e3 20 50 41 53  53 3d 30 20 b8 20 32 20  |.F.. PASS=0 . 2 |
00000090  88 20 32 0d 00 50 15 50  25 3d 26 38 43 30 3a 5b  |. 2..P.P%=&8C0:[|
000000a0  4f 50 54 20 50 41 53 53  0d 00 5a 1d 4a 53 52 73  |OPT PASS..Z.JSRs|
000000b0  5f 69 6e 69 74 3a 4c 44  41 26 32 30 41 3a 4c 44  |_init:LDA&20A:LD|
000000c0  58 26 32 30 42 0d 00 64  1e 43 4d 50 23 6e 65 77  |X&20B..d.CMP#new|
000000d0  76 65 63 20 83 26 31 30  30 3a 42 4e 45 73 65 74  |vec .&100:BNEset|
000000e0  76 65 63 0d 00 6e 1e 43  50 58 23 6e 65 77 76 65  |vec..n.CPX#newve|
000000f0  63 20 81 26 31 30 30 3a  42 45 51 76 65 63 73 65  |c .&100:BEQvecse|
00000100  74 0d 00 78 21 2e 73 65  74 76 65 63 20 53 54 41  |t..x!.setvec STA|
00000110  6f 6c 64 76 65 63 3a 53  54 58 6f 6c 64 76 65 63  |oldvec:STXoldvec|
00000120  2b 31 0d 00 82 1c 4c 44  41 23 6e 65 77 76 65 63  |+1....LDA#newvec|
00000130  20 83 26 31 30 30 3a 53  54 41 26 32 30 41 0d 00  | .&100:STA&20A..|
00000140  8c 1c 4c 44 41 23 6e 65  77 76 65 63 20 81 26 31  |..LDA#newvec .&1|
00000150  30 30 3a 53 54 41 26 32  30 42 0d 00 96 20 2e 76  |00:STA&20B... .v|
00000160  65 63 73 65 74 20 4c 44  41 23 26 30 30 3a 53 54  |ecset LDA#&00:ST|
00000170  41 73 74 3a 53 54 41 73  74 70 0d 00 a0 1c 4c 44  |Ast:STAstp....LD|
00000180  41 23 26 31 31 3a 53 54  41 73 74 2b 31 3a 53 54  |A#&11:STAst+1:ST|
00000190  41 73 74 70 2b 31 0d 00  aa 12 4c 44 41 23 26 30  |Astp+1....LDA#&0|
000001a0  31 3a 53 54 41 73 74 6c  0d 00 b4 16 4c 44 41 23  |1:STAstl....LDA#|
000001b0  26 46 46 3a 4a 53 52 70  6f 70 3a 52 54 53 0d 00  |&FF:JSRpop:RTS..|
000001c0  be 1c 2e 73 5f 69 6e 69  74 20 4c 44 41 23 26 46  |...s_init LDA#&F|
000001d0  46 3a 53 54 41 26 46 45  34 33 0d 00 c8 16 4c 44  |F:STA&FE43....LD|
000001e0  41 23 26 38 34 3a 4a 53  52 74 6f 5f 63 68 69 70  |A#&84:JSRto_chip|
000001f0  0d 00 d2 16 4c 44 41 23  26 30 30 3a 4a 53 52 74  |....LDA#&00:JSRt|
00000200  6f 5f 63 68 69 70 0d 00  dc 16 4c 44 41 23 26 41  |o_chip....LDA#&A|
00000210  34 3a 4a 53 52 74 6f 5f  63 68 69 70 0d 00 e6 16  |4:JSRto_chip....|
00000220  4c 44 41 23 26 30 30 3a  4a 53 52 74 6f 5f 63 68  |LDA#&00:JSRto_ch|
00000230  69 70 0d 00 f0 16 4c 44  41 23 26 43 34 3a 4a 53  |ip....LDA#&C4:JS|
00000240  52 74 6f 5f 63 68 69 70  0d 00 fa 16 4c 44 41 23  |Rto_chip....LDA#|
00000250  26 30 30 3a 4a 53 52 74  6f 5f 63 68 69 70 0d 01  |&00:JSRto_chip..|
00000260  04 1a 52 54 53 3a 2e 73  6d 70 20 53 45 49 3a 4a  |..RTS:.smp SEI:J|
00000270  53 52 73 5f 69 6e 69 74  0d 01 0e 12 4c 44 41 23  |SRs_init....LDA#|
00000280  26 30 30 3a 53 54 41 26  37 30 0d 01 18 11 4c 44  |&00:STA&70....LD|
00000290  41 26 37 35 3a 53 54 41  26 37 31 0d 01 22 12 2e  |A&75:STA&71.."..|
000002a0  6c 6f 6f 70 31 20 4c 44  59 23 26 30 30 0d 01 2c  |loop1 LDY#&00..,|
000002b0  0a 2e 6c 6f 6f 70 32 0d  01 36 1b 4c 44 41 28 26  |..loop2..6.LDA(&|
000002c0  37 30 29 2c 59 3a 4e 4f  50 3a 4a 53 52 73 6f 75  |70),Y:NOP:JSRsou|
000002d0  6e 64 0d 01 40 10 49 4e  59 3a 42 4e 45 6c 6f 6f  |nd..@.INY:BNEloo|
000002e0  70 32 0d 01 4a 11 49 4e  43 26 37 31 3a 4c 44 41  |p2..J.INC&71:LDA|
000002f0  26 37 31 0d 01 54 13 43  4d 50 26 37 36 3a 42 4e  |&71..T.CMP&76:BN|
00000300  45 6c 6f 6f 70 31 0d 01  5e 14 4c 44 41 23 26 46  |Eloop1..^.LDA#&F|
00000310  46 3a 4a 53 52 73 6f 75  6e 64 0d 01 68 0b 43 4c  |F:JSRsound..h.CL|
00000320  49 3a 52 54 53 0d 01 72  15 2e 74 6f 5f 63 68 69  |I:RTS..r..to_chi|
00000330  70 20 53 54 41 26 46 45  34 46 0d 01 7c 14 4c 44  |p STA&FE4F..|.LD|
00000340  58 23 26 30 30 3a 53 54  58 26 46 45 34 30 0d 01  |X#&00:STX&FE40..|
00000350  86 13 4e 4f 50 3a 4e 4f  50 3a 4e 4f 50 3a 4e 4f  |..NOP:NOP:NOP:NO|
00000360  50 0d 01 90 14 4c 44 58  23 26 30 38 3a 53 54 58  |P....LDX#&08:STX|
00000370  26 46 45 34 30 0d 01 9a  07 52 54 53 0d 01 a4 16  |&FE40....RTS....|
00000380  2e 73 6f 75 6e 64 20 54  41 58 3a 54 59 41 3a 50  |.sound TAX:TYA:P|
00000390  48 41 0d 01 ae 11 4c 44  41 26 43 30 30 2c 58 3a  |HA....LDA&C00,X:|
000003a0  54 41 58 0d 01 b8 0d 4c  44 41 74 61 62 31 2c 58  |TAX....LDAtab1,X|
000003b0  0d 01 c2 1d 53 54 41 26  46 45 34 46 3a 4c 44 59  |....STA&FE4F:LDY|
000003c0  23 26 30 30 3a 53 54 59  26 46 45 34 30 0d 01 cc  |#&00:STY&FE40...|
000003d0  13 4e 4f 50 3a 4e 4f 50  3a 4e 4f 50 3a 4e 4f 50  |.NOP:NOP:NOP:NOP|
000003e0  0d 01 d6 14 4c 44 59 23  26 30 38 3a 53 54 59 26  |....LDY#&08:STY&|
000003f0  46 45 34 30 0d 01 e0 11  4c 44 41 74 61 62 31 2b  |FE40....LDAtab1+|
00000400  26 32 45 2c 58 0d 01 ea  1d 53 54 41 26 46 45 34  |&2E,X....STA&FE4|
00000410  46 3a 4c 44 59 23 26 30  30 3a 53 54 59 26 46 45  |F:LDY#&00:STY&FE|
00000420  34 30 0d 01 f4 13 4e 4f  50 3a 4e 4f 50 3a 4e 4f  |40....NOP:NOP:NO|
00000430  50 3a 4e 4f 50 0d 01 fe  14 4c 44 59 23 26 30 38  |P:NOP....LDY#&08|
00000440  3a 53 54 59 26 46 45 34  30 0d 02 08 11 4c 44 41  |:STY&FE40....LDA|
00000450  74 61 62 31 2b 26 35 43  2c 58 0d 02 12 1d 53 54  |tab1+&5C,X....ST|
00000460  41 26 46 45 34 46 3a 4c  44 59 23 26 30 30 3a 53  |A&FE4F:LDY#&00:S|
00000470  54 59 26 46 45 34 30 0d  02 1c 13 4e 4f 50 3a 4e  |TY&FE40....NOP:N|
00000480  4f 50 3a 4e 4f 50 3a 4e  4f 50 0d 02 26 14 4c 44  |OP:NOP:NOP..&.LD|
00000490  59 23 26 30 38 3a 53 54  59 26 46 45 34 30 0d 02  |Y#&08:STY&FE40..|
000004a0  30 12 4c 44 58 26 37 34  3a 2e 64 5f 6c 6f 6f 70  |0.LDX&74:.d_loop|
000004b0  0d 02 3a 11 44 45 58 3a  42 4e 45 64 5f 6c 6f 6f  |..:.DEX:BNEd_loo|
000004c0  70 0d 02 44 0f 50 4c 41  3a 54 41 59 3a 52 54 53  |p..D.PLA:TAY:RTS|
000004d0  0d 02 4e 0b 2e 6e 65 77  76 65 63 0d 02 58 13 43  |..N..newvec..X.C|
000004e0  4d 50 23 26 41 31 3a 42  43 43 65 78 69 74 0d 02  |MP#&A1:BCCexit..|
000004f0  62 12 43 4d 50 23 26 41  34 3a 42 43 43 61 63 74  |b.CMP#&A4:BCCact|
00000500  0d 02 6c 15 2e 65 78 69  74 20 4a 4d 50 28 6f 6c  |..l..exit JMP(ol|
00000510  64 76 65 63 29 0d 02 76  24 2e 61 63 74 20 53 54  |dvec)..v$.act ST|
00000520  41 6e 73 74 61 3a 50 48  41 3a 54 58 41 3a 50 48  |Ansta:PHA:TXA:PH|
00000530  41 3a 54 59 41 3a 50 48  41 0d 02 80 1c 4c 44 41  |A:TYA:PHA....LDA|
00000540  6e 73 74 61 3a 43 4d 50  23 26 41 31 3a 42 45 51  |nsta:CMP#&A1:BEQ|
00000550  73 74 61 74 73 0d 02 8a  17 43 4d 50 23 26 41 32  |stats....CMP#&A2|
00000560  3a 42 45 51 74 6f 5f 73  74 61 63 6b 0d 02 94 1c  |:BEQto_stack....|
00000570  43 4d 50 23 26 41 33 3a  42 4e 45 71 75 69 74 31  |CMP#&A3:BNEquit1|
00000580  3a 4a 53 52 70 6c 61 79  0d 02 9e 19 2e 71 75 69  |:JSRplay.....qui|
00000590  74 20 4c 44 41 26 46 34  3a 53 54 41 26 46 45 33  |t LDA&F4:STA&FE3|
000005a0  30 0d 02 a8 23 50 4c 41  3a 54 41 59 3a 50 4c 41  |0...#PLA:TAY:PLA|
000005b0  3a 54 41 58 3a 50 4c 41  3a 50 4c 41 3a 50 4c 41  |:TAX:PLA:PLA:PLA|
000005c0  3a 52 54 53 0d 02 b2 1e  2e 71 75 69 74 31 20 50  |:RTS.....quit1 P|
000005d0  4c 41 3a 54 41 59 3a 50  4c 41 3a 54 41 58 3a 50  |LA:TAY:PLA:TAX:P|
000005e0  4c 41 0d 02 bc 0f 4a 4d  50 28 6f 6c 64 76 65 63  |LA....JMP(oldvec|
000005f0  29 0d 02 c6 20 2e 74 6f  5f 73 74 61 63 6b 20 4c  |)... .to_stack L|
00000600  44 41 72 61 6d 5f 74 79  70 65 3a 4a 53 52 70 6f  |DAram_type:JSRpo|
00000610  70 0d 02 d0 11 4c 44 41  26 37 34 3a 4a 53 52 70  |p....LDA&74:JSRp|
00000620  6f 70 0d 02 da 19 54 58  41 3a 4a 53 52 70 6f 70  |op....TXA:JSRpop|
00000630  3a 54 59 41 3a 4a 53 52  70 6f 70 0d 02 e4 0b 4a  |:TYA:JSRpop....J|
00000640  4d 50 71 75 69 74 0d 02  ee 1e 2e 73 74 61 74 73  |MPquit.....stats|
00000650  20 43 50 58 23 26 30 30  3a 42 4e 45 6e 6f 74 5f  | CPX#&00:BNEnot_|
00000660  66 72 65 71 0d 02 f8 12  53 54 59 26 37 34 3a 4a  |freq....STY&74:J|
00000670  4d 50 71 75 69 74 0d 03  02 20 2e 6e 6f 74 5f 66  |MPquit... .not_f|
00000680  72 65 71 20 43 50 58 23  26 30 31 3a 42 4e 45 6e  |req CPX#&01:BNEn|
00000690  6f 74 5f 72 61 6d 0d 03  0c 17 53 54 59 72 61 6d  |ot_ram....STYram|
000006a0  5f 74 79 70 65 3a 4a 4d  50 71 75 69 74 0d 03 16  |_type:JMPquit...|
000006b0  21 2e 6e 6f 74 5f 72 61  6d 20 43 50 58 23 26 30  |!.not_ram CPX#&0|
000006c0  32 3a 42 4e 45 6e 6f 74  5f 73 61 64 64 72 0d 03  |2:BNEnot_saddr..|
000006d0  20 1d 4c 44 41 23 26 30  30 3a 53 54 41 6e 73 74  | .LDA#&00:STAnst|
000006e0  61 3a 53 54 59 6e 73 74  61 2b 31 0d 03 2a 20 4a  |a:STYnsta+1..* J|
000006f0  53 52 63 68 65 63 6b 5f  65 6d 70 74 79 3a 4c 44  |SRcheck_empty:LD|
00000700  41 6e 73 74 61 3a 53 54  41 73 74 0d 03 34 1c 53  |Ansta:STAst..4.S|
00000710  54 41 73 74 70 3a 4c 44  41 6e 73 74 61 2b 31 3a  |TAstp:LDAnsta+1:|
00000720  53 54 41 73 74 2b 31 0d  03 3e 23 53 54 41 73 74  |STAst+1..>#STAst|
00000730  70 2b 31 3a 4c 44 41 23  26 46 46 3a 4a 53 52 70  |p+1:LDA#&FF:JSRp|
00000740  6f 70 3a 4a 4d 50 71 75  69 74 0d 03 48 22 2e 6e  |op:JMPquit..H".n|
00000750  6f 74 5f 73 61 64 64 72  20 43 50 58 23 26 30 33  |ot_saddr CPX#&03|
00000760  3a 42 4e 45 6e 6f 74 5f  73 6c 65 6e 0d 03 52 1a  |:BNEnot_slen..R.|
00000770  53 54 59 6e 73 74 61 3a  4a 53 52 63 68 65 63 6b  |STYnsta:JSRcheck|
00000780  5f 65 6d 70 74 79 0d 03  5c 1a 4c 44 41 6e 73 74  |_empty..\.LDAnst|
00000790  61 3a 53 54 41 73 74 6c  3a 4a 4d 50 71 75 69 74  |a:STAstl:JMPquit|
000007a0  0d 03 66 23 2e 6e 6f 74  5f 73 6c 65 6e 20 43 50  |..f#.not_slen CP|
000007b0  58 23 26 30 34 3a 42 4e  45 6e 6f 74 5f 73 66 6c  |X#&04:BNEnot_sfl|
000007c0  75 73 68 0d 03 70 18 4c  44 41 73 74 3a 53 54 41  |ush..p.LDAst:STA|
000007d0  73 74 70 3a 4c 44 41 73  74 2b 31 0d 03 7a 1b 53  |stp:LDAst+1..z.S|
000007e0  54 41 73 74 70 2b 31 3a  4c 44 41 23 26 46 46 3a  |TAstp+1:LDA#&FF:|
000007f0  4a 53 52 70 6f 70 0d 03  84 17 2e 6e 6f 74 5f 73  |JSRpop.....not_s|
00000800  66 6c 75 73 68 20 4a 4d  50 71 75 69 74 0d 03 8e  |flush JMPquit...|
00000810  10 2e 63 68 65 63 6b 5f  65 6d 70 74 79 0d 03 98  |..check_empty...|
00000820  25 4c 44 58 73 74 70 3a  44 45 58 3a 54 58 41 3a  |%LDXstp:DEX:TXA:|
00000830  43 4d 50 73 74 3a 42 4e  45 6e 6f 74 5f 65 6d 70  |CMPst:BNEnot_emp|
00000840  74 79 0d 03 a2 21 4c 44  41 73 74 2b 31 3a 43 4d  |ty...!LDAst+1:CM|
00000850  50 73 74 70 2b 31 3a 42  4e 45 6e 6f 74 5f 65 6d  |Pstp+1:BNEnot_em|
00000860  70 74 79 0d 03 ac 1e 52  54 53 3a 2e 6e 6f 74 5f  |pty....RTS:.not_|
00000870  65 6d 70 74 79 20 42 52  4b 3a 45 51 55 42 26 37  |empty BRK:EQUB&7|
00000880  30 0d 03 b6 1d 45 51 55  53 22 53 74 61 63 6b 20  |0....EQUS"Stack |
00000890  6e 6f 74 20 65 6d 70 74  79 22 3a 42 52 4b 0d 03  |not empty":BRK..|
000008a0  c0 20 2e 70 6f 70 20 53  54 41 6e 73 74 61 3a 54  |. .pop STAnsta:T|
000008b0  58 41 3a 50 48 41 3a 54  59 41 3a 50 48 41 0d 03  |XA:PHA:TYA:PHA..|
000008c0  ca 19 4c 44 58 73 74 70  3a 42 4e 45 6f 6b 31 3a  |..LDXstp:BNEok1:|
000008d0  4c 44 41 73 74 2b 31 0d  03 d4 18 43 4c 43 3a 41  |LDAst+1....CLC:A|
000008e0  44 43 73 74 6c 3a 53 54  41 6e 73 74 61 2b 31 0d  |DCstl:STAnsta+1.|
000008f0  03 de 1d 4c 44 41 73 74  70 2b 31 3a 43 4d 50 6e  |...LDAstp+1:CMPn|
00000900  73 74 61 2b 31 3a 42 4e  45 6f 6b 31 0d 03 e8 24  |sta+1:BNEok1...$|
00000910  42 52 4b 3a 45 51 55 42  26 37 31 3a 45 51 55 53  |BRK:EQUB&71:EQUS|
00000920  22 53 74 61 63 6b 20 66  75 6c 6c 22 3a 42 52 4b  |"Stack full":BRK|
00000930  0d 03 f2 18 2e 6f 6b 31  20 4c 44 41 6e 73 74 61  |.....ok1 LDAnsta|
00000940  3a 4c 44 59 23 26 30 30  0d 03 fc 1e 53 54 41 28  |:LDY#&00....STA(|
00000950  73 74 70 29 2c 59 3a 49  4e 43 73 74 70 3a 42 4e  |stp),Y:INCstp:BN|
00000960  45 73 6b 69 70 31 0d 04  06 1b 49 4e 43 73 74 70  |Eskip1....INCstp|
00000970  2b 31 3a 2e 73 6b 69 70  31 20 50 4c 41 3a 54 41  |+1:.skip1 PLA:TA|
00000980  59 0d 04 10 0f 50 4c 41  3a 54 41 58 3a 52 54 53  |Y....PLA:TAX:RTS|
00000990  0d 04 1a 1c 2e 70 75 6c  6c 20 4c 44 41 73 74 70  |.....pull LDAstp|
000009a0  3a 43 4d 50 73 74 3a 42  4e 45 6f 6b 0d 04 24 1a  |:CMPst:BNEok..$.|
000009b0  4c 44 41 73 74 70 2b 31  3a 43 4d 50 73 74 2b 31  |LDAstp+1:CMPst+1|
000009c0  3a 42 4e 45 6f 6b 0d 04  2e 25 42 52 4b 3a 45 51  |:BNEok...%BRK:EQ|
000009d0  55 42 26 37 32 3a 45 51  55 53 22 53 74 61 63 6b  |UB&72:EQUS"Stack|
000009e0  20 75 6e 64 65 72 66 6c  6f 77 22 0d 04 38 21 42  | underflow"..8!B|
000009f0  52 4b 3a 2e 6f 6b 20 44  45 43 73 74 70 3a 4c 44  |RK:.ok DECstp:LD|
00000a00  41 73 74 70 3a 43 4d 50  23 26 46 46 0d 04 42 1c  |Astp:CMP#&FF..B.|
00000a10  42 4e 45 73 6b 69 70 32  3a 44 45 43 73 74 70 2b  |BNEskip2:DECstp+|
00000a20  31 3a 2e 73 6b 69 70 32  0d 04 4c 1a 4c 44 59 23  |1:.skip2..L.LDY#|
00000a30  26 30 30 3a 4c 44 41 28  73 74 70 29 2c 59 3a 52  |&00:LDA(stp),Y:R|
00000a40  54 53 0d 04 56 11 2e 72  61 6d 5f 74 79 70 65 20  |TS..V..ram_type |
00000a50  42 52 4b 0d 04 60 1d 2e  70 6c 61 79 20 53 54 58  |BRK..`..play STX|
00000a60  63 6f 75 6e 74 3a 53 54  59 63 6f 75 6e 74 2b 31  |count:STYcount+1|
00000a70  0d 04 6a 24 2e 70 5f 6c  6f 6f 70 31 20 4a 53 52  |..j$.p_loop1 JSR|
00000a80  70 75 6c 6c 3a 43 4d 50  23 26 46 46 3a 42 4e 45  |pull:CMP#&FF:BNE|
00000a90  70 5f 6f 6b 0d 04 74 1b  4a 53 52 70 6f 70 3a 52  |p_ok..t.JSRpop:R|
00000aa0  54 53 3a 2e 70 5f 6f 6b  20 53 54 41 26 37 36 0d  |TS:.p_ok STA&76.|
00000ab0  04 7e 1a 4a 53 52 70 75  6c 6c 3a 53 54 41 26 37  |.~.JSRpull:STA&7|
00000ac0  35 3a 4a 53 52 70 75 6c  6c 0d 04 88 12 53 54 41  |5:JSRpull....STA|
00000ad0  26 37 34 3a 4a 53 52 70  75 6c 6c 0d 04 92 17 43  |&74:JSRpull....C|
00000ae0  4d 50 23 26 31 30 3a 42  43 53 6e 6f 74 5f 73 72  |MP#&10:BCSnot_sr|
00000af0  61 6d 0d 04 9c 1e 53 54  41 26 46 45 33 30 3a 2e  |am....STA&FE30:.|
00000b00  6e 6f 74 5f 73 72 61 6d  20 43 4d 50 23 26 38 30  |not_sram CMP#&80|
00000b10  0d 04 a6 1b 42 4e 45 6e  6f 74 5f 74 75 62 65 3a  |....BNEnot_tube:|
00000b20  4a 53 52 61 6c 74 5f 74  75 62 65 0d 04 b0 21 4a  |JSRalt_tube...!J|
00000b30  4d 50 74 75 62 65 3a 2e  6e 6f 74 5f 74 75 62 65  |MPtube:.not_tube|
00000b40  20 4a 53 52 61 6c 74 5f  6e 6f 72 6d 0d 04 ba 22  | JSRalt_norm..."|
00000b50  2e 74 75 62 65 20 4a 53  52 73 6d 70 3a 44 45 43  |.tube JSRsmp:DEC|
00000b60  63 6f 75 6e 74 3a 4c 44  41 63 6f 75 6e 74 0d 04  |count:LDAcount..|
00000b70  c4 21 43 4d 50 23 26 46  46 3a 42 4e 45 70 5f 6c  |.!CMP#&FF:BNEp_l|
00000b80  6f 6f 70 31 3a 44 45 43  63 6f 75 6e 74 2b 31 0d  |oop1:DECcount+1.|
00000b90  04 ce 16 4c 44 41 63 6f  75 6e 74 2b 31 3a 43 4d  |...LDAcount+1:CM|
00000ba0  50 23 26 46 46 0d 04 d8  12 42 4e 45 70 5f 6c 6f  |P#&FF....BNEp_lo|
00000bb0  6f 70 31 3a 52 54 53 0d  04 e2 12 2e 63 6f 75 6e  |op1:RTS.....coun|
00000bc0  74 20 45 51 55 57 26 30  30 0d 04 ec 1e 2e 61 6c  |t EQUW&00.....al|
00000bd0  74 5f 74 75 62 65 20 4c  44 41 23 26 41 44 3a 53  |t_tube LDA#&AD:S|
00000be0  54 41 6c 6f 6f 70 32 0d  04 f6 16 4c 44 41 23 26  |TAloop2....LDA#&|
00000bf0  45 35 3a 53 54 41 6c 6f  6f 70 32 2b 31 0d 05 00  |E5:STAloop2+1...|
00000c00  16 4c 44 41 23 26 46 45  3a 53 54 41 6c 6f 6f 70  |.LDA#&FE:STAloop|
00000c10  32 2b 32 0d 05 0a 17 2e  63 6c 61 69 6d 5f 6c 6f  |2+2.....claim_lo|
00000c20  6f 70 20 4c 44 41 23 26  43 38 0d 05 14 19 4a 53  |op LDA#&C8....JS|
00000c30  52 26 34 30 36 3a 42 43  43 63 6c 61 69 6d 5f 6c  |R&406:BCCclaim_l|
00000c40  6f 6f 70 0d 05 1e 24 4c  44 41 23 26 30 30 3a 53  |oop...$LDA#&00:S|
00000c50  54 41 74 5f 70 62 3a 4c  44 41 26 37 35 3a 53 54  |TAt_pb:LDA&75:ST|
00000c60  41 74 5f 70 62 2b 31 0d  05 28 1a 4c 44 41 23 26  |At_pb+1..(.LDA#&|
00000c70  30 30 3a 4c 44 58 23 74  5f 70 62 20 83 26 31 30  |00:LDX#t_pb .&10|
00000c80  30 0d 05 32 1a 4c 44 59  23 74 5f 70 62 20 81 26  |0..2.LDY#t_pb .&|
00000c90  31 30 30 3a 4a 4d 50 26  34 30 36 0d 05 3c 1e 2e  |100:JMP&406..<..|
00000ca0  61 6c 74 5f 6e 6f 72 6d  20 4c 44 41 23 26 42 31  |alt_norm LDA#&B1|
00000cb0  3a 53 54 41 6c 6f 6f 70  32 0d 05 46 16 4c 44 41  |:STAloop2..F.LDA|
00000cc0  23 26 37 30 3a 53 54 41  6c 6f 6f 70 32 2b 31 0d  |#&70:STAloop2+1.|
00000cd0  05 50 1a 4c 44 41 23 26  45 41 3a 53 54 41 6c 6f  |.P.LDA#&EA:STAlo|
00000ce0  6f 70 32 2b 32 3a 52 54  53 0d 05 5a 11 2e 74 5f  |op2+2:RTS..Z..t_|
00000cf0  70 62 20 45 51 55 44 26  30 30 0d 05 64 09 2e 74  |pb EQUD&00..d..t|
00000d00  61 62 31 0d 05 6e 07 5d  3a ed 0d 05 78 1e de 43  |ab1..n.]:...x..C|
00000d10  25 28 32 29 3a 43 25 28  30 29 3d 26 39 30 3a 43  |%(2):C%(0)=&90:C|
00000d20  25 28 31 29 3d 26 42 30  0d 05 82 17 43 25 28 32  |%(1)=&B0....C%(2|
00000d30  29 3d 26 44 30 3a e3 4c  25 3d 30 b8 26 32 44 0d  |)=&D0:.L%=0.&2D.|
00000d40  05 8c 12 3f 28 50 25 2b  4c 25 29 3d 43 25 28 30  |...?(P%+L%)=C%(0|
00000d50  29 0d 05 96 16 3f 28 50  25 2b 26 32 45 2b 4c 25  |)....?(P%+&2E+L%|
00000d60  29 3d 43 25 28 31 29 0d  05 a0 16 3f 28 50 25 2b  |)=C%(1)....?(P%+|
00000d70  26 35 43 2b 4c 25 29 3d  43 25 28 32 29 0d 05 aa  |&5C+L%)=C%(2)...|
00000d80  17 43 25 28 4c 25 83 33  29 3d 43 25 28 4c 25 83  |.C%(L%.3)=C%(L%.|
00000d90  33 29 2b 31 0d 05 b4 0f  ed 3a 50 25 3d 50 25 2b  |3)+1.....:P%=P%+|
00000da0  26 38 41 0d 05 be 17 50  25 3d 26 43 46 46 3a e3  |&8A....P%=&CFF:.|
00000db0  4c 25 3d 34 35 b8 30 88  2d 31 0d 05 c8 17 f3 4e  |L%=45.0.-1.....N|
00000dc0  25 3a e3 4b 25 3d 31 b8  4e 25 3a 3f 50 25 3d 4c  |%:.K%=1.N%:?P%=L|
00000dd0  25 0d 05 d2 17 50 25 3d  50 25 2d 31 3a ed 3a ed  |%....P%=P%-1:.:.|
00000de0  3a 50 25 3d 26 44 30 30  0d 05 dc 1f 2a 53 41 56  |:P%=&D00....*SAV|
00000df0  45 20 58 50 38 20 46 46  46 46 30 38 43 30 20 46  |E XP8 FFFF08C0 F|
00000e00  46 46 46 30 44 30 30 0d  05 e6 1e dc 31 2c 32 2c  |FFF0D00.....1,2,|
00000e10  32 2c 32 2c 32 2c 32 2c  32 2c 32 2c 32 2c 32 2c  |2,2,2,2,2,2,2,2,|
00000e20  32 2c 32 2c 32 0d 05 f0  1c dc 33 2c 33 2c 33 2c  |2,2,2.....3,3,3,|
00000e30  33 2c 33 2c 33 2c 33 2c  33 2c 33 2c 34 2c 34 2c  |3,3,3,3,3,3,4,4,|
00000e40  34 0d 05 fa 1c dc 34 2c  34 2c 34 2c 35 2c 35 2c  |4.....4,4,4,5,5,|
00000e50  35 2c 36 2c 36 2c 36 2c  37 2c 37 2c 37 0d 06 04  |5,6,6,6,7,7,7...|
00000e60  1c dc 39 2c 39 2c 39 2c  31 32 2c 31 32 2c 31 32  |..9,9,9,12,12,12|
00000e70  2c 32 31 2c 32 31 2c 32  31 0d ff                 |,21,21,21..|
00000e7b