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

⟦47cc3b8aa⟧

    Length: 512 (0x200)
    Notes: MEMBER_P, Member_Text
    Names: »OLLP    «

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

* 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                                           
// 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                                                                                                                  
// LOCAL OFFSET-226,DATA-'0'                                                                                            
// 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 0x9d
0x0a9…0c6 »// IF ?L'224,1'?=1 LOAD #OLAC«
0x0c6…0c7 0x5b
0x0c7…0c8 0xa2
0x0c8…0ea »// ELSE IF ?L'224,1'?=2 LOAD #OLCR«
0x0ea…0eb 0x56
0x0eb…0ec 0xa2
0x0ec…10e »// ELSE IF ?L'224,1'?=3 LOAD #OLCT«
0x10e…10f 0x56
0x10f…110 0xa2
0x110…132 »// ELSE IF ?L'224,1'?=4 LOAD #OLEC«
0x132…133 0x56
0x133…134 0xa2
0x134…156 »// ELSE IF ?L'224,1'?=5 LOAD #OLEW«
0x156…157 0x56
0x157…158 0xa2
0x158…17a »// ELSE IF ?L'224,1'?=6 LOAD #OLNC«
0x17a…17b 0x56
0x17b…17c 0xa2
0x17c…19e »// ELSE IF ?L'224,1'?=8 LOAD #OLSD«
0x19e…19f 0x56
0x19f…1a0 0x86
0x1a0…1a6 »// RUN«
0x1a6…1a7 0x72
0x1a7…1a8 0x9c
0x1a8…1c4 »// LOCAL OFFSET-226,DATA-'0'«
0x1c4…1c5 0x5c
0x1c5…1c6 0x8c
0x1c6…1d2 »// RESET PSP«
0x1d2…1d3 0x25
0x1d3…1d4 0x9b
0x1d4…1ef »* RESTART PD SCREEN DRIVER.«
0x1ef…1f0 0x2c
0x1f0…1f1 0x00
0x1f1…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                      ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆

Reduced view