Table of Contents

MACQ

Table Of Contents

Source Code

MACQ.txt 
  1. *DECK MACQ
  2.           IDENT  MACQ 
  3.           LIST   F
  4.           ENTRY  MACQ 
  5.           EXT    MSEIZE 
  6.           EXT    XTRACE 
  7. *IF DEF,IMS 
  8. *#
  9. *1DC  MACQ
  10. * 
  11. *     1. PROC NAME           AUTHOR              DATE 
  12. *        MACQ                P.C.TAM             77/11/28 
  13. * 
  14. *     2. FUNCTIONAL DESCRIPTION.
  15. *        THIS ROUTINE SERVES AS FRONT END FOR MGETS WHERE THE 
  16. *        FREE BUFFER ADDRESS IS KNOWN TO CALLER.
  17. * 
  18. *     3. METHOD USED. 
  19. *        CHECK FOR INCONSISTENCY: GETTING A ZERO SIZE BUFFER
  20. *        SET UP PARAMETERS IN APPROPIATE REGISTERS
  21. *        CALL MGETS ROUTINE 
  22. *        RETURN 
  23. * 
  24. *     4. ENTRY PARAMETERS.
  25. *        (A1)=ADDR OF PARM BLOCK
  26. *        (X1)=RQSIZE, REQUIRED SIZE OF BUFFER 
  27. *        (A1)+1=ADDR OF BUFWA, FIRST WORD ADDR OF BUFFER INVOLVED 
  28. *        (A1)+2=ADDR OF FLAG PARAM, DETERMINES IF BUFFER NEED RESET 
  29. * 
  30. *     5. EXIT PARAMETERS. 
  31. *        NONE.
  32. * 
  33. *     6. COMMON DECKS CALLED. 
  34. *          CYBERDEFS  FREETAB  INPARU  MACDEF 
  35. * 
  36. *     7. ROUTINES CALLED. 
  37. *        MSEIZE    DELINK FREE BUFFER FROM CHAIN
  38. *        XTRACE    DEBUG TRACE
  39. * 
  40. *     8. DAYFILE MESSAGES.
  41. *        NONE.
  42. *#
  43. *ENDIF
  44. *CALL MACDEF
  45. *CALL CYBERDEFS 
  46. *CALL INPARU
  47. *CALL FREETAB 
  48.  
  49.  
  50.  MACQ     SUBR   =           ENTRY/EXIT 
  51.  
  52.           IFEQ   DEBUG,1,6
  53.           SX6    A1 
  54.           SA6    TEMP 
  55.           SX1    XMACQ
  56.           RJ     XTRACE 
  57.           SA1    TEMP 
  58.           SA1    X1 
  59.  
  60.           SA0    A1          (A0)=PARM ADDR 
  61.           SA1    X1          (X1)=RQSIZE
  62.           SA5    A0+1 
  63.           SA5    X5 
  64.           SB4    X5          (B4)=(BUFWA) 
  65.  
  66. *         CALL MGETS TO DELINK FREE BUFFER
  67.  
  68.           RJ     MSEIZE 
  69.           EQ     MACQX       EXIT 
  70.  XMACQ    DATA   L* MACQ* 
  71.  TEMP     BSS    1
  72.  
  73.           END