Plus/4 Kernal Disassembly $c968-$c999

; $C968: HEADER
HEADER: jsr     LCB1F        ; process DOS command
        jsr     LCCAF        ; syntax check
        and     #$11         ; bits for diskname and drive 
        cmp     #$11         ; both present ?
        beq     LC977        ; yes, go on
LC974:  jmp     L94A1        ; print "syntax error"
LC977:  jsr     CLALL        ; close all
        jsr     AYSURE       ; "Are you shure ?"
        bne     LC996        ; no, end
        ldy     #$09         ; table offset
        jsr     BCMD         ; do command
        jsr     LCCCF        ; get disk status   
        bit     $81          ; direct mode ?
        bmi     LC996        ; no, end
        ldy     #$00           
        lda     #$7A
        jsr     L0494        ; get first pos of DS
        cmp     #$32         ; greater than 2
        bcs     LC997        ; format error 
LC996:  rts
LC997:  ldx     #$24         ; get error number 24 ("Bad Disk")  
        jmp     L8683        ; print error
Letzte Änderung: 2019-01-06 09:50:22