|
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: 1016 (0x3f8)
Types: s3xseg
Names: »S$XCTL«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$XCTL«
MACRO 00010000
&LABEL $XCTL &NAME-,&LOAD-,&PACK- 00070000
TABLE &LOAD 00080000
'' TABDF '0' 00090000
2 TABDF '0' 00100000
TABLE &PACK 00110000
'' TABDF 'P' 00120000
TEXT 00130000
* LOAD MODULE TO ADDRESS RELEASE-7 00130001
AIF (T'&LABEL EQ 'O').A 00140000
&LABEL EQU * GENERATE USER LABEL 00150000
.A ANOP 00160000
AIF (&LOAD NE '0').B 00170000
ST $0&SYSNDX,$PARM STORE LOAD ADDRESS IN PARM LIST 00180000
.B ANOP 00190000
LA $&SYSNDX,$PARM SET A(PARM LIST) IN REGISTER 2 00200000
B 4 BRANCH TO GENERAL ENTRY 00210000
AIF (&PACK EQ 'S').C 00220000
DC XL1'59' FETCH TO ADDRESS -PROGRAM PACK 00230000
AGO .D 00240000
.C DC XL1'79' FETCH TO ADDRESS- SYSTEM PACK 00250000
.D SPACE 00260000
$&SYSNDX DC CL1'O' O - DOT MODULE 00270000
DC CL6'&NAME' O - DOT MODULE NAME 00280000
DC XL1'EE' NOT USED 00290000
$0&SYSNDX DC AL2(&LOAD) A(DESIRED LOAD POINT) 00300000
MEND 00320000
LIST) IN REGISTER 2 00200000 B 4 BRANCH TO
GENERAL ENTRY 00210000 AIF (&PACK EQ '