|
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.
0x000…001 0xa6 0x001…027 »* VARY OFF THE LAN FOR TEST ALLOCATION« 0x027…028 0x52 0x028…029 0x8f 0x029…038 »// NOHALT 3,JOB« 0x038…039 0x22 0x039…03a 0x9c 0x03a…056 »* SUPRESS MESSAGE INTERUPTS.« 0x056…057 0x2b 0x057…058 0x8d 0x058…065 »// INFOMSG NO« 0x065…066 0x6b 0x066…067 0x9e 0x067…085 »// IF ?L'221,1'?/1 VARY OFF,,9« 0x085…086 0x13 0x086…087 0x9a 0x087…0a1 »* VARY OFF SPECIFIED LINE.« 0x0a1…0a2 0x2d 0x0a2…0a3 0x94 0x0a3…0b7 »// ELSE VARY OFF,,10« 0x0b7…0b8 0x64 0x0b8…0b9 0x8f 0x0b9…0c8 »// NOHALT 0,JOB« 0x0c8…0c9 0x22 0x0c9…0ca 0x95 0x0ca…0df »* RE-ENABLE MESSAGES.« 0x0df…0e0 0x32 0x0e0…0e1 0x8e 0x0e1…0ef »// INFOMSG YES« 0x0ef…0f0 0x6a 0x0f0…0f1 0x9c 0x0f1…10d »// LOCAL OFFSET-223,DATA-'1'« 0x10d…10e 0x15 0x10e…10f 0x9a 0x10f…129 »* INDICATE LINE VARIED OFF« 0x129…12a 0x2d 0x12a…12b 0x8e 0x12b…139 »// LOAD PSPEXT« 0x139…13a 0x6a 0x13a…13b 0x86 0x13b…141 »// RUN« 0x141…142 0x2b 0x142…143 0x9b 0x143…15e »* ENABLE EXTERNAL INTERUPTS« 0x15e…15f 0x2c 0x15f…160 0xa3 0x160…183 »// LOCAL OFFSET-113,DATA-'?L'9,4'?'« 0x183…184 0x0e 0x184…185 0x98 0x185…19d »* GET GSUB STORED RETURN« 0x19d…19e 0x2f 0x19e…19f 0x97 0x19f…1b6 »// WAIT INTERVAL-000030« 0x1b6…1b7 0x61 0x1b7…1b8 0xa6 0x1b8…1de »* CHECK INDICATOR AND LOAD THE PROGRAM« 0x1de…1df 0x52 0x1df…1e0 0x9d 0x1e0…1fd »// IF ?L'224,1'?=1 LOAD #OLAC« 0x1fd…1fe 0x5b 0x1fe…1ff 0xa2 0x1ff…221 »// ELSE IF ?L'224,1'?=2 LOAD #OLCR« 0x221…222 0x56 0x222…223 0xa2 0x223…245 »// ELSE IF ?L'224,1'?=3 LOAD #OLCT« 0x245…246 0x56 0x246…247 0xa2 0x247…269 »// ELSE IF ?L'224,1'?=4 LOAD #OLEC« 0x269…26a 0x56 0x26a…26b 0xa2 0x26b…28d »// ELSE IF ?L'224,1'?=5 LOAD #OLEW« 0x28d…28e 0x56 0x28e…28f 0xa2 0x28f…2b1 »// ELSE IF ?L'224,1'?=6 LOAD #OLNC« 0x2b1…2b2 0x56 0x2b2…2b3 0x86 0x2b3…2b9 »// RUN« 0x2b9…2ba 0x72 0x2ba…2bb 0x8c 0x2bb…2c7 »// RESET PSP« 0x2c7…2c8 0x25 0x2c8…2c9 0x9b 0x2c9…2e4 »* RESTART PD SCREEN DRIVER.« 0x2e4…2e5 0x2c 0x2e5…2e6 0x00 0x2e6…300 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 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