12 22FL ... SEG SHARE,866,S.SEXTON 10 22_= ... SEGENTRY K1SHARE,QK1 6 232H ...#UNS ASHARE1 4 233S ...#SKI 4 2355 ...( 9 236D ...SMESS1 +ESHLST1 4 23?L ...# 9 23DS ...QK1 LDX 0 SMESS1(1) 9 23L2 ... STO 0 AWORK1(2) 9 23R8 ... COMERRX AWORK1(2) 4 23R9 ...) 6 23R= ...#UNS ASHARE1 4 23R? ...( 4 23R# ...# 10 23R* ...# DATA AREAS SET UP: 11 23RB ...# AWORK1 +VE IF SHARE ON 11 23RC ...# -VE IF SHARE OFF 10 23RD ...# AWORK2 = D.L. PTR 10 23RF ...# AWORK3 = APIA PTR 11 23RG ...# AWORK4 = GEOG UNIT NO 4 23RH ...# 4 23RJ ...# 8 23RK ...PDA +26 9 23RL ...PSTR 4H00ON 9 23RM ... 4H00OF 4 23RN ...# 12 23RP ...# MESSAGE IDENTIFIERS 4 23RQ ...# 21 23RR ...PJENV +JENVMUSTBE [ERROR-COMMAND ONLY ALLOWED IN % 14 23RS ...PCME +JENVCME [CME 14 23RT ...PJSETP8 +JSETP8 [1ST 18 23RW ...PJPARMIS +JPARMIS [ERROR-PARAM MISSING 17 23RX ...PAPFERR +APFERR [FORMAT ERROR 19 23RY ...PESHNOTDA +ESHNOTDA [ERROR-MUST BE DA DEVICE 19 23R_ ...PESWOUT +ESWOUT [ERROR-UNIT SWITCHED OUT 20 23S2 ...PWAITSWIT +EWAITSWIT [ERROR-WAITING TO BE SW OUT 19 23S3 ...PCAFS +ECAFS [ERROR-CONNECTED TO CAFS 19 23S4 ...PCMESH +CMESH [UNIT NN IS CME SHARED 20 23S5 ...PESHONREJ +ESHONREJ [ERROR-CANNOT BE CME SHARED 20 23S6 ...PDMEDED +CDMEDED [UNIT NN IS DME DEDICATED 20 23S7 ...PESHOFFREJ +ESHOFFREJ [ERROR-SHARE OFF REJECTED 21 23S8 ...PTOOMANY +ETOOMANY [ERROR-ONLY 1 PERI DESC ALLOWED 4 23S9 ...# 4 23S= ...# 15 23S? ...# S/R TO OUTPACK UNIT NO PARAM FROM AWORK4 14 23S# ...# ON EXIT X1=FX1, X2=FX2, X0 CORRUPTED 4 23S* ...# 5 23SB ...XOUTOPNO 8 23SC ... SBX 7 FX1 12 23SD ... OUTPACK AWORK4(2),1,GEOPER 8 23SF ... ADX 7 FX1 7 23SG ... EXIT 7 0 4 23SH ...# 12 23SJ ...# S/R TO INFORM MESSAGE IN X6 16 23SK ...# ON EXIT X1=FX1, X2=FX2, X0 + X5 CORRUPTED 4 23SL ...# 5 23SM ...XINFORM 8 23SN ... SBX 7 FX1 7 23SP ... LDN 5 1 8 23SQ ... INFORMX 5,6,1 8 23SR ... ADX 7 FX1 7 23SS ... EXIT 7 0 4 23ST ...# 4 23SW ...QK1 19 23SX ... JENVNOT YENV,CME [ERROR IF NOT CME ENVT 17 23SY ... SPARAPAS [GET 1ST PARAM 10 23S_ ... MHUNT 3,CPB,CUNI 9 23T2 ... LDX 0 ANUM(3) 20 23T3 ... BNG 0 Y1 [ERROR IF 1ST PARAM MISSING 15 23T4 ... BZE 0 Y1 [OR NULL 8 23T5 ... ANDN 0 #7777 7 23T6 ... SBN 0 2 17 23T7 ... BNG 0 Y2 [FORMAT ERROR 9 23T8 ... LDX 0 APARA(3) 8 23T9 ... SRL 0 12 9 23T= ... TXU 0 PSTR(1) 17 23T? ... BCC SHON [_ IF SHARE ON 9 23T# ... TXU 0 PSTR+1(1) 18 23T* ... BCS Y2 [_ IF NOT SHARE OFF 7 23TB ... NGN 0 1 8 23TC ... BRN SSTO 4 23TD ...SHON 7 23TF ... LDN 0 6 4 23TG ...SSTO 9 23TH ... STO 0 AWORK1(2) 9 23TJ ... LDX 0 ANUM(3) 8 23TK ... ANDN 0 #7777 19 23TL ... PARAMOVE 0 [THROW AWAY 1ST PARAM 13 23TM ... PARSORT YBRKN,ALL,INCOUT,GROPE 20 23TN ... HUNTW 1,CPAR,JSCE [IF NO PARAM BLOCK FINISH AS 21 23TP ... BNG 1 XENDA [PARSORT WILL HAVE O/P A MESSAGE 9 23TQ ... LDX 3 JSCEP(1) 16 23TR ... STO 3 AWORK2(2) [D.L. PTR 7 23TS ... FREECORE 1 10 23TT ... HUNTW 1,CPAR,JSCE 19 23TW ... BPZ 1 Y3 [ERROR IF TOO MANY PARAMS 8 23TX ... LDX 1 FX1 8 23TY ... LGEOG 3,4 9 23T_ ... STO 4 AWORK4(2) 8 23W2 ... LTYPE 3,4 9 23W3 ... TXU 4 PDA(1) 19 23W4 ... BCS YNOTDA [ERROR IF NOT DA DEVICE 8 23W5 ... LADDP 3,4 16 23W6 ... STO 4 AWORK3(2) [APIA PTR 19 23W7 ... JSWOUT AWORK2(2),YSWOUT [ERROR IF SWITCHED OUT 9 23W8 ... LDX 0 AWORK1(2) 17 23W9 ... BNG 0 TSHOFF [_ IF SHARE OFF 5 23W= ...TSHON 11 23W? ... TRACE AWORK4(2),SHAREON 20 23W# ... JWTBSW AWORK2(2),YWTBSW [OR IF WAITING TO BE SW OUT 19 23W* ... JCAFSDV AWORK2(2),YCAFS [OR CONNECTED TO CAFS 9 23WB ... LDX 3 AWORK3(2) 10 23WC ... LDX 3 BSUNIT3(3) 8 23WD ... ANDN 3 #10 21 23WF ... BNZ 3 YTWIN [GEOERR IF STATUS CHANGE IN PROG 11 23WG ... JCMESH AWORK2(2),SHONOK 11 23WH ... SHAREON AWORK2(2),SHONREJ 5 23WJ ...SHONOK 9 23WK ... LDX 6 PCMESH(1) 4 23WL ...XEND 9 23WM ... CALL 7 XOUTOPNO 9 23WN ... CALL 7 XINFORM 5 23WP ...XENDA 6 23WQ ... ENDCOM 4 23WR ...# 5 23WS ...SHONREJ 10 23WT ... LDX 6 PESHONREJ(1) 9 23WW ... BRN YCMERA 4 23WX ...# 5 23WY ...TSHOFF 12 23W_ ... TRACE AWORK4(2),SHAREOFF 11 23X2 ... JNCMESH AWORK2(2),SHOFFOK 12 23X3 ... SHAREOFF AWORK2(2),SHOFFREJ 5 23X4 ...SHOFFOK 10 23X5 ... LDX 6 PDMEDED(1) 8 23X6 ... BRN XEND 5 23X7 ...SHOFFREJ 10 23X8 ... LDX 6 PESHOFFREJ(1) 9 23X9 ... BRN YCMERA 4 23X= ...# 10 23X? ...# ERROR LABELS 4 23X# ...# 4 23X* ...YENV 9 23XB ... LDX 7 PCME(1) 17 23XC ... LDX 6 PJENV(1) [ENV MUST BE CME 5 23XD ...YCMER 8 23XF ... COMERRX 6,7 4 23XG ...Y1 10 23XH ... LDX 7 PJSETP8(1) 18 23XJ ... LDX 6 PJPARMIS(1) [1ST PARAM MISSING 8 23XK ... BRN YCMER 4 23XL ...Y2 17 23XM ... LDX 6 PAPFERR(1) [FORMAT ERROR 9 23XN ... BRN YCMERB 8 23XP ...Y3 SMO FX1 9 23XQ ... LDX 6 PTOOMANY 9 23XR ... BRN YCMERB 5 23XS ...YBRKN 9 23XT ... GEOERR 1,BISHARE 5 23XW ...YNOTDA 18 23XX ... LDX 6 PESHNOTDA(1) [MUST BE DA DEVICE 5 23XY ...YCMERA 9 23X_ ... CALL 7 XOUTOPNO 5 23Y2 ...YCMERB 7 23Y3 ... COMERRX 6 5 23Y4 ...YSWOUT 16 23Y5 ... LDX 6 PESWOUT(1) [UNIT SW OUT 9 23Y6 ... BRN YCMERA 5 23Y7 ...YWTBSW 20 23Y8 ... LDX 6 PWAITSWIT(1) [UNIT WAITING TO BE SW OUT 9 23Y9 ... BRN YCMERA 5 23Y= ...YCAFS 19 23Y? ... LDX 6 PCAFS(1) [UNIT CONNECTED TO CAFS 9 23Y# ... BRN YCMERA 5 23Y* ...YTWIN 9 23YB ... GEOERR 1,NOTCME 4 23YC ...) 4 23YD ...# 4 23YG ...#END 6 ____ ...461760710003