|
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 - download
Length: 8192 (0x2000)
Types: GA21-9182-File
Names: »RPG«
└─⟦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
└─⟦this⟧
0x0000…0020 (0,) d7 c1 e4 e3 d6 40 40 40 40 00 00 02 50 00 01 00 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 ┆PAUTO & ┆
0x0020…0040 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9c 61 61 40 c9 d5 c3 d3 ┆ æ// INCL┆
0x0040…0060 e4 c4 c5 40 c1 e4 e3 d6 6b 7b d9 d7 c7 d3 c9 c2 40 5c c1 d3 d3 34 00 d4 e8 d5 00 00 04 00 28 00 ┆UDE AUTO,#RPGLIB *ALL MYN ┆
0x0060…0080 00 00 f1 00 04 00 00 01 00 00 00 d6 7b d9 d7 d9 e9 40 40 40 00 05 fd 11 06 a0 06 a6 87 09 00 08 ┆ 1 O#RPRZ Ù µ wg ┆
0x0080…00a0 00 00 01 00 11 30 00 06 7d 6d d4 e8 d5 00 00 04 00 28 00 00 00 f1 00 04 00 00 01 00 00 00 d6 7b ┆ '_MYN 1 O#┆
0x00a0…00c0 d9 d7 e2 d7 c4 40 40 00 06 0e 04 20 00 20 00 4d 09 e0 01 00 00 01 00 04 30 00 00 00 00 00 00 00 ┆RPSPD ( \ ┆
0x00c0…00e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d6 7b d9 d7 e9 e8 40 40 40 00 06 12 07 41 00 ┆ O#RPZY ┆
0x00e0…0100 46 90 a6 10 00 08 00 00 01 00 08 30 00 06 7d 6d d4 e8 d5 00 00 04 00 28 00 00 00 f1 00 04 00 00 ┆ã°w '_MYN 1 ┆
0x0100…0120 01 00 00 00 d7 c1 e4 e3 d6 40 40 40 40 00 07 f5 50 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 ┆ PAUTO 5& ┆
0x0120…0140 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 c1 e4 e3 d6 c3 40 40 ┆ PAUTOC ┆
0x0140…0160 40 00 00 02 50 00 01 00 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 20 ┆ & ┆
0x0160…0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9d 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 c1 e4 e3 d6 ┆ ¸// INCLUDE AUTO┆
0x0180…01a0 c3 6b 7b d9 d7 c7 d3 c9 c2 40 5c c1 d3 d3 33 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆C,#RPGLIB *ALL ┆
0x01a0…01c0 00 00 00 d7 c1 e4 e3 d6 c3 40 40 40 00 07 f6 50 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 00 ┆ PAUTOC 6& ┆
0x01c0…01e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 c1 e4 e3 d6 c3 c1 d3 e2 00 ┆ PAUTOCALS ┆
0x01e0…0200 07 40 50 00 ca 00 00 00 00 00 00 00 00 01 00 24 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ & ┆
0x0200…0220 00 00 00 00 00 00 00 00 00 d7 c1 e4 e3 d6 c3 e3 40 40 00 00 33 50 00 2c 00 00 00 00 00 00 00 00 ┆ PAUTOCT & ┆
0x0220…0240 01 00 07 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 ┆ PRPG┆
0x0240…0260 40 40 40 40 40 00 07 f7 50 00 01 00 00 00 00 00 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 ┆ 7& ┆
0x0260…0280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 d9 d7 c7 40 40 40 40 40 00 00 02 50 00 01 00 ┆ PRPG & ┆
0x0280…02a0 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 ┆ ┆
0x02a0…02c0 00 00 00 00 00 00 00 00 9b 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 d9 d7 c7 6b 7b d9 d7 c7 d3 c9 c2 40 ┆ º// INCLUDE RPG,#RPGLIB ┆
0x02c0…02e0 5c c1 d3 d3 35 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 c1 e4 e3 d6 ┆*ALL PAUTO┆
0x02e0…0300 c3 40 40 40 00 09 7c 50 00 01 00 00 00 00 00 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 ┆C @& ┆
0x0300…0320 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 c1 e4 e3 d6 c3 c1 d3 e2 00 09 7d 50 00 ca 00 00 00 ┆ PAUTOCALS '& ┆
0x0320…0340 00 00 00 00 00 01 00 24 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0340…0360 00 d7 c1 e4 e3 d6 c3 e3 40 40 00 09 a1 50 00 2c 00 00 00 00 00 00 00 00 01 00 07 30 00 00 00 00 ┆ PAUTOCT ~& ┆
0x0360…0380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 40 40 40 40 40 00 07 f7 ┆ PRPG 7┆
0x0380…03a0 50 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆& ┆
0x03a0…03c0 00 00 00 00 00 00 00 ff d7 d9 d7 c7 c3 40 40 40 40 00 00 02 50 00 01 00 00 00 00 40 00 00 00 01 ┆ PRPGC & ┆
0x03c0…03e0 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x03e0…0400 9c 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 d9 d7 c7 c3 6b 7b d9 d7 c7 d3 c9 c2 40 5c c1 d3 d3 34 00 00 ┆æ// INCLUDE RPGC,#RPGLIB *ALL ┆
0x0400…0420 (1,) 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 c3 40 40 40 40 00 07 f8 50 ┆ PRPGC 8&┆
0x0420…0440 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x0440…0460 00 00 00 00 00 00 d7 d9 d7 c7 c3 c1 d3 e2 d6 00 07 71 50 01 14 00 00 00 00 00 00 00 00 01 00 2f ┆ PRPGCALSO É& ┆
0x0460…0480 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 c3 d6 d4 ┆ PRPGCOM┆
0x0480…04a0 d7 40 00 00 76 78 00 10 00 00 00 00 40 00 00 00 07 00 02 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆P ÎÌ ┆
0x04a0…04c0 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 c3 e3 40 40 40 00 00 78 50 00 2c 00 00 00 00 00 ┆ PRPGCT Ì& ┆
0x04c0…04e0 00 00 00 01 00 07 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ┆ ┆
0x04e0…0500 d7 d9 d7 c7 c4 d9 d6 d7 40 00 00 04 50 00 0e 00 00 00 00 40 00 02 00 05 00 02 30 00 00 00 00 00 ┆PRPGDROP & ┆
0x0500…0520 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 96 61 61 40 d4 c5 d4 c2 ┆ o// MEMB┆
0x0520…0540 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f2 3a ae 61 61 40 c9 c6 40 d1 d6 c2 d8 60 d5 d6 40 c9 ┆ER USER1-##MSG2 Þ// IF JOBQ-NO I┆
0x0540…0560 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 40 5c 40 7d 40 d9 d7 c7 c4 d9 d6 d7 6f d4 f5 f5 f0 f0 6f 7d 22 ┆F EVOKED-NO * ' RPGDROP?M5500?' ┆
0x0560…0580 b3 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 7b d9 d7 c7 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 7b d9 d7 ┆·// IF DATAF1-#RPGLIB DELETE #RP┆
0x0580…05a0 c7 d3 c9 c2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 6b 6b d3 c9 c2 d9 1d 8e 61 61 40 d3 d6 c1 c4 40 5b d4 ┆GLIB,F1,REMOVE,,LIBR þ// LOAD $M┆
0x05a0…05c0 c1 c9 d5 e3 42 86 61 61 40 d9 e4 d5 4a a9 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 ┆AINTâf// RUN¢z// DELETE LIBRARY-┆
0x05c0…05e0 d7 6b d5 c1 d4 c5 60 d9 d7 c7 4b c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 27 aa 61 61 40 c4 c5 d3 c5 ┆P,NAME-RPG.ALL,RETAIN-S ¡// DELE┆
0x05e0…0600 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c1 e4 e3 d6 4b c1 d3 d3 6b d9 c5 e3 c1 c9 ┆TE LIBRARY-P,NAME-AUTO.ALL,RETAI┆
0x0600…0620 d5 60 e2 26 c8 61 61 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b d9 d7 d7 d7 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 ┆N-S H// IF LOAD-'#RPPPD01,#LIBRA┆
0x0620…0640 d9 e8 7d 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 60 7b d9 d7 d7 d7 c4 ┆RY' DELETE LIBRARY-O,NAME-#RPPPD┆
0x0640…0660 4b c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 08 86 61 61 40 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 ┆.ALL,RETAIN-S f// END¢p// IFF ?C┆
0x0660…0680 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 8f d3 d6 c7 d7 d3 c4 40 c4 d9 d6 d7 6b d9 d7 c7 41 ┆D?/0000 RETURN ±LOGPLD DROP,RPG ┆
0x0680…06a0 af 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 ┆®// LOCAL AREA-SYSTEM,OFFSET-1,D┆
0x06a0…06c0 c1 e3 c1 60 7d d9 d7 c7 c4 d9 d6 d7 40 f5 f0 7d 21 8e 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c4 d9 d7 ┆ATA-'RPGDROP 50' þ// LOAD $CNDRP┆
0x06c0…06e0 42 86 61 61 40 d9 e4 d5 4a 00 01 20 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d 66 00 00 00 00 ┆âf// RUN¢ Ø Ã ┆
0x06e0…0700 00 00 00 00 e2 c5 e7 d4 d7 d3 c5 40 40 00 09 1c 50 00 20 00 00 00 00 40 00 00 00 02 00 04 20 00 ┆ SEXMPLE & ┆
0x0700…0720 00 00 00 00 00 00 00 00 00 00 00 00 80 3d 99 00 00 00 00 00 00 00 00 ff d7 d9 d7 c7 c9 d3 d6 c4 ┆ Ø r PRPGILOD┆
0x0720…0740 40 00 00 0c 50 00 22 00 00 00 00 40 00 02 00 05 00 06 30 00 00 00 00 00 00 00 00 00 00 00 00 20 ┆ & ┆
0x0740…0760 80 3f cc 00 00 00 00 00 00 00 00 00 00 00 00 00 a1 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 7b ┆Ø ö ~// IFF DATAF1-#┆
0x0760…0780 d9 d7 c7 d3 c9 c2 40 c7 d6 e3 d6 40 c2 d3 c4 d3 c9 c2 2f 9e c4 c5 d3 c5 e3 c5 40 7b d9 d7 c7 d3 ┆RPGLIB GOTO BLDLIB ÆDELETE #RPGL┆
0x0780…07a0 c9 c2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 6b 6b d3 c9 c2 d9 32 8d 61 61 40 e3 c1 c7 40 c2 d3 c4 d3 c9 ┆IB,F1,REMOVE,,LIBR ý// TAG BLDLI┆
0x07a0…07c0 c2 43 8e 61 61 40 d3 d6 c1 c4 40 5b c3 d5 d2 c1 d5 42 86 61 61 40 d9 e4 d5 4a 94 61 61 40 d3 d6 ┆Bäþ// LOAD $CNKANâf// RUN¢m// LO┆
0x07c0…07e0 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 3c a1 61 61 40 c9 c6 c6 40 6f d3 7d f2 f3 f0 6b f1 ┆CAL AREA-SYSTEM ~// IFF ?L'230,1┆
0x07e0…0800 7d 6f 61 f1 40 c7 d6 e3 d6 40 c3 c8 d2 d2 c1 d5 d1 c9 2f a2 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 ┆'?/1 GOTO CHKKANJI s// ELSE BLDL┆
0x0800…0820 (2,) c9 c2 d9 40 7b d9 d7 c7 d3 c9 c2 6b f2 f9 f0 6b f5 f0 6b 6f f2 6f 2e 90 61 61 40 c7 d6 e3 d6 40 ┆IBR #RPGLIB,290,50,?2? °// GOTO ┆
0x0820…0840 d3 d6 c1 c4 c6 c9 d3 c5 40 8f 61 61 40 e3 c1 c7 40 c3 c8 d2 d2 c1 d5 d1 c9 41 ac 61 61 40 c9 c6 ┆LOADFILE ±// TAG CHKKANJI Ð// IF┆
0x0840…0860 40 6f d3 7d f6 f7 6b f1 7d 6f 61 f1 40 c2 d3 c4 d3 c9 c2 d9 40 7b d9 d7 c7 d3 c9 c2 6b f3 f0 f0 ┆ ?L'67,1'?/1 BLDLIBR #RPGLIB,300┆
0x0860…0880 6b f5 f0 6b 6f f2 6f 24 a2 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b d9 d7 c7 d3 c9 c2 ┆,50,?2? s// ELSE BLDLIBR #RPGLIB┆
0x0880…08a0 6b f2 f5 f0 6b f5 f0 6b 6f f2 6f 2e 8f 61 61 40 e3 c1 c7 40 d3 d6 c1 c4 c6 c9 d3 c5 41 8e 61 61 ┆,250,50,?2? ±// TAG LOADFILE þ//┆
0x08a0…08c0 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 bb 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 d9 d7 c7 d6 c2 ┆ LOAD $MAINTâ]// FILE NAME-RPGOB┆
0x08c0…08e0 d1 6b e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 d9 d7 c7 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 ┆J,UNIT-I1,PACK-PPRPG,LOCATION-?1┆
0x08e0…0900 6f 6b c1 e4 e3 d6 60 d5 d6 15 86 61 61 40 d9 e4 d5 4a a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 ┆?,AUTO-NO f// RUN¢y// COPY FROM-┆
0x0900…0920 c4 c9 e2 d2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b c6 c9 d3 c5 60 d9 d7 c7 d6 c2 d1 28 86 61 61 40 ┆DISK,TO-#RPGLIB,FILE-RPGOBJ f// ┆
0x0920…0940 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 8e 61 61 ┆END¢p// IFF ?CD?/0000 RETURN þ//┆
0x0940…0960 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 61 61 40 d9 e4 d5 4a cc 61 61 40 c3 d6 d7 e8 40 c6 d9 ┆ LOAD $MAINTâf// RUN¢ö// COPY FR┆
0x0960…0980 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 d9 6b ┆OM-#RPGLIB,TO-#RPGLIB,LIBRARY-R,┆
0x0980…09a0 d5 c1 d4 c5 60 7c d7 c7 f9 f5 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f9 f5 6b d9 c5 e3 c1 c9 d5 ┆NAME-@PG95,NEWNAME-SUBR95,RETAIN┆
0x09a0…09c0 60 d9 04 cc 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 ┆-R ö// COPY FROM-#RPGLIB,TO-#RPG┆
0x09c0…09e0 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 d9 6b d5 c1 d4 c5 60 7c d7 c7 f0 f1 6b d5 c5 e6 d5 c1 d4 c5 ┆LIB,LIBRARY-R,NAME-@PG01,NEWNAME┆
0x09e0…0a00 60 e2 e4 c2 d9 f0 f1 6b d9 c5 e3 c1 c9 d5 60 d9 04 cc 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b ┆-SUBR01,RETAIN-R ö// COPY FROM-#┆
0x0a00…0a20 d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 d9 6b d5 c1 d4 c5 ┆RPGLIB,TO-#RPGLIB,LIBRARY-R,NAME┆
0x0a20…0a40 60 7c d7 c7 f2 f0 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f2 f0 6b d9 c5 e3 c1 c9 d5 60 d9 04 cc ┆-@PG20,NEWNAME-SUBR20,RETAIN-R ö┆
0x0a40…0a60 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b ┆// COPY FROM-#RPGLIB,TO-#RPGLIB,┆
0x0a60…0a80 d3 c9 c2 d9 c1 d9 e8 60 d9 6b d5 c1 d4 c5 60 7c d7 c7 f2 f1 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 ┆LIBRARY-R,NAME-@PG21,NEWNAME-SUB┆
0x0a80…0aa0 d9 f2 f1 6b d9 c5 e3 c1 c9 d5 60 d9 04 cc 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 ┆R21,RETAIN-R ö// COPY FROM-#RPGL┆
0x0aa0…0ac0 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 d9 6b d5 c1 d4 c5 60 7c d7 c7 ┆IB,TO-#RPGLIB,LIBRARY-R,NAME-@PG┆
0x0ac0…0ae0 f2 f2 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f2 f2 6b d9 c5 e3 c1 c9 d5 60 d9 04 cc 61 61 40 c3 ┆22,NEWNAME-SUBR22,RETAIN-R ö// C┆
0x0ae0…0b00 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 ┆OPY FROM-#RPGLIB,TO-#RPGLIB,LIBR┆
0x0b00…0b20 c1 d9 e8 60 d9 6b d5 c1 d4 c5 60 7c d7 c7 f2 f3 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f2 f3 6b ┆ARY-R,NAME-@PG23,NEWNAME-SUBR23,┆
0x0b20…0b40 d9 c5 e3 c1 c9 d5 60 d9 04 cc 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 ┆RETAIN-R ö// COPY FROM-#RPGLIB,T┆
0x0b40…0b60 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 d9 6b d5 c1 d4 c5 60 7c d7 c7 f4 f0 6b d5 ┆O-#RPGLIB,LIBRARY-R,NAME-@PG40,N┆
0x0b60…0b80 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f4 f0 6b d9 c5 e3 c1 c9 d5 60 d9 04 cc 61 61 40 c3 d6 d7 e8 40 ┆EWNAME-SUBR40,RETAIN-R ö// COPY ┆
0x0b80…0ba0 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b d3 c9 c2 d9 c1 d9 e8 60 ┆FROM-#RPGLIB,TO-#RPGLIB,LIBRARY-┆
0x0ba0…0bc0 d9 6b d5 c1 d4 c5 60 7c d7 c7 f4 f1 6b d5 c5 e6 d5 c1 d4 c5 60 e2 e4 c2 d9 f4 f1 6b d9 c5 e3 c1 ┆R,NAME-@PG41,NEWNAME-SUBR41,RETA┆
0x0bc0…0be0 c9 d5 60 d9 04 86 61 61 40 c5 d5 c4 4a c3 d3 d6 c7 d7 d3 c4 40 d3 d6 c1 c4 6b d9 d7 c7 6b 7d 7b ┆IN-R f// END¢CLOGPLD LOAD,RPG,'#┆
0x0be0…0c00 d9 d7 c7 6b 7b d9 d7 c7 d3 c9 c2 7d 6b 6b 7d f0 f0 f0 f6 6b 7b 7b d4 e2 c7 d7 d3 f2 7d 6b 6b 7d ┆RPG,#RPGLIB',,'0006,##MSGPL2',,'┆
0x0c00…0c20 (3,) 7b d3 c9 c2 d9 c1 d9 e8 6b 7b d9 d7 c7 d3 c9 c2 7d 0d af 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 ┆#LIBRARY,#RPGLIB' ®// LOCAL AREA┆
0x0c20…0c40 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d e7 d9 d7 c7 c9 d3 d6 c4 f5 ┆-SYSTEM,OFFSET-1,DATA-'XRPGILOD5┆
0x0c40…0c60 f0 7d 21 8d 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 86 61 61 40 d9 e4 d5 4a 00 c2 6b f3 f0 f0 ┆0' ý// LOAD $CNADäf// RUN¢ B,300┆
0x0c60…0c80 6b f5 f0 6b 6f f2 6f 24 a2 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b d9 d7 c7 d3 c9 c2 ┆,50,?2? s// ELSE BLDLIBR #RPGLIB┆
0x0c80…0ca0 6b f2 f5 f0 6b f5 f0 6b 6f f2 6f 2e 8f 61 61 40 e3 c1 c7 40 d3 d6 c1 c4 c6 c9 d3 c5 41 8e 61 61 ┆,250,50,?2? ±// TAG LOADFILE þ//┆
0x0ca0…0cc0 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 bb 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 d9 d7 c7 d6 c2 ┆ LOAD $MAINTâ]// FILE NAME-RPGOB┆
0x0cc0…0ce0 d1 6b e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 d9 d7 c7 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 ┆J,UNIT-I1,PACK-PPRPG,LOCATION-?1┆
0x0ce0…0d00 6f 6b c1 e4 e3 d6 60 d5 d6 15 86 61 61 40 d9 e4 d5 4a a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 ┆?,AUTO-NO f// RUN¢y// COPY FROM-┆
0x0d00…0d20 c4 c9 e2 d2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b c6 c9 d3 c5 60 d9 d7 c7 d6 c2 d1 28 86 61 61 40 ┆DISK,TO-#RPGLIB,FILE-RPGOBJ f// ┆
0x0d20…0d40 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 8e 61 61 ┆END¢p// IFF ?CD?/0000 RETURN þ//┆
0x0d40…0d60 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 61 61 d7 d9 d7 c7 d3 d6 c1 c4 40 00 00 06 50 00 15 00 ┆ LOAD $MAINTâf//PRPGLOAD & ┆
0x0d60…0d80 00 00 00 40 00 02 00 05 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 20 80 3f 00 00 00 00 00 00 ┆ Ø ┆
0x0d80…0da0 00 00 00 00 00 00 00 00 81 5c 02 c4 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c3 d6 d7 c9 c5 ┆ a* DTHIS PROCEDURE COPIE┆
0x0da0…0dc0 e2 40 e3 c8 c5 40 d9 d7 c7 40 c3 d6 d4 d7 c9 d3 c5 d9 40 c1 d5 c4 40 c1 e4 e3 d6 40 d9 c5 d7 d6 ┆S THE RPG COMPILER AND AUTO REPO┆
0x0dc0…0de0 d9 e3 40 e3 d6 40 c1 40 e2 c5 d7 c1 d9 c1 e3 c5 09 81 5c 02 cd d3 c9 c2 d9 c1 d9 e8 40 7d 7b d9 ┆RT TO A SEPARATE a* òLIBRARY '#R┆
0x0de0…0e00 d7 c7 d3 c9 c2 7d 40 d6 d5 40 c6 c9 e7 c5 c4 40 c4 c9 e2 d2 40 c6 d9 d6 d4 40 c4 c9 e2 d2 c5 e3 ┆PGLIB' ON FIXED DISK FROM DISKET┆
0x0e00…0e20 e3 c5 40 c2 e8 40 c3 c1 d3 d3 c9 d5 c7 40 d9 d7 c7 c9 d3 d6 c4 40 c1 d5 c4 40 d9 d7 c7 d4 d9 c9 ┆TE BY CALLING RPGILOD AND RPGMRI┆
0x0e20…0e40 4b 40 81 5c 02 a7 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f1 40 c9 e2 40 c4 c9 e2 d2 40 e2 d7 c9 d5 c4 d3 ┆. a* xPARAMETER 1 IS DISK SPINDL┆
0x0e40…0e60 c5 40 d7 d9 c5 c6 c5 d9 c5 d5 c3 c5 4b 26 81 5c 02 a1 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f2 40 c9 e2 ┆E PREFERENCE. a* ~PARAMETER 2 IS┆
0x0e60…0e80 40 c4 c9 e2 d2 c5 e3 e3 c5 40 d3 d6 c3 c1 e3 c9 d6 d5 4b 2c 96 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 ┆ DISKETTE LOCATION. o// MEMBER U┆
0x0e80…0ea0 e2 c5 d9 f1 60 7b 7b d4 e2 c7 c3 3a ae 61 61 40 c9 c6 40 d1 d6 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 ┆SER1-##MSGC Þ// IF JOBQ-NO IF EV┆
0x0ea0…0ec0 d6 d2 c5 c4 60 d5 d6 40 5c 40 7d 40 d9 d7 c7 d3 d6 c1 c4 6f d4 f3 f5 f0 f0 6f 7d 22 8e 61 61 40 ┆OKED-NO * ' RPGLOAD?M3500?' þ// ┆
0x0ec0…0ee0 e3 c1 c7 40 c3 c8 d2 c4 c9 e2 d2 42 ac 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 7d d9 d7 c7 d6 c2 ┆TAG CHKDISKâÐ// IF DATAI1-'RPGOB┆
0x0ee0…0f00 d1 6b 6b 6f f2 7d e2 f1 7d 6f 7d 40 c7 d6 e3 d6 40 c3 c1 d3 d3 d7 d9 d6 c3 24 89 61 61 40 5c 40 ┆J,,?2'S1'?' GOTO CALLPROC i// * ┆
0x0f00…0f20 f3 f2 f9 f0 47 94 61 61 40 7b c5 d9 d9 40 f3 f2 f9 f1 6b f1 f3 6b c3 d5 c6 c7 3c 8f 61 61 40 c7 ┆3290åm// #ERR 3291,13,CNFG ±// G┆
0x0f20…0f40 d6 e3 d6 40 c3 c8 d2 c4 c9 e2 d2 41 8f 61 61 40 e3 c1 c7 40 c3 c1 d3 d3 d7 d9 d6 c3 41 93 d9 d7 ┆OTO CHKDISK ±// TAG CALLPROC lRP┆
0x0f40…0f60 c7 c9 d3 d6 c4 40 6f f2 7d e2 f1 7d 6f 6b 6f f1 6f 3d a7 61 61 40 c9 c6 c6 40 d3 d6 c1 c4 60 7d ┆GILOD ?2'S1'?,?1? x// IFF LOAD-'┆
0x0f60…0f80 7b d9 d7 7b c3 d7 d3 f1 6b 7b d9 d7 c7 d3 c9 c2 7d 40 c7 d6 e3 d6 40 d4 d9 c9 29 af 61 61 40 d3 ┆#RP#CPL1,#RPGLIB' GOTO MRI ®// L┆
0x0f80…0fa0 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d ┆OCAL AREA-SYSTEM,OFFSET-1,DATA-'┆
0x0fa0…0fc0 e7 d9 d7 c7 d3 d6 c1 c4 f5 f0 7d 21 8d 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 86 61 61 40 d9 ┆XRPGLOAD50' ý// LOAD $CNADäf// R┆
0x0fc0…0fe0 e4 d5 4a 89 61 61 40 d9 c5 e3 e4 d9 d5 47 8a 61 61 40 e3 c1 c7 40 d4 d9 c9 46 9f 61 61 40 d7 c1 ┆UN¢i// RETURNå«// TAG MRIã¤// PA┆
0x0fe0…1000 e4 e2 c5 40 7d 6f d4 7d f3 f5 f0 f2 6b f1 6b f6 f0 7d 6f 40 d7 d7 d9 d7 c7 7d 31 8a d9 d7 c7 d4 ┆USE '?M'3502,1,60'? PPRPG' «RPGM┆
0x1000…1020 (4,) d9 c9 40 6f f2 6f 46 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆RI ?2?ã ┆
0x1020…1040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x1080…10a0 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d4 d9 c9 40 40 00 00 04 50 00 0b 00 00 00 00 40 00 02 00 05 ┆ PRPGMRI & ┆
0x10a0…10c0 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 20 80 3f 33 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Ø ┆
0x10c0…10e0 81 5c 02 ba e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c1 c4 c4 e2 40 e3 c8 c5 40 d4 c1 c3 c8 ┆a* [THIS PROCEDURE ADDS THE MACH┆
0x10e0…1100 c9 d5 c5 40 d9 c5 c1 c4 c1 c2 d3 c5 40 c9 d5 c6 d6 d9 d4 c1 e3 c9 d6 d5 40 4d d4 d9 c9 5d 13 81 ┆INE READABLE INFORMATION (MRI) a┆
0x1100…1120 5c 02 bb e3 d6 40 7b d9 d7 c7 d3 c9 c2 40 c6 d9 d6 d4 40 c4 c9 e2 d2 c5 e3 e3 c5 4b 40 d7 c1 d9 ┆* ]TO #RPGLIB FROM DISKETTE. PAR┆
0x1120…1140 c1 d4 c5 e3 c5 d9 40 f1 40 c9 e2 40 c4 c9 e2 d2 c5 e3 e3 c5 40 d3 d6 c3 c1 e3 c9 d6 d5 4b 12 8e ┆AMETER 1 IS DISKETTE LOCATION. þ┆
0x1140…1160 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 bb 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 d9 d7 c7 ┆// LOAD $MAINTâ]// FILE NAME-RPG┆
0x1160…1180 d4 d9 c9 6b e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 d9 d7 c7 6b d3 d6 c3 c1 e3 c9 d6 d5 60 ┆MRI,UNIT-I1,PACK-PPRPG,LOCATION-┆
0x1180…11a0 6f f1 6f 6b c1 e4 e3 d6 60 d5 d6 15 86 61 61 40 d9 e4 d5 4a a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 ┆?1?,AUTO-NO f// RUN¢y// COPY FRO┆
0x11a0…11c0 d4 60 c4 c9 e2 d2 6b e3 d6 60 7b d9 d7 c7 d3 c9 c2 6b c6 c9 d3 c5 60 d9 d7 c7 d4 d9 c9 28 86 61 ┆M-DISK,TO-#RPGLIB,FILE-RPGMRI f/┆
0x11c0…11e0 61 40 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 af ┆/ END¢p// IFF ?CD?/0000 RETURN ®┆
0x11e0…1200 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 ┆// LOCAL AREA-SYSTEM,OFFSET-1,DA┆
0x1200…1220 e3 c1 60 7d e7 d9 d7 c7 d4 d9 c9 40 f5 f0 7d 21 8d 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 86 ┆TA-'XRPGMRI 50' ý// LOAD $CNADäf┆
0x1220…1240 61 61 40 d9 e4 d5 4a 00 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆// RUN¢ ┆
0x1240…1260 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0x3…]
0x12c0…12e0 d7 d9 d7 c7 d6 d5 d3 40 40 00 00 02 50 00 01 00 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 ┆PRPGONL & ┆
0x12e0…1300 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 9e 61 61 40 c9 d5 c3 d3 ┆ Æ// INCL┆
0x1300…1320 e4 c4 c5 40 d9 d7 c7 d6 d5 d3 6b 7b d9 d7 c7 d3 c9 c2 40 5c c1 d3 d3 32 00 00 00 00 00 00 00 00 ┆UDE RPGONL,#RPGLIB *ALL ┆
0x1320…1340 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 c9 d3 d6 c4 40 00 0a 6c 50 00 14 00 00 00 00 00 00 ┆ PRPGILOD %& ┆
0x1340…1360 00 00 01 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 ┆ PR┆
0x1360…1380 d7 c7 d3 d6 c1 c4 40 00 0a 6f 50 00 1a 00 00 00 00 00 00 00 00 01 00 05 30 00 00 00 00 00 00 00 ┆PGLOAD ?& ┆
0x1380…13a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d4 d9 c9 40 40 00 0a 74 50 00 0b ┆ PRPGMRI È& ┆
0x13a0…13c0 00 00 00 00 00 00 00 00 01 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x13c0…13e0 00 00 00 00 d7 d9 d7 c7 d6 d5 d3 40 40 00 08 00 50 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 ┆ PRPGONL & ┆
0x13e0…1400 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 d9 d7 c7 d7 40 40 40 ┆ PRPGP ┆
0x1400…1420 (5,) 40 00 00 02 50 00 01 00 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 20 ┆ & ┆
0x1420…1440 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 94 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 c8 c5 d3 d7 ┆ m// INCLUDE HELP┆
0x1440…1460 40 d9 d7 c7 d7 3c 00 01 00 2b 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ RPGP ┆
0x1460…1480 00 00 00 d7 d9 d7 c7 d7 40 40 40 40 00 08 01 50 00 01 00 00 00 00 00 00 00 00 01 00 00 30 00 00 ┆ PRPGP & ┆
0x1480…14a0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d9 40 40 40 40 00 ┆ PRPGR ┆
0x14a0…14c0 08 02 50 00 01 00 00 00 00 00 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ & ┆
0x14c0…14e0 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d9 c1 d3 e2 d6 00 07 cb 50 00 56 00 00 00 00 00 00 00 00 ┆ PRPGRALSO ô& î ┆
0x14e0…1500 01 00 0c 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 ┆ PRPG┆
0x1500…1520 e2 c1 d4 d7 d3 00 00 b6 41 00 24 00 00 00 00 00 00 00 00 01 00 05 30 00 00 00 00 00 00 00 00 00 ┆SAMPL ¶ ┆
0x1520…1540 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff d7 d9 d7 c7 d9 40 40 40 40 00 00 02 50 00 01 00 ┆ PRPGR & ┆
0x1540…1560 00 00 00 40 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 00 00 20 00 00 00 00 00 00 00 00 ┆ ┆
0x1560…1580 00 00 00 00 00 00 00 00 9c 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 d9 d7 c7 d9 6b 7b d9 d7 c7 d3 c9 c2 ┆ æ// INCLUDE RPGR,#RPGLIB┆
0x1580…15a0 40 5c c1 d3 d3 34 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d7 ┆ *ALL PRPGP┆
0x15a0…15c0 40 40 40 40 00 0a a2 50 00 01 00 00 00 00 00 00 00 00 01 00 01 30 00 00 00 00 00 00 00 00 00 00 ┆ s& ┆
0x15c0…15e0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 d9 40 40 40 40 00 08 02 50 00 01 00 00 00 ┆ PRPGR & ┆
0x15e0…1600 00 00 00 00 00 01 00 00 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1600…1620 00 d7 d9 d7 c7 d9 c1 d3 e2 d6 00 07 cb 50 00 56 00 00 00 00 00 00 00 00 01 00 0c 30 00 00 00 00 ┆ PRPGRALSO ô& î ┆
0x1620…1640 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 d7 d9 d7 c7 e2 c1 d4 d7 d3 00 00 b6 ┆ PRPGSAMPL ¶┆
0x1640…1660 41 00 24 00 00 00 00 00 00 00 00 01 00 05 30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x1660…1680 00 00 00 00 00 00 00 ff d7 d9 d7 c7 e2 c1 e5 c5 40 00 00 08 50 00 14 00 00 00 00 40 00 02 00 04 ┆ PRPGSAVE & ┆
0x1680…16a0 00 04 30 00 00 00 00 00 00 00 00 00 00 00 00 20 80 3f 66 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Ø Ã ┆
0x16a0…16c0 81 5c 02 b8 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 e2 c1 e5 c5 e2 40 e3 c8 c5 40 d9 d7 c7 ┆a* ½THIS PROCEDURE SAVES THE RPG┆
0x16c0…16e0 40 d7 d9 d6 c7 d9 c1 d4 40 d7 d9 d6 c4 e4 c3 e3 40 d6 d5 40 c4 c9 e2 d2 c5 e3 e3 c5 15 96 61 61 ┆ PROGRAM PRODUCT ON DISKETTE o//┆
0x16e0…1700 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f2 3a ae 61 61 40 c9 c6 40 d1 d6 c2 d8 ┆ MEMBER USER1-##MSG2 Þ// IF JOBQ┆
0x1700…1720 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 40 5c 40 7d 40 d9 d7 c7 e2 c1 e5 c5 6f d4 f5 f5 ┆-NO IF EVOKED-NO * ' RPGSAVE?M55┆
0x1720…1740 f0 f0 6f 7d 22 ab 61 61 40 c9 c6 40 d1 d6 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 ┆00?' ¿// IF JOBQ-NO IF EVOKED-NO┆
0x1740…1760 40 d7 c1 e4 e2 c5 40 7d 40 6f d4 f2 f1 f9 f6 6f 7d 25 9e 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 ┆ PAUSE ' ?M2196?' Æ// IF DATAI1-┆
0x1760…1780 d9 d7 c7 40 c4 c5 d3 c5 e3 c5 40 d9 d7 c7 6b c9 f1 32 a4 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 ┆RPG DELETE RPG,I1 u// IF DATAI1-┆
0x1780…17a0 d9 d7 c7 d6 c2 d1 40 c4 c5 d3 c5 e3 c5 40 d9 d7 c7 d6 c2 d1 6b c9 f1 2c 8e 61 61 40 d3 d6 c1 c4 ┆RPGOBJ DELETE RPGOBJ,I1 þ// LOAD┆
0x17a0…17c0 40 5b d4 c1 c9 d5 e3 42 ae 61 61 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 ┆ $MAINTâÞ// FILE UNIT-I1,PACK-PP┆
0x17c0…17e0 d9 d7 c7 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 60 d9 d7 c7 22 b1 61 61 40 c6 c9 d3 c5 ┆RPG,RETAIN-999,NAME-RPG £// FILE┆
0x17e0…1800 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 d9 d7 c7 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 ┆ UNIT-I1,PACK-PPRPG,RETAIN-999,N┆
0x1800…1820 (6,) c1 d4 c5 60 d9 d7 c7 d6 c2 d1 1f 86 61 61 40 d9 e4 d5 4a bd 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 ┆AME-RPGOBJ f// RUN¢¨// COPY FROM┆
0x1820…1840 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 ┆-#LIBRARY,TO-DISK,LIBRARY-P,NAME┆
0x1840…1860 60 d9 d7 c7 4b c1 d3 d3 6b c6 c9 d3 c5 60 d9 d7 c7 13 c6 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 ┆-RPG.ALL,FILE-RPG F// COPY FROM-┆
0x1860…1880 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 ┆#LIBRARY,TO-DISK,LIBRARY-P,NAME-┆
0x1880…18a0 c1 e4 e3 d6 4b c1 d3 d3 6b c6 c9 d3 c5 60 d9 d7 c7 6b c1 c4 c4 60 e8 c5 e2 0a c5 61 61 40 c9 c6 ┆AUTO.ALL,FILE-RPG,ADD-YES E// IF┆
0x18a0…18c0 40 d3 d6 c1 c4 60 7d 7b d9 d7 d7 d7 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 d9 e8 7d 40 c3 d6 d7 e8 40 c6 ┆ LOAD-'#RPPPD01,#LIBRARY' COPY F┆
0x18c0…18e0 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b 4e ┆ROM-#LIBRARY,TO-DISK,LIBRARY-O,+┆
0x18e0…1900 0b a0 d5 c1 d4 c5 60 7b d9 d7 d7 d7 c4 4b c1 d3 d3 6b c6 c9 d3 c5 60 d9 d7 c7 6b c1 c4 c4 60 e8 ┆ µNAME-#RPPPD.ALL,FILE-RPG,ADD-Y┆
0x1900…1920 c5 e2 30 bf 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 c4 c9 e2 d2 ┆ES ×// COPY FROM-#RPGLIB,TO-DISK┆
0x1920…1940 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 d9 d7 c7 4b c1 d3 d3 6b c6 c9 d3 c5 60 d9 d7 c7 ┆,LIBRARY-P,NAME-RPG.ALL,FILE-RPG┆
0x1940…1960 d6 c2 d1 11 c7 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d9 d7 c7 d3 c9 c2 6b e3 d6 60 c4 c9 e2 ┆OBJ G// COPY FROM-#RPGLIB,TO-DIS┆
0x1960…1980 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 60 7b d9 d7 4b c1 d3 d3 6b c6 c9 d3 c5 60 d9 d7 ┆K,LIBRARY-O,NAME-#RP.ALL,FILE-RP┆
[…truncated at 200 lines…]