|
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: 7112 (0x1bc8)
Types: s3xseg
Names: »S$ESSA«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ESSA«
MACRO 00010000
$ESSA &REPEQ-N 00020000
TEXT 00030000
SPACE 00040000
*********************************************************************** 00050000
* STARTUP SAVE AREA OFFSETS * 00060000
*********************************************************************** 00070000
SPACE 2 00080000
*----------- LOCATION DEPENDENT INDICATORS ---------------------------* 00090000
SPACE 00100000
SSACCP EQU 0 00110000
SSA#RS EQU SSACCP-1+1 NO. RETAINED SECTORS OF INFO 00120000
SSAERR EQU SSA#RS+1 STARTUP ERROR SWITCH 00130000
SSAQST EQU SSAERR+1 FLAG BYTE 00140000
SSACEX EQU BIT0 1=CORE EXHAUSTED DURING STARTUP 00150000
SSAASB EQU BIT1 1=ASSIGNMENT BUILD CAPABLE 00153000
SSALIB EQU BIT2 1=MORE LIBRARY SPACE REFERENCE 00156000
SPACE 2 00160000
*----------- CONFIGURATION RECORD IS PLACED HERE ---------------------* 00170000
SPACE 00180000
SSACFG EQU SSAQST+1 START OF CONFIGURATION RECORD 00190000
SSACFE EQU SSACFG+CFGEND END OF CONFIGURATION RECORD 00200000
SPACE 2 00210000
*----------- COMPRESSED DIRECTORY IS PLACED HERE ---------------------* 00220000
SPACE 00230000
SSADIR EQU SSACFE+1 START OF COMPRESSED DIRECTORY 00240000
SSADIE EQU SSADIR+DIREN@ END OF COMPRESSED DIRECTORY 00250000
SPACE 2 00260000
*----------- SYSTEM INFORMATION TABLE IS PLACED HERE -----------------* 00270000
SPACE 00280000
SSASIT EQU SSADIE+1 START OF SYSTEM INFORMATION TABL 00290000
SSASIE EQU SSASIT+SITEND END OF SYSTEM INFORMATION TABLE 00300000
SPACE 2 00310000
*----------- MISCELLANEOUS SAVE AREA ---------------------------------* 00320000
SPACE 00330000
SSALDP EQU SSASIE+1 BASE MODULE LOAD PARAMETERS 00340000
* C/S/N/LE/D/EP 00350000
SSALDE EQU SSALDP+7 END LOAD PARAMETERS 00360000
SPACE 00370000
SSANB@ EQU SSALDE+3 NEXT BUILD ADDRESS 00380000
SSAHB@ EQU SSANB@+3 HIGHEST BUILD ADDR POSSIBLE +1 00390000
SPACE 00400000
SSAMS1 EQU SSAHB@+1 MISCELLANEOUS SWITCH 00410000
SSBCC3 EQU BIT0 TRACE BSCC LINE 3 00420000
SSBCC4 EQU BIT1 TRACE BSCC LINE 4 00430000
SSSIOC EQU BIT2 SIOC STARTUP 00440000
SSMLOG EQU BIT3 0 - NO MULTI FILE REFERENCES 00460000
* 1 - MULTIPLE FILE NAME REFERENCE 00470000
* SAME FILE LABEL 00480000
SSBCA1 EQU BIT4 TRACE BSCA LINE 1 00482000
SSBCA2 EQU BIT5 TRACE BSCA LINE 2 00484000
* EQU BIT6 NOT USED 00486000
SSAPRQ EQU BIT7 1 - PGM REQ COUNTING ON 00490000
* 0 - PGM REQ COUNTING OFF 00500000
SPACE 00510000
SSAMS2 EQU SSAMS1+1 MISCELLANEOUS SWITCH 00520000
* EQU BIT0 NOT USED 00521000
SSTBCC EQU BIT1 1=SET BSCC TRACE ON 00523000
* 0=LEAVE BSCC TRACE OFF 00526000
SSATTD EQU BIT2 1=SET CCP TRACE-TO-DISK ON 00530000
* 0=SET CCP TRACE-TO-DISK OFF 00540000
SSATBS EQU BIT3 1=SET BSCA TRACE ON 00550000
* 0=LEAVE BSCA TRACE OFF 00560000
SSATML EQU BIT4 1=SET MLTA TRACE ON 00570000
* 0=LEAVE MLTA TRACE OFF 00580000
SSAREP EQU BIT5 1=EXEC MODULE $CC3CX. 00590000
SSASUP EQU BIT6 1=ASK USER ABOUT SUPPRESSION 00600000
SSAOFL EQU BIT7 1=ASK USER ABOUT OFFLINE 00610000
SPACE 00620000
SSAQ EQU SSAMS2+1 PROG PACK Q BYTE 00630000
SSA$CQ EQU SSAQ+1 Q-BYTE FOR $CCPFILE 00640000
SSA$XA EQU SSA$CQ+2 1ST CYL/SEC ADDRESS IN $CCPFILE 00650000
SSA$XB EQU SSA$XA+2 LAST(+1) CYL/SEC ADDR IN $CCPFIL 00660000
SSACOR EQU SSA$XB+2 CORE SIZE OF OBJECT CPU 00670000
SSAFF@ EQU SSACOR+2 C/S OF 1ST FREE SEC IN $CCPFILE 00680000
SSAFX@ EQU SSAFF@+2 C/S OF DISPLAY FORMAT INDEX 00690000
SSABUF EQU SSAFX@+2 NUMBER OF BYTES NEEDED FOR IOBUF 00700000
SSALPC EQU SSABUF+1 LENGTH LONGEST UNSUPPR PCT ENTRY 00710000
SSAML# EQU SSALPC+1 BIT SIG MLTA LINE TRACE MASK 00720000
SSADF@ EQU SSAML#+2 ADDRESS OF DFF TASK ENTRY POINT 00730000
SSA#2@ EQU SSADF@+2 LOAD ADDRESS OF $CC4#2 00735000
SSAR1 EQU SSA#2@+2 C/S OF DIRECTORY ON R1 00735500
SSAF1 EQU SSAR1+2 C/S OF DIRECTORY ON F1 00736000
SSAR2 EQU SSAF1+2 C/S OF DIRECTORY ON R2 00736500
SSAF2 EQU SSAR2+2 C/S OF DIRECTORY ON F2 00737000
SSCSBK EQU SSAF2+1 # 256 BYTE BLOCKS FOR BSCC TRACE 00737500
* (RANGE....1-24) 00738000
SSATSV EQU SSCSBK+2 ATR/ADDRESS SAVE FIELD 00738500
* 00739000
SSAT#2 EQU SSATSV+1 ATR SLOT SAVE FIELD (#M START) 00739500
* 00739530
SSADP1 EQU SSAT#2+3 CC/HH/RR OF NEXT AVAIL. DUMP 00739560
* 00739590
SSADFL EQU SSADP1+2 CC/HH OF $CCPDUMP FILE 00739620
* 00739650
SSADPQ EQU SSADFL+1 $CCPDUMP FILE Q BYTE 00739680
* 00739710
SSA#DP EQU SSADPQ+1 # OF DUMPS AVAIL. IN $CCPDUMP 00739740
* 00739770
SSA#DU EQU SSA#DP+2 # OF DUMPS USED IN $CCPDUMP 00739800
* 00739830
SSADND EQU SSA#DU+2 CC/HH @ OF END OF $CCPDUMP 00739860
SSAENF EQU SSADND+2 CC/HH @ OF REL. END OF $CCPFILE 00739865
SSAD1A EQU SSAENF+2 C/S OF DIRECTORY ON D1A 00739870
SSAD1B EQU SSAD1A+2 C/S OF DIRECTORY ON D1B 00739875
SSAD1C EQU SSAD1B+2 C/S OF DIRECTORY ON D1C 00739880
SSAD1D EQU SSAD1C+2 C/S OF DIRECTORY ON D1D 00739885
SSAD2A EQU SSAD1D+2 C/S OF DIRECTORY ON D2A 00739890
SSAD2B EQU SSAD2A+2 C/S OF DIRECTORY ON D2B 00739895
SSAD2C EQU SSAD2B+2 C/S OF DIRECTORY ON D2C 00739900
SSAD2D EQU SSAD2C+2 C/S OF DIRECTORY ON D2D 00739905
SSAD3A EQU SSAD2D+2 C/S OF DIRECTORY ON D3A 00739910
SSAD3B EQU SSAD3A+2 C/S OF DIRECTORY ON D3B 00739915
SSAD3C EQU SSAD3B+2 C/S OF DIRECTORY ON D3C 00739920
SSAD3D EQU SSAD3C+2 C/S OF DIRECTORY ON D3D 00739925
SSAD3E EQU SSAD3D+2 C/S OF DIRECTORY ON D3E 00739930
SSAD3F EQU SSAD3E+2 C/S OF DIRECTORY ON D3F 00739935
SSAD3G EQU SSAD3F+2 C/S OF DIRECTORY ON D3G 00739940
SSAD3H EQU SSAD3G+2 C/S OF DIRECTORY ON D3H 00739945
SSAD4A EQU SSAD3H+2 C/S OF DIRECTORY ON D4A 00739950
SSAD4B EQU SSAD4A+2 C/S OF DIRECTORY ON D4B 00739955
SSAD4C EQU SSAD4B+2 C/S OF DIRECTORY ON D4C 00739960
SSAD4D EQU SSAD4C+2 C/S OF DIRECTORY ON D4D 00739965
SSAD4E EQU SSAD4D+2 C/S OF DIRECTORY ON D4E 00739970
SSAD4F EQU SSAD4E+2 C/S OF DIRECTORY ON D4F 00739975
SSAD4G EQU SSAD4F+2 C/S OF DIRECTORY ON D4G 00739980
SSAD4H EQU SSAD4G+2 C/S OF DIRECTORY ON D4H 00739985
SPACE 2 00740000
*---------------------------------------------------------------------* 00750000
SSA#SP EQU 0 AMOUNT OF SPACE FOR PADDING 00760000
SSAEND EQU SSAQ+SSA#SP END OF STARTUP SAVE AREA 00770000
SPACE 5 00780000
AIF (&REPEQ NE 'Y').NOPE 00790000
* 00800000
* FEREP WORK AREA 00810000
* 00820000
XXSAVE EQU X'4500' 00830000
XXERR EQU XXSAVE+1 ERROR CODE 00840000
XXHB@ EQU XXERR+3 HIGH BUILD ADDRESS 00850000
XXIAR EQU XXHB@+2 CM'S IAR FOR DISPATCHING 00860000
XXSTAD EQU XXIAR+3 ADDRESS FROM LAST REP 00870000
REPCX EQU XXSTAD+1 LOAD PARM LIST FOR $CC3CX 00880000
REPCY EQU REPCX+10 LOAD PARM LIST FOR $CC3CY 00890000
REPCZ EQU REPCY+10 LOAD PARM LIST FOR $CC3CY 00900000
XXSCB EQU REPCZ+10 SCAN CONTROL BLOCK 00910000
XXDEL EQU XXSCB+8 DELIMITERS 00920000
XXDELB EQU XXSCB+9 BLANK DELIMITER 00930000
XXBUF EQU XXDEL+3 SYSIN BUFFER 00940000
XXSWK EQU XXBUF+96 SYSIN WORK SPACE 00950000
XX#2@ EQU XXSWK+48 LOAD ADDR OF $CC4#2 00953000
XXSW EQU XX#2@+1 X'80' INDICATES REP TO $CC4#2 00956000
* *X'40' INDICATES REP TO $CC4#M 00957000
XX#M@ EQU XXSW+2 LOGICAL ADDRESS OF $CC4#M 00958000
.NOPE ANOP 00960000
ROLLER EQU X'B500' $CC3RO LOAD ADDRESS AND ENTRY 00970000
MEND 00980000