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

⟦4aa700cdf⟧ 

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

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

Text Member

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE EXECUTES SDA RPG PROGRAM GENERATION ROUTINES              *  
*                                                                            *  
*      INCLUDING SDA15 FOR END OF FUNCTION PROCESSING                        *  
*                                                                            *  
******************************************************************************  
// TAG SDA4BEG                                                                  
// LOAD #SASR                                                                   
// RUN                                                                          
// LOCAL OFFSET-11,DATA-'4',AREA-SYSTEM                                         
// IFF ?L'09,1'?/4  RETURN                                                      
// GOTO SDA4BEG

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 0xbb
0x05a…095 »THIS PROCEDURE EXECUTES SDA RPG PROGRAM GENERATION ROUTINES«
0x095…096 0x0e
0x096…097 0x81
0x097…098 »*«
0x098…099 0x02
0x099…09a 0x81
0x09a…09b »*«
0x09b…09c 0x4c
0x09c…09d 0x81
0x09d…09e »*«
0x09e…09f 0x02
0x09f…0a0 0x81
0x0a0…0a1 »*«
0x0a1…0a2 0x06
0x0a2…0a3 0xae
0x0a3…0d1 »INCLUDING SDA15 FOR END OF FUNCTION PROCESSING«
0x0d1…0d2 0x18
0x0d2…0d3 0x81
0x0d3…0d4 »*«
0x0d4…0d5 0x02
0x0d5…0d6 0x81
0x0d6…0d7 »*«
0x0d7…0d8 0x4c
0x0d8…0d9 0x81
0x0d9…0da »*«
0x0da…0db 0x02
0x0db…0dc 0xce
0x0dc…12a »******************************************************************************«
0x12a…12b 0x02
0x12b…12c 0x8e
0x12c…13a »// TAG SDA4BEG«
0x13a…13b 0x42
0x13b…13c 0x8d
0x13c…149 »// LOAD #SASR«
0x149…14a 0x43
0x14a…14b 0x86
0x14b…151 »// RUN«
0x151…152 0x4a
0x152…153 0xa7
0x153…17a »// LOCAL OFFSET-11,DATA-'4',AREA-SYSTEM«
0x17a…17b 0x29
0x17b…17c 0x92
0x17c…18e »// IFF ?L'09,1'?/4«
0x18e…18f 0x02
0x18f…190 0x86
0x190…196 »RETURN«
0x196…197 0x36
0x197…198 0x8f
0x198…1a7 »// GOTO SDA4BEG«
0x1a7…1a8 0x41
0x1a8…1a9 0x00
0x1a9…1c0 00 00 00 00 00 00 00 01 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00                              ┆␣␣␣␣␣␣␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x1c0…1e0 00 00 00 00 00 00 00 00 00 00 00 00 d7 e2 c4 c1 f8 f0 40 40 40 00 0c 70 50 00 0e 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣PSDA80   ␣ ø&␣ ␣␣␣␣␣┆
0x1e0…200 00 00 00 01 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff   ┆␣␣␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆

Reduced view