|
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: 13312 (0x3400)
Types: GA21-9182-File
Names: »DFU«
└─⟦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
└─⟦this⟧
0x0000…0020 (0,) d7 c4 c6 e4 40 40 40 40 40 00 00 02 50 00 06 00 00 00 00 40 00 02 00 02 00 01 30 00 00 00 00 00 ┆PDFU & ┆
0x0020…0040 00 00 00 00 00 00 00 20 80 3d 99 00 00 00 00 00 00 00 00 00 00 00 00 00 81 5c 30 90 c3 c8 c1 d5 ┆ Ø r a* °CHAN┆
0x0040…0060 c7 c5 c4 40 f1 f1 61 f3 f0 61 f8 f2 0f a9 61 61 40 d4 c5 d4 c2 c5 d9 40 d7 d9 d6 c7 d9 c1 d4 f1 ┆GED 11/30/82 z// MEMBER PROGRAM1┆
0x0060…0080 60 7b c4 c6 7b d4 c7 6b d3 c9 c2 d9 c1 d9 e8 60 7b c4 c6 e4 d3 c9 c2 27 a6 61 61 40 d4 c5 d4 c2 ┆-#DF#MG,LIBRARY-#DFULIB w// MEMB┆
0x0080…00a0 c5 d9 40 e4 e2 c5 d9 f1 60 7b c4 c6 7b d4 c7 6b d3 c9 c2 d9 c1 d9 e8 60 7b c4 c6 e4 d3 c9 c2 2a ┆ER USER1-#DF#MG,LIBRARY-#DFULIB ┆
0x00a0…00c0 9e 61 61 40 c9 c6 40 d1 d6 c2 d8 60 e8 c5 e2 40 7b c5 d9 d9 40 f0 f4 f1 f8 6b c3 6b c4 c6 e4 32 ┆Æ// IF JOBQ-YES #ERR 0418,C,DFU ┆
0x00c0…00e0 a0 61 61 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 40 7b c5 d9 d9 40 f0 f4 f1 f8 6b c3 6b c4 c6 ┆µ// IF EVOKED-YES #ERR 0418,C,DF┆
0x00e0…0100 e4 30 88 c8 c5 d3 d7 40 c4 c6 e4 48 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3d 99 00 00 00 00 ┆U hHELP DFUç Ø r ┆
0x0100…0120 00 00 00 00 d7 c4 c6 e4 c4 d9 d6 d7 40 00 00 02 50 00 18 00 00 00 00 40 00 00 00 01 00 04 30 00 ┆ PDFUDROP & ┆
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 c4 c6 e4 c4 d9 d6 d7 ┆ PDFUDROP┆
0x0140…0160 40 00 00 06 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 20 ┆ & ┆
0x0160…0180 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 96 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 ┆ o// MEMBER USER1┆
0x0180…01a0 60 7b 7b d4 e2 c7 f2 3a ae 61 61 40 c9 c6 40 d1 d6 c2 d8 60 d5 d6 40 c9 c6 40 c5 e5 d6 d2 c5 c4 ┆-##MSG2 Þ// IF JOBQ-NO IF EVOKED┆
0x01a0…01c0 60 d5 d6 40 5c 40 7d 40 c4 c6 e4 c4 d9 d6 d7 6f d4 f5 f5 f0 f0 6f 7d 22 b3 61 61 40 c9 c6 40 c4 ┆-NO * ' DFUDROP?M5500?' ·// IF D┆
0x01c0…01e0 c1 e3 c1 c6 f1 60 7b c4 c6 e4 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 7b c4 c6 e4 d3 c9 c2 6b c6 f1 6b ┆ATAF1-#DFULIB DELETE #DFULIB,F1,┆
0x01e0…0200 d9 c5 d4 d6 e5 c5 6b 6b d3 c9 c2 d9 1d 8e 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 61 61 ┆REMOVE,,LIBR þ// LOAD $MAINTâf//┆
0x0200…0220 40 d9 e4 d5 4a a7 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c5 ┆ RUN¢x// DELETE LIBRARY-P,NAME-E┆
0x0220…0240 d5 e3 c5 d9 6b d9 c5 e3 c1 c9 d5 60 e2 29 a8 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 ┆NTER,RETAIN-S y// DELETE LIBRARY┆
0x0240…0260 60 d7 6b d5 c1 d4 c5 60 e4 d7 c4 c1 e3 c5 6b d9 c5 e3 c1 c9 d5 60 e2 28 a9 61 61 40 c4 c5 d3 c5 ┆-P,NAME-UPDATE,RETAIN-S z// DELE┆
0x0260…0280 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c9 d5 d8 e4 c9 d9 e8 6b d9 c5 e3 c1 c9 d5 ┆TE LIBRARY-P,NAME-INQUIRY,RETAIN┆
0x0280…02a0 60 e2 27 a6 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 d3 c9 e2 ┆-S w// DELETE LIBRARY-P,NAME-LIS┆
0x02a0…02c0 e3 6b d9 c5 e3 c1 c9 d5 60 e2 2a a8 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b ┆T,RETAIN-S y// DELETE LIBRARY-P,┆
0x02c0…02e0 d5 c1 d4 c5 60 c5 d5 e3 c5 d9 7b 6b d9 c5 e3 c1 c9 d5 60 e2 28 a9 61 61 40 c4 c5 d3 c5 e3 c5 40 ┆NAME-ENTER#,RETAIN-S z// DELETE ┆
0x02e0…0300 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 e4 d7 c4 c1 e3 c5 7b 6b d9 c5 e3 c1 c9 d5 60 e2 27 ┆LIBRARY-P,NAME-UPDATE#,RETAIN-S ┆
0x0300…0320 aa 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c9 d5 d8 e4 c9 d9 ┆¡// DELETE LIBRARY-P,NAME-INQUIR┆
0x0320…0340 e8 7b 6b d9 c5 e3 c1 c9 d5 60 e2 26 a7 61 61 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 ┆Y#,RETAIN-S x// DELETE LIBRARY-P┆
0x0340…0360 6b d5 c1 d4 c5 60 d3 c9 e2 e3 7b 6b d9 c5 e3 c1 c9 d5 60 e2 29 a9 61 61 40 c4 c5 d3 c5 e3 c5 40 ┆,NAME-LIST#,RETAIN-S z// DELETE ┆
0x0360…0380 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 e4 4b c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 27 ┆LIBRARY-P,NAME-DFU.ALL,RETAIN-S ┆
0x0380…03a0 a0 61 61 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b c4 c6 e2 d7 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 d9 e8 7d 40 ┆µ// IF LOAD-'#DFSPD01,#LIBRARY' ┆
0x03a0…03c0 4e 30 a9 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 60 7b c4 c6 e2 d7 c4 4b ┆+ zDELETE LIBRARY-O,NAME-#DFSPD.┆
0x03c0…03e0 c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 27 86 61 61 40 c5 d5 c4 4a 97 61 61 40 c9 c6 c6 40 6f c3 c4 ┆ALL,RETAIN-S f// END¢p// IFF ?CD┆
0x03e0…0400 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 c4 c6 e4 41 af ┆?/0000 RETURN ±LOGPLD DROP,DFU ®┆
0x0400…0420 (1,) 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┆
0x0420…0440 e3 c1 60 7d c4 c6 e4 c4 d9 d6 d7 40 f4 f0 7d 21 8e 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c4 d9 d7 42 ┆TA-'DFUDROP 40' þ// LOAD $CNDRPâ┆
0x0440…0460 86 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 ┆f// RUN¢ ┆
0x0460…0480 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff d7 c4 c6 e4 c9 d3 d6 c4 40 00 00 06 50 00 12 00 ┆ PDFUILOD & ┆
0x0480…04a0 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 33 00 00 00 00 00 ┆ Ø ┆
0x04a0…04c0 00 00 00 00 00 00 00 00 a1 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 7b c4 c6 e4 d3 c9 c2 40 c7 ┆ ~// IFF DATAF1-#DFULIB G┆
0x04c0…04e0 d6 e3 d6 40 c2 d3 c4 d3 c9 c2 2f 9e c4 c5 d3 c5 e3 c5 40 7b c4 c6 e4 d3 c9 c2 6b c6 f1 6b d9 c5 ┆OTO BLDLIB ÆDELETE #DFULIB,F1,RE┆
0x04e0…0500 d4 d6 e5 c5 6b 6b d3 c9 c2 d9 32 8d 61 61 40 e3 c1 c7 40 c2 d3 c4 d3 c9 c2 43 8e 61 61 40 d3 d6 ┆MOVE,,LIBR ý// TAG BLDLIBäþ// LO┆
0x0500…0520 c1 c4 40 5b c3 d5 d2 c1 d5 42 86 61 61 40 d9 e4 d5 4a 94 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 ┆AD $CNKANâf// RUN¢m// LOCAL AREA┆
0x0520…0540 60 e2 e8 e2 e3 c5 d4 3c a1 61 61 40 c9 c6 c6 40 6f d3 7d f2 f3 f0 6b f1 7d 6f 61 f1 40 c7 d6 e3 ┆-SYSTEM ~// IFF ?L'230,1'?/1 GOT┆
0x0540…0560 d6 40 c3 c8 d2 d2 c1 d5 d1 c9 2f b8 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b c4 c6 e4 ┆O CHKKANJI ½// ELSE BLDLIBR #DFU┆
0x0560…0580 d3 c9 c2 6b f1 f8 f0 6b f2 f0 6b 6f f2 6f 6b c4 c6 e4 d3 c9 c2 6b c9 f1 6b 6b 6f f1 6f 6b d5 d6 ┆LIB,180,20,?2?,DFULIB,I1,,?1?,NO┆
0x0580…05a0 c1 e4 e3 d6 18 90 61 61 40 c7 d6 e3 d6 40 d3 d6 c1 c4 c6 c9 d3 c5 40 8f 61 61 40 e3 c1 c7 40 c3 ┆AUTO °// GOTO LOADFILE ±// TAG C┆
0x05a0…05c0 c8 d2 d2 c1 d5 d1 c9 41 c2 61 61 40 c9 c6 40 6f d3 7d f6 f7 6b f1 7d 6f 61 f1 40 c2 d3 c4 d3 c9 ┆HKKANJI B// IF ?L'67,1'?/1 BLDLI┆
0x05c0…05e0 c2 d9 40 7b c4 c6 e4 d3 c9 c2 6b f2 f4 f0 6b f2 f5 6b 6f f2 6f 6b c4 c6 e4 d3 c9 c2 6b c9 f1 6b ┆BR #DFULIB,240,25,?2?,DFULIB,I1,┆
0x05e0…0600 6b 6f f1 6f 6b d5 d6 c1 e4 e3 d6 0e b8 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b c4 c6 ┆,?1?,NOAUTO ½// ELSE BLDLIBR #DF┆
0x0600…0620 e4 d3 c9 c2 6b f1 f5 f0 6b f1 f5 6b 6f f2 6f 6b c4 c6 e4 d3 c9 c2 6b c9 f1 6b 6b 6f f1 6f 6b d5 ┆ULIB,150,15,?2?,DFULIB,I1,,?1?,N┆
0x0620…0640 d6 c1 e4 e3 d6 18 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 8f ┆OAUTO p// IFF ?CD?/0000 RETURN ±┆
0x0640…0660 61 61 40 e3 c1 c7 40 d3 d6 c1 c4 c6 c9 d3 c5 41 c4 d3 d6 c7 d7 d3 c4 40 d3 d6 c1 c4 6b c4 c6 e4 ┆// TAG LOADFILE DLOGPLD LOAD,DFU┆
0x0660…0680 6b 7d 7b c4 c6 c5 e7 6b 7b c4 c6 e4 d3 c9 c2 7d 6b 6b 7d f0 f0 f0 f1 6b 7b 7b d4 e2 c7 d7 d3 f2 ┆,'#DFEX,#DFULIB',,'0001,##MSGPL2┆
0x0680…06a0 7d 6b 6b 7d 7b d3 c9 c2 d9 c1 d9 e8 6b 7b c4 c6 e4 d3 c9 c2 7d 0c af 61 61 40 d3 d6 c3 c1 d3 40 ┆',,'#LIBRARY,#DFULIB' ®// LOCAL ┆
0x06a0…06c0 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 c4 c6 e4 c9 d3 ┆AREA-SYSTEM,OFFSET-1,DATA-'DFUIL┆
0x06c0…06e0 d6 c4 40 f4 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 ff ┆OD 40' ý// LOAD $CNADäf// RUN¢ ┆
0x06e0…0700 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 ┆ ┆
[…0x5…]
0x07a0…07c0 ff ff ff ff ff ff ff ff d7 c4 c6 e4 d3 d6 c1 c4 40 00 00 08 50 00 21 00 00 00 00 40 00 02 00 05 ┆ PDFULOAD & ┆
0x07c0…07e0 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 ┆ Ø Ã ┆
0x07e0…0800 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆G*******************************┆
0x0800…0820 (2,) 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆
0x0820…0840 5c 5c 5c 5c 5c 5c 5c 5c 09 81 5c 4f 81 5c 03 87 c4 c6 e4 d3 d6 c1 c4 45 81 5c 4f 81 5c 03 b2 e3 ┆******** a*|a* gDFULOADáa*|a* ¥T┆
0x0840…0860 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c3 d6 d7 c9 c5 e2 40 e3 c8 c5 40 c4 c6 e4 40 d7 d9 d6 ┆HIS PROCEDURE COPIES THE DFU PRO┆
0x0860…0880 c7 d9 c1 d4 40 d7 d9 d6 c4 e4 c3 e3 40 c6 d9 d6 d4 1a 81 5c 03 97 c4 c9 e2 d2 c5 e3 e3 c5 40 e3 ┆GRAM PRODUCT FROM a* pDISKETTE T┆
0x0880…08a0 d6 40 c6 c9 e7 c5 c4 40 c4 c9 e2 d2 4b 35 81 5c 4f 81 5c 03 95 e3 c8 c5 40 c9 e3 c5 d4 e2 40 c3 ┆O FIXED DISK. a*|a* nTHE ITEMS C┆
0x08a0…08c0 d6 d7 c9 c5 c4 40 c1 d9 c5 7a 37 81 5c 4f 81 5c 05 b3 60 40 c4 c6 e4 40 c5 e7 c5 c3 e4 e3 c1 c2 ┆OPIED ARE: a*|a* ·- DFU EXECUTAB┆
0x08c0…08e0 d3 c5 40 d4 d6 c4 e4 d3 c5 e2 6b 40 d4 c5 e2 e2 c1 c7 c5 40 c1 d5 c4 40 e2 c3 d9 c5 c5 d5 40 c6 ┆LE MODULES, MESSAGE AND SCREEN F┆
0x08e0…0900 d6 d9 d4 c1 e3 17 81 5c 07 a6 d4 c5 d4 c2 c5 d9 e2 40 d6 d5 40 c4 c9 e2 d2 c5 e3 e3 c5 40 e3 d6 ┆ORMAT a* wMEMBERS ON DISKETTE TO┆
0x0900…0920 40 7b c4 c6 e4 d3 c9 c2 40 d6 d5 40 c4 c9 e2 d2 22 81 5c 4f 81 5c 05 a8 60 40 d7 c1 d9 c1 d4 c5 ┆ #DFULIB ON DISK a*|a* y- PARAME┆
0x0920…0940 e3 c5 d9 40 f1 40 c9 e2 40 c4 c9 e2 d2 40 e2 d7 c9 d5 c4 d3 c5 40 d7 d9 c5 c6 c5 d9 c5 d5 c3 c5 ┆TER 1 IS DISK SPINDLE PREFERENCE┆
0x0940…0960 22 81 5c 05 a2 60 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f2 40 c9 e2 40 c4 c9 e2 d2 c5 e3 e3 c5 40 d3 ┆ a* s- PARAMETER 2 IS DISKETTE L┆
0x0960…0980 d6 c3 c1 e3 c9 d6 d5 28 81 5c 4f c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆OCATION a*|G********************┆
0x0980…09a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆
0x09a0…09c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 09 96 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 ┆******************* o// MEMBER U┆
0x09c0…09e0 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┆
0x09e0…0a00 d6 d2 c5 c4 60 d5 d6 40 5c 40 7d 40 c4 c6 e4 d3 d6 c1 c4 6f d4 f3 f5 f0 f0 6f 7d 22 8e 61 61 40 ┆OKED-NO * ' DFULOAD?M3500?' þ// ┆
0x0a00…0a20 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 c4 c6 e4 d3 c9 ┆TAG CHKDISKâÐ// IF DATAI1-'DFULI┆
0x0a20…0a40 c2 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 ┆B,,?2'S1'?' GOTO CALLPROC i// * ┆
0x0a40…0a60 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┆
0x0a60…0a80 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 c4 c6 ┆OTO CHKDISK ±// TAG CALLPROC lDF┆
0x0a80…0aa0 e4 c9 d3 d6 c4 40 6f f2 7d e2 f1 7d 6f 6b 6f f1 6f 3d a5 61 61 40 c9 c6 c6 40 d3 d6 c1 c4 60 7d ┆UILOD ?2'S1'?,?1? v// IFF LOAD-'┆
0x0aa0…0ac0 7b c4 c6 7b d4 c7 6b 7b c4 c6 e4 d3 c9 c2 7d 40 c7 d6 e3 d6 40 d4 d9 c9 2b af 61 61 40 d3 d6 c3 ┆#DF#MG,#DFULIB' GOTO MRI ®// LOC┆
0x0ac0…0ae0 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 c4 c6 ┆AL AREA-SYSTEM,OFFSET-1,DATA-'DF┆
0x0ae0…0b00 e4 d3 d6 c1 c4 40 f4 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 ┆ULOAD 40' ý// LOAD $CNADäf// RUN┆
0x0b00…0b20 4a 89 61 61 40 d9 c5 e3 e4 d9 d5 47 8a 61 61 40 e3 c1 c7 40 d4 d9 c9 46 a0 61 61 40 d7 c1 e4 e2 ┆¢i// RETURNå«// TAG MRIãµ// PAUS┆
0x0b20…0b40 c5 40 7d 6f d4 7d f3 f5 f0 f2 6b f1 6b f6 f0 7d 6f 40 d7 d7 e4 e3 c9 d3 7d 30 8a c4 c6 e4 d4 d9 ┆E '?M'3502,1,60'? PPUTIL' «DFUMR┆
0x0b40…0b60 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 00 ┆I ?2?ã ┆
0x0b60…0b80 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 ┆ ┆
[…0x3…]
0x0be0…0c00 d7 c4 c6 e4 d4 d9 c9 40 40 00 00 04 50 00 0b 00 00 00 00 40 00 02 00 05 00 02 30 00 00 00 00 00 ┆PDFUMRI & ┆
0x0c00…0c20 (3,) 00 00 00 00 00 00 00 20 80 3f 99 00 00 00 00 00 00 00 00 00 00 00 00 00 81 5c 02 ba e3 c8 c9 e2 ┆ Ø r a* [THIS┆
0x0c20…0c40 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c1 c4 c4 e2 40 e3 c8 c5 40 d4 c1 c3 c8 c9 d5 c5 40 d9 c5 c1 c4 ┆ PROCEDURE ADDS THE MACHINE READ┆
0x0c40…0c60 c1 c2 d3 c5 40 c9 d5 c6 d6 d9 d4 c1 e3 c9 d6 d5 40 4d d4 d9 c9 5d 13 81 5c 02 bb e3 d6 40 7b c4 ┆ABLE INFORMATION (MRI) a* ]TO #D┆
0x0c60…0c80 c6 e4 d3 c9 c2 40 c6 d9 d6 d4 40 c4 c9 e2 d2 c5 e3 e3 c5 4b 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 40 f1 ┆FULIB FROM DISKETTE. PARAMETER 1┆
0x0c80…0ca0 40 c9 e2 40 c4 c9 e2 d2 c5 e3 e3 c5 40 d3 d6 c3 c1 e3 c9 d6 d5 4b 12 8e 61 61 40 d3 d6 c1 c4 40 ┆ IS DISKETTE LOCATION. þ// LOAD ┆
0x0ca0…0cc0 5b d4 c1 c9 d5 e3 42 bc 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 c4 c6 e4 d4 d9 c9 6b e4 d5 c9 e3 ┆$MAINTâ¯// FILE NAME-DFUMRI,UNIT┆
0x0cc0…0ce0 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 e4 e3 c9 d3 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 6f 6b c1 e4 e3 ┆-I1,PACK-PPUTIL,LOCATION-?1?,AUT┆
0x0ce0…0d00 d6 60 d5 d6 14 86 61 61 40 d9 e4 d5 4a a8 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 c4 c9 e2 d2 6b ┆O-NO f// RUN¢y// COPY FROM-DISK,┆
0x0d00…0d20 e3 d6 60 7b c4 c6 e4 d3 c9 c2 6b c6 c9 d3 c5 60 c4 c6 e4 d4 d9 c9 28 86 61 61 40 c5 d5 c4 4a 97 ┆TO-#DFULIB,FILE-DFUMRI f// END¢p┆
0x0d20…0d40 61 61 40 c9 c6 c6 40 6f c3 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 aa 61 61 40 d3 d6 c3 c1 ┆// IFF ?CD?/0000 RETURN ¡// LOCA┆
0x0d40…0d60 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 c4 c6 e4 ┆L AREA-SYSTEM,OFFSET-1,DATA-'DFU┆
0x0d60…0d80 d4 d9 c9 02 83 f4 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 ┆MRI c40' ý// LOAD $CNADäf// RUN¢┆
0x0d80…0da0 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 ff ff ff ff ff ff ff ┆ ┆
0x0da0…0dc0 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 ┆ ┆
[…0x2…]
0x0e00…0e20 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff d7 c4 c6 e4 e2 c1 e5 c5 ┆ PDFUSAVE┆
0x0e20…0e40 40 00 00 0c 50 00 1c 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 ┆ & ┆
0x0e40…0e60 80 3f 66 00 00 00 00 00 00 00 00 00 00 00 00 00 97 61 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 ┆Ø Ã p// LIBRARY NAME┆
0x0e60…0e80 60 7b c4 c6 e4 d3 c9 c2 39 96 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f2 ┆-#DFULIB o// MEMBER USER1-##MSG2┆
0x0e80…0ea0 3a ae 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 40 5c 40 7d ┆ Þ// IF JOBQ-NO IF EVOKED-NO * '┆
0x0ea0…0ec0 40 c4 c6 e4 e2 c1 e5 c5 6f d4 f5 f5 f0 f0 6f 7d 22 ab 61 61 40 c9 c6 40 d1 d6 c2 d8 60 d5 d6 40 ┆ DFUSAVE?M5500?' ¿// IF JOBQ-NO ┆
0x0ec0…0ee0 c9 c6 40 c5 e5 d6 d2 c5 c4 60 d5 d6 40 d7 c1 e4 e2 c5 40 7d 40 6f d4 f2 f1 f9 f6 6f 7d 25 9e 61 ┆IF EVOKED-NO PAUSE ' ?M2196?' Æ/┆
0x0ee0…0f00 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 c4 c6 e4 40 c4 c5 d3 c5 e3 c5 40 c4 c6 e4 6b c9 f1 32 a4 61 ┆/ IF DATAI1-DFU DELETE DFU,I1 u/┆
0x0f00…0f20 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 c4 c6 e4 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 c4 c6 e4 d3 c9 c2 ┆/ IF DATAI1-DFULIB DELETE DFULIB┆
0x0f20…0f40 6b c9 f1 2c 8e 61 61 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 af 61 61 40 c6 c9 d3 c5 40 e4 d5 c9 ┆,I1 þ// LOAD $MAINTâ®// FILE UNI┆
0x0f40…0f60 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 e4 e3 c9 d3 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 ┆T-I1,PACK-PPUTIL,RETAIN-999,NAME┆
0x0f60…0f80 60 c4 c6 e4 21 b2 61 61 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 d7 d7 e4 e3 c9 ┆-DFU ¥// FILE UNIT-I1,PACK-PPUTI┆
0x0f80…0fa0 d3 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 60 c4 c6 e4 d3 c9 c2 1e 86 61 61 40 d9 e4 d5 ┆L,RETAIN-999,NAME-DFULIB f// RUN┆
0x0fa0…0fc0 4a bd 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b ┆¢¨// COPY FROM-#LIBRARY,TO-DISK,┆
0x0fc0…0fe0 c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 e4 c4 d9 d6 d7 13 ┆FILE-DFU,LIBRARY-P,NAME-DFUDROP ┆
0x0fe0…1000 c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 ┆E// COPY FROM-#LIBRARY,TO-DISK,F┆
0x1000…1020 (4,) c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 e4 d3 d6 c1 c4 6b c1 ┆ILE-DFU,LIBRARY-P,NAME-DFULOAD,A┆
0x1020…1040 c4 c4 60 e8 c5 e2 0b c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 ┆DD-YES E// COPY FROM-#LIBRARY,TO┆
0x1040…1060 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 ┆-DISK,FILE-DFU,LIBRARY-P,NAME-DF┆
0x1060…1080 e4 c9 d3 d6 c4 6b c1 c4 c4 60 e8 c5 e2 0b c4 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 ┆UILOD,ADD-YES D// COPY FROM-#LIB┆
0x1080…10a0 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b ┆RARY,TO-DISK,FILE-DFU,LIBRARY-P,┆
0x10a0…10c0 d5 c1 d4 c5 60 c4 c6 e4 d4 d9 c9 6b c1 c4 c4 60 e8 c5 e2 0c c4 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 ┆NAME-DFUMRI,ADD-YES D// COPY FRO┆
0x10c0…10e0 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 ┆M-#LIBRARY,TO-DISK,FILE-DFU,LIBR┆
0x10e0…1100 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 e4 d7 c4 c1 e3 c5 6b c1 c4 c4 60 e8 c5 e2 0c c5 61 61 40 c3 d6 ┆ARY-P,NAME-UPDATE,ADD-YES E// CO┆
0x1100…1120 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 ┆PY FROM-#LIBRARY,TO-DISK,FILE-DF┆
0x1120…1140 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c9 d5 d8 e4 c9 d9 e8 6b c1 c4 c4 60 e8 c5 e2 ┆U,LIBRARY-P,NAME-INQUIRY,ADD-YES┆
0x1140…1160 0b c2 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b ┆ B// COPY FROM-#LIBRARY,TO-DISK,┆
0x1160…1180 c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 d3 c9 e2 e3 6b c1 c4 c4 ┆FILE-DFU,LIBRARY-P,NAME-LIST,ADD┆
0x1180…11a0 60 e8 c5 e2 0e c3 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 ┆-YES C// COPY FROM-#LIBRARY,TO-D┆
0x11a0…11c0 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c5 d5 e3 c5 ┆ISK,FILE-DFU,LIBRARY-P,NAME-ENTE┆
0x11c0…11e0 d9 6b c1 c4 c4 60 e8 c5 e2 0d c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 ┆R,ADD-YES E// COPY FROM-#LIBRARY┆
0x11e0…1200 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 ┆,TO-DISK,FILE-DFU,LIBRARY-P,NAME┆
0x1200…1220 60 e4 d7 c4 c1 e3 c5 7b 6b c1 c4 c4 60 e8 c5 e2 0b c6 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b ┆-UPDATE#,ADD-YES F// COPY FROM-#┆
0x1220…1240 d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 ┆LIBRARY,TO-DISK,FILE-DFU,LIBRARY┆
0x1240…1260 60 d7 6b d5 c1 d4 c5 60 c9 d5 d8 e4 c9 d9 e8 7b 6b c1 c4 c4 60 e8 c5 e2 0a c3 61 61 40 c3 d6 d7 ┆-P,NAME-INQUIRY#,ADD-YES C// COP┆
0x1260…1280 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 ┆Y FROM-#LIBRARY,TO-DISK,FILE-DFU┆
0x1280…12a0 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 d3 c9 e2 e3 7b 6b c1 c4 c4 60 e8 c5 e2 0d c4 61 ┆,LIBRARY-P,NAME-LIST#,ADD-YES D/┆
0x12a0…12c0 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 ┆/ COPY FROM-#LIBRARY,TO-DISK,FIL┆
0x12c0…12e0 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c5 d5 e3 c5 d9 7b 6b c1 c4 c4 60 ┆E-DFU,LIBRARY-P,NAME-ENTER#,ADD-┆
0x12e0…1300 e8 c5 e2 0c c1 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 60 c4 c9 ┆YES A// COPY FROM-#LIBRARY,TO-DI┆
0x1300…1320 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 e4 6b c1 ┆SK,FILE-DFU,LIBRARY-P,NAME-DFU,A┆
0x1320…1340 c4 c4 60 e8 c5 e2 0f c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 ┆DD-YES E// COPY FROM-#LIBRARY,TO┆
0x1340…1360 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 c6 ┆-DISK,FILE-DFU,LIBRARY-P,NAME-DF┆
0x1360…1380 e4 e2 c1 e5 c5 6b c1 c4 c4 60 e8 c5 e2 0b a0 61 61 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b c4 c6 e2 d7 ┆USAVE,ADD-YES µ// IF LOAD-'#DFSP┆
0x1380…13a0 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 d9 e8 7d 40 4e 30 c5 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 ┆D01,#LIBRARY' + ECOPY FROM-#LIBR┆
0x13a0…13c0 c1 d9 e8 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 ┆ARY,TO-DISK,FILE-DFU,LIBRARY-O,N┆
0x13c0…13e0 c1 d4 c5 60 7b c4 c6 e2 d7 c4 4b c1 d3 d3 6b c1 c4 c4 60 e8 c5 e2 0b bd 61 61 40 c3 d6 d7 e8 40 ┆AME-#DFSPD.ALL,ADD-YES ¨// COPY ┆
0x13e0…1400 c6 d9 d6 d4 60 7b c4 c6 e4 d3 c9 c2 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 d3 c9 c2 ┆FROM-#DFULIB,TO-DISK,FILE-DFULIB┆
0x1400…1420 (5,) 6b d3 c9 c2 d9 c1 d9 e8 60 c1 d3 d3 6b d5 c1 d4 c5 60 c1 d3 d3 13 86 61 61 40 c5 d5 c4 4a 00 c1 ┆,LIBRARY-ALL,NAME-ALL f// END¢ A┆
0x1420…1440 c4 c4 60 e8 c5 e2 0b c5 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b d3 c9 c2 d9 c1 d9 e8 6b e3 d6 ┆DD-YES E// COPY FROM-#LIBRARY,TO┆
0x1440…1460 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 c4 c6 e4 6b d3 d7 c5 d5 e3 c5 d9 40 40 40 00 00 08 50 00 17 00 ┆-DISK,FILE-DFU,LPENTER & ┆
0x1460…1480 00 00 00 40 00 02 00 03 00 04 30 00 00 00 00 00 00 00 00 00 00 00 00 20 80 3f 33 00 00 00 00 00 ┆ Ø ┆
0x1480…14a0 00 00 00 00 00 00 00 00 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ G***********************┆
0x14a0…14c0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 40 c3 c8 ┆***************************** CH┆
0x14c0…14e0 c1 d5 c7 c5 c4 40 f1 f0 61 f1 f2 61 f8 f3 40 5c 09 81 5c 02 85 c5 d5 e3 c5 d9 02 a8 c6 c9 d3 c5 ┆ANGED 10/12/83 * a* eENTER yFILE┆
0x14e0…1500 d5 c1 d4 c5 6b 40 d7 d9 d6 c7 d9 c1 d4 40 d5 c1 d4 c5 6b 40 c6 c9 d3 c5 40 c4 c5 c6 c9 d5 c9 e3 ┆NAME, PROGRAM NAME, FILE DEFINIT┆
0x1500…1520 c9 d6 d5 6b 14 81 5c 09 81 5c 09 b5 d5 e4 d4 c2 c5 d9 40 d6 c6 40 d9 c5 c3 d6 d9 c4 e2 6b 40 c6 ┆ION, a* a* §NUMBER OF RECORDS, F┆
0x1520…1540 c9 d3 d3 40 c3 c8 c1 d9 c1 c3 e3 c5 d9 6b 40 e2 d6 e4 d9 c3 c5 40 d7 d9 d6 c3 c5 e2 e2 c9 d5 c7 ┆ILL CHARACTER, SOURCE PROCESSING┆
0x1540…1560 6b 07 81 5c 09 81 5c 09 af c4 c6 e4 40 e2 d6 e4 d9 c3 c5 40 d5 c1 d4 c5 6b 40 6b 40 e4 e2 c5 d9 ┆, a* a* ®DFU SOURCE NAME, , USER┆
0x1560…1580 40 d3 c9 c2 6b 40 c4 e2 d7 40 c6 d6 d9 d4 c1 e3 40 e2 d6 e4 d9 c3 c5 6b 0d 81 5c 09 81 5c 09 8d ┆ LIB, DSP FORMAT SOURCE, a* a* ý┆
0x1580…15a0 d3 c1 c2 c5 d3 40 d6 d5 40 c4 c9 e2 d2 2f 81 5c 09 81 5c 45 81 5c 09 95 5c 40 d9 c5 d8 e4 c9 d9 ┆LABEL ON DISK a* a*áa* n* REQUIR┆
0x15a0…15c0 c5 c4 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 e2 31 81 5c 09 81 5c 45 81 5c 09 81 5c 03 8d f1 40 60 40 c6 ┆ED PARAMETERS a* a*áa* a* ý1 - F┆
0x15c0…15e0 c9 d3 c5 40 d5 c1 d4 c5 35 81 5c 09 81 5c 03 90 f2 40 60 40 d7 d9 d6 c7 d9 c1 d4 40 d5 c1 d4 c5 ┆ILE NAME a* a* °2 - PROGRAM NAME┆
0x15e0…1600 32 81 5c 09 81 5c 03 a1 f3 40 60 40 c6 c9 d3 c5 40 c4 c5 c6 c9 d5 c9 e3 c9 d6 d5 40 e2 d6 e4 d9 ┆ a* a* ~3 - FILE DEFINITION SOUR┆
0x1600…1620 c3 c5 40 d4 c5 d4 c2 c5 d9 21 81 5c 09 81 5c 03 95 f4 40 60 40 d5 e4 d4 c2 c5 d9 40 d6 c6 40 d9 ┆CE MEMBER a* a* n4 - NUMBER OF R┆
0x1620…1640 c5 c3 d6 d9 c4 e2 2d 81 5c 09 81 5c 45 81 5c 09 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ECORDS a* a*áa* G***************┆
0x1640…1660 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆
0x1660…1680 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 09 c3 61 61 40 c9 c6 c6 ┆************************ C// IFF┆
0x1680…16a0 40 c5 d5 e3 c5 d9 61 6f f6 f4 6f 40 c9 c6 c6 40 d1 d6 c2 d8 60 e8 c5 e2 40 c9 c6 c6 40 c5 e5 d6 ┆ ENTER/?64? IFF JOBQ-YES IFF EVO┆
0x16a0…16c0 d2 c5 c4 60 e8 c5 e2 40 c9 c6 40 6f f1 6f 61 40 c7 d6 e3 d6 40 c3 c1 d3 d3 c8 c5 d3 d7 0d c8 61 ┆KED-YES IF ?1?/ GOTO CALLHELP H/┆
0x16c0…16e0 61 40 c5 d3 e2 c5 40 c9 c6 c6 40 c5 d5 e3 c5 d9 61 6f f6 f4 6f 40 c9 c6 c6 40 d1 d6 c2 d8 60 e8 ┆/ ELSE IFF ENTER/?64? IFF JOBQ-Y┆
0x16e0…1700 c5 e2 40 c9 c6 c6 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 40 c9 c6 40 6f f2 6f 61 40 c7 d6 e3 d6 40 c3 ┆ES IFF EVOKED-YES IF ?2?/ GOTO C┆
0x1700…1720 c1 d3 d3 c8 c5 d3 d7 08 c8 61 61 40 c5 d3 e2 c5 40 c9 c6 c6 40 c5 d5 e3 c5 d9 61 6f f6 f4 6f 40 ┆ALLHELP H// ELSE IFF ENTER/?64? ┆
0x1720…1740 c9 c6 c6 40 d1 d6 c2 d8 60 e8 c5 e2 40 c9 c6 c6 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 40 c9 c6 40 6f ┆IFF JOBQ-YES IFF EVOKED-YES IF ?┆
0x1740…1760 f4 6f 61 40 c7 d6 e3 d6 40 c3 c1 d3 d3 c8 c5 d3 d7 08 a8 61 61 40 c9 c6 c6 40 6f f9 7d 6f c3 d3 ┆4?/ GOTO CALLHELP y// IFF ?9'?CL┆
0x1760…1780 c9 c2 6f 7d 6f 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 60 7b c4 c6 e4 d3 c9 c2 28 94 61 61 40 ┆IB?'?/ LIBRARY NAME-#DFULIB m// ┆
0x1780…17a0 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f1 f3 7e 6f f1 f1 6f 3c 8b 7b c5 d5 e3 c5 d9 40 5c c1 d3 d3 45 89 ┆EVALUATE P13=?11? »#ENTER *ALLái┆
0x17a0…17c0 61 61 40 d9 c5 e3 e4 d9 d5 47 8f 61 61 40 e3 c1 c7 40 c3 c1 d3 d3 c8 c5 d3 d7 41 c0 c8 c5 d3 d7 ┆// RETURNå±// TAG CALLHELP {HELP┆
0x17c0…17e0 40 c5 d5 e3 c5 d9 6b 6f f1 6f 6b 6f f2 6f 6b 6f f3 6f 6b 6f f4 6f 6b 6f f5 6f 6b 6f f6 6f 6b 6f ┆ ENTER,?1?,?2?,?3?,?4?,?5?,?6?,?┆
0x17e0…1800 f7 6f 6b 6f f8 6f 6b 6f f9 7d 6f c3 d3 c9 c2 6f 7d 6f 6b 6f f1 f0 6f 6b 6f f1 f1 6f 10 00 ff ff ┆7?,?8?,?9'?CLIB?'?,?10?,?11? ┆
0x1800…1820 (6,) 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…]
0x1880…18a0 ff ff ff ff ff ff ff ff d7 c5 d5 e3 c5 d9 7b 40 40 00 00 06 50 00 14 00 00 00 00 40 00 02 00 03 ┆ PENTER# & ┆
0x18a0…18c0 00 03 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 ┆ Ø Ã ┆
0x18c0…18e0 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆G*******************************┆
0x18e0…1900 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 40 c3 c8 c1 d5 c7 c5 c4 40 ┆*********************** CHANGED ┆
0x1900…1920 f1 f0 61 f1 f2 61 f8 f3 09 81 5c 02 86 c5 d5 e3 c5 d9 7b 02 99 c6 c9 d3 c5 d5 c1 d4 c5 6b 40 d7 ┆10/12/83 a* fENTER# rFILENAME, P┆
0x1920…1940 d9 d6 c7 d9 c1 d4 40 d5 c1 d4 c5 6b 40 6b 22 81 5c 09 81 5c 09 95 7b 40 d6 c6 40 d9 c5 c3 d6 d9 ┆ROGRAM NAME, , a* a* n# OF RECOR┆
0x1940…1960 c4 e2 6b 40 6b 40 6b 40 6b 40 6b 27 81 5c 09 81 5c 09 99 e4 e2 c5 d9 40 d3 c9 c2 6b 40 6b 40 d3 ┆DS, , , , , a* a* rUSER LIB, , L┆
0x1960…1980 c1 c2 c5 d3 40 d6 d5 40 c4 c9 e2 d2 23 81 5c 09 81 5c 45 81 5c 09 95 5c 40 d9 c5 d8 e4 c9 d9 c5 ┆ABEL ON DISK a* a*áa* n* REQUIRE┆
0x1980…19a0 c4 40 d7 c1 d9 c1 d4 c5 e3 c5 d9 e2 31 81 5c 09 81 5c 45 81 5c 09 81 5c 03 8d f1 40 60 40 c6 c9 ┆D PARAMETERS a* a*áa* a* ý1 - FI┆
0x19a0…19c0 d3 c5 40 d5 c1 d4 c5 35 81 5c 09 81 5c 03 90 f2 40 60 40 d7 d9 d6 c7 d9 c1 d4 40 d5 c1 d4 c5 32 ┆LE NAME a* a* °2 - PROGRAM NAME ┆
0x19c0…19e0 81 5c 09 81 5c 03 95 f4 40 60 40 d5 e4 d4 c2 c5 d9 40 d6 c6 40 d9 c5 c3 d6 d9 c4 e2 2d 81 5c 09 ┆a* a* n4 - NUMBER OF RECORDS a* ┆
0x19e0…1a00 81 5c 45 81 5c 09 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆a*áa* G*************************┆
0x1a00…1a20 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆********************************┆
0x1a20…1a40 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 09 c4 61 61 40 c9 c6 c6 40 c5 d5 e3 c5 d9 7b 61 6f f6 ┆************** D// IFF ENTER#/?6┆
[…truncated at 200 lines…]