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    «

Text Member

******************************************************************************  
*                                                                            *  
*   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

Full view