DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/3

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about IBM System/3

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦01ee0424b⟧ s3xseg

    Length: 1778 (0x6f2)
    Types: s3xseg
    Names: »S$SWIB«

Derivation

└─⟦34f897e8c⟧ Bits:30009186 5702-sc1.V16.scp
    └─⟦e1bdf435f⟧ 
        └─⟦this⟧ »S$SWIB« 

TextSegment

       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