|
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: 6144 (0x1800)
Types: GA21-9182-File
Names: »SDA«
└─⟦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 e2 c4 c1 40 40 40 40 40 00 00 0c 50 00 1c 00 00 00 00 40 00 02 00 02 00 06 30 00 00 00 00 00 ┆PSDA & ┆
0x0020…0040 00 00 00 00 00 00 00 20 80 3d 66 00 00 00 00 00 00 00 00 00 00 00 00 00 d0 5c 5c 5c 5c 5c 5c 5c ┆ Ø Ã }*******┆
0x0040…0060 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 ┆********************************┆
[…0x1…]
0x0080…00a0 5c 5c 5c 5c 5c 5c 5c 5c 5c 81 5c 4e 81 5c 81 5c 03 8e e2 c4 c1 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 7a ┆*********a*+a*a* þSDA PROCEDURE:┆
0x00a0…00c0 3d 81 5c 81 5c 03 a6 d7 c1 d9 d4 40 f1 40 60 40 e2 d6 e4 d9 c3 c5 40 d4 c5 d4 c2 c5 d9 40 d5 c1 ┆ a*a* wPARM 1 - SOURCE MEMBER NA┆
0x00c0…00e0 d4 c5 40 e3 d6 40 d7 d9 d6 c3 c5 e2 e2 25 81 5c 81 5c 03 9b d7 c1 d9 d4 40 f2 40 60 40 c9 d5 d7 ┆ME TO PROCESS a*a* ºPARM 2 - INP┆
0x00e0…0100 e4 e3 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 30 81 5c 81 5c 03 ba d7 c1 d9 d4 40 f3 40 60 40 5b ┆UT LIBRARY NAME a*a* [PARM 3 - $┆
0x0100…0120 e2 c6 c7 d9 40 d3 d6 c1 c4 40 d4 c5 d4 c2 c5 d9 40 d5 c1 d4 c5 40 60 60 40 e2 61 f3 f4 40 c3 d6 ┆SFGR LOAD MEMBER NAME -- S/34 CO┆
0x0120…0140 d4 d7 c1 e3 c9 c2 c9 d3 c9 e3 e8 40 d6 d5 d3 e8 11 81 5c 81 5c 03 b6 d7 c1 d9 d4 40 f4 40 60 40 ┆MPATIBILITY ONLY a*a* ¶PARM 4 - ┆
0x0140…0160 e8 c5 e2 61 e8 61 d5 d6 61 d5 61 d7 c1 d9 e3 c9 c1 d3 40 d2 c5 e8 e6 d6 d9 c4 40 c6 d6 d9 40 5b ┆YES/Y/NO/N/PARTIAL KEYWORD FOR $┆
0x0160…0180 e2 c6 c7 d9 40 d7 d9 c9 d5 e3 c9 d5 c7 15 81 5c 81 5c 03 a7 d7 c1 d9 d4 40 f5 40 60 40 e2 c4 c1 ┆SFGR PRINTING a*a* xPARM 5 - SDA┆
0x0180…01a0 40 e2 d6 e4 d9 c3 c5 40 d6 e4 e3 d7 e4 e3 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 24 81 5c 81 5c ┆ SOURCE OUTPUT LIBRARY NAME a*a*┆
0x01a0…01c0 03 a6 d7 c1 d9 d4 40 f6 40 60 40 e2 c6 c7 d9 40 d3 d6 c1 c4 40 d6 e4 e3 d7 e4 e3 40 d3 c9 c2 d9 ┆ wPARM 6 - SFGR LOAD OUTPUT LIBR┆
0x01c0…01e0 c1 d9 e8 40 d5 c1 d4 c5 25 81 5c 81 5c 4e 81 5c 81 5c 03 9d 7c 7c c9 c7 c3 40 60 40 d9 c5 d3 c5 ┆ARY NAME a*a*+a*a* ¸@@IGC - RELE┆
0x01e0…0200 c1 e2 c5 40 f2 40 c9 c7 c3 40 e2 e4 d7 d7 d6 d9 e3 2e 81 5c d0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ASE 2 IGC SUPPORT a*}***********┆
0x0200…0220 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 ┆********************************┆
[…0x1…]
0x0240…0260 5c 5c 5c 5c 5c b6 61 61 40 d4 c5 d4 c2 c5 d9 40 d7 d9 d6 c7 d9 c1 d4 f1 60 7b e2 c1 7b d4 f1 6b ┆*****¶// MEMBER PROGRAM1-#SA#M1,┆
0x0260…0280 e4 e2 c5 d9 f1 60 7b e2 c1 7b d4 f1 6b d3 c9 c2 d9 c1 d9 e8 60 7b e2 c4 c1 d3 c9 c2 1a 90 61 61 ┆USER1-#SA#M1,LIBRARY-#SDALIB °//┆
0x0280…02a0 40 c9 c6 40 c5 e5 d6 d2 c5 c4 60 e8 c5 e2 03 8f 7b c5 d9 d9 40 f0 f0 f1 f5 6b c3 6b e2 c4 c1 2e ┆ IF EVOKED-YES ±#ERR 0015,C,SDA ┆
0x02a0…02c0 8e 61 61 40 c9 c6 40 d1 d6 c2 d8 60 e8 c5 e2 03 8f 7b c5 d9 d9 40 f0 f0 f1 f5 6b c3 6b e2 c4 c1 ┆þ// IF JOBQ-YES ±#ERR 0015,C,SDA┆
0x02c0…02e0 30 9b 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d e2 c4 c1 05 96 e2 ┆ º// LOCAL OFFSET-1,DATA-'SDA oS┆
0x02e0…0300 40 e2 c1 f1 6f e6 e2 6f 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1a b4 61 61 40 c9 c6 40 c4 e2 d7 ┆ SA1?WS?',AREA-SYSTEM ©// IF DSP┆
0x0300…0320 d3 e8 60 c9 c7 c3 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f1 f2 6b c4 c1 e3 c1 60 7d c9 7d 6b ┆LY-IGC LOCAL OFFSET-12,DATA-'I',┆
0x0320…0340 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 12 85 7c 7c c9 c7 c3 05 a7 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 ┆AREA-SYSTEM e@@IGC x// LOCAL OFF┆
0x0340…0360 e2 c5 e3 60 f1 f6 6b c2 d3 c1 d5 d2 60 f6 f5 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 09 93 c2 d3 c1 ┆SET-16,BLANK-65,AREA-SYSTEM lBLA┆
0x0360…0380 d5 d2 40 c3 d6 d5 e3 d9 d6 d3 40 c1 d9 c5 c1 e2 0d ac 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 ┆NK CONTROL AREAS Ð// LOCAL OFFSE┆
0x0380…03a0 e3 60 f1 f6 6b c4 c1 e3 c1 60 7d 6f c3 d3 c9 c2 6f 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 04 94 ┆T-16,DATA-'?CLIB?',AREA-SYSTEM m┆
0x03a0…03c0 e2 c5 e3 40 e4 d7 40 c4 c5 c6 c1 e4 d3 e3 40 c1 d9 c5 c1 7a 02 86 c3 e4 d9 d3 c9 c2 04 a9 61 61 ┆SET UP DEFAULT AREA: fCURLIB z//┆
0x03c0…03e0 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f3 f2 6b c4 c1 e3 c1 60 7d 6f f5 6f 7d 6b c1 d9 c5 c1 ┆ LOCAL OFFSET-32,DATA-'?5?',AREA┆
0x03e0…0400 60 e2 e8 e2 e3 c5 d4 1d 83 d6 e2 d3 07 a9 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f0 ┆-SYSTEM cOSL z// LOCAL OFFSET-40┆
0x0400…0420 (1,) 6b c4 c1 e3 c1 60 7d 6f f6 6f 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1d 83 d6 d3 d3 07 ad 61 61 ┆,DATA-'?6?',AREA-SYSTEM cOLL Ý//┆
0x0420…0440 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f8 6b c4 c1 e3 c1 60 7d 6f f4 7d d5 d6 7d 6f 7d 6b ┆ LOCAL OFFSET-48,DATA-'?4'NO'?',┆
0x0440…0460 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 19 85 d7 d9 c9 d5 e3 05 8a 61 61 40 c9 c6 40 6f f3 6f 61 03 a4 ┆AREA-SYSTEM ePRINT «// IF ?3?/ u┆
0x0460…0480 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f5 f6 6b c4 c1 e3 c1 60 7d d5 7d 6b c1 d9 c5 c1 60 e2 e8 ┆LOCAL OFFSET-56,DATA-'N',AREA-SY┆
0x0480…04a0 e2 e3 c5 d4 15 87 c3 d6 d4 d7 c9 d3 c5 03 87 61 61 40 c5 d3 e2 c5 06 a4 d3 d6 c3 c1 d3 40 d6 c6 ┆STEM gCOMPILE g// ELSE uLOCAL OF┆
0x04a0…04c0 c6 e2 c5 e3 60 f5 f6 6b c4 c1 e3 c1 60 7d e8 7d 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1f a9 61 61 ┆FSET-56,DATA-'Y',AREA-SYSTEM z//┆
0x04c0…04e0 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f6 f5 6b c4 c1 e3 c1 60 7d 6f f2 6f 7d 6b c1 d9 c5 c1 ┆ LOCAL OFFSET-65,DATA-'?2?',AREA┆
0x04e0…0500 60 e2 e8 e2 e3 c5 d4 07 93 e2 c5 e3 40 e4 d7 40 c1 c3 e3 c9 e5 c5 40 c1 d9 c5 c1 7a 03 83 c9 e2 ┆-SYSTEM lSET UP ACTIVE AREA: cIS┆
0x0500…0520 d3 07 a9 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f7 f3 6b c4 c1 e3 c1 60 7d 6f f1 6f 7d ┆L z// LOCAL OFFSET-73,DATA-'?1?'┆
0x0520…0540 6b c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 1d 86 d4 c5 d4 c2 c5 d9 04 97 61 61 40 d3 c9 c2 d9 c1 d9 e8 ┆,AREA-SYSTEM fMEMBER p// LIBRARY┆
0x0540…0560 40 d5 c1 d4 c5 60 7b e2 c4 c1 d3 c9 c2 39 8f 61 61 40 c9 d5 c3 d3 e4 c4 c5 40 e2 c4 c1 e2 41 00 ┆ NAME-#SDALIB ±// INCLUDE SDAS ┆
0x0560…0580 e2 c6 c7 d9 40 d7 d9 c9 d5 e3 c9 d5 c7 15 81 5c 81 5c 03 a7 d7 c1 d9 d4 40 f5 40 60 40 e2 c4 c1 ┆SFGR PRINTING a*a* xPARM 5 - SDA┆
0x0580…05a0 40 e2 d6 e4 d9 c3 c5 40 d6 e4 e3 d7 e4 e3 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 24 81 5c 81 5c ┆ SOURCE OUTPUT LIBRARY NAME a*a*┆
0x05a0…05c0 03 a6 d7 c1 d9 d4 40 f6 40 60 40 e2 c6 c7 d9 40 d3 d6 c1 c4 40 d6 e4 e3 d7 e4 e3 40 d3 c9 c2 d9 ┆ wPARM 6 - SFGR LOAD OUTPUT LIBR┆
0x05c0…05e0 c1 d9 e8 40 d5 c1 d4 c5 25 81 5c 81 5c 4e 81 5c 81 5c 03 9d 7c 7c c9 c7 c3 40 60 40 d9 c5 d3 c5 ┆ARY NAME a*a*+a*a* ¸@@IGC - RELE┆
0x05e0…0600 c1 e2 c5 40 f2 40 c9 c7 c3 40 e2 e4 d7 d7 d6 d9 e3 2e 81 5c d0 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆ASE 2 IGC SUPPORT a*}***********┆
0x0600…0620 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 ┆********************************┆
0x0620…0640 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c d7 e2 c4 c1 c4 d9 d6 d7 ┆************************PSDADROP┆
0x0640…0660 40 00 00 04 50 00 0d 00 00 00 00 40 00 02 00 05 00 02 30 00 00 00 00 00 00 00 00 00 00 00 00 20 ┆ & ┆
0x0660…0680 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┆
0x0680…06a0 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┆
0x06a0…06c0 60 d5 d6 40 5c 40 7d 40 e2 c4 c1 c4 d9 d6 d7 6f d4 f5 f5 f0 f0 6f 7d 22 b3 61 61 40 c9 c6 40 c4 ┆-NO * ' SDADROP?M5500?' ·// IF D┆
0x06c0…06e0 c1 e3 c1 c6 f1 60 7b e2 c4 c1 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 40 7b e2 c4 c1 d3 c9 c2 6b c6 f1 6b ┆ATAF1-#SDALIB DELETE #SDALIB,F1,┆
0x06e0…0700 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//┆
0x0700…0720 40 d9 e4 d5 4a a9 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 e2 ┆ RUN¢z// DELETE LIBRARY-P,NAME-S┆
0x0720…0740 c4 c1 4b c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 27 c8 61 61 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b e2 c1 ┆DA.ALL,RETAIN-S H// IF LOAD-'#SA┆
0x0740…0760 d7 d7 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 ┆PPD01,#LIBRARY' DELETE LIBRARY-O┆
0x0760…0780 6b d5 c1 d4 c5 60 7b e2 c1 d7 d7 c4 4b c1 d3 d3 6b d9 c5 e3 c1 c9 d5 60 e2 08 86 61 61 40 c5 d5 ┆,NAME-#SAPPD.ALL,RETAIN-S f// EN┆
0x0780…07a0 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 8f d3 d6 c7 d7 ┆D¢p// IFF ?CD?/0000 RETURN ±LOGP┆
0x07a0…07c0 d3 c4 40 c4 d9 d6 d7 6b e2 c4 c1 41 af 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 ┆LD DROP,SDA ®// LOCAL AREA-SYSTE┆
0x07c0…07e0 d4 6b d6 c6 c6 e2 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d e2 c4 c1 c4 d9 d6 d7 40 f4 f4 7d 21 8e 61 61 ┆M,OFFSET-1,DATA-'SDADROP 44' þ//┆
0x07e0…0800 40 d3 d6 c1 c4 40 5b c3 d5 c4 d9 d7 42 86 61 61 40 d9 e4 d5 4a 00 00 00 00 00 00 00 00 00 80 3f ┆ LOAD $CNDRPâf// RUN¢ Ø ┆
0x0800…0820 (2,) 00 00 00 00 00 00 00 00 00 d7 d3 c9 e2 e3 40 40 40 40 00 00 19 50 00 14 00 00 00 00 40 00 02 00 ┆ PLIST & ┆
0x0820…0840 03 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 33 00 00 00 00 00 00 00 00 d7 d3 c9 e2 ┆ Ø PLIS┆
0x0840…0860 e3 7b 40 40 40 00 00 26 50 00 11 00 00 00 00 40 00 02 00 03 00 03 30 00 00 00 00 00 00 00 00 00 ┆T# & ┆
0x0860…0880 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 ff d7 e2 c4 c1 c9 d3 d6 c4 40 00 00 06 50 00 17 00 ┆ Ø Ã PSDAILOD & ┆
0x0880…08a0 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 cc 00 00 00 00 00 ┆ Ø ö ┆
0x08a0…08c0 00 00 00 00 00 00 00 00 a1 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 7b e2 c4 c1 d3 c9 c2 40 c7 ┆ ~// IFF DATAF1-#SDALIB G┆
0x08c0…08e0 d6 e3 d6 40 c2 d3 c4 d3 c9 c2 2f 9e c4 c5 d3 c5 e3 c5 40 7b e2 c4 c1 d3 c9 c2 6b c6 f1 6b d9 c5 ┆OTO BLDLIB ÆDELETE #SDALIB,F1,RE┆
0x08e0…0900 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┆
0x0900…0920 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┆
0x0920…0940 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┆
0x0940…0960 d6 40 c3 c8 d2 d2 c1 d5 d1 c9 2f a2 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b e2 c4 c1 ┆O CHKKANJI s// ELSE BLDLIBR #SDA┆
0x0960…0980 d3 c9 c2 6b f5 f8 f5 6b f6 f0 6b 6f f2 6f 2e 90 61 61 40 c7 d6 e3 d6 40 d3 d6 c1 c4 c6 c9 d3 c5 ┆LIB,585,60,?2? °// GOTO LOADFILE┆
0x0980…09a0 40 8f 61 61 40 e3 c1 c7 40 c3 c8 d2 d2 c1 d5 d1 c9 41 ac 61 61 40 c9 c6 40 6f d3 7d f6 f7 6b f1 ┆ ±// TAG CHKKANJI Ð// IF ?L'67,1┆
0x09a0…09c0 7d 6f 61 f1 40 c2 d3 c4 d3 c9 c2 d9 40 7b e2 c4 c1 d3 c9 c2 6b f7 f0 f0 6b f7 f0 6b 6f f2 6f 24 ┆'?/1 BLDLIBR #SDALIB,700,70,?2? ┆
0x09c0…09e0 a2 61 61 40 c5 d3 e2 c5 40 c2 d3 c4 d3 c9 c2 d9 40 7b e2 c4 c1 d3 c9 c2 6b f5 f0 f0 6b f5 f0 6b ┆s// ELSE BLDLIBR #SDALIB,500,50,┆
0x09e0…0a00 6f f2 6f 2e 8f 61 61 40 e3 c1 c7 40 d3 d6 c1 c4 c6 c9 d3 c5 41 8e 61 61 40 d3 d6 c1 c4 40 5b d4 ┆?2? ±// TAG LOADFILE þ// LOAD $M┆
0x0a00…0a20 c1 c9 d5 e3 42 bc 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 e2 c4 c1 d3 c9 c2 6b e4 d5 c9 e3 60 c9 ┆AINTâ¯// FILE NAME-SDALIB,UNIT-I┆
0x0a20…0a40 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 d6 60 ┆1,PACK-PPUTIL,LOCATION-?1?,AUTO-┆
0x0a40…0a60 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 e3 d6 ┆NO f// RUN¢y// COPY FROM-DISK,TO┆
0x0a60…0a80 60 7b e2 c4 c1 d3 c9 c2 6b c6 c9 d3 c5 60 e2 c4 c1 d3 c9 c2 28 86 61 61 40 c5 d5 c4 4a 97 61 61 ┆-#SDALIB,FILE-SDALIB f// END¢p//┆
0x0a80…0aa0 40 c9 c6 c6 40 6f c3 c4 6f 61 f0 f0 f0 f0 40 d9 c5 e3 e4 d9 d5 39 c4 d3 d6 c7 d7 d3 c4 40 d3 d6 ┆ IFF ?CD?/0000 RETURN DLOGPLD LO┆
0x0aa0…0ac0 c1 c4 6b e2 c4 c1 6b 7d 7b e2 c1 c9 d5 6b 7b e2 c4 c1 d3 c9 c2 7d 6b 6b 7d f0 f0 f0 f5 6b 7b 7b ┆AD,SDA,'#SAIN,#SDALIB',,'0005,##┆
0x0ac0…0ae0 d4 e2 c7 d7 d3 f2 7d 6b 6b 7d 7b d3 c9 c2 d9 c1 d9 e8 6b 7b e2 c4 c1 d3 c9 c2 7d 0c af 61 61 40 ┆MSGPL2',,'#LIBRARY,#SDALIB' ®// ┆
0x0ae0…0b00 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 e3 c1 60 ┆LOCAL AREA-SYSTEM,OFFSET-1,DATA-┆
0x0b00…0b20 7d e2 c4 c1 c9 d3 d6 c4 40 f4 f4 7d 21 8d 61 61 40 d3 d6 c1 c4 40 5b c3 d5 c1 c4 43 86 61 61 40 ┆'SDAILOD 44' ý// LOAD $CNADäf// ┆
0x0b20…0b40 d9 e4 d5 4a 00 05 00 05 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 ┆RUN¢ Ø Ã ┆
0x0b40…0b60 00 d7 e2 c4 c1 40 40 40 40 40 00 0f 26 50 00 1c 00 00 00 00 40 00 02 00 02 00 06 30 00 00 00 00 ┆ PSDA & ┆
0x0b60…0b80 00 00 00 00 00 00 00 00 00 80 3d 66 00 00 00 00 00 00 00 00 d7 e2 c4 c1 c9 d3 d6 c4 40 00 0f 33 ┆ Ø Ã PSDAILOD ┆
0x0b80…0ba0 50 00 1b 00 00 00 00 40 00 02 00 05 00 04 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 ┆& Ø ö ┆
0x0ba0…0bc0 00 00 00 00 00 00 00 ff d7 e2 c4 c1 d3 d6 c1 c4 40 00 00 06 50 00 16 00 00 00 00 40 00 02 00 05 ┆ PSDALOAD & ┆
0x0bc0…0be0 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 20 80 3f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ Ø ┆
0x0be0…0c00 81 5c 02 b9 e3 c8 c9 e2 40 d7 d9 d6 c3 c5 c4 e4 d9 c5 40 c3 d6 d7 c9 c5 e2 40 e2 c4 c1 40 e3 d6 ┆a* ¾THIS PROCEDURE COPIES SDA TO┆
0x0c00…0c20 (3,) 40 c1 40 e2 c5 d7 c1 d9 c1 e3 c5 40 d3 c9 c2 d9 c1 d9 e8 6b 40 7b e2 c4 c1 d3 c9 c2 6b 14 81 5c ┆ A SEPARATE LIBRARY, #SDALIB, a*┆
0x0c20…0c40 02 ba 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 e3 c5 40 c2 e8 ┆ [ON FIXED DISK FROM DISKETTE BY┆
0x0c40…0c60 40 c3 c1 d3 d3 c9 d5 c7 40 e2 c4 c1 c9 d3 d6 c4 40 c1 d5 c4 40 e2 c4 c1 d4 d9 c9 4b 13 81 5c 02 ┆ CALLING SDAILOD AND SDAMRI. a* ┆
0x0c60…0c80 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 c5 40 d7 d9 c5 ┆xPARAMETER 1 IS DISK SPINDLE PRE┆
0x0c80…0ca0 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 40 c4 c9 e2 d2 ┆FERENCE. a* ~PARAMETER 2 IS DISK┆
0x0ca0…0cc0 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 e2 c5 d9 f1 60 ┆ETTE LOCATION. o// MEMBER USER1-┆
0x0cc0…0ce0 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 d6 d2 c5 c4 60 ┆##MSGC Þ// IF JOBQ-NO IF EVOKED-┆
0x0ce0…0d00 d5 d6 40 5c 40 7d 40 e2 c4 c1 d3 d6 c1 c4 6f d4 f3 f5 f0 f0 6f 7d 22 8e 61 61 40 e3 c1 c7 40 c3 ┆NO * ' SDALOAD?M3500?' þ// TAG C┆
0x0d00…0d20 c8 d2 c4 c9 e2 d2 42 ac 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 7d e2 c4 c1 d3 c9 c2 6b 6b 6f f2 ┆HKDISKâÐ// IF DATAI1-'SDALIB,,?2┆
0x0d20…0d40 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 f3 f2 f9 f0 47 ┆'S1'?' GOTO CALLPROC i// * 3290å┆
0x0d40…0d60 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 d6 e3 d6 40 c3 ┆m// #ERR 3291,13,CNFG ±// GOTO C┆
0x0d60…0d80 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 e2 c4 c1 c9 d3 d6 c4 ┆HKDISK ±// TAG CALLPROC lSDAILOD┆
0x0d80…0da0 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 7b e2 c1 7b d4 ┆ ?2'S1'?,?1? v// IFF LOAD-'#SA#M┆
0x0da0…0dc0 f1 6b 7b e2 c4 c1 d3 c9 c2 7d 40 c7 d6 e3 d6 40 d4 d9 c9 2b af 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 ┆1,#SDALIB' GOTO MRI ®// LOCAL AR┆
0x0dc0…0de0 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 e2 c4 c1 d3 d6 c1 c4 ┆EA-SYSTEM,OFFSET-1,DATA-'SDALOAD┆
0x0de0…0e00 40 f4 f4 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 8f 61 61 40 ┆ 44' ý// LOAD $CNADäf// RUN¢±// ┆
0x0e00…0e20 c7 d6 e3 d6 40 c5 d5 c4 d7 d9 d6 c3 41 8a 61 61 40 e3 c1 c7 40 d4 d9 c9 46 a0 61 61 40 d7 c1 e4 ┆GOTO ENDPROC «// TAG MRIãµ// PAU┆
0x0e20…0e40 e2 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 e2 c4 c1 d4 ┆SE '?M'3502,1,60'? PPUTIL' «SDAM┆
0x0e40…0e60 d9 c9 40 6f f2 6f 46 8e 61 61 40 e3 c1 c7 40 c5 d5 c4 d7 d9 d6 c3 42 00 00 40 00 02 00 03 00 05 ┆RI ?2?ãþ// TAG ENDPROCâ ┆
0x0e60…0e80 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3e 00 00 00 00 00 00 00 00 00 d7 e2 c4 c1 40 40 40 ┆ Ø PSDA ┆
0x0e80…0ea0 40 40 00 0f 1a 50 00 1c 00 00 00 00 40 00 02 00 02 00 06 30 00 00 00 00 00 00 00 00 00 00 00 00 ┆ & ┆
0x0ea0…0ec0 00 80 3d 66 00 00 00 00 00 00 00 00 d7 e2 c4 c1 c9 d3 d6 c4 40 00 0f 27 50 00 1b 00 00 00 00 40 ┆ Ø Ã PSDAILOD & ┆
0x0ec0…0ee0 00 02 00 05 00 04 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 ┆ Ø ö ┆
0x0ee0…0f00 d7 e2 c4 c1 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 ┆PSDAMRI & ┆
0x0f00…0f20 00 00 00 00 00 00 00 20 80 3f 33 00 00 00 00 00 00 00 00 00 00 00 00 00 81 5c 02 ba e3 c8 c9 e2 ┆ Ø a* [THIS┆
0x0f20…0f40 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┆
0x0f40…0f60 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 e2 ┆ABLE INFORMATION (MRI) a* ]TO #S┆
0x0f60…0f80 c4 c1 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 ┆DALIB FROM DISKETTE. PARAMETER 1┆
0x0f80…0fa0 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 ┆
0x0fa0…0fc0 5b d4 c1 c9 d5 e3 42 bc 61 61 40 c6 c9 d3 c5 40 d5 c1 d4 c5 60 e2 c4 c1 d4 d9 c9 6b e4 d5 c9 e3 ┆$MAINTâ¯// FILE NAME-SDAMRI,UNIT┆
0x0fc0…0fe0 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┆
0x0fe0…1000 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,┆
0x1000…1020 (4,) e3 d6 60 7b e2 c4 c1 d3 c9 c2 6b c6 c9 d3 c5 60 e2 c4 c1 d4 d9 c9 28 86 61 61 40 c5 d5 c4 4a 97 ┆TO-#SDALIB,FILE-SDAMRI f// END¢p┆
0x1020…1040 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┆
0x1040…1060 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 e2 c4 c1 ┆L AREA-SYSTEM,OFFSET-1,DATA-'SDA┆
0x1060…1080 d4 d9 c9 02 83 f4 f4 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 c44' ý// LOAD $CNADäf// RUN¢┆
0x1080…10a0 00 e3 d9 c1 c3 e3 40 00 04 eb 50 00 30 00 00 00 00 40 00 02 00 03 00 06 30 00 00 00 00 00 00 00 ┆ TRACT Ô& ┆
0x10a0…10c0 00 00 00 00 00 00 80 3e 00 00 00 00 00 00 00 00 00 d7 c9 d5 d8 e4 c9 d9 e8 40 00 00 16 50 00 15 ┆ Ø PINQUIRY & ┆
0x10c0…10e0 00 00 00 00 40 00 02 00 03 00 03 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f cc 00 00 00 00 ┆ Ø ö ┆
0x10e0…1100 00 00 00 00 d7 c9 d5 d8 e4 c9 d9 e8 7b 00 00 23 50 00 11 00 00 00 00 40 00 02 00 03 00 03 30 00 ┆ PINQUIRY# & ┆
0x1100…1120 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 00 00 00 00 00 00 00 00 00 ff d7 e2 c4 c1 e2 c1 e5 c5 ┆ Ø PSDASAVE┆
0x1120…1140 40 00 00 06 50 00 0e 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 ┆ & ┆
0x1140…1160 80 3f cc 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┆
0x1160…1180 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┆
0x1180…11a0 60 d5 d6 40 5c 40 7d 40 e2 c4 c1 e2 c1 e5 c5 6f d4 f5 f5 f0 f0 6f 7d 22 ab 61 61 40 c9 c6 40 d1 ┆-NO * ' SDASAVE?M5500?' ¿// IF J┆
0x11a0…11c0 d6 c2 d8 60 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 ┆OBQ-NO IF EVOKED-NO PAUSE ' ?M21┆
0x11c0…11e0 f9 f6 6f 7d 25 9e 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 e2 c4 c1 40 c4 c5 d3 c5 e3 c5 40 e2 c4 ┆96?' Æ// IF DATAI1-SDA DELETE SD┆
0x11e0…1200 c1 6b c9 f1 32 a4 61 61 40 c9 c6 40 c4 c1 e3 c1 c9 f1 60 e2 c4 c1 d3 c9 c2 40 c4 c5 d3 c5 e3 c5 ┆A,I1 u// IF DATAI1-SDALIB DELETE┆
0x1200…1220 40 e2 c4 c1 d3 c9 c2 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 ┆ SDALIB,I1 þ// LOAD $MAINTâ®// F┆
0x1220…1240 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d9 c5 e3 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 60 e2 c4 c1 6b ┆ILE UNIT-I1,RETAIN-999,NAME-SDA,┆
0x1240…1260 d7 c1 c3 d2 60 d7 d7 e4 e3 c9 d3 21 b2 61 61 40 c6 c9 d3 c5 40 e4 d5 c9 e3 60 c9 f1 6b d9 c5 e3 ┆PACK-PPUTIL ¥// FILE UNIT-I1,RET┆
0x1260…1280 c1 c9 d5 60 f9 f9 f9 6b d5 c1 d4 c5 60 e2 c4 c1 d3 c9 c2 6b d7 c1 c3 d2 60 d7 d7 e4 e3 c9 d3 1e ┆AIN-999,NAME-SDALIB,PACK-PPUTIL ┆
0x1280…12a0 86 61 61 40 d9 e4 d5 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 ┆f// RUN¢¨// COPY FROM-#LIBRARY,T┆
0x12a0…12c0 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 e2 c4 c1 6b d5 c1 d4 c5 60 e2 c4 c1 4b c1 d3 d3 6b d3 c9 c2 ┆O-DISK,FILE-SDA,NAME-SDA.ALL,LIB┆
0x12c0…12e0 d9 c1 d9 e8 60 d7 13 c5 61 61 40 c9 c6 40 d3 d6 c1 c4 60 7d 7b e2 c1 d7 d7 c4 f0 f1 6b 7b d3 c9 ┆RARY-P E// IF LOAD-'#SAPPD01,#LI┆
0x12e0…1300 c2 d9 c1 d9 e8 7d 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 ┆BRARY' COPY FROM-#LIBRARY,TO-DIS┆
0x1300…1320 d2 6b d3 c9 c2 d9 c1 d9 e8 60 d6 6b 4e 0b a0 d5 c1 d4 c5 60 7b e2 c1 d7 d7 c4 4b c1 d3 d3 6b c6 ┆K,LIBRARY-O,+ µNAME-#SAPPD.ALL,F┆
0x1320…1340 c9 d3 c5 60 e2 c4 c1 6b c1 c4 c4 60 e8 c5 e2 30 bd 61 61 40 c3 d6 d7 e8 40 c6 d9 d6 d4 60 7b e2 ┆ILE-SDA,ADD-YES ¨// COPY FROM-#S┆
0x1340…1360 c4 c1 d3 c9 c2 6b e3 d6 60 c4 c9 e2 d2 6b c6 c9 d3 c5 60 e2 c4 c1 d3 c9 c2 6b d5 c1 d4 c5 60 c1 ┆DALIB,TO-DISK,FILE-SDALIB,NAME-A┆
0x1360…1380 d3 d3 6b d3 c9 c2 d9 c1 d9 e8 60 c1 d3 d3 13 86 61 61 40 c5 d5 c4 4a 00 00 00 00 00 00 00 00 00 ┆LL,LIBRARY-ALL f// END¢ ┆
0x1380…13a0 00 00 00 e2 7b e2 c5 7b d4 f2 40 40 00 20 90 50 01 13 00 00 00 00 40 00 02 00 05 00 40 30 00 00 ┆ S#SE#M2 °& ┆
0x13a0…13c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 e2 7b e2 c5 7c c6 d6 d9 d4 00 ┆ S#SE@FORM ┆
0x13c0…13e0 0d 72 50 06 61 00 00 00 00 40 00 02 00 05 00 e2 30 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f ┆ Ê& / S Ø ┆
0x13e0…1400 00 00 00 00 00 00 00 00 00 e2 7b e2 c5 7c e7 e3 d9 c1 00 0e 54 50 03 1e 00 00 00 00 40 00 00 00 ┆ S#SE@XTRA è& ┆
0x1400…1420 (5,) 05 00 6e 20 00 00 00 00 00 00 00 00 00 00 00 00 00 80 3f 33 00 00 00 00 00 00 00 00 e2 c1 d9 d4 ┆ > Ø SARM┆
0x1420…1440 c5 d4 e4 e3 d3 00 20 d0 50 00 c2 00 00 00 00 c0 00 02 00 05 00 08 30 00 00 00 00 00 00 00 00 00 ┆EMUTL }& B { ┆
0x1440…1460 00 00 00 00 80 3f 66 00 00 00 00 00 00 00 00 ff d6 7b e2 c1 d7 d7 c4 f0 f1 00 00 02 01 00 00 00 ┆ Ø Ã O#SAPPD01 ┆
0x1460…1480 00 ff 10 00 08 02 00 51 00 01 70 00 00 00 00 00 00 00 00 00 01 99 99 b9 00 00 00 00 00 00 00 00 ┆ é ø rr¾ ┆
0x1480…14a0 00 00 00 00 00 00 00 00 d6 7b e2 c1 d7 d7 c4 f0 f2 00 00 02 01 00 00 00 00 ff 10 00 08 02 00 51 ┆ O#SAPPD02 é┆
0x14a0…14c0 00 01 70 00 00 00 00 00 00 00 00 00 02 99 99 b9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ø rr¾ ┆
0x14c0…14e0 d6 7b e2 c1 d7 d7 c4 f0 f3 00 00 0e 07 00 00 00 00 ff 10 00 08 02 00 51 00 07 70 00 00 00 00 00 ┆O#SAPPD03 é ø ┆
0x14e0…1500 00 00 00 00 03 99 99 b9 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ rr¾ ┆
0x1500…1520 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 ┆ ┆
[…0x6…]
0x15e0…1600 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ff ff ff ff ff ff ff ff ff ┆ ┆
0x1600…1620 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 ┆ ┆
[…0xf…]