home *** CD-ROM | disk | FTP | other *** search
/ vsiftp.vmssoftware.com / VSIPUBLIC@vsiftp.vmssoftware.com.tar / FREEWARE / FREEWARE40.ZIP / dbs-odsm / _odsmdef.mar next >
Text File  |  1993-11-19  |  1KB  |  63 lines
  1. .macro    _odsmdef, global
  2.  
  3.     $defini odsm, global
  4. $equ    odsm_s_device            64
  5. $equ    odsm_t_device        0
  6. $equ    odsm_k_keylength    64
  7. $equ    odsm_s_volnam            12
  8. $equ    odsm_t_volnam        64
  9. $equ    odsm_b_minimum        76
  10. $equ    odsm_b_maximum        77
  11. $equ    odsm_s_host            8
  12. $equ    odsm_t_host        78
  13. $equ    odsm_l_spare1        86
  14. $equ    odsm_l_spare2        90
  15. $equ    odsm_l_spare3        94
  16. $equ    odsm_k_length        98
  17. $equ    odsm_s_odsmdef            98
  18.     $defend odsm, global def
  19.  
  20. .endm    _odsmdef
  21.  
  22. .macro    display_error status=r0, ?next
  23.  
  24.     blbs    status, next
  25.     movl    status, odsm_msgsts
  26.     $putmsg_s msgvec=odsm_msgvec
  27.     movl    odsm_msgsts, status
  28. next:
  29.  
  30. .endm    display_error
  31.  
  32. .macro    signal_error status=r0, ?next
  33.  
  34.     blbs    status, next
  35.     pushl    status
  36.     calls    #1, g^lib$stop
  37. next:
  38.  
  39. .endm    signal_error
  40.  
  41. .macro    brdcst message, where=console, ?ok
  42.  
  43.     pushaq    message
  44.     pushaq    odsm_version
  45.     calls    #2, g^send_operator
  46.     blbs    r0, ok
  47.     pushaq    where
  48.     pushaq    message
  49.     pushaq    odsm_version
  50.     calls    #3, g^sys_broadcast
  51. ok:
  52.  
  53. .endm    brdcst
  54.  
  55. .macro    s_brdcst message, where=console
  56.  
  57.     pushaq    where
  58.     pushaq    message
  59.     pushaq    odsm_version
  60.     calls    #3, g^sys_broadcast
  61.  
  62. .endm    s_brdcst
  63.