|
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: 31744 (0x7c00)
Types: GA21-9182-File
Names: »SSR05«
└─⟦7f4ab32d0⟧ Bits:30009823 AS/ENTRY - S/36 SYST SUPP PROG IDENT. S/36 PTFDK3900 FC 1991/9074/9084 Refer to Memo 36714 Product Number 5727SS6 Rel 05 11 Created 19950301 Level 01 Seq 001 of 011
└─⟦this⟧
0x0000…0020 (0,) d7 d4 c9 c7 d9 c1 e3 c5 40 00 00 a2 50 02 b4 00 00 00 00 42 00 00 00 05 00 51 30 00 00 00 00 00 ┆PMIGRATE s& © â é ┆
0x0020…0040 00 00 00 00 00 00 00 00 80 3d 66 00 00 00 00 00 00 00 00 cc 3b 00 00 00 96 61 61 40 d3 c9 c2 d9 ┆ Ø Ã ö o// LIBR┆
0x0040…0060 c1 d9 e8 40 d5 c1 d4 c5 60 7b d4 e8 d3 c9 c2 3a 81 5c 4f 9c 5c 40 e2 c5 e3 40 e4 d7 40 e3 c8 c5 ┆ARY NAME-#MYLIB a*|æ* SET UP THE┆
0x0060…0080 40 d4 c5 e2 e2 c1 c7 c5 40 d4 c5 d4 c2 c5 d9 e2 34 81 5c 4f b9 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 ┆ MESSAGE MEMBERS a*|¾// MEMBER U┆
0x0080…00a0 e2 c5 d9 f1 60 7b d4 e8 7b f1 d4 e2 c7 6b d7 d9 d6 c7 d9 c1 d4 f1 60 7b d4 e8 7b f1 d4 e2 c7 6b ┆SER1-#MY#1MSG,PROGRAM1-#MY#1MSG,┆
0x00a0…00c0 d3 c9 c2 d9 c1 d9 e8 60 7b d4 e8 d3 c9 c2 17 b9 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 e2 c5 d9 f2 60 ┆LIBRARY-#MYLIB ¾// MEMBER USER2-┆
0x00c0…00e0 7b d4 e8 7b f2 d4 e2 c7 6b d7 d9 d6 c7 d9 c1 d4 f2 60 7b d4 e8 7b f2 d4 e2 c7 6b d3 c9 c2 d9 c1 ┆#MY#2MSG,PROGRAM2-#MY#2MSG,LIBRA┆
0x00e0…0100 d9 e8 60 7b d4 e8 d3 c9 c2 17 81 5c 4f a7 5c 40 c9 d5 c9 e3 c9 c1 d3 c9 e9 c5 40 e3 c8 c5 40 e2 ┆RY-#MYLIB a*|x* INITIALIZE THE S┆
0x0100…0120 e8 e2 e3 c5 d4 40 d3 d6 c3 c1 d3 40 c4 c1 e3 c1 40 c1 d9 c5 c1 29 81 5c 4f ab 5c 40 d7 e4 e3 40 ┆YSTEM LOCAL DATA AREA a*|¿* PUT ┆
0x0120…0140 d4 c9 c7 d9 c1 e3 c5 40 c9 d5 e3 d6 40 e3 c8 c5 40 c6 c9 d9 e2 e3 40 f8 40 c2 e8 e3 c5 e2 40 d6 ┆MIGRATE INTO THE FIRST 8 BYTES O┆
0x0140…0160 c6 40 d3 c4 c1 25 b4 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 ┆F LDA ©// LOCAL AREA-SYSTEM,OFFS┆
0x0160…0180 c5 e3 60 f1 6b c4 c1 e3 c1 60 7d d4 c9 c7 d9 c1 e3 c5 7d 6b c2 d3 c1 d5 d2 60 f8 1c 9c 5c 40 d7 ┆ET-1,DATA-'MIGRATE',BLANK-8 æ* P┆
0x0180…01a0 e4 e3 40 e3 c8 c5 40 e4 e2 c5 d9 40 c9 c4 40 c9 d5 40 e3 c8 c5 40 d3 c4 c1 34 b5 61 61 40 d3 d6 ┆UT THE USER ID IN THE LDA §// LO┆
0x01a0…01c0 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f3 f2 f7 6b c4 c1 e3 c1 60 ┆CAL AREA-SYSTEM,OFFSET-327,DATA-┆
0x01c0…01e0 7d 6f e4 e2 c5 d9 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1b ac 5c 40 d7 e4 e3 40 e3 c8 c5 40 c4 c5 c6 c1 ┆'?USER?',BLANK-8 Ð* PUT THE DEFA┆
0x01e0…0200 e4 d3 e3 40 c1 e4 c4 c9 e3 40 c6 c9 d3 c5 40 d5 c1 d4 c5 40 c9 d5 40 e3 c8 c5 40 d3 c4 c1 24 b5 ┆ULT AUDIT FILE NAME IN THE LDA §┆
0x0200…0220 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 f1 f7 6b ┆// LOCAL AREA-SYSTEM,OFFSET-117,┆
0x0220…0240 c4 c1 e3 c1 60 7d 5b d4 e8 c1 e4 c4 7d 6b c2 d3 c1 d5 d2 60 f8 1b 81 5c 4f b2 5c 40 c5 d9 d9 d6 ┆DATA-'$MYAUD',BLANK-8 a*|¥* ERRO┆
0x0240…0260 d9 40 c3 c8 c5 c3 d2 40 f1 e2 e3 40 d7 c1 d9 d4 40 c1 d5 c4 40 d9 d6 e4 e3 c5 40 e3 d6 40 d7 d9 ┆R CHECK 1ST PARM AND ROUTE TO PR┆
0x0260…0280 d6 d7 c5 d9 40 d9 d6 e4 e3 c9 d5 c5 1e 81 5c 4f 9c 61 61 40 c9 c6 40 6f f1 6f 61 c5 e7 d7 d6 d9 ┆OPER ROUTINE a*|æ// IF ?1?/EXPOR┆
0x0280…02a0 e3 40 c7 d6 e3 d6 40 c5 e7 d7 d6 d9 e3 34 9c 61 61 40 c9 c6 40 6f f1 6f 61 c3 d9 c5 c1 e3 c5 40 ┆T GOTO EXPORT æ// IF ?1?/CREATE ┆
0x02a0…02c0 c7 d6 e3 d6 40 c3 d9 c5 c1 e3 c5 34 9c 61 61 40 c9 c6 40 6f f1 6f 61 e2 c5 d3 c5 c3 e3 40 c7 d6 ┆GOTO CREATE æ// IF ?1?/SELECT GO┆
0x02c0…02e0 e3 d6 40 e2 c5 d3 c5 c3 e3 34 9e 61 61 40 c9 c6 40 6f f1 6f 61 c1 d5 c1 d3 e8 e9 c5 40 c7 d6 e3 ┆TO SELECT Æ// IF ?1?/ANALYZE GOT┆
0x02e0…0300 d6 40 c1 d5 c1 d3 e8 e9 c5 32 9c 61 61 40 c9 c6 40 6f f1 6f 61 e2 c1 e5 c5 f3 f6 40 c7 d6 e3 d6 ┆O ANALYZE æ// IF ?1?/SAVE36 GOTO┆
0x0300…0320 40 e2 c1 e5 c5 f3 f6 34 9d 61 61 40 c9 c6 40 6f f1 6f 61 d9 c5 d7 d6 d9 e3 40 c7 d6 e3 d6 40 d9 ┆ SAVE36 ¸// IF ?1?/REPORT GOTO R┆
0x0320…0340 c5 d7 d6 d9 e3 e2 33 94 61 61 40 c9 c6 40 6f f1 6f 61 40 c7 d6 e3 d6 40 d4 c5 d5 e4 3c 81 5c 4f ┆EPORTS m// IF ?1?/ GOTO MENU a*|┆
0x0340…0360 a4 5c 40 d7 c1 d9 d4 40 f1 40 c9 e2 40 c2 c1 c4 6b 40 c9 e2 e2 e4 c5 40 c5 d9 d9 d6 d9 40 d4 c5 ┆u* PARM 1 IS BAD, ISSUE ERROR ME┆
0x0360…0380 e2 e2 c1 c7 c5 2c 81 5c 4f 92 c2 c1 c4 d7 c1 d9 d4 40 d4 c9 c7 d9 c1 e3 c5 6b f0 f1 3e 89 61 61 ┆SSAGE a*|kBADPARM MIGRATE,01 i//┆
0x0380…03a0 40 d9 c5 e3 e4 d9 d5 47 81 5c 4f ad 5c 40 c9 c6 40 d7 c1 d9 d4 40 f1 40 c9 e2 40 c2 d3 c1 d5 d2 ┆ RETURNåa*|Ý* IF PARM 1 IS BLANK┆
0x03a0…03c0 6b 40 d7 e4 e3 40 e4 d7 40 d4 c1 c9 d5 40 d4 c5 d5 e4 40 e2 c3 d9 c5 c5 d5 23 81 5c 4f 8b 61 61 ┆, PUT UP MAIN MENU SCREEN a*|»//┆
0x03c0…03e0 40 e3 c1 c7 40 d4 c5 d5 e4 45 a2 61 61 40 d3 c9 c2 d9 c1 d9 e8 40 d5 c1 d4 c5 60 7b d4 e8 d3 c9 ┆ TAG MENUás// LIBRARY NAME-#MYLI┆
0x03e0…0400 c2 6b e2 c5 e2 e2 c9 d6 d5 60 e8 c5 e2 2e 9c 61 61 40 c9 c6 c6 40 c4 e2 d7 d3 e8 60 c9 c7 c3 40 ┆B,SESSION-YES æ// IFF DSPLY-IGC ┆
0x0400…0420 (1,) d4 c5 d5 e4 40 d4 e8 d4 f0 f0 f1 34 9b 61 61 40 c9 c6 40 c4 e2 d7 d3 e8 60 c9 c7 c3 40 d4 c5 d5 ┆MENU MYM001 º// IF DSPLY-IGC MEN┆
0x0420…0440 e4 40 d4 e8 c4 f0 f0 f1 35 89 61 61 40 d9 c5 e3 e4 d9 d5 47 81 5c 4f c7 5c 5c 5c 5c 5c 5c 5c 5c ┆U MYD001 i// RETURNåa*|G********┆
0x0440…0460 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 ┆********************************┆
0x0460…0480 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 09 ┆******************************* ┆
0x0480…04a0 81 5c 04 8e d4 c9 c7 d9 c1 e3 c5 40 c3 d9 c5 c1 e3 c5 33 81 5c 09 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆a* þMIGRATE CREATE a* G*********┆
0x04a0…04c0 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 ┆********************************┆
0x04c0…04e0 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 09 81 ┆****************************** a┆
0x04e0…0500 5c 4f 8d 61 61 40 e3 c1 c7 40 c3 d9 c5 c1 e3 c5 43 81 5c 4f ae 5c 40 d4 c1 d2 c5 40 e2 e4 d9 c5 ┆*|ý// TAG CREATEäa*|Þ* MAKE SURE┆
0x0500…0520 40 e4 e2 c5 d9 40 c5 d5 e3 c5 d9 c5 c4 40 c1 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 d5 ┆ USER ENTERED A SELECTION FILE N┆
0x0520…0540 c1 d4 c5 22 8a 61 61 40 c9 c6 40 6f f2 6f 61 02 90 7b c5 d9 d9 40 f1 f5 f1 f2 6b f3 6b d4 c9 c7 ┆AME «// IF ?2?/ °#ERR 1512,3,MIG┆
0x0540…0560 d9 34 81 5c 4f a4 5c 40 d7 e4 e3 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 d5 c1 d4 c5 40 ┆R a*|u* PUT SELECTION FILE NAME ┆
0x0560…0580 c9 e2 40 e3 c8 c5 40 d3 c4 c1 2c b2 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 ┆IS THE LDA ¥// LOCAL AREA-SYSTEM┆
0x0580…05a0 6b d6 c6 c6 e2 c5 e3 60 f1 f0 f1 6b c4 c1 e3 c1 60 7d 6f f2 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1e 81 ┆,OFFSET-101,DATA-'?2?',BLANK-8 a┆
0x05a0…05c0 5c 4f b6 5c 40 d4 c1 d2 c5 40 e2 e4 d9 c5 40 e3 c8 c5 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 ┆*|¶* MAKE SURE THE SELECTION FIL┆
0x05c0…05e0 c5 40 c4 d6 c5 e2 40 d5 d6 e3 40 e2 e3 c1 d9 e3 40 e6 c9 e3 c8 40 5b d4 e8 1a a9 61 61 40 c9 c6 ┆E DOES NOT START WITH $MY z// IF┆
0x05e0…0600 40 6f d3 7d f1 f0 f1 6b f3 7d 6f 7e 5b d4 e8 40 7b c5 d9 d9 40 f1 f5 f0 f1 6b f3 6b d4 c9 c7 d9 ┆ ?L'101,3'?=$MY #ERR 1501,3,MIGR┆
0x0600…0620 6b 6f f2 6f 27 81 5c 4f af 5c 40 c3 c8 c5 c3 d2 40 c9 c6 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 ┆,?2? a*|®* CHECK IF SELECTION FI┆
0x0620…0640 d3 c5 40 c5 e7 c9 e2 e3 e2 6b 40 c9 e3 40 e2 c8 d6 e4 d3 c4 40 d5 d6 e3 21 a5 61 61 40 c9 c6 40 ┆LE EXISTS, IT SHOULD NOT v// IF ┆
0x0640…0660 c4 c1 e3 c1 c6 f1 60 6f f2 6f 40 7b c5 d9 d9 40 f1 f5 f1 f0 6b f3 6b d4 c9 c7 d9 6b 6f f2 6f 2b ┆DATAF1-?2? #ERR 1510,3,MIGR,?2? ┆
0x0660…0680 81 5c 4f ab 5c 40 e4 e2 c5 40 c2 d3 c4 c6 c9 d3 c5 40 d7 d9 d6 c3 40 e3 d6 40 c3 d9 c5 c1 e3 c5 ┆a*|¿* USE BLDFILE PROC TO CREATE┆
0x0680…06a0 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 25 81 5c 4f ab c2 d3 c4 c6 c9 d3 c5 40 6f f2 6f 6b ┆ SELECTION FILE a*|¿BLDFILE ?2?,┆
0x06a0…06c0 c9 6b d9 6b 6f f4 7d f8 f0 7d 6f 6b f3 f2 6b 6b 6b f1 6b f9 6b 6b c4 e4 d7 d2 c5 e8 6b f8 f0 25 ┆I,R,?4'80'?,32,,,1,9,,DUPKEY,80 ┆
0x06c0…06e0 81 5c 4f a6 5c 40 d7 e4 e3 40 d4 c9 c7 d9 c1 e3 c9 d6 d5 40 d9 e4 d5 40 c4 c5 e2 c3 d9 c9 d7 e3 ┆a*|w* PUT MIGRATION RUN DESCRIPT┆
0x06e0…0700 c9 d6 d5 40 c9 d5 40 d3 c4 c1 2a b3 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 ┆ION IN LDA ·// LOCAL AREA-SYSTEM┆
0x0700…0720 6b d6 c6 c6 e2 c5 e3 60 f1 f2 f5 6b c4 c1 e3 c1 60 7d 6f f3 6f 7d 6b c2 d3 c1 d5 d2 60 f4 f0 1d ┆,OFFSET-125,DATA-'?3?',BLANK-40 ┆
0x0720…0740 81 5c 4f bf 5c 40 e2 c5 e3 40 e4 d7 40 7b d4 e8 c3 d9 40 d6 d7 c3 d6 c4 c5 40 4d d4 e8 d3 c4 c3 ┆a*|×* SET UP #MYCR OPCODE (MYLDC┆
0x0740…0760 e4 d6 d7 5d 40 e3 d6 40 c3 d9 c5 c1 e3 c5 40 c1 40 d5 c5 e6 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 ┆UOP) TO CREATE A NEW SELECTION F┆
0x0760…0780 c9 d3 c5 11 95 5c 40 d4 e8 d3 c4 c3 e4 d6 d7 40 7e 40 d4 e8 d3 c4 c3 d9 c5 e3 3b a8 61 61 40 d3 ┆ILE n* MYLDCUOP = MYLDCRET y// L┆
0x0780…07a0 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f3 f9 6b c4 c1 e3 c1 ┆OCAL AREA-SYSTEM,OFFSET-239,DATA┆
0x07a0…07c0 60 7d f1 7d 28 81 5c 4f bc 5c 40 c3 c1 d3 d3 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 e4 ┆-'1' a*|¯* CALL SELECTION FILE U┆
0x07c0…07e0 d7 c4 c1 e3 c5 40 d7 d9 d6 c7 d9 c1 d4 40 e3 d6 40 e6 d9 c9 e3 c5 40 c8 c5 c1 c4 c5 d9 40 d9 c5 ┆PDATE PROGRAM TO WRITE HEADER RE┆
0x07e0…0800 c3 d6 d9 c4 e2 14 94 61 61 40 d3 d6 c1 c4 40 7b d4 e8 c3 d9 6b 7b d4 e8 d3 c9 c2 3c a6 61 61 40 ┆CORDS m// LOAD #MYCR,#MYLIB w// ┆
0x0800…0820 (2,) c6 c9 d3 c5 40 d5 c1 d4 c5 60 e2 c5 d3 c5 c3 e3 6b d3 c1 c2 c5 d3 60 6f f2 6f 6b c4 c9 e2 d7 60 ┆FILE NAME-SELECT,LABEL-?2?,DISP-┆
0x0820…0840 d6 d3 c4 2a 86 61 61 40 d9 e4 d5 4a 89 61 61 40 d9 c5 e3 e4 d9 d5 47 81 5c 4f c7 5c 5c 5c 5c 5c ┆OLD f// RUN¢i// RETURNåa*|G*****┆
0x0840…0860 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…]
0x0880…08a0 5c 5c 09 81 5c 04 8e d4 c9 c7 d9 c1 e3 c5 40 e2 c5 d3 c5 c3 e3 33 81 5c 09 c7 5c 5c 5c 5c 5c 5c ┆** a* þMIGRATE SELECT a* G******┆
0x08a0…08c0 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…]
0x08e0…0900 5c 09 81 5c 4f 8d 61 61 40 e3 c1 c7 40 e2 c5 d3 c5 c3 e3 43 81 5c 4f b6 61 61 40 d3 d6 c3 c1 d3 ┆* a*|ý// TAG SELECTäa*|¶// LOCAL┆
0x0900…0920 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 d4 c9 c7 d9 ┆ AREA-SYSTEM,OFFSET-1,DATA-'MIGR┆
0x0920…0940 c1 e3 c5 7d 6b c2 d3 c1 d5 d2 60 f5 f1 f2 1a b5 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 ┆ATE',BLANK-512 §// LOCAL AREA-SY┆
0x0940…0960 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 f1 f7 6b c4 c1 e3 c1 60 7d 5b d4 e8 c1 e4 c4 7d 6b c2 d3 ┆STEM,OFFSET-117,DATA-'$MYAUD',BL┆
0x0960…0980 c1 d5 d2 60 f8 1b b5 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 ┆ANK-8 §// LOCAL AREA-SYSTEM,OFFS┆
0x0980…09a0 c5 e3 60 f3 f2 f7 6b c4 c1 e3 c1 60 7d 6f e4 e2 c5 d9 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1b 81 5c 4f ┆ET-327,DATA-'?USER?',BLANK-8 a*|┆
0x09a0…09c0 ae 5c 40 d4 c1 d2 c5 40 e2 e4 d9 c5 40 e4 e2 c5 d9 40 c5 d5 e3 c5 d9 c5 c4 40 c1 40 e2 c5 d3 c5 ┆Þ* MAKE SURE USER ENTERED A SELE┆
0x09c0…09e0 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 d5 c1 d4 c5 22 8a 61 61 40 c9 c6 40 6f f8 6f 61 02 90 7b c5 d9 ┆CTION FILE NAME «// IF ?8?/ °#ER┆
0x09e0…0a00 d9 40 f1 f5 f1 f2 6b f3 6b d4 c9 c7 d9 34 81 5c 4f a4 5c 40 d7 e4 e3 40 e2 c5 d3 c5 c3 e3 c9 d6 ┆R 1512,3,MIGR a*|u* PUT SELECTIO┆
0x0a00…0a20 d5 40 c6 c9 d3 c5 40 d5 c1 d4 c5 40 c9 e2 40 e3 c8 c5 40 d3 c4 c1 2c b2 61 61 40 d3 d6 c3 c1 d3 ┆N FILE NAME IS THE LDA ¥// LOCAL┆
0x0a20…0a40 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 f0 f1 6b c4 c1 e3 c1 60 7d 6f f8 ┆ AREA-SYSTEM,OFFSET-101,DATA-'?8┆
0x0a40…0a60 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1e 81 5c 4f b6 5c 40 d4 c1 d2 c5 40 e2 e4 d9 c5 40 e3 c8 c5 40 e2 ┆?',BLANK-8 a*|¶* MAKE SURE THE S┆
0x0a60…0a80 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 c4 d6 c5 e2 40 d5 d6 e3 40 e2 e3 c1 d9 e3 40 e6 c9 e3 ┆ELECTION FILE DOES NOT START WIT┆
0x0a80…0aa0 c8 40 5b d4 e8 1a a9 61 61 40 c9 c6 40 6f d3 7d f1 f0 f1 6b f3 7d 6f 7e 5b d4 e8 40 7b c5 d9 d9 ┆H $MY z// IF ?L'101,3'?=$MY #ERR┆
0x0aa0…0ac0 40 f1 f5 f0 f1 6b f3 6b d4 c9 c7 d9 6b 6f f8 6f 27 81 5c 4f ab 5c 40 c3 c8 c5 c3 d2 40 c9 c6 40 ┆ 1501,3,MIGR,?8? a*|¿* CHECK IF ┆
0x0ac0…0ae0 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 c5 e7 c9 e2 e3 e2 6b 40 c9 e3 40 e2 c8 d6 e4 d3 c4 ┆SELECTION FILE EXISTS, IT SHOULD┆
0x0ae0…0b00 25 a6 61 61 40 c9 c6 c6 40 c4 c1 e3 c1 c6 f1 60 6f f8 6f 40 7b c5 d9 d9 40 f1 f5 f1 f1 6b f3 6b ┆ w// IFF DATAF1-?8? #ERR 1511,3,┆
0x0b00…0b20 d4 c9 c7 d9 6b 6f f8 6f 2a 81 5c 4f 94 5c 40 c5 d9 d9 d6 d9 40 c3 c8 c5 c3 d2 40 d7 c1 d9 d4 40 ┆MIGR,?8? a*|m* ERROR CHECK PARM ┆
0x0b20…0b40 f2 3c 81 5c 4f d0 61 61 40 c9 c6 c6 40 6f f2 6f 61 40 c9 c6 c6 40 6f f2 6f 61 c1 d3 d3 40 c9 c6 ┆2 a*|}// IFF ?2?/ IFF ?2?/ALL IF┆
0x0b40…0b60 c6 40 6f f2 6f 61 d3 c9 c2 d9 c1 d9 e8 40 c9 c6 c6 40 6f f2 6f 61 c6 c9 d3 c5 40 c9 c6 c6 40 6f ┆F ?2?/LIBRARY IFF ?2?/FILE IFF ?┆
0x0b60…0b80 f2 6f 61 e4 e2 c5 d9 40 c7 d6 e3 d6 40 e2 d3 f2 d4 d6 d9 c5 f1 40 8e 61 61 40 c7 d6 e3 d6 40 e2 ┆2?/USER GOTO SL2MORE1 þ// GOTO S┆
0x0b80…0ba0 d3 c3 c8 d2 f5 42 81 5c 4f 8f 61 61 40 e3 c1 c7 40 e2 d3 f2 d4 d6 d9 c5 f1 41 cd 61 61 40 c9 c6 ┆LCHK5âa*|±// TAG SL2MORE1 ò// IF┆
0x0ba0…0bc0 c6 40 6f f2 6f 61 c6 d6 d3 c4 c5 d9 40 c9 c6 c6 40 6f f2 6f 61 e2 d7 c5 d3 c4 c9 c3 e3 40 c9 c6 ┆F ?2?/FOLDER IFF ?2?/SPELDICT IF┆
0x0bc0…0be0 c6 40 6f f2 6f 61 c4 c1 e3 c1 c4 c9 c3 e3 40 c9 c6 c6 40 6f f2 6f 61 d5 d9 c4 40 c7 d6 e3 d6 40 ┆F ?2?/DATADICT IFF ?2?/NRD GOTO ┆
0x0be0…0c00 e2 d3 f2 d4 d6 d9 c5 f2 03 8e 61 61 40 c7 d6 e3 d6 40 e2 d3 c3 c8 d2 f5 42 81 5c 4f 8f 61 61 40 ┆SL2MORE2 þ// GOTO SLCHK5âa*|±// ┆
0x0c00…0c20 (3,) e3 c1 c7 40 e2 d3 f2 d4 d6 d9 c5 f2 41 a2 61 61 40 c9 c6 c6 40 6f f2 6f 61 d4 c1 e2 e3 c5 d9 40 ┆TAG SL2MORE2 s// IFF ?2?/MASTER ┆
0x0c20…0c40 c2 c1 c4 d7 c1 d9 d4 40 e2 c5 d3 c5 c3 e3 6b f2 2e 81 5c 4f 94 5c 40 c5 d9 d9 d6 d9 40 c3 c8 c5 ┆BADPARM SELECT,2 a*|m* ERROR CHE┆
0x0c40…0c60 c3 d2 40 d7 c1 d9 d4 40 f5 3c 81 5c 4f 8d 61 61 40 e3 c1 c7 40 e2 d3 c3 c8 d2 f5 43 c0 61 61 40 ┆CK PARM 5 a*|ý// TAG SLCHK5ä{// ┆
0x0c60…0c80 c9 c6 c6 40 6f f5 6f 61 40 c9 c6 c6 40 6f f5 6f 61 c4 c1 e3 c1 40 c9 c6 c6 40 6f f5 6f 61 c6 c3 ┆IFF ?5?/ IFF ?5?/DATA IFF ?5?/FC┆
0x0c80…0ca0 e3 40 c9 c6 c6 40 6f f5 6f 61 e2 e3 d9 c5 c1 d4 40 c7 d6 e3 d6 40 e2 d3 f5 d4 d6 d9 c5 10 8f 61 ┆T IFF ?5?/STREAM GOTO SL5MORE ±/┆
0x0ca0…0cc0 61 40 c7 d6 e3 d6 40 e2 d3 c3 d6 d4 c2 d6 41 81 5c 4f 8e 61 61 40 e3 c1 c7 40 e2 d3 f5 d4 d6 d9 ┆/ GOTO SLCOMBO a*|þ// TAG SL5MOR┆
0x0cc0…0ce0 c5 42 c0 61 61 40 c9 c6 c6 40 6f f5 6f 61 e4 d5 c6 d6 d9 d4 c1 e3 40 c9 c6 c6 40 6f f5 6f 61 c2 ┆Eâ{// IFF ?5?/UNFORMAT IFF ?5?/B┆
0x0ce0…0d00 c7 e4 c7 c4 c9 c6 40 c9 c6 c6 40 6f f5 6f 61 c1 d7 c6 40 c2 c1 c4 d7 c1 d9 d4 40 e2 c5 d3 c5 c3 ┆GUGDIF IFF ?5?/APF BADPARM SELEC┆
0x0d00…0d20 e3 6b f5 10 81 5c 4f a6 5c 40 c5 d9 d9 d6 d9 40 c3 c8 c5 c3 d2 40 c6 d6 d9 40 c9 d3 d3 c5 c7 c1 ┆T,5 a*|w* ERROR CHECK FOR ILLEGA┆
0x0d20…0d40 d3 40 c3 d6 d4 c2 c9 d5 c1 e3 c9 d6 d5 e2 2a 81 5c 4f 8e 61 61 40 e3 c1 c7 40 e2 d3 c3 d6 d4 c2 ┆L COMBINATIONS a*|þ// TAG SLCOMB┆
0x0d40…0d60 d6 42 a9 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 c6 40 6f f2 6f 7e d5 d9 c4 40 7b c5 d9 d9 ┆Oâz// IFF ?3?='' IF ?2?=NRD #ERR┆
0x0d60…0d80 40 f1 f5 f2 f0 6b f3 6b d4 c9 c7 d9 27 ac 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 c6 40 6f ┆ 1520,3,MIGR Ð// IFF ?3?='' IF ?┆
0x0d80…0da0 f2 6f 7e d4 c1 e2 e3 c5 d9 40 7b c5 d9 d9 40 f1 f5 f2 f1 6b f3 6b d4 c9 c7 d9 24 ab 61 61 40 c9 ┆2?=MASTER #ERR 1521,3,MIGR ¿// I┆
0x0da0…0dc0 c6 c6 40 6f f4 6f 7e 7d 7d 40 c9 c6 c6 40 6f f2 6f 7e c6 c9 d3 c5 40 7b c5 d9 d9 40 f1 f5 f2 f5 ┆FF ?4?='' IFF ?2?=FILE #ERR 1525┆
0x0dc0…0de0 6b f3 6b d4 c9 c7 d9 25 ab 61 61 40 c9 c6 c6 40 6f f5 6f 7e 7d 7d 40 c9 c6 c6 40 6f f2 6f 7e c6 ┆,3,MIGR ¿// IFF ?5?='' IFF ?2?=F┆
0x0de0…0e00 c9 d3 c5 40 7b c5 d9 d9 40 f1 f5 f2 f6 6b f3 6b d4 c9 c7 d9 25 ae 61 61 40 c9 c6 c6 40 6f f6 6f ┆ILE #ERR 1526,3,MIGR Þ// IFF ?6?┆
0x0e00…0e20 7e 7d 7d 40 c9 c6 c6 40 6f f2 6f 7e d3 c9 c2 d9 c1 d9 e8 40 7b c5 d9 d9 40 f1 f5 f2 f7 6b f3 6b ┆='' IFF ?2?=LIBRARY #ERR 1527,3,┆
0x0e20…0e40 d4 c9 c7 d9 22 ae 61 61 40 c9 c6 c6 40 6f f7 6f 7e 7d 7d 40 c9 c6 c6 40 6f f2 6f 7e d3 c9 c2 d9 ┆MIGR Þ// IFF ?7?='' IFF ?2?=LIBR┆
0x0e40…0e60 c1 d9 e8 40 7b c5 d9 d9 40 f1 f5 f2 f8 6b f3 6b d4 c9 c7 d9 22 81 5c 4f a3 5c 40 c9 c6 40 d7 c1 ┆ARY #ERR 1528,3,MIGR a*|t* IF PA┆
0x0e60…0e80 d9 d4 e2 40 e6 c5 d9 c5 40 c2 d3 c1 d5 d2 6b 40 c4 c5 c6 c1 e4 d3 e3 40 e3 c8 c5 d4 2d 81 5c 4f ┆RMS WERE BLANK, DEFAULT THEM a*|┆
0x0e80…0ea0 a0 61 61 40 c9 c6 40 6f f2 6f 7e 7d 7d 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f2 7e d3 c9 c2 d9 c1 d9 ┆µ// IF ?2?='' EVALUATE P2=LIBRAR┆
0x0ea0…0ec0 e8 30 9d 61 61 40 c9 c6 40 6f f7 6f 7e 7d 7d 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f7 7e c3 d6 d4 d7 ┆Y ¸// IF ?7?='' EVALUATE P7=COMP┆
0x0ec0…0ee0 33 81 5c 4f 96 5c 40 d7 e4 e3 40 d7 c1 d9 d4 e2 40 c9 d5 40 e3 c8 c5 40 d3 c4 c1 3a 81 5c 4f 90 ┆ a*|o* PUT PARMS IN THE LDA a*|°┆
0x0ee0…0f00 5c 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 e3 e8 d7 c5 40 a7 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 ┆* SELECTION TYPE x// LOCAL AREA-┆
0x0f00…0f20 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f1 f3 6b c2 d3 c1 d5 d2 60 f1 29 b3 61 61 40 c9 c6 ┆SYSTEM,OFFSET-213,BLANK-1 ·// IF┆
0x0f20…0f40 40 6f f2 6f 7e c1 d3 d3 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 ┆ ?2?=ALL LOCAL AREA-SYSTEM,OFFSE┆
0x0f40…0f60 e3 60 f2 f1 f3 6b c4 c1 e3 c1 60 7d c1 7d 1d b7 61 61 40 c9 c6 40 6f f2 6f 7e d3 c9 c2 d9 c1 d9 ┆T-213,DATA-'A' ¼// IF ?2?=LIBRAR┆
0x0f60…0f80 e8 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 f2 f1 f3 6b c4 ┆Y LOCAL AREA-SYSTEM,OFFSET-213,D┆
0x0f80…0fa0 c1 e3 c1 60 7d d3 7d 19 b4 61 61 40 c9 c6 40 6f f2 6f 7e c6 c9 d3 c5 40 d3 d6 c3 c1 d3 40 c1 d9 ┆ATA-'L' ©// IF ?2?=FILE LOCAL AR┆
0x0fa0…0fc0 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f1 f3 6b c4 c1 e3 c1 60 7d c6 7d 1c b4 61 ┆EA-SYSTEM,OFFSET-213,DATA-'F' ©/┆
0x0fc0…0fe0 61 40 c9 c6 40 6f f2 6f 7e e4 e2 c5 d9 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b ┆/ IF ?2?=USER LOCAL AREA-SYSTEM,┆
0x0fe0…1000 d6 c6 c6 e2 c5 e3 60 f2 f1 f3 6b c4 c1 e3 c1 60 7d e4 7d 1c b6 61 61 40 c9 c6 40 6f f2 6f 7e c6 ┆OFFSET-213,DATA-'U' ¶// IF ?2?=F┆
0x1000…1020 (4,) d6 d3 c4 c5 d9 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 f2 ┆OLDER LOCAL AREA-SYSTEM,OFFSET-2┆
0x1020…1040 f1 f3 6b c4 c1 e3 c1 60 7d e6 7d 1a b8 61 61 40 c9 c6 40 6f f2 6f 7e e2 d7 c5 d3 c4 c9 c3 e3 40 ┆13,DATA-'W' ½// IF ?2?=SPELDICT ┆
0x1040…1060 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 f2 f1 f3 6b c4 c1 e3 ┆LOCAL AREA-SYSTEM,OFFSET-213,DAT┆
0x1060…1080 c1 60 7d d7 7d 18 b8 61 61 40 c9 c6 40 6f f2 6f 7e c4 c1 e3 c1 c4 c9 c3 e3 40 d3 d6 c3 c1 d3 40 ┆A-'P' ½// IF ?2?=DATADICT LOCAL ┆
0x1080…10a0 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f1 f3 6b c4 c1 e3 c1 60 7d c4 7d 18 ┆AREA-SYSTEM,OFFSET-213,DATA-'D' ┆
0x10a0…10c0 b3 61 61 40 c9 c6 40 6f f2 6f 7e d5 d9 c4 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 ┆·// IF ?2?=NRD LOCAL AREA-SYSTEM┆
0x10c0…10e0 6b d6 c6 c6 e2 c5 e3 60 f2 f1 f3 6b c4 c1 e3 c1 60 7d d5 7d 1d b6 61 61 40 c9 c6 40 6f f2 6f 7e ┆,OFFSET-213,DATA-'N' ¶// IF ?2?=┆
0x10e0…1100 d4 c1 e2 e3 c5 d9 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 ┆MASTER LOCAL AREA-SYSTEM,OFFSET-┆
0x1100…1120 f2 f1 f3 6b c4 c1 e3 c1 60 7d d4 7d 1a 81 5c 4f 8b 5c 40 c9 e3 c5 d4 40 d5 c1 d4 c5 45 b2 61 61 ┆213,DATA-'M' a*|»* ITEM NAMEá¥//┆
0x1120…1140 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 f2 f1 f4 6b c4 c1 ┆ LOCAL AREA-SYSTEM,OFFSET-214,DA┆
0x1140…1160 e3 c1 60 7d 6f f3 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1e 81 5c 4f 86 5c 40 c4 c1 e3 c5 4a b2 61 61 40 ┆TA-'?3?',BLANK-8 a*|f* DATE¢¥// ┆
0x1160…1180 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 f2 f2 f2 6b c4 c1 e3 ┆LOCAL AREA-SYSTEM,OFFSET-222,DAT┆
0x1180…11a0 c1 60 7d 6f f4 6f 7d 6b c2 d3 c1 d5 d2 60 f6 1e 81 5c 4f 8b 5c 40 c6 c9 d3 c5 40 e3 e8 d7 c5 45 ┆A-'?4?',BLANK-6 a*|»* FILE TYPEá┆
0x11a0…11c0 a7 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 f2 f2 f8 ┆x// LOCAL AREA-SYSTEM,OFFSET-228┆
0x11c0…11e0 6b c2 d3 c1 d5 d2 60 f1 29 b4 61 61 40 c9 c6 40 6f f5 6f 7e c4 c1 e3 c1 40 d3 d6 c3 c1 d3 40 c1 ┆,BLANK-1 ©// IF ?5?=DATA LOCAL A┆
0x11e0…1200 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f2 f8 6b c4 c1 e3 c1 60 7d f1 7d 1c b3 ┆REA-SYSTEM,OFFSET-228,DATA-'1' ·┆
0x1200…1220 61 61 40 c9 c6 40 6f f5 6f 7e c6 c3 e3 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b ┆// IF ?5?=FCT LOCAL AREA-SYSTEM,┆
0x1220…1240 d6 c6 c6 e2 c5 e3 60 f2 f2 f8 6b c4 c1 e3 c1 60 7d f2 7d 1d b6 61 61 40 c9 c6 40 6f f5 6f 7e e2 ┆OFFSET-228,DATA-'2' ¶// IF ?5?=S┆
0x1240…1260 e3 d9 c5 c1 d4 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 f2 ┆TREAM LOCAL AREA-SYSTEM,OFFSET-2┆
0x1260…1280 f2 f8 6b c4 c1 e3 c1 60 7d f3 7d 1a b8 61 61 40 c9 c6 40 6f f5 6f 7e e4 d5 c6 d6 d9 d4 c1 e3 40 ┆28,DATA-'3' ½// IF ?5?=UNFORMAT ┆
0x1280…12a0 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 f2 f2 f8 6b c4 c1 e3 ┆LOCAL AREA-SYSTEM,OFFSET-228,DAT┆
0x12a0…12c0 c1 60 7d f4 7d 18 b7 61 61 40 c9 c6 40 6f f5 6f 7e c2 c7 e4 c7 c4 c9 c6 40 d3 d6 c3 c1 d3 40 c1 ┆A-'4' ¼// IF ?5?=BGUGDIF LOCAL A┆
0x12c0…12e0 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f2 f8 6b c4 c1 e3 c1 60 7d f5 7d 19 b3 ┆REA-SYSTEM,OFFSET-228,DATA-'5' ·┆
0x12e0…1300 61 61 40 c9 c6 40 6f f5 6f 7e c1 d7 c6 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b ┆// IF ?5?=APF LOCAL AREA-SYSTEM,┆
0x1300…1320 d6 c6 c6 e2 c5 e3 60 f2 f2 f8 6b c4 c1 e3 c1 60 7d f6 7d 1d 81 5c 4f 89 5c 40 d3 d6 c1 c4 d3 c9 ┆OFFSET-228,DATA-'6' a*|i* LOADLI┆
0x1320…1340 c2 47 b2 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 f2 ┆Bå¥// LOCAL AREA-SYSTEM,OFFSET-2┆
0x1340…1360 f2 f9 6b c4 c1 e3 c1 60 7d 6f f6 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1e 81 5c 4f 8d 5c 40 c3 d6 d4 d7 ┆29,DATA-'?6?',BLANK-8 a*|ý* COMP┆
0x1360…1380 61 d5 d6 c3 d6 d4 d7 43 bc 61 61 40 c9 c6 40 6f f7 6f 7e c3 d6 d4 d7 40 d3 d6 c3 c1 d3 40 c1 d9 ┆/NOCOMPä¯// IF ?7?=COMP LOCAL AR┆
0x1380…13a0 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f2 f3 f7 6b c4 c1 e3 c1 60 7d f1 7d 6b c2 d3 ┆EA-SYSTEM,OFFSET-237,DATA-'1',BL┆
0x13a0…13c0 c1 d5 d2 60 f1 14 b5 61 61 40 c5 d3 e2 c5 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 ┆ANK-1 §// ELSE LOCAL AREA-SYSTEM┆
0x13c0…13e0 6b d6 c6 c6 e2 c5 e3 60 f2 f3 f7 6b c4 c1 e3 c1 60 7d f2 7d 6b c2 d3 c1 d5 d2 60 f1 1b 81 5c 4f ┆,OFFSET-237,DATA-'2',BLANK-1 a*|┆
0x13e0…1400 95 5c 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 d5 c1 d4 c5 3b b2 61 61 40 d3 d6 c3 c1 d3 ┆n* SELECTION FILE NAME ¥// LOCAL┆
0x1400…1420 (5,) 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 c6 c6 e2 c5 e3 60 f1 f0 f1 6b c4 c1 e3 c1 60 7d 6f f8 ┆ AREA-SYSTEM,OFFSET-101,DATA-'?8┆
0x1420…1440 6f 7d 6b c2 d3 c1 d5 d2 60 f8 1e 81 5c 4f 97 61 61 40 c9 c6 40 6f f2 6f 7e c1 d3 d3 40 c7 d6 e3 ┆?',BLANK-8 a*|p// IF ?2?=ALL GOT┆
0x1440…1460 d6 40 e2 c1 d3 d3 39 81 5c 4f c6 5c 40 e2 c5 e3 40 e4 d7 40 7b d4 e8 c3 d9 40 d6 d7 c3 d6 c4 c5 ┆O SALL a*|F* SET UP #MYCR OPCODE┆
0x1460…1480 40 4d d4 e8 d3 c4 c3 e4 d6 d7 5d 40 e3 d6 40 c1 c4 c4 40 c1 40 d5 c5 e6 40 d9 c5 c3 d6 d9 c4 40 ┆ (MYLDCUOP) TO ADD A NEW RECORD ┆
0x1480…14a0 e3 d6 40 e2 c5 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 0a 95 5c 40 d4 e8 d3 c4 c3 e4 d6 d7 40 7e 40 ┆TO SELECTION FILE n* MYLDCUOP = ┆
0x14a0…14c0 d4 e8 d3 c4 e4 d7 c4 e3 3b a8 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 c5 c1 60 e2 e8 e2 e3 c5 d4 6b d6 ┆MYLDUPDT y// LOCAL AREA-SYSTEM,O┆
0x14c0…14e0 c6 c6 e2 c5 e3 60 f2 f3 f9 6b c4 c1 e3 c1 60 7d f2 7d 28 81 5c 4f a4 5c 40 c3 c1 d3 d3 40 e2 c5 ┆FFSET-239,DATA-'2' a*|u* CALL SE┆
0x14e0…1500 d3 c5 c3 e3 c9 d6 d5 40 c6 c9 d3 c5 40 e4 d7 c4 c1 e3 c5 40 d7 d9 d6 c7 d9 c1 d4 2c 81 5c 4f 94 ┆LECTION FILE UPDATE PROGRAM a*|m┆
0x1500…1520 61 61 40 d3 d6 c1 c4 40 7b d4 e8 c3 d9 6b 7b d4 e8 d3 c9 c2 3c a6 61 61 40 c6 c9 d3 c5 40 d5 c1 ┆// LOAD #MYCR,#MYLIB w// FILE NA┆
0x1520…1540 d4 c5 60 e2 c5 d3 c5 c3 e3 6b d3 c1 c2 c5 d3 60 6f f8 6f 6b c4 c9 e2 d7 60 d6 d3 c4 2a 86 61 61 ┆ME-SELECT,LABEL-?8?,DISP-OLD f//┆
0x1540…1560 40 d9 e4 d5 4a 89 61 61 40 d9 c5 e3 e4 d9 d5 47 81 5c 4f 8b 61 61 40 e3 c1 c7 40 e2 c1 d3 d3 45 ┆ RUN¢i// RETURNåa*|»// TAG SALLá┆
0x1560…1580 81 5c 4f 99 5c 40 c3 c1 d3 d3 40 e2 c5 d3 c5 c3 e3 40 c1 d3 d3 40 d7 d9 d6 c7 d9 c1 d4 37 81 5c ┆a*|r* CALL SELECT ALL PROGRAM a*┆
0x1580…15a0 4f 94 61 61 40 d3 d6 c1 c4 40 7b d4 e8 e2 c1 6b 7b d4 e8 d3 c9 c2 3c 86 61 61 40 d9 e4 d5 4a 89 ┆|m// LOAD #MYSA,#MYLIB f// RUN¢i┆
0x15a0…15c0 61 61 40 d9 c5 e3 e4 d9 d5 47 81 5c 4f c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆// RETURNåa*|G******************┆
0x15c0…15e0 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 ┆********************************┆
0x15e0…1600 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 09 81 5c 04 8f d4 c9 c7 d9 c1 e3 ┆********************* a* ±MIGRAT┆
0x1600…1620 c5 40 c1 d5 c1 d3 e8 e9 c5 32 81 5c 09 c7 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c ┆E ANALYZE a* G******************┆
0x1620…1640 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 ┆********************************┆
0x1640…1660 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 5c 09 81 5c 4f 8e 61 61 40 e3 c1 c7 ┆********************* a*|þ// TAG┆
0x1660…1680 40 c1 d5 c1 d3 e8 e9 c5 42 81 5c 4f 94 5c 40 c5 d9 d9 d6 d9 40 c3 c8 c5 c3 d2 40 d7 c1 d9 d4 40 ┆ ANALYZEâa*|m* ERROR CHECK PARM ┆
0x1680…16a0 f2 3c 81 5c 4f c7 61 61 40 c9 c6 c6 40 6f f2 6f 61 40 c9 c6 c6 40 6f f2 6f 61 d3 c9 e2 e3 c1 d3 ┆2 a*|G// IFF ?2?/ IFF ?2?/LISTAL┆
0x16a0…16c0 d3 40 c9 c6 c6 40 6f f2 6f 61 e2 e8 e2 e3 c5 d4 40 c9 c6 c6 40 6f f2 6f 61 d3 c9 c2 d9 c1 d9 e8 ┆L IFF ?2?/SYSTEM IFF ?2?/LIBRARY┆
0x16c0…16e0 40 c7 d6 e3 d6 40 c1 d5 f2 d4 d6 d9 c5 09 8e 61 61 40 c7 d6 e3 d6 40 c1 d5 c3 c8 d2 f4 42 81 5c ┆ GOTO AN2MORE þ// GOTO ANCHK4âa*┆
0x16e0…1700 4f 8e 61 61 40 e3 c1 c7 40 c1 d5 f2 d4 d6 d9 c5 42 c5 61 61 40 c9 c6 c6 40 6f f2 6f 61 e2 c5 c3 ┆|þ// TAG AN2MOREâE// IFF ?2?/SEC┆
0x1700…1720 e4 d9 c9 e3 e8 40 c9 c6 c6 40 6f f2 6f 61 c4 c1 e3 c1 c4 c9 c3 e3 40 c9 c6 c6 40 6f f2 6f 61 d4 ┆URITY IFF ?2?/DATADICT IFF ?2?/M┆
0x1720…1740 c1 e2 e3 c5 d9 40 c2 c1 c4 d7 c1 d9 d4 40 c1 d5 c1 d3 e8 e9 c5 6b f2 0b 81 5c 4f 94 5c 40 c5 d9 ┆ASTER BADPARM ANALYZE,2 a*|m* ER┆
0x1740…1760 d9 d6 d9 40 c3 c8 c5 c3 d2 40 d7 c1 d9 d4 40 f4 3c 81 5c 4f 8d 61 61 40 e3 c1 c7 40 c1 d5 c3 c8 ┆ROR CHECK PARM 4 a*|ý// TAG ANCH┆
0x1760…1780 d2 f4 43 bc 61 61 40 c9 c6 c6 40 6f f4 6f 61 40 c9 c6 c6 40 6f f4 6f 61 c1 d3 d3 40 c9 c6 c6 40 ┆K4ä¯// IFF ?4?/ IFF ?4?/ALL IFF ┆
0x1780…17a0 6f f4 6f 61 d9 d7 c7 40 c9 c6 c6 40 6f f4 6f 61 d6 c3 d3 40 c7 d6 e3 d6 40 c1 d5 f4 d4 d6 d9 c5 ┆?4?/RPG IFF ?4?/OCL GOTO AN4MORE┆
0x17a0…17c0 14 8f 61 61 40 c7 d6 e3 d6 40 c1 d5 c3 d6 d4 c2 d6 41 81 5c 4f 8e 61 61 40 e3 c1 c7 40 c1 d5 f4 ┆ ±// GOTO ANCOMBO a*|þ// TAG AN4┆
0x17c0…17e0 d4 d6 d9 c5 42 c1 61 61 40 c9 c6 c6 40 6f f4 6f 61 e2 d6 e4 d9 c3 c5 40 c9 c6 c6 40 6f f4 6f 61 ┆MOREâA// IFF ?4?/SOURCE IFF ?4?/┆
0x17e0…1800 d3 c9 c2 d9 c3 d5 c6 40 c9 c6 c6 40 6f f4 6f 61 d8 e4 c5 d9 e8 40 c2 c1 c4 d7 c1 d9 d4 40 c1 d5 ┆LIBRCNF IFF ?4?/QUERY BADPARM AN┆
0x1800…1820 (6,) c1 d3 e8 e9 c5 6b f4 0f 81 5c 4f a3 5c 40 c5 d9 d9 d6 d9 40 c3 c8 c5 c3 d2 40 c3 d6 d4 c2 c9 d5 ┆ALYZE,4 a*|t* ERROR CHECK COMBIN┆
0x1820…1840 c1 e3 c9 d6 d5 e2 40 d6 c6 40 d7 c1 d9 d4 e2 2d 81 5c 4f 8e 61 61 40 e3 c1 c7 40 c1 d5 c3 d6 d4 ┆ATIONS OF PARMS a*|þ// TAG ANCOM┆
0x1840…1860 c2 d6 42 ad 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 c6 40 6f f2 6f 7e d3 c9 e2 e3 c1 d3 d3 ┆BOâÝ// IFF ?3?='' IF ?2?=LISTALL┆
0x1860…1880 40 7b c5 d9 d9 40 f1 f5 f3 f0 6b f3 6b d4 c9 c7 d9 23 ac 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d ┆ #ERR 1530,3,MIGR Ð// IFF ?3?=''┆
0x1880…18a0 40 c9 c6 40 6f f2 6f 7e e2 e8 e2 e3 c5 d4 40 7b c5 d9 d9 40 f1 f5 f3 f0 6b f3 6b d4 c9 c7 d9 24 ┆ IF ?2?=SYSTEM #ERR 1530,3,MIGR ┆
0x18a0…18c0 ae 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 c6 40 6f f2 6f 7e e2 c5 c3 e4 d9 c9 e3 e8 40 7b ┆Þ// IFF ?3?='' IF ?2?=SECURITY #┆
0x18c0…18e0 c5 d9 d9 40 f1 f5 f3 f0 6b f3 6b d4 c9 c7 d9 22 ac 61 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 ┆ERR 1530,3,MIGR Ð// IFF ?3?='' I┆
0x18e0…1900 c6 40 6f f2 6f 7e d4 c1 e2 e3 c5 d9 40 7b c5 d9 d9 40 f1 f5 f3 f0 6b f3 6b d4 c9 c7 d9 24 c1 61 ┆F ?2?=MASTER #ERR 1530,3,MIGR A/┆
0x1900…1920 61 40 c9 c6 c6 40 6f f3 6f 7e 7d 7d 40 c9 c6 c6 40 6f f2 6f 7e d3 c9 c2 d9 c1 d9 e8 40 c9 c6 c6 ┆/ IFF ?3?='' IFF ?2?=LIBRARY IFF┆
[…truncated at 200 lines…]