Seq # *Modification Id* Act
----------------------------+
02008 M01S01981.xedit +++| SPCMDT SPACE 4,10
02009 M01S01982.xedit +++| SPCMDT BSS 0
02010 M01S01983.xedit +++| SPECIAL HERE ASSEMBLE SPECIAL COMMAND TABLE
02011 M01S01984.xedit +++| SPCMDU DATA 0 END MARKER
02012 M01S01985.xedit +++| PURGMAC SPECIAL VOID USAGE OF MACRO
02013 M01S01986.xedit +++| NCL SPACE 4,40
02014 M01S01987.xedit +++|** NCL - OBTAIN NEXT COMMAND LINE AND PUT INTO *C.STR*.
02015 M01S01988.xedit +++|*
02016 M01S01989.xedit +++|* NCL READS THE NEXT LINE FROM THE CURRENT INPUT FILE
02017 M01S01990.xedit +++|* AND PLACES IT INTO C.STR (C.STR-1 IS UPDATED ALSO).
02018 M01S01991.xedit +++|* IF THERE IS NO FET (IE. THE *.* AND *-* COMMANDS), THE
02019 M01S01992.xedit +++|* INPUT STACK IS POP-ED AND THE LAST INPUT LINE IS
02020 M01S01993.xedit +++|* RE-INSTATED AT ITS PREVIOUS POSITION. IF THERE IS A
02021 M01S01994.xedit +++|* FET, *READC* IS CALLED TO READ IN THE NEXT LINE. IF
02022 M01S01995.xedit +++|* POSITIONED AT AN EOR,EOF,EOI, THE STACK IS POP-ED IF
02023 M01S01996.xedit +++|* NOT THE PRIMARY INPUT SOURCE.
02024 M01S01997.xedit +++|*
02025 M01S01998.xedit +++|* NDL - OBTAIN NEXT DATA LINE FROM COMMAND LINE AND PUT INTO
02026 M01S01999.xedit +++|* C.STR.
02027 M01S02000.xedit +++|*
02028 M01S02001.xedit +++|* THIS IS A SECOND ENTRY POINT TO *NCL*. SINCE XEDIT ALLOWS
02029 M01S02002.xedit +++|* THE USER TO INTERMIX COMMANDS AND DATA, EVERY SO OFTEN
02030 M01S02003.xedit +++|* XEDIT NEEDS MORE DATA (WHICH EXISTS ON THE NEXT COMMAND
02031 M01S02004.xedit +++|* LINE. THIS ENTRY POINT HANDLES THIS CASE. (DESIGNED TO BE
02032 M01S02005.xedit +++|* USED WITH *RDL*.)
02033 M01S02006.xedit +++|*
02034 M01S02007.xedit +++|* ENTRY NONE.
02035 M01S02008.xedit +++|*
02036 M01S02009.xedit +++|* EXIT (X1) = 0 IF DATA HAS BEEN READ.
02037 M01S02010.xedit +++|* .NE. 0 IF AN EMPTY CR WAS ENCOUNTERED.
02038 M01S02011.xedit +++|* RETURNS TO CALLER IF ENTERED VIA *NDL*,
02039 M01S02012.xedit +++|* ELSE RETURNS TO *NCM*, UNLESS IN *INPUT* MODE, THEN
02040 M01S02013.xedit +++|* RETURNS TO *INP2*.
02041 M01S02014.xedit +++|* IF END OF INPUT AND NOT TTY INPUT FILE, TO *ABT*.
02042 M01S02015.xedit +++|*
02043 M01S02016.xedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
02044 M01S02017.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
02045 M01S02018.xedit +++|* B - 6, 7.
02046 M01S02019.xedit +++|*
02047 M01S02020.xedit +++|* CALLS STL, UPL.
02048 M01S02021.xedit +++|*
02049 M01S02022.xedit +++|* MACROS PROMPT, READ, READC, WRITEO.
02050 M01S02023.xedit +++|
02051 M01S02024.xedit +++|
02052 M01S02025.xedit +++| NDL DATA 0 NEW DATA LINE ENTRY. THIS WORD IS A FLAG.
02053 M01S02026.xedit +++|
02054 M01S02027.xedit +++|* IF (NDL) = 0, THEN ENTERED VIA *NCL*, ELSE VIA *NDL*.
02055 M01S02028.xedit +++|
02056 M01S02029.xedit +++| NCL SA5 C.ON OBTAIN CURRENT INPUT DEVICE
02057 M01S02030.xedit +++| SA3 X5-1 GET FET ADDRESS
02058 M01S02031.xedit +++| ZR X3,NCL5 IF NO FET (POP STACK)
02059 M01S02032.xedit +++| SA1 PROMPT
02060 M01S02033.xedit +++| SX2 X3 SET FET ADDRESS
02061 M01S02034.xedit +++| BX6 X1
02062 M01S02035.xedit +++| SA4 NDL
02063 M01S02036.xedit +++| SX7 X2-INPUT
02064 M01S02037.xedit +++| NZ X4,NCL1 IF REQUESTING DATA
02065 M01S02038.xedit +++| NG X3,NCL5 IF POP IF ASKING FOR COMMAND
02066 M01S02039.xedit +++| NZ X7,NCL1 IF NOT PRIMARY INPUT
02067 M01S02040.xedit +++| ZR X6,NCL1 IF NOT TO ISSUE PROMPT
02068 M01S02041.xedit +++| WRITEO OUTPUT
02069 M01S02042.xedit +++| NCL1 SA1 TTYIN
02070 M01S02043.xedit +++| SA3 NCLA
02071 M01S02044.xedit +++| SA2 BATCH
02072 M01S02045.xedit +++| BX6 X1+X3
02073 M01S02046.xedit +++| SA6 A3
02074 M01S02047.xedit +++| NZ X3,NCL2 IF READ NOT NEEDED
02075 M01S02048.xedit +++| SA4 NDL
02076 M01S02049.xedit +++| NG X2,NCL1.1 IF IN BATCH MODE
02077 M01S02050.xedit +++| NZ X4,NCL1.1 IF ENTERED VIA *NDL*
02078 M01S02051.xedit +++| PROMPT OFF TURN OFF PROMPT
02079 M01S02052.xedit +++| NCL1.1 READ INPUT,RECALL
02080 M01S02053.xedit +++| SA2 BATCH
02081 M01S02054.xedit +++| NG X2,NCL2 IF IN BATCH MODE
02082 M01S02055.xedit +++| PROMPT ON TURN ON PROMPT
02083 M01S02056.xedit +++| NCL2 READC INPUT,X5-34D,33D READ NEW LINE
02084 M01S02057.xedit +++| SA3 C.STR-1 RESET CHARACTER INDEX
02085 M01S02058.xedit +++| NZ X1,NCL6 IF HIT END OF SOMETHING
02086 M01S02059.xedit +++| PX6 B1,X3 RESET CHARACTER INDEX
02087 M01S02060.xedit +++| SA6 A3
02088 M01S02061.xedit +++| NCL3 SA1 X5-34D FWA OF STRING
02089 M01S02062.xedit +++| SB6 C.STR FWA OF STRING
02090 M01S02063.xedit +++| RJ UPL
02091 M01S02064.xedit +++| SX1 0 SET SUCCESSFUL READ
02092 M01S02065.xedit +++| NCL4 SA2 NDL
02093 M01S02066.xedit +++| ZR X2,NCL8 IF ENTERED VIA NCL
02094 M01S02067.xedit +++| AX2 30
02095 M01S02068.xedit +++| BX7 X7-X7
02096 M01S02069.xedit +++| SA7 TLX IGNORE INTERRUPT IF DATA LINE
02097 M01S02070.xedit +++| SB7 X2 OBTAIN RETURN ADDRESS
02098 M01S02071.xedit +++| SA7 A2 CLEAR *NDL* FLAG
02099 M01S02072.xedit +++| JP B7 RETURN TO CALLER
02100 M01S02073.xedit +++|
02101 M01S02074.xedit +++|* POP INPUT STACK
02102 M01S02075.xedit +++|
02103 M01S02076.xedit +++| NCL5 MX6 1 SET DEVICE IN-ACTIVE
02104 M01S02077.xedit +++| SA5 X5 GET NEW DEVICE
02105 M01S02078.xedit +++| SA6 A5 IDLE OLD DEVICE
02106 M01S02079.xedit +++| SA2 X5+B1 GET OLD C.STR-1 WORD
02107 M01S02080.xedit +++| BX7 X5
02108 M01S02081.xedit +++| LX6 X2
02109 M01S02082.xedit +++| SA7 C.ON CHANGE CURRENT DEVICE POINTER
02110 M01S02083.xedit +++| SA6 C.STR-1
02111 M01S02084.xedit +++| EQ NCL3 UNPACK AND EXIT
02112 M01S02085.xedit +++|
02113 M01S02086.xedit +++|* END OF SOMETHING ENCOUNTERED ON INPUT FILE.
02114 M01S02087.xedit +++|
02115 M01S02088.xedit +++| NCL6 SA2 X5-1 GET FET ADDRESS
02116 M01S02089.xedit +++| SX2 X2-INPUT PRIMARY INPUT FOR CMD OR DATA
02117 M01S02090.xedit +++| NZ X2,NCL5 IF NOT PRIMARY INPUT FILE
02118 M01S02091.xedit +++| SA4 TTYIN
02119 M01S02092.xedit +++| NZ X4,NCL7 IF NOT *TTY* INPUT FILE (ABORT)
02120 M01S02093.xedit +++| RJ STL EVENTUALLY RETURNS TO *NCL* IF INTERRUPT
02121 M01S02094.xedit +++| MX6 0 SET READ REQUIRED
02122 M01S02095.xedit +++| SA6 NCLA (X1) .NE. 0
02123 M01S02096.xedit +++| EQ NCL4 READ INPUT FILE
02124 M01S02097.xedit +++|
02125 M01S02098.xedit +++| NCL7 SB6 =C* END OF INPUT ENCOUNTERED - ABORTED.*
02126 M01S02099.xedit +++| EQ ABT ABORT XEDIT
02127 M01S02100.xedit +++|
02128 M01S02101.xedit +++| NCL8 SA2 INPMODE
02129 M01S02102.xedit +++| NG X2,INP2 IF IN INPUT MODE
02130 M01S02103.xedit +++| ZR X1,NCM IF NOT EMPTY CARRIAGE RETURN
02131 M01S00004.xedit20 +++| SA1 UPDATE
02132 M01S00005.xedit20 +++| PL X1,NCM21 IF IN LOOK MODE
02133 M01S02104.xedit +++| EQ INP1 BEGIN INPUT MODE
02134 M01S02105.xedit +++|
02135 M01S02106.xedit +++| NCLA DATA 0 READ REQ,D FROM INPUT IF ZERO
02136 M01S02107.xedit +++| TITLE COMMAND TABLE.
02137 M01S02108.xedit +++| JUMP BSS 0 START OF COMMAND TABLE
02138 M01S02109.xedit +++| .ADD COMMAND ADD,A,NUMBER1,,ADD,(IN,F0)
02139 M01S02110.xedit +++| .ALN COMMAND ADDLN,ALN,NUMBER2,-1,PLN,,OVL2
02140 M01S02111.xedit +++| .ALNS COMMAND ADDLNS,ALNS,NUMBER2,-2,PLN,,OVL2
02141 M01S02112.xedit +++| .BOTTOM COMMAND BOTTOM,B,NONE,,BTR,(LK)
02142 M01S02113.xedit +++| .BRIEF COMMAND BRIEF,BR,TOGGLE,(XVERIFY*2+0),SFG,(CR,LK,IN)
| Line S02114 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
02143 M02S02114.xedit20 ---| .CHANGE COMMAND CHANGE,C,STRING,340000B,CNG,(LK,IN,F0)
| Line S02115 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit20 |
Seq # *Modification Id* Act
----------------------------+
02144 M02S02115.xedit20 ---| .CS COMMAND CHANGES,CS,STRING,340000B,CGS,(LK,IN,F0)
02145 M01S00006.xedit20 +++| .CHANGE COMMAND CHANGE,C,STRING,340000B,CNG,(IN,F0)
| Line S00007 Modification History |
M01 (Added by) | xedit20 |
M02 (Updated by) | xedi20a |
Seq # *Modification Id* Act
----------------------------+
02146 M02S00007.xedi20a ---| .CS COMMAND CHANGE,CS,STRING,340000B,CGS,(IN,F0)
02147 M01S00001.xedi20a +++| .CS COMMAND CHANGES,CS,STRING,340000B,CGS,(IN,F0)
02148 M01S02116.xedit +++| .COPY COMMAND COPY,,ONEFILE,070011B,CPY,(LK,IN,F0),OVL2
02149 M01S02117.xedit +++| .COPYD COMMAND COPYD,,ONEFILE,070011B,CPY11,,OVL2
02150 M01S02118.xedit +++| .DBADL COMMAND DBADL,DBL,NUMBER1,-1,PBL,,OVL2
02151 M01S02119.xedit +++| .DEFTAB COMMAND DEFTAB,DT,CHAR,(TABCHAR*2+0),SCH,(CR,IN,LK)
02152 M01S02120.xedit +++| .DELETE COMMAND DELETE,D,STRING,070000B,DLT
02153 M01S02121.xedit +++| .DEL COMMAND DELIMIT,DEL,CHAR,1,DEL,(CR,LK,IN)
02154 M01S02122.xedit +++| .DEOF COMMAND DEOF,DF,NUMBER1,DF,DRF
02155 M01S02123.xedit +++| .DEOR COMMAND DEOR,DR,NUMBER1,DR,DRF
02156 M01S02124.xedit +++| .DLN COMMAND DELETELN,DLN,NONE,0,PLN,,OVL2
02157 M01S02125.xedit +++| .DLB COMMAND DLBLANKS,DLB,NUMBER1,,DLB,,OVL2
| Line S02126 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02158 M02S02126.xedit12 ---| .EDIT COMMAND EDIT,,NONE,,EDT,(IN)
02159 M01S00002.xedit12 +++| .EDIT COMMAND EDIT,,NONE,,PEC,(IN)
02160 M01S02127.xedit +++| .END COMMAND END,E,ONEFILE,000022B,EFQ
02161 M01S02128.xedit +++| .EXPLAI COMMAND EXPLAIN,,NONE,,EXP,(CR,IN,LK),OVL1
02162 M01S02129.xedit +++| .FBADL COMMAND FBADL,FBL,NUMBER1,1,PBL,(LK),OVL2
02163 M01S02130.xedit +++| .FILE COMMAND FILE,F,ONEFILE,000022B,EFQ
02164 M01S02131.xedit +++| .FINDLL COMMAND FINDLL,FLL,NUMBER1,,FLL,(LK)
02165 M01S02132.xedit +++| .HELP COMMAND HELP,H,NULL,,HELP,(CR,LK,IN),OVL1
02166 M01S02133.xedit +++| .INPUT COMMAND INPUT,,CHAR,0,INP,(CR)
02167 M01S02134.xedit +++| .INSERT COMMAND INSERT,I,NUMBER1,IIB4,IIB,(CR)
02168 M01S02135.xedit +++| .IB COMMAND INSERTB,IB,NUMBER1,IIB3,IIB,(IN)
02169 M01S02136.xedit +++| .LISTAB COMMAND LISTAB,LT,NONE,,LTB,(CR,LK,IN),OVL2
02170 M01S02137.xedit +++| .LOCATE COMMAND LOCATE,L,STRING,260000B,LCT,(LK)
02171 M01S02138.xedit +++| IF DEF,TIMES,1
02172 M01S02139.xedit +++| .LOC COMMAND LOC,,STRING,260000B,LCTA,(LK)
02173 M01S02140.xedit +++| .MODIFY COMMAND MODIFY,M,NONE,0,MOD,(IN)
02174 M01S02141.xedit +++| .NEXT COMMAND NEXT,N,NEXT,,NXT,(LK)
02175 M01S02142.xedit +++| .NOBELL COMMAND NOBELLS,NB,NONE,,NBL,(CR,IN,LK),OVL2
02176 M01S02143.xedit +++| .OCTCHA COMMAND OCTCHANGE,OC,NULL,300000B,OCT,(IN,F0),OVL2
02177 M01S02144.xedit +++| .PRINT COMMAND PRINT,P,NUMBER1,,PNT,(CR,IN,LK,F0)
02178 M01S02145.xedit +++| .QMOD COMMAND QMOD,QM,NUMBER1,0,MOD1,(IN,F0)
02179 M01S02146.xedit +++| .QUIT COMMAND QUIT,Q,ONEFILE,000022B,EFQ
02180 M01S02147.xedit +++| .READ COMMAND READ,,NULL,,RDP,,OVL2
02181 M01S02148.xedit +++| .READP COMMAND READP,,NULL,,RDP,,OVL2
02182 M01S02149.xedit +++| .REPLACE COMMAND REPLACE,R,NUMBER1,,RLP,(IN,F0)
02183 M01S02150.xedit +++| .RLN COMMAND REPLACELN,RLN,NUMBER2,1,PLN,,OVL2
02184 M01S02151.xedit +++| .RESTOR COMMAND RESTORE,REST,NONE,,RST
02185 M01S02152.xedit +++| .RM COMMAND RMARGIN,RM,NUMBER1,,RMA,(CR,IN,LK)
02186 M01S02153.xedit +++| .STOP COMMAND STOP,,NONE,,ABO,(CR,LK)
02187 M01S02154.xedit +++| .TABS COMMAND TABS,TAB,NUMBER,NTABS,STB,(CR,LK,IN)
02188 M01S02155.xedit +++| .TEOF COMMAND TEOF,,TOGGLE,ITOGGLF,TGL,(CR,LK,IN)
02189 M01S02156.xedit +++| .TEOR COMMAND TEOR,,TOGGLE,ITOGGLR,TGL,(CR,LK,IN)
02190 M01S02157.xedit +++| .TRIM COMMAND TRIM,,TOGGLE,TRIM,TGL,(CR,LK,IN)
02191 M01S02158.xedit +++| .TRUNC COMMAND TRUNCATE,TRUNC,NUMBER1,,TRN,(IN,F0)
02192 M01S02159.xedit +++| .TOP COMMAND TOP,T,NONE,,TTN,(LK)
02193 M01S02160.xedit +++| .TOPNUL COMMAND TOPNULL,TN,NONE,,TTN
02194 M01S02161.xedit +++| .VERIFY COMMAND VERIFY,V,TOGGLE,(XVERIFY*2+1),SFG,(CR,LK,IN)
02195 M01S02162.xedit +++| .WEOF COMMAND WEOF,WF,NONE,34B,WRM,(IN)
02196 M01S02163.xedit +++| .WEOR COMMAND WEOR,WR,NONE,24B,WRM,(IN)
02197 M01S02164.xedit +++| .WHERE COMMAND WHERE,W,NONE,,WHR,(CR,IN,LK)
02198 M01S02165.xedit +++| .WM COMMAND WMARGIN,WM,NUMBER2,,SWN,(CR,IN,LK)
02199 M01S02166.xedit +++| .Y COMMAND Y,,NULL,,YZP,(CR,LK,IN)
02200 M01S02167.xedit +++| .YQMOD COMMAND YQMOD,YQM,NUMBER1,0,MOD2,(IN,F0)
02201 M01S02168.xedit +++| .Z COMMAND Z,,NULL,,YZP,(CR,IN,LK)
02202 M01S02169.xedit +++| JUMPX DATA 0
| Line S02170 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02203 M02S02170.v23l617 ---| VFD 2/3,58/0 ILLEGAL COMMAND MARKER
02204 M01S00014.v23l617 +++| VFD 2/3,58/0 INCORRECT COMMAND MARKER
02205 M01S02171.xedit +++| SPACE 4
02206 M01S02172.xedit +++|** ASSEMBLE DATA NEEDED FOR OVERLAYS.
02207 M01S02173.xedit +++|* THIS CODE NEEDS TO BE AFTER THE COMMAND DEFINITIONS.
02208 M01S02174.xedit +++|
02209 M01S02175.xedit +++|
02210 M01S02176.xedit +++| LOVA VFD 24/0,30/0LXEDIT,6/0 OVERLAY BASE NAME
02211 M01S02177.xedit +++| LOVB VFD 30/MINFL,30/0 MINIMUM BASE FIELD LENGTH
02212 M01S02178.xedit +++| C.A SET 1 PREPARE TABLE OF FIELD LENGTHS
02213 M01S02179.xedit +++| DUP MXOVL,3
02214 M01S02180.xedit +++| C.D DECMIC C.A
02215 M01S02181.xedit +++| VFD 30//XEDIT_"C.D"_/LWA,30/0
02216 M01S02182.xedit +++| C.A SET C.A+1
02217 M01S02183.xedit +++| .H IFEQ DEBUG,1 IF DEBUG ON
02218 M01S02184.xedit +++| DATA 10H LOADING
02219 M01S02185.xedit +++| .H ENDIF
02220 M01S02186.xedit +++| LOVC BSSZ 1 OVERLAY NAME
02221 M01S02187.xedit +++| LOVD VFD 6/1,6/,5/,1/1,24/,*P/
02222 M01S02188.xedit +++| LOVE CON 0 LAST OVERLAY LOADED
02223 M01S02189.xedit +++| IFEQ FILEOV,3,6
02224 M01S02190.xedit +++| LOVF CON 0 .NE.0 IF OVERLAY LOADED FROM LIBRARY
02225 M01S02191.xedit +++| LOVG BSS 0
02226 M01S02192.xedit +++| .I IFEQ DEBUG,1 IF DEBUG ON
02227 M01S02193.xedit +++| SCRG FILEC E.SCR,150D,(FET=13D),EPR
02228 M01S02194.xedit +++| .I ELSE
02229 M01S02195.xedit +++| SCRG FILEC E.SCR,150D,(FET=13D),(USN=LIBRARY),EPR
02230 M01S02196.xedit +++| .I ENDIF
02231 M01S02197.xedit +++|
02232 M01S02198.xedit +++| TITLE COMMAND PROCESSORS.
02233 M01S02199.xedit +++|** ENTRY CONDITIONS TO ALL COMMAND PROCESSORS -
02234 M01S02200.xedit +++|*
02235 M01S02201.xedit +++|* (X1) = (DECA) - INSTRUCTION DESCRIPTER WORD.
02236 M01S02202.xedit +++|* (INDEX) = ADDRESS OF INSTRUCTION DESCRIPTER WORD.
02237 M01S02203.xedit +++| ABO SPACE 4,10
02238 M01S02204.xedit +++|** ABO - PROCESS ABORT COMMAND.
02239 M01S02205.xedit +++|*
02240 M01S02206.xedit +++|* ENTRY NONE.
02241 M01S02207.xedit +++|*
02242 M01S02208.xedit +++|* EXIT TO *ABT*.
02243 M01S02209.xedit +++|*
02244 M01S02210.xedit +++|* USES A - 2.
02245 M01S02211.xedit +++|* X - 2.
02246 M01S02212.xedit +++|* B - 6.
02247 M01S02213.xedit +++|*
02248 M01S02214.xedit +++|* MACROS RETURN.
02249 M01S02215.xedit +++|
02250 M01S02216.xedit +++|
| Line S02217 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit25 |
Seq # *Modification Id* Act
----------------------------+
02251 M02S02217.xedit25 ---| ABO SB6 =C* ABORTED*
| Line S02218 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit25 |
Seq # *Modification Id* Act
----------------------------+
02252 M02S02218.xedit25 ---| SA2 SPCP
02253 M01S00001.xedit25 +++| ABO SA2 SPCP
02254 M01S02219.xedit +++| LX2 59-58
| Line S02220 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit25 |
Seq # *Modification Id* Act
----------------------------+
02255 M02S02220.xedit25 ---| PL X2,ABT IF *P* NOT SPECIFIED
| Line S02221 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit25 |
Seq # *Modification Id* Act
----------------------------+
02256 M02S02221.xedit25 ---| RETURN E.IN,R RETURN EDIT FILE
02257 M01S00002.xedit25 +++| PL X2,ABO1 IF *P* NOT SPECIFIED
02258 M01S00003.xedit25 +++| RECALL SFET
02259 M01S00004.xedit25 +++| SA1 ISFN GET EDIT FILE NAME
02260 M01S00005.xedit25 +++| SX6 B1 SET COMPLETE BIT
02261 M01S00006.xedit25 +++| BX6 X6+X1
02262 M01S00007.xedit25 +++| SA6 X2
02263 M01S00008.xedit25 +++| RETURN X2,R RETURN EDIT FILE
02264 M01S00009.xedit25 +++| ABO1 SB6 =C* ABORTED*
02265 M01S02222.xedit +++| EQ ABT ABORT XEDIT
02266 M01S02223.xedit +++| ADD SPACE 4,15
02267 M01S02224.xedit +++|** ADD - ADD TEXT TO END OF LINE(S).
02268 M01S02225.xedit +++|*
02269 M01S02226.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO ADD.
02270 M01S02227.xedit +++|*
02271 M01S02228.xedit +++|* EXIT TO NCM.
02272 M01S02229.xedit +++|*
02273 M01S02230.xedit +++|* USES A - 1, 2, 6, 7.
02274 M01S02231.xedit +++|* X - 1, 2, 3, 4, 6, 7.
02275 M01S02232.xedit +++|* B - 4, 6, 7.
02276 M01S02233.xedit +++|*
| Line S02234 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02277 M02S02234.xedit21 ---|* CALLS ITM, RDL, RDF, SAL, VFY, WTF.
02278 M01S00001.xedit21 +++|* CALLS ITM, RDF, RDL, SAC, SAL, VFY, VRY, WTF.
02279 M01S02235.xedit +++|*
02280 M01S02236.xedit +++|* ROUTINE REQUESTS ONE LINE OF DATA, AND ADDS IT TO
02281 M01S02237.xedit +++|* THE END OF N LINES. THE TRUNCATION MESSAGE IS ISSUED
02282 M01S02238.xedit +++|* IF THE RESULTANT LENGTH IS GREATER THAN 160 CHARACTERS.
02283 M01S02239.xedit +++|
02284 M01S02240.xedit +++|
02285 M01S02241.xedit +++| ADD SA1 NUMS
| Line S02242 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02286 M02S02242.xedit21 ---| SX6 X1-1 DECREMENT TO MAKE TESTING EASIER
02287 M01S00002.xedit21 +++| SX6 B1
02288 M01S00003.xedit21 +++| IX6 X1-X6 DECREMENT TO MAKE TESTING EASIER
02289 M01S02243.xedit +++| SA6 A1
02290 M01S02244.xedit +++| RJ SAC SET ASCII PROCESSING
02291 M01S02245.xedit +++| RJ RDL
02292 M01S02246.xedit +++| NZ X1,NCM IF NOTHING ON LINE (RETURN)
02293 M01S02247.xedit +++| EQ ADD2 PROCESS ADD
02294 M01S02248.xedit +++|
02295 M01S02249.xedit +++| ADD1 SA6 A1 REPLACE COUNT
02296 M01S02250.xedit +++| RJ WTF
02297 M01S02251.xedit +++| RJ RDF
02298 M01S02252.xedit +++| ADD2 SA1 E.STR-1
02299 M01S02253.xedit +++| SA2 D.STR-1
02300 M01S02254.xedit +++| SX3 X1-160D
02301 M01S02255.xedit +++| BX3 -X3 NUMBER OF AVAILABLE CHARACTERS
02302 M01S02256.xedit +++| IX4 X3-X2
02303 M01S02257.xedit +++| SB7 A1
02304 M01S02258.xedit +++| PL X4,ADD3 IF NO TRUNCATION
02305 M01S02259.xedit +++| BX2 X3 TRUNCATE DATA LINE
02306 M01S02260.xedit +++| ADD3 IX7 X1+X2 GET NEW LENGTH
02307 M01S02261.xedit +++| SB6 B7+X1 ADDR OF LAST CHAR IN EDIT LINE
02308 M01S02262.xedit +++| MX6 2 SET END OF LINE
02309 M01S02263.xedit +++| SB4 X2+B1 INCLUDE END OF LINE
02310 M01S02264.xedit +++| ADD4 SA6 B6+B4
02311 M01S02265.xedit +++| SB4 B4-B1
02312 M01S02266.xedit +++| SA1 A2+B4
02313 M01S02267.xedit +++| BX6 X1
02314 M01S02268.xedit +++| NZ B4,ADD4 IF NOT ALL MOVED
02315 M01S02269.xedit +++| SA7 E.STR-1
02316 M01S02270.xedit +++| PL X4,ADD5 IF NO TRUNCATION
02317 M01S02271.xedit +++| RJ ITM ISSUE TRUNCATION MESSAGE
02318 M01S02272.xedit +++| ADD5 SX7 B1
02319 M01S02273.xedit +++| SA7 E.LMOD SET MODIFICATIONS MADE
02320 M01S02274.xedit +++| SA7 NOMOD SET FILE MODIFICATIONS MADE
02321 M01S02275.xedit +++| RJ VRY VERIFY LINE
02322 M01S02276.xedit +++| SA1 NUMS
| Line S02277 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02323 M02S02277.xedit21 ---| SX6 X1-1
02324 M01S00004.xedit21 +++| SX6 B1
02325 M01S00005.xedit21 +++| IX6 X1-X6
02326 M01S02278.xedit +++| NG X6,NCM IF FINISHED
02327 M01S02279.xedit +++| EQ ADD1 PROCESS NEXT LINE
02328 M01S02280.xedit +++| BTR SPACE 4,25
02329 M01S02281.xedit +++|** BTR - ADVANCE TO BOTTOM OF CURRENT RECORD.
02330 M01S02282.xedit +++|*
02331 M01S02283.xedit +++|* ENTRY NONE.
02332 M01S02284.xedit +++|*
02333 M01S02285.xedit +++|* EXIT TO VRT.
02334 M01S02286.xedit +++|*
02335 M01S02287.xedit +++|* USES A - 1, 2, 3.
02336 M01S02288.xedit +++|* X - 1, 2, 3.
02337 M01S02289.xedit +++|*
02338 M01S02290.xedit +++|* CALLS RDF, WTF.
02339 M01S02291.xedit +++|*
02340 M01S02292.xedit +++|* MACROS RECALL.
02341 M01S02293.xedit +++|*
02342 M01S02294.xedit +++|* THIS ROUTINE TAKES ASSUMES THAT THE END OF RECORD HAS BEEN
02343 M01S02295.xedit +++|* ENCOUNTERED WHEN THE FOLLOWING CONDITIONS ARE TRUE.
02344 M01S02296.xedit +++|* 1. THE FET IS NOT BUSY
02345 M01S02297.xedit +++|* 2. *IN* IS EQUAL TO *OUT*
02346 M01S02298.xedit +++|* DUE TO XEDIT,S HABIT OF PASSING OVER NULL RECORD/FILES THESE
02347 M01S02299.xedit +++|* CONDITIONS WILL LOCATE THE BOTTOM.
02348 M01S02300.xedit +++|* NOTE- XEDIT WILL TREAT AN EOF AS AN EOR IF THERE IS TEXT
02349 M01S02301.xedit +++|* IMMEDIATELY BEFORE THE EOF. THIS WAS ASSUMED WITHIN THE
02350 M01S02302.xedit +++|* OF THE DESIRED FUNCTION OF BOTTOM.
02351 M01S02303.xedit +++|
02352 M01S02304.xedit +++|
02353 M01S02305.xedit +++| BTR1 RJ WTF ADVANCE TO NEXT LINE
02354 M01S02306.xedit +++| RJ RDF
02355 M01S02307.xedit +++| BTR SA1 E.IN+2 *IN*
02356 M01S02308.xedit +++| SA2 A1+B1 *OUT*
02357 M01S02309.xedit +++| IX2 X2-X1
02358 M01S02310.xedit +++| NZ X2,BTR1 IF *IN* NOT EQUAL TO *OUT* (NOT AT END)
02359 M01S02311.xedit +++| SA3 E.IN
02360 M01S02312.xedit +++| LX3 59-0
02361 M01S02313.xedit +++| NG X3,VRT IF FET IS COMPLETE
02362 M01S02314.xedit +++| RECALL A3 WAIT FET COMPLETION
02363 M01S02315.xedit +++| EQ BTR FIND BOTTOM
02364 M01S02316.xedit +++| CNG/CNS SPACE 4,15
02365 M01S02317.xedit +++|** CNG/CNS - PROCESS CHANGE AND CHANGES COMMANDS.
02366 M01S02318.xedit +++|*
02367 M01S02319.xedit +++|* ENTRY (NUMS) = IF VIA *CNG*, NUMBER OF LINES.
02368 M01S02320.xedit +++|* IF VIA *CNS*, NUMBER OF STRINGS.
02369 M01S02321.xedit +++|*
02370 M01S02322.xedit +++|* EXIT TO *NCM*.
02371 M01S02323.xedit +++|* IF STRING NOT FOUND, TO *LCT4*
02372 M01S02324.xedit +++|*
| Line S02325 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02373 M02S02325.xedit21 ---|* USES A - 0, 1, 6, 7.
| Line S02326 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02374 M02S02326.xedit21 ---|* X - 0, 1, 5, 6, 7.
| Line S02327 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02375 M02S02327.xedit21 ---|* B - 2, 6.
02376 M01S00006.xedit21 +++|* USES A - 0, 1, 4, 6, 7.
02377 M01S00007.xedit21 +++|* X - 0, 1, 4, 5, 6, 7.
02378 M01S00008.xedit21 +++|* B - 6.
02379 M01S02328.xedit +++|*
02380 M01S02329.xedit +++|* CALLS CHS, ITM, RDF, TSL, VRY, WTF.
02381 M01S02330.xedit +++|
02382 M01S02331.xedit +++|
02383 M01S02332.xedit +++| CNG SX0 E.SCR+160D SET LWA+1 OF SCRATCH, ENTRY
02384 M01S02333.xedit +++| EQ CNG1 PROCESS CHANGE
02385 M01S02334.xedit +++|
02386 M01S02335.xedit +++| CGS SX0 E.SCR+160D SET LWA+1 OF SCRATCH, ENTRY
02387 M01S02336.xedit +++| MX7 1
02388 M01S02337.xedit +++| BX0 X0+X7 SET STRING MODE
02389 M01S02338.xedit +++| CNG1 SA0 E.SCR SET FWA OF BUFFER
02390 M01S02339.xedit +++| RJ CHS CHANGE STRING(S)
02391 M01S02340.xedit +++| ZR B5,CNG5 IF STRING NOT FOUND
02392 M01S02341.xedit +++| NZ X5,CNG2 IF NO TRUNCATION
02393 M01S02342.xedit +++| SA1 P1RP CHECK IF STRING LENGTHS ARE EQUAL
02394 M01S02343.xedit +++| SA4 P1LP
02395 M01S02344.xedit +++| IX6 X1-X4
02396 M01S02345.xedit +++| SA1 P3RP
02397 M01S02346.xedit +++| SA4 P3LP
02398 M01S02347.xedit +++| IX1 X1-X4
02399 M01S02348.xedit +++| IX6 X6-X1
02400 M01S02349.xedit +++| ZR X6,CNG2 IF STRING LENGTHS ARE EQUAL
02401 M01S02350.xedit +++| RJ ITM ISSUE TRUNCATION MESSAGE
02402 M01S02351.xedit +++| CNG2 SA1 E.SCR
02403 M01S02352.xedit +++| SB6 E.STR-1
02404 M01S02353.xedit +++| SX7 B1
02405 M01S02354.xedit +++|
02406 M01S02355.xedit +++|* COPY LINE BACK FROM SCRATCH AREA.
02407 M01S02356.xedit +++|
02408 M01S02357.xedit +++| CNG3 BX6 X1
02409 M01S02358.xedit +++| SB6 B6+B1
02410 M01S02359.xedit +++| SA1 A1+B1
02411 M01S02360.xedit +++| SA6 B6
02412 M01S02361.xedit +++| PL X6,CNG3 IF NOT END OF LINE
02413 M01S02362.xedit +++| SB6 E.STR-1
02414 M01S02363.xedit +++| RJ TSL TRIM SPACES OFF LINE
02415 M01S02364.xedit +++| SA7 NOMOD
02416 M01S02365.xedit +++| SA7 E.LMOD
02417 M01S02366.xedit +++| RJ VRY VERIFY THE CHANGE
02418 M01S02367.xedit +++| BX6 X0
02419 M01S02368.xedit +++| AX6 59-1 =0 IF REGULAR, =-1 IF STRING MODE
02420 M01S02369.xedit +++| SA1 NUMS
02421 M01S02370.xedit +++| IX6 X1-X6 IF STRING, INCREMENT
| Line S02371 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02422 M02S02371.xedit21 ---| SB2 X6
| Line S02372 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02423 M02S02372.xedit21 ---| SX7 X6-1 DECREMENT COUNT (IF STRING, RESET)
| Line S02373 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02424 M02S02373.xedit21 ---| LE B2,B1,NCM IF FINISHED
02425 M01S00009.xedit21 +++| SX1 B1
02426 M01S00010.xedit21 +++| IX7 X6-X1
02427 M01S00011.xedit21 +++| IX6 X7-X1
02428 M01S00012.xedit21 +++| NG X6,NCM IF FINISHED
02429 M01S02374.xedit +++| SA7 A1+
02430 M01S02375.xedit +++|
02431 M01S02376.xedit +++|* ADVANCE POINTER AND CONTINUE.
02432 M01S02377.xedit +++|
02433 M01S02378.xedit +++| CNG4 BX5 X0 SAVE (X0)
02434 M01S02379.xedit +++| RJ WTF
02435 M01S02380.xedit +++| RJ RDF
02436 M01S02381.xedit +++| BX0 X5 RESTORE (X0)
02437 M01S02382.xedit +++| EQ CNG1 CONTINUE CHANGE
02438 M01S02383.xedit +++|
02439 M01S02384.xedit +++|* PROCESS STRING NOT FOUND.
02440 M01S02385.xedit +++|
02441 M01S02386.xedit +++| CNG5 SA1 NUMS
02442 M01S02387.xedit +++| PL X1,CNG4 IF NOT 0 OPTION
02443 M01S02388.xedit +++| EQ LCT4 ISSUE * STRING NOT FOUND.*
02444 M01S02389.xedit +++| DEL SPACE 4,10
02445 M01S02390.xedit +++|** DEL - SET DELIMITER CHARACTER.
02446 M01S02391.xedit +++|*
02447 M01S02392.xedit +++|* ENTRY (NUMS) = NEW DELIMITER CHARACTER.
02448 M01S02393.xedit +++|*
02449 M01S02394.xedit +++|* EXIT TO *NCM*.
02450 M01S02395.xedit +++|*
02451 M01S02396.xedit +++|* USES A - 1, 2, 4, 6.
02452 M01S02397.xedit +++|* X - 1, 2, 3, 4, 6.
02453 M01S02398.xedit +++|
02454 M01S02399.xedit +++|
02455 M01S02400.xedit +++| DEL SA2 NUMS
02456 M01S02401.xedit +++| MX3 -18
02457 M01S02402.xedit +++| BX2 -X3*X2 REMOVE EXCESS CHARACTERS (IF -1)
02458 M01S02403.xedit +++| SA4 C.ON
02459 M01S02404.xedit +++| SX4 X4-Y.DEV
02460 M01S02405.xedit +++| ZR X4,DEL1 IF NOT CURRENTLY *Y/Z* LINE
02461 M01S02406.xedit +++|
02462 M01S02407.xedit +++|* NOTE- Y/Z DELIMIT COMMAND TAKES EFFECT
02463 M01S02408.xedit +++|* OUTSIDE OF *Y/Z* COMMAND STRING.
02464 M01S02409.xedit +++|
02465 M01S02410.xedit +++| SA1 C.STR-1
02466 M01S02411.xedit +++| BX1 X3*X1
02467 M01S02412.xedit +++| IX6 X1+X2
02468 M01S02413.xedit +++| SA6 A1
02469 M01S02414.xedit +++| DEL1 SA1 I.DEV+1
02470 M01S02415.xedit +++| BX1 X3*X1
02471 M01S02416.xedit +++| IX6 X1+X2
02472 M01S02417.xedit +++| SA6 A1
02473 M01S02418.xedit +++| SA1 S.DEV+1
02474 M01S02419.xedit +++| BX1 X3*X1
02475 M01S02420.xedit +++| IX6 X1+X2
02476 M01S02421.xedit +++| SA6 A1
02477 M01S02422.xedit +++| EQ NCM EXIT
02478 M01S02423.xedit +++| DLT SPACE 4,15
02479 M01S02424.xedit +++|** DLT - DELETE LINE(S).
02480 M01S02425.xedit +++|*
02481 M01S02426.xedit +++|* ENTRY (NUMS) = COUNT (-0 = NO ADVANCE).
02482 M01S02427.xedit +++|* STRING FIELDS PARSED AND INITIALIZED.
02483 M01S02428.xedit +++|*
02484 M01S02429.xedit +++|* EXIT TO *NCM*.
02485 M01S02430.xedit +++|*
02486 M01S02431.xedit +++|* USES A - 1, 6, 7.
02487 M01S02432.xedit +++|* X - 1, 5, 6, 7.
02488 M01S02433.xedit +++|* B - 4.
02489 M01S02434.xedit +++|*
02490 M01S02435.xedit +++|* CALLS LOC, RDF, VRY, WTF.
02491 M01S02436.xedit +++|
02492 M01S02437.xedit +++|
02493 M01S02438.xedit +++| DLT1 SA1 NUMS
02494 M01S02439.xedit +++| NG X1,LCT4 IF -0 OPTION. (STRING NOT FOUND)
02495 M01S02440.xedit +++| RJ WTF
02496 M01S02441.xedit +++| DLT2 RJ RDF
02497 M01S02442.xedit +++| DLT SB4 E.STR-1 SET FWA SEARCH -1
02498 M01S02443.xedit +++| RJ LOC
02499 M01S02444.xedit +++| ZR B5,DLT1 IF STRING NOT IN LINE
02500 M01S02445.xedit +++| SA1 NUMS
02501 M01S02446.xedit +++| SX7 B1
02502 M01S02447.xedit +++| IX6 X1-X7 DECREMENT COUNT
02503 M01S02448.xedit +++| AX5 X1,B1
02504 M01S02449.xedit +++| SA6 A1
02505 M01S02450.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE TO FILE
02506 M01S02451.xedit +++| RJ VRY VERIFY DELETED LINE
02507 M01S02452.xedit +++| NZ X5,DLT2 IF MORE TO DELETE
02508 M01S02453.xedit +++| RJ RDF CREAM EXISTING LINE
02509 M01S02454.xedit +++| EQ NCM EXIT
02510 M01S02455.xedit +++| DRF SPACE 4,10
02511 M01S02456.xedit +++|** DRF - DELETE RECORD/FILE MARKS.
02512 M01S02457.xedit +++|*
02513 M01S02458.xedit +++|* ENTRY (NUMS) = NUMBER TO DELETE.
02514 M01S02459.xedit +++|* (X1) = ADDRESS OF DELETION COUNT CELL.
02515 M01S02460.xedit +++|*
02516 M01S02461.xedit +++|* USES A - 0, 1, 2, 6.
02517 M01S02462.xedit +++|* X - 1, 2, 6.
02518 M01S02463.xedit +++|*
02519 M01S02464.xedit +++|* CALLS RDF, WTF.
02520 M01S02465.xedit +++|
02521 M01S02466.xedit +++|
02522 M01S02467.xedit +++| DRF SA2 NUMS
02523 M01S02468.xedit +++| AX1 18 GET CELL ADDRESS
02524 M01S02469.xedit +++| SA0 X1 SAVE CELL
02525 M01S02470.xedit +++| NZ X2,DRF0 IF NOT ZERO
02526 M01S02471.xedit +++| SX2 1
02527 M01S02472.xedit +++| DRF0 BX6 X2
02528 M01S02473.xedit +++| SA6 A0 SET DELETION COUNT
02529 M01S02474.xedit +++| DRF1 RJ WTF WRITE CURRENT LINE
02530 M01S02475.xedit +++| RJ RDF READ NEXT
02531 M01S02476.xedit +++| SA1 A0
02532 M01S02477.xedit +++| NZ X1,DRF1 IF NOT DELETED
02533 M01S02478.xedit +++| MX6 0
02534 M01S02479.xedit +++| SA6 NOMOD SET MODIFICATIONS MADE
02535 M01S02480.xedit +++| EQ NCM EXIT
| Line S02481 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02536 M02S02481.xedit12 ---| EDT SPACE 4,15
| Line S02482 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02537 M02S02482.xedit12 ---|** EDT - PROCESS EDIT COMMAND.
02538 M01S00003.xedit12 +++| PEC SPACE 4,15
02539 M01S00004.xedit12 +++|** PEC - PROCESS EDIT COMMAND.
02540 M01S02483.xedit +++|*
02541 M01S02484.xedit +++|* ENTRY NONE.
02542 M01S02485.xedit +++|*
02543 M01S02486.xedit +++|* EXIT (INPMODE) = 1.
02544 M01S02487.xedit +++|* TO *NCM*.
02545 M01S02488.xedit +++|*
02546 M01S02489.xedit +++|* USES A - 6.
02547 M01S02490.xedit +++|* X - 6.
02548 M01S02491.xedit +++|*
02549 M01S02492.xedit +++|* MACROS WRITEC.
02550 M01S02493.xedit +++|
02551 M01S02494.xedit +++|
| Line S02495 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02552 M02S02495.xedit12 ---| EDT SX6 B1
02553 M01S00005.xedit12 +++| PEC SX6 B1
02554 M01S02496.xedit +++| SA6 INPMODE CLEAR INPUT MODE FLAG
02555 M01S02497.xedit +++| WRITEC OUTPUT,(=C* EDIT*)
02556 M01S02498.xedit +++| EQ NCM EXIT
02557 M01S02499.xedit +++| EFQ SPACE 4,20
02558 M01S02500.xedit +++|** EFQ - END, FILE, AND QUIT PROCESSOR.
02559 M01S02501.xedit +++|*
02560 M01S02502.xedit +++|* ENTRY (IFN) = FILE NAME PARAMETER.
02561 M01S02503.xedit +++|* (NUMS) = OPTIONS.
02562 M01S02504.xedit +++|*
02563 M01S02505.xedit +++|* EXIT IF TO TERMINATE XEDIT, TO *EXT*.
02564 M01S02506.xedit +++|* IF ERRORS, TO *CER* OR *NCM*.
02565 M01S02507.xedit +++|*
02566 M01S02508.xedit +++|* USES A - ALL.
02567 M01S02509.xedit +++|* X - ALL.
02568 M01S02510.xedit +++|* B - 2, 6, 7.
02569 M01S02511.xedit +++|*
02570 M01S02512.xedit +++|* CALLS CFF, PFM=, RDF, TOP.
02571 M01S02513.xedit +++|*
02572 M01S02514.xedit +++|* MACROS ERROR, FERROR, READ, RECALL, RENAME,
02573 M01S02515.xedit +++|* REWIND, STATUS.
02574 M01S02516.xedit +++|
02575 M01S02517.xedit +++|
02576 M01S02518.xedit +++| EFQ SA5 IFN GET SPECIFIED NAME
02577 M01S02519.xedit +++| SX6 B1
02578 M01S02520.xedit +++| MX7 0
02579 M01S02521.xedit +++| NZ X5,EFQ0 IF FILE NAME SPECIFIED
02580 M01S02522.xedit +++| SA5 ISFN USE *EDITFIL*
02581 M01S02523.xedit +++| EFQ0 SA7 SFET+5 CLEAR FNT/FST INFORMATION
02582 M01S02524.xedit +++| BX6 X6+X5
02583 M01S02525.xedit +++| SA7 A7+B1
02584 M01S02526.xedit +++| SA6 SFET
02585 M01S02527.xedit +++| RECALL E.IN WAIT ALL QUIET
02586 M01S02528.xedit +++| STATUS SFET,P OBTAIN INFORMATION
02587 M01S02529.xedit +++| SA4 SFET+5 GET FNT ENTRY
02588 M01S02530.xedit +++| SA1 SFET+1
02589 M01S00001.xedi13b +++| MX7 -6 SAVE FILE STATUS
02590 M01S00002.xedi13b +++| BX7 -X7*X4
02591 M01S00003.xedi13b +++| SA7 EFQB
02592 M01S02531.xedit +++| MX6 -8 ISOLATE PFM ERROR CODE
02593 M01S02532.xedit +++| MX7 1
02594 M01S02533.xedit +++| SA3 NUMS GET OPTIONS
02595 M01S02534.xedit +++| BX1 -X7*X1 CLEAR BIT 59
02596 M01S02535.xedit +++| LX4 -6 POSITION TO FILE TYPE
02597 M01S02536.xedit +++| BX6 -X6*X4 OBTAIN FILE TYPE
02598 M01S02537.xedit +++| AX1 -12 SHIFT DEVICE TYPE
02599 M01S02538.xedit +++| SX0 X6-PMFT =0 IF D.A. FILE
02600 M01S02539.xedit +++| ZR X0,EFQ1 IF DIRECT ACCESS FILE
02601 M01S00002.xedit13 +++| SX0 X6-QFFT
02602 M01S00003.xedit13 +++| ZR X0,EFQ1 IF QUEUE FILE
02603 M01S02540.xedit +++| SX0 X1-2RMT
02604 M01S02541.xedit +++| ZR X0,EFQ1 IF *MT* TYPE FILE
02605 M01S02542.xedit +++| SX0 X1-2RNT
02606 M01S02543.xedit +++|
| Line S02544 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
Seq # *Modification Id* Act
----------------------------+
02607 M02S02544.xedit13 ---|* (X0) = 0, IF FILE IS D.A, MT OR NT (NEED COPYBACK).
02608 M01S00004.xedit13 +++|* (X0) = 0, IF FILE IS D.A., QUEUE, MT OR NT (NEED COPYBACK).
02609 M01S02545.xedit +++|* (X5) = FILE NAME.
02610 M01S02546.xedit +++|* (X3) = OPTIONS.
02611 M01S02547.xedit +++|* (X4) = FNT ENTRY SHIFTED LEFT -6.
02612 M01S02548.xedit +++|
02613 M01S02549.xedit +++| EFQ1 NZ X3,EFQ2 IF HAVE EXIT TYPE
02614 M01S02550.xedit +++| SX3 1BS0 SET DEFAULT OF LOCAL
02615 M01S02551.xedit +++| NZ X0,EFQ2 IF NOT DEFAULT OF COPYBACK
02616 M01S02552.xedit +++| SX3 1BS3 SET DEFAULT OF COPYBACK
02617 M01S02553.xedit +++|
02618 M01S02554.xedit +++|* CLEAR *L* FLAG IF *C* FLAG USED.
02619 M01S02555.xedit +++|
02620 M01S02556.xedit +++| EFQ2 BX6 X3
02621 M01S02557.xedit +++| SX7 B1
02622 M01S02558.xedit +++| LX6 0-3
02623 M01S02559.xedit +++| BX6 X7*X6 GET *C* FLAG
02624 M01S02560.xedit +++| BX3 -X6*X3 CONDITIONALLY CLEAR *L*
02625 M01S02561.xedit +++| LX1 X3
02626 M01S02562.xedit +++|
02627 M01S02563.xedit +++|* CHECK MODIFICATIONS ALLOWED TO FILE.
02628 M01S02564.xedit +++|
02629 M01S02565.xedit +++| SX7 50000B/100B
02630 M01S02566.xedit +++| SB2 EMI.*100B+1
02631 M01S02567.xedit +++| BX7 X7*X4
02632 M01S02568.xedit +++| NZ X7,CER IF NOT ALLOWED TO MODIFY FILE, EXIT
02633 M01S02569.xedit +++| EFQ3 NZ X0,EFQ4 IF NOT DA/MT/NT
02634 M01S02570.xedit +++|
02635 M01S02571.xedit +++|* IF DA/MT/NT MAKE SURE *L* NOT USED.
02636 M01S02572.xedit +++|
02637 M01S02573.xedit +++| SB2 EMI.*100B+2
02638 M01S02574.xedit +++| LX1 59-0
02639 M01S02575.xedit +++| NG X1,CER IF *L* USED, EXIT
02640 M01S02576.xedit +++|
02641 M01S02577.xedit +++|* (X3) = EXIT BITS (LOCAL,REPLACE,SAVE,COPYBACK).
02642 M01S02578.xedit +++|* (X5) = FINAL FILE NAME.
02643 M01S02579.xedit +++|
02644 M01S02580.xedit +++| EFQ4 SA2 NOMOD SET NOMOD TO NOMOD .OR. FS
02645 M01S02581.xedit +++| SA1 FS IF NOT ON SCRATCH FILE, COPY TO ONE
02646 M01S02582.xedit +++| SA0 X3 MOVE EXIT BITS TO A0
02647 M01S02583.xedit +++| BX6 X1*X2 UPDATE NOMOD
02648 M01S02584.xedit +++| MX7 0
02649 M01S02585.xedit +++| SA6 A2
02650 M01S02586.xedit +++| SA7 IWHERE SET =0 TO FORCE COPY IF AT LINE 1
02651 M01S02587.xedit +++| RJ TOP COPY FILE TO SCRATCH FILE
02652 M01S02588.xedit +++| SX0 A0 SET STATUS BITS TO X0
02653 M01S02589.xedit +++| SA4 EFQA-1
02654 M01S02590.xedit +++| EFQ5 SA4 A4+B1 GET NEXT OPTION
02655 M01S02591.xedit +++| ZR X4,EFQ10 IF END OF OPTIONS
02656 M01S02592.xedit +++| UX3,B7 X4
02657 M01S02593.xedit +++| SB6 X4
02658 M01S02594.xedit +++| LX1 B7,X0
02659 M01S02595.xedit +++| PL X1,EFQ5 IF OPTION NOT SPECIFIED
02660 M01S02596.xedit +++| JP B6 PROCESS OPTION
02661 M01S02597.xedit +++|
02662 M01S02598.xedit +++|* PROCESS PFM OPTIONS.
02663 M01S02599.xedit +++|
02664 M01S02600.xedit +++| EFQ6 SA1 E.IN GET LOCAL NAME
| Line S02601 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit9 |
Seq # *Modification Id* Act
----------------------------+
02665 M02S02601.xedit9 ---| BX6 X5
02666 M01S02602.xedit +++| LX3 18 GET PFM CODE
02667 M01S02603.xedit +++| SX7 B1
02668 M01S00001.xedit9 +++| ERRNZ PTRD-1
02669 M01S00002.xedit9 +++| BX6 X5+X7
02670 M01S02604.xedit +++| BX7 X7+X1 SET COMPLETE
02671 M01S02605.xedit +++| SA7 PFET SET LOCAL NAME
02672 M01S02606.xedit +++| SX7 X3
02673 M01S02607.xedit +++| SA6 PFET+8 SET PERMANENT NAME
02674 M01S02608.xedit +++| SA0 A6 SAVE FILE NAME ADDRESS
02675 M01S02609.xedit +++| SX2 A7 SET FET ADDRESS
02676 M01S02610.xedit +++| RJ PFM= MAKE REQUEST
02677 M01S02611.xedit +++| SA1 X2
02678 M01S02612.xedit +++| MX6 -8
02679 M01S02613.xedit +++| AX1 10
02680 M01S02614.xedit +++| BX6 -X6*X1 GET PFM ERROR
02681 M01S02615.xedit +++| ZR X6,EFQ9 IF VERIFY ACTION
02682 M01S02616.xedit +++| ERROR PFM.,X6 ISSUE PFM ERROR MESSAGE
02683 M01S02617.xedit +++| EQ EFQ11 END OF COMMAND
02684 M01S02618.xedit +++|
02685 M01S02619.xedit +++|* PROCESS LFM RENAME OPTION.
02686 M01S02620.xedit +++|
| Line S02621 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02687 M02S02621.xedi13b ---| EFQ7 SA0 E.IN+6
02688 M01S00004.xedi13b +++| EFQ7 SA1 EFQB
02689 M01S00005.xedi13b +++| ZR X1,EFQ7.1 IF *AUTO DROP* STATUS
02690 M01S00006.xedi13b +++| SX1 X1-NDST
02691 M01S00007.xedi13b +++| NZ X1,EFQ8 IF STATUS OTHER THAN *NO AUTO DROP*
02692 M01S00008.xedi13b +++| EFQ7.1 SA0 E.IN+6
02693 M01S00001.xedi13a +++| BX6 X5
02694 M01S00002.xedi13a +++| SA6 A0 SET NEW NAME INTO FET
| Line S02622 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
Seq # *Modification Id* Act
----------------------------+
02695 M02S02622.xedit13 ---| SA1 SFET+6 OBTAIN FST ENTRY
| Line S00005 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02696 M02S00005.xedi13b ---| SA1 SFET+5 OBTAIN FNT ENTRY
| Line S00006 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02697 M02S00006.xedi13b ---| MX4 -6
| Line S00007 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02698 M02S00007.xedi13b ---| BX4 -X4*X1 GET FILE STATUS FIELD
| Line S00008 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02699 M03S00008.xedi13b ---| SX1 X4-NDST = 0, IF FILE STATUS IS *NO AUTO DROP*
| Line S00009 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02700 M03S00009.xedi13b ---| IX1 X1*X4 = 0, ONLY IF *AUTO DROP* OR *NO AUTO DROP*
| Line S00003 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02701 M02S00003.xedi13b ---| ZR X4,EFQ7.1 IF *AUTO DROP* STATUS
| Line S00004 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02702 M02S00004.xedi13b ---| SX1 X4-NDST
| Line S00005 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02703 M02S00005.xedi13b ---| NZ X1,EFQ8 IF NOT *NO AUTO DROP* STATUS
| Line S00006 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02704 M02S00006.xedi13b ---| SETFS SFET,NAD RESTORE *NO AUTO DROP* STATUS
02705 M01S00009.xedi13b +++| RENAME E.IN RENAME SCRATCH FILE
02706 M01S00010.xedi13b +++| SA1 X2
02707 M01S00011.xedi13b +++| SX7 17BS10
02708 M01S00012.xedi13b +++| BX7 X7*X1
02709 M01S00013.xedi13b +++| SA7 FS INDICATE NOT READING SCRATCH FILE
02710 M01S00014.xedi13b +++| NZ X7,EFQ7.2 IF ERROR IN *RENAME*
02711 M01S00015.xedi13b +++| SA1 EFQB GET FILE STATUS
02712 M01S00016.xedi13b +++| ZR X1,EFQ9 IF *AUTO DROP* STATUS
02713 M01S00017.xedi13b +++| SETFS E.IN,NAD RESTORE *NO AUTO DROP* STATUS
02714 M01S00007.xedi13a +++| SA1 X2 CHECK FOR ERRORS
02715 M01S00008.xedi13a +++| SX4 17BS10
02716 M01S00009.xedi13a +++| BX7 X4*X1
| Line S00010 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02717 M02S00010.xedi13b ---| NZ X7,EFQ7.2 IF ERROR IN *SETFS*
| Line S02623 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02718 M03S02623.xedi13b ---| BX6 X5
| Line S02624 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
M03 (Updated by) | xedi13a |
M04 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02719 M04S02624.xedi13b ---| MX7 6
| Line S02625 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
M03 (Updated by) | xedi13a |
M04 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02720 M04S02625.xedi13b ---| BX1 X7*X1 GET FILE *ID* FIELD
| Line S02626 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02721 M03S02626.xedi13b ---| SA6 A0 SET NEW NAME INTO FET
| Line S02627 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
M03 (Updated by) | xedi13a |
M04 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02722 M04S02627.xedi13b ---| NZ X1,EFQ8 IF ID .NE. 0, COPY TO MAINTAIN *ID*
| Line S00010 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02723 M03S00010.xedi13b ---| NZ X1,EFQ8 IF NEITHER *AUTO DROP* NOR *NO AUTO DROP*
| Line S02628 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02724 M03S02628.xedi13b ---| RENAME E.IN
| Line S00011 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02725 M02S00011.xedi13b ---| EFQ7.1 RENAME E.IN RENAME SCRATCH FILE
| Line S02629 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02726 M02S02629.xedi13b ---| SA1 X2
| Line S02630 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02727 M02S02630.xedi13b ---| SX7 17BS10
| Line S02631 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02728 M02S02631.xedi13b ---| BX7 X7*X1
| Line S02632 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02729 M02S02632.xedi13b ---| SA7 FS INDICATE NOT READING SCRATCH FILE
| Line S02633 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02730 M03S02633.xedi13b ---| ZR X7,EFQ9 IF NO ERROR
| Line S02634 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02731 M03S02634.xedi13b ---| ERROR LFM.
| Line S00011 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02732 M03S00011.xedi13b ---| NZ X7,EFQ7.1 IF ERROR DURING *RENAME*
| Line S00012 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02733 M03S00012.xedi13b ---| ZR X4,EFQ9 IF FILE STATUS IS *AUTO DROP*
| Line S00013 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02734 M03S00013.xedi13b ---| SETFS SFET,NAD
| Line S00014 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02735 M03S00014.xedi13b ---| SA1 X2
| Line S00015 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02736 M03S00015.xedi13b ---| SX4 17BS10
| Line S00016 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02737 M03S00016.xedi13b ---| BX7 X4*X1
| Line S00017 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02738 M03S00017.xedi13b ---| ZR X7,EFQ9 IF NO ERROR DURING *SETFS*
| Line S00018 Modification History |
M01 (Added by) | xedit13 |
M02 (Updated by) | xedi13a |
M03 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02739 M03S00018.xedi13b ---| EFQ7.1 ERROR LFM.
| Line S00012 Modification History |
M01 (Added by) | xedi13a |
M02 (Updated by) | xedi13b |
Seq # *Modification Id* Act
----------------------------+
02740 M02S00012.xedi13b ---| ZR X7,EFQ9 IF NO ERRORS IN *RENAME*
02741 M01S00018.xedi13b +++| ZR X7,EFQ9 IF NO ERRORS IN *SETFS*
02742 M01S00013.xedi13a +++| EFQ7.2 ERROR LFM.
02743 M01S02635.xedit +++| EQ EFQ11 END OF COMMAND
02744 M01S02636.xedit +++|
02745 M01S02637.xedit +++| EFQ8 READ E.IN START READ (ASSUMES NAME IN FET)
02746 M01S02638.xedit +++| SX6 B1
02747 M01S02639.xedit +++| BX6 X5+X6 SET COMPLETE
02748 M01S02640.xedit +++| SA6 CFET
02749 M01S02641.xedit +++| REWIND A6,RECALL RESET COPY FILE
02750 M01S02642.xedit +++| MX6 0
02751 M01S02643.xedit +++| SA6 CFET+5 CLEAR JUNK LEFT VIA STATUS
02752 M01S02644.xedit +++| SA6 A6+B1
02753 M01S02645.xedit +++| RJ CFF COPY FILE
02754 M01S02646.xedit +++| REWIND E.IN RESET EDIT FILE
02755 M01S02647.xedit +++| REWIND CFET,RECALL REWIND COPY FILE
02756 M01S02648.xedit +++| RECALL E.IN
02757 M01S02649.xedit +++| SA0 CFET SET FILE NAME POINTER
02758 M01S02650.xedit +++|
02759 M01S02651.xedit +++|* VERIFY ACTION.
02760 M01S02652.xedit +++|
02761 M01S02653.xedit +++| EFQ9 SA1 VERIFY
02762 M01S00019.xedit13 +++| SA4 A4 RESTORE THE *EFQ* OPTION WORD
02763 M01S00020.xedit13 +++| SX2 A0 SET FET ADDRESS
02764 M01S02654.xedit +++| PL X1,EFQ5 IF NOT TO VERIFY
| Line S02655 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit13 |
Seq # *Modification Id* Act
----------------------------+
02765 M02S02655.xedit13 ---| SX2 A0 SET FET ADDRESS
02766 M01S02656.xedit +++| AX4 18
02767 M01S02657.xedit +++| SA0 A4 SAVE VALUE OF A4
02768 M01S02658.xedit +++| FERROR X2,X4
02769 M01S02659.xedit +++| SA4 A0 RESET A4
02770 M01S02660.xedit +++| EQ EFQ5 GET NEXT OPTION
02771 M01S02661.xedit +++|
02772 M01S02662.xedit +++|* PROCESS END OF COMMAND.
02773 M01S02663.xedit +++|
02774 M01S02664.xedit +++| EFQ10 SA1 INDEX
02775 M01S02665.xedit +++| SX1 X1-.FILE
02776 M01S02666.xedit +++| NZ X1,EXT IF EXIT XEDIT
02777 M01S02667.xedit +++| EFQ11 READ E.IN,RECALL
02778 M01S02668.xedit +++| RJ RDF
02779 M01S02669.xedit +++| EQ NCM PROCESS END OF COMMAND
02780 M01S02670.xedit +++|
02781 M01S02671.xedit +++|* TABLE OF *EFQ* OPTIONS.
02782 M01S02672.xedit +++|* FORMAT IS-
02783 M01S02673.xedit +++|* 12/2000B+59-BIT NUMBER,6/PFM CODE,24/VERIFY ADDR,18/ROUTINE
02784 M01S02674.xedit +++|
02785 M01S02675.xedit +++| EFQA VFD 12/2000B+59-2,6/1,24/FSV.,18/EFQ6 SAVE
02786 M01S02676.xedit +++| VFD 12/2000B+59-1,6/6,24/FRP.,18/EFQ6 REPLACE
02787 M01S02677.xedit +++| VFD 12/2000B+59-0,6/0,24/FLC.,18/EFQ7 LOCAL
02788 M01S02678.xedit +++| VFD 12/2000B+59-3,6/0,24/FCP.,18/EFQ8 COPYBACK
02789 M01S02679.xedit +++| DATA 0
02790 M01S00019.xedi13b +++| EFQB BSS 1 STORAGE FOR EDIT FILE STATUS
02791 M01S02680.xedit +++| FLL SPACE 4,15
02792 M01S02681.xedit +++|** FLL - FIND LONG LINE PROCESSOR.
02793 M01S02682.xedit +++|*
02794 M01S02683.xedit +++|* ENTRY (NUMS) = NUMBER OF LONG LINES TO FIND.
02795 M01S02684.xedit +++|* (IW) = WIDTH. IGNORE LINES OF LENGTH .LE. WIDTH.
02796 M01S02685.xedit +++|*
02797 M01S02686.xedit +++|* EXIT TO *NCM*.
02798 M01S02687.xedit +++|*
02799 M01S02688.xedit +++|* USES A - 1, 2, 6.
02800 M01S02689.xedit +++|* X - 1, 2, 6.
02801 M01S02690.xedit +++|*
02802 M01S02691.xedit +++|* CALLS SAC, VFY.
02803 M01S02692.xedit +++|
02804 M01S02693.xedit +++|
02805 M01S02694.xedit +++| FLL RJ SAC SET ASCII PROCESSING
02806 M01S02695.xedit +++| FLL1 SA1 E.STR-1 GET CHARS IN CURRENT LINE
02807 M01S02696.xedit +++| SA2 IW
02808 M01S02697.xedit +++| IX1 X2-X1
02809 M01S02698.xedit +++| PL X1,FLL2 IF LINE TOO SHORT
02810 M01S02699.xedit +++| RJ VRY VERIFY LONG LINE
02811 M01S02700.xedit +++| SA1 NUMS
| Line S02701 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02812 M02S02701.xedit21 ---| SX6 X1-1
02813 M01S00013.xedit21 +++| SX6 B1
02814 M01S00014.xedit21 +++| IX6 X1-X6
02815 M01S02702.xedit +++| AX1 1
02816 M01S02703.xedit +++| ZR X1,NCM IF COUNT FINISHED, EXIT
02817 M01S02704.xedit +++| SA6 A1
02818 M01S02705.xedit +++| FLL2 RJ WTF ADVANCE TO NEXT LINE
02819 M01S02706.xedit +++| RJ RDF
02820 M01S02707.xedit +++| EQ FLL1 CHECK NEXT LINE
02821 M01S02708.xedit +++| FLN SPACE 4,15
02822 M01S02709.xedit +++|** FLN - ADVANCE TO SPECIFIED LINE NUMBER.
02823 M01S02710.xedit +++|*
02824 M01S02711.xedit +++|* ENTRY (NUMS) = LINE NUMBER.
02825 M01S02712.xedit +++|*
02826 M01S02713.xedit +++|* EXIT TO *VRT*.
02827 M01S02714.xedit +++|*
02828 M01S02715.xedit +++|* USES A - 1.
| Line S02716 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02829 M02S02716.xedit21 ---|* X - 1.
| Line S02717 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02830 M02S02717.xedit21 ---|* B - 2.
02831 M01S00015.xedit21 +++|* X - 1, 6.
02832 M01S02718.xedit +++|*
02833 M01S02719.xedit +++|* CALLS GLN.
02834 M01S02720.xedit +++|
02835 M01S02721.xedit +++|
02836 M01S02722.xedit +++| FLN SA1 NUMS
| Line S02723 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02837 M02S02723.xedit21 ---| SB2 X1
| Line S02724 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02838 M02S02724.xedit21 ---| GE B2,B1,FLN1 IF LINE NUMBER SPECIFIED
02839 M01S00016.xedit21 +++| SX6 B1
02840 M01S00017.xedit21 +++| IX6 X1-X6
02841 M01S00018.xedit21 +++| PL X6,FLN1 IF LINE NUMBER SPECIFIED
02842 M01S02725.xedit +++| SX1 B1+
02843 M01S02726.xedit +++| FLN1 RJ GLN GET LINE NUMBER
02844 M01S02727.xedit +++| EQ VRT EXIT, VERIFY LINE
02845 M01S02728.xedit +++| IIB SPACE 4,15
02846 M01S02729.xedit +++|** IIB - *INSERT* AND *INSERT BEFORE* PROCESSOR.
02847 M01S02730.xedit +++|*
02848 M01S02731.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO INSERT.
02849 M01S02732.xedit +++|* (X1) = PROCESSOR ADDRESS.
02850 M01S02733.xedit +++|*
02851 M01S02734.xedit +++|* EXIT TO *NCM*.
02852 M01S02735.xedit +++|*
02853 M01S02736.xedit +++|* USES X - 1, 2, 6, 7.
02854 M01S02737.xedit +++|* A - 0, 1, 2, 6, 7.
| Line S02738 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02855 M02S02738.xedit21 ---|* B - 2, 7.
02856 M01S00019.xedit21 +++|* B - 7.
02857 M01S02739.xedit +++|*
02858 M01S02740.xedit +++|* CALLS RDL, TCD, TLB, WTF.
02859 M01S02741.xedit +++|*
02860 M01S02742.xedit +++|* MACROS WRITEC.
02861 M01S02743.xedit +++|*
02862 M01S02744.xedit +++|* NOTES A NULL LINE WILL OVERRIDE THE LINE COUNT.
02863 M01S02745.xedit +++|
02864 M01S02746.xedit +++|
02865 M01S02747.xedit +++| IIB BSS 0 ENTRY
02866 M01S02748.xedit +++| AX1 18 GET ROUTINE JUMP ADDRESS
02867 M01S02749.xedit +++| SA2 NUMS
02868 M01S02750.xedit +++| SA0 X1 SET JUMP ADDRESS
| Line S02751 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit2 |
Seq # *Modification Id* Act
----------------------------+
02869 M02S02751.xedit2 ---| SX6 X2-1 DECREMENT COUNT FOR EASIER TESTING
02870 M01S00001.xedit2 +++| SX6 B1
02871 M01S00002.xedit2 +++| IX6 X2-X6
| Line S02752 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02872 M02S02752.xedit21 ---| SB2 X2
| Line S02753 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02873 M02S02753.xedit21 ---| SA6 A2
02874 M01S00020.xedit21 +++| SA6 A2+
02875 M01S02754.xedit +++| IIB1 RJ RDL GET DATA LINE
02876 M01S02755.xedit +++| NZ X1,NCM IF A NULL LINE ENCOUNTERED
02877 M01S02756.xedit +++| RJ TCD TAB CODED DATA LINE
02878 M01S02757.xedit +++| IIB2 SB7 A0
02879 M01S02758.xedit +++| JP B7 EXECUTE PROCESSOR
02880 M01S02759.xedit +++|
02881 M01S02760.xedit +++|* *INSERT BEFORE* PROCESSOR.
02882 M01S02761.xedit +++|
02883 M01S02762.xedit +++| IIB3 WRITEC E.OUT,D.LINE PUT LINE JUST RECEIVED
02884 M01S02763.xedit +++| SA1 IWHERE UPDATE *IWHERE*
| Line S02764 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit2 |
Seq # *Modification Id* Act
----------------------------+
02885 M02S02764.xedit2 ---| SX6 X1+1
02886 M01S00003.xedit2 +++| SX6 B1
02887 M01S00004.xedit2 +++| IX6 X1+X6
02888 M01S02765.xedit +++| SA6 A1+
02889 M01S02766.xedit +++| EQ IIB5 PROCESS NEXT LINE
02890 M01S02767.xedit +++|
02891 M01S02768.xedit +++|* *INSERT* PROCESSOR.
02892 M01S02769.xedit +++|
02893 M01S02770.xedit +++| IIB4 RJ WTF WRITE EXISTING LINE
02894 M01S02771.xedit +++|
02895 M01S02772.xedit +++|* MOVE NEW LINE TO *E.LINE*.
02896 M01S02773.xedit +++|
02897 M01S02774.xedit +++| RJ TLB TRANSFER LINE TO BUFFER
02898 M01S02775.xedit +++| IIB5 SA1 NUMS
| Line S02776 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02899 M02S02776.xedit21 ---| SX6 X1-1
02900 M01S00021.xedit21 +++| SX6 B1
02901 M01S00022.xedit21 +++| IX6 X1-X6
02902 M01S02777.xedit +++| BX7 X7-X7
02903 M01S02778.xedit +++| SA6 A1 DECREMENT LINES LEFT
02904 M01S02779.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE
02905 M01S02780.xedit +++| PL X6,IIB1 IF MORE LINES
02906 M01S02781.xedit +++| EQ NCM EXIT
02907 M01S02782.xedit +++| INP SPACE 4,15
02908 M01S02783.xedit +++|** INP - ENTRY INPUT MODE REQUEST.
02909 M01S02784.xedit +++|*
02910 M01S02785.xedit +++|* ENTRY (NUMS) = ESCAPE CHARACTER.
02911 M01S02786.xedit +++|*
02912 M01S02787.xedit +++|* EXIT IF ERROR, TO *ABT* OR *CER*.
| Line S02788 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02913 M02S02788.xedit12 ---|* ELSE, TO *EDT*.
02914 M01S00006.xedit12 +++|* ELSE, TO *PEC*.
02915 M01S02789.xedit +++|*
02916 M01S02790.xedit +++|* USES A - 1, 2, 6, 7.
02917 M01S02791.xedit +++|* X - 1, 2, 6, 7.
02918 M01S02792.xedit +++|* B - 6, 7.
02919 M01S02793.xedit +++|*
02920 M01S02794.xedit +++|* CALLS RDL, RTA, STK, TAB, UPL, WTF.
02921 M01S02795.xedit +++|*
02922 M01S02796.xedit +++|* MACROS WRITEC.
02923 M01S02797.xedit +++|
02924 M01S02798.xedit +++|
02925 M01S02799.xedit +++| INP SA1 NUMS MOVE INPUT ESCAPE CHARACTER
02926 M01S02800.xedit +++| SA2 BATCH
02927 M01S02801.xedit +++| BX6 X1
02928 M01S02802.xedit +++| SB6 =C+ *INPUT* ESCAPE CHAR. REQUIRED - BATCH MODE.+
02929 M01S02803.xedit +++| PL X1,INP0 IF CHARACTER SPECIFIED
02930 M01S02804.xedit +++| NZ X2,ABT IF BATCH MODE, EXIT
02931 M01S02805.xedit +++| INP0 SA6 INPCHAR SET ESCAPE CHARACTER
02932 M01S02806.xedit +++|
02933 M01S02807.xedit +++| INP1 MX7 59 SET INPUT MODE
02934 M01S02808.xedit +++| SA7 INPMODE
02935 M01S02809.xedit +++| WRITEC OUTPUT,(=C* INPUT*)
02936 M01S02810.xedit +++| INP2 SA1 PREFIX
02937 M01S02811.xedit +++| SX6 1BS"PLUS"
02938 M01S02812.xedit +++| .CYB IF DEF,CYBRNET
02939 M01S02813.xedit +++| BX6 -X6*X1 CLEAR PLUS PREFIX
02940 M01S02814.xedit +++| .CYB ELSE
02941 M01S02815.xedit +++| BX6 X6+X1 SET + PREFIX
02942 M01S02816.xedit +++| .CYB ENDIF
02943 M01S02817.xedit +++| SA6 A1
02944 M01S02818.xedit +++| RJ RDL READ DATA LINE
| Line S02819 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit12 |
Seq # *Modification Id* Act
----------------------------+
02945 M02S02819.xedit12 ---| NZ X1,EDT IF <CR> (RETURN TO EDIT MODE)
02946 M01S00007.xedit12 +++| NZ X1,PEC IF <CR> (RETURN TO EDIT MODE)
02947 M01S02820.xedit +++| SA1 D.LINE
02948 M01S02821.xedit +++| SB6 D.STR
02949 M01S02822.xedit +++| RJ UPL UNPACK TEXT LINE
02950 M01S02823.xedit +++| SA1 D.STR
02951 M01S02824.xedit +++| SA2 INPCHAR
02952 M01S02825.xedit +++| IX2 X2-X1
02953 M01S02826.xedit +++| SB6 A1-B1
02954 M01S02827.xedit +++| ZR X2,INP3 IF INPUT MODE ESCAPE CHAR
02955 M01S02828.xedit +++| MX6 0
02956 M01S02829.xedit +++| SA6 NOMOD SET MODIFICATIONS MADE
02957 M01S02830.xedit +++| RJ TAB TAB TEXT LINE
02958 M01S02831.xedit +++| RJ WTF
02959 M01S02832.xedit +++| SB7 E.LINE SET DESTINATION
02960 M01S02833.xedit +++| SB6 D.STR
02961 M01S02834.xedit +++| RJ RTA PACK LINE INTO EDIT LINE BUFFER
02962 M01S02835.xedit +++| EQ INP2 PROCESS NEXT LINE
02963 M01S02836.xedit +++|
02964 M01S02837.xedit +++| INP3 SB7 S.LINE PACK COMMAND LINE INTO SPECIAL BUFFER
02965 M01S02838.xedit +++| SB6 D.STR+1 AND SKIP ESCAPE CHARACTER
02966 M01S02839.xedit +++| RJ RTA
02967 M01S02840.xedit +++| SA1 S.DEV
02968 M01S02841.xedit +++| RJ STK PROCESS ESCAPED COMMANDS
02969 M01S02842.xedit +++| SB2 STK.
02970 M01S02843.xedit +++| EQ CER COMMAND STACKING ERROR, EXIT
02971 M01S02844.xedit +++| LCT SPACE 4,20
02972 M01S02845.xedit +++|** LCT - LOCATE SPECIFIED STRING.
02973 M01S02846.xedit +++|*
| Line S02847 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02974 M02S02847.xedit21 ---|* ENTRY (NUMS) = NUMBER OF MATCHES TO FIND.
02975 M01S00023.xedit21 +++|* ENTRY (X5) .NE. 0.
02976 M01S00024.xedit21 +++|* (NUMS) = NUMBER OF MATCHES TO FIND.
02977 M01S02848.xedit +++|* IF -0, THEN DO NOT ADVANCE POINTER.
02978 M01S02849.xedit +++|* (MCOUNT) = 0.
02979 M01S02850.xedit +++|* STRING POINTERS ARE INITIALIZED PROPERLY.
02980 M01S02851.xedit +++|*
02981 M01S02852.xedit +++|* EXIT TO *NCM*.
02982 M01S02853.xedit +++|*
02983 M01S02854.xedit +++|* USES A - 1, 2, 3, 6, 7.
02984 M01S02855.xedit +++|* X - 1, 2, 3, 5, 6, 7.
02985 M01S02856.xedit +++|* B - 4.
02986 M01S02857.xedit +++|*
02987 M01S02858.xedit +++|* CALLS LOC, RDF, VRY, WTF.
02988 M01S02859.xedit +++|*
02989 M01S02860.xedit +++|* MACROS ERROR.
02990 M01S02861.xedit +++|
02991 M01S02862.xedit +++|
| Line S02863 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02992 M02S02863.xedit21 ---|LCTA SX5 0 SET NOT TO CALL LOC
| Line S02864 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
02993 M02S02864.xedit21 ---| LCT SA1 NUMS
02994 M01S00025.xedit21 +++| IF DEF,TIMES
02995 M01S00026.xedit21 +++| LCTA BSS 0 TIMING ENTRY
02996 M01S00027.xedit21 +++| SX5 0 SET NOT TO CALL LOC
02997 M01S00028.xedit21 +++| ENDIF
02998 M01S00029.xedit21 +++|
02999 M01S00030.xedit21 +++| LCT BSS 0 NORMAL ENTRY
03000 M01S00031.xedit21 +++| SA1 NUMS
03001 M01S02865.xedit +++| NZ X1,LCT1 IF COUNT IS .NE. 0
03002 M01S02866.xedit +++| NG X1,LCT1 IF *0* COUNT WAS SPECIFIED
03003 M01S02867.xedit +++| SX6 B1 RESET COUNT TO 1
03004 M01S02868.xedit +++| SA6 A1
03005 M01S02869.xedit +++| LCT1 SB4 E.STR-1 SET FWA-1 FOR SEARCH
03006 M01S00032.xedit21 +++|
03007 M01S00033.xedit21 +++| IF DEF,TIMES,1
03008 M01S02870.xedit +++| ZR X5,LCT1.1 IF IN DEBUGGING MODE
03009 M01S00034.xedit21 +++|
03010 M01S02871.xedit +++| RJ LOC SEARCH EXISTING LINE FOR STRING
| Line S02872 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03011 M02S02872.xedit21 ---| LCT1.1 ZR B5,LCT3 IF STRING NOT FOUND
03012 M01S00035.xedit21 +++|
03013 M01S00036.xedit21 +++| IF DEF,TIMES,1
03014 M01S00037.xedit21 +++| LCT1.1 BSS 0
03015 M01S00038.xedit21 +++|
03016 M01S00039.xedit21 +++| ZR B5,LCT3 IF STRING NOT FOUND
03017 M01S02873.xedit +++| RJ VRY
03018 M01S02874.xedit +++| SA2 MCOUNT
03019 M01S02875.xedit +++| SA1 NUMS
| Line S02876 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03020 M02S02876.xedit21 ---| SX7 X2+B1 INCREMENT NUMBER OF MATCHES
| Line S02877 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03021 M02S02877.xedit21 ---| SX6 X1-1 DECREMENT NUMBER OF LINES
03022 M01S00040.xedit21 +++| SX6 B1
03023 M01S00041.xedit21 +++| IX7 X2+X6 INCREMENT NUMBER OF MATCHES
03024 M01S00042.xedit21 +++| IX6 X1-X6 DECREMENT NUMBER OF LINES
03025 M01S02878.xedit +++| SA7 A2
03026 M01S02879.xedit +++| AX1 1
03027 M01S02880.xedit +++| ZR X1,NCM IF FINISHED, EXIT
03028 M01S02881.xedit +++| SA6 A1
03029 M01S02882.xedit +++| LCT2 RJ WTF ADVANCE TO NEXT LINE
03030 M01S02883.xedit +++| RJ RDF
03031 M01S02884.xedit +++| EQ LCT1 SEARCH NEXT LINE
03032 M01S02885.xedit +++|
03033 M01S02886.xedit +++|* STRING NOT IN LINE. CHECK FOR *0* OPTION.
03034 M01S02887.xedit +++|
03035 M01S02888.xedit +++| LCT3 SA1 NUMS
03036 M01S02889.xedit +++| NZ X1,LCT2 IF NOT *0* OPTION
03037 M01S02890.xedit +++| LCT4 ERROR SNF. ENTRY FOR * STRING NOT FOUND.*
03038 M01S02891.xedit +++| SA3 C.STR-1 SET TO *READ* FOR NEXT CMD
03039 M01S02892.xedit +++| PX6 B0,X3
03040 M01S02893.xedit +++| SA6 A3
03041 M01S02894.xedit +++| EQ NCM EXIT
03042 M01S02895.xedit +++| MOD SPACE 4,10
03043 M01S02896.xedit +++|** MOD - MODIFY LINE(S).
03044 M01S02897.xedit +++|*
03045 M01S02898.xedit +++|* ENTRY AT *MOD* FOR *MODIFY* COMMAND.
03046 M01S02899.xedit +++|* AT *MOD1* FOR *QMOD* COMMAND.
03047 M01S02900.xedit +++|* AT *MOD2* FOR *YQMOD* COMMAND.
03048 M01S02901.xedit +++|*
03049 M01S02902.xedit +++|* USES A - 1, 3, 6, 7.
03050 M01S02903.xedit +++|* X - 1, 3, 6, 7.
03051 M01S02904.xedit +++|*
03052 M01S02905.xedit +++|* CALLS ETL, ITM, MDY, PCN, RDF, RDL, SAC, SCD, VRY, WTF.
03053 M01S02906.xedit +++|
03054 M01S02907.xedit +++|
03055 M01S02908.xedit +++|* ENTRY TO PROCESS *MODIFY* COMMAND.
03056 M01S02909.xedit +++|
03057 M01S02910.xedit +++| MOD RJ SCD SET CODED FOR SHIFT
03058 M01S02911.xedit +++| SX6 1
03059 M01S02912.xedit +++| SA1 E.LINE
03060 M01S02913.xedit +++| SA6 NUMS FORCE COUNT TO 1
03061 M01S02914.xedit +++| SA3 MODA SET SHIFT WORD
03062 M01S02915.xedit +++| RJ ETL ECHO TEXT LINE
03063 M01S02916.xedit +++| EQ MOD2 PERFORM MODIFICATION
03064 M01S02917.xedit +++|
03065 M01S02918.xedit +++|* ENTRY FOR *QMOD* COMMAND.
03066 M01S02919.xedit +++|
03067 M01S02920.xedit +++| MOD1 RJ PCN PRINT COLUMN NUMBERS
03068 M01S02921.xedit +++|
03069 M01S02922.xedit +++|* ENTRY FOR *YQMOD* COMMAND.
03070 M01S02923.xedit +++|
03071 M01S02924.xedit +++| MOD2 RJ SAC SET ASCII PROCESSING
03072 M01S02925.xedit +++| RJ RDL READ DATA LINE
03073 M01S02926.xedit +++| NZ X1,NCM IF NOTHING THERE, EXIT
03074 M01S02927.xedit +++| MOD3 RJ MDY MODIFY LINE
03075 M01S02928.xedit +++| PL B3,MOD4 IF NO TRUNCATION
03076 M01S02929.xedit +++| RJ ITM
03077 M01S02930.xedit +++| MOD4 SX7 1
03078 M01S02931.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE
03079 M01S02932.xedit +++| SA7 E.LMOD SET LINE MODIFICATIONS MADE
03080 M01S02933.xedit +++| RJ VRY AND THEN VERIFY IT
03081 M01S02934.xedit +++| SA1 NUMS
| Line S02935 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03082 M02S02935.xedit21 ---| SX6 X1-1
03083 M01S00043.xedit21 +++| SX6 B1
03084 M01S00044.xedit21 +++| IX6 X1-X6
03085 M01S02936.xedit +++| AX1 1
03086 M01S02937.xedit +++| ZR X1,NCM IF FINISHED
03087 M01S02938.xedit +++| SA6 A1
03088 M01S02939.xedit +++| RJ WTF
03089 M01S02940.xedit +++| RJ RDF
03090 M01S02941.xedit +++| EQ MOD3 PROCESS NEXT LINE
03091 M01S02942.xedit +++|
03092 M01S02943.xedit +++| MODA CON 2L +11 PARAMETER FOR *ETL*
03093 M01S02944.xedit +++|
03094 M01S02945.xedit +++| MOD RMT BATCH PARAMETER DEFINITION
03095 M01S02946.xedit +++| CON 3L +17
03096 M01S02947.xedit +++| RMT
03097 M01S02948.xedit +++|
03098 M01S02949.xedit +++| NXT SPACE 4,10
03099 M01S02950.xedit +++|** NXT - PROCESS NEXT COMMAND.
03100 M01S02951.xedit +++|*
03101 M01S02952.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO MOVE.
03102 M01S02953.xedit +++|* (NUMS+1) = DIRECTION OF MOVE (-0 = BACKWARDS,
03103 M01S02954.xedit +++|* +0 = FORWARDS).
03104 M01S02955.xedit +++|*
03105 M01S02956.xedit +++|* USES A - 1, 2, 6.
03106 M01S02957.xedit +++|* X - 1, 2, 6.
03107 M01S02958.xedit +++|*
03108 M01S02959.xedit +++|* CALLS MPR, VRT.
03109 M01S02960.xedit +++|
03110 M01S02961.xedit +++|
03111 M01S02962.xedit +++| NXT SA1 NUMS
03112 M01S02963.xedit +++| MX6 0 SET E.NMODE TO CODED
03113 M01S02964.xedit +++| SA2 A1+B1
03114 M01S02965.xedit +++| BX1 X1-X2 OBTAIN PROPER DISPLACEMENT
03115 M01S02966.xedit +++| NZ X1,NXT1 IF NOT ZERO DISPLACEMENT (ASSUME 1)
03116 M01S02967.xedit +++| SX1 B1 SET *NEXT-1* COMMAND
03117 M01S02968.xedit +++| NXT1 SA6 E.NMODE
03118 M01S02969.xedit +++| RJ MPR MOVE THE POINTER
03119 M01S02970.xedit +++| EQ VRT VERIFY AND RETURN
03120 M01S02971.xedit +++| PNT SPACE 4,15
03121 M01S02972.xedit +++|** PNT - PRINT COMMAND PROCESSOR.
03122 M01S02973.xedit +++|*
03123 M01S02974.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO PRINT.
03124 M01S02975.xedit +++|*
03125 M01S02976.xedit +++|* EXIT TO *NCM*.
03126 M01S02977.xedit +++|*
03127 M01S02978.xedit +++|* USES A - 1, 2, 4, 6.
03128 M01S02979.xedit +++|* X - 1, 2, 4, 6.
03129 M01S02980.xedit +++|*
03130 M01S02981.xedit +++|* CALLS RDF, SCD, WTF.
03131 M01S02982.xedit +++|*
03132 M01S02983.xedit +++|* MACROS WRITEC.
03133 M01S02984.xedit +++|
03134 M01S02985.xedit +++|
03135 M01S02986.xedit +++| PNT SA1 NUMS
03136 M01S02987.xedit +++| SA2 IWHERE
| Line S02988 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03137 M02S02988.xedit21 ---| SX6 X1-1 DECREMENT BY ONE (MAKE TESTING EASIER)
03138 M01S00045.xedit21 +++| SX6 B1
03139 M01S00046.xedit21 +++| IX6 X1-X6 DECREMENT BY ONE (MAKE TESTING EASIER)
03140 M01S02989.xedit +++| NG X2,PNT2 IF IN CREATION MODE
03141 M01S02990.xedit +++| SA6 NUMS
03142 M01S02991.xedit +++| RJ SCD SET CODED LINE FORMAT
03143 M01S02992.xedit +++| PNT1 SA4 IW PRINT LINE
03144 M01S02993.xedit +++| WRITEC OUTPUT,E.LINE
03145 M01S02994.xedit +++| SA1 NUMS
| Line S02995 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03146 M02S02995.xedit21 ---| SX6 X1-1 DECREMENT COUNT
03147 M01S00047.xedit21 +++| SX6 B1
03148 M01S00048.xedit21 +++| IX6 X1-X6 DECREMENT COUNT
03149 M01S02996.xedit +++| NG X6,NCM IF DONE, EXIT
03150 M01S02997.xedit +++| SA6 NUMS
03151 M01S02998.xedit +++| RJ WTF
03152 M01S02999.xedit +++| RJ RDF
03153 M01S03000.xedit +++| EQ PNT1 PRINT NEXT LINE
03154 M01S03001.xedit +++|
03155 M01S03002.xedit +++| PNT2 WRITEC OUTPUT,(=C* NULL LINE - IN CREATION MODE*)
03156 M01S03003.xedit +++| EQ NCM EXIT
03157 M01S03004.xedit +++| RLP SPACE 4,15
03158 M01S03005.xedit +++|** RLP - *REPLACE* PROCESSOR.
03159 M01S03006.xedit +++|*
03160 M01S03007.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO REPLACE.
03161 M01S03008.xedit +++|*
03162 M01S03009.xedit +++|* EXIT TO *NCM*.
03163 M01S03010.xedit +++|*
03164 M01S03011.xedit +++|* USES X - 2, 6, 7.
03165 M01S03012.xedit +++|* A - 2, 6, 7.
| Line S03013 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03166 M02S03013.xedit21 ---|* B - 6.
03167 M01S03014.xedit +++|*
03168 M01S03015.xedit +++|* CALLS RDF, RDL, TCD, TLB, WTF.
03169 M01S03016.xedit +++|*
03170 M01S03017.xedit +++|* NOTES A NULL LINE WILL OVERRIDE THE LINE COUNT.
03171 M01S03018.xedit +++|
03172 M01S03019.xedit +++|
03173 M01S03020.xedit +++| RLP1 RJ WTF COPY DATA LINE TO EDIT FILE
03174 M01S03021.xedit +++|
03175 M01S03022.xedit +++|* READ EDIT FILE. IF EOI, EXIT TO *NCM*.
03176 M01S03023.xedit +++|
03177 M01S03024.xedit +++| RJ RDF
03178 M01S03025.xedit +++|
03179 M01S03026.xedit +++| RLP BSS 0 ENTRY
03180 M01S03027.xedit +++| RJ RDL GET DATA LINE
03181 M01S03028.xedit +++| NZ X1,NCM IF EMPTY <CR> WAS ENCOUNTERED
03182 M01S03029.xedit +++| RJ TCD TAB CODED DATA LINE
03183 M01S03030.xedit +++| RJ TLB TRANSFER LINE TO *E.LINE*
03184 M01S03031.xedit +++| SA2 NUMS DECREMENT LINE COUNT
| Line S03032 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03185 M02S03032.xedit21 ---| SX6 X2-1
03186 M01S00049.xedit21 +++| SX7 B1
03187 M01S00050.xedit21 +++| IX6 X2-X7
03188 M01S00051.xedit21 +++| IX2 X6-X7
03189 M01S03033.xedit +++| BX7 X7-X7
| Line S03034 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03190 M02S03034.xedit21 ---| SB6 X6
03191 M01S03035.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE
03192 M01S03036.xedit +++| SA6 A2+
| Line S03037 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03193 M02S03037.xedit21 ---| GT B6,B0,RLP1 IF LINE COUNT NOT EXHAUSTED
03194 M01S00052.xedit21 +++| PL X2,RLP1 IF LINE COUNT NOT EXHAUSTED
03195 M01S03038.xedit +++| EQ NCM EXIT
03196 M01S03039.xedit +++| RMA SPACE 4,15
03197 M01S03040.xedit +++|** RMA - PROCESS RIGHT MARGIN COMMAND.
03198 M01S03041.xedit +++|*
03199 M01S03042.xedit +++|* ENTRY (NUMS) = NEW VALUE OF MARGIN (0 = RESET TO MAXIMUM).
03200 M01S03043.xedit +++|*
03201 M01S03044.xedit +++|* EXIT (IW) = THE VALUE OF THE RIGHT MARGIN.
03202 M01S03045.xedit +++|* IF NO PARAMETER GIVEN, *MAXWD*.
03203 M01S03046.xedit +++|* IF WIDTH IS NOT IN RANGE, TO *CER*, ELSE TO *NCM*.
03204 M01S03047.xedit +++|*
03205 M01S03048.xedit +++|* USES A - 1, 6.
03206 M01S03049.xedit +++|* X - 1, 2, 3, 6.
03207 M01S03050.xedit +++|* B - 2.
03208 M01S03051.xedit +++|
03209 M01S03052.xedit +++|
03210 M01S03053.xedit +++| RMA SA1 NUMS
03211 M01S03054.xedit +++| SX3 X1-MAXWD-1
03212 M01S03055.xedit +++| NZ X1,RMA1 IF WIDTH SPECIFIED (ELSE DEFAULT TO 160)
03213 M01S03056.xedit +++| SX1 160D
03214 M01S03057.xedit +++| RMA1 SX2 X1-MINWD
03215 M01S03058.xedit +++| BX3 -X3+X2
03216 M01S03059.xedit +++| LX6 X1
03217 M01S03060.xedit +++| SB2 ILL.
03218 M01S03061.xedit +++| NG X3,CER IF WIDTH NOT IN RANGE
03219 M01S03062.xedit +++| SA6 IW
03220 M01S03063.xedit +++| EQ NCM EXIT
03221 M01S03064.xedit +++| SWN SPACE 4,15
03222 M01S03065.xedit +++|** SWN - SET WINDOWS.
03223 M01S03066.xedit +++|*
03224 M01S03067.xedit +++|* ENTRY (NUMS) = LEFT WINDOW.
03225 M01S03068.xedit +++|* (NUMS+1) = RIGHT MARGIN.
03226 M01S03069.xedit +++|*
03227 M01S03070.xedit +++|* EXIT (LMW) = LEFT WINDOW.
03228 M01S03071.xedit +++|* (RMW) = RIGHT WINDOW.
03229 M01S03072.xedit +++|* (RTWD) = RIGHT WINDOW MARGIN.
03230 M01S03073.xedit +++|* IF ERROR, TO *CER*, ELSE TO *NCM*.
03231 M01S03074.xedit +++|*
03232 M01S03075.xedit +++|* USES A - 1, 2, 6, 7.
03233 M01S03076.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
03234 M01S03077.xedit +++|* B - 2.
03235 M01S03078.xedit +++|
03236 M01S03079.xedit +++|
03237 M01S03080.xedit +++| SWN SA1 NUMS
03238 M01S03081.xedit +++| SA2 A1+B1
03239 M01S03082.xedit +++| IX3 X2-X1 POSITIVE, IF LEFT .LE. RIGHT
03240 M01S03083.xedit +++| SX4 X1-1 POSITIVE IF 0 .LT. LEFT
03241 M01S03084.xedit +++| SX5 X2-161 NEGATIVE IF RIGHT .LE. 160
03242 M01S03085.xedit +++| BX3 X3+X4
03243 M01S03086.xedit +++| BX3 -X5+X3
03244 M01S03087.xedit +++|
03245 M01S03088.xedit +++|* (X3) = POSITIVE, IF 0 .LT. LEFT .LE. RIGHT .LE. 160.
03246 M01S03089.xedit +++|
03247 M01S03090.xedit +++| SB2 ARG.
03248 M01S03091.xedit +++| NG X3,CER IF ARGUMENTS NOT PROPER
03249 M01S03092.xedit +++| SX7 X2+
03250 M01S03093.xedit +++| SA7 RTWD
03251 M01S03094.xedit +++| SX6 X1+E.STR-2 SET FWA -1 OF START
03252 M01S03095.xedit +++| SX7 X2+E.STR SET LWA+1 FOR SEARCH
03253 M01S03096.xedit +++| SA6 LMW
03254 M01S03097.xedit +++| SA7 A6+B1
03255 M01S03098.xedit +++| EQ NCM EXIT
03256 M01S03099.xedit +++| RST SPACE 4,15
03257 M01S03100.xedit +++|** RST - RESTORE FILE TO PREVIOUS CONDITION.
03258 M01S03101.xedit +++|*
03259 M01S03102.xedit +++|* ENTRY NONE.
03260 M01S03103.xedit +++|*
03261 M01S03104.xedit +++|* EXIT TO *NCM*.
03262 M01S03105.xedit +++|* (IWHERE) = 0.
03263 M01S03106.xedit +++|* (NOMOD) = 73B, INDICATES NO MODIFICATIONS.
03264 M01S03107.xedit +++|*
03265 M01S03108.xedit +++|* USES A - 6, 7.
03266 M01S03109.xedit +++|* X - 6, 7.
03267 M01S03110.xedit +++|*
03268 M01S03111.xedit +++|* CALLS TOP.
03269 M01S03112.xedit +++|
03270 M01S03113.xedit +++|
03271 M01S03114.xedit +++| RST BX7 X7-X7 SET IWHERE TO 0 (FORCE REWIND)
03272 M01S03115.xedit +++| MX6 73B SET *NOMOD* TO INDICATE NO MODIFICATIONS
03273 M01S03116.xedit +++| SA7 IWHERE
03274 M01S03117.xedit +++| SA6 NOMOD
03275 M01S03118.xedit +++| RJ TOP RESET FILES
03276 M01S03119.xedit +++| EQ NCM EXIT
03277 M01S03120.xedit +++| SCH SPACE 4,10
03278 M01S03121.xedit +++|** SCH - SET CHARACTER IN WORD.
03279 M01S03122.xedit +++|*
03280 M01S03123.xedit +++|* ENTRY (NUMS) = CHARACTER FOR PLACEMENT.
03281 M01S03124.xedit +++|* (X1) = ADDRESS TO PLACE CHARACTER.
03282 M01S03125.xedit +++|*
03283 M01S03126.xedit +++|* EXIT TO *NCM*
03284 M01S03127.xedit +++|* ((X1)) = (NUMS).
03285 M01S03128.xedit +++|*
03286 M01S03129.xedit +++|* USES A - 2, 6.
03287 M01S03130.xedit +++|* X - 1, 2, 6.
03288 M01S03131.xedit +++|
03289 M01S03132.xedit +++|
03290 M01S03133.xedit +++| SCH AX1 18 SHIFT MODIFIER WORD
03291 M01S03134.xedit +++| SA2 NUMS
03292 M01S03135.xedit +++| SX1 X1 REMOVE EXCESS CHARACTERS
03293 M01S03136.xedit +++| LX1 -1
03294 M01S03137.xedit +++| BX6 X2
03295 M01S03138.xedit +++| SA6 X1+ PUT CHARACTER
03296 M01S03139.xedit +++| EQ NCM EXIT
03297 M01S03140.xedit +++| SFG SPACE 4,20
03298 M01S03141.xedit +++|** SFG - SET FLAG.
03299 M01S03142.xedit +++|*
03300 M01S03143.xedit +++|* ENTRY (X1) = COMMAND DESCRIPTOR WORD, FORM IS -
03301 M01S03144.xedit +++|* 24/,17/ADDR,1/MODE,18/
03302 M01S03145.xedit +++|* ADDR = ADDRESS OF THE FLAG TO SET.
03303 M01S03146.xedit +++|* MODE = SET, IF *VERIFY* MODE.
03304 M01S03147.xedit +++|* CLEAR, IF *BRIEF* MODE.
03305 M01S03148.xedit +++|* (NUMS) = +- PARAMETER,
03306 M01S03149.xedit +++|* IF NEGATIVE, SET FLAG TO CONDITION OPPOSITE
03307 M01S03150.xedit +++|* THAT INDICATED BY *MODE*.
03308 M01S03151.xedit +++|* IF POSITIVE, SET FLAG TO CONDITION INDICATED
03309 M01S03152.xedit +++|* BY *MODE*.
03310 M01S03153.xedit +++|*
03311 M01S03154.xedit +++|* EXIT TO *NCM*.
03312 M01S03155.xedit +++|*
03313 M01S03156.xedit +++|* USES A - 3, 6.
03314 M01S03157.xedit +++|* X - 1, 3, 6.
03315 M01S03158.xedit +++|
03316 M01S03159.xedit +++|
03317 M01S03160.xedit +++| SFG AX1 18
03318 M01S03161.xedit +++| SX1 X1 ISOLATE PARAMETER
03319 M01S03162.xedit +++| SA3 NUMS GET +- MODE
03320 M01S03163.xedit +++| LX1 -1
03321 M01S03164.xedit +++| BX6 X1-X3 OBTAIN PROPER CONDITION
03322 M01S03165.xedit +++| SA6 X1 SAVE NEW VALUE
03323 M01S03166.xedit +++| EQ NCM EXIT
03324 M01S03167.xedit +++| STB SPACE 4,10
03325 M01S03168.xedit +++|** STB - SET TABS.
03326 M01S03169.xedit +++|*
03327 M01S03170.xedit +++|* ENTRY (NUMS TO NUMS+NTABS) = TAB SETTINGS DESIRED.
03328 M01S03171.xedit +++|*
03329 M01S03172.xedit +++|* EXIT (TABS - TABS+NTABS-1) = IF ALL PARAMETERS ARE VALID
03330 M01S03173.xedit +++|* NEW TAB SETTINGS.
03331 M01S03174.xedit +++|* IF PARAMETERS ARE VALID, TO *NCM*, ELSE TO *CER*.
03332 M01S03175.xedit +++|*
03333 M01S03176.xedit +++|* USES A - 1, 2, 6, 7.
03334 M01S03177.xedit +++|* X - 1, 2, 6, 7.
03335 M01S03178.xedit +++|* B - 2, 5, 6, 7.
03336 M01S03179.xedit +++|
03337 M01S03180.xedit +++|
03338 M01S03181.xedit +++| STB SA1 IW
03339 M01S03182.xedit +++| SB7 160 DEFAULT LINE WIDTH
03340 M01S03183.xedit +++| ZR X1,STB0 IF USING DEFAULT
03341 M01S03184.xedit +++| SB7 X1
03342 M01S03185.xedit +++| STB0 SB6 B0 SET VALUE OF LAST TAB
03343 M01S03186.xedit +++| SA1 NUMS-1
03344 M01S03187.xedit +++| MX6 0
03345 M01S03188.xedit +++| SA6 NUMS+NTABS ASSURE ZERO MARKER
03346 M01S03189.xedit +++| SB2 ILL. ERROR MESSAGE
03347 M01S03190.xedit +++| STB1 SA1 A1+B1
03348 M01S03191.xedit +++| ZR X1,STB2 IF END OF LINE (ALL OK)
03349 M01S03192.xedit +++| SB5 X1
03350 M01S03193.xedit +++| GT B5,B7,CER IF TAB IS PAST LINE WIDTH
03351 M01S03194.xedit +++| LE B5,B6,CER IF TABS IS .LE. LAST TAB
03352 M01S03195.xedit +++| SB6 B5
03353 M01S03196.xedit +++| EQ STB1 CHECK NEXT TAB
03354 M01S03197.xedit +++|
03355 M01S03198.xedit +++| STB2 SA2 NUMS-1
03356 M01S03199.xedit +++| SA6 TABS CLEAR FIRST TAB
03357 M01S03200.xedit +++| STB3 SA2 A2+B1 GET NEXT TAB
03358 M01S03201.xedit +++| SA6 A6+B1 ZERO NEXT TAB
03359 M01S03202.xedit +++| BX7 X2
03360 M01S03203.xedit +++| SA7 A6-B1 PUT CURRENT TAB
03361 M01S03204.xedit +++| NZ X2,STB3 IF NOT FINISHED
03362 M01S03205.xedit +++| EQ NCM TABS SET, EXIT
03363 M01S03206.xedit +++| TGL SPACE 4,15
03364 M01S03207.xedit +++|** TGL - PROCESS TOGGLES.
03365 M01S03208.xedit +++|*
03366 M01S03209.xedit +++|* ENTRY (X1) = (DECA), ADDRESS OF WORD TO PROCESS.
03367 M01S03210.xedit +++|* (NUMS) = *+* PARAMETER.
03368 M01S03211.xedit +++|* IF (NUMS) .GT. 0, SET FLAG TO ON.
03369 M01S03212.xedit +++|* IF (NUMS) .LT. 0, SET FLAG TO OFF.
03370 M01S03213.xedit +++|* IF (NUMS) .EQ. 0, TOGGLE STATE OF FLAG.
03371 M01S03214.xedit +++|*
03372 M01S03215.xedit +++|* EXIT TO *NCM*.
03373 M01S03216.xedit +++|*
03374 M01S03217.xedit +++|* USES A - 2, 3, 6.
03375 M01S03218.xedit +++|* X - 1, 2, 3, 6.
03376 M01S03219.xedit +++|
03377 M01S03220.xedit +++|
03378 M01S03221.xedit +++| TGL AX1 18 OBTAIN ADDRESS
03379 M01S03222.xedit +++| SA3 NUMS
03380 M01S03223.xedit +++| SA2 X1 FLAG TO PROCESS
03381 M01S03224.xedit +++| NZ X3,TGL1 IF +- SPECIFIED
03382 M01S03225.xedit +++| LX3 X2 MOVE TOGGLE UP
03383 M01S03226.xedit +++| TGL1 BX6 -X3 TOGGLE FLAG
03384 M01S03227.xedit +++| SA6 A2
03385 M01S03228.xedit +++| EQ NCM EXIT
03386 M01S03229.xedit +++| TRN SPACE 4,10
03387 M01S03230.xedit +++|** TRN - TRUNCATE COMMAND.
03388 M01S03231.xedit +++|*
03389 M01S03232.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO PROCESS.
03390 M01S03233.xedit +++|*
| Line S03234 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03391 M02S03234.xedit21 ---|* USES A - 0, 1, 5, 6, 7.
03392 M01S00053.xedit21 +++|* USES A - 1, 5, 6, 7.
03393 M01S03235.xedit +++|* X - 1, 2, 5, 6, 7.
03394 M01S03236.xedit +++|* B - 2, 6.
03395 M01S03237.xedit +++|*
03396 M01S03238.xedit +++|* CALLS RDF, SAC, TSL, VRY, WTF.
03397 M01S03239.xedit +++|
03398 M01S03240.xedit +++|
| Line S03241 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03399 M02S03241.xedit21 ---| TRN SA1 NUMS
| Line S03242 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03400 M02S03242.xedit21 ---| SA5 IW GET DESIRED WIDTH
| Line S03243 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03401 M02S03243.xedit21 ---| SA0 X1
03402 M01S00054.xedit21 +++| TRN BSS 0 ENTRY
03403 M01S00055.xedit21 +++| SA5 IW GET DESIRED WIDTH
03404 M01S03244.xedit +++| RJ SAC SET ASCII MODE
03405 M01S03245.xedit +++| TRN1 SA1 E.STR-1 GET EXISTING LINE WIDTH
03406 M01S03246.xedit +++| IX2 X5-X1
| Line S03247 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03407 M02S03247.xedit21 ---| SA0 A0-B1 DECREMENT COUNT
03408 M01S00056.xedit21 +++| SX7 B1
03409 M01S03248.xedit +++| PL X2,TRN2 IF LINE ALREADY SHORT
| Line S03249 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03410 M02S03249.xedit21 ---| SB2 X5+B1
| Line S03250 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03411 M02S03250.xedit21 ---| SX7 B1
03412 M01S00057.xedit21 +++| SB2 X5+1
03413 M01S03251.xedit +++| MX6 2
03414 M01S03252.xedit +++| SA7 E.LMOD SET LINE MODIFICATION
03415 M01S03253.xedit +++| SA6 A1+B2 SET NEW END OF LINE
03416 M01S03254.xedit +++| SA7 NOMOD SET MODIFICATION MADE TO FILE
03417 M01S03255.xedit +++| SB6 E.STR-1 SET LINE WIDTH CELL
03418 M01S03256.xedit +++| RJ TSL TRIM SPACES OFF LINE
03419 M01S03257.xedit +++| TRN2 RJ VRY VERIFY LINE
| Line S03258 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03420 M02S03258.xedit21 ---| SB2 A0
| Line S03259 Modification History |
M01 (Added by) | xedit |
M02 (Updated by) | xedit21 |
Seq # *Modification Id* Act
----------------------------+
03421 M02S03259.xedit21 ---| LE B2,NCM IF FINISHED, EXIT
03422 M01S00058.xedit21 +++| SA1 NUMS
03423 M01S00059.xedit21 +++| SX6 B1+
03424 M01S00060.xedit21 +++| IX6 X1-X6 DECREMENT COUNT
03425 M01S00061.xedit21 +++| AX1 1
03426 M01S00062.xedit21 +++| ZR X1,NCM IF FINISHED, EXIT
03427 M01S00063.xedit21 +++| SA6 A1+
03428 M01S03260.xedit +++| RJ WTF
03429 M01S03261.xedit +++| RJ RDF
03430 M01S03262.xedit +++| EQ TRN1 RETURN TO PROCESS NEXT LINE
03431 M01S03263.xedit +++| TTN SPACE 4,10
03432 M01S03264.xedit +++|** TTN - TOP AND TOPNULL PROCESSOR.
03433 M01S03265.xedit +++|*
03434 M01S03266.xedit +++|* ENTRY (INDEX) = COMMAND TABLE INDEX FOR CURRENT COMMAND.
03435 M01S03267.xedit +++|*
03436 M01S03268.xedit +++|* USES A - 1, 2, 6.
03437 M01S03269.xedit +++|* X - 1, 2, 6.
03438 M01S03270.xedit +++|*
03439 M01S03271.xedit +++|* CALLS TOP.
03440 M01S03272.xedit +++|
03441 M01S03273.xedit +++|
03442 M01S03274.xedit +++|* REWIND FILES, IF *TN*, *TOP* WILL INSERT A BLANK LINE.
03443 M01S03275.xedit +++|
03444 M01S03276.xedit +++| TTN RJ TOP
03445 M01S03277.xedit +++| SA1 INDEX
03446 M01S03278.xedit +++| SA2 NOMOD
03447 M01S03279.xedit +++| SX1 X1-.TOPNUL POSITIVE, IF *TOPNULL*, MINUS, IF *TOP*
03448 M01S03280.xedit +++|
03449 M01S03281.xedit +++|* HANDLE CASE WHERE (IWHERE) = 1, AND COMMAND IS *TOP*,
03450 M01S03282.xedit +++|* AND (NOMOD) = FALSE.
03451 M01S03283.xedit +++|
03452 M01S03284.xedit +++| BX6 X1*X2
03453 M01S03285.xedit +++| SA6 A2
03454 M01S03286.xedit +++| EQ NCM EXIT
03455 M01S03287.xedit +++| WHR SPACE 4,15
03456 M01S03288.xedit +++|** WHR - PROCESS WHERE COMMAND.
03457 M01S03289.xedit +++|*
03458 M01S03290.xedit +++|* ENTRY (IWHERE) = CURRENT LINE COUNT.
03459 M01S03291.xedit +++|*
03460 M01S03292.xedit +++|* EXIT TO *NCM*.
03461 M01S03293.xedit +++|*
03462 M01S03294.xedit +++|* USES A - 1.
03463 M01S03295.xedit +++|* X - 1, 6.
03464 M01S03296.xedit +++|*
03465 M01S03297.xedit +++|* CALLS CDD.
03466 M01S03298.xedit +++|*
03467 M01S03299.xedit +++|* MACROS WRITEC, WRITEO.
03468 M01S03300.xedit +++|
03469 M01S03301.xedit +++|
03470 M01S03302.xedit +++| WHR SA1 IWHERE
03471 M01S03303.xedit +++| NG X1,WHR1 IF IN CREATION MODE
03472 M01S03304.xedit +++| RJ CDD
03473 M01S03305.xedit +++| MX1 12
03474 M01S03306.xedit +++| BX6 -X1*X6
03475 M01S03307.xedit +++| LX6 12 MOVE END OF LINE BYTE
03476 M01S03308.xedit +++| WRITEO OUTPUT
03477 M01S03309.xedit +++| EQ NCM EXIT
03478 M01S03310.xedit +++|
03479 M01S03311.xedit +++| WHR1 WRITEC OUTPUT,(=C* 0 - IN CREATION MODE.*)
03480 M01S03312.xedit +++| EQ NCM EXIT
03481 M01S03313.xedit +++| WRM SPACE 4,10
03482 M01S03314.xedit +++|** WRM - WRITE RECORD MARK.
03483 M01S03315.xedit +++|*
03484 M01S03316.xedit +++|* ENTRY (X1) = BITS 18 - 35 CONTAIN DESIRED *CIO* FUNCTION.
03485 M01S03317.xedit +++|*
03486 M01S03318.xedit +++|* EXIT TO *NCM*.
03487 M01S03319.xedit +++|*
03488 M01S03320.xedit +++|* USES A - 6.
03489 M01S03321.xedit +++|* X - 1, 2, 6, 7.
03490 M01S03322.xedit +++|*
03491 M01S03323.xedit +++|* CALLS =XCIO=.
03492 M01S03324.xedit +++|
03493 M01S03325.xedit +++|
03494 M01S03326.xedit +++| WRM SX2 FTA SELECT FET
03495 M01S03327.xedit +++| AX1 18
03496 M01S03328.xedit +++| SX7 X1
03497 M01S03329.xedit +++| MX6 0
03498 M01S03330.xedit +++| BX7 -X7 SPECIFY AUTO RECALL
03499 M01S03331.xedit +++| SA6 NOMOD SET MODIFICATION
03500 M01S03332.xedit +++| RJ =XCIO=
03501 M01S03333.xedit +++| EQ NCM EXIT
03502 M01S03334.xedit +++|
03503 M01S03335.xedit +++| YZP SPACE 4,15
03504 M01S03336.xedit +++|** YZP - Y/Z COMMAND PROCESSOR.
03505 M01S03337.xedit +++|*
03506 M01S03338.xedit +++|* ENTRY (NUMS) = IF NO PARAMETER, 0
03507 M01S03339.xedit +++|* ELSE, FWA OF PARAMETERS.
03508 M01S03340.xedit +++|* (NUMS+1) = LWA OF PARAMETER.
03509 M01S03341.xedit +++|*
03510 M01S03342.xedit +++|* EXIT IF ERROR, TO *CER*, ELSE TO *STK*.
03511 M01S03343.xedit +++|*
03512 M01S03344.xedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7.
03513 M01S03345.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7.
03514 M01S03346.xedit +++|* B - 6, 7.
03515 M01S03347.xedit +++|*
03516 M01S03348.xedit +++|* CALLS RTA, STK.
03517 M01S03349.xedit +++|
03518 M01S03350.xedit +++|
03519 M01S03351.xedit +++| YZP SA1 NUMS GET FWA OF PARAMETER
03520 M01S03352.xedit +++| SA2 A1+B1 GET LWA+1
03521 M01S03353.xedit +++| SA3 X1 DELIMITER CHARACTER
03522 M01S03354.xedit +++| ZR X1,YZP2 IF NO PARAMETER
03523 M01S03355.xedit +++| SA5 INDEX
03524 M01S03356.xedit +++| SA4 X2 LAST CHARACTER
03525 M01S03357.xedit +++| SB6 X1+B1 SET FWA OF STRING TO PACK
03526 M01S03358.xedit +++| SX5 X5-.Z 0 IF *Z* COMMAND
03527 M01S03359.xedit +++| MX7 1
03528 M01S03360.xedit +++| NZ X5,YZP1 IF NOT *Z* COMMAND
03529 M01S03361.xedit +++| BX3 X3+X7 SET TO ECHO COMMANDS
03530 M01S03362.xedit +++| YZP1 LX6 X3 MOVE DELIMITER/ECHO FLAG
03531 M01S03363.xedit +++| SB7 Y.LINE
03532 M01S03364.xedit +++| SA6 Y.DEV+1 SET DELIMITER CHARACTER
03533 M01S03365.xedit +++| BX7 X7+X4 SET PSEUDO END OF LINE
03534 M01S03366.xedit +++| SA7 A4
03535 M01S03367.xedit +++| RJ RTA PACK LINE
03536 M01S03368.xedit +++| SA1 NUMS+1
03537 M01S03369.xedit +++| SA1 X1+ GET PSEUDO END OF LINE
03538 M01S03370.xedit +++| MX7 1
03539 M01S03371.xedit +++| BX6 -X7*X1 REMOVE PSEUDO END OF LINE
03540 M01S03372.xedit +++| LX1 1
03541 M01S03373.xedit +++| NG X1,YZP1.1 IF TRUE END OF LINE
03542 M01S03374.xedit +++| SA6 A1+ REPLACE ENTRY
03543 M01S03375.xedit +++| YZP1.1 SA1 Y.DEV
03544 M01S03376.xedit +++| RJ STK STACK ENTRY. IF NO ERRORS, EXIT.
03545 M01S03377.xedit +++| SB2 STK.
03546 M01S03378.xedit +++| EQ CER IF STACKING ERROR, EXIT
03547 M01S03379.xedit +++|
03548 M01S03380.xedit +++| YZP2 SB2 ARG.
03549 M01S03381.xedit +++| EQ CER PARAMETER ERROR, EXIT
03550 M01S03382.xedit +++| TITLE SUBROUTINES.
03551 M01S03383.xedit +++| ABT SPACE 4,15
03552 M01S03384.xedit +++|** ABT - ABORT XEDIT.
03553 M01S03385.xedit +++|*
03554 M01S03386.xedit +++|* ENTRY (B6) = ADDRESS OF ABORT MESSAGE.
03555 M01S03387.xedit +++|*
03556 M01S03388.xedit +++|* EXIT TO *EXT*.
03557 M01S03389.xedit +++|* (EXTA) = -1, INDICATES ABORT.
03558 M01S03390.xedit +++|*
03559 M01S03391.xedit +++|* USES A - 6.
03560 M01S03392.xedit +++|* X - 6.
03561 M01S03393.xedit +++|*
03562 M01S03394.xedit +++|* MACROS WRITEC.
03563 M01S03395.xedit +++|*
03564 M01S03396.xedit +++|* NOTES DO NOT *RJ* TO THIS SUBROUTINE.
03565 M01S03397.xedit +++|
03566 M01S03398.xedit +++|
03567 M01S03399.xedit +++| ABT SX6 -1 CHANGE EXIT MODE
03568 M01S03400.xedit +++| SA6 EXTA
03569 M01S03401.xedit +++| WRITEC OUTPUT,B6 ISSUE MESSAGE
03570 M01S03402.xedit +++| EQ EXT EXIT XEDIT
03571 M01S03403.xedit +++| ASF SPACE 4,20
03572 M01S03404.xedit +++|** ASF - ANALYZE STRING FIELDS.
03573 M01S03405.xedit +++|*
03574 M01S03406.xedit +++|* ENTRY (P1LP - P3RP) = POINTERS TO STRINGS.
03575 M01S03407.xedit +++|*
03576 M01S03408.xedit +++|* EXIT STRING DEFINITIONS CHECKED AGAINST BITS IN COMMAND
03577 M01S03409.xedit +++|* MODIFIER WORD.
03578 M01S03410.xedit +++|* (LOCA - LOCC) = INITIALIZED FOR USE BY *LOC*.
03579 M01S03411.xedit +++|* (SPCP) = NEGATIVE IF WINDOW WAS SPECIFIED.
03580 M01S03412.xedit +++|* (B2) = 0 IF NO ERROR ENCOUNTERED,
03581 M01S03413.xedit +++|* ELSE, ORDINAL OF ERROR MESSAGE.
03582 M01S03414.xedit +++|* IF ERROR, TO *NER*.
03583 M01S03415.xedit +++|*
03584 M01S03416.xedit +++|* USES A - 1, 2, 3, 4, 6, 7.
03585 M01S03417.xedit +++|* X - 0, 1, 2, 3, 4, 6, 7.
03586 M01S03418.xedit +++|* B - 2, 3, 4, 5, 6, 7.
03587 M01S03419.xedit +++|*
03588 M01S03420.xedit +++|* CALLS SAC, VIS.
03589 M01S03421.xedit +++|*
03590 M01S03422.xedit +++|* NOTES ROUTINE IS DESIGNED TO BE CALLED IMMEDIATELY AFTER
03591 M01S03423.xedit +++|* THE STRINGS ARE PARSED VIA *PRM*.
03592 M01S03424.xedit +++|
03593 M01S03425.xedit +++|
03594 M01S03426.xedit +++| ASF11 SA1 COMMAND
03595 M01S03427.xedit +++| SA2 P3RP
03596 M01S03428.xedit +++| LX1 59-33 MODIFIER 15, 2 STRINGS NEEDED
03597 M01S03429.xedit +++| PL X1,ASF IF NOT ABOVE
03598 M01S03430.xedit +++| ZR X2,ASF10 IF NOT 2 STRINGS (ARG ERROR)
03599 M01S03431.xedit +++|
03600 M01S03432.xedit +++| ASF PS ENTRY/EXIT
03601 M01S03433.xedit +++| SA3 P1LP
03602 M01S03434.xedit +++| SA2 PREFIX
03603 M01S03435.xedit +++| ZR X3,ASF9 IF NO STRINGS
03604 M01S03436.xedit +++| SA1 GLOBAL
03605 M01S03437.xedit +++| MX6 -18
03606 M01S03438.xedit +++| LX2 59-/PREFIX/W (NEXT BIT IS -A-)
03607 M01S03439.xedit +++| BX7 -X6*X1 SET GLOBAL
03608 M01S03440.xedit +++| LX6 B1,X2
03609 M01S03441.xedit +++| SX4 B0
03610 M01S03442.xedit +++| PL X6,ASF1 IF NOT ANCHOR
03611 M01S03443.xedit +++| MX4 1
03612 M01S03444.xedit +++| ASF1 LX7 18
03613 M01S03445.xedit +++| SX1 E.STR-1 SET MINIMUM STARTING-1
03614 M01S03446.xedit +++| BX6 X6+X2
03615 M01S03447.xedit +++| PL X6,ASF2 IF NOT WINDOW/ANCHOR
03616 M01S03448.xedit +++| SA1 LMW GET WINDOW LEFT MARGIN
03617 M01S03449.xedit +++| ASF2 IX7 X7+X4
03618 M01S03450.xedit +++| BX7 X1+X7
03619 M01S03451.xedit +++| SA7 LOCA SAVE FIRST LOCATE PARAMETER WORD
03620 M01S03452.xedit +++|
03621 M01S03453.xedit +++|* INITIALIZE *LOCB* AND *LOCC*.
03622 M01S03454.xedit +++|*
03623 M01S03455.xedit +++|* NOTE- LWA+1 FOR SCAN IS SET VERY HIGH. THIS IS DONE FOR
03624 M01S03456.xedit +++|* TWO REASONS. THE FIRST, THIS ROUTINE IS ALSO CALLED BY
03625 M01S03457.xedit +++|* *OCTCHANGE*, WHICH MAY USE DOUBLE SIZE BUFFERS, AND THE
03626 M01S03458.xedit +++|* SECOND IS THAT IT DOES NOT MAKE MUCH DIFFERENCE AS THE
03627 M01S03459.xedit +++|* LOCATE SUBROUTINE, *LOC*, WILL FORCE LWA+1 TO BECOMES THE
03628 M01S03460.xedit +++|* EOL CHARACTER OF THE STRING BEING SEARCHED.
03629 M01S03461.xedit +++|
03630 M01S03462.xedit +++| SA1 P1LP
03631 M01S03463.xedit +++| SB2 E.STR+3*MAXWD 1.SET LWA+1 AVAIL FOR SCAN
03632 M01S03464.xedit +++| SA3 P2LP
03633 M01S03465.xedit +++| SB3 B2 2. SET LWA+1 AVAIL FOR SCAN
03634 M01S03466.xedit +++| MX0 1
03635 M01S03467.xedit +++| SA4 RMW OBTAIN WINDOW RIGHT MARGIN+1
03636 M01S03468.xedit +++| SB5 18
03637 M01S03469.xedit +++| SB6 B0 1. STRING LENGTH
03638 M01S03470.xedit +++| SB4 X4
03639 M01S03471.xedit +++| LX6 X1,B5 1. FWA COMPARE
03640 M01S03472.xedit +++| SB7 B7-B7 2. STRING LENGTH
03641 M01S03473.xedit +++| LX7 X3,B5 2. FWA COMPARE
03642 M01S03474.xedit +++| SA4 SPCP RESET WINDOW PARAMETER
03643 M01S03475.xedit +++| BX1 X7
03644 M01S03476.xedit +++| BX7 -X0*X4
03645 M01S03477.xedit +++| SA7 SPCP
03646 M01S03478.xedit +++| BX7 X1
03647 M01S03479.xedit +++| SA1 P1LP
03648 M01S03480.xedit +++| SA4 TRIM
03649 M01S03481.xedit +++| BX4 X4+X2 NEG. IF WINDOW OR TRIM
03650 M01S03482.xedit +++| PL X4,ASF3 IF NOT ABOVE
03651 M01S03483.xedit +++| BX6 X0+X6 1. SET TRIM
03652 M01S03484.xedit +++| BX7 X0+X7 2. SET TRIM
03653 M01S03485.xedit +++| ASF3 PL X2,ASF4 IF NOT WINDOW PROCESSING
03654 M01S03486.xedit +++| SA4 SPCP SET WINDOW PARAMETER
03655 M01S03487.xedit +++| BX4 X4+X0
03656 M01S03488.xedit +++| BX2 X7
03657 M01S03489.xedit +++| BX7 X4
03658 M01S03490.xedit +++| SA7 SPCP
03659 M01S03491.xedit +++| BX7 X2
03660 M01S03492.xedit +++| SB2 B4
03661 M01S03493.xedit +++| SB3 B4
03662 M01S03494.xedit +++| ASF4 LX2 /PREFIX/W-/PREFIX/A
03663 M01S03495.xedit +++| SA4 PRMB GET AND/NOT LOGIC FLAG
03664 M01S03496.xedit +++| ZR X3,ASF5 IF ONLY ONE STRING
03665 M01S03497.xedit +++| NZ X4,ASF5 IF *---* LOGIC
03666 M01S03498.xedit +++| BX6 X0+X6 1. SET TRIM (ALL CHARS SIGNIFICANT)
03667 M01S03499.xedit +++| ASF5 BX0 X0*X4
03668 M01S03500.xedit +++| LX0 36-59 POSITION FLAG
03669 M01S03501.xedit +++| PL X2,ASF6 IF NOT ANCHOR
03670 M01S03502.xedit +++| SB2 B4 1. RESET RIGHT MARGIN
03671 M01S03503.xedit +++| ASF6 BX7 X7+X0 2. SET POS/NEG LOGIC FLAG
03672 M01S03504.xedit +++| SA2 A1+B1
03673 M01S03505.xedit +++| SA4 A3+B1
03674 M01S03506.xedit +++| IX1 X2-X1
03675 M01S03507.xedit +++| IX3 X4-X3
03676 M01S03508.xedit +++| SB6 X1
03677 M01S03509.xedit +++| SB7 X3
03678 M01S03510.xedit +++| SX1 B2
03679 M01S03511.xedit +++| SX3 B3
03680 M01S03512.xedit +++| BX6 X6+X1
03681 M01S03513.xedit +++| BX7 X7+X3
03682 M01S03514.xedit +++| PX6 B6
03683 M01S03515.xedit +++| PX7 B7
03684 M01S03516.xedit +++| SA6 LOCB
03685 M01S03517.xedit +++| SA7 A6+B1
03686 M01S03518.xedit +++| SA1 LOCE SET NORMAL SEARCH
03687 M01S03519.xedit +++| GT B6,ASF7 IF FIRST STRING NOT NULL
03688 M01S03520.xedit +++| NZ X4,ASF8 IF THERE IS A SECOND STRING
03689 M01S03521.xedit +++| SA1 LOCF SET NULL SEARCH
03690 M01S03522.xedit +++| ASF7 BX6 X1
03691 M01S03523.xedit +++| SA6 LOC+1 CHANGE ENTRY POINT TO *LOC*
03692 M01S03524.xedit +++|* RJ VIS VOID INSTRUCTION STACK
03693 M01S03525.xedit +++| RJ SAC SET ASCII PROCESSING