|
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: 2540 (0x9ec)
Types: s3xseg
Names: »S$EDSM«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$EDSM«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $EDSM * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- DEFINE * 00100000
.* SYMBOLS FOR CELLS IN THE DSM SUPERVISOR REFERENCED BY THE * 00110000
.* RESIDENT MODULE OF THE CCP EXECUTION STAGE * 00120000
.* * 00130000
.* INPUT OPERANDS: * 00140000
.* * 00150000
.* . NONE * 00160000
.* * 00170000
.********************************************************************** 00180000
$EDSM 00190000
.* 00200000
TEXT 00210000
.* 00220000
*********************************************************************** 00230000
* D S M S U P E R V I S O R S Y M B O L S * 00240000
*********************************************************************** 00250000
SPACE 2 00260000
* SUPERVISOR ENTRY POINT SYMBOLS 00270000
SPACE 1 00280000
NCENTR EQU 4 GENERAL ENTRY 00290000
NCEIOS EQU 8 DISK IOS ENTRY -- SCHEDULE I/O 00300000
NCEIOW EQU 12 DISK IOS ENTRY -- WAIT FOR I/O 00310000
SPACE 1 00320000
* COMMUNICATION AREA POINTER 00330000
SPACE 1 00340000
NCSYS@ EQU 17 ADDR(SYSTEM COMMUNICATION AREA) 00350000
SPACE 1 00360000
* DISPLACEMENTS WITHIN THE SYSTEM COMMUNICATION AREA 00370000
SPACE 1 00380000
NCPL1 EQU +1 ADDR(PROGRAM LEVEL 1 COMM AREA) 00390000
NCPL2 EQU +3 ADDR(PROGRAM LEVEL 2 COMM AREA) 00400000
NCXTAB EQU +5 ADDR XSIENT AREA SCHEDLR TABLE 00400100
NCSYSQ EQU +16 Q-BYTE FOR SYSTEM PACK 00410000
NCOLIB EQU +18 C/S OF SYSTEM OBJECT LIB
NCSCH EQU +22 BYTE CONTAINING CONSOLE REQ BIT 00420000
NCMBSV EQU +26 CELL CONTAINING DISK ERR SWITCH 00430000
NC@CIO EQU +49 ADDR(CONSOLE INTERRUPT HANDLER) 00440000
NCCONF EQU +53 BYTE CONTAINING CCP-RUNNING BIT 00450000
NCADDC EQU +55 ADDR(ADD'L COMMUNICATION AREA) 00460000
SPACE 1 00470000
* BIT VALUES WITHIN THE SYSTEM COMMUNICATION AREA 00480000
SPACE 1 00490000
NCDERP EQU BIT5 IN NCMBSV--SET ON IF DISK ERRLOG 00500000
CCPBIT EQU BIT1+BIT2 IN NCCONF--BITS FOR CCP RUNNING 00510000
KMREQK EQU BIT3 IN NCSCH--CONSOLE REQ KEY HIT 00520000
SPACE 1 00530000
* DISPLACEMENTS WITHIN THE PROGRAM-LEVEL COMMUNICATION AREA 00540000
SPACE 1 00550000
NPBEG EQU +22 ADDR(BEGIN PGM LVL CORE AREA) 00560000
NPQ EQU +25 Q-BYTE OF CCP PROGRAM PACK 00570000
NPRLF EQU +27 RELOCATION FACTOR OF PGM IN LVL 00580000
NPCYL EQU +29 CYL/SEC ADDR OF PROGRAM IN LVL 00590000
NPOLIB EQU +31 C/S OF PROGRAM PACK OBJ LIB
NPHBCH EQU +164 RESIDENT HALT BRANCH INSTRUCTION 00600000
.* 00610000
SPACE 1 00620000
MEND 00630000