|
|
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 - downloadIndex: G S
Length: 5120 (0x1400)
Notes: GA21-9182-File(STUP)
Names: »STUP«
└─⟦3ee00a4d6⟧ »/PPSSP(5727SS65126V)« Bits:30009803 AS/ENTRY - S/36 SYST SUPP PROG SYST SUPP PGM 5363 DA Z250-0319-0 Refer to Memo 033109 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 007 of 011
└─⟦this⟧
0x0000…0028 (0,) Header {type=» «, name=»PDOCPDRO«, recs=0xd78200, reclen=0x04, f00=0x0850, f10=0x001f84, f20=0x00, attr=084000020005, f30=0x0004, f40=308c000420803d338d, f50=0x00, f51=019682}
0x0028…0040 61 0e 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 82 7b 06 d4 e2 c7 f2 3a ┆/ MEMBER USER1-b# MSG2 ┆
0x0040…0060 af 82 61 27 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 ┆®b/ IF JOBQ-NO IF EVOKED-NO * '┆
0x0060…0080 40 c4 d6 c3 d7 c4 d9 d6 d7 6f d4 82 f5 82 f0 04 6f 7d 21 a7 82 61 27 40 c9 c6 40 d3 d6 c1 c4 60 ┆ DOCPDROP?Mb5b0 ?' xb/ IF LOAD-┆
0x0080…00a0 7d 7b c4 d5 e3 c6 e2 6b 7b c9 e6 d3 c9 c2 7d 40 c7 d6 e3 d6 40 c4 c5 d3 c4 d6 c3 d7 29 b1 82 61 ┆'#DNTFS,#IWLIB' GOTO DELDOCP £b/┆
0x00a0…00c0 29 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 7b e3 e4 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 7b e3 e4 d3 c9 c2 ┆ IF DATAF1-#TULIB DELETE #TULIB┆
0x00c0…00e0 6b c6 f1 6b d9 c5 d4 d6 e5 c5 82 6b 06 d3 c9 c2 d9 1f 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f ┆,F1,REMOVEb, LIBR pb/ IbF ?CD?┆
0x00e0…0100 61 84 f0 09 40 d9 c5 e3 e4 d9 d5 39 8f 82 61 0f 40 c7 d6 e3 d6 40 e2 d2 c9 d7 c4 c5 d3 41 8e 82 ┆/d0 RETURN ±b/ GOTO SKIPDEL þb┆
0x0100…0120 61 0e 40 e3 c1 c7 40 c4 c5 d3 c4 d6 c3 d7 42 8e 82 61 0e 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 ┆/ TAG DELDOCPâþb/ LOAD $MAINTâ┆
0x0120…0140 86 82 61 06 40 d9 e4 d5 4a b9 82 61 1c 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 ┆fb/ RUN¢¾b/ DELETE LIBRARY-O,N┆
0x0140…0160 c1 d4 c5 60 7b d7 c6 4b c1 82 d3 1b 6b d3 c9 c2 d9 d5 c1 d4 c5 60 7b e3 e4 d3 c9 c2 6b d9 c5 e3 ┆AME-#PF.AbL ,LIBRNAME-#TULIB,RET┆
0x0160…0180 c1 c9 d5 60 e2 17 86 82 61 28 40 c5 d5 c4 4a 8f c3 d6 d5 c4 c5 d5 e2 c5 40 7b e3 e4 d3 c9 c2 41 ┆AIN-S fb/ END¢±CONDENSE #TULIB ┆
0x0180…01a0 96 c1 d3 d6 c3 d3 c9 c2 d9 40 7b e3 e4 d3 c9 c2 6b f2 82 f0 05 6b f1 f5 3a 8e 82 61 0e 40 e3 c1 ┆oALOCLIBR #TULIB,2b0 ,15 þb/ TA┆
0x01a0…01c0 c7 40 e2 d2 c9 d7 c4 c5 d3 42 b7 82 61 2d 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 7b e3 c5 e7 e3 e6 d9 ┆G SKIPDELâ¼b/ IF DATAF1-#TEXTWR┆
0x01c0…01e0 d2 40 c4 c5 d3 c5 e3 c5 40 7b e3 c5 e7 e3 e6 d9 d2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 82 6b 08 c6 d6 ┆K DELETE #TEXTWRK,F1,REMOVEb, FO┆
0x01e0…0200 d3 c4 c5 d9 19 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 09 40 d9 c5 e3 e4 d9 d5 39 b5 ┆LDER pb/ IbF ?CD?/d0 RETURN §┆
0x0200…0220 82 61 2d 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 7b e3 c5 e7 e3 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 7b e3 ┆b/ IF DATAF1-#TEXTLIB DELETE #T┆
0x0220…0240 c5 e7 e3 d3 c9 c2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 82 6b 06 d3 c9 c2 d9 1b 97 82 61 02 40 c9 82 c6 ┆EXTLIB,F1,REMOVEb, LIBR pb/ IbF┆
0x0240…0260 06 40 6f c3 c4 6f 61 84 f0 09 40 d9 c5 e3 e4 d9 d5 39 b5 82 61 2d 40 c9 c6 40 c4 c1 e3 c1 c6 f1 ┆ ?CD?/d0 RETURN §b/ IF DATAF1┆
0x0260…0280 60 7b e3 c5 e7 e3 c8 d3 d7 40 c4 c5 d3 c5 e3 c5 40 7b e3 c5 e7 e3 c8 d3 d7 6b c6 f1 6b d9 c5 d4 ┆-#TEXTHLP DELETE #TEXTHLP,F1,REM┆
0x0280…02a0 d6 e5 c5 82 6b 06 d3 c9 c2 d9 1b 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 09 40 d9 c5 ┆OVEb, LIBR pb/ IbF ?CD?/d0 RE┆
0x02a0…02c0 e3 e4 d9 d5 39 8e 82 61 0e 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 82 61 06 40 d9 e4 d5 4a aa ┆TURN þb/ LOAD $MAINTâfb/ RUN¢¡┆
0x02c0…02e0 82 61 1d 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d7 6b d5 c1 d4 c5 60 c4 d6 c3 d7 4b c1 ┆b/ DELETE LIBRARY-P,NAME-DOCP.A┆
0x02e0…0300 82 d3 0b 6b d9 c5 e3 c1 c9 d5 60 e2 26 c8 82 61 3b 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b d7 d6 d5 d7 ┆bL ,RETAIN-S Hb/ IF LOAD-'#PONP┆
0x0300…0320 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 d9 e8 7d 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 ┆D01,#LIBRARY' DELETE LIBRARY-O,N┆
0x0320…0340 c1 d4 c5 60 7b d7 d6 d5 d7 c4 4b c1 82 d3 0b 6b d9 c5 e3 c1 c9 d5 60 e2 08 86 82 61 06 40 c5 d5 ┆AME-#PONPD.AbL ,RETAIN-S fb/ EN┆
0x0340…0360 c4 4a 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 09 40 d9 c5 e3 e4 d9 d5 39 af 82 61 14 ┆D¢pb/ IbF ?CD?/d0 RETURN ®b/ ┆
0x0360…0380 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 82 c6 2e e2 c5 e3 60 f1 6b c4 c1 e3 ┆ LOCAL AREA-SYSTEM,ObF SET-1,DAT┆
0x0380…03a0 c1 60 7d c4 d6 c3 d7 c4 d9 d6 d7 f2 f6 7d 21 93 d3 d6 c7 d7 d3 c4 40 c4 d9 d6 d7 6b d7 d9 d5 e3 ┆A-'DOCPDROP26' lLOGPLD DROP,PRNT┆
0x03a0…03c0 d6 d5 d3 3d 8e 82 61 0e 40 d3 d6 c1 c4 40 5b c3 d5 c4 d9 d7 42 86 82 61 06 40 d9 e4 d5 4a 89 82 ┆ONL þb/ LOAD $CNDRPâfb/ RUN¢ib┆
0x03c0…03e0 61 09 40 d9 c5 e3 e4 d9 d5 47 00 ff ff 83 ff 09 d7 c4 d6 c3 d7 c9 d3 d6 c4 82 00 04 08 50 00 23 ┆/ RETURNå c PDOCPILODb & ┆
0x03e0…0400 84 00 08 40 00 02 00 05 00 04 30 8c 00 04 20 80 3f 99 8d 00 01 a0 82 61 02 40 c9 82 c6 1c 40 c4 ┆d ð Ø rý µb/ IbF D┆
0x0400…0420 (1,) c1 e3 c1 c6 f1 60 7b e3 e4 d3 c9 c2 40 c7 d6 e3 d6 40 c2 d3 c4 d3 c9 c2 30 a7 82 61 02 40 c9 82 ┆ATAF1-#TULIB GOTO BLDLIB xb/ Ib┆
0x0420…0440 c6 1d 40 d3 d6 c1 c4 60 7d 7b e3 e4 7c c4 d3 6b 7b e3 e4 d3 c9 c2 7d 40 c7 d6 e3 d6 40 c4 c5 82 ┆F LOAD-'#TU@DL,#TULIB' GOTO DEb┆
0x0440…0460 d3 04 c9 c2 29 a6 82 61 02 40 c9 82 c6 22 40 d3 d6 c1 c4 60 7d 7b d7 c6 7c d7 d9 6b 7b e3 e4 d3 ┆L IB wb/ IbF LOAD-'#PF@PR,#TUL┆
0x0460…0480 c9 c2 7d 40 c7 d6 e3 d6 40 d5 d6 c2 d3 c4 2a 8e 82 61 0e 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 ┆IB' GOTO NOBLD þb/ LOAD $MAINTâ┆
0x0480…04a0 86 82 61 06 40 d9 e4 d5 4a b9 82 61 1c 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 ┆fb/ RUN¢¾b/ DELETE LIBRARY-O,N┆
0x04a0…04c0 c1 d4 c5 60 7b d7 c6 4b c1 82 d3 1b 6b d3 c9 c2 d9 d5 c1 d4 c5 60 7b e3 e4 d3 c9 c2 6b d9 c5 e3 ┆AME-#PF.AbL ,LIBRNAME-#TULIB,RET┆
0x04c0…04e0 c1 c9 d5 60 e2 17 ba 82 61 1d 40 c4 c5 d3 c5 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 ┆AIN-S [b/ DELETE LIBRARY-O,NAME┆
0x04e0…0500 60 7b e3 e4 7b 4b c1 82 d3 1b 6b d3 c9 c2 d9 d5 c1 d4 c5 60 7b e3 e4 d3 c9 c2 6b d9 c5 e3 c1 c9 ┆-#TU#.AbL ,LIBRNAME-#TULIB,RETAI┆
0x0500…0520 d5 60 e2 16 86 82 61 06 40 c5 d5 c4 4a 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 09 40 ┆N-S fb/ END¢pb/ IbF ?CD?/d0 ┆
0x0520…0540 d9 c5 e3 e4 d9 d5 39 92 82 61 12 40 c3 d6 d5 c4 c5 d5 e2 c5 40 7b e3 e4 d3 c9 c2 3e 8d 82 61 0d ┆RETURN kb/ CONDENSE #TULIB ýb/ ┆
0x0540…0560 40 c7 d6 e3 d6 40 d5 d6 c2 d3 c4 43 8d 82 61 07 40 e3 c1 c7 40 c4 c5 82 d3 1b c9 c2 43 9d c4 c5 ┆ GOTO NOBLDäýb/ TAG DEbL IBä¸DE┆
0x0560…0580 d3 c5 e3 c5 40 7b e3 e4 d3 c9 c2 6b c6 f1 6b d9 c5 d4 d6 e5 c5 82 6b 06 d3 c9 c2 d9 33 8d 82 61 ┆LETE #TULIB,F1,REMOVEb, LIBR ýb/┆
0x0580…05a0 28 40 e3 c1 c7 40 c2 d3 c4 d3 c9 c2 43 99 c2 d3 c4 d3 c9 c2 d9 40 7b e3 e4 d3 c9 c2 6b f2 f8 f5 ┆ TAG BLDLIBärBLDLIBR #TULIB,285┆
0x05a0…05c0 6b f2 f0 6b 6f f2 6f 37 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 09 40 d9 c5 e3 e4 d9 ┆,20,?2? pb/ IbF ?CD?/d0 RETUR┆
0x05c0…05e0 d5 39 8c 82 61 0c 40 e3 c1 c7 40 d5 d6 c2 d3 c4 44 a3 82 61 23 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b ┆N ðb/ TAG NOBLDàtb/ IF LOAD-'#┆
0x05e0…0600 e3 e4 c4 c1 6b 7b e3 e4 d3 c9 c2 7d 40 c7 d6 e3 d6 40 c4 e6 d6 d5 2d b1 82 61 31 40 c9 c6 40 d3 ┆TUDA,#TULIB' GOTO DWON £b/ IF L┆
0x0600…0620 d6 c1 c4 60 7d 7b c4 d5 e3 c6 e2 6b 7b c9 e6 d3 c9 c2 7d 40 c1 d3 d6 c3 d3 c9 c2 d9 40 7b e3 e4 ┆OAD-'#DNTFS,#IWLIB' ALOCLIBR #TU┆
0x0620…0640 d3 c9 c2 6b f4 f8 f5 6b f3 f5 1f 8b 82 61 0b 40 e3 c1 c7 40 c4 e6 d6 d5 45 8e 82 61 0e 40 d3 d6 ┆LIB,485,35 »b/ TAG DWONáþb/ LO┆
0x0640…0660 c1 c4 40 5b d4 c1 c9 d5 e3 42 bd 82 61 20 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 e2 e3 e4 d7 d6 c2 d1 ┆AD $MAINTâ¨b/ FILE NAME-STUPOBJ┆
0x0660…0680 6b e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 82 d7 82 e2 19 d7 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 ┆,UNIT-I1,PACK-bPbS P,LOCATION-?1┆
0x0680…06a0 6f 6b c1 e4 e3 d6 60 e8 c5 e2 13 86 82 61 06 40 d9 e4 d5 4a b9 82 61 39 40 c3 d6 d7 e8 40 c6 d9 ┆?,AUTO-YES fb/ RUN¢¾b/ COPY FR┆
0x06a0…06c0 d6 d4 60 c4 c9 e2 d2 6b e3 d6 60 7b e3 e4 d3 c9 c2 6b c6 c9 d3 c5 60 e2 e3 e4 d7 d6 c2 d1 6b d9 ┆OM-DISK,TO-#TULIB,FILE-STUPOBJ,R┆
0x06c0…06e0 c5 e3 c1 c9 d5 60 d9 6b d9 c9 d7 60 e8 c5 e2 17 86 82 61 06 40 c5 d5 c4 4a 8e 82 61 0e 40 d3 d6 ┆ETAIN-R,RIP-YES fb/ END¢þb/ LO┆
0x06e0…0700 c1 c4 40 5b d4 c1 c9 d5 e3 42 86 82 61 06 40 d9 e4 d5 4a bd 82 61 3d 40 c3 d6 d7 e8 40 c6 d9 d6 ┆AD $MAINTâfb/ RUN¢¨b/ COPY FRO┆
0x0700…0720 d4 60 7b e3 e4 d3 c9 c2 6b e3 d6 60 7b d3 c9 c2 d9 c1 d9 e8 6b d5 c1 d4 c5 60 7b d7 c6 d8 d4 6b ┆M-#TULIB,TO-#LIBRARY,NAME-#PFQM,┆
0x0720…0740 d3 c9 c2 d9 c1 d9 e8 60 d6 6b d9 c5 e3 c1 c9 d5 60 d9 13 86 82 61 06 40 c5 d5 c4 4a 97 82 61 02 ┆LIBRARY-O,RETAIN-R fb/ END¢pb/ ┆
0x0740…0760 40 c9 82 c6 06 40 6f c3 c4 6f 61 84 f0 2b 40 d9 c5 e3 e4 d9 d5 39 c6 d3 d6 c7 d7 d3 c4 40 d3 d6 ┆ IbF ?CD?/d0 RETURN FLOGPLD LO┆
0x0760…0780 c1 c4 6b d7 d9 d5 e3 d6 d5 d3 6b 7d 7b d7 c6 d7 d4 6b 7b e3 e4 d3 c9 c2 7d 82 6b 01 7d 82 f0 03 ┆AD,PRNTONL,'#PFPM,#TULIB'b, 'b0 ┆
0x0780…07a0 f5 f4 6b 82 7b 07 d4 e2 c7 d7 d3 f2 7d 82 6b 13 7d 7b d3 c9 c2 d9 c1 d9 e8 6b 7b e3 e4 d3 c9 c2 ┆54,b# MSGPL2'b, '#LIBRARY,#TULIB┆
0x07a0…07c0 7d 0a af 82 61 14 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 82 c6 19 e2 c5 e3 ┆' ®b/ LOCAL AREA-SYSTEM,ObF SET┆
0x07c0…07e0 60 f1 6b c4 c1 e3 c1 60 7d c4 d6 c3 d7 c9 d3 d6 c4 f2 f6 7d 21 8d 82 61 0d 40 d3 d6 c1 c4 40 5b ┆-1,DATA-'DOCPILOD26' ýb/ LOAD $┆
0x07e0…0800 c3 d5 c1 c4 43 86 82 61 06 40 d9 e4 d5 4a 89 82 61 09 40 d9 c5 e3 e4 d9 d5 47 00 a8 ff 09 d7 c4 ┆CNADäfb/ RUN¢ib/ RETURNå y PD┆
0x0800…0820 (2,) d6 c3 d7 d3 d6 c1 c4 82 00 04 10 50 00 36 84 00 08 40 00 02 00 04 00 08 30 8c 00 01 20 90 00 01 ┆OCPLOADb & d ð ° ┆
0x0820…0840 d0 83 5c 3c 40 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 e2 c8 d6 e4 d3 c4 40 c5 e7 c9 e2 e3 ┆}c* THIS PROCEDURE SHOULD EXIST┆
0x0840…0860 40 d6 d5 d3 e8 40 c9 d5 40 7b d3 c9 c2 d9 c1 d9 e8 40 c1 e2 40 7d c4 d6 c3 d7 d3 d6 c1 c4 7d 40 ┆ ONLY IN #LIBRARY AS 'DOCPLOAD' ┆
0x0860…0880 91 5c 01 c8 c8 5c 50 08 81 5c 02 bd c9 c6 40 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 e6 c1 ┆j* HH*& a* ¨IF THIS PROCEDURE WA┆
0x0880…08a0 e2 40 d5 d6 e3 40 d9 e4 d5 40 c6 d9 d6 d4 40 e3 c8 c5 40 d1 d6 c2 d8 40 d6 d9 40 e6 c1 e2 40 d5 ┆S NOT RUN FROM THE JOBQ OR WAS N┆
0x08a0…08c0 d6 e3 40 c5 e5 d6 d2 c5 c4 07 81 5c 08 81 5c 02 b7 e3 c8 c5 d5 40 c9 82 e2 20 e4 c5 40 e3 c8 c5 ┆OT EVOKED a* a* ¼THEN IbS UE THE┆
0x08c0…08e0 40 7d c4 d6 c3 d7 d3 d6 c1 c4 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c9 e2 40 d9 e4 82 d5 07 c9 d5 c7 ┆ 'DOCPLOAD PROCEDURE IS RUbN ING┆
0x08e0…0900 7d 40 d4 c5 82 e2 28 c1 c7 c5 4b 0d 81 5c 08 81 5c 02 be c2 c5 c6 d6 d9 c5 40 c3 d6 d5 e3 c9 d5 ┆' MEbS AGE. a* a* ´BEFORE CONTIN┆
0x0900…0920 e4 c9 d5 c7 40 c3 c8 c5 c3 d2 40 e3 d6 40 e2 82 c5 0d 40 e3 c8 c1 e3 40 c1 40 c4 c9 e2 d2 c5 82 ┆UING CHECK TO SbE THAT A DISKEb┆
0x0920…0940 e3 60 c5 40 c3 d6 d5 e3 c1 c9 d5 c9 d5 c7 40 c6 c9 d3 c5 06 81 5c 08 81 5c 02 c5 e2 e3 e4 d7 d6 ┆T-E CONTAINING FILE a* a* ESTUPO┆
0x0940…0960 c2 d1 40 c9 e2 40 c1 e3 40 e3 c8 c5 40 e2 d7 c5 c3 c9 c6 c9 c5 c4 40 d3 d6 c3 c1 e3 c9 d6 d5 4b ┆BJ IS AT THE SPECIFIED LOCATION.┆
0x0960…0980 40 c9 c6 40 c9 e3 40 c4 d6 c5 e2 d5 7d e3 40 d7 d9 d6 d4 d7 e3 6b 40 c6 d6 d9 40 c9 e3 4b 40 5c ┆ IF IT DOESN'T PROMPT, FOR IT. *┆
0x0980…09a0 08 c8 c8 5c 02 08 96 82 61 0e 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 82 7b 06 d4 e2 c7 c3 3a ┆ HH* ob/ MEMBER USER1-b# MSGC ┆
0x09a0…09c0 af 82 61 29 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 ┆®b/ IF JOBQ-NO IF EVOKED-NO * '┆
0x09c0…09e0 40 c4 d6 c3 d7 d3 d6 c1 c4 6f d4 f3 f5 82 f0 04 6f 7d 21 c8 c8 5c 07 08 81 5c 02 a2 c3 c1 82 d3 ┆ DOCPLOAD?M35b0 ?' HH* a* sCAbL┆
0x09e0…0a00 23 40 c4 d6 c3 d7 c9 d3 d6 c4 40 e3 d6 40 d3 d6 c1 c4 40 d6 d5 d3 c9 d5 c5 40 d7 d9 c9 d5 e3 22 ┆ DOCPILOD TO LOAD ONLINE PRINT ┆
0x0a00…0a20 81 5c 08 c8 c8 5c 02 08 8e 82 61 0e 40 e3 c1 c7 40 c3 c8 d2 c4 c9 e2 d2 42 ac 82 61 13 40 c9 c6 ┆a* HH* þb/ TAG CHKDISKâÐb/ IF┆
0x0a20…0a40 40 c4 c1 e3 c1 c9 f1 60 7d e2 e3 e4 d7 d6 c2 d1 82 6b 17 6f f2 7d e2 f1 7d 6f 7d 40 c7 d6 e3 d6 ┆ DATAI1-'STUPOBJb, ?2'S1'?' GOTO┆
0x0a40…0a60 40 c3 c1 d3 d7 d9 d6 c3 24 89 82 61 09 40 5c 40 f3 f2 f9 f0 47 94 82 61 03 40 7b c5 82 d9 0f 40 ┆ CALPROC ib/ * 3290åmb/ #EbR ┆
0x0a60…0a80 f3 f2 f9 f1 6b f1 f3 6b c3 d5 c6 c7 3c 8f 82 61 0f 40 c7 d6 e3 d6 40 c3 c8 d2 c4 c9 e2 d2 41 8e ┆3291,13,CNFG ±b/ GOTO CHKDISK þ┆
0x0a80…0aa0 82 61 24 40 e3 c1 c7 40 c3 c1 d3 d7 d9 d6 c3 42 94 c4 d6 c3 d7 c9 d3 d6 c4 40 6f f2 7d e2 f1 7d ┆b/ TAG CALPROCâmDOCPILOD ?2'S1'┆
0x0aa0…0ac0 6f 6b 6f f1 6f 3c c8 c8 5c 2b 08 81 5c 02 ba c9 c6 40 e3 c5 e7 e3 40 c9 e2 40 c2 c5 c9 d5 c7 40 ┆?,?1? HH* a* [IF TEXT IS BEING ┆
0x0ac0…0ae0 d3 d6 c1 c4 c5 c4 40 c6 d9 d6 d4 40 d7 c9 c4 40 c4 c9 e2 d2 c5 82 e3 3f c5 e2 40 4d 7b e3 e4 7b ┆LOADED FROM PID DISKEbT ES (#TU#┆
0x0ae0…0b00 f1 40 c4 d6 c5 e2 40 d5 d6 e3 0a 81 5c 08 81 5c 02 c1 c5 e7 c9 e2 e3 5d 6b 40 d7 d9 d6 d4 d7 e3 ┆1 DOES NOT a* a* AEXIST), PROMPT┆
0x0b00…0b20 40 e3 c8 c5 40 e4 e2 c5 d9 40 c6 d6 d9 40 e3 c8 c5 40 c4 c9 e2 d2 c5 82 e3 29 c5 40 c3 d6 d5 e3 ┆ THE USER FOR THE DISKEbT E CONT┆
0x0b20…0b40 c1 c9 d5 c9 d5 c7 40 e3 c8 c5 40 e3 c5 e7 e3 40 d4 d9 c9 4b 03 81 5c 08 81 5c 02 ae e3 c8 c5 d5 ┆AINING THE TEXT MRI. a* a* ÞTHEN┆
0x0b40…0b60 40 c3 c1 82 d3 1f 40 e3 c8 c5 40 c4 d6 c3 d7 d4 d9 c9 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 e3 d6 40 ┆ CAbL THE DOCPMRI PROCEDURE TO ┆
0x0b60…0b80 c9 d5 e2 e3 c1 82 d3 09 40 c9 e3 4b 16 81 5c 08 c8 c8 5c 02 08 a4 82 61 02 40 c9 82 c6 20 40 d3 ┆INSTAbL IT. a* HH* ub/ IbF L┆
0x0b80…0ba0 d6 c1 c4 60 7d 7b d7 c6 7c d7 d9 6b 7b e3 e4 d3 c9 c2 7d 40 c7 d6 e3 d6 40 d4 d9 c9 2c af 82 61 ┆OAD-'#PF@PR,#TULIB' GOTO MRI ®b/┆
0x0ba0…0bc0 14 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 82 c6 19 e2 c5 e3 60 f1 6b c4 c1 ┆ LOCAL AREA-SYSTEM,ObF SET-1,DA┆
0x0bc0…0be0 e3 c1 60 7d c4 d6 c3 d7 d3 d6 c1 c4 f2 f6 7d 21 8d 82 61 0d 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 ┆TA-'DOCPLOAD26' ýb/ LOAD $CNADä┆
0x0be0…0c00 86 82 61 06 40 d9 e4 d5 4a 89 82 61 09 40 d9 c5 e3 e4 d9 d5 47 8a 82 61 0a 40 e3 c1 c7 40 d4 d9 ┆fb/ RUN¢ib/ RETURNå«b/ TAG MR┆
0x0c00…0c20 (3,) c9 46 92 82 61 67 40 d7 c1 e4 e2 c5 40 7d 6f d4 f3 f5 f0 f2 6f 7d 3e 8f c4 d6 c3 d7 d4 d9 c9 40 ┆Iãkb/Å PAUSE '?M3502?' ±DOCPMRI ┆
0x0c20…0c40 6f f2 6f 6b 6f f1 6f 41 81 5c 4d 82 5c 40 8e 5c 40 c4 c5 e2 c3 d9 c9 d7 e3 c9 d6 d5 7a 40 82 5c ┆?2?,?1? a*(b* þ* DESCRIPTION: b*┆
0x0c40…0c60 40 81 5c 04 b7 e3 c8 c9 e2 40 c9 e2 40 e3 c8 c5 40 e3 c5 e7 e3 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 ┆ a* ¼THIS IS THE TEXT PROCEDURE ┆
0x0c60…0c80 e4 e2 c5 c4 40 e3 d6 40 c9 d5 e2 e3 c1 82 d3 5f 40 d6 d5 d3 c9 d5 c5 40 d7 d9 c9 d5 e3 12 82 5c ┆USED TO INSTAbL¬ ONLINE PRINT b*┆
0x0c80…0ca0 40 81 5c 4d 82 5c 40 81 5c 4d 82 5c 40 81 5c 05 91 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c6 d6 d9 d4 c1 ┆ a*(b* a*(b* a* jPROCEDURE FORMA┆
0x0ca0…0cc0 e3 7a 37 82 5c 40 81 5c 4d 82 5c 40 81 5c 07 ac c4 d6 c3 d7 d3 d6 c1 c4 40 4d e2 d7 c9 d5 c4 d3 ┆T: b* a*(b* a* ÐDOCPLOAD (SPINDL┆
0x0cc0…0ce0 c5 40 d7 d9 c5 c6 4b 5d 4d 6b c4 c9 e2 d2 c5 82 e3 4c c5 40 d3 d6 c3 c1 e3 c9 d6 d5 5d 1a 82 5c ┆E PREF.)(,DISKEbT<E LOCATION) b*┆
0x0ce0…0d00 40 81 5c 4d 82 5c 40 81 5c 4d 82 5c 40 81 5c 05 b5 e3 c8 c5 40 d7 d6 e2 c9 e3 c9 d6 d5 c1 d3 40 ┆ a*(b* a*(b* a* §THE POSITIONAL ┆
0x0d00…0d20 d7 c1 d9 c1 d4 c5 e3 c5 d9 e2 40 c1 e2 40 c9 d5 d7 e4 e3 40 c1 d9 c5 40 e3 c8 c5 40 c6 d6 82 d3 ┆PARAMETERS AS INPUT ARE THE FObL┆
0x0d20…0d40 2e d6 e6 c9 d5 c7 7a 13 82 5c 40 81 5c 4d 82 5c 40 81 5c 07 bb e2 d7 c9 d5 c4 d3 c5 40 d7 d9 c5 ┆ OWING: b* a*(b* a* ]SPINDLE PRE┆
0x0d40…0d60 c6 c5 d9 c5 d5 c3 c5 40 60 40 d7 d9 c5 c6 c5 82 d9 67 c5 c4 40 c4 c9 e2 d2 40 c4 d9 c9 e5 c5 40 ┆FERENCE - PREFEbRÅED DISK DRIVE ┆
0x0d60…0d80 d6 d5 40 e6 c8 c9 c3 c8 40 e3 d6 40 d7 d3 c1 c3 c5 0b 82 5c 40 81 5c 10 8c e3 c8 c5 40 e4 e3 c9 ┆ON WHICH TO PLACE b* a* ðTHE UTI┆
0x0d80…0da0 d3 c9 e3 e8 6b 31 82 5c 40 81 5c 10 89 d6 d7 e3 c9 d6 d5 c1 d3 6b 34 82 5c 40 81 5c 10 8e c4 c5 ┆LITY, b* a* iOPTIONAL, b* a* þDE┆
0x0da0…0dc0 c6 c1 e4 d3 e3 40 60 40 d5 d6 d5 c5 2f 82 5c 40 81 5c 07 b7 c4 c9 e2 d2 c5 82 e3 22 c5 40 d3 d6 ┆FAULT - NONE b* a* ¼DISKEbT E LO┆
0x0dc0…0de0 c3 c1 e3 c9 d6 d5 40 60 40 d7 d6 e2 c9 e3 c9 d6 d5 40 d6 c6 40 e3 c8 c5 40 c4 c9 e2 d2 c5 82 e3 ┆CATION - POSITION OF THE DISKEbT┆
0x0de0…0e00 52 c5 40 c3 d6 d5 e3 c1 c9 d5 c9 d5 c7 0f 82 5c 40 81 5c 10 8c e3 c8 c5 40 e4 e3 c9 d3 c9 e3 e8 ┆êE CONTAINING b* a* ðTHE UTILITY┆
0x0e00…0e20 6b 31 82 5c 40 81 5c 10 89 d6 d7 e3 c9 d6 d5 c1 d3 6b 34 82 5c 40 81 5c 10 8e c4 c5 c6 c1 e4 d3 ┆, b* a* iOPTIONAL, b* a* þDEFAUL┆
0x0e20…0e40 e3 40 60 40 7d e2 f1 7d 2f 82 5c 40 81 5c 4d 82 5c 40 d0 cf 5c 20 40 00 40 c9 e2 40 c2 c5 c9 d5 ┆T - 'S1' b* a*(b* }õ* IS BEIN┆
0x0e40…0e60 c7 40 d3 d6 c1 c4 c5 c4 40 c6 d9 d6 d4 d7 c4 d6 c3 d7 d4 d9 c9 40 82 00 04 04 50 00 0a 84 00 08 ┆G LOADED FROMPDOCPMRI b & d ┆
0x0e60…0e80 40 00 02 00 05 00 02 30 8c 00 04 20 80 3f 33 8d 00 01 8e 82 61 0e 40 d3 d6 c1 c4 40 5b d4 c1 c9 ┆ ð Ø ý þb/ LOAD $MAI┆
0x0e80…0ea0 d5 e3 42 bd 82 61 20 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 e2 e3 e4 d7 d4 d9 c9 6b e4 d5 c9 e3 60 c9 ┆NTâ¨b/ FILE NAME-STUPMRI,UNIT-I┆
0x0ea0…0ec0 f1 6b d7 c1 c3 d2 60 82 d7 1b d4 d9 c9 6b d3 d6 c3 c1 e3 c9 d6 d5 60 6f f1 6f 6b c1 e4 e3 d6 60 ┆1,PACK-bP MRI,LOCATION-?1?,AUTO-┆
0x0ec0…0ee0 e8 c5 e2 13 86 82 61 06 40 d9 e4 d5 4a b9 82 61 39 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 c4 c9 e2 d2 ┆YES fb/ RUN¢¾b/ COPY FROM-DISK┆
0x0ee0…0f00 6b e3 d6 60 7b e3 e4 d3 c9 c2 6b c6 c9 d3 c5 60 e2 e3 e4 d7 d4 d9 c9 6b d9 c5 e3 c1 c9 d5 60 d9 ┆,TO-#TULIB,FILE-STUPMRI,RETAIN-R┆
0x0f00…0f20 6b d9 c9 d7 60 e8 c5 e2 17 86 82 61 06 40 c5 d5 c4 4a 97 82 61 02 40 c9 82 c6 06 40 6f c3 c4 6f ┆,RIP-YES fb/ END¢pb/ IbF ?CD?┆
0x0f20…0f40 61 84 f0 09 40 d9 c5 e3 e4 d9 d5 39 af 82 61 14 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 ┆/d0 RETURN ®b/ LOCAL AREA-SYST┆
0x0f40…0f60 c5 d4 6b d6 82 c6 19 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d c4 d6 c3 d7 d4 d9 c9 40 f2 f6 7d 21 8d ┆EM,ObF SET-1,DATA-'DOCPMRI 26' ý┆
0x0f60…0f80 82 61 0d 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 86 82 61 06 40 d9 e4 d5 4a 89 82 61 0b 40 d9 c5 e3 ┆b/ LOAD $CNADäfb/ RUN¢ib/ RET┆
0x0f80…0fa0 e4 d9 d5 47 00 c1 c4 82 00 04 82 50 00 36 84 00 08 40 00 02 00 04 00 08 30 98 00 09 d7 c4 d6 c3 ┆URNå ADb b& d q PDOC┆
0x0fa0…0fc0 d7 d4 d9 c9 40 82 00 04 8a 50 00 0a 84 00 08 40 00 02 00 05 00 02 30 8d 00 03 80 3f cc 88 00 09 ┆PMRI b «& d ý Ø öh ┆
0x0fc0…0fe0 d7 c4 d6 c3 d7 e2 c1 e5 c5 82 00 04 8c 50 00 12 84 00 08 40 00 02 00 05 00 03 30 8d 00 03 80 3f ┆PDOCPSAVEb ð& d ý Ø ┆
0x0fe0…1000 33 88 00 05 d7 c4 e4 e3 c1 82 c4 82 40 06 00 1a ba 48 00 09 84 00 08 40 00 02 00 05 00 01 30 98 ┆ h PDUTAbDb [ç d q┆
0x1000…1020 (4,) 00 07 d7 c4 e4 e3 d4 d9 c9 82 40 82 00 04 ae 50 00 13 84 00 08 40 00 02 00 05 00 03 30 98 00 0a ┆ PDUTMRIb b Þ& d q ┆
0x1020…1040 ff d7 c4 d6 c3 d7 e2 c1 e5 c5 82 00 04 06 50 00 12 84 00 08 40 00 02 00 05 00 03 30 8c 00 04 20 ┆ PDOCPSAVEb & d ð ┆
0x1040…1060 80 3f 33 8d 00 01 96 82 61 0e 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f1 60 82 7b 06 d4 e2 c7 f2 3a ┆Ø ý ob/ MEMBER USER1-b# MSG2 ┆
0x1060…1080 af 82 61 27 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 ┆®b/ IF JOBQ-NO IF EVOKED-NO * '┆
0x1080…10a0 40 c4 d6 c3 d7 e2 c1 e5 c5 6f d4 82 f5 82 f0 04 6f 7d 21 ab 82 61 2b 40 c9 c6 40 d1 d6 c2 d8 60 ┆ DOCPSAVE?Mb5b0 ?' ¿b/ IF JOBQ-┆
0x10a0…10c0 d5 d6 40 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 ┆NO IF EVOKED-NO PAUSE ' ?M2196?'┆
0x10c0…10e0 25 b2 82 61 10 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 7d e2 e3 e4 d7 82 6b 17 6f f1 7d e2 f1 7d 6f 7d ┆ ¥b/ IF DATAI1-'STUPb, ?1'S1'?'┆
0x10e0…1100 40 c4 c5 d3 c5 e3 c5 40 e2 e3 e4 d7 6b c9 f1 84 6b 05 6f f1 6f 1e b4 82 61 13 40 c9 c6 40 c4 c1 ┆ DELETE STUP,I1d, ?1? ©b/ IF DA┆
0x1100…1120 e3 c1 c9 f1 60 7d e2 e3 e4 d7 d6 c2 d1 82 6b 16 6f f1 6f 7d 40 c4 c5 d3 c5 e3 c5 40 e2 e3 e4 d7 ┆TAI1-'STUPOBJb, ?1?' DELETE STUP┆
0x1120…1140 d6 c2 d1 6b c9 f1 84 6b 05 6f f1 6f 1c 8e 82 61 0e 40 d3 d6 c1 c4 40 5b d4 c1 c9 d5 e3 42 af 82 ┆OBJ,I1d, ?1? þb/ LOAD $MAINTâ®b┆
0x1140…1160 61 13 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d7 c1 c3 d2 60 82 d7 82 e2 09 d7 6b d9 c5 e3 c1 ┆/ FILE UNIT-I1,PACK-bPbS P,RETA┆
0x1160…1180 c9 d5 60 83 f9 0c 6b d5 c1 d4 c5 60 e2 e3 e4 d7 21 b2 82 61 13 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 ┆IN-c9 ,NAME-STUP ¥b/ FILE UNIT-┆
0x1180…11a0 c9 f1 6b d7 c1 c3 d2 60 82 d7 82 e2 09 d7 6b d9 c5 e3 c1 c9 d5 60 83 f9 0f 6b d5 c1 d4 c5 60 e2 ┆I1,PACK-bPbS P,RETAIN-c9 ,NAME-S┆
0x11a0…11c0 e3 e4 d7 d6 c2 d1 1e 86 82 61 06 40 d9 e4 d5 4a bf 82 61 31 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b ┆TUPOBJ fb/ RUN¢×b/ COPY FROM-#┆
0x11c0…11e0 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 c4 ┆LIBRARY,TO-DISK,LIBRARY-P,NAME-D┆
0x11e0…1200 d6 c3 d7 4b c1 82 d3 0c 6b c6 c9 d3 c5 60 e2 e3 e4 d7 11 c4 82 61 3c 40 c3 d6 d7 e8 40 c6 d9 d6 ┆OCP.AbL ,FILE-STUP Db/ COPY FRO┆
0x1200…1220 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 d5 c1 d4 ┆M-#LIBRARY,TO-DISK,LIBRARY-O,NAM┆
0x1220…1240 c5 60 7b d7 c6 d8 d4 6b c6 c9 d3 c5 60 e2 e3 e4 d7 6b c1 82 c4 06 60 e8 c5 e2 0c c4 82 61 44 40 ┆E-#PFQM,FILE-STUP,AbD -YES Db/à ┆
0x1240…1260 c9 c6 40 d3 d6 c1 c4 60 7d 7b d7 d6 d5 d7 c4 f0 f1 6b 7b d3 c9 c2 d9 c1 d9 e8 7d 40 c3 d6 d7 e8 ┆IF LOAD-'#PONPD01,#LIBRARY' COPY┆
0x1260…1280 40 c6 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 ┆ FROM-#LIBRARY,TO-DISK,LIBRARY-O┆
0x1280…12a0 6b 0c a4 82 61 0e 40 d5 c1 d4 c5 60 7b d7 d6 d5 d7 c4 4b c1 82 d3 0c 6b c6 c9 d3 c5 60 e2 e3 e4 ┆, ub/ NAME-#PONPD.AbL ,FILE-STU┆
0x12a0…12c0 d7 6b c1 82 c4 06 60 e8 c5 e2 2c bf 82 61 2e 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b e3 e4 d3 c9 c2 ┆P,AbD -YES ×b/ COPY FROM-#TULIB┆
0x12c0…12e0 6b e3 d6 60 c4 c9 e2 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 60 7b d7 c6 4b c1 82 d3 0f ┆,TO-DISK,LIBRARY-O,NAME-#PF.AbL ┆
0x12e0…1300 6b c6 c9 d3 c5 60 e2 e3 e4 d7 d6 c2 d1 11 c2 82 61 2f 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b e3 e4 ┆,FILE-STUPOBJ Bb/ COPY FROM-#TU┆
0x1300…1320 d3 c9 c2 6b e3 d6 60 c4 c9 e2 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b d5 c1 d4 c5 60 7b e3 e4 7b 4b ┆LIB,TO-DISK,LIBRARY-O,NAME-#TU#.┆
0x1320…1340 c1 82 d3 12 6b c6 c9 d3 c5 60 e2 e3 e4 d7 d6 c2 d1 6b 4e 0e 87 c1 82 c4 06 60 e8 c5 e2 49 86 82 ┆AbL ,FILE-STUPOBJ,+ gAbD -YESñfb┆
0x1340…1360 61 06 40 c5 d5 c4 4a 89 82 61 08 40 d9 c5 e3 e4 d9 d5 47 8e 00 01 ff 00 00 09 d6 7b d7 d6 d5 d7 ┆/ END¢ib/ RETURNåþ O#PONP┆
0x1360…1380 c4 f0 f1 82 00 02 02 01 84 00 0a ff 10 00 08 02 00 51 00 01 70 89 00 01 01 82 99 01 b9 90 00 09 ┆D01b d é øi br ¾° ┆
0x1380…13a0 d6 7b d7 d6 d5 d7 c4 f0 f2 82 00 02 98 4c 84 00 0a ff 10 00 08 02 00 51 00 4c 70 89 00 01 02 82 ┆O#PONPD02b q<d é <øi b┆
0x13a0…13c0 99 01 b9 90 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 ┆r ¾° ┆
0x13c0…13e0 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 ┆ ┆
[…0x1…]