Table of Contents

1PP

Table Of Contents

  • [00008] 1PP - PERIODIC FUNCTION PROCESSOR.
  • [00010] PERIODIC FUNCTION PROCESSOR.
  • [00099] DFLIM - CONSTRUCT DAYFILE SIZE THRESHOLD PROCESSING ENTRY FOR
  • [00133] JOBSTAT - DEFINE JOB STATE ATTRIBUTES.
  • [00173] DIRECT CELL ASSIGNMENTS.
  • [00195] PPF - MAIN PROGRAM.
  • [00230] PRIMARY SUBROUTINES.
  • [00232] CFS - CHECK FILE SIZES.
  • [00315] TDFP - DAYFILE PROCESSING PARAMETERS.
  • [00339] CMS - CHECK MASS STORAGE.
  • [00596] COR - CHECK IF OPERATOR ACTION IS REQUIRED.
  • [00749] OSS - OPTICAL STORAGE SCANNER.
  • [00798] PCA - PROCESS CONTROL POINT AREAS.
  • [01014] POF - PROCESS OVERFLOW FLAGS.
  • [01083] SEJ - SCAN EJT.
  • [01168] SECONDARY SUBROUTINES.
  • [01170] CAL - CHECK ACCESS LEVEL LIMITS.
  • [01235] CCA - COMPUTE CPA/PCPA ADDRESS.
  • [01254] CCS - CHECK CM SLICE.
  • [01272] CPP - CALL PP.
  • [01323] CPS - CHECK CONTROL POINT SLICE.
  • [01341] CSC - CHECK SWEEP CYCLING.
  • [01390] CTF - CHECK TRACK FLAWED.
  • [01424] CWR - CHECK WAIT RESPONSE INDICATORS.
  • [01474] EJA - CALCULATE EJT ENTRY ADDRESS.
  • [01489] IRR - ISSUE ROLLOUT REQUEST.
  • [01512] IUT - ISSUE *UTEM* MONITOR FUNCTION.
  • [01559] OAE - PROCESS OPERATOR ACTION EVENTS.
  • [01605] PIS - PROCESS INITIAL SLICE.
  • [01642] PSL - PROCESS SERVICE LIMITS.
  • [01668] PTE - PROCESS TIMED/EVENT ROLLOUT JOBS.
  • [01828] TJST - TABLE OF JOB STATE ATTRIBUTES.
  • [01860] RTE - READ TABLE OF EVENTS.
  • [01903] SME - SCAN MST ERROR COUNTS.
  • [01994] SRS - SET ROLLOUT STATUS.
  • [02052] SSA - SET STATISTICAL AREA ADDRESS.
  • [02085] TEVT - POSTED EVENTS.
  • [02095] TOVF - ACCUMULATOR OVERFLOW FLAGS.
  • [02109] INITIALIZATION.
  • [02111] PRS - PRESET.
  • [02200] TEPB - EJT/CP SCHEDULING PARAMETERS.
  • [02215] TJAM - SERVICE CLASS RESOURCE CONSTRAINTS.

Source Code

