|
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: 10752 (0x2a00)
Notes: MEMBER_P, Member_Text
Names: »MIGRNAME«
└─⟦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
└─⟦820ffa6c4⟧
└─⟦this⟧ ».MIGRNAME«
// LIBRARY NAME-#MYLIB
// MEMBER USER1-#MY#1MSG
// MEMBER USER2-#MY#2MSG
* FLAG REASON VERS. DATE WHO CHANGE DESCRIPTION
* ---- ------ ----- -------- --- ---------------------------------
* $A0 1239785 H10C 07/08/88 MPW ADDED DISP-SHR TO OFFICE FILES
*
* CALL PSDID TO FIND DEFAULT SYSTEM NAME AND ADDRESS
*
* P56 = DISP FOR $MYSYSID
* P57 = DISP FOR $OUDRFL
* P58 = LDA 204 SYSTEM NAME
* P59 = LDA 212 SYSTEM ADDRESS
* LDA 220 - 1 = $MYSYSID EXISTS
* 2 = $OUDRFL EXISTS
* 0 = NEITHER EXISTS
*
// EVALUATE P56='OLD'
// EVALUATE P57='SHR'
// IFF DATAF1-$OUDRFL EVALUATE P57='NEW'
// IFF DATAF1-$MYSYSID EVALUATE P56='NEW'
// IFF DATAF1-$MYSYSID GOTO CHKDRFL
// LOCAL OFFSET-031,DATA-'1',BLANK-1
// GOTO GETDFTID
// TAG CHKDRFL
// IFF DATAF1-$OUDRFL GOTO EVLP1
// LOCAL OFFSET-031,DATA-'2',BLANK-1
// GOTO GETDFTID
// LOCAL OFFSET-031,DATA-'0',BLANK-1
// EVALUATE P58='' P59=''
// GOTO EVLP1
// TAG GETDFTID
// LOAD PSDID,#MYLIB
// FILE NAME-$MYSYSID,UNIT-F1,DISP-?56?
// FILE NAME-$OUDRFL,UNIT-F1,DISP-?57?
// RUN
// EVALUATE P58='?L'204,8'?'
// EVALUATE P59='?L'212,8'?'
*
// TAG EVLP1
// IF ?1?/ EVALUATE P1='$MYSC000'
// IFF ?1?/$MYSC000 EVALUATE P1='$MYSC000'
// EVALUATE P60='?1?'
// IF DATAF1-?1? GOTO PRE300
// LOAD #RRS1
// RUN
*
* The following procedure displays the media transport screen, and evokes
* the proper media screen depending upon operator choice.
*
// TAG PRE300
// EVALUATE P1='1' P2='' P41='' P61='1'
*
* CALL $PSIN TO CHECK SYSCOMM FOR KANJI AND/OR SINGLE DISKETTE SYSTEM
* LDA 200 - 0 = NON KANJI SYSTEM
* 1 = KANJI SYSTEM
* LDA 201 - 1 = SINGLE DISKETTE DRIVE SYSTEM
* 2 = MULTIPLE DRIVE SYSTEM
* P62 = LDA 200
* P63 = LDA 201
* UPSI 8 ON = SINGLE DRIVE
*
// LOAD $PSIN,#MYLIB
// RUN
// EVALUATE P62=?L'200,1'?
// EVALUATE P63=?L'201,1'?
// SWITCH XXXXXXXX
// IF ?L'201,1'?='1' SWITCH XXXXXXX1
// TAG SYS300
// EVALUATE P1='?61?'
// IFF ?62?='1' GOTO MAS300
// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS300,LENGTH-'1,78'
// GOTO EVL300
// TAG MAS300
// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS300,LENGTH-'1,78'
// TAG EVL300
// EVALUATE P41='' P2=''
// IF ?CD?=2007 CANCEL
// IF ?CD?=2003 CANCEL
// IFF ?CD?=0000 GOTO PRE300
// EVALUATE P61='?1?'
// IF '?1?'=1 GOTO PRE310
// IF '?1?'=2 GOTO PRE320
// IF '?1?'=3 GOTO PRE330
// GOTO SYS300 ?2F'2004'? ?41F'C'?
*
* The following procedure displays the diskette transport screen.
*
// TAG PRE310
// EVALUATE P1='' P2='S1 ' P3='AUTO ' P4='2' P5=''
// EVALUATE P40='' P42='' P43='' P44='' P45=''
// LOCAL OFFSET-1,AREA-SYSTEM
*
* CHECK P62 FOR KANJI PREFERRED
*
// TAG SYS310
// IFF ?62?='1' GOTO MAS310
// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS310,LENGTH-'6,5,6,1,78',UPSI-YES
// GOTO EVL310
// TAG MAS310
// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS310,LENGTH-'6,5,6,1,78',UPSI-YES
// TAG EVL310
// EVALUATE P5='' P40='' P42='' P43='' P44='' P45=''
// IF ?CD?=2003 EVALUATE P2=''
// IF ?CD?=2003 GOTO SYS300 ?1F'?L'293,1'?'?
// IF ?CD?=2007 CANCEL
// IFF ?CD?=0000 GOTO PRE310
// IF '?1?'/ GOTO SYS310 ?40F'1'? ?42F'C'? ?5F'1181'?
// LOCAL OFFSET-294,DATA-'?1?',AREA-SYSTEM,BLANK-6
// LOAD #MYEC,#MYLIB
// RUN
// IFF ?L'337,1'?/1 GOTO SYS310 ?5F'1185'? ?40F'1'? ?42F'C'?
// IF '?2?'/ GOTO SYS310 ?5F'1085'? ?43F'C'?
// IF '?3?'/ EVALUATE P3=AUTO
// IF '?4?'/ GOTO SYS310 ?37F'1'? ?45F'C'?
// IFF '?2?'=S1 IFF '?2?'=S2 IFF '?2?'=S3 IFF '?2?'=M1 +
IFF '?2?'=M2 IFF '?2?'=M1.01 IFF '?2?'=M1.02 IFF '?2?'=M1.03 +
IFF '?2?'=M1.04 IFF '?2?'=M1.05 IFF '?2?'=M1.06 IFF '?2?'=M1.07 +
IFF '?2?'=M1.08 IFF '?2?'=M1.09 IFF '?2?'=M1.10 IFF '?2?'=M2.01 +
IFF '?2?'=M2.02 IFF '?2?'=M2.03 IFF '?2?'=M2.04 IFF '?2?'=M2.05 +
IFF '?2?'=M2.06 IFF '?2?'=M2.07 IFF '?2?'=M2.08 IFF '?2?'=M2.09 +
IFF '?2?'=M2.10 GOTO SYS310 ?5F'1085'? ?43F'C'?
// LOCAL OFFSET-300,DATA-'?2?',AREA-SYSTEM,BLANK-5
// IF '?3?'=' AUTO' EVALUATE P3=AUTO
// IF '?3?'=' AUTO ' EVALUATE P3=AUTO
// IFF '?3?'='AUTO ' IFF '?3?'='NOAUTO' GOTO SYS310 ?5F'1182'? ?44F'C'?
// LOCAL OFFSET-305,DATA-'?3?',AREA-SYSTEM,BLANK-6
// IFF ?4?=1 IFF ?4?=2 GOTO SYS310 ?37F'1'? ?45F'C'?
// LOCAL OFFSET-311,DATA-'?4?',AREA-SYSTEM
// EVALUATE P21='?1?'
// EVALUATE P22='?2?'
// EVALUATE P23='?3?'
*
* Prepare the operator to initialize diskettes (as requested on screen
* MAS310).
*
// IF ?4?=2 GOTO PRE330
* Initialize diskette(s)
// HELP INIT ?1?,OWNERID,RENAME,?2?
// IF ?CD?=2143 GOTO PRE310
// GOTO PRE330
*
* The following procedure displays the tape transport screen, and evokes
* the PSTAPE procedure to obtain all DRU data.
*
// TAG PRE320
// EVALUATE P1='' P2='T1' P3='REWIND' P4='AUTO ' P5='2' P6=''
// EVALUATE P46='' P47='' P48='' P49='' P50=''
*
* CHECK P62 FOR KANJI PREFERRED
*
// TAG SYS320
// IFF ?62?='1' GOTO MAS320
// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS320,LENGTH-'6,2,6,6,1,78'
// GOTO EVL320
// TAG MAS320
// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS320,LENGTH-'6,2,6,6,1,78'
// TAG EVL320
// EVALUATE P6='' P46='' P47='' P48='' P49='' P50=''
// IF ?CD?=2003 EVALUATE P2=''
// IF ?CD?=2003 GOTO SYS300 ?1F'?L'293,1'?'?
// IF ?CD?=2007 CANCEL
// IFF ?CD?=0000 GOTO SYS320
// IF '?1?'/ GOTO SYS320 ?6F'1181'? ?54F'C'?
// LOCAL OFFSET-294,DATA-'?1?',AREA-SYSTEM,BLANK-6
// LOAD #MYEC,#MYLIB
// RUN
// IFF ?L'337,1'?/1 GOTO SYS320 ?6F'1185'? ?46F'1'? ?54F'C'?
// IF '?2?'/ GOTO SYS320 ?6F'1086'? ?47F'C'?
// IF '?3?'/ GOTO SYS320 ?6F'1516'? ?49F'C'?
// IF '?4?'/ EVALUATE P4=AUTO
// IF '?5?'/ EVALUATE P5=2
// LOCAL OFFSET-312,DATA-'?1?',AREA-SYSTEM,BLANK-6
// IFF '?2?'='T1' IFF '?2?'='T2' IFF '?2?'='TC' +
GOTO SYS320 ?6F'1086'? ?47F'C'?
// LOCAL OFFSET-318,DATA-'?2?',AREA-SYSTEM,BLANK-2
// IF '?4?'=' AUTO' EVALUATE P4='AUTO '
// IF '?4?'=' AUTO ' EVALUATE P4='AUTO '
// IFF '?4?'='AUTO ' IFF '?4?'='NOAUTO' GOTO SYS320 ?6F'1182'? ?48F'C'?
// LOCAL OFFSET-326,DATA-'?4?',AREA-SYSTEM,BLANK-6
// IFF '?3?'='REWIND' IFF '?3?'='LEAVE ' IFF '?3?'='UNLOAD' +
GOTO SYS320 ?6F'3335'? ?49F'C'?
// LOCAL OFFSET-320,DATA-'?3?',AREA-SYSTEM,BLANK-6
// IFF ?5?=1 IFF ?5?=2 GOTO SYS320 ?6F'3334'? ?50F'C'?
// EVALUATE P21='?1?'
// EVALUATE P22='?2?'
// EVALUATE P23='?4?'
// EVALUATE P24='?3?'
*
* Prepare the operator to initialize tapes (as requested on screen
* MAS320).
*
// IF ?5?=2 GOTO PRE330
// HELP TAPEINIT ?2?,SL,?1?,,OWNERID,,?3?
// IF ?CD?=2143 GOTO PRE320
*
* Prompt DRU screen MAS330 requesting operator to enter the system-id
* and address (REN and RGN).
*
// TAG PRE330
// EVALUATE P1='?59?' P2='?58?' P3='' P51='' P52=''
// EVALUATE P35='1'
*
* CHECK P62 FOR KANJI PREFERRED
*
// TAG SYS330
// IFF ?62?='1' GOTO MAS330
// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS330,LENGTH-'8,8,78'
// GOTO EVL330
// TAG MAS330
// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS330,LENGTH-'8,8,78'
// TAG EVL330
// EVALUATE P3='' P51='' P52''
// EVALUATE P35=''
// EVALUATE P58='?2?'
// EVALUATE P59='?1?'
// IF ?CD?=2003 IF ?61?=1 GOTO SYS310 ?1F'?L'294,6'?'? +
?2F'?L'300,5'?'? ?3F'?L'305,6'?'? ?4F'?L'311,1'?'?
// IF ?CD?=2003 IF ?61?=2 GOTO SYS320 ?1F'?L'312,6'?'? +
?2F'?L'318,2'?'? ?3F'?L'320,6'?'? ?4F'?L'326,6'?'?
// IF ?CD?=2003 IF ?61?=3 GOTO SYS300 ?2F''?
// IF ?CD?=2007 CANCEL
// IF '?1?'/ GOTO SYS330 ?3F'3332'? ?51F'C'?
// IF '?2?'/ GOTO SYS330 ?3F'3333'? ?52F'C'?
*
* If the files that are to be built still exist on the system, then delete
* them.
*
// IF DATAF1-$MYGRPN DELETE $MYGRPN,F1
// IF DATAF1-$MYMEMA DELETE $MYMEMA,F1
// IF DATAF1-$MYMEMI DELETE $MYMEMI,F1
// IF DATAF1-$MYMEMN DELETE $MYMEMN,F1
// IF DATAF1-$MYGRPT DELETE $MYGRPT,F1
// IF DATAF1-$MYDRUF DELETE $MYDRUF,F1
// IF DATAF1-$MYSYSID DELETE $MYSYSID,F1
// IFF DATAF1-$OUDRFL GOTO PSDR
// IFF DATAF1-$OUGRFL GOTO PSDR
*
* Run the group resolve module (PSX1) to prepare group data for use in the
* Duplicate Resolution module (PSDR).
*
// LOCAL OFFSET-1,DATA-' ',BLANK-*ALL
// LOCAL OFFSET-9,DATA-'0000'
// LOCAL OFFSET-13,DATA-' '
// BLDFILE $MYGRPN,I,RECORDS,100,10,,T,1,8,DFILE,NODUPKEY,50
// BLDFILE $MYMEMN,I,RECORDS,100,28,,T,1,16,DFILE,NODUPKEY,50
// LOAD PSX1,#MYLIB
*@A0C** ADDED DISP-SHARE
// FILE NAME-$OUGRFL,UNIT-F1,DISP-SHR
// FILE NAME-$MYGRPN,UNIT-F1,DISP-OLD
// FILE NAME-$MYMEMN,UNIT-F1,DISP-OLD
// RUN
// IFF ?L'9,4'?='0000' GOTO ERREND
*
* NOTE: DLS WILL NOT BE MIGRATED IN THE FIRST RELEASE **********
*
* Run the Duplicate Resolution module (PSDR), and be sure to check for
* existence of Document Library Services (verifying existence of DLS file
* $OULINFO will serve this purpose).
*
// TAG PSDR
// LOCAL OFFSET-1,DATA-' ',BLANK-*ALL
// LOCAL OFFSET-9,DATA-'0000'
// LOCAL OFFSET-13,DATA-' '
// LOCAL OFFSET-15,DATA-'?2?'
// LOCAL OFFSET-23,DATA-'?1?'
// IF DATAF1-$OULINFO LOCAL OFFSET-31,DATA-'1'
// IFF DATAF1-$OUDRFL GOTO SECHK
// LOCAL OFFSET-32,DATA-'1'
// IFF DATAF1-$OUGRFL GOTO SECHK
// BLDFILE $MYGRPT,I,R,100,80,A1,T,1,8,DFILE,NODUPKEY,50
// BLDINDEX $MYMEMI,9,8,$MYMEMN,,DUPKEY,A1
// TAG SECHK
// IF SECURITY-ACTIVE GOTO NONPS
// LOCAL OFFSET-33,DATA-'?USER?'
// TAG NONPS
// IFF DATAF1-$OUDRFL GOTO BLD
// IF DATAF1-$OUGRFL LOCAL OFFSET-41,DATA-'1'
// IF DATAF1-$OUCLIX LOCAL OFFSET-42,DATA-'1'
// TAG BLD
// BLDFILE $MYDRUF,I,R,100,102,A1,T,1,34,DFILE,NODUPKEY,50
// BLDFILE $MYSYSID,I,R,1,16,A1,T,1,8,DFILE,NODUPKEY,0
// LOAD PSDR,#MYLIB
// IFF DATAF1-$OUDRFL GOTO LDF
*@A0C** ADDED DISP-SHR
// FILE NAME-$OUDRFL,UNIT-F1,DISP-SHR
// IFF DATAF1-$OUGRFL GOTO CLCHK
*@A0C** ADDED DISP-SHR
// FILE NAME-$OUGRFL,UNIT-F1,DISP-SHR
// FILE NAME-$MYGRPT,UNIT-F1,DISP-OLD
// FILE NAME-$MYMEMI,UNIT-F1,DISP-OLD
// TAG CLCHK
// IFF DATAF1-$OUCLIX GOTO LDF
*@A0C** ADDED DISP-SHR
// FILE NAME-$OUCLIX,UNIT-F1,DISP-SHR
// TAG LDF
// IF DATAF1-$OULINFO FILE NAME-$OULINFO,UNIT-F1,DISP-SHR
*@A0C** ADDED DISP-SHR
// FILE NAME-$MYSYSID,UNIT-F1,DISP-OLD
// FILE NAME-$MYDRUF,UNIT-F1,DISP-OLD
// FILE NAME-$MYLIST,LABEL-?60?,UNIT-F1,DISP-OLD
// RUN
// IFF ?L'9,4'?='0000' GOTO ERREND
// IF ?61?=1 SAVE $MYDRUF,999,,?21?,?22?,?23?
// IF ?61?=2 SAVE $MYDRUF,999,,?21?,?22?,?23?,,,,,,?24?
// GOTO ENDIT
*
* Error processing section
*
// TAG ERREND
* Issue an error message if an error occurred.
// #ERR ?L'9,4'?,3,MIGR,?L'13,2'??L'1,8'?
*
* End of PSDRU procedure
*
// TAG ENDIT
// IF DATAF1-$MYGRPN DELETE $MYGRPN,F1
// IF DATAF1-$MYMEMA DELETE $MYMEMA,F1
// IF DATAF1-$MYMEMI DELETE $MYMEMI,F1
// IF DATAF1-$MYMEMN DELETE $MYMEMN,F1
// IF DATAF1-$MYGRPT DELETE $MYGRPT,F1
// IF DATAF1-?60? DELETE ?60?,F1
0x0000…0001 0x96 0x0001…0017 »// LIBRARY NAME-#MYLIB« 0x0017…0018 0x62 0x0018…0019 0x98 0x0019…0031 »// MEMBER USER1-#MY#1MSG« 0x0031…0032 0x60 0x0032…0033 0x98 0x0033…004b »// MEMBER USER2-#MY#2MSG« 0x004b…004c 0x60 0x004c…004d 0x81 0x004d…004e »*« 0x004e…004f 0x02 0x004f…0050 0x84 0x0050…0054 »FLAG« 0x0054…0055 0x02 0x0055…0056 0x86 0x0056…005c »REASON« 0x005c…005d 0x02 0x005d…005e 0x85 0x005e…0063 »VERS.« 0x0063…0064 0x02 0x0064…0065 0x84 0x0065…0069 »DATE« 0x0069…006a 0x05 0x006a…006b 0x83 0x006b…006e »WHO« 0x006e…006f 0x02 0x006f…0070 0x92 0x0070…0082 »CHANGE DESCRIPTION« 0x0082…0083 0x40 0x0083…0084 0x81 0x0084…0085 »*« 0x0085…0086 0x02 0x0086…0087 0x84 0x0087…008b »----« 0x008b…008c 0x02 0x008c…008d 0x86 0x008d…0093 »------« 0x0093…0094 0x02 0x0094…0095 0x85 0x0095…009a »-----« 0x009a…009b 0x02 0x009b…009c 0x8c 0x009c…00a8 »-------- ---« 0x00a8…00a9 0x02 0x00a9…00aa 0xa1 0x00aa…00cb »---------------------------------« 0x00cb…00cc 0x31 0x00cc…00cd 0x81 0x00cd…00ce »*« 0x00ce…00cf 0x02 0x00cf…00d0 0x83 0x00d0…00d3 »$A0« 0x00d3…00d4 0x03 0x00d4…00d5 0x8c 0x00d5…00e1 »1239785 H10C« 0x00e1…00e2 0x03 0x00e2…00e3 0x8c 0x00e3…00ef »07/08/88 MPW« 0x00ef…00f0 0x02 0x00f0…00f1 0x9e 0x00f1…010f »ADDED DISP-SHR TO OFFICE FILES« 0x010f…0110 0x34 0x0110…0111 0x81 0x0111…0112 »*« 0x0112…0113 0x77 0x0113…0114 0x81 0x0114…0115 »*« 0x0115…0116 0x02 0x0116…0117 0xb2 0x0117…0149 »CALL PSDID TO FIND DEFAULT SYSTEM NAME AND ADDRESS« 0x0149…014a 0x43 0x014a…014b 0x81 0x014b…014c »*« 0x014c…014d 0x77 0x014d…014e 0x81 0x014e…014f »*« 0x014f…0150 0x10 0x0150…0151 0x97 0x0151…0168 »P56 = DISP FOR $MYSYSID« 0x0168…0169 0x50 0x0169…016a 0x81 0x016a…016b »*« 0x016b…016c 0x10 0x016c…016d 0x96 0x016d…0183 »P57 = DISP FOR $OUDRFL« 0x0183…0184 0x51 0x0184…0185 0x81 0x0185…0186 »*« 0x0186…0187 0x10 0x0187…0188 0x8d 0x0188…0195 »P58 = LDA 204« 0x0195…0196 0x02 0x0196…0197 0x8b 0x0197…01a2 »SYSTEM NAME« 0x01a2…01a3 0x4d 0x01a3…01a4 0x81 0x01a4…01a5 »*« 0x01a5…01a6 0x10 0x01a6…01a7 0x8d 0x01a7…01b4 »P59 = LDA 212« 0x01b4…01b5 0x02 0x01b5…01b6 0x8e 0x01b6…01c4 »SYSTEM ADDRESS« 0x01c4…01c5 0x4a 0x01c5…01c6 0x81 0x01c6…01c7 »*« 0x01c7…01c8 0x10 0x01c8…01c9 0x87 0x01c9…01d0 »LDA 220« 0x01d0…01d1 0x02 0x01d1…01d2 0x81 0x01d2…01d3 »-« 0x01d3…01d4 0x02 0x01d4…01d5 0x93 0x01d5…01e8 »1 = $MYSYSID EXISTS« 0x01e8…01e9 0x48 0x01e9…01ea 0x81 0x01ea…01eb »*« 0x01eb…01ec 0x1c 0x01ec…01ed 0x8b 0x01ed…01f8 »2 = $OUDRFL« 0x01f8…01f9 0x02 0x01f9…01fa 0x86 0x01fa…0200 »EXISTS« 0x0200…0201 0x48 0x0201…0202 0x81 0x0202…0203 »*« 0x0203…0204 0x1c 0x0204…0205 0x8b 0x0205…0210 »0 = NEITHER« 0x0210…0211 0x02 0x0211…0212 0x86 0x0212…0218 »EXISTS« 0x0218…0219 0x48 0x0219…021a 0x81 0x021a…021b »*« 0x021b…021c 0x77 0x021c…021d 0x95 0x021d…0232 »// EVALUATE P56='OLD'« 0x0232…0233 0x63 0x0233…0234 0x95 0x0234…0249 »// EVALUATE P57='SHR'« 0x0249…024a 0x63 0x024a…024b 0x95 0x024b…0260 »// IFF DATAF1-$OUDRFL« 0x0260…0261 0x08 0x0261…0262 0x92 0x0262…0274 »EVALUATE P57='NEW'« 0x0274…0275 0x49 0x0275…0276 0x96 0x0276…028c »// IFF DATAF1-$MYSYSID« 0x028c…028d 0x07 0x028d…028e 0x92 0x028e…02a0 »EVALUATE P56='NEW'« 0x02a0…02a1 0x49 0x02a1…02a2 0x96 0x02a2…02b8 »// IFF DATAF1-$MYSYSID« 0x02b8…02b9 0x07 0x02b9…02ba 0x8c 0x02ba…02c6 »GOTO CHKDRFL« 0x02c6…02c7 0x4f 0x02c7…02c8 0xa4 0x02c8…02ec »// LOCAL OFFSET-031,DATA-'1',BLANK-1« 0x02ec…02ed 0x54 0x02ed…02ee 0x90 0x02ee…02fe »// GOTO GETDFTID« 0x02fe…02ff 0x68 0x02ff…0300 0x8e 0x0300…030e »// TAG CHKDRFL« 0x030e…030f 0x6a 0x030f…0310 0x95 0x0310…0325 »// IFF DATAF1-$OUDRFL« 0x0325…0326 0x02 0x0326…0327 0x8a 0x0327…0331 »GOTO EVLP1« 0x0331…0332 0x57 0x0332…0333 0xa4 0x0333…0357 »// LOCAL OFFSET-031,DATA-'2',BLANK-1« 0x0357…0358 0x54 0x0358…0359 0x90 0x0359…0369 »// GOTO GETDFTID« 0x0369…036a 0x68 0x036a…036b 0xa4 0x036b…038f »// LOCAL OFFSET-031,DATA-'0',BLANK-1« 0x038f…0390 0x54 0x0390…0391 0x99 0x0391…03aa »// EVALUATE P58='' P59=''« 0x03aa…03ab 0x5f 0x03ab…03ac 0x8d 0x03ac…03b9 »// GOTO EVLP1« 0x03b9…03ba 0x6b 0x03ba…03bb 0x8f 0x03bb…03ca »// TAG GETDFTID« 0x03ca…03cb 0x69 0x03cb…03cc 0x94 0x03cc…03e0 »// LOAD PSDID,#MYLIB« 0x03e0…03e1 0x64 0x03e1…03e2 0xa7 0x03e2…0409 »// FILE NAME-$MYSYSID,UNIT-F1,DISP-?56?« 0x0409…040a 0x51 0x040a…040b 0xa6 0x040b…0431 »// FILE NAME-$OUDRFL,UNIT-F1,DISP-?57?« 0x0431…0432 0x52 0x0432…0433 0x86 0x0433…0439 »// RUN« 0x0439…043a 0x72 0x043a…043b 0x9c 0x043b…0457 »// EVALUATE P58='?L'204,8'?'« 0x0457…0458 0x5c 0x0458…0459 0x9c 0x0459…0475 »// EVALUATE P59='?L'212,8'?'« 0x0475…0476 0x5c 0x0476…0477 0x81 0x0477…0478 »*« 0x0478…0479 0x77 0x0479…047a 0x8c 0x047a…0486 »// TAG EVLP1« 0x0486…0487 0x6c 0x0487…0488 0xa1 0x0488…04a9 »// IF ?1?/ EVALUATE P1='$MYSC000'« 0x04a9…04aa 0x57 0x04aa…04ab 0xaa 0x04ab…04d5 »// IFF ?1?/$MYSC000 EVALUATE P1='$MYSC000'« 0x04d5…04d6 0x4e 0x04d6…04d7 0x95 0x04d7…04ec »// EVALUATE P60='?1?'« 0x04ec…04ed 0x63 0x04ed…04ee 0x90 0x04ee…04fe »// IF DATAF1-?1?« 0x04fe…04ff 0x17 0x04ff…0500 0x8b 0x0500…050b »GOTO PRE300« 0x050b…050c 0x46 0x050c…050d 0x8d 0x050d…051a »// LOAD #RRS1« 0x051a…051b 0x6b 0x051b…051c 0x86 0x051c…0522 »// RUN« 0x0522…0523 0x72 0x0523…0524 0x81 0x0524…0525 »*« 0x0525…0526 0x77 0x0526…0527 0x81 0x0527…0528 »*« 0x0528…0529 0x02 0x0529…052a 0xc7 0x052a…0571 »The following procedure displays the media transport screen, and evokes« 0x0571…0572 0x2e 0x0572…0573 0x81 0x0573…0574 »*« 0x0574…0575 0x02 0x0575…0576 0xb7 0x0576…05ad »the proper media screen depending upon operator choice.« 0x05ad…05ae 0x3e 0x05ae…05af 0x81 0x05af…05b0 »*« 0x05b0…05b1 0x77 0x05b1…05b2 0x8d 0x05b2…05bf »// TAG PRE300« 0x05bf…05c0 0x6b 0x05c0…05c1 0xa7 0x05c1…05e8 »// EVALUATE P1='1' P2='' P41='' P61='1'« 0x05e8…05e9 0x51 0x05e9…05ea 0x81 0x05ea…05eb »*« 0x05eb…05ec 0x77 0x05ec…05ed 0x81 0x05ed…05ee »*« 0x05ee…05ef 0x02 0x05ef…05f0 0xc3 0x05f0…0633 »CALL $PSIN TO CHECK SYSCOMM FOR KANJI AND/OR SINGLE DISKETTE SYSTEM« 0x0633…0634 0x32 0x0634…0635 0x81 0x0635…0636 »*« 0x0636…0637 0x10 0x0637…0638 0x87 0x0638…063f »LDA 200« 0x063f…0640 0x02 0x0640…0641 0x81 0x0641…0642 »-« 0x0642…0643 0x02 0x0643…0644 0x94 0x0644…0658 »0 = NON KANJI SYSTEM« 0x0658…0659 0x47 0x0659…065a 0x81 0x065a…065b »*« 0x065b…065c 0x1c 0x065c…065d 0x90 0x065d…066d »1 = KANJI SYSTEM« 0x066d…066e 0x4b 0x066e…066f 0x81 0x066f…0670 »*« 0x0670…0671 0x10 0x0671…0672 0x87 0x0672…0679 »LDA 201« 0x0679…067a 0x02 0x067a…067b 0x81 0x067b…067c »-« 0x067c…067d 0x02 0x067d…067e 0xa0 0x067e…069e »1 = SINGLE DISKETTE DRIVE SYSTEM« 0x069e…069f 0x3b 0x069f…06a0 0x81 0x06a0…06a1 »*« 0x06a1…06a2 0x1c 0x06a2…06a3 0x99 0x06a3…06bc »2 = MULTIPLE DRIVE SYSTEM« 0x06bc…06bd 0x42 0x06bd…06be 0x81 0x06be…06bf »*« 0x06bf…06c0 0x10 0x06c0…06c1 0x8d 0x06c1…06ce »P62 = LDA 200« 0x06ce…06cf 0x5a 0x06cf…06d0 0x81 0x06d0…06d1 »*« 0x06d1…06d2 0x10 0x06d2…06d3 0x8d 0x06d3…06e0 »P63 = LDA 201« 0x06e0…06e1 0x5a 0x06e1…06e2 0x81 0x06e2…06e3 »*« 0x06e3…06e4 0x10 0x06e4…06e5 0x98 0x06e5…06fd »UPSI 8 ON = SINGLE DRIVE« 0x06fd…06fe 0x4f 0x06fe…06ff 0x81 0x06ff…0700 »*« 0x0700…0701 0x77 0x0701…0702 0x94 0x0702…0716 »// LOAD $PSIN,#MYLIB« 0x0716…0717 0x64 0x0717…0718 0x86 0x0718…071e »// RUN« 0x071e…071f 0x72 0x071f…0720 0x9a 0x0720…073a »// EVALUATE P62=?L'200,1'?« 0x073a…073b 0x5e 0x073b…073c 0x9a 0x073c…0756 »// EVALUATE P63=?L'201,1'?« 0x0756…0757 0x5e 0x0757…0758 0x92 0x0758…076a »// SWITCH XXXXXXXX« 0x076a…076b 0x66 0x076b…076c 0x94 0x076c…0780 »// IF ?L'201,1'?='1'« 0x0780…0781 0x06 0x0781…0782 0x8f 0x0782…0791 »SWITCH XXXXXXX1« 0x0791…0792 0x4f 0x0792…0793 0x8d 0x0793…07a0 »// TAG SYS300« 0x07a0…07a1 0x6b 0x07a1…07a2 0x95 0x07a2…07b7 »// EVALUATE P1='?61?'« 0x07b7…07b8 0x63 0x07b8…07b9 0x8f 0x07b9…07c8 »// IFF ?62?='1'« 0x07c8…07c9 0x18 0x07c9…07ca 0x8b 0x07ca…07d5 »GOTO MAS300« 0x07d5…07d6 0x46 0x07d6…07d7 0xb5 0x07d7…080c »// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS300,LENGTH-'1,78'« 0x080c…080d 0x43 0x080d…080e 0x8e 0x080e…081c »// GOTO EVL300« 0x081c…081d 0x6a 0x081d…081e 0x8d 0x081e…082b »// TAG MAS300« 0x082b…082c 0x6b 0x082c…082d 0xb5 0x082d…0862 »// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS300,LENGTH-'1,78'« 0x0862…0863 0x43 0x0863…0864 0x8d 0x0864…0871 »// TAG EVL300« 0x0871…0872 0x6b 0x0872…0873 0x8b 0x0873…087e »// EVALUATE« 0x087e…087f 0x08 0x087f…0880 0x8c 0x0880…088c »P41='' P2=''« 0x088c…088d 0x59 0x088d…088e 0x8f 0x088e…089d »// IF ?CD?=2007« 0x089d…089e 0x18 0x089e…089f 0x86 0x089f…08a5 »CANCEL« 0x08a5…08a6 0x4b 0x08a6…08a7 0x8f 0x08a7…08b6 »// IF ?CD?=2003« 0x08b6…08b7 0x18 0x08b7…08b8 0x86 0x08b8…08be »CANCEL« 0x08be…08bf 0x4b 0x08bf…08c0 0x90 0x08c0…08d0 »// IFF ?CD?=0000« 0x08d0…08d1 0x17 0x08d1…08d2 0x8b 0x08d2…08dd »GOTO PRE300« 0x08dd…08de 0x46 0x08de…08df 0x95 0x08df…08f4 »// EVALUATE P61='?1?'« 0x08f4…08f5 0x63 0x08f5…08f6 0x8d 0x08f6…0903 »// IF '?1?'=1« 0x0903…0904 0x1c 0x0904…0905 0x8b 0x0905…0910 »GOTO PRE310« 0x0910…0911 0x44 0x0911…0912 0x8d 0x0912…091f »// IF '?1?'=2« 0x091f…0920 0x1c 0x0920…0921 0x8b 0x0921…092c »GOTO PRE320« 0x092c…092d 0x44 0x092d…092e 0x8d 0x092e…093b »// IF '?1?'=3« 0x093b…093c 0x1c 0x093c…093d 0x8b 0x093d…0948 »GOTO PRE330« 0x0948…0949 0x44 0x0949…094a 0xa2 0x094a…096c »// GOTO SYS300 ?2F'2004'? ?41F'C'?« 0x096c…096d 0x56 0x096d…096e 0x81 0x096e…096f »*« 0x096f…0970 0x77 0x0970…0971 0x81 0x0971…0972 »*« 0x0972…0973 0x02 0x0973…0974 0xbf 0x0974…09b3 »The following procedure displays the diskette transport screen.« 0x09b3…09b4 0x36 0x09b4…09b5 0x81 0x09b5…09b6 »*« 0x09b6…09b7 0x77 0x09b7…09b8 0x8d 0x09b8…09c5 »// TAG PRE310« 0x09c5…09c6 0x6b 0x09c6…09c7 0x98 0x09c7…09df »// EVALUATE P1='' P2='S1« 0x09df…09e0 0x03 0x09e0…09e1 0x99 0x09e1…09fa »' P3='AUTO ' P4='2' P5=''« 0x09fa…09fb 0x44 0x09fb…09fc 0xae 0x09fc…0a2a »// EVALUATE P40='' P42='' P43='' P44='' P45=''« 0x0a2a…0a2b 0x4a 0x0a2b…0a2c 0x9d 0x0a2c…0a49 »// LOCAL OFFSET-1,AREA-SYSTEM« 0x0a49…0a4a 0x5b 0x0a4a…0a4b 0x81 0x0a4b…0a4c »*« 0x0a4c…0a4d 0x77 0x0a4d…0a4e 0x81 0x0a4e…0a4f »*« 0x0a4f…0a50 0x02 0x0a50…0a51 0x9d 0x0a51…0a6e »CHECK P62 FOR KANJI PREFERRED« 0x0a6e…0a6f 0x58 0x0a6f…0a70 0x81 0x0a70…0a71 »*« 0x0a71…0a72 0x77 0x0a72…0a73 0x8d 0x0a73…0a80 »// TAG SYS310« 0x0a80…0a81 0x6b 0x0a81…0a82 0x8f 0x0a82…0a91 »// IFF ?62?='1'« 0x0a91…0a92 0x19 0x0a92…0a93 0x8b 0x0a93…0a9e »GOTO MAS310« 0x0a9e…0a9f 0x45 0x0a9f…0aa0 0xc4 0x0aa0…0ae4 »// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS310,LENGTH-'6,5,6,1,78',UPSI-YES« 0x0ae4…0ae5 0x34 0x0ae5…0ae6 0x8e 0x0ae6…0af4 »// GOTO EVL310« 0x0af4…0af5 0x6a 0x0af5…0af6 0x8d 0x0af6…0b03 »// TAG MAS310« 0x0b03…0b04 0x6b 0x0b04…0b05 0xc4 0x0b05…0b49 »// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS310,LENGTH-'6,5,6,1,78',UPSI-YES« 0x0b49…0b4a 0x34 0x0b4a…0b4b 0x8d 0x0b4b…0b58 »// TAG EVL310« 0x0b58…0b59 0x6b 0x0b59…0b5a 0xb4 0x0b5a…0b8e »// EVALUATE P5='' P40='' P42='' P43='' P44='' P45=''« 0x0b8e…0b8f 0x44 0x0b8f…0b90 0x8f 0x0b90…0b9f »// IF ?CD?=2003« 0x0b9f…0ba0 0x17 0x0ba0…0ba1 0x8e 0x0ba1…0baf »EVALUATE P2=''« 0x0baf…0bb0 0x44 0x0bb0…0bb1 0x8f 0x0bb1…0bc0 »// IF ?CD?=2003« 0x0bc0…0bc1 0x17 0x0bc1…0bc2 0x9c 0x0bc2…0bde »GOTO SYS300 ?1F'?L'293,1'?'?« 0x0bde…0bdf 0x36 0x0bdf…0be0 0x8f 0x0be0…0bef »// IF ?CD?=2007« 0x0bef…0bf0 0x17 0x0bf0…0bf1 0x86 0x0bf1…0bf7 »CANCEL« 0x0bf7…0bf8 0x4c 0x0bf8…0bf9 0x90 0x0bf9…0c09 »// IFF ?CD?=0000« 0x0c09…0c0a 0x16 0x0c0a…0c0b 0x8b 0x0c0b…0c16 »GOTO PRE310« 0x0c16…0c17 0x47 0x0c17…0c18 0x8c 0x0c18…0c24 »// IF '?1?'/« 0x0c24…0c25 0x1a 0x0c25…0c26 0xa8 0x0c26…0c4e »GOTO SYS310 ?40F'1'? ?42F'C'? ?5F'1181'?« 0x0c4e…0c4f 0x2a 0x0c4f…0c50 0xb2 0x0c50…0c82 »// LOCAL OFFSET-294,DATA-'?1?',AREA-SYSTEM,BLANK-6« 0x0c82…0c83 0x46 0x0c83…0c84 0x94 0x0c84…0c98 »// LOAD #MYEC,#MYLIB« 0x0c98…0c99 0x64 0x0c99…0c9a 0x86 0x0c9a…0ca0 »// RUN« 0x0ca0…0ca1 0x72 0x0ca1…0ca2 0x93 0x0ca2…0cb5 »// IFF ?L'337,1'?/1« 0x0cb5…0cb6 0x0a 0x0cb6…0cb7 0xa8 0x0cb7…0cdf »GOTO SYS310 ?5F'1185'? ?40F'1'? ?42F'C'?« 0x0cdf…0ce0 0x33 0x0ce0…0ce1 0x8c 0x0ce1…0ced »// IF '?2?'/« 0x0ced…0cee 0x1a 0x0cee…0cef 0x9f 0x0cef…0d0e »GOTO SYS310 ?5F'1085'? ?43F'C'?« 0x0d0e…0d0f 0x33 0x0d0f…0d10 0x8c 0x0d10…0d1c »// IF '?3?'/« 0x0d1c…0d1d 0x1a 0x0d1d…0d1e 0x90 0x0d1e…0d2e »EVALUATE P3=AUTO« 0x0d2e…0d2f 0x42 0x0d2f…0d30 0x8c 0x0d30…0d3c »// IF '?4?'/« 0x0d3c…0d3d 0x1a 0x0d3d…0d3e 0x94 0x0d3e…0d52 »GOTO SYS310 ?37F'1'?« 0x0d52…0d53 0x03 0x0d53…0d54 0x88 0x0d54…0d5c »?45F'C'?« 0x0d5c…0d5d 0x33 0x0d5d…0d5e 0xb6 0x0d5e…0d94 »// IFF '?2?'=S1 IFF '?2?'=S2 IFF '?2?'=S3 IFF '?2?'=M1« 0x0d94…0d95 0x0d 0x0d95…0d96 0x81 0x0d96…0d97 »+« 0x0d97…0d98 0x34 0x0d98…0d99 0x03 0x0d99…0d9a 0xbc 0x0d9a…0dd6 »IFF '?2?'=M2 IFF '?2?'=M1.01 IFF '?2?'=M1.02 IFF '?2?'=M1.03« 0x0dd6…0dd7 0x04 0x0dd7…0dd8 0x81 0x0dd8…0dd9 »+« 0x0dd9…0dda 0x34 0x0dda…0ddb 0x03 0x0ddb…0ddc 0xc1 0x0ddc…0e1d »IFF '?2?'=M1.04 IFF '?2?'=M1.05 IFF '?2?'=M1.06 IFF '?2?'=M1.07 +« 0x0e1d…0e1e 0x34 0x0e1e…0e1f 0x03 0x0e1f…0e20 0xc1 0x0e20…0e61 »IFF '?2?'=M1.08 IFF '?2?'=M1.09 IFF '?2?'=M1.10 IFF '?2?'=M2.01 +« 0x0e61…0e62 0x34 0x0e62…0e63 0x03 0x0e63…0e64 0xc1 0x0e64…0ea5 »IFF '?2?'=M2.02 IFF '?2?'=M2.03 IFF '?2?'=M2.04 IFF '?2?'=M2.05 +« 0x0ea5…0ea6 0x34 0x0ea6…0ea7 0x03 0x0ea7…0ea8 0xc1 0x0ea8…0ee9 »IFF '?2?'=M2.06 IFF '?2?'=M2.07 IFF '?2?'=M2.08 IFF '?2?'=M2.09 +« 0x0ee9…0eea 0x34 0x0eea…0eeb 0x03 0x0eeb…0eec 0x8f 0x0eec…0efb »IFF '?2?'=M2.10« 0x0efb…0efc 0x14 0x0efc…0efd 0x9f 0x0efd…0f1c »GOTO SYS310 ?5F'1085'? ?43F'C'?« 0x0f1c…0f1d 0x33 0x0f1d…0f1e 0xb2 0x0f1e…0f50 »// LOCAL OFFSET-300,DATA-'?2?',AREA-SYSTEM,BLANK-5« 0x0f50…0f51 0x46 0x0f51…0f52 0x85 0x0f52…0f57 »// IF« 0x0f57…0f58 0x02 0x0f58…0f59 0x87 0x0f59…0f60 »'?3?'='« 0x0f60…0f61 0x02 0x0f61…0f62 0x85 0x0f62…0f67 »AUTO'« 0x0f67…0f68 0x11 0x0f68…0f69 0x90 0x0f69…0f79 »EVALUATE P3=AUTO« 0x0f79…0f7a 0x42 0x0f7a…0f7b 0x85 0x0f7b…0f80 »// IF« 0x0f80…0f81 0x02 0x0f81…0f82 0x8e 0x0f82…0f90 »'?3?'=' AUTO '« 0x0f90…0f91 0x11 0x0f91…0f92 0x90 0x0f92…0fa2 »EVALUATE P3=AUTO« 0x0fa2…0fa3 0x42 0x0fa3…0fa4 0x92 0x0fa4…0fb6 »// IFF '?3?'='AUTO« 0x0fb6…0fb7 0x02 0x0fb7…0fb8 0x94 0x0fb8…0fcc »' IFF '?3?'='NOAUTO'« 0x0fcc…0fcd 0x02 0x0fcd…0fce 0x9f 0x0fce…0fed »GOTO SYS310 ?5F'1182'? ?44F'C'?« 0x0fed…0fee 0x2f 0x0fee…0fef 0xb2 0x0fef…1021 »// LOCAL OFFSET-305,DATA-'?3?',AREA-SYSTEM,BLANK-6« 0x1021…1022 0x46 0x1022…1023 0x96 0x1023…1039 »// IFF ?4?=1 IFF ?4?=2« 0x1039…103a 0x14 0x103a…103b 0x9d 0x103b…1058 »GOTO SYS310 ?37F'1'? ?45F'C'?« 0x1058…1059 0x31 0x1059…105a 0xaa 0x105a…1084 »// LOCAL OFFSET-311,DATA-'?4?',AREA-SYSTEM« 0x1084…1085 0x4e 0x1085…1086 0x95 0x1086…109b »// EVALUATE P21='?1?'« 0x109b…109c 0x63 0x109c…109d 0x95 0x109d…10b2 »// EVALUATE P22='?2?'« 0x10b2…10b3 0x63 0x10b3…10b4 0x95 0x10b4…10c9 »// EVALUATE P23='?3?'« 0x10c9…10ca 0x63 0x10ca…10cb 0x81 0x10cb…10cc »*« 0x10cc…10cd 0x77 0x10cd…10ce 0x81 0x10ce…10cf »*« 0x10cf…10d0 0x02 0x10d0…10d1 0xc4 0x10d1…1115 »Prepare the operator to initialize diskettes (as requested on screen« 0x1115…1116 0x31 0x1116…1117 0x81 0x1117…1118 »*« 0x1118…1119 0x02 0x1119…111a 0x88 0x111a…1122 »MAS310).« 0x1122…1123 0x6d 0x1123…1124 0x81 0x1124…1125 »*« 0x1125…1126 0x77 0x1126…1127 0x8b 0x1127…1132 »// IF ?4?=2« 0x1132…1133 0x1c 0x1133…1134 0x8b 0x1134…113f »GOTO PRE330« 0x113f…1140 0x46 0x1140…1141 0x81 0x1141…1142 »*« 0x1142…1143 0x02 0x1143…1144 0x96 0x1144…115a »Initialize diskette(s)« 0x115a…115b 0x5f 0x115b…115c 0xa3 0x115c…117f »// HELP INIT ?1?,OWNERID,RENAME,?2?« 0x117f…1180 0x55 0x1180…1181 0x8f 0x1181…1190 »// IF ?CD?=2143« 0x1190…1191 0x18 0x1191…1192 0x8b 0x1192…119d »GOTO PRE310« 0x119d…119e 0x46 0x119e…119f 0x8e 0x119f…11ad »// GOTO PRE330« 0x11ad…11ae 0x6a 0x11ae…11af 0x81 0x11af…11b0 »*« 0x11b0…11b1 0x77 0x11b1…11b2 0x81 0x11b2…11b3 »*« 0x11b3…11b4 0x02 0x11b4…11b5 0xc6 0x11b5…11fb »The following procedure displays the tape transport screen, and evokes« 0x11fb…11fc 0x2f 0x11fc…11fd 0x81 0x11fd…11fe »*« 0x11fe…11ff 0x02 0x11ff…1200 0xac 0x1200…122c »the PSTAPE procedure to obtain all DRU data.« 0x122c…122d 0x49 0x122d…122e 0x81 0x122e…122f »*« 0x122f…1230 0x77 0x1230…1231 0x8d 0x1231…123e »// TAG PRE320« 0x123e…123f 0x6b 0x123f…1240 0xae 0x1240…126e »// EVALUATE P1='' P2='T1' P3='REWIND' P4='AUTO« 0x126e…126f 0x02 0x126f…1270 0x8e 0x1270…127e »' P5='2' P6=''« 0x127e…127f 0x3a 0x127f…1280 0xae 0x1280…12ae »// EVALUATE P46='' P47='' P48='' P49='' P50=''« 0x12ae…12af 0x4a 0x12af…12b0 0x81 0x12b0…12b1 »*« 0x12b1…12b2 0x77 0x12b2…12b3 0x81 0x12b3…12b4 »*« 0x12b4…12b5 0x02 0x12b5…12b6 0x9d 0x12b6…12d3 »CHECK P62 FOR KANJI PREFERRED« 0x12d3…12d4 0x58 0x12d4…12d5 0x81 0x12d5…12d6 »*« 0x12d6…12d7 0x77 0x12d7…12d8 0x8d 0x12d8…12e5 »// TAG SYS320« 0x12e5…12e6 0x6b 0x12e6…12e7 0x8f 0x12e7…12f6 »// IFF ?62?='1'« 0x12f6…12f7 0x18 0x12f7…12f8 0x8b 0x12f8…1303 »GOTO MAS320« 0x1303…1304 0x46 0x1304…1305 0xbd 0x1305…1342 »// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS320,LENGTH-'6,2,6,6,1,78'« 0x1342…1343 0x3b 0x1343…1344 0x8e 0x1344…1352 »// GOTO EVL320« 0x1352…1353 0x6a 0x1353…1354 0x8d 0x1354…1361 »// TAG MAS320« 0x1361…1362 0x6b 0x1362…1363 0xbd 0x1363…13a0 »// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS320,LENGTH-'6,2,6,6,1,78'« 0x13a0…13a1 0x3b 0x13a1…13a2 0x8d 0x13a2…13af »// TAG EVL320« 0x13af…13b0 0x6b 0x13b0…13b1 0xb4 0x13b1…13e5 »// EVALUATE P6='' P46='' P47='' P48='' P49='' P50=''« 0x13e5…13e6 0x44 0x13e6…13e7 0x8f 0x13e7…13f6 »// IF ?CD?=2003« 0x13f6…13f7 0x18 0x13f7…13f8 0x8e 0x13f8…1406 »EVALUATE P2=''« 0x1406…1407 0x43 0x1407…1408 0x8f 0x1408…1417 »// IF ?CD?=2003« 0x1417…1418 0x18 0x1418…1419 0x9c 0x1419…1435 »GOTO SYS300 ?1F'?L'293,1'?'?« 0x1435…1436 0x35 0x1436…1437 0x8f 0x1437…1446 »// IF ?CD?=2007« 0x1446…1447 0x18 0x1447…1448 0x86 0x1448…144e »CANCEL« 0x144e…144f 0x4b 0x144f…1450 0x90 0x1450…1460 »// IFF ?CD?=0000« 0x1460…1461 0x17 0x1461…1462 0x8b 0x1462…146d »GOTO SYS320« 0x146d…146e 0x46 0x146e…146f 0x8c 0x146f…147b »// IF '?1?'/« 0x147b…147c 0x1b 0x147c…147d 0x9f 0x147d…149c »GOTO SYS320 ?6F'1181'? ?54F'C'?« 0x149c…149d 0x32 0x149d…149e 0xb2 0x149e…14d0 »// LOCAL OFFSET-294,DATA-'?1?',AREA-SYSTEM,BLANK-6« 0x14d0…14d1 0x46 0x14d1…14d2 0x94 0x14d2…14e6 »// LOAD #MYEC,#MYLIB« 0x14e6…14e7 0x64 0x14e7…14e8 0x86 0x14e8…14ee »// RUN« 0x14ee…14ef 0x72 0x14ef…14f0 0x93 0x14f0…1503 »// IFF ?L'337,1'?/1« 0x1503…1504 0x0b 0x1504…1505 0xa8 0x1505…152d »GOTO SYS320 ?6F'1185'? ?46F'1'? ?54F'C'?« 0x152d…152e 0x32 0x152e…152f 0x8c 0x152f…153b »// IF '?2?'/« 0x153b…153c 0x1b 0x153c…153d 0x9f 0x153d…155c »GOTO SYS320 ?6F'1086'? ?47F'C'?« 0x155c…155d 0x32 0x155d…155e 0x8c 0x155e…156a »// IF '?3?'/« 0x156a…156b 0x1b 0x156b…156c 0x9f 0x156c…158b »GOTO SYS320 ?6F'1516'? ?49F'C'?« 0x158b…158c 0x32 0x158c…158d 0x8c 0x158d…1599 »// IF '?4?'/« 0x1599…159a 0x1b 0x159a…159b 0x90 0x159b…15ab »EVALUATE P4=AUTO« 0x15ab…15ac 0x41 0x15ac…15ad 0x8c 0x15ad…15b9 »// IF '?5?'/« 0x15b9…15ba 0x1b 0x15ba…15bb 0x8d 0x15bb…15c8 »EVALUATE P5=2« 0x15c8…15c9 0x44 0x15c9…15ca 0xb2 0x15ca…15fc »// LOCAL OFFSET-312,DATA-'?1?',AREA-SYSTEM,BLANK-6« 0x15fc…15fd 0x46 0x15fd…15fe 0xb1 0x15fe…162f »// IFF '?2?'='T1' IFF '?2?'='T2' IFF '?2?'='TC' +« 0x162f…1630 0x47 0x1630…1631 0x27 0x1631…1632 0x9f 0x1632…1651 »GOTO SYS320 ?6F'1086'? ?47F'C'?« 0x1651…1652 0x32 0x1652…1653 0xb2 0x1653…1685 »// LOCAL OFFSET-318,DATA-'?2?',AREA-SYSTEM,BLANK-2« 0x1685…1686 0x46 0x1686…1687 0x85 0x1687…168c »// IF« 0x168c…168d 0x02 0x168d…168e 0x87 0x168e…1695 »'?4?'='« 0x1695…1696 0x02 0x1696…1697 0x85 0x1697…169c »AUTO'« 0x169c…169d 0x03 0x169d…169e 0x91 0x169e…16af »EVALUATE P4='AUTO« 0x16af…16b0 0x02 0x16b0…16b1 0x81 0x16b1…16b2 »'« 0x16b2…16b3 0x4c 0x16b3…16b4 0x85 0x16b4…16b9 »// IF« 0x16b9…16ba 0x02 0x16ba…16bb 0x8e 0x16bb…16c9 »'?4?'=' AUTO '« 0x16c9…16ca 0x03 0x16ca…16cb 0x91 0x16cb…16dc »EVALUATE P4='AUTO« 0x16dc…16dd 0x02 0x16dd…16de 0x81 0x16de…16df »'« 0x16df…16e0 0x4c 0x16e0…16e1 0x92 0x16e1…16f3 »// IFF '?4?'='AUTO« 0x16f3…16f4 0x02 0x16f4…16f5 0xb4 0x16f5…1729 »' IFF '?4?'='NOAUTO' GOTO SYS320 ?6F'1182'? ?48F'C'?« 0x1729…172a 0x30 0x172a…172b 0xb2 0x172b…175d »// LOCAL OFFSET-326,DATA-'?4?',AREA-SYSTEM,BLANK-6« 0x175d…175e 0x46 0x175e…175f 0xbd 0x175f…179c »// IFF '?3?'='REWIND' IFF '?3?'='LEAVE ' IFF '?3?'='UNLOAD' +« 0x179c…179d 0x3b 0x179d…179e 0x29 0x179e…179f 0x9f 0x179f…17be »GOTO SYS320 ?6F'3335'? ?49F'C'?« 0x17be…17bf 0x30 0x17bf…17c0 0xb2 0x17c0…17f2 »// LOCAL OFFSET-320,DATA-'?3?',AREA-SYSTEM,BLANK-6« 0x17f2…17f3 0x46 0x17f3…17f4 0x96 0x17f4…180a »// IFF ?5?=1 IFF ?5?=2« 0x180a…180b 0x13 0x180b…180c 0x9f 0x180c…182b »GOTO SYS320 ?6F'3334'? ?50F'C'?« 0x182b…182c 0x30 0x182c…182d 0x95 0x182d…1842 »// EVALUATE P21='?1?'« 0x1842…1843 0x63 0x1843…1844 0x95 0x1844…1859 »// EVALUATE P22='?2?'« 0x1859…185a 0x63 0x185a…185b 0x95 0x185b…1870 »// EVALUATE P23='?4?'« 0x1870…1871 0x63 0x1871…1872 0x95 0x1872…1887 »// EVALUATE P24='?3?'« 0x1887…1888 0x63 0x1888…1889 0x81 0x1889…188a »*« 0x188a…188b 0x77 0x188b…188c 0x81 0x188c…188d »*« 0x188d…188e 0x02 0x188e…188f 0xc0 0x188f…18cf »Prepare the operator to initialize tapes (as requested on screen« 0x18cf…18d0 0x35 0x18d0…18d1 0x81 0x18d1…18d2 »*« 0x18d2…18d3 0x02 0x18d3…18d4 0x88 0x18d4…18dc »MAS320).« 0x18dc…18dd 0x6d 0x18dd…18de 0x81 0x18de…18df »*« 0x18df…18e0 0x77 0x18e0…18e1 0x8b 0x18e1…18ec »// IF ?5?=2« 0x18ec…18ed 0x1c 0x18ed…18ee 0x8b 0x18ee…18f9 »GOTO PRE330« 0x18f9…18fa 0x46 0x18fa…18fb 0xa9 0x18fb…1924 »// HELP TAPEINIT ?2?,SL,?1?,,OWNERID,,?3?« 0x1924…1925 0x4f 0x1925…1926 0x8f 0x1926…1935 »// IF ?CD?=2143« 0x1935…1936 0x18 0x1936…1937 0x8b 0x1937…1942 »GOTO PRE320« 0x1942…1943 0x46 0x1943…1944 0x81 0x1944…1945 »*« 0x1945…1946 0x77 0x1946…1947 0x81 0x1947…1948 »*« 0x1948…1949 0x02 0x1949…194a 0xc3 0x194a…198d »Prompt DRU screen MAS330 requesting operator to enter the system-id« 0x198d…198e 0x32 0x198e…198f 0x81 0x198f…1990 »*« 0x1990…1991 0x02 0x1991…1992 0x9a 0x1992…19ac »and address (REN and RGN).« 0x19ac…19ad 0x5b 0x19ad…19ae 0x81 0x19ae…19af »*« 0x19af…19b0 0x77 0x19b0…19b1 0x8d 0x19b1…19be »// TAG PRE330« 0x19be…19bf 0x6b 0x19bf…19c0 0xb3 0x19c0…19f3 »// EVALUATE P1='?59?' P2='?58?' P3='' P51='' P52=''« 0x19f3…19f4 0x45 0x19f4…19f5 0x93 0x19f5…1a08 »// EVALUATE P35='1'« 0x1a08…1a09 0x65 0x1a09…1a0a 0x81 0x1a0a…1a0b »*« 0x1a0b…1a0c 0x77 0x1a0c…1a0d 0x81 0x1a0d…1a0e »*« 0x1a0e…1a0f 0x02 0x1a0f…1a10 0x9d 0x1a10…1a2d »CHECK P62 FOR KANJI PREFERRED« 0x1a2d…1a2e 0x58 0x1a2e…1a2f 0x81 0x1a2f…1a30 »*« 0x1a30…1a31 0x77 0x1a31…1a32 0x8d 0x1a32…1a3f »// TAG SYS330« 0x1a3f…1a40 0x6b 0x1a40…1a41 0x8f 0x1a41…1a50 »// IFF ?62?='1'« 0x1a50…1a51 0x18 0x1a51…1a52 0x8b 0x1a52…1a5d »GOTO MAS330« 0x1a5d…1a5e 0x46 0x1a5e…1a5f 0xb7 0x1a5f…1a96 »// PROMPT MEMBER-#MY$FMT2,FORMAT-MAS330,LENGTH-'8,8,78'« 0x1a96…1a97 0x41 0x1a97…1a98 0x8e 0x1a98…1aa6 »// GOTO EVL330« 0x1aa6…1aa7 0x6a 0x1aa7…1aa8 0x8d 0x1aa8…1ab5 »// TAG MAS330« 0x1ab5…1ab6 0x6b 0x1ab6…1ab7 0xb7 0x1ab7…1aee »// PROMPT MEMBER-#MY@FMT2,FORMAT-MAS330,LENGTH-'8,8,78'« 0x1aee…1aef 0x41 0x1aef…1af0 0x8d 0x1af0…1afd »// TAG EVL330« 0x1afd…1afe 0x6b 0x1afe…1aff 0x9e 0x1aff…1b1d »// EVALUATE P3='' P51='' P52''« 0x1b1d…1b1e 0x5a 0x1b1e…1b1f 0x92 0x1b1f…1b31 »// EVALUATE P35=''« 0x1b31…1b32 0x66 0x1b32…1b33 0x95 0x1b33…1b48 »// EVALUATE P58='?2?'« 0x1b48…1b49 0x63 0x1b49…1b4a 0x95 0x1b4a…1b5f »// EVALUATE P59='?1?'« 0x1b5f…1b60 0x63 0x1b60…1b61 0x99 0x1b61…1b7a »// IF ?CD?=2003 IF ?61?=1« 0x1b7a…1b7b 0x0d 0x1b7b…1b7c 0x9e 0x1b7c…1b9a »GOTO SYS310 ?1F'?L'294,6'?'? +« 0x1b9a…1b9b 0x34 0x1b9b…1b9c 0x03 0x1b9c…1b9d 0xb2 0x1b9d…1bcf »?2F'?L'300,5'?'? ?3F'?L'305,6'?'? ?4F'?L'311,1'?'?« 0x1bcf…1bd0 0x43 0x1bd0…1bd1 0x99 0x1bd1…1bea »// IF ?CD?=2003 IF ?61?=2« 0x1bea…1beb 0x0d 0x1beb…1bec 0x9e 0x1bec…1c0a »GOTO SYS320 ?1F'?L'312,6'?'? +« 0x1c0a…1c0b 0x34 0x1c0b…1c0c 0x03 0x1c0c…1c0d 0xb2 0x1c0d…1c3f »?2F'?L'318,2'?'? ?3F'?L'320,6'?'? ?4F'?L'326,6'?'?« 0x1c3f…1c40 0x43 0x1c40…1c41 0x99 0x1c41…1c5a »// IF ?CD?=2003 IF ?61?=3« 0x1c5a…1c5b 0x0d 0x1c5b…1c5c 0x92 0x1c5c…1c6e »GOTO SYS300 ?2F''?« 0x1c6e…1c6f 0x40 0x1c6f…1c70 0x8f 0x1c70…1c7f »// IF ?CD?=2007« 0x1c7f…1c80 0x17 0x1c80…1c81 0x86 0x1c81…1c87 »CANCEL« 0x1c87…1c88 0x4c 0x1c88…1c89 0x8c 0x1c89…1c95 »// IF '?1?'/« 0x1c95…1c96 0x1a 0x1c96…1c97 0x9f 0x1c97…1cb6 »GOTO SYS330 ?3F'3332'? ?51F'C'?« 0x1cb6…1cb7 0x33 0x1cb7…1cb8 0x8c 0x1cb8…1cc4 »// IF '?2?'/« 0x1cc4…1cc5 0x1a 0x1cc5…1cc6 0x9f 0x1cc6…1ce5 »GOTO SYS330 ?3F'3333'? ?52F'C'?« 0x1ce5…1ce6 0x33 0x1ce6…1ce7 0x81 0x1ce7…1ce8 »*« 0x1ce8…1ce9 0x77 0x1ce9…1cea 0x81 0x1cea…1ceb »*« 0x1ceb…1cec 0x02 0x1cec…1ced 0xc8 0x1ced…1d35 »If the files that are to be built still exist on the system, then delete« 0x1d35…1d36 0x2d 0x1d36…1d37 0x81 0x1d37…1d38 »*« 0x1d38…1d39 0x02 0x1d39…1d3a 0x85 0x1d3a…1d3f »them.« 0x1d3f…1d40 0x70 0x1d40…1d41 0x81 0x1d41…1d42 »*« 0x1d42…1d43 0x77 0x1d43…1d44 0xa6 0x1d44…1d6a »// IF DATAF1-$MYGRPN DELETE $MYGRPN,F1« 0x1d6a…1d6b 0x52 0x1d6b…1d6c 0xa6 0x1d6c…1d92 »// IF DATAF1-$MYMEMA DELETE $MYMEMA,F1« 0x1d92…1d93 0x52 0x1d93…1d94 0xa6 0x1d94…1dba »// IF DATAF1-$MYMEMI DELETE $MYMEMI,F1« 0x1dba…1dbb 0x52 0x1dbb…1dbc 0xa6 0x1dbc…1de2 »// IF DATAF1-$MYMEMN DELETE $MYMEMN,F1« 0x1de2…1de3 0x52 0x1de3…1de4 0xa6 0x1de4…1e0a »// IF DATAF1-$MYGRPT DELETE $MYGRPT,F1« 0x1e0a…1e0b 0x52 0x1e0b…1e0c 0xa6 0x1e0c…1e32 »// IF DATAF1-$MYDRUF DELETE $MYDRUF,F1« 0x1e32…1e33 0x52 0x1e33…1e34 0xa8 0x1e34…1e5c »// IF DATAF1-$MYSYSID DELETE $MYSYSID,F1« 0x1e5c…1e5d 0x50 0x1e5d…1e5e 0x9f 0x1e5e…1e7d »// IFF DATAF1-$OUDRFL GOTO PSDR« 0x1e7d…1e7e 0x59 0x1e7e…1e7f 0x9f 0x1e7f…1e9e »// IFF DATAF1-$OUGRFL GOTO PSDR« 0x1e9e…1e9f 0x59 0x1e9f…1ea0 0x81 0x1ea0…1ea1 »*« 0x1ea1…1ea2 0x77 0x1ea2…1ea3 0x81 0x1ea3…1ea4 »*« 0x1ea4…1ea5 0x02 0x1ea5…1ea6 0xc8 0x1ea6…1eee »Run the group resolve module (PSX1) to prepare group data for use in the« 0x1eee…1eef 0x2d 0x1eef…1ef0 0x81 0x1ef0…1ef1 »*« 0x1ef1…1ef2 0x02 0x1ef2…1ef3 0xa3 0x1ef3…1f16 »Duplicate Resolution module (PSDR).« 0x1f16…1f17 0x52 0x1f17…1f18 0x81 0x1f18…1f19 »*« 0x1f19…1f1a 0x77 0x1f1a…1f1b 0x98 0x1f1b…1f33 »// LOCAL OFFSET-1,DATA-'« 0x1f33…1f34 0x08 0x1f34…1f35 0x8c 0x1f35…1f41 »',BLANK-*ALL« 0x1f41…1f42 0x4c 0x1f42…1f43 0x9d 0x1f43…1f60 »// LOCAL OFFSET-9,DATA-'0000'« 0x1f60…1f61 0x5b 0x1f61…1f62 0x99 0x1f62…1f7b »// LOCAL OFFSET-13,DATA-'« 0x1f7b…1f7c 0x02 0x1f7c…1f7d 0x81 0x1f7d…1f7e »'« 0x1f7e…1f7f 0x5c 0x1f7f…1f80 0xbc 0x1f80…1fbc »// BLDFILE $MYGRPN,I,RECORDS,100,10,,T,1,8,DFILE,NODUPKEY,50« 0x1fbc…1fbd 0x3c 0x1fbd…1fbe 0xbd 0x1fbe…1ffb »// BLDFILE $MYMEMN,I,RECORDS,100,28,,T,1,16,DFILE,NODUPKEY,50« 0x1ffb…1ffc 0x3b 0x1ffc…1ffd 0x93 0x1ffd…2010 »// LOAD PSX1,#MYLIB« 0x2010…2011 0x65 0x2011…2012 0x98 0x2012…202a »*@A0C** ADDED DISP-SHARE« 0x202a…202b 0x60 0x202b…202c 0xa5 0x202c…2051 »// FILE NAME-$OUGRFL,UNIT-F1,DISP-SHR« 0x2051…2052 0x53 0x2052…2053 0xa5 0x2053…2078 »// FILE NAME-$MYGRPN,UNIT-F1,DISP-OLD« 0x2078…2079 0x53 0x2079…207a 0xa5 0x207a…209f »// FILE NAME-$MYMEMN,UNIT-F1,DISP-OLD« 0x209f…20a0 0x53 0x20a0…20a1 0x86 0x20a1…20a7 »// RUN« 0x20a7…20a8 0x72 0x20a8…20a9 0xa2 0x20a9…20cb »// IFF ?L'9,4'?='0000' GOTO ERREND« 0x20cb…20cc 0x56 0x20cc…20cd 0x81 0x20cd…20ce »*« 0x20ce…20cf 0x77 0x20cf…20d0 0x81 0x20d0…20d1 »*« 0x20d1…20d2 0x02 0x20d2…20d3 0x85 0x20d3…20d8 »NOTE:« 0x20d8…20d9 0x02 0x20d9…20da 0xad 0x20da…2107 »DLS WILL NOT BE MIGRATED IN THE FIRST RELEASE« 0x2107…2108 0x03 0x2108…2109 0x8a 0x2109…2113 »**********« 0x2113…2114 0x34 0x2114…2115 0x81 0x2115…2116 »*« 0x2116…2117 0x77 0x2117…2118 0x81 0x2118…2119 »*« 0x2119…211a 0x02 0x211a…211b 0xc4 0x211b…215f »Run the Duplicate Resolution module (PSDR), and be sure to check for« 0x215f…2160 0x31 0x2160…2161 0x81 0x2161…2162 »*« 0x2162…2163 0x02 0x2163…2164 0xc7 0x2164…21ab »existence of Document Library Services (verifying existence of DLS file« 0x21ab…21ac 0x2e 0x21ac…21ad 0x81 0x21ad…21ae »*« 0x21ae…21af 0x02 0x21af…21b0 0xa2 0x21b0…21d2 »$OULINFO will serve this purpose).« 0x21d2…21d3 0x53 0x21d3…21d4 0x81 0x21d4…21d5 »*« 0x21d5…21d6 0x77 0x21d6…21d7 0x8b 0x21d7…21e2 »// TAG PSDR« 0x21e2…21e3 0x6d 0x21e3…21e4 0x98 0x21e4…21fc »// LOCAL OFFSET-1,DATA-'« 0x21fc…21fd 0x08 0x21fd…21fe 0x8c 0x21fe…220a »',BLANK-*ALL« 0x220a…220b 0x4c 0x220b…220c 0x9d 0x220c…2229 »// LOCAL OFFSET-9,DATA-'0000'« 0x2229…222a 0x5b 0x222a…222b 0x99 0x222b…2244 »// LOCAL OFFSET-13,DATA-'« 0x2244…2245 0x02 0x2245…2246 0x81 0x2246…2247 »'« 0x2247…2248 0x5c 0x2248…2249 0x9d 0x2249…2266 »// LOCAL OFFSET-15,DATA-'?2?'« 0x2266…2267 0x5b 0x2267…2268 0x9d 0x2268…2285 »// LOCAL OFFSET-23,DATA-'?1?'« 0x2285…2286 0x5b 0x2286…2287 0xae 0x2287…22b5 »// IF DATAF1-$OULINFO LOCAL OFFSET-31,DATA-'1'« 0x22b5…22b6 0x4a 0x22b6…22b7 0x95 0x22b7…22cc »// IFF DATAF1-$OUDRFL« 0x22cc…22cd 0x11 0x22cd…22ce 0x8a 0x22ce…22d8 »GOTO SECHK« 0x22d8…22d9 0x48 0x22d9…22da 0x9b 0x22da…22f5 »// LOCAL OFFSET-32,DATA-'1'« 0x22f5…22f6 0x5d 0x22f6…22f7 0x95 0x22f7…230c »// IFF DATAF1-$OUGRFL« 0x230c…230d 0x11 0x230d…230e 0x8a 0x230e…2318 »GOTO SECHK« 0x2318…2319 0x48 0x2319…231a 0xb8 0x231a…2352 »// BLDFILE $MYGRPT,I,R,100,80,A1,T,1,8,DFILE,NODUPKEY,50« 0x2352…2353 0x40 0x2353…2354 0xaa 0x2354…237e »// BLDINDEX $MYMEMI,9,8,$MYMEMN,,DUPKEY,A1« 0x237e…237f 0x4e 0x237f…2380 0x8c 0x2380…238c »// TAG SECHK« 0x238c…238d 0x6c 0x238d…238e 0x95 0x238e…23a3 »// IF SECURITY-ACTIVE« 0x23a3…23a4 0x11 0x23a4…23a5 0x8a 0x23a5…23af »GOTO NONPS« 0x23af…23b0 0x48 0x23b0…23b1 0xa0 0x23b1…23d1 »// LOCAL OFFSET-33,DATA-'?USER?'« 0x23d1…23d2 0x58 0x23d2…23d3 0x8c 0x23d3…23df »// TAG NONPS« 0x23df…23e0 0x6c 0x23e0…23e1 0x9e 0x23e1…23ff »// IFF DATAF1-$OUDRFL GOTO BLD« 0x23ff…2400 0x5a 0x2400…2401 0xad 0x2401…242e »// IF DATAF1-$OUGRFL LOCAL OFFSET-41,DATA-'1'« 0x242e…242f 0x4b 0x242f…2430 0xad 0x2430…245d »// IF DATAF1-$OUCLIX LOCAL OFFSET-42,DATA-'1'« 0x245d…245e 0x4b 0x245e…245f 0x8a 0x245f…2469 »// TAG BLD« 0x2469…246a 0x6e 0x246a…246b 0xba 0x246b…24a5 »// BLDFILE $MYDRUF,I,R,100,102,A1,T,1,34,DFILE,NODUPKEY,50« 0x24a5…24a6 0x3e 0x24a6…24a7 0xb6 0x24a7…24dd »// BLDFILE $MYSYSID,I,R,1,16,A1,T,1,8,DFILE,NODUPKEY,0« 0x24dd…24de 0x42 0x24de…24df 0x93 0x24df…24f2 »// LOAD PSDR,#MYLIB« 0x24f2…24f3 0x65 0x24f3…24f4 0x9e 0x24f4…2512 »// IFF DATAF1-$OUDRFL GOTO LDF« 0x2512…2513 0x5a 0x2513…2514 0x96 0x2514…252a »*@A0C** ADDED DISP-SHR« 0x252a…252b 0x62 0x252b…252c 0x82 0x252c…252e »//« 0x252e…252f 0x03 0x252f…2530 0xa2 0x2530…2552 »FILE NAME-$OUDRFL,UNIT-F1,DISP-SHR« 0x2552…2553 0x51 0x2553…2554 0xa0 0x2554…2574 »// IFF DATAF1-$OUGRFL GOTO CLCHK« 0x2574…2575 0x58 0x2575…2576 0x96 0x2576…258c »*@A0C** ADDED DISP-SHR« 0x258c…258d 0x62 0x258d…258e 0x82 0x258e…2590 »//« 0x2590…2591 0x03 0x2591…2592 0xa2 0x2592…25b4 »FILE NAME-$OUGRFL,UNIT-F1,DISP-SHR« 0x25b4…25b5 0x51 0x25b5…25b6 0x82 0x25b6…25b8 »//« 0x25b8…25b9 0x03 0x25b9…25ba 0xa2 0x25ba…25dc »FILE NAME-$MYGRPT,UNIT-F1,DISP-OLD« 0x25dc…25dd 0x51 0x25dd…25de 0x82 0x25de…25e0 »//« 0x25e0…25e1 0x03 0x25e1…25e2 0xa2 0x25e2…2604 »FILE NAME-$MYMEMI,UNIT-F1,DISP-OLD« 0x2604…2605 0x51 0x2605…2606 0x8c 0x2606…2612 »// TAG CLCHK« 0x2612…2613 0x6c 0x2613…2614 0x9e 0x2614…2632 »// IFF DATAF1-$OUCLIX GOTO LDF« 0x2632…2633 0x5a 0x2633…2634 0x96 0x2634…264a »*@A0C** ADDED DISP-SHR« 0x264a…264b 0x62 0x264b…264c 0x82 0x264c…264e »//« 0x264e…264f 0x03 0x264f…2650 0xa2 0x2650…2672 »FILE NAME-$OUCLIX,UNIT-F1,DISP-SHR« 0x2672…2673 0x51 0x2673…2674 0x8a 0x2674…267e »// TAG LDF« 0x267e…267f 0x6e 0x267f…2680 0xb9 0x2680…26b9 »// IF DATAF1-$OULINFO FILE NAME-$OULINFO,UNIT-F1,DISP-SHR« 0x26b9…26ba 0x3f 0x26ba…26bb 0x96 0x26bb…26d1 »*@A0C** ADDED DISP-SHR« 0x26d1…26d2 0x62 0x26d2…26d3 0xa6 0x26d3…26f9 »// FILE NAME-$MYSYSID,UNIT-F1,DISP-OLD« 0x26f9…26fa 0x52 0x26fa…26fb 0xa5 0x26fb…2720 »// FILE NAME-$MYDRUF,UNIT-F1,DISP-OLD« 0x2720…2721 0x53 0x2721…2722 0xb0 0x2722…2752 »// FILE NAME-$MYLIST,LABEL-?60?,UNIT-F1,DISP-OLD« 0x2752…2753 0x48 0x2753…2754 0x86 0x2754…275a »// RUN« 0x275a…275b 0x72 0x275b…275c 0xa2 0x275c…277e »// IFF ?L'9,4'?='0000' GOTO ERREND« 0x277e…277f 0x56 0x277f…2780 0xad 0x2780…27ad »// IF ?61?=1 SAVE $MYDRUF,999,,?21?,?22?,?23?« 0x27ad…27ae 0x4b 0x27ae…27af 0xb7 0x27af…27e6 »// IF ?61?=2 SAVE $MYDRUF,999,,?21?,?22?,?23?,,,,,,?24?« 0x27e6…27e7 0x41 0x27e7…27e8 0x8d 0x27e8…27f5 »// GOTO ENDIT« 0x27f5…27f6 0x6b 0x27f6…27f7 0x81 0x27f7…27f8 »*« 0x27f8…27f9 0x77 0x27f9…27fa 0x81 0x27fa…27fb »*« 0x27fb…27fc 0x02 0x27fc…27fd 0x98 0x27fd…2815 »Error processing section« 0x2815…2816 0x5d 0x2816…2817 0x81 0x2817…2818 »*« 0x2818…2819 0x77 0x2819…281a 0x8d 0x281a…2827 »// TAG ERREND« 0x2827…2828 0x6b 0x2828…2829 0x81 0x2829…282a »*« 0x282a…282b 0x02 0x282b…282c 0xac 0x282c…2858 »Issue an error message if an error occurred.« 0x2858…2859 0x49 0x2859…285a 0xa9 0x285a…2883 »// #ERR ?L'9,4'?,3,MIGR,?L'13,2'??L'1,8'?« 0x2883…2884 0x4f 0x2884…2885 0x81 0x2885…2886 »*« 0x2886…2887 0x77 0x2887…2888 0x81 0x2888…2889 »*« 0x2889…288a 0x02 0x288a…288b 0x96 0x288b…28a1 »End of PSDRU procedure« 0x28a1…28a2 0x5f 0x28a2…28a3 0x81 0x28a3…28a4 »*« 0x28a4…28a5 0x77 0x28a5…28a6 0x8c 0x28a6…28b2 »// TAG ENDIT« 0x28b2…28b3 0x6c 0x28b3…28b4 0xa6 0x28b4…28da »// IF DATAF1-$MYGRPN DELETE $MYGRPN,F1« 0x28da…28db 0x52 0x28db…28dc 0xa6 0x28dc…2902 »// IF DATAF1-$MYMEMA DELETE $MYMEMA,F1« 0x2902…2903 0x52 0x2903…2904 0xa6 0x2904…292a »// IF DATAF1-$MYMEMI DELETE $MYMEMI,F1« 0x292a…292b 0x52 0x292b…292c 0xa6 0x292c…2952 »// IF DATAF1-$MYMEMN DELETE $MYMEMN,F1« 0x2952…2953 0x52 0x2953…2954 0xa6 0x2954…297a »// IF DATAF1-$MYGRPT DELETE $MYGRPT,F1« 0x297a…297b 0x52 0x297b…297c 0xa0 0x297c…299c »// IF DATAF1-?60? DELETE ?60?,F1« 0x299c…299d 0x58 0x299d…299e 0x00 0x299e…29a0 c6 f1 ┆F1┆ 0x29a0…29c0 60 5b d4 e8 d4 c5 d4 c9 40 c4 c5 d3 c5 e3 c5 40 5b d4 e8 d4 c5 d4 c9 6b c6 f1 52 a6 61 61 40 c9 ┆-$MYMEMI DELETE $MYMEMI,F1êw// I┆ 0x29c0…29e0 c6 40 c4 c1 e3 c1 c6 f1 60 5b d4 e8 d4 c5 d4 d5 40 c4 c5 d3 c5 e3 c5 40 5b d4 e8 d4 c5 d4 d5 6b ┆F DATAF1-$MYMEMN DELETE $MYMEMN,┆ 0x29e0…2a00 c6 f1 52 a6 61 61 40 c9 c6 40 c4 c1 e3 c1 c6 f1 60 5b d4 e8 c7 d9 d7 e3 40 c4 c5 d3 c5 e3 c5 40 ┆F1êw// IF DATAF1-$MYGRPT DELETE ┆