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

⟦fcc7387bd⟧

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

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

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE EXECUTES SDA FORMAT COMPILE ROUTINE FOR $SFGR FORMATS     *  
*                                                                            *  
*        INCLUDES SDA90 TO COMPILE FORMATS                                   *  
*                                                                            *  
******************************************************************************  
// TAG SDA9BEG                                                                  
// LOAD #SASC                                                                   
// RUN                                                                          
// LOCAL OFFSET-11,DATA-'9',AREA-SYSTEM                                         
// IF ?L'57,1'?/Y   INCLUDE SDA90                                               
// LOCAL OFFSET-57,DATA-'N',AREA-SYSTEM                                         
// IFF ?L'09,1'?/9   RETURN                                                     
// GOTO SDA9BEG                                                                 

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 0xc4
0x05a…09e »THIS PROCEDURE EXECUTES SDA FORMAT COMPILE ROUTINE FOR $SFGR FORMATS«
0x09e…09f 0x05
0x09f…0a0 0x81
0x0a0…0a1 »*«
0x0a1…0a2 0x02
0x0a2…0a3 0x81
0x0a3…0a4 »*«
0x0a4…0a5 0x4c
0x0a5…0a6 0x81
0x0a6…0a7 »*«
0x0a7…0a8 0x02
0x0a8…0a9 0x81
0x0a9…0aa »*«
0x0aa…0ab 0x08
0x0ab…0ac 0xa1
0x0ac…0cd »INCLUDES SDA90 TO COMPILE FORMATS«
0x0cd…0ce 0x23
0x0ce…0cf 0x81
0x0cf…0d0 »*«
0x0d0…0d1 0x02
0x0d1…0d2 0x81
0x0d2…0d3 »*«
0x0d3…0d4 0x4c
0x0d4…0d5 0x81
0x0d5…0d6 »*«
0x0d6…0d7 0x02
0x0d7…0d8 0xce
0x0d8…126 »******************************************************************************«
0x126…127 0x02
0x127…128 0x8e
0x128…136 »// TAG SDA9BEG«
0x136…137 0x42
0x137…138 0x8d
0x138…145 »// LOAD #SASC«
0x145…146 0x43
0x146…147 0x86
0x147…14d »// RUN«
0x14d…14e 0x4a
0x14e…14f 0xa7
0x14f…176 »// LOCAL OFFSET-11,DATA-'9',AREA-SYSTEM«
0x176…177 0x29
0x177…178 0x91
0x178…189 »// IF ?L'57,1'?/Y«
0x189…18a 0x03
0x18a…18b 0x8d
0x18b…198 »INCLUDE SDA90«
0x198…199 0x2f
0x199…19a 0xa7
0x19a…1c1 »// LOCAL OFFSET-57,DATA-'N',AREA-SYSTEM«
0x1c1…1c2 0x29
0x1c2…1c3 0x92
0x1c3…1d5 »// IFF ?L'09,1'?/9«
0x1d5…1d6 0x03
0x1d6…1d7 0x86
0x1d7…1dd »RETURN«
0x1dd…1de 0x35
0x1de…1df 0x8f
0x1df…1ee »// GOTO SDA9BEG«
0x1ee…1ef 0x41
0x1ef…1f0 0x00
0x1f0…200 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff                                                   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣ ┆

Reduced view