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

⟦a26e77d07⟧

    Length: 768 (0x300)
    Notes: MEMBER_P, Member_Text
    Names: »SDALOAD «

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
    └─⟦059c4c04f⟧ 
        └─⟦this⟧ ».SDALOAD « 

*  THIS PROCEDURE COPIES SDA TO A SEPARATE LIBRARY, #SDALIB,                    
*  ON FIXED DISK FROM DISKETTE BY CALLING SDAILOD AND SDAMRI.                   
*  PARAMETER 1 IS DISK SPINDLE PREFERENCE.                                      
*  PARAMETER 2 IS DISKETTE LOCATION.                                            
// MEMBER USER1-##MSGC                                                          
// IF JOBQ-NO IF EVOKED-NO * ' SDALOAD?M3500?'                                  
// TAG CHKDISK                                                                  
// IF DATAI1-'SDALIB,,?2'S1'?' GOTO CALLPROC                                    
// * 3290                                                                       
// #ERR 3291,13,CNFG                                                            
// GOTO CHKDISK                                                                 
// TAG CALLPROC                                                                 
SDAILOD ?2'S1'?,?1?                                                             
// IFF LOAD-'#SA#M1,#SDALIB' GOTO MRI                                           
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SDALOAD 44'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          
// GOTO ENDPROC                                                                 
// TAG MRI                                                                      
// PAUSE '?M'3502,1,60'? PPUTIL'                                                
SDAMRI ?2?                                                                      
// TAG ENDPROC                                                                  

0x000…001 0x81
0x001…002 »*«
0x002…003 0x02
0x003…004 0xb9
0x004…03d »THIS PROCEDURE COPIES SDA TO A SEPARATE LIBRARY, #SDALIB,«
0x03d…03e 0x14
0x03e…03f 0x81
0x03f…040 »*«
0x040…041 0x02
0x041…042 0xba
0x042…07c »ON FIXED DISK FROM DISKETTE BY CALLING SDAILOD AND SDAMRI.«
0x07c…07d 0x13
0x07d…07e 0x81
0x07e…07f »*«
0x07f…080 0x02
0x080…081 0xa7
0x081…0a8 »PARAMETER 1 IS DISK SPINDLE PREFERENCE.«
0x0a8…0a9 0x26
0x0a9…0aa 0x81
0x0aa…0ab »*«
0x0ab…0ac 0x02
0x0ac…0ad 0xa1
0x0ad…0ce »PARAMETER 2 IS DISKETTE LOCATION.«
0x0ce…0cf 0x2c
0x0cf…0d0 0x96
0x0d0…0e6 »// MEMBER USER1-##MSGC«
0x0e6…0e7 0x3a
0x0e7…0e8 0xae
0x0e8…116 »// IF JOBQ-NO IF EVOKED-NO * ' SDALOAD?M3500?'«
0x116…117 0x22
0x117…118 0x8e
0x118…126 »// TAG CHKDISK«
0x126…127 0x42
0x127…128 0xac
0x128…154 »// IF DATAI1-'SDALIB,,?2'S1'?' GOTO CALLPROC«
0x154…155 0x24
0x155…156 0x89
0x156…15f »// * 3290«
0x15f…160 0x47
0x160…161 0x94
0x161…175 »// #ERR 3291,13,CNFG«
0x175…176 0x3c
0x176…177 0x8f
0x177…186 »// GOTO CHKDISK«
0x186…187 0x41
0x187…188 0x8f
0x188…197 »// TAG CALLPROC«
0x197…198 0x41
0x198…199 0x93
0x199…1ac »SDAILOD ?2'S1'?,?1?«
0x1ac…1ad 0x3d
0x1ad…1ae 0xa5
0x1ae…1d3 »// IFF LOAD-'#SA#M1,#SDALIB' GOTO MRI«
0x1d3…1d4 0x2b
0x1d4…1d5 0xaf
0x1d5…204 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SDALOAD 44'«
0x204…205 0x21
0x205…206 0x8d
0x206…213 »// LOAD $CNAD«
0x213…214 0x43
0x214…215 0x86
0x215…21b »// RUN«
0x21b…21c 0x4a
0x21c…21d 0x8f
0x21d…22c »// GOTO ENDPROC«
0x22c…22d 0x41
0x22d…22e 0x8a
0x22e…238 »// TAG MRI«
0x238…239 0x46
0x239…23a 0xa0
0x23a…25a »// PAUSE '?M'3502,1,60'? PPUTIL'«
0x25a…25b 0x30
0x25b…25c 0x8a
0x25c…266 »SDAMRI ?2?«
0x266…267 0x46
0x267…268 0x8e
0x268…276 »// TAG ENDPROC«
0x276…277 0x42
0x277…278 0x00
0x278…280 00 40 00 02 00 03 00 05                                                                           ┆␣ ␣ ␣ ␣ ┆
0x280…2a0 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3e 00 00 00 00 00 00 00 00 00 d7 e2 c4 c1 40 40 40   ┆ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ␣␣␣␣␣␣␣␣␣PSDA   ┆
0x2a0…2c0 40 40 00 0f 1a 50 00 1c 00 00 00 00 40 00 02 00 02 00 06 30 00 00 00 00 00 00 00 00 00 00 00 00   ┆  ␣  &␣ ␣␣␣␣ ␣ ␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣┆
0x2c0…2e0 00 80 3d 66 00 00 00 00 00 00 00 00 d7 e2 c4 c1 c9 d3 d6 c4 40 00 0f 27 50 00 1b 00 00 00 00 40   ┆␣Ø Ã␣␣␣␣␣␣␣␣PSDAILOD ␣  &␣ ␣␣␣␣ ┆
0x2e0…300 00 02 00 05 00 04 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 00 00 00 00 00 00 00 ff   ┆␣ ␣ ␣  ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆

Reduced view