     $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