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

⟦fa1b15c32⟧

    Length: 1024 (0x400)
    Notes: MEMBER_P, Member_Text
    Names: »SDA50   «

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

******************************************************************************  
*                                                                            *  
*   THIS PROCEDURE CHECKS FOR COMPILE OPTION AND EVOKES SDA55                *  
*          IF Y (YES) OR 0 OR 1 OR 2 (WSU LISTING XREF LEVEL OPTION)         *  
*          TO START WSU COMPILATION OF SDA GENERATED OUTPUT SOURCE           *  
*                                                                            *  
* INPUT:                                                                     *  
*   LDA CONTAINS NAMES OF OUTPUT SOURCE LIBRARY AND MEMBER AND OPTION        *  
*                                                                            *  
* OUTPUT:                                                                    *  
*   PARAM 1 - WORKSTATION ID OF SDA REQUESTOR                                *  
*   PARAM 2 - NAME OF SOURCE LIBRARY IN WHICH MEMBER TO COMPILE RESIDES      *  
*   PARAM 3 - NAME OF SOURCE MEMBER TO COMPILE                               *  
*   PARAM 4 - LEVEL OF WSU COMPILATION LISTING SELECTED                      *  
*                                                                            *  
******************************************************************************  
// LOCAL AREA-SYSTEM                                                            
// IF ?L'58,1'?/Y  EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,1                     
// IFF ?L'58,1'?/0 IFF ?L'58,1'?/1 IFF ?L'58,1'?/2 GOTO DONE                    
// EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,?L'58,1'?                             
// TAG DONE                                                                     
// LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM                                         

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 CHECKS FOR COMPILE OPTION AND EVOKES SDA55«
0x093…094 0x10
0x094…095 0x81
0x095…096 »*«
0x096…097 0x02
0x097…098 0x81
0x098…099 »*«
0x099…09a 0x0a
0x09a…09b 0xb9
0x09b…0d4 »IF Y (YES) OR 0 OR 1 OR 2 (WSU LISTING XREF LEVEL OPTION)«
0x0d4…0d5 0x09
0x0d5…0d6 0x81
0x0d6…0d7 »*«
0x0d7…0d8 0x02
0x0d8…0d9 0x81
0x0d9…0da »*«
0x0da…0db 0x0a
0x0db…0dc 0xb7
0x0dc…113 »TO START WSU COMPILATION OF SDA GENERATED OUTPUT SOURCE«
0x113…114 0x0b
0x114…115 0x81
0x115…116 »*«
0x116…117 0x02
0x117…118 0x81
0x118…119 »*«
0x119…11a 0x4c
0x11a…11b 0x81
0x11b…11c »*«
0x11c…11d 0x02
0x11d…11e 0x88
0x11e…126 »* INPUT:«
0x126…127 0x45
0x127…128 0x81
0x128…129 »*«
0x129…12a 0x02
0x12a…12b 0x81
0x12b…12c »*«
0x12c…12d 0x03
0x12d…12e 0xc1
0x12e…16f »LDA CONTAINS NAMES OF OUTPUT SOURCE LIBRARY AND MEMBER AND OPTION«
0x16f…170 0x08
0x170…171 0x81
0x171…172 »*«
0x172…173 0x02
0x173…174 0x81
0x174…175 »*«
0x175…176 0x4c
0x176…177 0x81
0x177…178 »*«
0x178…179 0x02
0x179…17a 0x89
0x17a…183 »* OUTPUT:«
0x183…184 0x44
0x184…185 0x81
0x185…186 »*«
0x186…187 0x02
0x187…188 0x81
0x188…189 »*«
0x189…18a 0x03
0x18a…18b 0xa9
0x18b…1b4 »PARAM 1 - WORKSTATION ID OF SDA REQUESTOR«
0x1b4…1b5 0x20
0x1b5…1b6 0x81
0x1b6…1b7 »*«
0x1b7…1b8 0x02
0x1b8…1b9 0x81
0x1b9…1ba »*«
0x1ba…1bb 0x03
0x1bb…1bc 0xc3
0x1bc…1ff »PARAM 2 - NAME OF SOURCE LIBRARY IN WHICH MEMBER TO COMPILE RESIDES«
0x1ff…200 0x06
0x200…201 0x81
0x201…202 »*«
0x202…203 0x02
0x203…204 0x81
0x204…205 »*«
0x205…206 0x03
0x206…207 0xaa
0x207…231 »PARAM 3 - NAME OF SOURCE MEMBER TO COMPILE«
0x231…232 0x1f
0x232…233 0x81
0x233…234 »*«
0x234…235 0x02
0x235…236 0x81
0x236…237 »*«
0x237…238 0x03
0x238…239 0xb3
0x239…26c »PARAM 4 - LEVEL OF WSU COMPILATION LISTING SELECTED«
0x26c…26d 0x16
0x26d…26e 0x81
0x26e…26f »*«
0x26f…270 0x02
0x270…271 0x81
0x271…272 »*«
0x272…273 0x4c
0x273…274 0x81
0x274…275 »*«
0x275…276 0x02
0x276…277 0xce
0x277…2c5 »******************************************************************************«
0x2c5…2c6 0x02
0x2c6…2c7 0x94
0x2c7…2db »// LOCAL AREA-SYSTEM«
0x2db…2dc 0x3c
0x2dc…2dd 0x91
0x2dd…2ee »// IF ?L'58,1'?/Y«
0x2ee…2ef 0x02
0x2ef…2f0 0xa8
0x2f0…318 »EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,1«
0x318…319 0x15
0x319…31a 0xbc
0x31a…356 »// IFF ?L'58,1'?/0 IFF ?L'58,1'?/1 IFF ?L'58,1'?/2 GOTO DONE«
0x356…357 0x14
0x357…358 0xb3
0x358…38b »// EVOKE SDA55 ?WS?,?L'105,8'?,?L'113,8'?,?L'58,1'?«
0x38b…38c 0x1d
0x38c…38d 0x8b
0x38d…398 »// TAG DONE«
0x398…399 0x45
0x399…39a 0xa7
0x39a…3c1 »// LOCAL OFFSET-58,DATA-'N',AREA-SYSTEM«
0x3c1…3c2 0x29
0x3c2…3c3 0x00
0x3c3…3e0 99 00 00 00 00 00 00 00 00 d7 e2 c5 e4 d3 d6 c1 c4 40 00 08 07 50 00 23 00 00 00 00 40            ┆r␣␣␣␣␣␣␣␣PSEULOAD ␣  &␣ ␣␣␣␣ ┆
0x3e0…400 00 00 00 01 00 05 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