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

⟦c8e919e7b⟧ 

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »LIBRE   «

Derivation

└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
    └─⟦3adc66155⟧ 
        └─⟦this⟧ ».LIBRE   «

Text Member

// IF ?9F'?2?'?/S GOTO EDIT ?2F'T'?                                                                                     
// IF       ?2?/M GOTO EDIT ?2F'T'?                                                                                     
// IF       ?2?/G GOTO EDIT ?2F'R'?                                                                                     
// IFF ?2?/R IFF ?2?/C IFF ?2?/F IFF ?2?/P IFF ?2?/A IFF ?2?/T IFF ?2?/V IFF ?2?/O IF ?2F'S'?/                          
// TAG EDIT                                                                                                             
FSEDIT ?1?,?2?,?3?                                                                                                      
// ATTR PRIORITY-NO                                                                                                     
// IF SWITCH1-1 RETURN                                                                                                  
// IFF ?9?/R IFF ?9?/C IFF ?9?/V IFF ?9?/A IFF ?9?/F IFF ?9?/M IFF ?9?/U IFF ?9?/G RETURN                               
// IFF ?9?/U GOTO COMPILE                                                                                               
// LOCAL OFFSET-52,DATA-'        '                                                                                      
// LOCAL OFFSET-52,DATA-'?1?'                                                                                           
// IFF ?L'57,1'?/ GOTO SUBSTR ?8F'6'?                                                                                   
// IFF ?L'56,1'?/ GOTO SUBSTR ?8F'5'?                                                                                   
// IFF ?L'55,1'?/ GOTO SUBSTR ?8F'4'?                                                                                   
// IFF ?L'54,1'?/ GOTO SUBSTR ?8F'3'?                                                                                   
// IFF ?L'53,1'?/ GOTO SUBSTR ?8F'2'?                                                                                   
// IFF ?L'52,1'?/ GOTO SUBSTR ?8F'1'?                                                                                   
// RETURN                                                                                                               
// TAG SUBSTR                                                                                                           
// IF ?1F'?L'52,?8?'?'?/                                                                                                
// TAG COMPILE                                                                                                          
// IF SWITCH8-1 LIBRC ?1?,?9?,?3?

Full view