3 Modifications

Seq #  *Modification Id* Act 
----------------------------+
04001  M01S03966.edit    +++|          ZR     X1,SLT2     IF *00*
04002  M01S03967.edit    +++|          LX4    6
04003  M01S03968.edit    +++|          SB3    B1
04004  M01S03969.edit    +++|          SB6    B6-2
04005  M01S03970.edit    +++| SLT2     LX4    54          POSITION BLANK CHARACTER
04006  M01S03971.edit    +++|          BX6    X6-X4
04007  M01S03972.edit    +++|          SB6    B6+1
04008  M01S03973.edit    +++|          NZ     B3,SLT3     IF NOT ON WORD BOUNDARY
04009  M01S03974.edit    +++|          SB2    B2+1
04010  M01S03975.edit    +++|          SA6    A4
04011  M01S03976.edit    +++|          BX6    X6-X6       CLEAR END OF LINE
04012  M01S03977.edit    +++|          EQ     SLT3
04013  M01S03978.edit    +++| SML      SPACE  4,11
04014  M01S03979.edit    +++|**        SML - SEARCH MODIFIED LINE.
04015  M01S03980.edit    +++|*
04016  M01S03981.edit    +++|*         ENTRY  (X6) = STRING POINTER ADDRESS.
04017  M01S03982.edit    +++|*                (X1) - SEE *SLS*.
04018  M01S03983.edit    +++|*
04019  M01S03984.edit    +++|*         EXIT   (X7) " 0 IF STRING FOUND.
04020  M01S03985.edit    +++|*
04021  M01S03986.edit    +++|*         USES   A - 1, 2.
04022  M01S03987.edit    +++|*                B - NONE.
04023  M01S03988.edit    +++|*                X - 0, 1, 2, 6.
04024  M01S03989.edit    +++|*
04025  M01S03990.edit    +++|*         CALLS  SLS, SLT, SFS.
04026  M01S03991.edit    +++|
04027  M01S03992.edit    +++|
04028  M01S03993.edit    +++| SML1     SA1    SLP         SET LINE TERMINATOR
04029  M01S03994.edit    +++|          RJ     SLT
04030  M01S03995.edit    +++|          BX6    X0          SEARCH FILE FOR STRING
04031  M01S03996.edit    +++|          RJ     SFS
04032  M01S03997.edit    +++|
04033  M01S03998.edit    +++| SML      SUBR               ENTRY/EXIT
04034  M01S03999.edit    +++|          BX0    X6
04035  M01S04000.edit    +++|          SA2    X6          SEARCH LINE FOR STRING
04036  M01S04001.edit    +++|          RJ     SLS
04037  M01S04002.edit    +++|          NZ     B7,SML1     IF NOT IN CURRENT LINE
04038  M01S04003.edit    +++|          EQ     SMLX
04039  M01S04004.edit    +++| SRO      SPACE  4,15
04040  M01S04005.edit    +++|**        SRO - SEARCH READ ONLY.
04041  M01S04006.edit    +++|*
04042  M01S04007.edit    +++|*         ENTRY  (X0) = 0  SEARCH BEFORE READ.
04043  M01S04008.edit    +++|*                     " 0  READ BEFORE SEARCH.
04044  M01S04009.edit    +++|*                (X6) = STRING POINTER ADDRESS.
04045  M01S04010.edit    +++|*
04046  M01S04011.edit    +++|*         EXIT   (X7) " 0  IF STRING FOUND.
04047  M01S04012.edit    +++|*                     = 0  IF EOF.
04048  M01S04013.edit    +++|*                (B2) = NUMBER OF LINES READ.
04049  M01S04014.edit    +++|*                (B4) = NUMBER OF LINES ADVANCED IN CURRENT READ FILE.
04050  M01S04015.edit    +++|*
04051  M01S04016.edit    +++|*         USES   A - 2, 3, 4, 6.
04052  M01S04017.edit    +++|*                B - 2, 6, 7.
04053  M01S04018.edit    +++|*                X - 0, 2, 3, 4, 5, 6, 7.
04054  M01S04019.edit    +++|*
04055  M01S04020.edit    +++|*         CALLS  RDC=, SLS.
04056  M01S04021.edit    +++|
04057  M01S04022.edit    +++|
04058  M01S04023.edit    +++| SRO4     SX6    X0+
04059  M01S04024.edit    +++|          SA6    SROC        SAVE PREVIOUS LINE ADVANCE
04060  M01S04025.edit    +++|          CEPF   SRO2,4
04061  M01S04026.edit    +++|          SX0    0
04062  M01S04027.edit    +++|
04063  M01S04028.edit    +++| SRO      SUBR               ENTRY/EXIT
04064  M01S04029.edit    +++|          ZR     X6,SRO1     IF STRING POINTER SET PREVIOUSLY
04065  M01S04030.edit    +++|          SA6    SROA        SAVE STRING POINTER
04066  M01S04031.edit    +++| SRO1     SB2    X0
04067  M01S04032.edit    +++|          BX0    X0-X0
04068  M01S04033.edit    +++|          SX6    B0+
04069  M01S04034.edit    +++|          SA6    SROC        CLEAR PREVIOUS LINE ADVANCE
04070  M01S04035.edit    +++|          ZR     B2,SRO3     IF SEARCH BEFORE READ
04071  M01S04036.edit    +++| SRO2     SB7    LBUFL       SET LINE LENGTH
04072  M01S04037.edit    +++|          SA3    LBA
04073  M01S04038.edit    +++|          READC  X5,X3,B7
04074  M01S04039.edit    +++|          NZ     X1,SRO4     IF NO DATA TRANSFERED
04075  M01S04040.edit    +++|          SA0    B6
04076  M01S04041.edit    +++|          SX0    X0+B1       ADVANCE LINE COUNT
04077  M01S04042.edit    +++| SRO3     SA2    SROA        GET STRING POINTER
04078  M01S04043.edit    +++|          SA2    X2+
04079  M01S04044.edit    +++|          RJ     SLS         SEARCH LINE FOR STRING
04080  M01S04045.edit    +++|          NZ     B7,SRO2     IF STRING NOT FOUND
04081  M01S04046.edit    +++|          SA2    SROC        GET PREVIOUS LINE ADVANCE
04082  M01S04047.edit    +++|          IX2    X0-X2
04083  M01S04048.edit    +++|          SB4    X2          LINE ADVANCE ON CURRENT READ FILE
04084  M01S04049.edit    +++|          SB2    X0
04085  M01S04050.edit    +++|          BX0    X0-X0
04086  M01S04051.edit    +++|          ZR     B2,SROX     IF FILE NOT ADVANCED
04087  M01S04052.edit    +++|          SX6    A0+
04088  M01S04053.edit    +++|          SA6    LBL
04089  M01S04054.edit    +++|          EQ     SROX        RETURN
04090  M01S04055.edit    +++|
04091  M01S04056.edit    +++|
04092  M01S04057.edit    +++| SROA     CON    0           STRING POINTER
04093  M01S04058.edit    +++|
04094  M01S04059.edit    +++|
04095  M01S04060.edit    +++| SROC     CON    0           PREVIOUS LINE ADVANCE
04096  M01S04061.edit    +++| SVR      SPACE  4
04097  M01S04062.edit    +++|**        SVR - SAVE WORKING REGISTERS.
04098  M01S04063.edit    +++|*
04099  M01S04064.edit    +++|*         EXIT   FOLLOWING REGISTERS SAVED.
04100  M01S04065.edit    +++|*                X - 0, 1, 2, 6.
04101  M01S04066.edit    +++|
04102  M01S04067.edit    +++|
04103  M01S04068.edit    +++| SVR      SUBR               ENTRY/EXIT
04104  M01S04069.edit    +++|          SA6    SVRA        X6
04105  M01S04070.edit    +++|          BX7    X1          X1
04106  M01S04071.edit    +++|          SA7    A6+B1
04107  M01S04072.edit    +++|          BX6    X0          X0
04108  M01S04073.edit    +++|          SA6    A7+B1
04109  M01S04074.edit    +++|          BX7    X2          X2
04110  M01S04075.edit    +++|          SA7    A6+B1
04111  M01S04076.edit    +++|          EQ     SVRX
04112  M01S04077.edit    +++|
04113  M01S04078.edit    +++| SVRA     BSS    4           REGISTER SAVE AREA
04114  M01S04079.edit    +++| WNL      SPACE  4,19
04115  M01S04080.edit    +++|**        WNL - WRITE NEW ALIGNED LINE.
04116  M01S04081.edit    +++|*
04117  M01S04082.edit    +++|*         NEW ALIGNED LINE WRITTEN FROM CHARACTER BUFFER,
04118  M01S04083.edit    +++|*         IF NON-BLANK.
04119  M01S04084.edit    +++|*
04120  M01S04085.edit    +++|*         ENTRY  (B5) = CURRENT CHARACTER ADDRESS IN NEW LINE.
04121  M01S04086.edit    +++|*                (B6) = CURRENT CHARACTER ADDRESS IN OLD LINE.
04122  M01S04087.edit    +++|*                (X0) = LWA+1 LAST COMPLETE WORD IN NEW LINE.
04123  M01S04088.edit    +++|*                (X0) = 0, IF NEW LINE WIDTH .LT. WORD SIZE.
04124  M01S04089.edit    +++|*                (X3) = 0, IF ENTIRE NEW LINE TO BE FLUSHED.
04125  M01S04090.edit    +++|*
04126  M01S04091.edit    +++|*         EXIT   (B4) = MAXIMUM LWA+1 NEW LINE.
04127  M01S04092.edit    +++|*                (B5) = FWA NEW LINE BUFFER.
04128  M01S04093.edit    +++|*                (B6) = CURRENT CHARACTER ADDRESS IN OLD LINE.
04129  M01S04094.edit    +++|*
04130  M01S04095.edit    +++|*         USES   A - 0, 1, 3, 7.
04131  M01S04096.edit    +++|*                X - 0, 1, 3, 4, 7.
04132  M01S04097.edit    +++|*                B - 2, 4, 5, 6.
04133  M01S04098.edit    +++|*
04134  M01S04099.edit    +++|*         CALLS  WTS=.
04135  M01S04100.edit    +++|
04136  M01S04101.edit    +++|
04137  M01S04102.edit    +++| WNL      SUBR               ENTRY/EXIT
04138  M01S04103.edit    +++|          SA1    STRA
04139  M01S04104.edit    +++|          SX7    1R
04140  M01S04105.edit    +++|          IX4    X1-X7
04141  M01S04106.edit    +++|          SB2    A1
04142  M01S04107.edit    +++|          NZ     X4,WNL1     IF FIRST CHARACTER NOT BLANK
04143  M01S04108.edit    +++|          SB2    B2+5
04144  M01S04109.edit    +++| WNL1     LE     B5,B2,WNLX  IF NEW LINE ALREADY FLUSHED
04145  M01S04110.edit    +++|          ZR     X3,WNL2     IF ENTIRE LINE TO BE FLUSHED
04146  M01S04111.edit    +++|          SA1    B6          GET NEXT CHARACTER IN OLD LINE
04147  M01S04112.edit    +++|          IX1    X1-X7
04148  M01S04113.edit    +++|          ZR     X1,WNL2     IF NEXT CHARACTER BLANK
04149  M01S04114.edit    +++|          NZ     X0,WNL3     IF AT LEAST ONE COMPLETE WORD IN NEW LINE
04150  M01S04115.edit    +++| WNL2     SX0    B5+
04151  M01S04116.edit    +++|          SA0    B6+
04152  M01S04117.edit    +++| WNL3     SA1    X0-1
04153  M01S04118.edit    +++|          NZ     X1,WNL4     IF LAST CHARACTER NOT COLON
04154  M01S04119.edit    +++|          SA7    X0+
04155  M01S04120.edit    +++|          SX0    X0+1
04156  M01S04121.edit    +++| WNL4     WRITES A5,STRA,X0-STRA
04157  M01S04122.edit    +++|          SB5    STRA
04158  M01S04123.edit    +++|          SA3    WDTH
04159  M01S04124.edit    +++|          SB4    X3+B5
04160  M01S04125.edit    +++|          SB6    A0
04161  M01S04126.edit    +++|          EQ     WNLX
04162  M01S04127.edit    +++| END      TITLE  END COMMAND PROCESSOR.
04163  M01S04128.edit    +++|***       END - PROCESS *END* COMMAND.
04164  M01S04129.edit    +++|
04165  M01S04130.edit    +++|
04166  M01S04131.edit    +++| END      BSS    0
04167  M01S04132.edit    +++|          SA1    EOFTF
04168  M01S04133.edit    +++|          SX2    A5+
04169  M01S04134.edit    +++|          ZR     X1,END2     IF POSITIONED AT EOF
04170  M01S04135.edit    +++|          WRITEC X2,LBUF
04171  M01S04136.edit    +++| END1     READW  X5,LBUF,CBUFL
04172  M01S04137.edit    +++|          SB7    B6-LBUF     SET NUMBER WORDS TO WRITE
04173  M01S04138.edit    +++|          BX0    X1
04174  M01S04139.edit    +++|          SX2    A5          WRITE FILE FET ADDRESS
04175  M01S04140.edit    +++|          WRITEW X2,LBUF,B7
04176  M01S04141.edit    +++|          ZR     X0,END1     IF COPY INCOMPLETE
04177  M01S04142.edit    +++|          CEPF   END1,4
04178  M01S04143.edit    +++| END2     WRITER X2,R        FLUSH BUFFER
04179  M01S04144.edit    +++|          SA3    DAFF
04180  M01S04145.edit    +++|          ZR     X3,END7     IF DIRECT ACCESS FILE
04181  M01S04146.edit    +++|          RENAME X2,TFILE    RENAME FINAL COPY
04182  M01S04147.edit    +++| END3     REWIND X2
04183  M01S04148.edit    +++|          SB3    S
04184  M01S04149.edit    +++|          SB4    M           LAST FILE TO BE RETURNED
04185  M01S04150.edit    +++| END4     SX3    A5-B3
04186  M01S04151.edit    +++|          ZR     X3,END5     IF FILE CONTAINING FINAL COPY
04187  M01S04152.edit    +++|          RETURN B3
04188  M01S04153.edit    +++| END5     SB3    B3+FETL
04189  M01S04154.edit    +++|          LE     B3,B4,END4  IF NOT ALL FILES RETURNED
04190  M01S04155.edit    +++| END6     WRITEC O,(=C* END TEXT EDITING.*)
04191  M01S04156.edit    +++|          WRITER X2          END TEXT EDITING
04192  M01S04157.edit    +++|          ENDRUN
04193  M01S04158.edit    +++|
04194  M01S04159.edit    +++| END7     SX4    X2-F
04195  M01S04160.edit    +++|          ZR     X4,END3     IF FINAL COPY PERMANENT
04196  M01S04161.edit    +++|          REWIND F
04197  M01S04162.edit    +++|          SA0    X2
04198  M01S04163.edit    +++|          REWIND A5
04199  M01S04164.edit    +++|          READ   X2          MAKE FINAL COPY PERMANENT
04200  M01S04165.edit    +++| END8     READW  A5,LBUF,CBUFL
04201  M01S04166.edit    +++|          SB7    B6-LBUF
04202  M01S04167.edit    +++|          BX0    X1
04203  M01S04168.edit    +++|          SX2    A0
04204  M01S04169.edit    +++|          WRITEW X2,LBUF,B7
04205  M01S04170.edit    +++|          ZR     X0,END8     IF COPY NOT COMPLETE
04206  M01S04171.edit    +++|          WRITER X2,R
04207  M01S04172.edit    +++|          SA5    X2
04208  M01S04173.edit    +++|          EQ     END3        RETURN SCRATCH FILES
04209  M01S04174.edit    +++|          TITLE  COMMON DECKS.
04210  M01S04175.edit    +++|*CALL     COMCUSB
04211  M01S04176.edit    +++|*CALL COMCSYS
04212  M01S04177.edit    +++|*CALL COMCCIO
04213  M01S04178.edit    +++|*CALL     COMCRDS
04214  M01S04179.edit    +++|*CALL COMCLFM
04215  M01S04180.edit    +++|*CALL COMCRDW
04216  M01S04181.edit    +++|*CALL COMCRDC
04217  M01S04182.edit    +++|*CALL     COMCSFN
04218  M01S04183.edit    +++|*CALL COMCWTW
04219  M01S04184.edit    +++|*CALL COMCWTS
04220  M01S04185.edit    +++|*CALL COMCWTC
04221  M01S04186.edit    +++|*CALL COMCCDD
04222  M01S04187.edit    +++|*CALL COMCPFM
04223  M01S04188.edit    +++| IDENT    SPACE  4
04224  M01S04189.edit    +++|          IDENT              FORCE LITERALS
04225  M01S04190.edit    +++| PRS      TITLE  PRESET.
04226  M01S04191.edit    +++| EDIT     BSS    0
04227  M01S04192.edit    +++| PRS      SB1    1