1PP.txt
  1. IDENT 1PP,PPF
  2. PERIPH
  3. BASE MIXED
  4. LIST F
  5. SST
  6. *COMMENT 1PP - PERIODIC FUNCTION PROCESSOR.
  7. COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
  8. TITLE 1PP - PERIODIC FUNCTION PROCESSOR.
  9. SPACE 4,10
  10. *** 1PP - PERIODIC FUNCTION PROCESSOR.
  11. * R. M. DANISCH. 88/06/27.
  12. SPACE 4,10
  13. *** *1PP* IS RESPONSIBLE FOR PROCESSING A VARIETY OF
  14. * FUNCTIONS THAT ARE PERIODIC IN NATURE. FUNCTIONS PROCESSED
  15. * INCLUDE THE FOLLOWING -
  16. *
  17. * - TIMED/EVENT ROLLOUT PROCESSING.
  18. *
  19. * - CHECK FOR EXPIRED CM/CPU TIME SLICES.
  20. *
  21. * - CHECK WAIT RESPONSE/CONNECTION INDICATORS.
  22. *
  23. * - PROCESS ACCUMULATOR OVERFLOW FLAGS.
  24. *
  25. * - SCAN OPTICAL DISK EQUIPMENT AND UPDATE THE OPTICAL
  26. * STORAGE STATUS TABLE *OST*.
  27. *
  28. * - SCAN OPTICAL DISK REQUESTS FOR MOUNTED DISKS AND
  29. * ORPHAN REQUESTS.
  30. *
  31. * - CHECK FOR MASS STORAGE CHECKPOINT AND LABEL
  32. * INITIALIZATION REQUESTS.
  33. *
  34. * - INITIATE SWEEP CYCLE PROCESSING.
  35. *
  36. * - INITIATE MASS STORAGE CONFIDENCE TESTING.
  37. SPACE 4,10
  38. *** CALL.
  39. *
  40. *
  41. *T 18/ *1PP*,6/ CP,36/
  42. * CP SYSTEM CONTROL POINT NUMBER.
  43. SPACE 4,10
  44. *** ERROR LOG MESSAGES.
  45. *
  46. *
  47. * *XXYYY, RECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
  48. * OF RECOVERED ERRORS ON DEVICE TYPE XX WITH EST ORDINAL
  49. * YYY IS GREATER THAN THE THRESHOLD DEFINED FOR THAT
  50. * DEVICE TYPE.
  51. *
  52. * *XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.* = THE NUMBER
  53. * OF UNRECOVERED ERRORS ON DEVICE TYPE XX WITH EST
  54. * ORDINAL YYY IS GREATER THAN THE THRESHOLD DEFINED FOR
  55. * THAT DEVICE TYPE.
  56. SPACE 4,10
  57. ** ROUTINES USED.
  58. *
  59. *
  60. * 0AU - PROCESS ACCUMULATOR OVERFLOW FLAGS.
  61. SPACE 4,10
  62. ** PROGRAMS CALLED.
  63. *
  64. *
  65. * CMS - MASS STORAGE LABEL INITIALIZATION.
  66. * 1CK - MASS STORAGE CHECKPOINT.
  67. * 1MV - MASS STORAGE VERIFICATION.
  68. SPACE 4,10
  69. ** COMMON DECKS.
  70.  
  71.  
  72. *CALL COMPMAC
  73. QUAL CPS
  74. *CALL COMSCPS
  75. QUAL *
  76. QUAL DSL
  77. *CALL COMSDSL
  78. QUAL *
  79. *CALL COMSDST
  80. *CALL COMSEJT
  81. *CALL COMSEVT
  82. *CALL COMSJIO
  83. *CALL COMSMSC
  84. *CALL COMSMSP
  85. *CALL COMSMST
  86. *CALL COMSPIM
  87. *CALL COMSSCD
  88. *CALL COMSSCP
  89. *CALL COMSSSD
  90. *CALL COMSZOL
  91. QUAL 1DS
  92. *CALL COMS1DS
  93. QUAL *
  94. *CALL COMS1MV
  95. MACROS SPACE 4,10
  96. ** MACRO DEFINITIONS.
  97.  
  98.  
  99. ** DFLIM - CONSTRUCT DAYFILE SIZE THRESHOLD PROCESSING ENTRY FOR
  100. * *TDFP* TABLE.
  101. *
  102. * DFLIM A,B,C,D,E
  103. ,
  104. * A TABLE NAME IF PRESENT.
  105. * B DAYFILE IDENTIFIER/INDEX.
  106. * C CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER
  107. * POINTER BLOCK RELATIVE TO FWA OF DAYFILE BUFFER
  108. * POINTER BLOCKS.
  109. * D THRESHOLD SIZE IN PRUS.
  110. * E EVENT TO ISSUE IF THRESHOLD EXCEEDED.
  111.  
  112.  
  113. PURGMAC DFLIM
  114.  
  115. MACRO DFLIM,A,B,C,D,E
  116. MACREF DFLIM
  117. .X IFC NE,$A$$
  118. A BSS 0
  119. .1 SET A
  120. .X ELSE
  121. ORG .1+4*B
  122. .Y IFC NE,$C$$
  123. LOC B
  124. CON C
  125. VFD 24/D
  126. CON E
  127. .Y ELSE
  128. VFD 48/0
  129. .Y ENDIF
  130. .X ENDIF
  131. ENDM
  132. JOBSTAT SPACE 4,15
  133. ** JOBSTAT - DEFINE JOB STATE ATTRIBUTES.
  134. *
  135. * JOBSTAT NAME,STATUS,SS,ES,FR,TE,PI
  136. * NAME TABLE NAME IF PRESENT.
  137. * STATUS JOB STATUS.
  138. * SS NON-BLANK IF SCHEDULABLE JOB STATUS.
  139. * ES NON-BLANK IF ERROR FLAG SET CAUSES JOB
  140. * STATUS TO BECOME SCHEDULABLE.
  141. * FR NON-BLANK IF JOB MAY BE FORCED ROLLED IN.
  142. * TE NON-BLANK IF TIMED/EVENT TYPE JOB STATUS.
  143. * PI NON-BLANK IF PRE-INITIAL JOB STEP TYPE
  144. * STATUS.
  145. * JOBSTAT A,B,C,D,E,F,G
  146. *
  147. * NOTE - ANY CHANGE TO THIS MACRO MUST BE ACCOMPANIED BY A
  148. * CORRESPONDING CHANGE TO THE *JOBSTAT* MACRO DEFINED
  149. * IN *1SJ*.
  150.  
  151.  
  152. PURGMAC JOBSTAT
  153.  
  154. MACRO JOBSTAT,NAME,STATUS,SS,ES,FR,TE,PI
  155. MACREF JOBSTAT
  156. .1 IFC NE,$NAME$$
  157. NAME INDEX
  158. .1 ELSE
  159. .V SET 0
  160. IFC NE,$SS$$,1
  161. .V SET .V+4000
  162. IFC NE,$ES$$,1
  163. .V SET .V+2000
  164. IFC NE,$FR$$,1
  165. .V SET .V+1000
  166. IFC NE,$TE$$,1
  167. .V SET .V+400
  168. IFC NE,$PI$$,1
  169. .V SET .V+200
  170. INDEX STATUS,.V
  171. .1 ENDIF
  172. ENDM
  173. TITLE DIRECT CELL ASSIGNMENTS.
  174. **** DIRECT CELL ASSIGNMENTS.
  175.  
  176.  
  177. T8 EQU 16 SCRATCH
  178. T9 EQU 17 SCRATCH
  179. AA EQU 20 - 24 SCRATCH (5 CELLS)
  180. TM EQU 25 - 26 SECONDS PORTION OF *RTCL* (2 CELLS)
  181. BB EQU 27 - 33 SCRATCH (5 CELLS)
  182. EO EQU 34 EJT ORDINAL
  183. CF EQU 35 SCHEDULER CONTROL FLAGS
  184. PN EQU 36 NUMBER OF MCT ENTRIES
  185. * EQU 37 - 47 UNUSED
  186. EJ EQU 50 - 54 EJT BUFFER (5 CELLS)
  187. SC EQU 57 SERVICE CLASS
  188. * EQU 60 - 65 UNUSED
  189. NC EQU 66 NUMBER OF CONTROL POINTS
  190. TP EQU 67 SCRATCH
  191.  
  192.  
  193. ****
  194. PPF TITLE MAIN PROGRAM.
  195. ** PPF - MAIN PROGRAM.
  196.  
  197.  
  198. ORG PPFW
  199.  
  200. PPF BSS 0
  201. RJM PRS PRESET
  202. RJM PCA PROCESS CONTROL POINT AREAS
  203. RJM CFS CHECK FILE SIZES
  204. RJM SEJ SCAN EJT
  205. RJM OSS SCAN OPTICAL STORAGE DEVICES AND REQUESTS
  206. RJM CMS CHECK MASS STORAGE DEVICES
  207.  
  208. * PROCESS OVERFLOW FLAGS. THIS PROCESSING MUST BE PERFORMED
  209. * AFTER ROUTINE *SEJ* COMPLETES SO THAT *0AU* MAY OVERLAY THE
  210. * *TJAM* AND *TEPB* TABLES. ROUTINE *PSL* (CALLED BY *SEJ*)
  211. * USES THE *TJAM* TABLE AND ROUTINE *SRS* (CALLED BY *PSL*)
  212. * USES THE *TEPB* TABLE. *POF* MUST BE CALLED AFTER *PCA*
  213. * SINCE THE *TOVF* TABLE IS BUILT BY *PCA* AND USED BY *POF*.
  214. * ALSO, *PCA* USES THE *TEPB* TABLE.
  215.  
  216. RJM POF PROCESS OVERFLOW FLAGS
  217. RJM COR CHECK FOR OPERATOR ACTION REQUIRED
  218. LDD IA READ PP INPUT REGISTER
  219. CRD CM
  220. LDD MA PLACE PP CALL IN MESSAGE BUFFER
  221. CWD CM
  222. LDK ZERL
  223. CRD CM
  224. LDK /CPS/PTMF SET SUBFUNCTION
  225. STD CM+1
  226. LDC 1000D SET RECALL TIME TO 1 SECOND
  227. STD CM+4
  228. MONITOR RECM DROP PP
  229. LJM PPR ENTER IDLE LOOP
  230. TITLE PRIMARY SUBROUTINES.
  231. CFS SPACE 4,10
  232. ** CFS - CHECK FILE SIZES.
  233. *
  234. * CHECK FOR FILE SIZE LIMIT EXCEEDED FOR SYSTEM DAYFILE, ERROR
  235. * LOG, ACCOUNT FILE AND BINARY MAINTENANCE LOG.
  236. *
  237. * USES T2, T3, T5 - CM+4, AA - AA+4.
  238. *
  239. * CALLS SEI.
  240. *
  241. * MACROS MONITOR.
  242.  
  243.  
  244. CFSA MAX MSDY,ACDY,ELDY,MLDY
  245.  
  246. CFS SUBR ENTRY/EXIT
  247. LDN DFPP GET FWA OF BUFFER POINTER WORDS
  248. CRD AA
  249. LDN CFSA*TDFPE+TDFPE INITIALIZE INDEX
  250. STD AA+2
  251. CFS1 LCN TDFPE DECREMENT INDEX
  252. RAD AA+2
  253. MJN CFSX IF ALL DAYFILES HAVE BEEN PROCESSED
  254. LDM TDFP,AA+2
  255. ZJN CFS1 IF THIS DAYFILE SHOULD NOT BE PROCESSED
  256. SHN 6
  257. ADD AA
  258. SHN 14
  259. ADD AA+1
  260. CRD T5
  261. SBN 2 GET THRESHOLD INCREMENT
  262. CRD CM
  263. LDD CM+2
  264. LPN 7
  265. STD AA+4
  266. ADN 1
  267. STM CFSB+4
  268. LDD T5
  269. ZJN CFS1 IF ZERO LENGTH DAYFILE
  270. RJM SEI SEARCH FOR EOI
  271. CFS2 LDM TDFP+2,AA+2
  272. RAD T3
  273. SHN -14
  274. ADM TDFP+1,AA+2
  275. RAD T2
  276. SHN -14
  277. RAD T3
  278. LDD T2
  279. SHN 0-13
  280. CFS3 NJP CFS1 IF SIZE NOT EXCEEDED
  281. SOD AA+4
  282. PJN CFS2 IF NOT END OF THRESHOLD INCREMENT
  283.  
  284. * ISSUE *EATM* TO POST OPERATOR ACTION EVENT.
  285.  
  286. LDN 0 SELECT *EATM* ENTER EVENT OPTION
  287. STD CM+1
  288. STD CM+3 STORE EVENT DESCRIPTOR
  289. LDM TDFP+3,AA+2
  290. STD CM+4
  291. MONITOR EATM
  292. LDM CFSB+4
  293. LMN 10
  294. ZJN CFS3 IF MAXIMUM THRESHOLD INCREMENT
  295. LDD AA SET NEW THRESHOLD INCREMENT
  296. SHN 14
  297. ADD AA+1
  298. ADM TDFP,AA+2
  299. SBN 2
  300. STD CM+4
  301. SHN -14
  302. STD CM+3
  303. LDN 1
  304. STD CM+1
  305. LDD MA
  306. CWM CFSB,CM+1
  307. MONITOR UTEM
  308. LJM CFS1 LOOP FOR NEXT DAYFILE
  309.  
  310.  
  311. * *UTEM* PARAMETERS TO SET DAYFILE THRESHOLD INCREMENT.
  312.  
  313. CFSB VFD 6/0,6/3,6/24D,42/0
  314. TDFP SPACE 4,10
  315. ** TDFP - DAYFILE PROCESSING PARAMETERS.
  316. * ENTRY = 4 WORDS.
  317. * INDEXED BY DAYFILE TYPE.
  318. *
  319. *T 12/ WO,24/ TH,12/ EV
  320. * WO CM WORD OFFSET OF 3RD WORD OF DAYFILE BUFFER POINTER
  321. * BLOCK RELATIVE TO FWA OF DAYFILE BUFFER POINTER
  322. * BLOCKS.
  323. * TH THRESHOLD SIZE IN PRUS.
  324. * EV EVENT TO ISSUE IF THRESHOLD EXCEEDED.
  325.  
  326.  
  327. TDFP DFLIM
  328. DFLIM MSDY,(3*MSDY+2),-DFDL,DFDE
  329. DFLIM ACDY,(3*ACDY+2),-AFDL,ALDE
  330. DFLIM ELDY,(3*ELDY+2),-ELDL,ELDE
  331. DFLIM MLDY,(3*MLDY+2),-BLTL,BMLE
  332.  
  333. LOC *O
  334.  
  335. .1 SET *-TDFP
  336. .2 SET CFSA+1
  337. TDFPE EQU .1/.2 *TDFP* ENTRY LENGTH
  338. CMS SPACE 4,15
  339. ** CMS - CHECK MASS STORAGE.
  340. *
  341. * THIS ROUTINE SCANS THE EST LOOKING FOR THE FOLLOWING.
  342. * 1. CHECKPOINT REQUESTS. *1CK* CALLED.
  343. * 2. INITIALIZATION/REDEFINITION REQUESTS. *CMS* CALLED.
  344. * 3. SUSPECT DEVICES OR FLAWED TRACKS. *1MV* CALLED.
  345. * 4. DEVICES WHOSE RESTRICT NEW ACTIVITY THRESHOLD
  346. * DOES NOT MATCH THE RESTRICT NEW ACTIVITY BIT FOR THE
  347. * DEVICE. THE RESTRICT NEW ACTIVITY BIT IS ADJUSTED
  348. * TO REFLECT THE THRESHOLD BEING EXCEEDED OR NOT.
  349. * 5. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
  350. * GREATER THAN THE TRACKS AVAILABLE. IF ANY SUCH
  351. * DEVICES ARE FOUND AND THE OPERATOR NOTIFICATION
  352. * EVENT HAS NOT BEEN ISSUED (AS NOTED IN *OPRL*), THEN
  353. * ISSUE THE OPERATOR NOTIFICATION EVENT (*TKSL*).
  354. * 6. DEVICES WHOSE OPERATOR NOTIFICATION THRESHOLD IS
  355. * LESS THAN THE TRACKS AVAILABLE BY AT LEAST 5. IF
  356. * ALL DEVICES HAVE AVAILABLE TRACKS AT LEAST 5 GREATER
  357. * THAN THE OPERATOR NOTIFICATION THRESHOLD AND THE
  358. * OPERATOR NOTIFICATION FLAG FOR TRACKS LOW IS SET IN
  359. * *OPRL*, THEN CLEAR THE TRACKS LOW NOTIFICATION FLAG.
  360. *
  361. * EXIT IF *CMS* OR *1CK* MUST BE CALLED BUT NO PP IS
  362. * AVAILABLE, THE TIMERS IN *RDSL* WILL REMAIN UNCHANGED
  363. * SO THE SAME PROCESSING WILL OCCUR IN THE NEXT
  364. * SCHEDULING CYCLE.
  365. *
  366. * USES T8, T9, AA - AA+4, BB - BB+4, CM - CM+4, EJ - EJ+4,
  367. * TM - TM+4, T0 - T7.
  368. *
  369. * CALLS AST, CPP, CSC, CTF, SME.
  370. *
  371. * MACROS MONITOR, SFA, SMSTF.
  372.  
  373.  
  374. CMS13 LDN SSTL
  375. CRD EJ
  376. ADN RDSL-SSTL
  377. CRD BB
  378. ADN OPRL-RDSL
  379. CRD AA
  380. SOD BB+1
  381. PJN CMS14 IF NOT TIME FOR *1CK* CALL
  382. LDN 15D RESET *1CK* TIMER
  383. STD BB+1
  384. LDC 0
  385. CMSA EQU *-1
  386. ZJN CMS14 IF NO *1CK* CALL REQUIRED
  387. LDN C1CK CALL *1CK*
  388. RJM CPP
  389. NJN CMS14 IF *1CK* ASSIGNED
  390. STD BB+1 RESET TIMER TO TRY ON NEXT CYCLE
  391.  
  392. * CHECK FOR *CMS* CALL REQUIRED.
  393.  
  394. CMS14 SOD BB DECREMENT *CMS* TIMER
  395. PJN CMS15 IF NOT TIME FOR *CMS* LABEL CHECK
  396. LDN 60D RESET LABEL CHECK TIMER
  397. STD BB
  398. LDD EJ+1
  399. SHN 21-6
  400. PJN CMS16 IF LABEL CHECK NOT DISABLED
  401. CMS15 LDC 0 CHECK IF *CMS* CALL REQUIRED
  402. CMSB EQU *-1
  403. ZJN CMS17 IF NO *CMS* CALL REQUIRED
  404. CMS16 LDC MSSI+FEAF*10000
  405. RJM AST GET SSCT ENTRY FOR *MSM* SUBSYSTEM
  406. NJN CMS17 IF *CMS* IS ALREADY ACTIVE
  407. LDN CCMS CALL *CMS*
  408. RJM CPP
  409. NJN CMS17 IF PP AVAILABLE
  410. STD BB RESET TIMER TO TRY ON NEXT CYCLE
  411. CMS17 LDC RDSL UPDATE *1CK*/*CMS* TIMERS
  412. CWD BB
  413.  
  414. * CHECK FOR OPERATOR NOTIFICATION OF LOW SPACE.
  415.  
  416. LDC 0 OPERATOR NOTIFICATION REQUIRED FLAG
  417. CMSC EQU *-1
  418. ZJN CMS18 IF NO OPERATOR NOTIFICATION REQUIRED
  419. LDD AA+3
  420. SHN 21-LSPE+1+14
  421. MJN CMSX IF NOTIFICATION ALREADY SET
  422. LDN LSPE SET OPERATOR NOTIFICATION EVENT
  423. STD CM+4
  424. LDN 0 ENTER EVENT
  425. STD CM+3
  426. STD CM+1
  427. MONITOR EATM
  428. UJN CMSX RETURN
  429.  
  430. * CHECK FOR CLEARING OF LOW SPACE NOTIFICATION.
  431.  
  432. CMS18 LDC 0
  433. CMSD EQU *-1
  434. NJN CMSX IF TO AVOID CLEARING NOTIFICATION
  435. LDD AA+3
  436. SHN 21-LSPE+1+14
  437. PJN CMSX IF NOTIFICATION NOT SET
  438. LDK OPRL SET BIT IN *OPRL*
  439. STD CM+4
  440. LDN 0
  441. STD CM+3
  442. STD CM+2
  443. LDN 1
  444. STD CM+1
  445. LDD MA
  446. CWM CMSE,ON
  447. MONITOR UTEM
  448.  
  449. CMS SUBR ENTRY/EXIT
  450. LDN ESTP
  451. CRD AA
  452. ADK RTCL-ESTP
  453. CRD TM
  454. LDN NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH
  455. STD T8
  456. LDD AA+3
  457. STD T9
  458.  
  459. * SCAN EST FOR INITIALIZE AND CHECKPOINT REQUESTS.
  460.  
  461. CMS1 AOD T8
  462. LMD T9
  463. NJN CMS2 IF EST SEARCH NOT COMPLETE
  464. LJM CMS13 CALL *1CK/CMS*
  465.  
  466. CMS2 SFA EST,T8 READ EST ENTRY
  467. ADK EQDE
  468. CRD EJ
  469. LDD EJ CHECK DEVICE TYPE
  470. SHN 21-13
  471. PJN CMS1 IF NOT MASS STORAGE DEVICE
  472. SHN 21-1-21+13
  473. MJN CMS1 IF DEVICE IS *OFF* OR *DOWN*
  474. LDD EJ+4
  475. SHN 3
  476. ADK TDGL READ TRACKS AVAILABLE
  477. CRD T0
  478. ADN ACGL-TDGL READ REDEFINITION REQUEST
  479. CRD CM
  480. ADN NVGL-ACGL READ FLAW REQUEST
  481. CRD T6
  482. ADN DALL-NVGL READ DEVICE STATE BITS
  483. CRD T7
  484. ADN STLL-DALL READ CHECKPOINT, *1MV*, INITIALIZE
  485. CRD BB
  486. ADN THLL-STLL READ DEVICE THRESHOLDS
  487. CRD AA
  488.  
  489. * CHECK FOR *CMS* CALL REQUIRED.
  490.  
  491. LDD CM+4
  492. LPC MGRDR
  493. NJN CMS3 IF REDEFINITION REQUESTED
  494. LDD BB
  495. LPN MLIRP
  496. ZJN CMS4 IF INITIALIZE IS NOT REQUESTED
  497. LDD BB
  498. LPC MLFPR+MLUNL
  499. NJN CMS4 IF PACK FORMAT/UNLOAD REQUESTED
  500. LDD BB
  501. LPC MLIAL+MLIHD+MLIFD+MLIPF
  502. ZJN CMS3 IF NOT TOTAL/PF INITIALIZE
  503. LDD BB+3
  504. NJN CMS4 IF ACTIVITY ON DEVICE
  505. CMS3 AOM CMSB SET *CMS* CALL REQUIRED
  506.  
  507. * CHECK FOR *1CK* CALL REQUIRED.
  508.  
  509. CMS4 LDD BB (TIME TO PROCESS CHECKPOINT REQUESTS)
  510. LPN MLCKP
  511. ZJN CMS5 IF CHECKPOINT NOT REQUESTED ON DEVICE
  512. AOM CMSA NOTE CHECKPOINT BIT SET
  513.  
  514. * CHECK FOR *1MV* CALL REQUIRED.
  515.  
  516. CMS5 LDD T7
  517. LPC 200
  518. NJN CMS7 IF SUSPECT DEVICE
  519. RJM CTF CHECK TRACK FLAW
  520. ZJN CMS6 IF TRACK FLAWED
  521. RJM CSC CHECK SWEEP CYCLING
  522. MJN CMS8 IF NO SWEEP CYCLING CALL REQUIRED
  523. SOM CSCA DECREMENT REMAINING CALL COUNT
  524. LDN SCFC&MVFC SET SWEEP CYCLING
  525. CMS6 LMK MVFC&DVFC SET MEDIA VERIFICATION
  526. CMS7 LMK DVFC SET DEVICE VERIFICATION
  527. SHN 6
  528. STM TCPP+C1MV+3
  529. LDD BB+1
  530. SHN 21-7
  531. MJN CMS8 IF *1MV* ACTIVE
  532. LDD T8 SET EQUIPMENT IN REQUEST
  533. STD T5
  534. STM TCPP+C1MV+2
  535. LDN C1MV
  536. RJM CPP
  537. ZJN CMS8 IF PP NOT ASSIGNED
  538. SMSTF L1MV SET *1MV* ACTIVE
  539.  
  540. * PROCESS LOW SPACE, RESTRICT NEW ACTIVITY FLAG.
  541.  
  542. CMS8 LDD T0+4
  543. SBD AA+1
  544. SHN -21+6 (A) BIT 6 = 0, IF THRESHOLD NOT EXCEEDED
  545. LMD T7
  546. SHN 21-6
  547. PJN CMS9 IF RESTRICT NEW ACTIVITY BIT CORRECT
  548. LDD T7
  549. SHN -6
  550. LPN 1
  551. LMN 1
  552. ADN /CPS/CRES SET/CLEAR RESTRICT NEW ACTIVITY BIT
  553. ERRNZ /CPS/SRES-/CPS/CRES-1 CODE DEPENDS ON VALUE OF TAGS
  554. STD CM+2
  555. LDD T8 SET EQUIPMENT
  556. STD CM+1
  557. MONITOR SEQM
  558.  
  559. * PROCESS LOW TRACK NOTIFICATION THRESHOLD.
  560.  
  561. CMS9 LDD AA+2 CHECK FOR LOW SPACE THRESHOLD EXCEEDED
  562. LPC 3777
  563. SBN 1
  564. SBD T0+4
  565. PJN CMS10 IF THRESHOLD EXCEEDED
  566. ADN 5+1
  567. PJN CMS11 IF INSUFFICIENT SPACE TO CLEAR *OPRL*
  568. LDD AA+2 CLEAR *OPERATOR NOTIFIED* FLAG
  569. LPC 3777
  570. STD AA+2
  571. LDD EJ+4 REWRITE *THLL* IN MST
  572. SHN 3
  573. ADN THLL
  574. CWD AA
  575. UJN CMS12 CONTINUE
  576.  
  577. CMS10 LDD AA+2
  578. SHN 21-13
  579. MJN CMS11 IF OPERATOR PREVIOUSLY NOTIFIED
  580. LDC 4000 SET *OPERATOR NOTIFIED* FLAG
  581. RAD AA+2
  582. LDD EJ+4 REWRITE *THLL* IN MST
  583. SHN 3
  584. ADN THLL
  585. CWD AA
  586. AOM CMSC NOTIFY OPERATOR
  587. CMS11 AOM CMSD PREVENT CLEARING *OPRL* LOW SPACE STATUS
  588. CMS12 RJM SME CHECK MST ERROR COUNTS
  589. LJM CMS1 PROCESS NEXT EQUIPMENT
  590.  
  591.  
  592. CMSE VFD 1/0,5/0,6/1
  593. VFD 6/LSPE-1,6/0
  594. CON 0,0,0
  595. COR SPACE 4,15
  596. ** COR - CHECK IF OPERATOR ACTION IS REQUIRED.
  597. *
  598. * WHEN RUNNING IN A DUAL STATE ENVIROMENT, *COR* SETS BIT 56
  599. * IN WORD *D7ST* OF THE *EICB* BLOCK TO INDICATE THAT ACTION
  600. * IS REQUIRED BY THE CONSOLE OPERATOR.
  601. *
  602. * USES EO, T7, AA - AA+4, BB - BB+4, CM - CM+4, T1 - T5.
  603. *
  604. * CALLS AST, EJA.
  605.  
  606.  
  607. * SET BIT INDICATING THAT ACTION IS REQUIRED OF THE CONSOLE
  608. * OPERATOR.
  609.  
  610. COR6 LDD AA
  611. LPC 7377
  612. LMC 400
  613. CORA EQU *-1
  614. * LMC 0 (CLEAR BIT IF NO ACTION IS REQUIRED)
  615. STD AA
  616. LDK EIBP
  617. CRD CM
  618. LDD CM+3 REPLACE WORD *D7ST*
  619. SHN 14
  620. LMD CM+4
  621. ADK D7ST
  622. CWD AA
  623. ADK D8ST-D7ST
  624. CRD AA
  625. SBN D8ST-D8TY
  626. CRD CM
  627. LDC ** *NVE* CONTROL POINT ADDRESS
  628. CORB EQU *-1
  629. ZJN CORX IF NOS/VE NOT ACTIVE
  630. LDD CM+3 CHECK NOS/VE STATUS
  631. LPN 77
  632. LMN 2
  633. NJN CORX IF NOS/VE NOT RUNNING
  634. LDD AA
  635. SHN 21-10
  636. MJN COR7 IF NOS/VE REQUESTING OPERATOR ATTENTION
  637. LDN 0 CLEAR MESSAGE AT *NVE* CONTROL POINT
  638. STM CORC
  639. COR7 LDM CORB ISSUE/CLEAR MESSAGE AT *NVE* CONTROL POINT
  640. ADK MS2W
  641. CWM CORC,TR
  642.  
  643. COR SUBR ENTRY/EXIT
  644. LDK EIBP
  645. CRD CM
  646. LDD CM+3
  647. SHN 14
  648. LMD CM+4
  649. ZJN CORX IF *EICB* NOT DEFINED
  650. ADK D7ST
  651. CRD AA SAVE CONTENTS OF *D7ST*
  652. LDK NVOL
  653. CRD CM
  654. LDD CM+4
  655. ZJN CORX IF NOS/VE NOT ACTIVE
  656. LDD EO SAVE EJT ORDINAL
  657. STD BB
  658. LDC SSCP READ *SSAT* POINTER
  659. CRD CM
  660. LDD CM+2
  661. LPN 37
  662. SHN 14
  663. LMD CM+3
  664.  
  665. .W SET MXSI-NVSI CALCULATE WORD OFFSET IN *SSAT*
  666. .W SET .W/5
  667. .B SET MXSI-5*.W-NVSI CALCULATE BYTE OFFSET IN *SSAT* WORD
  668.  
  669. ADK SSCTL+.W READ *SSAT* WORD FOR *NVE* SUBSYSTEM
  670. CRD CM
  671. LDD CM+.B SET *NVE* EJT ORDINAL
  672. STD EO
  673. RJM EJA GET ADDRESS OF EJT ENTRY
  674. ADK SCHE
  675. CRD CM
  676. LDD BB RESTORE EJT ORDINAL
  677. STD EO
  678. LDD CM+3 SAVE CP ADDRESS OF *NVE*
  679. LPN 77
  680. SHN 7
  681. STM CORB
  682.  
  683. * CHECK FOR SYSTEM PROBLEMS.
  684.  
  685. LDN 0
  686. CRD CM
  687. LDD CM
  688. ADD CM+1
  689. ADD CM+2
  690. ADD CM+3
  691. ADD CM+4
  692. NJN COR2 IF WORD ZERO OF LOW CORE IS NON-ZERO
  693. LDK OPRL
  694. CRD CM
  695. LDD CM
  696. ADD CM+1
  697. ADD CM+2
  698. ADD CM+3
  699. ADD CM+4
  700. NJN COR2 IF OPERATOR MESSAGE IS PRESENT
  701.  
  702. * SCAN CONTROL POINTS FOR REQUIRED ACTION BY OPERATOR.
  703.  
  704. LDD CP INITIALIZE CP ADDRESS FOR BACKWARD SCAN
  705. STD T7
  706. ADK MS2W
  707. CRD CM
  708. LDD CM
  709. NJN COR2 IF MESSAGE AT SYSTEM CONTROL POINT
  710. COR1 LDC -200 DECREMENT CONTROL POINT ADDRESS
  711. RAD T7
  712. NJN COR3 IF NOT END OF CONTROL POINTS
  713. STM CORA CLEAR BIT IN *D7ST*
  714. COR2 LJM COR6 RESET BIT IN *D7ST*
  715.  
  716. COR3 ADK TFSW
  717. CRD CM
  718. LDD CM
  719. ZJN COR1 IF NO JOB AT CONTROL POINT
  720. LDD T7
  721. ADK SNSW
  722. CRD CM
  723. ADK MS1W-SNSW
  724. CRD T1
  725. ADK MS2W-MS1W
  726. CRD BB
  727. LDD CM+3
  728. SHN 21-0
  729. PJN COR4 IF PAUSE FLAG NOT SET
  730. LDD T1
  731. ADD BB
  732. NJN COR2 IF MESSAGE IS PRESENT
  733. COR4 LDD BB
  734. ZJN COR1 IF NO MESSAGE IN *MS2W*
  735. SHN -6
  736. LMN 1R$
  737. COR5 NJN COR1 IF NOT FLASHING MESSAGE
  738. LDD T7
  739. ADK JOTW
  740. CRD BB
  741. LDD BB+3
  742. LMK SYOT
  743. NJN COR5 IF NOT SYSTEM ORIGIN JOB
  744. UJN COR2 SET BIT IN *D7ST*
  745.  
  746.  
  747. CORC DATA C*$SEE NOS/VE DISPLAY*
  748. OSS SPACE 4,16
  749. ** OSS - OPTICAL STORAGE SCANNER.
  750. *
  751. * UPDATES THE OPTICAL DISK STATUS TABLE AND SCANS THE
  752. * OPTICAL DISK REQUEST TABLE FOR MOUNTED DISKS.
  753. *
  754. * ENTRY NONE.
  755. *
  756. * EXIT INTERVAL COUNTER UPDATED.
  757. *
  758. * USES CM+1, AA - AA+4.
  759. *
  760. * CALLS *1OS*.
  761. *
  762. * MACROS MONITOR.
  763.  
  764.  
  765. OSS SUBR ENTRY/EXIT
  766. LDC OSTP READ OST POINTER WORD
  767. CRD AA
  768. LDD AA+2
  769. ZJN OSSX IF NO OPTICAL DEVICES DEFINED
  770. LDD AA+4
  771. SHN 21-13
  772. MJN OSSX IF SCANNER DISABLED OR *1OS* ACTIVE
  773. SOD AA+4 DECREMENT INTERVAL COUNTER
  774. OSS1 LDC OSTP UPDATE *OST* POINTER WORD
  775. CWD AA
  776. LDD AA+4
  777. NJN OSSX IF INTERVAL COUNT NOT EXHAUSTED
  778. LDC 4000 SET *1OS* ACTIVE
  779. STD AA+4
  780. LDC OSTP UPDATE *OST* POINTER WORD
  781. CWD AA
  782. LDD MA
  783. CWM OSSA,ON WRITE INPUT REGISTER
  784. LDD IR+1 SET CP NUMBER
  785. LPN 37
  786. RAM OSSA+1
  787. LDN 10 ASSIGN TO SYSTEM CP
  788. STD CM+1
  789. MONITOR RPPM REQUEST PP
  790. LDD CM+1
  791. NJP OSSX IF PP ASSIGNED
  792. LDN 1 SET INTERVAL COUNTER FOR RETRY
  793. STD AA+4
  794. UJN OSS1 UPDATE *OST* POINTER WORD
  795.  
  796. OSSA VFD 18/0L1OS,42/0 *1OS* PP INPUT REGISTER
  797. PCA SPACE 4,20
  798. ** PCA - PROCESS CONTROL POINT AREAS.
  799. *
  800. * SCAN THE CPA-S AND PCPA-S CHECKING FOR ACCUMULATOR
  801. * OVERFLOW AND EXPIRED CM/CP TIME SLICES. THE *TOVF* TABLE
  802. * IS BUILT CONTAINING ACCUMULATOR OVERFLOW FLAGS FROM WORD
  803. * *SRUW* OF EACH ACTIVE CPA. FOR JOBS HAVING AN EXPIRED CM
  804. * TIME SLICE, THE SCHEDULING PRIORITY WILL BE REDUCED TO THE
  805. * LOWER BOUND OF THE JOB-S SERVICE CLASS. JOBS HAVING AN
  806. * EXPIRED CONTROL POINT TIME SLICE WILL HAVE THEIR SCHEDULING
  807. * PRIORITY REDUCED TO THE CP SLICE PRIORITY FOR THEIR
  808. * RESPECTIVE SERVICE CLASSES.
  809. *
  810. * ENTRY (NC) = NUMBER OF CONTROL POINTS.
  811. * (PN) = NUMBER OF MCT ENTRIES.
  812. *
  813. * USES EO, SC, T3, T7, AA - AA+4, BB - BB+4, CM - CM+4,
  814. * EJ - EJ+4.
  815. *
  816. * CALLS CCA, CCS, CET, CPS, CWR, EJA, IRR, IUT, PIS, SSA.
  817.  
  818.  
  819. PCA19 RJM SSA WRITE TIME SLICE COUNT STATISTICS
  820. CWM PCAE,ON
  821.  
  822. PCA SUBR ENTRY/EXIT
  823. RJM SSA READ TIME SLICE COUNT STATISTICS
  824. CRM PCAE,ON
  825. LDN 0 INITIALIZE CP/PCP NUMBER
  826. STD T7
  827. PCA1 AOD T7 ADVANCE TO NEXT CP/PCP
  828. LMD NC
  829. ZJN PCA1 IF SYSTEM CONTROL POINT
  830. LMD NC
  831. LMD PN
  832. ZJN PCA19 IF END OF SCAN
  833. LDD T7 SET CP/PCP ADDRESS
  834. RJM CCA
  835. ADK SRUW
  836. CRD BB
  837. ADN TFSW-SRUW
  838. CRD AA
  839. LDD T7
  840. SBD NC
  841. PJN PCA2 IF PCP
  842. LDN 0 PRESET OVERFLOW FLAGS TABLE ENTRY
  843. STM TOVF-1,T7
  844. PCA2 LDD AA
  845. ZJN PCA1 IF NO JOB AT CP/PCP
  846. STD EO EJT ORDINAL
  847. RJM EJA CALCULATE EJT ENTRY ADDRESS
  848. ADK JSNE
  849. CRD EJ READ *JSNE* WORD OF EJT ENTRY
  850. ADN SCLE-JSNE
  851. CRD AA READ *SCLE* WORD OF EJT ENTRY
  852. LDD AA
  853. SHN -6
  854. STD SC
  855. LDD EJ+4
  856. SHN -1
  857. LPN 77
  858. LMK PCJS
  859. ZJN PCA4 IF PCP JOB AND ADVANCE CLEAR
  860. LMK EXJS&PCJS
  861. PCA3 NJP PCA1 IF ADVANCE SET OR NOT *EXJS* STATUS
  862. LDD BB SAVE OVERFLOW FLAGS
  863. LPN 3
  864. SHN 14
  865. ADD BB+1
  866. SHN -5
  867. STM TOVF-1,T7
  868. PCA4 LDD T7 SET CP/PCP ADDRESS
  869. RJM CCA
  870. ADK JCIW
  871. CRD CM
  872. LDD CM+2
  873. ZJN PCA6 IF ROLLOUT ALLOWED
  874. LMN ORSI CHECK FOR OPERATOR ROLLOUT ALLOWED
  875. PCA5 NJN PCA3 IF ROLLOUT INHIBITED OR SUBSYSTEM
  876. PCA6 LDD AA
  877. SHN 21-5
  878. PJN PCA7 IF NOT FORCED ROLLOUT
  879. LDN 0
  880. UJN PCA10 REQUEST ROLLOUT
  881.  
  882. PCA7 SHN 5-4
  883. MJN PCA5 IF FORCED ROLLIN
  884. LDD BB
  885. SHN 21-10+1
  886. LPN 5
  887. ZJN PCA12 IF RESOURCE LIMIT NOT REACHED
  888. AOM PCAE+2 INCREMENT RESOURCE LIMIT ROLLOUT COUNT
  889. SHN -14
  890. RAM PCAE+1
  891. LDD EJ+4
  892. SHN 0-7
  893. LPN 17
  894. LMK OLCS
  895. ZJN PCA8 IF ON-LINE INTERACTIVE JOB
  896. LMK OLCS&DTCS
  897. ZJN PCA9 IF DETACHED INTERACTIVE JOB
  898. LDN 0 ROLLOUT ALL OTHER JOBS
  899. UJN PCA10 REQUEST ROLLOUT
  900.  
  901. PCA8 LDN /CPS/ROSU&/CPS/ROSR SELECT *ROSR* SCHEDULER ROLLOUT
  902. PCA9 LMN /CPS/ROSU SELECT *ROCM* SUSPEND OPTION
  903. SHN 14
  904. PCA10 LMD T7
  905. RJM IRR ISSUE ROLLOUT REQUEST
  906. PCA11 LJM PCA1 CONTINUE CONTROL POINT SCAN
  907.  
  908. PCA12 RJM CWR CHECK WAIT RESPONSE/CONNECTION INDICATORS
  909. PCAA LDD T7 SET CP/PCP ADDRESS
  910. * UJN PCA13 (USER ECS IS ENABLED)
  911. RJM CCA
  912. ADK ECSW
  913. CRD CM
  914. LDD CM+4
  915. ZJN PCA13 IF NO ECS IS ASSIGNED TO JOB
  916. LDN 0
  917. UJN PCA10 REQUEST ROLLOUT
  918.  
  919. PCA13 LDD T7
  920. SBD NC
  921. PJN PCA11 IF PCP JOB
  922. LDD AA+2 SAVE SLICE FLAG
  923. SHN 14
  924. STD T3
  925. SHN -14
  926. STD AA+2
  927. RJM CCS CHECK FOR EXPIRED CM SLICE
  928. PJN PCA14 IF CM SLICE IS EXPIRED
  929. LDD PN
  930. SBD NC
  931. SBN 1
  932. ZJN PCA11 IF NO PCP-S
  933. RJM CPS CHECK FOR EXPIRED CONTROL POINT SLICE
  934. MJP PCA1 IF CP SLICE NOT EXPIRED
  935. LDN 2
  936. STD T3
  937. PCA14 LDM PCAD,T3
  938. STM PCAB
  939. LDD T3
  940. NJN PCA15 IF EITHER CP SLICE OR NOT INITIAL SLICE
  941. RJM PIS PROCESS INITIAL SLICE
  942. PCA15 RJM EJA CALCULATE EJT ENTRY ADDRESS
  943. ADN SCHE
  944. CRD CM
  945. LDM TEPB+1*MXJC,SC PUT PRIORITY IN *UTEM* CALL
  946. PCAB EQU *-1
  947. STM PCAC+14D
  948. LDD CM+3
  949. STM PCAC+13D
  950. LDD EJ+4 STORE JOB STATUS IN *UTEM* BLOCK
  951. LPN 76
  952. STM PCAC+9D
  953. LDD T7
  954. SBD NC
  955. MJN PCA16 IF NOT PCP
  956. LDM PCAC+14D
  957. STD T1
  958. LDD SC
  959. SHN 14
  960. LMK EXQT
  961. RJM CET
  962. LDD T1 STORE ENTRY TIME IN *UTEM* BLOCK
  963. STM PCAC+13D
  964. LDD T2
  965. STM PCAC+14D
  966. UJN PCA17 REDUCE PRIORITY TO LOWER BOUND
  967.  
  968. PCA16 LDM PCAC+14D
  969. SBD CM+4
  970. PJN PCA18 IF PRIORITY ALREADY REDUCED
  971.  
  972. * REDUCE SCHEDULING PRIORITY.
  973.  
  974. PCA17 LDD SC PUT SERVICE CLASS IN *UTEM* CALL
  975. STM PCAC+4
  976. LDC PCAC+3*10000
  977. RJM IUT ISSUE *UTEM* MONITOR FUNCTION
  978. NJN PCA18 IF *UTEM* REJECTED
  979. LDD T3
  980. SBN 2
  981. PJN PCA18 IF CP SLICE EXPIRED
  982. AOM PCAE+4 INCREMENT SLICE COUNT
  983. SHN -14
  984. RAM PCAE+3
  985. PCA18 LJM PCA1 CONTINUE CONTROL POINT SCAN
  986.  
  987.  
  988. * *UTEM* PARAMETERS FOR CHANGING SCHEDULING PRIORITY.
  989.  
  990. PCAC VFD 1/1,5/SCLE,6/6 VERIFY SERVICE CLASS
  991. VFD 6/54D,6/0
  992. CON 0
  993. CON 0
  994. CON 0
  995.  
  996. VFD 1/1,5/JSNE,6/6 VERIFY UNCHANGED JOB STATE, CLEAR I/L
  997. VFD 6/0,6/0
  998. CON 0
  999. CON 0
  1000. CON 0
  1001.  
  1002. VFD 1/0,5/SCHE,6/24D SET SCHEDULING PRIORITY
  1003. VFD 6/0,6/0
  1004. CON 0
  1005. CON 0
  1006. CON 0
  1007.  
  1008. PCAD CON TEPB
  1009. CON TEPB+1*MXJC
  1010. CON TEPB+3*MXJC
  1011.  
  1012. PCAE BSS 5 *PF0S* BUFFER
  1013. POF SPACE 4,15
  1014. ** POF - PROCESS OVERFLOW FLAGS.
  1015. *
  1016. * CALL *0AU* FOR EACH CONTROL POINT HAVING ACCUMULATOR
  1017. * OVERFLOW.
  1018. *
  1019. * ENTRY (NC) = SYSTEM CONTROL POINT NUMBER.
  1020. * *TOVF* TABLE CONTAINS ACCUMULATOR OVERFLOW FLAGS.
  1021. *
  1022. * USES EO, TP, CM - CM+4.
  1023. *
  1024. * CALLS EJA, 0AU.
  1025. *
  1026. * MACROS EXECUTE, MONITOR.
  1027.  
  1028.  
  1029. POF SUBR ENTRY/EXIT
  1030. LDD NC INITIALIZE CONTROL POINT NUMBER
  1031. STD TP
  1032. POF1 SOD TP DECREMENT CONTROL POINT NUMBER
  1033. ZJN POFX IF ALL CONTROL POINTS HAVE BEEN PROCESSED
  1034. LDM TOVF-1,TP
  1035. ZJN POF1 IF NO ACCUMULATOR OVERFLOW AT THIS CP
  1036. LDD TP SAVE CONTROL POINT NUMBER FOR *CCAM*
  1037. STD CM+1
  1038. MONITOR CCAM CHANGE CONTROL POINT ASSIGNMENT
  1039. LDD CM+1
  1040. NJN POF1 IF FUNCTION REJECTED
  1041.  
  1042. * SET UP *0AU* PARAMETERS.
  1043.  
  1044. LDD CP
  1045. ADN SRUW
  1046. CRM P0AU+5,ON
  1047. ADN FPFW-SRUW-1
  1048. CRM OVL0,ON
  1049. ADN TFSW-FPFW-1
  1050. CRD CM
  1051. LDM P0AU+6
  1052. SCN 37
  1053. NJN POF2 IF OVERFLOW
  1054. LDM P0AU+5
  1055. LPN 3
  1056. ZJN POF3 IF NO OVERFLOW FLAGS SET
  1057. POF2 LDD CM PLACE JSN IN PARAMETER BLOCK
  1058. STD EO
  1059. RJM EJA CALCULATE EJT ENTRY ADDRESS
  1060. ADK JSNE
  1061. CRM P0AU,ON
  1062. ADK SCLE-JSNE-1 SET SERVICE CLASS FOR *0AU*
  1063. CRD CM
  1064. LDD CM
  1065. SCN 77
  1066. STM P0AU+4
  1067. LDC P0AU SET PARAMETER BLOCK ADDRESS
  1068. STM OVL0+1
  1069. LDM OVL0 SET *0AU* FUNCTION CODE
  1070. SCN 77
  1071. ADN 1
  1072. STM OVL0
  1073.  
  1074. * EXECUTE *0AU*. NOTE THAT *0AU* USES DIRECT CELLS 0 - 17B.
  1075.  
  1076. EXECUTE 0AU,OVL0+5
  1077. POF3 LDD NC SAVE SYSTEM CP NUMBER FOR *CCAM*
  1078. STD CM+1
  1079. MONITOR CCAM CHANGE PP ASSIGNMENT TO SYSTEM CP
  1080. LJM POF1 CONTINUE
  1081. SPACE 4,10
  1082. SEJ SPACE 4,20
  1083. ** SEJ - SCAN EJT.
  1084. *
  1085. * SET FLAGS IN WORD *OPRL* FOR POSTED OPERATOR ACTION EVENTS.
  1086. * SCAN THE EJT LOOKING FOR JOBS HAVING TIMED/EVENT ROLLOUT JOB
  1087. * STATUS, AND FOR JOBS WITH ACCESS LEVEL LIMITS OUTSIDE THEIR
  1088. * JOB ORIGIN ACCESS LEVEL LIMITS. IF A JOB-S ROLLOUT TIME HAS
  1089. * EXPIRED OR ITS EVENT IS POSTED, CHANGE THE JOB STATUS TO
  1090. * SCHEDULER ROLLOUT (*ROJS*). IF A JOB-S ACCESS LEVEL LIMITS
  1091. * ARE OUTSIDE ITS ORIGIN TYPE LIMIT, ABORT THE JOB WITH AN
  1092. * *SYET* ERROR FLAG. SUBSYSTEMS ARE NOT ABORTED.
  1093. * SCAN THE EJT LOOKING FOR JOBS IN SERVICE LIMIT WAIT STATUS
  1094. * AND SET *ROJS* STATUS ON THE JOBS IF THEY ARE NOW WITHIN
  1095. * THE SERVICE LIMIT CONSTRAINTS.
  1096. *
  1097. * USES EO, SC, AA - AA+4, BB - BB+4, CM - CM+4,
  1098. * EJ - EJ+4, T0 - T0+4.
  1099. *
  1100. * CALLS CAL, OAE, PSL, PTE, RTE.
  1101. *
  1102. * MACROS CFI, MONITOR.
  1103.  
  1104.  
  1105. SEJ5 LDD CF
  1106. LPN 4
  1107. ZJN SEJX IF SYSTEM LIMITS HAVE NOT CHANGED
  1108. LDN 1 CLEAR SYSTEM LIMITS CHANGED FLAG
  1109. STD CM+1
  1110. STD CM+2
  1111. LDD MA
  1112. CWM SEJD,ON
  1113. MONITOR UADM
  1114.  
  1115. SEJ SUBR ENTRY/EXIT
  1116. RJM RTE READ TABLE OF EVENTS
  1117. LDD T7 GET EVENT COUNT
  1118.  
  1119. * CHECK FOR OPERATOR ACTION EVENTS.
  1120.  
  1121. RJM OAE PROCESS OPERATOR ACTION EVENTS
  1122.  
  1123. * SCAN THE EJT.
  1124.  
  1125. LDD CF GET SYSTEM LIMITS CHANGED STATUS
  1126. LPN 4
  1127. STM SEJC
  1128. LDC ** PRESET EJT ORDINAL FOR BACKWARD SCAN
  1129. SEJA EQU *-1 (LARGEST EJT ORDINAL + 1)
  1130. STD EO
  1131. SEJ1 SOD EO DECREMENT EJT ORDINAL
  1132. ZJP SEJ5 IF EJT SCAN COMPLETE
  1133. CFI EJT,,EO GET EJT ENTRY OFFSET
  1134. ADC ** ADD EJT FWA (SET BY *PRS*)
  1135. SEJB EQU *-1 (EJT FWA)
  1136. ADK JSNE
  1137. CRD EJ
  1138. ADN SCHE-JSNE
  1139. CRD AA
  1140. ADN PRFE-SCHE
  1141. CRD BB
  1142. ADN SCLE-PRFE
  1143. CRD T0
  1144. LDD EJ
  1145. ZJN SEJ1 IF EMPTY ENTRY
  1146. LDD T0 GET SERVICE CLASS
  1147. STM PTEA
  1148. SHN -6
  1149. STD SC
  1150. LMN DSSC
  1151. NJN SEJ2 IF NOT DEADSTART SEQUENCING JOB
  1152. SOM CPPA SET D/S SEQUENCING FLAG
  1153. SEJ2 LDC **
  1154. SEJC EQU *-1 (SYSTEM LIMITS CHANGED FLAG)
  1155. ZJN SEJ3 IF SYSTEM LIMITS HAVE NOT CHANGED
  1156. RJM CAL CHECK ACCESS LEVEL LIMITS
  1157. NJN SEJ4 IF JOB ABORTED OR IN TERMINATION
  1158. SEJ3 RJM PTE PROCESS TIMED/EVENT ROLLOUT JOBS
  1159. RJM PSL PROCESS SERVICE LIMITS
  1160. SEJ4 LJM SEJ1 PROCESS NEXT EJT ENTRY
  1161.  
  1162.  
  1163. * *UADM* PARAMETERS TO CLEAR SYSTEM LIMITS CHANGED FLAG.
  1164.  
  1165. SEJD CON /CPS/LDOS DECREMENT BY ONE
  1166. CON INWL
  1167. CON 14D*100+1 BIT ADDRESS AND FIELD WIDTH
  1168. TITLE SECONDARY SUBROUTINES.
  1169. CAL SPACE 4,20
  1170. ** CAL - CHECK ACCESS LEVEL LIMITS.
  1171. *
  1172. * CHECK IF THE JOB-S ACCESS LEVEL LIMITS ARE OUTSIDE THE
  1173. * LIMITS FOR THE JOB-S ORIGIN TYPE. IF SO, ABORT THE JOB
  1174. * WITH AN *SYET* ERROR. SUBSYSTEMS WILL NOT BE ABORTED.
  1175. * IGNORE ALL JOBS THAT ALREADY HAVE *SYET* OR *TJET* ERROR
  1176. * FLAGS, AS WELL AS JOBS ALREADY IN JOB TERMINATION.
  1177. *
  1178. * ENTRY (EO) = EJT ORDINAL OF JOB.
  1179. * (SC) = SERVICE CLASS OF JOB.
  1180. * (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
  1181. * (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
  1182. * (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
  1183. * (T0 - T0+4) = *SCLE* WORD OF EJT ENTRY.
  1184. *
  1185. * EXIT (A) .NE. 0 IF JOB ABORTED OR IN TERMINATION.
  1186. *
  1187. * USES CM - CM+4.
  1188. *
  1189. * MACROS DELAY, MONITOR.
  1190.  
  1191.  
  1192. CAL3 LDN 1 SET ERROR RETURN STATUS
  1193.  
  1194. CAL SUBR ENTRY/EXIT
  1195. LDD AA+2
  1196. SHN 21-12
  1197. MJN CALX IF JOB TERMINATION IN PROGRESS
  1198. LDD BB+1
  1199. LMK SYET
  1200. ZJN CAL3 IF JOB ALREADY HAS *SYET* ERROR
  1201. LDD BB+2
  1202. LPN 77
  1203. SHN -3+22
  1204. STD CM+4 SET LOWER ACCESS LEVEL LIMIT
  1205. SHN -22+3
  1206. STD CM+3 SET UPPER ACCESS LEVEL LIMIT
  1207. LDD T0 SET ORIGIN TYPE
  1208. LPN 17
  1209. STD CM+2
  1210. LDN /CPS/VJLS VALIDATE JOB LIMITS
  1211. STD CM+1
  1212. MONITOR VSAM
  1213. LDD CM+1
  1214. ZJN CALX IF JOB LIMITS VALID
  1215.  
  1216. * SET *SYET* ERROR FLAG FOR ALL JOBS EXCEPT SUBSYSTEMS.
  1217.  
  1218. LDD SC
  1219. LMK SSSC
  1220. ZJN CALX IF JOB IS SUBSYSTEM
  1221. CAL1 LDC SYET+4000 SET ERROR FLAG
  1222. STD CM+1
  1223. LDD EO SET EJT ORDINAL
  1224. STD CM+2
  1225. LDD EJ SET JSN
  1226. STD CM+3
  1227. LDD EJ+1
  1228. STD CM+4
  1229. MONITOR CEFM
  1230. LDD CM+1
  1231. ZJP CAL3 IF ERROR FLAG SET
  1232. DELAY
  1233. UJN CAL1 RETRY
  1234. CCA SPACE 4,10
  1235. ** CCA - COMPUTE CPA/PCPA ADDRESS.
  1236. *
  1237. * ENTRY (A) = CP/PCP NUMBER.
  1238. * (NC) = NUMBER OF CONTROL POINTS.
  1239. *
  1240. * EXIT (A) = CPA/PCPA ADDRESS.
  1241.  
  1242.  
  1243. CCA1 ADD NC
  1244. SHN 7
  1245.  
  1246. CCA SUBR ENTRY/EXIT
  1247. SBD NC
  1248. MJN CCA1 IF CONTROL POINT
  1249. ZJN CCA1 IF SYSTEM CONTROL POINT
  1250. SHN 7
  1251. CCAA ADC ** (PCP AREAS BASE ADDRESS)
  1252. UJN CCAX RETURN
  1253. CCS SPACE 4,10
  1254. ** CCS - CHECK CM SLICE.
  1255. *
  1256. * CHECK FOR EXPIRED CM TIME SLICE.
  1257. *
  1258. * ENTRY (AA - AA+4) = WORD *TSCW* OF CPA/PCPA.
  1259. * (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
  1260. *
  1261. * EXIT (A) .GE. 0 IF CM TIME SLICE EXPIRED.
  1262.  
  1263.  
  1264. CCS SUBR ENTRY/EXIT
  1265. LDD TM CALCULATE REAL TIME - CM SLICE TIME
  1266. SBD AA
  1267. NJN CCSX IF NO NEED TO CHECK LOWER BITS
  1268. LDD TM+1
  1269. SBD AA+1
  1270. UJN CCSX RETURN
  1271. CPP SPACE 4,10
  1272. ** CPP - CALL PP.
  1273. *
  1274. * THIS ROUTINE CALLS THE REQUESTED PP TO THE SYSTEM CONTROL
  1275. * POINT.
  1276. *
  1277. * ENTRY (A) = RELATIVE PP CALL INDEX FROM TCPP.
  1278. *
  1279. * EXIT (A) = 0, IF NO PP AVAILABLE.
  1280. *
  1281. * USES T1, CM - CM+4.
  1282.  
  1283.  
  1284. CPP2 LDN 0 INDICATE NO PP AVAILABLE
  1285.  
  1286. CPP SUBR ENTRY/EXIT
  1287. ADC TCPP SET ABSOLUTE TABLE ADDRESS
  1288. STD T1
  1289. STM CPPB
  1290. SBM CPPC
  1291. PJN CPP2 IF PP CALL DISABLED
  1292. LDD T1
  1293. ADC -C1MV-TCPP
  1294. ZJN CPP1 IF *1MV* REQUESTED
  1295. CPPA LDN 1
  1296. * LDN 0 (D/S SEQUENCING)
  1297. ZJN CPPX IF D/S SEQUENCING
  1298. CPP1 LDM 1,T1 SET SYSTEM CP NUMBER
  1299. SCN 77
  1300. LMD NC
  1301. STM 1,T1
  1302. LDD MA
  1303. CWM TCPP,ON
  1304. CPPB EQU *-1
  1305. EXECUTE 1CK,=
  1306. EXECUTE 1DS,=
  1307. EXECUTE 1MV,=
  1308. LDN 1 SET PRIORITY PP FLAG
  1309. STD CM+1
  1310. MONITOR RPPM
  1311. LDD CM+1
  1312. UJP CPPX RETURN
  1313.  
  1314.  
  1315. CPPC CON TCPP+C1MV+1
  1316. TCPP BSS 0 TABLE OF PP CALLS
  1317. LOC 0
  1318. C1CK VFD 18/0L1CK,6/0,12/2,24/0
  1319. CCMS VFD 18/0L1DS,6/0,12//1DS/ISSF,18/0LCMS,6/0
  1320. C1MV VFD 18/0L1MV,6/0,12/0,6/0,18/0
  1321. LOC *O
  1322. CPS SPACE 4,10
  1323. ** CPS - CHECK CONTROL POINT SLICE.
  1324. *
  1325. * CHECK FOR EXPIRED CONTROL POINT SLICE.
  1326. *
  1327. * ENTRY (AA - AA+4) = WORD *TSCW* OF CONTROL POINT AREA.
  1328. * (TM - TM+1) = SECONDS PORTION OF WORD *RTCL*.
  1329. *
  1330. * EXIT (A) .GE. 0 IF CONTROL POINT SLICE EXPIRED.
  1331.  
  1332.  
  1333. CPS SUBR ENTRY/EXIT
  1334. LDD TM
  1335. SBD AA+3
  1336. NJN CPSX IF NO NEED TO CHECK LOWER BITS
  1337. LDD TM+1
  1338. SBD AA+4
  1339. UJN CPSX RETURN
  1340. CSC SPACE 4,10
  1341. ** CSC - CHECK SWEEP CYCLING.
  1342. *
  1343. * ENTRY (EJ - EJ+4) = *EQDE* WORD OF EST ENTRY.
  1344. * (TM - TM+1) = SECONDS PORTION OF *RTCL*.
  1345. *
  1346. * EXIT (A) .GE. 0 IF SWEEP CYCLING CALL IS REQUIRED.
  1347. *
  1348. * USES CM - CM+5.
  1349.  
  1350.  
  1351. CSC3 LCN 0 SET REPLY STATUS
  1352.  
  1353. CSC SUBR ENTRY/EXIT
  1354. LDN 1
  1355. CSCA EQU *-1
  1356. ZJN CSC3 IF SWEEP CYCLING CALL LIMIT REACHED
  1357. LDD EJ
  1358. LPN 3
  1359. LMN 3
  1360. ZJN CSC3 IF DEVICE IS DOWN
  1361. LDD EJ+4
  1362. SHN 3
  1363. ADN SCLL READ SWEEP CYCLING CONTROL WORD
  1364. CRD CM
  1365. LDC CSCB-1
  1366. STD T1
  1367. CSC1 AOD T1
  1368. LDI T1
  1369. ZJN CSC3 IF SWEEP CYCLING NOT SUPPORTED ON DEVICE
  1370. LMD EJ+3
  1371. NJN CSC1 IF NOT THIS DEVICE TYPE
  1372. LDD TM+1
  1373. SBD CM+1
  1374. PJN CSC2 IF NO ROLLOVER
  1375. ADC 10000
  1376. CSC2 SBK SCDT*60D
  1377. UJP CSCX RETURN
  1378.  
  1379.  
  1380. CSCB BSS 0 TABLE OF DEVICES SUPPORTING SWEEP CYCLING
  1381.  
  1382. CON 2RDB DEVICE TYPE *DB*
  1383. CON 2RDD DEVICE TYPE *DD*
  1384. CON 2RDG DEVICE TYPE *DG*
  1385. CON 2RDM DEVICE TYPE *DM*
  1386. CON 2RDQ DEVICE TYPE *DQ*
  1387.  
  1388. CON 0 END OF TABLE
  1389. CTF SPACE 4,10
  1390. ** CTF - CHECK TRACK FLAWED.
  1391. *
  1392. * THIS ROUTINE CHECKS FOR A TRACK BEING FLAWED.
  1393. *
  1394. * ENTRY (T6) = TRACK TO CHECK FOR BEING FLAWED.
  1395. * (EJ - EJ+4) = EST ENTRY FOR EQUIPMENT.
  1396. *
  1397. * EXIT (A) = 0, IF TRACK IS FLAWED.
  1398. *
  1399. * USES T0, T1, CM - CM+4.
  1400.  
  1401.  
  1402. CTF SUBR ENTRY/EXIT
  1403. LDD T6
  1404. STM TCPP+C1MV+4
  1405. ZJN CTF1 IF NO TRACK PRESENT
  1406. SHN 21-1
  1407. STD T0 TRT RELATIVE WORD + 1000
  1408. SHN 0-20
  1409. STD T1 TRACK BYTE INDEX
  1410. LDD EJ+4 READ TRT WORD
  1411. SHN 3
  1412. ADK TRLL
  1413. CRD CM
  1414. LDD CM+3
  1415. SHN 14
  1416. ADD CM+4
  1417. ADD T0
  1418. SBD TH
  1419. CRD CM
  1420. LDM CM,T1 GET TRACK BYTE
  1421. CTF1 LMC 3777
  1422. UJN CTFX RETURN
  1423. CWR SPACE 4,20
  1424. ** CWR - CHECK WAIT RESPONSE INDICATORS.
  1425. *
  1426. * FOR THE SPECIFIED CP/PCP, IF ANY SCP WAIT RESPONSE
  1427. * INDICATOR IN WORD *SSCW* IS NON-ZERO AND THE CORRESPONDING
  1428. * ROLLOUT ALLOWABLE BIT IS CLEAR, ADD THE INSTALLATION DEFINED
  1429. * MULTIPLE OF CM TIME SLICES TO THE JOB-S SLICE TIME IN CELLS
  1430. * *AA - AA+4* TO REDUCE THE CHANCE OF ROLLING THIS JOB.
  1431. *
  1432. * ENTRY (SC) = SERVICE CLASS.
  1433. * (EO) = EJT ORDINAL.
  1434. * (T7) = CP OR PCP NUMBER.
  1435. *
  1436. * EXIT (AA - AA+4) = *TSCW*.
  1437. *
  1438. * USES T4, CM - CM+4, AA - AA+4.
  1439. *
  1440. * CALLS CCA.
  1441. *
  1442. * MACROS SFA.
  1443.  
  1444.  
  1445. CWR SUBR ENTRY/EXIT
  1446. LDD T7 SET CP/PCP ADDRESS
  1447. RJM CCA
  1448. ADK SSCW
  1449. CRD CM
  1450. ADN TSCW-SSCW
  1451. CRD AA
  1452. LDN 5 INITIALIZE BYTE INDEX
  1453. STD T4
  1454. CWR1 SOD T4
  1455. MJN CWRX IF NO MORE INDICATORS TO CHECK
  1456. LDM CM,T4
  1457. LPN 27 MASK ROLLOUT ALLOWABLE/WAIT RESPONSE
  1458. ZJN CWR1 IF NO INDICATORS SET
  1459. LPN 20
  1460. NJN CWR1 IF ROLLOUT ALLOWABLE SET
  1461. LDN CMSL INSTALLATION DEFINED CM SLICE MULTIPLIER
  1462. STD T4
  1463. SFA JCB,SC GET CM TIME SLICE FOR JOB
  1464. ADN SVJT
  1465. CRD CM
  1466. CWR2 LDD CM+2 INCREASE CM TIME SLICE
  1467. RAD AA+1
  1468. SHN -14
  1469. RAD AA
  1470. SOD T4
  1471. NJN CWR2 IF NOT FINISHED INCREASING TIME SLICE
  1472. LJM CWRX RETURN
  1473. EJA SPACE 4,10
  1474. ** EJA - CALCULATE EJT ENTRY ADDRESS.
  1475. *
  1476. * ENTRY (EO) = EJT ORDINAL.
  1477. *
  1478. * EXIT (A) = EJT ENTRY ADDRESS.
  1479. *
  1480. * MACROS CFI.
  1481.  
  1482.  
  1483. EJA SUBR ENTRY/EXIT
  1484. CFI EJT,EO CALCULATE ENTRY OFFSET
  1485. ADC **
  1486. EJAA EQU *-1 (EJT FWA)
  1487. UJN EJAX RETURN
  1488. IRR SPACE 4,15
  1489. ** IRR - ISSUE ROLLOUT REQUEST.
  1490. *
  1491. * ENTRY (A) = 6/ OP,12/ CP.
  1492. * OP *ROCM* OPTIONS.
  1493. * CP CP/PCP TO ROLL.
  1494. *
  1495. * EXIT (A) = 0 IF ROLLOUT REQUEST WAS ACCEPTED.
  1496. * JOBS PREEMPTED STATISTIC UPDATED.
  1497. *
  1498. * USES CM - CM+4.
  1499. *
  1500. * MACROS MONITOR.
  1501.  
  1502.  
  1503. IRR SUBR ENTRY/EXIT
  1504. STD CM+2 STORE CP/PCP NUMBER
  1505. SHN -14
  1506. LMC 4000 SET ALTERNATE CP/PCP OPTION
  1507. STD CM+1
  1508. MONITOR ROCM REQUEST ROLLOUT
  1509. LDD CM+1
  1510. UJN IRRX RETURN
  1511. IUT SPACE 4,20
  1512. ** IUT - ISSUE *UTEM* MONITOR FUNCTION.
  1513. *
  1514. * ENTRY (A) = 1/ 0,1/ I,1/ 0,3/ C,12/ P
  1515. * I = 0 IF INTERLOCK SHOULD BE SET.
  1516. * = 1 IF INTERLOCK SHOULD BE CLEARED.
  1517. * C = NUMBER OF *UTEM* PARAMETER WORDS.
  1518. * = 0 IF INTERLOCK REQUEST.
  1519. * P = PARAMETER LIST ADDRESS.
  1520. *
  1521. * EXIT (A) = 0 IF *UTEM* FUNCTION WAS SUCCESSFUL.
  1522. * .NE. 0 IF *UTEM* VERIFICATION FAILED.
  1523. *
  1524. * USES CM - CM+4.
  1525. *
  1526. * CALLS EJA.
  1527. *
  1528. * MACROS MONITOR.
  1529.  
  1530.  
  1531. IUT SUBR ENTRY/EXIT
  1532. STM IUTA PARAMETER LIST ADDRESS
  1533. LPC -7777
  1534. SHN 1
  1535. STD CM TABLE INDICATOR
  1536. SCN 1 SAVE INTERLOCK FLAG
  1537. SHN 1
  1538. STD CM+2
  1539. SHN -14-2
  1540. STD CM+1 NUMBER OF PARAMETER WORDS
  1541. RJM EJA CALCULATE TABLE ADDRESS
  1542. STD CM+4
  1543. SHN -14
  1544. STD CM+3
  1545. LDD CM+1
  1546. ZJN IUT1 IF NO PARAMETER WORDS
  1547. LDD MA WRITE PARAMETERS TO MESSAGE BUFFER
  1548. CWM **,CM+1
  1549. IUTA EQU *-1
  1550. IUT1 LDD CM+2 SET/CLEAR INTERLOCK FLAG
  1551. SHN 5
  1552. RAD CM+1
  1553. LDN 0
  1554. STD CM+2
  1555. MONITOR UTEM
  1556. LDD CM+1
  1557. LJM IUTX RETURN
  1558. OAE SPACE 4,15
  1559. ** OAE - PROCESS OPERATOR ACTION EVENTS.
  1560. *
  1561. * FOR EACH POSTED OPERATOR ACTION EVENT FOUND IN THE *TEVT*
  1562. * TABLE, SET THE CORRESPONDING BIT IN WORD *OPRL*.
  1563. *
  1564. * ENTRY (A) = NUMBER OF EVENTS IN *TEVT* TABLE.
  1565. *
  1566. * USES T1, CM - CM+4.
  1567. *
  1568. * MACROS MONITOR.
  1569.  
  1570.  
  1571. OAE SUBR ENTRY/EXIT
  1572. SHN 1 INITIALIZE INDEX
  1573. STD T1
  1574. OAE1 LCN 2 DECREMENT *TEVT* INDEX
  1575. RAD T1
  1576. MJN OAEX IF END OF *TEVT* SCAN
  1577. LDM TEVT,T1
  1578. NJN OAE1 IF NOT SYSTEM EVENT
  1579. STD CM+2
  1580. LDM TEVT+1,T1
  1581. ZJN OAE1 IF NULL EVENT
  1582. SBK MXOE
  1583. PJN OAE1 IF NOT OPERATOR ACTION EVENT
  1584. ADK MXOE-1 STORE BIT NUMBER IN *UTEM* BLOCK
  1585. SHN 6
  1586. STM OAEA+1
  1587. LDN 1
  1588. STD CM+1
  1589. LDK OPRL
  1590. STD CM+4
  1591. SHN -14
  1592. STD CM+3
  1593. LDD MA WRITE PARAMETER WORDS TO MESSAGE BUFFER
  1594. CWM OAEA,CM+1
  1595. MONITOR UTEM SET OPERATOR ACTION FLAG
  1596. UJN OAE1 CONTINUE *TEVT* SCAN
  1597.  
  1598.  
  1599. * *UTEM* PARAMETER BLOCK FOR *OPRL* UPDATE.
  1600.  
  1601. OAEA VFD 1/0,5/0,6/1
  1602. VFD 6/0,6/0
  1603. CON 0,0,1
  1604. PIS SPACE 4,10
  1605. ** PIS - PROCESS INITIAL SLICE.
  1606. *
  1607. * ENTRY (SC) = SERVICE CLASS.
  1608. * (T7) = CP OR PCP NUMBER.
  1609. * (TM - TM+1) = SECONDS PORTION OF *RTCL*.
  1610. *
  1611. * USES AA - AA+4, CM - CM+4.
  1612. *
  1613. * CALLS CCA, RJC.
  1614.  
  1615.  
  1616. PIS SUBR ENTRY/EXIT
  1617. LDD T7 SET CP/PCP ADDRESS
  1618. RJM CCA
  1619. ADK TSCW
  1620. CRD AA
  1621. LDD SC
  1622. RJM RJC CALCULATE JCB ADDRESS
  1623. ZJN PIS2 IF NO JCB FOR SERVICE CLASS
  1624. ADK SVJT READ *SVJT* WORD OF JCB
  1625. CRD CM
  1626. LDD CM+2 CALCULATE CM SLICE TIME
  1627. STD AA+1
  1628. ZJN PIS1 IF CM SLICE = 0
  1629. LDD TM+1
  1630. RAD AA+1
  1631. SHN -14
  1632. ADD TM
  1633. PIS1 STD AA
  1634. PIS2 LDD HN SET POST-INITIAL SLICE FLAG
  1635. STD AA+2
  1636. LDD T7 SET CP/PCP ADDRESS
  1637. RJM CCA
  1638. ADK TSCW
  1639. CWD AA
  1640. UJP PISX RETURN
  1641. PSL SPACE 4,10
  1642. ** PSL - PROCESS SERVICE LIMITS.
  1643. *
  1644. * ENTRY (EJ - EJ+4) = *JSNE* EJT WORD.
  1645. * (T0 - T0+4) = *SCLE* EJT WORD.
  1646. * (SC) = SERVICE CLASS.
  1647. *
  1648. * EXIT JOB STATUS CHANGED IF SERVICE LIMITS NOT EXCEEDED.
  1649. *
  1650. * CALLS SRS.
  1651.  
  1652.  
  1653. PSL SUBR ENTRY/EXIT
  1654. LDD EJ+4
  1655. LPN 76
  1656. STM SRSA+4 SAVE CURRENT JOB STATUS
  1657. LMN SWJS*2
  1658. NJN PSLX IF NOT SERVICE WAIT STATUS
  1659. LDM TJAM,SC
  1660. SBD T0+4
  1661. MJN PSLX IF CM EXCEEDS SERVICE LIMIT
  1662. LDM TJAM+1*MXJC,SC
  1663. SBD T0+3
  1664. MJN PSLX IF EM EXCEEDS SERVICE LIMIT
  1665. RJM SRS SET ROLLOUT STATUS
  1666. UJN PSLX RETURN
  1667. PTE SPACE 4,20
  1668. ** PTE - PROCESS TIMED/EVENT ROLLOUT JOBS.
  1669. *
  1670. * CHECK FOR JOBS HAVING TIMED/EVENT ROLLOUT STATUS.
  1671. * DECREMENT ROLLOUT TIMES OF SUCH JOBS AND SEE IF
  1672. * THEIR EVENTS ARE POSTED YET.
  1673. *
  1674. * ENTRY (AA - AA+4) = *SCHE* WORD OF EJT ENTRY.
  1675. * (BB - BB+4) = *PRFE* WORD OF EJT ENTRY.
  1676. * (EJ - EJ+4) = *JSNE* WORD OF EJT ENTRY.
  1677. * (T7) = NUMBER OF EVENTS IN EVENT TABLE.
  1678. * (PTEA) = BYTE 0 OF *SCLE* WORD OF EJT ENTRY.
  1679. * CURRENT EVENTS SET IN *TEVT*.
  1680. *
  1681. * USES AA+3, AA+4, T1, T2, CM - CM+4.
  1682. *
  1683. * CALLS SRS, IUT.
  1684. *
  1685. * MACROS MONITOR.
  1686.  
  1687.  
  1688. PTE SUBR ENTRY/EXIT
  1689. LDD EJ+4
  1690. LPN 77
  1691. STM SRSA+4 SAVE CURRENT JOB STATUS
  1692. SHN 21-0 CHECK FOR EJT INTERLOCK
  1693. MJN PTEX IF EJT INTERLOCKED
  1694. STD T2 SAVE JOB STATUS
  1695. STM PTEH+4
  1696. LMK PWJS
  1697. NJN PTE1 IF NOT PRE-INITIAL WAIT JOB STATUS
  1698. LDD BB+1
  1699. LMK ORET
  1700. ZJN PTE2 IF OPERATOR OVERRIDE, CHANGE JOB STATUS
  1701. PTE1 LDM TJST,T2
  1702. SHN 21-10
  1703. PJN PTEX IF NOT TIMED/EVENT ROLLOUT STATUS
  1704. LDC * GET SERVICE CLASS
  1705. PTEA EQU *-1 (BYTE 0 OF *SCLE* WORD OF EJT ENTRY)
  1706. LPN 60 MASK FORCED ROLLOUT/ROLLIN BITS
  1707. LMN 20
  1708. STM PTED SET/CLEAR *EATM* REISSUE FLAG
  1709. NJN PTE3 IF NOT FORCED ROLLIN
  1710. PTE2 LJM PTE11 GO CHANGE JOB STATUS AND SET PRIORITY
  1711.  
  1712. PTE3 LDD AA+3
  1713. LPC 777
  1714. LMN EXTM/10000
  1715. STM PTEC SET/CLEAR EXTENDED TIMED ROLLOUT FLAG
  1716. NJN PTE5 IF NOT EXTENDED TIMED ROLLOUT
  1717. SOD AA+4 DECREMENT ROLLOUT TIME (2ND BYTE)
  1718. STM PTEF+4
  1719. ZJN PTE4 IF 2ND BYTE OF ROLLOUT TIME EXHAUSTED
  1720. LDC PTEF+10000*1
  1721. UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY
  1722.  
  1723. PTE4 LCN 0 RESET 2ND BYTE OF ROLLOUT TIME
  1724. STM PTEF+4
  1725. PTE5 LDD AA+2
  1726. LPN 77
  1727. SHN 14
  1728. LMD AA+3
  1729. SHN 10-21
  1730. STM PTED SET/CLEAR EVENT FLAG
  1731. ZJN PTE2 IF ROLLOUT TIME EXPIRED
  1732. SBN 1 DECREMENT COUNTER
  1733. STM PTEE+4
  1734. LDC **
  1735. PTEC EQU *-1 (EXTENDED TIMED/ROLLOUT FLAG)
  1736. NJN PTE6 IF NOT EXTENDED TIMED ROLLOUT
  1737. LDC PTEE+10000*2
  1738. UJN PTE8 GO ISSUE *UTEM* TO UPDATE EJT ENTRY
  1739.  
  1740. PTE6 LDD AA+3 CHECK FOR EVENT
  1741. LPC 777
  1742. STD AA+3
  1743. ADD AA+4
  1744. NJN PTE9 IF EVENT EXISTS
  1745.  
  1746. * EVENT EXISTS BUT HAS NOT BEEN POSTED YET AND ROLLOUT TIME HAS
  1747. * NOT EXPIRED, OR NO EVENT EXISTS AND ROLLOUT TIME HAS NOT
  1748. * EXPIRED. DECREMENT ROLLOUT TIME VIA *UTEM*.
  1749.  
  1750. PTE7 LDC PTEE+10000*1
  1751.  
  1752. * VERIFY AND UPDATE *SCHE* WORD.
  1753.  
  1754. PTE8 STM PTEG PARAMETER ADDRESS
  1755. SHN -14
  1756. LPN 3
  1757. STD T1 SAVE WORD COUNT
  1758. LDD MA MOVE PARAMETER WORDS
  1759. CWM **,T1
  1760. PTEG EQU *-1
  1761. LDD MA
  1762. CRM PTEI,T1
  1763. AOD T1 INCREMENT WORD COUNT
  1764. SHN 14
  1765. ADK PTEH PARAMETER WORDS
  1766. RJM IUT ISSUE *UTEM* FUNCTION
  1767. LJM PTEX CONTINUE EJT SCAN
  1768.  
  1769. * SCAN *TEVT* TABLE TO SEE IF THIS JOB-S EVENT HAS BEEN POSTED.
  1770.  
  1771. PTE9 LDD T7 INITIALIZE INDEX
  1772. SHN 1
  1773. STD T2
  1774. PTE10 LCN 2 DECREMENT INDEX
  1775. RAD T2
  1776. MJN PTE7 IF *TEVT* SCAN COMPLETE, EVENT NOT FOUND
  1777. LDM TEVT,T2
  1778. LMD AA+3
  1779. NJN PTE10 IF NO MATCH
  1780. LDM TEVT+1,T2
  1781. LMD AA+4
  1782. NJN PTE10 IF NO MATCH
  1783.  
  1784. * EVENT WAS FOUND IN *TEVT* OR ROLLOUT TIME HAS EXPIRED.
  1785. * CHANGE JOB STATUS TO *ROJS* IF JOB STATUS WAS *TOJS* OR
  1786. * *ERJS* OR TO *PRJS* IF JOB STATUS WAS *PWJS*. SET PRIORITY
  1787. * TO UPPER BOUND OF SERVICE CLASS.
  1788.  
  1789. PTE11 RJM SRS SET ROLLOUT STATUS AND PRIORITY
  1790. ZJN PTE12 IF FUNCTION ACCEPTED
  1791. LDC **
  1792. PTED EQU *-1 (*EATM* REISSUE FLAG)
  1793. ZJN PTE12 IF ROLLOUT TIME EXPIRED OR FORCED ROLLIN
  1794. LDN 0 SET *EATM* SUBFUNCTION
  1795. STD CM+1
  1796. LDD AA+3 STORE EVENT IN *EATM* CALL
  1797. STD CM+3
  1798. LDD AA+4
  1799. STD CM+4
  1800. MONITOR EATM REISSUE EVENT
  1801. PTE12 LJM PTEX CONTINUE EJT SCAN
  1802.  
  1803.  
  1804. * *UTEM* PARAMETERS FOR DECREMENTING ROLLOUT TIME.
  1805.  
  1806. PTEE VFD 1/0,5/SCHE,6/9D
  1807. VFD 6/21D,6/0
  1808. CON 0
  1809. CON 0
  1810. CON 0
  1811.  
  1812. PTEF VFD 1/0,5/SCHE,6/12D
  1813. VFD 6/0,6/0
  1814. CON 0
  1815. CON 0
  1816. CON 0
  1817.  
  1818. * *UTEM* PARAMETERS FOR VERIFY AND DECREMENT ROLLOUT TIME.
  1819.  
  1820. PTEH VFD 1/1,5/JSNE,6/5
  1821. VFD 6/1,6/0
  1822. CON 0
  1823. CON 0
  1824. CON TOJS
  1825.  
  1826. PTEI BSS 5*2 UPDATE PARAMETER WORDS
  1827. TJST SPACE 4,15
  1828. ** TJST - TABLE OF JOB STATE ATTRIBUTES.
  1829. * ENTRY = 1 WORD.
  1830. * INDEXED BY JOB STATUS.
  1831. *
  1832. *T 1/ SS, 1/ ES, 1/ FR, 1/ TE, 1/ PI
  1833. * SS SET IF SCHEDULABLE JOB STATE.
  1834. * ES SET IF SCHEDULABLE JOB STATE WHEN ERROR FLAG IS SET.
  1835. * FR SET IF JOB IN THIS STATE MAY BE FORCED ROLLED IN.
  1836. * TE SET IF TIMED/EVENT TYPE JOB STATE.
  1837. * PI SET IF PRE-INITIAL TYPE JOB STATE.
  1838. *
  1839. * NOTE - ANY CHANGES TO THIS TABLE MUST BE COUPLED WITH
  1840. * CORRESPONDING CHANGES TO THE *TJST* TABLE IN *1SJ*.
  1841.  
  1842. TJST JOBSTAT
  1843. JOBSTAT PRJS,SS,ES,FR,,PI
  1844. JOBSTAT EXJS
  1845. JOBSTAT ROJS,SS,ES,FR
  1846. JOBSTAT SIJS,SS,ES,FR
  1847. JOBSTAT SOJS,,ES,FR
  1848. JOBSTAT TOJS,,ES,,TE
  1849. JOBSTAT IOJS
  1850. JOBSTAT DOJS
  1851. JOBSTAT SUJS,,ES
  1852. JOBSTAT PCJS,SS,ES,FR
  1853. JOBSTAT ERJS,,,FR,TE
  1854. JOBSTAT NVJS
  1855. JOBSTAT PWJS,,,,TE,PI
  1856. JOBSTAT SWJS,,ES
  1857.  
  1858. INDEX MXJS TERMINATE TABLE
  1859. RTE SPACE 4,10
  1860. ** RTE - READ TABLE OF EVENTS.
  1861. *
  1862. * EXIT EVENTS READ INTO *TEVT* TWO BYTES PER EVENT.
  1863. * EVENT COUNT IN EVT TABLE CLEARED.
  1864. * (T7) = NUMBER OF EVENTS.
  1865. *
  1866. * USES AA - AA+4, CM - CM+4, T1 - T7.
  1867. *
  1868. * MACROS MONITOR.
  1869.  
  1870.  
  1871. RTE SUBR ENTRY/EXIT
  1872. LDK ZERL
  1873. CRD AA
  1874. ADK EVTP-ZERL GET EVENT TABLE POINTER
  1875. CRD T1
  1876. CRD T1+2
  1877. LDN /CPS/SEIS SET EVENT TABLE INTERLOCK
  1878. STD CM+1
  1879. MONITOR EATM
  1880. LDD CM+1 SAVE NUMBER OF EVENTS
  1881. STD T7
  1882. ZJN RTE2 IF NO EVENTS
  1883. SOD CM+1
  1884. RTE1 LDD T1 GET TABLE ADDRESS
  1885. SHN 14
  1886. LMD T1+1
  1887. CRM TEVT,ON
  1888. RTEA EQU *-1 (ADDRESS INCREMENTED IN LOOP)
  1889. STD T1+1
  1890. SHN -14
  1891. STD T1
  1892. LDN 4 INCREMENT *TEVT* ADDRESS
  1893. RAM RTEA
  1894. LCN 2
  1895. RAD CM+1
  1896. PJN RTE1 IF NOT END OF EVENTS
  1897. RTE2 LDD T1+2 CLEAR COUNT AND INTERLOCK
  1898. SHN 14
  1899. LMD T1+2+1
  1900. CWD AA
  1901. LJM RTEX RETURN
  1902. SME SPACE 4,15
  1903. ** SME - SCAN MST ERROR COUNTS.
  1904. *
  1905. * ENTRY (T8) = EQUIPMENT EST ORDINAL TO CHECK.
  1906. * (EJ - EJ+4) = EQDE WORD OF EST ENTRY.
  1907. *
  1908. * EXIT IF A RECOVERED OR UNRECOVERED ERROR COUNT IN THE MST
  1909. * IS GREATER THAN OR EQUAL TO THE APPROPRIATE DEVICE
  1910. * TYPE THRESHOLD, AN *ERRLOG ALERT* SYSTEM EVENT AND
  1911. * A CORRESPONDING ERRLOG MESSAGE ARE ISSUED.
  1912. *
  1913. * USES BB - BB+4, CM - CM+4.
  1914. *
  1915. * CALLS C2D, DFM.
  1916. *
  1917. * MACROS MONITOR.
  1918.  
  1919.  
  1920. SME SUBR ENTRY/EXIT
  1921. LDD EJ+4 READ MST WORD
  1922. SHN 3
  1923. ADN THLL
  1924. CRD BB
  1925. ADN CTLL-THLL
  1926. CRD CM
  1927. LDD CM+4
  1928. SHN 0-13
  1929. NJN SME1 IF CONDITION ALREADY PROCESSED
  1930. LDD CM+4 CHECK UNRECOVERED ERROR COUNT
  1931. SBD BB+4
  1932. MJN SME1 IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD
  1933. LDC 2R U
  1934. STM SMEA+3
  1935. LDC 2RNR
  1936. STM SMEA+4
  1937. LDN 11D
  1938. UJN SME3 PROCESS THRESHOLD ERROR
  1939.  
  1940. SME1 LDD CM+3
  1941. SHN 0-13
  1942. SME2 NJN SMEX IF CONDITION ALREADY PROCESSED
  1943. LDD CM+3 CHECK RECOVERED ERROR COUNT
  1944. SBD BB+3
  1945. MJN SMEX IF COUNT DOES NOT EQUAL/EXCEED THRESHOLD
  1946. LDN 23D
  1947. SME3 SHN 6 SET BIT POSITION
  1948. STM SMEB+1 SAVE BIT POSITION
  1949. LMC 11D*100
  1950. ZJN SME4 IF UNRECOVERED COUNT EXCEEDED
  1951. LDC 2R R
  1952. STM SMEA+4
  1953. ADN 1R -1RR
  1954. STM SMEA+3
  1955. SME4 LDN ZERL
  1956. CRD CM
  1957. LDN ELAE
  1958. STD CM+4
  1959. MONITOR EATM
  1960. LDD CM+1
  1961. NJN SME2 IF EVENT NOT ENTERED
  1962. LDD T8 SET EST ORDINAL IN MESSAGE
  1963. SHN -3
  1964. RJM C2D CONVERT TO DISPLAY CODE
  1965. STM SMEA+1
  1966. LDD T8 SET EST ORDINAL IN MESSAGE
  1967. LPN 7
  1968. SHN 6
  1969. ADC 2R0,
  1970. STM SMEA+2
  1971. LDD EJ+3 SET EQUIPMENT TYPE IN MESSAGE
  1972. LPC 3777
  1973. STM SMEA
  1974. LDC SMEA+ERLN ISSUE ERRLOG MESSAGE
  1975. RJM DFM
  1976. LDN ZERL SET *1SJ* PROCESSED BIT
  1977. CRD CM
  1978. LDN 1 SET NUMBER OF REQUESTS
  1979. STD CM+1
  1980. LDD EJ+4 SET MST ADDRESS
  1981. SHN 3
  1982. STD CM+4
  1983. SHN -14
  1984. STD CM+3
  1985. LDD MA
  1986. CWM SMEB,ON
  1987. MONITOR UTEM
  1988. LJM SMEX RETURN
  1989.  
  1990.  
  1991. SMEA DATA C*XXYYY, UNRECOVERED ERROR LIMIT EXCEEDED.*
  1992. SMEB VFD 1/0,5/CTLL,6/1,6/11D,42/1
  1993. SRS SPACE 4,10
  1994. ** SRS - SET ROLLOUT STATUS.
  1995. *
  1996. * ENTRY (SC) = SERVICE CLASS.
  1997. * (SRSA+4) = JOB STATUS OF SELECTED ENTRY.
  1998. *
  1999. * EXIT (A) = 0, IF *UTEM* CALL COMPLETED.
  2000. * .NE. 0, IF *UTEM* ABORTED.
  2001. * USES T1.
  2002. *
  2003. * CALLS CET, IUT.
  2004.  
  2005.  
  2006. SRS SUBR ENTRY/EXIT
  2007. LDM TEPB+2*MXJC,SC SET UP *CET* PARAMETERS
  2008. STD T1
  2009. LDD SC
  2010. SHN 14
  2011. LMN EXQT
  2012. RJM CET CALCULATE ENTRY TIME
  2013. LDD T1 PLACE ENTRY TIME IN *UTEM* PARAMETER BLOCK
  2014. STM SRSA+2*5+3
  2015. LDD T2
  2016. STM SRSA+2*5+4
  2017. LDD EJ+4 CHECK FOR *PWJS* STATUS
  2018. LPN 76
  2019. LMK PWJS*2
  2020. ZJN SRS1 IF SHOULD CHANGE *PWJS* TO *PRJS*
  2021. LDK ROJS&PRJS SET *ROJS* STATUS FOR *ERJS* OR *TOJS*
  2022. SRS1 LMK PRJS
  2023. STM SRSA+1*5+4
  2024. LDC SRSA+SRSAL*10000
  2025. RJM IUT ISSUE *UTEM*
  2026. LJM SRSX RETURN
  2027.  
  2028.  
  2029. * *UTEM* PARAMETERS FOR CHANGING JOB STATUS AND SETTING
  2030. * SCHEDULING PRIORITY TO UPPER BOUND.
  2031.  
  2032. SRSA VFD 1/1,5/JSNE,6/6 VALIDATE JOB STATUS UNCHANGED
  2033. VFD 6/0,6/0
  2034. CON 0
  2035. CON 0
  2036. CON 0
  2037.  
  2038. VFD 1/0,5/JSNE,6/5 SET JOB STATUS
  2039. VFD 6/1,6/0
  2040. CON 0
  2041. CON 0
  2042. CON ROJS
  2043.  
  2044. VFD 1/0,5/SCHE,6/30D SET SCHEDULING PRIORITY
  2045. VFD 6/0,6/0
  2046. CON 0
  2047. CON 0
  2048. CON 0
  2049.  
  2050. SRSAL EQU */5-SRSA/5 BLOCK LENGTH
  2051. SSA SPACE 4,10
  2052. ** SSA - SET STATISTICAL AREA ADDRESS.
  2053. *
  2054. * EXIT (A) = ADDRESS OF PERIODIC PROCESSOR STATISTICS AREA.
  2055. *
  2056. * USES CM - CM+4.
  2057.  
  2058.  
  2059. SSA SUBR ENTRY/EXIT
  2060. LDK SDAP READ STATISTICAL DATA AREA POINTER
  2061. CRD CM
  2062. LDD CM
  2063. SHN 14
  2064. LMD CM+1
  2065. ADK PF0S
  2066. UJN SSAX EXIT
  2067. SPACE 4,10
  2068. * COMMON DECKS.
  2069.  
  2070.  
  2071. *CALL COMPAST
  2072. CET$ SET 1 ASSEMBLE ROUTINE *CET* OF *COMPCPE*
  2073. *CALL COMPCPE
  2074. JCB$ EQU 1 SET *JCB* ACCESS
  2075. IFP$ EQU 1 GENERATE *IFP* REMOTE CODE
  2076. *CALL COMPGFP
  2077. *CALL COMPC2D
  2078. *CALL COMPRJC
  2079. SLBS EQU /CPS/SLBS
  2080. *CALL COMPTLB
  2081. *CALL COMPSEI
  2082. TABLES SPACE 4,10
  2083. USE TABLES
  2084.  
  2085. ** TEVT - POSTED EVENTS.
  2086. * ENTRY = 2 WORDS.
  2087. *
  2088. *T 24/ EV
  2089. * EV POSTED EVENT OBTAINED FROM EVT TABLE.
  2090.  
  2091.  
  2092. TEVT EQU *
  2093. TEVTE EQU 2 ENTRY LENGTH
  2094. TABLES SPACE 4,10
  2095. ** TOVF - ACCUMULATOR OVERFLOW FLAGS.
  2096. * ENTRY = 1 WORD.
  2097. * INDEXED BY CONTROL POINT NUMBER.
  2098. *
  2099. *T 12/ OF
  2100. * OF OVERFLOW FLAGS FROM *SRUW*.
  2101.  
  2102.  
  2103. TOVF EQU TEVT+TEVTE*MEVC
  2104. TOVFE EQU 1 ENTRY LENGTH
  2105. SPACE 4,10
  2106. P0AU EQU TOVF+/DSL/NCPS*TOVFE *0AU* PARAMETER BLOCK
  2107. OVL0 EQU P0AU+12+5 *0AU* ORIGIN
  2108. ERRPL *+ZAUL-EPFW CODE OVERLAYS ERROR PROCESSING BUFFER
  2109. TITLE INITIALIZATION.
  2110. PRS SPACE 4,10
  2111. ** PRS - PRESET.
  2112. *
  2113. * USES CF, NC, PN, T1, CM - CM+4, AA - AA+4, BB - BB+4,
  2114. * EJ - EJ+4, TM - TM+4.
  2115. *
  2116. * CALLS IFP.
  2117. *
  2118. * MACROS ISTORE, SFA.
  2119.  
  2120.  
  2121. PRS SUBR ENTRY/EXIT
  2122. LDK PCPP SET FWA OF PCPA-S
  2123. CRD CM
  2124. LDD CM+3
  2125. SHN 14
  2126. LMD CM+4
  2127. SBK 200B
  2128. STM CCAA+1
  2129. SHN -14
  2130. LMC ADCI
  2131. STM CCAA
  2132. LDD CM+2 SET NUMBER OF MCT ENTRIES
  2133. ERRNZ MCTP-PCPP CODE DEPENDS ON VALUE
  2134. STD PN
  2135. RJM IFP INITIALIZE TABLE ACCESS
  2136. LDN SSTL GET USER ECS FLAG
  2137. CRD AA
  2138. ADK EJTP-SSTL PRESET EJT FWA
  2139. CRD CM
  2140. ADK RTCL-EJTP READ REAL TIME CLOCK
  2141. CRD TM
  2142. ADK INWL-RTCL READ SCHEDULER CONTROL FLAGS
  2143. CRD BB
  2144. LDD BB+3
  2145. STD CF SAVE SCHEDULER CONTROL FLAGS
  2146. LPN 2
  2147. ZJN PRS0 IF *AUTO* HAS BEEN ENTERED
  2148. LDC TCPP+C1CK+1 DISABLE ALL PP CALLS BUT *1CK*
  2149. STM CPPC
  2150. PRS0 LDD CM+1 SET EJT FWA
  2151. STM EJAA
  2152. STM SEJB
  2153. LDD CM
  2154. RAM EJAA-1
  2155. STM SEJB-1
  2156. LDD CM+2 SET START OF EJT SCAN
  2157. STM SEJA
  2158. LDD CP SET NUMBER OF CONTROL POINTS
  2159. SHN -7
  2160. STD NC
  2161. LDD AA
  2162. SHN 21-5
  2163. MJN PRS1 IF USER ECS IS DISABLED
  2164. ISTORE PCAA,(UJN PCA13) DISABLE USER ECS CHECK
  2165.  
  2166. * BUILD *TEPB*, *TJAM* TABLES.
  2167.  
  2168. PRS1 LDN MXJC-1 INITIALIZE INDEX
  2169. STD T1
  2170. PRS2 SFA JCB SET JCB ADDRESS
  2171. ADN EXQT READ *EXQT* WORD OF JCB
  2172. CRD AA
  2173. ADN MCMT-EXQT READ *MCMT* WORD OF JCB
  2174. CRD BB
  2175. ADN MECT-MCMT READ *MECT* WORD OF JCB
  2176. CRD EJ
  2177. LDD AA
  2178. STM TEPB,T1
  2179. LDD AA+1
  2180. STM TEPB+1*MXJC,T1
  2181. LDD AA+2
  2182. STM TEPB+2*MXJC,T1
  2183. LDD BB
  2184. STM TEPB+3*MXJC,T1
  2185. LDD BB+2
  2186. STM TJAM,T1
  2187. LDD EJ+2
  2188. STM TJAM+1*MXJC,T1
  2189. SOD T1 DECREMENT JCB INDEX
  2190. PJN PRS2 IF NOT ALL JCB-S HAVE BEEN PROCESSED
  2191. UJP PRSX RETURN
  2192.  
  2193.  
  2194. IFP HERE ASSEMBLE *COMPGFP* REMOTE CODE
  2195. SPACE 4,10
  2196. * OVERFLOW CHECKS.
  2197.  
  2198. OVERFLOW PPFW,EPFW
  2199. TABLES SPACE 4,10
  2200. ** TEPB - EJT/CP SCHEDULING PARAMETERS.
  2201. * ENTRY = 4 WORDS.
  2202. * INDEXED BY SERVICE CLASS.
  2203. *
  2204. *T 12/ IL,12/ LB,12/ UB,12/ CS
  2205. * IL LOWER BOUND SCHEDULING PRIORITY USED FOR INITIAL CM
  2206. * SLICE.
  2207. * LB LOWER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
  2208. * UB UPPER BOUND SCHEDULING PRIORITY OF EXECUTING JOBS.
  2209. * CS CONTROL POINT SLICE PRIORITY.
  2210.  
  2211.  
  2212. TEPB EQU *
  2213. TEPBE EQU 4 ENTRY LENGTH
  2214. TABLES SPACE 4,10
  2215. ** TJAM - SERVICE CLASS RESOURCE CONSTRAINTS.
  2216. * ENTRY = 2 WORDS.
  2217. * INDEXED BY SERVICE CLASS.
  2218. *
  2219. *T 12/ MCJ,12/ MEJ
  2220. * MCJ MAXIMUM CM FL/100B PER JOB OF SERVICE CLASS.
  2221. * MEJ MAXIMUM ECS FL/100B PER JOB OF SERVICE CLASS.
  2222.  
  2223.  
  2224. TJAM EQU TEPB+TEPBE*MXJC
  2225. TJAME EQU 2 ENTRY LENGTH
  2226. SPACE 4,10
  2227. ERRPL TJAM+TJAME*MXJC-EPFW *TJAM* OVERFLOWS PP
  2228.  
  2229. QUAL
  2230. TTL 1PP - PERIODIC FUNCTION PROCESSOR.
  2231. SPACE 4,10
  2232. END