|
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: 1280 (0x500)
Notes: MEMBER_P, Member_Text
Names: »SEUFMRI «
└─⟦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⟧ ».SEUFMRI «
// MEMBER USER1-##MSG2 // LOCAL AREA-SYSTEM // IF ?3?/SEULOAD GOTO ADDSEUF // IFF ?L'248,1'?/1 GOTO ADDSEUF // IF ?R'2060'?/N GOTO ALLDONE // TAG ADDSEUF // IF ?L'230,1'?/1 IFF SOURCE-'#SE$FORM,#SEULIB' GOTO ALOC // IF ?L'230,1'?/1 GOTO DELFMTS // IFF SOURCE-'#SE@FORM,#SEULIB' GOTO ALOC // TAG DELFMTS // LOAD $MAINT // RUN // IFF ?L'230,1'?/1 + DELETE NAME-#SE@.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S // IF ?L'67,1'?/1 + DELETE NAME-#SE$.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S // END CONDENSE #SEULIB // TAG ALOC // IFF ?L'230,1'?/1 GOTO CHKKANJI // ELSE ALOCLIBR #SEULIB,295,25 // GOTO LOADFILE // TAG CHKKANJI // IF ?L'67,1'?/1 ALOCLIBR #SEULIB,460,25 // ELSE ALOCLIBR #SEULIB,240,15 // TAG LOADFILE // LOAD $MAINT // FILE NAME-SEUFSMRI,UNIT-I1,LOCATION-?1'S1'?,AUTO-NO // RUN // COPY FROM-DISK,TO-#SEULIB,FILE-SEUFSMRI // END // IFF ?CD?/0000 RETURN LOGPLD LOAD,SEUFMT,NONE,,'0004,##MSGPL2',,#SEULIB // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41' // LOAD $CNAD // RUN // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41' // LOAD $CNAD // RUN // TAG ALLDONE
0x000…001 0x96 0x001…017 »// MEMBER USER1-##MSG2« 0x017…018 0x3a 0x018…019 0x94 0x019…02d »// LOCAL AREA-SYSTEM« 0x02d…02e 0x3c 0x02e…02f 0x9e 0x02f…04d »// IF ?3?/SEULOAD GOTO ADDSEUF« 0x04d…04e 0x32 0x04e…04f 0xa0 0x04f…06f »// IFF ?L'248,1'?/1 GOTO ADDSEUF« 0x06f…070 0x30 0x070…071 0x9e 0x071…08f »// IF ?R'2060'?/N GOTO ALLDONE« 0x08f…090 0x32 0x090…091 0x8e 0x091…09f »// TAG ADDSEUF« 0x09f…0a0 0x42 0x0a0…0a1 0xba 0x0a1…0db »// IF ?L'230,1'?/1 IFF SOURCE-'#SE$FORM,#SEULIB' GOTO ALOC« 0x0db…0dc 0x16 0x0dc…0dd 0x9f 0x0dd…0fc »// IF ?L'230,1'?/1 GOTO DELFMTS« 0x0fc…0fd 0x31 0x0fd…0fe 0xaa 0x0fe…128 »// IFF SOURCE-'#SE@FORM,#SEULIB' GOTO ALOC« 0x128…129 0x26 0x129…12a 0x8e 0x12a…138 »// TAG DELFMTS« 0x138…139 0x42 0x139…13a 0x8e 0x13a…148 »// LOAD $MAINT« 0x148…149 0x42 0x149…14a 0x86 0x14a…150 »// RUN« 0x150…151 0x4a 0x151…152 0x95 0x152…167 »// IFF ?L'230,1'?/1 +« 0x167…168 0x3b 0x168…169 0x03 0x169…16a 0xb8 0x16a…1a2 »DELETE NAME-#SE@.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S« 0x1a2…1a3 0x15 0x1a3…1a4 0x93 0x1a4…1b7 »// IF ?L'67,1'?/1 +« 0x1b7…1b8 0x3d 0x1b8…1b9 0x03 0x1b9…1ba 0xb8 0x1ba…1f2 »DELETE NAME-#SE$.ALL,LIBRARY-S,LIBRNAME-#SEULIB,RETAIN-S« 0x1f2…1f3 0x15 0x1f3…1f4 0x86 0x1f4…1fa »// END« 0x1fa…1fb 0x4a 0x1fb…1fc 0x90 0x1fc…20c »CONDENSE #SEULIB« 0x20c…20d 0x40 0x20d…20e 0x8b 0x20e…219 »// TAG ALOC« 0x219…21a 0x45 0x21a…21b 0xa1 0x21b…23c »// IFF ?L'230,1'?/1 GOTO CHKKANJI« 0x23c…23d 0x2f 0x23d…23e 0x9f 0x23e…25d »// ELSE ALOCLIBR #SEULIB,295,25« 0x25d…25e 0x31 0x25e…25f 0x90 0x25f…26f »// GOTO LOADFILE« 0x26f…270 0x40 0x270…271 0x8f 0x271…280 »// TAG CHKKANJI« 0x280…281 0x41 0x281…282 0xa9 0x282…2ab »// IF ?L'67,1'?/1 ALOCLIBR #SEULIB,460,25« 0x2ab…2ac 0x27 0x2ac…2ad 0x9f 0x2ad…2cc »// ELSE ALOCLIBR #SEULIB,240,15« 0x2cc…2cd 0x31 0x2cd…2ce 0x8f 0x2ce…2dd »// TAG LOADFILE« 0x2dd…2de 0x41 0x2de…2df 0x8e 0x2df…2ed »// LOAD $MAINT« 0x2ed…2ee 0x42 0x2ee…2ef 0xb6 0x2ef…325 »// FILE NAME-SEUFSMRI,UNIT-I1,LOCATION-?1'S1'?,AUTO-NO« 0x325…326 0x1a 0x326…327 0x86 0x327…32d »// RUN« 0x32d…32e 0x4a 0x32e…32f 0xaa 0x32f…359 »// COPY FROM-DISK,TO-#SEULIB,FILE-SEUFSMRI« 0x359…35a 0x26 0x35a…35b 0x86 0x35b…361 »// END« 0x361…362 0x4a 0x362…363 0x97 0x363…37a »// IFF ?CD?/0000 RETURN« 0x37a…37b 0x39 0x37b…37c 0xb1 0x37c…3ad »LOGPLD LOAD,SEUFMT,NONE,,'0004,##MSGPL2',,#SEULIB« 0x3ad…3ae 0x1f 0x3ae…3af 0xaf 0x3af…3de »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41'« 0x3de…3df 0x21 0x3df…3e0 0x8d 0x3e0…3ed »// LOAD $CNAD« 0x3ed…3ee 0x43 0x3ee…3ef 0x86 0x3ef…3f5 »// RUN« 0x3f5…3f6 0x4a 0x3f6…3f7 0xaf 0x3f7…426 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUFMRI 41'« 0x426…427 0x21 0x427…428 0x8d 0x428…435 »// LOAD $CNAD« 0x435…436 0x43 0x436…437 0x86 0x437…43d »// RUN« 0x43d…43e 0x4a 0x43e…43f 0x8e 0x43f…44d »// TAG ALLDONE« 0x44d…44e 0x42 0x44e…44f 0x00 0x44f…460 61 61 40 c9 c6 c6 40 6f d3 7d f2 f4 f8 6b f1 7d 6f ┆// IFF ?L'248,1'?┆ 0x460…480 61 f1 40 c7 d6 e3 d6 40 c1 c4 c4 e2 c5 e4 c6 30 9e 61 61 40 c9 c6 40 6f d9 7d f2 f0 f6 f0 7d 6f ┆/1 GOTO ADDSEUF Æ// IF ?R'2060'?┆ 0x480…4a0 61 d5 40 c7 d6 e3 d6 40 c1 d3 d3 c4 d6 d5 c5 32 8e 61 61 40 e3 c1 c7 40 c1 c4 c4 e2 c5 e4 c6 42 ┆/N GOTO ALLDONE þ// TAG ADDSEUFâ┆ 0x4a0…4c0 ba 61 61 40 c9 c6 40 6f d3 7d f2 f3 f0 6b f1 7d 6f 61 f1 40 c9 c6 c6 40 e2 d6 e4 d9 c3 c5 60 7d ┆[// IF ?L'230,1'?/1 IFF SOURCE-'┆ 0x4c0…4e0 7b e2 c5 5b c6 d6 d9 d4 6b 7b e2 c5 e4 d3 c9 c2 7d 40 c7 d6 e3 d6 40 c1 d3 d6 c3 16 9f 61 61 40 ┆#SE$FORM,#SEULIB' GOTO ALOC ¤// ┆ 0x4e0…500 c9 c6 40 6f d3 7d f2 f3 f0 6b f1 7d 6f 61 f1 40 c7 d6 e3 d6 40 c4 c5 d3 c6 d4 e3 e2 31 aa 61 61 ┆IF ?L'230,1'?/1 GOTO DELFMTS ¡//┆