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

⟦130b9a145⟧ s3xseg

    Length: 508 (0x1fc)
    Types: s3xseg
    Names: »S$CLOS«

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $CLOS &DTF-                                                      00080000                
       TEXT                                                             00090000                
*    DEVICE CLOSE LINKAGE              RELEASE-7                        00090001                
       AIF   (T'&LABEL EQ 'O').A                                        00100000                
&LABEL EQU   *                         GENERATE USER LABEL              00110000                
.A     ANOP                                                             00120000                
       AIF   (T'&DTF EQ 'O').B                                          00130000                
       LA    &DTF,$DTF                 SET ADDR OF DTF IN REGISTER 2.   00140000                
.B     B     4                         BRANCH TO GENERAL ENTRY          00150000                
       DC    XL1'83'                   RIB - CLOSE                      00160000                
       MEND                                                             00180000                
F NO LABEL,DO NOT ASSIGN ONE   00100000                &LABEL EQU   *                         GE
NERATE USER LABEL              00110000                .A     ANOP                              
                               00120000                       AIF   (T'&DTF EQ 'O').