home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / driver.mac < prev    next >
Encoding:
Text File  |  1984-04-29  |  767 b   |  36 lines
  1. title    driver.mac version 1.0
  2. ;    This driver is used when testing the SIGNON Subsystem
  3. ;    modules.  This works because the interpreter can only 
  4. ;    call by address.  Thus addresses are assigned in the
  5. ;    basic programs to jump to the jump table below.
  6.  
  7. ;    Since the complier calls by module name the various modules
  8. ;    must be linked together.
  9.  
  10. ;    TIMEMD
  11. ;    DAYMD
  12. ;    DATEMD        contained in TMOD
  13. ;
  14. ;    USERMD
  15. ;    SETFMD
  16. ;
  17. ;    load this followed by the above modules
  18.  
  19. extrn    timemd, daymd, datemd, usermd, setfmd
  20.  
  21.     jmp    timemd    ;get time string
  22.     jmp    datemd    ;get date string
  23.     jmp    daymd    ;get day of week string
  24.     jmp    usermd    ;set user number
  25.     jmp    setfmd    ;set file attribute flags
  26.     rept    5
  27.     jmp    notyet
  28.     endm
  29. notyet:
  30.     lxi    d,mess
  31.     mvi    c,9
  32.     call    5
  33.     ret
  34. mess:    db    ' ** illeagal driver call ** $'
  35.     end
  36.