|
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: »OLVV «
└─⟦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⟧ ».OLVV «
* VARY OFF THE OTHER LAN LINE FOR TEST ALLOCATION // NOHALT 3,JOB * SUPRESS MESSAGE INTERUPTS. // INFOMSG NO // IF ?L'221,1'?/1 VARY OFF,,10 * VARY OFF SPECIFIED LINE. // ELSE VARY OFF,,9 // 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 0xb1 0x001…032 »* VARY OFF THE OTHER LAN LINE FOR TEST ALLOCATION« 0x032…033 0x47 0x033…034 0x8f 0x034…043 »// NOHALT 3,JOB« 0x043…044 0x22 0x044…045 0x9c 0x045…061 »* SUPRESS MESSAGE INTERUPTS.« 0x061…062 0x2b 0x062…063 0x8d 0x063…070 »// INFOMSG NO« 0x070…071 0x6b 0x071…072 0x9f 0x072…091 »// IF ?L'221,1'?/1 VARY OFF,,10« 0x091…092 0x12 0x092…093 0x9a 0x093…0ad »* VARY OFF SPECIFIED LINE.« 0x0ad…0ae 0x2d 0x0ae…0af 0x93 0x0af…0c2 »// ELSE VARY OFF,,9« 0x0c2…0c3 0x65 0x0c3…0c4 0x8f 0x0c4…0d3 »// NOHALT 0,JOB« 0x0d3…0d4 0x22 0x0d4…0d5 0x95 0x0d5…0ea »* RE-ENABLE MESSAGES.« 0x0ea…0eb 0x32 0x0eb…0ec 0x8e 0x0ec…0fa »// INFOMSG YES« 0x0fa…0fb 0x6a 0x0fb…0fc 0x9c 0x0fc…118 »// LOCAL OFFSET-223,DATA-'1'« 0x118…119 0x15 0x119…11a 0x9a 0x11a…134 »* INDICATE LINE VARIED OFF« 0x134…135 0x2d 0x135…136 0x8e 0x136…144 »// LOAD PSPEXT« 0x144…145 0x6a 0x145…146 0x86 0x146…14c »// RUN« 0x14c…14d 0x2b 0x14d…14e 0x9b 0x14e…169 »* ENABLE EXTERNAL INTERUPTS« 0x169…16a 0x2c 0x16a…16b 0xa3 0x16b…18e »// LOCAL OFFSET-113,DATA-'?L'9,4'?'« 0x18e…18f 0x0e 0x18f…190 0x98 0x190…1a8 »* GET GSUB STORED RETURN« 0x1a8…1a9 0x2f 0x1a9…1aa 0x97 0x1aa…1c1 »// WAIT INTERVAL-000030« 0x1c1…1c2 0x61 0x1c2…1c3 0xa6 0x1c3…1e9 »* CHECK INDICATOR AND LOAD THE PROGRAM« 0x1e9…1ea 0x52 0x1ea…1eb 0x9d 0x1eb…208 »// IF ?L'224,1'?=1 LOAD #OLAC« 0x208…209 0x5b 0x209…20a 0xa2 0x20a…22c »// ELSE IF ?L'224,1'?=2 LOAD #OLCR« 0x22c…22d 0x56 0x22d…22e 0xa2 0x22e…250 »// ELSE IF ?L'224,1'?=3 LOAD #OLCT« 0x250…251 0x56 0x251…252 0xa2 0x252…274 »// ELSE IF ?L'224,1'?=4 LOAD #OLEC« 0x274…275 0x56 0x275…276 0xa2 0x276…298 »// ELSE IF ?L'224,1'?=5 LOAD #OLEW« 0x298…299 0x56 0x299…29a 0xa2 0x29a…2bc »// ELSE IF ?L'224,1'?=6 LOAD #OLNC« 0x2bc…2bd 0x56 0x2bd…2be 0x86 0x2be…2c4 »// RUN« 0x2c4…2c5 0x72 0x2c5…2c6 0x8c 0x2c6…2d2 »// RESET PSP« 0x2d2…2d3 0x25 0x2d3…2d4 0x9b 0x2d4…2ef »* RESTART PD SCREEN DRIVER.« 0x2ef…2f0 0x2c 0x2f0…2f1 0x00 0x2f1…300 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