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

⟦01219ae4b⟧ 

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

Derivation

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

Text Member

// LOCAL AREA-SYSTEM                                                            
// LOAD $FECHK,CSPTFLIB                                                         
// RUN                                                                          
// STATUS MCHKBYT,8080,0000                                                     
// IF ?L'63,4'?='XXXX' RETURN                                                   
*                                                                               
// LOAD $FECHK,CSPTFLIB                                                         
// RUN                                                                          
// STATUS MCHKBYT,8080,007B                                                     
// IFF ?L'63,4'?='F0F2' RETURN                                                  
*                                                                               
// LOAD $FECHK,CSPTFLIB                                                         
// RUN                                                                          
// STATUS MCHKBYT,8080,007C                                                     
// IFF ?L'63,4'?='F1F4' RETURN                                                  
*                                                                               
// LOAD $FECHK,CSPTFLIB                                                         
// RUN                                                                          
// STATUS MCHKBYT,8080,007D                                                     
// IFF ?L'63,4'?='F8F9' RETURN                                                  
*                                                                               
// LOAD $FEFIX                                                                  
// RUN                                                                          
HDR 987B XX8B440097K                                                            
*: 05097 44 80BC=$FD7     8B R51                                                
PTF E83F U80BC,05,10                                                            
DATA 6531 A700 048E A71F                                                        
// END 1788

Full view