Table of Contents

CONSUB

Table Of Contents

  • [00007] CONDENSE ERROR SUBROUTINES

Source Code

CONSUB.txt
  1. CONSUB
  2. * /--- FILE TYPE = E
  3. * /--- BLOCK COND ERROR 00 000 81/07/28 03.34
  4. *
  5. *
  6. IDENT CONDERR
  7. TITLE CONDENSE ERROR SUBROUTINES
  8. *
  9. * (A5,B5,X5,A7,B7,X7) ARE 'A'L'W'A'Y'S PRESERVED
  10. *
  11. * GET COMMON SYMBOL TABLE
  12. *
  13. CST
  14. *
  15. ENTRY ERR,ERR2,ERRB
  16. ENTRY ERRORC
  17. ENTRY ERRNOZ
  18. *
  19. EXT ECSPRTY
  20. EXT COMNAMS,FINISC,PPTERRC
  21. EXT UNITNAM,UNITPNM,ENTRYNM,STPSNAM
  22. EXT COMCONT,NXTC,NXTLINE,GETLINE,COMINFO
  23. EXT RJERR,RJERNOZ,RJERR2,RJERRB
  24. *
  25. *CALL MACROS
  26. *
  27. * -ERR- AND -RJERR- (STANDARD ROUTINES)
  28. *
  29. * 'ON ENTRY, B1 HOLDS THE ERROR NUMBER (VALUE < 2048)
  30. *
  31. * -ERRNOZ- SAME AS -ERR-, BUT DOES NOT SET ZCONDOK
  32. *
  33. ERRNOZ RJ RJERNOZ
  34. EQ ERROUT
  35.  
  36. ERR2 RJ RJERR2
  37. EQ ERROUT
  38. *
  39. ERRB RJ RJERRB
  40. EQ ERROUT
  41. *
  42. ERRORC SB1 1 ***BAD LINE*** ERRORS
  43. ERR RJ RJERR
  44. * ABORT REMAINDER OF PRESENT LINE
  45. ERROUT SA1 TSCOMFG CONDEN COMMAND STAT FLAG
  46. PL X1,ERROUTA JUMP IF FLAG OFF
  47. SX6 1 SET FLAG OFF TEMP
  48. SA6 TSCOMFG DONT INCLUDE IN STATISTICS
  49. ERROUTA SA2 COMMAND BAD COMMAND NAME
  50. *
  51. SA1 UNITNAM CHECK FOR -UNIT-
  52. BX1 X1-X2
  53. ZR X1,SKPUNIT IF UNIT, SKIP THE TEXT
  54. *
  55. SA1 UNITPNM CHECK -UNITOP-
  56. BX1 X1-X2
  57. ZR X1,SKPUNIT IF UNITOP, SKIP THE TEXT
  58. *
  59. SA1 ENTRYNM CHECK -ENTRY-
  60. BX1 X1-X2
  61. NZ X1,UNIT2 IF NOT ENTRY, BRANCH AROUND
  62. *
  63. SKPUNIT RJ GETLINE
  64. SA3 COMMAND GET COMMAND
  65. *
  66. SA2 UNITNAM GET -UNIT- COMMAND
  67. BX2 X2-X3 CHECK CURRENT COMMAND
  68. ZR X2,NXTC RETURN TO PROCESSING IF -UNIT-
  69. *
  70. SA2 UNITPNM GET -UNITOP- COMMAND
  71. BX2 X2-X3 CHECK CURRENT COMMAND
  72. ZR X2,NXTC IF -UNITOP- THEN EXIT
  73. *
  74. SA2 STPSNAM
  75. BX2 X2-X3
  76. ZR X2,NXTC IF -CSTOP*-, EXIT
  77. *
  78. EQ SKPUNIT
  79. *
  80. *
  81. * /--- BLOCK COND ERROR 00 000 81/07/28 00.07
  82. *
  83. *
  84. *
  85. ADR MICRO 1,,/A0/ A0 = START OF HASH TABLE
  86. COM MICRO 1,,/COMNAMS/ MICRO USED IN FIND MACRO
  87. UNIT2 SA0 COMINFO COMINFO IS HASH TABLE
  88. LIST G
  89. * HASH THE COMMAND NAME
  90. HASH X2,X0,A1 X2 = CURRENT COMMAND (HOLERITH)
  91. * FIND COMMAND IN NAME TABLE
  92. FIND X2,X0,ERROUTB,B1,X3,B2,B3,B4,A1
  93. LIST *
  94. EQ ERROUTC NAME NOT FOUND
  95. ERROUTB LX3 17 CONTINUED COMMAND FLAG
  96. PL X3,NXTLINE ZERO MEANS SINGLE LINE COMMAND
  97. ERROUTC RJ GETLINE ELSE CONTINUE COMMAND
  98. SA2 COMMAND THEN SKIP TO NEXT REAL COMMAND
  99. SA3 COMCONT
  100. BX4 X2-X3 SEE IF BLANK COMMAND
  101. ZR X4,ERROUTC
  102. EQ NXTC
  103. *
  104. ENTRY HASHCD
  105. HASHCD DATA 20002525000100010001B HASH FOR CONDENSOR NAME TABLE
  106. * /--- BLOCK END 00 000 81/07/28 00.07
  107. *
  108. END