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    «

Text Member

* 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

Full view