Seq #  *Modification Id* Act 
----------------------------+
04228  M02S04193.v23l617 ---| PRS1     SB2    CCDR        UNPACK CONTROL STATEMENT
04229  M01S00035.v23l617 +++| PRS1     SB2    CCDR        UNPACK COMMAND
04230  M01S04194.edit    +++|          SB6    CCBL
04231  M01S04195.edit    +++|          RJ     USB
04232  M01S04196.edit    +++|          SX2    1R9+1       SET DELIMITER CHECK
04233  M01S04197.edit    +++| PRS2     SA1    B6          ADVANCE CHARACTER
04234  M01S04198.edit    +++|          SB6    B6+B1
04235  M01S04199.edit    +++|          IX3    X1-X2       CHECK FOR END OF PROGRAM NAME\
04236  M01S04200.edit    +++|          ZR     X1,ERR      IF TERMINATION
04237  M01S04201.edit    +++|          NG     X3,PRS2     IF NOT END OF PROGRAM NAME
04238  M01S04202.edit    +++|          SB3    X1-1R.
04239  M01S04203.edit    +++|          SB4    X1-1R)

Seq #  *Modification Id* Act 
----------------------------+
04240  M02S04204.edit1   ---|
04241  M01S00001.edit1   +++|          SX1    X1-1R
04242  M01S04205.edit    +++|          ZR     B3,PRS3     IF NO ARGUMENTS
04243  M01S04206.edit    +++|          ZR     B4,PRS3     IF NO ARGUMENTS
04244  M01S00002.edit1   +++|          ZR     X1,PRS2     IF SPACE (IGNORE)
04245  M01S04207.edit    +++|          SB3    TARG        SET ARGUMENT TABLE ADDRESS
04246  M01S04208.edit    +++|          SB2    TARGL       SET ARGUMENT TABLE LENGTH
04247  M01S04209.edit    +++|          SB4    PRSD        SET STRING BUFFER ADDRESS
04248  M01S04210.edit    +++|          RJ     CPA         CONVERT POSITIONAL ARGUMENTS
04249  M01S04211.edit    +++|          NG     B5,ERR      IF ERROR IN CONVERSION
04250  M01S04212.edit    +++|          PL     X1,PRS3     IF NO ARGUMENTS PROCESSED
04251  M01S04213.edit    +++|          SX6    B5          SET UP PARAMETER CRACKING
04252  M01S04214.edit    +++|          SB6    PRSD
04253  M01S04215.edit    +++|          SA6    USBC
04254  M01S04216.edit    +++|          RJ     ARM         CRACK PARAMETERS
04255  M01S04217.edit    +++|          NZ     X1,ERR      IF ERROR IN PARAMETERS
04256  M01S04218.edit    +++|          MX0    42          CHECK FOR RESERVED FILE NAMES
04257  M01S04219.edit    +++|          SA3    TFILE
04258  M01S04220.edit    +++|          BX7    X3
04259  M01S04221.edit    +++|          SA7    F
04260  M01S04222.edit    +++|          BX4    X3*X0
04261  M01S04223.edit    +++|          SA3    A7
04262  M01S04224.edit    +++|          RJ     CRN
04263  M01S04225.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04264  M01S04226.edit    +++|          SA3    I
04265  M01S04227.edit    +++|          BX4    X3*X0
04266  M01S04228.edit    +++|          RJ     CRN
04267  M01S04229.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04268  M01S04230.edit    +++|          SA3    O
04269  M01S04231.edit    +++|          BX4    X3*X0
04270  M01S04232.edit    +++|          RJ     CRN
04271  M01S04233.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04272  M01S04234.edit    +++| PRS3     SX2    I           SET TERMINAL FILE
04273  M01S04235.edit    +++|          RJ     STF
04274  M01S04236.edit    +++|          SA6    EOFIF       SET FILE STATUS
04275  M01S04237.edit    +++|          SA6    JOTY
04276  M01S04238.edit    +++|          BX5    X6
04277  M01S04239.edit    +++|          ZR     X6,PRS4     IF INTERACTIVE JOB
04278  M01S04240.edit    +++|          READ   X2          INITIAL DIRECTIVE READ
04279  M01S04241.edit    +++|          EQ     PRS5        EVICT SCRATCH FILES
04280  M01S04242.edit    +++|
04281  M01S04243.edit    +++| PRS4     DISTC  ON,TINT     SET TERMINAL CONTROLS
04282  M01S04244.edit    +++| PRS5     EVICT  S
04283  M01S04245.edit    +++|          EVICT  SC
04284  M01S04246.edit    +++|          EVICT  B
04285  M01S04247.edit    +++|          EVICT  M
04286  M01S04248.edit    +++|          EVICT  T
04287  M01S04249.edit    +++|          SA3    O           SET OUTPUT FET POINTER
04288  M01S04250.edit    +++|          MX0    42
04289  M01S04251.edit    +++|          SX2    A3
04290  M01S04252.edit    +++|          BX3    X0*X3
04291  M01S04253.edit    +++|          BX6    X3+X2
04292  M01S04254.edit    +++|          SX7    1R          SET NON-ZERO WORD PAD BEFORE LINE BUFFERS
04293  M01S04255.edit    +++|          SA6    ARGR
04294  M01S04256.edit    +++|          SA7    LBUF-1
04295  M01S04257.edit    +++|          SA7    TBUF-1
04296  M01S04258.edit    +++|          SA4    ASC         CHECK EDIT MODE
04297  M01S04259.edit    +++|          ZR     X4,PRS8     IF NO MODE PARAMETER PRESENT
04298  M01S04260.edit    +++|          SA1    MARG-1      CHECK MODE PARAMETER
04299  M01S04261.edit    +++|          MX0    42
04300  M01S04262.edit    +++|          BX4    X4*X0
04301  M01S04263.edit    +++| PRS6     SA1    A1+B1       CHECK NEXT TABLE ITEM
04302  M01S04264.edit    +++|          SB2    X1
04303  M01S04265.edit    +++|          ZR     X1,ERR      IF ITEM NOT IN TABLE
04304  M01S04266.edit    +++|          BX6    X1*X0
04305  M01S04267.edit    +++|          IX7    X6-X4       COMPARE TABLE ITEM TO MODE
04306  M01S04268.edit    +++|          NZ     X7,PRS6     IF NO MATCH
04307  M01S04269.edit    +++|          BX0    X5          SET INTERACTIVE I/O
04308  M01S04270.edit    +++|          EQ     B2,B0,PRS7  IF *NORMAL* OPTION
04309  M01S04271.edit    +++|
04310  M01S04272.edit    +++|*         PROCESS *ASCII* OPTION.
04311  M01S04273.edit    +++|
04312  M01S04274.edit    +++|          SX6    -76B        SET ASCII INDICATOR TO ASCII
04313  M01S04275.edit    +++|          SA6    ASC
04314  M01S04276.edit    +++|          SA1    SLSB        PRESET ASCII CODE
04315  M01S04277.edit    +++|          SA2    ANCB
04316  M01S04278.edit    +++|          BX6    X1
04317  M01S04279.edit    +++|          LX7    X2
04318  M01S04280.edit    +++|          SA6    SLSA
04319  M01S04281.edit    +++|          SA7    ANCA
04320  M01S04282.edit    +++|          NZ     X0,PRS8     IF NOT INTERACTIVE I/O
04321  M01S04283.edit    +++|          CSET   ASCII
04322  M01S04284.edit    +++|          EQ     PRS8
04323  M01S04285.edit    +++|
04324  M01S04286.edit    +++|*         PROCESS *NORMAL* OPTION.
04325  M01S04287.edit    +++|
04326  M01S04288.edit    +++| PRS7     SX6    B0+         SET ASCII INDICATOR TO NORMAL
04327  M01S04289.edit    +++|          SA6    ASC
04328  M01S04290.edit    +++|          NZ     X0,PRS8     IF NOT INTERACTIVE I/O
04329  M01S04291.edit    +++|          CSET   NORMAL
04330  M01S04292.edit    +++| PRS8     SX3    B1          CHECK EDIT FILE
04331  M01S04293.edit    +++|          SA4    TFILE
04332  M01S04294.edit    +++|          IX4    X4-X3
04333  M01S04295.edit    +++|          NZ     X4,PRS11    IF EDIT FILE SPECIFIED
04334  M01S04296.edit    +++|
04335  M01S04297.edit    +++|          NZ     X5,ERR      IF NOT INTERACTIVE JOB
04336  M01S04298.edit    +++|          WRITEC O,PRSA      * ENTER TEXT FILE NAME.*
04337  M01S04299.edit    +++|          READ   I           GET EDIT FILE NAME
04338  M01S04300.edit    +++|          SA0    LBUF
04339  M01S04301.edit    +++|          READS  X2,A0,-30
04340  M01S04302.edit    +++|          NZ     X1,ERR      IF EOF (CR) ON INPUT
04341  M01S04303.edit    +++|          SB2    A0-B1
04342  M01S04304.edit    +++|          BX6    X6-X6       CLEAR ACCUMULATOR
04343  M01S04305.edit    +++|          SB5    60
04344  M01S04306.edit    +++|          SB3    7
04345  M01S04307.edit    +++|
04346  M01S04308.edit    +++|*         ASSEMBLE FILE NAME.
04347  M01S04309.edit    +++|
04348  M01S04310.edit    +++| PRS9     RJ     ANC         ASSEMBLE NEXT CHARACTER
04349  M01S04311.edit    +++|          EQ     B2,B6,PRS10 IF END OF INPUT
04350  M01S04312.edit    +++|          SX1    X2-1R
04351  M01S04313.edit    +++|          ZR     X1,PRS9     IF BLANK CHARACTER
04352  M01S04314.edit    +++|          ZR     X4,ERR      IF NOT ALPHANUMERIC CHARACTER
04353  M01S04315.edit    +++|          SX1    X4-1R+
04354  M01S04316.edit    +++|          PL     X1,ERR      IF NOT ALPHANUMERIC CHARACTER
04355  M01S04317.edit    +++|          SX1    X3-74B
04356  M01S04318.edit    +++|          ZR     X1,ERR      IF 74B ESCAPE CODE
04357  M01S04319.edit    +++|          SB3    B3-1
04358  M01S04320.edit    +++|          NG     B3,ERR      IF FILE NAME TOO LONG
04359  M01S04321.edit    +++|          SB5    B5-6
04360  M01S04322.edit    +++|          LX1    B5,X4
04361  M01S04323.edit    +++|          BX6    X6+X1       ADD CHARACTER TO ACCUMULATOR
04362  M01S04324.edit    +++|          EQ     PRS9
04363  M01S04325.edit    +++|
04364  M01S04326.edit    +++| PRS10    BX4    X6          CHECK FILE NAME
04365  M01S04327.edit    +++|          ZR     X4,PRS9     IF NO FILE NAME
04366  M01S04328.edit    +++|          SA3    B0
04367  M01S04329.edit    +++|          RJ     CRN         CHECK FOR RESERVED FILE NAME
04368  M01S04330.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04369  M01S04331.edit    +++|          SX5    B1
04370  M01S04332.edit    +++|          BX7    X4+X5
04371  M01S04333.edit    +++|          SA7    TFILE
04372  M01S04334.edit    +++|          SA7    F           SET FILE NAME IN FET
04373  M01S04335.edit    +++| PRS11    SA1    F           SET FILE NAME IN *FILINFO* BLOCK
04374  M01S04336.edit    +++|          MX0    42
04375  M01S04337.edit    +++|          BX1    X0*X1
04376  M01S04338.edit    +++|          SA2    FINB
04377  M01S04339.edit    +++|          BX6    X1+X2
04378  M01S04340.edit    +++|          MX0    -6
04379  M01S04341.edit    +++|          SA6    A2
04380  M01S04342.edit    +++|          FILINFO  A2        GET FILE INFORMATION
04381  M01S04343.edit    +++|          SA1    FINB+1      CHECK FILE TYPE
04382  M01S04344.edit    +++|          BX6    -X0*X1
04383  M01S04345.edit    +++|          LX1    59-7        CHECK FILE MODE
04384  M01S04346.edit    +++|          SX6    X6-4        INITIALIZE DIRECT ACCESS FILE FLAG
04385  M01S04347.edit    +++|          SA6    DAFF
04386  M01S04348.edit    +++|          ZR     X1,PRS11.2  IF FILE NOT FOUND
04387  M01S04349.edit    +++|          SA3    JOTY        CHECK FOR INTERACTIVE JOB
04388  M01S04350.edit    +++|          NZ     X3,PRS11.2  IF NOT TERMINAL INPUT
04389  M01S04351.edit    +++|          NG     X1,PRS11.2  IF EDIT FILE IN WRITE MODE
04390  M01S04352.edit    +++|          WRITEC O,PRSE      *EDIT FILE NOT IN WRITE MODE.*
04391  M01S04353.edit    +++|          WRITEC O,PRSF      *DO YOU WISH TO CONTINUE*
04392  M01S04354.edit    +++| PRS11.1  SB6    LBUF        FWA WORKING BUFFER
04393  M01S04355.edit    +++|          RJ     PUR         PROCESS USER RESPONSE
04394  M01S04356.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
04395  M01S04357.edit    +++|          NZ     X3,END6     IF TERMINAL INTERRUPT
04396  M01S04358.edit    +++|          ZR     X4,END6     IF *NO* RESPONSE
04397  M01S04359.edit    +++|          PL     X4,PRS11.2  IF *YES* RESPONSE
04398  M01S04360.edit    +++|          WRITEC O,PCCD      REQUEST *YES* OR *NO* RESPONSE
04399  M01S04361.edit    +++|          EQ     PRS11.1     PROCESS USER RESPONSE
04400  M01S04362.edit    +++|
04401  M01S04363.edit    +++| PRS11.2  REWIND F
04402  M01S04364.edit    +++|          READ   X2
04403  M01S04365.edit    +++|          READC  X2,LBUF,LBUFL
04404  M01S04366.edit    +++|          SX7    B1
04405  M01S04367.edit    +++|          SX6    B6
04406  M01S04368.edit    +++|          NZ     X1,PRS12    IF EDIT FILE EMPTY
04407  M01S04369.edit    +++|          SA7    EOFTF
04408  M01S04370.edit    +++|          SA6    LBL
04409  M01S04371.edit    +++| PRS12    SA5    SC
04410  M01S04372.edit    +++|          SA7    F+5
04411  M01S04373.edit    +++|          SX5    F
04412  M01S04374.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPT
04413  M01S04375.edit    +++|          NZ     X3,END6     IF INTERRUPTED
04414  M01S04376.edit    +++|          WRITEC O,PRSB      * BEGIN TEXT EDITING.*
04415  M01S04377.edit    +++|          JP     MAIN        BEGIN TEXT EDITING
04416  M01S04378.edit    +++| ERR      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
04417  M02S04379.v23l617 ---|**        ERR - ISSUE CONTROL CARD ERROR MESSAGE.
04418  M01S00036.v23l617 +++|**        ERR - ISSUE COMMAND ERROR MESSAGE.
04419  M01S04380.edit    +++|*
04420  M01S04381.edit    +++|*         ENTRY  (B6) = ERROR MESSAGE ADDRESS, IF ENTRY AT *ERR1*.
04421  M01S04382.edit    +++|
04422  M01S04383.edit    +++|

