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

⟦74c4c3315⟧ 

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

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
    └─⟦41ed29fcc⟧ 
        └─⟦this⟧ ».DFULOAD «

Text Member

***********************************************************************         
*                                                                               
*   DFULOAD                                                                     
*                                                                               
*   THIS PROCEDURE COPIES THE DFU PROGRAM PRODUCT FROM                          
*   DISKETTE TO FIXED DISK.                                                     
*                                                                               
*   THE ITEMS COPIED ARE:                                                       
*                                                                               
*     - DFU EXECUTABLE MODULES, MESSAGE AND SCREEN FORMAT                       
*       MEMBERS ON DISKETTE TO #DFULIB ON DISK                                  
*                                                                               
*     - PARAMETER 1 IS DISK SPINDLE PREFERENCE                                  
*     - PARAMETER 2 IS DISKETTE LOCATION                                        
*                                                                               
***********************************************************************         
// MEMBER USER1-##MSGC                                                          
// IF JOBQ-NO IF EVOKED-NO * ' DFULOAD?M3500?'                                  
// TAG CHKDISK                                                                  
// IF DATAI1-'DFULIB,,?2'S1'?' GOTO CALLPROC                                    
// * 3290                                                                       
// #ERR 3291,13,CNFG                                                            
// GOTO CHKDISK                                                                 
// TAG CALLPROC                                                                 
DFUILOD ?2'S1'?,?1?                                                             
// IFF LOAD-'#DF#MG,#DFULIB' GOTO MRI                                           
// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'DFULOAD 40'                                 
// LOAD $CNAD                                                                   
// RUN                                                                          
// RETURN                                                                       
// TAG MRI                                                                      
// PAUSE '?M'3502,1,60'? PPUTIL'                                                
DFUMRI ?2?

OctetView - MemberText

0x000…001 0xc7
0x001…048 »***********************************************************************«
0x048…049 0x09
0x049…04a 0x81
0x04a…04b »*«
0x04b…04c 0x4f
0x04c…04d 0x81
0x04d…04e »*«
0x04e…04f 0x03
0x04f…050 0x87
0x050…057 »DFULOAD«
0x057…058 0x45
0x058…059 0x81
0x059…05a »*«
0x05a…05b 0x4f
0x05b…05c 0x81
0x05c…05d »*«
0x05d…05e 0x03
0x05e…05f 0xb2
0x05f…091 »THIS PROCEDURE COPIES THE DFU PROGRAM PRODUCT FROM«
0x091…092 0x1a
0x092…093 0x81
0x093…094 »*«
0x094…095 0x03
0x095…096 0x97
0x096…0ad »DISKETTE TO FIXED DISK.«
0x0ad…0ae 0x35
0x0ae…0af 0x81
0x0af…0b0 »*«
0x0b0…0b1 0x4f
0x0b1…0b2 0x81
0x0b2…0b3 »*«
0x0b3…0b4 0x03
0x0b4…0b5 0x95
0x0b5…0ca »THE ITEMS COPIED ARE:«
0x0ca…0cb 0x37
0x0cb…0cc 0x81
0x0cc…0cd »*«
0x0cd…0ce 0x4f
0x0ce…0cf 0x81
0x0cf…0d0 »*«
0x0d0…0d1 0x05
0x0d1…0d2 0xb3
0x0d2…105 »- DFU EXECUTABLE MODULES, MESSAGE AND SCREEN FORMAT«
0x105…106 0x17
0x106…107 0x81
0x107…108 »*«
0x108…109 0x07
0x109…10a 0xa6
0x10a…130 »MEMBERS ON DISKETTE TO #DFULIB ON DISK«
0x130…131 0x22
0x131…132 0x81
0x132…133 »*«
0x133…134 0x4f
0x134…135 0x81
0x135…136 »*«
0x136…137 0x05
0x137…138 0xa8
0x138…160 »- PARAMETER 1 IS DISK SPINDLE PREFERENCE«
0x160…161 0x22
0x161…162 0x81
0x162…163 »*«
0x163…164 0x05
0x164…165 0xa2
0x165…187 »- PARAMETER 2 IS DISKETTE LOCATION«
0x187…188 0x28
0x188…189 0x81
0x189…18a »*«
0x18a…18b 0x4f
0x18b…18c 0xc7
0x18c…1d3 »***********************************************************************«
0x1d3…1d4 0x09
0x1d4…1d5 0x96
0x1d5…1eb »// MEMBER USER1-##MSGC«
0x1eb…1ec 0x3a
0x1ec…1ed 0xae
0x1ed…21b »// IF JOBQ-NO IF EVOKED-NO * ' DFULOAD?M3500?'«
0x21b…21c 0x22
0x21c…21d 0x8e
0x21d…22b »// TAG CHKDISK«
0x22b…22c 0x42
0x22c…22d 0xac
0x22d…259 »// IF DATAI1-'DFULIB,,?2'S1'?' GOTO CALLPROC«
0x259…25a 0x24
0x25a…25b 0x89
0x25b…264 »// * 3290«
0x264…265 0x47
0x265…266 0x94
0x266…27a »// #ERR 3291,13,CNFG«
0x27a…27b 0x3c
0x27b…27c 0x8f
0x27c…28b »// GOTO CHKDISK«
0x28b…28c 0x41
0x28c…28d 0x8f
0x28d…29c »// TAG CALLPROC«
0x29c…29d 0x41
0x29d…29e 0x93
0x29e…2b1 »DFUILOD ?2'S1'?,?1?«
0x2b1…2b2 0x3d
0x2b2…2b3 0xa5
0x2b3…2d8 »// IFF LOAD-'#DF#MG,#DFULIB' GOTO MRI«
0x2d8…2d9 0x2b
0x2d9…2da 0xaf
0x2da…309 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'DFULOAD 40'«
0x309…30a 0x21
0x30a…30b 0x8d
0x30b…318 »// LOAD $CNAD«
0x318…319 0x43
0x319…31a 0x86
0x31a…320 »// RUN«
0x320…321 0x4a
0x321…322 0x89
0x322…32b »// RETURN«
0x32b…32c 0x47
0x32c…32d 0x8a
0x32d…337 »// TAG MRI«
0x337…338 0x46
0x338…339 0xa0
0x339…359 »// PAUSE '?M'3502,1,60'? PPUTIL'«
0x359…35a 0x30
0x35a…35b 0x8a
0x35b…365 »DFUMRI ?2?«
0x365…366 0x46
0x366…367 0x00
0x367…380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                        ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x380…3a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x3…]

Reduced view