/ Go64! / Go64_2000-01_2000_CSW_Side_A.d64 / jamaica.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 2a 0d 2a a0 6a 41 | 4d 41 49 43 41 6d 6f 6e |.p*.*.jA|MAICAmon|
|00000010| 0d 2a 0d 2a a0 6f 52 49 | 47 49 4e 41 4c a0 53 55 |.*.*.oRI|GINAL.SU|
|00000020| 50 45 52 4d 4f 4e a0 53 | 4f 55 52 43 45 a0 43 4f |PERMON.S|OURCE.CO|
|00000030| 44 45 a0 43 4f 55 52 54 | 45 53 59 a0 6a 49 4d a0 |DE.COURT|ESY.jIM.|
|00000040| 62 55 54 54 45 52 46 49 | 45 4c 44 0d 2a 0d 2a a0 |bUTTERFI|ELD.*.*.|
|00000050| 6d 45 52 4c 49 4e 49 5a | 45 44 a0 41 4e 44 a0 41 |mERLINIZ|ED.AND.A|
|00000060| 44 41 50 54 45 44 a0 46 | 4f 52 a0 54 48 45 a0 73 |DAPTED.F|OR.THE.s|
|00000070| 55 50 45 52 63 70 75 a0 | 42 59 0d 2a a0 73 54 45 |UPERcpu.|BY.*.sTE|
|00000080| 50 48 45 4e a0 6c 2e a0 | 6a 55 44 44 0d 2a a0 31 |PHEN.l..|jUDD.*.1|
|00000090| 32 2f 37 2f 39 37 a0 28 | 31 2f 39 38 29 0d 2a 0d |2/7/97.(|1/98).*.|
|000000a0| 2a a0 56 31 2e 30 a0 31 | 2f 33 31 2f 39 38 0d 2a |*.V1.0.1|/31/98.*|
|000000b0| a0 56 32 2e 30 a0 31 30 | 2f 32 38 2f 39 38 0d 2a |.V2.0.10|/28/98.*|
|000000c0| a0 56 32 2e 31 a0 39 2f | 39 2f 39 39 0d 2a a0 56 |.V2.1.9/|9/99.*.V|
|000000d0| 33 2e 30 a0 31 32 2f 31 | 34 2f 39 39 0d 2a a0 56 |3.0.12/1|4/99.*.V|
|000000e0| 33 2e 32 a0 31 2f 31 35 | 2f 30 30 0d 2a 0d 2a a0 |3.2.1/15|/00.*.*.|
|000000f0| 74 48 49 53 a0 50 52 4f | 47 52 41 4d a0 49 53 a0 |tHIS.PRO|GRAM.IS.|
|00000100| 50 55 42 4c 49 43 a0 44 | 4f 4d 41 49 4e 2e 0d 2a |PUBLIC.D|OMAIN..*|
|00000110| 0d 0d 2a a0 64 49 52 45 | 43 54 a0 50 41 47 45 a0 |..*.dIRE|CT.PAGE.|
|00000120| 56 41 52 49 41 42 4c 45 | 53 0d 0d 54 4d 50 43 20 |VARIABLE|S..TMPC |
|00000130| 3d 20 24 32 32 0d 4e 45 | 4d 4f 20 3d 20 24 32 33 |= $22.NE|MO = $23|
|00000140| 0d 4c 45 4e 47 54 48 20 | 3d 20 24 32 34 0d 57 52 |.LENGTH |= $24.WR|
|00000150| 41 50 20 3d 20 24 32 35 | 0d 41 43 4d 44 20 3d 20 |AP = $25|.ACMD = |
|00000160| 24 32 36 0d 41 46 4c 47 | 20 3d 20 24 32 37 20 3b |$26.AFLG| = $27 ;|
|00000170| 33 a0 42 59 54 45 53 0d | 53 41 54 55 53 20 3d 20 |3.BYTES.|SATUS = |
|00000180| 24 39 30 0d 4c 56 46 4c | 41 47 20 3d 20 24 39 33 |$90.LVFL|AG = $93|
|00000190| 0d 49 4e 44 45 56 20 3d | 20 24 39 39 0d 4f 55 54 |.INDEV =| $99.OUT|
|000001a0| 44 45 56 20 3d 20 24 39 | 41 0d 45 41 4c 20 3d 20 |DEV = $9|A.EAL = |
|000001b0| 24 41 45 0d 45 41 48 20 | 3d 20 24 41 46 0d 46 4e |$AE.EAH |= $AF.FN|
|000001c0| 4c 45 4e 20 3d 20 24 42 | 37 0d 57 54 59 50 45 20 |LEN = $B|7.WTYPE |
|000001d0| 3d 20 24 42 39 0d 46 41 | 20 3d 20 24 42 41 0d 46 |= $B9.FA| = $BA.F|
|000001e0| 4e 41 44 52 20 3d 20 24 | 42 42 0d 50 53 41 56 20 |NADR = $|BB.PSAV |
|000001f0| 3d 20 24 35 37 0d 54 4d | 50 32 20 3d 20 24 35 41 |= $57.TM|P2 = $5A|
|00000200| 0d 54 4d 50 30 20 3d 20 | 24 35 44 0d 53 41 56 58 |.TMP0 = |$5D.SAVX|
|00000210| 20 3d 20 24 36 30 0d 49 | 4e 42 55 46 20 3d 20 24 | = $60.I|NBUF = $|
|00000220| 30 31 30 30 0d 53 43 50 | 55 20 3d 20 24 30 32 30 |0100.SCP|U = $020|
|00000230| 38 20 3b 53 43 50 55 a0 | 53 54 55 46 46 0d 53 54 |8 ;SCPU.|STUFF.ST|
|00000240| 41 47 45 20 3d 20 24 30 | 32 31 30 0d 52 45 50 54 |AGE = $0|210.REPT|
|00000250| 45 4d 50 20 3d 20 24 30 | 32 32 44 20 3b 72 65 70 |EMP = $0|22D ;rep|
|00000260| 2f 73 65 70 a0 49 4e 53 | 54 52 55 43 54 49 4f 4e |/sep.INS|TRUCTION|
|00000270| 0d 52 45 50 56 41 4c 20 | 3d 20 24 30 32 32 45 20 |.REPVAL |= $022E |
|00000280| 3b 41 4e 44 a0 56 41 4c | 55 45 0d 4f 48 4f 4e 45 |;AND.VAL|UE.OHONE|
|00000290| 20 3d 20 24 30 32 32 46 | 0d 50 42 52 20 3d 20 24 | = $022F|.PBR = $|
|000002a0| 30 32 33 30 0d 50 43 4c | 20 3d 20 24 30 32 33 31 |0230.PCL| = $0231|
|000002b0| 0d 50 43 48 20 3d 20 24 | 30 32 33 32 0d 41 43 43 |.PCH = $|0232.ACC|
|000002c0| 20 3d 20 24 30 32 33 33 | 0d 58 52 20 3d 20 24 30 | = $0233|.XR = $0|
|000002d0| 32 33 35 0d 59 52 20 3d | 20 24 30 32 33 37 0d 53 |235.YR =| $0237.S|
|000002e0| 50 20 3d 20 24 30 32 33 | 39 0d 44 50 20 3d 20 24 |P = $023|9.DP = $|
|000002f0| 30 32 33 42 0d 44 42 52 | 20 3d 20 24 30 32 33 44 |023B.DBR| = $023D|
|00000300| 0d 46 4c 47 53 20 3d 20 | 24 30 32 33 45 0d 45 4d |.FLGS = |$023E.EM|
|00000310| 55 4c 20 3d 20 24 30 32 | 33 46 20 3b 48 49 47 48 |UL = $02|3F ;HIGH|
|00000320| a0 42 49 54 a0 3d a0 45 | 0d 41 44 44 52 53 20 3d |.BIT.=.E|.ADDRS =|
|00000330| 20 24 30 32 34 30 20 3b | 4c 4f 41 44 2f 53 41 56 | $0240 ;|LOAD/SAV|
|00000340| 45 a0 53 54 52 49 4e 47 | 0d 4c 41 53 54 4d 45 4d |E.STRING|.LASTMEM|
|00000350| 20 3d 20 24 30 32 35 37 | 0d 42 4b 56 45 43 20 3d | = $0257|.BKVEC =|
|00000360| 20 24 30 33 31 36 0d 4c | 44 56 45 43 20 3d 20 24 | $0316.L|DVEC = $|
|00000370| 30 33 33 30 0d 53 56 56 | 45 43 20 3d 20 24 30 33 |0330.SVV|EC = $03|
|00000380| 33 32 0d 52 45 41 44 59 | 20 3d 20 24 41 30 30 32 |32.READY| = $A002|
|00000390| 0d 53 45 54 4d 53 47 20 | 3d 20 24 46 46 39 30 0d |.SETMSG |= $FF90.|
|000003a0| 52 44 54 20 3d 20 24 46 | 46 43 46 0d 57 52 54 20 |RDT = $F|FCF.WRT |
|000003b0| 3d 20 24 46 46 44 32 0d | 53 54 4f 50 31 20 3d 20 |= $FFD2.|STOP1 = |
|000003c0| 24 46 46 45 31 0d 4b 4c | 4f 41 44 20 3d 20 24 46 |$FFE1.KL|OAD = $F|
|000003d0| 46 44 35 0d 4b 53 41 56 | 45 20 3d 20 24 46 46 44 |FD5.KSAV|E = $FFD|
|000003e0| 38 0d 0d 72 65 61 64 73 | 74 20 3d 20 24 66 66 62 |8..reads|t = $ffb|
|000003f0| 37 0d 73 65 74 6c 66 73 | 20 3d 20 24 66 66 62 61 |7.setlfs| = $ffba|
|00000400| 0d 73 65 74 6e 61 6d 20 | 3d 20 24 66 66 62 64 0d |.setnam |= $ffbd.|
|00000410| 6f 70 65 6e 20 3d 20 24 | 66 66 63 30 0d 63 6c 6f |open = $|ffc0.clo|
|00000420| 73 65 20 3d 20 24 66 66 | 63 33 0d 63 68 6b 69 6e |se = $ff|c3.chkin|
|00000430| 20 3d 20 24 66 66 63 36 | 0d 63 68 6b 6f 75 74 20 | = $ffc6|.chkout |
|00000440| 3d 20 24 66 66 63 39 0d | 63 6c 72 63 68 6e 20 3d |= $ffc9.|clrchn =|
|00000450| 20 24 66 66 63 63 0d 63 | 68 72 69 6e 20 3d 20 24 | $ffcc.c|hrin = $|
|00000460| 66 66 63 66 0d 63 68 72 | 6f 75 74 20 3d 20 24 66 |ffcf.chr|out = $f|
|00000470| 66 64 32 0d 73 74 6f 70 | 20 3d 20 24 66 66 65 31 |fd2.stop| = $ffe1|
|00000480| 0d 63 6c 61 6c 6c 20 3d | 20 24 66 66 65 37 0d 0d |.clall =| $ffe7..|
|00000490| 61 63 63 20 3d 20 24 35 | 61 20 3b 54 4d 50 32 0d |acc = $5|a ;TMP2.|
|000004a0| 61 75 78 20 3d 20 61 63 | 63 2b 32 0d 65 78 74 20 |aux = ac|c+2.ext |
|000004b0| 3d 20 61 75 78 2b 32 20 | 3b 54 4d 50 30 0d 73 74 |= aux+2 |;TMP0.st|
|000004c0| 72 62 75 66 20 3d 20 41 | 44 44 52 53 0d 0d 0d 3b |rbuf = A|DDRS...;|
|000004d0| 20 2a 2a 20 49 4e 49 54 | 49 41 4c 49 5a 41 54 49 | ** INIT|IALIZATI|
|000004e0| 4f 4e 20 2a 2a 0d 53 55 | 50 45 52 20 43 4c 43 0d |ON **.SU|PER CLC.|
|000004f0| 20 3e 3e 3e 20 58 43 45 | 20 3b 4e 41 54 49 56 45 | >>> XCE| ;NATIVE|
|00000500| a0 4d 4f 44 45 0d 20 3e | 3e 3e 20 52 45 50 2c 24 |.MODE. >|>> REP,$|
|00000510| 33 30 20 3b 45 56 45 52 | 59 4f 4e 45 a0 31 36 2d |30 ;EVER|YONE.16-|
|00000520| 42 49 54 53 0d 20 3e 3e | 3e 20 50 45 52 2c 56 42 |BITS. >>|> PER,VB|
|00000530| 52 45 41 4b 0d 20 53 45 | 49 0d 20 50 4c 41 0d 20 |REAK. SE|I. PLA. |
|00000540| 53 54 41 20 42 4b 56 45 | 43 0d 20 3e 3e 3e 20 50 |STA BKVE|C. >>> P|
|00000550| 45 52 2c 42 52 45 41 4b | 0d 20 50 4c 41 0d 20 3e |ER,BREAK|. PLA. >|
|00000560| 3e 3e 20 53 54 41 31 2c | 24 46 43 39 44 20 3b 6e |>> STA1,|$FC9D ;n|
|00000570| 62 72 6b 0d 20 3e 3e 3e | 20 53 54 41 31 2c 24 37 |brk. >>>| STA1,$7|
|00000580| 43 39 44 0d 20 4c 44 41 | 20 23 30 30 0d 20 44 46 |C9D. LDA| #00. DF|
|00000590| 42 20 30 30 0d 20 44 46 | 42 20 24 35 42 20 3b 64 |B 00. DF|B $5B ;d|
|000005a0| 70 a0 2d 3e a0 5a 45 52 | 4f 2d 50 41 47 45 0d 20 |p.->.ZER|O-PAGE. |
|000005b0| 3e 3e 3e 20 53 45 50 2c | 24 33 30 20 3b 45 56 45 |>>> SEP,|$30 ;EVE|
|000005c0| 52 59 4f 4e 45 a0 38 2d | 42 49 54 53 0d 20 3e 3e |RYONE.8-|BITS. >>|
|000005d0| 3e 20 53 54 41 31 2c 24 | 46 43 39 46 20 3b 42 41 |> STA1,$|FC9F ;BA|
|000005e0| 4e 4b a0 30 0d 20 3e 3e | 3e 20 53 54 41 31 2c 24 |NK.0. >>|> STA1,$|
|000005f0| 37 43 39 46 0d 20 43 4c | 49 0d 20 4c 44 41 20 23 |7C9F. CL|I. LDA #|
|00000600| 24 38 30 0d 20 4a 53 52 | 20 53 45 54 4d 53 47 0d |$80. JSR| SETMSG.|
|00000610| 20 53 45 43 0d 20 3e 3e | 3e 20 58 43 45 0d 20 4a | SEC. >>|> XCE. J|
|00000620| 53 52 20 69 6e 69 74 20 | 3b 49 4e 49 54 a0 70 70 |SR init |;INIT.pp|
|00000630| 70 0d 20 42 52 4b 0d 0d | 2a 2d 2d 2d 2d 2d 2d 2d |p. BRK..|*-------|
|00000640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000650| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 2a a0 64 45 42 55 47 |--------|.*.dEBUG|
|00000660| 47 49 4e 47 a0 52 4f 55 | 54 49 4e 45 53 0d 20 44 |GING.ROU|TINES. D|
|00000670| 4f 20 30 0d 44 45 42 55 | 47 31 20 4c 44 41 20 23 |O 0.DEBU|G1 LDA #|
|00000680| 30 30 0d 20 53 54 41 20 | 24 44 30 32 30 0d 20 52 |00. STA |$D020. R|
|00000690| 54 53 0d 0d 44 45 42 55 | 47 32 20 49 4e 43 20 24 |TS..DEBU|G2 INC $|
|000006a0| 44 30 32 30 0d 3a 57 41 | 49 54 20 4a 53 52 20 24 |D020.:WA|IT JSR $|
|000006b0| 46 46 45 34 0d 20 42 45 | 51 20 3a 57 41 49 54 0d |FFE4. BE|Q :WAIT.|
|000006c0| 20 52 54 53 0d 20 46 49 | 4e 0d 0d 2a a0 54 58 54 | RTS. FI|N..*.TXT|
|000006d0| a0 27 41 48 2c a0 4d 4f | 4f 4e a0 4f 46 a0 4d 59 |.'AH,.MO|ON.OF.MY|
|000006e0| a0 44 45 4c 49 47 48 54 | a0 54 48 41 54 a0 4b 4e |.DELIGHT|.THAT.KN|
|000006f0| 4f 57 53 a0 4e 4f a0 57 | 41 4e 45 27 0d 0d 56 42 |OWS.NO.W|ANE'..VB|
|00000700| 52 45 41 4b 20 3b a0 2a | 2a a0 56 45 43 54 4f 52 |REAK ;.*|*.VECTOR|
|00000710| a0 42 52 45 41 4b a0 45 | 4e 54 52 59 a0 2a 2a 0d |.BREAK.E|NTRY.**.|
|00000720| 20 3e 3e 3e 20 50 4c 59 | 0d 20 3e 3e 3e 20 50 4c | >>> PLY|. >>> PL|
|00000730| 58 0d 20 50 4c 41 0d 3b | a0 2a 2a a0 42 52 45 41 |X. PLA.;|.**.BREA|
|00000740| 4b a0 45 4e 54 52 59 a0 | 2a 2a 0d 42 52 45 41 4b |K.ENTRY.|**.BREAK|
|00000750| 0d 20 43 4c 49 0d 20 43 | 4c 43 0d 20 3e 3e 3e 20 |. CLI. C|LC. >>> |
|00000760| 58 43 45 0d 20 3e 3e 3e | 20 52 45 50 2c 24 33 30 |XCE. >>>| REP,$30|
|00000770| 0d 20 3e 3e 3e 20 50 48 | 44 0d 20 50 48 41 0d 20 |. >>> PH|D. PHA. |
|00000780| 4c 44 41 20 23 30 30 0d | 20 44 46 42 20 30 30 0d |LDA #00.| DFB 00.|
|00000790| 20 3e 3e 3e 20 54 43 44 | 20 3b 44 49 52 45 43 54 | >>> TCD| ;DIRECT|
|000007a0| a0 52 45 47 3d 24 30 30 | 30 30 0d 20 53 54 59 20 |.REG=$00|00. STY |
|000007b0| 59 52 0d 20 53 54 58 20 | 58 52 0d 20 50 4c 41 0d |YR. STX |XR. PLA.|
|000007c0| 20 53 54 41 20 41 43 43 | 0d 20 50 4c 41 0d 20 53 | STA ACC|. PLA. S|
|000007d0| 54 41 20 44 50 0d 20 3e | 3e 3e 20 53 45 50 2c 24 |TA DP. >|>> SEP,$|
|000007e0| 33 30 20 3b 45 56 45 52 | 59 4f 4e 45 a0 38 2d 42 |30 ;EVER|YONE.8-B|
|000007f0| 49 54 53 0d 20 52 4f 52 | 20 45 4d 55 4c 20 3b 48 |ITS. ROR| EMUL ;H|
|00000800| 49 47 48 a0 42 49 54 a0 | 3d a0 45 0d 20 48 45 58 |IGH.BIT.|=.E. HEX|
|00000810| 20 41 46 30 31 30 30 30 | 30 20 3b 6c 64 61 a0 24 | AF01000|0 ;lda.$|
|00000820| 30 30 30 30 30 31 0d 20 | 53 54 41 20 4f 48 4f 4e |000001. |STA OHON|
|00000830| 45 0d 20 4f 52 41 20 23 | 24 30 32 0d 20 48 45 58 |E. ORA #|$02. HEX|
|00000840| 20 38 46 30 31 30 30 30 | 30 0d 0d 20 4c 44 41 20 | 8F01000|0.. LDA |
|00000850| 24 44 30 42 32 20 3b 73 | 55 50 45 52 63 70 75 a0 |$D0B2 ;s|UPERcpu.|
|00000860| 53 54 41 54 55 53 a0 52 | 45 47 0d 20 53 54 41 20 |STATUS.R|EG. STA |
|00000870| 53 43 50 55 0d 20 4c 44 | 41 20 24 44 30 42 43 20 |SCPU. LD|A $D0BC |
|00000880| 3b 72 61 6d 6c 49 4e 4b | a0 53 54 41 54 55 53 0d |;ramlINK|.STATUS.|
|00000890| 20 53 54 41 20 24 44 30 | 37 33 20 3b 53 59 53 a0 | STA $D0|73 ;SYS.|
|000008a0| 53 50 45 45 44 a0 54 4f | a0 54 55 52 42 4f 0d 20 |SPEED.TO|.TURBO. |
|000008b0| 53 54 41 20 53 43 50 55 | 2b 31 0d 20 41 4e 44 20 |STA SCPU|+1. AND |
|000008c0| 23 25 30 31 30 30 30 30 | 30 30 0d 20 42 45 51 20 |#%010000|00. BEQ |
|000008d0| 3a 53 4b 49 50 0d 20 53 | 54 41 20 24 44 46 32 30 |:SKIP. S|TA $DF20|
|000008e0| 20 3b 52 4c a0 57 52 54 | 2d 50 52 4f 54 a0 4f 46 | ;RL.WRT|-PROT.OF|
|000008f0| 46 0d 20 53 54 41 20 24 | 44 46 37 46 20 3b 52 4c |F. STA $|DF7F ;RL|
|00000900| a0 48 57 a0 52 45 47 a0 | 4f 55 54 0d 3a 53 4b 49 |.HW.REG.|OUT.:SKI|
|00000910| 50 20 53 54 41 20 24 44 | 30 42 46 20 3b 44 4f 53 |P STA $D|0BF ;DOS|
|00000920| a0 45 58 54 a0 2c 50 44 | 45 a0 50 46 46 0d 20 53 |.EXT.,PD|E.PFF. S|
|00000930| 54 41 20 24 44 30 37 46 | 20 3b 53 43 50 55 a0 48 |TA $D07F| ;SCPU.H|
|00000940| 57 a0 4f 55 54 0d 0d 20 | 3e 3e 3e 20 50 48 42 0d |W.OUT.. |>>> PHB.|
|00000950| 20 50 4c 41 0d 20 53 54 | 41 20 44 42 52 0d 20 50 | PLA. ST|A DBR. P|
|00000960| 4c 41 0d 20 53 54 41 20 | 46 4c 47 53 0d 20 3e 3e |LA. STA |FLGS. >>|
|00000970| 3e 20 52 45 50 2c 24 33 | 30 0d 20 50 4c 41 0d 20 |> REP,$3|0. PLA. |
|00000980| 53 45 43 0d 20 48 45 58 | 20 45 39 30 32 30 30 20 |SEC. HEX| E90200 |
|00000990| 3b 73 62 63 a0 23 30 30 | 30 32 0d 20 53 54 41 20 |;sbc.#00|02. STA |
|000009a0| 50 43 4c 0d 20 3e 3e 3e | 20 53 45 50 2c 24 33 30 |PCL. >>>| SEP,$30|
|000009b0| 0d 20 4c 44 41 20 23 30 | 30 0d 20 4c 44 58 20 45 |. LDA #0|0. LDX E|
|000009c0| 4d 55 4c 0d 20 42 4d 49 | 20 3a 45 4d 55 4c 0d 20 |MUL. BMI| :EMUL. |
|000009d0| 50 4c 41 0d 3a 45 4d 55 | 4c 20 53 54 41 20 50 42 |PLA.:EMU|L STA PB|
|000009e0| 52 0d 20 3e 3e 3e 20 54 | 53 43 0d 20 53 54 41 20 |R. >>> T|SC. STA |
|000009f0| 53 50 0d 20 3e 3e 3e 20 | 58 42 41 0d 20 53 54 41 |SP. >>> |XBA. STA|
|00000a00| 20 53 50 2b 31 0d 20 4c | 44 41 20 50 43 4c 0d 20 | SP+1. L|DA PCL. |
|00000a10| 43 4d 50 20 42 52 4b 41 | 44 44 52 0d 20 42 4e 45 |CMP BRKA|DDR. BNE|
|00000a20| 20 3a 4e 4f 54 42 52 4b | 0d 20 4c 44 41 20 50 43 | :NOTBRK|. LDA PC|
|00000a30| 48 0d 20 53 42 43 20 42 | 52 4b 41 44 44 52 2b 31 |H. SBC B|RKADDR+1|
|00000a40| 0d 20 42 4e 45 20 3a 4e | 4f 54 42 52 4b 0d 20 4c |. BNE :N|OTBRK. L|
|00000a50| 44 41 20 50 42 52 0d 20 | 53 42 43 20 42 52 4b 41 |DA PBR. |SBC BRKA|
|00000a60| 44 44 52 2b 32 0d 20 42 | 4e 45 20 3a 4e 4f 54 42 |DDR+2. B|NE :NOTB|
|00000a70| 52 4b 0d 20 4a 53 52 20 | 47 45 54 50 32 0d 20 4c |RK. JSR |GETP2. L|
|00000a80| 44 41 20 42 52 4b 49 4e | 53 54 0d 20 44 46 42 20 |DA BRKIN|ST. DFB |
|00000a90| 24 38 37 2c 54 4d 50 30 | 20 3b 73 74 61 a0 5b 74 |$87,TMP0| ;sta.[t|
|00000aa0| 6d 70 30 5d 0d 20 4c 44 | 41 20 23 24 46 46 0d 20 |mp0]. LD|A #$FF. |
|00000ab0| 53 54 41 20 42 52 4b 41 | 44 44 52 0d 20 53 54 41 |STA BRKA|DDR. STA|
|00000ac0| 20 42 52 4b 41 44 44 52 | 2b 31 0d 20 53 54 41 20 | BRKADDR|+1. STA |
|00000ad0| 42 52 4b 41 44 44 52 2b | 32 0d 3a 4e 4f 54 42 52 |BRKADDR+|2.:NOTBR|
|00000ae0| 4b 20 4a 53 52 20 43 52 | 4c 46 0d 20 4c 44 58 20 |K JSR CR|LF. LDX |
|00000af0| 23 24 34 32 0d 20 4c 44 | 41 20 23 24 32 41 0d 20 |#$42. LD|A #$2A. |
|00000b00| 4a 53 52 20 57 52 54 57 | 4f 0d 20 4c 44 41 20 23 |JSR WRTW|O. LDA #|
|00000b10| 24 35 32 0d 20 42 4e 45 | 20 53 30 0d 20 3b a0 2a |$52. BNE| S0. ;.*|
|00000b20| 2a a0 50 52 49 4e 54 a0 | 41 44 44 52 45 53 53 45 |*.PRINT.|ADDRESSE|
|00000b30| 53 a0 2a 2a 0d 57 48 45 | 52 45 41 4d 49 20 4c 44 |S.**.WHE|REAMI LD|
|00000b40| 59 20 23 27 4e 27 0d 20 | 4a 53 52 20 41 4c 54 52 |Y #'N'. |JSR ALTR|
|00000b50| 49 54 0d 20 4a 53 52 20 | 53 50 41 43 45 0d 20 3e |IT. JSR |SPACE. >|
|00000b60| 3e 3e 20 50 45 52 2c 53 | 55 50 45 52 0d 20 3e 3e |>> PER,S|UPER. >>|
|00000b70| 3e 20 50 4c 58 0d 20 50 | 4c 41 0d 20 4a 53 52 20 |> PLX. P|LA. JSR |
|00000b80| 57 52 41 58 0d 20 3e 3e | 3e 20 50 45 52 2c 45 4e |WRAX. >>|> PER,EN|
|00000b90| 44 43 4f 44 45 0d 20 3e | 3e 3e 20 50 4c 58 0d 20 |DCODE. >|>> PLX. |
|00000ba0| 50 4c 41 0d 20 4a 53 52 | 20 57 52 41 58 0d 20 3e |PLA. JSR| WRAX. >|
|00000bb0| 3e 3e 20 50 45 52 2c 45 | 4e 44 56 41 52 53 0d 20 |>> PER,E|NDVARS. |
|00000bc0| 3e 3e 3e 20 50 4c 58 0d | 20 50 4c 41 0d 20 4a 53 |>>> PLX.| PLA. JS|
|00000bd0| 52 20 57 52 41 58 0d 20 | 4a 4d 50 20 53 54 52 54 |R WRAX. |JMP STRT|
|00000be0| 0d 20 3b a0 2a 2a a0 57 | 52 49 54 45 a0 31 36 2d |. ;.**.W|RITE.16-|
|00000bf0| 42 49 54 53 a0 49 4e a0 | 78 2c 61 a0 2a 2a 0d 57 |BITS.IN.|x,a.**.W|
|00000c00| 52 41 58 20 53 54 58 20 | 54 4d 50 43 0d 20 4a 53 |RAX STX |TMPC. JS|
|00000c10| 52 20 57 52 4f 42 0d 20 | 4c 44 41 20 54 4d 50 43 |R WROB. |LDA TMPC|
|00000c20| 0d 20 4a 53 52 20 57 52 | 4f 42 0d 20 4a 4d 50 20 |. JSR WR|OB. JMP |
|00000c30| 53 50 41 43 45 0d 3b a0 | 2a 2a a0 49 4e 43 52 45 |SPACE.;.|**.INCRE|
|00000c40| 4d 45 4e 54 a0 54 45 4d | 50 a0 50 4f 49 4e 54 45 |MENT.TEM|P.POINTE|
|00000c50| 52 a0 2a 2a 0d 49 4e 43 | 54 4d 50 20 49 4e 43 20 |R.**.INC|TMP INC |
|00000c60| 54 4d 50 30 0d 20 42 4e | 45 20 53 45 54 57 52 0d |TMP0. BN|E SETWR.|
|00000c70| 20 49 4e 43 20 54 4d 50 | 30 2b 31 0d 20 42 4e 45 | INC TMP|0+1. BNE|
|00000c80| 20 53 45 54 57 52 0d 2a | a0 49 4e 43 a0 57 52 41 | SETWR.*|.INC.WRA|
|00000c90| 50 0d 20 49 4e 43 20 54 | 4d 50 30 2b 32 0d 53 45 |P. INC T|MP0+2.SE|
|00000ca0| 54 57 52 20 52 54 53 0d | 3b a0 2a 2a a0 52 45 41 |TWR RTS.|;.**.REA|
|00000cb0| 44 a0 43 48 41 52 41 43 | 54 45 52 a0 2a 2a 0d 52 |D.CHARAC|TER.**.R|
|00000cc0| 44 4f 43 20 4a 53 52 20 | 52 44 54 0d 20 43 4d 50 |DOC JSR |RDT. CMP|
|00000cd0| 20 23 24 30 44 0d 20 42 | 4e 45 20 53 45 54 57 52 | #$0D. B|NE SETWR|
|00000ce0| 0d 20 50 4c 41 0d 20 50 | 4c 41 0d 3b 20 2a 2a 20 |. PLA. P|LA.; ** |
|00000cf0| 50 52 4f 4d 50 54 20 46 | 4f 52 20 43 4f 4d 4d 41 |PROMPT F|OR COMMA|
|00000d00| 4e 44 20 20 2a 2a 0d 53 | 54 52 54 20 4c 44 41 20 |ND  **.S|TRT LDA |
|00000d10| 23 30 0d 20 53 54 41 20 | 57 52 41 50 0d 20 4c 44 |#0. STA |WRAP. LD|
|00000d20| 58 20 23 24 30 44 0d 20 | 4c 44 41 20 23 24 32 45 |X #$0D. |LDA #$2E|
|00000d30| 0d 20 4a 53 52 20 57 52 | 54 57 4f 0d 3b 20 2a 2a |. JSR WR|TWO.; **|
|00000d40| 20 43 48 45 43 4b 20 49 | 4e 50 55 54 20 43 4f 4d | CHECK I|NPUT COM|
|00000d50| 4d 41 4e 44 20 2a 2a 0d | 53 54 31 20 4a 53 52 20 |MAND **.|ST1 JSR |
|00000d60| 52 44 4f 43 0d 20 43 4d | 50 20 23 24 32 45 0d 20 |RDOC. CM|P #$2E. |
|00000d70| 42 45 51 20 53 54 31 0d | 20 43 4d 50 20 23 24 32 |BEQ ST1.| CMP #$2|
|00000d80| 30 0d 20 42 45 51 20 53 | 54 31 0d 53 30 20 4c 44 |0. BEQ S|T1.S0 LD|
|00000d90| 58 20 23 24 31 41 0d 53 | 31 20 43 4d 50 20 4b 45 |X #$1A.S|1 CMP KE|
|00000da0| 59 57 2c 58 0d 20 42 4e | 45 20 53 32 0d 20 54 58 |YW,X. BN|E S2. TX|
|00000db0| 41 0d 20 41 53 4c 0d 20 | 54 41 58 0d 20 3e 3e 3e |A. ASL. |TAX. >>>|
|00000dc0| 20 50 45 52 2c 53 55 50 | 45 52 0d 20 3e 3e 3e 20 | PER,SUP|ER. >>> |
|00000dd0| 52 45 50 2c 24 32 30 0d | 20 50 4c 41 0d 20 43 4c |REP,$20.| PLA. CL|
|00000de0| 43 0d 20 41 44 43 20 4b | 41 44 44 52 2c 58 0d 20 |C. ADC K|ADDR,X. |
|00000df0| 50 48 41 0d 20 3e 3e 3e | 20 53 45 50 2c 24 33 30 |PHA. >>>| SEP,$30|
|00000e00| 0d 20 52 54 53 0d 53 32 | 20 44 45 58 0d 20 42 50 |. RTS.S2| DEX. BP|
|00000e10| 4c 20 53 31 0d 20 4a 4d | 50 20 45 52 52 4f 52 0d |L S1. JM|P ERROR.|
|00000e20| 20 3b a0 2a 2a a0 48 45 | 4c 50 21 a0 a0 49 a0 4e | ;.**.HE|LP!..I.N|
|00000e30| 45 45 44 a0 53 4f 4d 45 | 42 4f 44 59 a0 2a 2a 0d |EED.SOME|BODY.**.|
|00000e40| 48 45 4c 50 20 4a 53 52 | 20 43 52 4c 46 0d 20 4c |HELP JSR| CRLF. L|
|00000e50| 44 58 20 23 30 30 0d 3a | 4c 4f 4f 50 20 4c 44 41 |DX #00.:|LOOP LDA|
|00000e60| 20 4b 45 59 57 2c 58 0d | 20 42 45 51 20 53 54 52 | KEYW,X.| BEQ STR|
|00000e70| 54 0d 20 4a 53 52 20 57 | 52 54 0d 20 49 4e 58 0d |T. JSR W|RT. INX.|
|00000e80| 20 42 4e 45 20 3a 4c 4f | 4f 50 0d 20 3b a0 2a 2a | BNE :LO|OP. ;.**|
|00000e90| a0 74 4f 47 47 4c 45 a0 | 72 65 70 2f 73 65 70 a0 |.tOGGLE.|rep/sep.|
|00000ea0| 46 4c 41 47 a0 2a 2a 0d | 52 45 50 53 45 50 20 4c |FLAG.**.|REPSEP L|
|00000eb0| 44 41 20 52 45 50 46 4c | 41 47 0d 20 45 4f 52 20 |DA REPFL|AG. EOR |
|00000ec0| 23 24 46 46 0d 20 53 54 | 41 20 52 45 50 46 4c 41 |#$FF. ST|A REPFLA|
|00000ed0| 47 0d 20 54 41 58 0d 20 | 4c 44 41 20 23 33 32 0d |G. TAX. |LDA #32.|
|00000ee0| 20 4a 53 52 20 57 52 54 | 0d 20 4c 44 41 20 23 27 | JSR WRT|. LDA #'|
|00000ef0| 4f 27 0d 20 4a 53 52 20 | 57 52 54 0d 20 4c 44 41 |O'. JSR |WRT. LDA|
|00000f00| 20 23 27 4e 27 0d 20 3e | 3e 3e 20 54 58 59 0d 20 | #'N'. >|>> TXY. |
|00000f10| 42 50 4c 20 3a 53 4b 49 | 50 0d 20 4c 44 41 20 23 |BPL :SKI|P. LDA #|
|00000f20| 27 46 27 0d 20 4a 53 52 | 20 57 52 54 0d 3a 53 4b |'F'. JSR| WRT.:SK|
|00000f30| 49 50 20 4a 53 52 20 57 | 52 54 0d 20 3e 3e 3e 20 |IP JSR W|RT. >>> |
|00000f40| 42 52 41 2c 53 54 52 54 | 0d 3b a0 2a 2a a0 53 45 |BRA,STRT|.;.**.SE|
|00000f50| 54 a0 50 43 a0 41 44 44 | 52 52 45 53 53 a0 2a 2a |T.PC.ADD|RRESS.**|
|00000f60| 0d 50 55 54 50 32 20 4c | 44 41 20 54 4d 50 30 2b |.PUTP2 L|DA TMP0+|
|00000f70| 32 0d 20 53 54 41 20 50 | 42 52 0d 50 55 54 50 20 |2. STA P|BR.PUTP |
|00000f80| 4c 44 41 20 54 4d 50 30 | 0d 20 53 54 41 20 50 43 |LDA TMP0|. STA PC|
|00000f90| 4c 0d 20 4c 44 41 20 54 | 4d 50 30 2b 31 0d 20 53 |L. LDA T|MP0+1. S|
|00000fa0| 54 41 20 50 43 48 0d 20 | 52 54 53 0d 3b a0 2a 2a |TA PCH. |RTS.;.**|
|00000fb0| a0 47 45 54 a0 50 43 a0 | 41 44 44 52 52 45 53 53 |.GET.PC.|ADDRRESS|
|00000fc0| a0 2a 2a 0d 47 45 54 50 | 32 20 4c 44 41 20 50 42 |.**.GETP|2 LDA PB|
|00000fd0| 52 0d 20 53 54 41 20 54 | 4d 50 30 2b 32 0d 47 45 |R. STA T|MP0+2.GE|
|00000fe0| 54 50 20 4c 44 41 20 50 | 43 4c 0d 20 53 54 41 20 |TP LDA P|CL. STA |
|00000ff0| 54 4d 50 30 0d 20 4c 44 | 41 20 50 43 48 0d 20 53 |TMP0. LD|A PCH. S|
|00001000| 54 41 20 54 4d 50 30 2b | 31 0d 20 52 54 53 0d 3b |TA TMP0+|1. RTS.;|
|00001010| a0 2a 2a a0 4d 45 4d 4f | 52 59 a0 44 49 53 50 4c |.**.MEMO|RY.DISPL|
|00001020| 41 59 a0 2a 2a 0d 44 4d | 20 4a 53 52 20 4f 4c 44 |AY.**.DM| JSR OLD|
|00001030| 44 4d 0d 20 4a 53 52 20 | 4d 45 4d 41 44 4a 0d 20 |DM. JSR |MEMADJ. |
|00001040| 4a 4d 50 20 54 4d 50 32 | 50 53 41 56 0d 4f 4c 44 |JMP TMP2|PSAV.OLD|
|00001050| 44 4d 20 4c 44 41 20 23 | 24 30 38 0d 20 53 54 41 |DM LDA #|$08. STA|
|00001060| 20 54 4d 50 43 0d 20 4c | 44 59 20 23 24 46 46 0d | TMPC. L|DY #$FF.|
|00001070| 3a 4c 4f 4f 50 20 4a 53 | 52 20 53 50 41 43 45 0d |:LOOP JS|R SPACE.|
|00001080| 20 49 4e 59 0d 20 4a 53 | 52 20 46 45 54 43 48 59 | INY. JS|R FETCHY|
|00001090| 0d 20 4a 53 52 20 57 52 | 4f 42 0d 20 44 45 43 20 |. JSR WR|OB. DEC |
|000010a0| 54 4d 50 43 0d 20 42 4e | 45 20 3a 4c 4f 4f 50 0d |TMPC. BN|E :LOOP.|
|000010b0| 20 53 54 59 20 4c 45 4e | 47 54 48 0d 20 52 54 53 | STY LEN|GTH. RTS|
|000010c0| 0d 20 3b a0 2a 2a a0 53 | 43 52 45 45 4e a0 43 4f |. ;.**.S|CREEN.CO|
|000010d0| 44 45 a0 44 49 53 50 4c | 41 59 a0 2a 2a 0d 44 53 |DE.DISPL|AY.**.DS|
|000010e0| 43 52 20 4c 44 41 20 23 | 33 32 0d 20 53 54 41 20 |CR LDA #|32. STA |
|000010f0| 54 4d 50 43 0d 20 4c 44 | 59 20 23 24 46 46 0d 3a |TMPC. LD|Y #$FF.:|
|00001100| 4c 4f 4f 50 20 49 4e 59 | 0d 20 4a 53 52 20 46 45 |LOOP INY|. JSR FE|
|00001110| 54 43 48 59 0d 20 4a 53 | 52 20 57 52 53 43 52 0d |TCHY. JS|R WRSCR.|
|00001120| 20 44 45 43 20 54 4d 50 | 43 0d 20 42 4e 45 20 3a | DEC TMP|C. BNE :|
|00001130| 4c 4f 4f 50 0d 20 53 54 | 59 20 4c 45 4e 47 54 48 |LOOP. ST|Y LENGTH|
|00001140| 0d 20 4a 53 52 20 4d 45 | 4d 41 44 4a 0d 20 4a 4d |. JSR ME|MADJ. JM|
|00001150| 50 20 54 4d 50 32 50 53 | 41 56 0d 20 3b a0 2a 2a |P TMP2PS|AV. ;.**|
|00001160| a0 54 45 58 54 a0 44 49 | 53 50 4c 41 59 a0 2a 2a |.TEXT.DI|SPLAY.**|
|00001170| 0d 44 54 20 4c 44 41 20 | 23 24 30 38 0d 20 53 54 |.DT LDA |#$08. ST|
|00001180| 41 20 54 4d 50 43 0d 20 | 4c 44 59 20 23 24 46 46 |A TMPC. |LDY #$FF|
|00001190| 0d 3a 4c 4f 4f 50 20 49 | 4e 59 0d 20 4a 53 52 20 |.:LOOP I|NY. JSR |
|000011a0| 46 45 54 43 48 59 0d 20 | 4a 53 52 20 57 52 54 45 |FETCHY. |JSR WRTE|
|000011b0| 58 54 0d 20 44 45 43 20 | 54 4d 50 43 0d 20 42 4e |XT. DEC |TMPC. BN|
|000011c0| 45 20 3a 4c 4f 4f 50 0d | 20 53 54 59 20 4c 45 4e |E :LOOP.| STY LEN|
|000011d0| 47 54 48 0d 0d 4d 45 4d | 41 44 4a 20 4a 53 52 20 |GTH..MEM|ADJ JSR |
|000011e0| 50 43 41 44 4a 0d 20 53 | 54 41 20 54 4d 50 30 0d |PCADJ. S|TA TMP0.|
|000011f0| 20 53 54 59 20 54 4d 50 | 30 2b 31 0d 20 53 54 58 | STY TMP|0+1. STX|
|00001200| 20 54 4d 50 30 2b 32 0d | 20 52 54 53 0d 3b a0 2a | TMP0+2.| RTS.;.*|
|00001210| 2a a0 43 48 41 4e 47 45 | a0 4d 45 4d 4f 52 59 a0 |*.CHANGE|.MEMORY.|
|00001220| 2a 2a 0d 42 59 54 45 20 | 4a 53 52 20 52 44 4f 42 |**.BYTE |JSR RDOB|
|00001230| 0d 20 42 43 43 20 42 59 | 33 0d 42 59 54 45 53 54 |. BCC BY|3.BYTEST|
|00001240| 20 44 46 42 20 24 38 37 | 2c 54 4d 50 30 20 3b 73 | DFB $87|,TMP0 ;s|
|00001250| 74 61 a0 5b 74 6d 70 30 | 5d 0d 20 44 46 42 20 24 |ta.[tmp0|]. DFB $|
|00001260| 43 37 2c 54 4d 50 30 20 | 3b 63 6d 70 a0 5b 74 6d |C7,TMP0 |;cmp.[tm|
|00001270| 70 30 5d 0d 20 42 45 51 | 20 42 59 33 0d 20 4a 4d |p0]. BEQ| BY3. JM|
|00001280| 50 20 45 52 52 4f 52 0d | 42 59 33 20 4a 53 52 20 |P ERROR.|BY3 JSR |
|00001290| 49 4e 43 54 4d 50 0d 20 | 44 45 43 20 54 4d 50 43 |INCTMP. |DEC TMPC|
|000012a0| 0d 20 52 54 53 0d 20 3b | a0 2a 2a a0 53 54 4f 52 |. RTS. ;|.**.STOR|
|000012b0| 45 a0 41 44 44 52 45 53 | 53 a0 2a 2a 0d 57 4f 52 |E.ADDRES|S.**.WOR|
|000012c0| 44 20 4a 53 52 20 52 44 | 4f 42 0d 20 50 48 41 0d |D JSR RD|OB. PHA.|
|000012d0| 20 4a 53 52 20 42 59 54 | 45 0d 20 50 4c 41 0d 20 | JSR BYT|E. PLA. |
|000012e0| 4a 4d 50 20 42 59 54 45 | 53 54 0d 3b a0 2a 2a a0 |JMP BYTE|ST.;.**.|
|000012f0| 53 45 54 a0 50 43 a0 52 | 45 47 a0 41 44 44 52 53 |SET.PC.R|EG.ADDRS|
|00001300| a0 2a 2a 0d 53 45 54 52 | 20 4c 44 41 20 23 3c 41 |.**.SETR| LDA #<A|
|00001310| 43 43 0d 20 53 54 41 20 | 54 4d 50 30 0d 20 4c 44 |CC. STA |TMP0. LD|
|00001320| 41 20 23 3e 41 43 43 0d | 20 53 54 41 20 54 4d 50 |A #>ACC.| STA TMP|
|00001330| 30 2b 31 0d 20 4c 44 41 | 20 23 30 30 0d 20 53 54 |0+1. LDA| #00. ST|
|00001340| 41 20 54 4d 50 30 2b 32 | 0d 20 4c 44 41 20 23 38 |A TMP0+2|. LDA #8|
|00001350| 0d 20 52 54 53 0d 3b a0 | 2a 2a a0 57 52 49 54 45 |. RTS.;.|**.WRITE|
|00001360| a0 44 49 53 50 4c 41 59 | a0 50 52 4f 4d 50 54 a0 |.DISPLAY|.PROMPT.|
|00001370| 2a 2a 0d 41 4c 54 52 49 | 54 20 3e 3e 3e 20 50 48 |**.ALTRI|T >>> PH|
|00001380| 59 0d 20 4a 53 52 20 43 | 52 4c 46 0d 20 50 4c 41 |Y. JSR C|RLF. PLA|
|00001390| 0d 20 4c 44 58 20 23 24 | 32 45 0d 20 4a 4d 50 20 |. LDX #$|2E. JMP |
|000013a0| 57 52 54 57 4f 0d 20 3b | a0 2a 2a a0 50 52 49 4e |WRTWO. ;|.**.PRIN|
|000013b0| 54 a0 54 45 58 54 a0 2a | 2a 0d 50 52 52 45 47 20 |T.TEXT.*|*.PRREG |
|000013c0| 4c 44 41 20 52 45 47 4b | 2c 58 0d 20 42 45 51 20 |LDA REGK|,X. BEQ |
|000013d0| 3a 44 4f 4e 45 0d 20 4a | 53 52 20 57 52 54 0d 20 |:DONE. J|SR WRT. |
|000013e0| 49 4e 58 0d 20 42 4e 45 | 20 50 52 52 45 47 0d 3a |INX. BNE| PRREG.:|
|000013f0| 44 4f 4e 45 20 4a 4d 50 | 20 41 4c 54 52 49 54 0d |DONE JMP| ALTRIT.|
|00001400| 3b a0 2a 2a 44 49 53 50 | 4c 41 59 a0 52 45 47 49 |;.**DISP|LAY.REGI|
|00001410| 53 54 45 52 53 a0 2a 2a | 0d 44 53 50 4c 59 52 20 |STERS.**|.DSPLYR |
|00001420| 4a 53 52 20 44 49 53 50 | 4c 41 59 52 0d 20 4a 4d |JSR DISP|LAYR. JM|
|00001430| 50 20 53 54 52 54 0d 44 | 49 53 50 4c 41 59 52 20 |P STRT.D|ISPLAYR |
|00001440| 4c 44 58 20 23 30 0d 20 | 4c 44 59 20 23 24 33 42 |LDX #0. |LDY #$3B|
|00001450| 0d 20 4a 53 52 20 50 52 | 52 45 47 0d 20 4c 44 41 |. JSR PR|REG. LDA|
|00001460| 20 23 30 30 0d 20 4c 44 | 59 20 45 4d 55 4c 0d 20 | #00. LD|Y EMUL. |
|00001470| 42 4d 49 20 3a 53 4b 49 | 50 0d 20 4c 44 41 20 50 |BMI :SKI|P. LDA P|
|00001480| 42 52 0d 3a 53 4b 49 50 | 20 4a 53 52 20 57 52 4f |BR.:SKIP| JSR WRO|
|00001490| 42 0d 20 4a 53 52 20 53 | 50 41 43 45 0d 20 4c 44 |B. JSR S|PACE. LD|
|000014a0| 59 20 23 30 30 0d 3a 4c | 4f 4f 50 20 4c 44 41 20 |Y #00.:L|OOP LDA |
|000014b0| 50 43 4c 2b 31 2c 59 0d | 20 4a 53 52 20 57 52 4f |PCL+1,Y.| JSR WRO|
|000014c0| 42 0d 20 4c 44 41 20 50 | 43 4c 2c 59 0d 20 4a 53 |B. LDA P|CL,Y. JS|
|000014d0| 52 20 57 52 4f 42 0d 20 | 4a 53 52 20 53 50 41 43 |R WROB. |JSR SPAC|
|000014e0| 45 0d 20 49 4e 59 0d 20 | 49 4e 59 0d 20 43 50 59 |E. INY. |INY. CPY|
|000014f0| 20 23 31 30 0d 20 42 43 | 43 20 3a 4c 4f 4f 50 0d | #10. BC|C :LOOP.|
|00001500| 20 4c 44 41 20 46 4c 47 | 53 0d 20 4a 53 52 20 57 | LDA FLG|S. JSR W|
|00001510| 52 42 49 4e 0d 20 4c 44 | 41 20 45 4d 55 4c 0d 20 |RBIN. LD|A EMUL. |
|00001520| 41 53 4c 0d 20 4a 4d 50 | 20 57 52 42 49 54 0d 20 |ASL. JMP| WRBIT. |
|00001530| 3b a0 2a 2a a0 44 49 53 | 50 4c 41 59 a0 45 58 54 |;.**.DIS|PLAY.EXT|
|00001540| 52 41 a0 52 45 47 53 0d | 44 49 53 50 52 32 20 4c |RA.REGS.|DISPR2 L|
|00001550| 44 58 20 23 52 45 47 4b | 32 2d 52 45 47 4b 0d 20 |DX #REGK|2-REGK. |
|00001560| 4c 44 59 20 23 27 5e 27 | 0d 20 4a 53 52 20 50 52 |LDY #'^'|. JSR PR|
|00001570| 52 45 47 0d 20 4c 44 41 | 20 44 42 52 0d 20 4a 53 |REG. LDA| DBR. JS|
|00001580| 52 20 57 52 4f 42 0d 20 | 4a 53 52 20 53 50 41 43 |R WROB. |JSR SPAC|
|00001590| 45 0d 20 4c 44 41 20 44 | 50 2b 31 0d 20 4a 53 52 |E. LDA D|P+1. JSR|
|000015a0| 20 57 52 4f 42 0d 20 4c | 44 41 20 44 50 0d 20 4a | WROB. L|DA DP. J|
|000015b0| 53 52 20 57 52 4f 42 0d | 20 4a 53 52 20 53 50 41 |SR WROB.| JSR SPA|
|000015c0| 43 45 0d 20 4c 44 41 20 | 4f 48 4f 4e 45 0d 20 4a |CE. LDA |OHONE. J|
|000015d0| 53 52 20 57 52 4f 42 0d | 20 3e 3e 3e 20 42 52 4c |SR WROB.| >>> BRL|
|000015e0| 2c 41 39 0d 3b a0 2a 2a | a0 44 49 53 50 4c 41 59 |,A9.;.**|.DISPLAY|
|000015f0| a0 4d 45 4d 4f 52 59 2f | 4d 45 4d 2b 54 45 58 54 |.MEMORY/|MEM+TEXT|
|00001600| a0 2a 2a 0d 44 53 50 4c | 59 54 20 4c 44 41 20 23 |.**.DSPL|YT LDA #|
|00001610| 24 46 46 0d 20 44 46 42 | 20 24 32 43 0d 44 53 50 |$FF. DFB| $2C.DSP|
|00001620| 4c 59 4d 20 4c 44 41 20 | 23 24 30 30 0d 20 53 54 |LYM LDA |#$00. ST|
|00001630| 41 20 41 46 4c 47 0d 3a | 52 44 54 20 4a 53 52 20 |A AFLG.:|RDT JSR |
|00001640| 52 44 54 0d 20 43 4d 50 | 20 23 27 2a 27 20 3b 49 |RDT. CMP| #'*' ;I|
|00001650| 2a 0d 20 42 4e 45 20 3a | 43 52 0d 20 41 53 4c 20 |*. BNE :|CR. ASL |
|00001660| 41 46 4c 47 20 3b 24 30 | 30 a0 4f 52 a0 24 46 45 |AFLG ;$0|0.OR.$FE|
|00001670| 0d 20 3e 3e 3e 20 42 52 | 41 2c 3a 52 44 54 0d 3a |. >>> BR|A,:RDT.:|
|00001680| 43 52 20 43 4d 50 20 23 | 24 30 44 0d 20 42 4e 45 |CR CMP #|$0D. BNE|
|00001690| 20 3a 43 30 0d 20 4a 53 | 52 20 50 53 41 56 32 54 | :C0. JS|R PSAV2T|
|000016a0| 4d 50 0d 20 4c 44 41 20 | 23 24 46 46 0d 20 53 54 |MP. LDA |#$FF. ST|
|000016b0| 41 20 54 4d 50 32 0d 20 | 53 54 41 20 54 4d 50 32 |A TMP2. |STA TMP2|
|000016c0| 2b 31 0d 20 53 54 41 20 | 54 4d 50 32 2b 32 0d 20 |+1. STA |TMP2+2. |
|000016d0| 42 4e 45 20 44 53 50 31 | 0d 0d 3a 43 30 20 4a 53 |BNE DSP1|..:C0 JS|
|000016e0| 52 20 52 45 41 44 32 34 | 0d 20 42 43 53 20 3a 43 |R READ24|. BCS :C|
|000016f0| 31 0d 20 43 4d 50 20 23 | 24 30 44 0d 20 42 4e 45 |1. CMP #|$0D. BNE|
|00001700| 20 4d 45 52 52 53 31 0d | 3a 43 31 20 4c 44 58 20 | MERRS1.|:C1 LDX |
|00001710| 54 4d 50 30 0d 20 53 54 | 58 20 54 4d 50 32 0d 20 |TMP0. ST|X TMP2. |
|00001720| 4c 44 58 20 54 4d 50 30 | 2b 31 0d 20 53 54 58 20 |LDX TMP0|+1. STX |
|00001730| 54 4d 50 32 2b 31 0d 20 | 4c 44 58 20 54 4d 50 30 |TMP2+1. |LDX TMP0|
|00001740| 2b 32 0d 20 53 54 58 20 | 54 4d 50 32 2b 32 0d 20 |+2. STX |TMP2+2. |
|00001750| 43 4d 50 20 23 24 30 44 | 0d 20 42 45 51 20 44 53 |CMP #$0D|. BEQ DS|
|00001760| 50 31 0d 20 4a 53 52 20 | 52 45 41 44 32 34 0d 20 |P1. JSR |READ24. |
|00001770| 42 43 43 20 4d 45 52 52 | 53 31 0d 20 4a 53 52 20 |BCC MERR|S1. JSR |
|00001780| 54 32 54 32 0d 0d 44 53 | 50 31 20 4a 53 52 20 53 |T2T2..DS|P1 JSR S|
|00001790| 54 4f 50 31 0d 20 42 45 | 51 20 41 4c 54 4a 4d 50 |TOP1. BE|Q ALTJMP|
|000017a0| 0d 20 4c 44 58 20 57 52 | 41 50 0d 20 42 4e 45 20 |. LDX WR|AP. BNE |
|000017b0| 41 4c 54 4a 4d 50 0d 20 | 4a 53 52 20 44 49 46 46 |ALTJMP. |JSR DIFF|
|000017c0| 50 0d 20 42 43 43 20 41 | 4c 54 4a 4d 50 0d 20 4c |P. BCC A|LTJMP. L|
|000017d0| 44 58 20 41 46 4c 47 0d | 20 42 4d 49 20 3a 54 45 |DX AFLG.| BMI :TE|
|000017e0| 58 54 0d 20 4c 44 59 20 | 23 24 33 41 0d 20 4a 53 |XT. LDY |#$3A. JS|
|000017f0| 52 20 41 4c 54 52 49 54 | 0d 20 4a 53 52 20 57 52 |R ALTRIT|. JSR WR|
|00001800| 4f 41 32 34 0d 20 4a 53 | 52 20 44 4d 0d 20 3e 3e |OA24. JS|R DM. >>|
|00001810| 3e 20 42 52 41 2c 44 53 | 50 31 0d 3a 54 45 58 54 |> BRA,DS|P1.:TEXT|
|00001820| 20 49 4e 58 0d 20 42 4e | 45 20 3a 54 45 58 54 32 | INX. BN|E :TEXT2|
|00001830| 20 3b 49 2a 0d 20 4a 53 | 52 20 43 52 4c 46 0d 20 | ;I*. JS|R CRLF. |
|00001840| 4a 53 52 20 57 52 4f 41 | 32 34 0d 20 4a 53 52 20 |JSR WROA|24. JSR |
|00001850| 4f 4c 44 44 4d 0d 20 4a | 53 52 20 53 50 41 43 45 |OLDDM. J|SR SPACE|
|00001860| 0d 20 4a 53 52 20 44 54 | 0d 3a 42 4c 41 48 0d 20 |. JSR DT|.:BLAH. |
|00001870| 4a 53 52 20 54 4d 50 32 | 50 53 41 56 0d 20 3e 3e |JSR TMP2|PSAV. >>|
|00001880| 3e 20 42 52 41 2c 44 53 | 50 31 0d 3a 54 45 58 54 |> BRA,DS|P1.:TEXT|
|00001890| 32 20 4a 53 52 20 43 52 | 4c 46 0d 20 4a 53 52 20 |2 JSR CR|LF. JSR |
|000018a0| 57 52 4f 41 32 34 0d 20 | 4a 53 52 20 53 50 41 43 |WROA24. |JSR SPAC|
|000018b0| 45 0d 20 4a 53 52 20 44 | 53 43 52 0d 20 42 52 41 |E. JSR D|SCR. BRA|
|000018c0| 20 3a 42 4c 41 48 0d 4d | 45 52 52 53 31 20 4a 4d | :BLAH.M|ERRS1 JM|
|000018d0| 50 20 45 52 52 4f 52 0d | 3b a0 2a 2a a0 41 4c 54 |P ERROR.|;.**.ALT|
|000018e0| 45 52 a0 4d 41 49 4e a0 | 52 45 47 53 a0 2a 2a 0d |ER.MAIN.|REGS.**.|
|000018f0| 41 4c 54 52 20 4a 53 52 | 20 52 44 4f 42 0d 20 42 |ALTR JSR| RDOB. B|
|00001900| 43 43 20 3a 53 4b 49 50 | 31 0d 20 53 54 41 20 50 |CC :SKIP|1. STA P|
|00001910| 42 52 0d 3a 53 4b 49 50 | 31 20 4a 53 52 20 52 44 |BR.:SKIP|1 JSR RD|
|00001920| 4f 43 0d 20 4a 53 52 20 | 52 44 4f 41 0d 20 42 43 |OC. JSR |RDOA. BC|
|00001930| 43 20 3a 53 4b 49 50 32 | 0d 20 4a 53 52 20 50 55 |C :SKIP2|. JSR PU|
|00001940| 54 50 0d 3a 53 4b 49 50 | 32 20 4a 53 52 20 53 45 |TP.:SKIP|2 JSR SE|
|00001950| 54 52 0d 20 53 54 41 20 | 54 4d 50 43 0d 3a 4c 4f |TR. STA |TMPC.:LO|
|00001960| 4f 50 20 4a 53 52 20 52 | 44 4f 43 0d 20 4a 53 52 |OP JSR R|DOC. JSR|
|00001970| 20 57 4f 52 44 0d 20 42 | 4e 45 20 3a 4c 4f 4f 50 | WORD. B|NE :LOOP|
|00001980| 0d 20 4a 53 52 20 52 44 | 4f 43 0d 20 4a 53 52 20 |. JSR RD|OC. JSR |
|00001990| 47 45 54 42 49 54 53 0d | 20 53 54 41 20 46 4c 47 |GETBITS.| STA FLG|
|000019a0| 53 0d 20 4a 53 52 20 47 | 45 54 42 49 54 0d 20 52 |S. JSR G|ETBIT. R|
|000019b0| 4f 52 20 45 4d 55 4c 0d | 20 42 50 4c 20 41 4c 54 |OR EMUL.| BPL ALT|
|000019c0| 4a 4d 50 0d 20 4c 44 41 | 20 46 4c 47 53 0d 20 4f |JMP. LDA| FLGS. O|
|000019d0| 52 41 20 23 24 33 30 0d | 20 53 54 41 20 46 4c 47 |RA #$30.| STA FLG|
|000019e0| 53 0d 41 4c 54 4a 4d 50 | 20 4a 4d 50 20 53 54 52 |S.ALTJMP| JMP STR|
|000019f0| 54 0d 20 3b a0 2a 2a a0 | 41 4c 54 45 52 4e 41 54 |T. ;.**.|ALTERNAT|
|00001a00| 45 a0 52 45 47 53 a0 2a | 2a 0d 41 4c 54 52 32 20 |E.REGS.*|*.ALTR2 |
|00001a10| 4a 53 52 20 52 44 4f 42 | 0d 20 53 54 41 20 44 42 |JSR RDOB|. STA DB|
|00001a20| 52 0d 20 4a 53 52 20 52 | 44 4f 43 0d 20 4a 53 52 |R. JSR R|DOC. JSR|
|00001a30| 20 52 44 4f 42 0d 20 53 | 54 41 20 44 50 2b 31 0d | RDOB. S|TA DP+1.|
|00001a40| 20 4a 53 52 20 52 44 4f | 42 0d 20 53 54 41 20 44 | JSR RDO|B. STA D|
|00001a50| 50 0d 20 4a 53 52 20 52 | 44 4f 43 0d 20 4a 53 52 |P. JSR R|DOC. JSR|
|00001a60| 20 52 44 4f 42 0d 20 42 | 43 43 20 3a 45 58 49 54 | RDOB. B|CC :EXIT|
|00001a70| 0d 20 53 54 41 20 4f 48 | 4f 4e 45 0d 20 4f 52 41 |. STA OH|ONE. ORA|
|00001a80| 20 23 24 30 32 0d 20 48 | 45 58 20 38 46 30 31 30 | #$02. H|EX 8F010|
|00001a90| 30 30 30 0d 3a 45 58 49 | 54 20 4a 4d 50 20 53 54 |000.:EXI|T JMP ST|
|00001aa0| 52 54 0d 20 3b a0 2a 2a | a0 41 4c 54 45 52 a0 4d |RT. ;.**|.ALTER.M|
|00001ab0| 45 4d 4f 52 59 a0 2a 2a | 0d 41 4c 54 4d 20 4a 53 |EMORY.**|.ALTM JS|
|00001ac0| 52 20 52 45 41 44 32 34 | 0d 20 42 43 43 20 45 52 |R READ24|. BCC ER|
|00001ad0| 52 53 32 0d 20 4c 44 41 | 20 23 24 30 38 0d 20 53 |RS2. LDA| #$08. S|
|00001ae0| 54 41 20 54 4d 50 43 0d | 20 42 4e 45 20 3a 4c 4f |TA TMPC.| BNE :LO|
|00001af0| 4f 50 32 20 3b 4b 4c 55 | 44 47 45 0d 3a 4c 4f 4f |OP2 ;KLU|DGE.:LOO|
|00001b00| 50 20 4a 53 52 20 52 44 | 4f 43 0d 3a 4c 4f 4f 50 |P JSR RD|OC.:LOOP|
|00001b10| 32 20 4a 53 52 20 42 59 | 54 45 0d 20 42 4e 45 20 |2 JSR BY|TE. BNE |
|00001b20| 3a 4c 4f 4f 50 0d 41 39 | 20 4a 4d 50 20 53 54 52 |:LOOP.A9| JMP STR|
|00001b30| 54 0d 45 52 52 53 32 20 | 4a 4d 50 20 45 52 52 4f |T.ERRS2 |JMP ERRO|
|00001b40| 52 0d 20 3b a0 2a 2a a0 | 6e 55 4d 42 45 52 a0 43 |R. ;.**.|nUMBER.C|
|00001b50| 4f 4e 56 45 52 53 49 4f | 4e a0 2a 2a 0d 43 4f 4e |ONVERSIO|N.**.CON|
|00001b60| 56 4e 55 4d 20 4a 53 52 | 20 52 44 4f 43 0d 20 43 |VNUM JSR| RDOC. C|
|00001b70| 4d 50 20 23 33 39 20 3b | 27 0d 20 42 4e 45 20 3a |MP #39 ;|'. BNE :|
|00001b80| 4e 55 4d 0d 20 4a 53 52 | 20 52 44 4f 43 0d 20 53 |NUM. JSR| RDOC. S|
|00001b90| 54 41 20 61 63 63 0d 20 | 4c 44 41 20 23 30 30 0d |TA acc. |LDA #00.|
|00001ba0| 20 53 54 41 20 61 63 63 | 2b 31 0d 20 4a 53 52 20 | STA acc|+1. JSR |
|00001bb0| 52 44 54 0d 20 43 4d 50 | 20 23 31 33 0d 20 42 4e |RDT. CMP| #13. BN|
|00001bc0| 45 20 45 52 52 53 32 0d | 20 42 45 51 20 3a 4f 55 |E ERRS2.| BEQ :OU|
|00001bd0| 54 50 55 54 0d 3a 4e 55 | 4d 0d 20 4c 44 59 20 23 |TPUT.:NU|M. LDY #|
|00001be0| 31 30 20 3b 42 41 53 45 | 0d 20 43 4d 50 20 23 27 |10 ;BASE|. CMP #'|
|00001bf0| 24 27 0d 20 42 4e 45 20 | 3a 43 31 0d 20 4c 44 59 |$'. BNE |:C1. LDY|
|00001c00| 20 23 31 36 0d 3a 43 31 | 20 43 4d 50 20 23 27 25 | #16.:C1| CMP #'%|
|00001c10| 27 0d 20 42 4e 45 20 3a | 43 32 0d 20 4c 44 59 20 |'. BNE :|C2. LDY |
|00001c20| 23 32 0d 3a 43 32 20 3e | 3e 3e 20 50 48 59 0d 20 |#2.:C2 >|>> PHY. |
|00001c30| 4c 44 58 20 23 30 30 0d | 20 53 54 58 20 53 41 56 |LDX #00.| STX SAV|
|00001c40| 58 0d 20 43 50 59 20 23 | 31 30 0d 20 42 45 51 20 |X. CPY #|10. BEQ |
|00001c50| 3a 53 54 41 0d 3a 52 45 | 41 44 20 4a 53 52 20 52 |:STA.:RE|AD JSR R|
|00001c60| 44 54 0d 20 4c 44 58 20 | 53 41 56 58 0d 20 43 4d |DT. LDX |SAVX. CM|
|00001c70| 50 20 23 31 33 0d 20 42 | 4e 45 20 3a 53 54 41 0d |P #13. B|NE :STA.|
|00001c80| 20 4c 44 41 20 23 30 30 | 0d 3a 53 54 41 20 53 54 | LDA #00|.:STA ST|
|00001c90| 41 20 41 44 44 52 53 2c | 58 0d 20 49 4e 43 20 53 |A ADDRS,|X. INC S|
|00001ca0| 41 56 58 0d 20 54 41 58 | 0d 20 42 4e 45 20 3a 52 |AVX. TAX|. BNE :R|
|00001cb0| 45 41 44 0d 20 3e 3e 3e | 20 50 4c 59 0d 20 4c 44 |EAD. >>>| PLY. LD|
|00001cc0| 41 20 23 3c 41 44 44 52 | 53 0d 20 4c 44 58 20 23 |A #<ADDR|S. LDX #|
|00001cd0| 3e 41 44 44 52 53 0d 20 | 4a 53 52 20 61 73 63 74 |>ADDRS. |JSR asct|
|00001ce0| 6f 6e 75 6d 0d 20 42 43 | 53 20 45 52 52 53 32 0d |onum. BC|S ERRS2.|
|00001cf0| 3a 4f 55 54 50 55 54 20 | 4c 44 58 20 23 31 33 0d |:OUTPUT |LDX #13.|
|00001d00| 20 4c 44 41 20 23 27 a0 | 27 0d 20 4a 53 52 20 57 | LDA #'.|'. JSR W|
|00001d10| 52 54 57 4f 0d 20 4c 44 | 41 20 61 63 63 0d 20 4c |RTWO. LD|A acc. L|
|00001d20| 44 58 20 61 63 63 2b 31 | 0d 20 53 54 41 20 41 46 |DX acc+1|. STA AF|
|00001d30| 4c 47 0d 20 53 54 58 20 | 41 46 4c 47 2b 31 0d 20 |LG. STX |AFLG+1. |
|00001d40| 4c 44 59 20 23 31 30 0d | 20 4a 53 52 20 70 72 69 |LDY #10.| JSR pri|
|00001d50| 6e 74 6e 75 6d 0d 20 4c | 44 58 20 23 27 a0 27 0d |ntnum. L|DX #'.'.|
|00001d60| 20 4c 44 41 20 23 27 24 | 27 0d 20 4a 53 52 20 57 | LDA #'$|'. JSR W|
|00001d70| 52 54 57 4f 0d 20 4c 44 | 41 20 41 46 4c 47 0d 20 |RTWO. LD|A AFLG. |
|00001d80| 4c 44 58 20 41 46 4c 47 | 2b 31 0d 20 4c 44 59 20 |LDX AFLG|+1. LDY |
|00001d90| 23 31 36 0d 20 4a 53 52 | 20 70 72 69 6e 74 6e 75 |#16. JSR| printnu|
|00001da0| 6d 0d 20 4c 44 58 20 23 | 27 a0 27 0d 20 4c 44 41 |m. LDX #|'.'. LDA|
|00001db0| 20 23 27 25 27 0d 20 4a | 53 52 20 57 52 54 57 4f | #'%'. J|SR WRTWO|
|00001dc0| 0d 20 4c 44 41 20 41 46 | 4c 47 0d 20 4c 44 58 20 |. LDA AF|LG. LDX |
|00001dd0| 41 46 4c 47 2b 31 0d 20 | 4c 44 59 20 23 32 0d 20 |AFLG+1. |LDY #2. |
|00001de0| 4a 53 52 20 70 72 69 6e | 74 6e 75 6d 0d 20 4c 44 |JSR prin|tnum. LD|
|00001df0| 58 20 23 27 a0 27 0d 20 | 4c 44 41 20 23 33 39 0d |X #'.'. |LDA #39.|
|00001e00| 20 4a 53 52 20 57 52 54 | 57 4f 0d 20 4c 44 41 20 | JSR WRT|WO. LDA |
|00001e10| 41 46 4c 47 2b 31 0d 20 | 42 4e 45 20 3a 4a 4d 50 |AFLG+1. |BNE :JMP|
|00001e20| 0d 20 4c 44 41 20 41 46 | 4c 47 0d 20 43 4d 50 20 |. LDA AF|LG. CMP |
|00001e30| 23 33 32 0d 20 42 43 43 | 20 3a 4a 4d 50 0d 20 43 |#32. BCC| :JMP. C|
|00001e40| 4d 50 20 23 31 32 38 0d | 20 42 43 43 20 3a 57 52 |MP #128.| BCC :WR|
|00001e50| 54 0d 20 43 4d 50 20 23 | 31 36 30 0d 20 42 43 43 |T. CMP #|160. BCC|
|00001e60| 20 3a 4a 4d 50 0d 3a 57 | 52 54 20 4a 53 52 20 57 | :JMP.:W|RT JSR W|
|00001e70| 52 54 0d 3a 4a 4d 50 20 | 4a 4d 50 20 53 54 52 54 |RT.:JMP |JMP STRT|
|00001e80| 0d 20 3b a0 2a 2a a0 73 | 45 54 a0 42 52 45 41 4b |. ;.**.s|ET.BREAK|
|00001e90| 50 4f 49 4e 54 0d 53 45 | 54 42 52 4b 20 4a 53 52 |POINT.SE|TBRK JSR|
|00001ea0| 20 52 44 54 0d 20 4a 53 | 52 20 52 45 41 44 32 34 | RDT. JS|R READ24|
|00001eb0| 0d 20 4a 53 52 20 53 45 | 54 42 52 4b 32 0d 20 4a |. JSR SE|TBRK2. J|
|00001ec0| 53 52 20 50 52 4c 49 4e | 45 0d 20 4a 4d 50 20 53 |SR PRLIN|E. JMP S|
|00001ed0| 54 52 54 0d 53 45 54 42 | 52 4b 32 20 4c 44 41 20 |TRT.SETB|RK2 LDA |
|00001ee0| 54 4d 50 30 0d 20 53 54 | 41 20 42 52 4b 41 44 44 |TMP0. ST|A BRKADD|
|00001ef0| 52 0d 20 4c 44 41 20 54 | 4d 50 30 2b 31 0d 20 53 |R. LDA T|MP0+1. S|
|00001f00| 54 41 20 42 52 4b 41 44 | 44 52 2b 31 0d 20 4c 44 |TA BRKAD|DR+1. LD|
|00001f10| 41 20 54 4d 50 30 2b 32 | 0d 20 53 54 41 20 42 52 |A TMP0+2|. STA BR|
|00001f20| 4b 41 44 44 52 2b 32 0d | 20 4a 53 52 20 46 45 54 |KADDR+2.| JSR FET|
|00001f30| 43 48 20 3b 4c 44 41 a0 | 5b 54 4d 50 30 5d 0d 20 |CH ;LDA.|[TMP0]. |
|00001f40| 54 41 59 0d 20 4c 44 41 | 20 23 30 30 0d 20 44 46 |TAY. LDA| #00. DF|
|00001f50| 42 20 24 38 37 2c 54 4d | 50 30 20 3b 53 54 41 a0 |B $87,TM|P0 ;STA.|
|00001f60| 5b 54 4d 50 30 5d 0d 20 | 54 59 41 0d 20 53 54 41 |[TMP0]. |TYA. STA|
|00001f70| 20 42 52 4b 49 4e 53 54 | 0d 20 52 54 53 0d 20 3b | BRKINST|. RTS. ;|
|00001f80| a0 2a 2a a0 63 41 4c 43 | 55 4c 41 54 45 a0 70 63 |.**.cALC|ULATE.pc|
|00001f90| a0 46 4f 52 a0 53 49 4e | 47 4c 45 a0 53 54 45 50 |.FOR.SIN|GLE.STEP|
|00001fa0| a0 2a 2a 0d 43 41 4c 43 | 50 43 0d 20 4a 53 52 20 |.**.CALC|PC. JSR |
|00001fb0| 46 45 54 43 48 0d 20 53 | 54 41 20 4e 45 4d 4f 0d |FETCH. S|TA NEMO.|
|00001fc0| 20 43 4d 50 20 23 24 34 | 43 0d 20 42 4e 45 20 3a | CMP #$4|C. BNE :|
|00001fd0| 43 30 0d 20 4a 4d 50 20 | 3a 4a 4d 50 0d 3a 43 30 |C0. JMP |:JMP.:C0|
|00001fe0| 20 43 4d 50 20 23 24 35 | 43 0d 20 42 4e 45 20 3a | CMP #$5|C. BNE :|
|00001ff0| 43 31 0d 20 4a 4d 50 20 | 3a 4a 4d 4c 0d 3a 43 31 |C1. JMP |:JML.:C1|
|00002000| 20 43 4d 50 20 23 24 36 | 43 0d 20 42 4e 45 20 3a | CMP #$6|C. BNE :|
|00002010| 43 32 0d 20 4a 4d 50 20 | 3a 4a 4d 50 49 0d 3a 43 |C2. JMP |:JMPI.:C|
|00002020| 32 20 43 4d 50 20 23 24 | 37 43 0d 20 42 4e 45 20 |2 CMP #$|7C. BNE |
|00002030| 3a 43 33 0d 20 4a 4d 50 | 20 3a 4a 4d 50 41 58 0d |:C3. JMP| :JMPAX.|
|00002040| 3a 43 33 20 43 4d 50 20 | 23 24 44 43 0d 20 42 4e |:C3 CMP |#$DC. BN|
|00002050| 45 20 3a 43 34 0d 20 4a | 4d 50 20 3a 4a 4d 4c 49 |E :C4. J|MP :JMLI|
|00002060| 0d 3a 43 34 20 43 4d 50 | 20 23 24 46 43 0d 20 42 |.:C4 CMP| #$FC. B|
|00002070| 4e 45 20 3a 43 35 0d 2a | a0 4a 4d 50 a0 3a 4a 53 |NE :C5.*|.JMP.:JS|
|00002080| 52 41 58 0d 20 4a 4d 50 | 20 3a 4e 4f 50 45 0d 3a |RAX. JMP| :NOPE.:|
|00002090| 43 35 20 43 4d 50 20 23 | 24 36 42 0d 20 42 4e 45 |C5 CMP #|$6B. BNE|
|000020a0| 20 3a 43 36 0d 20 4a 4d | 50 20 3a 52 54 4c 0d 3a | :C6. JM|P :RTL.:|
|000020b0| 43 36 20 43 4d 50 20 23 | 24 32 32 0d 20 42 4e 45 |C6 CMP #|$22. BNE|
|000020c0| 20 3a 43 37 0d 20 4a 4d | 50 20 3a 4a 53 4c 0d 3a | :C7. JM|P :JSL.:|
|000020d0| 43 37 20 43 4d 50 20 23 | 24 38 32 0d 20 42 45 51 |C7 CMP #|$82. BEQ|
|000020e0| 20 3a 42 52 4c 0d 20 54 | 41 58 0d 20 41 4e 44 20 | :BRL. T|AX. AND |
|000020f0| 23 24 30 46 0d 20 42 4e | 45 20 3a 4e 4f 50 45 0d |#$0F. BN|E :NOPE.|
|00002100| 20 54 58 41 0d 20 41 4e | 44 20 23 24 31 30 0d 20 | TXA. AN|D #$10. |
|00002110| 42 4e 45 20 3a 42 52 41 | 4e 43 48 0d 20 54 58 41 |BNE :BRA|NCH. TXA|
|00002120| 0d 20 43 4d 50 20 23 24 | 32 30 0d 20 42 4e 45 20 |. CMP #$|20. BNE |
|00002130| 3a 43 38 0d 20 4a 4d 50 | 20 3a 4a 53 52 0d 3a 43 |:C8. JMP| :JSR.:C|
|00002140| 38 20 43 4d 50 20 23 24 | 34 30 0d 20 42 4e 45 20 |8 CMP #$|40. BNE |
|00002150| 3a 43 39 0d 20 4a 4d 50 | 20 3a 52 54 49 0d 3a 43 |:C9. JMP| :RTI.:C|
|00002160| 39 20 43 4d 50 20 23 24 | 36 30 0d 20 42 4e 45 20 |9 CMP #$|60. BNE |
|00002170| 3a 43 31 30 0d 20 4a 4d | 50 20 3a 52 54 53 0d 3a |:C10. JM|P :RTS.:|
|00002180| 43 31 30 20 43 4d 50 20 | 23 24 38 30 0d 20 42 45 |C10 CMP |#$80. BE|
|00002190| 51 20 3a 42 52 41 0d 3a | 4e 4f 50 45 20 54 58 41 |Q :BRA.:|NOPE TXA|
|000021a0| 0d 20 4a 53 52 20 47 45 | 54 4d 49 44 58 0d 20 4a |. JSR GE|TMIDX. J|
|000021b0| 4d 50 20 4d 45 4d 41 44 | 4a 0d 0d 3a 42 52 4c 0d |MP MEMAD|J..:BRL.|
|000021c0| 20 4a 53 52 20 49 4e 43 | 54 4d 50 0d 20 4a 53 52 | JSR INC|TMP. JSR|
|000021d0| 20 46 45 54 43 48 0d 20 | 3e 3e 3e 20 58 42 41 0d | FETCH. |>>> XBA.|
|000021e0| 20 4a 53 52 20 49 4e 43 | 54 4d 50 0d 20 4a 53 52 | JSR INC|TMP. JSR|
|000021f0| 20 46 45 54 43 48 0d 3a | 42 52 4c 32 20 3e 3e 3e | FETCH.:|BRL2 >>>|
|00002200| 20 58 42 41 0d 20 3e 3e | 3e 20 52 45 50 2c 24 32 | XBA. >>|> REP,$2|
|00002210| 30 0d 20 53 45 43 0d 20 | 41 44 43 20 54 4d 50 30 |0. SEC. |ADC TMP0|
|00002220| 0d 20 53 54 41 20 54 4d | 50 30 0d 20 3e 3e 3e 20 |. STA TM|P0. >>> |
|00002230| 53 45 50 2c 24 33 30 0d | 20 52 54 53 0d 3a 42 52 |SEP,$30.| RTS.:BR|
|00002240| 41 4e 43 48 0d 20 43 50 | 58 20 23 24 31 30 0d 20 |ANCH. CP|X #$10. |
|00002250| 42 45 51 20 3a 42 50 4c | 0d 20 43 50 58 20 23 24 |BEQ :BPL|. CPX #$|
|00002260| 33 30 0d 20 42 45 51 20 | 3a 42 4d 49 0d 20 43 50 |30. BEQ |:BMI. CP|
|00002270| 58 20 23 24 35 30 0d 20 | 42 45 51 20 3a 42 56 43 |X #$50. |BEQ :BVC|
|00002280| 0d 20 43 50 58 20 23 24 | 37 30 0d 20 42 45 51 20 |. CPX #$|70. BEQ |
|00002290| 3a 42 56 53 0d 20 43 50 | 58 20 23 24 38 30 0d 20 |:BVS. CP|X #$80. |
|000022a0| 42 45 51 20 3a 42 52 41 | 0d 20 43 50 58 20 23 24 |BEQ :BRA|. CPX #$|
|000022b0| 39 30 0d 20 42 45 51 20 | 3a 42 43 43 0d 20 43 50 |90. BEQ |:BCC. CP|
|000022c0| 58 20 23 24 42 30 0d 20 | 42 45 51 20 3a 42 43 53 |X #$B0. |BEQ :BCS|
|000022d0| 0d 20 43 50 58 20 23 24 | 44 30 0d 20 42 45 51 20 |. CPX #$|D0. BEQ |
|000022e0| 3a 42 4e 45 0d 3a 42 45 | 51 20 4c 44 41 20 23 24 |:BNE.:BE|Q LDA #$|
|000022f0| 30 32 0d 20 44 46 42 20 | 24 32 43 0d 3a 42 43 53 |02. DFB |$2C.:BCS|
|00002300| 20 4c 44 41 20 23 24 30 | 31 0d 20 44 46 42 20 24 | LDA #$0|1. DFB $|
|00002310| 32 43 0d 3a 42 56 53 20 | 4c 44 41 20 23 24 34 30 |2C.:BVS |LDA #$40|
|00002320| 0d 20 44 46 42 20 24 32 | 43 0d 3a 42 4d 49 20 4c |. DFB $2|C.:BMI L|
|00002330| 44 41 20 23 24 38 30 0d | 20 41 4e 44 20 46 4c 47 |DA #$80.| AND FLG|
|00002340| 53 0d 20 42 4e 45 20 3a | 42 52 41 0d 20 4a 4d 50 |S. BNE :|BRA. JMP|
|00002350| 20 3a 4e 4f 50 45 0d 3a | 42 52 41 20 4a 53 52 20 | :NOPE.:|BRA JSR |
|00002360| 49 4e 43 54 4d 50 0d 20 | 4a 53 52 20 46 45 54 43 |INCTMP. |JSR FETC|
|00002370| 48 0d 20 42 50 4c 20 3a | 50 4f 53 0d 20 3e 3e 3e |H. BPL :|POS. >>>|
|00002380| 20 58 42 41 0d 20 4c 44 | 41 20 23 24 46 46 0d 20 | XBA. LD|A #$FF. |
|00002390| 42 4e 45 20 3a 42 52 4c | 32 0d 3a 50 4f 53 20 3e |BNE :BRL|2.:POS >|
|000023a0| 3e 3e 20 58 42 41 0d 20 | 4c 44 41 20 23 30 30 0d |>> XBA. |LDA #00.|
|000023b0| 20 42 45 51 20 3a 42 52 | 4c 32 0d 0d 3a 42 4e 45 | BEQ :BR|L2..:BNE|
|000023c0| 20 4c 44 41 20 23 24 30 | 32 0d 20 44 46 42 20 24 | LDA #$0|2. DFB $|
|000023d0| 32 43 0d 3a 42 43 43 20 | 4c 44 41 20 23 24 30 31 |2C.:BCC |LDA #$01|
|000023e0| 0d 20 44 46 42 20 24 32 | 43 0d 3a 42 56 43 20 4c |. DFB $2|C.:BVC L|
|000023f0| 44 41 20 23 24 34 30 0d | 20 44 46 42 20 24 32 43 |DA #$40.| DFB $2C|
|00002400| 0d 3a 42 50 4c 20 4c 44 | 41 20 23 24 38 30 0d 20 |.:BPL LD|A #$80. |
|00002410| 41 4e 44 20 46 4c 47 53 | 0d 20 42 45 51 20 3a 42 |AND FLGS|. BEQ :B|
|00002420| 52 41 0d 20 4a 4d 50 20 | 3a 4e 4f 50 45 0d 0d 3a |RA. JMP |:NOPE..:|
|00002430| 4a 53 52 41 58 0d 3a 4a | 4d 50 41 58 20 4a 53 52 |JSRAX.:J|MPAX JSR|
|00002440| 20 3a 4a 4d 50 0d 20 4c | 44 41 20 58 52 0d 20 43 | :JMP. L|DA XR. C|
|00002450| 4c 43 0d 20 41 44 43 20 | 54 4d 50 30 0d 20 53 54 |LC. ADC |TMP0. ST|
|00002460| 41 20 54 4d 50 30 0d 20 | 4c 44 41 20 58 52 2b 31 |A TMP0. |LDA XR+1|
|00002470| 0d 20 41 44 43 20 54 4d | 50 30 2b 31 0d 20 53 54 |. ADC TM|P0+1. ST|
|00002480| 41 20 54 4d 50 30 2b 31 | 0d 20 42 43 43 20 3a 4a |A TMP0+1|. BCC :J|
|00002490| 4d 50 32 0d 20 49 4e 43 | 20 54 4d 50 30 2b 32 0d |MP2. INC| TMP0+2.|
|000024a0| 20 42 43 53 20 3a 4a 4d | 50 32 0d 0d 3a 4a 4d 50 | BCS :JM|P2..:JMP|
|000024b0| 49 20 4a 53 52 20 3a 4a | 4d 50 0d 20 4a 4d 50 20 |I JSR :J|MP. JMP |
|000024c0| 3a 4a 4d 50 32 0d 3a 4a | 4d 4c 49 20 4a 53 52 20 |:JMP2.:J|MLI JSR |
|000024d0| 3a 4a 4d 50 0d 20 44 45 | 43 20 4e 45 4d 4f 20 3b |:JMP. DE|C NEMO ;|
|000024e0| 2d 3e a0 24 46 46 0d 20 | 42 4e 45 20 3a 4a 4d 50 |->.$FF. |BNE :JMP|
|000024f0| 32 0d 3a 4a 53 4c 0d 3a | 4a 4d 4c 20 4c 44 58 20 |2.:JSL.:|JML LDX |
|00002500| 23 24 46 46 0d 20 44 46 | 42 20 24 32 43 0d 3a 4a |#$FF. DF|B $2C.:J|
|00002510| 53 52 0d 3a 4a 4d 50 20 | 4c 44 58 20 23 30 0d 20 |SR.:JMP |LDX #0. |
|00002520| 53 54 58 20 4e 45 4d 4f | 0d 20 4a 53 52 20 49 4e |STX NEMO|. JSR IN|
|00002530| 43 54 4d 50 0d 3a 4a 4d | 50 32 20 4a 53 52 20 46 |CTMP.:JM|P2 JSR F|
|00002540| 45 54 43 48 0d 20 50 48 | 41 0d 20 4a 53 52 20 49 |ETCH. PH|A. JSR I|
|00002550| 4e 43 54 4d 50 0d 20 4a | 53 52 20 46 45 54 43 48 |NCTMP. J|SR FETCH|
|00002560| 0d 20 4c 44 58 20 4e 45 | 4d 4f 0d 20 42 50 4c 20 |. LDX NE|MO. BPL |
|00002570| 3a 53 54 41 31 0d 20 50 | 48 41 0d 20 4a 53 52 20 |:STA1. P|HA. JSR |
|00002580| 49 4e 43 54 4d 50 0d 20 | 4a 53 52 20 46 45 54 43 |INCTMP. |JSR FETC|
|00002590| 48 0d 20 53 54 41 20 54 | 4d 50 30 2b 32 0d 20 50 |H. STA T|MP0+2. P|
|000025a0| 4c 41 0d 3a 53 54 41 31 | 20 53 54 41 20 54 4d 50 |LA.:STA1| STA TMP|
|000025b0| 30 2b 31 0d 20 50 4c 41 | 0d 20 53 54 41 20 54 4d |0+1. PLA|. STA TM|
|000025c0| 50 30 0d 20 52 54 53 0d | 0d 3a 52 54 53 20 4c 44 |P0. RTS.|.:RTS LD|
|000025d0| 58 20 23 30 31 0d 20 44 | 46 42 20 24 32 43 0d 3a |X #01. D|FB $2C.:|
|000025e0| 52 54 4c 20 4c 44 58 20 | 23 30 30 0d 3a 52 54 4c |RTL LDX |#00.:RTL|
|000025f0| 32 20 53 54 58 20 4e 45 | 4d 4f 0d 20 3e 3e 3e 20 |2 STX NE|MO. >>> |
|00002600| 52 45 50 2c 24 31 30 0d | 20 4c 44 58 20 53 50 0d |REP,$10.| LDX SP.|
|00002610| 20 41 53 4c 20 4e 45 4d | 4f 0d 20 42 43 43 20 3a | ASL NEM|O. BCC :|
|00002620| 4c 44 41 20 3b 61 4c 53 | 4f a0 53 45 54 a0 42 59 |LDA ;aLS|O.SET.BY|
|00002630| a0 72 74 69 0d 20 49 4e | 58 0d 20 43 4c 43 0d 3a |.rti. IN|X. CLC.:|
|00002640| 4c 44 41 20 4c 44 41 20 | 24 30 30 30 31 2c 58 0d |LDA LDA |$0001,X.|
|00002650| 20 41 44 43 20 23 31 0d | 20 53 54 41 20 54 4d 50 | ADC #1.| STA TMP|
|00002660| 30 0d 20 4c 44 41 20 24 | 30 30 30 32 2c 58 0d 20 |0. LDA $|0002,X. |
|00002670| 41 44 43 20 23 30 30 0d | 20 53 54 41 20 54 4d 50 |ADC #00.| STA TMP|
|00002680| 30 2b 31 0d 20 4c 44 41 | 20 50 42 52 0d 20 53 54 |0+1. LDA| PBR. ST|
|00002690| 41 20 54 4d 50 30 2b 32 | 0d 20 4c 44 41 20 4e 45 |A TMP0+2|. LDA NE|
|000026a0| 4d 4f 0d 20 42 4e 45 20 | 3a 4f 4b 0d 20 4c 44 41 |MO. BNE |:OK. LDA|
|000026b0| 20 24 30 30 30 33 2c 58 | 0d 20 41 44 43 20 23 30 | $0003,X|. ADC #0|
|000026c0| 30 0d 20 53 54 41 20 54 | 4d 50 30 2b 32 0d 3a 4f |0. STA T|MP0+2.:O|
|000026d0| 4b 20 3e 3e 3e 20 53 45 | 50 2c 24 33 30 0d 20 52 |K >>> SE|P,$30. R|
|000026e0| 54 53 0d 0d 3a 52 54 49 | 20 4c 44 58 20 23 24 38 |TS..:RTI| LDX #$8|
|000026f0| 31 0d 20 4c 44 41 20 45 | 4d 55 4c 0d 20 42 4d 49 |1. LDA E|MUL. BMI|
|00002700| 20 3a 52 54 4c 32 0d 20 | 44 45 58 0d 20 42 4e 45 | :RTL2. |DEX. BNE|
|00002710| 20 3a 52 54 4c 32 0d 0d | 20 3b a0 2a 2a a0 73 49 | :RTL2..| ;.**.sI|
|00002720| 4e 47 4c 45 a0 53 54 45 | 50 a0 2a 2a 0d 53 49 4e |NGLE.STE|P.**.SIN|
|00002730| 47 53 54 45 50 20 4c 44 | 41 20 23 30 30 0d 20 44 |GSTEP LD|A #00. D|
|00002740| 46 42 20 24 32 43 0d 3b | a0 2a 2a a0 2e 47 4f a0 |FB $2C.;|.**..GO.|
|00002750| 2a 2a 0d 47 4f 20 4c 44 | 41 20 23 24 46 46 0d 20 |**.GO LD|A #$FF. |
|00002760| 50 48 41 0d 20 4a 53 52 | 20 52 44 54 0d 20 43 4d |PHA. JSR| RDT. CM|
|00002770| 50 20 23 24 30 44 0d 20 | 42 45 51 20 3a 47 31 0d |P #$0D. |BEQ :G1.|
|00002780| 20 43 4d 50 20 23 24 32 | 30 0d 20 42 4e 45 20 45 | CMP #$2|0. BNE E|
|00002790| 52 52 53 33 0d 20 4a 53 | 52 20 52 45 41 44 32 34 |RRS3. JS|R READ24|
|000027a0| 0d 20 4a 53 52 20 50 55 | 54 50 32 0d 3a 47 31 20 |. JSR PU|TP2.:G1 |
|000027b0| 50 4c 41 0d 20 42 4d 49 | 20 3a 4e 4f 42 52 4b 0d |PLA. BMI| :NOBRK.|
|000027c0| 20 4a 53 52 20 47 45 54 | 50 32 0d 20 4a 53 52 20 | JSR GET|P2. JSR |
|000027d0| 43 41 4c 43 50 43 0d 20 | 4a 53 52 20 53 45 54 42 |CALCPC. |JSR SETB|
|000027e0| 52 4b 32 0d 3a 4e 4f 42 | 52 4b 20 53 54 41 20 24 |RK2.:NOB|RK STA $|
|000027f0| 44 30 37 45 20 3b 52 45 | 53 54 4f 52 45 a0 73 63 |D07E ;RE|STORE.sc|
|00002800| 70 75 a0 53 54 55 46 46 | 0d 20 4c 44 41 20 53 43 |pu.STUFF|. LDA SC|
|00002810| 50 55 2b 31 20 3b 44 4f | 53 a0 45 58 54 a0 2b a0 |PU+1 ;DO|S.EXT.+.|
|00002820| 52 4c a0 53 54 41 54 55 | 53 0d 20 53 54 41 20 24 |RL.STATU|S. STA $|
|00002830| 44 30 42 43 0d 20 41 4e | 44 20 23 24 34 30 0d 20 |D0BC. AN|D #$40. |
|00002840| 42 45 51 20 3a 53 4b 49 | 50 0d 20 53 54 41 20 24 |BEQ :SKI|P. STA $|
|00002850| 44 46 37 45 0d 3a 53 4b | 49 50 20 4c 44 41 20 53 |DF7E.:SK|IP LDA S|
|00002860| 43 50 55 0d 20 53 54 41 | 20 24 44 30 42 32 0d 0d |CPU. STA| $D0B2..|
|00002870| 20 4c 44 41 20 44 42 52 | 0d 20 50 48 41 0d 20 3e | LDA DBR|. PHA. >|
|00002880| 3e 3e 20 50 4c 42 0d 20 | 4a 53 52 20 47 45 54 53 |>> PLB. |JSR GETS|
|00002890| 50 0d 20 3e 3e 3e 20 54 | 43 53 0d 20 53 45 49 0d |P. >>> T|CS. SEI.|
|000028a0| 20 4c 44 41 20 4f 48 4f | 4e 45 0d 20 48 45 58 20 | LDA OHO|NE. HEX |
|000028b0| 38 46 30 31 30 30 30 30 | 0d 20 41 53 4c 20 45 4d |8F010000|. ASL EM|
|000028c0| 55 4c 0d 20 42 43 53 20 | 3a 45 4d 55 4c 0d 20 4c |UL. BCS |:EMUL. L|
|000028d0| 44 41 20 50 42 52 0d 20 | 50 48 41 0d 3a 45 4d 55 |DA PBR. |PHA.:EMU|
|000028e0| 4c 20 4c 44 41 20 50 43 | 48 0d 20 50 48 41 0d 20 |L LDA PC|H. PHA. |
|000028f0| 4c 44 41 20 50 43 4c 0d | 20 50 48 41 0d 20 4c 44 |LDA PCL.| PHA. LD|
|00002900| 41 20 46 4c 47 53 0d 20 | 50 48 41 0d 20 3e 3e 3e |A FLGS. |PHA. >>>|
|00002910| 20 52 45 50 2c 24 33 30 | 0d 20 4c 44 41 20 44 50 | REP,$30|. LDA DP|
|00002920| 0d 20 50 48 41 0d 20 4c | 44 41 20 41 43 43 0d 20 |. PHA. L|DA ACC. |
|00002930| 4c 44 58 20 58 52 0d 20 | 4c 44 59 20 59 52 0d 20 |LDX XR. |LDY YR. |
|00002940| 3e 3e 3e 20 50 4c 44 0d | 20 3e 3e 3e 20 58 43 45 |>>> PLD.| >>> XCE|
|00002950| 0d 20 52 54 49 0d 45 52 | 52 53 33 20 4a 4d 50 20 |. RTI.ER|RS3 JMP |
|00002960| 45 52 52 4f 52 0d 3b a0 | 2a 2a a0 42 41 43 4b a0 |ERROR.;.|**.BACK.|
|00002970| 54 4f a0 42 41 53 49 43 | a0 2a 2a 0d 45 58 49 54 |TO.BASIC|.**.EXIT|
|00002980| 20 4a 53 52 20 47 45 54 | 53 50 0d 20 3e 3e 3e 20 | JSR GET|SP. >>> |
|00002990| 54 43 53 0d 20 4c 44 41 | 20 31 30 32 30 20 3b 65 |TCS. LDA| 1020 ;e|
|000029a0| 4c a0 43 48 45 41 50 4f | a0 43 48 45 43 4b 0d 20 |L.CHEAPO|.CHECK. |
|000029b0| 43 4d 50 20 23 24 35 43 | 0d 20 42 4e 45 20 3a 53 |CMP #$5C|. BNE :S|
|000029c0| 45 43 0d 20 4a 4d 50 20 | 31 30 32 30 0d 3a 53 45 |EC. JMP |1020.:SE|
|000029d0| 43 20 53 45 43 0d 20 3e | 3e 3e 20 58 43 45 0d 20 |C SEC. >|>> XCE. |
|000029e0| 4a 4d 50 20 28 52 45 41 | 44 59 29 0d 20 3b a0 2a |JMP (REA|DY). ;.*|
|000029f0| 2a a0 52 45 41 44 a0 31 | a0 4f 52 a0 32 a0 28 44 |*.READ.1|.OR.2.(D|
|00002a00| 45 43 49 4d 41 4c 29 a0 | 43 48 41 52 53 a0 2a 2a |ECIMAL).|CHARS.**|
|00002a10| 0d 52 45 41 44 31 32 20 | 4a 53 52 20 52 44 4f 43 |.READ12 |JSR RDOC|
|00002a20| 0d 20 4a 53 52 20 44 45 | 43 49 54 0d 20 53 54 41 |. JSR DE|CIT. STA|
|00002a30| 20 41 43 4d 44 0d 20 4a | 53 52 20 52 44 54 0d 20 | ACMD. J|SR RDT. |
|00002a40| 43 4d 50 20 23 24 32 43 | 0d 20 42 45 51 20 3a 53 |CMP #$2C|. BEQ :S|
|00002a50| 4b 49 50 0d 20 43 4d 50 | 20 23 24 30 44 0d 20 42 |KIP. CMP| #$0D. B|
|00002a60| 45 51 20 3a 53 4b 49 50 | 0d 20 4a 53 52 20 44 45 |EQ :SKIP|. JSR DE|
|00002a70| 43 49 54 0d 20 4c 44 58 | 20 41 43 4d 44 0d 20 42 |CIT. LDX| ACMD. B|
|00002a80| 45 51 20 3a 44 4f 4e 45 | 0d 20 43 4c 43 0d 3a 4c |EQ :DONE|. CLC.:L|
|00002a90| 31 20 41 44 43 20 23 31 | 30 0d 20 44 45 58 0d 20 |1 ADC #1|0. DEX. |
|00002aa0| 42 4e 45 20 3a 4c 31 0d | 3a 44 4f 4e 45 20 53 54 |BNE :L1.|:DONE ST|
|00002ab0| 41 20 41 43 4d 44 0d 20 | 4a 53 52 20 52 44 54 0d |A ACMD. |JSR RDT.|
|00002ac0| 3a 53 4b 49 50 20 4c 44 | 58 20 41 43 4d 44 0d 20 |:SKIP LD|X ACMD. |
|00002ad0| 52 54 53 0d 0d 20 3b a0 | 2a 2a a0 53 45 4e 44 a0 |RTS.. ;.|**.SEND.|
|00002ae0| 44 49 53 4b a0 43 4f 4d | 4d 41 4e 44 a0 2a 2a 0d |DISK.COM|MAND.**.|
|00002af0| 44 49 53 4b 43 4d 44 20 | 4a 53 52 20 52 44 54 0d |DISKCMD |JSR RDT.|
|00002b00| 20 43 4d 50 20 23 27 24 | 27 0d 20 42 45 51 20 3a | CMP #'$|'. BEQ :|
|00002b10| 44 49 52 0d 20 43 4d 50 | 20 23 31 33 0d 20 42 45 |DIR. CMP| #13. BE|
|00002b20| 51 20 3a 45 52 43 48 41 | 4e 0d 20 43 4d 50 20 23 |Q :ERCHA|N. CMP #|
|00002b30| 27 23 27 0d 20 42 4e 45 | 20 3a 53 45 4e 44 43 4d |'#'. BNE| :SENDCM|
|00002b40| 44 0d 20 4a 53 52 20 52 | 45 41 44 31 32 20 3b 47 |D. JSR R|EAD12 ;G|
|00002b50| 45 54 a0 44 45 56 49 43 | 45 a0 4e 55 4d 42 45 52 |ET.DEVIC|E.NUMBER|
|00002b60| 0d 20 53 54 58 20 46 41 | 0d 20 4a 4d 50 20 53 54 |. STX FA|. JMP ST|
|00002b70| 52 54 0d 0d 3a 44 49 52 | 20 4a 53 52 20 52 44 54 |RT..:DIR| JSR RDT|
|00002b80| 0d 20 43 4d 50 20 23 31 | 33 0d 20 42 4e 45 20 3a |. CMP #1|3. BNE :|
|00002b90| 45 52 52 0d 20 4a 53 52 | 20 70 72 69 6e 74 64 69 |ERR. JSR| printdi|
|00002ba0| 72 0d 20 4a 4d 50 20 53 | 54 52 54 0d 0d 3a 45 52 |r. JMP S|TRT..:ER|
|00002bb0| 52 20 4a 4d 50 20 45 52 | 52 4f 52 0d 0d 3a 45 52 |R JMP ER|ROR..:ER|
|00002bc0| 43 48 41 4e 20 4a 53 52 | 20 67 65 74 65 72 72 0d |CHAN JSR| geterr.|
|00002bd0| 20 4a 4d 50 20 53 54 52 | 54 0d 0d 3a 53 45 4e 44 | JMP STR|T..:SEND|
|00002be0| 43 4d 44 20 4c 44 58 20 | 23 30 30 0d 20 53 54 58 |CMD LDX |#00. STX|
|00002bf0| 20 41 43 4d 44 0d 3a 4c | 4f 4f 50 20 4c 44 58 20 | ACMD.:L|OOP LDX |
|00002c00| 41 43 4d 44 0d 20 53 54 | 41 20 73 74 72 62 75 66 |ACMD. ST|A strbuf|
|00002c10| 2c 58 0d 20 49 4e 43 20 | 41 43 4d 44 0d 20 4a 53 |,X. INC |ACMD. JS|
|00002c20| 52 20 52 44 54 0d 20 43 | 4d 50 20 23 31 33 0d 20 |R RDT. C|MP #13. |
|00002c30| 42 4e 45 20 3a 4c 4f 4f | 50 0d 20 4c 44 58 20 41 |BNE :LOO|P. LDX A|
|00002c40| 43 4d 44 0d 20 4c 44 41 | 20 23 30 30 0d 20 53 54 |CMD. LDA| #00. ST|
|00002c50| 41 20 73 74 72 62 75 66 | 2c 58 0d 20 4a 53 52 20 |A strbuf|,X. JSR |
|00002c60| 73 65 6e 64 63 6d 64 0d | 20 4a 4d 50 20 53 54 52 |sendcmd.| JMP STR|
|00002c70| 54 0d 0d 0d 2a 0d 2a a0 | 64 49 53 4b a0 52 4f 55 |T...*.*.|dISK.ROU|
|00002c80| 54 49 4e 45 53 0d 2a 0d | 2a a0 70 72 69 6e 74 64 |TINES.*.|*.printd|
|00002c90| 69 72 a0 52 45 41 44 53 | a0 54 48 45 a0 44 49 52 |ir.READS|.THE.DIR|
|00002ca0| 45 43 54 4f 52 59 a0 46 | 52 4f 4d a0 54 48 45 a0 |ECTORY.F|ROM.THE.|
|00002cb0| 43 55 52 52 45 4e 54 a0 | 44 45 56 49 43 45 0d 2a |CURRENT.|DEVICE.*|
|00002cc0| a0 41 4e 44 a0 50 52 49 | 4e 54 53 a0 49 54 a0 54 |.AND.PRI|NTS.IT.T|
|00002cd0| 4f a0 54 48 45 a0 53 43 | 52 45 45 4e 2e 0d 2a 0d |O.THE.SC|REEN..*.|
|00002ce0| 70 72 69 6e 74 64 69 72 | 0d 20 6c 64 61 20 23 30 |printdir|. lda #0|
|00002cf0| 31 20 3b 66 49 4c 45 a0 | 4e 4f 2e 0d 20 6c 64 78 |1 ;fILE.|NO.. ldx|
|00002d00| 20 24 62 61 20 3b 63 55 | 52 52 45 4e 54 a0 44 45 | $ba ;cU|RRENT.DE|
|00002d10| 56 49 43 45 a0 4e 55 4d | 42 45 52 0d 20 6c 64 79 |VICE.NUM|BER. ldy|
|00002d20| 20 23 30 30 20 3b 73 45 | 43 4f 4e 44 41 52 59 a0 | #00 ;sE|CONDARY.|
|00002d30| 41 44 44 52 45 53 53 0d | 20 6a 73 72 20 73 65 74 |ADDRESS.| jsr set|
|00002d40| 6c 66 73 0d 20 6c 64 61 | 20 23 27 24 27 0d 20 73 |lfs. lda| #'$'. s|
|00002d50| 74 61 20 41 44 44 52 53 | 0d 20 6c 64 61 20 23 31 |ta ADDRS|. lda #1|
|00002d60| 0d 20 6c 64 78 20 23 3c | 41 44 44 52 53 0d 20 6c |. ldx #<|ADDRS. l|
|00002d70| 64 79 20 23 3e 41 44 44 | 52 53 0d 20 6a 73 72 20 |dy #>ADD|RS. jsr |
|00002d80| 73 65 74 6e 61 6d 0d 20 | 6a 73 72 20 6f 70 65 6e |setnam. |jsr open|
|00002d90| 0d 20 6c 64 78 20 23 30 | 31 0d 20 6a 73 72 20 63 |. ldx #0|1. jsr c|
|00002da0| 68 6b 69 6e 0d 20 62 63 | 73 20 3a 65 6e 64 20 3b |hkin. bc|s :end ;|
|00002db0| 65 52 52 4f 52 a0 49 46 | a0 43 41 52 52 59 a0 53 |eRROR.IF|.CARRY.S|
|00002dc0| 45 54 0d 0d 20 6a 73 72 | 20 63 68 72 69 6e 20 3b |ET.. jsr| chrin ;|
|00002dd0| 67 52 41 42 a0 4c 4f 41 | 44 a0 41 44 44 52 45 53 |gRAB.LOA|D.ADDRES|
|00002de0| 53 0d 20 6a 73 72 20 63 | 68 72 69 6e 0d 3a 6c 6f |S. jsr c|hrin.:lo|
|00002df0| 6f 70 31 20 6c 64 61 20 | 23 31 33 0d 20 6a 73 72 |op1 lda |#13. jsr|
|00002e00| 20 63 68 72 6f 75 74 0d | 20 6a 73 72 20 63 68 72 | chrout.| jsr chr|
|00002e10| 69 6e 20 3b 6c 49 4e 45 | a0 4c 49 4e 4b 0d 20 6a |in ;lINE|.LINK. j|
|00002e20| 73 72 20 63 68 72 69 6e | 0d 20 6a 73 72 20 63 68 |sr chrin|. jsr ch|
|00002e30| 72 69 6e 20 3b 6c 49 4e | 45 a0 4e 55 4d 42 45 52 |rin ;lIN|E.NUMBER|
|00002e40| a0 28 46 49 4c 45 a0 53 | 49 5a 45 29 0d 20 74 61 |.(FILE.S|IZE). ta|
|00002e50| 79 0d 20 6a 73 72 20 63 | 68 72 69 6e 0d 20 74 61 |y. jsr c|hrin. ta|
|00002e60| 78 0d 20 6a 73 72 20 72 | 65 61 64 73 74 0d 20 62 |x. jsr r|eadst. b|
|00002e70| 6e 65 20 3a 65 6e 64 0d | 20 74 79 61 0d 20 6c 64 |ne :end.| tya. ld|
|00002e80| 79 20 23 31 30 20 3b 62 | 41 53 45 0d 20 6a 73 72 |y #10 ;b|ASE. jsr|
|00002e90| 20 70 72 69 6e 74 6e 75 | 6d 20 3b 70 52 49 4e 54 | printnu|m ;pRINT|
|00002ea0| a0 4f 55 54 a0 54 48 45 | a0 4e 55 4d 42 45 52 a0 |.OUT.THE|.NUMBER.|
|00002eb0| 49 4e a0 78 2c 79 0d 20 | 6c 64 61 20 23 33 32 0d |IN.x,y. |lda #32.|
|00002ec0| 20 6a 73 72 20 63 68 72 | 6f 75 74 20 3b 61 44 44 | jsr chr|out ;aDD|
|00002ed0| a0 41 a0 53 50 41 43 45 | a0 54 4f a0 4c 4f 4f 4b |.A.SPACE|.TO.LOOK|
|00002ee0| a0 4e 49 43 45 0d 3a 6c | 6f 6f 70 32 20 6a 73 72 |.NICE.:l|oop2 jsr|
|00002ef0| 20 63 68 72 69 6e 0d 20 | 74 61 78 0d 20 62 65 71 | chrin. |tax. beq|
|00002f00| 20 3a 73 74 6f 70 0d 20 | 6a 73 72 20 63 68 72 6f | :stop. |jsr chro|
|00002f10| 75 74 0d 20 62 6e 65 20 | 3a 6c 6f 6f 70 32 0d 3a |ut. bne |:loop2.:|
|00002f20| 73 74 6f 70 20 6a 73 72 | 20 73 74 6f 70 0d 20 62 |stop jsr| stop. b|
|00002f30| 6e 65 20 3a 6c 6f 6f 70 | 31 0d 3a 65 6e 64 20 6c |ne :loop|1.:end l|
|00002f40| 64 61 20 23 30 31 0d 20 | 6a 73 72 20 63 6c 6f 73 |da #01. |jsr clos|
|00002f50| 65 0d 20 6a 6d 70 20 63 | 6c 72 63 68 6e 0d 0d 2a |e. jmp c|lrchn..*|
|00002f60| 0d 2a a0 73 65 6e 64 63 | 6d 64 a0 53 45 4e 44 53 |.*.sendc|md.SENDS|
|00002f70| a0 41 a0 43 4f 4d 4d 41 | 4e 44 a0 54 4f a0 54 48 |.A.COMMA|ND.TO.TH|
|00002f80| 45 a0 43 55 52 52 45 4e | 54 a0 44 52 49 56 45 0d |E.CURREN|T.DRIVE.|
|00002f90| 2a a0 63 4f 4d 4d 41 4e | 44 a0 43 4f 4e 54 41 49 |*.cOMMAN|D.CONTAI|
|00002fa0| 4e 45 44 a0 49 4e a0 73 | 74 72 62 75 66 0d 2a 0d |NED.IN.s|trbuf.*.|
|00002fb0| 73 65 6e 64 63 6d 64 0d | 20 6c 64 61 20 23 24 30 |sendcmd.| lda #$0|
|00002fc0| 66 0d 20 6c 64 78 20 24 | 62 61 0d 20 6c 64 79 20 |f. ldx $|ba. ldy |
|00002fd0| 23 24 30 66 0d 20 6a 73 | 72 20 73 65 74 6c 66 73 |#$0f. js|r setlfs|
|00002fe0| 0d 20 6c 64 61 20 23 30 | 30 0d 20 6a 73 72 20 73 |. lda #0|0. jsr s|
|00002ff0| 65 74 6e 61 6d 0d 20 6a | 73 72 20 6f 70 65 6e 0d |etnam. j|sr open.|
|00003000| 20 62 63 73 20 3a 65 72 | 72 6f 72 0d 20 6c 64 78 | bcs :er|ror. ldx|
|00003010| 20 23 24 30 66 0d 20 6a | 73 72 20 63 68 6b 6f 75 | #$0f. j|sr chkou|
|00003020| 74 0d 20 6c 64 79 20 23 | 30 30 0d 3a 6c 6f 6f 70 |t. ldy #|00.:loop|
|00003030| 20 6c 64 61 20 73 74 72 | 62 75 66 2c 79 0d 20 62 | lda str|buf,y. b|
|00003040| 65 71 20 3a 65 72 72 6f | 72 0d 20 6a 73 72 20 63 |eq :erro|r. jsr c|
|00003050| 68 72 6f 75 74 0d 20 69 | 6e 79 0d 20 62 6e 65 20 |hrout. i|ny. bne |
|00003060| 3a 6c 6f 6f 70 0d 0d 3a | 65 72 72 6f 72 20 6a 73 |:loop..:|error js|
|00003070| 72 20 63 6c 72 63 68 6e | 0d 20 6c 64 61 20 23 24 |r clrchn|. lda #$|
|00003080| 30 66 0d 20 6a 73 72 20 | 63 6c 6f 73 65 0d 20 6a |0f. jsr |close. j|
|00003090| 6d 70 20 63 6c 72 63 68 | 6e 0d 0d 2a 0d 2a a0 67 |mp clrch|n..*.*.g|
|000030a0| 65 74 65 72 72 a0 50 52 | 49 4e 54 53 a0 54 48 45 |eterr.PR|INTS.THE|
|000030b0| a0 45 52 52 4f 52 a0 4d | 45 53 53 41 47 45 a0 46 |.ERROR.M|ESSAGE.F|
|000030c0| 52 4f 4d a0 54 48 45 a0 | 43 55 52 52 45 4e 54 a0 |ROM.THE.|CURRENT.|
|000030d0| 44 49 53 4b a0 44 52 49 | 56 45 2e 0d 2a 0d 67 65 |DISK.DRI|VE..*.ge|
|000030e0| 74 65 72 72 0d 20 6c 64 | 61 20 23 31 33 0d 20 6a |terr. ld|a #13. j|
|000030f0| 73 72 20 63 68 72 6f 75 | 74 0d 2a 0d 2a a0 74 48 |sr chrou|t.*.*.tH|
|00003100| 49 53 a0 4d 45 54 48 4f | 44 a0 49 53 a0 41 a0 42 |IS.METHO|D.IS.A.B|
|00003110| 49 54 a0 46 41 53 54 45 | 52 a0 4f 4e a0 4f 55 54 |IT.FASTE|R.ON.OUT|
|00003120| 50 55 54 a0 54 4f a0 53 | 43 52 45 45 4e 2e 0d 2a |PUT.TO.S|CREEN..*|
|00003130| 0d 20 6a 73 72 20 6f 70 | 65 6e 65 72 72 0d 20 62 |. jsr op|enerr. b|
|00003140| 63 73 20 67 65 74 65 78 | 69 74 0d 67 65 74 65 72 |cs getex|it.geter|
|00003150| 72 32 0d 3a 6c 6f 6f 70 | 20 6a 73 72 20 63 68 72 |r2.:loop| jsr chr|
|00003160| 69 6e 0d 20 63 6d 70 20 | 23 24 30 64 0d 20 62 65 |in. cmp |#$0d. be|
|00003170| 71 20 67 65 74 65 78 69 | 74 0d 20 6a 73 72 20 63 |q getexi|t. jsr c|
|00003180| 68 72 6f 75 74 0d 20 62 | 6e 65 20 3a 6c 6f 6f 70 |hrout. b|ne :loop|
|00003190| 0d 67 65 74 65 78 69 74 | 20 6a 73 72 20 63 68 72 |.getexit| jsr chr|
|000031a0| 6f 75 74 0d 20 6a 73 72 | 20 63 68 72 6f 75 74 20 |out. jsr| chrout |
|000031b0| 3b 6f 4e 45 a0 4d 4f 52 | 45 a0 54 4f a0 4c 4f 4f |;oNE.MOR|E.TO.LOO|
|000031c0| 4b a0 4e 49 43 45 0d 20 | 6c 64 61 20 23 31 35 0d |K.NICE. |lda #15.|
|000031d0| 20 6a 73 72 20 63 6c 6f | 73 65 0d 20 6a 6d 70 20 | jsr clo|se. jmp |
|000031e0| 63 6c 72 63 68 6e 0d 0d | 6f 70 65 6e 65 72 72 0d |clrchn..|openerr.|
|000031f0| 20 6c 64 61 20 23 24 63 | 30 20 3b 6b 45 52 4e 41 | lda #$c|0 ;kERNA|
|00003200| 4c a0 4d 53 47 a0 4f 4e | 0d 20 73 74 61 20 24 39 |L.MSG.ON|. sta $9|
|00003210| 30 0d 0d 20 6c 64 61 20 | 23 24 30 66 0d 20 6c 64 |0.. lda |#$0f. ld|
|00003220| 78 20 24 62 61 0d 20 6c | 64 79 20 23 24 30 66 0d |x $ba. l|dy #$0f.|
|00003230| 20 6a 73 72 20 73 65 74 | 6c 66 73 0d 20 6c 64 61 | jsr set|lfs. lda|
|00003240| 20 23 30 30 0d 20 6a 73 | 72 20 73 65 74 6e 61 6d | #00. js|r setnam|
|00003250| 0d 20 6a 73 72 20 6f 70 | 65 6e 0d 20 6c 64 61 20 |. jsr op|en. lda |
|00003260| 23 30 30 0d 20 73 74 61 | 20 24 39 30 0d 20 62 63 |#00. sta| $90. bc|
|00003270| 73 20 3a 65 72 72 6f 72 | 0d 20 6c 64 78 20 23 24 |s :error|. ldx #$|
|00003280| 30 66 0d 20 6a 6d 70 20 | 63 68 6b 69 6e 20 3b 63 |0f. jmp |chkin ;c|
|00003290| 41 52 52 59 a0 43 4c 45 | 41 52 a0 2d 3e a0 6f 6b |ARRY.CLE|AR.->.ok|
|000032a0| 0d 3a 65 72 72 6f 72 20 | 6c 64 61 20 23 31 33 0d |.:error |lda #13.|
|000032b0| 20 73 65 63 0d 20 72 74 | 73 0d 0d 2a 2d 2d 2d 2d | sec. rt|s..*----|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 3b a0 2a |--------|---..;.*|
|000032e0| 2a a0 4c 4f 41 44 2f 53 | 41 56 45 a0 2a 2a 0d 4c |*.LOAD/S|AVE.**.L|
|000032f0| 44 20 4c 44 59 20 23 31 | 0d 20 53 54 59 20 46 41 |D LDY #1|. STY FA|
|00003300| 0d 20 53 54 59 20 57 54 | 59 50 45 0d 20 44 45 59 |. STY WT|YPE. DEY|
|00003310| 0d 20 53 54 59 20 46 4e | 4c 45 4e 0d 20 53 54 59 |. STY FN|LEN. STY|
|00003320| 20 53 41 54 55 53 0d 20 | 53 54 59 20 4c 56 46 4c | SATUS. |STY LVFL|
|00003330| 41 47 0d 20 4c 44 41 20 | 23 3c 41 44 44 52 53 0d |AG. LDA |#<ADDRS.|
|00003340| 20 53 54 41 20 46 4e 41 | 44 52 0d 20 4c 44 41 20 | STA FNA|DR. LDA |
|00003350| 23 3e 41 44 44 52 53 0d | 20 53 54 41 20 46 4e 41 |#>ADDRS.| STA FNA|
|00003360| 44 52 2b 31 0d 20 4a 53 | 52 20 47 45 54 43 48 41 |DR+1. JS|R GETCHA|
|00003370| 52 0d 20 43 4d 50 20 23 | 24 30 44 0d 20 42 45 51 |R. CMP #|$0D. BEQ|
|00003380| 20 4c 35 0d 20 43 4d 50 | 20 23 24 32 32 0d 20 42 | L5. CMP| #$22. B|
|00003390| 4e 45 20 45 52 52 4c 0d | 4c 33 20 4a 53 52 20 52 |NE ERRL.|L3 JSR R|
|000033a0| 44 54 0d 20 43 4d 50 20 | 23 24 32 32 0d 20 42 45 |DT. CMP |#$22. BE|
|000033b0| 51 20 4c 38 0d 20 43 4d | 50 20 23 24 30 44 0d 20 |Q L8. CM|P #$0D. |
|000033c0| 42 45 51 20 4c 35 0d 20 | 53 54 41 20 28 46 4e 41 |BEQ L5. |STA (FNA|
|000033d0| 44 52 29 2c 59 0d 20 49 | 4e 43 20 46 4e 4c 45 4e |DR),Y. I|NC FNLEN|
|000033e0| 0d 20 49 4e 59 0d 20 43 | 50 59 20 23 24 31 30 0d |. INY. C|PY #$10.|
|000033f0| 20 42 4e 45 20 4c 33 0d | 45 52 52 4c 20 4a 4d 50 | BNE L3.|ERRL JMP|
|00003400| 20 45 52 52 4f 52 0d 4c | 38 20 4a 53 52 20 52 44 | ERROR.L|8 JSR RD|
|00003410| 54 0d 20 43 4d 50 20 23 | 24 30 44 0d 20 42 45 51 |T. CMP #|$0D. BEQ|
|00003420| 20 4c 35 0d 20 43 4d 50 | 20 23 24 32 43 0d 20 42 | L5. CMP| #$2C. B|
|00003430| 4e 45 20 45 52 52 4c 0d | 20 4a 53 52 20 52 45 41 |NE ERRL.| JSR REA|
|00003440| 44 31 32 0d 20 50 48 41 | 0d 20 54 58 41 0d 20 41 |D12. PHA|. TXA. A|
|00003450| 4e 44 20 23 24 30 46 0d | 20 42 45 51 20 45 52 52 |ND #$0F.| BEQ ERR|
|00003460| 4c 0d 20 43 4d 50 20 23 | 24 30 33 0d 20 42 45 51 |L. CMP #|$03. BEQ|
|00003470| 20 45 52 52 4c 0d 20 53 | 54 41 20 46 41 0d 20 50 | ERRL. S|TA FA. P|
|00003480| 4c 41 0d 20 43 4d 50 20 | 23 24 30 44 0d 20 42 45 |LA. CMP |#$0D. BE|
|00003490| 51 20 4c 35 0d 20 43 4d | 50 20 23 24 32 43 0d 20 |Q L5. CM|P #$2C. |
|000034a0| 42 4e 45 20 45 52 52 4c | 0d 20 4a 53 52 20 52 45 |BNE ERRL|. JSR RE|
|000034b0| 41 44 32 34 0d 20 42 43 | 43 20 45 52 52 4c 0d 20 |AD24. BC|C ERRL. |
|000034c0| 44 45 43 20 57 54 59 50 | 45 0d 20 4c 44 58 20 24 |DEC WTYP|E. LDX $|
|000034d0| 46 37 45 35 20 3b 43 48 | 45 43 4b a0 46 4f 52 a0 |F7E5 ;CH|ECK.FOR.|
|000034e0| 32 34 2d 42 49 54 a0 4c | 4f 41 44 2f 53 41 56 45 |24-BIT.L|OAD/SAVE|
|000034f0| 0d 20 43 50 58 20 23 24 | 39 31 0d 20 42 45 51 20 |. CPX #$|91. BEQ |
|00003500| 3a 43 4f 4e 54 0d 20 44 | 45 43 20 57 54 59 50 45 |:CONT. D|EC WTYPE|
|00003510| 20 3b 24 46 46 0d 20 4c | 44 58 20 54 4d 50 30 2b | ;$FF. L|DX TMP0+|
|00003520| 32 0d 20 53 54 58 20 24 | 42 30 20 3b 42 41 4e 4b |2. STX $|B0 ;BANK|
|00003530| 0d 3a 43 4f 4e 54 20 43 | 4d 50 20 23 24 30 44 0d |.:CONT C|MP #$0D.|
|00003540| 4c 35 20 52 54 53 0d 4c | 4f 41 44 20 4a 53 52 20 |L5 RTS.L|OAD JSR |
|00003550| 4c 44 0d 20 42 4e 45 20 | 45 52 52 4c 0d 20 4c 44 |LD. BNE |ERRL. LD|
|00003560| 41 20 57 54 59 50 45 0d | 20 50 48 41 0d 20 4c 44 |A WTYPE.| PHA. LD|
|00003570| 58 20 54 4d 50 30 0d 20 | 4c 44 59 20 54 4d 50 30 |X TMP0. |LDY TMP0|
|00003580| 2b 31 0d 20 4c 44 41 20 | 23 30 30 0d 20 4a 53 52 |+1. LDA |#00. JSR|
|00003590| 20 4b 4c 4f 41 44 0d 20 | 42 43 53 20 3a 42 59 45 | KLOAD. |BCS :BYE|
|000035a0| 0d 20 4a 53 52 20 53 50 | 41 43 45 0d 20 4c 44 41 |. JSR SP|ACE. LDA|
|000035b0| 20 23 27 24 27 0d 20 4a | 53 52 20 57 52 54 0d 20 | #'$'. J|SR WRT. |
|000035c0| 50 4c 41 0d 20 42 4d 49 | 20 3a 43 31 0d 20 4c 44 |PLA. BMI| :C1. LD|
|000035d0| 41 20 24 43 33 0d 20 53 | 54 41 20 54 4d 50 30 0d |A $C3. S|TA TMP0.|
|000035e0| 20 4c 44 41 20 24 43 34 | 0d 20 53 54 41 20 54 4d | LDA $C4|. STA TM|
|000035f0| 50 30 2b 31 0d 20 4c 44 | 41 20 23 24 30 30 0d 20 |P0+1. LD|A #$00. |
|00003600| 53 54 41 20 54 4d 50 30 | 2b 32 0d 3a 43 31 20 4a |STA TMP0|+2.:C1 J|
|00003610| 53 52 20 57 52 4f 41 32 | 34 0d 20 4c 44 41 20 23 |SR WROA2|4. LDA #|
|00003620| 27 2d 27 0d 20 4a 53 52 | 20 57 52 54 0d 20 4c 44 |'-'. JSR| WRT. LD|
|00003630| 58 20 24 42 30 0d 20 4c | 44 41 20 24 41 46 0d 20 |X $B0. L|DA $AF. |
|00003640| 4a 53 52 20 57 52 48 45 | 58 0d 20 4c 44 41 20 24 |JSR WRHE|X. LDA $|
|00003650| 41 45 0d 20 4a 53 52 20 | 57 52 4f 42 0d 3a 42 59 |AE. JSR |WROB.:BY|
|00003660| 45 20 4a 4d 50 20 53 54 | 52 54 0d 53 41 56 45 20 |E JMP ST|RT.SAVE |
|00003670| 4a 53 52 20 4c 44 0d 20 | 43 4d 50 20 23 24 32 43 |JSR LD. |CMP #$2C|
|00003680| 0d 20 42 4e 45 20 3a 45 | 52 52 4c 0d 20 4a 53 52 |. BNE :E|RRL. JSR|
|00003690| 20 54 32 54 32 0d 20 4a | 53 52 20 52 45 41 44 32 | T2T2. J|SR READ2|
|000036a0| 34 0d 20 42 43 43 20 3a | 45 52 52 4c 0d 20 43 4d |4. BCC :|ERRL. CM|
|000036b0| 50 20 23 24 30 44 0d 20 | 42 4e 45 20 3a 45 52 52 |P #$0D. |BNE :ERR|
|000036c0| 4c 0d 20 4c 44 41 20 24 | 46 37 45 35 20 3b 43 48 |L. LDA $|F7E5 ;CH|
|000036d0| 45 43 4b a0 46 4f 52 a0 | 32 34 2d 42 49 54 a0 4c |ECK.FOR.|24-BIT.L|
|000036e0| 4f 41 44 2f 53 41 56 45 | 0d 20 43 4d 50 20 23 24 |OAD/SAVE|. CMP #$|
|000036f0| 39 31 0d 20 42 45 51 20 | 3a 43 4f 4e 54 0d 20 4c |91. BEQ |:CONT. L|
|00003700| 44 41 20 54 4d 50 30 2b | 32 0d 20 53 54 41 20 24 |DA TMP0+|2. STA $|
|00003710| 41 42 20 3b 42 41 4e 4b | 0d 3a 43 4f 4e 54 20 4c |AB ;BANK|.:CONT L|
|00003720| 44 58 20 54 4d 50 30 0d | 20 4c 44 59 20 54 4d 50 |DX TMP0.| LDY TMP|
|00003730| 30 2b 31 0d 20 4c 44 41 | 20 23 54 4d 50 32 0d 20 |0+1. LDA| #TMP2. |
|00003740| 4a 53 52 20 4b 53 41 56 | 45 0d 20 4a 4d 50 20 53 |JSR KSAV|E. JMP S|
|00003750| 54 52 54 0d 3a 45 52 52 | 4c 20 4a 4d 50 20 45 52 |TRT.:ERR|L JMP ER|
|00003760| 52 4f 52 0d 20 3b a0 2a | 2a a0 50 52 49 4e 54 a0 |ROR. ;.*|*.PRINT.|
|00003770| 54 45 58 54 a0 43 48 41 | 52 a0 2a 2a 0d 57 52 54 |TEXT.CHA|R.**.WRT|
|00003780| 45 58 54 20 43 4d 50 20 | 23 33 32 0d 20 42 43 43 |EXT CMP |#32. BCC|
|00003790| 20 3a 5a 41 50 0d 20 43 | 4d 50 20 23 31 32 38 0d | :ZAP. C|MP #128.|
|000037a0| 20 42 43 43 20 3a 4f 4b | 0d 20 43 4d 50 20 23 31 | BCC :OK|. CMP #1|
|000037b0| 36 30 0d 20 42 43 53 20 | 3a 4f 4b 0d 3a 5a 41 50 |60. BCS |:OK.:ZAP|
|000037c0| 20 4c 44 41 20 23 27 2e | 27 0d 3a 4f 4b 20 4a 4d | LDA #'.|'.:OK JM|
|000037d0| 50 20 57 52 54 0d 20 3b | a0 2a 2a a0 50 52 49 4e |P WRT. ;|.**.PRIN|
|000037e0| 54 a0 41 53 a0 53 43 52 | 45 45 4e a0 43 4f 44 45 |T.AS.SCR|EEN.CODE|
|000037f0| a0 2a 2a 0d 57 52 53 43 | 52 20 54 41 58 0d 20 42 |.**.WRSC|R TAX. B|
|00003800| 50 4c 20 3a 43 31 0d 20 | 49 4e 43 20 24 43 37 20 |PL :C1. |INC $C7 |
|00003810| 3b 52 56 53 a0 4f 4e 0d | 3a 43 31 20 54 58 41 0d |;RVS.ON.|:C1 TXA.|
|00003820| 20 41 4e 44 20 23 24 37 | 46 0d 20 45 4f 52 20 23 | AND #$7|F. EOR #|
|00003830| 33 32 20 3b 63 4f 4e 56 | 45 52 54 a0 54 4f a0 43 |32 ;cONV|ERT.TO.C|
|00003840| 48 52 24 0d 20 43 4c 43 | 0d 20 41 44 43 20 23 33 |HR$. CLC|. ADC #3|
|00003850| 32 0d 20 43 4d 50 20 23 | 39 36 20 3b 42 4c 45 41 |2. CMP #|96 ;BLEA|
|00003860| 48 0d 20 42 43 43 20 3a | 57 52 54 0d 20 45 4f 52 |H. BCC :|WRT. EOR|
|00003870| 20 23 24 45 30 0d 20 42 | 50 4c 20 3a 57 52 54 0d | #$E0. B|PL :WRT.|
|00003880| 20 45 4f 52 20 23 33 32 | 0d 3a 57 52 54 20 4a 53 | EOR #32|.:WRT JS|
|00003890| 52 20 57 52 54 0d 20 44 | 46 42 20 24 36 34 2c 24 |R WRT. D|FB $64,$|
|000038a0| 43 37 20 3b 73 74 7a a0 | 24 43 37 0d 20 52 54 53 |C7 ;stz.|$C7. RTS|
|000038b0| 0d 3b a0 2a 2a a0 50 52 | 49 4e 54 a0 48 45 58 a0 |.;.**.PR|INT.HEX.|
|000038c0| 42 59 54 45 a0 2a 2a 0d | 57 52 4f 41 32 34 20 4c |BYTE.**.|WROA24 L|
|000038d0| 44 41 20 54 4d 50 30 2b | 32 0d 20 4a 53 52 20 57 |DA TMP0+|2. JSR W|
|000038e0| 52 4f 42 0d 57 52 4f 41 | 20 4c 44 41 20 54 4d 50 |ROB.WROA| LDA TMP|
|000038f0| 30 2b 31 0d 20 4a 53 52 | 20 57 52 4f 42 0d 20 4c |0+1. JSR| WROB. L|
|00003900| 44 41 20 54 4d 50 30 0d | 57 52 4f 42 20 50 48 41 |DA TMP0.|WROB PHA|
|00003910| 0d 20 4c 53 52 20 41 0d | 20 4c 53 52 20 41 0d 20 |. LSR A.| LSR A. |
|00003920| 4c 53 52 20 41 0d 20 4c | 53 52 20 41 0d 20 4a 53 |LSR A. L|SR A. JS|
|00003930| 52 20 41 53 43 49 49 0d | 20 54 41 58 0d 20 50 4c |R ASCII.| TAX. PL|
|00003940| 41 0d 20 41 4e 44 20 23 | 24 30 46 0d 20 4a 53 52 |A. AND #|$0F. JSR|
|00003950| 20 41 53 43 49 49 0d 3b | 20 2a 2a 20 50 52 49 4e | ASCII.;| ** PRIN|
|00003960| 54 20 54 57 4f 20 43 48 | 41 52 53 20 2a 2a 0d 57 |T TWO CH|ARS **.W|
|00003970| 52 54 57 4f 20 50 48 41 | 0d 20 54 58 41 0d 20 4a |RTWO PHA|. TXA. J|
|00003980| 53 52 20 57 52 54 0d 20 | 50 4c 41 0d 20 4a 4d 50 |SR WRT. |PLA. JMP|
|00003990| 20 57 52 54 0d 20 3b a0 | 2a 2a a0 50 52 49 4e 54 | WRT. ;.|**.PRINT|
|000039a0| a0 48 45 58 a0 41 44 44 | 52 45 53 53 a0 2a 2a 0d |.HEX.ADD|RESS.**.|
|000039b0| 57 52 48 45 58 20 50 48 | 41 0d 20 4c 44 41 20 23 |WRHEX PH|A. LDA #|
|000039c0| 27 24 27 0d 20 4a 53 52 | 20 57 52 54 0d 20 54 58 |'$'. JSR| WRT. TX|
|000039d0| 41 0d 20 4a 53 52 20 57 | 52 4f 42 0d 20 50 4c 41 |A. JSR W|ROB. PLA|
|000039e0| 0d 20 4a 4d 50 20 57 52 | 4f 42 0d 3b a0 2a 2a a0 |. JMP WR|OB.;.**.|
|000039f0| 43 4f 4e 56 45 52 54 a0 | 54 4f a0 41 53 43 49 49 |CONVERT.|TO.ASCII|
|00003a00| a0 2a 2a 0d 41 53 43 49 | 49 20 4f 52 41 20 23 24 |.**.ASCI|I ORA #$|
|00003a10| 33 30 0d 20 43 4d 50 20 | 23 24 33 41 0d 20 42 43 |30. CMP |#$3A. BC|
|00003a20| 43 20 41 53 43 31 0d 20 | 41 44 43 20 23 24 30 36 |C ASC1. |ADC #$06|
|00003a30| 0d 41 53 43 31 20 52 54 | 53 0d 20 3b a0 2a 2a a0 |.ASC1 RT|S. ;.**.|
|00003a40| 50 52 49 4e 54 a0 41 a0 | 42 49 4e 41 52 59 a0 42 |PRINT.A.|BINARY.B|
|00003a50| 59 54 45 a0 2a 2a 0d 57 | 52 42 49 4e 20 53 54 41 |YTE.**.W|RBIN STA|
|00003a60| 20 54 4d 50 43 0d 20 4c | 44 59 20 23 30 38 0d 3a | TMPC. L|DY #08.:|
|00003a70| 4c 4f 4f 50 20 41 53 4c | 20 54 4d 50 43 0d 20 4a |LOOP ASL| TMPC. J|
|00003a80| 53 52 20 57 52 42 49 54 | 0d 20 44 45 59 0d 20 42 |SR WRBIT|. DEY. B|
|00003a90| 4e 45 20 3a 4c 4f 4f 50 | 0d 20 52 54 53 0d 20 20 |NE :LOOP|. RTS.  |
|00003aa0| 3b a0 2a 2a a0 50 52 49 | 4e 54 a0 42 49 54 a0 49 |;.**.PRI|NT.BIT.I|
|00003ab0| 4e a0 63 a0 2a 2a 0d 57 | 52 42 49 54 20 4c 44 41 |N.c.**.W|RBIT LDA|
|00003ac0| 20 23 27 30 27 0d 20 41 | 44 43 20 23 30 30 0d 20 | #'0'. A|DC #00. |
|00003ad0| 4a 4d 50 20 57 52 54 0d | 20 3b a0 2a 2a a0 52 45 |JMP WRT.| ;.**.RE|
|00003ae0| 41 44 a0 42 49 4e 41 52 | 59 a0 42 59 54 45 a0 2a |AD.BINAR|Y.BYTE.*|
|00003af0| 2a 0d 47 45 54 42 49 54 | 53 20 4c 44 41 20 23 38 |*.GETBIT|S LDA #8|
|00003b00| 0d 20 53 54 41 20 53 41 | 56 58 0d 3a 4c 4f 4f 50 |. STA SA|VX.:LOOP|
|00003b10| 20 4a 53 52 20 47 45 54 | 42 49 54 0d 20 52 4f 4c | JSR GET|BIT. ROL|
|00003b20| 20 54 4d 50 43 0d 20 44 | 45 43 20 53 41 56 58 0d | TMPC. D|EC SAVX.|
|00003b30| 20 42 4e 45 20 3a 4c 4f | 4f 50 0d 20 4c 44 41 20 | BNE :LO|OP. LDA |
|00003b40| 54 4d 50 43 0d 20 52 54 | 53 0d 20 3b a0 2a 2a a0 |TMPC. RT|S. ;.**.|
|00003b50| 52 45 41 44 a0 41 a0 42 | 49 54 a0 2a 2a 0d 47 45 |READ.A.B|IT.**.GE|
|00003b60| 54 42 49 54 20 4a 53 52 | 20 52 44 4f 43 0d 20 43 |TBIT JSR| RDOC. C|
|00003b70| 4d 50 20 23 27 31 27 0d | 20 52 54 53 0d 3b a0 2a |MP #'1'.| RTS.;.*|
|00003b80| 2a a0 53 57 41 50 a0 54 | 4d 50 30 2c a0 54 4d 50 |*.SWAP.T|MP0,.TMP|
|00003b90| 32 a0 2a 2a 0d 54 32 54 | 32 20 4c 44 58 20 23 24 |2.**.T2T|2 LDX #$|
|00003ba0| 30 33 0d 54 32 54 32 31 | 20 4c 44 41 20 54 4d 50 |03.T2T21| LDA TMP|
|00003bb0| 30 2d 31 2c 58 0d 20 50 | 48 41 0d 20 4c 44 41 20 |0-1,X. P|HA. LDA |
|00003bc0| 54 4d 50 32 2d 31 2c 58 | 0d 20 53 54 41 20 54 4d |TMP2-1,X|. STA TM|
|00003bd0| 50 30 2d 31 2c 58 0d 20 | 50 4c 41 0d 20 53 54 41 |P0-1,X. |PLA. STA|
|00003be0| 20 54 4d 50 32 2d 31 2c | 58 0d 20 44 45 58 0d 20 | TMP2-1,|X. DEX. |
|00003bf0| 42 4e 45 20 54 32 54 32 | 31 0d 20 52 54 53 0d 20 |BNE T2T2|1. RTS. |
|00003c00| 3b a0 2a 2a a0 52 45 41 | 44 a0 31 36 2f 32 34 a0 |;.**.REA|D.16/24.|
|00003c10| 42 49 54 a0 48 45 58 a0 | 41 44 44 52 a0 2a 2a 0d |BIT.HEX.|ADDR.**.|
|00003c20| 52 45 41 44 32 34 20 4a | 53 52 20 52 44 4f 41 0d |READ24 J|SR RDOA.|
|00003c30| 20 42 43 43 20 52 44 45 | 52 52 0d 52 45 41 44 32 | BCC RDE|RR.READ2|
|00003c40| 34 42 20 4c 44 58 20 50 | 42 52 0d 20 53 54 58 20 |4B LDX P|BR. STX |
|00003c50| 54 4d 50 30 2b 32 0d 20 | 4a 53 52 20 52 44 54 0d |TMP0+2. |JSR RDT.|
|00003c60| 20 43 4d 50 20 23 24 30 | 44 0d 20 42 45 51 20 52 | CMP #$0|D. BEQ R|
|00003c70| 44 45 58 49 54 0d 20 43 | 4d 50 20 23 24 32 30 0d |DEXIT. C|MP #$20.|
|00003c80| 20 42 45 51 20 52 44 45 | 58 49 54 0d 20 43 4d 50 | BEQ RDE|XIT. CMP|
|00003c90| 20 23 24 32 43 0d 20 42 | 45 51 20 52 44 45 58 49 | #$2C. B|EQ RDEXI|
|00003ca0| 54 0d 52 44 4f 41 32 34 | 20 4a 53 52 20 52 44 4f |T.RDOA24| JSR RDO|
|00003cb0| 42 32 0d 20 42 43 43 20 | 52 44 45 58 49 54 0d 20 |B2. BCC |RDEXIT. |
|00003cc0| 4c 44 58 20 54 4d 50 30 | 2b 31 0d 20 53 54 58 20 |LDX TMP0|+1. STX |
|00003cd0| 54 4d 50 30 2b 32 0d 20 | 4c 44 58 20 54 4d 50 30 |TMP0+2. |LDX TMP0|
|00003ce0| 0d 20 53 54 58 20 54 4d | 50 30 2b 31 0d 20 53 54 |. STX TM|P0+1. ST|
|00003cf0| 41 20 54 4d 50 30 0d 20 | 4a 53 52 20 52 44 54 20 |A TMP0. |JSR RDT |
|00003d00| 3b 2e 41 a0 3d a0 4e 45 | 58 54 a0 43 48 41 52 0d |;.A.=.NE|XT.CHAR.|
|00003d10| 20 53 45 43 0d 20 52 54 | 53 0d 52 44 45 52 52 20 | SEC. RT|S.RDERR |
|00003d20| 4a 4d 50 20 45 52 52 4f | 52 0d 3b a0 2a 2a a0 52 |JMP ERRO|R.;.**.R|
|00003d30| 45 41 44 a0 48 45 58 a0 | 41 44 44 52 45 53 53 a0 |EAD.HEX.|ADDRESS.|
|00003d40| 2a 2a 0d 52 44 4f 41 20 | 4a 53 52 20 52 44 4f 42 |**.RDOA |JSR RDOB|
|00003d50| 0d 52 44 4f 41 31 20 42 | 43 43 20 52 44 4f 41 32 |.RDOA1 B|CC RDOA2|
|00003d60| 0d 20 53 54 41 20 54 4d | 50 30 2b 31 0d 52 44 4f |. STA TM|P0+1.RDO|
|00003d70| 41 32 20 4a 53 52 20 52 | 44 4f 42 0d 20 42 43 43 |A2 JSR R|DOB. BCC|
|00003d80| 20 52 44 45 58 49 54 0d | 20 53 54 41 20 54 4d 50 | RDEXIT.| STA TMP|
|00003d90| 30 0d 52 44 45 58 49 54 | 20 52 54 53 0d 3b a0 2a |0.RDEXIT| RTS.;.*|
|00003da0| 2a a0 53 43 41 4e a0 46 | 4f 52 a0 48 45 58 a0 42 |*.SCAN.F|OR.HEX.B|
|00003db0| 59 54 45 a0 2a 2a 0d 52 | 44 4f 42 20 4c 44 41 20 |YTE.**.R|DOB LDA |
|00003dc0| 23 30 0d 20 53 54 41 20 | 41 43 4d 44 0d 20 4a 53 |#0. STA |ACMD. JS|
|00003dd0| 52 20 52 44 4f 43 0d 52 | 44 4f 42 31 20 43 4d 50 |R RDOC.R|DOB1 CMP|
|00003de0| 20 23 24 32 30 0d 20 42 | 4e 45 20 52 44 4f 42 32 | #$20. B|NE RDOB2|
|00003df0| 0d 20 4a 53 52 20 52 44 | 4f 43 0d 20 43 4d 50 20 |. JSR RD|OC. CMP |
|00003e00| 23 24 32 30 0d 20 42 4e | 45 20 52 44 4f 42 33 0d |#$20. BN|E RDOB3.|
|00003e10| 20 43 4c 43 0d 20 52 54 | 53 0d 3b 20 2a 2a 20 52 | CLC. RT|S.; ** R|
|00003e20| 45 41 44 20 48 45 58 20 | 42 59 54 45 20 2a 2a 0d |EAD HEX |BYTE **.|
|00003e30| 52 44 4f 42 32 20 4a 53 | 52 20 48 45 58 49 54 0d |RDOB2 JS|R HEXIT.|
|00003e40| 20 41 53 4c 20 41 0d 20 | 41 53 4c 20 41 0d 20 41 | ASL A. |ASL A. A|
|00003e50| 53 4c 20 41 0d 20 41 53 | 4c 20 41 0d 20 53 54 41 |SL A. AS|L A. STA|
|00003e60| 20 41 43 4d 44 0d 20 4a | 53 52 20 52 44 4f 43 0d | ACMD. J|SR RDOC.|
|00003e70| 52 44 4f 42 33 20 4a 53 | 52 20 48 45 58 49 54 0d |RDOB3 JS|R HEXIT.|
|00003e80| 20 4f 52 41 20 41 43 4d | 44 0d 20 53 45 43 0d 20 | ORA ACM|D. SEC. |
|00003e90| 52 54 53 0d 44 45 43 49 | 54 20 3b a0 2a 2a a0 43 |RTS.DECI|T ;.**.C|
|00003ea0| 4f 4e 56 45 52 54 a0 46 | 52 4f 4d a0 42 41 53 45 |ONVERT.F|ROM.BASE|
|00003eb0| a0 31 30 a0 2a 2a 0d 20 | 45 4f 52 20 23 34 38 0d |.10.**. |EOR #48.|
|00003ec0| 20 43 4d 50 20 23 31 30 | 0d 20 42 43 53 20 3a 45 | CMP #10|. BCS :E|
|00003ed0| 52 52 0d 20 52 54 53 0d | 3a 45 52 52 20 4a 4d 50 |RR. RTS.|:ERR JMP|
|00003ee0| 20 45 52 52 4f 52 0d 3b | a0 2a 2a a0 43 4f 4e 56 | ERROR.;|.**.CONV|
|00003ef0| 45 52 54 a0 46 52 4f 4d | a0 48 45 58 a0 2a 2a 0d |ERT.FROM|.HEX.**.|
|00003f00| 48 45 58 49 54 20 43 4d | 50 20 23 24 33 41 0d 20 |HEXIT CM|P #$3A. |
|00003f10| 42 43 43 20 48 45 58 30 | 38 0d 20 41 44 43 20 23 |BCC HEX0|8. ADC #|
|00003f20| 24 30 38 0d 48 45 58 30 | 38 20 41 4e 44 20 23 24 |$08.HEX0|8 AND #$|
|00003f30| 30 46 0d 20 52 54 53 0d | 3b a0 2a 2a a0 44 45 43 |0F. RTS.|;.**.DEC|
|00003f40| 52 45 4d 45 4e 54 a0 54 | 30 2c 54 32 a0 2a 2a 0d |REMENT.T|0,T2.**.|
|00003f50| 53 50 52 45 41 44 20 3d | 20 54 4d 50 32 2d 54 4d |SPREAD =| TMP2-TM|
|00003f60| 50 30 0d 44 45 43 54 32 | 20 4c 44 58 20 23 3c 53 |P0.DECT2| LDX #<S|
|00003f70| 50 52 45 41 44 0d 20 44 | 46 42 20 24 32 43 0d 44 |PREAD. D|FB $2C.D|
|00003f80| 45 43 54 30 20 4c 44 58 | 20 23 30 0d 20 4c 44 59 |ECT0 LDX| #0. LDY|
|00003f90| 20 54 4d 50 30 2c 58 0d | 20 42 4e 45 20 44 45 43 | TMP0,X.| BNE DEC|
|00003fa0| 32 30 0d 20 4c 44 59 20 | 54 4d 50 30 2b 31 2c 58 |20. LDY |TMP0+1,X|
|00003fb0| 0d 20 42 4e 45 20 44 45 | 43 31 30 0d 2a a0 49 4e |. BNE DE|C10.*.IN|
|00003fc0| 43 a0 57 52 41 50 0d 20 | 44 45 43 20 54 4d 50 30 |C.WRAP. |DEC TMP0|
|00003fd0| 2b 32 0d 44 45 43 31 30 | 20 44 45 43 20 54 4d 50 |+2.DEC10| DEC TMP|
|00003fe0| 30 2b 31 2c 58 0d 44 45 | 43 32 30 20 44 45 43 20 |0+1,X.DE|C20 DEC |
|00003ff0| 54 4d 50 30 2c 58 0d 52 | 45 54 31 20 52 54 53 0d |TMP0,X.R|ET1 RTS.|
|00004000| 3b 20 2a 2a 20 47 45 54 | 20 41 20 4e 4f 4e 20 53 |; ** GET| A NON S|
|00004010| 50 41 43 45 20 2a 2a 0d | 47 54 43 48 52 20 4a 53 |PACE **.|GTCHR JS|
|00004020| 52 20 52 44 4f 43 0d 20 | 43 4d 50 20 23 24 32 30 |R RDOC. |CMP #$20|
|00004030| 0d 20 42 45 51 20 47 54 | 43 48 52 0d 20 52 54 53 |. BEQ GT|CHR. RTS|
|00004040| 0d 20 3b a0 2a 2a a0 49 | 4e 43 4c 55 44 49 4e 47 |. ;.**.I|NCLUDING|
|00004050| a0 63 72 a0 2a 2a 0d 47 | 45 54 43 48 41 52 20 4a |.cr.**.G|ETCHAR J|
|00004060| 53 52 20 52 44 54 0d 20 | 43 4d 50 20 23 24 32 30 |SR RDT. |CMP #$20|
|00004070| 0d 20 42 45 51 20 47 45 | 54 43 48 41 52 0d 20 52 |. BEQ GE|TCHAR. R|
|00004080| 54 53 0d 3b a0 2a 2a a0 | 47 45 54 a0 41 44 44 52 |TS.;.**.|GET.ADDR|
|00004090| 45 53 53 a0 2a 2a 0d 49 | 4e 50 55 54 20 4c 44 41 |ESS.**.I|NPUT LDA|
|000040a0| 20 23 30 30 0d 20 53 54 | 41 20 49 4e 42 55 46 0d | #00. ST|A INBUF.|
|000040b0| 20 53 54 41 20 41 43 4d | 44 0d 20 4a 53 52 20 47 | STA ACM|D. JSR G|
|000040c0| 54 43 48 52 0d 20 4a 53 | 52 20 52 44 4f 42 31 0d |TCHR. JS|R RDOB1.|
|000040d0| 20 4a 53 52 20 52 44 4f | 41 31 0d 20 42 43 43 20 | JSR RDO|A1. BCC |
|000040e0| 45 52 52 4f 52 0d 20 4a | 4d 50 20 52 45 41 44 32 |ERROR. J|MP READ2|
|000040f0| 34 42 0d 3b 20 2a 2a 20 | 47 45 54 20 41 44 44 52 |4B.; ** |GET ADDR|
|00004100| 45 53 53 20 2a 2a 0d 47 | 45 54 32 42 20 43 4d 50 |ESS **.G|ET2B CMP|
|00004110| 20 23 24 30 44 0d 20 42 | 45 51 20 45 52 52 4f 52 | #$0D. B|EQ ERROR|
|00004120| 0d 20 4a 53 52 20 52 45 | 41 44 32 34 0d 20 42 43 |. JSR RE|AD24. BC|
|00004130| 53 20 52 45 54 31 0d 3b | 20 2a 2a 20 45 52 52 4f |S RET1.;| ** ERRO|
|00004140| 52 20 45 58 49 54 20 2a | 2a 0d 45 52 52 4f 52 20 |R EXIT *|*.ERROR |
|00004150| 4a 53 52 20 47 45 54 53 | 50 0d 20 3e 3e 3e 20 54 |JSR GETS|P. >>> T|
|00004160| 43 53 0d 20 4c 44 41 20 | 23 24 33 46 0d 20 4a 53 |CS. LDA |#$3F. JS|
|00004170| 52 20 57 52 54 0d 20 4a | 4d 50 20 53 54 52 54 0d |R WRT. J|MP STRT.|
|00004180| 20 3b a0 2a 2a a0 47 45 | 54 a0 53 54 41 43 4b a0 | ;.**.GE|T.STACK.|
|00004190| 50 4f 49 4e 54 45 52 a0 | 2a 2a 0d 47 45 54 53 50 |POINTER.|**.GETSP|
|000041a0| 20 3e 3e 3e 20 52 45 50 | 2c 24 33 30 0d 20 4c 44 | >>> REP|,$30. LD|
|000041b0| 41 20 53 50 0d 20 3e 3e | 3e 20 53 45 50 2c 24 33 |A SP. >>|> SEP,$3|
|000041c0| 30 0d 20 52 54 53 0d 3b | a0 2a 2a a0 50 52 49 4e |0. RTS.;|.**.PRIN|
|000041d0| 54 a0 53 50 41 43 45 53 | a0 2a 2a 0d 53 50 41 43 |T.SPACES|.**.SPAC|
|000041e0| 44 20 4a 53 52 20 53 50 | 41 43 45 0d 20 44 45 58 |D JSR SP|ACE. DEX|
|000041f0| 0d 20 42 4e 45 20 53 50 | 41 43 44 0d 20 52 54 53 |. BNE SP|ACD. RTS|
|00004200| 0d 3b 20 2a 2a 20 49 4e | 43 20 54 4d 50 20 32 20 |.; ** IN|C TMP 2 |
|00004210| 2a 2a 0d 50 54 52 49 4e | 43 20 49 4e 43 20 54 4d |**.PTRIN|C INC TM|
|00004220| 50 32 0d 20 42 4e 45 20 | 50 31 4f 56 0d 20 49 4e |P2. BNE |P1OV. IN|
|00004230| 43 20 54 4d 50 32 2b 31 | 0d 50 31 4f 56 20 52 54 |C TMP2+1|.P1OV RT|
|00004240| 53 20 0d 3b a0 2a 2a a0 | 53 57 41 50 a0 41 46 4c |S .;.**.|SWAP.AFL|
|00004250| 47 2c a0 54 4d 50 30 a0 | 2a 2a 0d 53 57 41 50 20 |G,.TMP0.|**.SWAP |
|00004260| 4c 44 58 20 23 24 30 33 | 0d 53 57 50 31 20 4c 44 |LDX #$03|.SWP1 LD|
|00004270| 41 20 54 4d 50 30 2d 31 | 2c 58 0d 20 50 48 41 0d |A TMP0-1|,X. PHA.|
|00004280| 20 4c 44 41 20 41 46 4c | 47 2d 31 2c 58 0d 20 53 | LDA AFL|G-1,X. S|
|00004290| 54 41 20 54 4d 50 30 2d | 31 2c 58 0d 20 50 4c 41 |TA TMP0-|1,X. PLA|
|000042a0| 0d 20 53 54 41 20 41 46 | 4c 47 2d 31 2c 58 0d 20 |. STA AF|LG-1,X. |
|000042b0| 44 45 58 0d 20 42 4e 45 | 20 53 57 50 31 0d 20 52 |DEX. BNE| SWP1. R|
|000042c0| 54 53 0d 3b a0 2a 2a a0 | 43 41 4c 43 a0 54 4d 50 |TS.;.**.|CALC.TMP|
|000042d0| 32 2d 54 4d 50 30 2d 32 | a0 2a 2a 0d 44 49 46 46 |2-TMP0-2|.**.DIFF|
|000042e0| 42 20 4c 44 41 20 54 4d | 50 32 0d 20 4c 44 59 20 |B LDA TM|P2. LDY |
|000042f0| 54 4d 50 32 2b 31 0d 20 | 4c 44 58 20 54 4d 50 32 |TMP2+1. |LDX TMP2|
|00004300| 2b 32 0d 20 53 45 43 0d | 20 53 42 43 20 23 32 0d |+2. SEC.| SBC #2.|
|00004310| 20 42 43 53 20 44 45 43 | 4b 0d 20 44 45 59 0d 20 | BCS DEC|K. DEY. |
|00004320| 43 50 59 20 23 24 46 46 | 0d 20 42 4e 45 20 44 45 |CPY #$FF|. BNE DE|
|00004330| 43 4b 0d 20 44 45 58 0d | 20 3e 3e 3e 20 42 52 41 |CK. DEX.| >>> BRA|
|00004340| 2c 44 45 43 4b 0d 3b a0 | 2a 2a a0 43 41 4c 43 a0 |,DECK.;.|**.CALC.|
|00004350| 41 46 4c 47 2d 54 4d 50 | 30 a0 2a 2a 0d 44 49 46 |AFLG-TMP|0.**.DIF|
|00004360| 46 41 20 4c 44 41 20 41 | 46 4c 47 0d 20 4c 44 59 |FA LDA A|FLG. LDY|
|00004370| 20 41 46 4c 47 2b 31 0d | 20 4c 44 58 20 41 46 4c | AFLG+1.| LDX AFL|
|00004380| 47 2b 32 0d 20 3e 3e 3e | 20 42 52 41 2c 44 45 43 |G+2. >>>| BRA,DEC|
|00004390| 4b 0d 3b a0 2a 2a a0 43 | 41 4c 43 a0 54 4d 50 32 |K.;.**.C|ALC.TMP2|
|000043a0| 2d 54 4d 50 30 a0 2a 2a | 0d 44 49 46 46 50 20 4c |-TMP0.**|.DIFFP L|
|000043b0| 44 41 20 54 4d 50 32 0d | 20 4c 44 59 20 54 4d 50 |DA TMP2.| LDY TMP|
|000043c0| 32 2b 31 0d 20 4c 44 58 | 20 54 4d 50 32 2b 32 0d |2+1. LDX| TMP2+2.|
|000043d0| 44 45 43 4b 20 53 45 43 | 20 0d 20 53 42 43 20 54 |DECK SEC| . SBC T|
|000043e0| 4d 50 30 0d 20 53 54 41 | 20 4e 45 4d 4f 0d 20 3e |MP0. STA| NEMO. >|
|000043f0| 3e 3e 20 58 42 41 0d 20 | 54 59 41 0d 20 53 42 43 |>> XBA. |TYA. SBC|
|00004400| 20 54 4d 50 30 2b 31 0d | 20 54 41 59 0d 20 4f 52 | TMP0+1.| TAY. OR|
|00004410| 41 20 4e 45 4d 4f 0d 20 | 53 54 41 20 4e 45 4d 4f |A NEMO. |STA NEMO|
|00004420| 0d 20 54 58 41 0d 20 53 | 42 43 20 54 4d 50 30 2b |. TXA. S|BC TMP0+|
|00004430| 32 0d 20 54 41 58 0d 20 | 4f 52 41 20 4e 45 4d 4f |2. TAX. |ORA NEMO|
|00004440| 0d 20 52 54 53 0d 20 3b | a0 2a 2a a0 43 48 45 43 |. RTS. ;|.**.CHEC|
|00004450| 4b a0 41 44 44 52 45 53 | 53 a0 52 41 4e 47 45 a0 |K.ADDRES|S.RANGE.|
|00004460| 2a 2a 0d 43 48 4b 52 41 | 4e 47 45 20 4c 44 59 20 |**.CHKRA|NGE LDY |
|00004470| 23 30 31 20 3b 30 a0 3c | a0 41 44 44 52 2d 42 45 |#01 ;0.<|.ADDR-BE|
|00004480| 47 49 4e a0 3c a0 45 4e | 44 2d 42 45 47 49 4e 0d |GIN.<.EN|D-BEGIN.|
|00004490| 20 4c 44 58 20 4c 45 4e | 47 54 48 0d 20 53 45 43 | LDX LEN|GTH. SEC|
|000044a0| 0d 3a 4c 4f 4f 50 20 4a | 53 52 20 46 45 54 43 48 |.:LOOP J|SR FETCH|
|000044b0| 59 0d 20 53 42 43 20 54 | 4d 50 32 2d 31 2c 59 0d |Y. SBC T|MP2-1,Y.|
|000044c0| 20 53 54 41 20 53 54 41 | 47 45 2b 35 2c 59 0d 20 | STA STA|GE+5,Y. |
|000044d0| 49 4e 59 0d 20 44 45 58 | 0d 20 42 4e 45 20 3a 4c |INY. DEX|. BNE :L|
|000044e0| 4f 4f 50 0d 20 42 43 43 | 20 3a 52 54 53 0d 20 4c |OOP. BCC| :RTS. L|
|000044f0| 44 58 20 4c 45 4e 47 54 | 48 0d 20 4c 44 59 20 23 |DX LENGT|H. LDY #|
|00004500| 30 31 0d 20 53 45 43 0d | 3a 4c 4f 4f 50 32 20 4c |01. SEC.|:LOOP2 L|
|00004510| 44 41 20 41 46 4c 47 2d | 31 2c 59 0d 20 53 42 43 |DA AFLG-|1,Y. SBC|
|00004520| 20 53 54 41 47 45 2b 35 | 2c 59 0d 20 49 4e 59 0d | STAGE+5|,Y. INY.|
|00004530| 20 44 45 58 0d 20 42 4e | 45 20 3a 4c 4f 4f 50 32 | DEX. BN|E :LOOP2|
|00004540| 0d 3a 52 54 53 20 52 54 | 53 0d 20 3b a0 2a 2a a0 |.:RTS RT|S. ;.**.|
|00004550| 52 45 4c 4f 43 41 54 45 | a0 2a 2a 0d 52 45 4c 4f |RELOCATE|.**.RELO|
|00004560| 43 41 54 45 20 4c 44 41 | 20 23 24 46 46 0d 20 44 |CATE LDA| #$FF. D|
|00004570| 46 42 20 24 32 43 0d 3b | 20 2a 2a 20 2e 54 52 41 |FB $2C.;| ** .TRA|
|00004580| 4e 53 46 45 52 20 2a 2a | 0d 54 52 41 4e 53 20 4c |NSFER **|.TRANS L|
|00004590| 44 41 20 23 30 30 0d 20 | 53 54 41 20 54 4d 50 43 |DA #00. |STA TMPC|
|000045a0| 0d 20 4a 53 52 20 49 4e | 50 55 54 0d 20 50 48 41 |. JSR IN|PUT. PHA|
|000045b0| 0d 20 4a 53 52 20 54 32 | 54 32 0d 20 50 4c 41 0d |. JSR T2|T2. PLA.|
|000045c0| 20 4a 53 52 20 47 45 54 | 32 42 0d 20 50 48 41 0d | JSR GET|2B. PHA.|
|000045d0| 20 4c 44 41 20 54 4d 50 | 43 0d 20 42 45 51 20 3a | LDA TMP|C. BEQ :|
|000045e0| 53 4b 49 50 0d 20 4a 53 | 52 20 44 49 46 46 50 20 |SKIP. JS|R DIFFP |
|000045f0| 3b 53 54 41 52 54 2d 45 | 4e 44 a0 43 4f 44 45 a0 |;START-E|ND.CODE.|
|00004600| 3d a0 2d 23 a0 4f 46 a0 | 42 59 54 45 53 0d 20 42 |=.-#.OF.|BYTES. B|
|00004610| 43 53 20 3a 45 52 52 0d | 20 3e 3e 3e 20 58 42 41 |CS :ERR.| >>> XBA|
|00004620| 0d 20 53 54 41 20 53 54 | 41 47 45 0d 20 53 54 59 |. STA ST|AGE. STY|
|00004630| 20 53 54 41 47 45 2b 31 | 0d 20 49 4e 58 0d 20 42 | STAGE+1|. INX. B|
|00004640| 4e 45 20 3a 45 52 52 0d | 20 50 4c 41 0d 20 4a 53 |NE :ERR.| PLA. JS|
|00004650| 52 20 47 45 54 32 42 20 | 3b 45 4e 44 a0 56 41 52 |R GET2B |;END.VAR|
|00004660| 53 0d 20 50 48 41 0d 3a | 53 4b 49 50 20 4a 53 52 |S. PHA.:|SKIP JSR|
|00004670| 20 44 49 46 46 50 0d 20 | 42 43 43 20 3a 4f 4b 0d | DIFFP. |BCC :OK.|
|00004680| 20 42 45 51 20 3a 4f 4b | 0d 3a 45 52 52 20 4a 4d | BEQ :OK|.:ERR JM|
|00004690| 50 20 45 52 52 4f 52 0d | 3a 4f 4b 20 4a 53 52 20 |P ERROR.|:OK JSR |
|000046a0| 53 57 41 50 0d 20 50 4c | 41 0d 20 4a 53 52 20 47 |SWAP. PL|A. JSR G|
|000046b0| 45 54 32 42 20 3b 44 45 | 53 54 0d 20 4c 44 41 20 |ET2B ;DE|ST. LDA |
|000046c0| 54 4d 50 30 2b 32 0d 20 | 53 54 41 20 3a 4d 4f 56 |TMP0+2. |STA :MOV|
|000046d0| 2b 31 0d 20 4c 44 41 20 | 54 4d 50 32 2b 32 0d 20 |+1. LDA |TMP2+2. |
|000046e0| 53 54 41 20 3a 4d 4f 56 | 2b 32 0d 20 3e 3e 3e 20 |STA :MOV|+2. >>> |
|000046f0| 50 48 42 0d 20 3e 3e 3e | 20 52 45 50 2c 24 33 30 |PHB. >>>| REP,$30|
|00004700| 0d 20 4c 44 58 20 54 4d | 50 32 0d 20 4c 44 59 20 |. LDX TM|P2. LDY |
|00004710| 54 4d 50 30 0d 20 4c 44 | 41 20 41 46 4c 47 0d 20 |TMP0. LD|A AFLG. |
|00004720| 53 45 43 0d 20 53 42 43 | 20 54 4d 50 32 0d 20 53 |SEC. SBC| TMP2. S|
|00004730| 54 41 20 41 46 4c 47 20 | 3b 45 4e 44 2d 42 45 47 |TA AFLG |;END-BEG|
|00004740| 49 4e 0d 3a 4d 4f 56 20 | 48 45 58 20 35 34 30 30 |IN.:MOV |HEX 5400|
|00004750| 30 30 20 3b 6d 76 6e 0d | 20 3e 3e 3e 20 53 45 50 |00 ;mvn.| >>> SEP|
|00004760| 2c 24 33 30 0d 20 3e 3e | 3e 20 50 4c 42 0d 20 4c |,$30. >>|> PLB. L|
|00004770| 44 41 20 54 4d 50 43 0d | 20 42 4e 45 20 52 45 4c |DA TMPC.| BNE REL|
|00004780| 4f 43 0d 20 4a 4d 50 20 | 53 54 52 54 0d 20 3b 2a |OC. JMP |STRT. ;*|
|00004790| 2a a0 52 45 4c 4f 43 41 | 54 45 a0 43 48 55 4e 4b |*.RELOCA|TE.CHUNK|
|000047a0| a0 4f 46 a0 43 4f 44 45 | a0 2a 2a 0d 52 45 4c 4f |.OF.CODE|.**.RELO|
|000047b0| 43 20 44 46 42 20 24 36 | 34 2c 41 46 4c 47 2b 32 |C DFB $6|4,AFLG+2|
|000047c0| 20 3b 53 54 5a 0d 20 4a | 53 52 20 44 49 46 46 50 | ;STZ. J|SR DIFFP|
|000047d0| 20 3b 42 45 47 49 4e 2d | 44 45 53 54 0d 20 3e 3e | ;BEGIN-|DEST. >>|
|000047e0| 3e 20 58 42 41 0d 20 53 | 54 41 20 53 54 41 47 45 |> XBA. S|TA STAGE|
|000047f0| 2b 33 0d 20 53 54 59 20 | 53 54 41 47 45 2b 34 0d |+3. STY |STAGE+4.|
|00004800| 20 53 54 58 20 53 54 41 | 47 45 2b 35 0d 3a 4c 4f | STX STA|GE+5.:LO|
|00004810| 4f 50 20 4a 53 52 20 46 | 45 54 43 48 0d 20 4a 53 |OP JSR F|ETCH. JS|
|00004820| 52 20 47 45 54 4d 49 44 | 58 0d 20 4c 44 41 20 41 |R GETMID|X. LDA A|
|00004830| 43 4d 44 20 3b 4d 4f 44 | 45 53 a0 39 2d 45 2c a0 |CMD ;MOD|ES.9-E,.|
|00004840| 31 31 a0 41 52 45 a0 41 | 42 53 4f 4c 55 54 45 0d |11.ARE.A|BSOLUTE.|
|00004850| 20 43 4d 50 20 23 39 0d | 20 42 43 43 20 3a 4e 4f | CMP #9.| BCC :NO|
|00004860| 50 45 0d 20 43 4d 50 20 | 23 24 30 46 0d 20 42 43 |PE. CMP |#$0F. BC|
|00004870| 43 20 3a 4d 41 59 42 45 | 0d 20 43 4d 50 20 23 24 |C :MAYBE|. CMP #$|
|00004880| 31 31 0d 20 42 4e 45 20 | 3a 4e 4f 50 45 0d 3a 4d |11. BNE |:NOPE.:M|
|00004890| 41 59 42 45 20 4a 53 52 | 20 43 48 4b 52 41 4e 47 |AYBE JSR| CHKRANG|
|000048a0| 45 0d 20 42 43 43 20 3a | 4e 4f 50 45 0d 20 4c 44 |E. BCC :|NOPE. LD|
|000048b0| 58 20 4c 45 4e 47 54 48 | 0d 20 4c 44 59 20 23 30 |X LENGTH|. LDY #0|
|000048c0| 31 0d 20 53 45 43 0d 3a | 59 45 50 20 4a 53 52 20 |1. SEC.:|YEP JSR |
|000048d0| 46 45 54 43 48 59 0d 20 | 53 42 43 20 53 54 41 47 |FETCHY. |SBC STAG|
|000048e0| 45 2b 32 2c 59 0d 20 44 | 46 42 20 24 39 37 2c 54 |E+2,Y. D|FB $97,T|
|000048f0| 4d 50 30 20 3b 73 74 61 | a0 5b 74 6d 70 30 5d 2c |MP0 ;sta|.[tmp0],|
|00004900| 79 0d 20 49 4e 59 0d 20 | 44 45 58 0d 20 42 4e 45 |y. INY. |DEX. BNE|
|00004910| 20 3a 59 45 50 0d 3a 4e | 4f 50 45 20 4a 53 52 20 | :YEP.:N|OPE JSR |
|00004920| 4d 45 4d 41 44 4a 0d 20 | 4c 44 41 20 53 54 41 47 |MEMADJ. |LDA STAG|
|00004930| 45 0d 20 53 45 43 0d 20 | 41 44 43 20 4c 45 4e 47 |E. SEC. |ADC LENG|
|00004940| 54 48 0d 20 53 54 41 20 | 53 54 41 47 45 0d 20 42 |TH. STA |STAGE. B|
|00004950| 43 43 20 3a 4c 4f 4f 50 | 0d 20 49 4e 43 20 53 54 |CC :LOOP|. INC ST|
|00004960| 41 47 45 2b 31 0d 20 42 | 4e 45 20 3a 4c 4f 4f 50 |AGE+1. B|NE :LOOP|
|00004970| 0d 20 4a 4d 50 20 53 54 | 52 54 0d 3b a0 2a 2a a0 |. JMP ST|RT.;.**.|
|00004980| 2e 46 49 4c 4c a0 2a 2a | 0d 46 49 4c 4c 20 4a 53 |.FILL.**|.FILL JS|
|00004990| 52 20 49 4e 50 55 54 0d | 20 50 48 41 0d 20 4a 53 |R INPUT.| PHA. JS|
|000049a0| 52 20 54 32 54 32 0d 20 | 50 4c 41 0d 20 4a 53 52 |R T2T2. |PLA. JSR|
|000049b0| 20 47 45 54 32 42 0d 20 | 43 4d 50 20 23 24 30 44 | GET2B. |CMP #$0D|
|000049c0| 0d 20 42 45 51 20 45 52 | 52 4f 52 32 0d 20 4a 53 |. BEQ ER|ROR2. JS|
|000049d0| 52 20 54 32 54 32 0d 20 | 4a 53 52 20 52 44 4f 42 |R T2T2. |JSR RDOB|
|000049e0| 0d 20 42 43 43 20 45 52 | 52 4f 52 32 0d 20 53 54 |. BCC ER|ROR2. ST|
|000049f0| 41 20 54 4d 50 43 0d 46 | 4c 55 50 31 20 4c 44 58 |A TMPC.F|LUP1 LDX|
|00004a00| 20 57 52 41 50 0d 20 42 | 4e 45 20 53 54 52 54 31 | WRAP. B|NE STRT1|
|00004a10| 0d 20 4a 53 52 20 44 49 | 46 46 50 0d 20 42 43 43 |. JSR DI|FFP. BCC|
|00004a20| 20 53 54 52 54 31 0d 20 | 4c 44 41 20 54 4d 50 43 | STRT1. |LDA TMPC|
|00004a30| 0d 20 44 46 42 20 24 38 | 37 2c 54 4d 50 30 20 3b |. DFB $8|7,TMP0 ;|
|00004a40| 53 54 41 a0 5b 54 4d 50 | 30 5d 0d 20 4a 53 52 20 |STA.[TMP|0]. JSR |
|00004a50| 49 4e 43 54 4d 50 0d 20 | 42 4e 45 20 46 4c 55 50 |INCTMP. |BNE FLUP|
|00004a60| 31 0d 45 52 52 4f 52 32 | 20 4a 4d 50 20 45 52 52 |1.ERROR2| JMP ERR|
|00004a70| 4f 52 0d 53 54 52 54 31 | 20 4a 4d 50 20 53 54 52 |OR.STRT1| JMP STR|
|00004a80| 54 0d 3b 20 2a 2a 20 2e | 48 55 4e 54 20 2a 2a 0d |T.; ** .|HUNT **.|
|00004a90| 48 55 4e 54 20 4a 53 52 | 20 49 4e 50 55 54 0d 20 |HUNT JSR| INPUT. |
|00004aa0| 50 48 41 0d 20 4a 53 52 | 20 54 32 54 32 0d 20 50 |PHA. JSR| T2T2. P|
|00004ab0| 4c 41 0d 20 4a 53 52 20 | 47 45 54 32 42 0d 20 43 |LA. JSR |GET2B. C|
|00004ac0| 4d 50 20 23 24 30 44 0d | 20 42 45 51 20 45 52 52 |MP #$0D.| BEQ ERR|
|00004ad0| 4f 52 32 0d 20 4a 53 52 | 20 54 32 54 32 0d 20 4c |OR2. JSR| T2T2. L|
|00004ae0| 44 58 20 23 30 0d 20 4a | 53 52 20 52 44 4f 43 0d |DX #0. J|SR RDOC.|
|00004af0| 20 43 4d 50 20 23 24 32 | 32 0d 20 42 4e 45 20 4e | CMP #$2|2. BNE N|
|00004b00| 4f 53 54 52 48 0d 20 4a | 53 52 20 52 44 4f 43 0d |OSTRH. J|SR RDOC.|
|00004b10| 48 50 41 52 20 53 54 41 | 20 53 54 41 47 45 2c 58 |HPAR STA| STAGE,X|
|00004b20| 0d 20 49 4e 58 0d 20 4a | 53 52 20 52 44 54 0d 20 |. INX. J|SR RDT. |
|00004b30| 43 4d 50 20 23 24 30 44 | 0d 20 42 45 51 20 48 54 |CMP #$0D|. BEQ HT|
|00004b40| 47 4f 0d 20 43 4d 50 20 | 23 24 32 32 0d 20 42 45 |GO. CMP |#$22. BE|
|00004b50| 51 20 48 54 47 4f 0d 20 | 43 50 58 20 23 24 31 45 |Q HTGO. |CPX #$1E|
|00004b60| 0d 20 42 4e 45 20 48 50 | 41 52 0d 20 42 45 51 20 |. BNE HP|AR. BEQ |
|00004b70| 48 54 47 4f 0d 4e 4f 53 | 54 52 48 20 53 54 58 20 |HTGO.NOS|TRH STX |
|00004b80| 49 4e 42 55 46 0d 20 4a | 53 52 20 52 44 4f 42 31 |INBUF. J|SR RDOB1|
|00004b90| 0d 20 42 43 43 20 45 52 | 52 4f 52 32 0d 48 4c 50 |. BCC ER|ROR2.HLP|
|00004ba0| 20 53 54 41 20 53 54 41 | 47 45 2c 58 0d 20 49 4e | STA STA|GE,X. IN|
|00004bb0| 58 0d 20 4a 53 52 20 52 | 44 54 0d 20 43 4d 50 20 |X. JSR R|DT. CMP |
|00004bc0| 23 24 30 44 0d 20 42 45 | 51 20 48 54 47 4f 0d 20 |#$0D. BE|Q HTGO. |
|00004bd0| 4a 53 52 20 52 44 4f 42 | 0d 20 42 43 43 20 45 52 |JSR RDOB|. BCC ER|
|00004be0| 52 4f 52 32 0d 20 43 50 | 58 20 23 24 31 45 0d 20 |ROR2. CP|X #$1E. |
|00004bf0| 42 4e 45 20 48 4c 50 0d | 48 54 47 4f 20 53 54 58 |BNE HLP.|HTGO STX|
|00004c00| 20 53 41 56 58 0d 20 4a | 53 52 20 43 52 4c 46 0d | SAVX. J|SR CRLF.|
|00004c10| 48 53 43 41 4e 20 4a 53 | 52 20 53 54 4f 50 31 0d |HSCAN JS|R STOP1.|
|00004c20| 20 42 45 51 20 48 4e 4a | 4d 50 0d 20 4c 44 58 20 | BEQ HNJ|MP. LDX |
|00004c30| 23 30 0d 20 4c 44 59 20 | 23 30 0d 48 4c 50 33 20 |#0. LDY |#0.HLP3 |
|00004c40| 4a 53 52 20 46 45 54 43 | 48 59 0d 20 43 4d 50 20 |JSR FETC|HY. CMP |
|00004c50| 53 54 41 47 45 2c 58 0d | 20 42 4e 45 20 48 4e 4d |STAGE,X.| BNE HNM|
|00004c60| 54 43 48 0d 20 49 4e 59 | 0d 20 49 4e 58 0d 20 43 |TCH. INY|. INX. C|
|00004c70| 50 58 20 53 41 56 58 0d | 20 42 4e 45 20 48 4c 50 |PX SAVX.| BNE HLP|
|00004c80| 33 0d 3b 20 2a 2a 20 4d | 41 54 43 48 20 46 4f 55 |3.; ** M|ATCH FOU|
|00004c90| 4e 44 20 2a 2a 0d 20 4a | 53 52 20 57 52 4f 41 32 |ND **. J|SR WROA2|
|00004ca0| 34 0d 20 4a 53 52 20 53 | 50 41 43 45 0d 48 4e 4d |4. JSR S|PACE.HNM|
|00004cb0| 54 43 48 20 4a 53 52 20 | 49 4e 43 54 4d 50 0d 20 |TCH JSR |INCTMP. |
|00004cc0| 4c 44 58 20 57 52 41 50 | 0d 20 42 4e 45 20 53 54 |LDX WRAP|. BNE ST|
|00004cd0| 52 54 31 0d 20 4a 53 52 | 20 44 49 46 46 50 0d 20 |RT1. JSR| DIFFP. |
|00004ce0| 42 43 53 20 48 53 43 41 | 4e 0d 48 4e 4a 4d 50 20 |BCS HSCA|N.HNJMP |
|00004cf0| 4a 4d 50 20 53 54 52 54 | 0d 20 3b a0 2a 2a a0 66 |JMP STRT|. ;.**.f|
|00004d00| 45 54 43 48 a0 41 a0 42 | 59 54 45 a0 55 53 49 4e |ETCH.A.B|YTE.USIN|
|00004d10| 47 a0 24 30 31 a0 2a 2a | 0d 46 45 54 43 48 59 20 |G.$01.**|.FETCHY |
|00004d20| 50 48 50 0d 20 53 45 43 | 0d 20 44 46 42 20 24 32 |PHP. SEC|. DFB $2|
|00004d30| 43 0d 46 45 54 43 48 20 | 50 48 50 0d 20 43 4c 43 |C.FETCH |PHP. CLC|
|00004d40| 0d 20 3e 3e 3e 20 50 48 | 58 0d 20 4c 44 58 20 24 |. >>> PH|X. LDX $|
|00004d50| 30 31 0d 20 4c 44 41 20 | 4f 48 4f 4e 45 0d 20 53 |01. LDA |OHONE. S|
|00004d60| 54 41 20 24 30 31 0d 20 | 42 43 53 20 3a 46 45 54 |TA $01. |BCS :FET|
|00004d70| 43 48 59 0d 20 44 46 42 | 20 24 41 37 2c 54 4d 50 |CHY. DFB| $A7,TMP|
|00004d80| 30 20 3b 4c 44 41 a0 5b | 54 4d 50 30 5d 0d 20 44 |0 ;LDA.[|TMP0]. D|
|00004d90| 46 42 20 24 32 43 0d 3a | 46 45 54 43 48 59 20 44 |FB $2C.:|FETCHY D|
|00004da0| 46 42 20 24 42 37 2c 54 | 4d 50 30 20 3b 4c 44 41 |FB $B7,T|MP0 ;LDA|
|00004db0| a0 5b 54 4d 50 30 5d 2c | 59 0d 20 53 54 58 20 24 |.[TMP0],|Y. STX $|
|00004dc0| 30 31 0d 20 3e 3e 3e 20 | 50 4c 58 0d 20 50 4c 50 |01. >>> |PLX. PLP|
|00004dd0| 0d 20 41 4e 44 20 23 24 | 46 46 20 3b 53 45 54 a0 |. AND #$|FF ;SET.|
|00004de0| 46 4c 41 47 53 0d 20 52 | 54 53 0d 20 3b a0 2a 2a |FLAGS. R|TS. ;.**|
|00004df0| a0 63 4f 50 59 a0 54 4d | 50 30 a0 54 4f a0 50 53 |.cOPY.TM|P0.TO.PS|
|00004e00| 41 56 a0 2a 2a 0d 54 4d | 50 32 50 53 41 56 20 4c |AV.**.TM|P2PSAV L|
|00004e10| 44 58 20 23 32 0d 3a 4c | 4f 4f 50 20 4c 44 41 20 |DX #2.:L|OOP LDA |
|00004e20| 54 4d 50 30 2c 58 0d 20 | 53 54 41 20 50 53 41 56 |TMP0,X. |STA PSAV|
|00004e30| 2c 58 0d 20 44 45 58 0d | 20 42 50 4c 20 3a 4c 4f |,X. DEX.| BPL :LO|
|00004e40| 4f 50 0d 20 52 54 53 0d | 20 3b a0 2a 2a a0 63 4f |OP. RTS.| ;.**.cO|
|00004e50| 50 59 a0 50 53 41 56 a0 | 54 4f a0 54 4d 50 30 a0 |PY.PSAV.|TO.TMP0.|
|00004e60| 2a 2a 0d 50 53 41 56 32 | 54 4d 50 20 4c 44 58 20 |**.PSAV2|TMP LDX |
|00004e70| 23 32 0d 3a 4c 4f 4f 50 | 20 4c 44 41 20 50 53 41 |#2.:LOOP| LDA PSA|
|00004e80| 56 2c 58 0d 20 53 54 41 | 20 54 4d 50 30 2c 58 0d |V,X. STA| TMP0,X.|
|00004e90| 20 44 45 58 0d 20 42 50 | 4c 20 3a 4c 4f 4f 50 0d | DEX. BP|L :LOOP.|
|00004ea0| 20 52 54 53 0d 20 3b a0 | 2a 2a a0 62 41 43 4b 57 | RTS. ;.|**.bACKW|
|00004eb0| 41 52 44 53 a0 44 49 53 | 41 53 53 45 4d 42 4c 45 |ARDS.DIS|ASSEMBLE|
|00004ec0| a0 2a 2a 0d 42 41 43 4b | 44 49 53 0d 20 4c 44 41 |.**.BACK|DIS. LDA|
|00004ed0| 20 23 32 31 0d 20 53 54 | 41 20 53 41 56 58 20 3b | #21. ST|A SAVX ;|
|00004ee0| 44 49 53 54 41 4e 43 45 | 0d 3a 4c 4f 4f 50 31 20 |DISTANCE|.:LOOP1 |
|00004ef0| 4a 53 52 20 50 53 41 56 | 32 54 4d 50 0d 20 49 4e |JSR PSAV|2TMP. IN|
|00004f00| 43 20 53 41 56 58 0d 20 | 4a 53 52 20 53 55 42 53 |C SAVX. |JSR SUBS|
|00004f10| 41 56 58 0d 20 4c 44 41 | 20 23 24 31 36 0d 20 53 |AVX. LDA| #$16. S|
|00004f20| 54 41 20 54 4d 50 43 0d | 3a 4c 4f 4f 50 32 20 4a |TA TMPC.|:LOOP2 J|
|00004f30| 53 52 20 46 45 54 43 48 | 20 3b 44 49 53 41 53 53 |SR FETCH| ;DISASS|
|00004f40| 45 4d 42 4c 45 a0 32 32 | a0 4c 49 4e 45 53 0d 20 |EMBLE.22|.LINES. |
|00004f50| 4a 53 52 20 47 45 54 4d | 49 44 58 0d 20 4a 53 52 |JSR GETM|IDX. JSR|
|00004f60| 20 4d 45 4d 41 44 4a 0d | 3a 43 32 20 44 45 43 20 | MEMADJ.|:C2 DEC |
|00004f70| 54 4d 50 43 0d 20 42 4e | 45 20 3a 4c 4f 4f 50 32 |TMPC. BN|E :LOOP2|
|00004f80| 0d 20 4c 44 41 20 50 53 | 41 56 0d 20 43 4d 50 20 |. LDA PS|AV. CMP |
|00004f90| 54 4d 50 30 0d 20 4c 44 | 41 20 50 53 41 56 2b 31 |TMP0. LD|A PSAV+1|
|00004fa0| 0d 20 53 42 43 20 54 4d | 50 30 2b 31 0d 20 4c 44 |. SBC TM|P0+1. LD|
|00004fb0| 41 20 50 53 41 56 2b 32 | 0d 20 53 42 43 20 54 4d |A PSAV+2|. SBC TM|
|00004fc0| 50 30 2b 32 0d 20 42 43 | 43 20 3a 4c 4f 4f 50 31 |P0+2. BC|C :LOOP1|
|00004fd0| 20 3b 75 4e 54 49 4c a0 | 50 53 41 56 a0 3e 3d a0 | ;uNTIL.|PSAV.>=.|
|00004fe0| 54 4d 50 30 0d 20 4a 53 | 52 20 53 55 42 53 41 56 |TMP0. JS|R SUBSAV|
|00004ff0| 58 0d 20 4a 4d 50 20 44 | 49 53 41 53 32 20 3b 61 |X. JMP D|ISAS2 ;a|
|00005000| 4e 44 a0 44 49 53 41 53 | 53 45 4d 42 4c 45 21 0d |ND.DISAS|SEMBLE!.|
|00005010| 53 55 42 53 41 56 58 0d | 20 4c 44 41 20 54 4d 50 |SUBSAVX.| LDA TMP|
|00005020| 30 0d 20 53 45 43 0d 20 | 53 42 43 20 53 41 56 58 |0. SEC. |SBC SAVX|
|00005030| 0d 20 53 54 41 20 54 4d | 50 30 0d 20 42 43 53 20 |. STA TM|P0. BCS |
|00005040| 3a 43 31 0d 20 44 45 43 | 20 54 4d 50 30 2b 31 20 |:C1. DEC| TMP0+1 |
|00005050| 3b 6e 4f a0 32 34 2d 42 | 49 54 a0 57 52 41 50 50 |;nO.24-B|IT.WRAPP|
|00005060| 49 4e 47 0d 3a 43 31 20 | 52 54 53 0d 3b a0 2a 2a |ING.:C1 |RTS.;.**|
|00005070| a0 2e 44 49 53 41 53 53 | 45 4d 42 4c 45 a0 2a 2a |..DISASS|EMBLE.**|
|00005080| 0d 44 49 53 41 53 20 4a | 53 52 20 52 44 4f 43 0d |.DISAS J|SR RDOC.|
|00005090| 20 4a 53 52 20 52 45 41 | 44 32 34 0d 44 49 53 41 | JSR REA|D24.DISA|
|000050a0| 53 32 20 4a 53 52 20 54 | 4d 50 32 50 53 41 56 0d |S2 JSR T|MP2PSAV.|
|000050b0| 20 4c 44 58 20 23 30 0d | 20 53 54 58 20 41 46 4c | LDX #0.| STX AFL|
|000050c0| 47 0d 44 50 41 47 20 4c | 44 41 20 23 24 39 33 20 |G.DPAG L|DA #$93 |
|000050d0| 20 3b 43 4c 52 0d 20 4a | 53 52 20 57 52 54 0d 20 | ;CLR. J|SR WRT. |
|000050e0| 4c 44 41 20 23 24 31 36 | 0d 20 53 54 41 20 54 4d |LDA #$16|. STA TM|
|000050f0| 50 43 0d 44 49 53 4c 50 | 20 4a 53 52 20 44 49 53 |PC.DISLP| JSR DIS|
|00005100| 53 31 0d 20 4a 53 52 20 | 4d 45 4d 41 44 4a 0d 20 |S1. JSR |MEMADJ. |
|00005110| 44 45 43 20 54 4d 50 43 | 0d 20 42 4e 45 20 44 49 |DEC TMPC|. BNE DI|
|00005120| 53 4c 50 0d 20 4c 44 41 | 20 23 24 39 31 20 20 20 |SLP. LDA| #$91   |
|00005130| 20 20 20 20 3b 55 50 0d | 20 4a 53 52 20 57 52 54 |    ;UP.| JSR WRT|
|00005140| 0d 20 4a 4d 50 20 53 54 | 52 54 0d 3b a0 2a 2a a0 |. JMP ST|RT.;.**.|
|00005150| 44 49 53 53 a0 31 a0 4c | 49 4e 45 a0 2a 2a 0d 44 |DISS.1.L|INE.**.D|
|00005160| 49 53 53 31 20 4c 44 59 | 20 23 27 2c 27 0d 20 4a |ISS1 LDY| #','. J|
|00005170| 53 52 20 41 4c 54 52 49 | 54 0d 20 4a 53 52 20 53 |SR ALTRI|T. JSR S|
|00005180| 50 41 43 45 0d 44 49 53 | 53 31 41 20 4a 53 52 20 |PACE.DIS|S1A JSR |
|00005190| 57 52 4f 41 32 34 0d 20 | 4a 53 52 20 53 50 41 43 |WROA24. |JSR SPAC|
|000051a0| 45 0d 20 4a 53 52 20 46 | 45 54 43 48 0d 20 53 54 |E. JSR F|ETCH. ST|
|000051b0| 41 20 52 45 50 54 45 4d | 50 0d 20 4a 53 52 20 47 |A REPTEM|P. JSR G|
|000051c0| 45 54 4d 49 44 58 20 3b | 4d 4e 45 4d 4f 4e 49 43 |ETMIDX ;|MNEMONIC|
|000051d0| a0 49 4e 44 45 58 0d 20 | 54 58 41 0d 20 50 48 41 |.INDEX. |TXA. PHA|
|000051e0| 0d 20 4c 44 59 20 23 30 | 0d 20 4a 53 52 20 44 49 |. LDY #0|. JSR DI|
|000051f0| 53 56 56 0d 20 50 4c 41 | 0d 20 54 41 58 0d 20 4a |SVV. PLA|. TAX. J|
|00005200| 53 52 20 50 52 4f 50 58 | 58 0d 20 4a 53 52 20 50 |SR PROPX|X. JSR P|
|00005210| 52 4c 43 48 41 52 20 3b | 4c 45 41 44 49 4e 47 a0 |RLCHAR ;|LEADING.|
|00005220| 43 48 41 52 53 0d 20 4a | 53 52 20 50 52 41 44 44 |CHARS. J|SR PRADD|
|00005230| 52 20 3b 41 44 44 52 45 | 53 53 0d 20 4c 44 41 20 |R ;ADDRE|SS. LDA |
|00005240| 52 45 50 46 4c 41 47 0d | 20 42 4d 49 20 3a 53 4b |REPFLAG.| BMI :SK|
|00005250| 49 50 0d 20 4c 44 41 20 | 52 45 50 56 41 4c 0d 20 |IP. LDA |REPVAL. |
|00005260| 4c 44 58 20 52 45 50 54 | 45 4d 50 20 3b 63 48 45 |LDX REPT|EMP ;cHE|
|00005270| 43 4b a0 46 4f 52 a0 72 | 65 70 2f 73 65 70 a0 41 |CK.FOR.r|ep/sep.A|
|00005280| 4e 44 a0 41 44 4a 55 53 | 54 0d 20 43 50 58 20 23 |ND.ADJUS|T. CPX #|
|00005290| 24 43 32 0d 20 42 4e 45 | 20 3a 53 45 50 20 3b 53 |$C2. BNE| :SEP ;S|
|000052a0| 54 41 54 55 53 a0 52 45 | 47 a0 41 43 43 4f 52 44 |TATUS.RE|G.ACCORD|
|000052b0| 49 4e 47 4c 59 0d 20 45 | 4f 52 20 23 24 46 46 0d |INGLY. E|OR #$FF.|
|000052c0| 20 41 4e 44 20 46 4c 47 | 53 0d 20 3e 3e 3e 20 42 | AND FLG|S. >>> B|
|000052d0| 52 41 2c 3a 53 54 41 0d | 3a 53 45 50 20 43 50 58 |RA,:STA.|:SEP CPX|
|000052e0| 20 23 24 45 32 0d 20 42 | 4e 45 20 3a 53 4b 49 50 | #$E2. B|NE :SKIP|
|000052f0| 0d 20 4f 52 41 20 46 4c | 47 53 0d 3a 53 54 41 20 |. ORA FL|GS.:STA |
|00005300| 4c 44 58 20 45 4d 55 4c | 0d 20 42 50 4c 20 3a 53 |LDX EMUL|. BPL :S|
|00005310| 54 41 32 0d 20 4f 52 41 | 20 23 24 33 30 20 3b 78 |TA2. ORA| #$30 ;x|
|00005320| a0 41 4e 44 a0 6d a0 41 | 4c 57 41 59 53 a0 53 45 |.AND.m.A|LWAYS.SE|
|00005330| 54 0d 3a 53 54 41 32 20 | 53 54 41 20 46 4c 47 53 |T.:STA2 |STA FLGS|
|00005340| 0d 3a 53 4b 49 50 20 4a | 4d 50 20 50 52 45 43 48 |.:SKIP J|MP PRECH|
|00005350| 41 52 20 3b 46 49 4e 41 | 4c a0 43 48 41 52 53 0d |AR ;FINA|L.CHARS.|
|00005360| 0d 20 3b 2a 2a a0 63 4f | 4d 50 55 54 45 a0 4d 4e |. ;**.cO|MPUTE.MN|
|00005370| 45 4d 4f 4e 49 43 a0 49 | 4e 44 45 58 2c 4d 4f 44 |EMONIC.I|NDEX,MOD|
|00005380| 45 a0 2a 2a 0d 47 45 54 | 4d 49 44 58 20 4c 53 52 |E.**.GET|MIDX LSR|
|00005390| 0d 20 54 41 59 0d 20 42 | 43 43 20 3a 45 56 45 4e |. TAY. B|CC :EVEN|
|000053a0| 0d 3a 4f 44 44 20 43 4d | 50 20 23 24 34 34 20 3b |.:ODD CM|P #$44 ;|
|000053b0| 62 69 74 a0 23 0d 20 42 | 4e 45 20 3a 4e 4f 54 42 |bit.#. B|NE :NOTB|
|000053c0| 49 54 0d 20 4c 44 58 20 | 23 36 0d 20 4c 44 41 20 |IT. LDX |#6. LDA |
|000053d0| 23 31 0d 20 42 4e 45 20 | 3a 4c 45 4e 0d 3a 4e 4f |#1. BNE |:LEN.:NO|
|000053e0| 54 42 49 54 20 41 4e 44 | 20 23 24 30 37 20 3b 65 |TBIT AND| #$07 ;e|
|000053f0| 58 43 45 50 54 49 4f 4e | a0 49 53 a0 24 58 62 0d |XCEPTION|.IS.$Xb.|
|00005400| 20 43 4d 50 20 23 25 30 | 30 30 30 30 31 30 31 0d | CMP #%0|0000101.|
|00005410| 20 42 45 51 20 3a 45 58 | 43 45 50 54 0d 20 54 59 | BEQ :EX|CEPT. TY|
|00005420| 41 0d 20 4c 53 52 0d 20 | 4c 53 52 0d 20 4c 53 52 |A. LSR. |LSR. LSR|
|00005430| 0d 20 4c 53 52 20 3b 4d | 53 44 2f 31 36 2f 32 0d |. LSR ;M|SD/16/2.|
|00005440| 20 54 41 58 0d 20 4c 44 | 41 20 4e 45 4d 54 41 42 | TAX. LD|A NEMTAB|
|00005450| 32 2c 58 0d 20 54 41 58 | 0d 20 54 59 41 0d 20 41 |2,X. TAX|. TYA. A|
|00005460| 4e 44 20 23 24 30 46 0d | 20 54 41 59 20 3b 4c 4f |ND #$0F.| TAY ;LO|
|00005470| 57 a0 35 a0 42 49 54 53 | 2f 32 0d 20 4c 44 41 20 |W.5.BITS|/2. LDA |
|00005480| 4d 4f 44 45 54 41 42 32 | 2c 59 0d 20 42 50 4c 20 |MODETAB2|,Y. BPL |
|00005490| 3a 4c 45 4e 20 3b 2e 78 | a0 2e 61 a0 3d a0 4d 4e |:LEN ;.x|..a.=.MN|
|000054a0| 45 4d 4f 4e 49 43 2c a0 | 41 44 52 a0 4d 4f 44 45 |EMONIC,.|ADR.MODE|
|000054b0| 0d 3a 45 58 43 45 50 54 | 20 54 59 41 0d 20 4c 53 |.:EXCEPT| TYA. LS|
|000054c0| 52 0d 20 4c 53 52 0d 20 | 4c 53 52 0d 20 54 41 59 |R. LSR. |LSR. TAY|
|000054d0| 0d 20 4c 44 58 20 4e 45 | 4d 54 41 42 2b 24 38 30 |. LDX NE|MTAB+$80|
|000054e0| 2c 59 0d 20 4c 44 41 20 | 23 30 30 20 3b 61 4c 4c |,Y. LDA |#00 ;aLL|
|000054f0| a0 41 52 45 a0 4d 4f 44 | 45 a0 30 0d 20 42 45 51 |.ARE.MOD|E.0. BEQ|
|00005500| 20 3a 4c 45 4e 0d 3a 45 | 56 45 4e 20 4c 44 58 20 | :LEN.:E|VEN LDX |
|00005510| 4e 45 4d 54 41 42 2c 59 | 0d 20 4c 44 41 20 4d 4f |NEMTAB,Y|. LDA MO|
|00005520| 44 45 54 41 42 2c 59 0d | 3a 4c 45 4e 20 53 54 41 |DETAB,Y.|:LEN STA|
|00005530| 20 41 43 4d 44 20 3b 4d | 4f 44 45 0d 20 54 41 59 | ACMD ;M|ODE. TAY|
|00005540| 0d 20 4c 44 41 20 4d 4f | 44 45 4c 45 4e 2c 59 0d |. LDA MO|DELEN,Y.|
|00005550| 20 53 54 41 20 4c 45 4e | 47 54 48 0d 20 44 45 59 | STA LEN|GTH. DEY|
|00005560| 0d 20 42 4e 45 20 43 48 | 4b 52 54 53 0d 20 3b 2a |. BNE CH|KRTS. ;*|
|00005570| 2a a0 54 45 53 54 a0 46 | 4f 52 a0 31 36 2d 42 49 |*.TEST.F|OR.16-BI|
|00005580| 54 a0 2a 2a 0d 20 4a 53 | 52 20 46 45 54 43 48 0d |T.**. JS|R FETCH.|
|00005590| 43 48 45 43 4b 31 36 20 | 43 4d 50 20 23 24 41 32 |CHECK16 |CMP #$A2|
|000055a0| 20 3b 6c 64 78 0d 20 42 | 45 51 20 3a 58 43 48 4b | ;ldx. B|EQ :XCHK|
|000055b0| 0d 20 41 4e 44 20 23 24 | 30 46 20 3b 63 70 78 a0 |. AND #$|0F ;cpx.|
|000055c0| 63 70 79 a0 6c 64 79 0d | 20 42 45 51 20 3a 58 43 |cpy.ldy.| BEQ :XC|
|000055d0| 48 4b 0d 20 43 4d 50 20 | 23 39 20 3b 73 65 70 a0 |HK. CMP |#9 ;sep.|
|000055e0| 72 65 70 0d 20 42 4e 45 | 20 43 48 4b 52 54 53 0d |rep. BNE| CHKRTS.|
|000055f0| 20 4c 44 41 20 23 25 30 | 30 31 30 30 30 30 30 0d | LDA #%0|0100000.|
|00005600| 20 44 46 42 20 24 32 43 | 0d 3a 58 43 48 4b 20 4c | DFB $2C|.:XCHK L|
|00005610| 44 41 20 23 25 30 30 30 | 31 30 30 30 30 0d 20 41 |DA #%000|10000. A|
|00005620| 4e 44 20 46 4c 47 53 0d | 20 42 4e 45 20 43 48 4b |ND FLGS.| BNE CHK|
|00005630| 52 54 53 0d 20 49 4e 43 | 20 4c 45 4e 47 54 48 0d |RTS. INC| LENGTH.|
|00005640| 43 48 4b 52 54 53 20 52 | 54 53 0d 20 3b 2a 2a a0 |CHKRTS R|TS. ;**.|
|00005650| 50 52 49 4e 54 a0 4c 45 | 41 44 49 4e 47 a0 43 48 |PRINT.LE|ADING.CH|
|00005660| 41 52 53 a0 2a 2a 0d 50 | 52 4c 43 48 41 52 20 4c |ARS.**.P|RLCHAR L|
|00005670| 44 41 20 41 43 4d 44 0d | 20 42 45 51 20 44 4f 4e |DA ACMD.| BEQ DON|
|00005680| 45 0d 20 43 4d 50 20 23 | 31 0d 20 42 4e 45 20 3a |E. CMP #|1. BNE :|
|00005690| 43 31 0d 20 4c 44 58 20 | 23 27 23 27 0d 20 42 4e |C1. LDX |#'#'. BN|
|000056a0| 45 20 3a 54 57 4f 0d 3a | 43 31 20 43 4d 50 20 23 |E :TWO.:|C1 CMP #|
|000056b0| 31 34 0d 20 42 43 43 20 | 3a 44 4f 4c 4c 41 52 0d |14. BCC |:DOLLAR.|
|000056c0| 20 4c 44 58 20 23 27 28 | 27 0d 20 43 4d 50 20 23 | LDX #'(|'. CMP #|
|000056d0| 32 30 0d 20 42 43 43 20 | 3a 54 57 4f 0d 20 4c 44 |20. BCC |:TWO. LD|
|000056e0| 58 20 23 27 5b 27 0d 3a | 54 57 4f 20 54 58 41 0d |X #'['.:|TWO TXA.|
|000056f0| 20 4a 53 52 20 57 52 54 | 0d 3a 44 4f 4c 4c 41 52 | JSR WRT|.:DOLLAR|
|00005700| 20 4c 44 41 20 23 27 24 | 27 0d 20 4a 4d 50 20 57 | LDA #'$|'. JMP W|
|00005710| 52 54 0d 20 3b 2a 2a a0 | 50 52 49 4e 54 a0 41 44 |RT. ;**.|PRINT.AD|
|00005720| 44 52 45 53 53 a0 2a 2a | 0d 50 52 41 44 44 52 20 |DRESS.**|.PRADDR |
|00005730| 4c 44 59 20 4c 45 4e 47 | 54 48 0d 20 42 45 51 20 |LDY LENG|TH. BEQ |
|00005740| 44 4f 4e 45 0d 20 4c 44 | 41 20 41 43 4d 44 0d 20 |DONE. LD|A ACMD. |
|00005750| 43 4d 50 20 23 32 0d 20 | 42 45 51 20 50 52 4d 4f |CMP #2. |BEQ PRMO|
|00005760| 56 45 0d 20 43 4d 50 20 | 23 33 0d 20 42 45 51 20 |VE. CMP |#3. BEQ |
|00005770| 50 52 45 4c 0d 20 43 4d | 50 20 23 34 0d 20 42 45 |PREL. CM|P #4. BE|
|00005780| 51 20 50 52 45 4c 0d 3a | 4c 4f 4f 50 20 4a 53 52 |Q PREL.:|LOOP JSR|
|00005790| 20 46 45 54 43 48 59 0d | 20 53 54 41 20 52 45 50 | FETCHY.| STA REP|
|000057a0| 56 41 4c 20 3b 75 53 45 | 44 a0 57 49 54 48 a0 72 |VAL ;uSE|D.WITH.r|
|000057b0| 65 70 2f 73 65 70 a0 53 | 54 55 46 46 0d 20 4a 53 |ep/sep.S|TUFF. JS|
|000057c0| 52 20 57 52 4f 42 0d 20 | 44 45 59 0d 20 42 4e 45 |R WROB. |DEY. BNE|
|000057d0| 20 3a 4c 4f 4f 50 0d 44 | 4f 4e 45 20 52 54 53 0d | :LOOP.D|ONE RTS.|
|000057e0| 3b 2a 2a a0 6d 76 6e 2f | 6d 76 70 a0 41 44 44 52 |;**.mvn/|mvp.ADDR|
|000057f0| 45 53 53 a0 2a 2a 0d 50 | 52 4d 4f 56 45 20 4a 53 |ESS.**.P|RMOVE JS|
|00005800| 52 20 3a 50 52 49 4e 54 | 0d 20 4c 44 58 20 23 27 |R :PRINT|. LDX #'|
|00005810| 2c 27 0d 20 4c 44 41 20 | 23 27 24 27 0d 20 4a 53 |,'. LDA |#'$'. JS|
|00005820| 52 20 57 52 54 57 4f 0d | 20 44 45 59 0d 3a 50 52 |R WRTWO.| DEY.:PR|
|00005830| 49 4e 54 20 4a 53 52 20 | 46 45 54 43 48 59 0d 20 |INT JSR |FETCHY. |
|00005840| 4a 4d 50 20 57 52 4f 42 | 0d 3b 20 2a 2a 20 50 52 |JMP WROB|.; ** PR|
|00005850| 49 4e 54 20 52 45 4c 20 | 41 44 44 52 45 53 53 20 |INT REL |ADDRESS |
|00005860| 2a 2a 0d 50 52 45 4c 20 | 4c 44 58 20 23 30 30 0d |**.PREL |LDX #00.|
|00005870| 20 4a 53 52 20 46 45 54 | 43 48 59 0d 20 43 4c 43 | JSR FET|CHY. CLC|
|00005880| 0d 20 42 50 4c 20 3a 54 | 45 53 54 0d 20 44 45 58 |. BPL :T|EST. DEX|
|00005890| 0d 3a 54 45 53 54 20 44 | 45 59 20 3b 4c 45 4e 47 |.:TEST D|EY ;LENG|
|000058a0| 54 48 0d 20 42 45 51 20 | 3a 38 42 49 54 0d 20 54 |TH. BEQ |:8BIT. T|
|000058b0| 41 58 0d 20 4a 53 52 20 | 46 45 54 43 48 59 0d 20 |AX. JSR |FETCHY. |
|000058c0| 53 45 43 0d 3a 38 42 49 | 54 20 41 44 43 20 23 32 |SEC.:8BI|T ADC #2|
|000058d0| 20 3b 42 4c 45 41 48 0d | 20 42 43 43 20 3a 43 41 | ;BLEAH.| BCC :CA|
|000058e0| 4c 43 0d 20 49 4e 58 0d | 20 43 4c 43 0d 3a 43 41 |LC. INX.| CLC.:CA|
|000058f0| 4c 43 20 4a 53 52 20 50 | 43 41 44 4a 32 0d 20 54 |LC JSR P|CADJ2. T|
|00005900| 41 58 0d 20 54 59 41 0d | 20 4a 53 52 20 50 52 42 |AX. TYA.| JSR PRB|
|00005910| 59 54 45 0d 20 54 58 41 | 0d 50 52 42 59 54 45 20 |YTE. TXA|.PRBYTE |
|00005920| 53 54 58 20 53 41 56 58 | 0d 20 4a 53 52 20 57 52 |STX SAVX|. JSR WR|
|00005930| 4f 42 0d 20 4c 44 58 20 | 53 41 56 58 0d 20 52 54 |OB. LDX |SAVX. RT|
|00005940| 53 20 0d 20 3b 2a 2a a0 | 50 52 49 4e 54 a0 45 4e |S . ;**.|PRINT.EN|
|00005950| 44 a0 43 48 41 52 41 43 | 54 45 52 53 a0 2a 2a 0d |D.CHARAC|TERS.**.|
|00005960| 50 52 45 43 48 41 52 20 | 4c 44 59 20 41 43 4d 44 |PRECHAR |LDY ACMD|
|00005970| 0d 3a 53 51 55 41 52 45 | 20 43 50 59 20 23 32 30 |.:SQUARE| CPY #20|
|00005980| 0d 20 42 43 43 20 3a 43 | 4f 4d 4d 41 53 0d 20 4c |. BCC :C|OMMAS. L|
|00005990| 44 41 20 23 27 5d 27 0d | 20 4a 53 52 20 57 52 54 |DA #']'.| JSR WRT|
|000059a0| 0d 3a 43 4f 4d 4d 41 53 | 20 4c 44 58 20 23 27 2c |.:COMMAS| LDX #',|
|000059b0| 27 0d 20 43 50 59 20 23 | 31 39 0d 20 42 45 51 20 |'. CPY #|19. BEQ |
|000059c0| 3a 50 52 53 0d 20 43 50 | 59 20 23 35 0d 20 42 4e |:PRS. CP|Y #5. BN|
|000059d0| 45 20 3a 43 4f 4d 4d 41 | 58 0d 3a 50 52 53 20 4c |E :COMMA|X.:PRS L|
|000059e0| 44 41 20 23 27 53 27 0d | 20 4a 53 52 20 57 52 54 |DA #'S'.| JSR WRT|
|000059f0| 57 4f 0d 3a 43 4f 4d 4d | 41 58 20 4a 53 52 20 49 |WO.:COMM|AX JSR I|
|00005a00| 53 43 4f 4d 58 0d 20 42 | 4e 45 20 3a 50 41 52 45 |SCOMX. B|NE :PARE|
|00005a10| 4e 0d 20 4c 44 41 20 23 | 27 58 27 0d 20 4a 53 52 |N. LDA #|'X'. JSR|
|00005a20| 20 57 52 54 57 4f 0d 3a | 50 41 52 45 4e 20 43 50 | WRTWO.:|PAREN CP|
|00005a30| 59 20 23 31 34 0d 20 42 | 43 43 20 3a 43 4f 4d 4d |Y #14. B|CC :COMM|
|00005a40| 41 59 0d 20 43 50 59 20 | 23 32 30 0d 20 42 43 53 |AY. CPY |#20. BCS|
|00005a50| 20 3a 43 4f 4d 4d 41 59 | 0d 20 4c 44 41 20 23 27 | :COMMAY|. LDA #'|
|00005a60| 29 27 0d 20 4a 53 52 20 | 57 52 54 0d 3a 43 4f 4d |)'. JSR |WRT.:COM|
|00005a70| 4d 41 59 20 4a 53 52 20 | 49 53 43 4f 4d 59 0d 20 |MAY JSR |ISCOMY. |
|00005a80| 42 4e 45 20 3a 42 59 45 | 0d 20 4c 44 41 20 23 27 |BNE :BYE|. LDA #'|
|00005a90| 59 27 0d 20 4a 53 52 20 | 57 52 54 57 4f 0d 3a 42 |Y'. JSR |WRTWO.:B|
|00005aa0| 59 45 20 52 54 53 0d 20 | 3b 2a 2a a0 63 48 45 43 |YE RTS. |;**.cHEC|
|00005ab0| 4b a0 46 4f 52 a0 2c 58 | a0 41 4e 44 a0 2c 59 a0 |K.FOR.,X|.AND.,Y.|
|00005ac0| 2a 2a 0d 49 53 43 4f 4d | 58 20 43 50 59 20 23 37 |**.ISCOM|X CPY #7|
|00005ad0| 0d 20 42 45 51 20 3a 52 | 54 53 0d 20 43 50 59 20 |. BEQ :R|TS. CPY |
|00005ae0| 23 31 30 0d 20 42 45 51 | 20 3a 52 54 53 0d 20 43 |#10. BEQ| :RTS. C|
|00005af0| 50 59 20 23 31 33 0d 20 | 42 45 51 20 3a 52 54 53 |PY #13. |BEQ :RTS|
|00005b00| 0d 20 43 50 59 20 23 31 | 37 0d 20 42 45 51 20 3a |. CPY #1|7. BEQ :|
|00005b10| 52 54 53 0d 20 43 50 59 | 20 23 31 38 0d 3a 52 54 |RTS. CPY| #18.:RT|
|00005b20| 53 20 52 54 53 0d 0d 49 | 53 43 4f 4d 59 20 43 50 |S RTS..I|SCOMY CP|
|00005b30| 59 20 23 38 0d 20 42 45 | 51 20 3a 52 54 53 0d 20 |Y #8. BE|Q :RTS. |
|00005b40| 43 50 59 20 23 31 31 0d | 20 42 45 51 20 3a 52 54 |CPY #11.| BEQ :RT|
|00005b50| 53 0d 20 43 50 59 20 23 | 31 36 0d 20 42 45 51 20 |S. CPY #|16. BEQ |
|00005b60| 3a 52 54 53 0d 20 43 50 | 59 20 23 31 39 0d 20 42 |:RTS. CP|Y #19. B|
|00005b70| 45 51 20 3a 52 54 53 0d | 20 43 50 59 20 23 32 31 |EQ :RTS.| CPY #21|
|00005b80| 0d 3a 52 54 53 20 52 54 | 53 0d 3b a0 2a 2a a0 41 |.:RTS RT|S.;.**.A|
|00005b90| 44 44 a0 4c 45 4e 47 54 | 48 2b 31 a0 54 4f a0 50 |DD.LENGT|H+1.TO.P|
|00005ba0| 43 a0 2a 2a 0d 50 43 41 | 44 4a 20 4c 44 58 20 23 |C.**.PCA|DJ LDX #|
|00005bb0| 30 30 0d 20 4c 44 41 20 | 4c 45 4e 47 54 48 0d 20 |00. LDA |LENGTH. |
|00005bc0| 53 45 43 0d 50 43 41 44 | 4a 32 20 41 44 43 20 54 |SEC.PCAD|J2 ADC T|
|00005bd0| 4d 50 30 20 3b 52 45 53 | 55 4c 54 2d 3e a0 2e 61 |MP0 ;RES|ULT->..a|
|00005be0| a0 2e 79 a0 2e 78 a0 3d | a0 4c 4f a0 48 49 a0 48 |..y..x.=|.LO.HI.H|
|00005bf0| 49 32 34 0d 20 50 48 41 | 0d 20 54 58 41 0d 20 41 |I24. PHA|. TXA. A|
|00005c00| 44 43 20 54 4d 50 30 2b | 31 0d 20 54 41 59 0d 20 |DC TMP0+|1. TAY. |
|00005c10| 4c 44 41 20 54 4d 50 30 | 2b 32 0d 20 41 44 43 20 |LDA TMP0|+2. ADC |
|00005c20| 23 30 30 0d 20 54 41 58 | 0d 20 50 4c 41 0d 20 52 |#00. TAX|. PLA. R|
|00005c30| 54 53 0d 3b a0 50 52 49 | 4e 54 a0 42 59 54 45 53 |TS.;.PRI|NT.BYTES|
|00005c40| 0d 44 49 53 56 56 20 4a | 53 52 20 46 45 54 43 48 |.DISVV J|SR FETCH|
|00005c50| 59 20 3b 4c 44 41 a0 5b | 54 4d 50 30 5d 2c 59 0d |Y ;LDA.[|TMP0],Y.|
|00005c60| 20 4a 53 52 20 50 52 42 | 59 54 45 0d 20 4c 44 58 | JSR PRB|YTE. LDX|
|00005c70| 20 23 31 0d 44 49 53 56 | 4c 20 4a 53 52 20 53 50 | #1.DISV|L JSR SP|
|00005c80| 41 43 44 0d 20 43 50 59 | 20 4c 45 4e 47 54 48 0d |ACD. CPY| LENGTH.|
|00005c90| 20 49 4e 59 20 0d 20 42 | 43 43 20 44 49 53 56 56 | INY . B|CC DISVV|
|00005ca0| 0d 20 4c 44 58 20 23 24 | 30 33 0d 20 43 50 59 20 |. LDX #$|03. CPY |
|00005cb0| 23 34 0d 20 42 43 43 20 | 44 49 53 56 4c 0d 20 52 |#4. BCC |DISVL. R|
|00005cc0| 54 53 0d 3b a0 2a 2a a0 | 50 52 49 4e 54 a0 4d 4e |TS.;.**.|PRINT.MN|
|00005cd0| 45 4d 4f 4e 49 43 a0 49 | 4e a0 2e 78 a0 2a 2a 0d |EMONIC.I|N..x.**.|
|00005ce0| 50 52 4f 50 58 58 20 4c | 44 41 20 4d 4e 45 4d 4c |PROPXX L|DA MNEML|
|00005cf0| 2c 58 0d 20 53 54 41 20 | 41 46 4c 47 0d 20 4c 44 |,X. STA |AFLG. LD|
|00005d00| 41 20 4d 4e 45 4d 52 2c | 58 0d 20 53 54 41 20 41 |A MNEMR,|X. STA A|
|00005d10| 46 4c 47 2b 31 0d 20 4c | 44 58 20 23 33 0d 3a 4c |FLG+1. L|DX #3.:L|
|00005d20| 4f 4f 50 31 20 4c 44 41 | 20 23 30 0d 20 4c 44 59 |OOP1 LDA| #0. LDY|
|00005d30| 20 23 24 30 35 0d 3a 4c | 4f 4f 50 32 20 41 53 4c | #$05.:L|OOP2 ASL|
|00005d40| 20 41 46 4c 47 2b 31 0d | 20 52 4f 4c 20 41 46 4c | AFLG+1.| ROL AFL|
|00005d50| 47 0d 20 52 4f 4c 20 41 | 0d 20 44 45 59 0d 20 42 |G. ROL A|. DEY. B|
|00005d60| 4e 45 20 3a 4c 4f 4f 50 | 32 0d 20 41 44 43 20 23 |NE :LOOP|2. ADC #|
|00005d70| 24 34 30 0d 20 4a 53 52 | 20 57 52 54 0d 20 44 45 |$40. JSR| WRT. DE|
|00005d80| 58 0d 20 42 4e 45 20 3a | 4c 4f 4f 50 31 0d 3b 20 |X. BNE :|LOOP1.; |
|00005d90| 2a 2a 20 50 52 49 4e 54 | 20 53 50 41 43 45 20 2a |** PRINT| SPACE *|
|00005da0| 2a 0d 53 50 41 43 45 20 | 4c 44 41 20 23 24 32 30 |*.SPACE |LDA #$20|
|00005db0| 0d 20 42 4e 45 20 46 4c | 49 50 0d 3b a0 2a 2a a0 |. BNE FL|IP.;.**.|
|00005dc0| 50 52 49 4e 54 a0 43 52 | 2c a0 4d 41 59 42 45 a0 |PRINT.CR|,.MAYBE.|
|00005dd0| 4c 46 a0 2a 2a 0d 43 52 | 4c 46 20 4c 44 41 20 23 |LF.**.CR|LF LDA #|
|00005de0| 24 30 44 0d 20 42 49 54 | 20 24 31 33 0d 20 42 50 |$0D. BIT| $13. BP|
|00005df0| 4c 20 46 4c 49 50 0d 20 | 4a 53 52 20 57 52 54 0d |L FLIP. |JSR WRT.|
|00005e00| 20 4c 44 41 20 23 24 30 | 41 0d 46 4c 49 50 20 4a | LDA #$0|A.FLIP J|
|00005e10| 4d 50 20 57 52 54 0d 3b | a0 2a 2a 2e 50 a0 44 49 |MP WRT.;|.**.P.DI|
|00005e20| 53 41 53 53 45 4d 42 4c | 45 a0 2a 2a 0d 50 52 49 |SASSEMBL|E.**.PRI|
|00005e30| 4e 20 4a 53 52 20 49 4e | 50 55 54 0d 20 50 48 41 |N JSR IN|PUT. PHA|
|00005e40| 0d 20 4a 53 52 20 54 32 | 54 32 0d 20 50 4c 41 0d |. JSR T2|T2. PLA.|
|00005e50| 20 4a 53 52 20 47 45 54 | 32 42 0d 20 4a 53 52 20 | JSR GET|2B. JSR |
|00005e60| 54 32 54 32 0d 20 44 46 | 42 20 24 36 34 2c 41 46 |T2T2. DF|B $64,AF|
|00005e70| 4c 47 20 3b 73 74 7a 0d | 50 4c 4f 4f 50 20 4a 53 |LG ;stz.|PLOOP JS|
|00005e80| 52 20 43 52 4c 46 0d 20 | 4a 53 52 20 44 49 53 53 |R CRLF. |JSR DISS|
|00005e90| 31 41 0d 20 4a 53 52 20 | 4d 45 4d 41 44 4a 0d 20 |1A. JSR |MEMADJ. |
|00005ea0| 4a 53 52 20 53 54 4f 50 | 31 0d 20 42 45 51 20 53 |JSR STOP|1. BEQ S|
|00005eb0| 54 52 54 58 0d 20 4a 53 | 52 20 44 49 46 46 50 0d |TRTX. JS|R DIFFP.|
|00005ec0| 20 42 43 53 20 50 4c 4f | 4f 50 0d 53 54 52 54 58 | BCS PLO|OP.STRTX|
|00005ed0| 20 4a 4d 50 20 53 54 52 | 54 0d 3b 20 2a 2a 20 52 | JMP STR|T.; ** R|
|00005ee0| 45 2d 44 49 53 41 53 53 | 45 4d 42 4c 45 20 2a 2a |E-DISASS|EMBLE **|
|00005ef0| 0d 52 45 44 49 53 20 4a | 53 52 20 49 4e 50 55 54 |.REDIS J|SR INPUT|
|00005f00| 0d 20 4c 44 41 20 23 24 | 30 34 0d 20 53 54 41 20 |. LDA #$|04. STA |
|00005f10| 54 4d 50 43 0d 3a 4c 4f | 4f 50 20 4a 53 52 20 42 |TMPC.:LO|OP JSR B|
|00005f20| 59 54 45 0d 20 42 45 51 | 20 3a 44 4f 4e 45 0d 20 |YTE. BEQ| :DONE. |
|00005f30| 4a 53 52 20 52 44 4f 43 | 0d 20 43 4d 50 20 23 24 |JSR RDOC|. CMP #$|
|00005f40| 32 30 0d 20 42 45 51 20 | 3a 4c 4f 4f 50 0d 3a 44 |20. BEQ |:LOOP.:D|
|00005f50| 4f 4e 45 20 4a 53 52 20 | 50 53 41 56 32 54 4d 50 |ONE JSR |PSAV2TMP|
|00005f60| 0d 20 4a 4d 50 20 44 50 | 41 47 0d 0d 46 49 4e 44 |. JMP DP|AG..FIND|
|00005f70| 4d 4e 45 4d 20 4c 44 58 | 20 23 39 31 20 3b 66 49 |MNEM LDX| #91 ;fI|
|00005f80| 4e 44 a0 4d 4e 45 4d 4f | 4e 49 43 a0 49 4e a0 54 |ND.MNEMO|NIC.IN.T|
|00005f90| 48 45 a0 54 41 42 4c 45 | 0d 3a 4c 4f 4f 50 20 4c |HE.TABLE|.:LOOP L|
|00005fa0| 44 41 20 4d 4e 45 4d 4c | 2c 58 0d 20 43 4d 50 20 |DA MNEML|,X. CMP |
|00005fb0| 53 54 41 47 45 0d 20 42 | 4e 45 20 3a 4e 45 58 54 |STAGE. B|NE :NEXT|
|00005fc0| 0d 20 4c 44 41 20 4d 4e | 45 4d 52 2c 58 0d 20 43 |. LDA MN|EMR,X. C|
|00005fd0| 4d 50 20 53 54 41 47 45 | 2b 31 0d 20 42 4e 45 20 |MP STAGE|+1. BNE |
|00005fe0| 3a 4e 45 58 54 0d 20 53 | 54 58 20 53 54 41 47 45 |:NEXT. S|TX STAGE|
|00005ff0| 20 3b 6d 4e 45 4d 4f 4e | 49 43 a0 49 4e 44 45 58 | ;mNEMON|IC.INDEX|
|00006000| 0d 20 52 54 53 0d 3a 4e | 45 58 54 20 44 45 58 0d |. RTS.:N|EXT DEX.|
|00006010| 20 42 50 4c 20 3a 4c 4f | 4f 50 0d 20 4a 4d 50 20 | BPL :LO|OP. JMP |
|00006020| 45 52 52 4f 52 0d 0d 49 | 53 4c 45 41 44 20 3b 2a |ERROR..I|SLEAD ;*|
|00006030| 2a a0 69 53 a0 2e 61 a0 | 41 a0 4c 45 41 44 49 4e |*.iS..a.|A.LEADIN|
|00006040| 47 a0 43 48 41 52 3f 0d | 3a 4c 4f 4f 50 20 43 4d |G.CHAR?.|:LOOP CM|
|00006050| 50 20 4c 45 41 44 43 48 | 41 52 2c 58 0d 20 42 45 |P LEADCH|AR,X. BE|
|00006060| 51 20 3a 4f 55 54 0d 20 | 44 45 58 0d 20 42 50 4c |Q :OUT. |DEX. BPL|
|00006070| 20 3a 4c 4f 4f 50 0d 3a | 4f 55 54 20 52 54 53 0d | :LOOP.:|OUT RTS.|
|00006080| 0d 49 53 45 4e 44 20 4c | 44 58 20 23 33 20 3b 2a |.ISEND L|DX #3 ;*|
|00006090| 2a a0 69 53 a0 2e 61 a0 | 41 4e a0 45 4e 44 49 4e |*.iS..a.|AN.ENDIN|
|000060a0| 47 a0 43 48 41 52 3f 0d | 3a 4c 4f 4f 50 20 43 4d |G.CHAR?.|:LOOP CM|
|000060b0| 50 20 45 4e 44 43 48 41 | 52 2c 58 0d 20 42 45 51 |P ENDCHA|R,X. BEQ|
|000060c0| 20 3a 4f 55 54 0d 20 44 | 45 58 0d 20 42 50 4c 20 | :OUT. D|EX. BPL |
|000060d0| 3a 4c 4f 4f 50 0d 3a 4f | 55 54 20 52 54 53 0d 20 |:LOOP.:O|UT RTS. |
|000060e0| 3b 2a 2a a0 66 4c 49 50 | a0 78 a0 41 4e 44 a0 6d |;**.fLIP|.x.AND.m|
|000060f0| a0 42 49 54 53 a0 2a 2a | 0d 46 4c 49 50 42 49 54 |.BITS.**|.FLIPBIT|
|00006100| 20 4a 53 52 20 52 44 54 | 0d 20 4c 44 58 20 23 24 | JSR RDT|. LDX #$|
|00006110| 33 30 0d 20 43 4d 50 20 | 23 27 4d 27 0d 20 42 4e |30. CMP |#'M'. BN|
|00006120| 45 20 3a 43 31 0d 20 4c | 44 58 20 23 24 32 30 0d |E :C1. L|DX #$20.|
|00006130| 3a 43 31 20 43 4d 50 20 | 23 27 58 27 0d 20 42 4e |:C1 CMP |#'X'. BN|
|00006140| 45 20 3a 43 32 0d 20 4c | 44 58 20 23 24 31 30 0d |E :C2. L|DX #$10.|
|00006150| 3a 43 32 20 4c 44 41 20 | 45 4d 55 4c 0d 20 42 4d |:C2 LDA |EMUL. BM|
|00006160| 49 20 3a 53 4b 49 50 0d | 20 54 58 41 0d 20 45 4f |I :SKIP.| TXA. EO|
|00006170| 52 20 46 4c 47 53 0d 20 | 53 54 41 20 46 4c 47 53 |R FLGS. |STA FLGS|
|00006180| 0d 3a 53 4b 49 50 20 4a | 53 52 20 44 49 53 50 4c |.:SKIP J|SR DISPL|
|00006190| 41 59 52 0d 20 50 4c 41 | 0d 20 50 4c 41 0d 20 4a |AYR. PLA|. PLA. J|
|000061a0| 4d 50 20 41 53 4d 4e 45 | 58 54 0d 20 3b 2a 2a a0 |MP ASMNE|XT. ;**.|
|000061b0| 72 45 41 44 a0 49 4e a0 | 41 4e 44 a0 50 41 43 4b |rEAD.IN.|AND.PACK|
|000061c0| a0 4d 4e 45 4d 4f 4e 49 | 43 0d 50 41 43 4b 4d 20 |.MNEMONI|C.PACKM |
|000061d0| 48 45 58 20 39 43 20 3b | 73 74 7a 0d 20 44 41 20 |HEX 9C ;|stz. DA |
|000061e0| 53 54 41 47 45 0d 20 48 | 45 58 20 39 43 0d 20 44 |STAGE. H|EX 9C. D|
|000061f0| 41 20 53 54 41 47 45 2b | 31 0d 20 4a 53 52 20 47 |A STAGE+|1. JSR G|
|00006200| 54 43 48 52 0d 20 43 4d | 50 20 23 27 21 27 0d 20 |TCHR. CM|P #'!'. |
|00006210| 42 45 51 20 46 4c 49 50 | 42 49 54 0d 20 50 48 41 |BEQ FLIP|BIT. PHA|
|00006220| 0d 20 4a 53 52 20 52 44 | 4f 43 0d 20 50 48 41 0d |. JSR RD|OC. PHA.|
|00006230| 20 4a 53 52 20 52 44 4f | 43 0d 20 50 48 41 0d 20 | JSR RDO|C. PHA. |
|00006240| 4c 44 59 20 23 33 0d 3a | 4c 4f 4f 50 32 20 50 4c |LDY #3.:|LOOP2 PL|
|00006250| 41 0d 20 4c 44 58 20 23 | 35 0d 3a 4c 4f 4f 50 20 |A. LDX #|5.:LOOP |
|00006260| 4c 53 52 0d 20 52 4f 52 | 20 53 54 41 47 45 0d 20 |LSR. ROR| STAGE. |
|00006270| 52 4f 52 20 53 54 41 47 | 45 2b 31 0d 20 44 45 58 |ROR STAG|E+1. DEX|
|00006280| 0d 20 42 4e 45 20 3a 4c | 4f 4f 50 0d 20 44 45 59 |. BNE :L|OOP. DEY|
|00006290| 0d 20 42 4e 45 20 3a 4c | 4f 4f 50 32 0d 20 4a 4d |. BNE :L|OOP2. JM|
|000062a0| 50 20 46 49 4e 44 4d 4e | 45 4d 20 3b 2e 2e 2e 41 |P FINDMN|EM ;...A|
|000062b0| 4e 44 a0 46 49 4e 44 a0 | 49 54 a0 49 4e a0 54 48 |ND.FIND.|IT.IN.TH|
|000062c0| 45 a0 54 41 42 4c 45 0d | 0d 20 3b 2a 2a a0 61 53 |E.TABLE.|. ;**.aS|
|000062d0| 53 45 4d 42 4c 45 a0 2a | 2a 0d 41 53 53 45 4d 42 |SEMBLE.*|*.ASSEMB|
|000062e0| 4c 45 20 4a 53 52 20 52 | 44 4f 43 0d 20 4a 53 52 |LE JSR R|DOC. JSR|
|000062f0| 20 52 45 41 44 32 34 20 | 3b 41 44 44 52 45 53 53 | READ24 |;ADDRESS|
|00006300| 0d 20 42 43 43 20 4a 45 | 52 52 31 0d 20 43 4d 50 |. BCC JE|RR1. CMP|
|00006310| 20 23 24 30 44 0d 20 42 | 4e 45 20 41 52 44 41 52 | #$0D. B|NE ARDAR|
|00006320| 47 0d 20 4a 4d 50 20 53 | 54 52 54 0d 41 52 44 41 |G. JMP S|TRT.ARDA|
|00006330| 52 47 20 4a 53 52 20 50 | 41 43 4b 4d 20 3b 4d 4e |RG JSR P|ACKM ;MN|
|00006340| 45 4d 4f 4e 49 43 0d 20 | 4a 53 52 20 47 45 54 43 |EMONIC. |JSR GETC|
|00006350| 48 41 52 20 3b 41 52 47 | 55 4d 45 4e 54 0d 20 4c |HAR ;ARG|UMENT. L|
|00006360| 44 58 20 23 37 0d 20 4a | 53 52 20 49 53 4c 45 41 |DX #7. J|SR ISLEA|
|00006370| 44 0d 20 42 4e 45 20 4a | 45 52 52 31 0d 20 44 46 |D. BNE J|ERR1. DF|
|00006380| 42 20 24 36 34 2c 41 46 | 4c 47 20 3b 73 74 7a a0 |B $64,AF|LG ;stz.|
|00006390| 61 66 6c 67 0d 20 54 58 | 41 0d 20 41 53 4c 0d 20 |aflg. TX|A. ASL. |
|000063a0| 54 41 58 0d 20 3e 3e 3e | 20 50 45 52 2c 53 55 50 |TAX. >>>| PER,SUP|
|000063b0| 45 52 0d 20 3e 3e 3e 20 | 52 45 50 2c 24 32 30 0d |ER. >>> |REP,$20.|
|000063c0| 20 50 4c 41 0d 20 43 4c | 43 0d 20 41 44 43 20 4c | PLA. CL|C. ADC L|
|000063d0| 45 41 44 41 44 52 2c 58 | 0d 20 50 48 41 0d 20 3e |EADADR,X|. PHA. >|
|000063e0| 3e 3e 20 53 45 50 2c 24 | 33 30 0d 20 52 54 53 0d |>> SEP,$|30. RTS.|
|000063f0| 3b 2a 2a a0 66 4f 52 4d | a0 4e 55 4d 42 45 52 a0 |;**.fORM|.NUMBER.|
+--------+-------------------------+-------------------------+--------+--------+