User Tools

Site Tools


cdc:nos2.source:nam5871:extinfo

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 #
cdc/nos2.source/nam5871/extinfo.txt ยท Last modified: 2023/08/05 17:22 by Site Administrator