|
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: 512 (0x200)
Notes: MEMBER_P, Member_Text
Names: »OLSB «
└─⟦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⟧ ».OLSB «
* CHECK SYSTEM TYPE FOR 536X // EVALUATE P1,2=?L'115,2'? * FETCH THE NEXT CONTROL REC // IF ?L'272,1'?=3 EVALUATE P1,2=?1?+1 * IF SYSTEM IS 536X, INCR // LOCAL OFFSET-115,DATA-'?1?' * INDEX NEXT CONTROL RECORD // RESET PSP * RESTART PD SCREEN DRIVER.
0x000…001 0x9c
0x001…01d »* CHECK SYSTEM TYPE FOR 536X«
0x01d…01e 0x5c
0x01e…01f 0x9b
0x01f…03a »// EVALUATE P1,2=?L'115,2'?«
0x03a…03b 0x18
0x03b…03c 0x9c
0x03c…058 »* FETCH THE NEXT CONTROL REC«
0x058…059 0x29
0x059…05a 0xa6
0x05a…080 »// IF ?L'272,1'?=3 EVALUATE P1,2=?1?+1«
0x080…081 0x0d
0x081…082 0x99
0x082…09b »* IF SYSTEM IS 536X, INCR«
0x09b…09c 0x2c
0x09c…09d 0x9e
0x09d…0bb »// LOCAL OFFSET-115,DATA-'?1?'«
0x0bb…0bc 0x15
0x0bc…0bd 0x9b
0x0bd…0d8 »* INDEX NEXT CONTROL RECORD«
0x0d8…0d9 0x2a
0x0d9…0da 0x8c
0x0da…0e6 »// RESET PSP«
0x0e6…0e7 0x27
0x0e7…0e8 0x9b
0x0e8…103 »* RESTART PD SCREEN DRIVER.«
0x103…104 0x2a
0x104…105 0x00
0x105…120 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 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x120…140 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…]