17 22FL #LIS K0PERFAIL>K0OBJPROG>K0ALLGEO>K0GREATGEO 15 22_= #SEG PERFAIL8 [A C PUTMAN 9 23DW 8HPERFAIL 12 23YG SEGENTRY K2PERFAIL,XPERFAIL2 4 24D6 # 4 24XQ # 19 25CB # THIS SEGMENT IS ENTERED FROM THE UNPLUG MACRO 19 25X2 # (FROM SEGMENT PROCONTS) WHEN ON-LINE PL FAILURE(S) OCCUR. 21 26BL # EACH ON-LINE PL BELONGING TO THE OBJ PROG IS CHECKED IN 21 26W= # THE CENTRAL PERIPHERAL LIST FOR MARKED AS FAILED ON LAST TRANS. 21 27*W # THIS SEG PERFORMS ASSISTED REPEATS ON SLOW I/P PLS SO MARKED, AND 20 27TG # ON 1922 CP. IF THE REPEATS FAIL & OPERATORS 'CANTDO' AN ENGAGE 16 28*6 # THEN THE TRANSFER IS FAILED BY THIS SEG ALSO. 21 28SQ # WHEN EACH PL HAS BEEN CHECKED RETURN IS MADE VIA'RUNPROG' 21 29#B # IF ALL FAILS HAVE BEEN CLEARED, OTHERWISE THE NAMES OF ANY FAILED 20 29S2 # PL'S ARE 'OUTPARAMED' AND RETURN IS MADE VIA 'ILLEGAL PERFAIL' 4 2=?L # 4 2=R= # 21 2?=W PMSK1922 #140 [PROP. CODE MSK FOR MODEL NO. OF CP 17 2?BP ...XCHARMSK #60000000 [CHAR POSITION MASK 17 2?D2 ...XWDMSK #17777777 [WORD ADDRESS MASK 9 2?GN ...XJLMTFAIL +JLMTFAIL 6 2?QG XPERFAIL2 20 2#=6 CAPCA [CHANGE ACT. MAKE PROG. SWAPPABLE 5 2#PQ XSTART 21 2*9B SETNCORE 68,3,APERI,AFAILBUF [SET BLOCK TO HOLD FAILED PERI BUFFER 20 2*P2 SETNCORE 4,3,APERI,APERFAIL [TO STORE NAMES OF FAILING UNITS 17 2B8L LDN 6 0 [CHAR CT FOR FAILS 16 2BN= LDN 7 0 [PRB RECORD MOD 9 2C7W STOZ AWORK4(2) 5 2CMG NEXT1 8 2D76 FPCACA 3,FX2 16 2DLQ TESTPUC 3,XPUC [J. PCA FOR PUC 15 2F6B XTP HUNT2 3,APERI,APERIRES [FIND PRB. 9 2FL2 NGS 3 AWORK3(2) 17 2G5L ADX 3 7 [POINT TO NEXT ENTRY 8 2GK= NEXT2 LDX 4 A1(3) 8 2H4W BNG 4 TERM 9 2HJG LDX 4 A1+1(3) 15 2J46 BPZ 4 ONLIN [J. IF ONLINE 9 2JHQ NGX 1 AWORK3(2) 7 2K3B LDN 5 1 9 2KH2 ADX 5 AWORK4(2) 9 2L2L STO 5 AWORK4(2) 5 2LG= NEXT3 17 2L_W HUNTACTF AOLPT,1 [FIND CORRECT AOLPT 8 2MFG BCT 5 NEXT3 7 2M_6 LDX 4 1 8 2NDQ LDX 1 FX1 18 2NYB JAUTFAIL 4,PAUTFA [J. IF OFFLINE PERI FAIL 20 2PD2 BDX 3 NEXT2 [J. BACK TO DEAL WITH NEXT ENTRY. 9 2PXL ONLIN ANDX 4 BITS22LS 18 2QC= STO 4 AWORK1(2) [ST. PTR. TO DEVICE LIST 19 2QWW JFAIL 4,PERF4 [J. IF FAILED LAST TRANSFER. 18 2RBG BDX 3 NEXT2 [STEP TO NEXT PRB ENTRY. 9 2RW6 PERF4 ADS 3 AWORK3(2) 19 2S*Q CLFAIL 4 [CLEAR FAIL TRANSFER MARKER 8 2STB LDX 3 A1(3) 18 2T*2 STO 3 AWORK2(2) [SAVE %A FOR PERTYPNO. 19 2TSL MHUNTW 3,APERI,AFAILBUF [HUNT FOR FAIL BUFFER BLK. 20 2W#= LREPLYADD AWORK1(2),4 [LD. ADDRESS OF THE REPLY WORD 21 2WRW STO 4 A1+1(3) [A1+1= ADDRESS OF OBJ.PROG. REPLY WD. 12 2X?G DCA AWORK1(2),LDX,5,CTSA 21 2XR6 STO 5 A1+2(3) [A1+2= ADDRESS OF OBJ.PROG. BUFFER. 12 2Y=Q DCA AWORK1(2),LDX,7,COUNT 16 2YQB LTYPE AWORK1(2),4 [LD. DEVICE TYPE. 7 2_=2 SBN 4 5 15 2_PL BNZ 4 NOMT [J IF NOT MT 11 34MB DFLOAD AWORK1(2),TSN,4 15 3572 ... OUTPACK 4,1,TSN [%A IS TSN 10 35LL ... LGEOG AWORK1(2),4 8 366= ... GEOPACK 4,4,4 17 36KW ... OUTPACK 4,1,GEOPER [%B IS GEOG UNIT NO 17 375G ... LDX 4 XJLMTFAIL(1) [UNIT %B : MT %A FAIL 7 37K6 ... LDN 1 1 17 384Q ... INFORMX 1,4,1 [TO CENTRAL OPERATOR 8 38JB ... BRN PERF9 21 3=3= NOMT BPZ 4 PERF9 [J. IF NOT SLOW PERI - NO REPEATS. 7 3=GW ADN 4 1 15 3?2G BNZ 4 PERF5 [J IF NOT CP 15 3?G6 LPROP AWORK1(2),0 [LD. PROP. 8 3?_Q SMO FX1 16 3#FB ANDX 0 PMSK1922 [GET MODEL BITS 18 3#_2 BNZ 0 PERF9 [NOT 1922 - NO REPEATS. 5 3*=B ...XCPLP 8 3*DL LDCT 0 #400 18 3*Y= STO 0 A1(3) [A1= -VE IF A CP 1922. 7 3B4F ... LDX 4 5 8 3B5W ... SMO FX1 19 3B7? ... ANDX 4 XCHARMSK [CHAR POS OF START OF BUFFER 7 3B8N ... SLC 4 2 18 3B=5 ... ADX 7 4 [ADD EXTRA CHARS TO COUNT 8 3B?G ... SMO FX1 18 3B#X ... ANDX 5 XWDMSK [MAKE X5 A WORD ADDRESS 7 3BCW ADN 7 3 18 3BXG SRL 7 2 [CONVERT NO. CHS. TO WDS. 13 3CC6 STOZ A1+3(3) [ZERO 7 3CJ? ... LDX 4 7 8 3CL2 ... SBN 4 65 19 3CMP ... BNG 4 XGETA [J IF AFAILBUF LONG ENOUGH 8 3CPD ... ADN 4 69 8 3CR7 ... ALTLEN 3,4 21 3CWQ XGETA GETWORD 5,2,READ,4,7 [GET PTR. TO OBJ.PROG. RELATIVE TO GE 18 3DBB MHUNTW 3,APERI,AFAILBUF [HUNT NEW BUFFER AREA. 9 3DW2 BXGE 4 7,XEQA 7 3F*L LDX 0 7 16 3FT= SBX 0 4 [X0= DIFFERENCE. 20 3G#W LDX 7 A1+3(3) [LD. CURRENT POSITION DOWN BLK. 9 3GSG ADS 4 A1+3(3) 9 3H#6 LDN 3 A1+4(3) 17 3HRQ ADX 3 7 [POSITION DOWN BLK. 8 3JX6 ... LDN 7 512 21 3JY7 ...XMV1 BXL 4 7,XMV2 [J IF FEWER THAN 512 WORDS TO MOVE 16 3J_8 ... MOVE 2 0 [MOVE 512 WORDS 7 3K29 ... SBX 4 7 7 3K3= ... ADX 5 7 8 3K4? ... BRN XMV1 8 3K5# ...XMV2 BZE 4 XMV3 7 3K6* ... SMO 4 17 3K7B ... MOVE 2 0 [MOVE REMAINING WORDS 4 3K8C ...XMV3 19 3K=L LDX 7 0 [NO. OF WDS. STILL REQUIRED. 17 3KQ= ADX 5 4 [POSITION DOWN BLK. 20 3L9W BRN XGETA [J. BACK TO READ IN A BIT MORE. 4 3LPG XPUC 8 3M96 FJOPCA 1,3 18 3MNQ STO 1 5 [GET PTR. TO JOB RING. 8 3N8B LDX 1 FX1 20 3NN2 RINGTP 3 [RING IN TPPCA DERING PUC'S PCA 21 3P7L FPCAJO 3,5 [HUNT PCA GIVEN A PTR. TO JOB BLOCK 8 3PM= BRN XTP 8 3Q6W XEQA LDX 1 FX2 12 3QLG DCA AWORK1(1),LDX,7,COUNT 9 3QRM ... LDX 4 A1+2(3) 8 3QTB ... SMO FX1 19 3QX5 ... ANDX 4 XCHARMSK [CHAR POS OF START OF BUFFER 7 3QYS ... SLC 4 2 18 3R2H ... ADX 7 4 [ADD EXTRA CHARS TO COUNT 21 3R66 LDX 4 A1+3(3) [CALCULATE CHARS. STILL TO BE MOVED. 7 3RKQ SLL 4 2 7 3S5B SBX 7 4 9 3SK2 ... ADX 3 A1+3(3) 8 3T4L ... ADN 3 A1+4 8 3W8= ... LDN 4 512 9 3W9* ...XMV4 BXL 7 4,XMV5 16 3W=D ... MVCH 2 0 [MOVE 512 CHARS 7 3W?H ... SBX 7 4 8 3W#L ... BRN XMV4 8 3W*P ...XMV5 BZE 7 XMV6 7 3WBS ... SMO 7 17 3WCX ... MVCH 2 0 [MOVE REMAINING CHARS 4 3WF2 ...XMV6 18 3WHG WORDFIN [TIDY-UP AFTER GETWORD. 8 3X36 BRN PERF6 7 3XGQ PERF5 ADN 4 2 15 3Y7H ... BNZ 4 PERF5A [J IF NOT LP 9 3Y9= ... LDX 4 AWORK1(2) 19 3Y=_ ... JNHLFDON 4,PERF9 [J IF NOT INCOMPLETE TRANSFER 8 3Y#N ... BRN XCPLP 5 3YBC ...PERF5A 7 3YG2 ADN 4 1 18 3Y_L BZE 4 PERF9 [J IF TP - NO REPEATS. 18 3_F= STOZ A1(3) [A1= ZERO IF CR OR TR. 5 3_YW PERF6 18 42DG LDX 5 AWORK1(2) [LD. PTR. TO DEVICE LIST. 5 42KN ...PERF8 21 4476 ... ENGPER PERF8,5,PERF9D,1 [PLEASE ENGAGE UNIT N FOR ERROR RESTA 20 4494 ... [PERF9D FOR CANTDO OR TERMINATE 18 44?2 ... [PERF8 TO IGNORE BREAKIN 15 44C2 MHUNTW 3,APERI,AFAILBUF [HUNT BUFFER. 9 44WL LOCKC 3,PERF9A 8 45B= LOCKC 2,/ 9 45TW CALL 1 PERF9A 7 46*G LDX 3 2 8 46T6 LDX 2 FX2 9 47GJ ... LDX 5 A1+2(3) 8 47JG ... SMO FX1 9 47LD ... ANDX 5 XCHARMSK 20 47NB ... ADN 5 A1+4(3) [LD CHAR ADDRESS OF FAIL BUFFER 21 47SB DCA AWORK1(2),STO,5,CTSA [ST. IN PERI CONTROL AREA NEW BUFFER 16 48#2 GPERI AWORK1(2),2 [TRY PERI AGAIN 6 48RL COOR1 16 49?= LDCH 4 CPRW1(2) [LD. REPLY WD. 7 49QW UNLOCK 2 7 4==G UNLOCK 3 7 4=Q6 ANDN 4 5 18 4?9Q BZE 4 PERF10 [J IF FAIL HAS CLEARED 16 4?BX ... LTYPE AWORK1(2),4 [LOAD DEVICE TYPE 7 4?DL ... SBN 4 2 15 4?G* ... BNZ 4 PERF6 [J IF NOT LP 9 4?J4 ... LDX 4 AWORK1(2) 19 4?KR ... JNHLFDON 4,PERF9 [J IF TRANSFER NOT INCOMPLETE 8 4?PB BRN PERF6 5 4#92 PERF9A 11 4#NL MHUNTW 2,APERI,AFAILBUF 7 4*8= EXIT 1 0 5 4*#Y ...PERF9D 10 4*BG ... LTYPE AWORK1(2),4 7 4*D4 ... SBN 4 2 15 4*FL ... BNZ 4 PERF9 [WJ IF NOT LP 7 4*H8 ... CLHLFDON 5 18 4*JQ ... BRN PERF9 [PROCEED FOR UN-ASSISTED 5 4*MW PERF10 11 4B7G MHUNTW 3,APERI,AFAILBUF 9 4BM6 LDX 5 CPRW1(2) 18 4C6Q LDX 4 A1+1(3) [LD. PTR. TO REPLY WD. 17 4CLB GETWORD 4,1,WRITE [PTR. TO REPLY WD. 8 4D62 STO 5 0(1) 9 4DKL TRACE 1,REPLYWD 18 4F5= MHUNTW 3,APERI,AFAILBUF [RE-HUNT BLK. DUE TO COOR 17 4FJW LDX 5 A1+2(3) [LD. ORIGINAL BUFFER 12 4G4G DCA AWORK1(2),STO,5,CTSA 8 4GJ6 LDX 0 A1(3) 16 4H3Q BNG 0 PERF7 [J. IF A CP 1922. 18 4HHB LDX 4 A1+2(3) [LD. PTR. TO OBJ. BUFFER 14 4J32 STOZ A1+3(3) [ZEROISE 7 4JGL LDN 5 0 21 4K2= SLC 45 2 [X5 CONTAINS CHAR POSN IN LS 2BITS 18 4KFW SRL 4 2 [X4 CONTAINS WORD ADDRESS 12 4K_G DCA AWORK1(2),LDX,7,COUNT 7 4LF6 ADX 7 5 7 4LYQ ADN 7 3 20 4MDB SRL 7 2 [CONVERT X7 FROM CHARS. TO WORDS. 10 4MY2 XGETB GETWORD 4,2,WRITE,1,7 11 4NCL MHUNTW 3,APERI,AFAILBUF 7 4NX= LDX 0 2 8 4PBW LDX 2 FX2 17 4PWG BXL 1 7,ZC [NOT ALWDS ACCESSIBLE 19 4QB6 NGN 4 1 [INDICATE ALL REMAINING CHARS 16 4QTQ LDX 7 A1+3(3) [ARE ACCESSIBLE 19 4R*B SLC 7 2 [NO OF CHARS PREVIOUSLY MOVED 12 4RT2 DCA AWORK1(2),LDX,1,COUNT 7 4S#L SBX 1 7 17 4SS= BZE 5 ZB [J IF NO CHAR POSN 7 4T?W YB SLL 0 2 18 4TRG ADX 0 5 [INSERT CHAR POSITION IN 18 4W?6 SRC 0 2 [ABSOLUTE PROGRAM ADDRESS 7 4WQQ ZB LDX 5 7 9 4X=B LDN 7 A1+4(3) 19 4XQ2 ADX 7 A1+3(3) [ABSOLUTE AFAILBUF POINTER 17 4Y9L MVCH 7 0(1) [MOVE DATA TO PROGRAM 9 4YP= SBN 7 A1+4(3) 19 4_8W STO 7 A1+3(3) [UPDATE RELATIVE AFAILBUF PTR 7 4_NG LDX 7 5 7 5286 LDN 5 0 17 52MQ BPZ 4 XGETB [MORE WORK TO BE DONE 18 537B BRN PERF7 [ALL BUFFER TRANSFERRED 19 53M2 ZC ADX 4 1 [UPDATE RELATIVE PROG ADDRESS 18 546L SBX 7 1 [UPDATE NO OF WORDS REQD 7 54L= SLL 1 2 17 555W BZE 5 ZB [J IF NO CHAR POSN 19 55KG SBX 1 5 [FOR ODD CHAR(S) AT START OF 16 5656 BRN YB [PROGRAM BUFFER 5 56JQ PERF7 7 574B WORDFIN 5 57J2 PERF7A 9 583L LDX 7 AWORK3(2) 9 58H= TRACE 7,NEXPERI 21 592W BDX 7 NEXT1 [J. BACK TO CONTINUE WITH NEXT PERI 19 59GG [FAILURE STUCK ON, OR PL IS NOT ASSISTED REPEAT DEVICE. 5 5=26 PERF9 6 5=FQ #SKI JNL 14 5=_B OUTPACK AWORK2(2),1,PERINAME,PERF9 7 5?F2 #SKI JNL<1$1 9 5?YL PERTYPNO AWORK2(2) 16 5#D= STO 6 ACOMMUNE2(2) [SAVE CHAR CT. 7 5#XW ADN 6 3 16 5*CG SRL 6 2 [CONVERT TO WDS. 11 5*X6 MHUNTW 3,APERI,APERFAIL 18 5BBQ BXL 6 ALOGLEN(3),XENF [J. ENOUGH ROOM IN BLK. 7 5BWB ADN 6 3 18 5CB2 ALTLEN 3,6,APERI,APERFAIL [ALTLEN OF BLK. BY 3WDS. 11 5CTL MHUNTW 3,APERI,APERFAIL 4 5D*= XENF 10 5DSW LDX 6 ACOMMUNE2(2) 7 5F#G SRC 6 2 17 5FS6 ADX 3 6 [POSITION DOWN BLK. 7 5G?Q LDN 6 3 10 5GRB NCH1 LDCH 5 ACOMMUNE9(2) 20 5H?2 DCH 5 A1(3) [DEPOSIT THE VALUES IN EVENT WD. 7 5HQL BCHX 2 / 7 5J== BCHX 3 / 8 5JPW BCT 6 NCH1 8 5K9G SMO FX2 9 5KP6 LDX 6 ACOMMUNE2 10 5L8Q LDCH 5 ACOMMUNE9(2) 8 5LNB LDN 0 #20 7 5M82 SBX 0 5 15 5MML BZE 0 XCOM [J. A SPACE 17 5N7= DCH 5 A1(3) [DEPOSIT LAST CHAR. 7 5NLW ADN 6 1 7 5P6G BCHX 3 / 15 5PL6 XCOM LDN 5 #34 [LD. A COMMA 8 5Q5Q DCH 5 A1(3) 7 5QKB BCHX 3 / 8 5R52 LDN 5 #32 17 5RJL DCH 5 A1(3) [DEPOSIT AN ASTERISK. 7 5S4= ADN 6 5 8 5SHW SMO FX2 9 5T3G LDX 7 AWORK3 18 5TH6 BDX 7 NEXT1 [J. BACK TO NEXT PRB ENT. 18 5W2Q TERM MFREEW APERI,AFAILBUF [FREE FAIL BUFFER BLOCK. 19 5WGB BZE 6 TERM1 [J IF FAILS HAVE ALL CLEARED 20 5X22 MHUNTW 2,APERI,APERFAIL [GET BLOCK OF TEXT FOR FAIL MSGE. 21 5XFL SBN 6 2 [FORGET FINAL COMMAR AND ASTERISK. 15 5X_= OUTPARAM 6,A1,APERI,APERFAIL [SET MESSAGE 16 5YDW MFREEW APERI,APERFAIL [FREE FAIL BLOCK 7 5YYG #SKI ILL7<1$1 6 5_D6 PCACA 16 5_XQ ILLEGAL PERFAIL [CAUSE FAIL EVENT 17 62CB TERM1 MFREEW APERI,APERFAIL [FREE UNUSED BLOCK 9 62X2 TRACE 2,FINFAIL 17 63BL RUNPROG [LET O/P CONTINUE. 20 63W= PAUTFA [THIS PART DEALS WITH FAILURES ON 19 64*W [AUTONOMOUS OFFLINE PERI S 9 64TG ADS 3 AWORK3(2) 8 65*6 LDX 3 A1(3) 17 65SQ STO 3 AWORK2(2) [SAVE A1 FOR MESSAGE 9 66#B ... EXOFAIL 4,PERF7A 8 66S2 BRN PERF9 4 69=6 # 4 6=9B #END 8 ____ ...23004240000100000000