Deck EDIT Part 002

3 Modifications

Listing Sections

Deck EDIT Start
Deck EDIT Part 1 (Line 1914)
Deck EDIT Part 2 (Line 3971)

Source

Seq #  *Modification Id* Act 
----------------------------+
03971  M00S03936.edit    +++|
03972  M00S03937.edit    +++|
03973  M00S03938.edit    +++| SLT3     SX7    B2+B1       SET END OF LINE ADDRESS
03974  M00S03939.edit    +++|          SA6    B2
03975  M00S03940.edit    +++|          SA7    LBL
03976  M00S03941.edit    +++|
03977  M00S03942.edit    +++| SLT      SUBR               ENTRY/EXIT
03978  M00S03943.edit    +++|          NG     X1,SLTX     IF END OF LINE SET
03979  M00S03944.edit    +++|          RJ     BLK         CHECK FOR COLON AT END OF LINE
03980  M00S03945.edit    +++|          SA4    X1
03981  M00S03946.edit    +++|          AX1    24
03982  M00S03947.edit    +++|          SB2    A4          SET LWA
03983  M00S03948.edit    +++|          SA3    X1+TCHM
03984  M00S03949.edit    +++|          LX1    59-0
03985  M00S03950.edit    +++|          BX6    X3*X4
03986  M00S03951.edit    +++|          PL     X1,SLT3     IF EOL ON BYTE BOUNDARY
03987  M00S03952.edit    +++|          CX7    X3
03988  M00S03953.edit    +++|          SX1    1R *100B
03989  M00S03954.edit    +++|          SB3    X7-54
03990  M00S03955.edit    +++|          AX4    B3,X1       POSITION BLANK CHARACTER
03991  M00S03956.edit    +++|          BX7    X6-X4
03992  M00S03957.edit    +++|          SA3    A3-B1       CHECK FOR ODD CHARACTER BLANK
03993  M00S03958.edit    +++|          BX1    -X3*X7
03994  M00S03959.edit    +++|          NZ     X1,SLT2     IF NOT BLANK
03995  M00S03960.edit    +++|          NZ     X3,SLT1     IF PRECEDING CHARACTER IN SAME WORD
03996  M00S03961.edit    +++|          SA1    B2-B1
03997  M00S03962.edit    +++|          BX7    X1
03998  M00S03963.edit    +++|          SA3    TCHM+10
03999  M00S03964.edit    +++| SLT1     SA3    A3-B1       CHECK PRECEDING CHARACTER FOR *00*
04000  M00S03965.edit    +++|          BX1    -X3*X7
04001  M00S03966.edit    +++|          ZR     X1,SLT2     IF *00*
04002  M00S03967.edit    +++|          LX4    6
04003  M00S03968.edit    +++|          SB3    B1
04004  M00S03969.edit    +++|          SB6    B6-2
04005  M00S03970.edit    +++| SLT2     LX4    54          POSITION BLANK CHARACTER
04006  M00S03971.edit    +++|          BX6    X6-X4
04007  M00S03972.edit    +++|          SB6    B6+1
04008  M00S03973.edit    +++|          NZ     B3,SLT3     IF NOT ON WORD BOUNDARY
04009  M00S03974.edit    +++|          SB2    B2+1
04010  M00S03975.edit    +++|          SA6    A4
04011  M00S03976.edit    +++|          BX6    X6-X6       CLEAR END OF LINE
04012  M00S03977.edit    +++|          EQ     SLT3
04013  M00S03978.edit    +++| SML      SPACE  4,11
04014  M00S03979.edit    +++|**        SML - SEARCH MODIFIED LINE.
04015  M00S03980.edit    +++|*
04016  M00S03981.edit    +++|*         ENTRY  (X6) = STRING POINTER ADDRESS.
04017  M00S03982.edit    +++|*                (X1) - SEE *SLS*.
04018  M00S03983.edit    +++|*
04019  M00S03984.edit    +++|*         EXIT   (X7) " 0 IF STRING FOUND.
04020  M00S03985.edit    +++|*
04021  M00S03986.edit    +++|*         USES   A - 1, 2.
04022  M00S03987.edit    +++|*                B - NONE.
04023  M00S03988.edit    +++|*                X - 0, 1, 2, 6.
04024  M00S03989.edit    +++|*
04025  M00S03990.edit    +++|*         CALLS  SLS, SLT, SFS.
04026  M00S03991.edit    +++|
04027  M00S03992.edit    +++|
04028  M00S03993.edit    +++| SML1     SA1    SLP         SET LINE TERMINATOR
04029  M00S03994.edit    +++|          RJ     SLT
04030  M00S03995.edit    +++|          BX6    X0          SEARCH FILE FOR STRING
04031  M00S03996.edit    +++|          RJ     SFS
04032  M00S03997.edit    +++|
04033  M00S03998.edit    +++| SML      SUBR               ENTRY/EXIT
04034  M00S03999.edit    +++|          BX0    X6
04035  M00S04000.edit    +++|          SA2    X6          SEARCH LINE FOR STRING
04036  M00S04001.edit    +++|          RJ     SLS
04037  M00S04002.edit    +++|          NZ     B7,SML1     IF NOT IN CURRENT LINE
04038  M00S04003.edit    +++|          EQ     SMLX
04039  M00S04004.edit    +++| SRO      SPACE  4,15
04040  M00S04005.edit    +++|**        SRO - SEARCH READ ONLY.
04041  M00S04006.edit    +++|*
04042  M00S04007.edit    +++|*         ENTRY  (X0) = 0  SEARCH BEFORE READ.
04043  M00S04008.edit    +++|*                     " 0  READ BEFORE SEARCH.
04044  M00S04009.edit    +++|*                (X6) = STRING POINTER ADDRESS.
04045  M00S04010.edit    +++|*
04046  M00S04011.edit    +++|*         EXIT   (X7) " 0  IF STRING FOUND.
04047  M00S04012.edit    +++|*                     = 0  IF EOF.
04048  M00S04013.edit    +++|*                (B2) = NUMBER OF LINES READ.
04049  M00S04014.edit    +++|*                (B4) = NUMBER OF LINES ADVANCED IN CURRENT READ FILE.
04050  M00S04015.edit    +++|*
04051  M00S04016.edit    +++|*         USES   A - 2, 3, 4, 6.
04052  M00S04017.edit    +++|*                B - 2, 6, 7.
04053  M00S04018.edit    +++|*                X - 0, 2, 3, 4, 5, 6, 7.
04054  M00S04019.edit    +++|*
04055  M00S04020.edit    +++|*         CALLS  RDC=, SLS.
04056  M00S04021.edit    +++|
04057  M00S04022.edit    +++|
04058  M00S04023.edit    +++| SRO4     SX6    X0+
04059  M00S04024.edit    +++|          SA6    SROC        SAVE PREVIOUS LINE ADVANCE
04060  M00S04025.edit    +++|          CEPF   SRO2,4
04061  M00S04026.edit    +++|          SX0    0
04062  M00S04027.edit    +++|
04063  M00S04028.edit    +++| SRO      SUBR               ENTRY/EXIT
04064  M00S04029.edit    +++|          ZR     X6,SRO1     IF STRING POINTER SET PREVIOUSLY
04065  M00S04030.edit    +++|          SA6    SROA        SAVE STRING POINTER
04066  M00S04031.edit    +++| SRO1     SB2    X0
04067  M00S04032.edit    +++|          BX0    X0-X0
04068  M00S04033.edit    +++|          SX6    B0+
04069  M00S04034.edit    +++|          SA6    SROC        CLEAR PREVIOUS LINE ADVANCE
04070  M00S04035.edit    +++|          ZR     B2,SRO3     IF SEARCH BEFORE READ
04071  M00S04036.edit    +++| SRO2     SB7    LBUFL       SET LINE LENGTH
04072  M00S04037.edit    +++|          SA3    LBA
04073  M00S04038.edit    +++|          READC  X5,X3,B7
04074  M00S04039.edit    +++|          NZ     X1,SRO4     IF NO DATA TRANSFERED
04075  M00S04040.edit    +++|          SA0    B6
04076  M00S04041.edit    +++|          SX0    X0+B1       ADVANCE LINE COUNT
04077  M00S04042.edit    +++| SRO3     SA2    SROA        GET STRING POINTER
04078  M00S04043.edit    +++|          SA2    X2+
04079  M00S04044.edit    +++|          RJ     SLS         SEARCH LINE FOR STRING
04080  M00S04045.edit    +++|          NZ     B7,SRO2     IF STRING NOT FOUND
04081  M00S04046.edit    +++|          SA2    SROC        GET PREVIOUS LINE ADVANCE
04082  M00S04047.edit    +++|          IX2    X0-X2
04083  M00S04048.edit    +++|          SB4    X2          LINE ADVANCE ON CURRENT READ FILE
04084  M00S04049.edit    +++|          SB2    X0
04085  M00S04050.edit    +++|          BX0    X0-X0
04086  M00S04051.edit    +++|          ZR     B2,SROX     IF FILE NOT ADVANCED
04087  M00S04052.edit    +++|          SX6    A0+
04088  M00S04053.edit    +++|          SA6    LBL
04089  M00S04054.edit    +++|          EQ     SROX        RETURN
04090  M00S04055.edit    +++|
04091  M00S04056.edit    +++|
04092  M00S04057.edit    +++| SROA     CON    0           STRING POINTER
04093  M00S04058.edit    +++|
04094  M00S04059.edit    +++|
04095  M00S04060.edit    +++| SROC     CON    0           PREVIOUS LINE ADVANCE
04096  M00S04061.edit    +++| SVR      SPACE  4
04097  M00S04062.edit    +++|**        SVR - SAVE WORKING REGISTERS.
04098  M00S04063.edit    +++|*
04099  M00S04064.edit    +++|*         EXIT   FOLLOWING REGISTERS SAVED.
04100  M00S04065.edit    +++|*                X - 0, 1, 2, 6.
04101  M00S04066.edit    +++|
04102  M00S04067.edit    +++|
04103  M00S04068.edit    +++| SVR      SUBR               ENTRY/EXIT
04104  M00S04069.edit    +++|          SA6    SVRA        X6
04105  M00S04070.edit    +++|          BX7    X1          X1
04106  M00S04071.edit    +++|          SA7    A6+B1
04107  M00S04072.edit    +++|          BX6    X0          X0
04108  M00S04073.edit    +++|          SA6    A7+B1
04109  M00S04074.edit    +++|          BX7    X2          X2
04110  M00S04075.edit    +++|          SA7    A6+B1
04111  M00S04076.edit    +++|          EQ     SVRX
04112  M00S04077.edit    +++|
04113  M00S04078.edit    +++| SVRA     BSS    4           REGISTER SAVE AREA
04114  M00S04079.edit    +++| WNL      SPACE  4,19
04115  M00S04080.edit    +++|**        WNL - WRITE NEW ALIGNED LINE.
04116  M00S04081.edit    +++|*
04117  M00S04082.edit    +++|*         NEW ALIGNED LINE WRITTEN FROM CHARACTER BUFFER,
04118  M00S04083.edit    +++|*         IF NON-BLANK.
04119  M00S04084.edit    +++|*
04120  M00S04085.edit    +++|*         ENTRY  (B5) = CURRENT CHARACTER ADDRESS IN NEW LINE.
04121  M00S04086.edit    +++|*                (B6) = CURRENT CHARACTER ADDRESS IN OLD LINE.
04122  M00S04087.edit    +++|*                (X0) = LWA+1 LAST COMPLETE WORD IN NEW LINE.
04123  M00S04088.edit    +++|*                (X0) = 0, IF NEW LINE WIDTH .LT. WORD SIZE.
04124  M00S04089.edit    +++|*                (X3) = 0, IF ENTIRE NEW LINE TO BE FLUSHED.
04125  M00S04090.edit    +++|*
04126  M00S04091.edit    +++|*         EXIT   (B4) = MAXIMUM LWA+1 NEW LINE.
04127  M00S04092.edit    +++|*                (B5) = FWA NEW LINE BUFFER.
04128  M00S04093.edit    +++|*                (B6) = CURRENT CHARACTER ADDRESS IN OLD LINE.
04129  M00S04094.edit    +++|*
04130  M00S04095.edit    +++|*         USES   A - 0, 1, 3, 7.
04131  M00S04096.edit    +++|*                X - 0, 1, 3, 4, 7.
04132  M00S04097.edit    +++|*                B - 2, 4, 5, 6.
04133  M00S04098.edit    +++|*
04134  M00S04099.edit    +++|*         CALLS  WTS=.
04135  M00S04100.edit    +++|
04136  M00S04101.edit    +++|
04137  M00S04102.edit    +++| WNL      SUBR               ENTRY/EXIT
04138  M00S04103.edit    +++|          SA1    STRA
04139  M00S04104.edit    +++|          SX7    1R
04140  M00S04105.edit    +++|          IX4    X1-X7
04141  M00S04106.edit    +++|          SB2    A1
04142  M00S04107.edit    +++|          NZ     X4,WNL1     IF FIRST CHARACTER NOT BLANK
04143  M00S04108.edit    +++|          SB2    B2+5
04144  M00S04109.edit    +++| WNL1     LE     B5,B2,WNLX  IF NEW LINE ALREADY FLUSHED
04145  M00S04110.edit    +++|          ZR     X3,WNL2     IF ENTIRE LINE TO BE FLUSHED
04146  M00S04111.edit    +++|          SA1    B6          GET NEXT CHARACTER IN OLD LINE
04147  M00S04112.edit    +++|          IX1    X1-X7
04148  M00S04113.edit    +++|          ZR     X1,WNL2     IF NEXT CHARACTER BLANK
04149  M00S04114.edit    +++|          NZ     X0,WNL3     IF AT LEAST ONE COMPLETE WORD IN NEW LINE
04150  M00S04115.edit    +++| WNL2     SX0    B5+
04151  M00S04116.edit    +++|          SA0    B6+
04152  M00S04117.edit    +++| WNL3     SA1    X0-1
04153  M00S04118.edit    +++|          NZ     X1,WNL4     IF LAST CHARACTER NOT COLON
04154  M00S04119.edit    +++|          SA7    X0+
04155  M00S04120.edit    +++|          SX0    X0+1
04156  M00S04121.edit    +++| WNL4     WRITES A5,STRA,X0-STRA
04157  M00S04122.edit    +++|          SB5    STRA
04158  M00S04123.edit    +++|          SA3    WDTH
04159  M00S04124.edit    +++|          SB4    X3+B5
04160  M00S04125.edit    +++|          SB6    A0
04161  M00S04126.edit    +++|          EQ     WNLX
04162  M00S04127.edit    +++| END      TITLE  END COMMAND PROCESSOR.
04163  M00S04128.edit    +++|***       END - PROCESS *END* COMMAND.
04164  M00S04129.edit    +++|
04165  M00S04130.edit    +++|
04166  M00S04131.edit    +++| END      BSS    0
04167  M00S04132.edit    +++|          SA1    EOFTF
04168  M00S04133.edit    +++|          SX2    A5+
04169  M00S04134.edit    +++|          ZR     X1,END2     IF POSITIONED AT EOF
04170  M00S04135.edit    +++|          WRITEC X2,LBUF
04171  M00S04136.edit    +++| END1     READW  X5,LBUF,CBUFL
04172  M00S04137.edit    +++|          SB7    B6-LBUF     SET NUMBER WORDS TO WRITE
04173  M00S04138.edit    +++|          BX0    X1
04174  M00S04139.edit    +++|          SX2    A5          WRITE FILE FET ADDRESS
04175  M00S04140.edit    +++|          WRITEW X2,LBUF,B7
04176  M00S04141.edit    +++|          ZR     X0,END1     IF COPY INCOMPLETE
04177  M00S04142.edit    +++|          CEPF   END1,4
04178  M00S04143.edit    +++| END2     WRITER X2,R        FLUSH BUFFER
04179  M00S04144.edit    +++|          SA3    DAFF
04180  M00S04145.edit    +++|          ZR     X3,END7     IF DIRECT ACCESS FILE
04181  M00S04146.edit    +++|          RENAME X2,TFILE    RENAME FINAL COPY
04182  M00S04147.edit    +++| END3     REWIND X2
04183  M00S04148.edit    +++|          SB3    S
04184  M00S04149.edit    +++|          SB4    M           LAST FILE TO BE RETURNED
04185  M00S04150.edit    +++| END4     SX3    A5-B3
04186  M00S04151.edit    +++|          ZR     X3,END5     IF FILE CONTAINING FINAL COPY
04187  M00S04152.edit    +++|          RETURN B3
04188  M00S04153.edit    +++| END5     SB3    B3+FETL
04189  M00S04154.edit    +++|          LE     B3,B4,END4  IF NOT ALL FILES RETURNED
04190  M00S04155.edit    +++| END6     WRITEC O,(=C* END TEXT EDITING.*)
04191  M00S04156.edit    +++|          WRITER X2          END TEXT EDITING
04192  M00S04157.edit    +++|          ENDRUN
04193  M00S04158.edit    +++|
04194  M00S04159.edit    +++| END7     SX4    X2-F
04195  M00S04160.edit    +++|          ZR     X4,END3     IF FINAL COPY PERMANENT
04196  M00S04161.edit    +++|          REWIND F
04197  M00S04162.edit    +++|          SA0    X2
04198  M00S04163.edit    +++|          REWIND A5
04199  M00S04164.edit    +++|          READ   X2          MAKE FINAL COPY PERMANENT
04200  M00S04165.edit    +++| END8     READW  A5,LBUF,CBUFL
04201  M00S04166.edit    +++|          SB7    B6-LBUF
04202  M00S04167.edit    +++|          BX0    X1
04203  M00S04168.edit    +++|          SX2    A0
04204  M00S04169.edit    +++|          WRITEW X2,LBUF,B7
04205  M00S04170.edit    +++|          ZR     X0,END8     IF COPY NOT COMPLETE
04206  M00S04171.edit    +++|          WRITER X2,R
04207  M00S04172.edit    +++|          SA5    X2
04208  M00S04173.edit    +++|          EQ     END3        RETURN SCRATCH FILES
04209  M00S04174.edit    +++|          TITLE  COMMON DECKS.
04210  M00S04175.edit    +++|*CALL     COMCUSB
04211  M00S04176.edit    +++|*CALL COMCSYS
04212  M00S04177.edit    +++|*CALL COMCCIO
04213  M00S04178.edit    +++|*CALL     COMCRDS
04214  M00S04179.edit    +++|*CALL COMCLFM
04215  M00S04180.edit    +++|*CALL COMCRDW
04216  M00S04181.edit    +++|*CALL COMCRDC
04217  M00S04182.edit    +++|*CALL     COMCSFN
04218  M00S04183.edit    +++|*CALL COMCWTW
04219  M00S04184.edit    +++|*CALL COMCWTS
04220  M00S04185.edit    +++|*CALL COMCWTC
04221  M00S04186.edit    +++|*CALL COMCCDD
04222  M00S04187.edit    +++|*CALL COMCPFM
04223  M00S04188.edit    +++| IDENT    SPACE  4
04224  M00S04189.edit    +++|          IDENT              FORCE LITERALS
04225  M00S04190.edit    +++| PRS      TITLE  PRESET.
04226  M00S04191.edit    +++| EDIT     BSS    0
04227  M00S04192.edit    +++| PRS      SB1    1

