14 22FL SEG INLOOP,74,P STANSFIELD,USERCOMS 4 22_= [ 4 23DW [ 11 23YG SEGENTRY K1INLOOP,Z1INLOOP 4 24D6 # 4 24XQ # 21 25CB # THIS SEGMENT INPUTS LINES OR CARDS TO A FILE WITH A SPECIFIED NAME, 20 25X2 # FINISHING WHEN IT COMES TO THE 4-CH. TERMINATOR SPECIFIED. IF NONE 21 26BL # SPECIFIED IT ENDS ON ****(STORING THIS TERMINATOR AND A BLANK RECORD 19 26W= # IN THE FILE). IT THEN GOES ACROSS TO TIDYREAD WHEN FINISHED. 4 27*W # 4 27TG # 9 28*6 OMSK #77777773 9 28SQ PMSK #37777777 9 29#B QMSK #777777 9 29S2 RMASK #73777777 8 2=?L PRCNT +128 17 2=R= RECMAX +2000 [MAX RECORD LENGTH 13 2?=W X64 #64 [$ 8 2?QG X70 #70 4 2#=6 # 4 2#PQ # 19 2*9B [ THIS SUBROUTINE ISSUES THE PERI'S AND CONTROLS THE RESTARTS. 19 2*P2 [ BUFFER ADDRESS = START OF BUFFER = ADD. OF ALINE + (A1+2). 20 2B8L [ PERI ADDRESS = BUFFER ADDRESS FOR INITIAL TRANSFERS, OTHERWISE 17 2BN= [ = PREVIOUS PERI ADDRESS + N/CHARACTER TRANSFERRED 4 2C7W # 8 2CMG SR3 SBX 7 FX1 8 2D76 LDX 2 FX2 21 2DLQ LDX 0 FINISH [TEST IF A FINISH COMMAND HAS BEEN GI 7 2F6B SLL 0 2 17 2FL2 BNG 0 WRECK [J IF 'FINISH NOW' 15 2G5L SRD2 LOCKC 2,/ [LOCK CPAT 15 2GK= GPERI ,2 [READ A LINE 18 2H4W COOR1 [WAKE UP AFTER TRANSFER 15 2HJG UNLOCK 2 [UNLOCK CPAT 16 2J46 LDX 2 AWORK3(2) [PTR TO CUFFER 8 2JHQ SBN 2 A1+2 16 2K3B UNLOCK 2 [UNLOCK BUFFER 11 2KH2 RESTART YTM1,WRECK,REST 10 2L2L MHUNT 1,ADATA,ALINE 9 2LG= #SKI K6PREPREAD>599-599 11 2L_W TRACEVER A1+2(1),A1+2ALIN 9 2MFG LOCKC 1,SALINE 10 2M_6 MHUNT 1,ADATA,ALINE 16 2NDQ ADN 1 A1+2 [PTR TO BUFFER 9 2NYB SBX 1 AWORK3(2) 19 2PD2 BZE 1 NOMOV [ BUFFER HAS NOT BEEN MOVED 9 2PXL ADX 1 AWORK3(2) 10 2QC= DCA ,LDX,0,CTSA 9 2QWW SBX 0 AWORK3(2) 18 2RBG STO 1 AWORK3(2) [ UPDATE BUFFER ADDRESS 7 2RW6 ADX 1 0 17 2S*Q DCA ,STO,1,CTSA [UPDATE PERI ADDRESS 5 2STB NOMOV 8 2T*2 LDX 1 FX1 14 2TSL BNZ 5 RCARD [J IF CR 10 2W#= DCA ,LDX,0,MODE 17 2WRW ANDN 0 #10 [TEST IF GRAPHIC MODE 8 2X?G BNZ 0 PREGR 7 2XR6 REPET LDN 0 4 18 2Y=Q DCA ,ORS,0,MODE [CHANGE MODE TO PREVIOUS 9 2YQB PREGR LDX 0 CPRW1(2) 15 2_=2 ANDX 0 QMSK(1) [REPLY WORD 15 2_PL DCA ,LDX,3,COUNT [PERI COUNT 7 329= SBX 3 0 18 32NW STO 3 ACOMMUNE1(2) [N/CH IN LAST TRANSFER 15 338G DCA ,LDX,4,CTSA [PERI ADDRESS 9 33N6 SBX 4 AWORK3(2) 18 347Q SLC 4 2 [N/CH BEFORE LAST PERI 18 34MB ADX 4 3 [TOTAL N/CH IN THE RECORD 18 3572 BZE 0 NLINE [ J IF REPLY WORD ZERO 10 35LL DCA ,LDX,0,MODE 8 366= ANDN 0 #10 15 36KW BNZ 0 RESBF [J IF GRAPHIC 15 375G NLINE DCA ,LDX,0,CTSA [PERI ADDRESS 17 37K6 SLC 0 2 ['PERI ADDRESS' IN CH 7 384Q ADX 3 0 19 38JB SBN 3 2 [PTR TO ANTEPENULTIMATE CH 15 3942 SRC 3 2 [PTR TO NL 8 39HL LDCH 0 0(3) 8 3=3= SBN 0 #76 15 3=GW BNZ 0 UPDPA [J IF NOT _ 7 3?2G BCHX 3 / 16 3?G6 LDCH 0 0(3) [LOAD SUCCESSOR 8 3?_Q SBN 0 #32 15 3#FB BNZ 0 UPDPA [J IF NOT * 15 3#_2 SBN 4 2 [IGNORE NL 7 3*DL RESBF LDX 3 4 9 3*Y= LDX 0 AWORK3(2) 17 3BCW DCA ,STO,0,CTSA [RESET PTR TO BUFFER 13 3BXG DCA ,LDX,0,MODE [MODE 8 3CC6 ANDN 0 #10 15 3CWQ BNZ 0 RECGR [J IF GRAPHIC 8 3DBB LDN 0 128 8 3DW2 BRN RESCT 14 3F*L UPDPA BXGE 4 RECMAX(1),RESBF [J IF MAX 9 3FT= LDX 3 RECMAX(1) 18 3G#W SBX 3 4 [N/CH ALOWED TO TRANSFER 10 3GSG DCA ,LDX,0,COUNT 9 3H#6 BXGE 3 0,PCTOK 17 3HRQ DCA ,STO,3,COUNT [CHANGE PERI COUNT 15 3J?B PCTOK SRC 4 2 [N/W IN RCD 9 3JR2 LDX 1 AWORK3(2) 8 3K=L SBN 1 A1+2 10 3KQ= LDX 0 ALOGLEN(1) 7 3L9W LDX 3 4 8 3LPG ANDN 3 #7777 20 3M96 ADN 3 35 [ADD 128 CHARS+RED TAPE+1 WORD 9 3MNQ BXL 0 3,XALTL 15 3N8B DCA ,LDX,0,CTSA [PERI ADDRESS 7 3NN2 SLC 0 2 21 3P7L ADX 0 ACOMMUNE1(2) [N/CH IN LAST TRANS. + OLD PERI ADD 7 3PM= SRC 0 2 21 3Q6W DCA ,STO,0,CTSA [UPDATE PERI PTR TO END OF LAST TRANS 8 3QLG BRN SRD2 9 3R66 XALTL STO 1 AWORK3(2) 12 3RKQ ALTLENG AWORK3(2),3,SALINE 10 3S5B MHUNT 3,ADATA,ALINE 18 3SK2 LOCKC 3,SALINE [LOCK NEW INPUT BUFFER 10 3T4L MHUNT 3,ADATA,ALINE 8 3TJ= ADN 3 A1+2 16 3W3W STO 3 AWORK3(2) [START ADDRESS 7 3WHG ADX 3 4 20 3X36 DCA ,STO,3,CTSA [START ADDRESS FOR NEXT TRANSFER 8 3XGQ BRN SRD2 8 3Y2B RECGR LDN 0 127 17 3YG2 RESCT DCA ,STO,0,COUNT [RESTORE PERI COUNT 8 3Y_L RCARD ADX 7 FX1 7 3_F= EXIT 7 0 4 3_YW # 4 42DG # 10 42Y6 REST MHUNT 1,ADATA,ALINE 16 43CQ LOCKC 1,SALINE [LOCK UP BUFFER 10 43XB MHUNT 1,ADATA,ALINE 8 44C2 ADN 1 A1+2 9 44WL SBX 1 AWORK3(2) 19 45B= BZE 1 NOMVE [BUFFER HAS NOT BEEN MOVED 9 45TW ADX 1 AWORK3(2) 18 46*G STO 1 AWORK3(2) [UPDATE BUFFER ADDRESS 8 46T6 NOMVE LDX 1 FX1 9 47#Q LDX 0 AWORK3(2) 21 47SB DCA ,STO,0,CTSA [SET PERI ADDRESS TO START OF BUFFER 13 48#2 DCA ,LDX,0,MODE [MODE 7 48RL ANDN 0 4 18 49?= BZE 0 SRD2 [J IF GRAPHIC OR ALPHA 9 49QW LDCH 0 AWORK1(2) 8 4==G SBN 0 #44 17 4=Q6 BZE 0 SRD2 [J IF GRAPHIC,TABS 9 4?9Q LDX 0 OMSK(1) 16 4?PB DCA ,ANDS,0,MODE [CHANGE TO ALPHA 15 4#92 LDCH 0 AWORK4(2) [LAST SHIFT 8 4#NL SBN 0 #74 15 4*8= BZE 0 SRD2 [J IF ALPHA 5 4*MW RESTART 21 4B7G DOWN INRESTAR,1 [PERI TRANSFER+ALPHA-PREVIOUS CONV. 15 4BM6 BRN NCTSA [TRY AGAIN 16 4C6Q BRN YTM1 [J IF BREAK IN 15 4CLB BRN WRECK [J IF CANTDO 4 4D62 # 10 4DKL NCTSA DCA ,LDX,0,CTSA 20 4F5= STO 0 AWORK3(2) [RESTORE BUFFER ADD. FROM PERI 10 4FJW LDX 0 ACOMMUNE1(2) 7 4G4G ADN 0 1 17 4GJ6 BNZ 0 REPET [MODE CONVERSION OK 14 4H3Q LDN 0 #66 [SWITCH 8 4HHB SLL 0 12 16 4J32 ORS 0 AWORK1(2) [SET UP SWITCH 8 4JGL BRN REPET 4 4K2= [ 12 4KFW [ SUBROUTINES FOR LOCKC MACROS 5 4K_G SALINE 10 4LF6 MHUNT 2,ADATA,ALINE 7 4LYQ EXIT 1 0 4 4MDB [ 4 4MY2 # 4 4NCL # 5 4NX= Z1INLOOP 16 4PBW LTYPE ,5 [ X5=PERI MODE 4 4PWG # 17 4QB6 STOZ CPRW1(2) [CLEAR THE REPLY WORD 10 4QTQ DCA ,LDEX,0,MODE 9 4R*B STO 0 AWORK4(2) 9 4RT2 #SKI K6PREPREAD>599-599 12 4S#L TRACEVER AWORK4(2),MODEINLP 8 4SS= SBN 0 #12 16 4T?W BZE 0 SHZER [J IF PT GRAPHIC 8 4TRG LDN 0 #74 15 4W?6 SHZER DCH 0 AWORK4(2) [STORE ALPHA 13 4WQQ DCA ,LDX,4,COUNT [N/CH 18 4X=B ADN 4 11 [ALLOW FOR HEADER WORDS 19 4XQ2 SRL 4 2 [CONVERT TO NUMBER OF WORDS 17 4Y9L SETUPCOR 4,3,ADATA,ALINE [SET UP BUFFER BLOCK 15 4YP= [ NOT LONG-LOCK IF LESS THAN --200 MILLISEC 19 4_8W STO 4 A1(3) [NO. OF WDS. REQUESTED STORED 19 4_NG Z1 LDX 6 AWORK2(2) [GET THE TERMINATOR INTO X6 17 5286 MHUNTW 3,ADATA,ALINE [FIND THE INPUT BLOCK 19 52MQ CHAIN 3,2 [CHAIN IT NEXT TO ACT. BL. 7 537B LOCK 3 7 53M2 LOCK 2 8 546L ADN 3 A1+2 15 54L= DCA ,STO,3,CTSA [BUFF ADDRESS 18 555W STO 3 AWORK3(2) [REMEMBER START ADDRESS 7 55KG LDX 4 5 14 5656 BZE 4 PTAPE [J IF TR 7 56JQ SBN 4 3 14 574B BZE 4 YC [J IF CR 16 57J2 GEOERR 1,PERGON [ERROR IF NEITHER 8 583L YC CALL 7 SR3 10 58H= Y4 DCA ,LDX,3,CTSA 19 592W LDN 7 20 [20 WORD ALLOWANCE FOR CARDS 21 59GG ADN 3 19 [X3 POINT TO THE LAST WORD OF BUFFER 14 5=26 SPCHK LDX 4 0(3) [GET IT 15 5=FQ SPACECT 4,7,SP [COUNT SPACES 7 5=_B NGX 7 7 15 5?F2 ANDN 7 3 [N/USED CHARS 9 5?YL BRN XSPACE 16 5#D= SP SBN 3 1 [REDUCE POINTER 21 5#XW BCT 7 SPCHK [AND GO BACK IF WE HAVE NOT TESTED 19 5*CG XSPACE [ALL THE WORDS ON THE CARD. 10 5*X6 DCA ,LDX,1,CTSA 20 5BBQ SBN 1 A1+2 [X1 POINTS TO THE RECORD HEADER 21 5BWB ADN 3 3 [MAKE ALLOWANCE FOR THE RECORD HEADER 18 5CB2 DCA ,SBX,3,CTSA [X3=LENGTH OF THE RECORD 21 5CTL LDX 4 3 [REMEMBER THE LENGTH OF THE RECORD 21 5D*= STO 4 A1(1) [INSERT THE WORD COUNT IN RECORD HEAD 7 5DSW SRC 7 2 13 5F#G ORN 7 #41 [PFCC 9 5FS6 STO 7 A1+1(1) 16 5G?Q BXE 6 A1+2(1),YTM [J IF TERMINATOR 7 5GB* ...#UNS JPGLTER 4 5GDY ...( 8 5GHH ... LDX 0 GTERM 18 5GL6 ... BXE 0 A1+2(1),YTM [OR UNIVERSAL TERMINATOR 4 5GNP ...) 19 5GRB STEPC STEP 0,0(3) [PREPARE TO INSERT THE RECORD 14 5H?2 TESTREP2 FILEFULL,YTMX,APPWAIT,WAIT 18 5HQL CALL 1 SALINE [RESTORE BUFFER ADDRESS 21 5J== ADN 2 A1 [X2 NOW POINTS TO THE RECORD ITSELF 17 5JPW SMO 4 [NOW MOVE THE RECORD 16 5K9G MOVE 2 0 [INTO THE FILE 8 5KP6 BZE 5 YT 16 5L8Q BRN YC [READ NEXT CARD 4 5LNB # 4 5M82 # 10 5MML PTAPE DCA ,LDX,0,MODE 8 5N7= ANDN 0 #77 8 5NLW SBN 0 #12 15 5P6G BZE 0 YT [J IF GRAPHIC 9 5PL6 LDCH 0 AWORK1(2) 8 5Q5Q SBN 0 #44 17 5QKB BZE 0 YT [J IF GRAPHIC,TABS 6 5R52 REWIND 6 5RJL STEP 18 5S4= BZE 3 YT [J IF BEGINNING OF FILE 6 5SHW WIND 7 5T3G STEPAGAIN 17 5TH6 LDX 1 0(3) [N/W IN THE RECORD 7 5W2Q SBN 1 2 13 5WGB SLL 1 2 [N/CH 8 5X22 LDX 7 1(3) 7 5XFL SRL 7 6 15 5X_= ANDN 7 #77 [LAST SHIFT 18 5YDW BZE 1 NOCHR [J IF THE RECORD IS EMPTY 15 5YYG SHFIN LDCH 0 2(3) [LOAD CHAR 8 5_D6 SBN 0 #74 16 5_XQ BNZ 0 NOAL [J IF NOT ALPHA 17 62CB LDN 7 #74 [REMEMBER LAST SHIFT 8 62X2 BRN NEXCH 7 63BL NOAL SBN 0 1 16 63W= BNZ 0 NEXCH [J IF NOT BETA 8 64*W LDN 7 #75 7 64TG NEXCH BCHX 3 / 17 65*6 BCT 1 SHFIN [J TO TEST NEXT CHAR 16 65SQ NOCHR DCH 7 AWORK4(2) [STORE LAST SHIFT 8 66#B SBN 7 #74 15 66S2 BZE 7 YT [J IF ALPHA 16 67?L LDN 7 RLINK [REMEMBER LINK 18 67R= BRN RESTART [J TO CONVERT TO PREVIOUS 8 68=W YT CALL 7 SR3 5 68QG RLINK 8 69=6 LDN 0 #14 13 69PQ ANDX 0 AWORK4(2) [MODE 18 6=9B BNZ 0 YT1 [J IF PREVIOUS OR GRAPHIC 7 6=P2 LDN 0 4 9 6?8L ORS 0 AWORK4(2) 15 6?N= YT1 LDCH 7 AWORK4(2) [LAST SHIFT 21 6#7W SLL 7 6 [SHIFT IT UP BY A CHARACTER POSITION 16 6#MG LDX 0 CPRW1(2) [GET REPLY WORD 18 6*76 ANDX 0 QMSK(1) [REMAINDER COUNT IN X0 15 6*LQ STO3 ADN 3 8 [+RED TAPE 17 6B6B STO 3 ACOMMUNE1(2) [N/CH IN RCD+RED TAPE 16 6BL2 STO 3 ACOMMUNE2(2) [N/CH IN RCD+RT 15 6C5L SBN 3 8 [-RED TAPE 20 6CK= NGX 0 3 [IN ORDER TO GET THE CHAR. COUNT 18 6D4W SRC 3 2 [MAKE IT A WORD MODIFIER 9 6DJG #SKI K6PREPREAD>199-199 9 6F46 TRACE 4,NOCHS 16 6FHQ LDCT 4 #600 [AND INSERT THE 19 6G3B ANDX 4 3 [LAST FREE CHARACTER POSITION 18 6GH2 ORS 4 7 [IN CHARACTER POSITION 15 6H2L DCA ,LDX,2,CTSA [X2=START OF 21 6HG= SBN 2 A1+2 [BUFFER. MAKE IT POINT TO THE BLOCK 13 6H_W ORN 7 #41 [PFCC 21 6JFG STO 7 A1+1(2) [INSERT CHARACTER DESCRIPTION WORD 21 6J_6 ANDN 0 #3 [HOW MANY CHARS TO SPACEFIL LAST WORD 19 6KDQ BZE 0 Y6 [IF LAST WORD FULL - BRANCH 16 6KYB LDN 4 #20 [SPACE CHARACTER 13 6LD2 STOR SMO 2 [LOOP 20 6LXL DCH 4 A1+2(3) [TO SPACEFILL THE FREE CHARACTER 19 6MC= BCHX 3 / [POSITIONS OF THE LAST WORD 17 6MWW BCT 0 STOR [BACK FOR ANOTHER? 19 6NBG Y6 ADN 3 2 [ALLOW FOR THE RECORD HEADER 18 6NW6 STO 3 A1(2) [AND STORE RECORD LENGTH 7 6P*Q LDX 7 2 8 6PTB LDX 2 FX2 14 6Q*2 LDX 0 AWORK1(2) [SWITCH 8 6QSL SRL 0 12 8 6R#= SBN 0 #66 20 6RRW BNZ 0 SHOK [J IF CONVERSION NOT NECESSARY 10 6S?G NAMETOP 7,ADATA,ACONV 8 6SR6 LDN 1 #22 8 6T=Q LDN 2 #26 17 6TQB TRANSFOR 1,2 [CONVERT TO PREVIOUS 10 6W=2 NAMETOP 7,ADATA,ALINE 21 6WPL TESTRPN2 SHIFT,SHOK [J IF RECORD HAS NOT BEEN CONVERTED 9 6X9= LDX 0 AWORK1(2) 8 6XNW ANDN 0 #7777 20 6Y8G STO 0 AWORK1(2) [UNSET SWITCH IF CONVERSION OK 7 6YN6 SHOK LDX 2 7 16 6_7Q LDX 3 A1(2) [RECORD LENGTH 17 6_MB BXE 6 A1+2(2),YTM [TEST FOR TERMINATOR 7 6_P_ ...#UNS JPGLTER 4 6_SJ ...( 8 6_X7 ... LDX 0 GTERM 18 6__Q ... BXE 0 A1+2(2),YTM [OR UNIVERSAL TERMINATOR 4 724* ...) 17 7272 LDCH 0 A1+2(2) [IS FIRST CHARACTER 14 72LL SBN 0 #74 [ALPHA? 15 736= BZE 0 XALPH [J IF IT IS 19 73KW NOTTM LDX 4 3 [REMEMBER THE RECORD LENGTH 8 745G LDX 2 FX2 8 74K6 LDN 0 #10 13 754Q ANDX 0 AWORK4(2) [MODE 15 75JB BNZ 0 TAHUN [J IF GRAPHIC 17 7642 SBN 3 2 [SUBTRACT RED TAPE 15 76HL SLL 3 2 [N/CH IN RCD 8 773= BZE 3 TAHUN 15 77GW LDX 1 AWORK3(2) [PTR KO RCD 14 782G SHUNT LDCH 0 0(1) [CHAR. 16 78G6 SBN 0 #74 [TEST IF ALPHA 8 78_Q BNZ 0 NOALP 8 79FB LDN 0 #74 15 79_2 DCH 0 AWORK4(2) [STORE ALPHA 8 7=DL BRN NECH 15 7=Y= NOALP SBN 0 1 [TEST IF BETA 8 7?CW BNZ 0 NECH 8 7?XG LDN 0 #75 15 7#C6 DCH 0 AWORK4(2) [STORE BETA 7 7#WQ NECH BCHX 1 / 17 7*BB BCT 3 SHUNT [J TO TEST NEXT CHAR 10 7*W2 TAHUN HUNT 1,AINPAR,ATB 19 7B*L LDX 3 4 [RESTORE THE RECORD LENGTH 16 7BT= BPZ 1 TABSEXP [J TO EXPAND TABS 16 7C#W BRN STEPC [INPUT NEXT LINE 5 7CSG #SKI 1 4 7D#6 ( 5 7DRQ TABSEXP 10 7F?B DOWN INRESTAR,2 17 7FR2 BRN YT [J TO REPEATE PERI 19 7G=L BRN SDISN [J IF NON-MULTIFILE IS FULL 14 7GQ= BRN TBRK [BREAK-IN 4 7H9W ) 17 7HPG XALPH LDX 0 A1+2(2) [REMOVE ALPHA SHIFT 9 7J96 LDCH 1 A1+3(2) 16 7JNQ SLL 0 6 [FOR TERMINATOR 7 7K8B ORX 0 1 7 7K*J ...#UNS JPGLTER 19 7KGQ ... BXE 0 GTERM,YTM [J IF UNIVERSAL TERMINATOR 17 7KN2 BXU 6 0,NOTTM [J IF NOT TERMINATOR 4 7L7L # 18 7LM= YTM LDX 2 FX2 [RESET THE CPA ADDRESS 4 7LX4 YTM1 8 7M6W FILEOPEN XENDC 10 7MLG ... MHUNT 3,ADATA,ALINE 9 7N66 LDCH 0 AWORK1(2) 8 7NKQ SBN 0 #44 16 7P5B BNZ 0 UNL [J IF NOT GRAPHIC 13 7PK2 LDN 0 #41 [PFCC 15 7Q4L STO 0 A1+1(3) [SET UP R/T 10 7QJ= UNL ACROSS TIDYREAD,1 4 7R3W # 4 7R?N WAIT 11 7RHG LONGSET IWTDEST,XGEOERR 8 7RR# LONGSTOP XBRK 9 7S36 ROK CALL 1 SALINE 8 7SGQ LDX 3 A1(2) 8 7T2B BRN STEPC 6 7TG2 XBRK CLOSE 9 7T_L TBRK CALL 5 SINFIN 7 7WF= ABANDCOM 18 7WYW YTMX [AFTER A FILE FULL REPLY 9 7XDG #SKIP K6PREPREAD>599-599 10 7XY6 TRACE 2,FILEFULL 11 7YCQ INPUTFULL TBRK,ROK,JOVER 18 7YXB SDISN DISENGPER [DISENGAGE THE PERIPHERAL 17 7_C2 LDX 6 AWORK2(2) [GET THE TERMINATOR 16 7_WL NXT CALL 7 SR3 [READ A RECORD 16 82B= LDX 3 AWORK3(2) [BUFFER ADDRESS 17 82TW BXE 6 0(3),WRFL [TEST FOR TERMINATOR 7 82YF ...#UNS JPGLTER 4 8334 ...( 8 835M ... LDX 0 GTERM 19 838= ... BXE 0 0(3),WRFL [... OR UNIVERSAL TERMINATOR 4 83=T ...) 10 83*G LDCH 0 JSOURCE1(2) 15 83T6 BNZ 0 NXT [J IF CARNS 19 84#Q LDCH 0 0(3) [TEST IF FIRST CHAR IS ALPHA 14 84SB SBN 0 #74 [IS ALPHA 14 85#2 BNZ 0 NXT [J IF NOT 8 85RL LDX 0 0(3) 8 86?= LDCH 1 1(3) 17 86QW SLL 0 6 [REMOVE ALPHA SHIFT 7 87=G ORX 0 1 7 87CN ...#UNS JPGLTER 19 87JW ... BXE 0 GTERM,WRFL [J IF UNIVERSAL TERMINATOR 17 87Q6 BXU 6 0,NXT [J IF NOT TERMINATOR 17 889Q WRFL SBN 3 A1+2 [GET THE INPUT BUFFER 18 88PB FREECORE 3 [FREE THE INPUT BUFFER 19 8992 BRN XENDC [LEAVE THE FILE OPENED IF JOB 5 89NL WRECK 8 89YD ... FILEOPEN XENDC 8 8=8= TESTMULT STREM 8 8=MW CLOSEABANDON 8 8?7G BRN XISIT 5 8?M6 STREM 16 8#6Q CLOSE [CLOSE ELEMENT 16 8#LB ERASEMULT [WHOLE MULTIFILE 5 8*62 XISIT 9 8*KL ISITJOB WRECKA 15 8B5= SETERR [SET ERROR 5 8BJW WRECKA 18 8C4G LDX 0 FINISH [TEST IF FINISH COMMAND 7 8CJ6 SLL 0 2 18 8D3Q BPZ 0 XENDC [J IF NOT 'FINISH NOW' 18 8DHB DISENGPER [DISENGAGE THE PERIPHERAL 5 8F32 XENDC 9 8FGL CALL 5 SINFIN 20 8G2= ENDCOM [BACK TO THE COMMAND PROCESSOR 5 8GFW SINFIN 6 8G_G INFINB 7 8HF6 EXIT 5 0 4 8HYQ # 5 8J5Y XGEOERR 9 8J?6 GEOERR 1,LONGSET? 9 8JDB SEGENTRY K99INLOOP 11 8JY2 MENDAREA 100,K99INLOOP 4 8KCL # 4 8KX= #END 8 ____ ...77643305000300000000