home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol090 / sfmake.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  458 b   |  31 lines
  1. ;
  2. ; SYSLIB Module Name:  SFMAKE
  3. ; Author:  Richard Conn
  4. ; SYSLIB Version Number:  2.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    F$MAKE
  8. ; Module External References:
  9. ;    BDOS        F$DELETE
  10. ;
  11.  
  12. ;
  13. ;  F$MAKE -- MAKE FILE WHOSE FCB IS PTED TO BY DE
  14. ;
  15.     EXT    BDOS
  16.     EXT    F$DELETE
  17.  
  18. F$MAKE::
  19.     CALL    F$DELETE    ; DELETE FILE
  20.     PUSH    H        ; SAVE HL
  21.     PUSH    B        ; SAVE BC
  22.     MVI    C,B$MAKE
  23.     CALL    BDOS
  24.     POP    B        ; RESTORE BC
  25.     POP    H        ; RESTORE HL
  26.     RET
  27.  
  28. B$MAKE    EQU    22    ; MAKE FILE
  29.  
  30.     END
  31.