home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l210 / 1.ddi / REFEXAMP.ARC / BIOS4.PRO < prev    next >
Encoding:
Text File  |  1988-06-21  |  281 b   |  13 lines
  1. %======================     bios/4            ===============================
  2. PREDICATES
  3.   rmdir(STRING)
  4.  
  5. CLAUSES
  6.   rmdir(NAME):-
  7.           ptr_dword(NAME,DS,DX),
  8.         AX=256*58,
  9.         bios($21,reg(AX,0,0,DX,0,0,DS,0),_,FLAGS),
  10.         % writef("%x",FLAGS),
  11.         bitand(FLAGS,1,CY),
  12.         CY=0.
  13.