    Fehlermeldung bereitstellen ($e6bc)

    '00, OK,00,00' in Errorpuffer schreiben

    Einsprung von $8008, $A05E:

    A862: 20 E5 81  JSR $81E5        Fehlerflag loeschen, LED aus
    A865: A9 00     LDA #$00         00, OK

    Errortext mit T&S=0 generieren
    E: a: Fehlernummer im BCD-Code

    Einsprung von $8C81, $8C86, $9386, $AFE0, $B0B0:

    A867: A0 00     LDY #$00         ,00,00
    A869: 84 4D     STY $4D
    A86B: 84 4E     STY $4E
    Error ausgeben

    E: a      : Fehlernummer im BCD-Code
       $4d-$4e: T&S im Binaercode

    Einsprung von $8061, $A7E7, $A7F1, $B5AE:

    A86D: A0 00     LDY #$00         Anfang des Errorpuffers
    A86F: A2 D0     LDX #$D0
    A871: 86 CF     STX $CF          $02d0
    A873: A2 02     LDX #$02
    A875: 86 D0     STX $D0
    A877: 20 51 A8  JSR $A851        Fehlernummer in A ausgeben + tax
    A87A: A9 2C     LDA #$2C
    A87C: 91 CF     STA ($CF),Y      ',' in Puffer schreiben
    A87E: C8        INY
    A87F: AD D0 02  LDA $02D0        erstes Zeichen zur Ausgabe bereitstellen
    A882: 8D 41 02  STA $0241        (s.u.)
    A885: 8A        TXA
    A886: 20 AD A8  JSR $A8AD        Fehlertext in Puffer schreiben
    A889: A9 2C     LDA #$2C
    A88B: 91 CF     STA ($CF),Y      ',' in Puffer schreiben
    A88D: C8        INY
    A88E: A5 4D     LDA $4D
    A890: 20 3E A8  JSR $A83E        Tracknummer in Puffer schreiben
    A893: A9 2C     LDA #$2C
    A895: 91 CF     STA ($CF),Y      ',' in Puffer schreiben
    A897: C8        INY
    A898: A5 4E     LDA $4E
    A89A: 20 3E A8  JSR $A83E        Sektornummer in Puffer schreiben
    A89D: 88        DEY
    A89E: 98        TYA              Ende der Fehlermeldung merken
    A89F: 18        CLC
    A8A0: 69 D0     ADC #$D0         + Anfang des Error-Puffers
    A8A2: 8D 48 02  STA $0248        = Puffergroesse
    A8A5: E6 CF     INC $CF          1. Zeichen steht bereits zur Ausgabe bereit
    A8A7: A9 88     LDA #$88         Zeiger auf 2. Zeichen setzen
    A8A9: 8D 3A 02  STA $023A        b7=1: Lesekanal; b4=1: kein EOI
    A8AC: 60        RTS

        Previous Page / Next Page