Line S04193 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04228  M01S04193.v23l617 ---| PRS1     SB2    CCDR        UNPACK CONTROL STATEMENT

Line S00035 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04229  M01S00035.v23l617 +++| PRS1     SB2    CCDR        UNPACK COMMAND
04230  M00S04194.edit    +++|          SB6    CCBL
04231  M00S04195.edit    +++|          RJ     USB
04232  M00S04196.edit    +++|          SX2    1R9+1       SET DELIMITER CHECK
04233  M00S04197.edit    +++| PRS2     SA1    B6          ADVANCE CHARACTER
04234  M00S04198.edit    +++|          SB6    B6+B1
04235  M00S04199.edit    +++|          IX3    X1-X2       CHECK FOR END OF PROGRAM NAME\
04236  M00S04200.edit    +++|          ZR     X1,ERR      IF TERMINATION
04237  M00S04201.edit    +++|          NG     X3,PRS2     IF NOT END OF PROGRAM NAME
04238  M00S04202.edit    +++|          SB3    X1-1R.
04239  M00S04203.edit    +++|          SB4    X1-1R)

Line S04204 Modification History
`M01` (Removed by)	`edit1`

Seq #  *Modification Id* Act 
----------------------------+
04240  M01S04204.edit1   ---|

Line S00001 Modification History
`M01` (Added by)	`edit1`

