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

⟦a146c22de⟧ s3xseg

    Length: 2032 (0x7f0)
    Types: s3xseg
    Names: »S$RFTL«

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $RFTL &TYPE-,&NUM-,&CODE-E,&LEN-,&TERMAD-                        00020000                
       LCLC  &N1,&N2                                                    00260000                
       TABLE &CODE                                                      00270000                
E      TABDF 'F'                                                        00280000                
A      TABDF '3'                                                        00290000                
       TABDF '''CODE'                                                   00300000                
       TEXT                                                             00310000                
*      ON LINE TEST PARAMETER LIST     RELEASE-8                        00320000                
       AIF   (T'&LABEL EQ '').A                                         00330000                
&LABEL EQU   *                                                          00340000                
.A     AIF   (T'&TYPE NE '').B                                          00350000                
       MNOTE 08,'B1025 MISSING REQUIRED OPERAND.       TYPE'            00360000                
       AGO   .M                                                         00370000                
.B     AIF   (&TYPE EQ '00').C                                          00380000                
       AIF   (&TYPE EQ '01').C                                          00390000                
       AIF   (&TYPE EQ '06').C                                          00400000                
       AIF   (&TYPE EQ '14').C                                          00410000                
       MNOTE 08,'B3009 INVALID OPERAND.                TYPE'            00420000                
       AGO   .M                                                         00430000                
.C     ANOP                                                             00440000                
&N1    SETC  '&TYPE'(1,1)                                               00450000                
&N2    SETC  '&TYPE'(2,1)                                               00460000                
       DC    XL2'&CODE&N1&CODE&N2'     ON LINE TEST TYPE                00470000                
       AIF   (&NUM LT '1').E                                            00480000                
       AIF   (&NUM GT '99').E                                           00490000                
       AIF   (&NUM LT '10').D                                           00500000                
&N1    SETC  '&NUM'(1,1)                                                00510000                
&N2    SETC  '&NUM'(2,1)                                                00520000                
       DC    XL2'&CODE&N1&CODE&N2'     NUMBER OF SND/RECV TEST MSG'S    00530000                
       AGO   .F                                                         00540000                
.D     ANOP                                                             00550000                
&N1    SETC  '&NUM'(1,1)                                                00560000                
       DC    XL2'&CODE.0&CODE&N1'      NUMBER OF SND/RECV TEST MSG'S    00570000                
       AGO   .F                                                         00580000                
.E     MNOTE 08,'B3007 INVALID OPERAND.                 NUM'            00590000                
.F     AIF   (T'&LEN NE '').G                                           00600000                
       MNOTE 08,'B1026 MISSING REQUIRED OPERAND.        LEN'            00610000                
       AGO   .M                                                         00620000                
.G     AIF   (&LEN LT '8').H                                            00630000                
       MNOTE 04,'B3008 INVALID OPERAND                   LEN'           00640000                
.H     ANOP                                                             00650000                
&N1    SETC  '&LEN'(1,1)                                                00660000                
       DC    XL1'&CODE&N1'             LENGTH OF POLL/ADDR CHARS        00670000                
       AIF   (&LEN NE '0').J                                            00680000                
       AGO   .L                                                         00690000                
.J     AIF   (T'&TERMAD NE '').K                                        00700000                
       MNOTE 08,'B1027 MISSING REQUIRED OPERAND      TERMAD'            00710000                
       AGO   .M                                                         00720000                
.K     DC    XL&LEN'&TERMAD'           POLL/ADDR CHARACTERS             00730000                
       AGO   .M                                                         00740000                
.L     AIF   (T'&TERMAD EQ '').M                                        00750000                
       MNOTE 04,'B2013 TERMAD INVALID WHEN LEN = 0       '              00760000                
.M     ANOP                                                             00770000                
       MEND                                                             00780000