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

⟦882703f40⟧

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

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

* PROC ODTU CALLS THE DFCA AND OPEN DETECT TEST PROGRAMS AND ADDS THE RESULT TO                                         
* THE NEXT CONTROL RECORD OFFSET                                                                                        
// LOAD #OATU                                                                                                           
// RUN                                                                                                                  
// IF ?L'292,2'?=02 LOCAL OFFSET-57,DATA-'6010'                                                                         
// EVALUATE P1,2=?L'115,2'?+?L'292,2'?                                                                                  
// LOCAL OFFSET-115,DATA-'?1?'                                                                                          
// RESET PSP                                                                                                            

0x000…001 0xcf
0x001…050 »* PROC ODTU CALLS THE DFCA AND OPEN DETECT TEST PROGRAMS AND ADDS THE RESULT TO«
0x050…051 0x29
0x051…052 0xa0
0x052…072 »* THE NEXT CONTROL RECORD OFFSET«
0x072…073 0x58
0x073…074 0x8d
0x074…081 »// LOAD #OATU«
0x081…082 0x6b
0x082…083 0x86
0x083…089 »// RUN«
0x089…08a 0x72
0x08a…08b 0xaf
0x08b…0ba »// IF ?L'292,2'?=02 LOCAL OFFSET-57,DATA-'6010'«
0x0ba…0bb 0x49
0x0bb…0bc 0xa6
0x0bc…0e2 »// EVALUATE P1,2=?L'115,2'?+?L'292,2'?«
0x0e2…0e3 0x52
0x0e3…0e4 0x9e
0x0e4…102 »// LOCAL OFFSET-115,DATA-'?1?'«
0x102…103 0x5a
0x103…104 0x8c
0x104…110 »// RESET PSP«
0x110…111 0x6c
0x111…112 0x00
0x112…120 07 7a 40 0e f4 01 04 44 35 a1 59 b9 7a 80                                                         ┆ :  4  à ~ß¾:Ø┆
0x120…140 12 3a 80 5a 0c 4c 01 11 5a 0d f2 87 1f 35 a1 59 b9 78 40 00 f2 90 0d 35 a2 59 b9 b5 a1 06 d0 87   ┆  Ø! <  ! 2g  ~ß¾Ì ␣2°  sß¾§~ }g┆
0x140…160 00 f2 87 08 35 a2 59 b9 f4 01 04 0a 35 a1 59 b9 79 04 10 f2 90 08 5c 01 7a 37 5c 02 7d 29 35 a1   ┆␣2g  sß¾4    ~ß¾`  2° * : * '  ~┆
0x160…180 59 a9 35 a2 59 ac c0 87 00 00 34 08 59 a6 35 a1 59 b9 78 04 0f f2 90 0b 3a 20 59 f3 3b 40 59 f3   ┆ßz sßÐ{g␣␣  ßw ~ß¾Ì  2°   ß3  ß3┆
0x180…1a0 f2 87 08 3b 20 59 f3 3a 40 59 f3 c2 a1 59 ec f4 01 40 3d 41 59 f2 f2 01 0a 35 a1 59 b9 7a 40 11   ┆2g   ß3  ß3B~ßÖ4    ß22   ~ß¾:  ┆
0x1a0…1c0 f1 87 45 c0 87 00 00 e2 e2 e2 e2 e2 e2 00 00 00 00 00 00 00 00 00 01 e2 e2 e2 40 d7 c1 e3 c3 c8   ┆1gá{g␣␣SSSSSS␣␣␣␣␣␣␣␣␣ SSS PATCH┆
0x1c0…1e0 40 c1 d9 c5 c1 60 60 40 40 40 40 40 40 f0 f8 61 f2 f3 61 f8 f5 60 60 c4 f4 f7 d5 e3 d4 d6 e2 e2   ┆ AREA--      08/23/85--D47NTMOSS┆
0x1e0…200 e2 e2 e2 e2 e2 e2 e2 e2 e2 e2 e2 e2 c9 c6 00 00 00 00 00 40 00 00 a1 00 00 ff ff ff 00 00 00 00   ┆SSSSSSSSSSSSIF␣␣␣␣␣ ␣␣~␣␣   ␣␣␣␣┆

Reduced view