home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 277.lha / TestRH / src / rderexx.i < prev    next >
Encoding:
Text File  |  1989-08-08  |  2.3 KB  |  91 lines
  1.  
  2.         INCLUDE "exec/exec.i"
  3.         INCLUDE "exec/exec_lib.i"
  4.         INCLUDE "rexx/storage.i"
  5.         INCLUDE "rexx/rxslib.i"
  6.         INCLUDE "arp/arpbase.i"
  7.  
  8.         MACRO   LONGBITS
  9.         ifge    \2-24
  10.                 \1      #\2-24,\3
  11.         MEXIT
  12.         ENDC
  13.         ifge    \2-16
  14.                 \1      #\2-16,1+\3
  15.         MEXIT
  16.         ENDC
  17.         ifge    \2-8
  18.                 \1      #\2-8,2+\3
  19.         MEXIT
  20.         ENDC
  21.                 \1      #\2,3+\3
  22.         ENDM
  23.  
  24.  
  25.         MACRO   WORDBITS
  26.         ifge    \2-8
  27.                 \1      #\2-8,\3
  28.         MEXIT
  29.         ENDC
  30.                 \1      #\2,1+\3
  31.         ENDM
  32.  
  33.         MACRO   INITRT
  34.         \1.RL:  REG     \2
  35. ARGSTART SET    \3
  36.         movem.l \2,-(sp)
  37.         ENDM
  38.  
  39.         MACRO ENDRT
  40.         movem.l (sp)+,\1.RL
  41.         rts
  42.         ENDM
  43.  
  44. RDEMAXOUT EQU 16
  45.  
  46. ;The RHB_ bits are for RHFlags.
  47.  
  48. ;This bit is set before disprxmsg() calls do_command. Thus you can trap
  49. ;attempts to execute privilaged commands.
  50. RHB_ACTIVE      EQU     0
  51.  
  52. ;Set this bit to indicate a halt condition.
  53. RHB_HALTED      EQU     1
  54.  
  55. ;Set this bit when the user locks the host. Reset it when unlocking
  56. RHB_USRLOCK     EQU     4
  57.  
  58. ;Set this bit when a macro issues a LOCK command. Reset on UNLOCK or on
  59. ;users' clrrhlocks.
  60. RHB_MCRLOCK     EQU     5
  61.  
  62. ;Set this bit if you don't want ARexx macros using you console window,
  63. ;or if you are not connected toa console window.
  64. RHB_NOIO        EQU     8
  65.  
  66.  
  67. ;sendrxmsg() will set this bit in ChkPorts after munging the RHPort->SigBit.
  68. CPB_RHPORT      EQU     1
  69.  
  70.  
  71. ;The following relate to the act argument ot sendrxmsg().
  72.  
  73. ; Set this bit if sendrxmsg() can return after sending the message; i.e.
  74. ;without waiting for a reply.
  75. SRMB_ASYNCH     EQU     16
  76.  
  77. ;Set this bit to make the initial host address = 'REXX'. This must be done
  78. ;for both `string files' [to avoid horrendous errors]
  79. ;and implied macros [to avoid vicious circles].
  80. SRMB_HOSTNM     EQU     17
  81.  
  82. ;Set this bit to send the message to 'AREXX', rather than to 'REXX'.
  83. ;Doing this (with ARexx v1.10 and beyond) means that the message will
  84. ;return without waiting for the completion of the macro.
  85. ;NOTE: THIS IS NOT A SUBSTITUTE FOR ASYNCHRONOUS PROCESSING. It is a sop
  86. ;to all the hosts that don't have it in the first place. Not for those
  87. ;who want to do things the `right' way.
  88. SRMB_TONAME     EQU     18
  89.  
  90.  
  91.