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

⟦c3d868f98⟧ 

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

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

Text Member

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE EXECUTES SDA FORMAT PROCESSING ROUTINES FOR WSU FORMATS   *  
*                                                                            *  
*      INCLUDING SDA15 FOR END OF FUNCTION PROCESSING                        *  
*                                                                            *  
******************************************************************************  
// TAG SDA3BEG                                                                  
// LOAD #SASF                                                                   
// RUN                                                                          
// LOCAL OFFSET-11,DATA-'3',AREA-SYSTEM                                         
// IF ?L'57,1'?/Y  INCLUDE SDA15                                                
// LOCAL OFFSET-57,DATA-'N',AREA-SYSTEM                                         
// IFF ?L'09,1'?/3  RETURN                                                      
// GOTO SDA3BEG

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 0xc6
0x05a…0a0 »THIS PROCEDURE EXECUTES SDA FORMAT PROCESSING ROUTINES FOR WSU FORMATS«
0x0a0…0a1 0x03
0x0a1…0a2 0x81
0x0a2…0a3 »*«
0x0a3…0a4 0x02
0x0a4…0a5 0x81
0x0a5…0a6 »*«
0x0a6…0a7 0x4c
0x0a7…0a8 0x81
0x0a8…0a9 »*«
0x0a9…0aa 0x02
0x0aa…0ab 0x81
0x0ab…0ac »*«
0x0ac…0ad 0x06
0x0ad…0ae 0xae
0x0ae…0dc »INCLUDING SDA15 FOR END OF FUNCTION PROCESSING«
0x0dc…0dd 0x18
0x0dd…0de 0x81
0x0de…0df »*«
0x0df…0e0 0x02
0x0e0…0e1 0x81
0x0e1…0e2 »*«
0x0e2…0e3 0x4c
0x0e3…0e4 0x81
0x0e4…0e5 »*«
0x0e5…0e6 0x02
0x0e6…0e7 0xce
0x0e7…135 »******************************************************************************«
0x135…136 0x02
0x136…137 0x8e
0x137…145 »// TAG SDA3BEG«
0x145…146 0x42
0x146…147 0x8d
0x147…154 »// LOAD #SASF«
0x154…155 0x43
0x155…156 0x86
0x156…15c »// RUN«
0x15c…15d 0x4a
0x15d…15e 0xa7
0x15e…185 »// LOCAL OFFSET-11,DATA-'3',AREA-SYSTEM«
0x185…186 0x29
0x186…187 0x91
0x187…198 »// IF ?L'57,1'?/Y«
0x198…199 0x02
0x199…19a 0x8d
0x19a…1a7 »INCLUDE SDA15«
0x1a7…1a8 0x30
0x1a8…1a9 0xa7
0x1a9…1d0 »// LOCAL OFFSET-57,DATA-'N',AREA-SYSTEM«
0x1d0…1d1 0x29
0x1d1…1d2 0x92
0x1d2…1e4 »// IFF ?L'09,1'?/3«
0x1e4…1e5 0x02
0x1e5…1e6 0x86
0x1e6…1ec »RETURN«
0x1ec…1ed 0x36
0x1ed…1ee 0x8f
0x1ee…1fd »// GOTO SDA3BEG«
0x1fd…1fe 0x41
0x1fe…1ff 0x00
0x1ff…200 ff                                                                                                ┆ ┆

Reduced view