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

⟦15fb8da13⟧ 

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

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
    └─⟦10fd7efe5⟧ 
        └─⟦this⟧ ».SEUILOD «

Text Member

// IFF DATAF1-#SEULIB GOTO BLDLIB                                               
// DELETE #SEULIB,F1,REMOVE,,LIBR                                               
// TAG BLDLIB                                                                   
// LOAD $CNKAN                                                                  
// RUN                                                                          
// LOCAL AREA-SYSTEM                                                            
// IFF ?L'230,1'?/1 GOTO CHKKANJI                                               
// ELSE BLDLIBR #SEULIB,200,25,?2'A1'?                                          
// GOTO LOADFILE                                                                
// TAG CHKKANJI                                                                 
// IF ?L'67,1'?/1 BLDLIBR #SEULIB,350,25,?2'A1'?                                
// ELSE BLDLIBR #SEULIB,200,10,?2'A1'?                                          
// TAG LOADFILE                                                                 
// LOAD $MAINT                                                                  
// FILE NAME-SEUMODS,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO                   
// RUN                                                                          
// COPY FROM-DISK,TO-#SEULIB,FILE-SEUMODS                                       
// END                                                                          
// IFF ?CD?/0000 RETURN                                                         
LOGPLD LOAD,SEU,'#SEU,#SEULIB',,'0003,##MSGPL2',,'#LIBRARY,#SEULIB'             
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUILOD 43'                                 
// LOAD $CNAD                                                                   
// RUN

Full view