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

⟦9d990e5f1⟧ 

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

Derivation

└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
    └─⟦5f03407d3⟧ 
        └─⟦this⟧ ».OLCP    «

Text Member

* CHECK PROGRAM INDICATOR AND LOAD THE PROGRAM                                                                          
// LOAD PSPEXT                                                                                                          
// RUN                                           * ENABLE EXTERNAL INTERUPTS                                            
// LOCAL OFFSET-113,DATA-'?L'9,4'?'              * GET THE GSUB STORED RETURN                                           
// LOCAL OFFSET-226,DATA-'1'                     * INDICATE THRU PATH ONCE                                              
// IF ?L'224,1'?=1 LOAD #OLAC                                                                                           
// ELSE IF ?L'224,1'?=2 LOAD #OLCR                                                                                      
// ELSE IF ?L'224,1'?=3 LOAD #OLCT                                                                                      
// ELSE IF ?L'224,1'?=4 LOAD #OLEC                                                                                      
// ELSE IF ?L'224,1'?=5 LOAD #OLEW                                                                                      
// ELSE IF ?L'224,1'?=6 LOAD #OLNC                                                                                      
// ELSE IF ?L'224,1'?=8 LOAD #OLSD                                                                                      
// RUN                                                                                                                  
// RESET PSP                                     * RESTART PD SCREEN DRIVER.

Full view