|
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: 1270 (0x4f6)
Types: s3xseg
Names: »S$E065«
└─⟦827b5bd03⟧ Bits:30009184 5702-sc1.V16.ccp
└─⟦f17e99db6⟧
└─⟦this⟧ »S$E065«
MACRO 00010000
.********************************************************************** 00020000
.* * 00030000
.* MACRO NAME: $E065 * 00040000
.* * 00050000
.* MODIFICATION LEVEL: VERSION 8, MODIFICATION LEVEL 0 OF 5702-SC1 * 00060000
.* * 00070000
.* FUNCTION: * 00080000
.* * 00090000
.* . CCP GENERATION SECOND PASS MACRO-INSTRUCTION -- DEFINE ANY * 00100000
.* USER SECURITY WORK AREA * 00110000
.* * 00120000
.* INPUT OPERANDS: * 00130000
.* * 00140000
.* . LUSI-NUMBER * 00150000
.* * 00160000
.* DEFINES THE NUMBER OF BYTES TO BE ALLOCATED FOR THE OPTIONAL * 00170000
.* USER SECURITY WORK AREA. THIS VALUE WILL BE NON-ZERO ONLY * 00180000
.* IF SECURE-USER WAS SPECIFIED IN THE $ESEC GENERATION CONTROL * 00190000
.* STATEMENT. * 00200000
.* * 00210000
.********************************************************************** 00220000
$E065 &LUSI-0 00230000
.* 00240000
LCLC &# . FOR SINGLE BLANK 00250000
.* 00260000
TEXT 00270000
.* 00280000
TITLE 'WORKSPACE' 00290000
.* 00300000
AIF (&LUSI LE '0').LUEND . SKIP IF NO USER SECURITY DATA 00310000
.* 00320000
*********************************************************************** 00330000
* U S E R S E C U R I T Y W O R K A R E A * 00340000
*********************************************************************** 00350000
SPACE 2 00360000
USECWA EQU * HI-ORDER ADDRESS 00370000
DC &LUSI.XL1'00' FOR USER SECURITY DATA 00380000
SPACE 5 00390000
.* 00400000
.LUEND ANOP . CONTINUE HERE 00410000
MEND 00420000