|
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: 1536 (0x600)
Notes: MEMBER_P, Member_Text
Names: »RPGILOD «
└─⟦ce1fc3cee⟧ Bits:30009814 REF.NO PWD33 PGM 5727-RG6 FEAT9074 RPG II US Z250-0040-2 REV/LEV 05.01 SEQ. 1/1 DISKET 2S 96TPI INTERNAL 88.05.24 31
└─⟦8c0250367⟧
└─⟦this⟧ ».RPGILOD «
// IFF DATAF1-#RPGLIB GOTO BLDLIB DELETE #RPGLIB,F1,REMOVE,,LIBR // TAG BLDLIB // LOAD $CNKAN // RUN // LOCAL AREA-SYSTEM // IFF ?L'230,1'?/1 GOTO CHKKANJI // ELSE BLDLIBR #RPGLIB,290,50,?2? // GOTO LOADFILE // TAG CHKKANJI // IF ?L'67,1'?/1 BLDLIBR #RPGLIB,300,50,?2? // ELSE BLDLIBR #RPGLIB,250,50,?2? // TAG LOADFILE // LOAD $MAINT // FILE NAME-RPGOBJ,UNIT-I1,PACK-PPRPG,LOCATION-?1?,AUTO-NO // RUN // COPY FROM-DISK,TO-#RPGLIB,FILE-RPGOBJ // END // IFF ?CD?/0000 RETURN // LOAD $MAINT // RUN // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG95,NEWNAME-SUBR95,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG01,NEWNAME-SUBR01,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG20,NEWNAME-SUBR20,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG21,NEWNAME-SUBR21,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG22,NEWNAME-SUBR22,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG23,NEWNAME-SUBR23,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG40,NEWNAME-SUBR40,RETAIN-R // COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG41,NEWNAME-SUBR41,RETAIN-R // END LOGPLD LOAD,RPG,'#RPG,#RPGLIB',,'0006,##MSGPL2',,'#LIBRARY,#RPGLIB' // LOCAL AREA-SYSTEM,OFFSET-1,DATA-'XRPGILOD50' // LOAD $CNAD // RUN
0x000…001 0xa1 0x001…022 »// IFF DATAF1-#RPGLIB GOTO BLDLIB« 0x022…023 0x2f 0x023…024 0x9e 0x024…042 »DELETE #RPGLIB,F1,REMOVE,,LIBR« 0x042…043 0x32 0x043…044 0x8d 0x044…051 »// TAG BLDLIB« 0x051…052 0x43 0x052…053 0x8e 0x053…061 »// LOAD $CNKAN« 0x061…062 0x42 0x062…063 0x86 0x063…069 »// RUN« 0x069…06a 0x4a 0x06a…06b 0x94 0x06b…07f »// LOCAL AREA-SYSTEM« 0x07f…080 0x3c 0x080…081 0xa1 0x081…0a2 »// IFF ?L'230,1'?/1 GOTO CHKKANJI« 0x0a2…0a3 0x2f 0x0a3…0a4 0xa2 0x0a4…0c6 »// ELSE BLDLIBR #RPGLIB,290,50,?2?« 0x0c6…0c7 0x2e 0x0c7…0c8 0x90 0x0c8…0d8 »// GOTO LOADFILE« 0x0d8…0d9 0x40 0x0d9…0da 0x8f 0x0da…0e9 »// TAG CHKKANJI« 0x0e9…0ea 0x41 0x0ea…0eb 0xac 0x0eb…117 »// IF ?L'67,1'?/1 BLDLIBR #RPGLIB,300,50,?2?« 0x117…118 0x24 0x118…119 0xa2 0x119…13b »// ELSE BLDLIBR #RPGLIB,250,50,?2?« 0x13b…13c 0x2e 0x13c…13d 0x8f 0x13d…14c »// TAG LOADFILE« 0x14c…14d 0x41 0x14d…14e 0x8e 0x14e…15c »// LOAD $MAINT« 0x15c…15d 0x42 0x15d…15e 0xbb 0x15e…199 »// FILE NAME-RPGOBJ,UNIT-I1,PACK-PPRPG,LOCATION-?1?,AUTO-NO« 0x199…19a 0x15 0x19a…19b 0x86 0x19b…1a1 »// RUN« 0x1a1…1a2 0x4a 0x1a2…1a3 0xa8 0x1a3…1cb »// COPY FROM-DISK,TO-#RPGLIB,FILE-RPGOBJ« 0x1cb…1cc 0x28 0x1cc…1cd 0x86 0x1cd…1d3 »// END« 0x1d3…1d4 0x4a 0x1d4…1d5 0x97 0x1d5…1ec »// IFF ?CD?/0000 RETURN« 0x1ec…1ed 0x39 0x1ed…1ee 0x8e 0x1ee…1fc »// LOAD $MAINT« 0x1fc…1fd 0x42 0x1fd…1fe 0x86 0x1fe…204 »// RUN« 0x204…205 0x4a 0x205…206 0xcc 0x206…252 »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG95,NEWNAME-SUBR95,RETAIN-R« 0x252…253 0x04 0x253…254 0xcc 0x254…2a0 »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG01,NEWNAME-SUBR01,RETAIN-R« 0x2a0…2a1 0x04 0x2a1…2a2 0xcc 0x2a2…2ee »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG20,NEWNAME-SUBR20,RETAIN-R« 0x2ee…2ef 0x04 0x2ef…2f0 0xcc 0x2f0…33c »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG21,NEWNAME-SUBR21,RETAIN-R« 0x33c…33d 0x04 0x33d…33e 0xcc 0x33e…38a »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG22,NEWNAME-SUBR22,RETAIN-R« 0x38a…38b 0x04 0x38b…38c 0xcc 0x38c…3d8 »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG23,NEWNAME-SUBR23,RETAIN-R« 0x3d8…3d9 0x04 0x3d9…3da 0xcc 0x3da…426 »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG40,NEWNAME-SUBR40,RETAIN-R« 0x426…427 0x04 0x427…428 0xcc 0x428…474 »// COPY FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME-@PG41,NEWNAME-SUBR41,RETAIN-R« 0x474…475 0x04 0x475…476 0x86 0x476…47c »// END« 0x47c…47d 0x4a 0x47d…47e 0xc3 0x47e…4c1 »LOGPLD LOAD,RPG,'#RPG,#RPGLIB',,'0006,##MSGPL2',,'#LIBRARY,#RPGLIB'« 0x4c1…4c2 0x0d 0x4c2…4c3 0xaf 0x4c3…4f2 »// LOCAL AREA-SYSTEM,OFFSET-1,DATA-'XRPGILOD50'« 0x4f2…4f3 0x21 0x4f3…4f4 0x8d 0x4f4…501 »// LOAD $CNAD« 0x501…502 0x43 0x502…503 0x86 0x503…509 »// RUN« 0x509…50a 0x4a 0x50a…50b 0x00 0x50b…520 c2 6b f3 f0 f0 6b f5 f0 6b 6f f2 6f 24 a2 61 61 40 c5 d3 e2 c5 ┆B,300,50,?2? s// ELSE┆ 0x520…540 40 c2 d3 c4 d3 c9 c2 d9 40 7b d9 d7 c7 d3 c9 c2 6b f2 f5 f0 6b f5 f0 6b 6f f2 6f 2e 8f 61 61 40 ┆ BLDLIBR #RPGLIB,250,50,?2? ±// ┆ 0x540…560 e3 c1 c7 40 d3 d6 c1 c4 c6 c9 d3 c5 41 8e 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 bb 61 61 ┆TAG LOADFILE þ// LOAD $MAINTâ]//┆ 0x560…580 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 d9 d7 c7 d6 c2 d1 6b e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 ┆ FILE NAME-RPGOBJ,UNIT-I1,PACK-P┆ 0x580…5a0 d7 d9 d7 c7 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 6f 6b c1 e4 e3 d6 60 d5 d6 15 86 61 61 40 d9 e4 ┆PRPG,LOCATION-?1?,AUTO-NO f// RU┆ 0x5a0…5c0 d5 4a a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 c4 c9 e2 d2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b ┆N¢y// COPY FROM-DISK,TO-#RPGLIB,┆ 0x5c0…5e0 c6 c9 d3 c5 60 d9 d7 c7 d6 c2 d1 28 86 61 61 40 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 c4 6f ┆FILE-RPGOBJ f// END¢p// IFF ?CD?┆ 0x5e0…600 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 8e 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 61 61 ┆/0000 RETURN þ// LOAD $MAINTâf//┆