Table of Contents

INSCDR

Table Of Contents

  • [00006] PROC INSCDR1)
  • [00049] PROC XTRACE

Source Code

INSCDR.txt 
  1. *DECK INSCDR
  2. USETEXT NIPDEF
  3. USETEXT ACNB
  4. USETEXT ACB 
  5. USETEXT AT
  6.  PROC INSCDR((ACNBFWA));               # ADD ACNB TO CDR               #
  7.  STARTIMS ; 
  8.  #
  9. *1DC  INSALR
  10. *     1. PROC NAME           AUTHOR              DATE 
  11. *        INSCDR              E. GEE              85/04/02 
  12. * 
  13. *     2. FUNCTIONAL DESCRIPTION 
  14. *        INSERT ACNB INTO THE CONNECTION DATA RING, IF ONE EXISTS.
  15. *        IF NONE EXIST, CREATE ONE WITH THIS ACNB.
  16. * 
  17. *     3. METHOD 
  18. *        IF NO CONNECTION DATA RING EXISTS, 
  19. *          UPDATE ACB TO POINT TO THIS ACNB.
  20. *        ELSE (CONNECTION DATA RING ALREADY EXISTS),
  21. *          ADD THIS ACNB TO CONNECTION DATA RING.  IT IS LINKED IN
  22. *            FRONT OF THE ACNB POINTED TO BY THE ACB. 
  23. * 
  24. *     4. ENTRY PARAMETERS 
  25. *        ACNBFWA   - FIRST WORD ADDRESS OF THIS ACNB. 
  26. * 
  27. *     5. EXIT PARAMETERS
  28. *        NONE 
  29. * 
  30. *     6. COMDECKS CALLED
  31. *        ACNB 
  32. *        ACB
  33. *        AT 
  34. *        NIPDEF 
  35. * 
  36. *     7. ROUTINES CALLED
  37. *        XTRACE - TRACE PROCEDURE CALL
  38. * 
  39. *     8. DAYFILE MESSAGES AND OTHER IMPORTANT INFORMATION 
  40. * 
  41.  #
  42. STOPIMS;
  43.  
  44. # 
  45.       EXTERNAL REFERENCES 
  46. # 
  47.       XREF
  48.         BEGIN 
  49.         PROC XTRACE;
  50.         END 
  51. # 
  52.       FORMAL PARAMETERS 
  53. # 
  54.       ITEM ACNBFWA    U;               # FWA OF ACNB TO BE ADDED TO CDR#
  55. # 
  56.       LOCAL VARIABLES 
  57. # 
  58.       ITEM CDRBP;                      # CDR BACK POINTER              #
  59.       CONTROL EJECT;
  60.  
  61.       BEGIN                            # BEGIN INSCDR                  #
  62.  
  63.       CONTROL IFEQ DEBUG,1; 
  64.       XTRACE("INCDR");
  65.       CONTROL FI; 
  66.  
  67.       P<ACNB> = ACNBFWA;
  68.       P<ACB> = ATACBA[ACNBAN[0]];      # FWA OF ACB                    #
  69.       IF ACBCDRP[0] NQ 0
  70.       THEN                             # CONNECTION DATA RING EXISTS   #
  71.         BEGIN 
  72.         P<ACNB> = ACBCDRP[0];          # FWA OF ACNB                   #
  73.         CDRBP = ACNBCDRBP[0];          # ADDR OF PREV ACNB IN CDR      #
  74.         ACNBCDRBP[0] = ACNBFWA;        # ADDR OF NEW LAST ACNB IN CDR  #
  75.         P<ACNB> = ACNBFWA;
  76.         ACNBCDRBP[0] = CDRBP;          # ADDR OF NEXT TO LAST ACNB     #
  77.         ACNBCDRFP[0] = ACBCDRP[0];     # ADDR OF FIRST ACNB IN CDR     #
  78.         P<ACNB> = CDRBP;               # NEXT TO LAST ACNB IN CDR      #
  79.         ACNBCDRFP[0] = ACNBFWA;        # ADDR OF NEW LAST ACNB IN CDR  #
  80.         END 
  81.       ELSE                             # NO CONNECTION DATA RING EXISTS#
  82.         BEGIN 
  83.         ACNBCDRFP[0] = ACNBFWA; 
  84.         ACNBCDRBP[0] = ACNBFWA; 
  85.         ACBCDRP[0] = ACNBFWA; 
  86.         END 
  87.  
  88.       RETURN; 
  89.  
  90.       END                              # END INSCDR                    #
  91.       TERM
1)
ACNBFWA