     $EA2E/59950:   Accept data from serial bus

    Jump from $EA4B, $E8E7:

    EA2E: 78        SEI
    EA2F: 20 07 D1  JSR $D107       ; open channel for writing
    EA32: B0 05     BCS $EA39       ; channel not active?
    EA34: B5 F2     LDA $F2,X       ; WRITE flag
    EA36: 6A        ROR
    EA37: B0 0B     BCS $EA44       ; not set?

    Jump from $EA32:

    EA39: A5 84     LDA $84         ; secondary address
    EA3B: 29 F0     AND #$F0
    EA3D: C9 F0     CMP #$F0        ; OPEN command?
    EA3F: F0 03     BEQ $EA44       ; yes
    EA41: 4C 4E EA  JMP $EA4E       ; to wait loop

    Jump from $EA37, $EA3F:

    EA44: 20 C9 E9  JSR $E9C9       ; get data byte from bus
    EA47: 58        CLI
    EA48: 20 B7 CF  JSR $CFB7       ; and write in buffer
    EA4B: 4C 2E EA  JMP $EA2E       ; to loop beginning

    Jump from $EA41, $E8FA, $E999:

    EA4E: A9 00     LDA #$00
    EA50: 8D 00 18  STA $1800       ; reset IEEE port
    EA53: 4C E7 EB  JMP $EBE7       ; to wait loop
    EA56: 4C 5B E8  JMP $E85B       ; to serial bus main loop

        Previous Page / Next Page