|
|
DataMuseum.dkPresents historical artifacts from the history of: IBM System/36 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about IBM System/36 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 768 (0x300)
Notes: MEMBER_P, Member_Text
Names: »DLOG «
└─⟦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.