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

⟦5a5b70fd9⟧ s3xseg

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

Derivation

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

TextSegment

       MACRO                                                            00010000                
&LABEL $SVC  &RIB-                                                      00050000                
       TABLE &RIB                                                       00060000                
SYSIN  TABDF '86'                                                       00070000                
HALT   TABDF '85'                                                       00080000                
ROLL   TABDF '8E'                                                       00090000                
VTOC   TABDF '8A'                                                       00100000                
       TABDF '''RIB'                                                    00110000                
       TEXT                                                             00120000                
*    SUPERVISOR CALL LINKAGE           RELEASE-7                        00120001                
       AIF   (T'&LABEL EQ 'O').A                                        00130000                
&LABEL EQU   *                         GENERATE USER LABEL              00140000                
.A     B     4                         BRANCH TO GENERAL ENTRY          00150000                
       DC    XL1'&RIB'                 RIB - &RIB                       00160000                
       SPACE                                                            00170000                
       MEND                                                             00190000                
                       TABDF '''RIB'                    DEFAULT                         00110000
                       TEXT                                                             00120000
                       AIF   (T'