Seq #  *Modification Id* Act 
----------------------------+
04241  M01S00001.edit1   +++|          SX1    X1-1R
04242  M00S04205.edit    +++|          ZR     B3,PRS3     IF NO ARGUMENTS
04243  M00S04206.edit    +++|          ZR     B4,PRS3     IF NO ARGUMENTS

Line S00002 Modification History
`M01` (Added by)	`edit1`

Seq #  *Modification Id* Act 
----------------------------+
04244  M01S00002.edit1   +++|          ZR     X1,PRS2     IF SPACE (IGNORE)
04245  M00S04207.edit    +++|          SB3    TARG        SET ARGUMENT TABLE ADDRESS
04246  M00S04208.edit    +++|          SB2    TARGL       SET ARGUMENT TABLE LENGTH
04247  M00S04209.edit    +++|          SB4    PRSD        SET STRING BUFFER ADDRESS
04248  M00S04210.edit    +++|          RJ     CPA         CONVERT POSITIONAL ARGUMENTS
04249  M00S04211.edit    +++|          NG     B5,ERR      IF ERROR IN CONVERSION
04250  M00S04212.edit    +++|          PL     X1,PRS3     IF NO ARGUMENTS PROCESSED
04251  M00S04213.edit    +++|          SX6    B5          SET UP PARAMETER CRACKING
04252  M00S04214.edit    +++|          SB6    PRSD
04253  M00S04215.edit    +++|          SA6    USBC
04254  M00S04216.edit    +++|          RJ     ARM         CRACK PARAMETERS
04255  M00S04217.edit    +++|          NZ     X1,ERR      IF ERROR IN PARAMETERS
04256  M00S04218.edit    +++|          MX0    42          CHECK FOR RESERVED FILE NAMES
04257  M00S04219.edit    +++|          SA3    TFILE
04258  M00S04220.edit    +++|          BX7    X3
04259  M00S04221.edit    +++|          SA7    F
04260  M00S04222.edit    +++|          BX4    X3*X0
04261  M00S04223.edit    +++|          SA3    A7
04262  M00S04224.edit    +++|          RJ     CRN
04263  M00S04225.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04264  M00S04226.edit    +++|          SA3    I
04265  M00S04227.edit    +++|          BX4    X3*X0
04266  M00S04228.edit    +++|          RJ     CRN
04267  M00S04229.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04268  M00S04230.edit    +++|          SA3    O
04269  M00S04231.edit    +++|          BX4    X3*X0
04270  M00S04232.edit    +++|          RJ     CRN
04271  M00S04233.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04272  M00S04234.edit    +++| PRS3     SX2    I           SET TERMINAL FILE
04273  M00S04235.edit    +++|          RJ     STF
04274  M00S04236.edit    +++|          SA6    EOFIF       SET FILE STATUS
04275  M00S04237.edit    +++|          SA6    JOTY
04276  M00S04238.edit    +++|          BX5    X6
04277  M00S04239.edit    +++|          ZR     X6,PRS4     IF INTERACTIVE JOB
04278  M00S04240.edit    +++|          READ   X2          INITIAL DIRECTIVE READ
04279  M00S04241.edit    +++|          EQ     PRS5        EVICT SCRATCH FILES
04280  M00S04242.edit    +++|
04281  M00S04243.edit    +++| PRS4     DISTC  ON,TINT     SET TERMINAL CONTROLS
04282  M00S04244.edit    +++| PRS5     EVICT  S
04283  M00S04245.edit    +++|          EVICT  SC
04284  M00S04246.edit    +++|          EVICT  B
04285  M00S04247.edit    +++|          EVICT  M
04286  M00S04248.edit    +++|          EVICT  T
04287  M00S04249.edit    +++|          SA3    O           SET OUTPUT FET POINTER
04288  M00S04250.edit    +++|          MX0    42
04289  M00S04251.edit    +++|          SX2    A3
04290  M00S04252.edit    +++|          BX3    X0*X3
04291  M00S04253.edit    +++|          BX6    X3+X2
04292  M00S04254.edit    +++|          SX7    1R          SET NON-ZERO WORD PAD BEFORE LINE BUFFERS
04293  M00S04255.edit    +++|          SA6    ARGR
04294  M00S04256.edit    +++|          SA7    LBUF-1
04295  M00S04257.edit    +++|          SA7    TBUF-1
04296  M00S04258.edit    +++|          SA4    ASC         CHECK EDIT MODE
04297  M00S04259.edit    +++|          ZR     X4,PRS8     IF NO MODE PARAMETER PRESENT
04298  M00S04260.edit    +++|          SA1    MARG-1      CHECK MODE PARAMETER
04299  M00S04261.edit    +++|          MX0    42
04300  M00S04262.edit    +++|          BX4    X4*X0
04301  M00S04263.edit    +++| PRS6     SA1    A1+B1       CHECK NEXT TABLE ITEM
04302  M00S04264.edit    +++|          SB2    X1
04303  M00S04265.edit    +++|          ZR     X1,ERR      IF ITEM NOT IN TABLE
04304  M00S04266.edit    +++|          BX6    X1*X0
04305  M00S04267.edit    +++|          IX7    X6-X4       COMPARE TABLE ITEM TO MODE
04306  M00S04268.edit    +++|          NZ     X7,PRS6     IF NO MATCH
04307  M00S04269.edit    +++|          BX0    X5          SET INTERACTIVE I/O
04308  M00S04270.edit    +++|          EQ     B2,B0,PRS7  IF *NORMAL* OPTION
04309  M00S04271.edit    +++|
04310  M00S04272.edit    +++|*         PROCESS *ASCII* OPTION.
04311  M00S04273.edit    +++|
04312  M00S04274.edit    +++|          SX6    -76B        SET ASCII INDICATOR TO ASCII
04313  M00S04275.edit    +++|          SA6    ASC
04314  M00S04276.edit    +++|          SA1    SLSB        PRESET ASCII CODE
04315  M00S04277.edit    +++|          SA2    ANCB
04316  M00S04278.edit    +++|          BX6    X1
04317  M00S04279.edit    +++|          LX7    X2
04318  M00S04280.edit    +++|          SA6    SLSA
04319  M00S04281.edit    +++|          SA7    ANCA
04320  M00S04282.edit    +++|          NZ     X0,PRS8     IF NOT INTERACTIVE I/O
04321  M00S04283.edit    +++|          CSET   ASCII
04322  M00S04284.edit    +++|          EQ     PRS8
04323  M00S04285.edit    +++|
04324  M00S04286.edit    +++|*         PROCESS *NORMAL* OPTION.
04325  M00S04287.edit    +++|
04326  M00S04288.edit    +++| PRS7     SX6    B0+         SET ASCII INDICATOR TO NORMAL
04327  M00S04289.edit    +++|          SA6    ASC
04328  M00S04290.edit    +++|          NZ     X0,PRS8     IF NOT INTERACTIVE I/O
04329  M00S04291.edit    +++|          CSET   NORMAL
04330  M00S04292.edit    +++| PRS8     SX3    B1          CHECK EDIT FILE
04331  M00S04293.edit    +++|          SA4    TFILE
04332  M00S04294.edit    +++|          IX4    X4-X3
04333  M00S04295.edit    +++|          NZ     X4,PRS11    IF EDIT FILE SPECIFIED
04334  M00S04296.edit    +++|
04335  M00S04297.edit    +++|          NZ     X5,ERR      IF NOT INTERACTIVE JOB
04336  M00S04298.edit    +++|          WRITEC O,PRSA      * ENTER TEXT FILE NAME.*
04337  M00S04299.edit    +++|          READ   I           GET EDIT FILE NAME
04338  M00S04300.edit    +++|          SA0    LBUF
04339  M00S04301.edit    +++|          READS  X2,A0,-30
04340  M00S04302.edit    +++|          NZ     X1,ERR      IF EOF (CR) ON INPUT
04341  M00S04303.edit    +++|          SB2    A0-B1
04342  M00S04304.edit    +++|          BX6    X6-X6       CLEAR ACCUMULATOR
04343  M00S04305.edit    +++|          SB5    60
04344  M00S04306.edit    +++|          SB3    7
04345  M00S04307.edit    +++|
04346  M00S04308.edit    +++|*         ASSEMBLE FILE NAME.
04347  M00S04309.edit    +++|
04348  M00S04310.edit    +++| PRS9     RJ     ANC         ASSEMBLE NEXT CHARACTER
04349  M00S04311.edit    +++|          EQ     B2,B6,PRS10 IF END OF INPUT
04350  M00S04312.edit    +++|          SX1    X2-1R
04351  M00S04313.edit    +++|          ZR     X1,PRS9     IF BLANK CHARACTER
04352  M00S04314.edit    +++|          ZR     X4,ERR      IF NOT ALPHANUMERIC CHARACTER
04353  M00S04315.edit    +++|          SX1    X4-1R+
04354  M00S04316.edit    +++|          PL     X1,ERR      IF NOT ALPHANUMERIC CHARACTER
04355  M00S04317.edit    +++|          SX1    X3-74B
04356  M00S04318.edit    +++|          ZR     X1,ERR      IF 74B ESCAPE CODE
04357  M00S04319.edit    +++|          SB3    B3-1
04358  M00S04320.edit    +++|          NG     B3,ERR      IF FILE NAME TOO LONG
04359  M00S04321.edit    +++|          SB5    B5-6
04360  M00S04322.edit    +++|          LX1    B5,X4
04361  M00S04323.edit    +++|          BX6    X6+X1       ADD CHARACTER TO ACCUMULATOR
04362  M00S04324.edit    +++|          EQ     PRS9
04363  M00S04325.edit    +++|
04364  M00S04326.edit    +++| PRS10    BX4    X6          CHECK FILE NAME
04365  M00S04327.edit    +++|          ZR     X4,PRS9     IF NO FILE NAME
04366  M00S04328.edit    +++|          SA3    B0
04367  M00S04329.edit    +++|          RJ     CRN         CHECK FOR RESERVED FILE NAME
04368  M00S04330.edit    +++|          ZR     X7,ERR1     IF FILE NAME RESERVED
04369  M00S04331.edit    +++|          SX5    B1
04370  M00S04332.edit    +++|          BX7    X4+X5
04371  M00S04333.edit    +++|          SA7    TFILE
04372  M00S04334.edit    +++|          SA7    F           SET FILE NAME IN FET
04373  M00S04335.edit    +++| PRS11    SA1    F           SET FILE NAME IN *FILINFO* BLOCK
04374  M00S04336.edit    +++|          MX0    42
04375  M00S04337.edit    +++|          BX1    X0*X1
04376  M00S04338.edit    +++|          SA2    FINB
04377  M00S04339.edit    +++|          BX6    X1+X2
04378  M00S04340.edit    +++|          MX0    -6
04379  M00S04341.edit    +++|          SA6    A2
04380  M00S04342.edit    +++|          FILINFO  A2        GET FILE INFORMATION
04381  M00S04343.edit    +++|          SA1    FINB+1      CHECK FILE TYPE
04382  M00S04344.edit    +++|          BX6    -X0*X1
04383  M00S04345.edit    +++|          LX1    59-7        CHECK FILE MODE
04384  M00S04346.edit    +++|          SX6    X6-4        INITIALIZE DIRECT ACCESS FILE FLAG
04385  M00S04347.edit    +++|          SA6    DAFF
04386  M00S04348.edit    +++|          ZR     X1,PRS11.2  IF FILE NOT FOUND
04387  M00S04349.edit    +++|          SA3    JOTY        CHECK FOR INTERACTIVE JOB
04388  M00S04350.edit    +++|          NZ     X3,PRS11.2  IF NOT TERMINAL INPUT
04389  M00S04351.edit    +++|          NG     X1,PRS11.2  IF EDIT FILE IN WRITE MODE
04390  M00S04352.edit    +++|          WRITEC O,PRSE      *EDIT FILE NOT IN WRITE MODE.*
04391  M00S04353.edit    +++|          WRITEC O,PRSF      *DO YOU WISH TO CONTINUE*
04392  M00S04354.edit    +++| PRS11.1  SB6    LBUF        FWA WORKING BUFFER
04393  M00S04355.edit    +++|          RJ     PUR         PROCESS USER RESPONSE
04394  M00S04356.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPTS
04395  M00S04357.edit    +++|          NZ     X3,END6     IF TERMINAL INTERRUPT
04396  M00S04358.edit    +++|          ZR     X4,END6     IF *NO* RESPONSE
04397  M00S04359.edit    +++|          PL     X4,PRS11.2  IF *YES* RESPONSE
04398  M00S04360.edit    +++|          WRITEC O,PCCD      REQUEST *YES* OR *NO* RESPONSE
04399  M00S04361.edit    +++|          EQ     PRS11.1     PROCESS USER RESPONSE
04400  M00S04362.edit    +++|
04401  M00S04363.edit    +++| PRS11.2  REWIND F
04402  M00S04364.edit    +++|          READ   X2
04403  M00S04365.edit    +++|          READC  X2,LBUF,LBUFL
04404  M00S04366.edit    +++|          SX7    B1
04405  M00S04367.edit    +++|          SX6    B6
04406  M00S04368.edit    +++|          NZ     X1,PRS12    IF EDIT FILE EMPTY
04407  M00S04369.edit    +++|          SA7    EOFTF
04408  M00S04370.edit    +++|          SA6    LBL
04409  M00S04371.edit    +++| PRS12    SA5    SC
04410  M00S04372.edit    +++|          SA7    F+5
04411  M00S04373.edit    +++|          SX5    F
04412  M00S04374.edit    +++|          RJ     CTI         CHECK TERMINAL INTERRUPT
04413  M00S04375.edit    +++|          NZ     X3,END6     IF INTERRUPTED
04414  M00S04376.edit    +++|          WRITEC O,PRSB      * BEGIN TEXT EDITING.*
04415  M00S04377.edit    +++|          JP     MAIN        BEGIN TEXT EDITING
04416  M00S04378.edit    +++| ERR      SPACE  4

