/ Loadstar 128 #31 / q31.d81 / 128_rle.s

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 00 00 0d 4f 50 45 | 4e 20 3d 24 46 46 43 30 |.....OPE|N =$FFC0|
|00000010| 0d 52 45 41 44 53 54 20 | 3d 24 46 46 42 37 0d 53 |.READST |=$FFB7.S|
|00000020| 45 54 4c 46 53 20 3d 24 | 46 46 42 41 0d 53 45 54 |ETLFS =$|FFBA.SET|
|00000030| 4e 41 4d 20 3d 24 46 46 | 42 44 0d 4c 4f 41 44 20 |NAM =$FF|BD.LOAD |
|00000040| 3d 24 46 46 44 35 0d 47 | 45 54 49 4e 20 3d 24 46 |=$FFD5.G|ETIN =$F|
|00000050| 46 45 34 0d 43 4c 52 43 | 48 4e 20 3d 24 46 46 43 |FE4.CLRC|HN =$FFC|
|00000060| 43 0d 43 4c 4f 53 45 20 | 3d 24 46 46 43 33 20 20 |C.CLOSE |=$FFC3  |
|00000070| 20 3b 41 0d 43 48 4b 4f | 55 54 20 3d 24 46 46 43 | ;A.CHKO|UT =$FFC|
|00000080| 39 20 20 3b 58 0d 43 48 | 4b 49 4e 20 3d 24 46 46 |9  ;X.CH|KIN =$FF|
|00000090| 43 36 20 20 20 3b 58 0d | 43 48 52 4f 55 54 20 3d |C6   ;X.|CHROUT =|
|000000a0| 24 46 46 44 32 0d 43 48 | 4b 43 4f 4d 20 3d 24 37 |$FFD2.CH|KCOM =$7|
|000000b0| 39 35 43 0d 42 41 4e 4b | 27 31 35 20 3d 24 41 38 |95C.BANK|'15 =$A8|
|000000c0| 34 35 0d 0d 53 27 42 41 | 4e 4b 20 3d 24 42 30 0d |45..S'BA|NK =$B0.|
|000000d0| 4f 27 42 41 4e 4b 20 3d | 24 42 31 0d 42 55 46 46 |O'BANK =|$B1.BUFF|
|000000e0| 45 52 20 3d 32 35 31 0d | 4f 55 54 50 55 54 27 42 |ER =251.|OUTPUT'B|
|000000f0| 55 46 46 45 52 20 3d 32 | 35 33 0d 53 54 41 52 54 |UFFER =2|53.START|
|00000100| 27 4f 46 27 4c 49 54 45 | 52 41 4c 20 3d 24 31 36 |'OF'LITE|RAL =$16|
|00000110| 0d 0d 2e 4f 52 47 20 24 | 30 43 30 30 0d 0d 2e 4f |...ORG $|0C00...O|
|00000120| 42 4a 20 22 40 30 3a 31 | 32 38 2f 52 4c 45 20 30 |BJ "@0:1|28/RLE 0|
|00000130| 43 30 30 22 0d 0d 4a 4d | 50 20 52 4c 45 4c 4f 41 |C00"..JM|P RLELOA|
|00000140| 44 20 20 20 20 20 20 20 | 3b 53 59 53 41 44 52 2c |D       |;SYSADR,|
|00000150| 46 49 4c 45 24 2c 44 45 | 56 2c 4c 4f 43 41 54 49 |FILE$,DE|V,LOCATI|
|00000160| 4f 4e 20 28 30 20 54 4f | 20 52 45 53 50 45 43 54 |ON (0 TO| RESPECT|
|00000170| 20 4c 4f 41 44 20 41 44 | 44 52 45 53 53 29 0d 4a | LOAD AD|DRESS).J|
|00000180| 4d 50 20 45 4e 43 4f 44 | 45 20 20 20 20 20 20 20 |MP ENCOD|E       |
|00000190| 20 3b 53 59 53 41 44 52 | 2c 46 49 4c 45 24 2c 44 | ;SYSADR|,FILE$,D|
|000001a0| 45 56 2c 42 55 46 46 45 | 52 2c 4f 55 54 24 2c 44 |EV,BUFFE|R,OUT$,D|
|000001b0| 45 56 2c 4c 4f 41 44 20 | 41 44 44 52 45 53 53 0d |EV,LOAD |ADDRESS.|
|000001c0| 4a 4d 50 20 50 41 43 4b | 27 4d 45 4d 20 20 20 20 |JMP PACK|'MEM    |
|000001d0| 20 20 3b 53 59 53 41 44 | 2c 42 45 47 49 4e 2c 45 |  ;SYSAD|,BEGIN,E|
|000001e0| 4e 44 2c 44 45 53 54 0d | 4a 4d 50 20 55 4e 50 41 |ND,DEST.|JMP UNPA|
|000001f0| 43 4b 27 4d 45 4d 20 20 | 20 20 3b 53 59 53 41 44 |CK'MEM  |  ;SYSAD|
|00000200| 52 2c 4c 4f 43 41 54 49 | 4f 4e 2c 44 45 53 54 0d |R,LOCATI|ON,DEST.|
|00000210| 4a 4d 50 20 52 41 4e 47 | 45 27 50 41 43 4b 20 20 |JMP RANG|E'PACK  |
|00000220| 20 20 3b 31 37 36 20 53 | 4f 55 52 43 45 20 42 41 |  ;176 S|OURCE BA|
|00000230| 4e 4b 2c 32 35 31 20 53 | 4f 55 52 43 45 2c 31 37 |NK,251 S|OURCE,17|
|00000240| 34 20 45 4e 44 2c 31 37 | 37 20 44 45 53 54 20 42 |4 END,17|7 DEST B|
|00000250| 41 4e 4b 2c 32 35 33 20 | 44 45 53 54 0d 4a 4d 50 |ANK,253 |DEST.JMP|
|00000260| 20 52 41 4e 47 45 27 44 | 45 43 4f 44 45 20 20 3b | RANGE'D|ECODE  ;|
|00000270| 31 37 36 20 53 4f 55 52 | 43 45 20 42 41 4e 4b 2c |176 SOUR|CE BANK,|
|00000280| 32 35 31 20 53 4f 55 52 | 43 45 2c 31 37 37 20 44 |251 SOUR|CE,177 D|
|00000290| 45 53 54 20 42 41 4e 4b | 2c 31 37 34 20 44 45 53 |EST BANK|,174 DES|
|000002a0| 54 0d 0d 57 4f 52 4b 27 | 42 55 46 20 2e 42 59 54 |T..WORK'|BUF .BYT|
|000002b0| 45 20 24 34 30 0d 0d 0d | 3b 20 2a 2a 2a 20 4c 4f |E $40...|; *** LO|
|000002c0| 41 44 20 26 20 55 4e 50 | 41 43 4b 20 41 20 46 49 |AD & UNP|ACK A FI|
|000002d0| 4c 45 0d 52 4c 45 4c 4f | 41 44 20 4c 44 41 20 23 |LE.RLELO|AD LDA #|
|000002e0| 30 0d 53 54 41 20 4d 4f | 44 45 0d 4a 53 52 20 4f |0.STA MO|DE.JSR O|
|000002f0| 50 45 4e 27 44 52 49 56 | 45 0d 4c 44 41 20 23 32 |PEN'DRIV|E.LDA #2|
|00000300| 0d 4c 44 59 20 23 32 0d | 4a 53 52 20 42 41 4e 4b |.LDY #2.|JSR BANK|
|00000310| 27 31 35 0d 4a 53 52 20 | 53 45 54 4c 46 53 0d 4a |'15.JSR |SETLFS.J|
|00000320| 53 52 20 4f 50 45 4e 0d | 4a 53 52 20 43 4c 52 43 |SR OPEN.|JSR CLRC|
|00000330| 48 4e 0d 4c 44 58 20 23 | 32 0d 4a 53 52 20 43 48 |HN.LDX #|2.JSR CH|
|00000340| 4b 49 4e 0d 4a 53 52 20 | 47 45 54 27 42 0d 53 54 |KIN.JSR |GET'B.ST|
|00000350| 59 20 4f 27 42 41 4e 4b | 0d 4a 53 52 20 47 45 54 |Y O'BANK|.JSR GET|
|00000360| 27 50 0d 4a 53 52 20 42 | 41 4e 4b 27 31 35 0d 47 |'P.JSR B|ANK'15.G|
|00000370| 45 54 27 4c 4f 41 44 27 | 41 44 44 52 45 53 53 20 |ET'LOAD'|ADDRESS |
|00000380| 4a 53 52 20 47 45 54 49 | 4e 0d 53 54 41 20 31 37 |JSR GETI|N.STA 17|
|00000390| 34 0d 4a 53 52 20 47 45 | 54 49 4e 0d 53 54 41 20 |4.JSR GE|TIN.STA |
|000003a0| 31 37 35 0d 4c 44 41 20 | 24 31 37 0d 42 45 51 20 |175.LDA |$17.BEQ |
|000003b0| 44 45 43 4f 44 45 0d 53 | 54 41 20 31 37 35 0d 4c |DECODE.S|TA 175.L|
|000003c0| 44 41 20 24 31 36 0d 53 | 54 41 20 31 37 34 0d 44 |DA $16.S|TA 174.D|
|000003d0| 45 43 4f 44 45 20 4c 44 | 59 20 23 30 0d 4a 53 52 |ECODE LD|Y #0.JSR|
|000003e0| 20 47 45 54 49 4e 0d 42 | 45 51 20 44 4f 4e 45 27 | GETIN.B|EQ DONE'|
|000003f0| 44 45 43 4f 44 49 4e 47 | 0d 53 54 41 20 32 35 31 |DECODING|.STA 251|
|00000400| 0d 43 4d 50 20 23 31 32 | 39 0d 42 43 53 20 44 49 |.CMP #12|9.BCS DI|
|00000410| 53 50 41 54 43 48 27 4c | 49 54 45 52 41 4c 0d 0d |SPATCH'L|ITERAL..|
|00000420| 44 49 53 50 41 54 43 48 | 27 50 41 43 4b 45 44 20 |DISPATCH|'PACKED |
|00000430| 43 4d 50 20 23 31 32 38 | 0d 42 4e 45 20 2b 0d 44 |CMP #128|.BNE +.D|
|00000440| 45 43 20 32 35 31 0d 2b | 20 4a 53 52 20 47 45 54 |EC 251.+| JSR GET|
|00000450| 49 4e 0d 2d 20 4a 53 52 | 20 53 54 4f 52 45 27 31 |IN.- JSR| STORE'1|
|00000460| 37 34 0d 49 4e 43 20 31 | 37 34 0d 42 4e 45 20 2b |74.INC 1|74.BNE +|
|00000470| 0d 49 4e 43 20 31 37 35 | 0d 2b 20 44 45 43 20 32 |.INC 175|.+ DEC 2|
|00000480| 35 31 0d 42 4e 45 20 2d | 0d 4a 53 52 20 52 45 41 |51.BNE -|.JSR REA|
|00000490| 44 53 54 0d 41 4e 44 20 | 23 36 36 0d 42 4e 45 20 |DST.AND |#66.BNE |
|000004a0| 44 4f 4e 45 27 44 45 43 | 4f 44 49 4e 47 0d 4a 4d |DONE'DEC|ODING.JM|
|000004b0| 50 20 44 45 43 4f 44 45 | 0d 0d 44 49 53 50 41 54 |P DECODE|..DISPAT|
|000004c0| 43 48 27 4c 49 54 45 52 | 41 4c 20 41 4e 44 20 23 |CH'LITER|AL AND #|
|000004d0| 31 32 37 0d 53 54 41 20 | 32 35 31 0d 2d 20 4a 53 |127.STA |251.- JS|
|000004e0| 52 20 47 45 54 49 4e 0d | 4a 53 52 20 53 54 4f 52 |R GETIN.|JSR STOR|
|000004f0| 45 27 31 37 34 0d 49 4e | 43 20 31 37 34 0d 42 4e |E'174.IN|C 174.BN|
|00000500| 45 20 2b 0d 49 4e 43 20 | 31 37 35 0d 2b 20 44 45 |E +.INC |175.+ DE|
|00000510| 43 20 32 35 31 0d 42 4e | 45 20 2d 0d 4a 53 52 20 |C 251.BN|E -.JSR |
|00000520| 52 45 41 44 53 54 0d 41 | 4e 44 20 23 36 36 0d 42 |READST.A|ND #66.B|
|00000530| 4e 45 20 44 4f 4e 45 27 | 44 45 43 4f 44 49 4e 47 |NE DONE'|DECODING|
|00000540| 0d 4a 4d 50 20 44 45 43 | 4f 44 45 0d 0d 44 4f 4e |.JMP DEC|ODE..DON|
|00000550| 45 27 44 45 43 4f 44 49 | 4e 47 20 4a 53 52 20 43 |E'DECODI|NG JSR C|
|00000560| 4c 52 43 48 4e 0d 4c 44 | 41 20 23 32 0d 4a 4d 50 |LRCHN.LD|A #2.JMP|
|00000570| 20 43 4c 4f 53 45 0d 0d | 0d 3b 20 2a 2a 2a 20 55 | CLOSE..|.; *** U|
|00000580| 4e 50 41 43 4b 20 53 50 | 45 43 49 46 49 45 44 20 |NPACK SP|ECIFIED |
|00000590| 4d 45 4d 4f 52 59 0d 55 | 4e 50 41 43 4b 27 4d 45 |MEMORY.U|NPACK'ME|
|000005a0| 4d 20 4a 53 52 20 43 48 | 4b 27 43 4f 4c 4f 4e 0d |M JSR CH|K'COLON.|
|000005b0| 4a 53 52 20 47 45 54 27 | 42 2b 33 0d 53 54 59 20 |JSR GET'|B+3.STY |
|000005c0| 53 27 42 41 4e 4b 0d 4a | 53 52 20 47 45 54 27 50 |S'BANK.J|SR GET'P|
|000005d0| 0d 53 54 59 20 32 35 31 | 0d 53 54 41 20 32 35 32 |.STY 251|.STA 252|
|000005e0| 0d 4a 53 52 20 47 45 54 | 27 42 0d 53 54 59 20 4f |.JSR GET|'B.STY O|
|000005f0| 27 42 41 4e 4b 0d 4a 53 | 52 20 47 45 54 27 50 0d |'BANK.JS|R GET'P.|
|00000600| 53 54 59 20 31 37 34 0d | 53 54 41 20 31 37 35 0d |STY 174.|STA 175.|
|00000610| 20 0d 52 41 4e 47 45 27 | 44 45 43 4f 44 45 20 4c | .RANGE'|DECODE L|
|00000620| 44 59 20 23 30 0d 4a 53 | 52 20 46 45 54 43 48 27 |DY #0.JS|R FETCH'|
|00000630| 42 55 46 0d 50 48 41 0d | 49 4e 43 20 32 35 31 0d |BUF.PHA.|INC 251.|
|00000640| 42 4e 45 20 2b 0d 49 4e | 43 20 32 35 32 0d 2b 20 |BNE +.IN|C 252.+ |
|00000650| 50 4c 41 0d 42 45 51 20 | 52 44 4f 4e 45 27 44 45 |PLA.BEQ |RDONE'DE|
|00000660| 43 4f 44 49 4e 47 0d 53 | 54 41 20 32 35 33 0d 43 |CODING.S|TA 253.C|
|00000670| 4d 50 20 23 31 32 39 0d | 42 43 53 20 52 44 49 53 |MP #129.|BCS RDIS|
|00000680| 50 41 54 43 48 27 4c 49 | 54 45 52 41 4c 0d 0d 52 |PATCH'LI|TERAL..R|
|00000690| 44 49 53 50 41 54 43 48 | 27 50 41 43 4b 45 44 20 |DISPATCH|'PACKED |
|000006a0| 43 4d 50 20 23 31 32 38 | 0d 42 4e 45 20 2b 0d 44 |CMP #128|.BNE +.D|
|000006b0| 45 43 20 32 35 33 0d 2b | 20 4a 53 52 20 46 45 54 |EC 253.+| JSR FET|
|000006c0| 43 48 27 42 55 46 0d 0d | 49 4e 43 20 32 35 31 0d |CH'BUF..|INC 251.|
|000006d0| 42 4e 45 20 2b 0d 49 4e | 43 20 32 35 32 0d 0d 2f |BNE +.IN|C 252../|
|000006e0| 20 4a 53 52 20 53 54 4f | 52 45 27 31 37 34 0d 49 | JSR STO|RE'174.I|
|000006f0| 4e 43 20 31 37 34 0d 42 | 4e 45 20 2b 0d 49 4e 43 |NC 174.B|NE +.INC|
|00000700| 20 31 37 35 0d 2b 20 44 | 45 43 20 32 35 33 0d 42 | 175.+ D|EC 253.B|
|00000710| 4e 45 20 2d 0d 4a 4d 50 | 20 52 41 4e 47 45 27 44 |NE -.JMP| RANGE'D|
|00000720| 45 43 4f 44 45 0d 0d 52 | 44 49 53 50 41 54 43 48 |ECODE..R|DISPATCH|
|00000730| 27 4c 49 54 45 52 41 4c | 20 41 4e 44 20 23 31 32 |'LITERAL| AND #12|
|00000740| 37 0d 53 54 41 20 32 35 | 33 0d 0d 2d 20 4a 53 52 |7.STA 25|3..- JSR|
|00000750| 20 46 45 54 43 48 27 42 | 55 46 0d 0d 49 4e 43 20 | FETCH'B|UF..INC |
|00000760| 32 35 31 0d 42 4e 45 20 | 2b 0d 49 4e 43 20 32 35 |251.BNE |+.INC 25|
|00000770| 32 0d 0d 2b 20 4a 53 52 | 20 53 54 4f 52 45 27 31 |2..+ JSR| STORE'1|
|00000780| 37 34 0d 49 4e 43 20 31 | 37 34 0d 42 4e 45 20 2b |74.INC 1|74.BNE +|
|00000790| 0d 49 4e 43 20 31 37 35 | 0d 2b 20 44 45 43 20 32 |.INC 175|.+ DEC 2|
|000007a0| 35 33 0d 42 4e 45 20 2d | 0d 4a 4d 50 20 52 41 4e |53.BNE -|.JMP RAN|
|000007b0| 47 45 27 44 45 43 4f 44 | 45 0d 0d 52 44 4f 4e 45 |GE'DECOD|E..RDONE|
|000007c0| 27 44 45 43 4f 44 49 4e | 47 20 52 54 53 0d 0d 3b |'DECODIN|G RTS..;|
|000007d0| 20 2a 2a 2a 2a 2a 20 45 | 4e 43 4f 44 45 20 41 20 | ***** E|NCODE A |
|000007e0| 46 49 4c 45 20 2a 2a 2a | 0d 45 4e 43 4f 44 45 20 |FILE ***|.ENCODE |
|000007f0| 4c 44 41 20 23 30 0d 53 | 54 41 20 4d 4f 44 45 0d |LDA #0.S|TA MODE.|
|00000800| 4a 53 52 20 43 48 4b 27 | 43 4f 4c 4f 4e 0d 4a 53 |JSR CHK'|COLON.JS|
|00000810| 52 20 24 41 32 31 38 0d | 43 50 58 20 23 30 0d 42 |R $A218.|CPX #0.B|
|00000820| 4e 45 20 2b 0d 44 45 59 | 0d 2b 20 44 45 58 0d 53 |NE +.DEY|.+ DEX.S|
|00000830| 54 58 20 45 4f 46 0d 53 | 54 59 20 45 4f 46 2b 31 |TX EOF.S|TY EOF+1|
|00000840| 0d 4c 44 41 20 24 41 43 | 0d 53 54 41 20 42 55 46 |.LDA $AC|.STA BUF|
|00000850| 46 45 52 0d 4c 44 41 20 | 24 41 44 0d 53 54 41 20 |FER.LDA |$AD.STA |
|00000860| 42 55 46 46 45 52 2b 31 | 0d 4c 44 41 20 24 43 36 |BUFFER+1|.LDA $C6|
|00000870| 0d 53 54 41 20 53 27 42 | 41 4e 4b 0d 4c 44 41 20 |.STA S'B|ANK.LDA |
|00000880| 23 31 0d 53 54 41 20 4f | 27 42 41 4e 4b 0d 0d 0d |#1.STA O|'BANK...|
|00000890| 45 4e 43 4f 44 45 27 53 | 45 54 55 50 20 4c 44 41 |ENCODE'S|ETUP LDA|
|000008a0| 20 23 30 0d 0d 53 54 41 | 20 45 27 56 41 52 49 41 | #0..STA| E'VARIA|
|000008b0| 42 4c 45 0d 53 54 41 20 | 44 27 56 41 52 49 41 42 |BLE.STA |D'VARIAB|
|000008c0| 4c 45 0d 0d 4c 44 41 20 | 23 24 30 30 0d 53 54 41 |LE..LDA |#$00.STA|
|000008d0| 20 4f 55 54 50 55 54 27 | 42 55 46 46 45 52 0d 4c | OUTPUT'|BUFFER.L|
|000008e0| 44 41 20 57 4f 52 4b 27 | 42 55 46 0d 53 54 41 20 |DA WORK'|BUF.STA |
|000008f0| 4f 55 54 50 55 54 27 42 | 55 46 46 45 52 2b 31 0d |OUTPUT'B|UFFER+1.|
|00000900| 0d 0d 45 4e 43 4f 44 45 | 27 4c 4f 4f 50 20 4c 44 |..ENCODE|'LOOP LD|
|00000910| 59 20 23 30 0d 4a 53 52 | 20 46 45 54 43 48 27 42 |Y #0.JSR| FETCH'B|
|00000920| 55 46 0d 53 54 41 20 4e | 27 56 41 52 49 41 42 4c |UF.STA N|'VARIABL|
|00000930| 45 0d 49 4e 59 0d 4a 53 | 52 20 46 45 54 43 48 27 |E.INY.JS|R FETCH'|
|00000940| 42 55 46 0d 53 54 41 20 | 51 27 56 41 52 49 41 42 |BUF.STA |Q'VARIAB|
|00000950| 4c 45 0d 44 45 59 0d 0d | 43 4d 50 20 4e 27 56 41 |LE.DEY..|CMP N'VA|
|00000960| 52 49 41 42 4c 45 0d 42 | 4e 45 20 2b 0d 4a 53 52 |RIABLE.B|NE +.JSR|
|00000970| 20 54 48 45 27 53 41 4d | 45 0d 4a 4d 50 20 4e 45 | THE'SAM|E.JMP NE|
|00000980| 58 54 0d 2b 20 4a 53 52 | 20 4e 4f 54 27 53 41 4d |XT.+ JSR| NOT'SAM|
|00000990| 45 0d 0d 4e 45 58 54 20 | 49 4e 43 20 42 55 46 46 |E..NEXT |INC BUFF|
|000009a0| 45 52 0d 42 4e 45 20 2b | 0d 49 4e 43 20 42 55 46 |ER.BNE +|.INC BUF|
|000009b0| 46 45 52 2b 31 0d 0d 2b | 20 4c 44 41 20 42 55 46 |FER+1..+| LDA BUF|
|000009c0| 46 45 52 2b 31 0d 43 4d | 50 20 45 4f 46 2b 31 0d |FER+1.CM|P EOF+1.|
|000009d0| 42 43 43 20 45 4e 43 4f | 44 45 27 4c 4f 4f 50 0d |BCC ENCO|DE'LOOP.|
|000009e0| 4c 44 41 20 42 55 46 46 | 45 52 0d 43 4d 50 20 45 |LDA BUFF|ER.CMP E|
|000009f0| 4f 46 0d 42 43 43 20 45 | 4e 43 4f 44 45 27 4c 4f |OF.BCC E|NCODE'LO|
|00000a00| 4f 50 0d 0d 4c 44 41 20 | 44 27 56 41 52 49 41 42 |OP..LDA |D'VARIAB|
|00000a10| 4c 45 0d 42 45 51 20 2b | 0d 4a 53 52 20 57 52 41 |LE.BEQ +|.JSR WRA|
|00000a20| 50 27 55 50 27 44 0d 4a | 4d 50 20 57 52 41 50 27 |P'UP'D.J|MP WRAP'|
|00000a30| 55 50 0d 2b 20 4c 44 41 | 20 45 27 56 41 52 49 41 |UP.+ LDA| E'VARIA|
|00000a40| 42 4c 45 0d 42 45 51 20 | 57 52 41 50 27 55 50 0d |BLE.BEQ |WRAP'UP.|
|00000a50| 4a 53 52 20 57 52 41 50 | 27 55 50 27 45 0d 0d 57 |JSR WRAP|'UP'E..W|
|00000a60| 52 41 50 27 55 50 20 4c | 44 41 20 23 30 0d 54 41 |RAP'UP L|DA #0.TA|
|00000a70| 59 0d 4a 53 52 20 53 54 | 4f 52 45 27 4f 55 54 0d |Y.JSR ST|ORE'OUT.|
|00000a80| 4a 4d 50 20 57 52 49 54 | 45 27 4f 55 54 50 55 54 |JMP WRIT|E'OUTPUT|
|00000a90| 0d 0d 54 48 45 27 53 41 | 4d 45 20 4c 44 41 20 45 |..THE'SA|ME LDA E|
|00000aa0| 27 56 41 52 49 41 42 4c | 45 0d 42 45 51 20 2b 0d |'VARIABL|E.BEQ +.|
|00000ab0| 4a 53 52 20 57 52 41 50 | 27 55 50 27 45 0d 2b 20 |JSR WRAP|'UP'E.+ |
|00000ac0| 49 4e 43 20 44 27 56 41 | 52 49 41 42 4c 45 0d 4c |INC D'VA|RIABLE.L|
|00000ad0| 44 41 20 44 27 56 41 52 | 49 41 42 4c 45 0d 43 4d |DA D'VAR|IABLE.CM|
|00000ae0| 50 20 23 31 32 37 0d 42 | 4e 45 20 2b 0d 4a 4d 50 |P #127.B|NE +.JMP|
|00000af0| 20 57 52 49 54 45 27 52 | 4c 45 0d 2b 20 52 54 53 | WRITE'R|LE.+ RTS|
|00000b00| 0d 0d 57 52 49 54 45 27 | 52 4c 45 20 4c 44 59 20 |..WRITE'|RLE LDY |
|00000b10| 23 30 0d 49 4e 43 20 44 | 27 56 41 52 49 41 42 4c |#0.INC D|'VARIABL|
|00000b20| 45 0d 4c 44 41 20 44 27 | 56 41 52 49 41 42 4c 45 |E.LDA D'|VARIABLE|
|00000b30| 0d 4a 53 52 20 53 54 4f | 52 45 27 4f 55 54 0d 4a |.JSR STO|RE'OUT.J|
|00000b40| 53 52 20 42 55 4d 50 27 | 4f 55 54 50 55 54 27 42 |SR BUMP'|OUTPUT'B|
|00000b50| 55 46 46 45 52 0d 4c 44 | 41 20 4e 27 56 41 52 49 |UFFER.LD|A N'VARI|
|00000b60| 41 42 4c 45 0d 4a 53 52 | 20 53 54 4f 52 45 27 4f |ABLE.JSR| STORE'O|
|00000b70| 55 54 0d 4a 53 52 20 42 | 55 4d 50 27 4f 55 54 50 |UT.JSR B|UMP'OUTP|
|00000b80| 55 54 27 42 55 46 46 45 | 52 0d 4c 44 41 20 23 30 |UT'BUFFE|R.LDA #0|
|00000b90| 0d 53 54 41 20 44 27 56 | 41 52 49 41 42 4c 45 0d |.STA D'V|ARIABLE.|
|00000ba0| 52 54 53 0d 0d 4e 4f 54 | 27 53 41 4d 45 20 4c 44 |RTS..NOT|'SAME LD|
|00000bb0| 41 20 44 27 56 41 52 49 | 41 42 4c 45 0d 42 45 51 |A D'VARI|ABLE.BEQ|
|00000bc0| 20 2b 0d 4a 4d 50 20 57 | 52 41 50 27 55 50 27 44 | +.JMP W|RAP'UP'D|
|00000bd0| 0d 2b 20 49 4e 43 20 45 | 27 56 41 52 49 41 42 4c |.+ INC E|'VARIABL|
|00000be0| 45 0d 4c 44 41 20 45 27 | 56 41 52 49 41 42 4c 45 |E.LDA E'|VARIABLE|
|00000bf0| 0d 43 4d 50 20 23 31 0d | 42 4e 45 20 2b 0d 4c 44 |.CMP #1.|BNE +.LD|
|00000c00| 58 20 42 55 46 46 45 52 | 0d 53 54 58 20 24 31 36 |X BUFFER|.STX $16|
|00000c10| 0d 4c 44 58 20 42 55 46 | 46 45 52 2b 31 0d 53 54 |.LDX BUF|FER+1.ST|
|00000c20| 58 20 24 31 37 0d 2b 20 | 43 4d 50 20 23 31 32 37 |X $17.+ |CMP #127|
|00000c30| 0d 42 4e 45 20 2b 0d 4a | 4d 50 20 57 52 49 54 45 |.BNE +.J|MP WRITE|
|00000c40| 27 4c 49 54 45 52 41 4c | 0d 2b 20 52 54 53 0d 0d |'LITERAL|.+ RTS..|
|00000c50| 57 52 49 54 45 27 4c 49 | 54 45 52 41 4c 20 4c 44 |WRITE'LI|TERAL LD|
|00000c60| 59 20 23 30 0d 4c 44 41 | 20 45 27 56 41 52 49 41 |Y #0.LDA| E'VARIA|
|00000c70| 42 4c 45 0d 4f 52 41 20 | 23 31 32 38 0d 4a 53 52 |BLE.ORA |#128.JSR|
|00000c80| 20 53 54 4f 52 45 27 4f | 55 54 0d 4a 53 52 20 42 | STORE'O|UT.JSR B|
|00000c90| 55 4d 50 27 4f 55 54 50 | 55 54 27 42 55 46 46 45 |UMP'OUTP|UT'BUFFE|
|00000ca0| 52 0d 0d 4c 49 54 45 52 | 41 4c 27 4c 4f 4f 50 20 |R..LITER|AL'LOOP |
|00000cb0| 4c 44 59 20 23 30 0d 2d | 20 4a 53 52 20 46 45 54 |LDY #0.-| JSR FET|
|00000cc0| 43 48 27 53 4f 4c 0d 4a | 53 52 20 53 54 4f 52 45 |CH'SOL.J|SR STORE|
|00000cd0| 27 4f 55 54 0d 4a 53 52 | 20 42 55 4d 50 27 4f 55 |'OUT.JSR| BUMP'OU|
|00000ce0| 54 50 55 54 27 42 55 46 | 46 45 52 0d 49 4e 43 20 |TPUT'BUF|FER.INC |
|00000cf0| 53 54 41 52 54 27 4f 46 | 27 4c 49 54 45 52 41 4c |START'OF|'LITERAL|
|00000d00| 0d 42 4e 45 20 2b 0d 49 | 4e 43 20 53 54 41 52 54 |.BNE +.I|NC START|
|00000d10| 27 4f 46 27 4c 49 54 45 | 52 41 4c 2b 31 0d 2b 20 |'OF'LITE|RAL+1.+ |
|00000d20| 4c 44 41 20 53 54 41 52 | 54 27 4f 46 27 4c 49 54 |LDA STAR|T'OF'LIT|
|00000d30| 45 52 41 4c 2b 31 0d 43 | 4d 50 20 42 55 46 46 45 |ERAL+1.C|MP BUFFE|
|00000d40| 52 2b 31 0d 42 43 43 20 | 2d 0d 4c 44 41 20 53 54 |R+1.BCC |-.LDA ST|
|00000d50| 41 52 54 27 4f 46 27 4c | 49 54 45 52 41 4c 0d 43 |ART'OF'L|ITERAL.C|
|00000d60| 4d 50 20 42 55 46 46 45 | 52 0d 42 43 43 20 2d 0d |MP BUFFE|R.BCC -.|
|00000d70| 42 45 51 20 2d 0d 0d 4c | 44 41 20 23 30 0d 53 54 |BEQ -..L|DA #0.ST|
|00000d80| 41 20 45 27 56 41 52 49 | 41 42 4c 45 0d 53 54 41 |A E'VARI|ABLE.STA|
|00000d90| 20 44 27 56 41 52 49 41 | 42 4c 45 0d 52 54 53 0d | D'VARIA|BLE.RTS.|
|00000da0| 0d 57 52 41 50 27 55 50 | 27 44 20 49 4e 43 20 44 |.WRAP'UP|'D INC D|
|00000db0| 27 56 41 52 49 41 42 4c | 45 0d 4c 44 59 20 23 30 |'VARIABL|E.LDY #0|
|00000dc0| 0d 4c 44 41 20 44 27 56 | 41 52 49 41 42 4c 45 0d |.LDA D'V|ARIABLE.|
|00000dd0| 4a 53 52 20 53 54 4f 52 | 45 27 4f 55 54 0d 4a 53 |JSR STOR|E'OUT.JS|
|00000de0| 52 20 42 55 4d 50 27 4f | 55 54 50 55 54 27 42 55 |R BUMP'O|UTPUT'BU|
|00000df0| 46 46 45 52 0d 4c 44 41 | 20 4e 27 56 41 52 49 41 |FFER.LDA| N'VARIA|
|00000e00| 42 4c 45 0d 4a 53 52 20 | 53 54 4f 52 45 27 4f 55 |BLE.JSR |STORE'OU|
|00000e10| 54 0d 4a 53 52 20 42 55 | 4d 50 27 4f 55 54 50 55 |T.JSR BU|MP'OUTPU|
|00000e20| 54 27 42 55 46 46 45 52 | 0d 4c 44 41 20 23 30 0d |T'BUFFER|.LDA #0.|
|00000e30| 53 54 41 20 44 27 56 41 | 52 49 41 42 4c 45 0d 52 |STA D'VA|RIABLE.R|
|00000e40| 54 53 0d 0d 0d 57 52 41 | 50 27 55 50 27 45 20 4c |TS...WRA|P'UP'E L|
|00000e50| 44 59 20 23 30 0d 4c 44 | 41 20 45 27 56 41 52 49 |DY #0.LD|A E'VARI|
|00000e60| 41 42 4c 45 0d 4f 52 41 | 20 23 31 32 38 0d 4a 53 |ABLE.ORA| #128.JS|
|00000e70| 52 20 53 54 4f 52 45 27 | 4f 55 54 0d 4a 53 52 20 |R STORE'|OUT.JSR |
|00000e80| 42 55 4d 50 27 4f 55 54 | 50 55 54 27 42 55 46 46 |BUMP'OUT|PUT'BUFF|
|00000e90| 45 52 0d 0d 4c 49 54 45 | 52 41 4c 27 4c 4f 4f 50 |ER..LITE|RAL'LOOP|
|00000ea0| 32 20 4c 44 59 20 23 30 | 0d 2d 20 4a 53 52 20 46 |2 LDY #0|.- JSR F|
|00000eb0| 45 54 43 48 27 53 4f 4c | 0d 4a 53 52 20 53 54 4f |ETCH'SOL|.JSR STO|
|00000ec0| 52 45 27 4f 55 54 0d 4a | 53 52 20 42 55 4d 50 27 |RE'OUT.J|SR BUMP'|
|00000ed0| 4f 55 54 50 55 54 27 42 | 55 46 46 45 52 0d 49 4e |OUTPUT'B|UFFER.IN|
|00000ee0| 43 20 53 54 41 52 54 27 | 4f 46 27 4c 49 54 45 52 |C START'|OF'LITER|
|00000ef0| 41 4c 0d 42 4e 45 20 2b | 0d 49 4e 43 20 53 54 41 |AL.BNE +|.INC STA|
|00000f00| 52 54 27 4f 46 27 4c 49 | 54 45 52 41 4c 2b 31 0d |RT'OF'LI|TERAL+1.|
|00000f10| 2b 20 4c 44 41 20 53 54 | 41 52 54 27 4f 46 27 4c |+ LDA ST|ART'OF'L|
|00000f20| 49 54 45 52 41 4c 2b 31 | 0d 43 4d 50 20 42 55 46 |ITERAL+1|.CMP BUF|
|00000f30| 46 45 52 2b 31 0d 42 43 | 43 20 2d 0d 4c 44 41 20 |FER+1.BC|C -.LDA |
|00000f40| 53 54 41 52 54 27 4f 46 | 27 4c 49 54 45 52 41 4c |START'OF|'LITERAL|
|00000f50| 0d 43 4d 50 20 42 55 46 | 46 45 52 0d 42 43 43 20 |.CMP BUF|FER.BCC |
|00000f60| 2d 0d 0d 4c 44 41 20 23 | 30 0d 53 54 41 20 45 27 |-..LDA #|0.STA E'|
|00000f70| 56 41 52 49 41 42 4c 45 | 0d 53 54 41 20 44 27 56 |VARIABLE|.STA D'V|
|00000f80| 41 52 49 41 42 4c 45 0d | 52 54 53 0d 0d 42 55 4d |ARIABLE.|RTS..BUM|
|00000f90| 50 27 4f 55 54 50 55 54 | 27 42 55 46 46 45 52 20 |P'OUTPUT|'BUFFER |
|00000fa0| 49 4e 43 20 4f 55 54 50 | 55 54 27 42 55 46 46 45 |INC OUTP|UT'BUFFE|
|00000fb0| 52 0d 42 4e 45 20 2b 0d | 49 4e 43 20 4f 55 54 50 |R.BNE +.|INC OUTP|
|00000fc0| 55 54 27 42 55 46 46 45 | 52 2b 31 0d 2b 20 52 54 |UT'BUFFE|R+1.+ RT|
|00000fd0| 53 0d 0d 0d 57 52 49 54 | 45 27 4f 55 54 50 55 54 |S...WRIT|E'OUTPUT|
|00000fe0| 20 4c 44 41 20 4d 4f 44 | 45 0d 42 45 51 20 4f 50 | LDA MOD|E.BEQ OP|
|00000ff0| 45 4e 27 4f 55 54 50 55 | 54 27 46 49 4c 45 0d 52 |EN'OUTPU|T'FILE.R|
|00001000| 54 53 3b 20 45 4e 44 20 | 4f 46 20 50 41 43 4b 20 |TS; END |OF PACK |
|00001010| 41 54 20 32 35 33 2c 32 | 35 34 0d 0d 4f 50 45 4e |AT 253,2|54..OPEN|
|00001020| 27 4f 55 54 50 55 54 27 | 46 49 4c 45 20 4a 53 52 |'OUTPUT'|FILE JSR|
|00001030| 20 4f 50 45 4e 27 44 52 | 49 56 45 0d 4c 44 41 20 | OPEN'DR|IVE.LDA |
|00001040| 23 31 0d 4c 44 59 20 23 | 31 0d 4a 53 52 20 42 41 |#1.LDY #|1.JSR BA|
|00001050| 4e 4b 27 31 35 0d 4a 53 | 52 20 53 45 54 4c 46 53 |NK'15.JS|R SETLFS|
|00001060| 0d 4a 53 52 20 4f 50 45 | 4e 0d 4a 53 52 20 47 45 |.JSR OPE|N.JSR GE|
|00001070| 54 27 50 0d 53 54 59 20 | 53 54 41 52 54 27 41 44 |T'P.STY |START'AD|
|00001080| 44 52 45 53 53 0d 53 54 | 41 20 53 54 41 52 54 27 |DRESS.ST|A START'|
|00001090| 41 44 44 52 45 53 53 2b | 31 0d 4a 53 52 20 42 41 |ADDRESS+|1.JSR BA|
|000010a0| 4e 4b 27 31 35 0d 4a 53 | 52 20 43 4c 52 43 48 4e |NK'15.JS|R CLRCHN|
|000010b0| 0d 4c 44 58 20 23 31 0d | 4a 53 52 20 43 48 4b 4f |.LDX #1.|JSR CHKO|
|000010c0| 55 54 0d 4c 44 41 20 53 | 54 41 52 54 27 41 44 44 |UT.LDA S|TART'ADD|
|000010d0| 52 45 53 53 0d 4a 53 52 | 20 43 48 52 4f 55 54 0d |RESS.JSR| CHROUT.|
|000010e0| 4c 44 41 20 53 54 41 52 | 54 27 41 44 44 52 45 53 |LDA STAR|T'ADDRES|
|000010f0| 53 2b 31 0d 4a 53 52 20 | 43 48 52 4f 55 54 0d 0d |S+1.JSR |CHROUT..|
|00001100| 4c 44 41 20 23 24 30 30 | 0d 53 54 41 20 24 31 36 |LDA #$00|.STA $16|
|00001110| 0d 4c 44 41 20 57 4f 52 | 4b 27 42 55 46 0d 53 54 |.LDA WOR|K'BUF.ST|
|00001120| 41 20 24 31 37 0d 0d 2d | 4f 55 54 50 55 54 27 4c |A $17..-|OUTPUT'L|
|00001130| 4f 4f 50 20 4c 44 41 20 | 23 24 31 36 0d 4c 44 58 |OOP LDA |#$16.LDX|
|00001140| 20 4f 27 42 41 4e 4b 0d | 4a 53 52 20 24 46 46 37 | O'BANK.|JSR $FF7|
|00001150| 34 0d 4a 53 52 20 42 41 | 4e 4b 27 31 35 0d 4a 53 |4.JSR BA|NK'15.JS|
|00001160| 52 20 43 48 52 4f 55 54 | 0d 49 4e 43 20 24 31 36 |R CHROUT|.INC $16|
|00001170| 0d 42 4e 45 20 2b 0d 49 | 4e 43 20 24 31 37 0d 0d |.BNE +.I|NC $17..|
|00001180| 2b 20 4c 44 41 20 24 31 | 37 0d 43 4d 50 20 4f 55 |+ LDA $1|7.CMP OU|
|00001190| 54 50 55 54 27 42 55 46 | 46 45 52 2b 31 0d 42 43 |TPUT'BUF|FER+1.BC|
|000011a0| 43 20 2d 0d 4c 44 41 20 | 24 31 36 0d 43 4d 50 20 |C -.LDA |$16.CMP |
|000011b0| 4f 55 54 50 55 54 27 42 | 55 46 46 45 52 0d 42 43 |OUTPUT'B|UFFER.BC|
|000011c0| 43 20 2d 0d 42 45 51 20 | 2d 0d 0d 4a 53 52 20 43 |C -.BEQ |-..JSR C|
|000011d0| 4c 52 43 48 4e 0d 4c 44 | 41 20 23 31 0d 4a 4d 50 |LRCHN.LD|A #1.JMP|
|000011e0| 20 43 4c 4f 53 45 0d 20 | 0d 0d 3b 2a 2a 2a 20 50 | CLOSE. |..;*** P|
|000011f0| 41 43 4b 20 41 20 52 41 | 4e 47 45 20 4f 46 20 4d |ACK A RA|NGE OF M|
|00001200| 45 4d 4f 52 59 0d 52 41 | 4e 47 45 27 50 41 43 4b |EMORY.RA|NGE'PACK|
|00001210| 20 4c 44 41 20 23 31 0d | 53 54 41 20 4d 4f 44 45 | LDA #1.|STA MODE|
|00001220| 0d 4c 44 41 20 31 37 34 | 0d 53 54 41 20 45 4f 46 |.LDA 174|.STA EOF|
|00001230| 0d 4c 44 41 20 31 37 35 | 0d 53 54 41 20 45 4f 46 |.LDA 175|.STA EOF|
|00001240| 2b 31 0d 4c 44 41 20 23 | 30 0d 53 54 41 20 45 27 |+1.LDA #|0.STA E'|
|00001250| 56 41 52 49 41 42 4c 45 | 0d 53 54 41 20 44 27 56 |VARIABLE|.STA D'V|
|00001260| 41 52 49 41 42 4c 45 0d | 4a 4d 50 20 53 45 54 0d |ARIABLE.|JMP SET.|
|00001270| 0d 0d 50 41 43 4b 27 4d | 45 4d 20 4c 44 41 20 23 |..PACK'M|EM LDA #|
|00001280| 31 0d 53 54 41 20 4d 4f | 44 45 0d 4a 53 52 20 43 |1.STA MO|DE.JSR C|
|00001290| 48 4b 27 43 4f 4c 4f 4e | 0d 4a 53 52 20 47 45 54 |HK'COLON|.JSR GET|
|000012a0| 27 42 2b 33 0d 53 54 59 | 20 53 27 42 41 4e 4b 0d |'B+3.STY| S'BANK.|
|000012b0| 4a 53 52 20 47 45 54 27 | 50 0d 53 54 59 20 42 55 |JSR GET'|P.STY BU|
|000012c0| 46 46 45 52 0d 53 54 41 | 20 42 55 46 46 45 52 2b |FFER.STA| BUFFER+|
|000012d0| 31 0d 4a 53 52 20 47 45 | 54 27 50 0d 53 54 59 20 |1.JSR GE|T'P.STY |
|000012e0| 45 4f 46 0d 53 54 59 20 | 31 37 34 0d 53 54 41 20 |EOF.STY |174.STA |
|000012f0| 45 4f 46 2b 31 0d 53 54 | 41 20 31 37 35 0d 4c 44 |EOF+1.ST|A 175.LD|
|00001300| 41 20 23 30 0d 53 54 41 | 20 45 27 56 41 52 49 41 |A #0.STA| E'VARIA|
|00001310| 42 4c 45 0d 53 54 41 20 | 44 27 56 41 52 49 41 42 |BLE.STA |D'VARIAB|
|00001320| 4c 45 0d 4a 53 52 20 47 | 45 54 27 42 0d 53 54 59 |LE.JSR G|ET'B.STY|
|00001330| 20 4f 27 42 41 4e 4b 0d | 4a 53 52 20 47 45 54 27 | O'BANK.|JSR GET'|
|00001340| 50 0d 53 54 59 20 4f 55 | 54 50 55 54 27 42 55 46 |P.STY OU|TPUT'BUF|
|00001350| 46 45 52 0d 53 54 41 20 | 4f 55 54 50 55 54 27 42 |FER.STA |OUTPUT'B|
|00001360| 55 46 46 45 52 2b 31 0d | 0d 53 45 54 20 4a 53 52 |UFFER+1.|.SET JSR|
|00001370| 20 45 4e 43 4f 44 45 27 | 4c 4f 4f 50 0d 4a 4d 50 | ENCODE'|LOOP.JMP|
|00001380| 20 4d 41 4b 45 27 56 41 | 52 49 41 42 4c 45 0d 0d | MAKE'VA|RIABLE..|
|00001390| 0d 0d 3b 2a 2a 2a 2a 20 | 47 45 54 20 4e 55 4d 42 |..;**** |GET NUMB|
|000013a0| 45 52 53 20 46 52 4f 4d | 20 c2 c1 d3 c9 c3 20 2a |ERS FROM| ..... *|
|000013b0| 2a 2a 2a 0d 47 45 54 27 | 42 20 4a 53 52 20 43 48 |***.GET'|B JSR CH|
|000013c0| 4b 43 4f 4d 0d 4c 44 41 | 20 23 22 42 22 0d 4a 53 |KCOM.LDA| #"B".JS|
|000013d0| 52 20 43 48 4b 43 4f 4d | 2b 32 0d 4a 4d 50 20 47 |R CHKCOM|+2.JMP G|
|000013e0| 45 54 27 4e 55 4d 42 45 | 52 0d 0d 47 45 54 27 50 |ET'NUMBE|R..GET'P|
|000013f0| 20 4a 53 52 20 43 48 4b | 43 4f 4d 0d 4c 44 41 20 | JSR CHK|COM.LDA |
|00001400| 23 22 50 22 0d 4a 53 52 | 20 43 48 4b 43 4f 4d 2b |#"P".JSR| CHKCOM+|
|00001410| 32 0d 0d 47 45 54 27 4e | 55 4d 42 45 52 20 4a 53 |2..GET'N|UMBER JS|
|00001420| 52 20 24 37 37 44 37 0d | 4a 4d 50 20 24 38 38 31 |R $77D7.|JMP $881|
|00001430| 35 0d 0d 3b 20 2a 2a 2a | 20 43 48 45 43 4b 20 46 |5..; ***| CHECK F|
|00001440| 4f 52 20 43 4f 4c 4f 4e | 0d 43 48 4b 27 43 4f 4c |OR COLON|.CHK'COL|
|00001450| 4f 4e 20 4c 44 41 20 23 | 22 3a 22 0d 4a 53 52 20 |ON LDA #|":".JSR |
|00001460| 43 48 4b 43 4f 4d 2b 32 | 0d 52 54 53 0d 0d 3b 20 |CHKCOM+2|.RTS..; |
|00001470| 2a 2a 2a 20 46 45 54 43 | 48 20 41 20 42 59 54 45 |*** FETC|H A BYTE|
|00001480| 0d 46 45 54 43 48 27 42 | 55 46 20 4c 44 41 20 23 |.FETCH'B|UF LDA #|
|00001490| 3c 42 55 46 46 45 52 0d | 4c 44 58 20 53 27 42 41 |<BUFFER.|LDX S'BA|
|000014a0| 4e 4b 0d 4a 53 52 20 24 | 46 46 37 34 0d 52 54 53 |NK.JSR $|FF74.RTS|
|000014b0| 0d 0d 46 45 54 43 48 27 | 53 4f 4c 20 4c 44 41 20 |..FETCH'|SOL LDA |
|000014c0| 23 3c 53 54 41 52 54 27 | 4f 46 27 4c 49 54 45 52 |#<START'|OF'LITER|
|000014d0| 41 4c 0d 4c 44 58 20 53 | 27 42 41 4e 4b 0d 4a 53 |AL.LDX S|'BANK.JS|
|000014e0| 52 20 24 46 46 37 34 0d | 52 54 53 0d 0d 0d 3b 20 |R $FF74.|RTS...; |
|000014f0| 2a 2a 2a 20 53 54 4f 52 | 45 20 41 20 42 59 54 45 |*** STOR|E A BYTE|
|00001500| 0d 53 54 4f 52 45 27 4f | 55 54 20 50 48 41 0d 4c |.STORE'O|UT PHA.L|
|00001510| 44 41 20 3c 4f 55 54 50 | 55 54 27 42 55 46 46 45 |DA <OUTP|UT'BUFFE|
|00001520| 52 0d 4a 4d 50 20 53 54 | 4f 52 45 0d 0d 53 54 4f |R.JMP ST|ORE..STO|
|00001530| 52 45 27 53 4f 4c 20 50 | 48 41 0d 4c 44 41 20 3c |RE'SOL P|HA.LDA <|
|00001540| 53 54 41 52 54 27 4f 46 | 27 4c 49 54 45 52 41 4c |START'OF|'LITERAL|
|00001550| 0d 4a 4d 50 20 53 54 4f | 52 45 0d 0d 53 54 4f 52 |.JMP STO|RE..STOR|
|00001560| 45 27 31 37 34 20 50 48 | 41 0d 4c 44 41 20 23 31 |E'174 PH|A.LDA #1|
|00001570| 37 34 0d 0d 53 54 4f 52 | 45 20 53 54 41 20 24 30 |74..STOR|E STA $0|
|00001580| 32 42 39 0d 4c 44 58 20 | 4f 27 42 41 4e 4b 0d 4c |2B9.LDX |O'BANK.L|
|00001590| 44 59 20 23 30 0d 50 4c | 41 0d 4a 53 52 20 24 46 |DY #0.PL|A.JSR $F|
|000015a0| 46 37 37 0d 52 54 53 0d | 20 0d 0d 4f 50 45 4e 27 |F77.RTS.| ..OPEN'|
|000015b0| 44 52 49 56 45 20 4a 53 | 52 20 43 48 4b 27 43 4f |DRIVE JS|R CHK'CO|
|000015c0| 4c 4f 4e 0d 4c 44 58 20 | 3e 24 38 37 37 42 0d 4c |LON.LDX |>$877B.L|
|000015d0| 44 59 20 3c 24 38 37 37 | 42 0d 4a 53 52 20 4c 4f |DY <$877|B.JSR LO|
|000015e0| 4e 47 27 4a 53 52 0d 4c | 44 41 20 23 31 35 0d 4c |NG'JSR.L|DA #15.L|
|000015f0| 44 58 20 23 31 0d 4a 53 | 52 20 24 46 46 36 38 0d |DX #1.JS|R $FF68.|
|00001600| 4c 44 41 20 24 31 42 0d | 4c 44 58 20 24 31 43 0d |LDA $1B.|LDX $1C.|
|00001610| 4c 44 59 20 24 31 44 0d | 4a 53 52 20 53 45 54 4e |LDY $1D.|JSR SETN|
|00001620| 41 4d 0d 4a 53 52 20 43 | 48 4b 43 4f 4d 0d 4c 44 |AM.JSR C|HKCOM.LD|
|00001630| 41 20 23 22 55 22 0d 4a | 53 52 20 43 48 4b 43 4f |A #"U".J|SR CHKCO|
|00001640| 4d 2b 32 0d 4a 53 52 20 | 47 45 54 27 4e 55 4d 42 |M+2.JSR |GET'NUMB|
|00001650| 45 52 0d 54 59 41 0d 54 | 41 58 0d 52 54 53 0d 0d |ER.TYA.T|AX.RTS..|
|00001660| 0d 4d 41 4b 45 27 56 41 | 52 49 41 42 4c 45 20 4c |.MAKE'VA|RIABLE L|
|00001670| 44 41 20 24 33 44 0d 50 | 48 41 0d 4c 44 41 20 24 |DA $3D.P|HA.LDA $|
|00001680| 33 45 0d 50 48 41 0d 4c | 44 41 20 3c 46 27 49 4e |3E.PHA.L|DA <F'IN|
|00001690| 54 0d 53 54 41 20 24 33 | 44 0d 4c 44 41 20 3e 46 |T.STA $3|D.LDA >F|
|000016a0| 27 49 4e 54 0d 53 54 41 | 20 24 33 45 0d 4c 44 41 |'INT.STA| $3E.LDA|
|000016b0| 20 23 31 35 0d 53 54 41 | 20 24 32 0d 4c 44 58 20 | #15.STA| $2.LDX |
|000016c0| 3e 24 37 41 41 46 0d 4c | 44 59 20 3c 24 37 41 41 |>$7AAF.L|DY <$7AA|
|000016d0| 46 0d 4a 53 52 20 4c 4f | 4e 47 27 4a 53 52 0d 0d |F.JSR LO|NG'JSR..|
|000016e0| 4c 44 59 20 23 30 0d 4c | 44 41 20 23 24 34 39 0d |LDY #0.L|DA #$49.|
|000016f0| 53 54 41 20 24 30 32 42 | 39 0d 4c 44 58 20 23 31 |STA $02B|9.LDX #1|
|00001700| 0d 4c 44 41 20 24 46 44 | 0d 4a 53 52 20 24 46 46 |.LDA $FD|.JSR $FF|
|00001710| 37 37 0d 49 4e 59 0d 4c | 44 58 20 23 31 0d 4c 44 |77.INY.L|DX #1.LD|
|00001720| 41 20 24 46 45 0d 4a 53 | 52 20 24 46 46 37 37 0d |A $FE.JS|R $FF77.|
|00001730| 50 4c 41 0d 53 54 41 20 | 24 33 45 0d 50 4c 41 0d |PLA.STA |$3E.PLA.|
|00001740| 53 54 41 20 24 33 44 0d | 52 54 53 0d 0d 4c 4f 4e |STA $3D.|RTS..LON|
|00001750| 47 27 4a 53 52 20 4c 44 | 41 20 23 31 35 0d 53 54 |G'JSR LD|A #15.ST|
|00001760| 41 20 24 32 0d 53 54 58 | 20 24 33 0d 53 54 59 20 |A $2.STX| $3.STY |
|00001770| 24 34 0d 4c 44 41 20 23 | 30 0d 53 54 41 20 24 35 |$4.LDA #|0.STA $5|
|00001780| 0d 4a 53 52 20 24 46 46 | 36 45 0d 52 54 53 0d 0d |.JSR $FF|6E.RTS..|
|00001790| 53 54 41 52 54 27 41 44 | 44 52 45 53 53 20 2e 57 |START'AD|DRESS .W|
|000017a0| 4f 52 44 20 30 0d 44 27 | 56 41 52 49 41 42 4c 45 |ORD 0.D'|VARIABLE|
|000017b0| 20 2e 42 59 54 20 30 0d | 45 27 56 41 52 49 41 42 | .BYT 0.|E'VARIAB|
|000017c0| 4c 45 20 2e 42 59 54 20 | 30 0d 4e 27 56 41 52 49 |LE .BYT |0.N'VARI|
|000017d0| 41 42 4c 45 20 2e 42 59 | 54 20 30 0d 51 27 56 41 |ABLE .BY|T 0.Q'VA|
|000017e0| 52 49 41 42 4c 45 20 2e | 42 59 54 20 30 0d 45 4f |RIABLE .|BYT 0.EO|
|000017f0| 46 20 2e 57 4f 52 44 20 | 30 0d 4d 4f 44 45 20 2e |F .WORD |0.MODE .|
|00001800| 42 59 54 20 30 0d 46 27 | 49 4e 54 20 2e 41 53 43 |BYT 0.F'|INT .ASC|
|00001810| 20 22 46 25 22 0d 2e 42 | 59 54 45 20 30          | "F%"..B|YTE 0   |
+--------+-------------------------+-------------------------+--------+--------+