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

⟦23732ffca⟧

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

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⟧ ».OA01    « 

* PROCEDURE TO RUN THE DISKETTE DRIVE TEST.                                                                             
// LOAD PSPEXT                                   * ENABLE EXTERNAL INTERUPTS.                                           
// RUN                                                                                                                  
// LIBRARY NAME-0                                * SWITCH TO #LIBRARY.                                                  
// LOAD $FEAIDS                                  * RUN CONCURRENT DCP TAPESTAT                                          
// RUN                                           * PRINT PROGRAM.                                                       
// TAPESTAT UNIT-?1'TC'?,OUTPUT-?2'PRINTER'?,OLPD-?3'YES'?                                                              
// END                                                                                                                  
// IF ?CD?/4100 LOCAL OFFSET-116,DATA-'0'        * DEFINE PSP NEXT CONTROL                                              
// IF ?CD?/4101 LOCAL OFFSET-116,DATA-'3'        * RECORD.                                                              
// IF ?CD?/4102 LOCAL OFFSET-116,DATA-'1'                                                                               
// IF ?CD?/4103 LOCAL OFFSET-116,DATA-'2'                                                                               
// LIBRARY NAME-#ONLPD                           * RETURN TO PD LIBRARY.                                                
// RESET PSP                                     * RESET SCREEN DRIVER.                                                 

0x000…001 0xab
0x001…02c »* PROCEDURE TO RUN THE DISKETTE DRIVE TEST.«
0x02c…02d 0x4d
0x02d…02e 0x8e
0x02e…03c »// LOAD PSPEXT«
0x03c…03d 0x23
0x03d…03e 0x9c
0x03e…05a »* ENABLE EXTERNAL INTERUPTS.«
0x05a…05b 0x2b
0x05b…05c 0x86
0x05c…062 »// RUN«
0x062…063 0x72
0x063…064 0x91
0x064…075 »// LIBRARY NAME-0«
0x075…076 0x20
0x076…077 0x95
0x077…08c »* SWITCH TO #LIBRARY.«
0x08c…08d 0x32
0x08d…08e 0x8f
0x08e…09d »// LOAD $FEAIDS«
0x09d…09e 0x22
0x09e…09f 0x9d
0x09f…0bc »* RUN CONCURRENT DCP TAPESTAT«
0x0bc…0bd 0x2a
0x0bd…0be 0x86
0x0be…0c4 »// RUN«
0x0c4…0c5 0x2b
0x0c5…0c6 0x90
0x0c6…0d6 »* PRINT PROGRAM.«
0x0d6…0d7 0x37
0x0d7…0d8 0xba
0x0d8…112 »// TAPESTAT UNIT-?1'TC'?,OUTPUT-?2'PRINTER'?,OLPD-?3'YES'?«
0x112…113 0x3e
0x113…114 0x86
0x114…11a »// END«
0x11a…11b 0x72
0x11b…11c 0xa9
0x11c…145 »// IF ?CD?/4100 LOCAL OFFSET-116,DATA-'0'«
0x145…146 0x08
0x146…147 0x99
0x147…160 »* DEFINE PSP NEXT CONTROL«
0x160…161 0x2e
0x161…162 0xa9
0x162…18b »// IF ?CD?/4101 LOCAL OFFSET-116,DATA-'3'«
0x18b…18c 0x08
0x18c…18d 0x89
0x18d…196 »* RECORD.«
0x196…197 0x3e
0x197…198 0xa9
0x198…1c1 »// IF ?CD?/4102 LOCAL OFFSET-116,DATA-'1'«
0x1c1…1c2 0x4f
0x1c2…1c3 0xa9
0x1c3…1ec »// IF ?CD?/4103 LOCAL OFFSET-116,DATA-'2'«
0x1ec…1ed 0x4f
0x1ed…1ee 0x96
0x1ee…204 »// LIBRARY NAME-#ONLPD«
0x204…205 0x1b
0x205…206 0x97
0x206…21d »* RETURN TO PD LIBRARY.«
0x21d…21e 0x30
0x21e…21f 0x8c
0x21f…22b »// RESET PSP«
0x22b…22c 0x25
0x22c…22d 0x96
0x22d…243 »* RESET SCREEN DRIVER.«
0x243…244 0x31
0x244…245 0x00
0x245…260 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                  ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
0x260…280 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   ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆
          […0x4…]

Reduced view