|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/3 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/3 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 21590 (0x5456)
Types: s3xseg
Names: »S$EDSM«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$EDSM«
MACRO 00010000
$EDSM &NP-Y,&NC-Y,&RB-N,&SP-N 00020000
TEXT 00030000
AIF (&NP EQ 'N').TNC 00040000
********************************************************************** 00050000
* * 00060000
* COMMUNICATIONS AREA FOR A PROGRAM LEVEL * 00070000
* * 00080000
********************************************************************** 00090000
* START OF TASK CONTROL BLOCK 00100000
TCBB EQU 0 * 00110000
TCBNXT EQU TCBB+1 2 @ OF NEXT TCB ON QUEUE 00120000
TCBPRI EQU TCBNXT+1 1 TASK PRIORITY 00130000
TCBID EQU TCBPRI+1 1 TASK ID 00140000
SPACE 00150000
**************************************************************** 00160000
* * 00170000
* NAME, PRIORITY AND ID OF THE SYSTEM TCBS: * 00180000
* * 00190000
* NAME........ PRIORITY... ID.*.. * 00200000
* CONSOLE MANAGEMENT TASK F0 10 * 00210000
* SYSTEM ERROR TASK E0 20 * 00220000
* SPOOL SUPPORT TASK D0 30 * 00230000
* SPOOL TASK CE 32 * 00240000
* PROGRAM LEVEL 2 TASK C0 40 * 00250000
* PROGRAM LEVEL 1 TASK 60 A0 * 00260000
* SYSTEM WAIT TASK 01 FF * 00270000
* * 00280000
* *-ID CHARACTERS 'A-Z' AND '0-9' ARE RESERVED FOR CCP TASKS * 00290000
**************************************************************** 00300000
SPACE 00310000
TCBFG1 EQU TCBID+1 1 FLAG BITS 00320000
* X'80'-CCP TASK 00330000
* X'40'-NON-CANCELABLE SYSTEM TASK00340000
* X'08'-3 OPTION ONLY HALT PENDING00350000
* X'04'-CANCEL NOT ALLOWED 00360000
* X'02'-CANCEL DEFERRED 00370000
* X'01'-EOJ IN PROCESS 00380000
SPACE 00390000
TCBFG2 EQU TCBFG1+1 1 FLAG BITS 00400000
* X'01'-ATT LOAD REQUESTED 00410000
SPACE 00420000
TCBDS1 EQU TCBFG2+1 1 DISPATCHABILITY BITS 00430000
* X'80'-NON-DISPATCHABLE 00440000
* X'40'-SUSPENDED BY CCP 00450000
* X'20'-CCP TERMINATE IN PROGRESS 00460000
* X'02'-WAITING FOR RESOURCES 00470000
* X'01'-WAITING FOR CORE 00480000
SPACE 00490000
TCBDS2 EQU TCBDS1+1 1 DISPATCHABILITY BITS 00500000
EJECT 00510000
******************** PROGRAM REQUEST BLOCK ************************* 00520000
TCBRBP EQU TCBDS2+2 2 @ OF ACTIVE REQUEST BLOCK 00530000
TCBRBF EQU TCBRBP+2 2 REQUEST BLOCK FLAGS 00540000
TCBTCB EQU TCBRBF+2 2 @ OF ASSOCIATED TCB 00550000
TCBIAR EQU TCBTCB+2 2 PROGRAM LEVEL IAR 00560000
TCBPMR EQU TCBIAR+2 2 PROGRAM LEVEL PMR 00570000
TCBPSR EQU TCBPMR+2 2 PROGRAM LEVEL PSR 00580000
TCBXR2 EQU TCBPSR+2 2 PROGRAM LEVEL XR2 00590000
TCBXR1 EQU TCBXR2+2 2 PROGRAM LEVEL XR1 00600000
TCBARR EQU TCBXR1+2 2 PROGRAM LEVEL ARR 00610000
SPACE 00620000
* END OF WAIT TASK TCB 00630000
SPACE 00640000
TCBCSN EQU TCBARR+3 3 C/S/N FOR PROGRAM 00650000
TCBRIB EQU TCBCSN+1 1 RIB VALUE 00660000
TCBRSV EQU TCBRIB+1 1 RIB SAVE AREA 00670000
TCBRS1 EQU TCBRSV+6 6 RESERVED 00680000
******************** END OF PROGRAM REQUEST BLOCK ****************** 00690000
SPACE 00700000
TCBMAP EQU TCBRS1+2 2 @ OF CORE MAP FOR ASSIGN/FREE00710000
TCBTIM EQU TCBMAP+2 2 @ OF TIMER QUEUE ELEMENT 00720000
TCBEJE EQU TCBTIM+2 2 EOJ EXIT @ 00730000
TCBEJC EQU TCBEJE+1 1 EOJ COMPLETION CODE 00740000
* X'80'-DUMP REQUESTED 00750000
* |--- X'40'-SECONDARY CODE SPECIFIED 00760000
* USER CODES | X'20'-HALT/SYSLOG(2,3 OPTION) 00770000
* |--- X'10'-OCC CANCEL 00780000
* 00790000
* |--- X'08'-SECONDARY CODE SPECIFIED 00800000
* SYSTEM CODES | X'04'-RESERVED 00810000
* | X'02'-INSUFFICIENT CORE STORAGE 00820000
* |--- X'01'-PROGRAM CHECK 00830000
* X'00'-NORMAL COMPLETION 00840000
SPACE 00850000
TCBEJS EQU TCBEJC+1 1 EOJ SECONDARY COMPLETION CODE00860000
* - SYSTEM SECONDARY CODES - 00870000
* X'01'-INVALID ENQU SVC 00880000
* X'02'-INVALID DEQU SVC 00890000
* X'03'-I/O PROTECT VIOLATION 00900000
* X'04'-LOADING BELOW NPBEG 00910000
* X'05'-LOADING ABOVE NPEND 00920000
* X'06'-INVALID SETON/SETOF SVC 00930000
* X'07'-EXIO TO INVALID DEVICE 00940000
SPACE 00950000
TCBRTC EQU TCBEJS+2 2 @ OF RELATED TCB FOR SPOOL 00960000
TCBATT EQU TCBRTC+32 32 ATT SAVE AREA 00970000
* BYTES 25 THRU 32 OF THE ATT SAVE AREA ARE DEFINED AS FOLLOWS: 00980000
TCBHAV EQU TCBATT-7 1 RESOURCE(S) OWNED 00990000
* X'01'-SCHEDULER INTERLOCK 01000000
* X'02'-SPOOL FILE INTERLOCK 01010000
* X'04'-SYSLOG BUFFER INTERLOCK 01020000
SPACE 01030000
TCBRS3 EQU TCBATT-4 3 RESERVED 01040000
TCBPCA EQU TCBATT-2 2 PROG CHECK ADDRESS REG 01050000
TCBPCS EQU TCBATT 2 PROG CHECK STATUS REG 01060000
EJECT 01070000
* START OF PROGRAM LEVEL COMM AREA 01080000
NPPRTZ EQU TCBATT+1 1 PRINTER SIZE 01090000
NPLPSZ EQU NPPRTZ+1 1 LEFT TRACTOR PAGE SIZE 01100000
NPRPSZ EQU NPLPSZ+1 1 RIGHT TRACTOR PAGE SIZE 01110000
NPHALT EQU NPRPSZ+1 1 HALT/SYSLOG 01120000
* X'08'-NO HALT DISPLAY 01130000
* OFF-YES 01140000
* ON-NO 01150000
* X'04'-DEFAULT MODE 01160000
* X'03'- 01170000
* 00-0 OPTION => SEVERITY=1 01180000
* 01-1 OPTION => SEVERITY=2 01190000
* 10-2 OPTION => SEVERITY=4 01200000
* 11-3 OPTION => SEVERITY=8 01210000
SPACE 01220000
NPJOB EQU NPHALT+8 8 JOB NAME 01230000
NPSTEP EQU NPJOB+8 8 STEP NAME 01240000
NPNAME EQU NPSTEP+6 6 PROGRAM NAME 01250000
NPSPCM EQU NPNAME+2 2 @ OF SPOOL COMM RELATED TO TA01260000
NPEOJ EQU NPSPCM+1 1 END OF JOB BYTE 01270000
* X'80'-RJE ACTIVE/RETURN TO NPBEG01280000
* X'40'-NO IPL DISK ERRORS 01290000
* X'20'-LIB MAINT BIT 01300000
* X'10'-OCC DUMP TAKEN 01310000
* X'08'-QUIESCE IN PROCESS AT EJ 01320000
* X'01'-DO NOT CLOSE DTFS AT EOJ 01330000
SPACE 01340000
NPEOJ@ EQU TCBEJE END OF JOB RETURN @ 01350000
NPSPOL EQU NPEOJ+1 1 RESERVED FOR SPOOL 01360000
* X'80'-TRAPPING I/O REQUEST 01370000
* X'40'-SPOOL SUPPORTED THIS LEVEL01380000
* X'20'-ON - END-OF-JOB 01390000
* OFF - END-OF-STEP 01400000
* X'10'-START SPOOL REQUESTED 01410000
* X'08'-STOP SPOOL REQUESTED 01420000
SPACE 01430000
NPDTF@ EQU NPSPOL+2 2 @ OF LAST OPENED DTF 01440000
NPBEG EQU NPDTF@+3 3 REAL PROGRAM BEGIN @ 01450000
NPEND EQU NPBEG+3 3 REAL PROGRAM END @ 01460000
NPBEGL EQU NPEND+2 2 LOGICAL PROGRAM BEGIN @ 01470000
NPRLF EQU NPBEGL+2 2 PROGRAM RELOCATION FACTOR 01480000
NPCYL EQU NPRLF+2 2 C/S OF FIRST LOAD (OVERLAYS) 01490000
NPOLIB EQU NPCYL+2 2 C/S OF PROG OBJ LIB 01500000
NPORLF EQU NPOLIB+2 2 OVERLAY RELOCATION FACTOR 01510000
NPTXT EQU NPORLF+2 2 OVERLAY TEXT @ 01520000
* END OF SPOOL SUPPORT COMMON AREA 01530000
AIF (&SP EQ 'Y').TNC 01540000
NPQ EQU NPTXT+1 1 PROGRAM Q BYTE 01550000
NPUPSI EQU NPQ+1 1 UPSI SWITCH 01560000
NPATTR EQU NPUPSI+1 1 PROGRAM ATTRIBUTE BYTES 01570000
* X'80'-DEDICATED PROGRAM RUNNING 01580000
NPDATE EQU NPATTR+6 6 PROGRAM DATE 01590000
NPSTP# EQU NPDATE+1 1 STEPNAME COUNTER 01600000
NPSYSI EQU NPSTP#+3 3 SYSIN INDICATOR 01610000
* C/S/DEVICE INFO 01620000
* X'01'-MFCU1 01630000
* X'02'-MFCU2 01640000
* X'83'-MFCM1 - 01650000
* X'84'-MFCM2 - 8X-80 COL 01660000
* X'85'-1442 - DEVICES 01670000
* X'86'-2501 - 01680000
* X'10'-CONSOLE/KYBD 01690000
* X'20'-RESERVED 01700000
* X'21'-RESERVED 01710000
SPACE 01720000
NPSCH1 EQU NPSYSI+1 1 READER/INTERPRETER SWITCHES 01730000
* X'80'-// DATE RECEIVED(INTRA) 01740000
* X'40'-// COMPILE RECEIVED 01750000
* X'20'-// SWITCH RECEIVED 01760000
* X'10'-PROCEDURE 01770000
* X'08'-OVERRIDE 01780000
* X'04'-INTRA STEP MODE 01790000
* X'02'-INTER STEP MODE 01800000
* X'01'-IPL MODE 01810000
SPACE 01820000
NPSCH2 EQU NPSCH1+1 1 SCHEDULER SWITCHES 01830000
* X'80'-CONTINUATION 01840000
* X'40'-UTIL CTL CARDS IN JSWA 01850000
* X'20'-SLASH AMPERSAND READ 01860000
* X'10'-FILE STMT RECEIVED 01870000
* X'08'-EOS HALT INDICATOR 01880000
* ON-ISSUE EOS MESSAGE 01890000
* OFF-DON'T ISSUE EOS MSG 01900000
* X'04'-FLUSH 01910000
* X'02'-IMMEDIATE CANCEL 01920000
* X'01'-CONTROLLED CANCEL 01930000
SPACE 01940000
NPSCH3 EQU NPSCH2+1 1 SCHEDULER SWITCHES 01950000
* X'80'-TAG SORT REQUIRED(5444) 01960000
* X'40'-AVAILABLE 01970000
* X'20'-SOURCE REQUIRED 01980000
* X'10'-LOG STATUS 01990000
* ON-LOG TO CRT 02000000
* OFF-LOG TO 3284 OR 1403 02010000
* X'08'-MVF FILE ALLOCATED 02020000
* X'04'-ADDITIONAL PROC STMT 02030000
* X'02'-1ST 'LOAD/RUN'JOB READ 02040000
* X'01'-PGM LEVEL 02050000
* OFF-LEVEL 1 02060000
* ON-LEVEL 2 02070000
SPACE 02080000
NPLEVL EQU NPSCH3 02090000
NPOBJQ EQU NPSCH3+1 1 OBJECT DECK OUTPUT Q 02100000
NPBPSD EQU NPOBJQ+1 1 AVAIL STATUS OF SYSIN DEVICES02110000
* X'80'-MFCU 02120000
* X'40'-MFCM 02130000
* X'20'-1442 02140000
* X'10'-2501 02150000
* X'08'-CRT 02160000
* X'04'-RESERVED 02170000
* X'02'-RESERVED 02180000
* X'01'-NESTED PROCEDURE 02190000
SPACE 02200000
NPSCH4 EQU NPBPSD+1 1 SCHEDULER SWITCHES 02210000
* X'80'-OPERATION BIT 02220000
* X'40'-// IMAGE RECEIVED 02230000
* X'20'-// PRINTER RECEIVED 02240000
* X'10'-F1 NEEDED FOR ALLOC 02250000
* X'08'-R1 NEEDED FOR ALLOC 02260000
* X'04'-F2 NEEDED FOR ALLOC 02270000
* X'02'-R2 NEEDED FOR ALLOC 02280000
* -TAPE DTFS ENCOUNTERED IN 02290000
* RESOURCE ALLOCATE 02300000
* X'01'-EOJ SCHED BIT 02310000
SPACE 02320000
NPSCH5 EQU NPSCH4+1 1 SCHED SWITCHES 02330000
* X'80'-ROLL-IN PENDING 02340000
* X'40'-ROLL-OUT REQUESTED 02350000
* X'20'-ROLL-OUT HANDLED 02360000
* X'10'-I-TYPE PROGRAM EXECUTING 02370000
* X'08'-RESERVED FOR CCP 02380000
* X'04'-TAPE FILE CARD REC'D 02390000
* X'02'-CORE ROLLED OUT 02400000
* X'01'-UNIT RECORD INDICATOR FOR 02410000
* INQUIRY 02420000
SPACE 02430000
NPSCH6 EQU NPSCH5+1 1 SCHEDULER SWITCHES 02440000
* X'80'-LOAD * RUNNING THIS LEVEL 02450000
* X'40'-TEMP END-OF-STEP HALT 02460000
* ON-ISSUE EOS MESSAGE 02470000
* OFF-DON'T ISSUE EOS MSG 02480000
* X'20'-CHANGE LINE 1 TO 2 02490000
* X'10'-CHANGE LINE 2 TO 1 02500000
* X'08'-MFCU FILE PREV OPENED 02510000
* X'04'-/. READ 02520000
* X'02'-PROCESSING MODE 02530000
* ON-JOB MODE 02540000
* OFF-STEP MODE 02550000
* X'01'-MFCU FILE PREV OPENED 02560000
SPACE 02570000
NPSCH7 EQU NPSCH6+1 1 SCHED SWITCHES 02580000
* X'80'-JOB CARD REC'D 02590000
* X'40'-RUN CARD REC'D 02600000
* X'20'-READ-AHEAD DONE 02610000
* X'10'-EJ TO BE HANDLED 02620000
* X'08'-FLUSH IS COMPLETE 02630000
* X'04'-DO NOT HALT IF ERROR 02640000
* X'02'-FLUSH FROM 3 OPTION 02650000
* X'01'-FLUSH FROM 2 OPTION 02660000
SPACE 02670000
NPSCH8 EQU NPSCH7+1 1 SCHED SWITCHES 02680000
* X'80'-TAG SORT FOR 5445 02690000
* X'40'-CONSOLE IN USE BY DM 02700000
* X'20'-VALID FILES CARDS REC'D 02710000
* X'10'-SHARED I/O PROGRAM 02720000
* X'08'-I OR B TYPE PROGRAM 02730000
* X'04'-ALLOCATE UNSUCCESSFUL 02740000
* X'02'-MAXIMUM REQUEST MET 02750000
* X'01'-MINIMUM REQUEST MET 02760000
SPACE 02770000
NPSCH9 EQU NPSCH8+1 1 DISK LOG UNIT ID FOR EOJ/ 02780000
* DEALLOCATE 02790000
NPSCHA EQU NPSCH9+1 1 SCHEDULER SWITCHES 02800000
* X'80'-INAT TO INDS F1 SORT CON 02810000
* X'40'-SPLIT CYLINDER SUB ALLOC 02820000
* X'20'-CALL TAPE DLOG AT EJ 02830000
* X'10'-RESERVED 02840000
* X'08'-ACTIVE FILE ON T1 02850000
* X'04'-ACTIVE FILE ON T2 02860000
* X'02'-ACTIVE FILE ON T3 02870000
* X'01'-ACTIVE FILE ON T4 02880000
SPACE 02890000
NPSCHB EQU NPSCHA+1 1 SCHEDULER BYTE 02900000
* X'80'-CHECKPOINT PGM EXECUTING 02910000
* X'40'-5445 FILE CARD PRESENT 02920000
* X'20'-DEFERRED ALLOCATE REQUEST 02930000
* X'10'-DISK DTFS ENCOUNTERED IN 02940000
* RESOURCE ALLOCATE 02950000
* X'08'-NEW FILE ALLOCATED ON D1 02960000
* X'04'-NEW FILE ALLOCATED ON D2 02970000
* X'02'-NEW FILE ALLOCATED ON D3 02980000
* X'01'-NEW FILE ALLOCATED ON D4 02990000
SPACE 03000000
NPMANT EQU NPSCHB+1 1 LIBRARY MAINTENANCE 03010000
* X'80'-SYSPUNCH INDICATOR 03020000
* X'40'-RUN $$OXRF ON R1 03030000
* X'20'-RUN $$OXRF ON F1 03040000
* X'10'-RUN $$OXRF ON R2 03050000
* X'08'-RUN $$OXRF ON F2 03060000
* X'04'-CONTROL CARD FOUND 03070000
* X'02'-UNUSED 03080000
* X'01'-PICKEREL RUNNING THIS LVL 03090000
SPACE 03100000
NPSRAA EQU NPMANT+2 2 @ OF SCHED READ-AHEAD AREA 03110000
NPMPFL EQU NPSRAA+1 1 MATRIX PRINTER FORMS LENGTH 03120000
NPLNK@ EQU NPMPFL+1 1 LEFT BYTE OF LKED START @ 03130000
SPACE 03140000
NPUNCH EQU NPLNK@+1 1 SYSPUNCH ID 03150000
* X'01'-MFCU1 03160000
* X'02'-MFCU2 03170000
* X'81'-1442 03180000
* X'82'-MFCM1 8X-80 COL DEVICE 03190000
* X'84'-MFCM2 03200000
SPACE 03210000
NPSYSP EQU NPUNCH+1 1 SYSPRINT ID 03220000
* X'01'-1403 03230000
* X'02'-3284 03240000
SPACE 03250000
NPUTIL EQU NPSYSP+1 1 UTILITY INTERLOCK 03260000
* X'80'-X'08'-F2 . ALLOCATED 03270000
* X'40'-X'04'-R2 . OR 03280000
* X'20'-X'02'-F1 . IN 03290000
* X'10',X'01'-R1 . USE 03300000
SPACE 03310000
NPUTL1 EQU NPUTIL+1 1 TAPE INTERLOCK 03320000
* X'80'-T1 IN USE 03330000
* X'40'-T2 IN USE 03340000
* X'20'-T3 IN USE 03350000
* X'10'-T4 IN USE 03360000
* X'08'-LIBRARY USAGE INTERLOCK 03370000
* X'04'-OPEN/CLOSE/EOV HAS SCHED 03380000
* INTERLOCK 03390000
* X'02'-ALLOCATE HAS SCHED INTERLO03400000
SPACE 03410000
NPUTL2 EQU NPUTL1+1 1 5445 INTERLOCK 03420000
* X'80'-X'08'-D4 . ALLOCATED 03430000
* X'40'-X'04'-D3 . OR 03440000
* X'20'-X'02'-D2 . IN 03450000
* X'10'-X'01'-D1 . USE 03460000
SPACE 03470000
NPSCHC EQU NPUTL2+2 2 @ OF START OF TAPE F1S (SD) 03480000
NPSCHD EQU NPSCHC+2 2 @ OF START OF 5444 F1S (SD) 03490000
NPSCHE EQU NPSCHD+2 2 @ OF START OF 5445 F1S (SD) 03500000
NPSCHF EQU NPSCHE+2 2 @ OF START OF UNIT RECORD F1S03510000
NPSCHG EQU NPSCHF+2 2 @ OF NEXT AVAIL F1 (SD) 03520000
NPOCAF EQU NPSCHG+2 2 @ OF DM A/F SPACE 03530000
NPSPLZ EQU NPOCAF+1 1 SYSPRINT LINE SIZE 03540000
NPSPFL EQU NPSPLZ+1 1 SYSPRINT FORMS LENGTH 03550000
NPECOM EQU NPSPFL - END OF PROG LEVEL COMM AREA 03560000
EJECT 03570000
.TNC ANOP 03580000
AIF (&NC EQ 'N').TRB 03590000
********************************************************************** 03600000
* * 03610000
* SYSTEM COMMUNICATIONS AREA * 03620000
* * 03630000
********************************************************************** 03640000
SPACE 2 03650000
NCC EQU 0 * 03660000
NCPL1 EQU NCC+1 2 @ OF PROG LEVEL 1 COMM 03670000
NCPL2 EQU NCPL1+2 2 @ OF PROG LEVEL 2 COMM 03680000
NCTCB EQU NCPL2+2 2 @ OF HIGHEST PRIORITY TCB 03690000
NCXTAB EQU NCTCB+2 2 @ OF XSNT SCHEDULER TABLE 03700000
NC@NEW EQU NCXTAB+2 2 @ OF NEW AND OLD 03710000
* OLD=@ OF ACTIVE TCB 03720000
NCDSP1 EQU NC@NEW+1 1 TRACE SUPERVISION BITS 03730000
NCTRCA EQU X'80' X'80'-TRACE ACTIVE 03740000
NCTRCS EQU X'40' X'40'-TRACE SUSPENDED 03750000
NCTCCP EQU X'20' X'20'-CCPTRACE TYPE-CCP 03752000
NCTALL EQU X'10' X'10'-CCPTRACE TYPE-ALL 03754000
NCTRDK EQU X'08' X'08'-CCPTRACE TO DISK 03756000
SPACE 03760000
NCDSP2 EQU NCDSP1+1 1 TASK SUPERVISION BITS 03770000
* X'08'-TASK(S) WAITING FOR 03780000
* RESOURCES 03790000
* X'04'-TRANSIENT AREA NOT 03800000
* REFRESHABLE 03810000
* X'02'-HIGHER PRIORITY TASKS ARE 03820000
* WAITING ON TRANSIENT AREA 03830000
* X'01'-TASK(S) WAITING FOR CORE 03840000
SPACE 03850000
NCSGEN EQU NCDSP2+1 - SYSTEM USAGE 03860000
* X'80'-DO NOT UPDATE SIO CTRS 03870000
* X'02'-SYSTEM MAINTENANCE 03880000
* X'01'-SYSTEM GENERATION 03890000
SPACE 03900000
NCAFML EQU NCSGEN+1 1 ASIGN/FREE MASK LENGTH 03910000
NCSLOG EQU NCAFML+3 3 SYSLOG INDICATOR C/S/DEV INFO03920000
* X'00'-CONSOLE 03930000
* X'80'-3284 03940000
* X'40'-1403 03950000
SPACE 03960000
NCSWRK EQU NCSLOG+2 2 C/S OF SWA 03970000
NCSYSQ EQU NCSWRK+1 1 Q OF SYSTEM PACK 03980000
NCOLIB EQU NCSYSQ+2 2 C/S OF SYSTEM OBJECT LIB 03990000
NCDATE EQU NCOLIB+6 6 SYSTEM DATE 04000000
NCSCH1 EQU NCDATE+1 1 SCHEDULER SWITCHES 04010000
* X'80'-LOG STATUS 04020000
* ON-LOG TO CRT 04030000
* OFF-LOG TO 1403 OR 3284 04040000
* X'40'-SYSTEM DATE RECEIVED 04050000
* X'10'-SKD INTERLOCK PL1 04060000
* X'08'-SKD INTERLOCK PL2 04070000
* X'04'-DATE FORMAT 04080000
* OFF-MMDDY DOMESTIC 04090000
* ON-DDMMYY WORLD TRADE 04100000
* X'03'-5444 CONFIG 04110000
* 00-F1,R1 04120000
* 01-F1,R1,R2 04130000
* 11-F1,R1,R2,F2 04140000
SPACE 04150000
NCSMV1 EQU NCSCH1+1 1 DM/SKD SWITCHES 04160000
* X'80'-IPL SUCCESSFUL 04170000
* X'40'-INPUT FOR I TYPE 04180000
* X'20'-SYSLOG INTERLOCK-P1 04190000
* X'10'-SYSLOG INTERLOCK-P2 04200000
* - X'08'-OFFLINE MVF ON R1 04210000
* - X'04'-OFFLINE MVF ON R2 04220000
* PL 1 - X'02'-OTHER FILE ON R1 04230000
* - X'01'-OTHER FILE ON R2 04240000
SPACE 04250000
NCSMV2 EQU NCSMV1+1 1 DM/SKD SWITCHES 04260000
* X'80'-SPOOL IS ACTIVE 04270000
* X'40'-SYSTEM IPL MODE 04280000
* X'20'-SPOOL SUPPORTED 04290000
* - X'08'-OFFLINE MVF ON R1 04300000
* PL 2 - X'04'-OFFLINE MVF ON R2 04310000
* - X'02'-OTHER FILE ON R1 04320000
* - X'01'-OTHER FILE ON R2 04330000
SPACE 04340000
NCSCH EQU NCSMV2+1 1 SKD BYTE 04350000
* X'80'-INQUIRY SUPPORTED 04360000
* X'40'-CCP SUPPORTED 04370000
* X'20'-TIMER SUPPORTED 04380000
SPACE 2 04390000
NCDSKQ EQU NCSCH+2 2 @ OF 5444 QUEUE 04400000
NCDSK5 EQU NCDSKQ+2 2 @ OF 5445 QUEUE 04410000
NCTAPQ EQU NCDSK5+2 2 @ OF TAPE QUEUE 04420000
NCURQ EQU NCTAPQ+2 2 @ OF FIRST UNIT RECORD QUEUE 04430000
NCETQ@ EQU NCURQ+2 2 @ OF SYSTEM ERROR TASK QUEUE 04440000
NCCMTQ EQU NCETQ@+2 2 @ OF CONSOLE MGT COMM AREA 04450000
SPACE 04460000
NCRCSS EQU NCCMTQ+3 3 ROLL/OUT C/S/N 04470000
NCCONF EQU NCRCSS+1 1 5445 AND TAPE CONFIG 04480000
* X'80'-RESERVED 04490000
* X'40'-RESERVED 04500000
* X'38' - 100 - D1 04510000
* 101 - D1,D2 04520000
* 110 - D1,D2,D3 04530000
* 111 - D1,D2,D3,D4 04540000
* X'07' - 100 - T1 04550000
* 101 - T1,T2 04560000
* 110 - T1,T2,T3 04570000
* 111 - T1,T2,T3,T4 04580000
SPACE 04590000
NCSCH3 EQU NCCONF+1 1 SCHEDULER BYTE 04600000
NCSCH4 EQU NCSCH3+1 1 SCHEDULER BYTE 04610000
NCRQE EQU NCSCH4+2 2 @ OF RQE TABLE 04620000
NCEXTR EQU NCRQE+1 1 EXTRA BYTE 04630000
NCSMV3 EQU NCEXTR+1 1 5445 DM MVF INTERLOCK 04640000
* PGM LEVEL 1 04650000
* X'80'-MULTIVOLUME FILE ON D1 04660000
* X'40'-MULTIVOLUME FILE ON D2 04670000
* X'20'-MULTIVOLUME FILE ON D3 04680000
* X'10'-MULTIVOLUME FILE ON D4 04690000
* X'08'-OTHER TYPE FILE ON D1 04700000
* X'04'-OTHER TYPE FILE ON D2 04710000
* X'02'-OTHER TYPE FILE ON D3 04720000
* X'01'-OTHER TYPE FILE ON D4 04730000
SPACE 04740000
NCSMV4 EQU NCSMV3+1 1 5445 DM MVF INTERLOCK 04750000
* PGM LEVEL 2 04760000
* X'80'-MULTIVOLUME FILE ON D1 04770000
* X'40'-MULTIVOLUME FILE ON D2 04780000
* X'20'-MULTIVOLUME FILE ON D3 04790000
* X'10'-MULTIVOLUME FILE ON D4 04800000
* X'08'-OTHER TYPE FILE ON D1 04810000
* X'04'-OTHER TYPE FILE ON D2 04820000
* X'02'-OTHER TYPE FILE ON D3 04830000
* X'01'-OTHER TYPE FILE ON D4 04840000
SPACE 04850000
NCMVT1 EQU NCSMV4+1 4 TAPE MFV SUPPORT 04860000
NCMVT2 EQU NCMVT1+4 4 TAPE MFV SUPPORT 04870000
NCMVT3 EQU NCMVT2+4 4 TAPE MFV SUPPORT 04880000
NCMVT4 EQU NCMVT3+4 4 TAPE MFV SUPPORT 04890000
NCPRTB EQU NCMVT4+5 2 @ OF 133-BYTE SYSLOG BUFR 04900000
NCCNFG EQU NCPRTB+1 17 START OF 17-BYTE UR CONFIG 04910000
NCUTL1 EQU NCCNFG+17 1 RESERVED FOR SPOOL 04920000
* X'80'-SPOOL USING D1 04930000
* X'40'-SPOOL USING D2 04940000
* X'20'-SPOOL USING D3 04950000
* X'10'-SPOOL USING D4 04960000
SPACE 04970000
NCSIPT EQU NCUTL1+1 1 SPOOL INPUT DEVICE 04980000
NCSPRT EQU NCSIPT+1 1 SPOOL PRINT DEVICE 04990000
NCSPCH EQU NCSPRT+1 1 SPOOL PUNCH DEVICE 05000000
NCSPVN EQU NCSPCH+2 2 SUPERVISOR END @ 05010000
NCPFKT EQU NCSPVN+2 2 @ OF PROG FUNCTION KEY TABLE 05020000
NCMPSZ EQU NCPFKT+1 1 MATRIX PRINTER SIZE 05030000
NCMPLC EQU NCMPSZ+1 1 MATRIX PRINTER LINE COUNT 05040000
NCTMRQ EQU NCMPLC+2 2 @ OF TIMER QUEUE 05050000
NCAEND EQU NCTMRQ LAST BYTE OF SCA 05060000
EJECT 05070000
.TRB ANOP 05080000
AIF (&RB NE 'Y').COM 05090000
********************************************************************** 05100000
* * 05110000
* REQUEST BLOCK EQUATES * 05120000
* * 05130000
********************************************************************** 05140000
SPACE 2 05150000
RBB EQU 0 * 05160000
RBRBP EQU RBB+1 2 POINTER TO PREVIOUS RB 05170000
RBFLG1 EQU RBRBP+1 1 RB FLAG BITS 05180000
* X'80'-RB WAITING ON ECB 05190000
SPACE 05200000
RBFLG2 EQU RBFLG1+1 1 RB TYPE 05210000
* X'80'-TA REQUIRED (TRB) 05220000
* X'40'-REFRESH (RRB) 05230000
* X'04'-CCP (CRB) 05240000
* X'02'-SUSPEND (SRB) 05250000
* X'01'-LOADER (LRB) 05260000
SPACE 05270000
RBTCB EQU RBFLG2+2 2 @ OF TCB 05280000
RBIAR EQU RBTCB+2 2 PROGRAM LEVEL IAR 05290000
RBPMR EQU RBIAR+2 2 PROGRAM LEVEL PMR 05300000
RBPSR EQU RBPMR+2 2 PROGRAM LEVEL PSR 05310000
RBXR2 EQU RBPSR+2 2 PROGRAM LEVEL XR2 05320000
RBXR1 EQU RBXR2+2 2 PROGRAM LEVEL XR1 05330000
RBARR EQU RBXR1+2 2 PROGRAM LEVEL ARR 05340000
RBCSN EQU RBARR+3 3 PROGRAM LEVEL C/S/N 05350000
RBRIB EQU RBCSN+1 1 PROGRAM LEVEL RIB 05360000
RBRSAV EQU RBRIB+1 1 RIB SAVE AREA 05370000
RBRES EQU RBRSAV+6 6 RESERVED 05380000
RBWORK EQU RBRES+1 35 START OF WORK AREA-35 BYTES 05390000
EJECT 05400000
.COM ANOP 05410000
*********************************************************************** 05420000
* * 05430000
* COMMON EQUATES * 05440000
* * 05450000
*********************************************************************** 05460000
NCENTR EQU 4 'BRANCH TO 4' 05470000
NCSYS@ EQU X'0011' @ OF POINTER TO SYSTEM COMM 05480000
NCMSVA EQU X'001A' @ OF MFCU PERM HISTORY TABLE 05490000
NCTRAC EQU X'002A' @ OF POINTER TO TRACE TABLE 05500000
NCTCB@ EQU X'002E' @ OF POINTER TO ACTIVE TCB (OLD) 05510000
NCTERM EQU X'0031' @ OF POINTER TO ABTERM ROUTINE 05520000
NCSVCJ EQU X'0032' @ OF AN SVC TO EOJ 05530000
NCSVCE EQU X'0036' @ OF AN SVC EXIT 05540000
NCTRAP EQU X'003B' @ OF POINTER TO TRAP TABLE 05550000
NCPENT EQU X'003F' @ OF PONTER TO POST ENTRY RTN 05560000
NCDENT EQU X'0041' @ OF POINTER TO DISP ENTRY RTN 05570000
NCCCP EQU X'0043' @ OF CCP SVC INTERCEPT ADDRESS 05580000
NCXTB@ EQU X'0045' @ OF CCP TCB AREA START ADDRESS 05590000
NCXTE@ EQU X'0047' @ OF CCP TCB AREA END ADDRESS 05600000
NCCECB EQU X'0048' @ OF CCP COMMAND PROCESSOR ECB 05610000
NCHIMG EQU X'0700' @ OF CHAIN IMAGE 05620000
NCSBUF EQU X'077C' @ OF SYSLOG PRINT BUFFER. 05630000
NCPCHK EQU X'0100' @ OF PROGRAM CHECK SAVE AREA 05640000
NCTA@ EQU X'0800' @ OF TRANSIENT AREA 05650000
NCL2PR EQU X'C0' LEVEL 2 PRIORITY 05660000
MEND 05670000