Line S04379 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04417  M01S04379.v23l617 ---|**        ERR - ISSUE CONTROL CARD ERROR MESSAGE.

Line S00036 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04418  M01S00036.v23l617 +++|**        ERR - ISSUE COMMAND ERROR MESSAGE.
04419  M00S04380.edit    +++|*
04420  M00S04381.edit    +++|*         ENTRY  (B6) = ERROR MESSAGE ADDRESS, IF ENTRY AT *ERR1*.
04421  M00S04382.edit    +++|
04422  M00S04383.edit    +++|

Line S04384 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04423  M01S04384.v23l617 ---| ERR      SB6    PRSC        * CONTROL CARD ERROR.*

Line S00037 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04424  M01S00037.v23l617 +++| ERR      SB6    PRSC        * COMMAND ERROR.*
04425  M00S04385.edit    +++| ERR1     MESSAGE  B6,3      ISSUE ERROR MESSAGE
04426  M00S04386.edit    +++|          ABORT
04427  M00S04387.edit    +++| TARG     SPACE  4
04428  M00S04388.edit    +++|**        TARG - TABLE OF ARGUMENTS.
04429  M00S04389.edit    +++|
04430  M00S04390.edit    +++|
04431  M00S04391.edit    +++| TARG     BSS    0
04432  M00S04392.edit    +++| FN       ARG    ST,TFILE,400B,0
04433  M00S04393.edit    +++| M        ARG    ST,ASC,0,1
04434  M00S04394.edit    +++| I        ARG    ST,I,,0
04435  M00S04395.edit    +++| L        ARG    ST,O,,0
04436  M00S04396.edit    +++|          ARG
04437  M00S04397.edit    +++| TARGL    EQU    *-TARG-1    ARGUMENT TABLE LENGTH
04438  M00S04398.edit    +++|
04439  M00S04399.edit    +++|
04440  M00S04400.edit    +++| ST       CON    1           DEFAULT FET STATUS
04441  M00S04401.edit    +++| MARG     SPACE  4
04442  M00S04402.edit    +++|**        MARG - TABLE OF MODE ARGUMENTS.
04443  M00S04403.edit    +++|
04444  M00S04404.edit    +++|
04445  M00S04405.edit    +++| MARG     BSS    0
04446  M00S04406.edit    +++|          VFD    42/0LASCII,18/1
04447  M00S04407.edit    +++|          VFD    42/0LAS,18/1
04448  M00S04408.edit    +++|          VFD    42/0LNORMAL,18/0
04449  M00S04409.edit    +++|          VFD    42/0LN,18/0
04450  M00S04410.edit    +++|          CON    0
04451  M00S04411.edit    +++|          SPACE  4,10
04452  M00S04412.edit    +++| FINB     BSS    0           *FILINFO* PARAMETER BLOCK
04453  M00S04413.edit    +++|          VFD    42/0,6/5,12/1
04454  M00S04414.edit    +++|          BSSZ   4
04455  M00S04415.edit    +++|          SPACE  4
04456  M00S04416.edit    +++|**        COMMON DECKS.
04457  M00S04417.edit    +++|
04458  M00S04418.edit    +++|
04459  M00S04419.edit    +++|*CALL     COMCARM
04460  M00S04420.edit    +++|*CALL     COMCCPA
04461  M00S04421.edit    +++|*CALL     COMCPOP
04462  M00S04422.edit    +++|*CALL     COMCSTF
04463  M00S04423.edit    +++| PRSA     SPACE  4
04464  M00S04424.edit    +++|**        PRESET MESSAGES.
04465  M00S04425.edit    +++|
04466  M00S04426.edit    +++|
04467  M00S04427.edit    +++| PRSA     DATA   C* ENTER TEXT FILE NAME."CB"*
04468  M00S04428.edit    +++| PRSB     DATA   C* BEGIN TEXT EDITING.*

