|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Notes: MEMBER_P, Member_Text
Names: »OLVO «
└─⟦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⟧ ».OLVO «
* VARY OFF THE LAN FOR TEST ALLOCATION // NOHALT 3,JOB * SUPRESS MESSAGE INTERUPTS. // INFOMSG NO // IF ?L'221,1'?/1 VARY OFF,,9 * VARY OFF SPECIFIED LINE. // ELSE VARY OFF,,10 // NOHALT 0,JOB * RE-ENABLE MESSAGES. // INFOMSG YES // LOCAL OFFSET-223,DATA-'1' * INDICATE LINE VARIED OFF // LOAD PSPEXT // RUN * ENABLE EXTERNAL INTERUPTS // LOCAL OFFSET-113,DATA-'?L'9,4'?' * GET GSUB STORED RETURN // WAIT INTERVAL-000030 * CHECK INDICATOR AND LOAD THE PROGRAM // 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 // RUN // RESET PSP * RESTART PD SCREEN DRIVER.