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
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