a000: sty  $e3,X                ; 94 e3
a002: ???                       ; 7b
a003: ???                       ; e3
a004: ???                       ; 43
a005: ???                       ; 42
a006: eor  $4142                ; 4d 42 41
a009: ???                       ; 53
a00a: eor  #$43                 ; 49 43
a00c: bmi  $9fb6                ; 30 a8
a00e: eor  (INBIT,X)            ; 41 a7
a010: ora  $f7ad,X              ; 1d ad f7
a013: tay                       ; a8
a014: ldy  RIPRTY               ; a4 ab
a016: ldx  $80ab,Y              ; be ab 80
a019: bcs  $a020                ; b0 05
a01b: ldy  $a9a4                ; ac a4 a9
a01e: ???                       ; 9f
a01f: tay                       ; a8
a020: bvs  $9fca                ; 70 a8
a022: ???                       ; 27
a023: lda  #$1c                 ; a9 1c
a025: tay                       ; a8
a026: ???                       ; 82
a027: tay                       ; a8
a028: cmp  (BITC1),Y            ; d1 a8
a02a: ???                       ; 3a
a02b: lda  #$2e                 ; a9 2e
a02d: tay                       ; a8
a02e: lsr  a                    ; 4a
a02f: lda  #$2c                 ; a9 2c
a031: clv                       ; b8
a032: ???                       ; 67
a033: sbc  ($55,X)              ; e1 55
a035: sbc  ($64,X)              ; e1 64
a037: sbc  (TAPE1,X)            ; e1 b2
a039: ???                       ; b3
a03a: ???                       ; 23
a03b: clv                       ; b8
a03c: ???                       ; 7f
a03d: tax                       ; aa
a03e: ???                       ; 9f
a03f: tax                       ; aa
a040: lsr  BITC1,X              ; 56 a8
a042: ???                       ; 9b
a043: ldx  $5d                  ; a6 5d
a045: ldx  $85                  ; a6 85
a047: tax                       ; aa
a048: and  #$e1                 ; 29 e1
a04a: lda  $c6e1,X              ; bd e1 c6
a04d: sbc  (TXTPTR,X)           ; e1 7a
a04f: ???                       ; ab
a050: eor  (BUFPNT,X)           ; 41 a6
a052: and  $ccbc,Y              ; 39 bc cc
a055: ldy  abs,X                ; bc 58 bc
a058: bpl  $a05d                ; 10 03
a05a: adc  $9eb3,X              ; 7d b3 9e
a05d: ???                       ; b3
a05e: adc  (MYCH),Y             ; 71 bf
a060: ???                       ; 97
a061: cpx  #$ea                 ; e0 ea
a063: lda  exp,Y                ; b9 ed bf
a066: ???                       ; 64
a067: ???                       ; e2
a068: ???                       ; 6b
a069: ???                       ; e2
a06a: ldy  $e2,X                ; b4 e2
a06c: asl  $0de3                ; 0e e3 0d
a06f: clv                       ; b8
a070: ???                       ; 7c
a071: ???                       ; b7
a072: adc  BITTS                ; 65 b4
a074: lda  $8bb7                ; ad b7 8b
a077: ???                       ; b7
a078: cpx  RODATA               ; ec b6 00
a07b: ???                       ; b7
a07c: bit  $37b7                ; 2c b7 37
a07f: ???                       ; b7
a080: adc  $b869,Y              ; 79 69 b8
a083: adc  $b852,Y              ; 79 52 b8
a086: ???                       ; 7b
a087: rol  a                    ; 2a
a088: tsx                       ; ba
a089: ???                       ; 7b
a08a: ora  (FNADR),Y            ; 11 bb
a08c: ???                       ; 7f
a08d: ???                       ; 7a
a08e: ???                       ; bf
a08f: bvc  $a079                ; 50 e8
a091: ???                       ; af
a092: lsr  $e5                  ; 46 e5
a094: ???                       ; af
a095: adc  $bfb3,X              ; 7d b3 bf
a098: ???                       ; 5a
a099: ???                       ; d3
a09a: ldx  $1564                ; ae 64 15
a09d: bcs  $a0e4                ; b0 45
a09f: lsr  $46c4                ; 4e c4 46
a0a2: ???                       ; 4f
a0a3: ???                       ; d2
a0a4: lsr  $5845                ; 4e 45 58
a0a7: ???                       ; d4
a0a8: ???                       ; 44
a0a9: eor  (JMPER,X)            ; 41 54
a0ab: cmp  (FORPNT,X)           ; c1 49
a0ad: lsr  $5550                ; 4e 50 55
a0b0: ???                       ; 54
a0b1: ???                       ; a3
a0b2: eor  #$4e                 ; 49 4e
a0b4: bvc  $a10b                ; 50 55
a0b6: ???                       ; d4
a0b7: ???                       ; 44
a0b8: eor  #$cd                 ; 49 cd
a0ba: ???                       ; 52
a0bb: eor  DATPTR               ; 45 41
a0bd: cpy  VARTXT+1             ; c4 4c
a0bf: eor  QTSW                 ; 45 d4
a0c1: ???                       ; 47
a0c2: ???                       ; 4f
a0c3: ???                       ; 54
a0c4: ???                       ; cf
a0c5: ???                       ; 52
a0c6: eor  GDBLN,X              ; 55 ce
a0c8: eor  #$c6                 ; 49 c6
a0ca: ???                       ; 52
a0cb: eor  FOUR6                ; 45 53
a0cd: ???                       ; 54
a0ce: ???                       ; 4f
a0cf: ???                       ; 52
a0d0: cmp  VARPNT               ; c5 47
a0d2: ???                       ; 4f
a0d3: ???                       ; 53
a0d4: eor  STAL+1,X             ; 55 c2
a0d6: ???                       ; 52
a0d7: eor  JMPER                ; 45 54
a0d9: eor  $52,X                ; 55 52
a0db: dec  $4552                ; ce 52 45
a0de: cmp  $5453                ; cd 53 54
a0e1: ???                       ; 4f
a0e2: bne  $a133                ; d0 4f
a0e4: dec  $4157                ; ce 57 41
a0e7: eor  #$d4                 ; 49 d4
a0e9: jmp  $414f                ; 4c 4f 41
a0ec: cpy  FOUR6                ; c4 53
a0ee: eor  ($56,X)              ; 41 56
a0f0: cmp  $56                  ; c5 56
a0f2: eor  $52                  ; 45 52
a0f4: eor  #$46                 ; 49 46
a0f6: cmp  $4544,Y              ; d9 44 45
a0f9: dec  $50                  ; c6 50
a0fb: ???                       ; 4f
a0fc: ???                       ; 4b
a0fd: cmp  $50                  ; c5 50
a0ff: ???                       ; 52
a100: eor  #$4e                 ; 49 4e
a102: ???                       ; 54
a103: ???                       ; a3
a104: bvc  $a158                ; 50 52
a106: eor  #$4e                 ; 49 4e
a108: ???                       ; d4
a109: ???                       ; 43
a10a: ???                       ; 4f
a10b: lsr  $4cd4                ; 4e d4 4c
a10e: eor  #$53                 ; 49 53
a110: ???                       ; d4
a111: ???                       ; 43
a112: jmp  $43d2                ; 4c d2 43
a115: eor  $53c4                ; 4d c4 53
a118: eor  $4fd3,Y              ; 59 d3 4f
a11b: bvc  $a162                ; 50 45
a11d: dec  $4c43                ; ce 43 4c
a120: ???                       ; 4f
a121: ???                       ; 53
a122: cmp  VARPNT               ; c5 47
a124: eor  QTSW                 ; 45 d4
a126: lsr  $d745                ; 4e 45 d7
a129: ???                       ; 54
a12a: eor  (DATPTR+1,X)         ; 41 42
a12c: tay                       ; a8
a12d: ???                       ; 54
a12e: ???                       ; cf
a12f: lsr  GDBLN                ; 46 ce
a131: ???                       ; 53
a132: bvc  $a177                ; 50 43
a134: tay                       ; a8
a135: ???                       ; 54
a136: pha                       ; 48
a137: eor  GDBLN                ; 45 ce
a139: lsr  $d44f                ; 4e 4f d4
a13c: ???                       ; 53
a13d: ???                       ; 54
a13e: eor  CRSW                 ; 45 d0
a140: ???                       ; ab
a141: lda  $afaa                ; ad aa af
a144: dec  $4e41,X              ; de 41 4e
a147: cpy  $4f                  ; c4 4f
a149: ???                       ; d2
a14a: ldx  $bcbd,Y              ; be bd bc
a14d: ???                       ; 53
a14e: ???                       ; 47
a14f: dec  $4e49                ; ce 49 4e
a152: ???                       ; d4
a153: eor  (DATPTR+1,X)         ; 41 42
a155: ???                       ; d3
a156: eor  FOUR6,X              ; 55 53
a158: ???                       ; d2
a159: lsr  $52                  ; 46 52
a15b: cmp  $50                  ; c5 50
a15d: ???                       ; 4f
a15e: ???                       ; d3
a15f: ???                       ; 53
a160: eor  (PNT+1),Y            ; 51 d2
a162: ???                       ; 52
a163: lsr  $4cc4                ; 4e c4 4c
a166: ???                       ; 4f
a167: ???                       ; c7
a168: eor  $58                  ; 45 58
a16a: bne  $a1af                ; d0 43
a16c: ???                       ; 4f
a16d: ???                       ; d3
a16e: ???                       ; 53
a16f: eor  #$ce                 ; 49 ce
a171: ???                       ; 54
a172: eor  (GDBLN,X)            ; 41 ce
a174: eor  (JMPER,X)            ; 41 54
a176: dec  $4550                ; ce 50 45
a179: eor  SFDX                 ; 45 cb
a17b: jmp  $ce45                ; 4c 45 ce
a17e: ???                       ; 53
a17f: ???                       ; 54
a180: ???                       ; 52
a181: ldy  $56                  ; a4 56
a183: eor  (BLNSW,X)            ; 41 cc
a185: eor  (FOUR6,X)            ; 41 53
a187: ???                       ; c3
a188: ???                       ; 43
a189: pha                       ; 48
a18a: ???                       ; 52
a18b: ldy  VARTXT+1             ; a4 4c
a18d: eor  VARNAM+1             ; 45 46
a18f: ???                       ; 54
a190: ldy  $52                  ; a4 52
a192: eor  #$47                 ; 49 47
a194: pha                       ; 48
a195: ???                       ; 54
a196: ldy  OPMASK               ; a4 4d
a198: eor  #$44                 ; 49 44
a19a: ldy  VARPNT               ; a4 47
a19c: ???                       ; cf
a19d: brk                       ; 00
a19e: ???                       ; 54
a19f: ???                       ; 4f
a1a0: ???                       ; 4f
a1a1: jsr  $414d                ; 20 4d 41
a1a4: lsr  $2059                ; 4e 59 20
a1a7: lsr  FORPNT               ; 46 49
a1a9: jmp  $d345                ; 4c 45 d3
a1ac: lsr  FORPNT               ; 46 49
a1ae: jmp  $2045                ; 4c 45 20
a1b1: ???                       ; 4f
a1b2: bvc  $a1f9                ; 50 45
a1b4: dec  $4946                ; ce 46 49
a1b7: jmp  $2045                ; 4c 45 20
a1ba: lsr  $544f                ; 4e 4f 54
a1bd: jsr  $504f                ; 20 4f 50
a1c0: eor  GDBLN                ; 45 ce
a1c2: lsr  FORPNT               ; 46 49
a1c4: jmp  $2045                ; 4c 45 20
a1c7: lsr  $544f                ; 4e 4f 54
a1ca: jsr  $4f46                ; 20 46 4f
a1cd: eor  TEMPF3,X             ; 55 4e
a1cf: cpy  INPPTR+1             ; c4 44
a1d1: eor  $56                  ; 45 56
a1d3: eor  #$43                 ; 49 43
a1d5: eor  $20                  ; 45 20
a1d7: lsr  $544f                ; 4e 4f 54
a1da: jsr  $5250                ; 20 50 52
a1dd: eor  FOUR6                ; 45 53
a1df: eor  TEMPF3               ; 45 4e
a1e1: ???                       ; d4
a1e2: lsr  $544f                ; 4e 4f 54
a1e5: jsr  $4e49                ; 20 49 4e
a1e8: bvc  $a23f                ; 50 55
a1ea: ???                       ; 54
a1eb: jsr  $4946                ; 20 46 49
a1ee: jmp  $4ec5                ; 4c c5 4e
a1f1: ???                       ; 4f
a1f2: ???                       ; 54
a1f3: jsr  $554f                ; 20 4f 55
a1f6: ???                       ; 54
a1f7: bvc  $a24e                ; 50 55
a1f9: ???                       ; 54
a1fa: jsr  $4946                ; 20 46 49
a1fd: jmp  $4dc5                ; 4c c5 4d
a200: eor  #$53                 ; 49 53
a202: ???                       ; 53
a203: eor  #$4e                 ; 49 4e
a205: ???                       ; 47
a206: jsr  $4946                ; 20 46 49
a209: jmp  $2045                ; 4c 45 20
a20c: lsr  $4d41                ; 4e 41 4d
a20f: cmp  FORPNT               ; c5 49
a211: jmp  $454c                ; 4c 4c 45
a214: ???                       ; 47
a215: eor  (VARTXT+1,X)         ; 41 4c
a217: jsr  $4544                ; 20 44 45
a21a: lsr  FORPNT,X             ; 56 49
a21c: ???                       ; 43
a21d: eor  $20                  ; 45 20
a21f: lsr  $4d55                ; 4e 55 4d
a222: ???                       ; 42
a223: eor  PNT+1                ; 45 d2
a225: lsr  $5845                ; 4e 45 58
a228: ???                       ; 54
a229: jsr  $4957                ; 20 57 49
a22c: ???                       ; 54
a22d: pha                       ; 48
a22e: ???                       ; 4f
a22f: eor  JMPER,X              ; 55 54
a231: jsr  $4f46                ; 20 46 4f
a234: ???                       ; d2
a235: ???                       ; 53
a236: eor  $544e,Y              ; 59 4e 54
a239: eor  (INSRT,X)            ; 41 d8
a23b: ???                       ; 52
a23c: eor  JMPER                ; 45 54
a23e: eor  $52,X                ; 55 52
a240: lsr  $5720                ; 4e 20 57
a243: eor  #$54                 ; 49 54
a245: pha                       ; 48
a246: ???                       ; 4f
a247: eor  JMPER,X              ; 55 54
a249: jsr  $4f47                ; 20 47 4f
a24c: ???                       ; 53
a24d: eor  STAL+1,X             ; 55 c2
a24f: ???                       ; 4f
a250: eor  JMPER,X              ; 55 54
a252: jsr  $464f                ; 20 4f 46
a255: jsr  $4144                ; 20 44 41
a258: ???                       ; 54
a259: cmp  (FORPNT,X)           ; c1 49
a25b: jmp  $454c                ; 4c 4c 45
a25e: ???                       ; 47
a25f: eor  (VARTXT+1,X)         ; 41 4c
a261: jsr  $5551                ; 20 51 55
a264: eor  (TEMPF3,X)           ; 41 4e
a266: ???                       ; 54
a267: eor  #$54                 ; 49 54
a269: cmp  $564f,Y              ; d9 4f 56
a26c: eor  $52                  ; 45 52
a26e: lsr  VARTXT+1             ; 46 4c
a270: ???                       ; 4f
a271: ???                       ; d7
a272: ???                       ; 4f
a273: eor  JMPER,X              ; 55 54
a275: jsr  $464f                ; 20 4f 46
a278: jsr  $454d                ; 20 4d 45
a27b: eor  $524f                ; 4d 4f 52
a27e: cmp  $4e55,Y              ; d9 55 4e
a281: ???                       ; 44
a282: eor  VARNAM+1             ; 45 46
a284: ???                       ; 27
a285: ???                       ; 44
a286: jsr  $5453                ; 20 53 54
a289: eor  (JMPER,X)            ; 41 54
a28b: eor  OPMASK               ; 45 4d
a28d: eor  TEMPF3               ; 45 4e
a28f: ???                       ; d4
a290: ???                       ; 42
a291: eor  (INPPTR+1,X)         ; 41 44
a293: jsr  $5553                ; 20 53 55
a296: ???                       ; 42
a297: ???                       ; 53
a298: ???                       ; 43
a299: ???                       ; 52
a29a: eor  #$50                 ; 49 50
a29c: ???                       ; d4
a29d: ???                       ; 52
a29e: eor  INPPTR+1             ; 45 44
a2a0: eor  #$4d                 ; 49 4d
a2a2: ???                       ; 27
a2a3: ???                       ; 44
a2a4: jsr  $5241                ; 20 41 52
a2a7: ???                       ; 52
a2a8: eor  (LDTB1,X)            ; 41 d9
a2aa: ???                       ; 44
a2ab: eor  #$56                 ; 49 56
a2ad: eor  #$53                 ; 49 53
a2af: eor  #$4f                 ; 49 4f
a2b1: lsr  $4220                ; 4e 20 42
a2b4: eor  $5a20,Y              ; 59 20 5a
a2b7: eor  $52                  ; 45 52
a2b9: ???                       ; cf
a2ba: eor  #$4c                 ; 49 4c
a2bc: jmp  $4745                ; 4c 45 47
a2bf: eor  (VARTXT+1,X)         ; 41 4c
a2c1: jsr  $4944                ; 20 44 49
a2c4: ???                       ; 52
a2c5: eor  INPPTR               ; 45 43
a2c7: ???                       ; d4
a2c8: ???                       ; 54
a2c9: eor  $4550,Y              ; 59 50 45
a2cc: jsr  $494d                ; 20 4d 49
a2cf: ???                       ; 53
a2d0: eor  $5441                ; 4d 41 54
a2d3: ???                       ; 43
a2d4: iny                       ; c8
a2d5: ???                       ; 53
a2d6: ???                       ; 54
a2d7: ???                       ; 52
a2d8: eor  #$4e                 ; 49 4e
a2da: ???                       ; 47
a2db: jsr  $4f54                ; 20 54 4f
a2de: ???                       ; 4f
a2df: jsr  $4f4c                ; 20 4c 4f
a2e2: lsr  $46c7                ; 4e c7 46
a2e5: eor  #$4c                 ; 49 4c
a2e7: eor  $20                  ; 45 20
a2e9: ???                       ; 44
a2ea: eor  (JMPER,X)            ; 41 54
a2ec: cmp  (VARNAM+1,X)         ; c1 46
a2ee: ???                       ; 4f
a2ef: ???                       ; 52
a2f0: eor  $4c55                ; 4d 55 4c
a2f3: eor  ($20,X)              ; 41 20
a2f5: ???                       ; 54
a2f6: ???                       ; 4f
a2f7: ???                       ; 4f
a2f8: jsr  $4f43                ; 20 43 4f
a2fb: eor  $4c50                ; 4d 50 4c
a2fe: eor  INSRT                ; 45 d8
a300: ???                       ; 43
a301: eor  (TEMPF3,X)           ; 41 4e
a303: ???                       ; 27
a304: ???                       ; 54
a305: jsr  $4f43                ; 20 43 4f
a308: lsr  $4954                ; 4e 54 49
a30b: lsr  $c555                ; 4e 55 c5
a30e: eor  TEMPF3,X             ; 55 4e
a310: ???                       ; 44
a311: eor  VARNAM+1             ; 45 46
a313: ???                       ; 27
a314: ???                       ; 44
a315: jsr  $5546                ; 20 46 55
a318: lsr  $5443                ; 4e 43 54
a31b: eor  #$4f                 ; 49 4f
a31d: dec  $4556                ; ce 56 45
a320: ???                       ; 52
a321: eor  #$46                 ; 49 46
a323: cmp  $4f4c,Y              ; d9 4c 4f
a326: eor  (MEMUSS+1,X)         ; 41 c4
a328: ???                       ; 9e
a329: lda  (SAL,X)              ; a1 ac
a32b: lda  (NXTBIT,X)           ; a1 b5
a32d: lda  (STAL+1,X)           ; a1 c2
a32f: lda  (CRSW,X)             ; a1 d0
a331: lda  ($e2,X)              ; a1 e2
a333: lda  ($f0,X)              ; a1 f0
a335: lda  (BASZPT,X)           ; a1 ff
a337: lda  (SUBFLG,X)           ; a1 10
a339: ldx  #$25                 ; a2 25
a33b: ldx  #$35                 ; a2 35
a33d: ldx  #$3b                 ; a2 3b
a33f: ldx  #$4f                 ; a2 4f
a341: ldx  #$5a                 ; a2 5a
a343: ldx  #$6a                 ; a2 6a
a345: ldx  #$72                 ; a2 72
a347: ldx  #$7f                 ; a2 7f
a349: ldx  #$90                 ; a2 90
a34b: ldx  #$9d                 ; a2 9d
a34d: ldx  #$aa                 ; a2 aa
a34f: ldx  #$ba                 ; a2 ba
a351: ldx  #$c8                 ; a2 c8
a353: ldx  #$d5                 ; a2 d5
a355: ldx  #$e4                 ; a2 e4
a357: ldx  #$ed                 ; a2 ed
a359: ldx  #$00                 ; a2 00
a35b: ???                       ; a3
a35c: asl  $1ea3                ; 0e a3 1e
a35f: ???                       ; a3
a360: bit  TSFCNT               ; 24 a3
a362: ???                       ; 83
a363: ???                       ; a3
a364: ora  $4b4f                ; 0d 4f 4b
a367: ora  $2000                ; 0d 00 20
a36a: jsr  $5245                ; 20 45 52
a36d: ???                       ; 52
a36e: ???                       ; 4f
a36f: ???                       ; 52
a370: brk                       ; 00
a371: jsr  $4e49                ; 20 49 4e
a374: jsr  $0d00                ; 20 00 0d
a377: asl  a                    ; 0a
a378: ???                       ; 52
a379: eor  DATPTR               ; 45 41
a37b: ???                       ; 44
a37c: eor  $0d2e,Y              ; 59 2e 0d
a37f: asl  a                    ; 0a
a380: brk                       ; 00
a381: ora  $420a                ; 0d 0a 42
a384: ???                       ; 52
a385: eor  DATPTR               ; 45 41
a387: ???                       ; 4b
a388: brk                       ; 00
a389: ldy  #$ba                 ; a0 ba
a38b: inx                       ; e8
a38c: inx                       ; e8
a38d: inx                       ; e8
a38e: inx                       ; e8
a38f: lda  $0101,X              ; bd 01 01
a392: cmp  #$81                 ; c9 81
a394: bne  $a3b7                ; d0 21
a396: lda  FORPNT+1             ; a5 4a
a398: bne  $a3a4                ; d0 0a
a39a: lda  $0102,X              ; bd 02 01
a39d: sta  FORPNT               ; 85 49
a39f: lda  $0103,X              ; bd 03 01
a3a2: sta  FORPNT+1             ; 85 4a
a3a4: cmp  $0103,X              ; dd 03 01
a3a7: bne  $a3b0                ; d0 07
a3a9: lda  FORPNT               ; a5 49
a3ab: cmp  $0102,X              ; dd 02 01
a3ae: beq  $a3b7                ; f0 07
a3b0: txa                       ; 8a
a3b1: clc                       ; 18
a3b2: adc  #$12                 ; 69 12
a3b4: tax                       ; aa
a3b5: bne  $a38f                ; d0 d8
a3b7: rts                       ; 60
bltu: *** Open Space in Memory
a3b8: jsr  reason               ; 20 08 a4
a3bb: sta  STREND               ; 85 31
a3bd: sty  STREND+1             ; 84 32
a3bf: sec                       ; 38
a3c0: lda  $5a                  ; a5 5a
a3c2: sbc  $5f                  ; e5 5f
a3c4: sta  INDEX                ; 85 22
a3c6: tay                       ; a8
a3c7: lda  $5b                  ; a5 5b
a3c9: sbc  $60                  ; e5 60
a3cb: tax                       ; aa
a3cc: inx                       ; e8
a3cd: tya                       ; 98
a3ce: beq  $a3f3                ; f0 23
a3d0: lda  $5a                  ; a5 5a
a3d2: sec                       ; 38
a3d3: sbc  INDEX                ; e5 22
a3d5: sta  $5a                  ; 85 5a
a3d7: bcs  $a3dc                ; b0 03
a3d9: dec  $5b                  ; c6 5b
a3db: sec                       ; 38
a3dc: lda  $58                  ; a5 58
a3de: sbc  INDEX                ; e5 22
a3e0: sta  $58                  ; 85 58
a3e2: bcs  $a3ec                ; b0 08
a3e4: dec  $59                  ; c6 59
a3e6: bcc  $a3ec                ; 90 04
a3e8: lda  ($5a),Y              ; b1 5a
a3ea: sta  ($58),Y              ; 91 58
a3ec: dey                       ; 88
a3ed: bne  $a3e8                ; d0 f9
a3ef: lda  ($5a),Y              ; b1 5a
a3f1: sta  ($58),Y              ; 91 58
a3f3: dec  $5b                  ; c6 5b
a3f5: dec  $59                  ; c6 59
a3f7: dex                       ; ca
a3f8: bne  $a3ec                ; d0 f2
a3fa: rts                       ; 60
getstk: *** Check Stack Depth
a3fb: asl  a                    ; 0a
a3fc: adc  #$3e                 ; 69 3e
a3fe: bcs  omerr                ; b0 35
a400: sta  INDEX                ; 85 22
a402: tsx                       ; ba
a403: cpx  INDEX                ; e4 22
a405: bcc  omerr                ; 90 2e
a407: rts                       ; 60
reason: *** Check Memory Overlap
a408: cpy  FRETOP+1             ; c4 34
a40a: bcc  $a434                ; 90 28
a40c: bne  $a412                ; d0 04
a40e: cmp  FRETOP               ; c5 33
a410: bcc  $a434                ; 90 22
a412: pha                       ; 48
a413: ldx  #$09                 ; a2 09
a415: tya                       ; 98
a416: pha                       ; 48
a417: lda  TEMPF1,X             ; b5 57
a419: dex                       ; ca
a41a: bpl  $a416                ; 10 fa
a41c: jsr  garbag               ; 20 26 b5
a41f: ldx  #$f7                 ; a2 f7
a421: pla                       ; 68
a422: sta  FAC,X                ; 95 61
a424: inx                       ; e8
a425: bmi  $a421                ; 30 fa
a427: pla                       ; 68
a428: tay                       ; a8
a429: pla                       ; 68
a42a: cpy  FRETOP+1             ; c4 34
a42c: bcc  $a434                ; 90 06
a42e: bne  omerr                ; d0 05
a430: cmp  FRETOP               ; c5 33
a432: bcs  omerr                ; b0 01
a434: rts                       ; 60
omerr: *** Output ?OUT OF MEMORY Error
a435: ldx  #$10                 ; a2 10
error: *** Error Routine
a437: jmp  (IERROR)             ; 6c 00 03
a43a: txa                       ; 8a
a43b: asl  a                    ; 0a
a43c: tax                       ; aa
a43d: lda  $a326,X              ; bd 26 a3
a440: sta  INDEX                ; 85 22
a442: lda  $a327,X              ; bd 27 a3
a445: sta  INDEX+1              ; 85 23
a447: jsr  VECT_(iclrch)        ; 20 cc ff
a44a: lda  #$00                 ; a9 00
a44c: sta  CHANNL               ; 85 13
a44e: jsr  crdo                 ; 20 d7 aa
a451: jsr  $ab45                ; 20 45 ab
a454: ldy  #$00                 ; a0 00
a456: lda  (INDEX),Y            ; b1 22
a458: pha                       ; 48
a459: and  #$7f                 ; 29 7f
a45b: jsr  $ab47                ; 20 47 ab
a45e: iny                       ; c8
a45f: pla                       ; 68
a460: bpl  $a456                ; 10 f4
a462: jsr  $a67a                ; 20 7a a6
a465: lda  #$69                 ; a9 69
a467: ldy  #$a3                 ; a0 a3
errfin: *** Break Entry
a469: jsr  strout               ; 20 1e ab
a46c: ldy  CURLIN+1             ; a4 3a
a46e: iny                       ; c8
a46f: beq  ready                ; f0 03
a471: jsr  inprt                ; 20 c2 bd
ready: *** Restart BASIC
a474: lda  #$76                 ; a9 76
a476: ldy  #$a3                 ; a0 a3
a478: jsr  strout               ; 20 1e ab
a47b: lda  #$80                 ; a9 80
a47d: jsr  VECT_setmsg          ; 20 90 ff
main: *** Input & Identify BASIC Line
a480: jmp  (IMAIN)              ; 6c 02 03
a483: jsr  inlin                ; 20 60 a5
a486: stx  TXTPTR               ; 86 7a
a488: sty  TXTPTR+1             ; 84 7b
a48a: jsr  CHRGET               ; 20 73 00
a48d: tax                       ; aa
a48e: beq  main                 ; f0 f0
a490: ldx  #$ff                 ; a2 ff
a492: stx  CURLIN+1             ; 86 3a
a494: bcc  main1                ; 90 06
a496: jsr  crunch               ; 20 79 a5
a499: jmp  gone                 ; 4c e1 a7
main1: *** Get Line Number & Tokenise Text
a49c: jsr  linget               ; 20 6b a9
a49f: jsr  crunch               ; 20 79 a5
inslin: *** Insert BASIC Text
a4a2: sty  COUNT                ; 84 0b
a4a4: jsr  fndlin               ; 20 13 a6
a4a7: bcc  $a4ed                ; 90 44
a4a9: ldy  #$01                 ; a0 01
a4ab: lda  ($5f),Y              ; b1 5f
a4ad: sta  INDEX+1              ; 85 23
a4af: lda  VARTAB               ; a5 2d
a4b1: sta  INDEX                ; 85 22
a4b3: lda  $60                  ; a5 60
a4b5: sta  INDEX2+1             ; 85 25
a4b7: lda  $5f                  ; a5 5f
a4b9: dey                       ; 88
a4ba: sbc  ($5f),Y              ; f1 5f
a4bc: clc                       ; 18
a4bd: adc  VARTAB               ; 65 2d
a4bf: sta  VARTAB               ; 85 2d
a4c1: sta  INDEX2               ; 85 24
a4c3: lda  VARTAB+1             ; a5 2e
a4c5: adc  #$ff                 ; 69 ff
a4c7: sta  VARTAB+1             ; 85 2e
a4c9: sbc  $60                  ; e5 60
a4cb: tax                       ; aa
a4cc: sec                       ; 38
a4cd: lda  $5f                  ; a5 5f
a4cf: sbc  VARTAB               ; e5 2d
a4d1: tay                       ; a8
a4d2: bcs  $a4d7                ; b0 03
a4d4: inx                       ; e8
a4d5: dec  INDEX2+1             ; c6 25
a4d7: clc                       ; 18
a4d8: adc  INDEX                ; 65 22
a4da: bcc  $a4df                ; 90 03
a4dc: dec  INDEX+1              ; c6 23
a4de: clc                       ; 18
a4df: lda  (INDEX),Y            ; b1 22
a4e1: sta  (INDEX2),Y           ; 91 24
a4e3: iny                       ; c8
a4e4: bne  $a4df                ; d0 f9
a4e6: inc  INDEX+1              ; e6 23
a4e8: inc  INDEX2+1             ; e6 25
a4ea: dex                       ; ca
a4eb: bne  $a4df                ; d0 f2
a4ed: jsr  $a659                ; 20 59 a6
a4f0: jsr  linkprg              ; 20 33 a5
a4f3: lda  BUF                  ; ad 00 02
a4f6: beq  main                 ; f0 88
a4f8: clc                       ; 18
a4f9: lda  VARTAB               ; a5 2d
a4fb: sta  $5a                  ; 85 5a
a4fd: adc  COUNT                ; 65 0b
a4ff: sta  $58                  ; 85 58
a501: ldy  VARTAB+1             ; a4 2e
a503: sty  $5b                  ; 84 5b
a505: bcc  $a508                ; 90 01
a507: iny                       ; c8
a508: sty  $59                  ; 84 59
a50a: jsr  bltu                 ; 20 b8 a3
a50d: lda  LINNUM               ; a5 14
a50f: ldy  LINNUM+1             ; a4 15
a511: sta  $01fe                ; 8d fe 01
a514: sty  $01ff                ; 8c ff 01
a517: lda  STREND               ; a5 31
a519: ldy  STREND+1             ; a4 32
a51b: sta  VARTAB               ; 85 2d
a51d: sty  VARTAB+1             ; 84 2e
a51f: ldy  COUNT                ; a4 0b
a521: dey                       ; 88
a522: lda  $01fc,Y              ; b9 fc 01
a525: sta  ($5f),Y              ; 91 5f
a527: dey                       ; 88
a528: bpl  $a522                ; 10 f8
a52a: jsr  $a659                ; 20 59 a6
a52d: jsr  linkprg              ; 20 33 a5
a530: jmp  main                 ; 4c 80 a4
linkprg: *** Rechain Lines
a533: lda  TXTTAB               ; a5 2b
a535: ldy  TXTTAB+1             ; a4 2c
a537: sta  INDEX                ; 85 22
a539: sty  INDEX+1              ; 84 23
a53b: clc                       ; 18
a53c: ldy  #$01                 ; a0 01
a53e: lda  (INDEX),Y            ; b1 22
a540: beq  $a55f                ; f0 1d
a542: ldy  #$04                 ; a0 04
a544: iny                       ; c8
a545: lda  (INDEX),Y            ; b1 22
a547: bne  $a544                ; d0 fb
a549: iny                       ; c8
a54a: tya                       ; 98
a54b: adc  INDEX                ; 65 22
a54d: tax                       ; aa
a54e: ldy  #$00                 ; a0 00
a550: sta  (INDEX),Y            ; 91 22
a552: lda  INDEX+1              ; a5 23
a554: adc  #$00                 ; 69 00
a556: iny                       ; c8
a557: sta  (INDEX),Y            ; 91 22
a559: stx  INDEX                ; 86 22
a55b: sta  INDEX+1              ; 85 23
a55d: bcc  $a53c                ; 90 dd
a55f: rts                       ; 60
inlin: *** Input Line Into Buffer
a560: ldx  #$00                 ; a2 00
a562: jsr  bchin                ; 20 12 e1
a565: cmp  #$0d                 ; c9 0d
a567: beq  $a576                ; f0 0d
a569: sta  BUF,X                ; 9d 00 02
a56c: inx                       ; e8
a56d: cpx  #$59                 ; e0 59
a56f: bcc  $a562                ; 90 f1
a571: ldx  #$17                 ; a2 17
a573: jmp  error                ; 4c 37 a4
a576: jmp  $aaca                ; 4c ca aa
crunch: *** Tokenise Input Buffer
a579: jmp  (ICRNCH)             ; 6c 04 03
a57c: ldx  TXTPTR               ; a6 7a
a57e: ldy  #$04                 ; a0 04
a580: sty  GARBFL               ; 84 0f
a582: lda  BUF,X                ; bd 00 02
a585: bpl  $a58e                ; 10 07
a587: cmp  #$ff                 ; c9 ff
a589: beq  $a5c9                ; f0 3e
a58b: inx                       ; e8
a58c: bne  $a582                ; d0 f4
a58e: cmp  #$20                 ; c9 20
a590: beq  $a5c9                ; f0 37
a592: sta  ENDCHR               ; 85 08
a594: cmp  #$22                 ; c9 22
a596: beq  $a5ee                ; f0 56
a598: bit  GARBFL               ; 24 0f
a59a: bvs  $a5c9                ; 70 2d
a59c: cmp  #$3f                 ; c9 3f
a59e: bne  $a5a4                ; d0 04
a5a0: lda  #$99                 ; a9 99
a5a2: bne  $a5c9                ; d0 25
a5a4: cmp  #$30                 ; c9 30
a5a6: bcc  $a5ac                ; 90 04
a5a8: cmp  #$3c                 ; c9 3c
a5aa: bcc  $a5c9                ; 90 1d
a5ac: sty  FBUFPT               ; 84 71
a5ae: ldy  #$00                 ; a0 00
a5b0: sty  COUNT                ; 84 0b
a5b2: dey                       ; 88
a5b3: stx  TXTPTR               ; 86 7a
a5b5: dex                       ; ca
a5b6: iny                       ; c8
a5b7: inx                       ; e8
a5b8: lda  BUF,X                ; bd 00 02
a5bb: sec                       ; 38
a5bc: sbc  $a09e,Y              ; f9 9e a0
a5bf: beq  $a5b6                ; f0 f5
a5c1: cmp  #$80                 ; c9 80
a5c3: bne  $a5f5                ; d0 30
a5c5: ora  COUNT                ; 05 0b
a5c7: ldy  FBUFPT               ; a4 71
a5c9: inx                       ; e8
a5ca: iny                       ; c8
a5cb: sta  $01fb,Y              ; 99 fb 01
a5ce: lda  $01fb,Y              ; b9 fb 01
a5d1: beq  $a609                ; f0 36
a5d3: sec                       ; 38
a5d4: sbc  #$3a                 ; e9 3a
a5d6: beq  $a5dc                ; f0 04
a5d8: cmp  #$49                 ; c9 49
a5da: bne  $a5de                ; d0 02
a5dc: sta  GARBFL               ; 85 0f
a5de: sec                       ; 38
a5df: sbc  #$55                 ; e9 55
a5e1: bne  $a582                ; d0 9f
a5e3: sta  ENDCHR               ; 85 08
a5e5: lda  BUF,X                ; bd 00 02
a5e8: beq  $a5c9                ; f0 df
a5ea: cmp  ENDCHR               ; c5 08
a5ec: beq  $a5c9                ; f0 db
a5ee: iny                       ; c8
a5ef: sta  $01fb,Y              ; 99 fb 01
a5f2: inx                       ; e8
a5f3: bne  $a5e5                ; d0 f0
a5f5: ldx  TXTPTR               ; a6 7a
a5f7: inc  COUNT                ; e6 0b
a5f9: iny                       ; c8
a5fa: lda  $a09d,Y              ; b9 9d a0
a5fd: bpl  $a5f9                ; 10 fa
a5ff: lda  $a09e,Y              ; b9 9e a0
a602: bne  $a5b8                ; d0 b4
a604: lda  BUF,X                ; bd 00 02
a607: bpl  $a5c7                ; 10 be
a609: sta  $01fd,Y              ; 99 fd 01
a60c: dec  TXTPTR+1             ; c6 7b
a60e: lda  #$ff                 ; a9 ff
a610: sta  TXTPTR               ; 85 7a
a612: rts                       ; 60
fndlin: *** Search for Line Number
a613: lda  TXTTAB               ; a5 2b
a615: ldx  TXTTAB+1             ; a6 2c
a617: ldy  #$01                 ; a0 01
a619: sta  $5f                  ; 85 5f
a61b: stx  $60                  ; 86 60
a61d: lda  ($5f),Y              ; b1 5f
a61f: beq  $a640                ; f0 1f
a621: iny                       ; c8
a622: iny                       ; c8
a623: lda  LINNUM+1             ; a5 15
a625: cmp  ($5f),Y              ; d1 5f
a627: bcc  $a641                ; 90 18
a629: beq  $a62e                ; f0 03
a62b: dey                       ; 88
a62c: bne  $a637                ; d0 09
a62e: lda  LINNUM               ; a5 14
a630: dey                       ; 88
a631: cmp  ($5f),Y              ; d1 5f
a633: bcc  $a641                ; 90 0c
a635: beq  $a641                ; f0 0a
a637: dey                       ; 88
a638: lda  ($5f),Y              ; b1 5f
a63a: tax                       ; aa
a63b: dey                       ; 88
a63c: lda  ($5f),Y              ; b1 5f
a63e: bcs  $a617                ; b0 d7
a640: clc                       ; 18
a641: rts                       ; 60
scrtch: *** Perform [new]
a642: bne  $a641                ; d0 fd
a644: lda  #$00                 ; a9 00
a646: tay                       ; a8
a647: sta  (TXTTAB),Y           ; 91 2b
a649: iny                       ; c8
a64a: sta  (TXTTAB),Y           ; 91 2b
a64c: lda  TXTTAB               ; a5 2b
a64e: clc                       ; 18
a64f: adc  #$02                 ; 69 02
a651: sta  VARTAB               ; 85 2d
a653: lda  TXTTAB+1             ; a5 2c
a655: adc  #$00                 ; 69 00
a657: sta  VARTAB+1             ; 85 2e
a659: jsr  stxpt                ; 20 8e a6
a65c: lda  #$00                 ; a9 00
clear: *** Perform [clr]
a65e: bne  $a68d                ; d0 2d
a660: jsr  VECT_(iclall)        ; 20 e7 ff
a663: lda  MEMSIZ               ; a5 37
a665: ldy  MEMSIZ+1             ; a4 38
a667: sta  FRETOP               ; 85 33
a669: sty  FRETOP+1             ; 84 34
a66b: lda  VARTAB               ; a5 2d
a66d: ldy  VARTAB+1             ; a4 2e
a66f: sta  ARYTAB               ; 85 2f
a671: sty  ARYTAB+1             ; 84 30
a673: sta  STREND               ; 85 31
a675: sty  STREND+1             ; 84 32
a677: jsr  restor               ; 20 1d a8
a67a: ldx  #$19                 ; a2 19
a67c: stx  TEMPPT               ; 86 16
a67e: pla                       ; 68
a67f: tay                       ; a8
a680: pla                       ; 68
a681: ldx  #$fa                 ; a2 fa
a683: txs                       ; 9a
a684: pha                       ; 48
a685: tya                       ; 98
a686: pha                       ; 48
a687: lda  #$00                 ; a9 00
a689: sta  OLDTXT+1             ; 85 3e
a68b: sta  SUBFLG               ; 85 10
a68d: rts                       ; 60
stxpt: *** Reset TXTPTR
a68e: clc                       ; 18
a68f: lda  TXTTAB               ; a5 2b
a691: adc  #$ff                 ; 69 ff
a693: sta  TXTPTR               ; 85 7a
a695: lda  TXTTAB+1             ; a5 2c
a697: adc  #$ff                 ; 69 ff
a699: sta  TXTPTR+1             ; 85 7b
a69b: rts                       ; 60
list: *** Perform [list]
a69c: bcc  $a6a4                ; 90 06
a69e: beq  $a6a4                ; f0 04
a6a0: cmp  #$ab                 ; c9 ab
a6a2: bne  $a68d                ; d0 e9
a6a4: jsr  linget               ; 20 6b a9
a6a7: jsr  fndlin               ; 20 13 a6
a6aa: jsr  CHRGOT               ; 20 79 00
a6ad: beq  $a6bb                ; f0 0c
a6af: cmp  #$ab                 ; c9 ab
a6b1: bne  $a641                ; d0 8e
a6b3: jsr  CHRGET               ; 20 73 00
a6b6: jsr  linget               ; 20 6b a9
a6b9: bne  $a641                ; d0 86
a6bb: pla                       ; 68
a6bc: pla                       ; 68
a6bd: lda  LINNUM               ; a5 14
a6bf: ora  LINNUM+1             ; 05 15
a6c1: bne  $a6c9                ; d0 06
a6c3: lda  #$ff                 ; a9 ff
a6c5: sta  LINNUM               ; 85 14
a6c7: sta  LINNUM+1             ; 85 15
a6c9: ldy  #$01                 ; a0 01
a6cb: sty  GARBFL               ; 84 0f
a6cd: lda  ($5f),Y              ; b1 5f
a6cf: beq  $a714                ; f0 43
a6d1: jsr  stop                 ; 20 2c a8
a6d4: jsr  crdo                 ; 20 d7 aa
a6d7: iny                       ; c8
a6d8: lda  ($5f),Y              ; b1 5f
a6da: tax                       ; aa
a6db: iny                       ; c8
a6dc: lda  ($5f),Y              ; b1 5f
a6de: cmp  LINNUM+1             ; c5 15
a6e0: bne  $a6e6                ; d0 04
a6e2: cpx  LINNUM               ; e4 14
a6e4: beq  $a6e8                ; f0 02
a6e6: bcs  $a714                ; b0 2c
a6e8: sty  FORPNT               ; 84 49
a6ea: jsr  $bdcd                ; 20 cd bd
a6ed: lda  #$20                 ; a9 20
a6ef: ldy  FORPNT               ; a4 49
a6f1: and  #$7f                 ; 29 7f
a6f3: jsr  $ab47                ; 20 47 ab
a6f6: cmp  #$22                 ; c9 22
a6f8: bne  $a700                ; d0 06
a6fa: lda  GARBFL               ; a5 0f
a6fc: eor  #$ff                 ; 49 ff
a6fe: sta  GARBFL               ; 85 0f
a700: iny                       ; c8
a701: beq  $a714                ; f0 11
a703: lda  ($5f),Y              ; b1 5f
a705: bne  qplop                ; d0 10
a707: tay                       ; a8
a708: lda  ($5f),Y              ; b1 5f
a70a: tax                       ; aa
a70b: iny                       ; c8
a70c: lda  ($5f),Y              ; b1 5f
a70e: stx  $5f                  ; 86 5f
a710: sta  $60                  ; 85 60
a712: bne  $a6c9                ; d0 b5
a714: jmp  $e386                ; 4c 86 e3
qplop: *** Handle LIST Character
a717: jmp  (IQPLOP)             ; 6c 06 03
a71a: bpl  $a6f3                ; 10 d7
a71c: cmp  #$ff                 ; c9 ff
a71e: beq  $a6f3                ; f0 d3
a720: bit  GARBFL               ; 24 0f
a722: bmi  $a6f3                ; 30 cf
a724: sec                       ; 38
a725: sbc  #$7f                 ; e9 7f
a727: tax                       ; aa
a728: sty  FORPNT               ; 84 49
a72a: ldy  #$ff                 ; a0 ff
a72c: dex                       ; ca
a72d: beq  $a737                ; f0 08
a72f: iny                       ; c8
a730: lda  $a09e,Y              ; b9 9e a0
a733: bpl  $a72f                ; 10 fa
a735: bmi  $a72c                ; 30 f5
a737: iny                       ; c8
a738: lda  $a09e,Y              ; b9 9e a0
a73b: bmi  $a6ef                ; 30 b2
a73d: jsr  $ab47                ; 20 47 ab
a740: bne  $a737                ; d0 f5
for: *** Perform [for]
a742: lda  #$80                 ; a9 80
a744: sta  SUBFLG               ; 85 10
a746: jsr  let                  ; 20 a5 a9
a749: jsr  fndfor               ; 20 8a a3
a74c: bne  $a753                ; d0 05
a74e: txa                       ; 8a
a74f: adc  #$0f                 ; 69 0f
a751: tax                       ; aa
a752: txs                       ; 9a
a753: pla                       ; 68
a754: pla                       ; 68
a755: lda  #$09                 ; a9 09
a757: jsr  getstk               ; 20 fb a3
a75a: jsr  datan                ; 20 06 a9
a75d: clc                       ; 18
a75e: tya                       ; 98
a75f: adc  TXTPTR               ; 65 7a
a761: pha                       ; 48
a762: lda  TXTPTR+1             ; a5 7b
a764: adc  #$00                 ; 69 00
a766: pha                       ; 48
a767: lda  CURLIN+1             ; a5 3a
a769: pha                       ; 48
a76a: lda  CURLIN               ; a5 39
a76c: pha                       ; 48
a76d: lda  #$a4                 ; a9 a4
a76f: jsr  $aeff                ; 20 ff ae
a772: jsr  $ad8d                ; 20 8d ad
a775: jsr  frmnum               ; 20 8a ad
a778: lda  FACSGN               ; a5 66
a77a: ora  #$7f                 ; 09 7f
a77c: and  FACHO                ; 25 62
a77e: sta  FACHO                ; 85 62
a780: lda  #$8b                 ; a9 8b
a782: ldy  #$a7                 ; a0 a7
a784: sta  INDEX                ; 85 22
a786: sty  INDEX+1              ; 84 23
a788: jmp  $ae43                ; 4c 43 ae
a78b: lda  #$bc                 ; a9 bc
a78d: ldy  #$b9                 ; a0 b9
a78f: jsr  movfm                ; 20 a2 bb
a792: jsr  CHRGOT               ; 20 79 00
a795: cmp  #$a9                 ; c9 a9
a797: bne  $a79f                ; d0 06
a799: jsr  CHRGET               ; 20 73 00
a79c: jsr  frmnum               ; 20 8a ad
a79f: jsr  sign                 ; 20 2b bc
a7a2: jsr  $ae38                ; 20 38 ae
a7a5: lda  FORPNT+1             ; a5 4a
a7a7: pha                       ; 48
a7a8: lda  FORPNT               ; a5 49
a7aa: pha                       ; 48
a7ab: lda  #$81                 ; a9 81
a7ad: pha                       ; 48
newstt: *** BASIC Warm Start
a7ae: jsr  stop                 ; 20 2c a8
a7b1: lda  TXTPTR               ; a5 7a
a7b3: ldy  TXTPTR+1             ; a4 7b
a7b5: cpy  #$02                 ; c0 02
a7b7: nop                       ; ea
a7b8: beq  $a7be                ; f0 04
a7ba: sta  OLDTXT               ; 85 3d
a7bc: sty  OLDTXT+1             ; 84 3e
a7be: ldy  #$00                 ; a0 00
a7c0: lda  (TXTPTR),Y           ; b1 7a
a7c2: bne  $a807                ; d0 43
ckeol: *** Check End of Program
a7c4: ldy  #$02                 ; a0 02
a7c6: lda  (TXTPTR),Y           ; b1 7a
a7c8: clc                       ; 18
a7c9: bne  $a7ce                ; d0 03
a7cb: jmp  $a84b                ; 4c 4b a8
a7ce: iny                       ; c8
a7cf: lda  (TXTPTR),Y           ; b1 7a
a7d1: sta  CURLIN               ; 85 39
a7d3: iny                       ; c8
a7d4: lda  (TXTPTR),Y           ; b1 7a
a7d6: sta  CURLIN+1             ; 85 3a
a7d8: tya                       ; 98
a7d9: adc  TXTPTR               ; 65 7a
a7db: sta  TXTPTR               ; 85 7a
a7dd: bcc  gone                 ; 90 02
a7df: inc  TXTPTR+1             ; e6 7b
gone: *** Prepare to execute statement
a7e1: jmp  (IGONE)              ; 6c 08 03
a7e4: jsr  CHRGET               ; 20 73 00
a7e7: jsr  gone3                ; 20 ed a7
a7ea: jmp  newstt               ; 4c ae a7
gone3: *** Perform BASIC Keyword
a7ed: beq  $a82b                ; f0 3c
a7ef: sbc  #$80                 ; e9 80
a7f1: bcc  $a804                ; 90 11
a7f3: cmp  #$23                 ; c9 23
a7f5: bcs  $a80e                ; b0 17
a7f7: asl  a                    ; 0a
a7f8: tay                       ; a8
a7f9: lda  $a00d,Y              ; b9 0d a0
a7fc: pha                       ; 48
a7fd: lda  $a00c,Y              ; b9 0c a0
a800: pha                       ; 48
a801: jmp  CHRGET               ; 4c 73 00
a804: jmp  let                  ; 4c a5 a9
a807: cmp  #$3a                 ; c9 3a
a809: beq  gone                 ; f0 d6
a80b: jmp  synerr               ; 4c 08 af
a80e: cmp  #$4b                 ; c9 4b
a810: bne  $a80b                ; d0 f9
a812: jsr  CHRGET               ; 20 73 00
a815: lda  #$a4                 ; a9 a4
a817: jsr  $aeff                ; 20 ff ae
a81a: jmp  goto                 ; 4c a0 a8
restor: *** Perform [restore]
a81d: sec                       ; 38
a81e: lda  TXTTAB               ; a5 2b
a820: sbc  #$01                 ; e9 01
a822: ldy  TXTTAB+1             ; a4 2c
a824: bcs  $a827                ; b0 01
a826: dey                       ; 88
a827: sta  DATPTR               ; 85 41
a829: sty  DATPTR+1             ; 84 42
a82b: rts                       ; 60
stop: *** Perform [stop], [end], break
a82c: jsr  VECT_(istop)         ; 20 e1 ff
a82f: bcs  $a832                ; b0 01
a831: clc                       ; 18
a832: bne  $a870                ; d0 3c
a834: lda  TXTPTR               ; a5 7a
a836: ldy  TXTPTR+1             ; a4 7b
a838: ldx  CURLIN+1             ; a6 3a
a83a: inx                       ; e8
a83b: beq  $a849                ; f0 0c
a83d: sta  OLDTXT               ; 85 3d
a83f: sty  OLDTXT+1             ; 84 3e
a841: lda  CURLIN               ; a5 39
a843: ldy  CURLIN+1             ; a4 3a
a845: sta  OLDLIN               ; 85 3b
a847: sty  OLDLIN+1             ; 84 3c
a849: pla                       ; 68
a84a: pla                       ; 68
a84b: lda  #$81                 ; a9 81
a84d: ldy  #$a3                 ; a0 a3
a84f: bcc  $a854                ; 90 03
a851: jmp  errfin               ; 4c 69 a4
a854: jmp  $e386                ; 4c 86 e3
cont: *** Perform [cont]
a857: bne  $a870                ; d0 17
a859: ldx  #$1a                 ; a2 1a
a85b: ldy  OLDTXT+1             ; a4 3e
a85d: bne  $a862                ; d0 03
a85f: jmp  error                ; 4c 37 a4
a862: lda  OLDTXT               ; a5 3d
a864: sta  TXTPTR               ; 85 7a
a866: sty  TXTPTR+1             ; 84 7b
a868: lda  OLDLIN               ; a5 3b
a86a: ldy  OLDLIN+1             ; a4 3c
a86c: sta  CURLIN               ; 85 39
a86e: sty  CURLIN+1             ; 84 3a
a870: rts                       ; 60
run: *** Perform [run]
a871: php                       ; 08
a872: lda  #$00                 ; a9 00
a874: jsr  VECT_setmsg          ; 20 90 ff
a877: plp                       ; 28
a878: bne  $a87d                ; d0 03
a87a: jmp  $a659                ; 4c 59 a6
a87d: jsr  $a660                ; 20 60 a6
a880: jmp  $a897                ; 4c 97 a8
gosub: *** Perform [gosub]
a883: lda  #$03                 ; a9 03
a885: jsr  getstk               ; 20 fb a3
a888: lda  TXTPTR+1             ; a5 7b
a88a: pha                       ; 48
a88b: lda  TXTPTR               ; a5 7a
a88d: pha                       ; 48
a88e: lda  CURLIN+1             ; a5 3a
a890: pha                       ; 48
a891: lda  CURLIN               ; a5 39
a893: pha                       ; 48
a894: lda  #$8d                 ; a9 8d
a896: pha                       ; 48
a897: jsr  CHRGOT               ; 20 79 00
a89a: jsr  goto                 ; 20 a0 a8
a89d: jmp  newstt               ; 4c ae a7
goto: *** Perform [goto]
a8a0: jsr  linget               ; 20 6b a9
a8a3: jsr  $a909                ; 20 09 a9
a8a6: sec                       ; 38
a8a7: lda  CURLIN               ; a5 39
a8a9: sbc  LINNUM               ; e5 14
a8ab: lda  CURLIN+1             ; a5 3a
a8ad: sbc  LINNUM+1             ; e5 15
a8af: bcs  $a8bc                ; b0 0b
a8b1: tya                       ; 98
a8b2: sec                       ; 38
a8b3: adc  TXTPTR               ; 65 7a
a8b5: ldx  TXTPTR+1             ; a6 7b
a8b7: bcc  $a8c0                ; 90 07
a8b9: inx                       ; e8
a8ba: bcs  $a8c0                ; b0 04
a8bc: lda  TXTTAB               ; a5 2b
a8be: ldx  TXTTAB+1             ; a6 2c
a8c0: jsr  $a617                ; 20 17 a6
a8c3: bcc  $a8e3                ; 90 1e
a8c5: lda  $5f                  ; a5 5f
a8c7: sbc  #$01                 ; e9 01
a8c9: sta  TXTPTR               ; 85 7a
a8cb: lda  $60                  ; a5 60
a8cd: sbc  #$00                 ; e9 00
a8cf: sta  TXTPTR+1             ; 85 7b
a8d1: rts                       ; 60
return: *** Perform [return]
a8d2: bne  $a8d1                ; d0 fd
a8d4: lda  #$ff                 ; a9 ff
a8d6: sta  FORPNT+1             ; 85 4a
a8d8: jsr  fndfor               ; 20 8a a3
a8db: txs                       ; 9a
a8dc: cmp  #$8d                 ; c9 8d
a8de: beq  $a8eb                ; f0 0b
a8e0: ldx  #$0c                 ; a2 0c
a8e2: bit  $11a2                ; 2c a2 11
a8e5: jmp  error                ; 4c 37 a4
a8e8: jmp  synerr               ; 4c 08 af
a8eb: pla                       ; 68
a8ec: pla                       ; 68
a8ed: sta  CURLIN               ; 85 39
a8ef: pla                       ; 68
a8f0: sta  CURLIN+1             ; 85 3a
a8f2: pla                       ; 68
a8f3: sta  TXTPTR               ; 85 7a
a8f5: pla                       ; 68
a8f6: sta  TXTPTR+1             ; 85 7b
data: *** Perform [data]
a8f8: jsr  datan                ; 20 06 a9
a8fb: tya                       ; 98
a8fc: clc                       ; 18
a8fd: adc  TXTPTR               ; 65 7a
a8ff: sta  TXTPTR               ; 85 7a
a901: bcc  $a905                ; 90 02
a903: inc  TXTPTR+1             ; e6 7b
a905: rts                       ; 60
datan: *** Search for Next Statement / Line
a906: ldx  #$3a                 ; a2 3a
a908: bit  $00a2                ; 2c a2 00
a90b: stx  CHARAC               ; 86 07
a90d: ldy  #$00                 ; a0 00
a90f: sty  ENDCHR               ; 84 08
a911: lda  ENDCHR               ; a5 08
a913: ldx  CHARAC               ; a6 07
a915: sta  CHARAC               ; 85 07
a917: stx  ENDCHR               ; 86 08
a919: lda  (TXTPTR),Y           ; b1 7a
a91b: beq  $a905                ; f0 e8
a91d: cmp  ENDCHR               ; c5 08
a91f: beq  $a905                ; f0 e4
a921: iny                       ; c8
a922: cmp  #$22                 ; c9 22
a924: bne  $a919                ; d0 f3
a926: beq  $a911                ; f0 e9
if: *** Perform [if]
a928: jsr  frmevl               ; 20 9e ad
a92b: jsr  CHRGOT               ; 20 79 00
a92e: cmp  #$89                 ; c9 89
a930: beq  $a937                ; f0 05
a932: lda  #$a7                 ; a9 a7
a934: jsr  $aeff                ; 20 ff ae
a937: lda  FAC                  ; a5 61
a939: bne  $a940                ; d0 05
rem: *** Perform [rem]
a93b: jsr  $a909                ; 20 09 a9
a93e: beq  $a8fb                ; f0 bb
a940: jsr  CHRGOT               ; 20 79 00
a943: bcs  $a948                ; b0 03
a945: jmp  goto                 ; 4c a0 a8
a948: jmp  gone3                ; 4c ed a7
ongoto: *** Perform [on]
a94b: jsr  $b79e                ; 20 9e b7
a94e: pha                       ; 48
a94f: cmp  #$8d                 ; c9 8d
a951: beq  $a957                ; f0 04
a953: cmp  #$89                 ; c9 89
a955: bne  $a8e8                ; d0 91
a957: dec  $65                  ; c6 65
a959: bne  $a95f                ; d0 04
a95b: pla                       ; 68
a95c: jmp  $a7ef                ; 4c ef a7
a95f: jsr  CHRGET               ; 20 73 00
a962: jsr  linget               ; 20 6b a9
a965: cmp  #$2c                 ; c9 2c
a967: beq  $a957                ; f0 ee
a969: pla                       ; 68
a96a: rts                       ; 60
linget: *** Fetch linnum From BASIC
a96b: ldx  #$00                 ; a2 00
a96d: stx  LINNUM               ; 86 14
a96f: stx  LINNUM+1             ; 86 15
a971: bcs  $a96a                ; b0 f7
a973: sbc  #$2f                 ; e9 2f
a975: sta  CHARAC               ; 85 07
a977: lda  LINNUM+1             ; a5 15
a979: sta  INDEX                ; 85 22
a97b: cmp  #$19                 ; c9 19
a97d: bcs  $a953                ; b0 d4
a97f: lda  LINNUM               ; a5 14
a981: asl  a                    ; 0a
a982: rol  INDEX                ; 26 22
a984: asl  a                    ; 0a
a985: rol  INDEX                ; 26 22
a987: adc  LINNUM               ; 65 14
a989: sta  LINNUM               ; 85 14
a98b: lda  INDEX                ; a5 22
a98d: adc  LINNUM+1             ; 65 15
a98f: sta  LINNUM+1             ; 85 15
a991: asl  LINNUM               ; 06 14
a993: rol  LINNUM+1             ; 26 15
a995: lda  LINNUM               ; a5 14
a997: adc  CHARAC               ; 65 07
a999: sta  LINNUM               ; 85 14
a99b: bcc  $a99f                ; 90 02
a99d: inc  LINNUM+1             ; e6 15
a99f: jsr  CHRGET               ; 20 73 00
a9a2: jmp  $a971                ; 4c 71 a9
let: *** Perform [let]
a9a5: jsr  ptrget               ; 20 8b b0
a9a8: sta  FORPNT               ; 85 49
a9aa: sty  FORPNT+1             ; 84 4a
a9ac: lda  #$b2                 ; a9 b2
a9ae: jsr  $aeff                ; 20 ff ae
a9b1: lda  INTFLG               ; a5 0e
a9b3: pha                       ; 48
a9b4: lda  VALTYP               ; a5 0d
a9b6: pha                       ; 48
a9b7: jsr  frmevl               ; 20 9e ad
a9ba: pla                       ; 68
a9bb: rol  a                    ; 2a
a9bc: jsr  $ad90                ; 20 90 ad
a9bf: bne  putstr               ; d0 18
a9c1: pla                       ; 68
a9c2: bpl  ptflpt               ; 10 12
putint: *** Assign Integer
a9c4: jsr  round                ; 20 1b bc
a9c7: jsr  ayint                ; 20 bf b1
a9ca: ldy  #$00                 ; a0 00
a9cc: lda  $64                  ; a5 64
a9ce: sta  (FORPNT),Y           ; 91 49
a9d0: iny                       ; c8
a9d1: lda  $65                  ; a5 65
a9d3: sta  (FORPNT),Y           ; 91 49
a9d5: rts                       ; 60
ptflpt: *** Assign Floating Point
a9d6: jmp  $bbd0                ; 4c d0 bb
putstr: *** Assign String
a9d9: pla                       ; 68
a9da: ldy  FORPNT+1             ; a4 4a
a9dc: cpy  #$bf                 ; c0 bf
a9de: bne  getspt               ; d0 4c
a9e0: jsr  $b6a6                ; 20 a6 b6
puttim: *** Assign TI$
a9e3: cmp  #$06                 ; c9 06
a9e5: bne  $aa24                ; d0 3d
a9e7: ldy  #$00                 ; a0 00
a9e9: sty  FAC                  ; 84 61
a9eb: sty  FACSGN               ; 84 66
a9ed: sty  FBUFPT               ; 84 71
a9ef: jsr  $aa1d                ; 20 1d aa
a9f2: jsr  mul10                ; 20 e2 ba
a9f5: inc  FBUFPT               ; e6 71
a9f7: ldy  FBUFPT               ; a4 71
a9f9: jsr  $aa1d                ; 20 1d aa
a9fc: jsr  movaf                ; 20 0c bc
a9ff: tax                       ; aa
aa00: beq  $aa07                ; f0 05
aa02: inx                       ; e8
aa03: txa                       ; 8a
aa04: jsr  $baed                ; 20 ed ba
aa07: ldy  FBUFPT               ; a4 71
aa09: iny                       ; c8
aa0a: cpy  #$06                 ; c0 06
aa0c: bne  $a9ed                ; d0 df
aa0e: jsr  mul10                ; 20 e2 ba
aa11: jsr  qint                 ; 20 9b bc
aa14: ldx  $64                  ; a6 64
aa16: ldy  $63                  ; a4 63
aa18: lda  $65                  ; a5 65
aa1a: jmp  VECT_settim          ; 4c db ff
aa1d: lda  (INDEX),Y            ; b1 22
aa1f: jsr  $0080                ; 20 80 00
aa22: bcc  $aa27                ; 90 03
aa24: jmp  $b248                ; 4c 48 b2
aa27: sbc  #$2f                 ; e9 2f
aa29: jmp  $bd7e                ; 4c 7e bd
getspt: *** Add Digit to FAC#1
aa2c: ldy  #$02                 ; a0 02
aa2e: lda  ($64),Y              ; b1 64
aa30: cmp  FRETOP+1             ; c5 34
aa32: bcc  $aa4b                ; 90 17
aa34: bne  $aa3d                ; d0 07
aa36: dey                       ; 88
aa37: lda  ($64),Y              ; b1 64
aa39: cmp  FRETOP               ; c5 33
aa3b: bcc  $aa4b                ; 90 0e
aa3d: ldy  $65                  ; a4 65
aa3f: cpy  VARTAB+1             ; c4 2e
aa41: bcc  $aa4b                ; 90 08
aa43: bne  $aa52                ; d0 0d
aa45: lda  $64                  ; a5 64
aa47: cmp  VARTAB               ; c5 2d
aa49: bcs  $aa52                ; b0 07
aa4b: lda  $64                  ; a5 64
aa4d: ldy  $65                  ; a4 65
aa4f: jmp  $aa68                ; 4c 68 aa
aa52: ldy  #$00                 ; a0 00
aa54: lda  ($64),Y              ; b1 64
aa56: jsr  $b475                ; 20 75 b4
aa59: lda  $50                  ; a5 50
aa5b: ldy  $51                  ; a4 51
aa5d: sta  ARISGN               ; 85 6f
aa5f: sty  FACOV                ; 84 70
aa61: jsr  movins               ; 20 7a b6
aa64: lda  #$61                 ; a9 61
aa66: ldy  #$00                 ; a0 00
aa68: sta  $50                  ; 85 50
aa6a: sty  $51                  ; 84 51
aa6c: jsr  frefac               ; 20 db b6
aa6f: ldy  #$00                 ; a0 00
aa71: lda  ($50),Y              ; b1 50
aa73: sta  (FORPNT),Y           ; 91 49
aa75: iny                       ; c8
aa76: lda  ($50),Y              ; b1 50
aa78: sta  (FORPNT),Y           ; 91 49
aa7a: iny                       ; c8
aa7b: lda  ($50),Y              ; b1 50
aa7d: sta  (FORPNT),Y           ; 91 49
aa7f: rts                       ; 60
printn: *** Perform [print]#
aa80: jsr  cmd                  ; 20 86 aa
aa83: jmp  $abb5                ; 4c b5 ab
cmd: *** Perform [cmd]
aa86: jsr  $b79e                ; 20 9e b7
aa89: beq  $aa90                ; f0 05
aa8b: lda  #$2c                 ; a9 2c
aa8d: jsr  $aeff                ; 20 ff ae
aa90: php                       ; 08
aa91: stx  CHANNL               ; 86 13
aa93: jsr  bckout               ; 20 18 e1
aa96: plp                       ; 28
aa97: jmp  print                ; 4c a0 aa
strdon: *** Print String From Memory
aa9a: jsr  $ab21                ; 20 21 ab
aa9d: jsr  CHRGOT               ; 20 79 00
print: *** Perform [print]
aaa0: beq  crdo                 ; f0 35
aaa2: beq  $aae7                ; f0 43
aaa4: cmp  #$a3                 ; c9 a3
aaa6: beq  $aaf8                ; f0 50
aaa8: cmp  #$a6                 ; c9 a6
aaaa: clc                       ; 18
aaab: beq  $aaf8                ; f0 4b
aaad: cmp  #$2c                 ; c9 2c
aaaf: beq  comprt               ; f0 37
aab1: cmp  #$3b                 ; c9 3b
aab3: beq  $ab13                ; f0 5e
aab5: jsr  frmevl               ; 20 9e ad
varop: *** Output Variable
aab8: bit  VALTYP               ; 24 0d
aaba: bmi  strdon               ; 30 de
aabc: jsr  fout                 ; 20 dd bd
aabf: jsr  strlit               ; 20 87 b4
aac2: jsr  $ab21                ; 20 21 ab
aac5: jsr  outspc               ; 20 3b ab
aac8: bne  $aa9d                ; d0 d3
aaca: lda  #$00                 ; a9 00
aacc: sta  BUF,X                ; 9d 00 02
aacf: ldx  #$ff                 ; a2 ff
aad1: ldy  #$01                 ; a0 01
aad3: lda  CHANNL               ; a5 13
aad5: bne  $aae7                ; d0 10
crdo: *** Output CR/LF
aad7: lda  #$0d                 ; a9 0d
aad9: jsr  $ab47                ; 20 47 ab
aadc: bit  CHANNL               ; 24 13
aade: bpl  $aae5                ; 10 05
aae0: lda  #$0a                 ; a9 0a
aae2: jsr  $ab47                ; 20 47 ab
aae5: eor  #$ff                 ; 49 ff
aae7: rts                       ; 60
comprt: *** Handle comma, TAB(, SPC(
aae8: sec                       ; 38
aae9: jsr  VECT_plot            ; 20 f0 ff
aaec: tya                       ; 98
aaed: sec                       ; 38
aaee: sbc  #$0a                 ; e9 0a
aaf0: bcs  $aaee                ; b0 fc
aaf2: eor  #$ff                 ; 49 ff
aaf4: adc  #$01                 ; 69 01
aaf6: bne  $ab0e                ; d0 16
aaf8: php                       ; 08
aaf9: sec                       ; 38
aafa: jsr  VECT_plot            ; 20 f0 ff
aafd: sty  TRMPOS               ; 84 09
aaff: jsr  gtbytc               ; 20 9b b7
ab02: cmp  #$29                 ; c9 29
ab04: bne  $ab5f                ; d0 59
ab06: plp                       ; 28
ab07: bcc  $ab0f                ; 90 06
ab09: txa                       ; 8a
ab0a: sbc  TRMPOS               ; e5 09
ab0c: bcc  $ab13                ; 90 05
ab0e: tax                       ; aa
ab0f: inx                       ; e8
ab10: dex                       ; ca
ab11: bne  $ab19                ; d0 06
ab13: jsr  CHRGET               ; 20 73 00
ab16: jmp  $aaa2                ; 4c a2 aa
ab19: jsr  outspc               ; 20 3b ab
ab1c: bne  $ab10                ; d0 f2
strout: *** Output String
ab1e: jsr  strlit               ; 20 87 b4
ab21: jsr  $b6a6                ; 20 a6 b6
ab24: tax                       ; aa
ab25: ldy  #$00                 ; a0 00
ab27: inx                       ; e8
ab28: dex                       ; ca
ab29: beq  $aae7                ; f0 bc
ab2b: lda  (INDEX),Y            ; b1 22
ab2d: jsr  $ab47                ; 20 47 ab
ab30: iny                       ; c8
ab31: cmp  #$0d                 ; c9 0d
ab33: bne  $ab28                ; d0 f3
ab35: jsr  $aae5                ; 20 e5 aa
ab38: jmp  $ab28                ; 4c 28 ab
outspc: *** Output Format Character
ab3b: lda  CHANNL               ; a5 13
ab3d: beq  $ab42                ; f0 03
ab3f: lda  #$20                 ; a9 20
ab41: bit  $1da9                ; 2c a9 1d
ab44: bit  $3fa9                ; 2c a9 3f
ab47: jsr  bchout               ; 20 0c e1
ab4a: and  #$ff                 ; 29 ff
ab4c: rts                       ; 60
doagin: *** Handle Bad Data
ab4d: lda  INPFLG               ; a5 11
ab4f: beq  $ab62                ; f0 11
ab51: bmi  $ab57                ; 30 04
ab53: ldy  #$ff                 ; a0 ff
ab55: bne  $ab5b                ; d0 04
ab57: lda  DATLIN               ; a5 3f
ab59: ldy  DATLIN+1             ; a4 40
ab5b: sta  CURLIN               ; 85 39
ab5d: sty  CURLIN+1             ; 84 3a
ab5f: jmp  synerr               ; 4c 08 af
ab62: lda  CHANNL               ; a5 13
ab64: beq  $ab6b                ; f0 05
ab66: ldx  #$18                 ; a2 18
ab68: jmp  error                ; 4c 37 a4
ab6b: lda  #$0c                 ; a9 0c
ab6d: ldy  #$ad                 ; a0 ad
ab6f: jsr  strout               ; 20 1e ab
ab72: lda  OLDTXT               ; a5 3d
ab74: ldy  OLDTXT+1             ; a4 3e
ab76: sta  TXTPTR               ; 85 7a
ab78: sty  TXTPTR+1             ; 84 7b
ab7a: rts                       ; 60
get: *** Perform [get]
ab7b: jsr  errdir               ; 20 a6 b3
ab7e: cmp  #$23                 ; c9 23
ab80: bne  $ab92                ; d0 10
ab82: jsr  CHRGET               ; 20 73 00
ab85: jsr  $b79e                ; 20 9e b7
ab88: lda  #$2c                 ; a9 2c
ab8a: jsr  $aeff                ; 20 ff ae
ab8d: stx  CHANNL               ; 86 13
ab8f: jsr  bckin                ; 20 1e e1
ab92: ldx  #$01                 ; a2 01
ab94: ldy  #$02                 ; a0 02
ab96: lda  #$00                 ; a9 00
ab98: sta  $0201                ; 8d 01 02
ab9b: lda  #$40                 ; a9 40
ab9d: jsr  $ac0f                ; 20 0f ac
aba0: ldx  CHANNL               ; a6 13
aba2: bne  $abb7                ; d0 13
aba4: rts                       ; 60
inputn: *** Perform [input#]
aba5: jsr  $b79e                ; 20 9e b7
aba8: lda  #$2c                 ; a9 2c
abaa: jsr  $aeff                ; 20 ff ae
abad: stx  CHANNL               ; 86 13
abaf: jsr  bckin                ; 20 1e e1
abb2: jsr  $abce                ; 20 ce ab
abb5: lda  CHANNL               ; a5 13
abb7: jsr  VECT_(iclrch)        ; 20 cc ff
abba: ldx  #$00                 ; a2 00
abbc: stx  CHANNL               ; 86 13
abbe: rts                       ; 60
input: *** Perform [input]
abbf: cmp  #$22                 ; c9 22
abc1: bne  $abce                ; d0 0b
abc3: jsr  $aebd                ; 20 bd ae
abc6: lda  #$3b                 ; a9 3b
abc8: jsr  $aeff                ; 20 ff ae
abcb: jsr  $ab21                ; 20 21 ab
abce: jsr  errdir               ; 20 a6 b3
abd1: lda  #$2c                 ; a9 2c
abd3: sta  $01ff                ; 8d ff 01
abd6: jsr  qinlin               ; 20 f9 ab
abd9: lda  CHANNL               ; a5 13
abdb: beq  bufful               ; f0 0d
abdd: jsr  VECT_readss          ; 20 b7 ff
abe0: and  #$02                 ; 29 02
abe2: beq  bufful               ; f0 06
abe4: jsr  $abb5                ; 20 b5 ab
abe7: jmp  data                 ; 4c f8 a8
bufful: *** Read Input Buffer
abea: lda  BUF                  ; ad 00 02
abed: bne  $ac0d                ; d0 1e
abef: lda  CHANNL               ; a5 13
abf1: bne  $abd6                ; d0 e3
abf3: jsr  datan                ; 20 06 a9
abf6: jmp  $a8fb                ; 4c fb a8
qinlin: *** Do Input Prompt
abf9: lda  CHANNL               ; a5 13
abfb: bne  $ac03                ; d0 06
abfd: jsr  $ab45                ; 20 45 ab
ac00: jsr  outspc               ; 20 3b ab
ac03: jmp  inlin                ; 4c 60 a5
read: *** Perform [read]
ac06: ldx  DATPTR               ; a6 41
ac08: ldy  DATPTR+1             ; a4 42
ac0a: lda  #$98                 ; a9 98
ac0c: bit  RINONE               ; 2c a9 00
ac0f: sta  INPFLG               ; 85 11
ac11: stx  INPPTR               ; 86 43
ac13: sty  INPPTR+1             ; 84 44
ac15: jsr  ptrget               ; 20 8b b0
ac18: sta  FORPNT               ; 85 49
ac1a: sty  FORPNT+1             ; 84 4a
ac1c: lda  TXTPTR               ; a5 7a
ac1e: ldy  TXTPTR+1             ; a4 7b
ac20: sta  VARTXT               ; 85 4b
ac22: sty  VARTXT+1             ; 84 4c
ac24: ldx  INPPTR               ; a6 43
ac26: ldy  INPPTR+1             ; a4 44
ac28: stx  TXTPTR               ; 86 7a
ac2a: sty  TXTPTR+1             ; 84 7b
ac2c: jsr  CHRGOT               ; 20 79 00
ac2f: bne  $ac51                ; d0 20
ac31: bit  INPFLG               ; 24 11
ac33: bvc  $ac41                ; 50 0c
rdget: *** General Purpose Read Routine
ac35: jsr  bgetin               ; 20 24 e1
ac38: sta  BUF                  ; 8d 00 02
ac3b: ldx  #$ff                 ; a2 ff
ac3d: ldy  #$01                 ; a0 01
ac3f: bne  $ac4d                ; d0 0c
ac41: bmi  $acb8                ; 30 75
ac43: lda  CHANNL               ; a5 13
ac45: bne  $ac4a                ; d0 03
ac47: jsr  $ab45                ; 20 45 ab
ac4a: jsr  qinlin               ; 20 f9 ab
ac4d: stx  TXTPTR               ; 86 7a
ac4f: sty  TXTPTR+1             ; 84 7b
ac51: jsr  CHRGET               ; 20 73 00
ac54: bit  VALTYP               ; 24 0d
ac56: bpl  $ac89                ; 10 31
ac58: bit  INPFLG               ; 24 11
ac5a: bvc  $ac65                ; 50 09
ac5c: inx                       ; e8
ac5d: stx  TXTPTR               ; 86 7a
ac5f: lda  #$00                 ; a9 00
ac61: sta  CHARAC               ; 85 07
ac63: beq  $ac71                ; f0 0c
ac65: sta  CHARAC               ; 85 07
ac67: cmp  #$22                 ; c9 22
ac69: beq  $ac72                ; f0 07
ac6b: lda  #$3a                 ; a9 3a
ac6d: sta  CHARAC               ; 85 07
ac6f: lda  #$2c                 ; a9 2c
ac71: clc                       ; 18
ac72: sta  ENDCHR               ; 85 08
ac74: lda  TXTPTR               ; a5 7a
ac76: ldy  TXTPTR+1             ; a4 7b
ac78: adc  #$00                 ; 69 00
ac7a: bcc  $ac7d                ; 90 01
ac7c: iny                       ; c8
ac7d: jsr  $b48d                ; 20 8d b4
ac80: jsr  $b7e2                ; 20 e2 b7
ac83: jsr  $a9da                ; 20 da a9
ac86: jmp  $ac91                ; 4c 91 ac
ac89: jsr  fin                  ; 20 f3 bc
ac8c: lda  INTFLG               ; a5 0e
ac8e: jsr  $a9c2                ; 20 c2 a9
ac91: jsr  CHRGOT               ; 20 79 00
ac94: beq  $ac9d                ; f0 07
ac96: cmp  #$2c                 ; c9 2c
ac98: beq  $ac9d                ; f0 03
ac9a: jmp  doagin               ; 4c 4d ab
ac9d: lda  TXTPTR               ; a5 7a
ac9f: ldy  TXTPTR+1             ; a4 7b
aca1: sta  INPPTR               ; 85 43
aca3: sty  INPPTR+1             ; 84 44
aca5: lda  VARTXT               ; a5 4b
aca7: ldy  VARTXT+1             ; a4 4c
aca9: sta  TXTPTR               ; 85 7a
acab: sty  TXTPTR+1             ; 84 7b
acad: jsr  CHRGOT               ; 20 79 00
acb0: beq  $acdf                ; f0 2d
acb2: jsr  $aefd                ; 20 fd ae
acb5: jmp  $ac15                ; 4c 15 ac
acb8: jsr  datan                ; 20 06 a9
acbb: iny                       ; c8
acbc: tax                       ; aa
acbd: bne  $acd1                ; d0 12
acbf: ldx  #$0d                 ; a2 0d
acc1: iny                       ; c8
acc2: lda  (TXTPTR),Y           ; b1 7a
acc4: beq  $ad32                ; f0 6c
acc6: iny                       ; c8
acc7: lda  (TXTPTR),Y           ; b1 7a
acc9: sta  DATLIN               ; 85 3f
accb: iny                       ; c8
accc: lda  (TXTPTR),Y           ; b1 7a
acce: iny                       ; c8
accf: sta  DATLIN+1             ; 85 40
acd1: jsr  $a8fb                ; 20 fb a8
acd4: jsr  CHRGOT               ; 20 79 00
acd7: tax                       ; aa
acd8: cpx  #$83                 ; e0 83
acda: bne  $acb8                ; d0 dc
acdc: jmp  $ac51                ; 4c 51 ac
acdf: lda  INPPTR               ; a5 43
ace1: ldy  INPPTR+1             ; a4 44
ace3: ldx  INPFLG               ; a6 11
ace5: bpl  $acea                ; 10 03
ace7: jmp  $a827                ; 4c 27 a8
acea: ldy  #$00                 ; a0 00
acec: lda  (INPPTR),Y           ; b1 43
acee: beq  $acfb                ; f0 0b
acf0: lda  CHANNL               ; a5 13
acf2: bne  $acfb                ; d0 07
acf4: lda  #$fc                 ; a9 fc
acf6: ldy  #$ac                 ; a0 ac
acf8: jmp  strout               ; 4c 1e ab
acfb: rts                       ; 60
exint: *** Input Error Messages TEXT
acfc: ???                       ; 3f
acfd: eor  $58                  ; 45 58
acff: ???                       ; 54
ad00: ???                       ; 52
ad01: eor  ($20,X)              ; 41 20
ad03: eor  #$47                 ; 49 47
ad05: lsr  $524f                ; 4e 4f 52
ad08: eor  INPPTR+1             ; 45 44
ad0a: ora  $3f00                ; 0d 00 3f
ad0d: ???                       ; 52
ad0e: eor  INPPTR+1             ; 45 44
ad10: ???                       ; 4f
ad11: jsr  $5246                ; 20 46 52
ad14: ???                       ; 4f
ad15: eor  $5320                ; 4d 20 53
ad18: ???                       ; 54
ad19: eor  ($52,X)              ; 41 52
ad1b: ???                       ; 54
ad1c: ora  VIC                  ; 0d 00 d0
ad1f: ???                       ; 04
ad20: ldy  #$00                 ; a0 00
ad22: beq  $ad27                ; f0 03
ad24: jsr  ptrget               ; 20 8b b0
ad27: sta  FORPNT               ; 85 49
ad29: sty  FORPNT+1             ; 84 4a
ad2b: jsr  fndfor               ; 20 8a a3
ad2e: beq  $ad35                ; f0 05
ad30: ldx  #$0a                 ; a2 0a
ad32: jmp  error                ; 4c 37 a4
ad35: txs                       ; 9a
ad36: txa                       ; 8a
ad37: clc                       ; 18
ad38: adc  #$04                 ; 69 04
ad3a: pha                       ; 48
ad3b: adc  #$06                 ; 69 06
ad3d: sta  INDEX2               ; 85 24
ad3f: pla                       ; 68
ad40: ldy  #$01                 ; a0 01
ad42: jsr  movfm                ; 20 a2 bb
ad45: tsx                       ; ba
ad46: lda  $0109,X              ; bd 09 01
ad49: sta  FACSGN               ; 85 66
ad4b: lda  FORPNT               ; a5 49
ad4d: ldy  FORPNT+1             ; a4 4a
ad4f: jsr  fadd                 ; 20 67 b8
ad52: jsr  $bbd0                ; 20 d0 bb
ad55: ldy  #$01                 ; a0 01
ad57: jsr  $bc5d                ; 20 5d bc
ad5a: tsx                       ; ba
ad5b: sec                       ; 38
ad5c: sbc  $0109,X              ; fd 09 01
ad5f: beq  $ad78                ; f0 17
donext: *** Check Valid Loop
ad61: lda  $010f,X              ; bd 0f 01
ad64: sta  CURLIN               ; 85 39
ad66: lda  $0110,X              ; bd 10 01
ad69: sta  CURLIN+1             ; 85 3a
ad6b: lda  $0112,X              ; bd 12 01
ad6e: sta  TXTPTR               ; 85 7a
ad70: lda  $0111,X              ; bd 11 01
ad73: sta  TXTPTR+1             ; 85 7b
ad75: jmp  newstt               ; 4c ae a7
ad78: txa                       ; 8a
ad79: adc  #$11                 ; 69 11
ad7b: tax                       ; aa
ad7c: txs                       ; 9a
ad7d: jsr  CHRGOT               ; 20 79 00
ad80: cmp  #$2c                 ; c9 2c
ad82: bne  $ad75                ; d0 f1
ad84: jsr  CHRGET               ; 20 73 00
ad87: jsr  $ad24                ; 20 24 ad
frmnum: *** Confirm Result
ad8a: jsr  frmevl               ; 20 9e ad
ad8d: clc                       ; 18
ad8e: bit  MEMSIZ+1             ; 24 38
ad90: bit  VALTYP               ; 24 0d
ad92: bmi  $ad97                ; 30 03
ad94: bcs  $ad99                ; b0 03
ad96: rts                       ; 60
ad97: bcs  $ad96                ; b0 fd
ad99: ldx  #$16                 ; a2 16
ad9b: jmp  error                ; 4c 37 a4
frmevl: *** Evaluate Expression in Text
ad9e: ldx  TXTPTR               ; a6 7a
ada0: bne  $ada4                ; d0 02
ada2: dec  TXTPTR+1             ; c6 7b
ada4: dec  TXTPTR               ; c6 7a
ada6: ldx  #$00                 ; a2 00
ada8: bit  VARPNT+1             ; 24 48
adaa: txa                       ; 8a
adab: pha                       ; 48
adac: lda  #$01                 ; a9 01
adae: jsr  getstk               ; 20 fb a3
adb1: jsr  eval                 ; 20 83 ae
adb4: lda  #$00                 ; a9 00
adb6: sta  OPMASK               ; 85 4d
adb8: jsr  CHRGOT               ; 20 79 00
adbb: sec                       ; 38
adbc: sbc  #$b1                 ; e9 b1
adbe: bcc  $add7                ; 90 17
adc0: cmp  #$03                 ; c9 03
adc2: bcs  $add7                ; b0 13
adc4: cmp  #$01                 ; c9 01
adc6: rol  a                    ; 2a
adc7: eor  #$01                 ; 49 01
adc9: eor  OPMASK               ; 45 4d
adcb: cmp  OPMASK               ; c5 4d
adcd: bcc  $ae30                ; 90 61
adcf: sta  OPMASK               ; 85 4d
add1: jsr  CHRGET               ; 20 73 00
add4: jmp  $adbb                ; 4c bb ad
add7: ldx  OPMASK               ; a6 4d
add9: bne  $ae07                ; d0 2c
addb: bcs  $ae58                ; b0 7b
addd: adc  #$07                 ; 69 07
addf: bcc  $ae58                ; 90 77
ade1: adc  VALTYP               ; 65 0d
ade3: bne  $ade8                ; d0 03
ade5: jmp  cat                  ; 4c 3d b6
ade8: adc  #$ff                 ; 69 ff
adea: sta  INDEX                ; 85 22
adec: asl  a                    ; 0a
aded: adc  INDEX                ; 65 22
adef: tay                       ; a8
adf0: pla                       ; 68
adf1: cmp  $a080,Y              ; d9 80 a0
adf4: bcs  $ae5d                ; b0 67
adf6: jsr  $ad8d                ; 20 8d ad
adf9: pha                       ; 48
adfa: jsr  $ae20                ; 20 20 ae
adfd: pla                       ; 68
adfe: ldy  VARTXT               ; a4 4b
ae00: bpl  $ae19                ; 10 17
ae02: tax                       ; aa
ae03: beq  $ae5b                ; f0 56
ae05: bne  $ae66                ; d0 5f
ae07: lsr  VALTYP               ; 46 0d
ae09: txa                       ; 8a
ae0a: rol  a                    ; 2a
ae0b: ldx  TXTPTR               ; a6 7a
ae0d: bne  $ae11                ; d0 02
ae0f: dec  TXTPTR+1             ; c6 7b
ae11: dec  TXTPTR               ; c6 7a
ae13: ldy  #$1b                 ; a0 1b
ae15: sta  OPMASK               ; 85 4d
ae17: bne  $adf0                ; d0 d7
ae19: cmp  $a080,Y              ; d9 80 a0
ae1c: bcs  $ae66                ; b0 48
ae1e: bcc  $adf9                ; 90 d9
ae20: lda  $a082,Y              ; b9 82 a0
ae23: pha                       ; 48
ae24: lda  $a081,Y              ; b9 81 a0
ae27: pha                       ; 48
ae28: jsr  $ae33                ; 20 33 ae
ae2b: lda  OPMASK               ; a5 4d
ae2d: jmp  $ada9                ; 4c a9 ad
ae30: jmp  synerr               ; 4c 08 af
ae33: lda  FACSGN               ; a5 66
ae35: ldx  $a080,Y              ; be 80 a0
ae38: tay                       ; a8
ae39: pla                       ; 68
ae3a: sta  INDEX                ; 85 22
ae3c: inc  INDEX                ; e6 22
ae3e: pla                       ; 68
ae3f: sta  INDEX+1              ; 85 23
ae41: tya                       ; 98
ae42: pha                       ; 48
ae43: jsr  round                ; 20 1b bc
ae46: lda  $65                  ; a5 65
ae48: pha                       ; 48
ae49: lda  $64                  ; a5 64
ae4b: pha                       ; 48
ae4c: lda  $63                  ; a5 63
ae4e: pha                       ; 48
ae4f: lda  FACHO                ; a5 62
ae51: pha                       ; 48
ae52: lda  FAC                  ; a5 61
ae54: pha                       ; 48
ae55: jmp  (INDEX)              ; 6c 22 00
ae58: ldy  #$ff                 ; a0 ff
ae5a: pla                       ; 68
ae5b: beq  $ae80                ; f0 23
ae5d: cmp  #$64                 ; c9 64
ae5f: beq  $ae64                ; f0 03
ae61: jsr  $ad8d                ; 20 8d ad
ae64: sty  VARTXT               ; 84 4b
ae66: pla                       ; 68
ae67: lsr  a                    ; 4a
ae68: sta  TANSGN               ; 85 12
ae6a: pla                       ; 68
ae6b: sta  AFAC                 ; 85 69
ae6d: pla                       ; 68
ae6e: sta  ARGHO                ; 85 6a
ae70: pla                       ; 68
ae71: sta  $6b                  ; 85 6b
ae73: pla                       ; 68
ae74: sta  $6c                  ; 85 6c
ae76: pla                       ; 68
ae77: sta  $6d                  ; 85 6d
ae79: pla                       ; 68
ae7a: sta  ARGSGN               ; 85 6e
ae7c: eor  FACSGN               ; 45 66
ae7e: sta  ARISGN               ; 85 6f
ae80: lda  FAC                  ; a5 61
ae82: rts                       ; 60
eval: *** Evaluate Single Term
ae83: jmp  (IEVAL)              ; 6c 0a 03
ae86: lda  #$00                 ; a9 00
ae88: sta  VALTYP               ; 85 0d
ae8a: jsr  CHRGET               ; 20 73 00
ae8d: bcs  $ae92                ; b0 03
ae8f: jmp  fin                  ; 4c f3 bc
ae92: jsr  $b113                ; 20 13 b1
ae95: bcc  $ae9a                ; 90 03
ae97: jmp  isvar                ; 4c 28 af
ae9a: cmp  #$ff                 ; c9 ff
ae9c: bne  qdot                 ; d0 0f
ae9e: lda  #$a8                 ; a9 a8
aea0: ldy  #$ae                 ; a0 ae
aea2: jsr  movfm                ; 20 a2 bb
aea5: jmp  CHRGET               ; 4c 73 00
pival: *** Constant - pi DATA
aea8: ???                       ; 82
aea9: eor  #$0f                 ; 49 0f
aeab: ???                       ; da
aeac: lda  (LXSP,X)             ; a1 c9
aeae: rol  $def0                ; 2e f0 de
aeb1: cmp  #$ab                 ; c9 ab
aeb3: beq  domin                ; f0 58
aeb5: cmp  #$aa                 ; c9 aa
aeb7: beq  $ae8a                ; f0 d1
aeb9: cmp  #$22                 ; c9 22
aebb: bne  $aecc                ; d0 0f
aebd: lda  TXTPTR               ; a5 7a
aebf: ldy  TXTPTR+1             ; a4 7b
aec1: adc  #$00                 ; 69 00
aec3: bcc  $aec6                ; 90 01
aec5: iny                       ; c8
aec6: jsr  strlit               ; 20 87 b4
aec9: jmp  $b7e2                ; 4c e2 b7
aecc: cmp  #$a8                 ; c9 a8
aece: bne  $aee3                ; d0 13
aed0: ldy  #$18                 ; a0 18
aed2: bne  $af0f                ; d0 3b
aed4: jsr  ayint                ; 20 bf b1
aed7: lda  $65                  ; a5 65
aed9: eor  #$ff                 ; 49 ff
aedb: tay                       ; a8
aedc: lda  $64                  ; a5 64
aede: eor  #$ff                 ; 49 ff
aee0: jmp  givayf               ; 4c 91 b3
aee3: cmp  #$a5                 ; c9 a5
aee5: bne  $aeea                ; d0 03
aee7: jmp  fndoer               ; 4c f4 b3
aeea: cmp  #$b4                 ; c9 b4
aeec: bcc  parchk               ; 90 03
aeee: jmp  isfun                ; 4c a7 af
parchk: *** Expression in Brackets
aef1: jsr  $aefa                ; 20 fa ae
aef4: jsr  frmevl               ; 20 9e ad
chkcls: *** Confirm Character
aef7: lda  #$29                 ; a9 29
aef9: bit  $28a9                ; 2c a9 28
aefc: bit  $2ca9                ; 2c a9 2c
aeff: ldy  #$00                 ; a0 00
af01: cmp  (TXTPTR),Y           ; d1 7a
af03: bne  synerr               ; d0 03
af05: jmp  CHRGET               ; 4c 73 00
synerr: *** Output ?SYNTAX Error
af08: ldx  #$0b                 ; a2 0b
af0a: jmp  error                ; 4c 37 a4
domin: *** Set up NOT Function
af0d: ldy  #$15                 ; a0 15
af0f: pla                       ; 68
af10: pla                       ; 68
af11: jmp  $adfa                ; 4c fa ad
rsvvar: *** Identify Reserved Variable
af14: sec                       ; 38
af15: lda  $64                  ; a5 64
af17: sbc  #$00                 ; e9 00
af19: lda  $65                  ; a5 65
af1b: sbc  #$a0                 ; e9 a0
af1d: bcc  $af27                ; 90 08
af1f: lda  #$a2                 ; a9 a2
af21: sbc  $64                  ; e5 64
af23: lda  #$e3                 ; a9 e3
af25: sbc  $65                  ; e5 65
af27: rts                       ; 60
isvar: *** Search for Variable
af28: jsr  ptrget               ; 20 8b b0
af2b: sta  $64                  ; 85 64
af2d: sty  $65                  ; 84 65
af2f: ldx  VARNAM               ; a6 45
af31: ldy  VARNAM+1             ; a4 46
af33: lda  VALTYP               ; a5 0d
af35: beq  $af5d                ; f0 26
af37: lda  #$00                 ; a9 00
af39: sta  FACOV                ; 85 70
af3b: jsr  rsvvar               ; 20 14 af
af3e: bcc  $af5c                ; 90 1c
af40: cpx  #$54                 ; e0 54
af42: bne  $af5c                ; d0 18
af44: cpy  #$c9                 ; c0 c9
af46: bne  $af5c                ; d0 14
tisasc: *** Convert TI to ASCII String
af48: jsr  $af84                ; 20 84 af
af4b: sty  $5e                  ; 84 5e
af4d: dey                       ; 88
af4e: sty  FBUFPT               ; 84 71
af50: ldy  #$06                 ; a0 06
af52: sty  $5d                  ; 84 5d
af54: ldy  #$24                 ; a0 24
af56: jsr  foutim               ; 20 68 be
af59: jmp  $b46f                ; 4c 6f b4
af5c: rts                       ; 60
af5d: bit  INTFLG               ; 24 0e
af5f: bpl  $af6e                ; 10 0d
af61: ldy  #$00                 ; a0 00
af63: lda  ($64),Y              ; b1 64
af65: tax                       ; aa
af66: iny                       ; c8
af67: lda  ($64),Y              ; b1 64
af69: tay                       ; a8
af6a: txa                       ; 8a
af6b: jmp  givayf               ; 4c 91 b3
af6e: jsr  rsvvar               ; 20 14 af
af71: bcc  $afa0                ; 90 2d
af73: cpx  #$54                 ; e0 54
af75: bne  $af92                ; d0 1b
af77: cpy  #$49                 ; c0 49
af79: bne  $afa0                ; d0 25
af7b: jsr  $af84                ; 20 84 af
af7e: tya                       ; 98
af7f: ldx  #$a0                 ; a2 a0
af81: jmp  $bc4f                ; 4c 4f bc
af84: jsr  VECT_rdtim           ; 20 de ff
af87: stx  $64                  ; 86 64
af89: sty  $63                  ; 84 63
af8b: sta  $65                  ; 85 65
af8d: ldy  #$00                 ; a0 00
af8f: sty  FACHO                ; 84 62
af91: rts                       ; 60
af92: cpx  #$53                 ; e0 53
af94: bne  $afa0                ; d0 0a
af96: cpy  #$54                 ; c0 54
af98: bne  $afa0                ; d0 06
af9a: jsr  VECT_readss          ; 20 b7 ff
af9d: jmp  $bc3c                ; 4c 3c bc
afa0: lda  $64                  ; a5 64
afa2: ldy  $65                  ; a4 65
afa4: jmp  movfm                ; 4c a2 bb
isfun: *** Identify Function Type
afa7: asl  a                    ; 0a
afa8: pha                       ; 48
afa9: tax                       ; aa
afaa: jsr  CHRGET               ; 20 73 00
afad: cpx  #$8f                 ; e0 8f
afaf: bcc  numfun               ; 90 20
strfun: *** Evaluate String Function
afb1: jsr  $aefa                ; 20 fa ae
afb4: jsr  frmevl               ; 20 9e ad
afb7: jsr  $aefd                ; 20 fd ae
afba: jsr  $ad8f                ; 20 8f ad
afbd: pla                       ; 68
afbe: tax                       ; aa
afbf: lda  $65                  ; a5 65
afc1: pha                       ; 48
afc2: lda  $64                  ; a5 64
afc4: pha                       ; 48
afc5: txa                       ; 8a
afc6: pha                       ; 48
afc7: jsr  $b79e                ; 20 9e b7
afca: pla                       ; 68
afcb: tay                       ; a8
afcc: txa                       ; 8a
afcd: pha                       ; 48
afce: jmp  $afd6                ; 4c d6 af
numfun: *** Evaluate Numeric Function
afd1: jsr  parchk               ; 20 f1 ae
afd4: pla                       ; 68
afd5: tay                       ; a8
afd6: lda  $9fea,Y              ; b9 ea 9f
afd9: sta  $55                  ; 85 55
afdb: lda  $9feb,Y              ; b9 eb 9f
afde: sta  $56                  ; 85 56
afe0: jsr  JMPER                ; 20 54 00
afe3: jmp  $ad8d                ; 4c 8d ad
orop: *** Perform [or], [and]
afe6: ldy  #$ff                 ; a0 ff
afe8: bit  TIME                 ; 2c a0 00
afeb: sty  COUNT                ; 84 0b
afed: jsr  ayint                ; 20 bf b1
aff0: lda  $64                  ; a5 64
aff2: eor  COUNT                ; 45 0b
aff4: sta  CHARAC               ; 85 07
aff6: lda  $65                  ; a5 65
aff8: eor  COUNT                ; 45 0b
affa: sta  ENDCHR               ; 85 08
affc: jsr  movfa                ; 20 fc bb
afff: jsr  ayint                ; 20 bf b1
b002: lda  $65                  ; a5 65
b004: eor  COUNT                ; 45 0b
b006: and  ENDCHR               ; 25 08
b008: eor  COUNT                ; 45 0b
b00a: tay                       ; a8
b00b: lda  $64                  ; a5 64
b00d: eor  COUNT                ; 45 0b
b00f: and  CHARAC               ; 25 07
b011: eor  COUNT                ; 45 0b
b013: jmp  givayf               ; 4c 91 b3
dorel: *** Perform <, =, >
b016: jsr  $ad90                ; 20 90 ad
b019: bcs  strrel               ; b0 13
numrel: *** Numeric Comparison
b01b: lda  ARGSGN               ; a5 6e
b01d: ora  #$7f                 ; 09 7f
b01f: and  ARGHO                ; 25 6a
b021: sta  ARGHO                ; 85 6a
b023: lda  #$69                 ; a9 69
b025: ldy  #$00                 ; a0 00
b027: jsr  fcomp                ; 20 5b bc
b02a: tax                       ; aa
b02b: jmp  $b061                ; 4c 61 b0
strrel: *** String Comparison
b02e: lda  #$00                 ; a9 00
b030: sta  VALTYP               ; 85 0d
b032: dec  OPMASK               ; c6 4d
b034: jsr  $b6a6                ; 20 a6 b6
b037: sta  FAC                  ; 85 61
b039: stx  FACHO                ; 86 62
b03b: sty  $63                  ; 84 63
b03d: lda  $6c                  ; a5 6c
b03f: ldy  $6d                  ; a4 6d
b041: jsr  $b6aa                ; 20 aa b6
b044: stx  $6c                  ; 86 6c
b046: sty  $6d                  ; 84 6d
b048: tax                       ; aa
b049: sec                       ; 38
b04a: sbc  FAC                  ; e5 61
b04c: beq  $b056                ; f0 08
b04e: lda  #$01                 ; a9 01
b050: bcc  $b056                ; 90 04
b052: ldx  FAC                  ; a6 61
b054: lda  #$ff                 ; a9 ff
b056: sta  FACSGN               ; 85 66
b058: ldy  #$ff                 ; a0 ff
b05a: inx                       ; e8
b05b: iny                       ; c8
b05c: dex                       ; ca
b05d: bne  $b066                ; d0 07
b05f: ldx  FACSGN               ; a6 66
b061: bmi  $b072                ; 30 0f
b063: clc                       ; 18
b064: bcc  $b072                ; 90 0c
b066: lda  ($6c),Y              ; b1 6c
b068: cmp  (FACHO),Y            ; d1 62
b06a: beq  $b05b                ; f0 ef
b06c: ldx  #$ff                 ; a2 ff
b06e: bcs  $b072                ; b0 02
b070: ldx  #$01                 ; a2 01
b072: inx                       ; e8
b073: txa                       ; 8a
b074: rol  a                    ; 2a
b075: and  TANSGN               ; 25 12
b077: beq  $b07b                ; f0 02
b079: lda  #$ff                 ; a9 ff
b07b: jmp  $bc3c                ; 4c 3c bc
dim: *** Perform [dim]
b07e: jsr  $aefd                ; 20 fd ae
b081: tax                       ; aa
b082: jsr  $b090                ; 20 90 b0
b085: jsr  CHRGOT               ; 20 79 00
b088: bne  dim                  ; d0 f4
b08a: rts                       ; 60
ptrget: *** Identify Variable
b08b: ldx  #$00                 ; a2 00
b08d: jsr  CHRGOT               ; 20 79 00
b090: stx  DIMFLG               ; 86 0c
b092: sta  VARNAM               ; 85 45
b094: jsr  CHRGOT               ; 20 79 00
b097: jsr  $b113                ; 20 13 b1
b09a: bcs  $b09f                ; b0 03
b09c: jmp  synerr               ; 4c 08 af
b09f: ldx  #$00                 ; a2 00
b0a1: stx  VALTYP               ; 86 0d
b0a3: stx  INTFLG               ; 86 0e
b0a5: jsr  CHRGET               ; 20 73 00
b0a8: bcc  $b0af                ; 90 05
b0aa: jsr  $b113                ; 20 13 b1
b0ad: bcc  $b0ba                ; 90 0b
b0af: tax                       ; aa
b0b0: jsr  CHRGET               ; 20 73 00
b0b3: bcc  $b0b0                ; 90 fb
b0b5: jsr  $b113                ; 20 13 b1
b0b8: bcs  $b0b0                ; b0 f6
b0ba: cmp  #$24                 ; c9 24
b0bc: bne  $b0c4                ; d0 06
b0be: lda  #$ff                 ; a9 ff
b0c0: sta  VALTYP               ; 85 0d
b0c2: bne  $b0d4                ; d0 10
b0c4: cmp  #$25                 ; c9 25
b0c6: bne  $b0db                ; d0 13
b0c8: lda  SUBFLG               ; a5 10
b0ca: bne  $b09c                ; d0 d0
b0cc: lda  #$80                 ; a9 80
b0ce: sta  INTFLG               ; 85 0e
b0d0: ora  VARNAM               ; 05 45
b0d2: sta  VARNAM               ; 85 45
b0d4: txa                       ; 8a
b0d5: ora  #$80                 ; 09 80
b0d7: tax                       ; aa
b0d8: jsr  CHRGET               ; 20 73 00
b0db: stx  VARNAM+1             ; 86 46
b0dd: sec                       ; 38
b0de: ora  SUBFLG               ; 05 10
b0e0: sbc  #$28                 ; e9 28
b0e2: bne  ordvar               ; d0 03
b0e4: jmp  isary                ; 4c d1 b1
ordvar: *** Locate Ordinary Variable
b0e7: ldy  #$00                 ; a0 00
b0e9: sty  SUBFLG               ; 84 10
b0eb: lda  VARTAB               ; a5 2d
b0ed: ldx  VARTAB+1             ; a6 2e
b0ef: stx  $60                  ; 86 60
b0f1: sta  $5f                  ; 85 5f
b0f3: cpx  ARYTAB+1             ; e4 30
b0f5: bne  $b0fb                ; d0 04
b0f7: cmp  ARYTAB               ; c5 2f
b0f9: beq  notfns               ; f0 22
b0fb: lda  VARNAM               ; a5 45
b0fd: cmp  ($5f),Y              ; d1 5f
b0ff: bne  $b109                ; d0 08
b101: lda  VARNAM+1             ; a5 46
b103: iny                       ; c8
b104: cmp  ($5f),Y              ; d1 5f
b106: beq  $b185                ; f0 7d
b108: dey                       ; 88
b109: clc                       ; 18
b10a: lda  $5f                  ; a5 5f
b10c: adc  #$07                 ; 69 07
b10e: bcc  $b0f1                ; 90 e1
b110: inx                       ; e8
b111: bne  $b0ef                ; d0 dc
b113: cmp  #$41                 ; c9 41
b115: bcc  $b11c                ; 90 05
b117: sbc  #$5b                 ; e9 5b
b119: sec                       ; 38
b11a: sbc  #$a5                 ; e9 a5
b11c: rts                       ; 60
notfns: *** Create New Variable
b11d: pla                       ; 68
b11e: pha                       ; 48
b11f: cmp  #$2a                 ; c9 2a
b121: bne  notevl               ; d0 05
b123: lda  #$13                 ; a9 13
b125: ldy  #$bf                 ; a0 bf
b127: rts                       ; 60
notevl: *** Create Variable
b128: lda  VARNAM               ; a5 45
b12a: ldy  VARNAM+1             ; a4 46
b12c: cmp  #$54                 ; c9 54
b12e: bne  $b13b                ; d0 0b
b130: cpy  #$c9                 ; c0 c9
b132: beq  $b123                ; f0 ef
b134: cpy  #$49                 ; c0 49
b136: bne  $b13b                ; d0 03
b138: jmp  synerr               ; 4c 08 af
b13b: cmp  #$53                 ; c9 53
b13d: bne  $b143                ; d0 04
b13f: cpy  #$54                 ; c0 54
b141: beq  $b138                ; f0 f5
b143: lda  ARYTAB               ; a5 2f
b145: ldy  ARYTAB+1             ; a4 30
b147: sta  $5f                  ; 85 5f
b149: sty  $60                  ; 84 60
b14b: lda  STREND               ; a5 31
b14d: ldy  STREND+1             ; a4 32
b14f: sta  $5a                  ; 85 5a
b151: sty  $5b                  ; 84 5b
b153: clc                       ; 18
b154: adc  #$07                 ; 69 07
b156: bcc  $b159                ; 90 01
b158: iny                       ; c8
b159: sta  $58                  ; 85 58
b15b: sty  $59                  ; 84 59
b15d: jsr  bltu                 ; 20 b8 a3
b160: lda  $58                  ; a5 58
b162: ldy  $59                  ; a4 59
b164: iny                       ; c8
b165: sta  ARYTAB               ; 85 2f
b167: sty  ARYTAB+1             ; 84 30
b169: ldy  #$00                 ; a0 00
b16b: lda  VARNAM               ; a5 45
b16d: sta  ($5f),Y              ; 91 5f
b16f: iny                       ; c8
b170: lda  VARNAM+1             ; a5 46
b172: sta  ($5f),Y              ; 91 5f
b174: lda  #$00                 ; a9 00
b176: iny                       ; c8
b177: sta  ($5f),Y              ; 91 5f
b179: iny                       ; c8
b17a: sta  ($5f),Y              ; 91 5f
b17c: iny                       ; c8
b17d: sta  ($5f),Y              ; 91 5f
b17f: iny                       ; c8
b180: sta  ($5f),Y              ; 91 5f
b182: iny                       ; c8
b183: sta  ($5f),Y              ; 91 5f
b185: lda  $5f                  ; a5 5f
b187: clc                       ; 18
b188: adc  #$02                 ; 69 02
b18a: ldy  $60                  ; a4 60
b18c: bcc  $b18f                ; 90 01
b18e: iny                       ; c8
b18f: sta  VARPNT               ; 85 47
b191: sty  VARPNT+1             ; 84 48
b193: rts                       ; 60
aryget: *** Allocate Array Pointer Space
b194: lda  COUNT                ; a5 0b
b196: asl  a                    ; 0a
b197: adc  #$05                 ; 69 05
b199: adc  $5f                  ; 65 5f
b19b: ldy  $60                  ; a4 60
b19d: bcc  $b1a0                ; 90 01
b19f: iny                       ; c8
b1a0: sta  $58                  ; 85 58
b1a2: sty  $59                  ; 84 59
b1a4: rts                       ; 60
n32768: *** Constant 32768 in Flpt DATA
b1a5: bcc  $b127                ; 90 80
b1a7: brk                       ; 00
b1a8: brk                       ; 00
b1a9: brk                       ; 00
facinx: *** FAC#1 to Integer in (AC/YR)
b1aa: jsr  ayint                ; 20 bf b1
b1ad: lda  $64                  ; a5 64
b1af: ldy  $65                  ; a4 65
b1b1: rts                       ; 60
intidx: *** Evaluate Text for Integer
b1b2: jsr  CHRGET               ; 20 73 00
b1b5: jsr  frmevl               ; 20 9e ad
b1b8: jsr  $ad8d                ; 20 8d ad
b1bb: lda  FACSGN               ; a5 66
b1bd: bmi  $b1cc                ; 30 0d
ayint: *** FAC#1 to Positive Integer
b1bf: lda  FAC                  ; a5 61
b1c1: cmp  #$90                 ; c9 90
b1c3: bcc  $b1ce                ; 90 09
b1c5: lda  #$a5                 ; a9 a5
b1c7: ldy  #$b1                 ; a0 b1
b1c9: jsr  fcomp                ; 20 5b bc
b1cc: bne  $b248                ; d0 7a
b1ce: jmp  qint                 ; 4c 9b bc
isary: *** Get Array Parameters
b1d1: lda  DIMFLG               ; a5 0c
b1d3: ora  INTFLG               ; 05 0e
b1d5: pha                       ; 48
b1d6: lda  VALTYP               ; a5 0d
b1d8: pha                       ; 48
b1d9: ldy  #$00                 ; a0 00
b1db: tya                       ; 98
b1dc: pha                       ; 48
b1dd: lda  VARNAM+1             ; a5 46
b1df: pha                       ; 48
b1e0: lda  VARNAM               ; a5 45
b1e2: pha                       ; 48
b1e3: jsr  intidx               ; 20 b2 b1
b1e6: pla                       ; 68
b1e7: sta  VARNAM               ; 85 45
b1e9: pla                       ; 68
b1ea: sta  VARNAM+1             ; 85 46
b1ec: pla                       ; 68
b1ed: tay                       ; a8
b1ee: tsx                       ; ba
b1ef: lda  $0102,X              ; bd 02 01
b1f2: pha                       ; 48
b1f3: lda  $0101,X              ; bd 01 01
b1f6: pha                       ; 48
b1f7: lda  $64                  ; a5 64
b1f9: sta  $0102,X              ; 9d 02 01
b1fc: lda  $65                  ; a5 65
b1fe: sta  $0101,X              ; 9d 01 01
b201: iny                       ; c8
b202: jsr  CHRGOT               ; 20 79 00
b205: cmp  #$2c                 ; c9 2c
b207: beq  $b1db                ; f0 d2
b209: sty  COUNT                ; 84 0b
b20b: jsr  chkcls               ; 20 f7 ae
b20e: pla                       ; 68
b20f: sta  VALTYP               ; 85 0d
b211: pla                       ; 68
b212: sta  INTFLG               ; 85 0e
b214: and  #$7f                 ; 29 7f
b216: sta  DIMFLG               ; 85 0c
fndary: *** Find Array
b218: ldx  ARYTAB               ; a6 2f
b21a: lda  ARYTAB+1             ; a5 30
b21c: stx  $5f                  ; 86 5f
b21e: sta  $60                  ; 85 60
b220: cmp  STREND+1             ; c5 32
b222: bne  $b228                ; d0 04
b224: cpx  STREND               ; e4 31
b226: beq  notfdd               ; f0 39
b228: ldy  #$00                 ; a0 00
b22a: lda  ($5f),Y              ; b1 5f
b22c: iny                       ; c8
b22d: cmp  VARNAM               ; c5 45
b22f: bne  $b237                ; d0 06
b231: lda  VARNAM+1             ; a5 46
b233: cmp  ($5f),Y              ; d1 5f
b235: beq  $b24d                ; f0 16
b237: iny                       ; c8
b238: lda  ($5f),Y              ; b1 5f
b23a: clc                       ; 18
b23b: adc  $5f                  ; 65 5f
b23d: tax                       ; aa
b23e: iny                       ; c8
b23f: lda  ($5f),Y              ; b1 5f
b241: adc  $60                  ; 65 60
b243: bcc  $b21c                ; 90 d7
bserr: *** ?BAD SUBSCRIPT/?ILLEGAL QUANTITY
b245: ldx  #$12                 ; a2 12
b247: bit  $0ea2                ; 2c a2 0e
b24a: jmp  error                ; 4c 37 a4
b24d: ldx  #$13                 ; a2 13
b24f: lda  DIMFLG               ; a5 0c
b251: bne  $b24a                ; d0 f7
b253: jsr  aryget               ; 20 94 b1
b256: lda  COUNT                ; a5 0b
b258: ldy  #$04                 ; a0 04
b25a: cmp  ($5f),Y              ; d1 5f
b25c: bne  bserr                ; d0 e7
b25e: jmp  $b2ea                ; 4c ea b2
notfdd: *** Create Array
b261: jsr  aryget               ; 20 94 b1
b264: jsr  reason               ; 20 08 a4
b267: ldy  #$00                 ; a0 00
b269: sty  FBUFPT+1             ; 84 72
b26b: ldx  #$05                 ; a2 05
b26d: lda  VARNAM               ; a5 45
b26f: sta  ($5f),Y              ; 91 5f
b271: bpl  $b274                ; 10 01
b273: dex                       ; ca
b274: iny                       ; c8
b275: lda  VARNAM+1             ; a5 46
b277: sta  ($5f),Y              ; 91 5f
b279: bpl  $b27d                ; 10 02
b27b: dex                       ; ca
b27c: dex                       ; ca
b27d: stx  FBUFPT               ; 86 71
b27f: lda  COUNT                ; a5 0b
b281: iny                       ; c8
b282: iny                       ; c8
b283: iny                       ; c8
b284: sta  ($5f),Y              ; 91 5f
b286: ldx  #$0b                 ; a2 0b
b288: lda  #$00                 ; a9 00
b28a: bit  DIMFLG               ; 24 0c
b28c: bvc  $b296                ; 50 08
b28e: pla                       ; 68
b28f: clc                       ; 18
b290: adc  #$01                 ; 69 01
b292: tax                       ; aa
b293: pla                       ; 68
b294: adc  #$00                 ; 69 00
b296: iny                       ; c8
b297: sta  ($5f),Y              ; 91 5f
b299: iny                       ; c8
b29a: txa                       ; 8a
b29b: sta  ($5f),Y              ; 91 5f
b29d: jsr  umult                ; 20 4c b3
b2a0: stx  FBUFPT               ; 86 71
b2a2: sta  FBUFPT+1             ; 85 72
b2a4: ldy  INDEX                ; a4 22
b2a6: dec  COUNT                ; c6 0b
b2a8: bne  $b286                ; d0 dc
b2aa: adc  $59                  ; 65 59
b2ac: bcs  $b30b                ; b0 5d
b2ae: sta  $59                  ; 85 59
b2b0: tay                       ; a8
b2b1: txa                       ; 8a
b2b2: adc  $58                  ; 65 58
b2b4: bcc  $b2b9                ; 90 03
b2b6: iny                       ; c8
b2b7: beq  $b30b                ; f0 52
b2b9: jsr  reason               ; 20 08 a4
b2bc: sta  STREND               ; 85 31
b2be: sty  STREND+1             ; 84 32
b2c0: lda  #$00                 ; a9 00
b2c2: inc  FBUFPT+1             ; e6 72
b2c4: ldy  FBUFPT               ; a4 71
b2c6: beq  $b2cd                ; f0 05
b2c8: dey                       ; 88
b2c9: sta  ($58),Y              ; 91 58
b2cb: bne  $b2c8                ; d0 fb
b2cd: dec  $59                  ; c6 59
b2cf: dec  FBUFPT+1             ; c6 72
b2d1: bne  $b2c8                ; d0 f5
b2d3: inc  $59                  ; e6 59
b2d5: sec                       ; 38
b2d6: lda  STREND               ; a5 31
b2d8: sbc  $5f                  ; e5 5f
b2da: ldy  #$02                 ; a0 02
b2dc: sta  ($5f),Y              ; 91 5f
b2de: lda  STREND+1             ; a5 32
b2e0: iny                       ; c8
b2e1: sbc  $60                  ; e5 60
b2e3: sta  ($5f),Y              ; 91 5f
b2e5: lda  DIMFLG               ; a5 0c
b2e7: bne  $b34b                ; d0 62
b2e9: iny                       ; c8
b2ea: lda  ($5f),Y              ; b1 5f
b2ec: sta  COUNT                ; 85 0b
b2ee: lda  #$00                 ; a9 00
b2f0: sta  FBUFPT               ; 85 71
b2f2: sta  FBUFPT+1             ; 85 72
b2f4: iny                       ; c8
b2f5: pla                       ; 68
b2f6: tax                       ; aa
b2f7: sta  $64                  ; 85 64
b2f9: pla                       ; 68
b2fa: sta  $65                  ; 85 65
b2fc: cmp  ($5f),Y              ; d1 5f
b2fe: bcc  inlpn2               ; 90 0e
b300: bne  $b308                ; d0 06
b302: iny                       ; c8
b303: txa                       ; 8a
b304: cmp  ($5f),Y              ; d1 5f
b306: bcc  $b30f                ; 90 07
b308: jmp  bserr                ; 4c 45 b2
b30b: jmp  omerr                ; 4c 35 a4
inlpn2: *** Locate Element in Array
b30e: iny                       ; c8
b30f: lda  FBUFPT+1             ; a5 72
b311: ora  FBUFPT               ; 05 71
b313: clc                       ; 18
b314: beq  $b320                ; f0 0a
b316: jsr  umult                ; 20 4c b3
b319: txa                       ; 8a
b31a: adc  $64                  ; 65 64
b31c: tax                       ; aa
b31d: tya                       ; 98
b31e: ldy  INDEX                ; a4 22
b320: adc  $65                  ; 65 65
b322: stx  FBUFPT               ; 86 71
b324: dec  COUNT                ; c6 0b
b326: bne  $b2f2                ; d0 ca
b328: sta  FBUFPT+1             ; 85 72
b32a: ldx  #$05                 ; a2 05
b32c: lda  VARNAM               ; a5 45
b32e: bpl  $b331                ; 10 01
b330: dex                       ; ca
b331: lda  VARNAM+1             ; a5 46
b333: bpl  $b337                ; 10 02
b335: dex                       ; ca
b336: dex                       ; ca
b337: stx  $28                  ; 86 28
b339: lda  #$00                 ; a9 00
b33b: jsr  $b355                ; 20 55 b3
b33e: txa                       ; 8a
b33f: adc  $58                  ; 65 58
b341: sta  VARPNT               ; 85 47
b343: tya                       ; 98
b344: adc  $59                  ; 65 59
b346: sta  VARPNT+1             ; 85 48
b348: tay                       ; a8
b349: lda  VARPNT               ; a5 47
b34b: rts                       ; 60
umult: *** Number of Bytes in Subscript
b34c: sty  INDEX                ; 84 22
b34e: lda  ($5f),Y              ; b1 5f
b350: sta  $28                  ; 85 28
b352: dey                       ; 88
b353: lda  ($5f),Y              ; b1 5f
b355: sta  $29                  ; 85 29
b357: lda  #$10                 ; a9 10
b359: sta  $5d                  ; 85 5d
b35b: ldx  #$00                 ; a2 00
b35d: ldy  #$00                 ; a0 00
b35f: txa                       ; 8a
b360: asl  a                    ; 0a
b361: tax                       ; aa
b362: tya                       ; 98
b363: rol  a                    ; 2a
b364: tay                       ; a8
b365: bcs  $b30b                ; b0 a4
b367: asl  FBUFPT               ; 06 71
b369: rol  FBUFPT+1             ; 26 72
b36b: bcc  $b378                ; 90 0b
b36d: clc                       ; 18
b36e: txa                       ; 8a
b36f: adc  $28                  ; 65 28
b371: tax                       ; aa
b372: tya                       ; 98
b373: adc  $29                  ; 65 29
b375: tay                       ; a8
b376: bcs  $b30b                ; b0 93
b378: dec  $5d                  ; c6 5d
b37a: bne  $b35f                ; d0 e3
b37c: rts                       ; 60
fre: *** Perform [fre]
b37d: lda  VALTYP               ; a5 0d
b37f: beq  $b384                ; f0 03
b381: jsr  $b6a6                ; 20 a6 b6
b384: jsr  garbag               ; 20 26 b5
b387: sec                       ; 38
b388: lda  FRETOP               ; a5 33
b38a: sbc  STREND               ; e5 31
b38c: tay                       ; a8
b38d: lda  FRETOP+1             ; a5 34
b38f: sbc  STREND+1             ; e5 32
givayf: *** Convert Integer in (AC/YR) to Flpt
b391: ldx  #$00                 ; a2 00
b393: stx  VALTYP               ; 86 0d
b395: sta  FACHO                ; 85 62
b397: sty  $63                  ; 84 63
b399: ldx  #$90                 ; a2 90
b39b: jmp  $bc44                ; 4c 44 bc
pos: *** Perform [pos]
b39e: sec                       ; 38
b39f: jsr  VECT_plot            ; 20 f0 ff
b3a2: lda  #$00                 ; a9 00
b3a4: beq  givayf               ; f0 eb
errdir: *** Confirm Program Mode
b3a6: ldx  CURLIN+1             ; a6 3a
b3a8: inx                       ; e8
b3a9: bne  $b34b                ; d0 a0
b3ab: ldx  #$15                 ; a2 15
b3ad: bit  $1ba2                ; 2c a2 1b
b3b0: jmp  error                ; 4c 37 a4
b3b3: jsr  getfnm               ; 20 e1 b3
b3b6: jsr  errdir               ; 20 a6 b3
b3b9: jsr  $aefa                ; 20 fa ae
b3bc: lda  #$80                 ; a9 80
b3be: sta  SUBFLG               ; 85 10
b3c0: jsr  ptrget               ; 20 8b b0
b3c3: jsr  $ad8d                ; 20 8d ad
b3c6: jsr  chkcls               ; 20 f7 ae
b3c9: lda  #$b2                 ; a9 b2
b3cb: jsr  $aeff                ; 20 ff ae
b3ce: pha                       ; 48
b3cf: lda  VARPNT+1             ; a5 48
b3d1: pha                       ; 48
b3d2: lda  VARPNT               ; a5 47
b3d4: pha                       ; 48
b3d5: lda  TXTPTR+1             ; a5 7b
b3d7: pha                       ; 48
b3d8: lda  TXTPTR               ; a5 7a
b3da: pha                       ; 48
b3db: jsr  data                 ; 20 f8 a8
b3de: jmp  $b44f                ; 4c 4f b4
getfnm: *** Check Syntax of FN
b3e1: lda  #$a5                 ; a9 a5
b3e3: jsr  $aeff                ; 20 ff ae
b3e6: ora  #$80                 ; 09 80
b3e8: sta  SUBFLG               ; 85 10
b3ea: jsr  $b092                ; 20 92 b0
b3ed: sta  TEMPF3               ; 85 4e
b3ef: sty  $4f                  ; 84 4f
b3f1: jmp  $ad8d                ; 4c 8d ad
fndoer: *** Perform [fn]
b3f4: jsr  getfnm               ; 20 e1 b3
b3f7: lda  $4f                  ; a5 4f
b3f9: pha                       ; 48
b3fa: lda  TEMPF3               ; a5 4e
b3fc: pha                       ; 48
b3fd: jsr  parchk               ; 20 f1 ae
b400: jsr  $ad8d                ; 20 8d ad
b403: pla                       ; 68
b404: sta  TEMPF3               ; 85 4e
b406: pla                       ; 68
b407: sta  $4f                  ; 85 4f
b409: ldy  #$02                 ; a0 02
b40b: lda  (TEMPF3),Y           ; b1 4e
b40d: sta  VARPNT               ; 85 47
b40f: tax                       ; aa
b410: iny                       ; c8
b411: lda  (TEMPF3),Y           ; b1 4e
b413: beq  $b3ae                ; f0 99
b415: sta  VARPNT+1             ; 85 48
b417: iny                       ; c8
b418: lda  (VARPNT),Y           ; b1 47
b41a: pha                       ; 48
b41b: dey                       ; 88
b41c: bpl  $b418                ; 10 fa
b41e: ldy  VARPNT+1             ; a4 48
b420: jsr  $bbd4                ; 20 d4 bb
b423: lda  TXTPTR+1             ; a5 7b
b425: pha                       ; 48
b426: lda  TXTPTR               ; a5 7a
b428: pha                       ; 48
b429: lda  (TEMPF3),Y           ; b1 4e
b42b: sta  TXTPTR               ; 85 7a
b42d: iny                       ; c8
b42e: lda  (TEMPF3),Y           ; b1 4e
b430: sta  TXTPTR+1             ; 85 7b
b432: lda  VARPNT+1             ; a5 48
b434: pha                       ; 48
b435: lda  VARPNT               ; a5 47
b437: pha                       ; 48
b438: jsr  frmnum               ; 20 8a ad
b43b: pla                       ; 68
b43c: sta  TEMPF3               ; 85 4e
b43e: pla                       ; 68
b43f: sta  $4f                  ; 85 4f
b441: jsr  CHRGOT               ; 20 79 00
b444: beq  $b449                ; f0 03
b446: jmp  synerr               ; 4c 08 af
b449: pla                       ; 68
b44a: sta  TXTPTR               ; 85 7a
b44c: pla                       ; 68
b44d: sta  TXTPTR+1             ; 85 7b
b44f: ldy  #$00                 ; a0 00
b451: pla                       ; 68
b452: sta  (TEMPF3),Y           ; 91 4e
b454: pla                       ; 68
b455: iny                       ; c8
b456: sta  (TEMPF3),Y           ; 91 4e
b458: pla                       ; 68
b459: iny                       ; c8
b45a: sta  (TEMPF3),Y           ; 91 4e
b45c: pla                       ; 68
b45d: iny                       ; c8
b45e: sta  (TEMPF3),Y           ; 91 4e
b460: pla                       ; 68
b461: iny                       ; c8
b462: sta  (TEMPF3),Y           ; 91 4e
b464: rts                       ; 60
strd: *** Perform [str$]
b465: jsr  $ad8d                ; 20 8d ad
b468: ldy  #$00                 ; a0 00
b46a: jsr  $bddf                ; 20 df bd
b46d: pla                       ; 68
b46e: pla                       ; 68
b46f: lda  #$ff                 ; a9 ff
b471: ldy  #$00                 ; a0 00
b473: beq  strlit               ; f0 12
b475: ldx  $64                  ; a6 64
b477: ldy  $65                  ; a4 65
b479: stx  $50                  ; 86 50
b47b: sty  $51                  ; 84 51
b47d: jsr  getspa               ; 20 f4 b4
b480: stx  FACHO                ; 86 62
b482: sty  $63                  ; 84 63
b484: sta  FAC                  ; 85 61
b486: rts                       ; 60
strlit: *** Set Up String
b487: ldx  #$22                 ; a2 22
b489: stx  CHARAC               ; 86 07
b48b: stx  ENDCHR               ; 86 08
b48d: sta  ARISGN               ; 85 6f
b48f: sty  FACOV                ; 84 70
b491: sta  FACHO                ; 85 62
b493: sty  $63                  ; 84 63
b495: ldy  #$ff                 ; a0 ff
b497: iny                       ; c8
b498: lda  (ARISGN),Y           ; b1 6f
b49a: beq  $b4a8                ; f0 0c
b49c: cmp  CHARAC               ; c5 07
b49e: beq  $b4a4                ; f0 04
b4a0: cmp  ENDCHR               ; c5 08
b4a2: bne  $b497                ; d0 f3
b4a4: cmp  #$22                 ; c9 22
b4a6: beq  $b4a9                ; f0 01
b4a8: clc                       ; 18
b4a9: sty  FAC                  ; 84 61
b4ab: tya                       ; 98
b4ac: adc  ARISGN               ; 65 6f
b4ae: sta  FBUFPT               ; 85 71
b4b0: ldx  FACOV                ; a6 70
b4b2: bcc  $b4b5                ; 90 01
b4b4: inx                       ; e8
b4b5: stx  FBUFPT+1             ; 86 72
b4b7: lda  FACOV                ; a5 70
b4b9: beq  $b4bf                ; f0 04
b4bb: cmp  #$02                 ; c9 02
b4bd: bne  $b4ca                ; d0 0b
b4bf: tya                       ; 98
b4c0: jsr  $b475                ; 20 75 b4
b4c3: ldx  ARISGN               ; a6 6f
b4c5: ldy  FACOV                ; a4 70
b4c7: jsr  $b688                ; 20 88 b6
b4ca: ldx  TEMPPT               ; a6 16
b4cc: cpx  #$22                 ; e0 22
b4ce: bne  putnw1               ; d0 05
b4d0: ldx  #$19                 ; a2 19
b4d2: jmp  error                ; 4c 37 a4
putnw1: *** Save String Descriptor
b4d5: lda  FAC                  ; a5 61
b4d7: sta  D6510,X              ; 95 00
b4d9: lda  FACHO                ; a5 62
b4db: sta  R6510,X              ; 95 01
b4dd: lda  $63                  ; a5 63
b4df: sta  $02,X                ; 95 02
b4e1: ldy  #$00                 ; a0 00
b4e3: stx  $64                  ; 86 64
b4e5: sty  $65                  ; 84 65
b4e7: sty  FACOV                ; 84 70
b4e9: dey                       ; 88
b4ea: sty  VALTYP               ; 84 0d
b4ec: stx  LASTPT               ; 86 17
b4ee: inx                       ; e8
b4ef: inx                       ; e8
b4f0: inx                       ; e8
b4f1: stx  TEMPPT               ; 86 16
b4f3: rts                       ; 60
getspa: *** Allocate Space for String
b4f4: lsr  GARBFL               ; 46 0f
b4f6: pha                       ; 48
b4f7: eor  #$ff                 ; 49 ff
b4f9: sec                       ; 38
b4fa: adc  FRETOP               ; 65 33
b4fc: ldy  FRETOP+1             ; a4 34
b4fe: bcs  $b501                ; b0 01
b500: dey                       ; 88
b501: cpy  STREND+1             ; c4 32
b503: bcc  $b516                ; 90 11
b505: bne  $b50b                ; d0 04
b507: cmp  STREND               ; c5 31
b509: bcc  $b516                ; 90 0b
b50b: sta  FRETOP               ; 85 33
b50d: sty  FRETOP+1             ; 84 34
b50f: sta  FRESPC               ; 85 35
b511: sty  FRESPC+1             ; 84 36
b513: tax                       ; aa
b514: pla                       ; 68
b515: rts                       ; 60
b516: ldx  #$10                 ; a2 10
b518: lda  GARBFL               ; a5 0f
b51a: bmi  $b4d2                ; 30 b6
b51c: jsr  garbag               ; 20 26 b5
b51f: lda  #$80                 ; a9 80
b521: sta  GARBFL               ; 85 0f
b523: pla                       ; 68
b524: bne  $b4f6                ; d0 d0
garbag: *** Garbage Collection
b526: ldx  MEMSIZ               ; a6 37
b528: lda  MEMSIZ+1             ; a5 38
b52a: stx  FRETOP               ; 86 33
b52c: sta  FRETOP+1             ; 85 34
b52e: ldy  #$00                 ; a0 00
b530: sty  $4f                  ; 84 4f
b532: sty  TEMPF3               ; 84 4e
b534: lda  STREND               ; a5 31
b536: ldx  STREND+1             ; a6 32
b538: sta  $5f                  ; 85 5f
b53a: stx  $60                  ; 86 60
b53c: lda  #$19                 ; a9 19
b53e: ldx  #$00                 ; a2 00
b540: sta  INDEX                ; 85 22
b542: stx  INDEX+1              ; 86 23
b544: cmp  TEMPPT               ; c5 16
b546: beq  $b54d                ; f0 05
b548: jsr  $b5c7                ; 20 c7 b5
b54b: beq  $b544                ; f0 f7
b54d: lda  #$07                 ; a9 07
b54f: sta  FOUR6                ; 85 53
b551: lda  VARTAB               ; a5 2d
b553: ldx  VARTAB+1             ; a6 2e
b555: sta  INDEX                ; 85 22
b557: stx  INDEX+1              ; 86 23
b559: cpx  ARYTAB+1             ; e4 30
b55b: bne  $b561                ; d0 04
b55d: cmp  ARYTAB               ; c5 2f
b55f: beq  $b566                ; f0 05
b561: jsr  dvars                ; 20 bd b5
b564: beq  $b559                ; f0 f3
b566: sta  $58                  ; 85 58
b568: stx  $59                  ; 86 59
b56a: lda  #$03                 ; a9 03
b56c: sta  FOUR6                ; 85 53
b56e: lda  $58                  ; a5 58
b570: ldx  $59                  ; a6 59
b572: cpx  STREND+1             ; e4 32
b574: bne  $b57d                ; d0 07
b576: cmp  STREND               ; c5 31
b578: bne  $b57d                ; d0 03
b57a: jmp  grbpas               ; 4c 06 b6
b57d: sta  INDEX                ; 85 22
b57f: stx  INDEX+1              ; 86 23
b581: ldy  #$00                 ; a0 00
b583: lda  (INDEX),Y            ; b1 22
b585: tax                       ; aa
b586: iny                       ; c8
b587: lda  (INDEX),Y            ; b1 22
b589: php                       ; 08
b58a: iny                       ; c8
b58b: lda  (INDEX),Y            ; b1 22
b58d: adc  $58                  ; 65 58
b58f: sta  $58                  ; 85 58
b591: iny                       ; c8
b592: lda  (INDEX),Y            ; b1 22
b594: adc  $59                  ; 65 59
b596: sta  $59                  ; 85 59
b598: plp                       ; 28
b599: bpl  $b56e                ; 10 d3
b59b: txa                       ; 8a
b59c: bmi  $b56e                ; 30 d0
b59e: iny                       ; c8
b59f: lda  (INDEX),Y            ; b1 22
b5a1: ldy  #$00                 ; a0 00
b5a3: asl  a                    ; 0a
b5a4: adc  #$05                 ; 69 05
b5a6: adc  INDEX                ; 65 22
b5a8: sta  INDEX                ; 85 22
b5aa: bcc  $b5ae                ; 90 02
b5ac: inc  INDEX+1              ; e6 23
b5ae: ldx  INDEX+1              ; a6 23
b5b0: cpx  $59                  ; e4 59
b5b2: bne  $b5b8                ; d0 04
b5b4: cmp  $58                  ; c5 58
b5b6: beq  $b572                ; f0 ba
b5b8: jsr  $b5c7                ; 20 c7 b5
b5bb: beq  $b5b0                ; f0 f3
dvars: *** Search for Next String
b5bd: lda  (INDEX),Y            ; b1 22
b5bf: bmi  $b5f6                ; 30 35
b5c1: iny                       ; c8
b5c2: lda  (INDEX),Y            ; b1 22
b5c4: bpl  $b5f6                ; 10 30
b5c6: iny                       ; c8
b5c7: lda  (INDEX),Y            ; b1 22
b5c9: beq  $b5f6                ; f0 2b
b5cb: iny                       ; c8
b5cc: lda  (INDEX),Y            ; b1 22
b5ce: tax                       ; aa
b5cf: iny                       ; c8
b5d0: lda  (INDEX),Y            ; b1 22
b5d2: cmp  FRETOP+1             ; c5 34
b5d4: bcc  $b5dc                ; 90 06
b5d6: bne  $b5f6                ; d0 1e
b5d8: cpx  FRETOP               ; e4 33
b5da: bcs  $b5f6                ; b0 1a
b5dc: cmp  $60                  ; c5 60
b5de: bcc  $b5f6                ; 90 16
b5e0: bne  $b5e6                ; d0 04
b5e2: cpx  $5f                  ; e4 5f
b5e4: bcc  $b5f6                ; 90 10
b5e6: stx  $5f                  ; 86 5f
b5e8: sta  $60                  ; 85 60
b5ea: lda  INDEX                ; a5 22
b5ec: ldx  INDEX+1              ; a6 23
b5ee: sta  TEMPF3               ; 85 4e
b5f0: stx  $4f                  ; 86 4f
b5f2: lda  FOUR6                ; a5 53
b5f4: sta  $55                  ; 85 55
b5f6: lda  FOUR6                ; a5 53
b5f8: clc                       ; 18
b5f9: adc  INDEX                ; 65 22
b5fb: sta  INDEX                ; 85 22
b5fd: bcc  $b601                ; 90 02
b5ff: inc  INDEX+1              ; e6 23
b601: ldx  INDEX+1              ; a6 23
b603: ldy  #$00                 ; a0 00
b605: rts                       ; 60
grbpas: *** Collect a String
b606: lda  $4f                  ; a5 4f
b608: ora  TEMPF3               ; 05 4e
b60a: beq  $b601                ; f0 f5
b60c: lda  $55                  ; a5 55
b60e: and  #$04                 ; 29 04
b610: lsr  a                    ; 4a
b611: tay                       ; a8
b612: sta  $55                  ; 85 55
b614: lda  (TEMPF3),Y           ; b1 4e
b616: adc  $5f                  ; 65 5f
b618: sta  $5a                  ; 85 5a
b61a: lda  $60                  ; a5 60
b61c: adc  #$00                 ; 69 00
b61e: sta  $5b                  ; 85 5b
b620: lda  FRETOP               ; a5 33
b622: ldx  FRETOP+1             ; a6 34
b624: sta  $58                  ; 85 58
b626: stx  $59                  ; 86 59
b628: jsr  $a3bf                ; 20 bf a3
b62b: ldy  $55                  ; a4 55
b62d: iny                       ; c8
b62e: lda  $58                  ; a5 58
b630: sta  (TEMPF3),Y           ; 91 4e
b632: tax                       ; aa
b633: inc  $59                  ; e6 59
b635: lda  $59                  ; a5 59
b637: iny                       ; c8
b638: sta  (TEMPF3),Y           ; 91 4e
b63a: jmp  $b52a                ; 4c 2a b5
cat: *** Concatenate Two Strings
b63d: lda  $65                  ; a5 65
b63f: pha                       ; 48
b640: lda  $64                  ; a5 64
b642: pha                       ; 48
b643: jsr  eval                 ; 20 83 ae
b646: jsr  $ad8f                ; 20 8f ad
b649: pla                       ; 68
b64a: sta  ARISGN               ; 85 6f
b64c: pla                       ; 68
b64d: sta  FACOV                ; 85 70
b64f: ldy  #$00                 ; a0 00
b651: lda  (ARISGN),Y           ; b1 6f
b653: clc                       ; 18
b654: adc  ($64),Y              ; 71 64
b656: bcc  $b65d                ; 90 05
b658: ldx  #$17                 ; a2 17
b65a: jmp  error                ; 4c 37 a4
b65d: jsr  $b475                ; 20 75 b4
b660: jsr  movins               ; 20 7a b6
b663: lda  $50                  ; a5 50
b665: ldy  $51                  ; a4 51
b667: jsr  $b6aa                ; 20 aa b6
b66a: jsr  $b68c                ; 20 8c b6
b66d: lda  ARISGN               ; a5 6f
b66f: ldy  FACOV                ; a4 70
b671: jsr  $b6aa                ; 20 aa b6
b674: jsr  $b4ca                ; 20 ca b4
b677: jmp  $adb8                ; 4c b8 ad
movins: *** Store String in High RAM
b67a: ldy  #$00                 ; a0 00
b67c: lda  (ARISGN),Y           ; b1 6f
b67e: pha                       ; 48
b67f: iny                       ; c8
b680: lda  (ARISGN),Y           ; b1 6f
b682: tax                       ; aa
b683: iny                       ; c8
b684: lda  (ARISGN),Y           ; b1 6f
b686: tay                       ; a8
b687: pla                       ; 68
b688: stx  INDEX                ; 86 22
b68a: sty  INDEX+1              ; 84 23
b68c: tay                       ; a8
b68d: beq  $b699                ; f0 0a
b68f: pha                       ; 48
b690: dey                       ; 88
b691: lda  (INDEX),Y            ; b1 22
b693: sta  (FRESPC),Y           ; 91 35
b695: tya                       ; 98
b696: bne  $b690                ; d0 f8
b698: pla                       ; 68
b699: clc                       ; 18
b69a: adc  FRESPC               ; 65 35
b69c: sta  FRESPC               ; 85 35
b69e: bcc  $b6a2                ; 90 02
b6a0: inc  FRESPC+1             ; e6 36
b6a2: rts                       ; 60
frestr: *** Perform String Housekeeping
b6a3: jsr  $ad8f                ; 20 8f ad
b6a6: lda  $64                  ; a5 64
b6a8: ldy  $65                  ; a4 65
b6aa: sta  INDEX                ; 85 22
b6ac: sty  INDEX+1              ; 84 23
b6ae: jsr  frefac               ; 20 db b6
b6b1: php                       ; 08
b6b2: ldy  #$00                 ; a0 00
b6b4: lda  (INDEX),Y            ; b1 22
b6b6: pha                       ; 48
b6b7: iny                       ; c8
b6b8: lda  (INDEX),Y            ; b1 22
b6ba: tax                       ; aa
b6bb: iny                       ; c8
b6bc: lda  (INDEX),Y            ; b1 22
b6be: tay                       ; a8
b6bf: pla                       ; 68
b6c0: plp                       ; 28
b6c1: bne  $b6d6                ; d0 13
b6c3: cpy  FRETOP+1             ; c4 34
b6c5: bne  $b6d6                ; d0 0f
b6c7: cpx  FRETOP               ; e4 33
b6c9: bne  $b6d6                ; d0 0b
b6cb: pha                       ; 48
b6cc: clc                       ; 18
b6cd: adc  FRETOP               ; 65 33
b6cf: sta  FRETOP               ; 85 33
b6d1: bcc  $b6d5                ; 90 02
b6d3: inc  FRETOP+1             ; e6 34
b6d5: pla                       ; 68
b6d6: stx  INDEX                ; 86 22
b6d8: sty  INDEX+1              ; 84 23
b6da: rts                       ; 60
frefac: *** Clean Descriptor Stack
b6db: cpy  LASTPT+1             ; c4 18
b6dd: bne  $b6eb                ; d0 0c
b6df: cmp  LASTPT               ; c5 17
b6e1: bne  $b6eb                ; d0 08
b6e3: sta  TEMPPT               ; 85 16
b6e5: sbc  #$03                 ; e9 03
b6e7: sta  LASTPT               ; 85 17
b6e9: ldy  #$00                 ; a0 00
b6eb: rts                       ; 60
chrd: *** Perform [chr$]
b6ec: jsr  $b7a1                ; 20 a1 b7
b6ef: txa                       ; 8a
b6f0: pha                       ; 48
b6f1: lda  #$01                 ; a9 01
b6f3: jsr  $b47d                ; 20 7d b4
b6f6: pla                       ; 68
b6f7: ldy  #$00                 ; a0 00
b6f9: sta  (FACHO),Y            ; 91 62
b6fb: pla                       ; 68
b6fc: pla                       ; 68
b6fd: jmp  $b4ca                ; 4c ca b4
leftd: *** Perform [left$]
b700: jsr  pream                ; 20 61 b7
b703: cmp  ($50),Y              ; d1 50
b705: tya                       ; 98
b706: bcc  $b70c                ; 90 04
b708: lda  ($50),Y              ; b1 50
b70a: tax                       ; aa
b70b: tya                       ; 98
b70c: pha                       ; 48
b70d: txa                       ; 8a
b70e: pha                       ; 48
b70f: jsr  $b47d                ; 20 7d b4
b712: lda  $50                  ; a5 50
b714: ldy  $51                  ; a4 51
b716: jsr  $b6aa                ; 20 aa b6
b719: pla                       ; 68
b71a: tay                       ; a8
b71b: pla                       ; 68
b71c: clc                       ; 18
b71d: adc  INDEX                ; 65 22
b71f: sta  INDEX                ; 85 22
b721: bcc  $b725                ; 90 02
b723: inc  INDEX+1              ; e6 23
b725: tya                       ; 98
b726: jsr  $b68c                ; 20 8c b6
b729: jmp  $b4ca                ; 4c ca b4
rightd: *** Perform [right$]
b72c: jsr  pream                ; 20 61 b7
b72f: clc                       ; 18
b730: sbc  ($50),Y              ; f1 50
b732: eor  #$ff                 ; 49 ff
b734: jmp  $b706                ; 4c 06 b7
midd: *** Perform [mid$]
b737: lda  #$ff                 ; a9 ff
b739: sta  $65                  ; 85 65
b73b: jsr  CHRGOT               ; 20 79 00
b73e: cmp  #$29                 ; c9 29
b740: beq  $b748                ; f0 06
b742: jsr  $aefd                ; 20 fd ae
b745: jsr  $b79e                ; 20 9e b7
b748: jsr  pream                ; 20 61 b7
b74b: beq  $b798                ; f0 4b
b74d: dex                       ; ca
b74e: txa                       ; 8a
b74f: pha                       ; 48
b750: clc                       ; 18
b751: ldx  #$00                 ; a2 00
b753: sbc  ($50),Y              ; f1 50
b755: bcs  $b70d                ; b0 b6
b757: eor  #$ff                 ; 49 ff
b759: cmp  $65                  ; c5 65
b75b: bcc  $b70e                ; 90 b1
b75d: lda  $65                  ; a5 65
b75f: bcs  $b70e                ; b0 ad
pream: *** Pull sTring Parameters
b761: jsr  chkcls               ; 20 f7 ae
b764: pla                       ; 68
b765: tay                       ; a8
b766: pla                       ; 68
b767: sta  $55                  ; 85 55
b769: pla                       ; 68
b76a: pla                       ; 68
b76b: pla                       ; 68
b76c: tax                       ; aa
b76d: pla                       ; 68
b76e: sta  $50                  ; 85 50
b770: pla                       ; 68
b771: sta  $51                  ; 85 51
b773: lda  $55                  ; a5 55
b775: pha                       ; 48
b776: tya                       ; 98
b777: pha                       ; 48
b778: ldy  #$00                 ; a0 00
b77a: txa                       ; 8a
b77b: rts                       ; 60
len: *** Perform [len]
b77c: jsr  len1                 ; 20 82 b7
b77f: jmp  $b3a2                ; 4c a2 b3
len1: *** Exit String Mode
b782: jsr  frestr               ; 20 a3 b6
b785: ldx  #$00                 ; a2 00
b787: stx  VALTYP               ; 86 0d
b789: tay                       ; a8
b78a: rts                       ; 60
asc: *** Perform [asc]
b78b: jsr  len1                 ; 20 82 b7
b78e: beq  $b798                ; f0 08
b790: ldy  #$00                 ; a0 00
b792: lda  (INDEX),Y            ; b1 22
b794: tay                       ; a8
b795: jmp  $b3a2                ; 4c a2 b3
b798: jmp  $b248                ; 4c 48 b2
gtbytc: *** Evaluate Text to 1 Byte in XR
b79b: jsr  CHRGET               ; 20 73 00
b79e: jsr  frmnum               ; 20 8a ad
b7a1: jsr  $b1b8                ; 20 b8 b1
b7a4: ldx  $64                  ; a6 64
b7a6: bne  $b798                ; d0 f0
b7a8: ldx  $65                  ; a6 65
b7aa: jmp  CHRGOT               ; 4c 79 00
val: *** Perform [val]
b7ad: jsr  len1                 ; 20 82 b7
b7b0: bne  strval               ; d0 03
b7b2: jmp  $b8f7                ; 4c f7 b8
strval: *** Convert ASCII String to Flpt
b7b5: ldx  TXTPTR               ; a6 7a
b7b7: ldy  TXTPTR+1             ; a4 7b
b7b9: stx  FBUFPT               ; 86 71
b7bb: sty  FBUFPT+1             ; 84 72
b7bd: ldx  INDEX                ; a6 22
b7bf: stx  TXTPTR               ; 86 7a
b7c1: clc                       ; 18
b7c2: adc  INDEX                ; 65 22
b7c4: sta  INDEX2               ; 85 24
b7c6: ldx  INDEX+1              ; a6 23
b7c8: stx  TXTPTR+1             ; 86 7b
b7ca: bcc  $b7cd                ; 90 01
b7cc: inx                       ; e8
b7cd: stx  INDEX2+1             ; 86 25
b7cf: ldy  #$00                 ; a0 00
b7d1: lda  (INDEX2),Y           ; b1 24
b7d3: pha                       ; 48
b7d4: tya                       ; 98
b7d5: sta  (INDEX2),Y           ; 91 24
b7d7: jsr  CHRGOT               ; 20 79 00
b7da: jsr  fin                  ; 20 f3 bc
b7dd: pla                       ; 68
b7de: ldy  #$00                 ; a0 00
b7e0: sta  (INDEX2),Y           ; 91 24
b7e2: ldx  FBUFPT               ; a6 71
b7e4: ldy  FBUFPT+1             ; a4 72
b7e6: stx  TXTPTR               ; 86 7a
b7e8: sty  TXTPTR+1             ; 84 7b
b7ea: rts                       ; 60
getnum: *** Get parameters for POKE/WAIT
b7eb: jsr  frmnum               ; 20 8a ad
b7ee: jsr  getadr               ; 20 f7 b7
b7f1: jsr  $aefd                ; 20 fd ae
b7f4: jmp  $b79e                ; 4c 9e b7
getadr: *** Convert FAC#1 to Integer in LINNUM
b7f7: lda  FACSGN               ; a5 66
b7f9: bmi  $b798                ; 30 9d
b7fb: lda  FAC                  ; a5 61
b7fd: cmp  #$91                 ; c9 91
b7ff: bcs  $b798                ; b0 97
b801: jsr  qint                 ; 20 9b bc
b804: lda  $64                  ; a5 64
b806: ldy  $65                  ; a4 65
b808: sty  LINNUM               ; 84 14
b80a: sta  LINNUM+1             ; 85 15
b80c: rts                       ; 60
peek: *** Perform [peek]
b80d: lda  LINNUM+1             ; a5 15
b80f: pha                       ; 48
b810: lda  LINNUM               ; a5 14
b812: pha                       ; 48
b813: jsr  getadr               ; 20 f7 b7
b816: ldy  #$00                 ; a0 00
b818: lda  (LINNUM),Y           ; b1 14
b81a: tay                       ; a8
b81b: pla                       ; 68
b81c: sta  LINNUM               ; 85 14
b81e: pla                       ; 68
b81f: sta  LINNUM+1             ; 85 15
b821: jmp  $b3a2                ; 4c a2 b3
poke: *** Perform [poke]
b824: jsr  getnum               ; 20 eb b7
b827: txa                       ; 8a
b828: ldy  #$00                 ; a0 00
b82a: sta  (LINNUM),Y           ; 91 14
b82c: rts                       ; 60
wait: *** Perform [wait]
b82d: jsr  getnum               ; 20 eb b7
b830: stx  FORPNT               ; 86 49
b832: ldx  #$00                 ; a2 00
b834: jsr  CHRGOT               ; 20 79 00
b837: beq  $b83c                ; f0 03
b839: jsr  $b7f1                ; 20 f1 b7
b83c: stx  FORPNT+1             ; 86 4a
b83e: ldy  #$00                 ; a0 00
b840: lda  (LINNUM),Y           ; b1 14
b842: eor  FORPNT+1             ; 45 4a
b844: and  FORPNT               ; 25 49
b846: beq  $b840                ; f0 f8
b848: rts                       ; 60
faddh: *** Add 0.5 to FAC#1
b849: lda  #$11                 ; a9 11
b84b: ldy  #$bf                 ; a0 bf
b84d: jmp  fadd                 ; 4c 67 b8
fsub: *** Perform Subtraction
b850: jsr  conupk               ; 20 8c ba
b853: lda  FACSGN               ; a5 66
b855: eor  #$ff                 ; 49 ff
b857: sta  FACSGN               ; 85 66
b859: eor  ARGSGN               ; 45 6e
b85b: sta  ARISGN               ; 85 6f
b85d: lda  FAC                  ; a5 61
b85f: jmp  $b86a                ; 4c 6a b8
fadd5: *** Normalise Addition
b862: jsr  $b999                ; 20 99 b9
b865: bcc  $b8a3                ; 90 3c
fadd: *** Perform Addition
b867: jsr  conupk               ; 20 8c ba
b86a: bne  $b86f                ; d0 03
b86c: jmp  movfa                ; 4c fc bb
b86f: ldx  FACOV                ; a6 70
b871: stx  $56                  ; 86 56
b873: ldx  #$69                 ; a2 69
b875: lda  AFAC                 ; a5 69
b877: tay                       ; a8
b878: beq  $b848                ; f0 ce
b87a: sec                       ; 38
b87b: sbc  FAC                  ; e5 61
b87d: beq  $b8a3                ; f0 24
b87f: bcc  $b893                ; 90 12
b881: sty  FAC                  ; 84 61
b883: ldy  ARGSGN               ; a4 6e
b885: sty  FACSGN               ; 84 66
b887: eor  #$ff                 ; 49 ff
b889: adc  #$00                 ; 69 00
b88b: ldy  #$00                 ; a0 00
b88d: sty  $56                  ; 84 56
b88f: ldx  #$61                 ; a2 61
b891: bne  $b897                ; d0 04
b893: ldy  #$00                 ; a0 00
b895: sty  FACOV                ; 84 70
b897: cmp  #$f9                 ; c9 f9
b899: bmi  fadd5                ; 30 c7
b89b: tay                       ; a8
b89c: lda  FACOV                ; a5 70
b89e: lsr  R6510,X              ; 56 01
b8a0: jsr  $b9b0                ; 20 b0 b9
b8a3: bit  ARISGN               ; 24 6f
b8a5: bpl  $b8fe                ; 10 57
b8a7: ldy  #$61                 ; a0 61
b8a9: cpx  #$69                 ; e0 69
b8ab: beq  $b8af                ; f0 02
b8ad: ldy  #$69                 ; a0 69
b8af: sec                       ; 38
b8b0: eor  #$ff                 ; 49 ff
b8b2: adc  $56                  ; 65 56
b8b4: sta  FACOV                ; 85 70
b8b6: lda  ADRAY1+1,Y           ; b9 04 00
b8b9: sbc  ADRAY1+1,X           ; f5 04
b8bb: sta  $65                  ; 85 65
b8bd: lda  ADRAY1,Y             ; b9 03 00
b8c0: sbc  ADRAY1,X             ; f5 03
b8c2: sta  $64                  ; 85 64
b8c4: lda  $0002,Y              ; b9 02 00
b8c7: sbc  $02,X                ; f5 02
b8c9: sta  $63                  ; 85 63
b8cb: lda  R6510,Y              ; b9 01 00
b8ce: sbc  R6510,X              ; f5 01
b8d0: sta  FACHO                ; 85 62
b8d2: bcs  $b8d7                ; b0 03
b8d4: jsr  negfac               ; 20 47 b9
b8d7: ldy  #$00                 ; a0 00
b8d9: tya                       ; 98
b8da: clc                       ; 18
b8db: ldx  FACHO                ; a6 62
b8dd: bne  $b929                ; d0 4a
b8df: ldx  $63                  ; a6 63
b8e1: stx  FACHO                ; 86 62
b8e3: ldx  $64                  ; a6 64
b8e5: stx  $63                  ; 86 63
b8e7: ldx  $65                  ; a6 65
b8e9: stx  $64                  ; 86 64
b8eb: ldx  FACOV                ; a6 70
b8ed: stx  $65                  ; 86 65
b8ef: sty  FACOV                ; 84 70
b8f1: adc  #$08                 ; 69 08
b8f3: cmp  #$20                 ; c9 20
b8f5: bne  $b8db                ; d0 e4
b8f7: lda  #$00                 ; a9 00
b8f9: sta  FAC                  ; 85 61
b8fb: sta  FACSGN               ; 85 66
b8fd: rts                       ; 60
b8fe: adc  $56                  ; 65 56
b900: sta  FACOV                ; 85 70
b902: lda  $65                  ; a5 65
b904: adc  $6d                  ; 65 6d
b906: sta  $65                  ; 85 65
b908: lda  $64                  ; a5 64
b90a: adc  $6c                  ; 65 6c
b90c: sta  $64                  ; 85 64
b90e: lda  $63                  ; a5 63
b910: adc  $6b                  ; 65 6b
b912: sta  $63                  ; 85 63
b914: lda  FACHO                ; a5 62
b916: adc  ARGHO                ; 65 6a
b918: sta  FACHO                ; 85 62
b91a: jmp  $b936                ; 4c 36 b9
b91d: adc  #$01                 ; 69 01
b91f: asl  FACOV                ; 06 70
b921: rol  $65                  ; 26 65
b923: rol  $64                  ; 26 64
b925: rol  $63                  ; 26 63
b927: rol  FACHO                ; 26 62
b929: bpl  $b91d                ; 10 f2
b92b: sec                       ; 38
b92c: sbc  FAC                  ; e5 61
b92e: bcs  $b8f7                ; b0 c7
b930: eor  #$ff                 ; 49 ff
b932: adc  #$01                 ; 69 01
b934: sta  FAC                  ; 85 61
b936: bcc  $b946                ; 90 0e
b938: inc  FAC                  ; e6 61
b93a: beq  overr                ; f0 42
b93c: ror  FACHO                ; 66 62
b93e: ror  $63                  ; 66 63
b940: ror  $64                  ; 66 64
b942: ror  $65                  ; 66 65
b944: ror  FACOV                ; 66 70
b946: rts                       ; 60
negfac: *** 2's Complement FAC#1
b947: lda  FACSGN               ; a5 66
b949: eor  #$ff                 ; 49 ff
b94b: sta  FACSGN               ; 85 66
b94d: lda  FACHO                ; a5 62
b94f: eor  #$ff                 ; 49 ff
b951: sta  FACHO                ; 85 62
b953: lda  $63                  ; a5 63
b955: eor  #$ff                 ; 49 ff
b957: sta  $63                  ; 85 63
b959: lda  $64                  ; a5 64
b95b: eor  #$ff                 ; 49 ff
b95d: sta  $64                  ; 85 64
b95f: lda  $65                  ; a5 65
b961: eor  #$ff                 ; 49 ff
b963: sta  $65                  ; 85 65
b965: lda  FACOV                ; a5 70
b967: eor  #$ff                 ; 49 ff
b969: sta  FACOV                ; 85 70
b96b: inc  FACOV                ; e6 70
b96d: bne  $b97d                ; d0 0e
b96f: inc  $65                  ; e6 65
b971: bne  $b97d                ; d0 0a
b973: inc  $64                  ; e6 64
b975: bne  $b97d                ; d0 06
b977: inc  $63                  ; e6 63
b979: bne  $b97d                ; d0 02
b97b: inc  FACHO                ; e6 62
b97d: rts                       ; 60
overr: *** Output ?OVERFLOW Error
b97e: ldx  #$0f                 ; a2 0f
b980: jmp  error                ; 4c 37 a4
mulshf: *** Multiply by Zero Byte
b983: ldx  #$25                 ; a2 25
b985: ldy  ADRAY1+1,X           ; b4 04
b987: sty  FACOV                ; 84 70
b989: ldy  ADRAY1,X             ; b4 03
b98b: sty  ADRAY1+1,X           ; 94 04
b98d: ldy  $02,X                ; b4 02
b98f: sty  ADRAY1,X             ; 94 03
b991: ldy  R6510,X              ; b4 01
b993: sty  $02,X                ; 94 02
b995: ldy  BITS                 ; a4 68
b997: sty  R6510,X              ; 94 01
b999: adc  #$08                 ; 69 08
b99b: bmi  $b985                ; 30 e8
b99d: beq  $b985                ; f0 e6
b99f: sbc  #$08                 ; e9 08
b9a1: tay                       ; a8
b9a2: lda  FACOV                ; a5 70
b9a4: bcs  $b9ba                ; b0 14
b9a6: asl  R6510,X              ; 16 01
b9a8: bcc  $b9ac                ; 90 02
b9aa: inc  R6510,X              ; f6 01
b9ac: ror  R6510,X              ; 76 01
b9ae: ror  R6510,X              ; 76 01
b9b0: ror  $02,X                ; 76 02
b9b2: ror  ADRAY1,X             ; 76 03
b9b4: ror  ADRAY1+1,X           ; 76 04
b9b6: ror  a                    ; 6a
b9b7: iny                       ; c8
b9b8: bne  $b9a6                ; d0 ec
b9ba: clc                       ; 18
b9bb: rts                       ; 60
fone: *** Table of Flpt Constants DATA
b9bc: sta  (D6510,X)            ; 81 00
b9be: brk                       ; 00
b9bf: brk                       ; 00
b9c0: brk                       ; 00
b9c1: ???                       ; 03
b9c2: ???                       ; 7f
b9c3: lsr  $cb56,X              ; 5e 56 cb
b9c6: adc  $1380,Y              ; 79 80 13
b9c9: ???                       ; 9b
b9ca: ???                       ; 0b
b9cb: ???                       ; 64
b9cc: ???                       ; 80
b9cd: ror  MEMSIZ+1,X           ; 76 38
b9cf: ???                       ; 93
b9d0: asl  $82,X                ; 16 82
b9d2: sec                       ; 38
b9d3: tax                       ; aa
b9d4: ???                       ; 3b
b9d5: jsr  $3580                ; 20 80 35
b9d8: ???                       ; 04
b9d9: ???                       ; f3
b9da: ???                       ; 34
b9db: sta  (FRESPC,X)           ; 81 35
b9dd: ???                       ; 04
b9de: ???                       ; f3
b9df: ???                       ; 34
b9e0: ???                       ; 80
b9e1: ???                       ; 80
b9e2: brk                       ; 00
b9e3: brk                       ; 00
b9e4: brk                       ; 00
b9e5: ???                       ; 80
b9e6: and  (FBUFPT+1),Y         ; 31 72
b9e8: ???                       ; 17
b9e9: sed                       ; f8
log: *** Perform [log]
b9ea: jsr  sign                 ; 20 2b bc
b9ed: beq  $b9f1                ; f0 02
b9ef: bpl  $b9f4                ; 10 03
b9f1: jmp  $b248                ; 4c 48 b2
b9f4: lda  FAC                  ; a5 61
b9f6: sbc  #$7f                 ; e9 7f
b9f8: pha                       ; 48
b9f9: lda  #$80                 ; a9 80
b9fb: sta  FAC                  ; 85 61
b9fd: lda  #$d6                 ; a9 d6
b9ff: ldy  #$b9                 ; a0 b9
ba01: jsr  fadd                 ; 20 67 b8
ba04: lda  #$db                 ; a9 db
ba06: ldy  #$b9                 ; a0 b9
ba08: jsr  fdivt                ; 20 0f bb
ba0b: lda  #$bc                 ; a9 bc
ba0d: ldy  #$b9                 ; a0 b9
ba0f: jsr  fsub                 ; 20 50 b8
ba12: lda  #$c1                 ; a9 c1
ba14: ldy  #$b9                 ; a0 b9
ba16: jsr  polyx                ; 20 43 e0
ba19: lda  #$e0                 ; a9 e0
ba1b: ldy  #$b9                 ; a0 b9
ba1d: jsr  fadd                 ; 20 67 b8
ba20: pla                       ; 68
ba21: jsr  $bd7e                ; 20 7e bd
ba24: lda  #$e5                 ; a9 e5
ba26: ldy  #$b9                 ; a0 b9
fmult: *** Perform Multiply
ba28: jsr  conupk               ; 20 8c ba
ba2b: bne  $ba30                ; d0 03
ba2d: jmp  $ba8b                ; 4c 8b ba
ba30: jsr  muldiv               ; 20 b7 ba
ba33: lda  #$00                 ; a9 00
ba35: sta  RESHO                ; 85 26
ba37: sta  $27                  ; 85 27
ba39: sta  $28                  ; 85 28
ba3b: sta  $29                  ; 85 29
ba3d: lda  FACOV                ; a5 70
ba3f: jsr  mulply               ; 20 59 ba
ba42: lda  $65                  ; a5 65
ba44: jsr  mulply               ; 20 59 ba
ba47: lda  $64                  ; a5 64
ba49: jsr  mulply               ; 20 59 ba
ba4c: lda  $63                  ; a5 63
ba4e: jsr  mulply               ; 20 59 ba
ba51: lda  FACHO                ; a5 62
ba53: jsr  $ba5e                ; 20 5e ba
ba56: jmp  $bb8f                ; 4c 8f bb
mulply: *** Multiply by a Byte
ba59: bne  $ba5e                ; d0 03
ba5b: jmp  mulshf               ; 4c 83 b9
ba5e: lsr  a                    ; 4a
ba5f: ora  #$80                 ; 09 80
ba61: tay                       ; a8
ba62: bcc  $ba7d                ; 90 19
ba64: clc                       ; 18
ba65: lda  $29                  ; a5 29
ba67: adc  $6d                  ; 65 6d
ba69: sta  $29                  ; 85 29
ba6b: lda  $28                  ; a5 28
ba6d: adc  $6c                  ; 65 6c
ba6f: sta  $28                  ; 85 28
ba71: lda  $27                  ; a5 27
ba73: adc  $6b                  ; 65 6b
ba75: sta  $27                  ; 85 27
ba77: lda  RESHO                ; a5 26
ba79: adc  ARGHO                ; 65 6a
ba7b: sta  RESHO                ; 85 26
ba7d: ror  RESHO                ; 66 26
ba7f: ror  $27                  ; 66 27
ba81: ror  $28                  ; 66 28
ba83: ror  $29                  ; 66 29
ba85: ror  FACOV                ; 66 70
ba87: tya                       ; 98
ba88: lsr  a                    ; 4a
ba89: bne  $ba61                ; d0 d6
ba8b: rts                       ; 60
conupk: *** Load FAC#2 From Memory
ba8c: sta  INDEX                ; 85 22
ba8e: sty  INDEX+1              ; 84 23
ba90: ldy  #$04                 ; a0 04
ba92: lda  (INDEX),Y            ; b1 22
ba94: sta  $6d                  ; 85 6d
ba96: dey                       ; 88
ba97: lda  (INDEX),Y            ; b1 22
ba99: sta  $6c                  ; 85 6c
ba9b: dey                       ; 88
ba9c: lda  (INDEX),Y            ; b1 22
ba9e: sta  $6b                  ; 85 6b
baa0: dey                       ; 88
baa1: lda  (INDEX),Y            ; b1 22
baa3: sta  ARGSGN               ; 85 6e
baa5: eor  FACSGN               ; 45 66
baa7: sta  ARISGN               ; 85 6f
baa9: lda  ARGSGN               ; a5 6e
baab: ora  #$80                 ; 09 80
baad: sta  ARGHO                ; 85 6a
baaf: dey                       ; 88
bab0: lda  (INDEX),Y            ; b1 22
bab2: sta  AFAC                 ; 85 69
bab4: lda  FAC                  ; a5 61
bab6: rts                       ; 60
muldiv: *** Test Both Accumulators
bab7: lda  AFAC                 ; a5 69
bab9: beq  $bada                ; f0 1f
babb: clc                       ; 18
babc: adc  FAC                  ; 65 61
babe: bcc  $bac4                ; 90 04
bac0: bmi  $badf                ; 30 1d
bac2: clc                       ; 18
bac3: bit  $1410                ; 2c 10 14
bac6: adc  #$80                 ; 69 80
bac8: sta  FAC                  ; 85 61
baca: bne  $bacf                ; d0 03
bacc: jmp  $b8fb                ; 4c fb b8
bacf: lda  ARISGN               ; a5 6f
bad1: sta  FACSGN               ; 85 66
bad3: rts                       ; 60
mldvex: *** Overflow / Underflow
bad4: lda  FACSGN               ; a5 66
bad6: eor  #$ff                 ; 49 ff
bad8: bmi  $badf                ; 30 05
bada: pla                       ; 68
badb: pla                       ; 68
badc: jmp  $b8f7                ; 4c f7 b8
badf: jmp  overr                ; 4c 7e b9
mul10: *** Multiply FAC#1 by 10
bae2: jsr  movaf                ; 20 0c bc
bae5: tax                       ; aa
bae6: beq  $baf8                ; f0 10
bae8: clc                       ; 18
bae9: adc  #$02                 ; 69 02
baeb: bcs  $badf                ; b0 f2
baed: ldx  #$00                 ; a2 00
baef: stx  ARISGN               ; 86 6f
baf1: jsr  $b877                ; 20 77 b8
baf4: inc  FAC                  ; e6 61
baf6: beq  $badf                ; f0 e7
baf8: rts                       ; 60
tenc: *** Constant 10 in Flpt DATA
baf9: sty  $20                  ; 84 20
bafb: brk                       ; 00
bafc: brk                       ; 00
bafd: brk                       ; 00
div10: *** Divide FAC#1 by 10
bafe: jsr  movaf                ; 20 0c bc
bb01: lda  #$f9                 ; a9 f9
bb03: ldy  #$ba                 ; a0 ba
bb05: ldx  #$00                 ; a2 00
fdiv: *** Divide FAC#2 by Flpt at (AC/YR)
bb07: stx  ARISGN               ; 86 6f
bb09: jsr  movfm                ; 20 a2 bb
bb0c: jmp  $bb12                ; 4c 12 bb
fdivt: *** Divide FAC#2 by FAC#1
bb0f: jsr  conupk               ; 20 8c ba
bb12: beq  $bb8a                ; f0 76
bb14: jsr  round                ; 20 1b bc
bb17: lda  #$00                 ; a9 00
bb19: sec                       ; 38
bb1a: sbc  FAC                  ; e5 61
bb1c: sta  FAC                  ; 85 61
bb1e: jsr  muldiv               ; 20 b7 ba
bb21: inc  FAC                  ; e6 61
bb23: beq  $badf                ; f0 ba
bb25: ldx  #$fc                 ; a2 fc
bb27: lda  #$01                 ; a9 01
bb29: ldy  ARGHO                ; a4 6a
bb2b: cpy  FACHO                ; c4 62
bb2d: bne  $bb3f                ; d0 10
bb2f: ldy  $6b                  ; a4 6b
bb31: cpy  $63                  ; c4 63
bb33: bne  $bb3f                ; d0 0a
bb35: ldy  $6c                  ; a4 6c
bb37: cpy  $64                  ; c4 64
bb39: bne  $bb3f                ; d0 04
bb3b: ldy  $6d                  ; a4 6d
bb3d: cpy  $65                  ; c4 65
bb3f: php                       ; 08
bb40: rol  a                    ; 2a
bb41: bcc  $bb4c                ; 90 09
bb43: inx                       ; e8
bb44: sta  $29,X                ; 95 29
bb46: beq  $bb7a                ; f0 32
bb48: bpl  $bb7e                ; 10 34
bb4a: lda  #$01                 ; a9 01
bb4c: plp                       ; 28
bb4d: bcs  $bb5d                ; b0 0e
bb4f: asl  $6d                  ; 06 6d
bb51: rol  $6c                  ; 26 6c
bb53: rol  $6b                  ; 26 6b
bb55: rol  ARGHO                ; 26 6a
bb57: bcs  $bb3f                ; b0 e6
bb59: bmi  $bb29                ; 30 ce
bb5b: bpl  $bb3f                ; 10 e2
bb5d: tay                       ; a8
bb5e: lda  $6d                  ; a5 6d
bb60: sbc  $65                  ; e5 65
bb62: sta  $6d                  ; 85 6d
bb64: lda  $6c                  ; a5 6c
bb66: sbc  $64                  ; e5 64
bb68: sta  $6c                  ; 85 6c
bb6a: lda  $6b                  ; a5 6b
bb6c: sbc  $63                  ; e5 63
bb6e: sta  $6b                  ; 85 6b
bb70: lda  ARGHO                ; a5 6a
bb72: sbc  FACHO                ; e5 62
bb74: sta  ARGHO                ; 85 6a
bb76: tya                       ; 98
bb77: jmp  $bb4f                ; 4c 4f bb
bb7a: lda  #$40                 ; a9 40
bb7c: bne  $bb4c                ; d0 ce
bb7e: asl  a                    ; 0a
bb7f: asl  a                    ; 0a
bb80: asl  a                    ; 0a
bb81: asl  a                    ; 0a
bb82: asl  a                    ; 0a
bb83: asl  a                    ; 0a
bb84: sta  FACOV                ; 85 70
bb86: plp                       ; 28
bb87: jmp  $bb8f                ; 4c 8f bb
bb8a: ldx  #$14                 ; a2 14
bb8c: jmp  error                ; 4c 37 a4
bb8f: lda  RESHO                ; a5 26
bb91: sta  FACHO                ; 85 62
bb93: lda  $27                  ; a5 27
bb95: sta  $63                  ; 85 63
bb97: lda  $28                  ; a5 28
bb99: sta  $64                  ; 85 64
bb9b: lda  $29                  ; a5 29
bb9d: sta  $65                  ; 85 65
bb9f: jmp  $b8d7                ; 4c d7 b8
movfm: *** Load FAC#1 From Memory
bba2: sta  INDEX                ; 85 22
bba4: sty  INDEX+1              ; 84 23
bba6: ldy  #$04                 ; a0 04
bba8: lda  (INDEX),Y            ; b1 22
bbaa: sta  $65                  ; 85 65
bbac: dey                       ; 88
bbad: lda  (INDEX),Y            ; b1 22
bbaf: sta  $64                  ; 85 64
bbb1: dey                       ; 88
bbb2: lda  (INDEX),Y            ; b1 22
bbb4: sta  $63                  ; 85 63
bbb6: dey                       ; 88
bbb7: lda  (INDEX),Y            ; b1 22
bbb9: sta  FACSGN               ; 85 66
bbbb: ora  #$80                 ; 09 80
bbbd: sta  FACHO                ; 85 62
bbbf: dey                       ; 88
bbc0: lda  (INDEX),Y            ; b1 22
bbc2: sta  FAC                  ; 85 61
bbc4: sty  FACOV                ; 84 70
bbc6: rts                       ; 60
mov2f: *** Store FAC#1 in Memory
bbc7: ldx  #$5c                 ; a2 5c
bbc9: bit  $57a2                ; 2c a2 57
bbcc: ldy  #$00                 ; a0 00
bbce: beq  $bbd4                ; f0 04
bbd0: ldx  FORPNT               ; a6 49
bbd2: ldy  FORPNT+1             ; a4 4a
bbd4: jsr  round                ; 20 1b bc
bbd7: stx  INDEX                ; 86 22
bbd9: sty  INDEX+1              ; 84 23
bbdb: ldy  #$04                 ; a0 04
bbdd: lda  $65                  ; a5 65
bbdf: sta  (INDEX),Y            ; 91 22
bbe1: dey                       ; 88
bbe2: lda  $64                  ; a5 64
bbe4: sta  (INDEX),Y            ; 91 22
bbe6: dey                       ; 88
bbe7: lda  $63                  ; a5 63
bbe9: sta  (INDEX),Y            ; 91 22
bbeb: dey                       ; 88
bbec: lda  FACSGN               ; a5 66
bbee: ora  #$7f                 ; 09 7f
bbf0: and  FACHO                ; 25 62
bbf2: sta  (INDEX),Y            ; 91 22
bbf4: dey                       ; 88
bbf5: lda  FAC                  ; a5 61
bbf7: sta  (INDEX),Y            ; 91 22
bbf9: sty  FACOV                ; 84 70
bbfb: rts                       ; 60
movfa: *** Copy FAC#2 into FAC#1
bbfc: lda  ARGSGN               ; a5 6e
bbfe: sta  FACSGN               ; 85 66
bc00: ldx  #$05                 ; a2 05
bc02: lda  BITS,X               ; b5 68
bc04: sta  $60,X                ; 95 60
bc06: dex                       ; ca
bc07: bne  $bc02                ; d0 f9
bc09: stx  FACOV                ; 86 70
bc0b: rts                       ; 60
movaf: *** Copy FAC#1 into FAC#2
bc0c: jsr  round                ; 20 1b bc
bc0f: ldx  #$06                 ; a2 06
bc11: lda  $60,X                ; b5 60
bc13: sta  BITS,X               ; 95 68
bc15: dex                       ; ca
bc16: bne  $bc11                ; d0 f9
bc18: stx  FACOV                ; 86 70
bc1a: rts                       ; 60
round: *** Round FAC#1
bc1b: lda  FAC                  ; a5 61
bc1d: beq  $bc1a                ; f0 fb
bc1f: asl  FACOV                ; 06 70
bc21: bcc  $bc1a                ; 90 f7
bc23: jsr  $b96f                ; 20 6f b9
bc26: bne  $bc1a                ; d0 f2
bc28: jmp  $b938                ; 4c 38 b9
sign: *** Check Sign of FAC#1
bc2b: lda  FAC                  ; a5 61
bc2d: beq  $bc38                ; f0 09
bc2f: lda  FACSGN               ; a5 66
bc31: rol  a                    ; 2a
bc32: lda  #$ff                 ; a9 ff
bc34: bcs  $bc38                ; b0 02
bc36: lda  #$01                 ; a9 01
bc38: rts                       ; 60
sgn: *** Perform [sgn]
bc39: jsr  sign                 ; 20 2b bc
bc3c: sta  FACHO                ; 85 62
bc3e: lda  #$00                 ; a9 00
bc40: sta  $63                  ; 85 63
bc42: ldx  #$88                 ; a2 88
bc44: lda  FACHO                ; a5 62
bc46: eor  #$ff                 ; 49 ff
bc48: rol  a                    ; 2a
bc49: lda  #$00                 ; a9 00
bc4b: sta  $65                  ; 85 65
bc4d: sta  $64                  ; 85 64
bc4f: stx  FAC                  ; 86 61
bc51: sta  FACOV                ; 85 70
bc53: sta  FACSGN               ; 85 66
bc55: jmp  $b8d2                ; 4c d2 b8
abs: *** Perform [abs]
bc58: lsr  FACSGN               ; 46 66
bc5a: rts                       ; 60
fcomp: *** Compare FAC#1 With Memory
bc5b: sta  INDEX2               ; 85 24
bc5d: sty  INDEX2+1             ; 84 25
bc5f: ldy  #$00                 ; a0 00
bc61: lda  (INDEX2),Y           ; b1 24
bc63: iny                       ; c8
bc64: tax                       ; aa
bc65: beq  sign                 ; f0 c4
bc67: lda  (INDEX2),Y           ; b1 24
bc69: eor  FACSGN               ; 45 66
bc6b: bmi  $bc2f                ; 30 c2
bc6d: cpx  FAC                  ; e4 61
bc6f: bne  $bc92                ; d0 21
bc71: lda  (INDEX2),Y           ; b1 24
bc73: ora  #$80                 ; 09 80
bc75: cmp  FACHO                ; c5 62
bc77: bne  $bc92                ; d0 19
bc79: iny                       ; c8
bc7a: lda  (INDEX2),Y           ; b1 24
bc7c: cmp  $63                  ; c5 63
bc7e: bne  $bc92                ; d0 12
bc80: iny                       ; c8
bc81: lda  (INDEX2),Y           ; b1 24
bc83: cmp  $64                  ; c5 64
bc85: bne  $bc92                ; d0 0b
bc87: iny                       ; c8
bc88: lda  #$7f                 ; a9 7f
bc8a: cmp  FACOV                ; c5 70
bc8c: lda  (INDEX2),Y           ; b1 24
bc8e: sbc  $65                  ; e5 65
bc90: beq  $bcba                ; f0 28
bc92: lda  FACSGN               ; a5 66
bc94: bcc  $bc98                ; 90 02
bc96: eor  #$ff                 ; 49 ff
bc98: jmp  $bc31                ; 4c 31 bc
qint: *** Convert FAC#1 to Integer
bc9b: lda  FAC                  ; a5 61
bc9d: beq  $bce9                ; f0 4a
bc9f: sec                       ; 38
bca0: sbc  #$a0                 ; e9 a0
bca2: bit  FACSGN               ; 24 66
bca4: bpl  $bcaf                ; 10 09
bca6: tax                       ; aa
bca7: lda  #$ff                 ; a9 ff
bca9: sta  BITS                 ; 85 68
bcab: jsr  $b94d                ; 20 4d b9
bcae: txa                       ; 8a
bcaf: ldx  #$61                 ; a2 61
bcb1: cmp  #$f9                 ; c9 f9
bcb3: bpl  $bcbb                ; 10 06
bcb5: jsr  $b999                ; 20 99 b9
bcb8: sty  BITS                 ; 84 68
bcba: rts                       ; 60
bcbb: tay                       ; a8
bcbc: lda  FACSGN               ; a5 66
bcbe: and  #$80                 ; 29 80
bcc0: lsr  FACHO                ; 46 62
bcc2: ora  FACHO                ; 05 62
bcc4: sta  FACHO                ; 85 62
bcc6: jsr  $b9b0                ; 20 b0 b9
bcc9: sty  BITS                 ; 84 68
bccb: rts                       ; 60
int: *** Perform [int]
bccc: lda  FAC                  ; a5 61
bcce: cmp  #$a0                 ; c9 a0
bcd0: bcs  $bcf2                ; b0 20
bcd2: jsr  qint                 ; 20 9b bc
bcd5: sty  FACOV                ; 84 70
bcd7: lda  FACSGN               ; a5 66
bcd9: sty  FACSGN               ; 84 66
bcdb: eor  #$80                 ; 49 80
bcdd: rol  a                    ; 2a
bcde: lda  #$a0                 ; a9 a0
bce0: sta  FAC                  ; 85 61
bce2: lda  $65                  ; a5 65
bce4: sta  CHARAC               ; 85 07
bce6: jmp  $b8d2                ; 4c d2 b8
bce9: sta  FACHO                ; 85 62
bceb: sta  $63                  ; 85 63
bced: sta  $64                  ; 85 64
bcef: sta  $65                  ; 85 65
bcf1: tay                       ; a8
bcf2: rts                       ; 60
fin: *** Convert ASCII String to a Number in FAC#1
bcf3: ldy  #$00                 ; a0 00
bcf5: ldx  #$0a                 ; a2 0a
bcf7: sty  $5d,X                ; 94 5d
bcf9: dex                       ; ca
bcfa: bpl  $bcf7                ; 10 fb
bcfc: bcc  $bd0d                ; 90 0f
bcfe: cmp  #$2d                 ; c9 2d
bd00: bne  $bd06                ; d0 04
bd02: stx  SGNFLG               ; 86 67
bd04: beq  $bd0a                ; f0 04
bd06: cmp  #$2b                 ; c9 2b
bd08: bne  $bd0f                ; d0 05
bd0a: jsr  CHRGET               ; 20 73 00
bd0d: bcc  $bd6a                ; 90 5b
bd0f: cmp  #$2e                 ; c9 2e
bd11: beq  $bd41                ; f0 2e
bd13: cmp  #$45                 ; c9 45
bd15: bne  $bd47                ; d0 30
bd17: jsr  CHRGET               ; 20 73 00
bd1a: bcc  $bd33                ; 90 17
bd1c: cmp  #$ab                 ; c9 ab
bd1e: beq  $bd2e                ; f0 0e
bd20: cmp  #$2d                 ; c9 2d
bd22: beq  $bd2e                ; f0 0a
bd24: cmp  #$aa                 ; c9 aa
bd26: beq  $bd30                ; f0 08
bd28: cmp  #$2b                 ; c9 2b
bd2a: beq  $bd30                ; f0 04
bd2c: bne  $bd35                ; d0 07
bd2e: ror  $60                  ; 66 60
bd30: jsr  CHRGET               ; 20 73 00
bd33: bcc  $bd91                ; 90 5c
bd35: bit  $60                  ; 24 60
bd37: bpl  $bd47                ; 10 0e
bd39: lda  #$00                 ; a9 00
bd3b: sec                       ; 38
bd3c: sbc  $5e                  ; e5 5e
bd3e: jmp  $bd49                ; 4c 49 bd
bd41: ror  $5f                  ; 66 5f
bd43: bit  $5f                  ; 24 5f
bd45: bvc  $bd0a                ; 50 c3
bd47: lda  $5e                  ; a5 5e
bd49: sec                       ; 38
bd4a: sbc  $5d                  ; e5 5d
bd4c: sta  $5e                  ; 85 5e
bd4e: beq  $bd62                ; f0 12
bd50: bpl  $bd5b                ; 10 09
bd52: jsr  div10                ; 20 fe ba
bd55: inc  $5e                  ; e6 5e
bd57: bne  $bd52                ; d0 f9
bd59: beq  $bd62                ; f0 07
bd5b: jsr  mul10                ; 20 e2 ba
bd5e: dec  $5e                  ; c6 5e
bd60: bne  $bd5b                ; d0 f9
bd62: lda  SGNFLG               ; a5 67
bd64: bmi  $bd67                ; 30 01
bd66: rts                       ; 60
bd67: jmp  negop                ; 4c b4 bf
bd6a: pha                       ; 48
bd6b: bit  $5f                  ; 24 5f
bd6d: bpl  $bd71                ; 10 02
bd6f: inc  $5d                  ; e6 5d
bd71: jsr  mul10                ; 20 e2 ba
bd74: pla                       ; 68
bd75: sec                       ; 38
bd76: sbc  #$30                 ; e9 30
bd78: jsr  $bd7e                ; 20 7e bd
bd7b: jmp  $bd0a                ; 4c 0a bd
bd7e: pha                       ; 48
bd7f: jsr  movaf                ; 20 0c bc
bd82: pla                       ; 68
bd83: jsr  $bc3c                ; 20 3c bc
bd86: lda  ARGSGN               ; a5 6e
bd88: eor  FACSGN               ; 45 66
bd8a: sta  ARISGN               ; 85 6f
bd8c: ldx  FAC                  ; a6 61
bd8e: jmp  $b86a                ; 4c 6a b8
bd91: lda  $5e                  ; a5 5e
bd93: cmp  #$0a                 ; c9 0a
bd95: bcc  $bda0                ; 90 09
bd97: lda  #$64                 ; a9 64
bd99: bit  $60                  ; 24 60
bd9b: bmi  $bdae                ; 30 11
bd9d: jmp  overr                ; 4c 7e b9
bda0: asl  a                    ; 0a
bda1: asl  a                    ; 0a
bda2: clc                       ; 18
bda3: adc  $5e                  ; 65 5e
bda5: asl  a                    ; 0a
bda6: clc                       ; 18
bda7: ldy  #$00                 ; a0 00
bda9: adc  (TXTPTR),Y           ; 71 7a
bdab: sec                       ; 38
bdac: sbc  #$30                 ; e9 30
bdae: sta  $5e                  ; 85 5e
bdb0: jmp  $bd30                ; 4c 30 bd
n0999: *** String Conversion Constants DATA
bdb3: ???                       ; 9b
bdb4: rol  $1fbc,X              ; 3e bc 1f
bdb7: sbc  $6e9e,X              ; fd 9e 6e
bdba: ???                       ; 6b
bdbb: ???                       ; 27
bdbc: sbc  $6e9e,X              ; fd 9e 6e
bdbf: ???                       ; 6b
bdc0: plp                       ; 28
bdc1: brk                       ; 00
inprt: *** Output 'IN' and Line Number
bdc2: lda  #$71                 ; a9 71
bdc4: ldy  #$a3                 ; a0 a3
bdc6: jsr  $bdda                ; 20 da bd
bdc9: lda  CURLIN+1             ; a5 3a
bdcb: ldx  CURLIN               ; a6 39
bdcd: sta  FACHO                ; 85 62
bdcf: stx  $63                  ; 86 63
bdd1: ldx  #$90                 ; a2 90
bdd3: sec                       ; 38
bdd4: jsr  $bc49                ; 20 49 bc
bdd7: jsr  $bddf                ; 20 df bd
bdda: jmp  strout               ; 4c 1e ab
fout: *** Convert FAC#1 to ASCII String
bddd: ldy  #$01                 ; a0 01
bddf: lda  #$20                 ; a9 20
bde1: bit  FACSGN               ; 24 66
bde3: bpl  $bde7                ; 10 02
bde5: lda  #$2d                 ; a9 2d
bde7: sta  BASZPT,Y             ; 99 ff 00
bdea: sta  FACSGN               ; 85 66
bdec: sty  FBUFPT               ; 84 71
bdee: iny                       ; c8
bdef: lda  #$30                 ; a9 30
bdf1: ldx  FAC                  ; a6 61
bdf3: bne  $bdf8                ; d0 03
bdf5: jmp  $bf04                ; 4c 04 bf
bdf8: lda  #$00                 ; a9 00
bdfa: cpx  #$80                 ; e0 80
bdfc: beq  $be00                ; f0 02
bdfe: bcs  $be09                ; b0 09
be00: lda  #$bd                 ; a9 bd
be02: ldy  #$bd                 ; a0 bd
be04: jsr  fmult                ; 20 28 ba
be07: lda  #$f7                 ; a9 f7
be09: sta  $5d                  ; 85 5d
be0b: lda  #$b8                 ; a9 b8
be0d: ldy  #$bd                 ; a0 bd
be0f: jsr  fcomp                ; 20 5b bc
be12: beq  $be32                ; f0 1e
be14: bpl  $be28                ; 10 12
be16: lda  #$b3                 ; a9 b3
be18: ldy  #$bd                 ; a0 bd
be1a: jsr  fcomp                ; 20 5b bc
be1d: beq  $be21                ; f0 02
be1f: bpl  $be2f                ; 10 0e
be21: jsr  mul10                ; 20 e2 ba
be24: dec  $5d                  ; c6 5d
be26: bne  $be16                ; d0 ee
be28: jsr  div10                ; 20 fe ba
be2b: inc  $5d                  ; e6 5d
be2d: bne  $be0b                ; d0 dc
be2f: jsr  faddh                ; 20 49 b8
be32: jsr  qint                 ; 20 9b bc
be35: ldx  #$01                 ; a2 01
be37: lda  $5d                  ; a5 5d
be39: clc                       ; 18
be3a: adc  #$0a                 ; 69 0a
be3c: bmi  $be47                ; 30 09
be3e: cmp  #$0b                 ; c9 0b
be40: bcs  $be48                ; b0 06
be42: adc  #$ff                 ; 69 ff
be44: tax                       ; aa
be45: lda  #$02                 ; a9 02
be47: sec                       ; 38
be48: sbc  #$02                 ; e9 02
be4a: sta  $5e                  ; 85 5e
be4c: stx  $5d                  ; 86 5d
be4e: txa                       ; 8a
be4f: beq  $be53                ; f0 02
be51: bpl  $be66                ; 10 13
be53: ldy  FBUFPT               ; a4 71
be55: lda  #$2e                 ; a9 2e
be57: iny                       ; c8
be58: sta  BASZPT,Y             ; 99 ff 00
be5b: txa                       ; 8a
be5c: beq  $be64                ; f0 06
be5e: lda  #$30                 ; a9 30
be60: iny                       ; c8
be61: sta  BASZPT,Y             ; 99 ff 00
be64: sty  FBUFPT               ; 84 71
be66: ldy  #$00                 ; a0 00
foutim: *** Convert TI to String
be68: ldx  #$80                 ; a2 80
be6a: lda  $65                  ; a5 65
be6c: clc                       ; 18
be6d: adc  $bf19,Y              ; 79 19 bf
be70: sta  $65                  ; 85 65
be72: lda  $64                  ; a5 64
be74: adc  $bf18,Y              ; 79 18 bf
be77: sta  $64                  ; 85 64
be79: lda  $63                  ; a5 63
be7b: adc  $bf17,Y              ; 79 17 bf
be7e: sta  $63                  ; 85 63
be80: lda  FACHO                ; a5 62
be82: adc  $bf16,Y              ; 79 16 bf
be85: sta  FACHO                ; 85 62
be87: inx                       ; e8
be88: bcs  $be8e                ; b0 04
be8a: bpl  $be6a                ; 10 de
be8c: bmi  $be90                ; 30 02
be8e: bmi  $be6a                ; 30 da
be90: txa                       ; 8a
be91: bcc  $be97                ; 90 04
be93: eor  #$ff                 ; 49 ff
be95: adc  #$0a                 ; 69 0a
be97: adc  #$2f                 ; 69 2f
be99: iny                       ; c8
be9a: iny                       ; c8
be9b: iny                       ; c8
be9c: iny                       ; c8
be9d: sty  VARPNT               ; 84 47
be9f: ldy  FBUFPT               ; a4 71
bea1: iny                       ; c8
bea2: tax                       ; aa
bea3: and  #$7f                 ; 29 7f
bea5: sta  BASZPT,Y             ; 99 ff 00
bea8: dec  $5d                  ; c6 5d
beaa: bne  $beb2                ; d0 06
beac: lda  #$2e                 ; a9 2e
beae: iny                       ; c8
beaf: sta  BASZPT,Y             ; 99 ff 00
beb2: sty  FBUFPT               ; 84 71
beb4: ldy  VARPNT               ; a4 47
beb6: txa                       ; 8a
beb7: eor  #$ff                 ; 49 ff
beb9: and  #$80                 ; 29 80
bebb: tax                       ; aa
bebc: cpy  #$24                 ; c0 24
bebe: beq  $bec4                ; f0 04
bec0: cpy  #$3c                 ; c0 3c
bec2: bne  $be6a                ; d0 a6
bec4: ldy  FBUFPT               ; a4 71
bec6: lda  BASZPT,Y             ; b9 ff 00
bec9: dey                       ; 88
beca: cmp  #$30                 ; c9 30
becc: beq  $bec6                ; f0 f8
bece: cmp  #$2e                 ; c9 2e
bed0: beq  $bed3                ; f0 01
bed2: iny                       ; c8
bed3: lda  #$2b                 ; a9 2b
bed5: ldx  $5e                  ; a6 5e
bed7: beq  $bf07                ; f0 2e
bed9: bpl  $bee3                ; 10 08
bedb: lda  #$00                 ; a9 00
bedd: sec                       ; 38
bede: sbc  $5e                  ; e5 5e
bee0: tax                       ; aa
bee1: lda  #$2d                 ; a9 2d
bee3: sta  $0101,Y              ; 99 01 01
bee6: lda  #$45                 ; a9 45
bee8: sta  BAD,Y                ; 99 00 01
beeb: txa                       ; 8a
beec: ldx  #$2f                 ; a2 2f
beee: sec                       ; 38
beef: inx                       ; e8
bef0: sbc  #$0a                 ; e9 0a
bef2: bcs  $beef                ; b0 fb
bef4: adc  #$3a                 ; 69 3a
bef6: sta  $0103,Y              ; 99 03 01
bef9: txa                       ; 8a
befa: sta  $0102,Y              ; 99 02 01
befd: lda  #$00                 ; a9 00
beff: sta  $0104,Y              ; 99 04 01
bf02: beq  $bf0c                ; f0 08
bf04: sta  BASZPT,Y             ; 99 ff 00
bf07: lda  #$00                 ; a9 00
bf09: sta  BAD,Y                ; 99 00 01
bf0c: lda  #$00                 ; a9 00
bf0e: ldy  #$01                 ; a0 01
bf10: rts                       ; 60
fhalf: *** Table of Constants DATA
bf11: ???                       ; 80
bf12: brk                       ; 00
bf13: brk                       ; 00
bf14: brk                       ; 00
bf15: brk                       ; 00
bf16: ???                       ; fa
bf17: asl  a                    ; 0a
bf18: ???                       ; 1f
bf19: brk                       ; 00
bf1a: brk                       ; 00
bf1b: tya                       ; 98
bf1c: stx  $80,Y                ; 96 80
bf1e: ???                       ; ff
bf1f: beq  $bede                ; f0 bd
bf21: cpy  #$00                 ; c0 00
bf23: ora  ($86,X)              ; 01 86
bf25: ldy  #$ff                 ; a0 ff
bf27: ???                       ; ff
bf28: cld                       ; d8
bf29: beq  $bf2b                ; f0 00
bf2b: brk                       ; 00
bf2c: ???                       ; 03
bf2d: inx                       ; e8
bf2e: ???                       ; ff
bf2f: ???                       ; ff
bf30: ???                       ; ff
bf31: ???                       ; 9c
bf32: brk                       ; 00
bf33: brk                       ; 00
bf34: brk                       ; 00
bf35: asl  a                    ; 0a
bf36: ???                       ; ff
bf37: ???                       ; ff
bf38: ???                       ; ff
bf39: ???                       ; ff
bf3a: ???                       ; ff
bf3b: ???                       ; df
bf3c: asl  a                    ; 0a
bf3d: ???                       ; 80
bf3e: brk                       ; 00
bf3f: ???                       ; 03
bf40: ???                       ; 4b
bf41: cpy  #$ff                 ; c0 ff
bf43: ???                       ; ff
bf44: ???                       ; 73
bf45: rts                       ; 60
bf46: brk                       ; 00
bf47: brk                       ; 00
bf48: asl  $ff10                ; 0e 10 ff
bf4b: ???                       ; ff
bf4c: sbc  BITC1,X              ; fd a8 00
bf4f: brk                       ; 00
bf50: brk                       ; 00
bf51: ???                       ; 3c
bf52: cpx  $aaaa                ; ec aa aa
bf55: tax                       ; aa
bf56: tax                       ; aa
bf57: tax                       ; aa
bf58: tax                       ; aa
bf59: tax                       ; aa
bf5a: tax                       ; aa
bf5b: tax                       ; aa
bf5c: tax                       ; aa
bf5d: tax                       ; aa
bf5e: tax                       ; aa
bf5f: tax                       ; aa
bf60: tax                       ; aa
bf61: tax                       ; aa
bf62: tax                       ; aa
bf63: tax                       ; aa
bf64: tax                       ; aa
bf65: tax                       ; aa
bf66: tax                       ; aa
bf67: tax                       ; aa
bf68: tax                       ; aa
bf69: tax                       ; aa
bf6a: tax                       ; aa
bf6b: tax                       ; aa
bf6c: tax                       ; aa
bf6d: tax                       ; aa
bf6e: tax                       ; aa
bf6f: tax                       ; aa
bf70: tax                       ; aa
sqr: *** Perform [sqr]
bf71: jsr  movaf                ; 20 0c bc
bf74: lda  #$11                 ; a9 11
bf76: ldy  #$bf                 ; a0 bf
bf78: jsr  movfm                ; 20 a2 bb
fpwrt: *** Perform power ($)
bf7b: beq  exp                  ; f0 70
bf7d: lda  AFAC                 ; a5 69
bf7f: bne  $bf84                ; d0 03
bf81: jmp  $b8f9                ; 4c f9 b8
bf84: ldx  #$4e                 ; a2 4e
bf86: ldy  #$00                 ; a0 00
bf88: jsr  $bbd4                ; 20 d4 bb
bf8b: lda  ARGSGN               ; a5 6e
bf8d: bpl  $bf9e                ; 10 0f
bf8f: jsr  int                  ; 20 cc bc
bf92: lda  #$4e                 ; a9 4e
bf94: ldy  #$00                 ; a0 00
bf96: jsr  fcomp                ; 20 5b bc
bf99: bne  $bf9e                ; d0 03
bf9b: tya                       ; 98
bf9c: ldy  CHARAC               ; a4 07
bf9e: jsr  $bbfe                ; 20 fe bb
bfa1: tya                       ; 98
bfa2: pha                       ; 48
bfa3: jsr  log                  ; 20 ea b9
bfa6: lda  #$4e                 ; a9 4e
bfa8: ldy  #$00                 ; a0 00
bfaa: jsr  fmult                ; 20 28 ba
bfad: jsr  exp                  ; 20 ed bf
bfb0: pla                       ; 68
bfb1: lsr  a                    ; 4a
bfb2: bcc  $bfbe                ; 90 0a
negop: *** Negate FAC#1
bfb4: lda  FAC                  ; a5 61
bfb6: beq  $bfbe                ; f0 06
bfb8: lda  FACSGN               ; a5 66
bfba: eor  #$ff                 ; 49 ff
bfbc: sta  FACSGN               ; 85 66
bfbe: rts                       ; 60
logeb2: *** Table of Constants DATA
bfbf: sta  (MEMSIZ+1,X)         ; 81 38
bfc1: tax                       ; aa
bfc2: ???                       ; 3b
bfc3: and  #$07                 ; 29 07
bfc5: adc  (FRETOP+1),Y         ; 71 34
bfc7: cli                       ; 58
bfc8: rol  $7456,X              ; 3e 56 74
bfcb: asl  $7e,X                ; 16 7e
bfcd: ???                       ; b3
bfce: ???                       ; 1b
bfcf: ???                       ; 77
bfd0: ???                       ; 2f
bfd1: inc  $85e3                ; ee e3 85
bfd4: ???                       ; 7a
bfd5: ora  $1c84,X              ; 1d 84 1c
bfd8: rol  a                    ; 2a
bfd9: ???                       ; 7c
bfda: ???                       ; 63
bfdb: eor  $0a58,Y              ; 59 58 0a
bfde: ror  $fd75,X              ; 7e 75 fd
bfe1: ???                       ; e7
bfe2: dec  $80                  ; c6 80
bfe4: and  (FBUFPT+1),Y         ; 31 72
bfe6: clc                       ; 18
bfe7: bpl  $bf6a                ; 10 81
bfe9: brk                       ; 00
bfea: brk                       ; 00
bfeb: brk                       ; 00
bfec: brk                       ; 00
exp: *** Perform [exp]
bfed: lda  #$bf                 ; a9 bf
bfef: ldy  #$bf                 ; a0 bf
bff1: jsr  fmult                ; 20 28 ba
bff4: lda  FACOV                ; a5 70
bff6: adc  #$50                 ; 69 50
bff8: bcc  $bffd                ; 90 03
bffa: jsr  $bc23                ; 20 23 bc
bffd: jmp  exp_continues        ; 4c 00 e0

(exp continues): *** EXP continued From BASIC ROM
e000: sta  $56                  ; 85 56
e002: jsr  $bc0f                ; 20 0f bc
e005: lda  FAC                  ; a5 61
e007: cmp  #$88                 ; c9 88
e009: bcc  $e00e                ; 90 03
e00b: jsr  mldvex               ; 20 d4 ba
e00e: jsr  int                  ; 20 cc bc
e011: lda  CHARAC               ; a5 07
e013: clc                       ; 18
e014: adc  #$81                 ; 69 81
e016: beq  $e00b                ; f0 f3
e018: sec                       ; 38
e019: sbc  #$01                 ; e9 01
e01b: pha                       ; 48
e01c: ldx  #$05                 ; a2 05
e01e: lda  AFAC,X               ; b5 69
e020: ldy  FAC,X                ; b4 61
e022: sta  FAC,X                ; 95 61
e024: sty  AFAC,X               ; 94 69
e026: dex                       ; ca
e027: bpl  $e01e                ; 10 f5
e029: lda  $56                  ; a5 56
e02b: sta  FACOV                ; 85 70
e02d: jsr  $b853                ; 20 53 b8
e030: jsr  negop                ; 20 b4 bf
e033: lda  #$c4                 ; a9 c4
e035: ldy  #$bf                 ; a0 bf
e037: jsr  $e059                ; 20 59 e0
e03a: lda  #$00                 ; a9 00
e03c: sta  ARISGN               ; 85 6f
e03e: pla                       ; 68
e03f: jsr  $bab9                ; 20 b9 ba
e042: rts                       ; 60
polyx: *** Series Evaluation
e043: sta  FBUFPT               ; 85 71
e045: sty  FBUFPT+1             ; 84 72
e047: jsr  $bbca                ; 20 ca bb
e04a: lda  #$57                 ; a9 57
e04c: jsr  fmult                ; 20 28 ba
e04f: jsr  $e05d                ; 20 5d e0
e052: lda  #$57                 ; a9 57
e054: ldy  #$00                 ; a0 00
e056: jmp  fmult                ; 4c 28 ba
e059: sta  FBUFPT               ; 85 71
e05b: sty  FBUFPT+1             ; 84 72
e05d: jsr  mov2f                ; 20 c7 bb
e060: lda  (FBUFPT),Y           ; b1 71
e062: sta  SGNFLG               ; 85 67
e064: ldy  FBUFPT               ; a4 71
e066: iny                       ; c8
e067: tya                       ; 98
e068: bne  $e06c                ; d0 02
e06a: inc  FBUFPT+1             ; e6 72
e06c: sta  FBUFPT               ; 85 71
e06e: ldy  FBUFPT+1             ; a4 72
e070: jsr  fmult                ; 20 28 ba
e073: lda  FBUFPT               ; a5 71
e075: ldy  FBUFPT+1             ; a4 72
e077: clc                       ; 18
e078: adc  #$05                 ; 69 05
e07a: bcc  $e07d                ; 90 01
e07c: iny                       ; c8
e07d: sta  FBUFPT               ; 85 71
e07f: sty  FBUFPT+1             ; 84 72
e081: jsr  fadd                 ; 20 67 b8
e084: lda  #$5c                 ; a9 5c
e086: ldy  #$00                 ; a0 00
e088: dec  SGNFLG               ; c6 67
e08a: bne  $e070                ; d0 e4
e08c: rts                       ; 60
rmulc: *** Constants for RND DATA
e08d: tya                       ; 98
e08e: and  INPPTR+1,X           ; 35 44
e090: ???                       ; 7a
e091: brk                       ; 00
e092: pla                       ; 68
e093: plp                       ; 28
e094: lda  (VARNAM+1),Y         ; b1 46
e096: brk                       ; 00
rnd: *** Perform [rnd]
e097: jsr  sign                 ; 20 2b bc
e09a: bmi  $e0d3                ; 30 37
e09c: bne  $e0be                ; d0 20
e09e: jsr  VECT_iobase          ; 20 f3 ff
e0a1: stx  INDEX                ; 86 22
e0a3: sty  INDEX+1              ; 84 23
e0a5: ldy  #$04                 ; a0 04
e0a7: lda  (INDEX),Y            ; b1 22
e0a9: sta  FACHO                ; 85 62
e0ab: iny                       ; c8
e0ac: lda  (INDEX),Y            ; b1 22
e0ae: sta  $64                  ; 85 64
e0b0: ldy  #$08                 ; a0 08
e0b2: lda  (INDEX),Y            ; b1 22
e0b4: sta  $63                  ; 85 63
e0b6: iny                       ; c8
e0b7: lda  (INDEX),Y            ; b1 22
e0b9: sta  $65                  ; 85 65
e0bb: jmp  $e0e3                ; 4c e3 e0
e0be: lda  #$8b                 ; a9 8b
e0c0: ldy  #$00                 ; a0 00
e0c2: jsr  movfm                ; 20 a2 bb
e0c5: lda  #$8d                 ; a9 8d
e0c7: ldy  #$e0                 ; a0 e0
e0c9: jsr  fmult                ; 20 28 ba
e0cc: lda  #$92                 ; a9 92
e0ce: ldy  #$e0                 ; a0 e0
e0d0: jsr  fadd                 ; 20 67 b8
e0d3: ldx  $65                  ; a6 65
e0d5: lda  FACHO                ; a5 62
e0d7: sta  $65                  ; 85 65
e0d9: stx  FACHO                ; 86 62
e0db: ldx  $63                  ; a6 63
e0dd: lda  $64                  ; a5 64
e0df: sta  $63                  ; 85 63
e0e1: stx  $64                  ; 86 64
e0e3: lda  #$00                 ; a9 00
e0e5: sta  FACSGN               ; 85 66
e0e7: lda  FAC                  ; a5 61
e0e9: sta  FACOV                ; 85 70
e0eb: lda  #$80                 ; a9 80
e0ed: sta  FAC                  ; 85 61
e0ef: jsr  $b8d7                ; 20 d7 b8
e0f2: ldx  #$8b                 ; a2 8b
e0f4: ldy  #$00                 ; a0 00
e0f6: jmp  $bbd4                ; 4c d4 bb
bioerr: *** Handle I/O Error in BASIC
e0f9: cmp  #$f0                 ; c9 f0
e0fb: bne  $e104                ; d0 07
e0fd: sty  MEMSIZ+1             ; 84 38
e0ff: stx  MEMSIZ               ; 86 37
e101: jmp  $a663                ; 4c 63 a6
e104: tax                       ; aa
e105: bne  $e109                ; d0 02
e107: ldx  #$1e                 ; a2 1e
e109: jmp  error                ; 4c 37 a4
bchout: *** Output Character
e10c: jsr  VECT_(ichrout)       ; 20 d2 ff
e10f: bcs  bioerr               ; b0 e8
e111: rts                       ; 60
bchin: *** Input Character
e112: jsr  VECT_(ichrin)        ; 20 cf ff
e115: bcs  bioerr               ; b0 e2
e117: rts                       ; 60
bckout: *** Set Up For Output
e118: jsr  $e4ad                ; 20 ad e4
e11b: bcs  bioerr               ; b0 dc
e11d: rts                       ; 60
bckin: *** Set Up For Input
e11e: jsr  VECT_(ichkin)        ; 20 c6 ff
e121: bcs  bioerr               ; b0 d6
e123: rts                       ; 60
bgetin: *** Get One Character
e124: jsr  VECT_(igetin)        ; 20 e4 ff
e127: bcs  bioerr               ; b0 d0
e129: rts                       ; 60
sys: *** Perform [sys]
e12a: jsr  frmnum               ; 20 8a ad
e12d: jsr  getadr               ; 20 f7 b7
e130: lda  #$e1                 ; a9 e1
e132: pha                       ; 48
e133: lda  #$46                 ; a9 46
e135: pha                       ; 48
e136: lda  SPREG                ; ad 0f 03
e139: pha                       ; 48
e13a: lda  SAREG                ; ad 0c 03
e13d: ldx  SXREG                ; ae 0d 03
e140: ldy  SYREG                ; ac 0e 03
e143: plp                       ; 28
e144: jmp  (LINNUM)             ; 6c 14 00
e147: php                       ; 08
e148: sta  SAREG                ; 8d 0c 03
e14b: stx  SXREG                ; 8e 0d 03
e14e: sty  SYREG                ; 8c 0e 03
e151: pla                       ; 68
e152: sta  SPREG                ; 8d 0f 03
e155: rts                       ; 60
savet: *** Perform [save]
e156: jsr  slpara               ; 20 d4 e1
e159: ldx  VARTAB               ; a6 2d
e15b: ldy  VARTAB+1             ; a4 2e
e15d: lda  #$2b                 ; a9 2b
e15f: jsr  VECT_save            ; 20 d8 ff
e162: bcs  bioerr               ; b0 95
e164: rts                       ; 60
verfyt: *** Perform [verify / load]
e165: lda  #$01                 ; a9 01
e167: bit  RINONE               ; 2c a9 00
e16a: sta  VERCK                ; 85 0a
e16c: jsr  slpara               ; 20 d4 e1
e16f: lda  VERCK                ; a5 0a
e171: ldx  TXTTAB               ; a6 2b
e173: ldy  TXTTAB+1             ; a4 2c
e175: jsr  VECT_load            ; 20 d5 ff
e178: bcs  $e1d1                ; b0 57
e17a: lda  VERCK                ; a5 0a
e17c: beq  $e195                ; f0 17
e17e: ldx  #$1c                 ; a2 1c
e180: jsr  VECT_readss          ; 20 b7 ff
e183: and  #$10                 ; 29 10
e185: bne  $e19e                ; d0 17
e187: lda  TXTPTR               ; a5 7a
e189: cmp  #$02                 ; c9 02
e18b: beq  $e194                ; f0 07
e18d: lda  #$64                 ; a9 64
e18f: ldy  #$a3                 ; a0 a3
e191: jmp  strout               ; 4c 1e ab
e194: rts                       ; 60
e195: jsr  VECT_readss          ; 20 b7 ff
e198: and  #$bf                 ; 29 bf
e19a: beq  $e1a1                ; f0 05
e19c: ldx  #$1d                 ; a2 1d
e19e: jmp  error                ; 4c 37 a4
e1a1: lda  TXTPTR+1             ; a5 7b
e1a3: cmp  #$02                 ; c9 02
e1a5: bne  $e1b5                ; d0 0e
e1a7: stx  VARTAB               ; 86 2d
e1a9: sty  VARTAB+1             ; 84 2e
e1ab: lda  #$76                 ; a9 76
e1ad: ldy  #$a3                 ; a0 a3
e1af: jsr  strout               ; 20 1e ab
e1b2: jmp  $a52a                ; 4c 2a a5
e1b5: jsr  stxpt                ; 20 8e a6
e1b8: jsr  linkprg              ; 20 33 a5
e1bb: jmp  $a677                ; 4c 77 a6
opent: *** Perform [open]
e1be: jsr  ocpara               ; 20 19 e2
e1c1: jsr  VECT_(iopen)         ; 20 c0 ff
e1c4: bcs  $e1d1                ; b0 0b
e1c6: rts                       ; 60
closet: *** Perform [close]
e1c7: jsr  ocpara               ; 20 19 e2
e1ca: lda  FORPNT               ; a5 49
e1cc: jsr  VECT_(iclose)        ; 20 c3 ff
e1cf: bcc  $e194                ; 90 c3
e1d1: jmp  bioerr               ; 4c f9 e0
slpara: *** Get Parameters For LOAD/SAVE
e1d4: lda  #$00                 ; a9 00
e1d6: jsr  VECT_setnam          ; 20 bd ff
e1d9: ldx  #$01                 ; a2 01
e1db: ldy  #$00                 ; a0 00
e1dd: jsr  VECT_setlfs          ; 20 ba ff
e1e0: jsr  deflt                ; 20 06 e2
e1e3: jsr  $e257                ; 20 57 e2
e1e6: jsr  deflt                ; 20 06 e2
e1e9: jsr  combyt               ; 20 00 e2
e1ec: ldy  #$00                 ; a0 00
e1ee: stx  FORPNT               ; 86 49
e1f0: jsr  VECT_setlfs          ; 20 ba ff
e1f3: jsr  deflt                ; 20 06 e2
e1f6: jsr  combyt               ; 20 00 e2
e1f9: txa                       ; 8a
e1fa: tay                       ; a8
e1fb: ldx  FORPNT               ; a6 49
e1fd: jmp  VECT_setlfs          ; 4c ba ff
combyt: *** Get Next One Byte Parameter
e200: jsr  cmmerr               ; 20 0e e2
e203: jmp  $b79e                ; 4c 9e b7
deflt: *** Check Default Parameters
e206: jsr  CHRGOT               ; 20 79 00
e209: bne  $e20d                ; d0 02
e20b: pla                       ; 68
e20c: pla                       ; 68
e20d: rts                       ; 60
cmmerr: *** Check For Comma
e20e: jsr  $aefd                ; 20 fd ae
e211: jsr  CHRGOT               ; 20 79 00
e214: bne  $e20d                ; d0 f7
e216: jmp  synerr               ; 4c 08 af
ocpara: *** Get Parameters For OPEN/CLOSE
e219: lda  #$00                 ; a9 00
e21b: jsr  VECT_setnam          ; 20 bd ff
e21e: jsr  $e211                ; 20 11 e2
e221: jsr  $b79e                ; 20 9e b7
e224: stx  FORPNT               ; 86 49
e226: txa                       ; 8a
e227: ldx  #$01                 ; a2 01
e229: ldy  #$00                 ; a0 00
e22b: jsr  VECT_setlfs          ; 20 ba ff
e22e: jsr  deflt                ; 20 06 e2
e231: jsr  combyt               ; 20 00 e2
e234: stx  FORPNT+1             ; 86 4a
e236: ldy  #$00                 ; a0 00
e238: lda  FORPNT               ; a5 49
e23a: cpx  #$03                 ; e0 03
e23c: bcc  $e23f                ; 90 01
e23e: dey                       ; 88
e23f: jsr  VECT_setlfs          ; 20 ba ff
e242: jsr  deflt                ; 20 06 e2
e245: jsr  combyt               ; 20 00 e2
e248: txa                       ; 8a
e249: tay                       ; a8
e24a: ldx  FORPNT+1             ; a6 4a
e24c: lda  FORPNT               ; a5 49
e24e: jsr  VECT_setlfs          ; 20 ba ff
e251: jsr  deflt                ; 20 06 e2
e254: jsr  cmmerr               ; 20 0e e2
e257: jsr  frmevl               ; 20 9e ad
e25a: jsr  frestr               ; 20 a3 b6
e25d: ldx  INDEX                ; a6 22
e25f: ldy  INDEX+1              ; a4 23
e261: jmp  VECT_setnam          ; 4c bd ff
cos: *** Perform [cos]
e264: lda  #$e0                 ; a9 e0
e266: ldy  #$e2                 ; a0 e2
e268: jsr  fadd                 ; 20 67 b8
sin: *** Perform [sin]
e26b: jsr  movaf                ; 20 0c bc
e26e: lda  #$e5                 ; a9 e5
e270: ldy  #$e2                 ; a0 e2
e272: ldx  ARGSGN               ; a6 6e
e274: jsr  fdiv                 ; 20 07 bb
e277: jsr  movaf                ; 20 0c bc
e27a: jsr  int                  ; 20 cc bc
e27d: lda  #$00                 ; a9 00
e27f: sta  ARISGN               ; 85 6f
e281: jsr  $b853                ; 20 53 b8
e284: lda  #$ea                 ; a9 ea
e286: ldy  #$e2                 ; a0 e2
e288: jsr  fsub                 ; 20 50 b8
e28b: lda  FACSGN               ; a5 66
e28d: pha                       ; 48
e28e: bpl  $e29d                ; 10 0d
e290: jsr  faddh                ; 20 49 b8
e293: lda  FACSGN               ; a5 66
e295: bmi  $e2a0                ; 30 09
e297: lda  TANSGN               ; a5 12
e299: eor  #$ff                 ; 49 ff
e29b: sta  TANSGN               ; 85 12
e29d: jsr  negop                ; 20 b4 bf
e2a0: lda  #$ea                 ; a9 ea
e2a2: ldy  #$e2                 ; a0 e2
e2a4: jsr  fadd                 ; 20 67 b8
e2a7: pla                       ; 68
e2a8: bpl  $e2ad                ; 10 03
e2aa: jsr  negop                ; 20 b4 bf
e2ad: lda  #$ef                 ; a9 ef
e2af: ldy  #$e2                 ; a0 e2
e2b1: jmp  polyx                ; 4c 43 e0
tan: *** Perform [tan]
e2b4: jsr  $bbca                ; 20 ca bb
e2b7: lda  #$00                 ; a9 00
e2b9: sta  TANSGN               ; 85 12
e2bb: jsr  sin                  ; 20 6b e2
e2be: ldx  #$4e                 ; a2 4e
e2c0: ldy  #$00                 ; a0 00
e2c2: jsr  $e0f6                ; 20 f6 e0
e2c5: lda  #$57                 ; a9 57
e2c7: ldy  #$00                 ; a0 00
e2c9: jsr  movfm                ; 20 a2 bb
e2cc: lda  #$00                 ; a9 00
e2ce: sta  FACSGN               ; 85 66
e2d0: lda  TANSGN               ; a5 12
e2d2: jsr  $e2dc                ; 20 dc e2
e2d5: lda  #$4e                 ; a9 4e
e2d7: ldy  #$00                 ; a0 00
e2d9: jmp  fdivt                ; 4c 0f bb
e2dc: pha                       ; 48
e2dd: jmp  $e29d                ; 4c 9d e2
pi2: *** Table of Trig Constants DATA
e2e0: sta  (FORPNT,X)           ; 81 49
e2e2: ???                       ; 0f
e2e3: ???                       ; da
e2e4: ldx  #$83                 ; a2 83
e2e6: eor  #$0f                 ; 49 0f
e2e8: ???                       ; da
e2e9: ldx  #$7f                 ; a2 7f
e2eb: brk                       ; 00
e2ec: brk                       ; 00
e2ed: brk                       ; 00
e2ee: brk                       ; 00
e2ef: ora  $84                  ; 05 84
e2f1: inc  $1a                  ; e6 1a
e2f3: and  $861b                ; 2d 1b 86
e2f6: plp                       ; 28
e2f7: ???                       ; 07
e2f8: ???                       ; fb
e2f9: sed                       ; f8
e2fa: ???                       ; 87
e2fb: sta  $8968,Y              ; 99 68 89
e2fe: ora  ($87,X)              ; 01 87
e300: ???                       ; 23
e301: and  $df,X                ; 35 df
e303: sbc  ($86,X)              ; e1 86
e305: lda  $5d                  ; a5 5d
e307: ???                       ; e7
e308: plp                       ; 28
e309: ???                       ; 83
e30a: eor  #$0f                 ; 49 0f
e30c: ???                       ; da
e30d: ldx  #$a5                 ; a2 a5
e30f: ror  VARPNT+1             ; 66 48
e311: bpl  $e316                ; 10 03
e313: jsr  negop                ; 20 b4 bf
e316: lda  FAC                  ; a5 61
e318: pha                       ; 48
e319: cmp  #$81                 ; c9 81
e31b: bcc  $e324                ; 90 07
e31d: lda  #$bc                 ; a9 bc
e31f: ldy  #$b9                 ; a0 b9
e321: jsr  fdivt                ; 20 0f bb
e324: lda  #$3e                 ; a9 3e
e326: ldy  #$e3                 ; a0 e3
e328: jsr  polyx                ; 20 43 e0
e32b: pla                       ; 68
e32c: cmp  #$81                 ; c9 81
e32e: bcc  $e337                ; 90 07
e330: lda  #$e0                 ; a9 e0
e332: ldy  #$e2                 ; a0 e2
e334: jsr  fsub                 ; 20 50 b8
e337: pla                       ; 68
e338: bpl  $e33d                ; 10 03
e33a: jmp  negop                ; 4c b4 bf
e33d: rts                       ; 60
atncon: *** Table of ATN Constants DATA
e33e: ???                       ; 0b
e33f: ror  TAPE1+1,X            ; 76 b3
e341: ???                       ; 83
e342: lda  $79d3,X              ; bd d3 79
e345: asl  $a6f4,X              ; 1e f4 a6
e348: sbc  TXTPTR+1,X           ; f5 7b
e34a: ???                       ; 83
e34b: ???                       ; fc
e34c: bcs  $e35e                ; b0 10
e34e: ???                       ; 7c
e34f: ???                       ; 0c
e350: ???                       ; 1f
e351: ???                       ; 67
e352: dex                       ; ca
e353: ???                       ; 7c
e354: dec  $cb53,X              ; de 53 cb
e357: cmp  ($7d,X)              ; c1 7d
e359: ???                       ; 14
e35a: ???                       ; 64
e35b: bvs  $e3a9                ; 70 4c
e35d: adc  $eab7,X              ; 7d b7 ea
e360: eor  (TXTPTR),Y           ; 51 7a
e362: adc  $3063,X              ; 7d 63 30
e365: dey                       ; 88
e366: ror  $927e,X              ; 7e 7e 92
e369: ???                       ; 44
e36a: sta  $7e3a,Y              ; 99 3a 7e
e36d: jmp  $91cc                ; 4c cc 91
e370: ???                       ; c7
e371: ???                       ; 7f
e372: tax                       ; aa
e373: tax                       ; aa
e374: tax                       ; aa
e375: ???                       ; 13
e376: sta  (D6510,X)            ; 81 00
e378: brk                       ; 00
e379: brk                       ; 00
e37a: brk                       ; 00
bassft: *** BASIC Warm Start [RUNSTOP-RESTORE]
e37b: jsr  VECT_(iclrch)        ; 20 cc ff
e37e: lda  #$00                 ; a9 00
e380: sta  CHANNL               ; 85 13
e382: jsr  $a67a                ; 20 7a a6
e385: cli                       ; 58
e386: ldx  #$80                 ; a2 80
e388: jmp  (IERROR)             ; 6c 00 03
e38b: txa                       ; 8a
e38c: bmi  $e391                ; 30 03
e38e: jmp  $a43a                ; 4c 3a a4
e391: jmp  ready                ; 4c 74 a4
init: *** BASIC Cold Start
e394: jsr  initv                ; 20 53 e4
e397: jsr  initcz               ; 20 bf e3
e39a: jsr  initms               ; 20 22 e4
e39d: ldx  #$fb                 ; a2 fb
e39f: txs                       ; 9a
e3a0: bne  $e386                ; d0 e4
initat: *** CHRGET For Zero-page
e3a2: inc  TXTPTR               ; e6 7a
e3a4: bne  $e3a8                ; d0 02
e3a6: inc  TXTPTR+1             ; e6 7b
e3a8: lda  $ea60                ; ad 60 ea
e3ab: cmp  #$3a                 ; c9 3a
e3ad: bcs  $e3b9                ; b0 0a
e3af: cmp  #$20                 ; c9 20
e3b1: beq  initat               ; f0 ef
e3b3: sec                       ; 38
e3b4: sbc  #$30                 ; e9 30
e3b6: sec                       ; 38
e3b7: sbc  #$d0                 ; e9 d0
e3b9: rts                       ; 60
rndsed: *** RND Seed For zero-page DATA
e3ba: ???                       ; 80
e3bb: ???                       ; 4f
e3bc: ???                       ; c7
e3bd: ???                       ; 52
e3be: cli                       ; 58
initcz: *** Initialize BASIC RAM
e3bf: lda  #$4c                 ; a9 4c
e3c1: sta  JMPER                ; 85 54
e3c3: sta  USRPOK               ; 8d 10 03
e3c6: lda  #$48                 ; a9 48
e3c8: ldy  #$b2                 ; a0 b2
e3ca: sta  USRADD               ; 8d 11 03
e3cd: sty  USRADD+1             ; 8c 12 03
e3d0: lda  #$91                 ; a9 91
e3d2: ldy  #$b3                 ; a0 b3
e3d4: sta  ADRAY2               ; 85 05
e3d6: sty  ADRAY2+1             ; 84 06
e3d8: lda  #$aa                 ; a9 aa
e3da: ldy  #$b1                 ; a0 b1
e3dc: sta  ADRAY1               ; 85 03
e3de: sty  ADRAY1+1             ; 84 04
e3e0: ldx  #$1c                 ; a2 1c
e3e2: lda  initat,X             ; bd a2 e3
e3e5: sta  CHRGET,X             ; 95 73
e3e7: dex                       ; ca
e3e8: bpl  $e3e2                ; 10 f8
e3ea: lda  #$03                 ; a9 03
e3ec: sta  FOUR6                ; 85 53
e3ee: lda  #$00                 ; a9 00
e3f0: sta  BITS                 ; 85 68
e3f2: sta  CHANNL               ; 85 13
e3f4: sta  LASTPT+1             ; 85 18
e3f6: ldx  #$01                 ; a2 01
e3f8: stx  $01fd                ; 8e fd 01
e3fb: stx  $01fc                ; 8e fc 01
e3fe: ldx  #$19                 ; a2 19
e400: stx  TEMPPT               ; 86 16
e402: sec                       ; 38
e403: jsr  VECT_membot          ; 20 9c ff
e406: stx  TXTTAB               ; 86 2b
e408: sty  TXTTAB+1             ; 84 2c
e40a: sec                       ; 38
e40b: jsr  VECT_memtop          ; 20 99 ff
e40e: stx  MEMSIZ               ; 86 37
e410: sty  MEMSIZ+1             ; 84 38
e412: stx  FRETOP               ; 86 33
e414: sty  FRETOP+1             ; 84 34
e416: ldy  #$00                 ; a0 00
e418: tya                       ; 98
e419: sta  (TXTTAB),Y           ; 91 2b
e41b: inc  TXTTAB               ; e6 2b
e41d: bne  $e421                ; d0 02
e41f: inc  TXTTAB+1             ; e6 2c
e421: rts                       ; 60
initms: *** Output Power-Up Message
e422: lda  TXTTAB               ; a5 2b
e424: ldy  TXTTAB+1             ; a4 2c
e426: jsr  reason               ; 20 08 a4
e429: lda  #$73                 ; a9 73
e42b: ldy  #$e4                 ; a0 e4
e42d: jsr  strout               ; 20 1e ab
e430: lda  MEMSIZ               ; a5 37
e432: sec                       ; 38
e433: sbc  TXTTAB               ; e5 2b
e435: tax                       ; aa
e436: lda  MEMSIZ+1             ; a5 38
e438: sbc  TXTTAB+1             ; e5 2c
e43a: jsr  $bdcd                ; 20 cd bd
e43d: lda  #$60                 ; a9 60
e43f: ldy  #$e4                 ; a0 e4
e441: jsr  strout               ; 20 1e ab
e444: jmp  $a644                ; 4c 44 a6
bvtrs: *** Table of BASIC Vectors (for 0300) WORD
e447: ???                       ; 8b
e448: ???                       ; e3
e449: ???                       ; 83
e44a: ldy  $7c                  ; a4 7c
e44c: lda  $1a                  ; a5 1a
e44e: ???                       ; a7
e44f: cpx  INBIT                ; e4 a7
e451: stx  EAL                  ; 86 ae
initv: *** Initialize Vectors
e453: ldx  #$0b                 ; a2 0b
e455: lda  bvtrs,X              ; bd 47 e4
e458: sta  IERROR,X             ; 9d 00 03
e45b: dex                       ; ca
e45c: bpl  $e455                ; 10 f7
e45e: rts                       ; 60
words: *** Power-Up Message DATA
e45f: brk                       ; 00
e460: jsr  $4142                ; 20 42 41
e463: ???                       ; 53
e464: eor  #$43                 ; 49 43
e466: jsr  $5942                ; 20 42 59
e469: ???                       ; 54
e46a: eor  FOUR6                ; 45 53
e46c: jsr  $5246                ; 20 46 52
e46f: eor  VARNAM               ; 45 45
e471: ora  $9300                ; 0d 00 93
e474: ora  $2020                ; 0d 20 20
e477: jsr  $2a20                ; 20 20 2a
e47a: rol  a                    ; 2a
e47b: rol  a                    ; 2a
e47c: rol  a                    ; 2a
e47d: jsr  $4f43                ; 20 43 4f
e480: eor  $4f4d                ; 4d 4d 4f
e483: ???                       ; 44
e484: ???                       ; 4f
e485: ???                       ; 52
e486: eor  $20                  ; 45 20
e488: rol  FRETOP+1,X           ; 36 34
e48a: jsr  $4142                ; 20 42 41
e48d: ???                       ; 53
e48e: eor  #$43                 ; 49 43
e490: jsr  $3256                ; 20 56 32
e493: jsr  $2a2a                ; 20 2a 2a
e496: rol  a                    ; 2a
e497: rol  a                    ; 2a
e498: ora  $200d                ; 0d 0d 20
e49b: rol  FRETOP+1,X           ; 36 34
e49d: ???                       ; 4b
e49e: jsr  $4152                ; 20 52 41
e4a1: eor  $5320                ; 4d 20 53
e4a4: eor  $5453,Y              ; 59 53 54
e4a7: eor  OPMASK               ; 45 4d
e4a9: jsr  $0020                ; 20 20 00
e4ac: sta  (VARPNT+1,X)         ; 81 48
e4ae: jsr  VECT_(ichkout)       ; 20 c9 ff
e4b1: tax                       ; aa
e4b2: pla                       ; 68
e4b3: bcc  $e4b6                ; 90 01
e4b5: txa                       ; 8a
e4b6: rts                       ; 60
e4b7: tax                       ; aa
e4b8: tax                       ; aa
e4b9: tax                       ; aa
e4ba: tax                       ; aa
e4bb: tax                       ; aa
e4bc: tax                       ; aa
e4bd: tax                       ; aa
e4be: tax                       ; aa
e4bf: tax                       ; aa
e4c0: tax                       ; aa
e4c1: tax                       ; aa
e4c2: tax                       ; aa
e4c3: tax                       ; aa
e4c4: tax                       ; aa
e4c5: tax                       ; aa
e4c6: tax                       ; aa
e4c7: tax                       ; aa
e4c8: tax                       ; aa
e4c9: tax                       ; aa
e4ca: tax                       ; aa
e4cb: tax                       ; aa
e4cc: tax                       ; aa
e4cd: tax                       ; aa
e4ce: tax                       ; aa
e4cf: tax                       ; aa
e4d0: tax                       ; aa
e4d1: tax                       ; aa
e4d2: tax                       ; aa
e4d3: sta  RINONE               ; 85 a9
e4d5: lda  #$01                 ; a9 01
e4d7: sta  RIPRTY               ; 85 ab
e4d9: rts                       ; 60
e4da: lda  COLOR                ; ad 86 02
e4dd: sta  (USER),Y             ; 91 f3
e4df: rts                       ; 60
e4e0: adc  #$02                 ; 69 02
e4e2: ldy  STKEY                ; a4 91
e4e4: iny                       ; c8
e4e5: bne  $e4eb                ; d0 04
e4e7: cmp  $a1                  ; c5 a1
e4e9: bne  $e4e2                ; d0 f7
e4eb: rts                       ; 60
e4ec: ora  $4426,Y              ; 19 26 44
e4ef: ora  $111a,Y              ; 19 1a 11
e4f2: inx                       ; e8
e4f3: ora  $0c70                ; 0d 70 0c
e4f6: asl  ADRAY2+1             ; 06 06
e4f8: cmp  ($02),Y              ; d1 02
e4fa: ???                       ; 37
e4fb: ora  (EAL,X)              ; 01 ae
e4fd: brk                       ; 00
e4fe: adc  #$00                 ; 69 00
iobase: *** Get I/O Address
e500: ldx  #$00                 ; a2 00
e502: ldy  #$dc                 ; a0 dc
e504: rts                       ; 60
screen: *** Get Screen Size
e505: ldx  #$28                 ; a2 28
e507: ldy  #$19                 ; a0 19
e509: rts                       ; 60
plot: *** Put / Get Row And Column
e50a: bcs  $e513                ; b0 07
e50c: stx  TBLX                 ; 86 d6
e50e: sty  PNTR                 ; 84 d3
e510: jsr  $e56c                ; 20 6c e5
e513: ldx  TBLX                 ; a6 d6
e515: ldy  PNTR                 ; a4 d3
e517: rts                       ; 60
cint1: *** Initialize I/O
e518: jsr  $e5a0                ; 20 a0 e5
e51b: lda  #$00                 ; a9 00
e51d: sta  MODE                 ; 8d 91 02
e520: sta  BLNON                ; 85 cf
e522: lda  #$48                 ; a9 48
e524: sta  KEYLOG               ; 8d 8f 02
e527: lda  #$eb                 ; a9 eb
e529: sta  KEYLOG+1             ; 8d 90 02
e52c: lda  #$0a                 ; a9 0a
e52e: sta  XMAX                 ; 8d 89 02
e531: sta  DELAY                ; 8d 8c 02
e534: lda  #$0e                 ; a9 0e
e536: sta  COLOR                ; 8d 86 02
e539: lda  #$04                 ; a9 04
e53b: sta  KOUNT                ; 8d 8b 02
e53e: lda  #$0c                 ; a9 0c
e540: sta  BLNCT                ; 85 cd
e542: sta  BLNSW                ; 85 cc
e544: lda  HIBASE               ; ad 88 02
e547: ora  #$80                 ; 09 80
e549: tay                       ; a8
e54a: lda  #$00                 ; a9 00
e54c: tax                       ; aa
e54d: sty  LDTB1,X              ; 94 d9
e54f: clc                       ; 18
e550: adc  #$28                 ; 69 28
e552: bcc  $e555                ; 90 01
e554: iny                       ; c8
e555: inx                       ; e8
e556: cpx  #$1a                 ; e0 1a
e558: bne  $e54d                ; d0 f3
e55a: lda  #$ff                 ; a9 ff
e55c: sta  LDTB1,X              ; 95 d9
e55e: ldx  #$18                 ; a2 18
e560: jsr  $e9ff                ; 20 ff e9
e563: dex                       ; ca
e564: bpl  $e560                ; 10 fa
e566: ldy  #$00                 ; a0 00
e568: sty  PNTR                 ; 84 d3
e56a: sty  TBLX                 ; 84 d6
e56c: ldx  TBLX                 ; a6 d6
e56e: lda  PNTR                 ; a5 d3
e570: ldy  LDTB1,X              ; b4 d9
e572: bmi  $e57c                ; 30 08
e574: clc                       ; 18
e575: adc  #$28                 ; 69 28
e577: sta  PNTR                 ; 85 d3
e579: dex                       ; ca
e57a: bpl  $e570                ; 10 f4
e57c: jsr  $e9f0                ; 20 f0 e9
e57f: lda  #$27                 ; a9 27
e581: inx                       ; e8
e582: ldy  LDTB1,X              ; b4 d9
e584: bmi  $e58c                ; 30 06
e586: clc                       ; 18
e587: adc  #$28                 ; 69 28
e589: inx                       ; e8
e58a: bpl  $e582                ; 10 f6
e58c: sta  LNMX                 ; 85 d5
e58e: jmp  $ea24                ; 4c 24 ea
e591: cpx  LXSP                 ; e4 c9
e593: beq  $e598                ; f0 03
e595: jmp  $e6ed                ; 4c ed e6
e598: rts                       ; 60
e599: nop                       ; ea
e59a: jsr  $e5a0                ; 20 a0 e5
e59d: jmp  $e566                ; 4c 66 e5
e5a0: lda  #$03                 ; a9 03
e5a2: sta  DFLTO                ; 85 9a
e5a4: lda  #$00                 ; a9 00
e5a6: sta  DFLTN                ; 85 99
e5a8: ldx  #$2f                 ; a2 2f
e5aa: lda  $ecb8,X              ; bd b8 ec
e5ad: sta  $cfff,X              ; 9d ff cf
e5b0: dex                       ; ca
e5b1: bne  $e5aa                ; d0 f7
e5b3: rts                       ; 60
lp2: *** Get Character From Keyboard Buffer
e5b4: ldy  KEYD                 ; ac 77 02
e5b7: ldx  #$00                 ; a2 00
e5b9: lda  $0278,X              ; bd 78 02
e5bc: sta  KEYD,X               ; 9d 77 02
e5bf: inx                       ; e8
e5c0: cpx  NDX                  ; e4 c6
e5c2: bne  $e5b9                ; d0 f5
e5c4: dec  NDX                  ; c6 c6
e5c6: tya                       ; 98
e5c7: cli                       ; 58
e5c8: clc                       ; 18
e5c9: rts                       ; 60
e5ca: jsr  $e716                ; 20 16 e7
e5cd: lda  NDX                  ; a5 c6
e5cf: sta  BLNSW                ; 85 cc
e5d1: sta  AUTODN               ; 8d 92 02
e5d4: beq  $e5cd                ; f0 f7
e5d6: sei                       ; 78
e5d7: lda  BLNON                ; a5 cf
e5d9: beq  $e5e7                ; f0 0c
e5db: lda  GDBLN                ; a5 ce
e5dd: ldx  GDCOL                ; ae 87 02
e5e0: ldy  #$00                 ; a0 00
e5e2: sty  BLNON                ; 84 cf
e5e4: jsr  $ea13                ; 20 13 ea
e5e7: jsr  lp2                  ; 20 b4 e5
e5ea: cmp  #$83                 ; c9 83
e5ec: bne  $e5fe                ; d0 10
e5ee: ldx  #$09                 ; a2 09
e5f0: sei                       ; 78
e5f1: stx  NDX                  ; 86 c6
e5f3: lda  $ece6,X              ; bd e6 ec
e5f6: sta  $0276,X              ; 9d 76 02
e5f9: dex                       ; ca
e5fa: bne  $e5f3                ; d0 f7
e5fc: beq  $e5cd                ; f0 cf
e5fe: cmp  #$0d                 ; c9 0d
e600: bne  $e5ca                ; d0 c8
e602: ldy  LNMX                 ; a4 d5
e604: sty  CRSW                 ; 84 d0
e606: lda  (PNT),Y              ; b1 d1
e608: cmp  #$20                 ; c9 20
e60a: bne  $e60f                ; d0 03
e60c: dey                       ; 88
e60d: bne  $e606                ; d0 f7
e60f: iny                       ; c8
e610: sty  INDX                 ; 84 c8
e612: ldy  #$00                 ; a0 00
e614: sty  AUTODN               ; 8c 92 02
e617: sty  PNTR                 ; 84 d3
e619: sty  QTSW                 ; 84 d4
e61b: lda  LXSP                 ; a5 c9
e61d: bmi  $e63a                ; 30 1b
e61f: ldx  TBLX                 ; a6 d6
e621: jsr  $e591                ; 20 91 e5
e624: cpx  LXSP                 ; e4 c9
e626: bne  $e63a                ; d0 12
e628: lda  LXSP+1               ; a5 ca
e62a: sta  PNTR                 ; 85 d3
e62c: cmp  INDX                 ; c5 c8
e62e: bcc  $e63a                ; 90 0a
e630: bcs  $e65d                ; b0 2b
e632: tya                       ; 98
e633: pha                       ; 48
e634: txa                       ; 8a
e635: pha                       ; 48
e636: lda  CRSW                 ; a5 d0
e638: beq  $e5cd                ; f0 93
e63a: ldy  PNTR                 ; a4 d3
e63c: lda  (PNT),Y              ; b1 d1
e63e: sta  SCHAR                ; 85 d7
e640: and  #$3f                 ; 29 3f
e642: asl  SCHAR                ; 06 d7
e644: bit  SCHAR                ; 24 d7
e646: bpl  $e64a                ; 10 02
e648: ora  #$80                 ; 09 80
e64a: bcc  $e650                ; 90 04
e64c: ldx  QTSW                 ; a6 d4
e64e: bne  $e654                ; d0 04
e650: bvs  $e654                ; 70 02
e652: ora  #$40                 ; 09 40
e654: inc  PNTR                 ; e6 d3
e656: jsr  $e684                ; 20 84 e6
e659: cpy  INDX                 ; c4 c8
e65b: bne  $e674                ; d0 17
e65d: lda  #$00                 ; a9 00
e65f: sta  CRSW                 ; 85 d0
e661: lda  #$0d                 ; a9 0d
e663: ldx  DFLTN                ; a6 99
e665: cpx  #$03                 ; e0 03
e667: beq  $e66f                ; f0 06
e669: ldx  DFLTO                ; a6 9a
e66b: cpx  #$03                 ; e0 03
e66d: beq  $e672                ; f0 03
e66f: jsr  $e716                ; 20 16 e7
e672: lda  #$0d                 ; a9 0d
e674: sta  SCHAR                ; 85 d7
e676: pla                       ; 68
e677: tax                       ; aa
e678: pla                       ; 68
e679: tay                       ; a8
e67a: lda  SCHAR                ; a5 d7
e67c: cmp  #$de                 ; c9 de
e67e: bne  $e682                ; d0 02
e680: lda  #$ff                 ; a9 ff
e682: clc                       ; 18
e683: rts                       ; 60
e684: cmp  #$22                 ; c9 22
e686: bne  $e690                ; d0 08
e688: lda  QTSW                 ; a5 d4
e68a: eor  #$01                 ; 49 01
e68c: sta  QTSW                 ; 85 d4
e68e: lda  #$22                 ; a9 22
e690: rts                       ; 60
e691: ora  #$40                 ; 09 40
e693: ldx  RVS                  ; a6 c7
e695: beq  $e699                ; f0 02
e697: ora  #$80                 ; 09 80
e699: ldx  INSRT                ; a6 d8
e69b: beq  $e69f                ; f0 02
e69d: dec  INSRT                ; c6 d8
e69f: ldx  COLOR                ; ae 86 02
e6a2: jsr  $ea13                ; 20 13 ea
e6a5: jsr  $e6b6                ; 20 b6 e6
e6a8: pla                       ; 68
e6a9: tay                       ; a8
e6aa: lda  INSRT                ; a5 d8
e6ac: beq  $e6b0                ; f0 02
e6ae: lsr  QTSW                 ; 46 d4
e6b0: pla                       ; 68
e6b1: tax                       ; aa
e6b2: pla                       ; 68
e6b3: clc                       ; 18
e6b4: cli                       ; 58
e6b5: rts                       ; 60
e6b6: jsr  $e8b3                ; 20 b3 e8
e6b9: inc  PNTR                 ; e6 d3
e6bb: lda  LNMX                 ; a5 d5
e6bd: cmp  PNTR                 ; c5 d3
e6bf: bcs  $e700                ; b0 3f
e6c1: cmp  #$4f                 ; c9 4f
e6c3: beq  $e6f7                ; f0 32
e6c5: lda  AUTODN               ; ad 92 02
e6c8: beq  $e6cd                ; f0 03
e6ca: jmp  $e967                ; 4c 67 e9
e6cd: ldx  TBLX                 ; a6 d6
e6cf: cpx  #$19                 ; e0 19
e6d1: bcc  $e6da                ; 90 07
e6d3: jsr  $e8ea                ; 20 ea e8
e6d6: dec  TBLX                 ; c6 d6
e6d8: ldx  TBLX                 ; a6 d6
e6da: asl  LDTB1,X              ; 16 d9
e6dc: lsr  LDTB1,X              ; 56 d9
e6de: inx                       ; e8
e6df: lda  LDTB1,X              ; b5 d9
e6e1: ora  #$80                 ; 09 80
e6e3: sta  LDTB1,X              ; 95 d9
e6e5: dex                       ; ca
e6e6: lda  LNMX                 ; a5 d5
e6e8: clc                       ; 18
e6e9: adc  #$28                 ; 69 28
e6eb: sta  LNMX                 ; 85 d5
e6ed: lda  LDTB1,X              ; b5 d9
e6ef: bmi  $e6f4                ; 30 03
e6f1: dex                       ; ca
e6f2: bne  $e6ed                ; d0 f9
e6f4: jmp  $e9f0                ; 4c f0 e9
e6f7: dec  TBLX                 ; c6 d6
e6f9: jsr  $e87c                ; 20 7c e8
e6fc: lda  #$00                 ; a9 00
e6fe: sta  PNTR                 ; 85 d3
e700: rts                       ; 60
e701: ldx  TBLX                 ; a6 d6
e703: bne  $e70b                ; d0 06
e705: stx  PNTR                 ; 86 d3
e707: pla                       ; 68
e708: pla                       ; 68
e709: bne  $e6a8                ; d0 9d
e70b: dex                       ; ca
e70c: stx  TBLX                 ; 86 d6
e70e: jsr  $e56c                ; 20 6c e5
e711: ldy  LNMX                 ; a4 d5
e713: sty  PNTR                 ; 84 d3
e715: rts                       ; 60
e716: pha                       ; 48
e717: sta  SCHAR                ; 85 d7
e719: txa                       ; 8a
e71a: pha                       ; 48
e71b: tya                       ; 98
e71c: pha                       ; 48
e71d: lda  #$00                 ; a9 00
e71f: sta  CRSW                 ; 85 d0
e721: ldy  PNTR                 ; a4 d3
e723: lda  SCHAR                ; a5 d7
e725: bpl  $e72a                ; 10 03
e727: jmp  $e7d4                ; 4c d4 e7
e72a: cmp  #$0d                 ; c9 0d
e72c: bne  $e731                ; d0 03
e72e: jmp  $e891                ; 4c 91 e8
e731: cmp  #$20                 ; c9 20
e733: bcc  $e745                ; 90 10
e735: cmp  #$60                 ; c9 60
e737: bcc  $e73d                ; 90 04
e739: and  #$df                 ; 29 df
e73b: bne  $e73f                ; d0 02
e73d: and  #$3f                 ; 29 3f
e73f: jsr  $e684                ; 20 84 e6
e742: jmp  $e693                ; 4c 93 e6
e745: ldx  INSRT                ; a6 d8
e747: beq  $e74c                ; f0 03
e749: jmp  $e697                ; 4c 97 e6
e74c: cmp  #$14                 ; c9 14
e74e: bne  $e77e                ; d0 2e
e750: tya                       ; 98
e751: bne  $e759                ; d0 06
e753: jsr  $e701                ; 20 01 e7
e756: jmp  $e773                ; 4c 73 e7
e759: jsr  $e8a1                ; 20 a1 e8
e75c: dey                       ; 88
e75d: sty  PNTR                 ; 84 d3
e75f: jsr  $ea24                ; 20 24 ea
e762: iny                       ; c8
e763: lda  (PNT),Y              ; b1 d1
e765: dey                       ; 88
e766: sta  (PNT),Y              ; 91 d1
e768: iny                       ; c8
e769: lda  (USER),Y             ; b1 f3
e76b: dey                       ; 88
e76c: sta  (USER),Y             ; 91 f3
e76e: iny                       ; c8
e76f: cpy  LNMX                 ; c4 d5
e771: bne  $e762                ; d0 ef
e773: lda  #$20                 ; a9 20
e775: sta  (PNT),Y              ; 91 d1
e777: lda  COLOR                ; ad 86 02
e77a: sta  (USER),Y             ; 91 f3
e77c: bpl  $e7cb                ; 10 4d
e77e: ldx  QTSW                 ; a6 d4
e780: beq  $e785                ; f0 03
e782: jmp  $e697                ; 4c 97 e6
e785: cmp  #$12                 ; c9 12
e787: bne  $e78b                ; d0 02
e789: sta  RVS                  ; 85 c7
e78b: cmp  #$13                 ; c9 13
e78d: bne  $e792                ; d0 03
e78f: jsr  $e566                ; 20 66 e5
e792: cmp  #$1d                 ; c9 1d
e794: bne  $e7ad                ; d0 17
e796: iny                       ; c8
e797: jsr  $e8b3                ; 20 b3 e8
e79a: sty  PNTR                 ; 84 d3
e79c: dey                       ; 88
e79d: cpy  LNMX                 ; c4 d5
e79f: bcc  $e7aa                ; 90 09
e7a1: dec  TBLX                 ; c6 d6
e7a3: jsr  $e87c                ; 20 7c e8
e7a6: ldy  #$00                 ; a0 00
e7a8: sty  PNTR                 ; 84 d3
e7aa: jmp  $e6a8                ; 4c a8 e6
e7ad: cmp  #$11                 ; c9 11
e7af: bne  $e7ce                ; d0 1d
e7b1: clc                       ; 18
e7b2: tya                       ; 98
e7b3: adc  #$28                 ; 69 28
e7b5: tay                       ; a8
e7b6: inc  TBLX                 ; e6 d6
e7b8: cmp  LNMX                 ; c5 d5
e7ba: bcc  $e7a8                ; 90 ec
e7bc: beq  $e7a8                ; f0 ea
e7be: dec  TBLX                 ; c6 d6
e7c0: sbc  #$28                 ; e9 28
e7c2: bcc  $e7c8                ; 90 04
e7c4: sta  PNTR                 ; 85 d3
e7c6: bne  $e7c0                ; d0 f8
e7c8: jsr  $e87c                ; 20 7c e8
e7cb: jmp  $e6a8                ; 4c a8 e6
e7ce: jsr  $e8cb                ; 20 cb e8
e7d1: jmp  $ec44                ; 4c 44 ec
e7d4: and  #$7f                 ; 29 7f
e7d6: cmp  #$7f                 ; c9 7f
e7d8: bne  $e7dc                ; d0 02
e7da: lda  #$5e                 ; a9 5e
e7dc: cmp  #$20                 ; c9 20
e7de: bcc  $e7e3                ; 90 03
e7e0: jmp  $e691                ; 4c 91 e6
e7e3: cmp  #$0d                 ; c9 0d
e7e5: bne  $e7ea                ; d0 03
e7e7: jmp  $e891                ; 4c 91 e8
e7ea: ldx  QTSW                 ; a6 d4
e7ec: bne  $e82d                ; d0 3f
e7ee: cmp  #$14                 ; c9 14
e7f0: bne  $e829                ; d0 37
e7f2: ldy  LNMX                 ; a4 d5
e7f4: lda  (PNT),Y              ; b1 d1
e7f6: cmp  #$20                 ; c9 20
e7f8: bne  $e7fe                ; d0 04
e7fa: cpy  PNTR                 ; c4 d3
e7fc: bne  $e805                ; d0 07
e7fe: cpy  #$4f                 ; c0 4f
e800: beq  $e826                ; f0 24
e802: jsr  $e965                ; 20 65 e9
e805: ldy  LNMX                 ; a4 d5
e807: jsr  $ea24                ; 20 24 ea
e80a: dey                       ; 88
e80b: lda  (PNT),Y              ; b1 d1
e80d: iny                       ; c8
e80e: sta  (PNT),Y              ; 91 d1
e810: dey                       ; 88
e811: lda  (USER),Y             ; b1 f3
e813: iny                       ; c8
e814: sta  (USER),Y             ; 91 f3
e816: dey                       ; 88
e817: cpy  PNTR                 ; c4 d3
e819: bne  $e80a                ; d0 ef
e81b: lda  #$20                 ; a9 20
e81d: sta  (PNT),Y              ; 91 d1
e81f: lda  COLOR                ; ad 86 02
e822: sta  (USER),Y             ; 91 f3
e824: inc  INSRT                ; e6 d8
e826: jmp  $e6a8                ; 4c a8 e6
e829: ldx  INSRT                ; a6 d8
e82b: beq  $e832                ; f0 05
e82d: ora  #$40                 ; 09 40
e82f: jmp  $e697                ; 4c 97 e6
e832: cmp  #$11                 ; c9 11
e834: bne  $e84c                ; d0 16
e836: ldx  TBLX                 ; a6 d6
e838: beq  $e871                ; f0 37
e83a: dec  TBLX                 ; c6 d6
e83c: lda  PNTR                 ; a5 d3
e83e: sec                       ; 38
e83f: sbc  #$28                 ; e9 28
e841: bcc  $e847                ; 90 04
e843: sta  PNTR                 ; 85 d3
e845: bpl  $e871                ; 10 2a
e847: jsr  $e56c                ; 20 6c e5
e84a: bne  $e871                ; d0 25
e84c: cmp  #$12                 ; c9 12
e84e: bne  $e854                ; d0 04
e850: lda  #$00                 ; a9 00
e852: sta  RVS                  ; 85 c7
e854: cmp  #$1d                 ; c9 1d
e856: bne  $e86a                ; d0 12
e858: tya                       ; 98
e859: beq  $e864                ; f0 09
e85b: jsr  $e8a1                ; 20 a1 e8
e85e: dey                       ; 88
e85f: sty  PNTR                 ; 84 d3
e861: jmp  $e6a8                ; 4c a8 e6
e864: jsr  $e701                ; 20 01 e7
e867: jmp  $e6a8                ; 4c a8 e6
e86a: cmp  #$13                 ; c9 13
e86c: bne  $e874                ; d0 06
e86e: jsr  $e544                ; 20 44 e5
e871: jmp  $e6a8                ; 4c a8 e6
e874: ora  #$80                 ; 09 80
e876: jsr  $e8cb                ; 20 cb e8
e879: jmp  $ec4f                ; 4c 4f ec
e87c: lsr  LXSP                 ; 46 c9
e87e: ldx  TBLX                 ; a6 d6
e880: inx                       ; e8
e881: cpx  #$19                 ; e0 19
e883: bne  $e888                ; d0 03
e885: jsr  $e8ea                ; 20 ea e8
e888: lda  LDTB1,X              ; b5 d9
e88a: bpl  $e880                ; 10 f4
e88c: stx  TBLX                 ; 86 d6
e88e: jmp  $e56c                ; 4c 6c e5
e891: ldx  #$00                 ; a2 00
e893: stx  INSRT                ; 86 d8
e895: stx  RVS                  ; 86 c7
e897: stx  QTSW                 ; 86 d4
e899: stx  PNTR                 ; 86 d3
e89b: jsr  $e87c                ; 20 7c e8
e89e: jmp  $e6a8                ; 4c a8 e6
e8a1: ldx  #$02                 ; a2 02
e8a3: lda  #$00                 ; a9 00
e8a5: cmp  PNTR                 ; c5 d3
e8a7: beq  $e8b0                ; f0 07
e8a9: clc                       ; 18
e8aa: adc  #$28                 ; 69 28
e8ac: dex                       ; ca
e8ad: bne  $e8a5                ; d0 f6
e8af: rts                       ; 60
e8b0: dec  TBLX                 ; c6 d6
e8b2: rts                       ; 60
e8b3: ldx  #$02                 ; a2 02
e8b5: lda  #$27                 ; a9 27
e8b7: cmp  PNTR                 ; c5 d3
e8b9: beq  $e8c2                ; f0 07
e8bb: clc                       ; 18
e8bc: adc  #$28                 ; 69 28
e8be: dex                       ; ca
e8bf: bne  $e8b7                ; d0 f6
e8c1: rts                       ; 60
e8c2: ldx  TBLX                 ; a6 d6
e8c4: cpx  #$19                 ; e0 19
e8c6: beq  $e8ca                ; f0 02
e8c8: inc  TBLX                 ; e6 d6
e8ca: rts                       ; 60
e8cb: ldx  #$0f                 ; a2 0f
e8cd: cmp  $e8da,X              ; dd da e8
e8d0: beq  $e8d6                ; f0 04
e8d2: dex                       ; ca
e8d3: bpl  $e8cd                ; 10 f8
e8d5: rts                       ; 60
e8d6: stx  COLOR                ; 8e 86 02
e8d9: rts                       ; 60
e8da: bcc  $e8e1                ; 90 05
e8dc: ???                       ; 1c
e8dd: ???                       ; 9f
e8de: ???                       ; 9c
e8df: asl  $9e1f,X              ; 1e 1f 9e
e8e2: sta  (BSOUR,X)            ; 81 95
e8e4: stx  TEMPXY,Y             ; 96 97
e8e6: tya                       ; 98
e8e7: sta  $9b9a,Y              ; 99 9a 9b
e8ea: lda  SAL                  ; a5 ac
e8ec: pha                       ; 48
e8ed: lda  SAL+1                ; a5 ad
e8ef: pha                       ; 48
e8f0: lda  EAL                  ; a5 ae
e8f2: pha                       ; 48
e8f3: lda  EAL+1                ; a5 af
e8f5: pha                       ; 48
e8f6: ldx  #$ff                 ; a2 ff
e8f8: dec  TBLX                 ; c6 d6
e8fa: dec  LXSP                 ; c6 c9
e8fc: dec  TLNIDX               ; ce a5 02
e8ff: inx                       ; e8
e900: jsr  $e9f0                ; 20 f0 e9
e903: cpx  #$18                 ; e0 18
e905: bcs  $e913                ; b0 0c
e907: lda  $ecf1,X              ; bd f1 ec
e90a: sta  SAL                  ; 85 ac
e90c: lda  $da,X                ; b5 da
e90e: jsr  $e9c8                ; 20 c8 e9
e911: bmi  $e8ff                ; 30 ec
e913: jsr  $e9ff                ; 20 ff e9
e916: ldx  #$00                 ; a2 00
e918: lda  LDTB1,X              ; b5 d9
e91a: and  #$7f                 ; 29 7f
e91c: ldy  $da,X                ; b4 da
e91e: bpl  $e922                ; 10 02
e920: ora  #$80                 ; 09 80
e922: sta  LDTB1,X              ; 95 d9
e924: inx                       ; e8
e925: cpx  #$18                 ; e0 18
e927: bne  $e918                ; d0 ef
e929: lda  $f1                  ; a5 f1
e92b: ora  #$80                 ; 09 80
e92d: sta  $f1                  ; 85 f1
e92f: lda  LDTB1                ; a5 d9
e931: bpl  $e8f6                ; 10 c3
e933: inc  TBLX                 ; e6 d6
e935: inc  TLNIDX               ; ee a5 02
e938: lda  #$7f                 ; a9 7f
e93a: sta  CIA1                 ; 8d 00 dc
e93d: lda  $dc01                ; ad 01 dc
e940: cmp  #$fb                 ; c9 fb
e942: php                       ; 08
e943: lda  #$7f                 ; a9 7f
e945: sta  CIA1                 ; 8d 00 dc
e948: plp                       ; 28
e949: bne  $e956                ; d0 0b
e94b: ldy  #$00                 ; a0 00
e94d: nop                       ; ea
e94e: dex                       ; ca
e94f: bne  $e94d                ; d0 fc
e951: dey                       ; 88
e952: bne  $e94d                ; d0 f9
e954: sty  NDX                  ; 84 c6
e956: ldx  TBLX                 ; a6 d6
e958: pla                       ; 68
e959: sta  EAL+1                ; 85 af
e95b: pla                       ; 68
e95c: sta  EAL                  ; 85 ae
e95e: pla                       ; 68
e95f: sta  SAL+1                ; 85 ad
e961: pla                       ; 68
e962: sta  SAL                  ; 85 ac
e964: rts                       ; 60
e965: ldx  TBLX                 ; a6 d6
e967: inx                       ; e8
e968: lda  LDTB1,X              ; b5 d9
e96a: bpl  $e967                ; 10 fb
e96c: stx  TLNIDX               ; 8e a5 02
e96f: cpx  #$18                 ; e0 18
e971: beq  $e981                ; f0 0e
e973: bcc  $e981                ; 90 0c
e975: jsr  $e8ea                ; 20 ea e8
e978: ldx  TLNIDX               ; ae a5 02
e97b: dex                       ; ca
e97c: dec  TBLX                 ; c6 d6
e97e: jmp  $e6da                ; 4c da e6
e981: lda  SAL                  ; a5 ac
e983: pha                       ; 48
e984: lda  SAL+1                ; a5 ad
e986: pha                       ; 48
e987: lda  EAL                  ; a5 ae
e989: pha                       ; 48
e98a: lda  EAL+1                ; a5 af
e98c: pha                       ; 48
e98d: ldx  #$19                 ; a2 19
e98f: dex                       ; ca
e990: jsr  $e9f0                ; 20 f0 e9
e993: cpx  TLNIDX               ; ec a5 02
e996: bcc  $e9a6                ; 90 0e
e998: beq  $e9a6                ; f0 0c
e99a: lda  $ecef,X              ; bd ef ec
e99d: sta  SAL                  ; 85 ac
e99f: lda  INSRT,X              ; b5 d8
e9a1: jsr  $e9c8                ; 20 c8 e9
e9a4: bmi  $e98f                ; 30 e9
e9a6: jsr  $e9ff                ; 20 ff e9
e9a9: ldx  #$17                 ; a2 17
e9ab: cpx  TLNIDX               ; ec a5 02
e9ae: bcc  $e9bf                ; 90 0f
e9b0: lda  $da,X                ; b5 da
e9b2: and  #$7f                 ; 29 7f
e9b4: ldy  LDTB1,X              ; b4 d9
e9b6: bpl  $e9ba                ; 10 02
e9b8: ora  #$80                 ; 09 80
e9ba: sta  $da,X                ; 95 da
e9bc: dex                       ; ca
e9bd: bne  $e9ab                ; d0 ec
e9bf: ldx  TLNIDX               ; ae a5 02
e9c2: jsr  $e6da                ; 20 da e6
e9c5: jmp  $e958                ; 4c 58 e9
e9c8: and  #$03                 ; 29 03
e9ca: ora  HIBASE               ; 0d 88 02
e9cd: sta  SAL+1                ; 85 ad
e9cf: jsr  $e9e0                ; 20 e0 e9
e9d2: ldy  #$27                 ; a0 27
e9d4: lda  (SAL),Y              ; b1 ac
e9d6: sta  (PNT),Y              ; 91 d1
e9d8: lda  (EAL),Y              ; b1 ae
e9da: sta  (USER),Y             ; 91 f3
e9dc: dey                       ; 88
e9dd: bpl  $e9d4                ; 10 f5
e9df: rts                       ; 60
e9e0: jsr  $ea24                ; 20 24 ea
e9e3: lda  SAL                  ; a5 ac
e9e5: sta  EAL                  ; 85 ae
e9e7: lda  SAL+1                ; a5 ad
e9e9: and  #$03                 ; 29 03
e9eb: ora  #$d8                 ; 09 d8
e9ed: sta  EAL+1                ; 85 af
e9ef: rts                       ; 60
e9f0: lda  $ecf0,X              ; bd f0 ec
e9f3: sta  PNT                  ; 85 d1
e9f5: lda  LDTB1,X              ; b5 d9
e9f7: and  #$03                 ; 29 03
e9f9: ora  HIBASE               ; 0d 88 02
e9fc: sta  PNT+1                ; 85 d2
e9fe: rts                       ; 60
e9ff: ldy  #$27                 ; a0 27
ea01: jsr  $e9f0                ; 20 f0 e9
ea04: jsr  $ea24                ; 20 24 ea
ea07: jsr  $e4da                ; 20 da e4
ea0a: lda  #$20                 ; a9 20
ea0c: sta  (PNT),Y              ; 91 d1
ea0e: dey                       ; 88
ea0f: bpl  $ea07                ; 10 f6
ea11: rts                       ; 60
ea12: nop                       ; ea
ea13: tay                       ; a8
ea14: lda  #$02                 ; a9 02
ea16: sta  BLNCT                ; 85 cd
ea18: jsr  $ea24                ; 20 24 ea
ea1b: tya                       ; 98
ea1c: ldy  PNTR                 ; a4 d3
ea1e: sta  (PNT),Y              ; 91 d1
ea20: txa                       ; 8a
ea21: sta  (USER),Y             ; 91 f3
ea23: rts                       ; 60
ea24: lda  PNT                  ; a5 d1
ea26: sta  USER                 ; 85 f3
ea28: lda  PNT+1                ; a5 d2
ea2a: and  #$03                 ; 29 03
ea2c: ora  #$d8                 ; 09 d8
ea2e: sta  USER+1               ; 85 f4
ea30: rts                       ; 60
ea31: jsr  VECT_udtim           ; 20 ea ff
ea34: lda  BLNSW                ; a5 cc
ea36: bne  $ea61                ; d0 29
ea38: dec  BLNCT                ; c6 cd
ea3a: bne  $ea61                ; d0 25
ea3c: lda  #$14                 ; a9 14
ea3e: sta  BLNCT                ; 85 cd
ea40: ldy  PNTR                 ; a4 d3
ea42: lsr  BLNON                ; 46 cf
ea44: ldx  GDCOL                ; ae 87 02
ea47: lda  (PNT),Y              ; b1 d1
ea49: bcs  $ea5c                ; b0 11
ea4b: inc  BLNON                ; e6 cf
ea4d: sta  GDBLN                ; 85 ce
ea4f: jsr  $ea24                ; 20 24 ea
ea52: lda  (USER),Y             ; b1 f3
ea54: sta  GDCOL                ; 8d 87 02
ea57: ldx  COLOR                ; ae 86 02
ea5a: lda  GDBLN                ; a5 ce
ea5c: eor  #$80                 ; 49 80
ea5e: jsr  $ea1c                ; 20 1c ea
ea61: lda  R6510                ; a5 01
ea63: and  #$10                 ; 29 10
ea65: beq  $ea71                ; f0 0a
ea67: ldy  #$00                 ; a0 00
ea69: sty  CAS1                 ; 84 c0
ea6b: lda  R6510                ; a5 01
ea6d: ora  #$20                 ; 09 20
ea6f: bne  $ea79                ; d0 08
ea71: lda  CAS1                 ; a5 c0
ea73: bne  $ea7b                ; d0 06
ea75: lda  R6510                ; a5 01
ea77: and  #$1f                 ; 29 1f
ea79: sta  R6510                ; 85 01
ea7b: jsr  scnkey               ; 20 87 ea
ea7e: lda  $dc0d                ; ad 0d dc
ea81: pla                       ; 68
ea82: tay                       ; a8
ea83: pla                       ; 68
ea84: tax                       ; aa
ea85: pla                       ; 68
ea86: rti                       ; 40
scnkey: *** Scan Keyboard
ea87: lda  #$00                 ; a9 00
ea89: sta  SHFLAG               ; 8d 8d 02
ea8c: ldy  #$40                 ; a0 40
ea8e: sty  SFDX                 ; 84 cb
ea90: sta  CIA1                 ; 8d 00 dc
ea93: ldx  $dc01                ; ae 01 dc
ea96: cpx  #$ff                 ; e0 ff
ea98: beq  $eafb                ; f0 61
ea9a: tay                       ; a8
ea9b: lda  #$81                 ; a9 81
ea9d: sta  KEYTAB               ; 85 f5
ea9f: lda  #$eb                 ; a9 eb
eaa1: sta  KEYTAB+1             ; 85 f6
eaa3: lda  #$fe                 ; a9 fe
eaa5: sta  CIA1                 ; 8d 00 dc
eaa8: ldx  #$08                 ; a2 08
eaaa: pha                       ; 48
eaab: lda  $dc01                ; ad 01 dc
eaae: cmp  $dc01                ; cd 01 dc
eab1: bne  $eaab                ; d0 f8
eab3: lsr  a                    ; 4a
eab4: bcs  $eacc                ; b0 16
eab6: pha                       ; 48
eab7: lda  (KEYTAB),Y           ; b1 f5
eab9: cmp  #$05                 ; c9 05
eabb: bcs  $eac9                ; b0 0c
eabd: cmp  #$03                 ; c9 03
eabf: beq  $eac9                ; f0 08
eac1: ora  SHFLAG               ; 0d 8d 02
eac4: sta  SHFLAG               ; 8d 8d 02
eac7: bpl  $eacb                ; 10 02
eac9: sty  SFDX                 ; 84 cb
eacb: pla                       ; 68
eacc: iny                       ; c8
eacd: cpy  #$41                 ; c0 41
eacf: bcs  $eadc                ; b0 0b
ead1: dex                       ; ca
ead2: bne  $eab3                ; d0 df
ead4: sec                       ; 38
ead5: pla                       ; 68
ead6: rol  a                    ; 2a
ead7: sta  CIA1                 ; 8d 00 dc
eada: bne  $eaa8                ; d0 cc
eadc: pla                       ; 68
eadd: jmp  (KEYLOG)             ; 6c 8f 02
eae0: ldy  SFDX                 ; a4 cb
eae2: lda  (KEYTAB),Y           ; b1 f5
eae4: tax                       ; aa
eae5: cpy  LSTX                 ; c4 c5
eae7: beq  $eaf0                ; f0 07
eae9: ldy  #$10                 ; a0 10
eaeb: sty  DELAY                ; 8c 8c 02
eaee: bne  $eb26                ; d0 36
eaf0: and  #$7f                 ; 29 7f
eaf2: bit  RPTFLG               ; 2c 8a 02
eaf5: bmi  $eb0d                ; 30 16
eaf7: bvs  $eb42                ; 70 49
eaf9: cmp  #$7f                 ; c9 7f
eafb: beq  $eb26                ; f0 29
eafd: cmp  #$14                 ; c9 14
eaff: beq  $eb0d                ; f0 0c
eb01: cmp  #$20                 ; c9 20
eb03: beq  $eb0d                ; f0 08
eb05: cmp  #$1d                 ; c9 1d
eb07: beq  $eb0d                ; f0 04
eb09: cmp  #$11                 ; c9 11
eb0b: bne  $eb42                ; d0 35
eb0d: ldy  DELAY                ; ac 8c 02
eb10: beq  $eb17                ; f0 05
eb12: dec  DELAY                ; ce 8c 02
eb15: bne  $eb42                ; d0 2b
eb17: dec  KOUNT                ; ce 8b 02
eb1a: bne  $eb42                ; d0 26
eb1c: ldy  #$04                 ; a0 04
eb1e: sty  KOUNT                ; 8c 8b 02
eb21: ldy  NDX                  ; a4 c6
eb23: dey                       ; 88
eb24: bpl  $eb42                ; 10 1c
eb26: ldy  SFDX                 ; a4 cb
eb28: sty  LSTX                 ; 84 c5
eb2a: ldy  SHFLAG               ; ac 8d 02
eb2d: sty  LSTSHF               ; 8c 8e 02
eb30: cpx  #$ff                 ; e0 ff
eb32: beq  $eb42                ; f0 0e
eb34: txa                       ; 8a
eb35: ldx  NDX                  ; a6 c6
eb37: cpx  XMAX                 ; ec 89 02
eb3a: bcs  $eb42                ; b0 06
eb3c: sta  KEYD,X               ; 9d 77 02
eb3f: inx                       ; e8
eb40: stx  NDX                  ; 86 c6
eb42: lda  #$7f                 ; a9 7f
eb44: sta  CIA1                 ; 8d 00 dc
eb47: rts                       ; 60
eb48: lda  SHFLAG               ; ad 8d 02
eb4b: cmp  #$03                 ; c9 03
eb4d: bne  $eb64                ; d0 15
eb4f: cmp  LSTSHF               ; cd 8e 02
eb52: beq  $eb42                ; f0 ee
eb54: lda  MODE                 ; ad 91 02
eb57: bmi  $eb76                ; 30 1d
eb59: lda  $d018                ; ad 18 d0
eb5c: eor  #$02                 ; 49 02
eb5e: sta  $d018                ; 8d 18 d0
eb61: jmp  $eb76                ; 4c 76 eb
eb64: asl  a                    ; 0a
eb65: cmp  #$08                 ; c9 08
eb67: bcc  $eb6b                ; 90 02
eb69: lda  #$06                 ; a9 06
eb6b: tax                       ; aa
eb6c: lda  $eb79,X              ; bd 79 eb
eb6f: sta  KEYTAB               ; 85 f5
eb71: lda  $eb7a,X              ; bd 7a eb
eb74: sta  KEYTAB+1             ; 85 f6
eb76: jmp  $eae0                ; 4c e0 ea
eb79: sta  ($eb,X)              ; 81 eb
eb7b: ???                       ; c2
eb7c: ???                       ; eb
eb7d: ???                       ; 03
eb7e: cpx  $ec78                ; ec 78 ec
eb81: ???                       ; 14
eb82: ora  $881d                ; 0d 1d 88
eb85: sta  $86                  ; 85 86
eb87: ???                       ; 87
eb88: ora  (FRETOP),Y           ; 11 33
eb8a: ???                       ; 57
eb8b: eor  (FRETOP+1,X)         ; 41 34
eb8d: ???                       ; 5a
eb8e: ???                       ; 53
eb8f: eor  R6510                ; 45 01
eb91: and  $52,X                ; 35 52
eb93: ???                       ; 44
eb94: rol  INPPTR,X             ; 36 43
eb96: lsr  JMPER                ; 46 54
eb98: cli                       ; 58
eb99: ???                       ; 37
eb9a: eor  $3847,Y              ; 59 47 38
eb9d: ???                       ; 42
eb9e: pha                       ; 48
eb9f: eor  $56,X                ; 55 56
eba1: and  $4a49,Y              ; 39 49 4a
eba4: bmi  $ebf3                ; 30 4d
eba6: ???                       ; 4b
eba7: ???                       ; 4f
eba8: lsr  $502b                ; 4e 2b 50
ebab: jmp  $2e2d                ; 4c 2d 2e
ebae: ???                       ; 3a
ebaf: rti                       ; 40
ebb0: bit  $2a5c                ; 2c 5c 2a
ebb3: ???                       ; 3b
ebb4: ???                       ; 13
ebb5: ora  (OLDTXT,X)           ; 01 3d
ebb7: lsr  $312f,X              ; 5e 2f 31
ebba: ???                       ; 5f
ebbb: ???                       ; 04
ebbc: ???                       ; 32
ebbd: jsr  $5102                ; 20 02 51
ebc0: ???                       ; 03
ebc1: ???                       ; ff
ebc2: sty  $8d,X                ; 94 8d
ebc4: sta  $898c,X              ; 9d 8c 89
ebc7: txa                       ; 8a
ebc8: ???                       ; 8b
ebc9: sta  (INDEX+1),Y          ; 91 23
ebcb: ???                       ; d7
ebcc: cmp  (INDEX2,X)           ; c1 24
ebce: ???                       ; da
ebcf: ???                       ; d3
ebd0: cmp  R6510                ; c5 01
ebd2: and  PNT+1                ; 25 d2
ebd4: cpy  RESHO                ; c4 26
ebd6: ???                       ; c3
ebd7: dec  QTSW                 ; c6 d4
ebd9: cld                       ; d8
ebda: ???                       ; 27
ebdb: cmp  $28c7,Y              ; d9 c7 28
ebde: ???                       ; c2
ebdf: iny                       ; c8
ebe0: cmp  TBLX,X               ; d5 d6
ebe2: and  #$c9                 ; 29 c9
ebe4: dex                       ; ca
ebe5: bmi  $ebb4                ; 30 cd
ebe7: ???                       ; cb
ebe8: ???                       ; cf
ebe9: dec  $d0db                ; ce db d0
ebec: cpy  $3edd                ; cc dd 3e
ebef: ???                       ; 5b
ebf0: tsx                       ; ba
ebf1: ???                       ; 3c
ebf2: lda  #$c0                 ; a9 c0
ebf4: eor  $0193,X              ; 5d 93 01
ebf7: and  $3fde,X              ; 3d de 3f
ebfa: and  ($5f,X)              ; 21 5f
ebfc: ???                       ; 04
ebfd: ???                       ; 22
ebfe: ldy  #$02                 ; a0 02
ec00: cmp  ($83),Y              ; d1 83
ec02: ???                       ; ff
ec03: sty  $8d,X                ; 94 8d
ec05: sta  $898c,X              ; 9d 8c 89
ec08: txa                       ; 8a
ec09: ???                       ; 8b
ec0a: sta  (SYNO),Y             ; 91 96
ec0c: ???                       ; b3
ec0d: bcs  $eba6                ; b0 97
ec0f: lda  $b1ae                ; ad ae b1
ec12: ora  (LDTND,X)            ; 01 98
ec14: ???                       ; b2
ec15: ldy  $bc99                ; ac 99 bc
ec18: ???                       ; bb
ec19: ???                       ; a3
ec1a: lda  $b79a,X              ; bd 9a b7
ec1d: lda  PRTY                 ; a5 9b
ec1f: ???                       ; bf
ec20: ldy  LA,X                 ; b4 b8
ec22: ldx  $a229,Y              ; be 29 a2
ec25: lda  ARYTAB+1,X           ; b5 30
ec27: ???                       ; a7
ec28: lda  (SA,X)               ; a1 b9
ec2a: tax                       ; aa
ec2b: ldx  EAL+1                ; a6 af
ec2d: ldx  $dc,Y                ; b6 dc
ec2f: rol  $a45b,X              ; 3e 5b a4
ec32: ???                       ; 3c
ec33: tay                       ; a8
ec34: ???                       ; df
ec35: eor  $0193,X              ; 5d 93 01
ec38: and  $3fde,X              ; 3d de 3f
ec3b: sta  ($5f,X)              ; 81 5f
ec3d: ???                       ; 04
ec3e: sta  TIME,X               ; 95 a0
ec40: ???                       ; 02
ec41: ???                       ; ab
ec42: ???                       ; 83
ec43: ???                       ; ff
ec44: cmp  #$0e                 ; c9 0e
ec46: bne  $ec4f                ; d0 07
ec48: lda  $d018                ; ad 18 d0
ec4b: ora  #$02                 ; 09 02
ec4d: bne  $ec58                ; d0 09
ec4f: cmp  #$8e                 ; c9 8e
ec51: bne  $ec5e                ; d0 0b
ec53: lda  $d018                ; ad 18 d0
ec56: and  #$fd                 ; 29 fd
ec58: sta  $d018                ; 8d 18 d0
ec5b: jmp  $e6a8                ; 4c a8 e6
ec5e: cmp  #$08                 ; c9 08
ec60: bne  $ec69                ; d0 07
ec62: lda  #$80                 ; a9 80
ec64: ora  MODE                 ; 0d 91 02
ec67: bmi  $ec72                ; 30 09
ec69: cmp  #$09                 ; c9 09
ec6b: bne  $ec5b                ; d0 ee
ec6d: lda  #$7f                 ; a9 7f
ec6f: and  MODE                 ; 2d 91 02
ec72: sta  MODE                 ; 8d 91 02
ec75: jmp  $e6a8                ; 4c a8 e6
ec78: ???                       ; ff
ec79: ???                       ; ff
ec7a: ???                       ; ff
ec7b: ???                       ; ff
ec7c: ???                       ; ff
ec7d: ???                       ; ff
ec7e: ???                       ; ff
ec7f: ???                       ; ff
ec80: ???                       ; 1c
ec81: ???                       ; 17
ec82: ora  (PTR2,X)             ; 01 9f
ec84: ???                       ; 1a
ec85: ???                       ; 13
ec86: ora  BASZPT               ; 05 ff
ec88: ???                       ; 9c
ec89: ???                       ; 12
ec8a: ???                       ; 04
ec8b: asl  $0603,X              ; 1e 03 06
ec8e: ???                       ; 14
ec8f: clc                       ; 18
ec90: ???                       ; 1f
ec91: ora  $9e07,Y              ; 19 07 9e
ec94: ???                       ; 02
ec95: php                       ; 08
ec96: ora  TEMPPT,X             ; 15 16
ec98: ???                       ; 12
ec99: ora  #$0a                 ; 09 0a
ec9b: ???                       ; 92
ec9c: ora  $0f0b                ; 0d 0b 0f
ec9f: asl  $10ff                ; 0e ff 10
eca2: ???                       ; 0c
eca3: ???                       ; ff
eca4: ???                       ; ff
eca5: ???                       ; 1b
eca6: brk                       ; 00
eca7: ???                       ; ff
eca8: ???                       ; 1c
eca9: ???                       ; ff
ecaa: ora  VECT_IRQ+1,X         ; 1d ff ff
ecad: ???                       ; 1f
ecae: asl  $90ff,X              ; 1e ff 90
ecb1: asl  BASZPT               ; 06 ff
ecb3: ora  BASZPT               ; 05 ff
ecb5: ???                       ; ff
ecb6: ora  (BASZPT),Y           ; 11 ff
ecb8: ???                       ; ff
ecb9: brk                       ; 00
ecba: brk                       ; 00
ecbb: brk                       ; 00
ecbc: brk                       ; 00
ecbd: brk                       ; 00
ecbe: brk                       ; 00
ecbf: brk                       ; 00
ecc0: brk                       ; 00
ecc1: brk                       ; 00
ecc2: brk                       ; 00
ecc3: brk                       ; 00
ecc4: brk                       ; 00
ecc5: brk                       ; 00
ecc6: brk                       ; 00
ecc7: brk                       ; 00
ecc8: brk                       ; 00
ecc9: brk                       ; 00
ecca: ???                       ; 9b
eccb: ???                       ; 37
eccc: brk                       ; 00
eccd: brk                       ; 00
ecce: brk                       ; 00
eccf: php                       ; 08
ecd0: brk                       ; 00
ecd1: ???                       ; 14
ecd2: ???                       ; 0f
ecd3: brk                       ; 00
ecd4: brk                       ; 00
ecd5: brk                       ; 00
ecd6: brk                       ; 00
ecd7: brk                       ; 00
ecd8: brk                       ; 00
ecd9: asl  $0106                ; 0e 06 01
ecdc: ???                       ; 02
ecdd: ???                       ; 03
ecde: ???                       ; 04
ecdf: brk                       ; 00
ece0: ora  ($02,X)              ; 01 02
ece2: ???                       ; 03
ece3: ???                       ; 04
ece4: ora  ADRAY2+1             ; 05 06
ece6: ???                       ; 07
ece7: jmp  $414f                ; 4c 4f 41
ecea: ???                       ; 44
eceb: ora  $5552                ; 0d 52 55
ecee: lsr  VALTYP               ; 4e 0d 00
ecf1: plp                       ; 28
ecf2: bvc  $ed6c                ; 50 78
ecf4: ldy  #$c8                 ; a0 c8
ecf6: beq  $ed10                ; f0 18
ecf8: rti                       ; 40
ecf9: pla                       ; 68
ecfa: bcc  $ecb4                ; 90 b8
ecfc: cpx  #$08                 ; e0 08
ecfe: bmi  $ed58                ; 30 58
ed00: ???                       ; 80
ed01: tay                       ; a8
ed02: bne  $ecfc                ; d0 f8
ed04: jsr  $7048                ; 20 48 70
ed07: tya                       ; 98
ed08: cpy  #$09                 ; c0 09
ed0a: rti                       ; 40
ed0b: bit  $2009                ; 2c 09 20
ed0e: jsr  $f0a4                ; 20 a4 f0
ed11: pha                       ; 48
ed12: bit  C3PO                 ; 24 94
ed14: bpl  $ed20                ; 10 0a
ed16: sec                       ; 38
ed17: ror  TSFCNT               ; 66 a3
ed19: jsr  listn_send_serial    ; 20 40 ed
ed1c: lsr  C3PO                 ; 46 94
ed1e: lsr  TSFCNT               ; 46 a3
ed20: pla                       ; 68
ed21: sta  BSOUR                ; 85 95
ed23: sei                       ; 78
ed24: jsr  $ee97                ; 20 97 ee
ed27: cmp  #$3f                 ; c9 3f
ed29: bne  $ed2e                ; d0 03
ed2b: jsr  $ee85                ; 20 85 ee
ed2e: lda  CIA2                 ; ad 00 dd
ed31: ora  #$08                 ; 09 08
ed33: sta  CIA2                 ; 8d 00 dd
ed36: sei                       ; 78
ed37: jsr  $ee8e                ; 20 8e ee
ed3a: jsr  $ee97                ; 20 97 ee
ed3d: jsr  $eeb3                ; 20 b3 ee
listn_send_serial: *** Send data on serial bus
ed40: sei                       ; 78
ed41: jsr  $ee97                ; 20 97 ee
ed44: jsr  $eea9                ; 20 a9 ee
ed47: bcs  listn_flag_error     ; b0 64
ed49: jsr  $ee85                ; 20 85 ee
ed4c: bit  TSFCNT               ; 24 a3
ed4e: bpl  $ed5a                ; 10 0a
ed50: jsr  $eea9                ; 20 a9 ee
ed53: bcc  $ed50                ; 90 fb
ed55: jsr  $eea9                ; 20 a9 ee
ed58: bcs  $ed55                ; b0 fb
ed5a: jsr  $eea9                ; 20 a9 ee
ed5d: bcc  $ed5a                ; 90 fb
ed5f: jsr  $ee8e                ; 20 8e ee
ed62: lda  #$08                 ; a9 08
ed64: sta  CNTDN                ; 85 a5
ed66: lda  CIA2                 ; ad 00 dd
ed69: cmp  CIA2                 ; cd 00 dd
ed6c: bne  $ed66                ; d0 f8
ed6e: asl  a                    ; 0a
ed6f: bcc  $edb0                ; 90 3f
ed71: ror  BSOUR                ; 66 95
ed73: bcs  $ed7a                ; b0 05
ed75: jsr  $eea0                ; 20 a0 ee
ed78: bne  $ed7d                ; d0 03
ed7a: jsr  $ee97                ; 20 97 ee
ed7d: jsr  $ee85                ; 20 85 ee
ed80: nop                       ; ea
ed81: nop                       ; ea
ed82: nop                       ; ea
ed83: nop                       ; ea
ed84: lda  CIA2                 ; ad 00 dd
ed87: and  #$df                 ; 29 df
ed89: ora  #$10                 ; 09 10
ed8b: sta  CIA2                 ; 8d 00 dd
ed8e: dec  CNTDN                ; c6 a5
ed90: bne  $ed66                ; d0 d4
ed92: lda  #$04                 ; a9 04
ed94: sta  $dc07                ; 8d 07 dc
ed97: lda  #$19                 ; a9 19
ed99: sta  $dc0f                ; 8d 0f dc
ed9c: lda  $dc0d                ; ad 0d dc
ed9f: lda  $dc0d                ; ad 0d dc
eda2: and  #$02                 ; 29 02
eda4: bne  $edb0                ; d0 0a
eda6: jsr  $eea9                ; 20 a9 ee
eda9: bcs  $ed9f                ; b0 f4
edab: cli                       ; 58
edac: rts                       ; 60
listn_flag_error: *** Flag error
edad: lda  #$80                 ; a9 80
edaf: bit  $03a9                ; 2c a9 03
edb2: jsr  $fe1c                ; 20 1c fe
edb5: cli                       ; 58
edb6: clc                       ; 18
edb7: bcc  $ee03                ; 90 4a
second: *** Send LISTEN Secondary Address
edb9: sta  BSOUR                ; 85 95
edbb: jsr  $ed36                ; 20 36 ed
edbe: lda  CIA2                 ; ad 00 dd
edc1: and  #$f7                 ; 29 f7
edc3: sta  CIA2                 ; 8d 00 dd
edc6: rts                       ; 60
tksa: *** Send TALK Secondary Address
edc7: sta  BSOUR                ; 85 95
edc9: jsr  $ed36                ; 20 36 ed
edcc: sei                       ; 78
edcd: jsr  $eea0                ; 20 a0 ee
edd0: jsr  $edbe                ; 20 be ed
edd3: jsr  $ee85                ; 20 85 ee
edd6: jsr  $eea9                ; 20 a9 ee
edd9: bmi  $edd6                ; 30 fb
eddb: cli                       ; 58
eddc: rts                       ; 60
ciout: *** Send Serial Deferred
eddd: bit  C3PO                 ; 24 94
eddf: bmi  $ede6                ; 30 05
ede1: sec                       ; 38
ede2: ror  C3PO                 ; 66 94
ede4: bne  $edeb                ; d0 05
ede6: pha                       ; 48
ede7: jsr  listn_send_serial    ; 20 40 ed
edea: pla                       ; 68
edeb: sta  BSOUR                ; 85 95
eded: clc                       ; 18
edee: rts                       ; 60
untlk: *** Send UNTALK / UNLISTEN
edef: sei                       ; 78
edf0: jsr  $ee8e                ; 20 8e ee
edf3: lda  CIA2                 ; ad 00 dd
edf6: ora  #$08                 ; 09 08
edf8: sta  CIA2                 ; 8d 00 dd
edfb: lda  #$5f                 ; a9 5f
edfd: bit  $3fa9                ; 2c a9 3f
ee00: jsr  $ed11                ; 20 11 ed
ee03: jsr  $edbe                ; 20 be ed
ee06: txa                       ; 8a
ee07: ldx  #$0a                 ; a2 0a
ee09: dex                       ; ca
ee0a: bne  $ee09                ; d0 fd
ee0c: tax                       ; aa
ee0d: jsr  $ee85                ; 20 85 ee
ee10: jmp  $ee97                ; 4c 97 ee
acptr: *** Receive From Serial Bus
ee13: sei                       ; 78
ee14: lda  #$00                 ; a9 00
ee16: sta  CNTDN                ; 85 a5
ee18: jsr  $ee85                ; 20 85 ee
ee1b: jsr  $eea9                ; 20 a9 ee
ee1e: bpl  $ee1b                ; 10 fb
ee20: lda  #$01                 ; a9 01
ee22: sta  $dc07                ; 8d 07 dc
ee25: lda  #$19                 ; a9 19
ee27: sta  $dc0f                ; 8d 0f dc
ee2a: jsr  $ee97                ; 20 97 ee
ee2d: lda  $dc0d                ; ad 0d dc
ee30: lda  $dc0d                ; ad 0d dc
ee33: and  #$02                 ; 29 02
ee35: bne  $ee3e                ; d0 07
ee37: jsr  $eea9                ; 20 a9 ee
ee3a: bmi  $ee30                ; 30 f4
ee3c: bpl  $ee56                ; 10 18
ee3e: lda  CNTDN                ; a5 a5
ee40: beq  $ee47                ; f0 05
ee42: lda  #$02                 ; a9 02
ee44: jmp  $edb2                ; 4c b2 ed
ee47: jsr  $eea0                ; 20 a0 ee
ee4a: jsr  $ee85                ; 20 85 ee
ee4d: lda  #$40                 ; a9 40
ee4f: jsr  $fe1c                ; 20 1c fe
ee52: inc  CNTDN                ; e6 a5
ee54: bne  $ee20                ; d0 ca
ee56: lda  #$08                 ; a9 08
ee58: sta  CNTDN                ; 85 a5
ee5a: lda  CIA2                 ; ad 00 dd
ee5d: cmp  CIA2                 ; cd 00 dd
ee60: bne  $ee5a                ; d0 f8
ee62: asl  a                    ; 0a
ee63: bpl  $ee5a                ; 10 f5
ee65: ror  TBTCNT               ; 66 a4
ee67: lda  CIA2                 ; ad 00 dd
ee6a: cmp  CIA2                 ; cd 00 dd
ee6d: bne  $ee67                ; d0 f8
ee6f: asl  a                    ; 0a
ee70: bmi  $ee67                ; 30 f5
ee72: dec  CNTDN                ; c6 a5
ee74: bne  $ee5a                ; d0 e4
ee76: jsr  $eea0                ; 20 a0 ee
ee79: bit  STATUS               ; 24 90
ee7b: bvc  $ee80                ; 50 03
ee7d: jsr  $ee06                ; 20 06 ee
ee80: lda  TBTCNT               ; a5 a4
ee82: cli                       ; 58
ee83: clc                       ; 18
ee84: rts                       ; 60
ee85: lda  CIA2                 ; ad 00 dd
ee88: and  #$ef                 ; 29 ef
ee8a: sta  CIA2                 ; 8d 00 dd
ee8d: rts                       ; 60
ee8e: lda  CIA2                 ; ad 00 dd
ee91: ora  #$10                 ; 09 10
ee93: sta  CIA2                 ; 8d 00 dd
ee96: rts                       ; 60
ee97: lda  CIA2                 ; ad 00 dd
ee9a: and  #$df                 ; 29 df
ee9c: sta  CIA2                 ; 8d 00 dd
ee9f: rts                       ; 60
eea0: lda  CIA2                 ; ad 00 dd
eea3: ora  #$20                 ; 09 20
eea5: sta  CIA2                 ; 8d 00 dd
eea8: rts                       ; 60
eea9: lda  CIA2                 ; ad 00 dd
eeac: cmp  CIA2                 ; cd 00 dd
eeaf: bne  $eea9                ; d0 f8
eeb1: asl  a                    ; 0a
eeb2: rts                       ; 60
eeb3: txa                       ; 8a
eeb4: ldx  #$b8                 ; a2 b8
eeb6: dex                       ; ca
eeb7: bne  $eeb6                ; d0 fd
eeb9: tax                       ; aa
eeba: rts                       ; 60
eebb: lda  BITTS                ; a5 b4
eebd: beq  $ef06                ; f0 47
eebf: bmi  $ef00                ; 30 3f
eec1: lsr  RODATA               ; 46 b6
eec3: ldx  #$00                 ; a2 00
eec5: bcc  $eec8                ; 90 01
eec7: dex                       ; ca
eec8: txa                       ; 8a
eec9: eor  ROPRTY               ; 45 bd
eecb: sta  ROPRTY               ; 85 bd
eecd: dec  BITTS                ; c6 b4
eecf: beq  $eed7                ; f0 06
eed1: txa                       ; 8a
eed2: and  #$04                 ; 29 04
eed4: sta  NXTBIT               ; 85 b5
eed6: rts                       ; 60
eed7: lda  #$20                 ; a9 20
eed9: bit  M51CDR               ; 2c 94 02
eedc: beq  $eef2                ; f0 14
eede: bmi  $eefc                ; 30 1c
eee0: bvs  $eef6                ; 70 14
eee2: lda  ROPRTY               ; a5 bd
eee4: bne  $eee7                ; d0 01
eee6: dex                       ; ca
eee7: dec  BITTS                ; c6 b4
eee9: lda  M51CTR               ; ad 93 02
eeec: bpl  $eed1                ; 10 e3
eeee: dec  BITTS                ; c6 b4
eef0: bne  $eed1                ; d0 df
eef2: inc  BITTS                ; e6 b4
eef4: bne  $eee6                ; d0 f0
eef6: lda  ROPRTY               ; a5 bd
eef8: beq  $eee7                ; f0 ed
eefa: bne  $eee6                ; d0 ea
eefc: bvs  $eee7                ; 70 e9
eefe: bvc  $eee6                ; 50 e6
ef00: inc  BITTS                ; e6 b4
ef02: ldx  #$ff                 ; a2 ff
ef04: bne  $eed1                ; d0 cb
ef06: lda  M51CDR               ; ad 94 02
ef09: lsr  a                    ; 4a
ef0a: bcc  $ef13                ; 90 07
ef0c: bit  $dd01                ; 2c 01 dd
ef0f: bpl  $ef2e                ; 10 1d
ef11: bvc  $ef31                ; 50 1e
ef13: lda  #$00                 ; a9 00
ef15: sta  ROPRTY               ; 85 bd
ef17: sta  NXTBIT               ; 85 b5
ef19: ldx  BITNUM               ; ae 98 02
ef1c: stx  BITTS                ; 86 b4
ef1e: ldy  RODBS                ; ac 9d 02
ef21: cpy  RODBE                ; cc 9e 02
ef24: beq  $ef39                ; f0 13
ef26: lda  (ROBUF),Y            ; b1 f9
ef28: sta  RODATA               ; 85 b6
ef2a: inc  RODBS                ; ee 9d 02
ef2d: rts                       ; 60
ef2e: lda  #$40                 ; a9 40
ef30: bit  $10a9                ; 2c a9 10
ef33: ora  RSSTAT               ; 0d 97 02
ef36: sta  RSSTAT               ; 8d 97 02
ef39: lda  #$01                 ; a9 01
ef3b: sta  $dd0d                ; 8d 0d dd
ef3e: eor  ENABL                ; 4d a1 02
ef41: ora  #$80                 ; 09 80
ef43: sta  ENABL                ; 8d a1 02
ef46: sta  $dd0d                ; 8d 0d dd
ef49: rts                       ; 60
ef4a: ldx  #$09                 ; a2 09
ef4c: lda  #$20                 ; a9 20
ef4e: bit  M51CTR               ; 2c 93 02
ef51: beq  $ef54                ; f0 01
ef53: dex                       ; ca
ef54: bvc  $ef58                ; 50 02
ef56: dex                       ; ca
ef57: dex                       ; ca
ef58: rts                       ; 60
ef59: ldx  RINONE               ; a6 a9
ef5b: bne  $ef90                ; d0 33
ef5d: dec  BITC1                ; c6 a8
ef5f: beq  $ef97                ; f0 36
ef61: bmi  $ef70                ; 30 0d
ef63: lda  INBIT                ; a5 a7
ef65: eor  RIPRTY               ; 45 ab
ef67: sta  RIPRTY               ; 85 ab
ef69: lsr  INBIT                ; 46 a7
ef6b: ror  RIDATA               ; 66 aa
ef6d: rts                       ; 60
ef6e: dec  BITC1                ; c6 a8
ef70: lda  INBIT                ; a5 a7
ef72: beq  $efdb                ; f0 67
ef74: lda  M51CTR               ; ad 93 02
ef77: asl  a                    ; 0a
ef78: lda  #$01                 ; a9 01
ef7a: adc  BITC1                ; 65 a8
ef7c: bne  $ef6d                ; d0 ef
ef7e: lda  #$90                 ; a9 90
ef80: sta  $dd0d                ; 8d 0d dd
ef83: ora  ENABL                ; 0d a1 02
ef86: sta  ENABL                ; 8d a1 02
ef89: sta  RINONE               ; 85 a9
ef8b: lda  #$02                 ; a9 02
ef8d: jmp  $ef3b                ; 4c 3b ef
ef90: lda  INBIT                ; a5 a7
ef92: bne  $ef7e                ; d0 ea
ef94: jmp  $e4d3                ; 4c d3 e4
ef97: ldy  RIDBE                ; ac 9b 02
ef9a: iny                       ; c8
ef9b: cpy  RIDBS                ; cc 9c 02
ef9e: beq  $efca                ; f0 2a
efa0: sty  RIDBE                ; 8c 9b 02
efa3: dey                       ; 88
efa4: lda  RIDATA               ; a5 aa
efa6: ldx  BITNUM               ; ae 98 02
efa9: cpx  #$09                 ; e0 09
efab: beq  $efb1                ; f0 04
efad: lsr  a                    ; 4a
efae: inx                       ; e8
efaf: bne  $efa9                ; d0 f8
efb1: sta  (RIBUF),Y            ; 91 f7
efb3: lda  #$20                 ; a9 20
efb5: bit  M51CDR               ; 2c 94 02
efb8: beq  $ef6e                ; f0 b4
efba: bmi  $ef6d                ; 30 b1
efbc: lda  INBIT                ; a5 a7
efbe: eor  RIPRTY               ; 45 ab
efc0: beq  $efc5                ; f0 03
efc2: bvs  $ef6d                ; 70 a9
efc4: bit  $a650                ; 2c 50 a6
efc7: lda  #$01                 ; a9 01
efc9: bit  $04a9                ; 2c a9 04
efcc: bit  $80a9                ; 2c a9 80
efcf: bit  $02a9                ; 2c a9 02
efd2: ora  RSSTAT               ; 0d 97 02
efd5: sta  RSSTAT               ; 8d 97 02
efd8: jmp  $ef7e                ; 4c 7e ef
efdb: lda  RIDATA               ; a5 aa
efdd: bne  $efd0                ; d0 f1
efdf: beq  $efcd                ; f0 ec
efe1: sta  DFLTO                ; 85 9a
efe3: lda  M51CDR               ; ad 94 02
efe6: lsr  a                    ; 4a
efe7: bcc  $f012                ; 90 29
efe9: lda  #$02                 ; a9 02
efeb: bit  $dd01                ; 2c 01 dd
efee: bpl  $f00d                ; 10 1d
eff0: bne  $f012                ; d0 20
eff2: lda  ENABL                ; ad a1 02
eff5: and  #$02                 ; 29 02
eff7: bne  $eff2                ; d0 f9
eff9: bit  $dd01                ; 2c 01 dd
effc: bvs  $eff9                ; 70 fb
effe: lda  $dd01                ; ad 01 dd
f001: ora  #$02                 ; 09 02
f003: sta  $dd01                ; 8d 01 dd
f006: bit  $dd01                ; 2c 01 dd
f009: bvs  $f012                ; 70 07
f00b: bmi  $f006                ; 30 f9
f00d: lda  #$40                 ; a9 40
f00f: sta  RSSTAT               ; 8d 97 02
f012: clc                       ; 18
f013: rts                       ; 60
f014: jsr  $f028                ; 20 28 f0
f017: ldy  RODBE                ; ac 9e 02
f01a: iny                       ; c8
f01b: cpy  RODBS                ; cc 9d 02
f01e: beq  $f014                ; f0 f4
f020: sty  RODBE                ; 8c 9e 02
f023: dey                       ; 88
f024: lda  FNMIDX               ; a5 9e
f026: sta  (ROBUF),Y            ; 91 f9
f028: lda  ENABL                ; ad a1 02
f02b: lsr  a                    ; 4a
f02c: bcs  $f04c                ; b0 1e
f02e: lda  #$10                 ; a9 10
f030: sta  $dd0e                ; 8d 0e dd
f033: lda  BAUDOF               ; ad 99 02
f036: sta  $dd04                ; 8d 04 dd
f039: lda  BAUDOF+1             ; ad 9a 02
f03c: sta  $dd05                ; 8d 05 dd
f03f: lda  #$81                 ; a9 81
f041: jsr  $ef3b                ; 20 3b ef
f044: jsr  $ef06                ; 20 06 ef
f047: lda  #$11                 ; a9 11
f049: sta  $dd0e                ; 8d 0e dd
f04c: rts                       ; 60
f04d: sta  DFLTN                ; 85 99
f04f: lda  M51CDR               ; ad 94 02
f052: lsr  a                    ; 4a
f053: bcc  $f07d                ; 90 28
f055: and  #$08                 ; 29 08
f057: beq  $f07d                ; f0 24
f059: lda  #$02                 ; a9 02
f05b: bit  $dd01                ; 2c 01 dd
f05e: bpl  $f00d                ; 10 ad
f060: beq  $f084                ; f0 22
f062: lda  ENABL                ; ad a1 02
f065: lsr  a                    ; 4a
f066: bcs  $f062                ; b0 fa
f068: lda  $dd01                ; ad 01 dd
f06b: and  #$fd                 ; 29 fd
f06d: sta  $dd01                ; 8d 01 dd
f070: lda  $dd01                ; ad 01 dd
f073: and  #$04                 ; 29 04
f075: beq  $f070                ; f0 f9
f077: lda  #$90                 ; a9 90
f079: clc                       ; 18
f07a: jmp  $ef3b                ; 4c 3b ef
f07d: lda  ENABL                ; ad a1 02
f080: and  #$12                 ; 29 12
f082: beq  $f077                ; f0 f3
f084: clc                       ; 18
f085: rts                       ; 60
f086: lda  RSSTAT               ; ad 97 02
f089: ldy  RIDBS                ; ac 9c 02
f08c: cpy  RIDBE                ; cc 9b 02
f08f: beq  $f09c                ; f0 0b
f091: and  #$f7                 ; 29 f7
f093: sta  RSSTAT               ; 8d 97 02
f096: lda  (RIBUF),Y            ; b1 f7
f098: inc  RIDBS                ; ee 9c 02
f09b: rts                       ; 60
f09c: ora  #$08                 ; 09 08
f09e: sta  RSSTAT               ; 8d 97 02
f0a1: lda  #$00                 ; a9 00
f0a3: rts                       ; 60
f0a4: pha                       ; 48
f0a5: lda  ENABL                ; ad a1 02
f0a8: beq  $f0bb                ; f0 11
f0aa: lda  ENABL                ; ad a1 02
f0ad: and  #$03                 ; 29 03
f0af: bne  $f0aa                ; d0 f9
f0b1: lda  #$10                 ; a9 10
f0b3: sta  $dd0d                ; 8d 0d dd
f0b6: lda  #$00                 ; a9 00
f0b8: sta  ENABL                ; 8d a1 02
f0bb: pla                       ; 68
f0bc: rts                       ; 60
f0bd: ora  $2f49                ; 0d 49 2f
f0c0: ???                       ; 4f
f0c1: jsr  $5245                ; 20 45 52
f0c4: ???                       ; 52
f0c5: ???                       ; 4f
f0c6: ???                       ; 52
f0c7: jsr  $0da3                ; 20 a3 0d
f0ca: ???                       ; 53
f0cb: eor  DATPTR               ; 45 41
f0cd: ???                       ; 52
f0ce: ???                       ; 43
f0cf: pha                       ; 48
f0d0: eor  #$4e                 ; 49 4e
f0d2: ???                       ; 47
f0d3: ldy  #$46                 ; a0 46
f0d5: ???                       ; 4f
f0d6: ???                       ; 52
f0d7: ldy  #$0d                 ; a0 0d
f0d9: bvc  $f12d                ; 50 52
f0db: eor  FOUR6                ; 45 53
f0dd: ???                       ; 53
f0de: jsr  $4c50                ; 20 50 4c
f0e1: eor  ($59,X)              ; 41 59
f0e3: jsr  $4e4f                ; 20 4f 4e
f0e6: jsr  $4154                ; 20 54 41
f0e9: bvc  $f0b0                ; 50 c5
f0eb: bvc  $f13f                ; 50 52
f0ed: eor  FOUR6                ; 45 53
f0ef: ???                       ; 53
f0f0: jsr  $4552                ; 20 52 45
f0f3: ???                       ; 43
f0f4: ???                       ; 4f
f0f5: ???                       ; 52
f0f6: ???                       ; 44
f0f7: jsr  $2026                ; 20 26 20
f0fa: bvc  $f148                ; 50 4c
f0fc: eor  ($59,X)              ; 41 59
f0fe: jsr  $4e4f                ; 20 4f 4e
f101: jsr  $4154                ; 20 54 41
f104: bvc  $f0cb                ; 50 c5
f106: ora  $4f4c                ; 0d 4c 4f
f109: eor  (INPPTR+1,X)         ; 41 44
f10b: eor  #$4e                 ; 49 4e
f10d: ???                       ; c7
f10e: ora  $4153                ; 0d 53 41
f111: lsr  FORPNT,X             ; 56 49
f113: lsr  $a047                ; 4e 47 a0
f116: ora  $4556                ; 0d 56 45
f119: ???                       ; 52
f11a: eor  #$46                 ; 49 46
f11c: eor  $4e49,Y              ; 59 49 4e
f11f: ???                       ; c7
f120: ora  $4f46                ; 0d 46 4f
f123: eor  TEMPF3,X             ; 55 4e
f125: ???                       ; 44
f126: ldy  #$0d                 ; a0 0d
f128: ???                       ; 4f
f129: ???                       ; 4b
f12a: sta  $9d24                ; 8d 24 9d
f12d: bpl  $f13c                ; 10 0d
f12f: lda  $f0bd,Y              ; b9 bd f0
f132: php                       ; 08
f133: and  #$7f                 ; 29 7f
f135: jsr  VECT_(ichrout)       ; 20 d2 ff
f138: iny                       ; c8
f139: plp                       ; 28
f13a: bpl  $f12f                ; 10 f3
f13c: clc                       ; 18
f13d: rts                       ; 60
getin: *** Get a byte
f13e: lda  DFLTN                ; a5 99
f140: bne  $f14a                ; d0 08
f142: lda  NDX                  ; a5 c6
f144: beq  $f155                ; f0 0f
f146: sei                       ; 78
f147: jmp  lp2                  ; 4c b4 e5
f14a: cmp  #$02                 ; c9 02
f14c: bne  $f166                ; d0 18
f14e: sty  TEMPXY               ; 84 97
f150: jsr  $f086                ; 20 86 f0
f153: ldy  TEMPXY               ; a4 97
f155: clc                       ; 18
f156: rts                       ; 60
chrin: *** Input a byte
f157: lda  DFLTN                ; a5 99
f159: bne  $f166                ; d0 0b
f15b: lda  PNTR                 ; a5 d3
f15d: sta  LXSP+1               ; 85 ca
f15f: lda  TBLX                 ; a5 d6
f161: sta  LXSP                 ; 85 c9
f163: jmp  $e632                ; 4c 32 e6
f166: cmp  #$03                 ; c9 03
f168: bne  $f173                ; d0 09
f16a: sta  CRSW                 ; 85 d0
f16c: lda  LNMX                 ; a5 d5
f16e: sta  INDX                 ; 85 c8
f170: jmp  $e632                ; 4c 32 e6
f173: bcs  $f1ad                ; b0 38
f175: cmp  #$02                 ; c9 02
f177: beq  $f1b8                ; f0 3f
f179: stx  TEMPXY               ; 86 97
f17b: jsr  $f199                ; 20 99 f1
f17e: bcs  $f196                ; b0 16
f180: pha                       ; 48
f181: jsr  $f199                ; 20 99 f1
f184: bcs  $f193                ; b0 0d
f186: bne  $f18d                ; d0 05
f188: lda  #$40                 ; a9 40
f18a: jsr  $fe1c                ; 20 1c fe
f18d: dec  BUFPNT               ; c6 a6
f18f: ldx  TEMPXY               ; a6 97
f191: pla                       ; 68
f192: rts                       ; 60
f193: tax                       ; aa
f194: pla                       ; 68
f195: txa                       ; 8a
f196: ldx  TEMPXY               ; a6 97
f198: rts                       ; 60
f199: jsr  $f80d                ; 20 0d f8
f19c: bne  $f1a9                ; d0 0b
f19e: jsr  $f841                ; 20 41 f8
f1a1: bcs  $f1b4                ; b0 11
f1a3: lda  #$00                 ; a9 00
f1a5: sta  BUFPNT               ; 85 a6
f1a7: beq  $f199                ; f0 f0
f1a9: lda  (TAPE1),Y            ; b1 b2
f1ab: clc                       ; 18
f1ac: rts                       ; 60
f1ad: lda  STATUS               ; a5 90
f1af: beq  $f1b5                ; f0 04
f1b1: lda  #$0d                 ; a9 0d
f1b3: clc                       ; 18
f1b4: rts                       ; 60
f1b5: jmp  acptr                ; 4c 13 ee
f1b8: jsr  $f14e                ; 20 4e f1
f1bb: bcs  $f1b4                ; b0 f7
f1bd: cmp  #$00                 ; c9 00
f1bf: bne  $f1b3                ; d0 f2
f1c1: lda  RSSTAT               ; ad 97 02
f1c4: and  #$60                 ; 29 60
f1c6: bne  $f1b1                ; d0 e9
f1c8: beq  $f1b8                ; f0 ee
chrout: *** Output One Character
f1ca: pha                       ; 48
f1cb: lda  DFLTO                ; a5 9a
f1cd: cmp  #$03                 ; c9 03
f1cf: bne  $f1d5                ; d0 04
f1d1: pla                       ; 68
f1d2: jmp  $e716                ; 4c 16 e7
f1d5: bcc  $f1db                ; 90 04
f1d7: pla                       ; 68
f1d8: jmp  ciout                ; 4c dd ed
f1db: lsr  a                    ; 4a
f1dc: pla                       ; 68
f1dd: sta  FNMIDX               ; 85 9e
f1df: txa                       ; 8a
f1e0: pha                       ; 48
f1e1: tya                       ; 98
f1e2: pha                       ; 48
f1e3: bcc  $f208                ; 90 23
f1e5: jsr  $f80d                ; 20 0d f8
f1e8: bne  $f1f8                ; d0 0e
f1ea: jsr  $f864                ; 20 64 f8
f1ed: bcs  $f1fd                ; b0 0e
f1ef: lda  #$02                 ; a9 02
f1f1: ldy  #$00                 ; a0 00
f1f3: sta  (TAPE1),Y            ; 91 b2
f1f5: iny                       ; c8
f1f6: sty  BUFPNT               ; 84 a6
f1f8: lda  FNMIDX               ; a5 9e
f1fa: sta  (TAPE1),Y            ; 91 b2
f1fc: clc                       ; 18
f1fd: pla                       ; 68
f1fe: tay                       ; a8
f1ff: pla                       ; 68
f200: tax                       ; aa
f201: lda  FNMIDX               ; a5 9e
f203: bcc  $f207                ; 90 02
f205: lda  #$00                 ; a9 00
f207: rts                       ; 60
f208: jsr  $f017                ; 20 17 f0
f20b: jmp  $f1fc                ; 4c fc f1
chkin: *** Set Input Device
f20e: jsr  $f30f                ; 20 0f f3
f211: beq  $f216                ; f0 03
f213: jmp  $f701                ; 4c 01 f7
f216: jsr  $f31f                ; 20 1f f3
f219: lda  FA                   ; a5 ba
f21b: beq  $f233                ; f0 16
f21d: cmp  #$03                 ; c9 03
f21f: beq  $f233                ; f0 12
f221: bcs  $f237                ; b0 14
f223: cmp  #$02                 ; c9 02
f225: bne  $f22a                ; d0 03
f227: jmp  $f04d                ; 4c 4d f0
f22a: ldx  SA                   ; a6 b9
f22c: cpx  #$60                 ; e0 60
f22e: beq  $f233                ; f0 03
f230: jmp  $f70a                ; 4c 0a f7
f233: sta  DFLTN                ; 85 99
f235: clc                       ; 18
f236: rts                       ; 60
f237: tax                       ; aa
f238: jsr  talk                 ; 20 09 ed
f23b: lda  SA                   ; a5 b9
f23d: bpl  $f245                ; 10 06
f23f: jsr  $edcc                ; 20 cc ed
f242: jmp  $f248                ; 4c 48 f2
f245: jsr  tksa                 ; 20 c7 ed
f248: txa                       ; 8a
f249: bit  STATUS               ; 24 90
f24b: bpl  $f233                ; 10 e6
f24d: jmp  $f707                ; 4c 07 f7
chkout: *** Set Output Device
f250: jsr  $f30f                ; 20 0f f3
f253: beq  $f258                ; f0 03
f255: jmp  $f701                ; 4c 01 f7
f258: jsr  $f31f                ; 20 1f f3
f25b: lda  FA                   ; a5 ba
f25d: bne  $f262                ; d0 03
f25f: jmp  $f70d                ; 4c 0d f7
f262: cmp  #$03                 ; c9 03
f264: beq  $f275                ; f0 0f
f266: bcs  $f279                ; b0 11
f268: cmp  #$02                 ; c9 02
f26a: bne  $f26f                ; d0 03
f26c: jmp  $efe1                ; 4c e1 ef
f26f: ldx  SA                   ; a6 b9
f271: cpx  #$60                 ; e0 60
f273: beq  $f25f                ; f0 ea
f275: sta  DFLTO                ; 85 9a
f277: clc                       ; 18
f278: rts                       ; 60
f279: tax                       ; aa
f27a: jsr  listn                ; 20 0c ed
f27d: lda  SA                   ; a5 b9
f27f: bpl  $f286                ; 10 05
f281: jsr  $edbe                ; 20 be ed
f284: bne  $f289                ; d0 03
f286: jsr  second               ; 20 b9 ed
f289: txa                       ; 8a
f28a: bit  STATUS               ; 24 90
f28c: bpl  $f275                ; 10 e7
f28e: jmp  $f707                ; 4c 07 f7
close: *** Close File
f291: jsr  $f314                ; 20 14 f3
f294: beq  $f298                ; f0 02
f296: clc                       ; 18
f297: rts                       ; 60
f298: jsr  $f31f                ; 20 1f f3
f29b: txa                       ; 8a
f29c: pha                       ; 48
f29d: lda  FA                   ; a5 ba
f29f: beq  $f2f1                ; f0 50
f2a1: cmp  #$03                 ; c9 03
f2a3: beq  $f2f1                ; f0 4c
f2a5: bcs  $f2ee                ; b0 47
f2a7: cmp  #$02                 ; c9 02
f2a9: bne  $f2c8                ; d0 1d
f2ab: pla                       ; 68
f2ac: jsr  $f2f2                ; 20 f2 f2
f2af: jsr  $f483                ; 20 83 f4
f2b2: jsr  $fe27                ; 20 27 fe
f2b5: lda  RIBUF+1              ; a5 f8
f2b7: beq  $f2ba                ; f0 01
f2b9: iny                       ; c8
f2ba: lda  ROBUF+1              ; a5 fa
f2bc: beq  $f2bf                ; f0 01
f2be: iny                       ; c8
f2bf: lda  #$00                 ; a9 00
f2c1: sta  RIBUF+1              ; 85 f8
f2c3: sta  ROBUF+1              ; 85 fa
f2c5: jmp  $f47d                ; 4c 7d f4
f2c8: lda  SA                   ; a5 b9
f2ca: and  #$0f                 ; 29 0f
f2cc: beq  $f2f1                ; f0 23
f2ce: jsr  $f7d0                ; 20 d0 f7
f2d1: lda  #$00                 ; a9 00
f2d3: sec                       ; 38
f2d4: jsr  $f1dd                ; 20 dd f1
f2d7: jsr  $f864                ; 20 64 f8
f2da: bcc  $f2e0                ; 90 04
f2dc: pla                       ; 68
f2dd: lda  #$00                 ; a9 00
f2df: rts                       ; 60
f2e0: lda  SA                   ; a5 b9
f2e2: cmp  #$62                 ; c9 62
f2e4: bne  $f2f1                ; d0 0b
f2e6: lda  #$05                 ; a9 05
f2e8: jsr  $f76a                ; 20 6a f7
f2eb: jmp  $f2f1                ; 4c f1 f2
f2ee: jsr  $f642                ; 20 42 f6
f2f1: pla                       ; 68
f2f2: tax                       ; aa
f2f3: dec  LDTND                ; c6 98
f2f5: cpx  LDTND                ; e4 98
f2f7: beq  $f30d                ; f0 14
f2f9: ldy  LDTND                ; a4 98
f2fb: lda  LAT,Y                ; b9 59 02
f2fe: sta  LAT,X                ; 9d 59 02
f301: lda  FAT,Y                ; b9 63 02
f304: sta  FAT,X                ; 9d 63 02
f307: lda  SAT,Y                ; b9 6d 02
f30a: sta  SAT,X                ; 9d 6d 02
f30d: clc                       ; 18
f30e: rts                       ; 60
f30f: lda  #$00                 ; a9 00
f311: sta  STATUS               ; 85 90
f313: txa                       ; 8a
f314: ldx  LDTND                ; a6 98
f316: dex                       ; ca
f317: bmi  $f32e                ; 30 15
f319: cmp  LAT,X                ; dd 59 02
f31c: bne  $f316                ; d0 f8
f31e: rts                       ; 60
f31f: lda  LAT,X                ; bd 59 02
f322: sta  LA                   ; 85 b8
f324: lda  FAT,X                ; bd 63 02
f327: sta  FA                   ; 85 ba
f329: lda  SAT,X                ; bd 6d 02
f32c: sta  SA                   ; 85 b9
f32e: rts                       ; 60
clall: *** Abort All Files
f32f: lda  #$00                 ; a9 00
f331: sta  LDTND                ; 85 98
clrchn: *** Restore Default I/O
f333: ldx  #$03                 ; a2 03
f335: cpx  DFLTO                ; e4 9a
f337: bcs  $f33c                ; b0 03
f339: jsr  $edfe                ; 20 fe ed
f33c: cpx  DFLTN                ; e4 99
f33e: bcs  $f343                ; b0 03
f340: jsr  untlk                ; 20 ef ed
f343: stx  DFLTO                ; 86 9a
f345: lda  #$00                 ; a9 00
f347: sta  DFLTN                ; 85 99
f349: rts                       ; 60
open: *** Open File
f34a: ldx  LA                   ; a6 b8
f34c: bne  $f351                ; d0 03
f34e: jmp  $f70a                ; 4c 0a f7
f351: jsr  $f30f                ; 20 0f f3
f354: bne  $f359                ; d0 03
f356: jmp  $f6fe                ; 4c fe f6
f359: ldx  LDTND                ; a6 98
f35b: cpx  #$0a                 ; e0 0a
f35d: bcc  $f362                ; 90 03
f35f: jmp  $f6fb                ; 4c fb f6
f362: inc  LDTND                ; e6 98
f364: lda  LA                   ; a5 b8
f366: sta  LAT,X                ; 9d 59 02
f369: lda  SA                   ; a5 b9
f36b: ora  #$60                 ; 09 60
f36d: sta  SA                   ; 85 b9
f36f: sta  SAT,X                ; 9d 6d 02
f372: lda  FA                   ; a5 ba
f374: sta  FAT,X                ; 9d 63 02
f377: beq  $f3d3                ; f0 5a
f379: cmp  #$03                 ; c9 03
f37b: beq  $f3d3                ; f0 56
f37d: bcc  $f384                ; 90 05
f37f: jsr  $f3d5                ; 20 d5 f3
f382: bcc  $f3d3                ; 90 4f
f384: cmp  #$02                 ; c9 02
f386: bne  $f38b                ; d0 03
f388: jmp  $f409                ; 4c 09 f4
f38b: jsr  $f7d0                ; 20 d0 f7
f38e: bcs  $f393                ; b0 03
f390: jmp  $f713                ; 4c 13 f7
f393: lda  SA                   ; a5 b9
f395: and  #$0f                 ; 29 0f
f397: bne  $f3b8                ; d0 1f
f399: jsr  $f817                ; 20 17 f8
f39c: bcs  $f3d4                ; b0 36
f39e: jsr  $f5af                ; 20 af f5
f3a1: lda  FNLEN                ; a5 b7
f3a3: beq  $f3af                ; f0 0a
f3a5: jsr  $f7ea                ; 20 ea f7
f3a8: bcc  $f3c2                ; 90 18
f3aa: beq  $f3d4                ; f0 28
f3ac: jmp  $f704                ; 4c 04 f7
f3af: jsr  $f72c                ; 20 2c f7
f3b2: beq  $f3d4                ; f0 20
f3b4: bcc  $f3c2                ; 90 0c
f3b6: bcs  $f3ac                ; b0 f4
f3b8: jsr  $f838                ; 20 38 f8
f3bb: bcs  $f3d4                ; b0 17
f3bd: lda  #$04                 ; a9 04
f3bf: jsr  $f76a                ; 20 6a f7
f3c2: lda  #$bf                 ; a9 bf
f3c4: ldy  SA                   ; a4 b9
f3c6: cpy  #$60                 ; c0 60
f3c8: beq  $f3d1                ; f0 07
f3ca: ldy  #$00                 ; a0 00
f3cc: lda  #$02                 ; a9 02
f3ce: sta  (TAPE1),Y            ; 91 b2
f3d0: tya                       ; 98
f3d1: sta  BUFPNT               ; 85 a6
f3d3: clc                       ; 18
f3d4: rts                       ; 60
f3d5: lda  SA                   ; a5 b9
f3d7: bmi  $f3d3                ; 30 fa
f3d9: ldy  FNLEN                ; a4 b7
f3db: beq  $f3d3                ; f0 f6
f3dd: lda  #$00                 ; a9 00
f3df: sta  STATUS               ; 85 90
f3e1: lda  FA                   ; a5 ba
f3e3: jsr  listn                ; 20 0c ed
f3e6: lda  SA                   ; a5 b9
f3e8: ora  #$f0                 ; 09 f0
f3ea: jsr  second               ; 20 b9 ed
f3ed: lda  STATUS               ; a5 90
f3ef: bpl  $f3f6                ; 10 05
f3f1: pla                       ; 68
f3f2: pla                       ; 68
f3f3: jmp  $f707                ; 4c 07 f7
f3f6: lda  FNLEN                ; a5 b7
f3f8: beq  $f406                ; f0 0c
f3fa: ldy  #$00                 ; a0 00
f3fc: lda  (FNADR),Y            ; b1 bb
f3fe: jsr  ciout                ; 20 dd ed
f401: iny                       ; c8
f402: cpy  FNLEN                ; c4 b7
f404: bne  $f3fc                ; d0 f6
f406: jmp  $f654                ; 4c 54 f6
f409: jsr  $f483                ; 20 83 f4
f40c: sty  RSSTAT               ; 8c 97 02
f40f: cpy  FNLEN                ; c4 b7
f411: beq  $f41d                ; f0 0a
f413: lda  (FNADR),Y            ; b1 bb
f415: sta  M51CTR,Y             ; 99 93 02
f418: iny                       ; c8
f419: cpy  #$04                 ; c0 04
f41b: bne  $f40f                ; d0 f2
f41d: jsr  $ef4a                ; 20 4a ef
f420: stx  BITNUM               ; 8e 98 02
f423: lda  M51CTR               ; ad 93 02
f426: and  #$0f                 ; 29 0f
f428: beq  $f446                ; f0 1c
f42a: asl  a                    ; 0a
f42b: tax                       ; aa
f42c: lda  TVSFLG               ; ad a6 02
f42f: bne  $f43a                ; d0 09
f431: ldy  $fec1,X              ; bc c1 fe
f434: lda  $fec0,X              ; bd c0 fe
f437: jmp  $f440                ; 4c 40 f4
f43a: ldy  $e4eb,X              ; bc eb e4
f43d: lda  $e4ea,X              ; bd ea e4
f440: sty  M51AJB+1             ; 8c 96 02
f443: sta  M51AJB               ; 8d 95 02
f446: lda  M51AJB               ; ad 95 02
f449: asl  a                    ; 0a
f44a: jsr  $ff2e                ; 20 2e ff
f44d: lda  M51CDR               ; ad 94 02
f450: lsr  a                    ; 4a
f451: bcc  $f45c                ; 90 09
f453: lda  $dd01                ; ad 01 dd
f456: asl  a                    ; 0a
f457: bcs  $f45c                ; b0 03
f459: jsr  $f00d                ; 20 0d f0
f45c: lda  RIDBE                ; ad 9b 02
f45f: sta  RIDBS                ; 8d 9c 02
f462: lda  RODBE                ; ad 9e 02
f465: sta  RODBS                ; 8d 9d 02
f468: jsr  $fe27                ; 20 27 fe
f46b: lda  RIBUF+1              ; a5 f8
f46d: bne  $f474                ; d0 05
f46f: dey                       ; 88
f470: sty  RIBUF+1              ; 84 f8
f472: stx  RIBUF                ; 86 f7
f474: lda  ROBUF+1              ; a5 fa
f476: bne  $f47d                ; d0 05
f478: dey                       ; 88
f479: sty  ROBUF+1              ; 84 fa
f47b: stx  ROBUF                ; 86 f9
f47d: sec                       ; 38
f47e: lda  #$f0                 ; a9 f0
f480: jmp  $fe2d                ; 4c 2d fe
f483: lda  #$7f                 ; a9 7f
f485: sta  $dd0d                ; 8d 0d dd
f488: lda  #$06                 ; a9 06
f48a: sta  $dd03                ; 8d 03 dd
f48d: sta  $dd01                ; 8d 01 dd
f490: lda  #$04                 ; a9 04
f492: ora  CIA2                 ; 0d 00 dd
f495: sta  CIA2                 ; 8d 00 dd
f498: ldy  #$00                 ; a0 00
f49a: sty  ENABL                ; 8c a1 02
f49d: rts                       ; 60
load: *** Load RAM
f49e: stx  MEMUSS               ; 86 c3
f4a0: sty  MEMUSS+1             ; 84 c4
f4a2: jmp  (ILOAD)              ; 6c 30 03
f4a5: sta  VERCKK               ; 85 93
f4a7: lda  #$00                 ; a9 00
f4a9: sta  STATUS               ; 85 90
f4ab: lda  FA                   ; a5 ba
f4ad: bne  $f4b2                ; d0 03
f4af: jmp  $f713                ; 4c 13 f7
f4b2: cmp  #$03                 ; c9 03
f4b4: beq  $f4af                ; f0 f9
f4b6: bcc  $f533                ; 90 7b
f4b8: ldy  FNLEN                ; a4 b7
f4ba: bne  $f4bf                ; d0 03
f4bc: jmp  $f710                ; 4c 10 f7
f4bf: ldx  SA                   ; a6 b9
f4c1: jsr  $f5af                ; 20 af f5
f4c4: lda  #$60                 ; a9 60
f4c6: sta  SA                   ; 85 b9
f4c8: jsr  $f3d5                ; 20 d5 f3
f4cb: lda  FA                   ; a5 ba
f4cd: jsr  talk                 ; 20 09 ed
f4d0: lda  SA                   ; a5 b9
f4d2: jsr  tksa                 ; 20 c7 ed
f4d5: jsr  acptr                ; 20 13 ee
f4d8: sta  EAL                  ; 85 ae
f4da: lda  STATUS               ; a5 90
f4dc: lsr  a                    ; 4a
f4dd: lsr  a                    ; 4a
f4de: bcs  $f530                ; b0 50
f4e0: jsr  acptr                ; 20 13 ee
f4e3: sta  EAL+1                ; 85 af
f4e5: txa                       ; 8a
f4e6: bne  $f4f0                ; d0 08
f4e8: lda  MEMUSS               ; a5 c3
f4ea: sta  EAL                  ; 85 ae
f4ec: lda  MEMUSS+1             ; a5 c4
f4ee: sta  EAL+1                ; 85 af
f4f0: jsr  $f5d2                ; 20 d2 f5
f4f3: lda  #$fd                 ; a9 fd
f4f5: and  STATUS               ; 25 90
f4f7: sta  STATUS               ; 85 90
f4f9: jsr  VECT_(istop)         ; 20 e1 ff
f4fc: bne  $f501                ; d0 03
f4fe: jmp  $f633                ; 4c 33 f6
f501: jsr  acptr                ; 20 13 ee
f504: tax                       ; aa
f505: lda  STATUS               ; a5 90
f507: lsr  a                    ; 4a
f508: lsr  a                    ; 4a
f509: bcs  $f4f3                ; b0 e8
f50b: txa                       ; 8a
f50c: ldy  VERCKK               ; a4 93
f50e: beq  $f51c                ; f0 0c
f510: ldy  #$00                 ; a0 00
f512: cmp  (EAL),Y              ; d1 ae
f514: beq  $f51e                ; f0 08
f516: lda  #$10                 ; a9 10
f518: jsr  $fe1c                ; 20 1c fe
f51b: bit  $ae91                ; 2c 91 ae
f51e: inc  EAL                  ; e6 ae
f520: bne  $f524                ; d0 02
f522: inc  EAL+1                ; e6 af
f524: bit  STATUS               ; 24 90
f526: bvc  $f4f3                ; 50 cb
f528: jsr  untlk                ; 20 ef ed
f52b: jsr  $f642                ; 20 42 f6
f52e: bcc  $f5a9                ; 90 79
f530: jmp  $f704                ; 4c 04 f7
f533: lsr  a                    ; 4a
f534: bcs  $f539                ; b0 03
f536: jmp  $f713                ; 4c 13 f7
f539: jsr  $f7d0                ; 20 d0 f7
f53c: bcs  $f541                ; b0 03
f53e: jmp  $f713                ; 4c 13 f7
f541: jsr  $f817                ; 20 17 f8
f544: bcs  $f5ae                ; b0 68
f546: jsr  $f5af                ; 20 af f5
f549: lda  FNLEN                ; a5 b7
f54b: beq  $f556                ; f0 09
f54d: jsr  $f7ea                ; 20 ea f7
f550: bcc  $f55d                ; 90 0b
f552: beq  $f5ae                ; f0 5a
f554: bcs  $f530                ; b0 da
f556: jsr  $f72c                ; 20 2c f7
f559: beq  $f5ae                ; f0 53
f55b: bcs  $f530                ; b0 d3
f55d: lda  STATUS               ; a5 90
f55f: and  #$10                 ; 29 10
f561: sec                       ; 38
f562: bne  $f5ae                ; d0 4a
f564: cpx  #$01                 ; e0 01
f566: beq  $f579                ; f0 11
f568: cpx  #$03                 ; e0 03
f56a: bne  $f549                ; d0 dd
f56c: ldy  #$01                 ; a0 01
f56e: lda  (TAPE1),Y            ; b1 b2
f570: sta  MEMUSS               ; 85 c3
f572: iny                       ; c8
f573: lda  (TAPE1),Y            ; b1 b2
f575: sta  MEMUSS+1             ; 85 c4
f577: bcs  $f57d                ; b0 04
f579: lda  SA                   ; a5 b9
f57b: bne  $f56c                ; d0 ef
f57d: ldy  #$03                 ; a0 03
f57f: lda  (TAPE1),Y            ; b1 b2
f581: ldy  #$01                 ; a0 01
f583: sbc  (TAPE1),Y            ; f1 b2
f585: tax                       ; aa
f586: ldy  #$04                 ; a0 04
f588: lda  (TAPE1),Y            ; b1 b2
f58a: ldy  #$02                 ; a0 02
f58c: sbc  (TAPE1),Y            ; f1 b2
f58e: tay                       ; a8
f58f: clc                       ; 18
f590: txa                       ; 8a
f591: adc  MEMUSS               ; 65 c3
f593: sta  EAL                  ; 85 ae
f595: tya                       ; 98
f596: adc  MEMUSS+1             ; 65 c4
f598: sta  EAL+1                ; 85 af
f59a: lda  MEMUSS               ; a5 c3
f59c: sta  STAL                 ; 85 c1
f59e: lda  MEMUSS+1             ; a5 c4
f5a0: sta  STAL+1               ; 85 c2
f5a2: jsr  $f5d2                ; 20 d2 f5
f5a5: jsr  $f84a                ; 20 4a f8
f5a8: bit  LASTPT+1             ; 24 18
f5aa: ldx  EAL                  ; a6 ae
f5ac: ldy  EAL+1                ; a4 af
f5ae: rts                       ; 60
f5af: lda  MSGFLG               ; a5 9d
f5b1: bpl  $f5d1                ; 10 1e
f5b3: ldy  #$0c                 ; a0 0c
f5b5: jsr  $f12f                ; 20 2f f1
f5b8: lda  FNLEN                ; a5 b7
f5ba: beq  $f5d1                ; f0 15
f5bc: ldy  #$17                 ; a0 17
f5be: jsr  $f12f                ; 20 2f f1
f5c1: ldy  FNLEN                ; a4 b7
f5c3: beq  $f5d1                ; f0 0c
f5c5: ldy  #$00                 ; a0 00
f5c7: lda  (FNADR),Y            ; b1 bb
f5c9: jsr  VECT_(ichrout)       ; 20 d2 ff
f5cc: iny                       ; c8
f5cd: cpy  FNLEN                ; c4 b7
f5cf: bne  $f5c7                ; d0 f6
f5d1: rts                       ; 60
f5d2: ldy  #$49                 ; a0 49
f5d4: lda  VERCKK               ; a5 93
f5d6: beq  $f5da                ; f0 02
f5d8: ldy  #$59                 ; a0 59
f5da: jmp  $f12b                ; 4c 2b f1
save: *** Save RAM
f5dd: stx  EAL                  ; 86 ae
f5df: sty  EAL+1                ; 84 af
f5e1: tax                       ; aa
f5e2: lda  D6510,X              ; b5 00
f5e4: sta  STAL                 ; 85 c1
f5e6: lda  R6510,X              ; b5 01
f5e8: sta  STAL+1               ; 85 c2
f5ea: jmp  (ISAVE)              ; 6c 32 03
f5ed: lda  FA                   ; a5 ba
f5ef: bne  $f5f4                ; d0 03
f5f1: jmp  $f713                ; 4c 13 f7
f5f4: cmp  #$03                 ; c9 03
f5f6: beq  $f5f1                ; f0 f9
f5f8: bcc  $f659                ; 90 5f
f5fa: lda  #$61                 ; a9 61
f5fc: sta  SA                   ; 85 b9
f5fe: ldy  FNLEN                ; a4 b7
f600: bne  $f605                ; d0 03
f602: jmp  $f710                ; 4c 10 f7
f605: jsr  $f3d5                ; 20 d5 f3
f608: jsr  $f68f                ; 20 8f f6
f60b: lda  FA                   ; a5 ba
f60d: jsr  listn                ; 20 0c ed
f610: lda  SA                   ; a5 b9
f612: jsr  second               ; 20 b9 ed
f615: ldy  #$00                 ; a0 00
f617: jsr  $fb8e                ; 20 8e fb
f61a: lda  SAL                  ; a5 ac
f61c: jsr  ciout                ; 20 dd ed
f61f: lda  SAL+1                ; a5 ad
f621: jsr  ciout                ; 20 dd ed
f624: jsr  $fcd1                ; 20 d1 fc
f627: bcs  $f63f                ; b0 16
f629: lda  (SAL),Y              ; b1 ac
f62b: jsr  ciout                ; 20 dd ed
f62e: jsr  VECT_(istop)         ; 20 e1 ff
f631: bne  $f63a                ; d0 07
f633: jsr  $f642                ; 20 42 f6
f636: lda  #$00                 ; a9 00
f638: sec                       ; 38
f639: rts                       ; 60
f63a: jsr  $fcdb                ; 20 db fc
f63d: bne  $f624                ; d0 e5
f63f: jsr  $edfe                ; 20 fe ed
f642: bit  SA                   ; 24 b9
f644: bmi  $f657                ; 30 11
f646: lda  FA                   ; a5 ba
f648: jsr  listn                ; 20 0c ed
f64b: lda  SA                   ; a5 b9
f64d: and  #$ef                 ; 29 ef
f64f: ora  #$e0                 ; 09 e0
f651: jsr  second               ; 20 b9 ed
f654: jsr  $edfe                ; 20 fe ed
f657: clc                       ; 18
f658: rts                       ; 60
f659: lsr  a                    ; 4a
f65a: bcs  $f65f                ; b0 03
f65c: jmp  $f713                ; 4c 13 f7
f65f: jsr  $f7d0                ; 20 d0 f7
f662: bcc  $f5f1                ; 90 8d
f664: jsr  $f838                ; 20 38 f8
f667: bcs  $f68e                ; b0 25
f669: jsr  $f68f                ; 20 8f f6
f66c: ldx  #$03                 ; a2 03
f66e: lda  SA                   ; a5 b9
f670: and  #$01                 ; 29 01
f672: bne  $f676                ; d0 02
f674: ldx  #$01                 ; a2 01
f676: txa                       ; 8a
f677: jsr  $f76a                ; 20 6a f7
f67a: bcs  $f68e                ; b0 12
f67c: jsr  $f867                ; 20 67 f8
f67f: bcs  $f68e                ; b0 0d
f681: lda  SA                   ; a5 b9
f683: and  #$02                 ; 29 02
f685: beq  $f68d                ; f0 06
f687: lda  #$05                 ; a9 05
f689: jsr  $f76a                ; 20 6a f7
f68c: bit  LASTPT+1             ; 24 18
f68e: rts                       ; 60
f68f: lda  MSGFLG               ; a5 9d
f691: bpl  $f68e                ; 10 fb
f693: ldy  #$51                 ; a0 51
f695: jsr  $f12f                ; 20 2f f1
f698: jmp  $f5c1                ; 4c c1 f5
udtim: *** Bump Clock
f69b: ldx  #$00                 ; a2 00
f69d: inc  $a2                  ; e6 a2
f69f: bne  $f6a7                ; d0 06
f6a1: inc  $a1                  ; e6 a1
f6a3: bne  $f6a7                ; d0 02
f6a5: inc  TIME                 ; e6 a0
f6a7: sec                       ; 38
f6a8: lda  $a2                  ; a5 a2
f6aa: sbc  #$01                 ; e9 01
f6ac: lda  $a1                  ; a5 a1
f6ae: sbc  #$1a                 ; e9 1a
f6b0: lda  TIME                 ; a5 a0
f6b2: sbc  #$4f                 ; e9 4f
f6b4: bcc  $f6bc                ; 90 06
f6b6: stx  TIME                 ; 86 a0
f6b8: stx  $a1                  ; 86 a1
f6ba: stx  $a2                  ; 86 a2
f6bc: lda  $dc01                ; ad 01 dc
f6bf: cmp  $dc01                ; cd 01 dc
f6c2: bne  $f6bc                ; d0 f8
f6c4: tax                       ; aa
f6c5: bmi  $f6da                ; 30 13
f6c7: ldx  #$bd                 ; a2 bd
f6c9: stx  CIA1                 ; 8e 00 dc
f6cc: ldx  $dc01                ; ae 01 dc
f6cf: cpx  $dc01                ; ec 01 dc
f6d2: bne  $f6cc                ; d0 f8
f6d4: sta  CIA1                 ; 8d 00 dc
f6d7: inx                       ; e8
f6d8: bne  $f6dc                ; d0 02
f6da: sta  STKEY                ; 85 91
f6dc: rts                       ; 60
rdtim: *** Get Time
f6dd: sei                       ; 78
f6de: lda  $a2                  ; a5 a2
f6e0: ldx  $a1                  ; a6 a1
f6e2: ldy  TIME                 ; a4 a0
settim: *** Set Time
f6e4: sei                       ; 78
f6e5: sta  $a2                  ; 85 a2
f6e7: stx  $a1                  ; 86 a1
f6e9: sty  TIME                 ; 84 a0
f6eb: cli                       ; 58
f6ec: rts                       ; 60
stop: *** Check STOP Key
f6ed: lda  STKEY                ; a5 91
f6ef: cmp  #$7f                 ; c9 7f
f6f1: bne  $f6fa                ; d0 07
f6f3: php                       ; 08
f6f4: jsr  VECT_(iclrch)        ; 20 cc ff
f6f7: sta  NDX                  ; 85 c6
f6f9: plp                       ; 28
f6fa: rts                       ; 60
f6fb: lda  #$01                 ; a9 01
f6fd: bit  $02a9                ; 2c a9 02
f700: bit  $03a9                ; 2c a9 03
f703: bit  $04a9                ; 2c a9 04
f706: bit  $05a9                ; 2c a9 05
f709: bit  $06a9                ; 2c a9 06
f70c: bit  $07a9                ; 2c a9 07
f70f: bit  $08a9                ; 2c a9 08
f712: bit  $09a9                ; 2c a9 09
f715: pha                       ; 48
f716: jsr  VECT_(iclrch)        ; 20 cc ff
f719: ldy  #$00                 ; a0 00
f71b: bit  MSGFLG               ; 24 9d
f71d: bvc  $f729                ; 50 0a
f71f: jsr  $f12f                ; 20 2f f1
f722: pla                       ; 68
f723: pha                       ; 48
f724: ora  #$30                 ; 09 30
f726: jsr  VECT_(ichrout)       ; 20 d2 ff
f729: pla                       ; 68
f72a: sec                       ; 38
f72b: rts                       ; 60
f72c: lda  VERCKK               ; a5 93
f72e: pha                       ; 48
f72f: jsr  $f841                ; 20 41 f8
f732: pla                       ; 68
f733: sta  VERCKK               ; 85 93
f735: bcs  $f769                ; b0 32
f737: ldy  #$00                 ; a0 00
f739: lda  (TAPE1),Y            ; b1 b2
f73b: cmp  #$05                 ; c9 05
f73d: beq  $f769                ; f0 2a
f73f: cmp  #$01                 ; c9 01
f741: beq  $f74b                ; f0 08
f743: cmp  #$03                 ; c9 03
f745: beq  $f74b                ; f0 04
f747: cmp  #$04                 ; c9 04
f749: bne  $f72c                ; d0 e1
f74b: tax                       ; aa
f74c: bit  MSGFLG               ; 24 9d
f74e: bpl  $f767                ; 10 17
f750: ldy  #$63                 ; a0 63
f752: jsr  $f12f                ; 20 2f f1
f755: ldy  #$05                 ; a0 05
f757: lda  (TAPE1),Y            ; b1 b2
f759: jsr  VECT_(ichrout)       ; 20 d2 ff
f75c: iny                       ; c8
f75d: cpy  #$15                 ; c0 15
f75f: bne  $f757                ; d0 f6
f761: lda  $a1                  ; a5 a1
f763: jsr  $e4e0                ; 20 e0 e4
f766: nop                       ; ea
f767: clc                       ; 18
f768: dey                       ; 88
f769: rts                       ; 60
f76a: sta  FNMIDX               ; 85 9e
f76c: jsr  $f7d0                ; 20 d0 f7
f76f: bcc  $f7cf                ; 90 5e
f771: lda  STAL+1               ; a5 c2
f773: pha                       ; 48
f774: lda  STAL                 ; a5 c1
f776: pha                       ; 48
f777: lda  EAL+1                ; a5 af
f779: pha                       ; 48
f77a: lda  EAL                  ; a5 ae
f77c: pha                       ; 48
f77d: ldy  #$bf                 ; a0 bf
f77f: lda  #$20                 ; a9 20
f781: sta  (TAPE1),Y            ; 91 b2
f783: dey                       ; 88
f784: bne  $f781                ; d0 fb
f786: lda  FNMIDX               ; a5 9e
f788: sta  (TAPE1),Y            ; 91 b2
f78a: iny                       ; c8
f78b: lda  STAL                 ; a5 c1
f78d: sta  (TAPE1),Y            ; 91 b2
f78f: iny                       ; c8
f790: lda  STAL+1               ; a5 c2
f792: sta  (TAPE1),Y            ; 91 b2
f794: iny                       ; c8
f795: lda  EAL                  ; a5 ae
f797: sta  (TAPE1),Y            ; 91 b2
f799: iny                       ; c8
f79a: lda  EAL+1                ; a5 af
f79c: sta  (TAPE1),Y            ; 91 b2
f79e: iny                       ; c8
f79f: sty  PTR2                 ; 84 9f
f7a1: ldy  #$00                 ; a0 00
f7a3: sty  FNMIDX               ; 84 9e
f7a5: ldy  FNMIDX               ; a4 9e
f7a7: cpy  FNLEN                ; c4 b7
f7a9: beq  $f7b7                ; f0 0c
f7ab: lda  (FNADR),Y            ; b1 bb
f7ad: ldy  PTR2                 ; a4 9f
f7af: sta  (TAPE1),Y            ; 91 b2
f7b1: inc  FNMIDX               ; e6 9e
f7b3: inc  PTR2                 ; e6 9f
f7b5: bne  $f7a5                ; d0 ee
f7b7: jsr  $f7d7                ; 20 d7 f7
f7ba: lda  #$69                 ; a9 69
f7bc: sta  RIPRTY               ; 85 ab
f7be: jsr  $f86b                ; 20 6b f8
f7c1: tay                       ; a8
f7c2: pla                       ; 68
f7c3: sta  EAL                  ; 85 ae
f7c5: pla                       ; 68
f7c6: sta  EAL+1                ; 85 af
f7c8: pla                       ; 68
f7c9: sta  STAL                 ; 85 c1
f7cb: pla                       ; 68
f7cc: sta  STAL+1               ; 85 c2
f7ce: tya                       ; 98
f7cf: rts                       ; 60
f7d0: ldx  TAPE1                ; a6 b2
f7d2: ldy  TAPE1+1              ; a4 b3
f7d4: cpy  #$02                 ; c0 02
f7d6: rts                       ; 60
f7d7: jsr  $f7d0                ; 20 d0 f7
f7da: txa                       ; 8a
f7db: sta  STAL                 ; 85 c1
f7dd: clc                       ; 18
f7de: adc  #$c0                 ; 69 c0
f7e0: sta  EAL                  ; 85 ae
f7e2: tya                       ; 98
f7e3: sta  STAL+1               ; 85 c2
f7e5: adc  #$00                 ; 69 00
f7e7: sta  EAL+1                ; 85 af
f7e9: rts                       ; 60
f7ea: jsr  $f72c                ; 20 2c f7
f7ed: bcs  $f80c                ; b0 1d
f7ef: ldy  #$05                 ; a0 05
f7f1: sty  PTR2                 ; 84 9f
f7f3: ldy  #$00                 ; a0 00
f7f5: sty  FNMIDX               ; 84 9e
f7f7: cpy  FNLEN                ; c4 b7
f7f9: beq  $f80b                ; f0 10
f7fb: lda  (FNADR),Y            ; b1 bb
f7fd: ldy  PTR2                 ; a4 9f
f7ff: cmp  (TAPE1),Y            ; d1 b2
f801: bne  $f7ea                ; d0 e7
f803: inc  FNMIDX               ; e6 9e
f805: inc  PTR2                 ; e6 9f
f807: ldy  FNMIDX               ; a4 9e
f809: bne  $f7f7                ; d0 ec
f80b: clc                       ; 18
f80c: rts                       ; 60
f80d: jsr  $f7d0                ; 20 d0 f7
f810: inc  BUFPNT               ; e6 a6
f812: ldy  BUFPNT               ; a4 a6
f814: cpy  #$c0                 ; c0 c0
f816: rts                       ; 60
f817: jsr  $f82e                ; 20 2e f8
f81a: beq  $f836                ; f0 1a
f81c: ldy  #$1b                 ; a0 1b
f81e: jsr  $f12f                ; 20 2f f1
f821: jsr  $f8d0                ; 20 d0 f8
f824: jsr  $f82e                ; 20 2e f8
f827: bne  $f821                ; d0 f8
f829: ldy  #$6a                 ; a0 6a
f82b: jmp  $f12f                ; 4c 2f f1
f82e: lda  #$10                 ; a9 10
f830: bit  R6510                ; 24 01
f832: bne  $f836                ; d0 02
f834: bit  R6510                ; 24 01
f836: clc                       ; 18
f837: rts                       ; 60
f838: jsr  $f82e                ; 20 2e f8
f83b: beq  $f836                ; f0 f9
f83d: ldy  #$2e                 ; a0 2e
f83f: bne  $f81e                ; d0 dd
f841: lda  #$00                 ; a9 00
f843: sta  STATUS               ; 85 90
f845: sta  VERCKK               ; 85 93
f847: jsr  $f7d7                ; 20 d7 f7
f84a: jsr  $f817                ; 20 17 f8
f84d: bcs  $f86e                ; b0 1f
f84f: sei                       ; 78
f850: lda  #$00                 ; a9 00
f852: sta  RIDATA               ; 85 aa
f854: sta  BITTS                ; 85 b4
f856: sta  CMPO                 ; 85 b0
f858: sta  FNMIDX               ; 85 9e
f85a: sta  PTR2                 ; 85 9f
f85c: sta  DPSW                 ; 85 9c
f85e: lda  #$90                 ; a9 90
f860: ldx  #$0e                 ; a2 0e
f862: bne  $f875                ; d0 11
f864: jsr  $f7d7                ; 20 d7 f7
f867: lda  #$14                 ; a9 14
f869: sta  RIPRTY               ; 85 ab
f86b: jsr  $f838                ; 20 38 f8
f86e: bcs  $f8dc                ; b0 6c
f870: sei                       ; 78
f871: lda  #$82                 ; a9 82
f873: ldx  #$08                 ; a2 08
f875: ldy  #$7f                 ; a0 7f
f877: sty  $dc0d                ; 8c 0d dc
f87a: sta  $dc0d                ; 8d 0d dc
f87d: lda  $dc0e                ; ad 0e dc
f880: ora  #$19                 ; 09 19
f882: sta  $dc0f                ; 8d 0f dc
f885: and  #$91                 ; 29 91
f887: sta  TODSNS               ; 8d a2 02
f88a: jsr  $f0a4                ; 20 a4 f0
f88d: lda  $d011                ; ad 11 d0
f890: and  #$ef                 ; 29 ef
f892: sta  $d011                ; 8d 11 d0
f895: lda  CINV                 ; ad 14 03
f898: sta  IRQTMP               ; 8d 9f 02
f89b: lda  CINV+1               ; ad 15 03
f89e: sta  IRQTMP+1             ; 8d a0 02
f8a1: jsr  $fcbd                ; 20 bd fc
f8a4: lda  #$02                 ; a9 02
f8a6: sta  FSBLK                ; 85 be
f8a8: jsr  $fb97                ; 20 97 fb
f8ab: lda  R6510                ; a5 01
f8ad: and  #$1f                 ; 29 1f
f8af: sta  R6510                ; 85 01
f8b1: sta  CAS1                 ; 85 c0
f8b3: ldx  #$ff                 ; a2 ff
f8b5: ldy  #$ff                 ; a0 ff
f8b7: dey                       ; 88
f8b8: bne  $f8b7                ; d0 fd
f8ba: dex                       ; ca
f8bb: bne  $f8b5                ; d0 f8
f8bd: cli                       ; 58
f8be: lda  IRQTMP+1             ; ad a0 02
f8c1: cmp  CINV+1               ; cd 15 03
f8c4: clc                       ; 18
f8c5: beq  $f8dc                ; f0 15
f8c7: jsr  $f8d0                ; 20 d0 f8
f8ca: jsr  $f6bc                ; 20 bc f6
f8cd: jmp  $f8be                ; 4c be f8
f8d0: jsr  VECT_(istop)         ; 20 e1 ff
f8d3: clc                       ; 18
f8d4: bne  $f8e1                ; d0 0b
f8d6: jsr  $fc93                ; 20 93 fc
f8d9: sec                       ; 38
f8da: pla                       ; 68
f8db: pla                       ; 68
f8dc: lda  #$00                 ; a9 00
f8de: sta  IRQTMP+1             ; 8d a0 02
f8e1: rts                       ; 60
f8e2: stx  CMPO+1               ; 86 b1
f8e4: lda  CMPO                 ; a5 b0
f8e6: asl  a                    ; 0a
f8e7: asl  a                    ; 0a
f8e8: clc                       ; 18
f8e9: adc  CMPO                 ; 65 b0
f8eb: clc                       ; 18
f8ec: adc  CMPO+1               ; 65 b1
f8ee: sta  CMPO+1               ; 85 b1
f8f0: lda  #$00                 ; a9 00
f8f2: bit  CMPO                 ; 24 b0
f8f4: bmi  $f8f7                ; 30 01
f8f6: rol  a                    ; 2a
f8f7: asl  CMPO+1               ; 06 b1
f8f9: rol  a                    ; 2a
f8fa: asl  CMPO+1               ; 06 b1
f8fc: rol  a                    ; 2a
f8fd: tax                       ; aa
f8fe: lda  $dc06                ; ad 06 dc
f901: cmp  #$16                 ; c9 16
f903: bcc  $f8fe                ; 90 f9
f905: adc  CMPO+1               ; 65 b1
f907: sta  $dc04                ; 8d 04 dc
f90a: txa                       ; 8a
f90b: adc  $dc07                ; 6d 07 dc
f90e: sta  $dc05                ; 8d 05 dc
f911: lda  TODSNS               ; ad a2 02
f914: sta  $dc0e                ; 8d 0e dc
f917: sta  TD1IRQ               ; 8d a4 02
f91a: lda  $dc0d                ; ad 0d dc
f91d: and  #$10                 ; 29 10
f91f: beq  $f92a                ; f0 09
f921: lda  #$f9                 ; a9 f9
f923: pha                       ; 48
f924: lda  #$2a                 ; a9 2a
f926: pha                       ; 48
f927: jmp  $ff43                ; 4c 43 ff
f92a: cli                       ; 58
f92b: rts                       ; 60
f92c: ldx  $dc07                ; ae 07 dc
f92f: ldy  #$ff                 ; a0 ff
f931: tya                       ; 98
f932: sbc  $dc06                ; ed 06 dc
f935: cpx  $dc07                ; ec 07 dc
f938: bne  $f92c                ; d0 f2
f93a: stx  CMPO+1               ; 86 b1
f93c: tax                       ; aa
f93d: sty  $dc06                ; 8c 06 dc
f940: sty  $dc07                ; 8c 07 dc
f943: lda  #$19                 ; a9 19
f945: sta  $dc0f                ; 8d 0f dc
f948: lda  $dc0d                ; ad 0d dc
f94b: sta  TRDTMP               ; 8d a3 02
f94e: tya                       ; 98
f94f: sbc  CMPO+1               ; e5 b1
f951: stx  CMPO+1               ; 86 b1
f953: lsr  a                    ; 4a
f954: ror  CMPO+1               ; 66 b1
f956: lsr  a                    ; 4a
f957: ror  CMPO+1               ; 66 b1
f959: lda  CMPO                 ; a5 b0
f95b: clc                       ; 18
f95c: adc  #$3c                 ; 69 3c
f95e: cmp  CMPO+1               ; c5 b1
f960: bcs  $f9ac                ; b0 4a
f962: ldx  DPSW                 ; a6 9c
f964: beq  $f969                ; f0 03
f966: jmp  $fa60                ; 4c 60 fa
f969: ldx  TSFCNT               ; a6 a3
f96b: bmi  $f988                ; 30 1b
f96d: ldx  #$00                 ; a2 00
f96f: adc  #$30                 ; 69 30
f971: adc  CMPO                 ; 65 b0
f973: cmp  CMPO+1               ; c5 b1
f975: bcs  $f993                ; b0 1c
f977: inx                       ; e8
f978: adc  #$26                 ; 69 26
f97a: adc  CMPO                 ; 65 b0
f97c: cmp  CMPO+1               ; c5 b1
f97e: bcs  $f997                ; b0 17
f980: adc  #$2c                 ; 69 2c
f982: adc  CMPO                 ; 65 b0
f984: cmp  CMPO+1               ; c5 b1
f986: bcc  $f98b                ; 90 03
f988: jmp  $fa10                ; 4c 10 fa
f98b: lda  BITTS                ; a5 b4
f98d: beq  $f9ac                ; f0 1d
f98f: sta  BITC1                ; 85 a8
f991: bne  $f9ac                ; d0 19
f993: inc  RINONE               ; e6 a9
f995: bcs  $f999                ; b0 02
f997: dec  RINONE               ; c6 a9
f999: sec                       ; 38
f99a: sbc  #$13                 ; e9 13
f99c: sbc  CMPO+1               ; e5 b1
f99e: adc  SVXT                 ; 65 92
f9a0: sta  SVXT                 ; 85 92
f9a2: lda  TBTCNT               ; a5 a4
f9a4: eor  #$01                 ; 49 01
f9a6: sta  TBTCNT               ; 85 a4
f9a8: beq  $f9d5                ; f0 2b
f9aa: stx  SCHAR                ; 86 d7
f9ac: lda  BITTS                ; a5 b4
f9ae: beq  $f9d2                ; f0 22
f9b0: lda  TRDTMP               ; ad a3 02
f9b3: and  #$01                 ; 29 01
f9b5: bne  $f9bc                ; d0 05
f9b7: lda  TD1IRQ               ; ad a4 02
f9ba: bne  $f9d2                ; d0 16
f9bc: lda  #$00                 ; a9 00
f9be: sta  TBTCNT               ; 85 a4
f9c0: sta  TD1IRQ               ; 8d a4 02
f9c3: lda  TSFCNT               ; a5 a3
f9c5: bpl  $f9f7                ; 10 30
f9c7: bmi  $f988                ; 30 bf
f9c9: ldx  #$a6                 ; a2 a6
f9cb: jsr  $f8e2                ; 20 e2 f8
f9ce: lda  PRTY                 ; a5 9b
f9d0: bne  $f98b                ; d0 b9
f9d2: jmp  $febc                ; 4c bc fe
f9d5: lda  SVXT                 ; a5 92
f9d7: beq  $f9e0                ; f0 07
f9d9: bmi  $f9de                ; 30 03
f9db: dec  CMPO                 ; c6 b0
f9dd: bit  $b0e6                ; 2c e6 b0
f9e0: lda  #$00                 ; a9 00
f9e2: sta  SVXT                 ; 85 92
f9e4: cpx  SCHAR                ; e4 d7
f9e6: bne  $f9f7                ; d0 0f
f9e8: txa                       ; 8a
f9e9: bne  $f98b                ; d0 a0
f9eb: lda  RINONE               ; a5 a9
f9ed: bmi  $f9ac                ; 30 bd
f9ef: cmp  #$10                 ; c9 10
f9f1: bcc  $f9ac                ; 90 b9
f9f3: sta  SYNO                 ; 85 96
f9f5: bcs  $f9ac                ; b0 b5
f9f7: txa                       ; 8a
f9f8: eor  PRTY                 ; 45 9b
f9fa: sta  PRTY                 ; 85 9b
f9fc: lda  BITTS                ; a5 b4
f9fe: beq  $f9d2                ; f0 d2
fa00: dec  TSFCNT               ; c6 a3
fa02: bmi  $f9c9                ; 30 c5
fa04: lsr  SCHAR                ; 46 d7
fa06: ror  MYCH                 ; 66 bf
fa08: ldx  #$da                 ; a2 da
fa0a: jsr  $f8e2                ; 20 e2 f8
fa0d: jmp  $febc                ; 4c bc fe
fa10: lda  SYNO                 ; a5 96
fa12: beq  $fa18                ; f0 04
fa14: lda  BITTS                ; a5 b4
fa16: beq  $fa1f                ; f0 07
fa18: lda  TSFCNT               ; a5 a3
fa1a: bmi  $fa1f                ; 30 03
fa1c: jmp  $f997                ; 4c 97 f9
fa1f: lsr  CMPO+1               ; 46 b1
fa21: lda  #$93                 ; a9 93
fa23: sec                       ; 38
fa24: sbc  CMPO+1               ; e5 b1
fa26: adc  CMPO                 ; 65 b0
fa28: asl  a                    ; 0a
fa29: tax                       ; aa
fa2a: jsr  $f8e2                ; 20 e2 f8
fa2d: inc  DPSW                 ; e6 9c
fa2f: lda  BITTS                ; a5 b4
fa31: bne  $fa44                ; d0 11
fa33: lda  SYNO                 ; a5 96
fa35: beq  $fa5d                ; f0 26
fa37: sta  BITC1                ; 85 a8
fa39: lda  #$00                 ; a9 00
fa3b: sta  SYNO                 ; 85 96
fa3d: lda  #$81                 ; a9 81
fa3f: sta  $dc0d                ; 8d 0d dc
fa42: sta  BITTS                ; 85 b4
fa44: lda  SYNO                 ; a5 96
fa46: sta  NXTBIT               ; 85 b5
fa48: beq  $fa53                ; f0 09
fa4a: lda  #$00                 ; a9 00
fa4c: sta  BITTS                ; 85 b4
fa4e: lda  #$01                 ; a9 01
fa50: sta  $dc0d                ; 8d 0d dc
fa53: lda  MYCH                 ; a5 bf
fa55: sta  ROPRTY               ; 85 bd
fa57: lda  BITC1                ; a5 a8
fa59: ora  RINONE               ; 05 a9
fa5b: sta  RODATA               ; 85 b6
fa5d: jmp  $febc                ; 4c bc fe
fa60: jsr  $fb97                ; 20 97 fb
fa63: sta  DPSW                 ; 85 9c
fa65: ldx  #$da                 ; a2 da
fa67: jsr  $f8e2                ; 20 e2 f8
fa6a: lda  FSBLK                ; a5 be
fa6c: beq  $fa70                ; f0 02
fa6e: sta  INBIT                ; 85 a7
fa70: lda  #$0f                 ; a9 0f
fa72: bit  RIDATA               ; 24 aa
fa74: bpl  $fa8d                ; 10 17
fa76: lda  NXTBIT               ; a5 b5
fa78: bne  $fa86                ; d0 0c
fa7a: ldx  FSBLK                ; a6 be
fa7c: dex                       ; ca
fa7d: bne  $fa8a                ; d0 0b
fa7f: lda  #$08                 ; a9 08
fa81: jsr  $fe1c                ; 20 1c fe
fa84: bne  $fa8a                ; d0 04
fa86: lda  #$00                 ; a9 00
fa88: sta  RIDATA               ; 85 aa
fa8a: jmp  $febc                ; 4c bc fe
fa8d: bvs  $fac0                ; 70 31
fa8f: bne  $faa9                ; d0 18
fa91: lda  NXTBIT               ; a5 b5
fa93: bne  $fa8a                ; d0 f5
fa95: lda  RODATA               ; a5 b6
fa97: bne  $fa8a                ; d0 f1
fa99: lda  INBIT                ; a5 a7
fa9b: lsr  a                    ; 4a
fa9c: lda  ROPRTY               ; a5 bd
fa9e: bmi  $faa3                ; 30 03
faa0: bcc  $faba                ; 90 18
faa2: clc                       ; 18
faa3: bcs  $faba                ; b0 15
faa5: and  #$0f                 ; 29 0f
faa7: sta  RIDATA               ; 85 aa
faa9: dec  RIDATA               ; c6 aa
faab: bne  $fa8a                ; d0 dd
faad: lda  #$40                 ; a9 40
faaf: sta  RIDATA               ; 85 aa
fab1: jsr  $fb8e                ; 20 8e fb
fab4: lda  #$00                 ; a9 00
fab6: sta  RIPRTY               ; 85 ab
fab8: beq  $fa8a                ; f0 d0
faba: lda  #$80                 ; a9 80
fabc: sta  RIDATA               ; 85 aa
fabe: bne  $fa8a                ; d0 ca
fac0: lda  NXTBIT               ; a5 b5
fac2: beq  $face                ; f0 0a
fac4: lda  #$04                 ; a9 04
fac6: jsr  $fe1c                ; 20 1c fe
fac9: lda  #$00                 ; a9 00
facb: jmp  $fb4a                ; 4c 4a fb
face: jsr  $fcd1                ; 20 d1 fc
fad1: bcc  $fad6                ; 90 03
fad3: jmp  $fb48                ; 4c 48 fb
fad6: ldx  INBIT                ; a6 a7
fad8: dex                       ; ca
fad9: beq  $fb08                ; f0 2d
fadb: lda  VERCKK               ; a5 93
fadd: beq  $faeb                ; f0 0c
fadf: ldy  #$00                 ; a0 00
fae1: lda  ROPRTY               ; a5 bd
fae3: cmp  (SAL),Y              ; d1 ac
fae5: beq  $faeb                ; f0 04
fae7: lda  #$01                 ; a9 01
fae9: sta  RODATA               ; 85 b6
faeb: lda  RODATA               ; a5 b6
faed: beq  $fb3a                ; f0 4b
faef: ldx  #$3d                 ; a2 3d
faf1: cpx  FNMIDX               ; e4 9e
faf3: bcc  $fb33                ; 90 3e
faf5: ldx  FNMIDX               ; a6 9e
faf7: lda  SAL+1                ; a5 ad
faf9: sta  $0101,X              ; 9d 01 01
fafc: lda  SAL                  ; a5 ac
fafe: sta  BAD,X                ; 9d 00 01
fb01: inx                       ; e8
fb02: inx                       ; e8
fb03: stx  FNMIDX               ; 86 9e
fb05: jmp  $fb3a                ; 4c 3a fb
fb08: ldx  PTR2                 ; a6 9f
fb0a: cpx  FNMIDX               ; e4 9e
fb0c: beq  $fb43                ; f0 35
fb0e: lda  SAL                  ; a5 ac
fb10: cmp  BAD,X                ; dd 00 01
fb13: bne  $fb43                ; d0 2e
fb15: lda  SAL+1                ; a5 ad
fb17: cmp  $0101,X              ; dd 01 01
fb1a: bne  $fb43                ; d0 27
fb1c: inc  PTR2                 ; e6 9f
fb1e: inc  PTR2                 ; e6 9f
fb20: lda  VERCKK               ; a5 93
fb22: beq  $fb2f                ; f0 0b
fb24: lda  ROPRTY               ; a5 bd
fb26: ldy  #$00                 ; a0 00
fb28: cmp  (SAL),Y              ; d1 ac
fb2a: beq  $fb43                ; f0 17
fb2c: iny                       ; c8
fb2d: sty  RODATA               ; 84 b6
fb2f: lda  RODATA               ; a5 b6
fb31: beq  $fb3a                ; f0 07
fb33: lda  #$10                 ; a9 10
fb35: jsr  $fe1c                ; 20 1c fe
fb38: bne  $fb43                ; d0 09
fb3a: lda  VERCKK               ; a5 93
fb3c: bne  $fb43                ; d0 05
fb3e: tay                       ; a8
fb3f: lda  ROPRTY               ; a5 bd
fb41: sta  (SAL),Y              ; 91 ac
fb43: jsr  $fcdb                ; 20 db fc
fb46: bne  $fb8b                ; d0 43
fb48: lda  #$80                 ; a9 80
fb4a: sta  RIDATA               ; 85 aa
fb4c: sei                       ; 78
fb4d: ldx  #$01                 ; a2 01
fb4f: stx  $dc0d                ; 8e 0d dc
fb52: ldx  $dc0d                ; ae 0d dc
fb55: ldx  FSBLK                ; a6 be
fb57: dex                       ; ca
fb58: bmi  $fb5c                ; 30 02
fb5a: stx  FSBLK                ; 86 be
fb5c: dec  INBIT                ; c6 a7
fb5e: beq  $fb68                ; f0 08
fb60: lda  FNMIDX               ; a5 9e
fb62: bne  $fb8b                ; d0 27
fb64: sta  FSBLK                ; 85 be
fb66: beq  $fb8b                ; f0 23
fb68: jsr  $fc93                ; 20 93 fc
fb6b: jsr  $fb8e                ; 20 8e fb
fb6e: ldy  #$00                 ; a0 00
fb70: sty  RIPRTY               ; 84 ab
fb72: lda  (SAL),Y              ; b1 ac
fb74: eor  RIPRTY               ; 45 ab
fb76: sta  RIPRTY               ; 85 ab
fb78: jsr  $fcdb                ; 20 db fc
fb7b: jsr  $fcd1                ; 20 d1 fc
fb7e: bcc  $fb72                ; 90 f2
fb80: lda  RIPRTY               ; a5 ab
fb82: eor  ROPRTY               ; 45 bd
fb84: beq  $fb8b                ; f0 05
fb86: lda  #$20                 ; a9 20
fb88: jsr  $fe1c                ; 20 1c fe
fb8b: jmp  $febc                ; 4c bc fe
fb8e: lda  STAL+1               ; a5 c2
fb90: sta  SAL+1                ; 85 ad
fb92: lda  STAL                 ; a5 c1
fb94: sta  SAL                  ; 85 ac
fb96: rts                       ; 60
fb97: lda  #$08                 ; a9 08
fb99: sta  TSFCNT               ; 85 a3
fb9b: lda  #$00                 ; a9 00
fb9d: sta  TBTCNT               ; 85 a4
fb9f: sta  BITC1                ; 85 a8
fba1: sta  PRTY                 ; 85 9b
fba3: sta  RINONE               ; 85 a9
fba5: rts                       ; 60
fba6: lda  ROPRTY               ; a5 bd
fba8: lsr  a                    ; 4a
fba9: lda  #$60                 ; a9 60
fbab: bcc  $fbaf                ; 90 02
fbad: lda  #$b0                 ; a9 b0
fbaf: ldx  #$00                 ; a2 00
fbb1: sta  $dc06                ; 8d 06 dc
fbb4: stx  $dc07                ; 8e 07 dc
fbb7: lda  $dc0d                ; ad 0d dc
fbba: lda  #$19                 ; a9 19
fbbc: sta  $dc0f                ; 8d 0f dc
fbbf: lda  R6510                ; a5 01
fbc1: eor  #$08                 ; 49 08
fbc3: sta  R6510                ; 85 01
fbc5: and  #$08                 ; 29 08
fbc7: rts                       ; 60
fbc8: sec                       ; 38
fbc9: ror  RODATA               ; 66 b6
fbcb: bmi  $fc09                ; 30 3c
fbcd: lda  BITC1                ; a5 a8
fbcf: bne  $fbe3                ; d0 12
fbd1: lda  #$10                 ; a9 10
fbd3: ldx  #$01                 ; a2 01
fbd5: jsr  $fbb1                ; 20 b1 fb
fbd8: bne  $fc09                ; d0 2f
fbda: inc  BITC1                ; e6 a8
fbdc: lda  RODATA               ; a5 b6
fbde: bpl  $fc09                ; 10 29
fbe0: jmp  $fc57                ; 4c 57 fc
fbe3: lda  RINONE               ; a5 a9
fbe5: bne  $fbf0                ; d0 09
fbe7: jsr  $fbad                ; 20 ad fb
fbea: bne  $fc09                ; d0 1d
fbec: inc  RINONE               ; e6 a9
fbee: bne  $fc09                ; d0 19
fbf0: jsr  $fba6                ; 20 a6 fb
fbf3: bne  $fc09                ; d0 14
fbf5: lda  TBTCNT               ; a5 a4
fbf7: eor  #$01                 ; 49 01
fbf9: sta  TBTCNT               ; 85 a4
fbfb: beq  $fc0c                ; f0 0f
fbfd: lda  ROPRTY               ; a5 bd
fbff: eor  #$01                 ; 49 01
fc01: sta  ROPRTY               ; 85 bd
fc03: and  #$01                 ; 29 01
fc05: eor  PRTY                 ; 45 9b
fc07: sta  PRTY                 ; 85 9b
fc09: jmp  $febc                ; 4c bc fe
fc0c: lsr  ROPRTY               ; 46 bd
fc0e: dec  TSFCNT               ; c6 a3
fc10: lda  TSFCNT               ; a5 a3
fc12: beq  $fc4e                ; f0 3a
fc14: bpl  $fc09                ; 10 f3
fc16: jsr  $fb97                ; 20 97 fb
fc19: cli                       ; 58
fc1a: lda  CNTDN                ; a5 a5
fc1c: beq  $fc30                ; f0 12
fc1e: ldx  #$00                 ; a2 00
fc20: stx  SCHAR                ; 86 d7
fc22: dec  CNTDN                ; c6 a5
fc24: ldx  FSBLK                ; a6 be
fc26: cpx  #$02                 ; e0 02
fc28: bne  $fc2c                ; d0 02
fc2a: ora  #$80                 ; 09 80
fc2c: sta  ROPRTY               ; 85 bd
fc2e: bne  $fc09                ; d0 d9
fc30: jsr  $fcd1                ; 20 d1 fc
fc33: bcc  $fc3f                ; 90 0a
fc35: bne  $fbc8                ; d0 91
fc37: inc  SAL+1                ; e6 ad
fc39: lda  SCHAR                ; a5 d7
fc3b: sta  ROPRTY               ; 85 bd
fc3d: bcs  $fc09                ; b0 ca
fc3f: ldy  #$00                 ; a0 00
fc41: lda  (SAL),Y              ; b1 ac
fc43: sta  ROPRTY               ; 85 bd
fc45: eor  SCHAR                ; 45 d7
fc47: sta  SCHAR                ; 85 d7
fc49: jsr  $fcdb                ; 20 db fc
fc4c: bne  $fc09                ; d0 bb
fc4e: lda  PRTY                 ; a5 9b
fc50: eor  #$01                 ; 49 01
fc52: sta  ROPRTY               ; 85 bd
fc54: jmp  $febc                ; 4c bc fe
fc57: dec  FSBLK                ; c6 be
fc59: bne  $fc5e                ; d0 03
fc5b: jsr  $fcca                ; 20 ca fc
fc5e: lda  #$50                 ; a9 50
fc60: sta  INBIT                ; 85 a7
fc62: ldx  #$08                 ; a2 08
fc64: sei                       ; 78
fc65: jsr  $fcbd                ; 20 bd fc
fc68: bne  $fc54                ; d0 ea
fc6a: lda  #$78                 ; a9 78
fc6c: jsr  $fbaf                ; 20 af fb
fc6f: bne  $fc54                ; d0 e3
fc71: dec  INBIT                ; c6 a7
fc73: bne  $fc54                ; d0 df
fc75: jsr  $fb97                ; 20 97 fb
fc78: dec  RIPRTY               ; c6 ab
fc7a: bpl  $fc54                ; 10 d8
fc7c: ldx  #$0a                 ; a2 0a
fc7e: jsr  $fcbd                ; 20 bd fc
fc81: cli                       ; 58
fc82: inc  RIPRTY               ; e6 ab
fc84: lda  FSBLK                ; a5 be
fc86: beq  $fcb8                ; f0 30
fc88: jsr  $fb8e                ; 20 8e fb
fc8b: ldx  #$09                 ; a2 09
fc8d: stx  CNTDN                ; 86 a5
fc8f: stx  RODATA               ; 86 b6
fc91: bne  $fc16                ; d0 83
fc93: php                       ; 08
fc94: sei                       ; 78
fc95: lda  $d011                ; ad 11 d0
fc98: ora  #$10                 ; 09 10
fc9a: sta  $d011                ; 8d 11 d0
fc9d: jsr  $fcca                ; 20 ca fc
fca0: lda  #$7f                 ; a9 7f
fca2: sta  $dc0d                ; 8d 0d dc
fca5: jsr  $fddd                ; 20 dd fd
fca8: lda  IRQTMP+1             ; ad a0 02
fcab: beq  $fcb6                ; f0 09
fcad: sta  CINV+1               ; 8d 15 03
fcb0: lda  IRQTMP               ; ad 9f 02
fcb3: sta  CINV                 ; 8d 14 03
fcb6: plp                       ; 28
fcb7: rts                       ; 60
fcb8: jsr  $fc93                ; 20 93 fc
fcbb: beq  $fc54                ; f0 97
fcbd: lda  $fd93,X              ; bd 93 fd
fcc0: sta  CINV                 ; 8d 14 03
fcc3: lda  $fd94,X              ; bd 94 fd
fcc6: sta  CINV+1               ; 8d 15 03
fcc9: rts                       ; 60
fcca: lda  R6510                ; a5 01
fccc: ora  #$20                 ; 09 20
fcce: sta  R6510                ; 85 01
fcd0: rts                       ; 60
fcd1: sec                       ; 38
fcd2: lda  SAL                  ; a5 ac
fcd4: sbc  EAL                  ; e5 ae
fcd6: lda  SAL+1                ; a5 ad
fcd8: sbc  EAL+1                ; e5 af
fcda: rts                       ; 60
fcdb: inc  SAL                  ; e6 ac
fcdd: bne  $fce1                ; d0 02
fcdf: inc  SAL+1                ; e6 ad
fce1: rts                       ; 60
fce2: ldx  #$ff                 ; a2 ff
fce4: sei                       ; 78
fce5: txs                       ; 9a
fce6: cld                       ; d8
fce7: jsr  $fd02                ; 20 02 fd
fcea: bne  $fcef                ; d0 03
fcec: jmp  ($8000)              ; 6c 00 80
fcef: stx  $d016                ; 8e 16 d0
fcf2: jsr  ioinit               ; 20 a3 fd
fcf5: jsr  ramtas               ; 20 50 fd
fcf8: jsr  restor               ; 20 15 fd
fcfb: jsr  cint                 ; 20 5b ff
fcfe: cli                       ; 58
fcff: jmp  ($a000)              ; 6c 00 a0
fd02: ldx  #$05                 ; a2 05
fd04: lda  $fd0f,X              ; bd 0f fd
fd07: cmp  $8003,X              ; dd 03 80
fd0a: bne  $fd0f                ; d0 03
fd0c: dex                       ; ca
fd0d: bne  $fd04                ; d0 f5
fd0f: rts                       ; 60
fd10: ???                       ; c3
fd11: ???                       ; c2
fd12: cmp  $3038                ; cd 38 30
restor: *** Restore Kernal Vectors (at 0314)
fd15: ldx  #$30                 ; a2 30
fd17: ldy  #$fd                 ; a0 fd
fd19: clc                       ; 18
vector: *** Change Vectors For User
fd1a: stx  MEMUSS               ; 86 c3
fd1c: sty  MEMUSS+1             ; 84 c4
fd1e: ldy  #$1f                 ; a0 1f
fd20: lda  CINV,Y               ; b9 14 03
fd23: bcs  $fd27                ; b0 02
fd25: lda  (MEMUSS),Y           ; b1 c3
fd27: sta  (MEMUSS),Y           ; 91 c3
fd29: sta  CINV,Y               ; 99 14 03
fd2c: dey                       ; 88
fd2d: bpl  $fd20                ; 10 f1
fd2f: rts                       ; 60
fd30: and  ($ea),Y              ; 31 ea
fd32: ror  $fe                  ; 66 fe
fd34: ???                       ; 47
fd35: inc  open,X               ; fe 4a f3
fd38: sta  ($f2),Y              ; 91 f2
fd3a: asl  $50f2                ; 0e f2 50
fd3d: ???                       ; f2
fd3e: ???                       ; 33
fd3f: ???                       ; f3
fd40: ???                       ; 57
fd41: sbc  (LXSP+1),Y           ; f1 ca
fd43: sbc  ($ed),Y              ; f1 ed
fd45: inc  OLDTXT+1,X           ; f6 3e
fd47: sbc  (ARYTAB),Y           ; f1 2f
fd49: ???                       ; f3
fd4a: ror  $fe                  ; 66 fe
fd4c: lda  USER+1               ; a5 f4
fd4e: sbc  $a9f5                ; ed f5 a9
fd51: brk                       ; 00
fd52: tay                       ; a8
fd53: sta  $0002,Y              ; 99 02 00
fd56: sta  BUF,Y                ; 99 00 02
fd59: sta  IERROR,Y             ; 99 00 03
fd5c: iny                       ; c8
fd5d: bne  $fd53                ; d0 f4
fd5f: ldx  #$3c                 ; a2 3c
fd61: ldy  #$03                 ; a0 03
fd63: stx  TAPE1                ; 86 b2
fd65: sty  TAPE1+1              ; 84 b3
fd67: tay                       ; a8
fd68: lda  #$03                 ; a9 03
fd6a: sta  STAL+1               ; 85 c2
fd6c: inc  STAL+1               ; e6 c2
fd6e: lda  (STAL),Y             ; b1 c1
fd70: tax                       ; aa
fd71: lda  #$55                 ; a9 55
fd73: sta  (STAL),Y             ; 91 c1
fd75: cmp  (STAL),Y             ; d1 c1
fd77: bne  $fd88                ; d0 0f
fd79: rol  a                    ; 2a
fd7a: sta  (STAL),Y             ; 91 c1
fd7c: cmp  (STAL),Y             ; d1 c1
fd7e: bne  $fd88                ; d0 08
fd80: txa                       ; 8a
fd81: sta  (STAL),Y             ; 91 c1
fd83: iny                       ; c8
fd84: bne  $fd6e                ; d0 e8
fd86: beq  $fd6c                ; f0 e4
fd88: tya                       ; 98
fd89: tax                       ; aa
fd8a: ldy  STAL+1               ; a4 c2
fd8c: clc                       ; 18
fd8d: jsr  $fe2d                ; 20 2d fe
fd90: lda  #$08                 ; a9 08
fd92: sta  MEMSTR+1             ; 8d 82 02
fd95: lda  #$04                 ; a9 04
fd97: sta  HIBASE               ; 8d 88 02
fd9a: rts                       ; 60
fd9b: ror  a                    ; 6a
fd9c: ???                       ; fc
fd9d: cmp  $31fb                ; cd fb 31
fda0: nop                       ; ea
fda1: bit  $a9f9                ; 2c f9 a9
fda4: ???                       ; 7f
fda5: sta  $dc0d                ; 8d 0d dc
fda8: sta  $dd0d                ; 8d 0d dd
fdab: sta  CIA1                 ; 8d 00 dc
fdae: lda  #$08                 ; a9 08
fdb0: sta  $dc0e                ; 8d 0e dc
fdb3: sta  $dd0e                ; 8d 0e dd
fdb6: sta  $dc0f                ; 8d 0f dc
fdb9: sta  $dd0f                ; 8d 0f dd
fdbc: ldx  #$00                 ; a2 00
fdbe: stx  $dc03                ; 8e 03 dc
fdc1: stx  $dd03                ; 8e 03 dd
fdc4: stx  $d418                ; 8e 18 d4
fdc7: dex                       ; ca
fdc8: stx  $dc02                ; 8e 02 dc
fdcb: lda  #$07                 ; a9 07
fdcd: sta  CIA2                 ; 8d 00 dd
fdd0: lda  #$3f                 ; a9 3f
fdd2: sta  $dd02                ; 8d 02 dd
fdd5: lda  #$e7                 ; a9 e7
fdd7: sta  R6510                ; 85 01
fdd9: lda  #$2f                 ; a9 2f
fddb: sta  D6510                ; 85 00
fddd: lda  TVSFLG               ; ad a6 02
fde0: beq  $fdec                ; f0 0a
fde2: lda  #$25                 ; a9 25
fde4: sta  $dc04                ; 8d 04 dc
fde7: lda  #$40                 ; a9 40
fde9: jmp  $fdf3                ; 4c f3 fd
fdec: lda  #$95                 ; a9 95
fdee: sta  $dc04                ; 8d 04 dc
fdf1: lda  #$42                 ; a9 42
fdf3: sta  $dc05                ; 8d 05 dc
fdf6: jmp  $ff6e                ; 4c 6e ff
setnam: *** Set Filename
fdf9: sta  FNLEN                ; 85 b7
fdfb: stx  FNADR                ; 86 bb
fdfd: sty  FNADR+1              ; 84 bc
fdff: rts                       ; 60
setlfs: *** Set Logical File Parameters
fe00: sta  LA                   ; 85 b8
fe02: stx  FA                   ; 86 ba
fe04: sty  SA                   ; 84 b9
fe06: rts                       ; 60
readst: *** Get I/O Status Word
fe07: lda  FA                   ; a5 ba
fe09: cmp  #$02                 ; c9 02
fe0b: bne  $fe1a                ; d0 0d
fe0d: lda  RSSTAT               ; ad 97 02
fe10: pha                       ; 48
fe11: lda  #$00                 ; a9 00
fe13: sta  RSSTAT               ; 8d 97 02
fe16: pla                       ; 68
fe17: rts                       ; 60
setmsg: *** Control OS Messages
fe18: sta  MSGFLG               ; 85 9d
fe1a: lda  STATUS               ; a5 90
fe1c: ora  STATUS               ; 05 90
fe1e: sta  STATUS               ; 85 90
fe20: rts                       ; 60
settmo: *** Set IEEE Timeout
fe21: sta  TIMOUT               ; 8d 85 02
fe24: rts                       ; 60
memtop: *** Read / Set Top of Memory
fe25: bcc  $fe2d                ; 90 06
fe27: ldx  MEMSIZ               ; ae 83 02
fe2a: ldy  MEMSIZ+1             ; ac 84 02
fe2d: stx  MEMSIZ               ; 8e 83 02
fe30: sty  MEMSIZ+1             ; 8c 84 02
fe33: rts                       ; 60
membot: *** Read / Set Bottom of Memory
fe34: bcc  $fe3c                ; 90 06
fe36: ldx  MEMSTR               ; ae 81 02
fe39: ldy  MEMSTR+1             ; ac 82 02
fe3c: stx  MEMSTR               ; 8e 81 02
fe3f: sty  MEMSTR+1             ; 8c 82 02
fe42: rts                       ; 60
fe43: sei                       ; 78
fe44: jmp  (NMINV)              ; 6c 18 03
fe47: pha                       ; 48
fe48: txa                       ; 8a
fe49: pha                       ; 48
fe4a: tya                       ; 98
fe4b: pha                       ; 48
fe4c: lda  #$7f                 ; a9 7f
fe4e: sta  $dd0d                ; 8d 0d dd
fe51: ldy  $dd0d                ; ac 0d dd
fe54: bmi  $fe72                ; 30 1c
fe56: jsr  $fd02                ; 20 02 fd
fe59: bne  $fe5e                ; d0 03
fe5b: jmp  ($8002)              ; 6c 02 80
fe5e: jsr  $f6bc                ; 20 bc f6
fe61: jsr  VECT_(istop)         ; 20 e1 ff
fe64: bne  $fe72                ; d0 0c
fe66: jsr  restor               ; 20 15 fd
fe69: jsr  ioinit               ; 20 a3 fd
fe6c: jsr  cint1                ; 20 18 e5
fe6f: jmp  ($a002)              ; 6c 02 a0
fe72: tya                       ; 98
fe73: and  ENABL                ; 2d a1 02
fe76: tax                       ; aa
fe77: and  #$01                 ; 29 01
fe79: beq  $fea3                ; f0 28
fe7b: lda  CIA2                 ; ad 00 dd
fe7e: and  #$fb                 ; 29 fb
fe80: ora  NXTBIT               ; 05 b5
fe82: sta  CIA2                 ; 8d 00 dd
fe85: lda  ENABL                ; ad a1 02
fe88: sta  $dd0d                ; 8d 0d dd
fe8b: txa                       ; 8a
fe8c: and  #$12                 ; 29 12
fe8e: beq  $fe9d                ; f0 0d
fe90: and  #$02                 ; 29 02
fe92: beq  $fe9a                ; f0 06
fe94: jsr  $fed6                ; 20 d6 fe
fe97: jmp  $fe9d                ; 4c 9d fe
fe9a: jsr  $ff07                ; 20 07 ff
fe9d: jsr  $eebb                ; 20 bb ee
fea0: jmp  $feb6                ; 4c b6 fe
fea3: txa                       ; 8a
fea4: and  #$02                 ; 29 02
fea6: beq  $feae                ; f0 06
fea8: jsr  $fed6                ; 20 d6 fe
feab: jmp  $feb6                ; 4c b6 fe
feae: txa                       ; 8a
feaf: and  #$10                 ; 29 10
feb1: beq  $feb6                ; f0 03
feb3: jsr  $ff07                ; 20 07 ff
feb6: lda  ENABL                ; ad a1 02
feb9: sta  $dd0d                ; 8d 0d dd
febc: pla                       ; 68
febd: tay                       ; a8
febe: pla                       ; 68
febf: tax                       ; aa
fec0: pla                       ; 68
fec1: rti                       ; 40
fec2: cmp  ($27,X)              ; c1 27
fec4: rol  $c51a,X              ; 3e 1a c5
fec7: ora  ($74),Y              ; 11 74
fec9: asl  $0ced                ; 0e ed 0c
fecc: eor  ADRAY2+1             ; 45 06
fece: beq  $fed2                ; f0 02
fed0: lsr  R6510                ; 46 01
fed2: clv                       ; b8
fed3: brk                       ; 00
fed4: adc  (D6510),Y            ; 71 00
fed6: lda  $dd01                ; ad 01 dd
fed9: and  #$01                 ; 29 01
fedb: sta  INBIT                ; 85 a7
fedd: lda  $dd06                ; ad 06 dd
fee0: sbc  #$1c                 ; e9 1c
fee2: adc  BAUDOF               ; 6d 99 02
fee5: sta  $dd06                ; 8d 06 dd
fee8: lda  $dd07                ; ad 07 dd
feeb: adc  BAUDOF+1             ; 6d 9a 02
feee: sta  $dd07                ; 8d 07 dd
fef1: lda  #$11                 ; a9 11
fef3: sta  $dd0f                ; 8d 0f dd
fef6: lda  ENABL                ; ad a1 02
fef9: sta  $dd0d                ; 8d 0d dd
fefc: lda  #$ff                 ; a9 ff
fefe: sta  $dd06                ; 8d 06 dd
ff01: sta  $dd07                ; 8d 07 dd
ff04: jmp  $ef59                ; 4c 59 ef
ff07: lda  M51AJB               ; ad 95 02
ff0a: sta  $dd06                ; 8d 06 dd
ff0d: lda  M51AJB+1             ; ad 96 02
ff10: sta  $dd07                ; 8d 07 dd
ff13: lda  #$11                 ; a9 11
ff15: sta  $dd0f                ; 8d 0f dd
ff18: lda  #$12                 ; a9 12
ff1a: eor  ENABL                ; 4d a1 02
ff1d: sta  ENABL                ; 8d a1 02
ff20: lda  #$ff                 ; a9 ff
ff22: sta  $dd06                ; 8d 06 dd
ff25: sta  $dd07                ; 8d 07 dd
ff28: ldx  BITNUM               ; ae 98 02
ff2b: stx  BITC1                ; 86 a8
ff2d: rts                       ; 60
ff2e: tax                       ; aa
ff2f: lda  M51AJB+1             ; ad 96 02
ff32: rol  a                    ; 2a
ff33: tay                       ; a8
ff34: txa                       ; 8a
ff35: adc  #$c8                 ; 69 c8
ff37: sta  BAUDOF               ; 8d 99 02
ff3a: tya                       ; 98
ff3b: adc  #$00                 ; 69 00
ff3d: sta  BAUDOF+1             ; 8d 9a 02
ff40: rts                       ; 60
ff41: nop                       ; ea
ff42: nop                       ; ea
ff43: php                       ; 08
ff44: pla                       ; 68
ff45: and  #$ef                 ; 29 ef
ff47: pha                       ; 48
ff48: pha                       ; 48
ff49: txa                       ; 8a
ff4a: pha                       ; 48
ff4b: tya                       ; 98
ff4c: pha                       ; 48
ff4d: tsx                       ; ba
ff4e: lda  $0104,X              ; bd 04 01
ff51: and  #$10                 ; 29 10
ff53: beq  $ff58                ; f0 03
ff55: jmp  (CNBINV)             ; 6c 16 03
ff58: jmp  (CINV)               ; 6c 14 03
cint: *** Initialize screen editor
ff5b: jsr  cint1                ; 20 18 e5
ff5e: lda  $d012                ; ad 12 d0
ff61: bne  $ff5e                ; d0 fb
ff63: lda  $d019                ; ad 19 d0
ff66: and  #$01                 ; 29 01
ff68: sta  TVSFLG               ; 8d a6 02
ff6b: jmp  $fddd                ; 4c dd fd
ff6e: lda  #$81                 ; a9 81
ff70: sta  $dc0d                ; 8d 0d dc
ff73: lda  $dc0e                ; ad 0e dc
ff76: and  #$80                 ; 29 80
ff78: ora  #$11                 ; 09 11
ff7a: sta  $dc0e                ; 8d 0e dc
ff7d: jmp  $ee8e                ; 4c 8e ee
ff80: ???                       ; 03
ff81: jmp  cint                 ; 4c 5b ff
ff84: jmp  ioinit               ; 4c a3 fd
ff87: jmp  ramtas               ; 4c 50 fd
ff8a: jmp  restor               ; 4c 15 fd
ff8d: jmp  vector               ; 4c 1a fd
ff90: jmp  setmsg               ; 4c 18 fe
ff93: jmp  second               ; 4c b9 ed
ff96: jmp  tksa                 ; 4c c7 ed
ff99: jmp  memtop               ; 4c 25 fe
ff9c: jmp  membot               ; 4c 34 fe
ff9f: jmp  scnkey               ; 4c 87 ea
ffa2: jmp  settmo               ; 4c 21 fe
ffa5: jmp  acptr                ; 4c 13 ee
ffa8: jmp  ciout                ; 4c dd ed
ffab: jmp  untlk                ; 4c ef ed
ffae: jmp  $edfe                ; 4c fe ed
ffb1: jmp  listn                ; 4c 0c ed
ffb4: jmp  talk                 ; 4c 09 ed
ffb7: jmp  readst               ; 4c 07 fe
ffba: jmp  setlfs               ; 4c 00 fe
ffbd: jmp  setnam               ; 4c f9 fd
ffc0: jmp  (IOPEN)              ; 6c 1a 03
ffc3: jmp  (ICLOSE)             ; 6c 1c 03
ffc6: jmp  (ICHKIN)             ; 6c 1e 03
ffc9: jmp  (ICKOUT)             ; 6c 20 03
ffcc: jmp  (ICLRCH)             ; 6c 22 03
ffcf: jmp  (IBASIN)             ; 6c 24 03
ffd2: jmp  (IBSOUT)             ; 6c 26 03
ffd5: jmp  load                 ; 4c 9e f4
ffd8: jmp  save                 ; 4c dd f5
ffdb: jmp  settim               ; 4c e4 f6
ffde: jmp  rdtim                ; 4c dd f6
ffe1: jmp  (ISTOP)              ; 6c 28 03
ffe4: jmp  (IGETIN)             ; 6c 2a 03
ffe7: jmp  (ICLALL)             ; 6c 2c 03
ffea: jmp  udtim                ; 4c 9b f6
ffed: jmp  screen               ; 4c 05 e5
fff0: jmp  plot                 ; 4c 0a e5
fff3: jmp  iobase               ; 4c 00 e5
fff6: ???                       ; 52
fff7: ???                       ; 52
fff8: ???                       ; 42
fff9: eor  $fe43,Y              ; 59 43 fe
fffc: ???                       ; e2
fffd: ???                       ; fc
fffe: pha                       ; 48
ffff: ???                       ; ff
