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

⟦98cfe9395⟧

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

Derivation

└─⟦27db88c4d⟧ Bits:30009807 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0323-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 011 of 011
    └─⟦5f03407d3⟧ 
        └─⟦this⟧ ».CPRT    « 

* THIS PROCEDURE PRINTS THE WORKSTATION CONFIGURATION                                                                   
// PRINTER NAME-#PRINT                           * OUTPUT FILE NAME.                                                    
// MEMBER  USER1-##MSGC,USER2-#CN#H2             * USER MEMBER DEFINITION.                                              
// LOCAL AREA-SYSTEM                             * SWITCH TO SYSTEM LDA.                                                
// LOCAL OFFSET-1,BLANK-40                       * BLANK THE USED DATA AREA.                                            
// LOCAL OFFSET-1,DATA-'.MASTER DEVICES'         * SPECIFY CONFIGURATION PRINT                                          
// LOCAL OFFSET-23,DATA-'.SYSTEM '               * OPTION.                                                              
// LOAD $CNPRT                                   * LOAD & RUN CNFIG PRINT PROG.                                         
// RUN                                                                                                                  
// LOCAL AREA-USER                               * RETURN TO USER LDA                                                   
// RESET PSP                                     * RESTART SCREEN DRIVER                                                

0x000…001 0xb5
0x001…036 »* THIS PROCEDURE PRINTS THE WORKSTATION CONFIGURATION«
0x036…037 0x43
0x037…038 0x96
0x038…04e »// PRINTER NAME-#PRINT«
0x04e…04f 0x1b
0x04f…050 0x93
0x050…063 »* OUTPUT FILE NAME.«
0x063…064 0x34
0x064…065 0x89
0x065…06e »// MEMBER«
0x06e…06f 0x02
0x06f…070 0x99
0x070…089 »USER1-##MSGC,USER2-#CN#H2«
0x089…08a 0x0d
0x08a…08b 0x99
0x08b…0a4 »* USER MEMBER DEFINITION.«
0x0a4…0a5 0x2e
0x0a5…0a6 0x94
0x0a6…0ba »// LOCAL AREA-SYSTEM«
0x0ba…0bb 0x1d
0x0bb…0bc 0x97
0x0bc…0d3 »* SWITCH TO SYSTEM LDA.«
0x0d3…0d4 0x30
0x0d4…0d5 0x9a
0x0d5…0ef »// LOCAL OFFSET-1,BLANK-40«
0x0ef…0f0 0x17
0x0f0…0f1 0x9b
0x0f1…10c »* BLANK THE USED DATA AREA.«
0x10c…10d 0x2c
0x10d…10e 0xa8
0x10e…136 »// LOCAL OFFSET-1,DATA-'.MASTER DEVICES'«
0x136…137 0x09
0x137…138 0x9d
0x138…155 »* SPECIFY CONFIGURATION PRINT«
0x155…156 0x2a
0x156…157 0xa2
0x157…179 »// LOCAL OFFSET-23,DATA-'.SYSTEM '«
0x179…17a 0x0f
0x17a…17b 0x89
0x17b…184 »* OPTION.«
0x184…185 0x3e
0x185…186 0x8e
0x186…194 »// LOAD $CNPRT«
0x194…195 0x23
0x195…196 0x9e
0x196…1b4 »* LOAD & RUN CNFIG PRINT PROG.«
0x1b4…1b5 0x29
0x1b5…1b6 0x86
0x1b6…1bc »// RUN«
0x1bc…1bd 0x72
0x1bd…1be 0x92
0x1be…1d0 »// LOCAL AREA-USER«
0x1d0…1d1 0x1f
0x1d1…1d2 0x94
0x1d2…1e6 »* RETURN TO USER LDA«
0x1e6…1e7 0x33
0x1e7…1e8 0x8c
0x1e8…1f4 »// RESET PSP«
0x1f4…1f5 0x25
0x1f5…1f6 0x97
0x1f6…20d »* RESTART SCREEN DRIVER«
0x20d…20e 0x30
0x20e…20f 0x00
0x20f…220 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00                                                ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x220…240 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x6…]

Reduced view