|
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: 1778 (0x6f2)
Types: s3xseg
Names: »S$SWIB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$SWIB«
MACRO 00010000
&LABEL $SWIB &SELECT-,&STATID-,&LEN-,&LAST-N 00020000
GBLB &$BSWI 00220000
LCLA &A1 00230000
TABLE &LAST 00240000
N TABDF 'N' 00250000
Y TABDF 'Y' 00260000
TABDF '''LAST' 00270000
TEXT 00280000
&A1 SETA 0 00290000
AIF (&$BSWI).A 00300000
* GENERATE A SWITCHED ID LIST. RELEASE-8 00310000
&$BSWI SETB 1 00320000
.A AIF (T'&LABEL EQ '').B 00330000
&LABEL EQU * 00340000
.B AIF (T'&SELECT NE '').C 00350000
MNOTE 08,'B1028 MISSING REQUIRED OPERAND. SELECT' 00360000
AGO .E 00370000
.C AIF (&SELECT LT 'FA').D 00380000
AIF (&SELECT GT 'F9').D 00390000
MNOTE 08,'B3011 INVALID PARAMETER IN OPERAND. SELECT' 00400000
AGO .E 00410000
.D DC XL1'&SELECT' ENTRY SELECTOR. 00420000
.E AIF (T'&LEN NE '').F 00430000
MNOTE 08,'B1029 MISSING REQUIRED OPERAND. LEN' 00440000
AGO .H 00450000
.F AIF (&LEN LE '15').G 00460000
MNOTE 08,'B3010 INVALID PARAMETER IN OPERAND. LEN' 00470000
AGO .H 00480000
.G DC AL1(&LEN) LENGTH OF POLL/ADDR. 00490000
AIF (&LEN EQ &A1).K 00500000
.H AIF (T'&STATID NE '').J 00510000
MNOTE 08,'B1030 MISSING REQUIRED OPERAND. STATID' 00520000
AGO .K 00530000
.J DC XL&LEN'&STATID' SWITCHED ID CHARACTERS 00540000
.K DC XL1'00' STATUS. 00550000
AIF (&LAST EQ 'N').N 00560000
AIF (&LAST EQ 'Y').L 00570000
MNOTE 08,'B3012 INVALID PARAMETER IN OPERAND. LAST' 00580000
AGO .M 00590000
.L DC XL1'FF' END OF LIST. 00600000
.M AIF (&LAST EQ 'N').N 00610000
&$BSWI SETB 0 00620000
.N ANOP 00630000
MEND 00640000
560000 K
00500000
2ggggggggggggg¯¯¯¯¯¯¯¯¯¯¯¯¯½ØØØØØØØØØØØØØØØØØ2°°°°¯¯¯¯¯¯¯¯¯¯¯
¯¯¯¯ÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝÝ222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2
gggggggggggggggggggggggýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýýý¹222222}giiiiiiiiiiiiiiiiiiiii
iiiiiiiiiiiiiiiiiiiiiii¨RRRRRRRRRRR222222}giiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2ggggg
gggggggggg¾000000000_____________________________________________________________2jjjjj}giiiiiii
iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii2