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

⟦525bc396e⟧ 

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

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

Text Member

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

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 0xb6
0x05a…090 »THIS PROCEDURE EXECUTES SDA FORMAT PROCESSING ROUTINES«
0x090…091 0x13
0x091…092 0x81
0x092…093 »*«
0x093…094 0x02
0x094…095 0x81
0x095…096 »*«
0x096…097 0x4c
0x097…098 0x81
0x098…099 »*«
0x099…09a 0x02
0x09a…09b 0x81
0x09b…09c »*«
0x09c…09d 0x06
0x09d…09e 0xae
0x09e…0cc »INCLUDING SDA15 FOR END OF FUNCTION PROCESSING«
0x0cc…0cd 0x18
0x0cd…0ce 0x81
0x0ce…0cf »*«
0x0cf…0d0 0x02
0x0d0…0d1 0x81
0x0d1…0d2 »*«
0x0d2…0d3 0x4c
0x0d3…0d4 0x81
0x0d4…0d5 »*«
0x0d5…0d6 0x02
0x0d6…0d7 0xce
0x0d7…125 »******************************************************************************«
0x125…126 0x02
0x126…127 0x8e
0x127…135 »// TAG SDA2BEG«
0x135…136 0x42
0x136…137 0x8d
0x137…144 »// LOAD #SASF«
0x144…145 0x43
0x145…146 0x86
0x146…14c »// RUN«
0x14c…14d 0x4a
0x14d…14e 0xa7
0x14e…175 »// LOCAL OFFSET-11,DATA-'2',AREA-SYSTEM«
0x175…176 0x29
0x176…177 0x91
0x177…188 »// IF ?L'57,1'?/Y«
0x188…189 0x02
0x189…18a 0x8d
0x18a…197 »INCLUDE SDA15«
0x197…198 0x30
0x198…199 0xa7
0x199…1c0 »// LOCAL OFFSET-57,DATA-'N',AREA-SYSTEM«
0x1c0…1c1 0x29
0x1c1…1c2 0x92
0x1c2…1d4 »// IFF ?L'09,1'?/2«
0x1d4…1d5 0x02
0x1d5…1d6 0x86
0x1d6…1dc »RETURN«
0x1dc…1dd 0x36
0x1dd…1de 0x8f
0x1de…1ed »// GOTO SDA2BEG«
0x1ed…1ee 0x41
0x1ee…1ef 0x00
0x1ef…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff                                                ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆

Reduced view