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?

Full view