Seq #  *Modification Id* Act 
----------------------------+
04423  M02S04384.v23l617 ---| ERR      SB6    PRSC        * CONTROL CARD ERROR.*
04424  M01S00037.v23l617 +++| ERR      SB6    PRSC        * COMMAND ERROR.*
04425  M01S04385.edit    +++| ERR1     MESSAGE  B6,3      ISSUE ERROR MESSAGE
04426  M01S04386.edit    +++|          ABORT
04427  M01S04387.edit    +++| TARG     SPACE  4
04428  M01S04388.edit    +++|**        TARG - TABLE OF ARGUMENTS.
04429  M01S04389.edit    +++|
04430  M01S04390.edit    +++|
04431  M01S04391.edit    +++| TARG     BSS    0
04432  M01S04392.edit    +++| FN       ARG    ST,TFILE,400B,0
04433  M01S04393.edit    +++| M        ARG    ST,ASC,0,1
04434  M01S04394.edit    +++| I        ARG    ST,I,,0
04435  M01S04395.edit    +++| L        ARG    ST,O,,0
04436  M01S04396.edit    +++|          ARG
04437  M01S04397.edit    +++| TARGL    EQU    *-TARG-1    ARGUMENT TABLE LENGTH
04438  M01S04398.edit    +++|
04439  M01S04399.edit    +++|
04440  M01S04400.edit    +++| ST       CON    1           DEFAULT FET STATUS
04441  M01S04401.edit    +++| MARG     SPACE  4
04442  M01S04402.edit    +++|**        MARG - TABLE OF MODE ARGUMENTS.
04443  M01S04403.edit    +++|
04444  M01S04404.edit    +++|
04445  M01S04405.edit    +++| MARG     BSS    0
04446  M01S04406.edit    +++|          VFD    42/0LASCII,18/1
04447  M01S04407.edit    +++|          VFD    42/0LAS,18/1
04448  M01S04408.edit    +++|          VFD    42/0LNORMAL,18/0
04449  M01S04409.edit    +++|          VFD    42/0LN,18/0
04450  M01S04410.edit    +++|          CON    0
04451  M01S04411.edit    +++|          SPACE  4,10
04452  M01S04412.edit    +++| FINB     BSS    0           *FILINFO* PARAMETER BLOCK
04453  M01S04413.edit    +++|          VFD    42/0,6/5,12/1
04454  M01S04414.edit    +++|          BSSZ   4
04455  M01S04415.edit    +++|          SPACE  4
04456  M01S04416.edit    +++|**        COMMON DECKS.
04457  M01S04417.edit    +++|
04458  M01S04418.edit    +++|
04459  M01S04419.edit    +++|*CALL     COMCARM
04460  M01S04420.edit    +++|*CALL     COMCCPA
04461  M01S04421.edit    +++|*CALL     COMCPOP
04462  M01S04422.edit    +++|*CALL     COMCSTF
04463  M01S04423.edit    +++| PRSA     SPACE  4
04464  M01S04424.edit    +++|**        PRESET MESSAGES.
04465  M01S04425.edit    +++|
04466  M01S04426.edit    +++|
04467  M01S04427.edit    +++| PRSA     DATA   C* ENTER TEXT FILE NAME."CB"*
04468  M01S04428.edit    +++| PRSB     DATA   C* BEGIN TEXT EDITING.*

