Byte auf FSM-Bus ausgeben (bei der 1571: $9228)
E: x: auszugebendes Byte

Einsprung von $BA46, $BA50:

BA40: AD 01 40  LDA $4001        Seriellen Bus auslesen
BA43: CD 01 40  CMP $4001        und entprellen
BA46: D0 F8     BNE $BA40
BA48: 29 FF     AND #$FF         ATN-Modus
BA4A: 30 15     BMI $BA61        ja, ==>
BA4C: 45 76     EOR $76          Warten, bis Burst-Clock kippt
BA4E: 29 04     AND #$04
BA50: F0 EE     BEQ $BA40
BA52: 8E 0C 40  STX $400C        Byte ausgeben
BA55: 45 76     EOR $76
BA57: 85 76     STA $76          Burst-Clock-Zustand merken
BA59: A9 08     LDA #$08         Uebertragung abwarten

Einsprung von $BA5E:

BA5B: 2C 0D 40  BIT $400D
BA5E: F0 FB     BEQ $BA5B        b3=0 (SDR schiebt noch), ==>
BA60: 60        RTS

Einsprung von $BA4A:

BA61: 4C 30 FF  JMP $FF30        JATNSRV

    Previous Page / Next Page