Plus/4 Kernal Disassembly $c9f6-$ca3e

; $C9F4: RENAME
RENAME: lda     #$E4         ; 2 filename, drive-addresses ?
        jsr     LCB21        ; process DOS command 
        jsr     LCCC6        ; error, if not 2 filenames
        ldy     #$1E         ; table offset
        bne     BCMD         ; do command 
; $CA00: BACKUP
BACKUP: lda     #$C7         ; drive-adress, 2 drives
        jsr     LCB21        ; process DOS command 
        and     #$30          
        cmp     #$30         ; two drives ?
        beq     LCA0E        ; yes 
        jmp     L94A1        ; no, print "syntax error"
LCA0E:  jsr     CLALL        ; close all 
        ldy     #$25         ; table offset
        jmp     BCMD         ; do command  
; $CA16: Send command
SCMD:   pha                  ; save table endmarker 
        lda     $025D        ; get filename len
        ldx     #$7C         ; get address ..
        ldy     #$02         ; .. of filename 
        jsr     SETNAM       ; set filename
        lda     $0276        ; fetch log. address
        ldx     $0277        ; fetch drive
        ldy     $0278        ; fetch sec. address
        jsr     LFFBA        ; set log. file 
        pla            
        beq     LCA3E        ; fetch table endmarker
        ldx     $025D        ; fetch command len    
        sec          
        jsr     OPEN         ; do open  
        lda     $0276        ; fetch log. address
        sec
        jmp     CLOSE        ; do close
LCA3E:  rts                  ; return from sub
Letzte Änderung: 2019-01-06 09:50:49