|
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$CHGB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$CHGB«
MACRO 00010000
&LABEL $CHGB &TYPE-,&DTF-,&NUM-,&CHARS- 00020000
LCLA &A1 00370000
TABLE &TYPE 00380000
AM TABDF '00' 00390000
AN TABDF '40' 00400000
DM TABDF '80' 00410000
DN TABDF 'C0' 00420000
TABDF '''TYPE' 00430000
TEXT 00440000
&A1 SETA 0 00450000
* $BCPL/$BCSW PARAMETER LIST RELEASE-8 00460000
AIF (T'&LABEL EQ '').A 00470000
&LABEL EQU * 00480000
.A AIF (T'&TYPE NE '').B 00490000
MNOTE 08,'B1018 MISSING REQUIRED OPERAND TYPE' 00500000
.B DC XL1'&TYPE' TYPE OF ACTION REQUIRED 00510000
AIF (T'&DTF NE '').C 00520000
MNOTE 08,'B1019 MISSING REQUIRED OPERAND. DTF' 00530000
.C DC AL2(&DTF) ADDR OF DTF OF LIST CHANGE 00540000
AIF (T'&NUM NE '').D 00550000
MNOTE 08,'B1020 MISSING REQUIRED OPERAND. NUM' 00560000
AGO .E 00570000
.D DC XL1'&NUM' NUMBER OF CHARS TO COMPARE 00580000
AIF (&NUM EQ &A1).G 00590000
.E AIF (T'&CHARS NE '').F 00600000
MNOTE 08,'B1021 MISSING REQUIRED OPERAND. CHARS' 00610000
AGO .G 00620000
.F DC XL&NUM'&CHARS' CHARACTERS TO BE COMPARED 00630000
.G ANOP 00640000
MEND 00650000
¹222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii¨RRRR
RRRRRRR222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2ggggggggggggggg¾000000000________
_____________________________________________________2jjjjj}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
iiiiiiiiiiiiiii2ME-$@STR.ALL,NEWNAME-$$STR // COPY FROM-R1,TO-F1,RETAI
N-P,LIBRARY-O,NAME-$@BS.ALL,NEWNAME-$$BS // COPY FROM-R1,TO-F1,RETAI
N-P,LIBRARY-R,NAME-$@BS.ALL,NEWNA