|
|
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: 5588 (0x15d4)
Types: s3xseg
Names: »S$ESIT«
└─⟦4498c64f7⟧ Bits:30009191 5704-sc2.V05.ccp
└─⟦95ee7795b⟧
└─⟦this⟧ »S$ESIT«
MACRO 00010000
.********************************************************************** 00020000
.* STATUS: RELEASE 5 * 00030000
.* * 00040000
.* NAME: $ESIT * 00050000
.* * 00060000
.* FUNCTION: DEFINE THE LABELS NEEDED TO REFERENCE THE 'SYSTEM * 00070000
.* INFORMATION TABLE' IN $CCPFILE. * 00080000
.* * 00090000
.* INPUT OPERANDS: NONE * 00100000
.********************************************************************** 00110000
$ESIT 00120000
TEXT 00130000
*********************************************************************** 00140000
* S Y S T E M I N F O R M A T I O N T A B L E O F F S E T S * 00150000
*********************************************************************** 00160000
SITCCP EQU 0 00170000
SITMXP EQU SITCCP-1+1 MAX NO. CONCURRENT USER PROGRAMS 00180000
SITMUA EQU SITMXP+1 MIN NO. 256-BYTE BLOCKS 00190000
* FOR CCP USER PROGRAM AREA 00200000
SITMTB EQU SITMUA+2 MIN NO. BYTES, TP HOLD BUFR AREA 00210000
SITCPW EQU SITMTB+6 PASSWORD IF CCP PASSWORD USED, 00220000
* OTHERWISE X'40' 00230000
SPACE 00240000
SITDED EQU SITCPW+1 DEVICES DEDICATED TO CCP 00250000
SITPRT EQU BIT0 1=PRINTER DEDICATED 00260000
SIT501 EQU BIT1 1=2501 DEDICATED READER 00270000
SITM1R EQU BIT2 1=MFCU1/MFCM1 DEDICATED READER 00280000
SITM1P EQU BIT3 1=MFCU1/MFCM1 DEDICATED PUNCH 00290000
SITM1C EQU BIT4 1=MFCU1/MFCM1 DEDICATED COMBINED 00300000
SITM2R EQU BIT5 1=MFCU2/MFCM2 DEDICATED READER 00310000
SITM2P EQU BIT6 1=MFCU2/MFCM2 DEDICATED PUNCH 00320000
SITM2C EQU BIT7 1=MFCU2/MFCM2 DEDICATED COMBINED 00330000
SPACE 00340000
SITDD2 EQU SITDED+1 CONTINUATION OF SITDED. 00350000
SIT14R EQU BIT0 1=1442 DEDICATED READER 00360000
SIT14P EQU BIT1 1=1442 DEDICATED PUNCH 00370000
SIT14C EQU BIT2 1=1442 DEDICATED COMBINED. 00380000
SIT37R EQU BIT5 1=3741 DEDICATED INPUT. 00390000
SIT37P EQU BIT6 1=3741 DEDICATED OUTPUT. 00400000
SPACE 00410000
SITFLG EQU SITDD2+1 FLAG BYTE 00420000
SITFMT EQU BIT1 1=DFF SUPPORTED IN THIS SET 00460000
* 0=DFF NOT SUPPORTED IN THIS SET 00470000
SITDFF EQU BIT2 1=ALL TERMINAL ATTRIBUTES DFF 00480000
* 0=NON-DFF TERMINAL ATTRIB. EXIST 00490000
SITICF EQU BIT3 1=FORCE INCORE FORMAT INDEXES 00491000
* 0=DO NOT FORCE INCORE INDEXES. 00492000
SITPFF EQU BIT4 1=RESET PRUF MODE (PRUFOF). 00493000
* 0=DO NOT RESET PRUF MODE. 00496000
SPACE 00500000
SITPAK EQU SITFLG+1 DIRECTORIES SEARCHED AT STARTUP 00510000
SITR1 EQU BIT7 PACK-R1 00511000
SITF1 EQU BIT6 PACK-F1 00512000
SITR2 EQU BIT5 PACK-R2 00513000
SITF2 EQU BIT4 PACK-F2 00514000
SITPGM EQU BIT3 PACK-PROGRAM 00515000
SITSYS EQU BIT2 PACK-SYSTEM 00516000
SPACE 1 00517000
SITCHN EQU SITPAK+1 NO. OF CHAINED TASKS 00520000
SITRQL EQU SITCHN+1 MAX LENGTH PGM RQST + DATA 00530000
SITNQL EQU SITRQL+1 MAX LENGTH NON PGM RQST COMMAND 00540000
SITMCL EQU SITNQL+2 MAX TERMINAL COMMAND LENGTH 00550000
SITTAS EQU SITMCL+1 HIGHEST TAS ID VALUE 00560000
SITSTT EQU SITTAS+1 NO. OF STT ENTRIES 00570000
SITNPC EQU SITSTT+2 NO. OF PCT ENTRIES 00580000
SITLPC EQU SITNPC+1 LENGTH OF LONGEST PCT ENTRY 00590000
SITSID EQU SITLPC+1 SET ID OF THIS SET 00600000
SITSYM EQU SITSID+1 NUMBER OF SYMFILES IN SET 00610000
SITTRM EQU SITSYM+1 NUMBER OF COMMAND TRMNLS IN SET 00620000
SITRUF EQU SITTRM+2 READ UNDER FORMAT - LENGTH 00630000
SITPOL EQU SITRUF+4 POLL TIME IN UNITS 00640000
* 300 UNITS = 1 SECOND. 00650000
* 00000001 = 'NO' 00660000
* 00000000 = KEYWORD NOT GIVEN. 00670000
SITWIT EQU SITPOL+2 WAIT TIME IN UNITS 00680000
* 300 UNITS = 1 SECOND. 00690000
* 0001 = 'NO' 00700000
* 0000 = KEYWORD NOT GIVEN. 00710000
SITPLC EQU SITWIT+4 POLLTIME (BSCC ONLY) 00713000
SITWTC EQU SITPLC+2 WAITTIME (BSCC ONLY) 00716000
SPACE 00716300
SITDFQ EQU SITWTC+1 DFF PACK Q BYTE 00716600
SITR1Q EQU X'A0' R1 Q CODE 00716900
SITF1Q EQU X'A8' F1 Q CODE 00717200
SITR2Q EQU X'B0' R2 Q CODE 00717500
SITF2Q EQU X'B8' F2 Q CODE 00717800
SITSQ EQU X'01' SYSTEM PACK 00718100
SITPQ EQU X'00' PROGRAM PACK 00718400
SPACE 00718700
SITERT EQU SITDFQ+2 AUTO ERP RECOVERY TIME 00719000
SPACE 00720000
SITSIO EQU SITERT+2 TPBUFF COMMON AREA FOR SIOC 00730000
SITD12 EQU SITSIO+1 DIRECTORY D1 & D2 SEARCHED AT SU 00730300
SITD1A EQU BIT7 PACK-D1A 00730600
SITD1B EQU BIT6 PACK-D1B 00730900
SITD1C EQU BIT5 PACK-D1C 00731200
SITD1D EQU BIT4 PACK-D1D 00731500
SITD2A EQU BIT3 PACK-D2A 00731800
SITD2B EQU BIT2 PACK-D2B 00732100
SITD2C EQU BIT1 PACK-D2C 00732400
SITD2D EQU BIT0 PACK-D2D 00732700
* 00733000
SITD3 EQU SITD12+1 DIRECTORY D3 SEARCHED AT STARTUP 00733300
SITD3A EQU BIT7 PACK-D3A 00733600
SITD3B EQU BIT6 PACK-D3B 00733900
SITD3C EQU BIT5 PACK-D3C 00734200
SITD3D EQU BIT4 PACK-D3D 00734500
SITD3E EQU BIT3 PACK-D3E 00734800
SITD3F EQU BIT2 PACK-D3F 00735100
SITD3G EQU BIT1 PACK-D3G 00735400
SITD3H EQU BIT0 PACK-D3H 00735700
* 00736000
SITD4 EQU SITD3+1 DIRECTORY D3 SEARCHED AT STARTUP 00736300
SITD4A EQU BIT7 PACK-D4A 00736600
SITD4B EQU BIT6 PACK-D4B 00736900
SITD4C EQU BIT5 PACK-D4C 00737200
SITD4D EQU BIT4 PACK-D4D 00737500
SITD4E EQU BIT3 PACK-D4E 00737800
SITD4F EQU BIT2 PACK-D4F 00738100
SITD4G EQU BIT1 PACK-D4G 00738400
SITD4H EQU BIT0 PACK-D4H 00738700
* 00739000
SPACE 00740000
SITEND EQU SITD4 END OF SIT 00750000
SITLEN EQU SITEND+1 LENGTH OF SIT 00760000
SITDAT EQU SITEND+6 SYSTEM DATE AT TIME OF 00762000
* ASSIGNMENT SET BUILD 00764000
SITTIM EQU SITDAT+4 SYSTEM TIME(IF SUPPORTED) AT 00766000
* ASSIGNMENT SET BUILD 00768000
SITDPQ EQU SITTIM+1 $CCPDUMP FILE Q-BYTE. 00769000
MEND 00770000