     $D940/55616:   ?

    Jump from $D8AE:

    D940: AD 80 02  LDA $0280       ; first track number
    D943: D0 05     BNE $D94A       ; file not erased?
    D945: A9 62     LDA #$62
    D947: 4C C8 C1  JMP $C1C8       ; 62, 'file not found'

    Jump from $D943:

    D94A: AD 97 02  LDA $0297       ; control mode
    D94D: C9 03     CMP #$03        ; 'M'
    D94F: F0 0B     BEQ $D95C       ; yes, then no test of unclosed file
    D951: A9 20     LDA #$20        ; bit 5
    D953: 24 E7     BIT $E7         ; test in file type
    D955: F0 05     BEQ $D95C       ; not set, ok
    D957: A9 60     LDA #$60
    D959: 4C C8 C1  JMP $C1C8

    Jump from $D94F, $D955:

    D95C: A5 E7     LDA $E7
    D95E: 29 07     AND #$07        ; isolate file type
    D960: CD 4A 02  CMP $024A
    D963: F0 05     BEQ $D96A

    Jump from $D978, $D8FC, $D900:

    D965: A9 64     LDA #$64
    D967: 4C C8 C1  JMP $C1C8       ; 64, 'file type mismatch'

    Jump from $D963:

    D96A: A0 00     LDY #$00
    D96C: 8C 79 02  STY $0279
    D96F: AE 97 02  LDX $0297       ; control mode
    D972: E0 02     CPX #$02        ; 'A', append
    D974: D0 1A     BNE $D990       ; no
    D976: C9 04     CMP #$04        ; rel-file?
    D978: F0 EB     BEQ $D965
    D97A: B1 94     LDA ($94),Y
    D97C: 29 4F     AND #$4F
    D97E: 91 94     STA ($94),Y
    D980: A5 83     LDA $83
    D982: 48        PHA
    D983: A9 11     LDA #$11
    D985: 85 83     STA $83         ; channel 17
    D987: 20 3B DE  JSR $DE3B       ; get track and sector number
    D98A: 20 64 D4  JSR $D464       ; write block
    D98D: 68        PLA
    D98E: 85 83     STA $83         ; get channel number back

    Jump from $D974:

    D990: 20 A0 D9  JSR $D9A0
    D993: AD 97 02  LDA $0297       ; control mode
    D996: C9 02     CMP #$02
    D998: D0 55     BNE $D9EF
    D99A: 20 2A DA  JSR $DA2A
    D99D: 4C 94 C1  JMP $C194       ; done

        Previous Page / Next Page