Seq #  *Modification Id* Act 
----------------------------+
04469  M02S04429.v23l617 ---| PRSC     DATA   C* CONTROL CARD ERROR.*
04470  M01S00038.v23l617 +++| PRSC     DATA   C* COMMAND ERROR.*
04471  M01S04430.edit    +++| PRSE     DATA   C* EDIT FILE NOT IN WRITE MODE.*
04472  M01S04431.edit    +++| PRSF     DATA   C* DO YOU WISH TO CONTINUE"CB"*
04473  M01S04432.edit    +++|

Seq #  *Modification Id* Act 
----------------------------+
04474  M02S04433.v23l617 ---|*         CONTROL CARD STRING BUFFER.
04475  M01S00039.v23l617 +++|*         COMMAND STRING BUFFER.
04476  M01S04434.edit    +++|
04477  M01S04435.edit    +++| PRSD     EQU    *
04478  M01S04436.edit    +++|*         BSS    200
04479  M01S04437.edit    +++| BUFFERS  TITLE  BUFFERS.
04480  M01S04438.edit    +++| CMDB     EQU    PRS
04481  M01S04439.edit    +++| STRB     EQU    CMDB+CMDBL
04482  M01S04440.edit    +++| STRA     EQU    STRB+1
04483  M01S04441.edit    +++|          IFLT   CMDBL+STRBL+2,FBUFL
04484  M01S04442.edit    +++| LBUF     EQU    CMDB+FBUFL
04485  M01S04443.edit    +++|          ELSE   1
04486  M01S04444.edit    +++| LBUF     EQU    STRA+STRBL+1
04487  M01S04445.edit    +++| TBUF     EQU    LBUF+LBUFL+1
04488  M01S04446.edit    +++|          IFLT   LBUFL*3,CBUFL
04489  M01S04447.edit    +++| OBUF     EQU    LBUF+CBUFL
04490  M01S04448.edit    +++|          ELSE   1
04491  M01S04449.edit    +++| OBUF     EQU    TBUF+2*LBUFL
04492  M01S04450.edit    +++| IBUF     EQU    OBUF+OBUFL
04493  M01S04451.edit    +++| MBUF     EQU    IBUF+IBUFL
04494  M01S04452.edit    +++| BBUF     EQU    MBUF+MBUFL
04495  M01S04453.edit    +++| FBUF     EQU    BBUF+BBUFL
04496  M01S04454.edit    +++| SBUF     EQU    FBUF+FBUFL
04497  M01S04455.edit    +++| SCBUF    EQU    SBUF+FBUFL
04498  M01S04456.edit    +++| USBB     EQU    SCBUF+FBUFL
04499  M01S04457.edit    +++| RFL=     EQU    USBB+CCBL+4
04500  M01S04458.edit    +++| ALFL     EQU    USBB+USBBL+4
04501  M01S04459.edit    +++|          END