extrn .getusr, .setusr, .dos, .drvlock, .freset ; @purge equ 19 @make equ 22 ; ; Open file de^, user a, for write. User no. is absolute. ; Carry for error. Purge any previous file. If de^.drv is ; default, lock to current drive, allowing future drive switches. ; a,f .fopnw:: push h mov h,a; save user call .getusr mov l,a mov a,h call .setusr call .drvlock; lock default to current disk call .freset mvi a,@purge call .dos mvi a,@make call .dos inr a push psw mov a,l; entry user call .setusr pop psw pop h rnz; open ok stc; open failure ret