$E645/58949:   Print error message into error buffer

Jump from $C1CE, $CD2E, $D54F, $D577, $DC03, $E204, $E829, $E845, $F1DC,
          $F1F7, $F248:

E645: 20 C7 E6  JSR $E6C7       ; set error message

Jump from $D021, $E641, $F01F:

E648: 20 BD C1  JSR $C1BD       ; erase input buffer
E64B: A9 00     LDA #$00
E64D: 8D F9 02  STA $02F9       ; erase error flag
E650: 20 2C C1  JSR $C12C       ; turn LED off
E653: 20 DA D4  JSR $D4DA       ; close channels 17 and 18
E656: A9 00     LDA #$00
E658: 85 A3     STA $A3         ; input buffer pointer to zero
E65A: A2 45     LDX #$45
E65C: 9A        TXS             ; initialize stack pointer
E65D: A5 84     LDA $84         ; secondary address
E65F: 29 0F     AND #$0F
E661: 85 83     STA $83
E663: C9 0F     CMP #$0F        ; 15?
E665: F0 31     BEQ $E698       ; yes, command channel
E667: 78        SEI
E668: A5 79     LDA $79         ; LISTEN active?
E66A: D0 1C     BNE $E688       ; yes
E66C: A5 7A     LDA $7A         ; TALK active?
E66E: D0 10     BNE $E680       ; yes
E670: A6 83     LDX $83         ; channel number
E672: BD 2B 02  LDA $022B,X     ; open channel to this secondary addr
E675: C9 FF     CMP #$FF
E677: F0 1F     BEQ $E698       ; no
E679: 29 0F     AND #$0F
E67B: 85 82     STA $82         ; channel
E67D: 4C 8E E6  JMP $E68E

    Previous Page / Next Page