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

⟦f234d5427⟧

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

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

* DISKETTE DRIVE TEST,- ANALYZE DISKETTE                                                                                
// LIBRARY NAME-0                                * SWITCH TO #LIBRARY.                                                  
// MEMBER PROGRAM2-##MSGFE2                      * DEFINE USER MEMBER.                                                  
// LOAD $FEAIDS                                  * LOAD & RUN CONCURRENT DCP                                            
// RUN                                           *   DCP DISKETTE PROGRAM.                                              
// I1DIAG TEST-LOG,OLPD-YES                                                                                             
// END                                                                                                                  
// IF ?CD?=7070 LOCAL OFFSET-115,DATA-'00'       * RETURN RESULTS TO LDA FOR                                            
// ELSE IF ?CD?=7071 LOCAL OFFSET-115,DATA-'01'  *   PSP NEXT CONTROL RECORD.                                           
// ELSE IF ?CD?=7072 LOCAL OFFSET-115,DATA-'02'                                                                         
// ELSE IF ?CD?=7073 LOCAL OFFSET-115,DATA-'03'                                                                         
// LIBRARY NAME-#ONLPD                           * RETURN TO PD LIBRARY.                                                
// RESET PSP                                     * RESTART SCREEN DRIVER.                                               

0x000…001 0xa8
0x001…029 »* DISKETTE DRIVE TEST,- ANALYZE DISKETTE«
0x029…02a 0x50
0x02a…02b 0x91
0x02b…03c »// LIBRARY NAME-0«
0x03c…03d 0x20
0x03d…03e 0x95
0x03e…053 »* SWITCH TO #LIBRARY.«
0x053…054 0x32
0x054…055 0x9b
0x055…070 »// MEMBER PROGRAM2-##MSGFE2«
0x070…071 0x16
0x071…072 0x95
0x072…087 »* DEFINE USER MEMBER.«
0x087…088 0x32
0x088…089 0x8f
0x089…098 »// LOAD $FEAIDS«
0x098…099 0x22
0x099…09a 0x9b
0x09a…0b5 »* LOAD & RUN CONCURRENT DCP«
0x0b5…0b6 0x2c
0x0b6…0b7 0x86
0x0b7…0bd »// RUN«
0x0bd…0be 0x2b
0x0be…0bf 0x81
0x0bf…0c0 »*«
0x0c0…0c1 0x03
0x0c1…0c2 0x95
0x0c2…0d7 »DCP DISKETTE PROGRAM.«
0x0d7…0d8 0x2e
0x0d8…0d9 0x9b
0x0d9…0f4 »// I1DIAG TEST-LOG,OLPD-YES«
0x0f4…0f5 0x5d
0x0f5…0f6 0x86
0x0f6…0fc »// END«
0x0fc…0fd 0x72
0x0fd…0fe 0xaa
0x0fe…128 »// IF ?CD?=7070 LOCAL OFFSET-115,DATA-'00'«
0x128…129 0x07
0x129…12a 0x9b
0x12a…145 »* RETURN RESULTS TO LDA FOR«
0x145…146 0x2c
0x146…147 0xaf
0x147…176 »// ELSE IF ?CD?=7071 LOCAL OFFSET-115,DATA-'01'«
0x176…177 0x02
0x177…178 0x81
0x178…179 »*«
0x179…17a 0x03
0x17a…17b 0x98
0x17b…193 »PSP NEXT CONTROL RECORD.«
0x193…194 0x2b
0x194…195 0xaf
0x195…1c4 »// ELSE IF ?CD?=7072 LOCAL OFFSET-115,DATA-'02'«
0x1c4…1c5 0x49
0x1c5…1c6 0xaf
0x1c6…1f5 »// ELSE IF ?CD?=7073 LOCAL OFFSET-115,DATA-'03'«
0x1f5…1f6 0x49
0x1f6…1f7 0x96
0x1f7…20d »// LIBRARY NAME-#ONLPD«
0x20d…20e 0x1b
0x20e…20f 0x97
0x20f…226 »* RETURN TO PD LIBRARY.«
0x226…227 0x30
0x227…228 0x8c
0x228…234 »// RESET PSP«
0x234…235 0x25
0x235…236 0x98
0x236…24e »* RESTART SCREEN DRIVER.«
0x24e…24f 0x2f
0x24f…250 0x00
0x250…260 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