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    « 

* 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.                                            

0x000…001 0xae
0x001…02f »* CHECK PROGRAM INDICATOR AND LOAD THE PROGRAM«
0x02f…030 0x4a
0x030…031 0x8e
0x031…03f »// LOAD PSPEXT«
0x03f…040 0x6a
0x040…041 0x86
0x041…047 »// RUN«
0x047…048 0x2b
0x048…049 0x9b
0x049…064 »* ENABLE EXTERNAL INTERUPTS«
0x064…065 0x2c
0x065…066 0xa3
0x066…089 »// LOCAL OFFSET-113,DATA-'?L'9,4'?'«
0x089…08a 0x0e
0x08a…08b 0x9c
0x08b…0a7 »* GET THE GSUB STORED RETURN«
0x0a7…0a8 0x2b
0x0a8…0a9 0x9c
0x0a9…0c5 »// LOCAL OFFSET-226,DATA-'1'«
0x0c5…0c6 0x15
0x0c6…0c7 0x99
0x0c7…0e0 »* INDICATE THRU PATH ONCE«
0x0e0…0e1 0x2e
0x0e1…0e2 0x9d
0x0e2…0ff »// IF ?L'224,1'?=1 LOAD #OLAC«
0x0ff…100 0x5b
0x100…101 0xa2
0x101…123 »// ELSE IF ?L'224,1'?=2 LOAD #OLCR«
0x123…124 0x56
0x124…125 0xa2
0x125…147 »// ELSE IF ?L'224,1'?=3 LOAD #OLCT«
0x147…148 0x56
0x148…149 0xa2
0x149…16b »// ELSE IF ?L'224,1'?=4 LOAD #OLEC«
0x16b…16c 0x56
0x16c…16d 0xa2
0x16d…18f »// ELSE IF ?L'224,1'?=5 LOAD #OLEW«
0x18f…190 0x56
0x190…191 0xa2
0x191…1b3 »// ELSE IF ?L'224,1'?=6 LOAD #OLNC«
0x1b3…1b4 0x56
0x1b4…1b5 0xa2
0x1b5…1d7 »// ELSE IF ?L'224,1'?=8 LOAD #OLSD«
0x1d7…1d8 0x56
0x1d8…1d9 0x86
0x1d9…1df »// RUN«
0x1df…1e0 0x72
0x1e0…1e1 0x8c
0x1e1…1ed »// RESET PSP«
0x1ed…1ee 0x25
0x1ee…1ef 0x9b
0x1ef…20a »* RESTART PD SCREEN DRIVER.«
0x20a…20b 0x2c
0x20b…20c 0x00
0x20c…220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                       ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x220…240 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x6…]

Reduced view