CBM 1541 Adapter/VC-1541-DOS/80 Disassembly
The disassembly of VC-1541-DOS/80 is a work in progress. It was made with the "Disassemble File..." tool of C64 Studio.
* = $a000
$A000: 4C 36 A0 jmp Start
$A003: 4C 9C A0 jmp label_a09c
$A006: 4C 77 A3 jmp label_a377
$A009: 4C 82 A3 jmp label_a382
$A00C: 4C 28 A1 jmp label_a128
$A00F: 4C 36 A1 jmp label_a136
$A012: 4C 41 A1 jmp label_a141
$A015: 4C 06 A3 jmp label_a306
$A018: 4C 14 A3 jmp label_a314
$A01B: 4C 2A A3 jmp label_a32a
$A01E: 4C 1F A3 jmp label_a31f
$A021: 4C 35 A3 jmp label_a335
$A024: 4C 45 A3 jmp label_a345
$A027: 4C 53 A3 jmp label_a353
$A02A: 4C 40 A3 jmp label_a340
$A02D: 4C 61 A3 jmp label_a361
$A030: 4C 6C A3 jmp label_a36c
$A033: 4C 19 A1 jmp label_a119
$A036:
$A036: Start
$A036: A9 4C lda #$4c
$A038: 85 70 sta CHRGET
$A03A: A9 61 lda #$61
$A03C: 85 71 sta $71
$A03E: A9 A0 lda #$A0
$A040: 85 72 sta $72
$A042: A9 08 lda #$08
$A044: 8D FE 03 sta $03fe
$A047: 20 90 A3 jsr RESET_VIA
$A04A: A9 51 lda #$51
$A04C: A0 A0 ldy #$40
$A04E: 4C 1D BB jmp STROUT
$A051:!byte $56,$43,$2D,$31,$35,$34,$31,$2D ; text "VC-1541-
$A059:!byte $44,$4F,$53,$2F,$38,$30,$0D,$00 ; DOS/80
$A061: E6 77 inc TXTPTR_L
$A063: D0 02 bne NXT_TOKEN
$A065: E6 78 inc TXTPTR_H
$A067:
$A067: NXT_TOKEN
$A067: 20 76 00 jsr CHRGOT
$A06A: 08 php
$A06B: C9 21 cmp #$21
$A06D: D0 21 bne EXIT_TOKEN_DECODING
$A06F: 86 AB stx Tape_EOT
$A071: BA tsx
$A072: BD 03 01 lda $0103, x
$A075: C9 BF cmp #$bf
$A077: F0 04 beq Chk_Callingddr_L
$A079: C9 B8 cmp #$b8
$A07B: D0 0F bne Token_decoding_RestoreX
$A07D:
$A07D: Chk_Callingddr_L
$A07D: BD 02 01 lda $0102, x
$A080: C9 23 cmp #$23
$A082: F0 0E beq Called_fr_BFC1
$A084: C9 C1 cmp #$c1
$A086: D0 04 bne Token_decoding_RestoreX
$A088: A5 5E lda $5e
$A08A: D0 06 bne Called_fr_BFC1
$A08C:
$A08C: Token_decoding_RestoreX
$A08C: A6 AB ldx Tape_EOT
$A08E: A9 21 lda #$21
$A090:
$A090: EXIT_TOKEN_DECODING
$A090: 28 plp
$A091: 60 rts
$A092:
$A092: Called_fr_BFC1
$A092: 28 plp
$A093: 20 70 00 jsr CHRGET
$A096: AD FE 03 lda $03fe
$A099: 8D FF 03 sta $03ff
$A09C:
$A09C: label_a09c
$A09C: 20 5A A8 jsr label_a85a
$A09F: 48 pha
$A0A0: 20 70 00 jsr CHRGET
$A0A3: 68 pla
$A0A4: C9 93 cmp #$93
$A0A6: F0 67 beq FND_TOKEN_LOAD
$A0A8: C9 94 cmp #$94
$A0AA: D0 03 bne DECODE_TOKEN1
$A0AC: 4C E5 A5 jmp FND_TOKEN_SAVE
$A0AF:
$A0AF: DECODE_TOKEN1
$A0AF: C9 95 cmp #$95
$A0B1: F0 5F beq FND_TOKEN_VERIFY
$A0B3: C9 D7 cmp #$d7
$A0B5: D0 03 bne DECODE_TOKEN2
$A0B7: 4C C7 A7 jmp FND_TOKEN_CATALOG
$A0BA:
$A0BA: DECODE_TOKEN2
$A0BA: C9 9F cmp #$9f
$A0BC: D0 03 bne DECODE_TOKEN3
$A0BE: 4C 1C A1 jmp FND_TOKEN_OPEN
$A0C1:
$A0C1: DECODE_TOKEN3
$A0C1: C9 98 cmp #$98
$A0C3: D0 03 bne DECODE_TOKEN4
$A0C5: 4C 75 A1 jmp FND_TOKEN_PRINTF
$A0C8:
$A0C8: DECODE_TOKEN4
$A0C8: C9 A1 cmp #$a1
$A0CA: D0 03 bne DECODE_TOKEN5
$A0CC: 4C E0 A1 jmp FND_TOKEN_GET
$A0CF:
$A0CF: DECODE_TOKEN5
$A0CF: C9 A0 cmp #C3PO
$A0D1: D0 03 bne DECODE_TOKEN6
$A0D3: 4C 33 A1 jmp FND_TOKEN_CLOSE
$A0D6:
$A0D6: DECODE_TOKEN6
$A0D6: C9 84 cmp #$84
$A0D8: D0 03 bne DECODE_TOKEN7
$A0DA: 4C 26 A2 jmp FND_TOKEN_INPUTF
$A0DD:
$A0DD: DECODE_TOKEN7
$A0DD: C9 9D cmp #VERCK
$A0DF: D0 03 bne DECODE_TOKEN8
$A0E1: 4C 4C A1 jmp FND_TOKEN_CMD
$A0E4:
$A0E4: DECODE_TOKEN8
$A0E4: C9 51 cmp #$51
$A0E6: D0 0D bne NFND_Q
$A0E8: A9 E6 lda #$e6
$A0EA: 85 70 sta CHRGET
$A0EC: A9 77 lda #TXTPTR_L
$A0EE: 85 71 sta $71
$A0F0: A9 D0 lda #$d0
$A0F2: 85 72 sta $72
$A0F4: 60 rts
$A0F5:
$A0F5: NFND_Q
$A0F5: C9 40 cmp #$40
$A0F7: D0 03 bne DEC_TXTPTR
$A0F9: 4C 86 A5 jmp FND_AT
$A0FC:
$A0FC: DEC_TXTPTR
$A0FC: C6 77 dec TXTPTR_L
$A0FE: A5 77 lda TXTPTR_L
$A100: C9 FF cmp #COUNT
$A102: D0 02 bne DEC_TXTPTR_END
$A104: C6 78 dec TXTPTR_H
$A106:
$A106: DEC_TXTPTR_END
$A106: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A109: 8E FF 03 stx $03ff
$A10C: 4C 9C A0 jmp label_a09c
$A10F:
$A10F: FND_TOKEN_LOAD
$A10F: A9 00 lda #$00
$A111: 2C A9 FF bit $ffa9
$A114: 85 9D sta VERCK
$A116: 4C B7 A6 jmp label_a6b7
$A119:
$A119: label_a119
$A119: 4C 40 A3 jmp label_a340
$A11C:
$A11C: FND_TOKEN_OPEN
$A11C: 20 90 A3 jsr RESET_VIA
$A11F: 20 A8 A8 jsr Confirm_Hash
$A122: 20 F5 BE jsr TEST_COMMA
$A125: 20 B6 A7 jsr label_a7b6
$A128:
$A128: label_a128
$A128: 20 A0 A8 jsr label_a8a0
$A12B: D0 03 bne label_a130
$A12D: 4C 89 A6 jmp label_a689
$A130:
$A130: label_a130
$A130: 4C A5 F4 jmp $f4a5
$A133:
$A133: FND_TOKEN_CLOSE
$A133: 20 A8 A8 jsr Confirm_Hash
$A136:
$A136: label_a136
$A136: 20 A0 A8 jsr label_a8a0
$A139: D0 03 bne label_a13e
$A13B: 4C 5E A6 jmp label_a65e
$A13E:
$A13E: label_a13e
$A13E: 4C 2F F7 jmp $f72f
$A141:
$A141: label_a141
$A141: 20 A0 A8 jsr label_a8a0
$A144: D0 03 bne label_a149
$A146: 4C 07 A5 jmp label_a507
$A149:
$A149: label_a149
$A149: 4C C0 F1 jmp $f1c0
$A14C:
$A14C: FND_TOKEN_CMD
$A14C: 20 A8 A8 jsr Confirm_Hash
$A14F: A9 5F lda #$5f
$A151: 85 EB sta $eb
$A153: A9 A1 lda #$a1
$A155: 85 EC sta $ec
$A157: 20 14 A3 jsr label_a314
$A15A: A5 D3 lda SA_SecAddr
$A15C: 4C 40 A3 jmp label_a340
$A15F: A5 D9 lda $d9
$A161: C9 0D cmp #$0d
$A163: D0 0A bne label_a16f
$A165: 2C FF 03 bit $03ff
$A168: 10 05 bpl label_a16f
$A16A: 20 06 A3 jsr label_a306
$A16D: A9 0A lda #$0a
$A16F:
$A16F: label_a16f
$A16F: 20 06 A3 jsr label_a306
$A172: 4C 87 E7 jmp $e787
$A175:
$A175: FND_TOKEN_PRINTF
$A175: A5 EB lda $eb
$A177: C9 5F cmp #$5f
$A179: D0 11 bne label_a18c
$A17B: A5 EC lda $ec
$A17D: C9 A1 cmp #$a1
$A17F: D0 0B bne label_a18c
$A181: A9 87 lda #$87
$A183: 85 EB sta $eb
$A185: A9 E7 lda #$e7
$A187: 85 EC sta $ec
$A189: 20 2A A3 jsr label_a32a
$A18C:
$A18C: label_a18c
$A18C: 20 AD A8 jsr label_a8ad
$A18F: 20 14 A3 jsr label_a314
$A192: A5 D3 lda SA_SecAddr
$A194: 20 40 A3 jsr label_a340
$A197: 20 5A A8 jsr label_a85a
$A19A: D0 32 bne label_a1ce
$A19C: 20 70 00 jsr CHRGET
$A19F:
$A19F: label_a19f
$A19F: 20 98 BD jsr frmev1
$A1A2: 24 07 bit $07
$A1A4: 30 06 bmi label_a1ac
$A1A6: 20 93 CF jsr fout
$A1A9: 20 B0 C5 jsr $c5b0
$A1AC:
$A1AC: label_a1ac
$A1AC: 20 B5 C7 jsr frestr
$A1AF: 85 D1 sta $d1
$A1B1: A0 00 ldy #$00
$A1B3:
$A1B3: label_a1b3
$A1B3: C4 D1 cpy $d1
$A1B5: F0 08 beq label_a1bf
$A1B7: B1 1F lda ( $1f ), y
$A1B9: 20 06 A3 jsr label_a306
$A1BC: C8 iny
$A1BD: D0 F4 bne label_a1b3
$A1BF:
$A1BF: label_a1bf
$A1BF: 20 5A A8 jsr label_a85a
$A1C2: C9 3B cmp #$3b
$A1C4: D0 08 bne label_a1ce
$A1C6: 20 70 00 jsr CHRGET
$A1C9: F0 12 beq label_a1dd
$A1CB: 4C 9F A1 jmp label_a19f
$A1CE:
$A1CE: label_a1ce
$A1CE: A9 0D lda #$0d
$A1D0: 20 06 A3 jsr label_a306
$A1D3: 2C FF 03 bit $03ff
$A1D6: 10 05 bpl label_a1dd
$A1D8: A9 0A lda #$0a
$A1DA: 20 06 A3 jsr label_a306
$A1DD:
$A1DD: label_a1dd
$A1DD: 4C 2A A3 jmp label_a32a
$A1E0:
$A1E0: FND_TOKEN_GET
$A1E0: 20 A8 A8 jsr Confirm_Hash
$A1E3: 20 F5 BE jsr TEST_COMMA
$A1E6: AD FF 03 lda $03ff
$A1E9: 29 7F and #$7f
$A1EB: 85 10 sta $10
$A1ED: 20 1F A3 jsr label_a31f
$A1F0: A5 D3 lda SA_SecAddr
$A1F2: 20 40 A3 jsr label_a340
$A1F5: A2 01 ldx #$01
$A1F7: A0 02 ldy #$02
$A1F9: A9 00 lda #$00
$A1FB: 8D 01 02 sta $0201
$A1FE: A9 40 lda #$40
$A200: 4C 45 A2 jmp label_a245
$A203:
$A203: label_a203
$A203: A2 00 ldx #$00
$A205:
$A205: label_a205
$A205: 20 41 A1 jsr label_a141
$A208: C9 0D cmp #$0d
$A20A: F0 10 beq label_a21c
$A20C: 9D 00 02 sta BUF, x
$A20F: E8 inx
$A210: E0 51 cpx #$51
$A212: D0 F1 bne label_a205
$A214: 20 35 A3 jsr label_a335
$A217: A2 B0 ldx #$b0
$A219: 4C CF B3 jmp $b3cf
$A21C:
$A21C: label_a21c
$A21C: A9 00 lda #$00
$A21E: 9D 00 02 sta BUF, x
$A221: A2 FF ldx #COUNT
$A223: A0 01 ldy #$01
$A225: 60 rts
$A226:
$A226: FND_TOKEN_INPUTF
$A226: 20 AD A8 jsr label_a8ad
$A229: 20 F5 BE jsr TEST_COMMA
$A22C: 20 1F A3 jsr label_a31f
$A22F: A5 D3 lda SA_SecAddr
$A231: 20 40 A3 jsr label_a340
$A234: AD FF 03 lda $03ff
$A237: 29 7F and #$7f
$A239: 85 10 sta $10
$A23B: A9 2C lda #$2c
$A23D: 8D FF 01 sta $01ff
$A240: 20 03 A2 jsr label_a203
$A243: A9 00 lda #$00
$A245:
$A245: label_a245
$A245: 85 0B sta $0b
$A247: 86 40 stx $40
$A249: 84 41 sty $41
$A24B:
$A24B: label_a24b
$A24B: 20 2B C1 jsr ptrget
$A24E: 85 46 sta $46
$A250: 84 47 sty $47
$A252: A5 77 lda TXTPTR_L
$A254: A4 78 ldy TXTPTR_H
$A256: 85 48 sta $48
$A258: 84 49 sty $49
$A25A: A6 40 ldx $40
$A25C: A4 41 ldy $41
$A25E: 86 77 stx TXTPTR_L
$A260: 84 78 sty TXTPTR_H
$A262: 20 76 00 jsr CHRGOT
$A265: D0 1E bne label_a285
$A267: 24 0B bit $0b
$A269: 50 0C bvc label_a277
$A26B: 20 41 A1 jsr label_a141
$A26E: 8D 00 02 sta BUF
$A271: A2 FF ldx #COUNT
$A273: A0 01 ldy #$01
$A275: D0 0A bne label_a281
$A277:
$A277: label_a277
$A277: A5 10 lda $10
$A279: D0 03 bne label_a27e
$A27B: 20 44 BB jsr $bb44
$A27E:
$A27E: label_a27e
$A27E: 20 03 A2 jsr label_a203
$A281:
$A281: label_a281
$A281: 86 77 stx TXTPTR_L
$A283: 84 78 sty TXTPTR_H
$A285:
$A285: label_a285
$A285: 20 70 00 jsr CHRGET
$A288: 24 07 bit $07
$A28A: 10 31 bpl label_a2bd
$A28C: 24 0B bit $0b
$A28E: 50 09 bvc label_a299
$A290: E8 inx
$A291: 86 77 stx TXTPTR_L
$A293: A9 00 lda #$00
$A295: 85 03 sta $03
$A297: F0 0C beq label_a2a5
$A299:
$A299: label_a299
$A299: 85 03 sta $03
$A29B: C9 22 cmp #$22
$A29D: F0 07 beq label_a2a6
$A29F: A9 3A lda #$3a
$A2A1: 85 03 sta $03
$A2A3: A9 2C lda #$2c
$A2A5:
$A2A5: label_a2a5
$A2A5: 18 clc
$A2A6:
$A2A6: label_a2a6
$A2A6: 85 04 sta $04
$A2A8: A5 77 lda TXTPTR_L
$A2AA: A4 78 ldy TXTPTR_H
$A2AC: 69 00 adc #$00
$A2AE: 90 01 bcc label_a2b1
$A2B0: C8 iny
$A2B1:
$A2B1: label_a2b1
$A2B1: 20 B6 C5 jsr $c5b6
$A2B4: 20 18 C9 jsr $c918
$A2B7: 20 65 B9 jsr $b965
$A2BA: 4C C5 A2 jmp label_a2c5
$A2BD:
$A2BD: label_a2bd
$A2BD: 20 29 CE jsr $ce29
$A2C0: A5 08 lda $08
$A2C2: 20 4D B9 jsr $b94d
$A2C5:
$A2C5: label_a2c5
$A2C5: 20 76 00 jsr CHRGOT
$A2C8: F0 07 beq label_a2d1
$A2CA: C9 2C cmp #$2c
$A2CC: F0 03 beq label_a2d1
$A2CE: 4C 4C BB jmp $bb4c
$A2D1:
$A2D1: label_a2d1
$A2D1: A5 77 lda TXTPTR_L
$A2D3: A4 78 ldy TXTPTR_H
$A2D5: 85 40 sta $40
$A2D7: 84 41 sty $41
$A2D9: A5 48 lda $48
$A2DB: A4 49 ldy $49
$A2DD: 85 77 sta TXTPTR_L
$A2DF: 84 78 sty TXTPTR_H
$A2E1: 20 76 00 jsr CHRGOT
$A2E4: F0 06 beq label_a2ec
$A2E6: 20 F5 BE jsr TEST_COMMA
$A2E9: 4C 4B A2 jmp label_a24b
$A2EC:
$A2EC: label_a2ec
$A2EC: 20 DA BC jsr $bcda
$A2EF: 20 35 A3 jsr label_a335
$A2F2: A9 00 lda #$00
$A2F4: 85 10 sta $10
$A2F6: 60 rts
$A2F7:!byte $28,$43,$29,$20,$47,$20,$4D,$55
$A2FF:!byte $54,$5A,$20,$28,$38,$34,$29
$A306:
$A306: label_a306
$A306: 48 pha
$A307: 20 A0 A8 jsr label_a8a0
$A30A: D0 04 bne label_a310
$A30C: 68 pla
$A30D: 4C D2 A4 jmp CIOUT
$A310:
$A310: label_a310
$A310: 68 pla
$A311: 4C 9E F1 jmp $f19e
$A314:
$A314: label_a314
$A314: 20 A0 A8 jsr label_a8a0
$A317: D0 03 bne label_a31c
$A319: 4C F2 A3 jmp label_a3f2
$A31C:
$A31C: label_a31c
$A31C: 4C D5 F0 jmp $f0d5
$A31F:
$A31F: label_a31f
$A31F: 20 A0 A8 jsr label_a8a0
$A322: D0 03 bne label_a327
$A324: 4C EF A3 jmp label_a3ef
$A327:
$A327: label_a327
$A327: 4C D2 F0 jmp $f0d2
$A32A:
$A32A: label_a32a
$A32A: 20 A0 A8 jsr label_a8a0
$A32D: D0 03 bne label_a332
$A32F: 4C EE A4 jmp label_a4ee
$A332:
$A332: label_a332
$A332: 4C B9 F1 jmp $f1b9
$A335:
$A335: label_a335
$A335: 20 A0 A8 jsr label_a8a0
$A338: D0 03 bne label_a33d
$A33A: 4C E4 A4 jmp UNTLK
$A33D:
$A33D: label_a33d
$A33D: 4C AE F1 jmp $f1ae
$A340:
$A340: label_a340
$A340: 2C D0 87 bit $87d0
$A343: 70 0E bvs label_a353
$A345:
$A345: label_a345
$A345: 48 pha
$A346: 20 A0 A8 jsr label_a8a0
$A349: D0 04 bne label_a34f
$A34B: 68 pla
$A34C: 4C 9C A4 jmp SECND
$A34F:
$A34F: label_a34f
$A34F: 68 pla
$A350: 4C 43 F1 jmp $f143
$A353:
$A353: label_a353
$A353: 48 pha
$A354: 20 A0 A8 jsr label_a8a0
$A357: D0 04 bne label_a35d
$A359: 68 pla
$A35A: 4C BC A4 jmp TKSA
$A35D:
$A35D: label_a35d
$A35D: 68 pla
$A35E: 4C 43 F1 jmp $f143
$A361:
$A361: label_a361
$A361: 20 A0 A8 jsr label_a8a0
$A364: D0 03 bne label_a369
$A366: 4C AA A4 jmp ATNLO
$A369:
$A369: label_a369
$A369: 4C B3 A4 jmp PA2LO
$A36C:
$A36C: label_a36c
$A36C: 20 A0 A8 jsr label_a8a0
$A36F: D0 03 bne label_a374
$A371: 4C A1 A4 jmp SCATN
$A374:
$A374: label_a374
$A374: 4C 48 F1 jmp $f148
$A377:
$A377: label_a377
$A377: 20 A0 A8 jsr label_a8a0
$A37A: D0 03 bne label_a37f
$A37C: 4C 23 A4 jmp ISOUR
$A37F:
$A37F: label_a37f
$A37F: 4C 09 F1 jmp $f109
$A382:
$A382: label_a382
$A382: 48 pha
$A383: 20 A0 A8 jsr label_a8a0
$A386: D0 04 bne label_a38c
$A388: 68 pla
$A389: 4C F4 A3 jmp label_a3f4
$A38C:
$A38C: label_a38c
$A38C: 68 pla
$A38D: 4C D7 F0 jmp $f0d7
$A390:
$A390: RESET_VIA
$A390: A9 3F lda #$3f
$A392: 8D 43 E8 sta VIA_DDRA
$A395: A9 00 lda #$00
$A397: 8D 48 E8 sta VIA_TMR2LOW
$A39A: 8D 49 E8 sta VIA_TMR2HIGH
$A39D: 8D 4B E8 sta VIA_ACR
$A3A0: A9 2C lda #$2c
$A3A2: 85 BA sta $ba
$A3A4: A9 17 lda #$17
$A3A6: 8D 41 E8 sta D2PRA
$A3A9: A9 80 lda #$80
$A3AB: 85 FD sta EOIFLAG
$A3AD:
$A3AD: label_a3ad
$A3AD: AD FF 03 lda $03ff
$A3B0: 29 7F and #$7f
$A3B2: 85 D4 sta FA_DevNo
$A3B4: A9 00 lda #$00
$A3B6: 85 96 sta STATUS
$A3B8: 60 rts
$A3B9:
$A3B9: CLKLO
$A3B9: AD 41 E8 lda D2PRA
$A3BC: 09 10 ora #$10
$A3BE: 8D 41 E8 sta D2PRA
$A3C1: 60 rts
$A3C2:
$A3C2: CLKHI
$A3C2: AD 41 E8 lda D2PRA
$A3C5: 29 EF and #$ef
$A3C7: 8D 41 E8 sta D2PRA
$A3CA: 60 rts
$A3CB:
$A3CB: DATAHI
$A3CB: AD 41 E8 lda D2PRA
$A3CE: 29 DF and #$df
$A3D0: 8D 41 E8 sta D2PRA
$A3D3: 60 rts
$A3D4:
$A3D4: DATALO
$A3D4: AD 41 E8 lda D2PRA
$A3D7: 09 20 ora #$20
$A3D9: 8D 41 E8 sta D2PRA
$A3DC: 60 rts
$A3DD:
$A3DD: DEBPIA
$A3DD: AD 41 E8 lda D2PRA
$A3E0: CD 41 E8 cmp D2PRA
$A3E3: D0 F8 bne DEBPIA
$A3E5: 0A asl
$A3E6: 60 rts
$A3E7:
$A3E7: W1MS
$A3E7: 8A txa
$A3E8: A2 C0 ldx #$c0
$A3EA:
$A3EA: W1MS1
$A3EA: CA dex
$A3EB: D0 FD bne W1MS1
$A3ED: AA tax
$A3EE: 60 rts
$A3EF:
$A3EF: label_a3ef
$A3EF: A9 40 lda #$40
$A3F1: 2C A9 20 bit $20a9
$A3F4:
$A3F4: label_a3f4
$A3F4: 8D D0 87 sta $87d0
$A3F7:
$A3F7: LIST1
$A3F7: 05 D4 ora FA_DevNo
$A3F9: 48 pha
$A3FA: 24 A0 bit C3PO
$A3FC: 10 0A bpl LIST2
$A3FE: 38 sec
$A3FF: 66 FD ror EOIFLAG
$A401: 20 23 A4 jsr ISOUR
$A404: 46 A0 lsr C3PO
$A406: 46 FD lsr EOIFLAG
$A408:
$A408: LIST2
$A408: 68 pla
$A409: 85 A5 sta BSOUR
$A40B: 78 sei
$A40C: 20 CB A3 jsr DATAHI
$A40F: C9 3F cmp #$3f
$A411: D0 03 bne LIST5
$A413: 20 C2 A3 jsr CLKHI
$A416:
$A416: LIST5
$A416: 20 AA A4 jsr ATNLO
$A419:
$A419: ISOURA
$A419: 78 sei
$A41A: 20 B9 A3 jsr CLKLO
$A41D: 20 CB A3 jsr DATAHI
$A420: 20 E7 A3 jsr W1MS
$A423:
$A423: ISOUR
$A423: 78 sei
$A424: 20 CB A3 jsr DATAHI
$A427: 20 DD A3 jsr DEBPIA
$A42A: B0 64 bcs NODEV
$A42C: 20 C2 A3 jsr CLKHI
$A42F: 24 FD bit EOIFLAG
$A431: 10 0A bpl NOEOI
$A433:
$A433: ISR02
$A433: 20 DD A3 jsr DEBPIA
$A436: 90 FB bcc ISR02
$A438:
$A438: ISR03
$A438: 20 DD A3 jsr DEBPIA
$A43B: B0 FB bcs ISR03
$A43D:
$A43D: NOEOI
$A43D: 20 DD A3 jsr DEBPIA
$A440: 90 FB bcc NOEOI
$A442: 20 B9 A3 jsr CLKLO
$A445: A9 08 lda #$08
$A447: 85 FF sta COUNT
$A449:
$A449: ISR01
$A449: AD 41 E8 lda D2PRA
$A44C: CD 41 E8 cmp D2PRA
$A44F: D0 F8 bne ISR01
$A451: 0A asl
$A452: 90 3F bcc FRMERR
$A454: 66 A5 ror BSOUR
$A456: B0 05 bcs ISRHI
$A458: 20 D4 A3 jsr DATALO
$A45B: D0 03 bne ISRCLK
$A45D:
$A45D: ISRHI
$A45D: 20 CB A3 jsr DATAHI
$A460:
$A460: ISRCLK
$A460: 20 C2 A3 jsr CLKHI
$A463: EA nop
$A464: EA nop
$A465: EA nop
$A466: EA nop
$A467: AD 41 E8 lda D2PRA
$A46A: 29 DF and #$df
$A46C: 09 10 ora #$10
$A46E: 8D 41 E8 sta D2PRA
$A471: C6 FF dec COUNT
$A473: D0 D4 bne ISR01
$A475: A9 00 lda #$00
$A477: 8D 48 E8 sta VIA_TMR2LOW
$A47A: A9 04 lda #$04
$A47C: 8D 49 E8 sta VIA_TMR2HIGH
$A47F: AD 4D E8 lda VIA_IFR
$A482:
$A482: ISR04
$A482: AD 4D E8 lda VIA_IFR
$A485: 29 20 and #$20
$A487: D0 0A bne FRMERR
$A489: 20 DD A3 jsr DEBPIA
$A48C: B0 F4 bcs ISR04
$A48E: 58 cli
$A48F: 60 rts
$A490:
$A490: NODEV
$A490: A9 80 lda #$80
$A492: 2C A9 03 bit $03a9
$A495:
$A495: CSBERR
$A495: 20 80 A5 jsr UDST
$A498: 58 cli
$A499: 18 clc
$A49A: 90 57 bcc DLABYE
$A49C:
$A49C: SECND
$A49C: 85 A5 sta BSOUR
$A49E: 20 19 A4 jsr ISOURA
$A4A1:
$A4A1: SCATN
$A4A1: AD 41 E8 lda D2PRA
$A4A4: 29 F7 and #$f7
$A4A6: 8D 41 E8 sta D2PRA
$A4A9: 60 rts
$A4AA:
$A4AA: ATNLO
$A4AA: AD 41 E8 lda D2PRA
$A4AD: 09 08 ora #$08
$A4AF: 8D 41 E8 sta D2PRA
$A4B2: 60 rts
$A4B3:
$A4B3: PA2LO
$A4B3: AD 40 E8 lda $e840
$A4B6: 29 FB and #$fb
$A4B8: 8D 40 E8 sta $e840
$A4BB: 60 rts
$A4BC:
$A4BC: TKSA
$A4BC: 85 A5 sta BSOUR
$A4BE: 20 19 A4 jsr ISOURA
$A4C1:
$A4C1: TKATN
$A4C1: 78 sei
$A4C2: 20 D4 A3 jsr DATALO
$A4C5: 20 A1 A4 jsr SCATN
$A4C8: 20 C2 A3 jsr CLKHI
$A4CB:
$A4CB: TKATN1
$A4CB: 20 DD A3 jsr DEBPIA
$A4CE: 30 FB bmi TKATN1
$A4D0: 58 cli
$A4D1: 60 rts
$A4D2:
$A4D2: CIOUT
$A4D2: 24 A0 bit C3PO
$A4D4: 30 05 bmi CI2
$A4D6: 38 sec
$A4D7: 66 A0 ror C3PO
$A4D9: D0 05 bne Ci4
$A4DB:
$A4DB: CI2
$A4DB: 48 pha
$A4DC: 20 23 A4 jsr ISOUR
$A4DF: 68 pla
$A4E0:
$A4E0: Ci4
$A4E0: 85 A5 sta BSOUR
$A4E2: 18 clc
$A4E3: 60 rts
$A4E4:
$A4E4: UNTLK
$A4E4: 78 sei
$A4E5: 20 B9 A3 jsr CLKLO
$A4E8: 20 AA A4 jsr ATNLO
$A4EB: A9 5F lda #$5f
$A4ED: 2C A9 3F bit $3fa9
$A4F0: 20 F7 A3 jsr LIST1
$A4F3:
$A4F3: DLABYE
$A4F3: 20 A1 A4 jsr SCATN
$A4F6:
$A4F6: DLADLH
$A4F6: 8A txa
$A4F7: A2 0A ldx #$0a
$A4F9:
$A4F9: DLAD00
$A4F9: CA dex
$A4FA: D0 FD bne DLAD00
$A4FC: AA tax
$A4FD: 20 C2 A3 jsr CLKHI
$A500: A9 00 lda #$00
$A502: 85 A0 sta C3PO
$A504: 4C CB A3 jmp DATAHI
$A507:
$A507: label_a507
$A507: A5 96 lda STATUS
$A509: F0 03 beq ACPTR
$A50B: A9 0D lda #$0d
$A50D: 60 rts
$A50E:
$A50E: ACPTR
$A50E: 78 sei
$A50F: A9 00 lda #$00
$A511: 85 FF sta COUNT
$A513: 20 C2 A3 jsr CLKHI
$A516:
$A516: ACP00A
$A516: 20 DD A3 jsr DEBPIA
$A519: 10 FB bpl ACP00A
$A51B:
$A51B: EOIACP
$A51B: A9 00 lda #$00
$A51D: 8D 48 E8 sta VIA_TMR2LOW
$A520: A9 01 lda #$01
$A522: 8D 49 E8 sta VIA_TMR2HIGH
$A525: 20 CB A3 jsr DATAHI
$A528: AD 4D E8 lda VIA_IFR
$A52B:
$A52B: ACP00
$A52B: AD 4D E8 lda VIA_IFR
$A52E: 29 20 and #$20
$A530: D0 07 bne ACP00B
$A532: 20 DD A3 jsr DEBPIA
$A535: 30 F4 bmi ACP00
$A537: 10 18 bpl ACP01
$A539:
$A539: ACP00B
$A539: A5 FF lda COUNT
$A53B: F0 05 beq ACP00C
$A53D: A9 02 lda #$02
$A53F: 4C 95 A4 jmp CSBERR
$A542:
$A542: ACP00C
$A542: 20 D4 A3 jsr DATALO
$A545: 20 C2 A3 jsr CLKHI
$A548: A9 40 lda #$40
$A54A: 20 80 A5 jsr UDST
$A54D: E6 FF inc COUNT
$A54F: D0 CA bne EOIACP
$A551:
$A551: ACP01
$A551: A9 08 lda #$08
$A553: 85 FF sta COUNT
$A555:
$A555: ACP03
$A555: AD 41 E8 lda D2PRA
$A558: CD 41 E8 cmp D2PRA
$A55B: D0 F8 bne ACP03
$A55D: 0A asl
$A55E: 10 F5 bpl ACP03
$A560: 66 FE ror BSOUR1
$A562:
$A562: ACP03A
$A562: AD 41 E8 lda D2PRA
$A565: CD 41 E8 cmp D2PRA
$A568: D0 F8 bne ACP03A
$A56A: 0A asl
$A56B: 30 F5 bmi ACP03A
$A56D: C6 FF dec COUNT
$A56F: D0 E4 bne ACP03
$A571: 20 D4 A3 jsr DATALO
$A574: 24 96 bit STATUS
$A576: 50 03 bvc ACP04
$A578: 20 F6 A4 jsr DLADLH
$A57B:
$A57B: ACP04
$A57B: A5 FE lda BSOUR1
$A57D: 58 cli
$A57E: 18 clc
$A57F: 60 rts
$A580:
$A580: UDST
$A580: 05 96 ora STATUS
$A582: 85 96 sta STATUS
$A584: 60 rts
$A585:!byte $60
$A586:
$A586: FND_AT
$A586: 20 90 A3 jsr RESET_VIA
$A589: 20 76 00 jsr CHRGOT
$A58C: D0 03 bne label_a591
$A58E: 4C 3C A8 jmp label_a83c
$A591:
$A591: label_a591
$A591: C9 55 cmp #$55
$A593: D0 2D bne label_a5c2
$A595: 20 70 00 jsr CHRGET
$A598: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A59B: 8A txa
$A59C: A2 53 ldx #$53
$A59E: A0 03 ldy #$03
$A5A0: 86 1F stx $1f
$A5A2: 84 20 sty $20
$A5A4: A0 08 ldy #$08
$A5A6: 84 D1 sty $d1
$A5A8: 88 dey
$A5A9: 29 0F and #$0f
$A5AB: 8D FF 03 sta $03ff
$A5AE: 09 40 ora #$40
$A5B0: 91 1F sta ( $1f ), y
$A5B2: 49 60 eor #$60
$A5B4: 88 dey
$A5B5: 91 1F sta ( $1f ), y
$A5B7: 88 dey
$A5B8:
$A5B8: label_a5b8
$A5B8: B9 34 A8 lda $a834, y
$A5BB: 91 1F sta ( $1f ), y
$A5BD: 88 dey
$A5BE: 10 F8 bpl label_a5b8
$A5C0: 30 08 bmi label_a5ca
$A5C2:
$A5C2: label_a5c2
$A5C2: 20 98 BD jsr frmev1
$A5C5: 20 B5 C7 jsr frestr
$A5C8: 85 D1 sta $d1
$A5CA:
$A5CA: label_a5ca
$A5CA: A9 00 lda #$00
$A5CC: 85 96 sta STATUS
$A5CE: 20 F2 A3 jsr label_a3f2
$A5D1: A9 6F lda #$6f
$A5D3: 20 9C A4 jsr SECND
$A5D6: A0 00 ldy #$00
$A5D8:
$A5D8: label_a5d8
$A5D8: B1 1F lda ( $1f ), y
$A5DA: 20 D2 A4 jsr CIOUT
$A5DD: C8 iny
$A5DE: C4 D1 cpy $d1
$A5E0: D0 F6 bne label_a5d8
$A5E2: 4C EE A4 jmp label_a4ee
$A5E5:
$A5E5: FND_TOKEN_SAVE
$A5E5: 20 EB A5 jsr label_a5eb
$A5E8: 4C 3C A8 jmp label_a83c
$A5EB:
$A5EB: label_a5eb
$A5EB: 20 90 A3 jsr RESET_VIA
$A5EE: 20 B6 A7 jsr label_a7b6
$A5F1: A9 61 lda #$61
$A5F3: 85 D3 sta SA_SecAddr
$A5F5: A4 D1 ldy $d1
$A5F7: D0 03 bne label_a5fc
$A5F9: 4C 00 BF jmp $bf00
$A5FC:
$A5FC: label_a5fc
$A5FC: 20 89 A6 jsr label_a689
$A5FF: 20 5A A8 jsr label_a85a
$A602: D0 1F bne label_a623
$A604: 20 70 00 jsr CHRGET
$A607: 20 61 A8 jsr label_a861
$A60A: A5 FB lda $fb
$A60C: 85 C9 sta $c9
$A60E: A5 FC lda $fc
$A610: 85 CA sta $ca
$A612: 20 F5 BE jsr TEST_COMMA
$A615: 20 61 A8 jsr label_a861
$A618: A5 FB lda $fb
$A61A: 85 B7 sta $b7
$A61C: A5 FC lda $fc
$A61E: 85 B8 sta $b8
$A620: 4C 33 A6 jmp label_a633
$A623:
$A623: label_a623
$A623: A5 28 lda $28
$A625: 85 C9 sta $c9
$A627: A5 29 lda $29
$A629: 85 CA sta $ca
$A62B: A5 2A lda $2a
$A62D: 85 B7 sta $b7
$A62F: A5 2B lda $2b
$A631: 85 B8 sta $b8
$A633:
$A633: label_a633
$A633: 20 F2 A3 jsr label_a3f2
$A636: A5 D3 lda SA_SecAddr
$A638: 20 9C A4 jsr SECND
$A63B: A0 00 ldy #$00
$A63D: A5 C9 lda $c9
$A63F: 20 D2 A4 jsr CIOUT
$A642: A5 CA lda $ca
$A644: 20 D2 A4 jsr CIOUT
$A647:
$A647: label_a647
$A647: 20 72 A6 jsr label_a672
$A64A: B0 0F bcs label_a65b
$A64C: B1 C9 lda ( $c9 ), y
$A64E: 20 D2 A4 jsr CIOUT
$A651: 20 9A A8 jsr label_a89a
$A654: F0 05 beq label_a65b
$A656: 20 82 A6 jsr label_a682
$A659: D0 EC bne label_a647
$A65B:
$A65B: label_a65b
$A65B: 20 EE A4 jsr label_a4ee
$A65E:
$A65E: label_a65e
$A65E: 24 D3 bit SA_SecAddr
$A660: 30 0F bmi label_a671
$A662: 20 F2 A3 jsr label_a3f2
$A665: A5 D3 lda SA_SecAddr
$A667: 29 EF and #$ef
$A669: 09 E0 ora #$e0
$A66B: 20 9C A4 jsr SECND
$A66E: 20 EE A4 jsr label_a4ee
$A671:
$A671: label_a671
$A671: 60 rts
$A672:
$A672: label_a672
$A672: A5 C9 lda $c9
$A674: C5 B7 cmp $b7
$A676: D0 08 bne label_a680
$A678: A5 CA lda $ca
$A67A: C5 B8 cmp $b8
$A67C: D0 02 bne label_a680
$A67E: 38 sec
$A67F: 60 rts
$A680:
$A680: label_a680
$A680: 18 clc
$A681: 60 rts
$A682:
$A682: label_a682
$A682: E6 C9 inc $c9
$A684: D0 02 bne label_a688
$A686: E6 CA inc $ca
$A688:
$A688: label_a688
$A688: 60 rts
$A689:
$A689: label_a689
$A689: A5 D3 lda SA_SecAddr
$A68B: 10 02 bpl label_a68f
$A68D:
$A68D: label_a68d
$A68D: 18 clc
$A68E: 60 rts
$A68F:
$A68F: label_a68f
$A68F: A4 D1 ldy $d1
$A691: F0 FA beq label_a68d
$A693: A9 00 lda #$00
$A695: 85 96 sta STATUS
$A697: 20 F2 A3 jsr label_a3f2
$A69A: A5 D3 lda SA_SecAddr
$A69C: 09 F0 ora #$f0
$A69E: 20 9C A4 jsr SECND
$A6A1: A5 96 lda STATUS
$A6A3: 10 03 bpl label_a6a8
$A6A5: 4C BB F4 jmp $f4bb
$A6A8:
$A6A8: label_a6a8
$A6A8: A0 00 ldy #$00
$A6AA:
$A6AA: label_a6aa
$A6AA: B1 DA lda ( $da ), y
$A6AC: 20 D2 A4 jsr CIOUT
$A6AF: C8 iny
$A6B0: C4 D1 cpy $d1
$A6B2: D0 F6 bne label_a6aa
$A6B4: 4C EE A4 jmp label_a4ee
$A6B7:
$A6B7: label_a6b7
$A6B7: 20 90 A3 jsr RESET_VIA
$A6BA: 20 5A A8 jsr label_a85a
$A6BD: C9 3B cmp #$3b
$A6BF: D0 05 bne label_a6c6
$A6C1: 85 BA sta $ba
$A6C3: 20 70 00 jsr CHRGET
$A6C6:
$A6C6: label_a6c6
$A6C6: 20 F6 A6 jsr label_a6f6
$A6C9: 20 51 F3 jsr $f351
$A6CC: D0 03 bne label_a6d1
$A6CE: 20 3C A8 jsr label_a83c
$A6D1:
$A6D1: label_a6d1
$A6D1: 24 9D bit VERCK
$A6D3: 30 20 bmi label_a6f5
$A6D5: 20 2B F9 jsr $f92b
$A6D8: A0 AE ldy #$ae
$A6DA: 20 49 F3 jsr $f349
$A6DD: 20 51 F3 jsr $f351
$A6E0: D0 03 bne label_a6e5
$A6E2: 4C AD B4 jmp $b4ad
$A6E5:
$A6E5: label_a6e5
$A6E5: 20 22 B6 jsr $b622
$A6E8: 20 B7 B7 jsr $b7b7
$A6EB: A2 16 ldx #$16
$A6ED: 86 13 stx $13
$A6EF: A9 00 lda #$00
$A6F1: 85 3B sta $3b
$A6F3: 85 0A sta $0a
$A6F5:
$A6F5: label_a6f5
$A6F5: 60 rts
$A6F6:
$A6F6: label_a6f6
$A6F6: 20 B6 A7 jsr label_a7b6
$A6F9: A4 D1 ldy $d1
$A6FB: D0 02 bne label_a6ff
$A6FD: 18 clc
$A6FE: 60 rts
$A6FF:
$A6FF: label_a6ff
$A6FF: 20 49 F4 jsr $f449
$A702: A9 60 lda #$60
$A704: 85 D3 sta SA_SecAddr
$A706: 20 89 A6 jsr label_a689
$A709: 20 EF A3 jsr label_a3ef
$A70C: A5 D3 lda SA_SecAddr
$A70E: 20 BC A4 jsr TKSA
$A711: 20 07 A5 jsr label_a507
$A714: 85 C9 sta $c9
$A716: A5 96 lda STATUS
$A718: 4A lsr
$A719: 4A lsr
$A71A: 90 03 bcc label_a71f
$A71C: 4C AD F5 jmp $f5ad
$A71F:
$A71F: label_a71f
$A71F: 20 6D F4 jsr $f46d
$A722: 20 07 A5 jsr label_a507
$A725: 85 CA sta $ca
$A727: 20 5A A8 jsr label_a85a
$A72A: D0 12 bne label_a73e
$A72C: 20 70 00 jsr CHRGET
$A72F: 20 61 A8 jsr label_a861
$A732: A5 FB lda $fb
$A734: 85 C9 sta $c9
$A736: A5 FC lda $fc
$A738: 85 CA sta $ca
$A73A: A9 3B lda #$3b
$A73C: 85 BA sta $ba
$A73E:
$A73E: label_a73e
$A73E: A5 BA lda $ba
$A740: C9 2C cmp #$2c
$A742: D0 0C bne label_a750
$A744: A5 9D lda VERCK
$A746: D0 08 bne label_a750
$A748: A5 C9 lda $c9
$A74A: 85 28 sta $28
$A74C: A5 CA lda $ca
$A74E: 85 29 sta $29
$A750:
$A750: label_a750
$A750: A9 FD lda #EOIFLAG
$A752: 25 96 and STATUS
$A754: 85 96 sta STATUS
$A756: 20 9A A8 jsr label_a89a
$A759: D0 03 bne label_a75e
$A75B: 4C 5E A6 jmp label_a65e
$A75E:
$A75E: label_a75e
$A75E: 20 07 A5 jsr label_a507
$A761: AA tax
$A762: A5 96 lda STATUS
$A764: 4A lsr
$A765: 4A lsr
$A766: B0 E8 bcs label_a750
$A768: 8A txa
$A769: A4 9D ldy VERCK
$A76B: F0 27 beq label_a794
$A76D: A0 00 ldy #$00
$A76F: D1 C9 cmp ( $c9 ), y
$A771: F0 23 beq label_a796
$A773: A9 10 lda #$10
$A775: 20 80 A5 jsr UDST
$A778: 20 E4 A4 jsr UNTLK
$A77B: 20 5E A6 jsr label_a65e
$A77E: 20 34 D5 jsr $d534
$A781: A5 C9 lda $c9
$A783: 85 FB sta $fb
$A785: A5 CA lda $ca
$A787: 85 FC sta $fc
$A789: 20 17 D7 jsr $d717
$A78C: 20 2E D5 jsr $d52e
$A78F: A0 6E ldy #$6e
$A791: 4C B7 F5 jmp $f5b7
$A794:
$A794: label_a794
$A794: 91 C9 sta ( $c9 ), y
$A796:
$A796: label_a796
$A796: 20 82 A6 jsr label_a682
$A799: 24 96 bit STATUS
$A79B: 50 B3 bvc label_a750
$A79D: 20 E4 A4 jsr UNTLK
$A7A0: 20 5E A6 jsr label_a65e
$A7A3: A5 BA lda $ba
$A7A5: C9 2C cmp #$2c
$A7A7: D0 0C bne label_a7b5
$A7A9: A5 9D lda VERCK
$A7AB: D0 08 bne label_a7b5
$A7AD: A5 C9 lda $c9
$A7AF: 85 2A sta $2a
$A7B1: A5 CA lda $ca
$A7B3: 85 2B sta $2b
$A7B5:
$A7B5: label_a7b5
$A7B5: 60 rts
$A7B6:
$A7B6: label_a7b6
$A7B6: 20 98 BD jsr frmev1
$A7B9: 20 B5 C7 jsr frestr
$A7BC: 85 D1 sta $d1
$A7BE: A5 1F lda $1f
$A7C0: 85 DA sta $da
$A7C2: A5 20 lda $20
$A7C4: 85 DB sta $db
$A7C6: 60 rts
$A7C7:
$A7C7: FND_TOKEN_CATALOG
$A7C7: 20 90 A3 jsr RESET_VIA
$A7CA: 20 76 00 jsr CHRGOT
$A7CD: F0 06 beq label_a7d5
$A7CF: 20 B6 A7 jsr label_a7b6
$A7D2: 4C E1 A7 jmp label_a7e1
$A7D5:
$A7D5: label_a7d5
$A7D5: A9 3A lda #$3a
$A7D7: 85 DA sta $da
$A7D9: A9 A8 lda #$a8
$A7DB: 85 DB sta $db
$A7DD: A9 01 lda #$01
$A7DF: 85 D1 sta $d1
$A7E1:
$A7E1: label_a7e1
$A7E1: A9 60 lda #$60
$A7E3: 85 D3 sta SA_SecAddr
$A7E5: 20 89 A6 jsr label_a689
$A7E8: 20 EF A3 jsr label_a3ef
$A7EB: 20 BC A4 jsr TKSA
$A7EE: A9 00 lda #$00
$A7F0: 85 96 sta STATUS
$A7F2: A0 03 ldy #$03
$A7F4:
$A7F4: label_a7f4
$A7F4: 84 C9 sty $c9
$A7F6: 20 07 A5 jsr label_a507
$A7F9: 85 CA sta $ca
$A7FB: A4 96 ldy STATUS
$A7FD: D0 32 bne label_a831
$A7FF: 20 07 A5 jsr label_a507
$A802: A4 96 ldy STATUS
$A804: D0 2B bne label_a831
$A806: A4 C9 ldy $c9
$A808: 88 dey
$A809: D0 E9 bne label_a7f4
$A80B: A6 CA ldx $ca
$A80D: 20 83 CF jsr $cf83
$A810: A9 20 lda #$20
$A812: 20 D2 FF jsr ChrOut
$A815:
$A815: label_a815
$A815: 20 07 A5 jsr label_a507
$A818: A6 96 ldx STATUS
$A81A: D0 15 bne label_a831
$A81C: AA tax
$A81D: F0 06 beq label_a825
$A81F: 20 D2 FF jsr ChrOut
$A822: 4C 15 A8 jmp label_a815
$A825:
$A825: label_a825
$A825: A9 0D lda #$0d
$A827: 20 D2 FF jsr ChrOut
$A82A: A0 02 ldy #$02
$A82C: 20 9A A8 jsr label_a89a
$A82F: D0 C3 bne label_a7f4
$A831:
$A831: label_a831
$A831: 4C 5E A6 jmp label_a65e
$A834:!byte $4D,$2D,$57,$77,$00,$02,$24,$00
$A83C:
$A83C: label_a83c
$A83C: 20 5E A6 jsr label_a65e
$A83F: 20 AD A3 jsr label_a3ad
$A842: 20 EF A3 jsr label_a3ef
$A845: A9 6F lda #$6f
$A847: 20 BC A4 jsr TKSA
$A84A:
$A84A: label_a84a
$A84A: 20 07 A5 jsr label_a507
$A84D: 20 D2 FF jsr ChrOut
$A850: C9 0D cmp #$0d
$A852: D0 F6 bne label_a84a
$A854: 20 E4 A4 jsr UNTLK
$A857: 4C 5E A6 jmp label_a65e
$A85A:
$A85A: label_a85a
$A85A: A0 00 ldy #$00
$A85C: B1 77 lda ( TXTPTR_L ), y
$A85E: C9 2C cmp #$2c
$A860: 60 rts
$A861:
$A861: label_a861
$A861: 20 98 BD jsr frmev1
$A864: 20 B5 C7 jsr frestr
$A867: C9 04 cmp #$04
$A869: D0 21 bne label_a88c
$A86B: A0 FF ldy #COUNT
$A86D: 20 94 A8 jsr Chk_KB_RowE
$A870: 20 8F A8 jsr label_a88f
$A873: 85 FC sta $fc
$A875: 20 94 A8 jsr Chk_KB_RowE
$A878: 05 FC ora $fc
$A87A: 85 FC sta $fc
$A87C: 20 94 A8 jsr Chk_KB_RowE
$A87F: 20 8F A8 jsr label_a88f
$A882: 85 FB sta $fb
$A884: 20 94 A8 jsr Chk_KB_RowE
$A887: 05 FB ora $fb
$A889: 85 FB sta $fb
$A88B: 60 rts
$A88C:
$A88C: label_a88c
$A88C: 4C 00 BF jmp $bf00
$A88F:
$A88F: label_a88f
$A88F: 0A asl
$A890: 0A asl
$A891: 0A asl
$A892: 0A asl
$A893: 60 rts
$A894:
$A894: Chk_KB_RowE
$A894: C8 iny
$A895: B1 1F lda ( $1f ), y
$A897: 4C 8D D7 jmp $d78d
$A89A:
$A89A: label_a89a
$A89A: AD 12 E8 lda KB_Row_Input
$A89D: C9 EF cmp #$ef
$A89F: 60 rts
$A8A0:
$A8A0: label_a8a0
$A8A0: AD FF 03 lda $03ff
$A8A3: 29 7F and #$7f
$A8A5: C5 D4 cmp FA_DevNo
$A8A7: 60 rts
$A8A8:
$A8A8: Confirm_Hash
$A8A8: A9 23 lda #$23
$A8AA: 20 F7 BE jsr Confirm_Char_in_A
$A8AD:
$A8AD: label_a8ad
$A8AD: 20 AD A3 jsr label_a3ad
$A8B0: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A8B3: 8A txa
$A8B4: 09 60 ora #$60
$A8B6: 85 D3 sta SA_SecAddr
$A8B8: 60 rts
$A000: 4C 36 A0 jmp Start
$A003: 4C 9C A0 jmp label_a09c
$A006: 4C 77 A3 jmp label_a377
$A009: 4C 82 A3 jmp label_a382
$A00C: 4C 28 A1 jmp label_a128
$A00F: 4C 36 A1 jmp label_a136
$A012: 4C 41 A1 jmp label_a141
$A015: 4C 06 A3 jmp label_a306
$A018: 4C 14 A3 jmp label_a314
$A01B: 4C 2A A3 jmp label_a32a
$A01E: 4C 1F A3 jmp label_a31f
$A021: 4C 35 A3 jmp label_a335
$A024: 4C 45 A3 jmp label_a345
$A027: 4C 53 A3 jmp label_a353
$A02A: 4C 40 A3 jmp label_a340
$A02D: 4C 61 A3 jmp label_a361
$A030: 4C 6C A3 jmp label_a36c
$A033: 4C 19 A1 jmp label_a119
$A036:
$A036: Start
$A036: A9 4C lda #$4c
$A038: 85 70 sta CHRGET
$A03A: A9 61 lda #$61
$A03C: 85 71 sta $71
$A03E: A9 A0 lda #$A0
$A040: 85 72 sta $72
$A042: A9 08 lda #$08
$A044: 8D FE 03 sta $03fe
$A047: 20 90 A3 jsr RESET_VIA
$A04A: A9 51 lda #$51
$A04C: A0 A0 ldy #$40
$A04E: 4C 1D BB jmp STROUT
$A051:!byte $56,$43,$2D,$31,$35,$34,$31,$2D ; text "VC-1541-
$A059:!byte $44,$4F,$53,$2F,$38,$30,$0D,$00 ; DOS/80
$A061: E6 77 inc TXTPTR_L
$A063: D0 02 bne NXT_TOKEN
$A065: E6 78 inc TXTPTR_H
$A067:
$A067: NXT_TOKEN
$A067: 20 76 00 jsr CHRGOT
$A06A: 08 php
$A06B: C9 21 cmp #$21
$A06D: D0 21 bne EXIT_TOKEN_DECODING
$A06F: 86 AB stx Tape_EOT
$A071: BA tsx
$A072: BD 03 01 lda $0103, x
$A075: C9 BF cmp #$bf
$A077: F0 04 beq Chk_Callingddr_L
$A079: C9 B8 cmp #$b8
$A07B: D0 0F bne Token_decoding_RestoreX
$A07D:
$A07D: Chk_Callingddr_L
$A07D: BD 02 01 lda $0102, x
$A080: C9 23 cmp #$23
$A082: F0 0E beq Called_fr_BFC1
$A084: C9 C1 cmp #$c1
$A086: D0 04 bne Token_decoding_RestoreX
$A088: A5 5E lda $5e
$A08A: D0 06 bne Called_fr_BFC1
$A08C:
$A08C: Token_decoding_RestoreX
$A08C: A6 AB ldx Tape_EOT
$A08E: A9 21 lda #$21
$A090:
$A090: EXIT_TOKEN_DECODING
$A090: 28 plp
$A091: 60 rts
$A092:
$A092: Called_fr_BFC1
$A092: 28 plp
$A093: 20 70 00 jsr CHRGET
$A096: AD FE 03 lda $03fe
$A099: 8D FF 03 sta $03ff
$A09C:
$A09C: label_a09c
$A09C: 20 5A A8 jsr label_a85a
$A09F: 48 pha
$A0A0: 20 70 00 jsr CHRGET
$A0A3: 68 pla
$A0A4: C9 93 cmp #$93
$A0A6: F0 67 beq FND_TOKEN_LOAD
$A0A8: C9 94 cmp #$94
$A0AA: D0 03 bne DECODE_TOKEN1
$A0AC: 4C E5 A5 jmp FND_TOKEN_SAVE
$A0AF:
$A0AF: DECODE_TOKEN1
$A0AF: C9 95 cmp #$95
$A0B1: F0 5F beq FND_TOKEN_VERIFY
$A0B3: C9 D7 cmp #$d7
$A0B5: D0 03 bne DECODE_TOKEN2
$A0B7: 4C C7 A7 jmp FND_TOKEN_CATALOG
$A0BA:
$A0BA: DECODE_TOKEN2
$A0BA: C9 9F cmp #$9f
$A0BC: D0 03 bne DECODE_TOKEN3
$A0BE: 4C 1C A1 jmp FND_TOKEN_OPEN
$A0C1:
$A0C1: DECODE_TOKEN3
$A0C1: C9 98 cmp #$98
$A0C3: D0 03 bne DECODE_TOKEN4
$A0C5: 4C 75 A1 jmp FND_TOKEN_PRINTF
$A0C8:
$A0C8: DECODE_TOKEN4
$A0C8: C9 A1 cmp #$a1
$A0CA: D0 03 bne DECODE_TOKEN5
$A0CC: 4C E0 A1 jmp FND_TOKEN_GET
$A0CF:
$A0CF: DECODE_TOKEN5
$A0CF: C9 A0 cmp #C3PO
$A0D1: D0 03 bne DECODE_TOKEN6
$A0D3: 4C 33 A1 jmp FND_TOKEN_CLOSE
$A0D6:
$A0D6: DECODE_TOKEN6
$A0D6: C9 84 cmp #$84
$A0D8: D0 03 bne DECODE_TOKEN7
$A0DA: 4C 26 A2 jmp FND_TOKEN_INPUTF
$A0DD:
$A0DD: DECODE_TOKEN7
$A0DD: C9 9D cmp #VERCK
$A0DF: D0 03 bne DECODE_TOKEN8
$A0E1: 4C 4C A1 jmp FND_TOKEN_CMD
$A0E4:
$A0E4: DECODE_TOKEN8
$A0E4: C9 51 cmp #$51
$A0E6: D0 0D bne NFND_Q
$A0E8: A9 E6 lda #$e6
$A0EA: 85 70 sta CHRGET
$A0EC: A9 77 lda #TXTPTR_L
$A0EE: 85 71 sta $71
$A0F0: A9 D0 lda #$d0
$A0F2: 85 72 sta $72
$A0F4: 60 rts
$A0F5:
$A0F5: NFND_Q
$A0F5: C9 40 cmp #$40
$A0F7: D0 03 bne DEC_TXTPTR
$A0F9: 4C 86 A5 jmp FND_AT
$A0FC:
$A0FC: DEC_TXTPTR
$A0FC: C6 77 dec TXTPTR_L
$A0FE: A5 77 lda TXTPTR_L
$A100: C9 FF cmp #COUNT
$A102: D0 02 bne DEC_TXTPTR_END
$A104: C6 78 dec TXTPTR_H
$A106:
$A106: DEC_TXTPTR_END
$A106: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A109: 8E FF 03 stx $03ff
$A10C: 4C 9C A0 jmp label_a09c
$A10F:
$A10F: FND_TOKEN_LOAD
$A10F: A9 00 lda #$00
$A111: 2C A9 FF bit $ffa9
$A114: 85 9D sta VERCK
$A116: 4C B7 A6 jmp label_a6b7
$A119:
$A119: label_a119
$A119: 4C 40 A3 jmp label_a340
$A11C:
$A11C: FND_TOKEN_OPEN
$A11C: 20 90 A3 jsr RESET_VIA
$A11F: 20 A8 A8 jsr Confirm_Hash
$A122: 20 F5 BE jsr TEST_COMMA
$A125: 20 B6 A7 jsr label_a7b6
$A128:
$A128: label_a128
$A128: 20 A0 A8 jsr label_a8a0
$A12B: D0 03 bne label_a130
$A12D: 4C 89 A6 jmp label_a689
$A130:
$A130: label_a130
$A130: 4C A5 F4 jmp $f4a5
$A133:
$A133: FND_TOKEN_CLOSE
$A133: 20 A8 A8 jsr Confirm_Hash
$A136:
$A136: label_a136
$A136: 20 A0 A8 jsr label_a8a0
$A139: D0 03 bne label_a13e
$A13B: 4C 5E A6 jmp label_a65e
$A13E:
$A13E: label_a13e
$A13E: 4C 2F F7 jmp $f72f
$A141:
$A141: label_a141
$A141: 20 A0 A8 jsr label_a8a0
$A144: D0 03 bne label_a149
$A146: 4C 07 A5 jmp label_a507
$A149:
$A149: label_a149
$A149: 4C C0 F1 jmp $f1c0
$A14C:
$A14C: FND_TOKEN_CMD
$A14C: 20 A8 A8 jsr Confirm_Hash
$A14F: A9 5F lda #$5f
$A151: 85 EB sta $eb
$A153: A9 A1 lda #$a1
$A155: 85 EC sta $ec
$A157: 20 14 A3 jsr label_a314
$A15A: A5 D3 lda SA_SecAddr
$A15C: 4C 40 A3 jmp label_a340
$A15F: A5 D9 lda $d9
$A161: C9 0D cmp #$0d
$A163: D0 0A bne label_a16f
$A165: 2C FF 03 bit $03ff
$A168: 10 05 bpl label_a16f
$A16A: 20 06 A3 jsr label_a306
$A16D: A9 0A lda #$0a
$A16F:
$A16F: label_a16f
$A16F: 20 06 A3 jsr label_a306
$A172: 4C 87 E7 jmp $e787
$A175:
$A175: FND_TOKEN_PRINTF
$A175: A5 EB lda $eb
$A177: C9 5F cmp #$5f
$A179: D0 11 bne label_a18c
$A17B: A5 EC lda $ec
$A17D: C9 A1 cmp #$a1
$A17F: D0 0B bne label_a18c
$A181: A9 87 lda #$87
$A183: 85 EB sta $eb
$A185: A9 E7 lda #$e7
$A187: 85 EC sta $ec
$A189: 20 2A A3 jsr label_a32a
$A18C:
$A18C: label_a18c
$A18C: 20 AD A8 jsr label_a8ad
$A18F: 20 14 A3 jsr label_a314
$A192: A5 D3 lda SA_SecAddr
$A194: 20 40 A3 jsr label_a340
$A197: 20 5A A8 jsr label_a85a
$A19A: D0 32 bne label_a1ce
$A19C: 20 70 00 jsr CHRGET
$A19F:
$A19F: label_a19f
$A19F: 20 98 BD jsr frmev1
$A1A2: 24 07 bit $07
$A1A4: 30 06 bmi label_a1ac
$A1A6: 20 93 CF jsr fout
$A1A9: 20 B0 C5 jsr $c5b0
$A1AC:
$A1AC: label_a1ac
$A1AC: 20 B5 C7 jsr frestr
$A1AF: 85 D1 sta $d1
$A1B1: A0 00 ldy #$00
$A1B3:
$A1B3: label_a1b3
$A1B3: C4 D1 cpy $d1
$A1B5: F0 08 beq label_a1bf
$A1B7: B1 1F lda ( $1f ), y
$A1B9: 20 06 A3 jsr label_a306
$A1BC: C8 iny
$A1BD: D0 F4 bne label_a1b3
$A1BF:
$A1BF: label_a1bf
$A1BF: 20 5A A8 jsr label_a85a
$A1C2: C9 3B cmp #$3b
$A1C4: D0 08 bne label_a1ce
$A1C6: 20 70 00 jsr CHRGET
$A1C9: F0 12 beq label_a1dd
$A1CB: 4C 9F A1 jmp label_a19f
$A1CE:
$A1CE: label_a1ce
$A1CE: A9 0D lda #$0d
$A1D0: 20 06 A3 jsr label_a306
$A1D3: 2C FF 03 bit $03ff
$A1D6: 10 05 bpl label_a1dd
$A1D8: A9 0A lda #$0a
$A1DA: 20 06 A3 jsr label_a306
$A1DD:
$A1DD: label_a1dd
$A1DD: 4C 2A A3 jmp label_a32a
$A1E0:
$A1E0: FND_TOKEN_GET
$A1E0: 20 A8 A8 jsr Confirm_Hash
$A1E3: 20 F5 BE jsr TEST_COMMA
$A1E6: AD FF 03 lda $03ff
$A1E9: 29 7F and #$7f
$A1EB: 85 10 sta $10
$A1ED: 20 1F A3 jsr label_a31f
$A1F0: A5 D3 lda SA_SecAddr
$A1F2: 20 40 A3 jsr label_a340
$A1F5: A2 01 ldx #$01
$A1F7: A0 02 ldy #$02
$A1F9: A9 00 lda #$00
$A1FB: 8D 01 02 sta $0201
$A1FE: A9 40 lda #$40
$A200: 4C 45 A2 jmp label_a245
$A203:
$A203: label_a203
$A203: A2 00 ldx #$00
$A205:
$A205: label_a205
$A205: 20 41 A1 jsr label_a141
$A208: C9 0D cmp #$0d
$A20A: F0 10 beq label_a21c
$A20C: 9D 00 02 sta BUF, x
$A20F: E8 inx
$A210: E0 51 cpx #$51
$A212: D0 F1 bne label_a205
$A214: 20 35 A3 jsr label_a335
$A217: A2 B0 ldx #$b0
$A219: 4C CF B3 jmp $b3cf
$A21C:
$A21C: label_a21c
$A21C: A9 00 lda #$00
$A21E: 9D 00 02 sta BUF, x
$A221: A2 FF ldx #COUNT
$A223: A0 01 ldy #$01
$A225: 60 rts
$A226:
$A226: FND_TOKEN_INPUTF
$A226: 20 AD A8 jsr label_a8ad
$A229: 20 F5 BE jsr TEST_COMMA
$A22C: 20 1F A3 jsr label_a31f
$A22F: A5 D3 lda SA_SecAddr
$A231: 20 40 A3 jsr label_a340
$A234: AD FF 03 lda $03ff
$A237: 29 7F and #$7f
$A239: 85 10 sta $10
$A23B: A9 2C lda #$2c
$A23D: 8D FF 01 sta $01ff
$A240: 20 03 A2 jsr label_a203
$A243: A9 00 lda #$00
$A245:
$A245: label_a245
$A245: 85 0B sta $0b
$A247: 86 40 stx $40
$A249: 84 41 sty $41
$A24B:
$A24B: label_a24b
$A24B: 20 2B C1 jsr ptrget
$A24E: 85 46 sta $46
$A250: 84 47 sty $47
$A252: A5 77 lda TXTPTR_L
$A254: A4 78 ldy TXTPTR_H
$A256: 85 48 sta $48
$A258: 84 49 sty $49
$A25A: A6 40 ldx $40
$A25C: A4 41 ldy $41
$A25E: 86 77 stx TXTPTR_L
$A260: 84 78 sty TXTPTR_H
$A262: 20 76 00 jsr CHRGOT
$A265: D0 1E bne label_a285
$A267: 24 0B bit $0b
$A269: 50 0C bvc label_a277
$A26B: 20 41 A1 jsr label_a141
$A26E: 8D 00 02 sta BUF
$A271: A2 FF ldx #COUNT
$A273: A0 01 ldy #$01
$A275: D0 0A bne label_a281
$A277:
$A277: label_a277
$A277: A5 10 lda $10
$A279: D0 03 bne label_a27e
$A27B: 20 44 BB jsr $bb44
$A27E:
$A27E: label_a27e
$A27E: 20 03 A2 jsr label_a203
$A281:
$A281: label_a281
$A281: 86 77 stx TXTPTR_L
$A283: 84 78 sty TXTPTR_H
$A285:
$A285: label_a285
$A285: 20 70 00 jsr CHRGET
$A288: 24 07 bit $07
$A28A: 10 31 bpl label_a2bd
$A28C: 24 0B bit $0b
$A28E: 50 09 bvc label_a299
$A290: E8 inx
$A291: 86 77 stx TXTPTR_L
$A293: A9 00 lda #$00
$A295: 85 03 sta $03
$A297: F0 0C beq label_a2a5
$A299:
$A299: label_a299
$A299: 85 03 sta $03
$A29B: C9 22 cmp #$22
$A29D: F0 07 beq label_a2a6
$A29F: A9 3A lda #$3a
$A2A1: 85 03 sta $03
$A2A3: A9 2C lda #$2c
$A2A5:
$A2A5: label_a2a5
$A2A5: 18 clc
$A2A6:
$A2A6: label_a2a6
$A2A6: 85 04 sta $04
$A2A8: A5 77 lda TXTPTR_L
$A2AA: A4 78 ldy TXTPTR_H
$A2AC: 69 00 adc #$00
$A2AE: 90 01 bcc label_a2b1
$A2B0: C8 iny
$A2B1:
$A2B1: label_a2b1
$A2B1: 20 B6 C5 jsr $c5b6
$A2B4: 20 18 C9 jsr $c918
$A2B7: 20 65 B9 jsr $b965
$A2BA: 4C C5 A2 jmp label_a2c5
$A2BD:
$A2BD: label_a2bd
$A2BD: 20 29 CE jsr $ce29
$A2C0: A5 08 lda $08
$A2C2: 20 4D B9 jsr $b94d
$A2C5:
$A2C5: label_a2c5
$A2C5: 20 76 00 jsr CHRGOT
$A2C8: F0 07 beq label_a2d1
$A2CA: C9 2C cmp #$2c
$A2CC: F0 03 beq label_a2d1
$A2CE: 4C 4C BB jmp $bb4c
$A2D1:
$A2D1: label_a2d1
$A2D1: A5 77 lda TXTPTR_L
$A2D3: A4 78 ldy TXTPTR_H
$A2D5: 85 40 sta $40
$A2D7: 84 41 sty $41
$A2D9: A5 48 lda $48
$A2DB: A4 49 ldy $49
$A2DD: 85 77 sta TXTPTR_L
$A2DF: 84 78 sty TXTPTR_H
$A2E1: 20 76 00 jsr CHRGOT
$A2E4: F0 06 beq label_a2ec
$A2E6: 20 F5 BE jsr TEST_COMMA
$A2E9: 4C 4B A2 jmp label_a24b
$A2EC:
$A2EC: label_a2ec
$A2EC: 20 DA BC jsr $bcda
$A2EF: 20 35 A3 jsr label_a335
$A2F2: A9 00 lda #$00
$A2F4: 85 10 sta $10
$A2F6: 60 rts
$A2F7:!byte $28,$43,$29,$20,$47,$20,$4D,$55
$A2FF:!byte $54,$5A,$20,$28,$38,$34,$29
$A306:
$A306: label_a306
$A306: 48 pha
$A307: 20 A0 A8 jsr label_a8a0
$A30A: D0 04 bne label_a310
$A30C: 68 pla
$A30D: 4C D2 A4 jmp CIOUT
$A310:
$A310: label_a310
$A310: 68 pla
$A311: 4C 9E F1 jmp $f19e
$A314:
$A314: label_a314
$A314: 20 A0 A8 jsr label_a8a0
$A317: D0 03 bne label_a31c
$A319: 4C F2 A3 jmp label_a3f2
$A31C:
$A31C: label_a31c
$A31C: 4C D5 F0 jmp $f0d5
$A31F:
$A31F: label_a31f
$A31F: 20 A0 A8 jsr label_a8a0
$A322: D0 03 bne label_a327
$A324: 4C EF A3 jmp label_a3ef
$A327:
$A327: label_a327
$A327: 4C D2 F0 jmp $f0d2
$A32A:
$A32A: label_a32a
$A32A: 20 A0 A8 jsr label_a8a0
$A32D: D0 03 bne label_a332
$A32F: 4C EE A4 jmp label_a4ee
$A332:
$A332: label_a332
$A332: 4C B9 F1 jmp $f1b9
$A335:
$A335: label_a335
$A335: 20 A0 A8 jsr label_a8a0
$A338: D0 03 bne label_a33d
$A33A: 4C E4 A4 jmp UNTLK
$A33D:
$A33D: label_a33d
$A33D: 4C AE F1 jmp $f1ae
$A340:
$A340: label_a340
$A340: 2C D0 87 bit $87d0
$A343: 70 0E bvs label_a353
$A345:
$A345: label_a345
$A345: 48 pha
$A346: 20 A0 A8 jsr label_a8a0
$A349: D0 04 bne label_a34f
$A34B: 68 pla
$A34C: 4C 9C A4 jmp SECND
$A34F:
$A34F: label_a34f
$A34F: 68 pla
$A350: 4C 43 F1 jmp $f143
$A353:
$A353: label_a353
$A353: 48 pha
$A354: 20 A0 A8 jsr label_a8a0
$A357: D0 04 bne label_a35d
$A359: 68 pla
$A35A: 4C BC A4 jmp TKSA
$A35D:
$A35D: label_a35d
$A35D: 68 pla
$A35E: 4C 43 F1 jmp $f143
$A361:
$A361: label_a361
$A361: 20 A0 A8 jsr label_a8a0
$A364: D0 03 bne label_a369
$A366: 4C AA A4 jmp ATNLO
$A369:
$A369: label_a369
$A369: 4C B3 A4 jmp PA2LO
$A36C:
$A36C: label_a36c
$A36C: 20 A0 A8 jsr label_a8a0
$A36F: D0 03 bne label_a374
$A371: 4C A1 A4 jmp SCATN
$A374:
$A374: label_a374
$A374: 4C 48 F1 jmp $f148
$A377:
$A377: label_a377
$A377: 20 A0 A8 jsr label_a8a0
$A37A: D0 03 bne label_a37f
$A37C: 4C 23 A4 jmp ISOUR
$A37F:
$A37F: label_a37f
$A37F: 4C 09 F1 jmp $f109
$A382:
$A382: label_a382
$A382: 48 pha
$A383: 20 A0 A8 jsr label_a8a0
$A386: D0 04 bne label_a38c
$A388: 68 pla
$A389: 4C F4 A3 jmp label_a3f4
$A38C:
$A38C: label_a38c
$A38C: 68 pla
$A38D: 4C D7 F0 jmp $f0d7
$A390:
$A390: RESET_VIA
$A390: A9 3F lda #$3f
$A392: 8D 43 E8 sta VIA_DDRA
$A395: A9 00 lda #$00
$A397: 8D 48 E8 sta VIA_TMR2LOW
$A39A: 8D 49 E8 sta VIA_TMR2HIGH
$A39D: 8D 4B E8 sta VIA_ACR
$A3A0: A9 2C lda #$2c
$A3A2: 85 BA sta $ba
$A3A4: A9 17 lda #$17
$A3A6: 8D 41 E8 sta D2PRA
$A3A9: A9 80 lda #$80
$A3AB: 85 FD sta EOIFLAG
$A3AD:
$A3AD: label_a3ad
$A3AD: AD FF 03 lda $03ff
$A3B0: 29 7F and #$7f
$A3B2: 85 D4 sta FA_DevNo
$A3B4: A9 00 lda #$00
$A3B6: 85 96 sta STATUS
$A3B8: 60 rts
$A3B9:
$A3B9: CLKLO
$A3B9: AD 41 E8 lda D2PRA
$A3BC: 09 10 ora #$10
$A3BE: 8D 41 E8 sta D2PRA
$A3C1: 60 rts
$A3C2:
$A3C2: CLKHI
$A3C2: AD 41 E8 lda D2PRA
$A3C5: 29 EF and #$ef
$A3C7: 8D 41 E8 sta D2PRA
$A3CA: 60 rts
$A3CB:
$A3CB: DATAHI
$A3CB: AD 41 E8 lda D2PRA
$A3CE: 29 DF and #$df
$A3D0: 8D 41 E8 sta D2PRA
$A3D3: 60 rts
$A3D4:
$A3D4: DATALO
$A3D4: AD 41 E8 lda D2PRA
$A3D7: 09 20 ora #$20
$A3D9: 8D 41 E8 sta D2PRA
$A3DC: 60 rts
$A3DD:
$A3DD: DEBPIA
$A3DD: AD 41 E8 lda D2PRA
$A3E0: CD 41 E8 cmp D2PRA
$A3E3: D0 F8 bne DEBPIA
$A3E5: 0A asl
$A3E6: 60 rts
$A3E7:
$A3E7: W1MS
$A3E7: 8A txa
$A3E8: A2 C0 ldx #$c0
$A3EA:
$A3EA: W1MS1
$A3EA: CA dex
$A3EB: D0 FD bne W1MS1
$A3ED: AA tax
$A3EE: 60 rts
$A3EF:
$A3EF: label_a3ef
$A3EF: A9 40 lda #$40
$A3F1: 2C A9 20 bit $20a9
$A3F4:
$A3F4: label_a3f4
$A3F4: 8D D0 87 sta $87d0
$A3F7:
$A3F7: LIST1
$A3F7: 05 D4 ora FA_DevNo
$A3F9: 48 pha
$A3FA: 24 A0 bit C3PO
$A3FC: 10 0A bpl LIST2
$A3FE: 38 sec
$A3FF: 66 FD ror EOIFLAG
$A401: 20 23 A4 jsr ISOUR
$A404: 46 A0 lsr C3PO
$A406: 46 FD lsr EOIFLAG
$A408:
$A408: LIST2
$A408: 68 pla
$A409: 85 A5 sta BSOUR
$A40B: 78 sei
$A40C: 20 CB A3 jsr DATAHI
$A40F: C9 3F cmp #$3f
$A411: D0 03 bne LIST5
$A413: 20 C2 A3 jsr CLKHI
$A416:
$A416: LIST5
$A416: 20 AA A4 jsr ATNLO
$A419:
$A419: ISOURA
$A419: 78 sei
$A41A: 20 B9 A3 jsr CLKLO
$A41D: 20 CB A3 jsr DATAHI
$A420: 20 E7 A3 jsr W1MS
$A423:
$A423: ISOUR
$A423: 78 sei
$A424: 20 CB A3 jsr DATAHI
$A427: 20 DD A3 jsr DEBPIA
$A42A: B0 64 bcs NODEV
$A42C: 20 C2 A3 jsr CLKHI
$A42F: 24 FD bit EOIFLAG
$A431: 10 0A bpl NOEOI
$A433:
$A433: ISR02
$A433: 20 DD A3 jsr DEBPIA
$A436: 90 FB bcc ISR02
$A438:
$A438: ISR03
$A438: 20 DD A3 jsr DEBPIA
$A43B: B0 FB bcs ISR03
$A43D:
$A43D: NOEOI
$A43D: 20 DD A3 jsr DEBPIA
$A440: 90 FB bcc NOEOI
$A442: 20 B9 A3 jsr CLKLO
$A445: A9 08 lda #$08
$A447: 85 FF sta COUNT
$A449:
$A449: ISR01
$A449: AD 41 E8 lda D2PRA
$A44C: CD 41 E8 cmp D2PRA
$A44F: D0 F8 bne ISR01
$A451: 0A asl
$A452: 90 3F bcc FRMERR
$A454: 66 A5 ror BSOUR
$A456: B0 05 bcs ISRHI
$A458: 20 D4 A3 jsr DATALO
$A45B: D0 03 bne ISRCLK
$A45D:
$A45D: ISRHI
$A45D: 20 CB A3 jsr DATAHI
$A460:
$A460: ISRCLK
$A460: 20 C2 A3 jsr CLKHI
$A463: EA nop
$A464: EA nop
$A465: EA nop
$A466: EA nop
$A467: AD 41 E8 lda D2PRA
$A46A: 29 DF and #$df
$A46C: 09 10 ora #$10
$A46E: 8D 41 E8 sta D2PRA
$A471: C6 FF dec COUNT
$A473: D0 D4 bne ISR01
$A475: A9 00 lda #$00
$A477: 8D 48 E8 sta VIA_TMR2LOW
$A47A: A9 04 lda #$04
$A47C: 8D 49 E8 sta VIA_TMR2HIGH
$A47F: AD 4D E8 lda VIA_IFR
$A482:
$A482: ISR04
$A482: AD 4D E8 lda VIA_IFR
$A485: 29 20 and #$20
$A487: D0 0A bne FRMERR
$A489: 20 DD A3 jsr DEBPIA
$A48C: B0 F4 bcs ISR04
$A48E: 58 cli
$A48F: 60 rts
$A490:
$A490: NODEV
$A490: A9 80 lda #$80
$A492: 2C A9 03 bit $03a9
$A495:
$A495: CSBERR
$A495: 20 80 A5 jsr UDST
$A498: 58 cli
$A499: 18 clc
$A49A: 90 57 bcc DLABYE
$A49C:
$A49C: SECND
$A49C: 85 A5 sta BSOUR
$A49E: 20 19 A4 jsr ISOURA
$A4A1:
$A4A1: SCATN
$A4A1: AD 41 E8 lda D2PRA
$A4A4: 29 F7 and #$f7
$A4A6: 8D 41 E8 sta D2PRA
$A4A9: 60 rts
$A4AA:
$A4AA: ATNLO
$A4AA: AD 41 E8 lda D2PRA
$A4AD: 09 08 ora #$08
$A4AF: 8D 41 E8 sta D2PRA
$A4B2: 60 rts
$A4B3:
$A4B3: PA2LO
$A4B3: AD 40 E8 lda $e840
$A4B6: 29 FB and #$fb
$A4B8: 8D 40 E8 sta $e840
$A4BB: 60 rts
$A4BC:
$A4BC: TKSA
$A4BC: 85 A5 sta BSOUR
$A4BE: 20 19 A4 jsr ISOURA
$A4C1:
$A4C1: TKATN
$A4C1: 78 sei
$A4C2: 20 D4 A3 jsr DATALO
$A4C5: 20 A1 A4 jsr SCATN
$A4C8: 20 C2 A3 jsr CLKHI
$A4CB:
$A4CB: TKATN1
$A4CB: 20 DD A3 jsr DEBPIA
$A4CE: 30 FB bmi TKATN1
$A4D0: 58 cli
$A4D1: 60 rts
$A4D2:
$A4D2: CIOUT
$A4D2: 24 A0 bit C3PO
$A4D4: 30 05 bmi CI2
$A4D6: 38 sec
$A4D7: 66 A0 ror C3PO
$A4D9: D0 05 bne Ci4
$A4DB:
$A4DB: CI2
$A4DB: 48 pha
$A4DC: 20 23 A4 jsr ISOUR
$A4DF: 68 pla
$A4E0:
$A4E0: Ci4
$A4E0: 85 A5 sta BSOUR
$A4E2: 18 clc
$A4E3: 60 rts
$A4E4:
$A4E4: UNTLK
$A4E4: 78 sei
$A4E5: 20 B9 A3 jsr CLKLO
$A4E8: 20 AA A4 jsr ATNLO
$A4EB: A9 5F lda #$5f
$A4ED: 2C A9 3F bit $3fa9
$A4F0: 20 F7 A3 jsr LIST1
$A4F3:
$A4F3: DLABYE
$A4F3: 20 A1 A4 jsr SCATN
$A4F6:
$A4F6: DLADLH
$A4F6: 8A txa
$A4F7: A2 0A ldx #$0a
$A4F9:
$A4F9: DLAD00
$A4F9: CA dex
$A4FA: D0 FD bne DLAD00
$A4FC: AA tax
$A4FD: 20 C2 A3 jsr CLKHI
$A500: A9 00 lda #$00
$A502: 85 A0 sta C3PO
$A504: 4C CB A3 jmp DATAHI
$A507:
$A507: label_a507
$A507: A5 96 lda STATUS
$A509: F0 03 beq ACPTR
$A50B: A9 0D lda #$0d
$A50D: 60 rts
$A50E:
$A50E: ACPTR
$A50E: 78 sei
$A50F: A9 00 lda #$00
$A511: 85 FF sta COUNT
$A513: 20 C2 A3 jsr CLKHI
$A516:
$A516: ACP00A
$A516: 20 DD A3 jsr DEBPIA
$A519: 10 FB bpl ACP00A
$A51B:
$A51B: EOIACP
$A51B: A9 00 lda #$00
$A51D: 8D 48 E8 sta VIA_TMR2LOW
$A520: A9 01 lda #$01
$A522: 8D 49 E8 sta VIA_TMR2HIGH
$A525: 20 CB A3 jsr DATAHI
$A528: AD 4D E8 lda VIA_IFR
$A52B:
$A52B: ACP00
$A52B: AD 4D E8 lda VIA_IFR
$A52E: 29 20 and #$20
$A530: D0 07 bne ACP00B
$A532: 20 DD A3 jsr DEBPIA
$A535: 30 F4 bmi ACP00
$A537: 10 18 bpl ACP01
$A539:
$A539: ACP00B
$A539: A5 FF lda COUNT
$A53B: F0 05 beq ACP00C
$A53D: A9 02 lda #$02
$A53F: 4C 95 A4 jmp CSBERR
$A542:
$A542: ACP00C
$A542: 20 D4 A3 jsr DATALO
$A545: 20 C2 A3 jsr CLKHI
$A548: A9 40 lda #$40
$A54A: 20 80 A5 jsr UDST
$A54D: E6 FF inc COUNT
$A54F: D0 CA bne EOIACP
$A551:
$A551: ACP01
$A551: A9 08 lda #$08
$A553: 85 FF sta COUNT
$A555:
$A555: ACP03
$A555: AD 41 E8 lda D2PRA
$A558: CD 41 E8 cmp D2PRA
$A55B: D0 F8 bne ACP03
$A55D: 0A asl
$A55E: 10 F5 bpl ACP03
$A560: 66 FE ror BSOUR1
$A562:
$A562: ACP03A
$A562: AD 41 E8 lda D2PRA
$A565: CD 41 E8 cmp D2PRA
$A568: D0 F8 bne ACP03A
$A56A: 0A asl
$A56B: 30 F5 bmi ACP03A
$A56D: C6 FF dec COUNT
$A56F: D0 E4 bne ACP03
$A571: 20 D4 A3 jsr DATALO
$A574: 24 96 bit STATUS
$A576: 50 03 bvc ACP04
$A578: 20 F6 A4 jsr DLADLH
$A57B:
$A57B: ACP04
$A57B: A5 FE lda BSOUR1
$A57D: 58 cli
$A57E: 18 clc
$A57F: 60 rts
$A580:
$A580: UDST
$A580: 05 96 ora STATUS
$A582: 85 96 sta STATUS
$A584: 60 rts
$A585:!byte $60
$A586:
$A586: FND_AT
$A586: 20 90 A3 jsr RESET_VIA
$A589: 20 76 00 jsr CHRGOT
$A58C: D0 03 bne label_a591
$A58E: 4C 3C A8 jmp label_a83c
$A591:
$A591: label_a591
$A591: C9 55 cmp #$55
$A593: D0 2D bne label_a5c2
$A595: 20 70 00 jsr CHRGET
$A598: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A59B: 8A txa
$A59C: A2 53 ldx #$53
$A59E: A0 03 ldy #$03
$A5A0: 86 1F stx $1f
$A5A2: 84 20 sty $20
$A5A4: A0 08 ldy #$08
$A5A6: 84 D1 sty $d1
$A5A8: 88 dey
$A5A9: 29 0F and #$0f
$A5AB: 8D FF 03 sta $03ff
$A5AE: 09 40 ora #$40
$A5B0: 91 1F sta ( $1f ), y
$A5B2: 49 60 eor #$60
$A5B4: 88 dey
$A5B5: 91 1F sta ( $1f ), y
$A5B7: 88 dey
$A5B8:
$A5B8: label_a5b8
$A5B8: B9 34 A8 lda $a834, y
$A5BB: 91 1F sta ( $1f ), y
$A5BD: 88 dey
$A5BE: 10 F8 bpl label_a5b8
$A5C0: 30 08 bmi label_a5ca
$A5C2:
$A5C2: label_a5c2
$A5C2: 20 98 BD jsr frmev1
$A5C5: 20 B5 C7 jsr frestr
$A5C8: 85 D1 sta $d1
$A5CA:
$A5CA: label_a5ca
$A5CA: A9 00 lda #$00
$A5CC: 85 96 sta STATUS
$A5CE: 20 F2 A3 jsr label_a3f2
$A5D1: A9 6F lda #$6f
$A5D3: 20 9C A4 jsr SECND
$A5D6: A0 00 ldy #$00
$A5D8:
$A5D8: label_a5d8
$A5D8: B1 1F lda ( $1f ), y
$A5DA: 20 D2 A4 jsr CIOUT
$A5DD: C8 iny
$A5DE: C4 D1 cpy $d1
$A5E0: D0 F6 bne label_a5d8
$A5E2: 4C EE A4 jmp label_a4ee
$A5E5:
$A5E5: FND_TOKEN_SAVE
$A5E5: 20 EB A5 jsr label_a5eb
$A5E8: 4C 3C A8 jmp label_a83c
$A5EB:
$A5EB: label_a5eb
$A5EB: 20 90 A3 jsr RESET_VIA
$A5EE: 20 B6 A7 jsr label_a7b6
$A5F1: A9 61 lda #$61
$A5F3: 85 D3 sta SA_SecAddr
$A5F5: A4 D1 ldy $d1
$A5F7: D0 03 bne label_a5fc
$A5F9: 4C 00 BF jmp $bf00
$A5FC:
$A5FC: label_a5fc
$A5FC: 20 89 A6 jsr label_a689
$A5FF: 20 5A A8 jsr label_a85a
$A602: D0 1F bne label_a623
$A604: 20 70 00 jsr CHRGET
$A607: 20 61 A8 jsr label_a861
$A60A: A5 FB lda $fb
$A60C: 85 C9 sta $c9
$A60E: A5 FC lda $fc
$A610: 85 CA sta $ca
$A612: 20 F5 BE jsr TEST_COMMA
$A615: 20 61 A8 jsr label_a861
$A618: A5 FB lda $fb
$A61A: 85 B7 sta $b7
$A61C: A5 FC lda $fc
$A61E: 85 B8 sta $b8
$A620: 4C 33 A6 jmp label_a633
$A623:
$A623: label_a623
$A623: A5 28 lda $28
$A625: 85 C9 sta $c9
$A627: A5 29 lda $29
$A629: 85 CA sta $ca
$A62B: A5 2A lda $2a
$A62D: 85 B7 sta $b7
$A62F: A5 2B lda $2b
$A631: 85 B8 sta $b8
$A633:
$A633: label_a633
$A633: 20 F2 A3 jsr label_a3f2
$A636: A5 D3 lda SA_SecAddr
$A638: 20 9C A4 jsr SECND
$A63B: A0 00 ldy #$00
$A63D: A5 C9 lda $c9
$A63F: 20 D2 A4 jsr CIOUT
$A642: A5 CA lda $ca
$A644: 20 D2 A4 jsr CIOUT
$A647:
$A647: label_a647
$A647: 20 72 A6 jsr label_a672
$A64A: B0 0F bcs label_a65b
$A64C: B1 C9 lda ( $c9 ), y
$A64E: 20 D2 A4 jsr CIOUT
$A651: 20 9A A8 jsr label_a89a
$A654: F0 05 beq label_a65b
$A656: 20 82 A6 jsr label_a682
$A659: D0 EC bne label_a647
$A65B:
$A65B: label_a65b
$A65B: 20 EE A4 jsr label_a4ee
$A65E:
$A65E: label_a65e
$A65E: 24 D3 bit SA_SecAddr
$A660: 30 0F bmi label_a671
$A662: 20 F2 A3 jsr label_a3f2
$A665: A5 D3 lda SA_SecAddr
$A667: 29 EF and #$ef
$A669: 09 E0 ora #$e0
$A66B: 20 9C A4 jsr SECND
$A66E: 20 EE A4 jsr label_a4ee
$A671:
$A671: label_a671
$A671: 60 rts
$A672:
$A672: label_a672
$A672: A5 C9 lda $c9
$A674: C5 B7 cmp $b7
$A676: D0 08 bne label_a680
$A678: A5 CA lda $ca
$A67A: C5 B8 cmp $b8
$A67C: D0 02 bne label_a680
$A67E: 38 sec
$A67F: 60 rts
$A680:
$A680: label_a680
$A680: 18 clc
$A681: 60 rts
$A682:
$A682: label_a682
$A682: E6 C9 inc $c9
$A684: D0 02 bne label_a688
$A686: E6 CA inc $ca
$A688:
$A688: label_a688
$A688: 60 rts
$A689:
$A689: label_a689
$A689: A5 D3 lda SA_SecAddr
$A68B: 10 02 bpl label_a68f
$A68D:
$A68D: label_a68d
$A68D: 18 clc
$A68E: 60 rts
$A68F:
$A68F: label_a68f
$A68F: A4 D1 ldy $d1
$A691: F0 FA beq label_a68d
$A693: A9 00 lda #$00
$A695: 85 96 sta STATUS
$A697: 20 F2 A3 jsr label_a3f2
$A69A: A5 D3 lda SA_SecAddr
$A69C: 09 F0 ora #$f0
$A69E: 20 9C A4 jsr SECND
$A6A1: A5 96 lda STATUS
$A6A3: 10 03 bpl label_a6a8
$A6A5: 4C BB F4 jmp $f4bb
$A6A8:
$A6A8: label_a6a8
$A6A8: A0 00 ldy #$00
$A6AA:
$A6AA: label_a6aa
$A6AA: B1 DA lda ( $da ), y
$A6AC: 20 D2 A4 jsr CIOUT
$A6AF: C8 iny
$A6B0: C4 D1 cpy $d1
$A6B2: D0 F6 bne label_a6aa
$A6B4: 4C EE A4 jmp label_a4ee
$A6B7:
$A6B7: label_a6b7
$A6B7: 20 90 A3 jsr RESET_VIA
$A6BA: 20 5A A8 jsr label_a85a
$A6BD: C9 3B cmp #$3b
$A6BF: D0 05 bne label_a6c6
$A6C1: 85 BA sta $ba
$A6C3: 20 70 00 jsr CHRGET
$A6C6:
$A6C6: label_a6c6
$A6C6: 20 F6 A6 jsr label_a6f6
$A6C9: 20 51 F3 jsr $f351
$A6CC: D0 03 bne label_a6d1
$A6CE: 20 3C A8 jsr label_a83c
$A6D1:
$A6D1: label_a6d1
$A6D1: 24 9D bit VERCK
$A6D3: 30 20 bmi label_a6f5
$A6D5: 20 2B F9 jsr $f92b
$A6D8: A0 AE ldy #$ae
$A6DA: 20 49 F3 jsr $f349
$A6DD: 20 51 F3 jsr $f351
$A6E0: D0 03 bne label_a6e5
$A6E2: 4C AD B4 jmp $b4ad
$A6E5:
$A6E5: label_a6e5
$A6E5: 20 22 B6 jsr $b622
$A6E8: 20 B7 B7 jsr $b7b7
$A6EB: A2 16 ldx #$16
$A6ED: 86 13 stx $13
$A6EF: A9 00 lda #$00
$A6F1: 85 3B sta $3b
$A6F3: 85 0A sta $0a
$A6F5:
$A6F5: label_a6f5
$A6F5: 60 rts
$A6F6:
$A6F6: label_a6f6
$A6F6: 20 B6 A7 jsr label_a7b6
$A6F9: A4 D1 ldy $d1
$A6FB: D0 02 bne label_a6ff
$A6FD: 18 clc
$A6FE: 60 rts
$A6FF:
$A6FF: label_a6ff
$A6FF: 20 49 F4 jsr $f449
$A702: A9 60 lda #$60
$A704: 85 D3 sta SA_SecAddr
$A706: 20 89 A6 jsr label_a689
$A709: 20 EF A3 jsr label_a3ef
$A70C: A5 D3 lda SA_SecAddr
$A70E: 20 BC A4 jsr TKSA
$A711: 20 07 A5 jsr label_a507
$A714: 85 C9 sta $c9
$A716: A5 96 lda STATUS
$A718: 4A lsr
$A719: 4A lsr
$A71A: 90 03 bcc label_a71f
$A71C: 4C AD F5 jmp $f5ad
$A71F:
$A71F: label_a71f
$A71F: 20 6D F4 jsr $f46d
$A722: 20 07 A5 jsr label_a507
$A725: 85 CA sta $ca
$A727: 20 5A A8 jsr label_a85a
$A72A: D0 12 bne label_a73e
$A72C: 20 70 00 jsr CHRGET
$A72F: 20 61 A8 jsr label_a861
$A732: A5 FB lda $fb
$A734: 85 C9 sta $c9
$A736: A5 FC lda $fc
$A738: 85 CA sta $ca
$A73A: A9 3B lda #$3b
$A73C: 85 BA sta $ba
$A73E:
$A73E: label_a73e
$A73E: A5 BA lda $ba
$A740: C9 2C cmp #$2c
$A742: D0 0C bne label_a750
$A744: A5 9D lda VERCK
$A746: D0 08 bne label_a750
$A748: A5 C9 lda $c9
$A74A: 85 28 sta $28
$A74C: A5 CA lda $ca
$A74E: 85 29 sta $29
$A750:
$A750: label_a750
$A750: A9 FD lda #EOIFLAG
$A752: 25 96 and STATUS
$A754: 85 96 sta STATUS
$A756: 20 9A A8 jsr label_a89a
$A759: D0 03 bne label_a75e
$A75B: 4C 5E A6 jmp label_a65e
$A75E:
$A75E: label_a75e
$A75E: 20 07 A5 jsr label_a507
$A761: AA tax
$A762: A5 96 lda STATUS
$A764: 4A lsr
$A765: 4A lsr
$A766: B0 E8 bcs label_a750
$A768: 8A txa
$A769: A4 9D ldy VERCK
$A76B: F0 27 beq label_a794
$A76D: A0 00 ldy #$00
$A76F: D1 C9 cmp ( $c9 ), y
$A771: F0 23 beq label_a796
$A773: A9 10 lda #$10
$A775: 20 80 A5 jsr UDST
$A778: 20 E4 A4 jsr UNTLK
$A77B: 20 5E A6 jsr label_a65e
$A77E: 20 34 D5 jsr $d534
$A781: A5 C9 lda $c9
$A783: 85 FB sta $fb
$A785: A5 CA lda $ca
$A787: 85 FC sta $fc
$A789: 20 17 D7 jsr $d717
$A78C: 20 2E D5 jsr $d52e
$A78F: A0 6E ldy #$6e
$A791: 4C B7 F5 jmp $f5b7
$A794:
$A794: label_a794
$A794: 91 C9 sta ( $c9 ), y
$A796:
$A796: label_a796
$A796: 20 82 A6 jsr label_a682
$A799: 24 96 bit STATUS
$A79B: 50 B3 bvc label_a750
$A79D: 20 E4 A4 jsr UNTLK
$A7A0: 20 5E A6 jsr label_a65e
$A7A3: A5 BA lda $ba
$A7A5: C9 2C cmp #$2c
$A7A7: D0 0C bne label_a7b5
$A7A9: A5 9D lda VERCK
$A7AB: D0 08 bne label_a7b5
$A7AD: A5 C9 lda $c9
$A7AF: 85 2A sta $2a
$A7B1: A5 CA lda $ca
$A7B3: 85 2B sta $2b
$A7B5:
$A7B5: label_a7b5
$A7B5: 60 rts
$A7B6:
$A7B6: label_a7b6
$A7B6: 20 98 BD jsr frmev1
$A7B9: 20 B5 C7 jsr frestr
$A7BC: 85 D1 sta $d1
$A7BE: A5 1F lda $1f
$A7C0: 85 DA sta $da
$A7C2: A5 20 lda $20
$A7C4: 85 DB sta $db
$A7C6: 60 rts
$A7C7:
$A7C7: FND_TOKEN_CATALOG
$A7C7: 20 90 A3 jsr RESET_VIA
$A7CA: 20 76 00 jsr CHRGOT
$A7CD: F0 06 beq label_a7d5
$A7CF: 20 B6 A7 jsr label_a7b6
$A7D2: 4C E1 A7 jmp label_a7e1
$A7D5:
$A7D5: label_a7d5
$A7D5: A9 3A lda #$3a
$A7D7: 85 DA sta $da
$A7D9: A9 A8 lda #$a8
$A7DB: 85 DB sta $db
$A7DD: A9 01 lda #$01
$A7DF: 85 D1 sta $d1
$A7E1:
$A7E1: label_a7e1
$A7E1: A9 60 lda #$60
$A7E3: 85 D3 sta SA_SecAddr
$A7E5: 20 89 A6 jsr label_a689
$A7E8: 20 EF A3 jsr label_a3ef
$A7EB: 20 BC A4 jsr TKSA
$A7EE: A9 00 lda #$00
$A7F0: 85 96 sta STATUS
$A7F2: A0 03 ldy #$03
$A7F4:
$A7F4: label_a7f4
$A7F4: 84 C9 sty $c9
$A7F6: 20 07 A5 jsr label_a507
$A7F9: 85 CA sta $ca
$A7FB: A4 96 ldy STATUS
$A7FD: D0 32 bne label_a831
$A7FF: 20 07 A5 jsr label_a507
$A802: A4 96 ldy STATUS
$A804: D0 2B bne label_a831
$A806: A4 C9 ldy $c9
$A808: 88 dey
$A809: D0 E9 bne label_a7f4
$A80B: A6 CA ldx $ca
$A80D: 20 83 CF jsr $cf83
$A810: A9 20 lda #$20
$A812: 20 D2 FF jsr ChrOut
$A815:
$A815: label_a815
$A815: 20 07 A5 jsr label_a507
$A818: A6 96 ldx STATUS
$A81A: D0 15 bne label_a831
$A81C: AA tax
$A81D: F0 06 beq label_a825
$A81F: 20 D2 FF jsr ChrOut
$A822: 4C 15 A8 jmp label_a815
$A825:
$A825: label_a825
$A825: A9 0D lda #$0d
$A827: 20 D2 FF jsr ChrOut
$A82A: A0 02 ldy #$02
$A82C: 20 9A A8 jsr label_a89a
$A82F: D0 C3 bne label_a7f4
$A831:
$A831: label_a831
$A831: 4C 5E A6 jmp label_a65e
$A834:!byte $4D,$2D,$57,$77,$00,$02,$24,$00
$A83C:
$A83C: label_a83c
$A83C: 20 5E A6 jsr label_a65e
$A83F: 20 AD A3 jsr label_a3ad
$A842: 20 EF A3 jsr label_a3ef
$A845: A9 6F lda #$6f
$A847: 20 BC A4 jsr TKSA
$A84A:
$A84A: label_a84a
$A84A: 20 07 A5 jsr label_a507
$A84D: 20 D2 FF jsr ChrOut
$A850: C9 0D cmp #$0d
$A852: D0 F6 bne label_a84a
$A854: 20 E4 A4 jsr UNTLK
$A857: 4C 5E A6 jmp label_a65e
$A85A:
$A85A: label_a85a
$A85A: A0 00 ldy #$00
$A85C: B1 77 lda ( TXTPTR_L ), y
$A85E: C9 2C cmp #$2c
$A860: 60 rts
$A861:
$A861: label_a861
$A861: 20 98 BD jsr frmev1
$A864: 20 B5 C7 jsr frestr
$A867: C9 04 cmp #$04
$A869: D0 21 bne label_a88c
$A86B: A0 FF ldy #COUNT
$A86D: 20 94 A8 jsr Chk_KB_RowE
$A870: 20 8F A8 jsr label_a88f
$A873: 85 FC sta $fc
$A875: 20 94 A8 jsr Chk_KB_RowE
$A878: 05 FC ora $fc
$A87A: 85 FC sta $fc
$A87C: 20 94 A8 jsr Chk_KB_RowE
$A87F: 20 8F A8 jsr label_a88f
$A882: 85 FB sta $fb
$A884: 20 94 A8 jsr Chk_KB_RowE
$A887: 05 FB ora $fb
$A889: 85 FB sta $fb
$A88B: 60 rts
$A88C:
$A88C: label_a88c
$A88C: 4C 00 BF jmp $bf00
$A88F:
$A88F: label_a88f
$A88F: 0A asl
$A890: 0A asl
$A891: 0A asl
$A892: 0A asl
$A893: 60 rts
$A894:
$A894: Chk_KB_RowE
$A894: C8 iny
$A895: B1 1F lda ( $1f ), y
$A897: 4C 8D D7 jmp $d78d
$A89A:
$A89A: label_a89a
$A89A: AD 12 E8 lda KB_Row_Input
$A89D: C9 EF cmp #$ef
$A89F: 60 rts
$A8A0:
$A8A0: label_a8a0
$A8A0: AD FF 03 lda $03ff
$A8A3: 29 7F and #$7f
$A8A5: C5 D4 cmp FA_DevNo
$A8A7: 60 rts
$A8A8:
$A8A8: Confirm_Hash
$A8A8: A9 23 lda #$23
$A8AA: 20 F7 BE jsr Confirm_Char_in_A
$A8AD:
$A8AD: label_a8ad
$A8AD: 20 AD A3 jsr label_a3ad
$A8B0: 20 D4 C8 jsr EVAL_BYTE_PARAMETER
$A8B3: 8A txa
$A8B4: 09 60 ora #$60
$A8B6: 85 D3 sta SA_SecAddr
$A8B8: 60 rts