|
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: »SEUMRI «
└─⟦14ba21fd6⟧ Bits:30009812 REF.NO PWD34 PGM 5727-UT6 FEAT9074 UTILITIES US Z250-0041-2 REV/LEV 05.01 SEQ. 1/2 DISKET 2S 96TPI INTERNAL 88.03.04 31
└─⟦10fd7efe5⟧
└─⟦this⟧ ».SEUMRI «
********************************************************************* * * * THIS PROCEDURE ADDS THE MACHINE READABLE INFORMATION (MRI) * * TO #SEULIB. * * PARAMETER 1 - MEDIUM TO COPY FROM * * * ********************************************************************* * **************** * * * COPY SEU MRI * * * **************** * // LOAD $MAINT // FILE NAME-SEUMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO // RUN // COPY FROM-DISK,TO-#SEULIB,FILE-SEUMRI // END **************************************** * * * COPY SEU SOURCE FORMATS FOR #LIBRARY * * * **************************************** * // LOAD $MAINT // FILE NAME-SEUFMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO // RUN // COPY FROM-DISK,TO-#LIBRARY,FILE-SEUFMRI,RETAIN-R // END ******************** * * * SET CNFIG RECORD * * * ******************** * // IFF ?CD?/0000 RETURN // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUMRI 43' // LOAD $CNAD // RUN
0x000…001 0xc5 0x001…046 »*********************************************************************« 0x046…047 0x0b 0x047…048 0x81 0x048…049 »*« 0x049…04a 0x43 0x04a…04b 0x81 0x04b…04c »*« 0x04c…04d 0x0b 0x04d…04e 0x81 0x04e…04f »*« 0x04f…050 0x02 0x050…051 0xba 0x051…08b »THIS PROCEDURE ADDS THE MACHINE READABLE INFORMATION (MRI)« 0x08b…08c 0x07 0x08c…08d 0x81 0x08d…08e »*« 0x08e…08f 0x0b 0x08f…090 0x81 0x090…091 »*« 0x091…092 0x02 0x092…093 0x8b 0x093…09e »TO #SEULIB.« 0x09e…09f 0x36 0x09f…0a0 0x81 0x0a0…0a1 »*« 0x0a1…0a2 0x0b 0x0a2…0a3 0x81 0x0a3…0a4 »*« 0x0a4…0a5 0x02 0x0a5…0a6 0xa1 0x0a6…0c7 »PARAMETER 1 - MEDIUM TO COPY FROM« 0x0c7…0c8 0x20 0x0c8…0c9 0x81 0x0c9…0ca »*« 0x0ca…0cb 0x0b 0x0cb…0cc 0x81 0x0cc…0cd »*« 0x0cd…0ce 0x43 0x0ce…0cf 0x81 0x0cf…0d0 »*« 0x0d0…0d1 0x0b 0x0d1…0d2 0xc5 0x0d2…117 »*********************************************************************« 0x117…118 0x0b 0x118…119 0x81 0x119…11a »*« 0x11a…11b 0x4f 0x11b…11c 0x90 0x11c…12c »****************« 0x12c…12d 0x40 0x12d…12e 0x81 0x12e…12f »*« 0x12f…130 0x0e 0x130…131 0x81 0x131…132 »*« 0x132…133 0x40 0x133…134 0x90 0x134…144 »* COPY SEU MRI *« 0x144…145 0x40 0x145…146 0x81 0x146…147 »*« 0x147…148 0x0e 0x148…149 0x81 0x149…14a »*« 0x14a…14b 0x40 0x14b…14c 0x90 0x14c…15c »****************« 0x15c…15d 0x40 0x15d…15e 0x81 0x15e…15f »*« 0x15f…160 0x4f 0x160…161 0x8e 0x161…16f »// LOAD $MAINT« 0x16f…170 0x42 0x170…171 0xbc 0x171…1ad »// FILE NAME-SEUMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO« 0x1ad…1ae 0x14 0x1ae…1af 0x86 0x1af…1b5 »// RUN« 0x1b5…1b6 0x4a 0x1b6…1b7 0xa8 0x1b7…1df »// COPY FROM-DISK,TO-#SEULIB,FILE-SEUMRI« 0x1df…1e0 0x28 0x1e0…1e1 0x86 0x1e1…1e7 »// END« 0x1e7…1e8 0x4a 0x1e8…1e9 0xa8 0x1e9…211 »****************************************« 0x211…212 0x28 0x212…213 0x81 0x213…214 »*« 0x214…215 0x26 0x215…216 0x81 0x216…217 »*« 0x217…218 0x28 0x218…219 0xa8 0x219…241 »* COPY SEU SOURCE FORMATS FOR #LIBRARY *« 0x241…242 0x28 0x242…243 0x81 0x243…244 »*« 0x244…245 0x26 0x245…246 0x81 0x246…247 »*« 0x247…248 0x28 0x248…249 0xa8 0x249…271 »****************************************« 0x271…272 0x28 0x272…273 0x81 0x273…274 »*« 0x274…275 0x4f 0x275…276 0x8e 0x276…284 »// LOAD $MAINT« 0x284…285 0x42 0x285…286 0xbd 0x286…2c3 »// FILE NAME-SEUFMRI,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO« 0x2c3…2c4 0x13 0x2c4…2c5 0x86 0x2c5…2cb »// RUN« 0x2cb…2cc 0x4a 0x2cc…2cd 0xb3 0x2cd…300 »// COPY FROM-DISK,TO-#LIBRARY,FILE-SEUFMRI,RETAIN-R« 0x300…301 0x1d 0x301…302 0x86 0x302…308 »// END« 0x308…309 0x4a 0x309…30a 0x94 0x30a…31e »********************« 0x31e…31f 0x3c 0x31f…320 0x81 0x320…321 »*« 0x321…322 0x12 0x322…323 0x81 0x323…324 »*« 0x324…325 0x3c 0x325…326 0x94 0x326…33a »* SET CNFIG RECORD *« 0x33a…33b 0x3c 0x33b…33c 0x81 0x33c…33d »*« 0x33d…33e 0x12 0x33e…33f 0x81 0x33f…340 »*« 0x340…341 0x3c 0x341…342 0x94 0x342…356 »********************« 0x356…357 0x3c 0x357…358 0x81 0x358…359 »*« 0x359…35a 0x4f 0x35a…35b 0x97 0x35b…372 »// IFF ?CD?/0000 RETURN« 0x372…373 0x39 0x373…374 0xaa 0x374…39e »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUMRI« 0x39e…39f 0x02 0x39f…3a0 0x83 0x3a0…3a3 »43'« 0x3a3…3a4 0x21 0x3a4…3a5 0x8d 0x3a5…3b2 »// LOAD $CNAD« 0x3b2…3b3 0x43 0x3b3…3b4 0x86 0x3b4…3ba »// RUN« 0x3ba…3bb 0x4a 0x3bb…3bc 0x00 0x3bc…3c0 00 00 00 00 ┆␣␣␣␣┆ 0x3c0…3e0 00 80 3d 99 00 00 00 00 00 00 00 00 d7 e2 c4 c1 f9 40 40 40 40 00 0f 6f 50 00 0f 00 00 00 00 40 ┆␣Ø r␣␣␣␣␣␣␣␣PSDA9 ␣ ?&␣ ␣␣␣␣ ┆ 0x3e0…400 00 02 00 02 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d cc 00 00 00 00 00 00 00 00 ff ┆␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