Estex-DSS/SHELL/Commands/RMDIR.ASM

19 lines
437 B
NASM

;///////////////////////////////////////////////////
;
; RD, RMDIR. “¤ «¨âì ¯ ¯ªã
;
;///////////////////////////////////////////////////
cmd_rmdir: ld c,Dss.RmDir ; á®§¤ âì ¯ ¯ªã
push bc
;
.shared: ex de,hl
ld de,Buffers.work.buffer1;
ld c,Dss.GSwitch ; ¢ë¤¥«¨âì ¯ à ¬¥âà ª®¬-áâப¨
RST ToDSS
ld hl,Buffers.work.buffer1 ; ¨¬ï ¯ ¯ª¨
POP BC
RST ToDSS
ret nc
JP print_err_message ; ¢ë¢®¤ á®®¡é¥­¨ï
;