|
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: »SEUILOD «
└─⟦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⟧ ».SEUILOD «
// IFF DATAF1-#SEULIB GOTO BLDLIB // DELETE #SEULIB,F1,REMOVE,,LIBR // TAG BLDLIB // LOAD $CNKAN // RUN // LOCAL AREA-SYSTEM // IFF ?L'230,1'?/1 GOTO CHKKANJI // ELSE BLDLIBR #SEULIB,200,25,?2'A1'? // GOTO LOADFILE // TAG CHKKANJI // IF ?L'67,1'?/1 BLDLIBR #SEULIB,350,25,?2'A1'? // ELSE BLDLIBR #SEULIB,200,10,?2'A1'? // TAG LOADFILE // LOAD $MAINT // FILE NAME-SEUMODS,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO // RUN // COPY FROM-DISK,TO-#SEULIB,FILE-SEUMODS // END // IFF ?CD?/0000 RETURN LOGPLD LOAD,SEU,'#SEU,#SEULIB',,'0003,##MSGPL2',,'#LIBRARY,#SEULIB' // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUILOD 43' // LOAD $CNAD // RUN
0x000…001 0xa1 0x001…022 »// IFF DATAF1-#SEULIB GOTO BLDLIB« 0x022…023 0x2f 0x023…024 0xa1 0x024…045 »// DELETE #SEULIB,F1,REMOVE,,LIBR« 0x045…046 0x2f 0x046…047 0x8d 0x047…054 »// TAG BLDLIB« 0x054…055 0x43 0x055…056 0x8e 0x056…064 »// LOAD $CNKAN« 0x064…065 0x42 0x065…066 0x86 0x066…06c »// RUN« 0x06c…06d 0x4a 0x06d…06e 0x94 0x06e…082 »// LOCAL AREA-SYSTEM« 0x082…083 0x3c 0x083…084 0xa1 0x084…0a5 »// IFF ?L'230,1'?/1 GOTO CHKKANJI« 0x0a5…0a6 0x2f 0x0a6…0a7 0xa6 0x0a7…0cd »// ELSE BLDLIBR #SEULIB,200,25,?2'A1'?« 0x0cd…0ce 0x2a 0x0ce…0cf 0x90 0x0cf…0df »// GOTO LOADFILE« 0x0df…0e0 0x40 0x0e0…0e1 0x8f 0x0e1…0f0 »// TAG CHKKANJI« 0x0f0…0f1 0x41 0x0f1…0f2 0xb0 0x0f2…122 »// IF ?L'67,1'?/1 BLDLIBR #SEULIB,350,25,?2'A1'?« 0x122…123 0x20 0x123…124 0xa6 0x124…14a »// ELSE BLDLIBR #SEULIB,200,10,?2'A1'?« 0x14a…14b 0x2a 0x14b…14c 0x8f 0x14c…15b »// TAG LOADFILE« 0x15b…15c 0x41 0x15c…15d 0x8e 0x15d…16b »// LOAD $MAINT« 0x16b…16c 0x42 0x16c…16d 0xbd 0x16d…1aa »// FILE NAME-SEUMODS,UNIT-I1,PACK-PPUTIL,LOCATION-?1?,AUTO-NO« 0x1aa…1ab 0x13 0x1ab…1ac 0x86 0x1ac…1b2 »// RUN« 0x1b2…1b3 0x4a 0x1b3…1b4 0xa9 0x1b4…1dd »// COPY FROM-DISK,TO-#SEULIB,FILE-SEUMODS« 0x1dd…1de 0x27 0x1de…1df 0x86 0x1df…1e5 »// END« 0x1e5…1e6 0x4a 0x1e6…1e7 0x97 0x1e7…1fe »// IFF ?CD?/0000 RETURN« 0x1fe…1ff 0x39 0x1ff…200 0xc3 0x200…243 »LOGPLD LOAD,SEU,'#SEU,#SEULIB',,'0003,##MSGPL2',,'#LIBRARY,#SEULIB'« 0x243…244 0x0d 0x244…245 0xaf 0x245…274 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'SEUILOD 43'« 0x274…275 0x21 0x275…276 0x8d 0x276…283 »// LOAD $CNAD« 0x283…284 0x43 0x284…285 0x86 0x285…28b »// RUN« 0x28b…28c 0x4a 0x28c…28d 0x00 0x28d…2a0 00 80 3f 66 00 00 00 00 00 00 00 00 d7 e6 e2 e4 d3 d6 c1 ┆␣Ø Ã␣␣␣␣␣␣␣␣PWSULOA┆ 0x2a0…2c0 c4 40 00 04 cd 50 00 16 00 00 00 00 40 00 02 00 05 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆D ␣ ò&␣ ␣␣␣␣ ␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣┆ 0x2c0…2e0 00 80 3f 99 00 00 00 00 00 00 00 00 d7 e6 e2 e4 d4 d9 c9 40 40 00 04 d0 50 00 0b 00 00 00 00 40 ┆␣Ø r␣␣␣␣␣␣␣␣PWSUMRI ␣ }&␣ ␣␣␣␣ ┆ 0x2e0…300 00 02 00 05 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 00 00 00 00 00 00 00 ff ┆␣ ␣ ␣ ␣␣␣␣␣␣␣␣␣␣␣␣␣Ø ö␣␣␣␣␣␣␣␣ ┆