Table of Contents

EXTINFO

Table Of Contents

Source Code

EXTINFO.txt 
  1. *DECK EXTINFO 
  2.       PROC TSBINFO ( TSBSIZE , TSBADDR , TSBN );
  3.       BEGIN # TSBINFO # 
  4. *IF DEF,IMS 
  5.  #
  6. **
  7. * 
  8. *     1. PROC NAME           AUTHOR              DATE 
  9. *        TSBINFO             M. D. PICKARD       76/11/30 
  10. * 
  11. *     2. FUNCTIONAL DESCRIPTION 
  12. *        TSBINFO WILL SUPPLY THE CALLER WITH THE CURRENT FWA AND SIZE 
  13. *        OF AN ASSIGNED TSB.
  14. * 
  15. *     3. METHOD USED
  16. *        IF THE TSBN IS VALID THE FWA AND SIZE OF THE USER AREA ARE 
  17. *        PUT IN THE CALLER"S PARAMETERS AND THE TSB IS SET NOT
  18. *        MOVEABLE.
  19. * 
  20. *     4.  ENTRY PARAMETERS
  21. *        TSBN (FORMAL)       TSB NUMBER OF AN ASSIGNED TSB
  22. * 
  23. *     5. EXIT PARAMETERS
  24. *        TSBADDR             FWA OF USER AREA FOR TSB ASSOCIATED TO 
  25. *        TSBSIZE             SIZE OF USER AREA FOR TSB ASSOCIATED TO
  26. *                            TSBN 
  27. *                            TSBN 
  28. * 
  29. *     6. COMDECKS CALLED
  30. *        TSBBASE             TSB MANAGER BASED ARRAY DEFINITIONS
  31. *        TSBDATA             TSB MANAGER DATA AREA DEFINITIONS
  32. *        TSBDEFS             TSB MANAGER SYMPL DEFS 
  33. *     7. ROUTINES CALLED
  34. *        NONE.
  35. * 
  36. *     8. DAYFILE MESSAGES 
  37. *        NONE.
  38. * 
  39.  #
  40. *ENDIF
  41.       CONTROL NOLIST;        # STOPS LIST TSBDEFS,TSBDATA,TSBBASE   # 
  42. *CALL CYBERDEFS 
  43. *CALL TSBDEFS 
  44. *CALL TSBBASE 
  45. *CALL TSBDATA 
  46.       CONTROL LIST; 
  47.       XREF PROC ABORT;
  48.       ITEM
  49.            TSBSIZE U,        # SIZE OF TSB USER AREA RETURNED          #
  50.            TSBADDR U,        # ADDRESS OF TSB USER AREA RETURNED       #
  51.            TSBN U;           # TSB NUMBER THAT INFO. IS WANTED FOR     #
  52.       IF ( NOT TBUSY[TSBN] ) OR ( TSBN GQ LENGTH[0] ) OR
  53.          ( TSBN LQ 0 )
  54.       THEN                   # TSBN IS ILLEGAL                         #
  55.         BEGIN 
  56.         $BEGIN
  57.         ABORT;
  58.         $END
  59.         TSBADDR = -1;        # SET FOR REJECT                          #
  60.         TSBSIZE = 0;         # SET FOR REJECT                          #
  61.         END 
  62.       ELSE                   # EVERYTHING IS GO                        #
  63.         BEGIN 
  64.         P<BTSBHDR> = TTSBFWA[TSBN]; 
  65.         BNOTMOV[0] = TRUE;   # SET NOT MOVEABLE                        #
  66.         TSBADDR = TTSBFWA[TSBN] + TSBHDRL; # SET USER AREA FWA         #
  67.         TSBSIZE = BTSBL[0] - TSBHDRL; # SET USER AREA SIZE             #
  68.         END 
  69.       RETURN; 
  70.       END TERM # TSBINFO #