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

⟦267315261⟧ 

    Length: 1280 (0x500)
    Notes: MEMBER_P, Member_Text
    Names: »SDA15   «

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

Text Member

// LOCAL AREA-SYSTEM                                                            
// IFF ?L'60,1'?/Y  GOTO COMPILE                                                
// LOAD $MAINT                                                                  
// RUN                                                                          
// IFF ?L'11,1'?/1   GOTO DLETSMBR                                              
// IF LOAD-'?L'113,6'?##,?L'105,8'?'  DELETE LIBRARY-O,+                        
LIBRNAME-?L'105,8'?,NAME-?L'113,6'?##                                           
// IF LOAD-'?L'113,8'?,?L'105,8'?'  DELETE LIBRARY-O,+                          
LIBRNAME-?L'105,8'?,NAME-?L'113,8'?                                             
// IF SOURCE-'?L'113,6'?##,?L'105,8'?' DELETE LIBRARY-S,+                       
LIBRNAME-?L'105,8'?,NAME-?L'113,6'?##                                           
// IF ?L'104,1'?/Y  IF SOURCE-'?L'113,6'?DT,?L'105,8'?' +                       
DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT                          
// TAG DLETSMBR                                                                 
// IF SOURCE-'?L'113,8'?,?L'105,8'?' DELETE LIBRARY-S,+                         
LIBRNAME-?L'105,8'?,NAME-?L'113,8'?                                             
// END                                                                          
// GOTO DNCMPILE                                                                
// TAG COMPILE                                                                  
// IFF ?L'11,1'?/1  GOTO NO34DTDL                                               
// IF ?L'11,1'?/1  IF ?L'104,1'?/Y  +                                           
IF SOURCE-'?L'113,6'?DT,?L'105,8'?' GOTO DLET34DT                               
// GOTO NO34DTDL                                                                
// TAG DLET34DT                                                                 
// LOAD $MAINT                                                                  
// RUN                                                                          
// DELETE LIBRARY-S,LIBRNAME-?L'105,8'?,NAME-?L'113,6'?DT                       
// END                                                                          
// TAG NO34DTDL                                                                 
// IF ?L'58,1'?/Y  EVOKE SDA20 ?WS?,?L'105,8'?,?L'113,8'?,+                     
?L'81,8'?,?L'89,8'?,?L'99,3'?                                                   
// TAG DNCMPILE                                                                 
// LOCAL OFFSET-60,DATA-'N',AREA-SYSTEM                                         
// LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM                                         
// LOCAL OFFSET-104,DATA-'N',AREA-SYSTEM

Full view