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

⟦88f04a43d⟧ 

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

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⟧ ».SDA25   «

Text Member

// LOCAL AREA-SYSTEM                                                            
// IF ?L'11,1'?/1  GOTO MENUBLD                                                 
// LOAD $SFGR                                                                   
// RUN                                                                          
// LOADMBR NAME-?5?,REPLACE-?6?                                                 
// INOUT INLIB-?2?,OUTLIB-?4?,HALT-NO,PRINT-?7?                                 
// CREATE SOURCE-?3?,NUMBER-?8?                                                 
// END                                                                          
// IF ?CD?/1008  GOTO FAILURE                                                   
// IFF ?L'11,1'?/1  GOTO SUCCESS                                                
// TAG MENUBLD                                                                  
BLDMENU ?3?,?3?,?2?,?4?,REPLACE,KEEP,,,NOHALT                                   
// IF ?CD?/2034  GOTO FAILURE                                                   
// TAG SUCCESS                                                                  
// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1                                          
// MSG ?1?,'?3? ?M0850?'                                                        
// GOTO DONE25                                                                  
// TAG FAILURE                                                                  
// MEMBER PROGRAM1-#SA#M1,USER1-#SA#M1                                          
// MSG ?1?,'?3? ?M0851?'                                                        
// TAG DONE25

Full view