$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