Line S04429 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04469  M01S04429.v23l617 ---| PRSC     DATA   C* CONTROL CARD ERROR.*

Line S00038 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04470  M01S00038.v23l617 +++| PRSC     DATA   C* COMMAND ERROR.*
04471  M00S04430.edit    +++| PRSE     DATA   C* EDIT FILE NOT IN WRITE MODE.*
04472  M00S04431.edit    +++| PRSF     DATA   C* DO YOU WISH TO CONTINUE"CB"*
04473  M00S04432.edit    +++|

Line S04433 Modification History
`M01` (Removed by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04474  M01S04433.v23l617 ---|*         CONTROL CARD STRING BUFFER.

Line S00039 Modification History
`M01` (Added by)	`v23l617`

Seq #  *Modification Id* Act 
----------------------------+
04475  M01S00039.v23l617 +++|*         COMMAND STRING BUFFER.
04476  M00S04434.edit    +++|
04477  M00S04435.edit    +++| PRSD     EQU    *
04478  M00S04436.edit    +++|*         BSS    200
04479  M00S04437.edit    +++| BUFFERS  TITLE  BUFFERS.
04480  M00S04438.edit    +++| CMDB     EQU    PRS
04481  M00S04439.edit    +++| STRB     EQU    CMDB+CMDBL
04482  M00S04440.edit    +++| STRA     EQU    STRB+1
04483  M00S04441.edit    +++|          IFLT   CMDBL+STRBL+2,FBUFL
04484  M00S04442.edit    +++| LBUF     EQU    CMDB+FBUFL
04485  M00S04443.edit    +++|          ELSE   1
04486  M00S04444.edit    +++| LBUF     EQU    STRA+STRBL+1
04487  M00S04445.edit    +++| TBUF     EQU    LBUF+LBUFL+1
04488  M00S04446.edit    +++|          IFLT   LBUFL*3,CBUFL
04489  M00S04447.edit    +++| OBUF     EQU    LBUF+CBUFL
04490  M00S04448.edit    +++|          ELSE   1
04491  M00S04449.edit    +++| OBUF     EQU    TBUF+2*LBUFL
04492  M00S04450.edit    +++| IBUF     EQU    OBUF+OBUFL
04493  M00S04451.edit    +++| MBUF     EQU    IBUF+IBUFL
04494  M00S04452.edit    +++| BBUF     EQU    MBUF+MBUFL
04495  M00S04453.edit    +++| FBUF     EQU    BBUF+BBUFL
04496  M00S04454.edit    +++| SBUF     EQU    FBUF+FBUFL
04497  M00S04455.edit    +++| SCBUF    EQU    SBUF+FBUFL
04498  M00S04456.edit    +++| USBB     EQU    SCBUF+FBUFL
04499  M00S04457.edit    +++| RFL=     EQU    USBB+CCBL+4
04500  M00S04458.edit    +++| ALFL     EQU    USBB+USBBL+4
04501  M00S04459.edit    +++|          END