|
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
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 0x9b 0x03e…059 »* ENABLE EXTERNAL INTERUPTS« 0x059…05a 0x2c 0x05a…05b 0x86 0x05b…061 »// RUN« 0x061…062 0x72 0x062…063 0x92 0x063…075 »// DEALLOC UNIT-TC« 0x075…076 0x1f 0x076…077 0x9e 0x077…095 »* DEALLOCATE THE TAPE CARTRIDG« 0x095…096 0x29 0x096…097 0x91 0x097…0a8 »// LIBRARY NAME-0« 0x0a8…0a9 0x20 0x0a9…0aa 0x95 0x0aa…0bf »* SWITCH TO #LIBRARY.« 0x0bf…0c0 0x32 0x0c0…0c1 0x9b 0x0c1…0dc »// MEMBER PROGRAM2-##MSGFE2« 0x0dc…0dd 0x16 0x0dd…0de 0x95 0x0de…0f3 »* USE MSGFE2 FORMATS.« 0x0f3…0f4 0x32 0x0f4…0f5 0x8f 0x0f5…104 »// LOAD $FEAIDS« 0x104…105 0x22 0x105…106 0x9d 0x106…123 »* LOAD AND RUN CONCURRENT DCP« 0x123…124 0x2a 0x124…125 0x86 0x125…12b »// RUN« 0x12b…12c 0x2b 0x12c…12d 0x98 0x12d…145 »* DISKETTE TEST PROGRAM.« 0x145…146 0x2f 0x146…147 0x9d 0x147…164 »// I1DIAG TEST-DRIVE,OLPD-YES« 0x164…165 0x5b 0x165…166 0x86 0x166…16c »// END« 0x16c…16d 0x72 0x16d…16e 0xaa 0x16e…198 »// IF ?CD?=7070 LOCAL OFFSET-115,DATA-'00'« 0x198…199 0x07 0x199…19a 0x9b 0x19a…1b5 »* DEFINE THE RETURN CODE TO« 0x1b5…1b6 0x2c 0x1b6…1b7 0xaf 0x1b7…1e6 »// ELSE IF ?CD?=7071 LOCAL OFFSET-115,DATA-'01'« 0x1e6…1e7 0x02 0x1e7…1e8 0x9a 0x1e8…202 »* PSP NEXT CONTROL RECORD.« 0x202…203 0x2d 0x203…204 0xaf 0x204…233 »// ELSE IF ?CD?=7072 LOCAL OFFSET-115,DATA-'02'« 0x233…234 0x49 0x234…235 0xaf 0x235…264 »// ELSE IF ?CD?=7073 LOCAL OFFSET-115,DATA-'03'« 0x264…265 0x49 0x265…266 0xaf 0x266…295 »// ELSE IF ?CD?=4170 LOCAL OFFSET-115,DATA-'04'« 0x295…296 0x49 0x296…297 0xaf 0x297…2c6 »// ELSE IF ?CD?=4171 LOCAL OFFSET-115,DATA-'05'« 0x2c6…2c7 0x49 0x2c7…2c8 0xaf 0x2c8…2f7 »// ELSE IF ?CD?=4172 LOCAL OFFSET-115,DATA-'06'« 0x2f7…2f8 0x49 0x2f8…2f9 0xaf 0x2f9…328 »// ELSE IF ?CD?=4173 LOCAL OFFSET-115,DATA-'07'« 0x328…329 0x49 0x329…32a 0xaf 0x32a…359 »// ELSE IF ?CD?=4174 LOCAL OFFSET-115,DATA-'08'« 0x359…35a 0x49 0x35a…35b 0xaf 0x35b…38a »// ELSE IF ?CD?=7079 LOCAL OFFSET-115,DATA-'0A'« 0x38a…38b 0x49 0x38b…38c 0x96 0x38c…3a2 »// LIBRARY NAME-#ONLPD« 0x3a2…3a3 0x1b 0x3a3…3a4 0x9b 0x3a4…3bf »* SWITCH BACK TO PD LIBRARY« 0x3bf…3c0 0x2c 0x3c0…3c1 0x8c 0x3c1…3cd »// RESET PSP« 0x3cd…3ce 0x25 0x3ce…3cf 0x99 0x3cf…3e8 »* RESET THE SCREEN DRIVER« 0x3e8…3e9 0x2e 0x3e9…3ea 0x00 0x3ea…400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣┆