13 229S ...      SEG      TROBJ,867,SECT.FILE,,G505
   8 22FL    #OPT  K0TROBJ=K0OLP 
   8 22_=    #OPT  K6TROBJ=K6OLP 
   7 23DW    #LIS  K0TROBJ   
   4 23JR ...[   
  15 23NN ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
  13 23SK ...[     THIS EXCLUDES CODE UNDER #SKI G505
   4 23YG ...[   
   7 244C ...#OPT G505 = 0   
   6 248# ...#SKI G505&1 
  17 24#9 ...# WITH UGUG EDIT M505 (3-SHIFT WORKING FOR MOP ONLINE)  
   4 24D6    #   
  21 24XQ    #     THIS SEGMENT IMPLEMENTS OFFLINE A TR PERI IF *TR IS ASSIGNED TO A 
  16 25CB    #           AWORK1=    N/CH READ BY PREVIOUS PERI   
  16 25X2    #           AWORK2=    PERI MODE (NEW RECORD MODE)  
  21 25_K    #           AWORK3     B23 SET.  LAST TRANSFERRED CH OF PREVIOUS PERI WA
  21 2648    #                         DELTA. MODE IS PREVIOUS SO SUCCESSOR MUST BE  
  19 266R    #                         FIRST CH. TRANSFERRED IN THIS PERI.   
  21 269B    #                      B22 SET.  LAST TRANSFERRED CH OF PREVIOUS PERI WA
  21 26?_    #                         DELTA. MODE IS ALPHA SO SUCCESSOR MUST BE REMO
  21 26BJ    #                         FROM THIS PERI TRANSFER AND IF IT WAS A STOP C
  21 26F7    #                            (EG N/L) THE TERMINATE STATUS MUST BE FORGO
  21 26HQ    #                      B4 SET.  THE LOST CHARACTER(SEE B22 ABOVE) WAS A 
  21 26L*    #                         STOP CHARACTER AND ACONV IS NOW EMPTY. MUST   
  20 26NY    #                         CONTINUE AND GET NEXT RECORD AS TERMINATE 
  16 26RH    #                         STATUS MUST BE FORGOTTEN. 
  17 26W=    #                      B0 =  N/L CHAR HAS BEEN INSERTED 
  17 27*W    #                      B01=1 RECORD IS 2000 CHARS LONG  
  21 27TG    #                         B6 SET. LAST CH OF 2000 CH RECORD IS A DELTA. 
  19 28*6    #           AWORK4     B0 =1 END OF MULTIFILE HAS BEEN REACHED  
  21 28F3    #                     B10 SET. NLNULL PERIPHERAL NAME QUALIFIER GIVEN IN
  20 28JY    #                     ASSIGN COMMAND. THIS HAS NO EFFECT EXCEPT FOR 
  12 28NT    #                     GRAPHIC PERIS.
  12 28SQ    #           ACOMMUNE1= RECORD MODE  
  11 29#B    #           ACOMMUNE2= PERI MODE
   4 29S2    #   
  11 2=R=          SEGENTRY K1TROBJ,Z1TROBJ  
   9 2?=W    MASK1          #60077777
   9 2?QG    MASK2          #60000000
   8 2#=6    MAX            +129 
   6 2##P ...#SKI G505&1 
   4 2#C# ...(   
  16 2#FX ...XCCS1          #76137632           [ FOR 'CURSOR'   
  19 2#JG ...MASKID         #70000706           [ PERMANENT BITS OF IDENTIND 
   4 2#M5 ...)   
   9 2#PQ    NEWLINE        #76322020
   8 2*9B    XALP           #74  
   8 2*P2    XBET           #75  
   5 2B8L    PLINK1  
   9 2BN=          PAIR     TROBJ,1  
   4 2C7W    #   
  19 2CMG    #  THIS SUBROUTINE GETS LENGTH OF RECORD (CHARACTERS) IN ACONV. 
  10 2D76    #              ENTRY:X0=LINK
  13 2DLQ    #                    X3=PTR TO RECORD   
  12 2F6B    #              EXIT: X0,X3=UNCHANGED
  13 2FL2    #                    X4=N/CH IN RECORD  
  12 2G5L    #                    X6=OVERVRITTEN 
   4 2GK=    #   
   5 2H4W    RECLEN  
  18 2HJG          LDX   4  0(3)                [PICK UP N/W IN RECORD   
  17 2J46          SBN   4  2                   [SUBTRACT RED TAPE   
   8 2JHQ          BZE   4  Q4   
  19 2K3B          SLL   4  2                   [MULTIPLY BY 4_NO.OF CHARS.  
  19 2KH2          LDCH  6  1(3)                [PICK UP NO.OF USED CHARS.   
  17 2L2L          SRL   6  4                   [IN LAST WORD OF RCD.
   8 2LG=          BZE   6  Q4   
  17 2L_W          SBN   4  4                   [SUBTRACT 4 CHARS.   
  20 2MFG          ADX   4  6                   [AND ADD NO.OF CHARS.IN LAST WORD
   7 2M_6    Q4    EXIT  0  0
   4 2NDQ    #   
  20 2NYB    #     THE SUBROUTINE SETS AWORK3 IF THE RECORD IS 2000 CHARS LONG   
  14 2PD2    #              ENTRY:X0=N/W IN THE RECORD   
  10 2PXL    #                    X1=LINK
  13 2QC=    #                    X3=PTR TO RECORD-A1
   4 2QWW    #   
   5 2RBG    TEST2000
  17 2RW6          LDCT  0  #004                [IS LAST CH A DELTA  
   9 2S*Q          ANDX  0  AWORK3(2)
   9 2STB          STOZ     AWORK3(2)
  20 2T*2          ORS   0  A1+1(3)             [TRANSFER BIT TO RECORD IN ACONV.
   9 2TSL          LDEX  0  A1+FRH(3)
   8 2W#=          SBN   0  502  
  16 2WRW          BNZ   0  (1)               [RECORD <2000 CHARS
   9 2X?G          LDCH  0  A1+1(3)  
   7 2XR6          SRL   0  4
  16 2Y=Q          BNZ   0  (1)               [RECORD <2000 CHARS
   8 2YQB          LDCT  0  #600 
  14 2_=2          ORS   0  AWORK3(2)           [SWITCH  
   9 2_PL          LDX   0  A1+501(3)
   8 329=          ANDN  0  #77  
  21 32NW          ERN   0  #76                 [TEST IF LAST CH OF 2000 CH RECORD IS
  17 338G          BNZ   0  (1)                 [A DELTA. J IF NOT.  
   8 33N6          LDCT  0  #004 
  18 347Q          ORS   0  AWORK3(2)           [SET 'DELTA AT 2000' BIT_
   8 34MB          BRN      (1)  
   4 3572    #   
   5 35LL    Z1TROBJ 
   9 366=    #SKI  K6TROBJ>799-799   
   9 36KW          TRACE    FX2,TROBJ
  15 375G          LDX   3  APETADDR(2)         [PTR TO APET 
   9 37K6          LOCKCA   3,ACAP(2)
  16 384Q          LDX   4  ACAP(2)             [CA IN OBJ.PROG. 
  15 38JB          LDN   5  ACA1(2)             [CA IN AOLPT 
   7 3942          LDN   6  4
  16 39HL          FOUTMOVE 3,4,5,6,HLOCK1      [MOVE CA TO OLPA 
  17 3=3=          STOZ     ACA2(2)             [ZEROISE REPLY WORD  
   9 3=GW          LDX   0  AWORK4(2)
  18 3?2G          BNG   0  NORE15              [J IF END OF MULTIFILE   
   8 3?4P          PMODES   4,3  
   8 3?6Y          ANDN  4  #10  
  18 3?97          BNZ   4  NOTPACT             [J IF NOT COMPACT MODE   
   9 3??B          LDX   4  MASK1(1) 
   9 3?*K          ANDS  4  ACA4(2)  
   5 3?CS    NOTPACT 
  14 3?G6          LDX   3  ACA3(2)             [COUNT   
   8 3?_Q          BZE   3  WC1  
   6 3#2B ...#SKI G505&1 
   4 3#32 ...(   
   9 3#3L ...      LDX   0  MASKID(1)
  10 3#4= ...      ANDS  0  IDENTIND(2)  
   4 3#4W ...)   
   6 3#5G ...#SKI G505&1 
   4 3#66 ...(   
   8 3#6Q ...      LDN   0  #10  
   9 3#7B ...      ANDX  0  ACA1(2)  
  15 3#82 ...      IF       0,ZE                [ SHIFT PERI 
   8 3#8L ...         LDN   6  6 
  11 3#9= ...         ANDX  6  IDENTIND(2)   
  16 3#9W ...      AND      6,NZ                [ SHIFT DEVICE   
   6 3#=G ...      THEN  
   9 3#?6 ...         LDN   0  #20   
  10 3#?Q ...         ANDX  0  ACA1(2)   
   9 3##B ...         IF       0,ZE  
   7 3#*2 ...         THEN   
  20 3#*L ...            LDN   6  4                   [ NORMAL ON ALLCHAR DEVICE 
   6 3#B= ...         FI 
   8 3#BW ...         SLL   6  12
  11 3#CG ...         ORS   6  IDENTIND(2)   
   5 3#D6 ...      FI
   4 3#DQ ...)   
  17 3#FB          BXGE  3  MAX(1),WC1          [CHECK 0<COUNT<129   
  16 3#_2          LDX   4  ACA4(2)             [BUFFER ADDRESS  
   7 3*DL          ADN   3  3
   7 3*Y=          SRL   3  2
  15 3BCW          CHECKA   4,3,RESV,APETADDR(2),W,Q5,HLOCK2 
  17 3BXG    Q5    LDX   5  AWORK1(2)           [POINTER TO LAST RCD.
   9 3CC6          LDX   7  ACA1(2)  
  15 3CWQ          ANDN  7  #7777               [PERI MODE   
  19 3DBB          BNZ   5  USEBLK              [J IF RECORD BLOCK PRESENT   
   4 3DW2    STEP
  10 3F*L          MHUNT    3,ADATA,AREST
  17 3FT=          BNG   3  NOREST              [J IF WOT EXISTING   
   8 3G#W          LDX   0  A1(3)
  15 3GSG          BZE   0  NOREST              [J IF EMPTY  
  10 3H#6          MHUNT    1,ADATA,ACONV
   9 3HRQ          BNG   1  NOREST   
  14 3J?B          STOZ     A1(1)               [EMPTY   
  10 3JR2          NAMETOP  1,ADATA,AREST
   9 3K=L          BRN      READREST 
   5 3KQ=    NOREST  
  19 3L9W          INMOP K1TROBJ,MFMOP          [READ RECORD FROM MOP OR MF  
   6 3LPG          STEP  
  10 3M96          TESTREP2 STEPWAIT,WAIT
   8 3MNQ          BZE   3  WAIT2
  10 3N8B          HUNT     2,ADATA,ACONV
  16 3NN2          LDX   4  FRH(3)                [RECORD LENGTH 
  16 3P7L          ADN   4  1                   [1 WORD FOR N/L  
  17 3PM=          BPZ   2  PRESB               [J IF BLOCK PRESENT  
  11 3Q6W          SETUPCORE 4,2,ADATA,ACONV 
   8 3QLG          BRN      OKLEN
  18 3R66    MFMOP MHUNT    3,FILE,FRB          [FIND RECORD FROM MOP/MF 
   9 3RKQ          LDX   4  A1+FRH(3)
   7 3S5B          ADN   4  1
  21 3SK2          ALTLEN   3,4                 [LENGTHEN TO MAKE ROOM FOR NEWLINE   
  10 3T4L          MHUNT    3,FILE,FRB   
   5 3TJ=    READREST
  10 3W3W          NAMETOP  3,ADATA,ACONV
  19 3WHG          CALL  1  TEST2000      [TEST IF RECORD IS 2000 CHARS LONG 
  17 3X36          WHICHMOP      RCMOD          [J IF NOT MOP OR JDF.
  10 3XGQ          LDX   3  APETADDR(2)  
  17 3Y2B          LDX   3  JOBRING+FPTR(3)     [X3->JOBRING OF CPAT.
   8 3YG2          LDN   0  #10  
  12 3Y_L          ANDX  0  CONTEXT-JOBRING(3)   
  21 3_F=          BNZ   0  XGRAMOP             [J IF MOP AND ASSUME GRAPHIC FILE MOD
  12 3_YW          LDX   3  FILEBRING-JOBRING(3) 
   9 42DG          LDX   3  BPTRF(3) 
  10 42Y6          ADX   3  FBACKPOINT(3)
  16 43CQ          LDX   3  BPTR(3)             [X3->FCB OF JDF. 
  17 43XB          LDEX  6  FETM(3)             [PICK UP FILE MODE.  
   8 44C2          BRN      TRANS
  11 44WL    PRESB BXL   4  ALOGLEN(2),OKBL  
   7 45B=          LDX   6  2
   8 45TW          ALTLEN   6,4  
  16 46*G    OKLEN STEPAGAIN                    [PTR.TO RECORD   
  10 46T6          MHUNT    2,ADATA,ACONV
   4 47#Q    OKBL
   8 47SB          LDN   4  A1(2)
   9 48#2          SMO      FRH(3)   
  18 48RL          MOVE  3  0                   [MOVE RECORD TO ACONV.   
   7 49?=          LDX   3  4
   8 49QW          SBN   3  A1   
   8 4==G          LDX   2  FX2  
  19 4=Q6          CALL  1  TEST2000            [TEST IF RECORD IS 2000 CHARS
  15 4?9Q    RCMOD LDX   6  FSCTM(2)            [TYPE/MODE   
   8 4?PB          ANDN  6  #7777
  15 4#92          BNZ   6  TRANS               [J IF TR FILE
   5 4#NL    XGRAMOP 
  16 4*8=          LDN   6  #12                 [CR,CP,LP FILE   
   6 4*9S ...#SKI G505&1 
   4 4*?B ...(   
  10 4*#Y ...      LDX   0  IDENTIND(2)  
   7 4*BG ...      SRL   0  9
  17 4*D4 ...      ANDN  0  #60                 [ SHIFT DEVICE BITS  
   8 4*FL ...      BZE   0  XCONV
  18 4*H8 ...      LDN   6  #20                 [ ALLCHAR, START IN ALPHA
  18 4*JQ ...      ANDX  6  0                   [ POSS CHANGE TO NORMAL  
   4 4*L# ...)   
   8 4*MW          BRN      XCONV
  15 4B7G    TRANS LDX   0  6                   [RECORD MODE 
   8 4BM6          ANDN  0  #10  
  15 4C6Q          BNZ   0  XCONV               [J IF GRAPHIC
  18 4CLB          ORN   6  4                   [ALL RECORDS IN PREVIOUS 
  16 4D62    XCONV TRANSFO1 6,7                 [CONVERT THE MODE
  17 4DKL          TESTREP2 ILLMODE,MOLE        [TEST IF LEGAL MODE  
  10 4F5=          TESTRPN2 SHIFT,OKACA  
   7 4FJW          LDN   0  4
  17 4G4G          ORS   0  ACA1(2)             [CHANGE TO PREVIOUS  
  18 4GJ6    OKACA STO   7  AWORK2(2)           [STORE NEW RECORD MODE   
   8 4H3Q          ANDN  7  #10  
  10 4HHB          MHUNT    3,ADATA,ACONV
  18 4J32          LDX   5  3                   [REMEMBER PTR TO ACONV   
   8 4JGL          ADN   3  A1   
   9 4K2=          CALL  0  RECLEN   
  18 4KFW          BNZ   7  NLPRE               [J IF RECORD IN GRAPHIC  
   9 4K_G    NLCH  LDX   0  AWORK3(2)
  21 4LF6          BNG   0  NLPRE               [J IF N/L HAS ALREADY BEEN INSERTED  
  13 4LYQ          LDCT  0  #400                [B0=1
  18 4MDB          ORS   0  AWORK3(2)           [N/L IS BEING INSERTED   
  15 4MY2          ADN   3  2                   [ADD RED TAPE
   7 4NCL          SRC   4  2
  17 4NX=          ADX   3  4                   [PTR TO LAST CHAR+1  
   7 4PBW          SLC   4  2
   6 4PD7 ...#SKI G505&1 
   4 4PFD ...(   
   8 4PGP ...      LDCT  0  #200 
  10 4PJ2 ...      ANDX  0  IDENTIND(2)  
  15 4PK? ...      BZE   0  XCCS4               [ NO 'CURSOR'
   9 4PLJ ...      LDN   2  XCCS1(1) 
   7 4PMT ...      MVCH  2  4
   7 4PP6 ...      ADN   4  4
   8 4PQC ...      BRN      XCCS5
   5 4PRN ...XCCS4   
   4 4PS_ ...)   
   7 4PWG          SLC   3  2
  14 4QB6          SBN   3  2                   [- 2 CHRS
   7 4QTQ          SRC   3  2
  15 4R*B          LDCH  0  0(3)                [TEST FOR _* 
   8 4RT2          SBN   0  #76  
   7 4S#L          BCHX  3  /
  15 4SS=          BNZ   0  NONL                [J IF NOT _  
   8 4T?W          LDCH  0  0(3) 
  15 4TRG          SBN   0  #32                 [TEST FOR *  
  14 4W?6          BZE   0  NLPRE               [J IF _* 
   7 4WQQ    NONL  BCHX  3  /
  10 4X=B          LDN   2  NEWLINE(1)   
  15 4XQ2          MVCH  2  2                   [INSERT _*   
  15 4Y9L          ADN   4  2                   [ADD 2 CHARS 
   6 4YBS ...#SKI G505&1 
   5 4YJ2 ...XCCS5   
   8 4YP=          LDX   2  FX2  
  15 4_8W          LDX   3  5                   [PTR TO ACONV
   7 4_NG          LDN   0  3
  17 5286          ANDX  0  4                   [N/CH IN LAST WORD   
   7 52MQ          SLL   0  4
  15 537B          DCH   0  A1+1(3)             [UPDATE R/T  
  16 53M2          LDX   0  4                   [N/CH IN RECORD  
  15 546L          ADN   0  11                  [ADD RED TAPE
  13 54L=          SRL   0  2                   [N/W 
  15 555W          STO   0  A1(3)               [UPDATE R/T  
  17 55KG    NLPRE LDX   3  5                   [RESTORE PTR TO ACONV
  14 5656          LDEX  6  AWORK3(2)           [SWITCH  
  17 56JQ          BZE   6  NOSET               [J IF IT IS NOT SET  
  16 56SJ          BZE   4  NSET2               [J IF ACONV E-PTY
   9 574B          LDCH  0  A1+2(3)  
  16 57J2          SBN   0  #76                 [TEST IF DELTA   
  14 57NN          BZE   0  TYPE2                [J IF SO
  20 57TB          LDN   0  2                   [UNSET SWITCH AS _ AN& 00CCE00OR 
  19 5824          SBS   0  AWORK3(2)           [ALREADY RE-OVE& BY TRANSFOR 
   8 586Q          BRN      NSET 
   5 58?D    TYPE2   
   7 58H=          BCHX  3  /
  17 592W          SBN   4  1                   [SUBTRACT ONE CHAR   
  19 594F          SEGENTRY K91TROBJ            [RESTORE TIME MACRO TRTYPE1  
  19 5964          BCT   6  TYPE2               [X6 CONTAINS CURRENT STATE OF
  18 597M                                       [BITS 22,23 OF AWORK3.   
   4 598D    NSET
  18 599=          BNZ   4  NOSET               [J IF ACONV NOT EMPTY.   
  20 59=T                                       [IE STOP CHARACTER NOT REACHED.  
   5 59?L    NSET2   
  21 59#D          LDCT  0  #02                 [SET BIT TO INDICATE TERMINATE STATUS
  19 59B3          ORS   0  AWORK3(2)           [OF STOP CH. MUST BE LOST,   
  19 59CL                                       [SINCE SPLIT OVER TWO PERIS. 
  17 59FC    NOSET BZE   7  NOGRAPH             [J IF NOT GRAPHIC.   
  20 59KJ          LDX   0  4                   [INDICATE NO EMBEDDED STOP CH.   
   8 59PP          BRN      NOST 
   5 59TW    NOGRAPH 
  15 5=26          LDX   0  ACA1(2)             [PERI MODE   
   7 5=FQ          ANDN  0  2
  17 5=_B          BZE   0  NOST                [J IF READ N CHARS   
  17 5?F2          LDX   6  3                   [REMEMGR PTR TO ADATA
  18 5?YL          LDX   7  4                   [NO. OF CHS IN RECORD.   
   9 5#D=          BZE   7  NOSTA1   
  17 5#XW          ADN   3  A1+2                [PTR TO THE RECORD   
  15 5*CG    NCHAR LDCH  0  0(3)                [LOAD CHAR   
   8 5*X6          SBN   0  #76  
   7 5BBQ          BCHX  3  /
  15 5BWB          BZE   0  SUCT                [J IF DELTA  
   8 5CB2    TNCH  BCT   7  NCHAR
  18 5CTL          BRN      NOSTA1               [J IF NOT A STOP CHAR   
   8 5D*=    SUCT  BCT   7  SUCT1
   5 5DSW    NOSTA1  
   7 5F#G          LDX   0  4
  17 5FS6          BRN      NOSTA               [J IF NOT A STOP CHAR
  16 5G?Q    SUCT1 LDCH  0  0(3)                [LOAD SUCCESOR   
   7 5GRB          BCHX  3  /
   8 5H?2          SBN   0  20   
  15 5HQL          BNZ   0  NOTC4               [J IF NOT TC4
   9 5J==          LDX   0  ACA1(2)  
  16 5JPW          SBN   0  2                   [TEST IF NORMAL  
  14 5K9G          BZE   0  STOP                [J IF TC4
   8 5KP6          BRN      TNCH 
   7 5L8Q    NOTC4 SBN   0  6
  16 5LNB          BNG   0  TNCH                [J IF NOT A STOP 
   7 5M82          SBN   0  4
  16 5MML          BPZ   0  TNCH                [J IF NOT A STOP 
   4 5N7=    STOP
   8 5NLW          SBN   3  A1+2 
   7 5P6G          SLC   3  2
   7 5PL6          SLC   6  2
   7 5Q5Q          SBX   3  6
   7 5QKB          SRC   6  2
  16 5R52          LDX   0  4                   [N/CH IN RECORD  
  18 5RJL          LDX   4  3                   [ASSUMED RECORD LENGTH   
   7 5S4=    NOSTA LDX   3  6
  15 5SHW    NOST  LDX   6  ACA3(2)             [PERI COUNT  
  19 5T3G          BXL   6  4,SETAW             [J IF PERI COUNT<REC.LENGTH  
   8 5TH6          BXU   6  4,TOK
   8 5TM3          LDX   1  BIT10
   9 5TQY          ANDX  1  AWORK4(2)
  19 5TWT          BZE   1  TOK                 [J IF NLNULL QUAL NOT GIVEN  
   8 5W2Q          LDCT  5  #600 
   9 5WGB          ANDX  5  AWORK3(2)
  21 5X22          BZE   5  SETAW             [J IF GRAPHIC BUT NOT 2000CH RECORD.   
   4 5X_=    TOK 
   7 5YDW          LDX   6  4
  17 5YYG          BXL   4  0,SETAW             [J IF EMBEDDED STOP  
   9 5_D6          STOZ     AWORK1(2)
   8 5_XQ          BRN      Q8   
  13 62CB    SETAW STO   6  AWORK1(2)           [N/CH
  14 62X2          LDEX  0  AWORK3(2)           [SWITCH  
  19 63BL          ADS   0  AWORK1(2)           [+1 IF _ IS NOT TRANSFERED   
   8 63W=    Q8    ADN   3  A1+2 
  10 64*W          LDX   1  APETADDR(2)  
  17 64TG          BZE   6  Q11                 [J IF RECORD LENGTH=0
  15 65*6          SBS   6  ACA3(2)             [UPDATE COUNT
  16 65SQ          LDX   4  ACA4(2)             [BUFFER ADDRESS  
  19 66#B          FINMVCH  1,4,3,6,HLOCK2,,G      [MOVE TO OBJ PROG BUFFER  
   4 66S2    Q11 
   9 67?L          LDX   0  AWORK1(2)
  18 67R=          BNZ   0  OLPREP              [J IF ACONV IS NOT EMPTY.
  17 68=W          WHICHMOP Q12                 [J IF NOT MOP OR JDF.
  17 68QG          MFREE    ADATA,ACONV         [FREE BUFFER BLOCK   
  10 69=6          LDX   1  APETADDR(2)  
  13 69PQ    Q12   LDX   0  ACA1(2)             [MODE
   7 6=9B          SRC   0  2
  15 6=P2          BPZ   0  NCHARS              [READ N CHARS
   9 6?8L          LDCH  0  AWORK3(2)
  15 6?N=          SBN   0  #60                 [TEST SWITCH 
  17 6?WG          BZE   0  NCHARS              [J IF 2000CH RECORD. 
  21 6#4Q          LDCT  0  #02                 [TEST IF ACONV EMPTY BUT STOP CH EFFE
  20 6#?2          ANDX  0  AWORK3(2)           [LOST DUE TO BEING SPLIT OVER TWO
  19 6#F=          BZE   0  OLPREP              [PERIS.  J IF NOT TO FINISH. 
   5 6#MG    NCHARS  
  13 6*76          LDEX  7  ACA1(2)             [MODE
  16 6*LQ    PEGR  BZE   6  NOUP                [J IF ACA4 IS OK 
  15 6B6B          LDX   4  ACA4(2)             [PERI ADDRESS
   7 6BL2          SLC   4  2
  17 6C5L          ADX   4  6                   [ADD NCH TRANSFERED  
  15 6CK=          SRC   4  2                   [NEW ADDRESS 
  17 6D4W          STO   4  ACA4(2)             [UPDATE BUFF ADDRESS 
  16 6DJG    NOUP  LDX   6  ACA3(2)             [REMAINDER COUNT 
  18 6F46          BNZ   6  STEP                [J TO READ NEXT RECORD   
   5 6FHQ    OLPREP  
  16 6G3B          LDX   3  ACAP(2)             [PTR TO PERI CA  
   7 6GH2          ADN   3  1
  10 6H2L          FADDRESS 1,3,HLOCK1   
  18 6HG=          LDX   6  ACA3(2)             [REMAINDER COUNT;IF X6=0 
  15 6H_W          STO   6  0(3)                [REPLY WORD  
   6 6JFG          OLPEND
   9 6J_6          BRN      K1TROBJ  
   4 6KDQ    #   
   4 6KYB    #   
   5 6LD2    USEBLK  
   8 6LXL          LDCT  0  #604 
  14 6MC=          ANDS  0  AWORK3(2)           [MAST B23
  10 6MWW          MHUNT    3,ADATA,ACONV
  17 6NBG          LDX   4  A1+1(3)             [2ND WORD OF RED TAPE
  16 6NW6          LDN   3  A1+2(3)             [PTR TO RECORD   
   7 6P*Q          LDX   2  3
   7 6PTB          SRL   4  6
  16 6Q*2          ANDN  4  #77                 [SHIFT OR ZERO   
  15 6QSL          BZE   4  XGR                 [J IF GRAPHIC
  16 6R#=    NCH   LDCH  0  0(2)                [LOAD CHARACTER  
  15 6RRW          BXE   0  XALP(1),SHIFT       [J IF ALPHA  
  17 6S?G          BXU   0  XBET(1),NOSH        [J IF NOT SHIFT CHAR.
  16 6SR6    SHIFT LDX   4  0                   [REMEMBER SHIFT  
   7 6T=Q    NOSH  BCHX  2  /
  17 6TQB          BCT   5  NCH                 [J TO TEST NEXT CHAR.
   8 6W=2          SBN   0  #76  
  17 6WPL          BNZ   0  NODEL               [J IF IT IS NOT DELTA
   7 6X9=          LDN   0  1
   8 6XNW          SMO      FX2  
  16 6Y8G          SBS   0  AWORK1              [TRANSFER DELTA  
   7 6YN6          SLC   2  2
   7 6_7Q          SBN   2  1
   7 6_MB          SRC   2  2
   7 7272          LDN   6  4
  15 72LL          ANDX  6  7                   [PERI MODE   
  19 72WD          SEGENTRY K92TROBJ            [RESTORE TIME MACRO TRTYPE1  
  20 736=          BNZ   6  PREMO               [J IF PREVIOUS SHIFT SPECIFIED.  
   7 73B4          ADN   0  1
   8 73KW    PREMO SMO      FX2  
  15 745G          ORS   0  AWORK3              [SET SWITCH  
   9 74*#          SEGENTRY K93TROBJ 
   7 74K6    NODEL SLC   3  2
   7 754Q          SBN   3  2
   7 75JB          SRC   3  2
  16 7642          DCH   4  0(3)                [STORE LAST SHIFT
   7 76HL          BCHX  3  /
   7 773=          BCHX  3  /
   8 77GW          BRN      SUBR 
   7 782G    XGR   SLC   2  2
   8 78G6          SMO      FX2  
   9 78_Q          ADX   2  AWORK1   
   7 79FB          SRC   2  2
   7 79_2    SUBR  SBN   3  2
  17 7=DL          CALL  0  RECLEN              [GET RECORD LENGTH   
   8 7=Y=          SMO      FX2  
  21 7?CW          SBX   4  AWORK1              [SUBTRACT N/CH WHICH HAS BEEN READ   
   7 7?XG    OKR   LDX   6  3
  16 7#C6          ADN   3  2                   [PTR TO RECORD   
  17 7#WQ          BZE   4  NOTMV               [J IF REC.LENGTH=0   
  18 7*BB          LDX   0  4                   [REMEMBER RECORD LENGTH  
   8 7*W2    TEST4 SBN   4  512  
  16 7B*L          BNG   4  SHALL               [J IF LENGTH<512 
  16 7BT=          MVCH  2  0                   [MOVE 512 CHARS  
  17 7C#W          BNZ   4  TEST4               [J IF MORE TO MOVE   
   8 7CSG          BRN      RES4 
  16 7D#6    SHALL ADN   4  512                 [X4=N/CH TO MOVE 
   7 7DRQ          SMO      4
  15 7F?B          MVCH  2  0                   [MOVE RECORD 
  15 7FR2    RES4  LDX   4  0                   [RESTORE X4  
   7 7G=L    NOTMV LDN   0  3
  17 7GQ=          ANDX  0  4                   [N/CH IN LAST WORD   
   7 7H9W          SLL   0  4
   7 7HPG          LDX   3  6
  18 7J96          DCH   0  1(3)                [STORE N/CH IN LAST WORD 
  17 7JNQ          BNG   4  NEGNCH              [J IF NEGATIVE N/CH  
   7 7K8B          ADN   4  3
  16 7KN2          SRL   4  2                   [N/W IN RECORD   
  15 7L7L          ADN   4  2                   [ADD RED TAPE
   8 7LM=          STO   4  0(3) 
   8 7M6W          LDX   2  FX2  
  15 7MLG          LDX   6  AWORK2(2)           [RECORD MODE 
   8 7N66          BRN      TRANS
   4 7NKQ    #   
   4 7P5B    #   
   4 7PK2    MOLE
   8 7Q4L          BNZ   5  MOILE
   8 7QJ=          CALL  6  SRBAC
   5 7R3W    MOILE   
   9 7RHG          LDN   3  FYMODE   
   4 7S36    XILL
  21 7SGQ          CALL  5  TOPCA               [CHANGE TO PCA LEAVING CORRECT LINK  
   9 7T2B          ACROSS   OLPODD,4 
   4 7TG2    NORE
   8 7T_L          COMPQU   NORE1
   9 7WF=          BRN      K1TROBJ  
   8 7WYW          LDX   0  GSIGN
  16 7XDG          ORS   0  AWORK4(2)           [END OF MULTIFILE
   9 7XY6          BRN      NORE15   
   5 7YCQ    NORE1   
   8 7YXB          CALL  6  SRBAC
   5 7_C2    NORE15  
  15 7_WL          LDX   0  ACA1(2)             [TYPE/MODE   
  16 82B=          SRL   0  6                   [IGNORE MAIN MODE
   8 82TW          ANDN  0  #777 
  20 83*G          SBN   0  #300                [TEST OWN MONITORING MODE #30000 
  14 83T6          BNZ   0  OUTP                [J IF NOT
  15 84#Q          LDCT  6  #50                 [SET B3 & B5 
   9 84SB          ORS   6  ACA3(2)  
  10 85#2          LDX   1  APETADDR(2)  
  17 85RL          BRN      OLPREP              [J TO SET REPLY WORD 
   5 86?=    NEGNCH  
  10 86QW          GEOERR   1,NEG N/CH   
   4 87=G    OUTP
   9 87Q6          LDN   3  FYFILE   
  16 889Q          LDX   4  FTYPNO(2)           [FOR OUTPACKING  
   8 88PB          BRN      XILL 
   4 8992    WC  
   8 89NL          CALL  6  SRBAC
   4 8=8=    WC1 
   9 8=MW          LDN   3  FYCOUNT  
   8 8?7G          BRN      XILL 
   4 8?M6    RESV
   9 8#6Q          LDN   3  FYNOBUF  
   8 8#LB          BRN      XILL 
   5 8*62    TOPCA   
   8 8*KL          LDX   1  FX1  
  16 8B5=          TOPCA1   PLINK1(1)           [CHANGE TO PCA   
   7 8BJW          EXIT  5  0
   5 8C4G    SRBAC   
  21 8CJ6          WHICHMOP YBACK               [J IF NOT MOP OR JDF AND BACKSPACE   
  13 8D3Q          BRN      (6)                 [EXIT
   5 8DHB    YBACK   
   8 8F32          SBX   6  FX1  
  16 8FGL          BACKSPACE                    [UNDO THE STEP   
   8 8G2=          ADX   6  FX1  
   7 8GFW          EXIT  6  0
   4 8G_G    WAIT
   7 8HF6          LDN   3  1
   5 8HYQ    WAIT2   
  15 8JDB          FDRMTEST STEPWAIT,NODRM      [TEST FOR DRM
  15 8JY2          LDCT  4  #420                [REPLY WORD  
   8 8KCL          BNZ   3  WAIT3
  17 8KX=          LDCT  4  #410                [REJECTED INOPERABLE 
   8 8LBW          CALL  6  SRBAC
   5 8LWG    WAIT3   
   9 8MB6          ORS   4  ACA3(2)  
  10 8MTQ          LDX   1  APETADDR(2)  
   9 8N*B          BRN      OLPREP   
   5 8NT2    NODRM   
   8 8P#L          BZE   3  NORE 
   9 8PS=    #SKI  K6TROBJ>100-100   
   9 8Q?W          TRACE 7,TROBJWAK  
   8 8QRG          CALL  5  TOPCA
  20 8R?6          ACROSS   OLPODD,1            [WAIT FOR A RECORD TO BE APPENDED
  10 8RQQ          MENDAREA 100,K99TROBJ 
   4 8S=B    #END
   8 ____ ...77636503000100000000