DataMuseum.dk

Presents historical artifacts from the history of:

IBM System/36

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

See our Wiki for more about IBM System/36

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦3bd0b51ef⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SDA60   «

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦93ec53657⟧ 
        └─⟦this⟧ ».SDA60   «

Text Member

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE CALLS SEU OR DSU SUBSTITUTING MEMBER NAME,                *  
*       MEMBER TYPE, STATEMENT LENGTH, AND LIBRARY INTO THE SEU              *  
*       OR DSU PROCEDURE                                                     *  
*                                                                            *  
*       THE PRIMARY FILE IS DELETED WHEN EDITING IS COMPLETE                 *  
*                                                                            *  
******************************************************************************  
// IF PROC-'DSU,#LIBRARY' DSU EDIT,?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?     
// ELSE SEU ?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?                            
// IFF DATAF1-#SD.?WS? GOTO ENDSDA60                                            
// LOAD $DELET                                                                  
// RUN                                                                          
// SCRATCH UNIT-F1,LABEL-#SD.?WS?                                               
// END                                                                          
// TAG ENDSDA60

Full view