|
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$POLB«
└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
└─⟦e1bdf435f⟧
└─⟦this⟧ »S$POLB«
MACRO 00010000
&LABEL $POLB &ID-,&TERMAD-,&LEN-,&LAST-N 00020000
GBLB &$BPOL 00220000
TABLE &LAST 00230000
N TABDF 'N' 00240000
OPEN TABDF 'FE' 00250000
WRAP TABDF 'FF' 00260000
TABDF '''LAST' 00270000
TEXT 00280000
AIF (&$BPOL).A0 00290000
* GENERATE A POLL/ADDR LIST. RELEASE-7 A 00300000
&$BPOL SETB 1 00310000
.A0 AIF (T'&LABEL EQ '').A 00320000
&LABEL EQU * 00330000
.A AIF (T'&ID NE '').B 00340000
MNOTE 08,B1001 MISSING REQUIRED OPERAND. ID' 00350000
AGO .C 00360000
.B AIF (&ID LT 'FA').B1 00370000
AIF (&ID GT 'F9').B1 00380000
MNOTE 08,'B3001 INVALID PARAMETER IN OPERAND. ID' 00390000
AGO .C 00400000
.B1 DC XL1'&ID' 00410000
.C AIF (T'&LEN NE '').D 00420000
MNOTE 08,'B1002 MISSING REQUIRED OPERAND. LEN' 00430000
AGO .E 00440000
.D AIF (&LEN LE '7').D1 00450000
MNOTE 08,'B3002 INVALID PARAMETER IN OPERAND. LEN' 00460000
AGO .E 00470000
.D1 DC AL1(&LEN) LENGTH OF POLL/ADDR. 00480000
.E AIF (T'&TERMAD NE '').F 00490000
MNOTE 08,'B1003 MISSING REQUIRED OPERAND. TERMAD' 00500000
AGO .G 00510000
.F DC XL&LEN'&TERMAD' POLL/ADDR CHARS. 00520000
.G DC XL1'00' STATUS. 00530000
AIF (&LAST EQ 'N').H1 00540000
AIF (&LAST EQ 'FE').H 00550000
AIF (&LAST EQ 'FF').H 00560000
MNOTE 08,'B3003 INVALID PARAMETER IN OPERAND. LAST' 00570000
AGO .H1 00580000
.H DC XL1'&LAST' END OF LIST. 00590000
.H1 AIF (&LAST EQ 'N').J 00600000
&$BPOL SETB 0 00610000
.J ANOP 00620000
MEND 00630000
630000