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

⟦3bd0b51ef⟧ 

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SDA60   «

Derivation

└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
    └─⟦93ec53657⟧ 
        └─⟦this⟧ ».SDA60   «

Text Member

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE CALLS SEU OR DSU SUBSTITUTING MEMBER NAME,                *  
*       MEMBER TYPE, STATEMENT LENGTH, AND LIBRARY INTO THE SEU              *  
*       OR DSU PROCEDURE                                                     *  
*                                                                            *  
*       THE PRIMARY FILE IS DELETED WHEN EDITING IS COMPLETE                 *  
*                                                                            *  
******************************************************************************  
// IF PROC-'DSU,#LIBRARY' DSU EDIT,?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?     
// ELSE SEU ?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?                            
// IFF DATAF1-#SD.?WS? GOTO ENDSDA60                                            
// LOAD $DELET                                                                  
// RUN                                                                          
// SCRATCH UNIT-F1,LABEL-#SD.?WS?                                               
// END                                                                          
// TAG ENDSDA60

OctetView - MemberText

0x000…001 0xce
0x001…04f »******************************************************************************«
0x04f…050 0x02
0x050…051 0x81
0x051…052 »*«
0x052…053 0x4c
0x053…054 0x81
0x054…055 »*«
0x055…056 0x02
0x056…057 0x81
0x057…058 »*«
0x058…059 0x03
0x059…05a 0xb9
0x05a…093 »THIS PROCEDURE CALLS SEU OR DSU SUBSTITUTING MEMBER NAME,«
0x093…094 0x10
0x094…095 0x81
0x095…096 »*«
0x096…097 0x02
0x097…098 0x81
0x098…099 »*«
0x099…09a 0x07
0x09a…09b 0xb7
0x09b…0d2 »MEMBER TYPE, STATEMENT LENGTH, AND LIBRARY INTO THE SEU«
0x0d2…0d3 0x0e
0x0d3…0d4 0x81
0x0d4…0d5 »*«
0x0d5…0d6 0x02
0x0d6…0d7 0x81
0x0d7…0d8 »*«
0x0d8…0d9 0x07
0x0d9…0da 0x90
0x0da…0ea »OR DSU PROCEDURE«
0x0ea…0eb 0x35
0x0eb…0ec 0x81
0x0ec…0ed »*«
0x0ed…0ee 0x02
0x0ee…0ef 0x81
0x0ef…0f0 »*«
0x0f0…0f1 0x4c
0x0f1…0f2 0x81
0x0f2…0f3 »*«
0x0f3…0f4 0x02
0x0f4…0f5 0x81
0x0f5…0f6 »*«
0x0f6…0f7 0x07
0x0f7…0f8 0xb4
0x0f8…12c »THE PRIMARY FILE IS DELETED WHEN EDITING IS COMPLETE«
0x12c…12d 0x11
0x12d…12e 0x81
0x12e…12f »*«
0x12f…130 0x02
0x130…131 0x81
0x131…132 »*«
0x132…133 0x4c
0x133…134 0x81
0x134…135 »*«
0x135…136 0x02
0x136…137 0xce
0x137…185 »******************************************************************************«
0x185…186 0x02
0x186…187 0xcb
0x187…1d2 »// IF PROC-'DSU,#LIBRARY' DSU EDIT,?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?«
0x1d2…1d3 0x05
0x1d3…1d4 0xb4
0x1d4…208 »// ELSE SEU ?L'73,8'?,?L'81,1'?,,?L'82,3'?,?L'65,8'?«
0x208…209 0x1c
0x209…20a 0xa4
0x20a…22e »// IFF DATAF1-#SD.?WS? GOTO ENDSDA60«
0x22e…22f 0x2c
0x22f…230 0x8e
0x230…23e »// LOAD $DELET«
0x23e…23f 0x42
0x23f…240 0x86
0x240…246 »// RUN«
0x246…247 0x4a
0x247…248 0xa1
0x248…269 »// SCRATCH UNIT-F1,LABEL-#SD.?WS?«
0x269…26a 0x2f
0x26a…26b 0x86
0x26b…271 »// END«
0x271…272 0x4a
0x272…273 0x8f
0x273…282 »// TAG ENDSDA60«
0x282…283 0x41
0x283…284 0x00
0x284…2a0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff               ┆                            ┆
0x2a0…2c0 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff   ┆                                ┆
          […0x2…]

Reduced view