     $ED84/60804:   Perform [V] - Validate command

    ED84: 20 D1 C1  JSR $C1D1       ; find drive number in input line
    ED87: 20 42 D0  JSR $D042       ; load BAM
    ED8A: A9 40     LDA #$40
    ED8C: 8D F9 02  STA $02F9
    ED8F: 20 B7 EE  JSR $EEB7       ; create new BAM in buffer
    ED92: A9 00     LDA #$00
    ED94: 8D 92 02  STA $0292
    ED97: 20 AC C5  JSR $C5AC       ; load directory, find 1st flag
    ED9A: D0 3D     BNE $EDD9       ; found?

    Jump from $EDD7:

    ED9C: A9 00     LDA #$00
    ED9E: 85 81     STA $81         ; sector 0
    EDA0: AD 85 FE  LDA $FE85       ; 18
    EDA3: 85 80     STA $80         ; track 18 for BAM
    EDA5: 20 E5 ED  JSR $EDE5       ; mark directory blocks as allocated
    EDA8: A9 00     LDA #$00
    EDAA: 8D F9 02  STA $02F9
    EDAD: 20 FF EE  JSR $EEFF       ; write BAM back to disk
    EDB0: 4C 94 C1  JMP $C194       ; done, prepare disk status

        Previous Page / Next Page