|
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: 1024 (0x400)
Notes: MEMBER_P, Member_Text
Names: »DRIV «
└─⟦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⟧ ».DRIV «
* PROCEDURE TO RUN THE DISKETTE DRIVE TEST. // LOAD PSPEXT * ENABLE EXTERNAL INTERUPTS // RUN // DEALLOC UNIT-TC * DEALLOCATE THE TAPE CARTRIDG // LIBRARY NAME-0 * SWITCH TO #LIBRARY. // MEMBER PROGRAM2-##MSGFE2 * USE MSGFE2 FORMATS. // LOAD $FEAIDS * LOAD AND RUN CONCURRENT DCP // RUN * DISKETTE TEST PROGRAM. // I1DIAG TEST-DRIVE,OLPD-YES // END // IF ?CD?=7070 LOCAL OFFSET-115,DATA-'00' * DEFINE THE RETURN CODE TO // 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' // ELSE IF ?CD?=4170 LOCAL OFFSET-115,DATA-'04' // ELSE IF ?CD?=4171 LOCAL OFFSET-115,DATA-'05' // ELSE IF ?CD?=4172 LOCAL OFFSET-115,DATA-'06' // ELSE IF ?CD?=4173 LOCAL OFFSET-115,DATA-'07' // ELSE IF ?CD?=4174 LOCAL OFFSET-115,DATA-'08' // ELSE IF ?CD?=7079 LOCAL OFFSET-115,DATA-'0A' // LIBRARY NAME-#ONLPD * SWITCH BACK TO PD LIBRARY // RESET PSP * RESET THE SCREEN DRIVER