|
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: 1524 (0x5f4)
Types: s3xseg
Names: »S$ESQB«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$ESQB«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* NAME: $ESQB * 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 SECTOR ENQUEUE BLOCKS * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . NONE * 00150000
.* * 00160000
.********************************************************************** 00170000
$ESQB 00180000
.* 00190000
TEXT 00200000
.* 00210000
*********************************************************************** 00220000
* S E C T O R E N Q U E U E B L O C K O F F S E T S * 00230000
*********************************************************************** 00240000
SPACE 2 00250000
SQBIOB EQU 0+1 ADDRESS OF 'OWNING' IOB 00260000
SPACE 00270000
SQBTCB EQU SQBIOB+2 ADDRESS OF 'OWNING TCB 00280000
SPACE 00290000
SQBQB EQU SQBTCB+1 DEVICE Q-BYTE 00300000
SPACE 00310000
SQBBEG EQU SQBQB+3 STARTING C/S (LEFT ADJUSTED) IF 00320000
* 5444 DEVICE, OR C/H/R IF 5445 00330000
SPACE 00340000
SQBEND EQU SQBBEG+3 ENDING C/S (LEFT ADJUSTED) IF 00350000
* 5444 DEVICE, OR C/H/R IF 5445 00360000
SPACE 00370000
SQBFLG EQU SQBEND+1 FLAG BYTE 00380000
SQBOWN EQU BIT0 SQB IS OWNED (ACTIVE) 00390000
SQBFRE EQU BIT1 SQB IS FREE (INACTIVE) 00400000
SQBLST EQU BIT2 LAST SQB 00410000
SPACE 00420000
SQBLN EQU SQBFLG+1 LENGTH OF AN SQB 00430000
SPACE 00440000
MEND 00450000