|
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 - download
Length: 3328 (0xd00)
Notes: MEMBER_P, Member_Text
Names: »RGZFILE «
└─⟦5475bb115⟧ Bits:30009795 AS/ENTRY - S/36 SYST SUPP PROG S/36 VALUE ADDED SOFTWARE PACKAGE Refer to Memo 051445 Product Number 5727SS6 Rel 05 Created 19950301 Level 01 Seq 001 of 002
└─⟦cd453c591⟧
└─⟦this⟧ ».RGZFILE «
// LIBRARY NAME-#VASPLIB 05/28/92
// IFF ?1?= GOTO $ML10
// IF JOBQ-NO IF EVOKED-NO GOTO $ML05
// IF ?CD?/2003 RETURN
// IF ?CD?/2007 RETURN
// TAG $ML05
// IF ?C10?=0 HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,,?11?
// ELSE HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,'?10?',?11?
// RETURN
// TAG $ML10
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IF ?1?= #ERR 2879,C,,' 1RGZFILE'
// IF ?C2?=000 GOTO $ML20
// IFF ?2?>000000 #ERR 1133,23,,?2?
// IFF ?2?>000000 IF ?CD?=1012 RETURN
// IFF DATAF1-'?1?,?2?' #ERR 1351,23,,?1?
// IFF DATAF1-'?1?,?2?' IF ?CD?/1012 RETURN
// IF ?2?=?DATE? GOTO $ML30
// IFF DATAF1-'?1?,?DATE?' GOTO $ML30
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
#ERR 1626,23,VSP,?1?
// IF ?CD?/1012 RETURN
// TAG $ML20
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IFF DATAF1-?1? #ERR 1148,23,,?1?
// IFF DATAF1-?1? IF ?CD?/1012 RETURN
// TAG $ML30
// IFF ?3?= IFF ?3?=BLOCKS IFF ?3?=RECORDS #ERR 2144,C,,' 3'
// IF ?3?= IFF ?4?= #ERR 2880,C
// IFF ?3?= IF ?4?= #ERR 2881,C,,'?3?'
// IFF ?3?=RECORDS GOTO $ML25
// IFF ?F'A,?1?'?>?4? GOTO $ML25
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
#ERR 1714,023,VSP,
// IF ?CD?=1012 RETURN
// TAG $ML25
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
// IFF ?6?= IFF ?6?=YES IFF ?6?=NO #ERR 1713,C,VSP,' 6'
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
// IFF ?7?= IFF ?7?=OMIT IFF ?7?=INCLUDE #ERR 1610,C,,' 7'
// IFF ?9?= IFF ?9?=EQ IFF ?9?=NE IFF ?9?=LT +
IFF ?9?=GT IFF ?9?=LE IFF ?9?=GE #ERR 1611,C,,' 9'
// IFF ?8?= IFF ?8?>0 #ERR 4120,3,,'POSITION'
// IFF ?8?= IFF 4097>?8? #ERR 4120,3,,'POSITION'
// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB
// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB
// IFF ?11?= IFF ?11?=YES IFF ?11?=NO #ERR 1713,C,VSP,'11?11?'
// IFF ?2?= EVALUATE P60='?1?'
// IFF ?2?= EVALUATE P1='?1?,DATE-?2?'
// FILE NAME-?1?,JOB-YES,DISP-OLD,WAIT-NO
// IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML40
// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY
#ERR 1172,123,,?1?
// IFF ?2?= EVALUATE P1=?60?
// IF ?CD?=1011 GOTO $ML10
// IF ?CD?=1012 RETURN
// TAG $ML40
// LOCAL AREA-SYSTEM
// EVALUATE P62='?L'440,31'?'
// LOCAL OFFSET-440,AREA-SYSTEM,BLANK-31
// LOAD $VARG
// RUN
// IF ?L'443,1'?/ GOTO ENDIT
// IF JOBQ-NO IF EVOKED-NO * 'RGZFILE procedure is running'
// REGION SIZE-64
// LOAD $COPY
// FILE NAME-COPYIN,LABEL-?1?,DBLOCK-10,DISP-OLD
// IF ?11?= FILE NAME-COPYO,DBLOCK-10,RETAIN-T,
// ELSE FILE NAME-COPYO,DBLOCK-10,DUPKEYS-?11?,RETAIN-T,
// IFF ?3?= ?3?-?4?,
// IFF ?5?= LOCATION-?5?,
// LABEL-?L'443,8'?
// RUN
// COPYFILE OUTPUT-SAME,
// IF ?7?= IF ?9?= GOTO $ML50
// ?7'INCLUDE'?-?9'EQ'?,
// TAG $ML50
// IF ?8?>0000 POSITION-?8?,
// IF ?C10?>0 CHAR-'?10?',
// REORG-?6'YES'?
// END
// IF ?CD?=3721 GOTO ENDIT
// LOAD $VARH
// FILE NAME-?1?
// FILE NAME-$TARGET,LABEL-?L'443,8'?
// RUN
// TAG ENDIT
// LOCAL OFFSET-440,DATA-'?62?',AREA-SYSTEM
// RETURN
0x000…001 0x98 0x001…019 »// LIBRARY NAME-#VASPLIB« 0x019…01a 0x24 0x01a…01b 0x88 0x01b…023 »05/28/92« 0x023…024 0x0c 0x024…025 0x8b 0x025…030 »// IFF ?1?=« 0x030…031 0x02 0x031…032 0x8a 0x032…03c »GOTO $ML10« 0x03c…03d 0x39 0x03d…03e 0xa5 0x03e…063 »// IF JOBQ-NO IF EVOKED-NO GOTO $ML05« 0x063…064 0x2b 0x064…065 0x8f 0x065…074 »// IF ?CD?/2003« 0x074…075 0x04 0x075…076 0x86 0x076…07c »RETURN« 0x07c…07d 0x37 0x07d…07e 0x8f 0x07e…08d »// IF ?CD?/2007« 0x08d…08e 0x04 0x08e…08f 0x86 0x08f…095 »RETURN« 0x095…096 0x37 0x096…097 0x8c 0x097…0a3 »// TAG $ML05« 0x0a3…0a4 0x44 0x0a4…0a5 0xc4 0x0a5…0e9 »// IF ?C10?=0 HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,,?11?« 0x0e9…0ea 0x0c 0x0ea…0eb 0x87 0x0eb…0f2 »// ELSE« 0x0f2…0f3 0x07 0x0f3…0f4 0xbc 0x0f4…130 »HELP RGZFILE,?1?,?2?,?3?,?4?,?5?,?6?,?7?,?8?,?9?,'?10?',?11?« 0x130…131 0x06 0x131…132 0x89 0x132…13b »// RETURN« 0x13b…13c 0x47 0x13c…13d 0x8c 0x13d…149 »// TAG $ML10« 0x149…14a 0x44 0x14a…14b 0xa7 0x14b…172 »// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY« 0x172…173 0x29 0x173…174 0x85 0x174…179 »// IF« 0x179…17a 0x02 0x17a…17b 0x84 0x17b…17f »?1?=« 0x17f…180 0x10 0x180…181 0x98 0x181…199 »#ERR 2879,C,,' 1RGZFILE'« 0x199…19a 0x1d 0x19a…19b 0x85 0x19b…1a0 »// IF« 0x1a0…1a1 0x02 0x1a1…1a2 0x88 0x1a2…1aa »?C2?=000« 0x1aa…1ab 0x0c 0x1ab…1ac 0x8a 0x1ac…1b6 »GOTO $ML20« 0x1b6…1b7 0x2b 0x1b7…1b8 0x91 0x1b8…1c9 »// IFF ?2?>000000« 0x1c9…1ca 0x0a 0x1ca…1cb 0x91 0x1cb…1dc »#ERR 1133,23,,?2?« 0x1dc…1dd 0x24 0x1dd…1de 0x91 0x1de…1ef »// IFF ?2?>000000« 0x1ef…1f0 0x0a 0x1f0…1f1 0x93 0x1f1…204 »IF ?CD?=1012 RETURN« 0x204…205 0x22 0x205…206 0x97 0x206…21d »// IFF DATAF1-'?1?,?2?'« 0x21d…21e 0x04 0x21e…21f 0x91 0x21f…230 »#ERR 1351,23,,?1?« 0x230…231 0x24 0x231…232 0x97 0x232…249 »// IFF DATAF1-'?1?,?2?'« 0x249…24a 0x04 0x24a…24b 0x8c 0x24b…257 »IF ?CD?/1012« 0x257…258 0x04 0x258…259 0x86 0x259…25f »RETURN« 0x25f…260 0x1f 0x260…261 0x85 0x261…266 »// IF« 0x266…267 0x02 0x267…268 0x8a 0x268…272 »?2?=?DATE?« 0x272…273 0x0a 0x273…274 0x8a 0x274…27e »GOTO $ML30« 0x27e…27f 0x2b 0x27f…280 0xa5 0x280…2a5 »// IFF DATAF1-'?1?,?DATE?' GOTO $ML30« 0x2a5…2a6 0x2b 0x2a6…2a7 0xa7 0x2a7…2ce »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB« 0x2ce…2cf 0x29 0x2cf…2d0 0xa7 0x2d0…2f7 »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB« 0x2f7…2f8 0x29 0x2f8…2f9 0x94 0x2f9…30d »#ERR 1626,23,VSP,?1?« 0x30d…30e 0x3c 0x30e…30f 0x8f 0x30f…31e »// IF ?CD?/1012« 0x31e…31f 0x0c 0x31f…320 0x86 0x320…326 »RETURN« 0x326…327 0x2f 0x327…328 0x8c 0x328…334 »// TAG $ML20« 0x334…335 0x44 0x335…336 0xa7 0x336…35d »// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY« 0x35d…35e 0x29 0x35e…35f 0x91 0x35f…370 »// IFF DATAF1-?1?« 0x370…371 0x0a 0x371…372 0x91 0x372…383 »#ERR 1148,23,,?1?« 0x383…384 0x24 0x384…385 0x91 0x385…396 »// IFF DATAF1-?1?« 0x396…397 0x02 0x397…398 0x8c 0x398…3a4 »IF ?CD?/1012« 0x3a4…3a5 0x03 0x3a5…3a6 0x86 0x3a6…3ac »RETURN« 0x3ac…3ad 0x28 0x3ad…3ae 0x8c 0x3ae…3ba »// TAG $ML30« 0x3ba…3bb 0x44 0x3bb…3bc 0x8b 0x3bc…3c7 »// IFF ?3?=« 0x3c7…3c8 0x02 0x3c8…3c9 0x9e 0x3c9…3e7 »IFF ?3?=BLOCKS IFF ?3?=RECORDS« 0x3e7…3e8 0x02 0x3e8…3e9 0x91 0x3e9…3fa »#ERR 2144,C,,' 3'« 0x3fa…3fb 0x12 0x3fb…3fc 0x85 0x3fc…401 »// IF« 0x401…402 0x02 0x402…403 0x84 0x403…407 »?3?=« 0x407…408 0x02 0x408…409 0x88 0x409…411 »IFF ?4?=« 0x411…412 0x06 0x412…413 0x8b 0x413…41e »#ERR 2880,C« 0x41e…41f 0x2a 0x41f…420 0x8b 0x420…42b »// IFF ?3?=« 0x42b…42c 0x02 0x42c…42d 0x82 0x42d…42f »IF« 0x42f…430 0x02 0x430…431 0x84 0x431…435 »?4?=« 0x435…436 0x06 0x436…437 0x92 0x437…449 »#ERR 2881,C,,'?3?'« 0x449…44a 0x23 0x44a…44b 0x92 0x44b…45d »// IFF ?3?=RECORDS« 0x45d…45e 0x09 0x45e…45f 0x8a 0x45f…469 »GOTO $ML25« 0x469…46a 0x2b 0x46a…46b 0x95 0x46b…480 »// IFF ?F'A,?1?'?>?4?« 0x480…481 0x02 0x481…482 0x8a 0x482…48c »GOTO $ML25« 0x48c…48d 0x2f 0x48d…48e 0xa7 0x48e…4b5 »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB« 0x4b5…4b6 0x29 0x4b6…4b7 0xa7 0x4b7…4de »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB« 0x4de…4df 0x29 0x4df…4e0 0x92 0x4e0…4f2 »#ERR 1714,023,VSP,« 0x4f2…4f3 0x3e 0x4f3…4f4 0x85 0x4f4…4f9 »// IF« 0x4f9…4fa 0x02 0x4fa…4fb 0x89 0x4fb…504 »?CD?=1012« 0x504…505 0x0b 0x505…506 0x86 0x506…50c »RETURN« 0x50c…50d 0x2f 0x50d…50e 0x8c 0x50e…51a »// TAG $ML25« 0x51a…51b 0x44 0x51b…51c 0xa7 0x51c…543 »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB« 0x543…544 0x29 0x544…545 0xa7 0x545…56c »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB« 0x56c…56d 0x29 0x56d…56e 0x8b 0x56e…579 »// IFF ?6?=« 0x579…57a 0x02 0x57a…57b 0x8b 0x57b…586 »IFF ?6?=YES« 0x586…587 0x03 0x587…588 0x8a 0x588…592 »IFF ?6?=NO« 0x592…593 0x02 0x593…594 0x94 0x594…5a8 »#ERR 1713,C,VSP,' 6'« 0x5a8…5a9 0x15 0x5a9…5aa 0xa7 0x5aa…5d1 »// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY« 0x5d1…5d2 0x29 0x5d2…5d3 0x8b 0x5d3…5de »// IFF ?7?=« 0x5de…5df 0x02 0x5df…5e0 0x8c 0x5e0…5ec »IFF ?7?=OMIT« 0x5ec…5ed 0x02 0x5ed…5ee 0x8f 0x5ee…5fd »IFF ?7?=INCLUDE« 0x5fd…5fe 0x02 0x5fe…5ff 0x91 0x5ff…610 »#ERR 1610,C,,' 7'« 0x610…611 0x13 0x611…612 0x8b 0x612…61d »// IFF ?9?=« 0x61d…61e 0x02 0x61e…61f 0x8a 0x61f…629 »IFF ?9?=EQ« 0x629…62a 0x04 0x62a…62b 0x8a 0x62b…635 »IFF ?9?=NE« 0x635…636 0x02 0x636…637 0x8c 0x637…643 »IFF ?9?=LT +« 0x643…644 0x1d 0x644…645 0x0d 0x645…646 0x8a 0x646…650 »IFF ?9?=GT« 0x650…651 0x04 0x651…652 0x8a 0x652…65c »IFF ?9?=LE« 0x65c…65d 0x02 0x65d…65e 0x8a 0x65e…668 »IFF ?9?=GE« 0x668…669 0x02 0x669…66a 0x91 0x66a…67b »#ERR 1611,C,,' 9'« 0x67b…67c 0x0c 0x67c…67d 0x8b 0x67d…688 »// IFF ?8?=« 0x688…689 0x02 0x689…68a 0x89 0x68a…693 »IFF ?8?>0« 0x693…694 0x05 0x694…695 0x97 0x695…6ac »#ERR 4120,3,,'POSITION'« 0x6ac…6ad 0x1e 0x6ad…6ae 0x8b 0x6ae…6b9 »// IFF ?8?=« 0x6b9…6ba 0x02 0x6ba…6bb 0x8c 0x6bb…6c7 »IFF 4097>?8?« 0x6c7…6c8 0x02 0x6c8…6c9 0x97 0x6c9…6e0 »#ERR 4120,3,,'POSITION'« 0x6e0…6e1 0x1e 0x6e1…6e2 0xa7 0x6e2…709 »// MEMBER USER1-##VSP1,LIBRARY-#VASPLIB« 0x709…70a 0x29 0x70a…70b 0xa7 0x70b…732 »// MEMBER USER2-##VSP2,LIBRARY-#VASPLIB« 0x732…733 0x29 0x733…734 0x99 0x734…74d »// IFF ?11?= IFF ?11?=YES« 0x74d…74e 0x02 0x74e…74f 0xa4 0x74f…773 »IFF ?11?=NO #ERR 1713,C,VSP,'11?11?'« 0x773…774 0x11 0x774…775 0x8b 0x775…780 »// IFF ?2?=« 0x780…781 0x03 0x781…782 0x92 0x782…794 »EVALUATE P60='?1?'« 0x794…795 0x30 0x795…796 0x8b 0x796…7a1 »// IFF ?2?=« 0x7a1…7a2 0x03 0x7a2…7a3 0x9a 0x7a3…7bd »EVALUATE P1='?1?,DATE-?2?'« 0x7bd…7be 0x28 0x7be…7bf 0xa9 0x7bf…7e8 »// FILE NAME-?1?,JOB-YES,DISP-OLD,WAIT-NO« 0x7e8…7e9 0x27 0x7e9…7ea 0xa9 0x7ea…813 »// IFF ?CD?=2030 IFF ?CD?=2031 GOTO $ML40« 0x813…814 0x27 0x814…815 0xa7 0x815…83c »// MEMBER USER1-##MSG2,LIBRARY-#LIBRARY« 0x83c…83d 0x29 0x83d…83e 0x92 0x83e…850 »#ERR 1172,123,,?1?« 0x850…851 0x3e 0x851…852 0x8b 0x852…85d »// IFF ?2?=« 0x85d…85e 0x03 0x85e…85f 0x90 0x85f…86f »EVALUATE P1=?60?« 0x86f…870 0x32 0x870…871 0x8f 0x871…880 »// IF ?CD?=1011« 0x880…881 0x02 0x881…882 0x8a 0x882…88c »GOTO $ML10« 0x88c…88d 0x35 0x88d…88e 0x8f 0x88e…89d »// IF ?CD?=1012« 0x89d…89e 0x02 0x89e…89f 0x86 0x89f…8a5 »RETURN« 0x8a5…8a6 0x39 0x8a6…8a7 0x8c 0x8a7…8b3 »// TAG $ML40« 0x8b3…8b4 0x44 0x8b4…8b5 0x94 0x8b5…8c9 »// LOCAL AREA-SYSTEM« 0x8c9…8ca 0x3c 0x8ca…8cb 0x9d 0x8cb…8e8 »// EVALUATE P62='?L'440,31'?'« 0x8e8…8e9 0x33 0x8e9…8ea 0xa8 0x8ea…912 »// LOCAL OFFSET-440,AREA-SYSTEM,BLANK-31« 0x912…913 0x28 0x913…914 0x8d 0x914…921 »// LOAD $VARG« 0x921…922 0x43 0x922…923 0x86 0x923…929 »// RUN« 0x929…92a 0x4a 0x92a…92b 0x91 0x92b…93c »// IF ?L'443,1'?/« 0x93c…93d 0x06 0x93d…93e 0x8a 0x93e…948 »GOTO ENDIT« 0x948…949 0x2f 0x949…94a 0xbb 0x94a…985 »// IF JOBQ-NO IF EVOKED-NO * 'RGZFILE procedure is running'« 0x985…986 0x15 0x986…987 0x91 0x987…998 »// REGION SIZE-64« 0x998…999 0x3f 0x999…99a 0x8d 0x99a…9a7 »// LOAD $COPY« 0x9a7…9a8 0x43 0x9a8…9a9 0xb0 0x9a9…9d9 »// FILE NAME-COPYIN,LABEL-?1?,DBLOCK-10,DISP-OLD« 0x9d9…9da 0x20 0x9da…9db 0x8b 0x9db…9e6 »// IF ?11?=« 0x9e6…9e7 0x03 0x9e7…9e8 0xa3 0x9e8…a0b »FILE NAME-COPYO,DBLOCK-10,RETAIN-T,« 0xa0b…a0c 0x1f 0xa0c…a0d 0x87 0xa0d…a14 »// ELSE« 0xa14…a15 0x07 0xa15…a16 0xb0 0xa16…a46 »FILE NAME-COPYO,DBLOCK-10,DUPKEYS-?11?,RETAIN-T,« 0xa46…a47 0x12 0xa47…a48 0x82 0xa48…a4a »//« 0xa4a…a4b 0x02 0xa4b…a4c 0x88 0xa4c…a54 »IFF ?3?=« 0xa54…a55 0x02 0xa55…a56 0x88 0xa56…a5e »?3?-?4?,« 0xa5e…a5f 0x3a 0xa5f…a60 0x82 0xa60…a62 »//« 0xa62…a63 0x02 0xa63…a64 0x88 0xa64…a6c »IFF ?5?=« 0xa6c…a6d 0x02 0xa6d…a6e 0x8d 0xa6e…a7b »LOCATION-?5?,« 0xa7b…a7c 0x35 0xa7c…a7d 0x93 0xa7d…a90 »// LABEL-?L'443,8'?« 0xa90…a91 0x3d 0xa91…a92 0x86 0xa92…a98 »// RUN« 0xa98…a99 0x4a 0xa99…a9a 0x98 0xa9a…ab2 »// COPYFILE OUTPUT-SAME,« 0xab2…ab3 0x38 0xab3…ab4 0x82 0xab4…ab6 »//« 0xab6…ab7 0x02 0xab7…ab8 0x87 0xab8…abf »IF ?7?=« 0xabf…ac0 0x02 0xac0…ac1 0x87 0xac1…ac8 »IF ?9?=« 0xac8…ac9 0x02 0xac9…aca 0x8a 0xaca…ad4 »GOTO $ML50« 0xad4…ad5 0x30 0xad5…ad6 0x82 0xad6…ad8 »//« 0xad8…ad9 0x02 0xad9…ada 0x95 0xada…aef »?7'INCLUDE'?-?9'EQ'?,« 0xaef…af0 0x37 0xaf0…af1 0x8c 0xaf1…afd »// TAG $ML50« 0xafd…afe 0x44 0xafe…aff 0x82 0xaff…b01 »//« 0xb01…b02 0x02 0xb02…b03 0x82 0xb03…b05 »IF« 0xb05…b06 0x02 0xb06…b07 0x96 0xb07…b1d »?8?>0000 POSITION-?8?,« 0xb1d…b1e 0x32 0xb1e…b1f 0x82 0xb1f…b21 »//« 0xb21…b22 0x02 0xb22…b23 0x82 0xb23…b25 »IF« 0xb25…b26 0x02 0xb26…b27 0x87 0xb27…b2e »?C10?>0« 0xb2e…b2f 0x02 0xb2f…b30 0x8c 0xb30…b3c »CHAR-'?10?',« 0xb3c…b3d 0x33 0xb3d…b3e 0x82 0xb3e…b40 »//« 0xb40…b41 0x02 0xb41…b42 0x8e 0xb42…b50 »REORG-?6'YES'?« 0xb50…b51 0x3e 0xb51…b52 0x86 0xb52…b58 »// END« 0xb58…b59 0x4a 0xb59…b5a 0x8f 0xb5a…b69 »// IF ?CD?=3721« 0xb69…b6a 0x03 0xb6a…b6b 0x8a 0xb6b…b75 »GOTO ENDIT« 0xb75…b76 0x34 0xb76…b77 0x8d 0xb77…b84 »// LOAD $VARH« 0xb84…b85 0x43 0xb85…b86 0x90 0xb86…b96 »// FILE NAME-?1?« 0xb96…b97 0x40 0xb97…b98 0xa5 0xb98…bbd »// FILE NAME-$TARGET,LABEL-?L'443,8'?« 0xbbd…bbe 0x2b 0xbbe…bbf 0x86 0xbbf…bc5 »// RUN« 0xbc5…bc6 0x4a 0xbc6…bc7 0x8c 0xbc7…bd3 »// TAG ENDIT« 0xbd3…bd4 0x44 0xbd4…bd5 0xab 0xbd5…c00 »// LOCAL OFFSET-440,DATA-'?62?',AREA-SYSTEM« 0xc00…c01 0x25 0xc01…c02 0x89 0xc02…c0b »// RETURN« 0xc0b…c0c 0x47 0xc0c…c0d 0x00 0xc0d…c20 40 5b d4 d3 f4 f0 27 a7 61 61 40 d4 c5 d4 c2 c5 d9 40 e4 ┆ $ML40 x// MEMBER U┆ 0xc20…c40 e2 c5 d9 f1 60 7b 7b d4 e2 c7 f2 6b d3 c9 c2 d9 c1 d9 e8 60 7b d3 c9 c2 d9 c1 d9 e8 29 92 7b c5 ┆SER1-##MSG2,LIBRARY-#LIBRARY k#E┆ 0xc40…c60 d9 d9 40 f1 f1 f7 f2 6b f1 f2 f3 6b 6b 6f f1 6f 3e 8b 61 61 40 c9 c6 c6 40 6f f2 6f 7e 03 90 c5 ┆RR 1172,123,,?1? »// IFF ?2?= °E┆ 0xc60…c80 e5 c1 d3 e4 c1 e3 c5 40 d7 f1 7e 6f f6 f0 6f 32 8f 61 61 40 c9 c6 40 6f c3 c4 6f 7e f1 f0 f1 f1 ┆VALUATE P1=?60? ±// IF ?CD?=1011┆ 0xc80…ca0 02 8a c7 d6 e3 d6 40 5b d4 d3 f1 f0 35 8f 61 61 40 c9 c6 40 6f c3 c4 6f 7e f1 f0 f1 f2 02 86 d9 ┆ «GOTO $ML10 ±// IF ?CD?=1012 fR┆ 0xca0…cc0 c5 e3 e4 d9 d5 39 8c 61 61 40 e3 c1 c7 40 5b d4 d3 f4 f0 44 94 61 61 40 d3 d6 c3 c1 d3 40 c1 d9 ┆ETURN ð// TAG $ML40àm// LOCAL AR┆ 0xcc0…ce0 c5 c1 60 e2 e8 e2 e3 c5 d4 3c 9d 61 61 40 c5 e5 c1 d3 e4 c1 e3 c5 40 d7 f6 f2 7e 7d 6f d3 7d f4 ┆EA-SYSTEM ¸// EVALUATE P62='?L'4┆ 0xce0…d00 f4 f0 6b f3 f1 7d 6f 7d 33 a8 61 61 40 d3 d6 c3 c1 d3 40 d6 c6 c6 e2 c5 e3 60 f4 f4 f0 6b c1 d9 ┆40,31'?' y// LOCAL OFFSET-440,AR┆