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

⟦e6818ed72⟧

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

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

* CHECK TO SEE IF OTHER LINE HAS BEEN VARIED OFF BEFORE                                                                 
// EVALUATE P1,2=?L'115,2'?                                   * FETCH THE NEXT CONTROL REC                              
// IF ?L'223,1'?=1 IF ?L'272,1'?=2 EVALUATE P1,2=?1?+1        * IF 5364 LINE VARIED OFF, INCR                           
// ELSE IF ?L'223,1'?=1 IF ?L'272,1'?=3 EVALUATE P1,2=?1?+1   * IF 53XX LINE VARIED OFF, INCR                           
// ELSE IF ?L'223,1'?=1 IFF ?L'272,1'?=2 EVALUATE P1,2=?1?+2  * IF 5360/2 LINE VARIED OFF INCR                          
// LOCAL OFFSET-115,DATA-'?1?'                                * INDEX NEXT CONTROL RECORD                               
// RESET PSP                                                  * RESTART PD SCREEN DRIVER                                

0x000…001 0xb7
0x001…038 »* CHECK TO SEE IF OTHER LINE HAS BEEN VARIED OFF BEFORE«
0x038…039 0x41
0x039…03a 0x9b
0x03a…055 »// EVALUATE P1,2=?L'115,2'?«
0x055…056 0x23
0x056…057 0x9c
0x057…073 »* FETCH THE NEXT CONTROL REC«
0x073…074 0x1e
0x074…075 0xb6
0x075…0ab »// IF ?L'223,1'?=1 IF ?L'272,1'?=2 EVALUATE P1,2=?1?+1«
0x0ab…0ac 0x08
0x0ac…0ad 0x9f
0x0ad…0cc »* IF 5364 LINE VARIED OFF, INCR«
0x0cc…0cd 0x1b
0x0cd…0ce 0xbb
0x0ce…109 »// ELSE IF ?L'223,1'?=1 IF ?L'272,1'?=3 EVALUATE P1,2=?1?+1«
0x109…10a 0x03
0x10a…10b 0x9f
0x10b…12a »* IF 53XX LINE VARIED OFF, INCR«
0x12a…12b 0x1b
0x12b…12c 0xbc
0x12c…168 »// ELSE IF ?L'223,1'?=1 IFF ?L'272,1'?=2 EVALUATE P1,2=?1?+2«
0x168…169 0x02
0x169…16a 0xa0
0x16a…18a »* IF 5360/2 LINE VARIED OFF INCR«
0x18a…18b 0x1a
0x18b…18c 0x9e
0x18c…1aa »// LOCAL OFFSET-115,DATA-'?1?'«
0x1aa…1ab 0x20
0x1ab…1ac 0x9b
0x1ac…1c7 »* INDEX NEXT CONTROL RECORD«
0x1c7…1c8 0x1f
0x1c8…1c9 0x8c
0x1c9…1d5 »// RESET PSP«
0x1d5…1d6 0x32
0x1d6…1d7 0x9a
0x1d7…1f1 »* RESTART PD SCREEN DRIVER«
0x1f1…1f2 0x20
0x1f2…1f3 0x00
0x1f3…200 00 00 00 00 00 00 00 00 00 00 00 00 00                                                            ┆␣␣␣␣␣␣␣␣␣␣␣␣␣┆

Reduced view