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

⟦a02e6f669⟧

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

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

* PROC OWSC CHECKS THE 2ND WORKSTATION CONTROLLER                                                                       
// LOAD #OWWS                                                                                                           
// RUN                                                                                                                  
// EVALUATE P1,2=?L'115,2'?+?L'230,1'?                                                                                  
// LOCAL OFFSET-115,DATA-'?1?'                                                                                          
// IF ?L'230,1'?=1 LOCAL OFFSET-57,DATA-'CC40'                                                                          
// ELSE IF ?L'230,1'?=2 LOCAL OFFSET-57,DATA-'CCB0'                                                                     
// RESET PSP                                                                                                            

0x000…001 0xb1
0x001…032 »* PROC OWSC CHECKS THE 2ND WORKSTATION CONTROLLER«
0x032…033 0x47
0x033…034 0x8d
0x034…041 »// LOAD #OWWS«
0x041…042 0x6b
0x042…043 0x86
0x043…049 »// RUN«
0x049…04a 0x72
0x04a…04b 0xa6
0x04b…071 »// EVALUATE P1,2=?L'115,2'?+?L'230,1'?«
0x071…072 0x52
0x072…073 0x9e
0x073…091 »// LOCAL OFFSET-115,DATA-'?1?'«
0x091…092 0x5a
0x092…093 0xae
0x093…0c1 »// IF ?L'230,1'?=1 LOCAL OFFSET-57,DATA-'CC40'«
0x0c1…0c2 0x4a
0x0c2…0c3 0xb3
0x0c3…0f6 »// ELSE IF ?L'230,1'?=2 LOCAL OFFSET-57,DATA-'CCB0'«
0x0f6…0f7 0x45
0x0f7…0f8 0x8c
0x0f8…104 »// RESET PSP«
0x104…105 0x6c
0x105…106 0x00
0x106…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                     ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
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…]

Reduced view