home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / buffers.lbr / FOPNW.MZC / FOPNW.MAC
Encoding:
Text File  |  1987-01-15  |  640 b   |  32 lines
  1.     extrn    .getusr, .setusr, .dos, .drvlock, .freset
  2. ;
  3. @purge    equ    19
  4. @make    equ    22
  5. ;
  6. ; Open file de^, user a, for write.  User no. is absolute.
  7. ; Carry for error.  Purge any previous file.  If de^.drv is
  8. ; default, lock to current drive, allowing future drive switches.
  9. ; a,f
  10. .fopnw::
  11.     push    h
  12.     mov    h,a;        save user
  13.     call    .getusr
  14.     mov    l,a
  15.     mov    a,h
  16.     call    .setusr
  17.     call    .drvlock;    lock default to current disk
  18.     call    .freset
  19.     mvi    a,@purge
  20.     call    .dos
  21.     mvi    a,@make
  22.     call    .dos
  23.     inr    a
  24.     push    psw
  25.     mov    a,l;        entry user
  26.     call    .setusr
  27.     pop    psw
  28.     pop    h
  29.     rnz;            open ok
  30.     stc;            open failure
  31.     ret
  32. ^7