Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:xedit.001
Deck XEDIT Part 001
25 Modifications
Listing Sections
- Deck XEDIT Start
- Deck XEDIT Part 1 (Line 2001)
- Deck XEDIT Part 2 (Line 3750)
- Deck XEDIT Part 3 (Line 5691)
- Deck XEDIT Part 4 (Line 7455)
Source
Seq # *Modification Id* Act ----------------------------+ 02001 M00S01974.xedit ---|* 02002 M00S01975.xedit ---|* USES A - 0. 02003 M00S01976.xedit ---| 02004 M00S01977.xedit ---| 02005 M00S01978.xedit ---| SPECIAL (.) 02006 M00S01979.xedit ---| SA0 P.DEV SET ADDRESS OF DEVICE TO STACK 02007 M00S01980.xedit ---| EQ DSH1 EXIT, EXECUTE LAST COMMAND 02008 M00S01981.xedit ---| SPCMDT SPACE 4,10 02009 M00S01982.xedit ---| SPCMDT BSS 0 02010 M00S01983.xedit ---| SPECIAL HERE ASSEMBLE SPECIAL COMMAND TABLE 02011 M00S01984.xedit ---| SPCMDU DATA 0 END MARKER 02012 M00S01985.xedit ---| PURGMAC SPECIAL VOID USAGE OF MACRO 02013 M00S01986.xedit ---| NCL SPACE 4,40 02014 M00S01987.xedit ---|** NCL - OBTAIN NEXT COMMAND LINE AND PUT INTO *C.STR*. 02015 M00S01988.xedit ---|* 02016 M00S01989.xedit ---|* NCL READS THE NEXT LINE FROM THE CURRENT INPUT FILE 02017 M00S01990.xedit ---|* AND PLACES IT INTO C.STR (C.STR-1 IS UPDATED ALSO). 02018 M00S01991.xedit ---|* IF THERE IS NO FET (IE. THE *.* AND *-* COMMANDS), THE 02019 M00S01992.xedit ---|* INPUT STACK IS POP-ED AND THE LAST INPUT LINE IS 02020 M00S01993.xedit ---|* RE-INSTATED AT ITS PREVIOUS POSITION. IF THERE IS A 02021 M00S01994.xedit ---|* FET, *READC* IS CALLED TO READ IN THE NEXT LINE. IF 02022 M00S01995.xedit ---|* POSITIONED AT AN EOR,EOF,EOI, THE STACK IS POP-ED IF 02023 M00S01996.xedit ---|* NOT THE PRIMARY INPUT SOURCE. 02024 M00S01997.xedit ---|* 02025 M00S01998.xedit ---|* NDL - OBTAIN NEXT DATA LINE FROM COMMAND LINE AND PUT INTO 02026 M00S01999.xedit ---|* C.STR. 02027 M00S02000.xedit ---|* 02028 M00S02001.xedit ---|* THIS IS A SECOND ENTRY POINT TO *NCL*. SINCE XEDIT ALLOWS 02029 M00S02002.xedit ---|* THE USER TO INTERMIX COMMANDS AND DATA, EVERY SO OFTEN 02030 M00S02003.xedit ---|* XEDIT NEEDS MORE DATA (WHICH EXISTS ON THE NEXT COMMAND 02031 M00S02004.xedit ---|* LINE. THIS ENTRY POINT HANDLES THIS CASE. (DESIGNED TO BE 02032 M00S02005.xedit ---|* USED WITH *RDL*.) 02033 M00S02006.xedit ---|* 02034 M00S02007.xedit ---|* ENTRY NONE. 02035 M00S02008.xedit ---|* 02036 M00S02009.xedit ---|* EXIT (X1) = 0 IF DATA HAS BEEN READ. 02037 M00S02010.xedit ---|* .NE. 0 IF AN EMPTY CR WAS ENCOUNTERED. 02038 M00S02011.xedit ---|* RETURNS TO CALLER IF ENTERED VIA *NDL*, 02039 M00S02012.xedit ---|* ELSE RETURNS TO *NCM*, UNLESS IN *INPUT* MODE, THEN 02040 M00S02013.xedit ---|* RETURNS TO *INP2*. 02041 M00S02014.xedit ---|* IF END OF INPUT AND NOT TTY INPUT FILE, TO *ABT*. 02042 M00S02015.xedit ---|* 02043 M00S02016.xedit ---|* USES A - 1, 2, 3, 4, 5, 6, 7. 02044 M00S02017.xedit ---|* X - 1, 2, 3, 4, 5, 6, 7. 02045 M00S02018.xedit ---|* B - 6, 7. 02046 M00S02019.xedit ---|* 02047 M00S02020.xedit ---|* CALLS STL, UPL. 02048 M00S02021.xedit ---|* 02049 M00S02022.xedit ---|* MACROS PROMPT, READ, READC, WRITEO. 02050 M00S02023.xedit ---| 02051 M00S02024.xedit ---| 02052 M00S02025.xedit ---| NDL DATA 0 NEW DATA LINE ENTRY. THIS WORD IS A FLAG. 02053 M00S02026.xedit ---| 02054 M00S02027.xedit ---|* IF (NDL) = 0, THEN ENTERED VIA *NCL*, ELSE VIA *NDL*. 02055 M00S02028.xedit ---| 02056 M00S02029.xedit ---| NCL SA5 C.ON OBTAIN CURRENT INPUT DEVICE 02057 M00S02030.xedit ---| SA3 X5-1 GET FET ADDRESS 02058 M00S02031.xedit ---| ZR X3,NCL5 IF NO FET (POP STACK) 02059 M00S02032.xedit ---| SA1 PROMPT 02060 M00S02033.xedit ---| SX2 X3 SET FET ADDRESS 02061 M00S02034.xedit ---| BX6 X1 02062 M00S02035.xedit ---| SA4 NDL 02063 M00S02036.xedit ---| SX7 X2-INPUT 02064 M00S02037.xedit ---| NZ X4,NCL1 IF REQUESTING DATA 02065 M00S02038.xedit ---| NG X3,NCL5 IF POP IF ASKING FOR COMMAND 02066 M00S02039.xedit ---| NZ X7,NCL1 IF NOT PRIMARY INPUT 02067 M00S02040.xedit ---| ZR X6,NCL1 IF NOT TO ISSUE PROMPT 02068 M00S02041.xedit ---| WRITEO OUTPUT 02069 M00S02042.xedit ---| NCL1 SA1 TTYIN 02070 M00S02043.xedit ---| SA3 NCLA 02071 M00S02044.xedit ---| SA2 BATCH 02072 M00S02045.xedit ---| BX6 X1+X3 02073 M00S02046.xedit ---| SA6 A3 02074 M00S02047.xedit ---| NZ X3,NCL2 IF READ NOT NEEDED 02075 M00S02048.xedit ---| SA4 NDL 02076 M00S02049.xedit ---| NG X2,NCL1.1 IF IN BATCH MODE 02077 M00S02050.xedit ---| NZ X4,NCL1.1 IF ENTERED VIA *NDL* 02078 M00S02051.xedit ---| PROMPT OFF TURN OFF PROMPT 02079 M00S02052.xedit ---| NCL1.1 READ INPUT,RECALL 02080 M00S02053.xedit ---| SA2 BATCH 02081 M00S02054.xedit ---| NG X2,NCL2 IF IN BATCH MODE 02082 M00S02055.xedit ---| PROMPT ON TURN ON PROMPT 02083 M00S02056.xedit ---| NCL2 READC INPUT,X5-34D,33D READ NEW LINE 02084 M00S02057.xedit ---| SA3 C.STR-1 RESET CHARACTER INDEX 02085 M00S02058.xedit ---| NZ X1,NCL6 IF HIT END OF SOMETHING 02086 M00S02059.xedit ---| PX6 B1,X3 RESET CHARACTER INDEX 02087 M00S02060.xedit ---| SA6 A3 02088 M00S02061.xedit ---| NCL3 SA1 X5-34D FWA OF STRING 02089 M00S02062.xedit ---| SB6 C.STR FWA OF STRING 02090 M00S02063.xedit ---| RJ UPL 02091 M00S02064.xedit ---| SX1 0 SET SUCCESSFUL READ 02092 M00S02065.xedit ---| NCL4 SA2 NDL 02093 M00S02066.xedit ---| ZR X2,NCL8 IF ENTERED VIA NCL 02094 M00S02067.xedit ---| AX2 30 02095 M00S02068.xedit ---| BX7 X7-X7 02096 M00S02069.xedit ---| SA7 TLX IGNORE INTERRUPT IF DATA LINE 02097 M00S02070.xedit ---| SB7 X2 OBTAIN RETURN ADDRESS 02098 M00S02071.xedit ---| SA7 A2 CLEAR *NDL* FLAG 02099 M00S02072.xedit ---| JP B7 RETURN TO CALLER 02100 M00S02073.xedit ---| 02101 M00S02074.xedit ---|* POP INPUT STACK 02102 M00S02075.xedit ---| 02103 M00S02076.xedit ---| NCL5 MX6 1 SET DEVICE IN-ACTIVE 02104 M00S02077.xedit ---| SA5 X5 GET NEW DEVICE 02105 M00S02078.xedit ---| SA6 A5 IDLE OLD DEVICE 02106 M00S02079.xedit ---| SA2 X5+B1 GET OLD C.STR-1 WORD 02107 M00S02080.xedit ---| BX7 X5 02108 M00S02081.xedit ---| LX6 X2 02109 M00S02082.xedit ---| SA7 C.ON CHANGE CURRENT DEVICE POINTER 02110 M00S02083.xedit ---| SA6 C.STR-1 02111 M00S02084.xedit ---| EQ NCL3 UNPACK AND EXIT 02112 M00S02085.xedit ---| 02113 M00S02086.xedit ---|* END OF SOMETHING ENCOUNTERED ON INPUT FILE. 02114 M00S02087.xedit ---| 02115 M00S02088.xedit ---| NCL6 SA2 X5-1 GET FET ADDRESS 02116 M00S02089.xedit ---| SX2 X2-INPUT PRIMARY INPUT FOR CMD OR DATA 02117 M00S02090.xedit ---| NZ X2,NCL5 IF NOT PRIMARY INPUT FILE 02118 M00S02091.xedit ---| SA4 TTYIN 02119 M00S02092.xedit ---| NZ X4,NCL7 IF NOT *TTY* INPUT FILE (ABORT) 02120 M00S02093.xedit ---| RJ STL EVENTUALLY RETURNS TO *NCL* IF INTERRUPT 02121 M00S02094.xedit ---| MX6 0 SET READ REQUIRED 02122 M00S02095.xedit ---| SA6 NCLA (X1) .NE. 0 02123 M00S02096.xedit ---| EQ NCL4 READ INPUT FILE 02124 M00S02097.xedit ---| 02125 M00S02098.xedit ---| NCL7 SB6 =C* END OF INPUT ENCOUNTERED - ABORTED.* 02126 M00S02099.xedit ---| EQ ABT ABORT XEDIT 02127 M00S02100.xedit ---| 02128 M00S02101.xedit ---| NCL8 SA2 INPMODE 02129 M00S02102.xedit ---| NG X2,INP2 IF IN INPUT MODE 02130 M00S02103.xedit ---| ZR X1,NCM IF NOT EMPTY CARRIAGE RETURN
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 02131 M01S00004.xedit20 +++| SA1 UPDATE 02132 M01S00005.xedit20 +++| PL X1,NCM21 IF IN LOOK MODE 02133 M00S02104.xedit +++| EQ INP1 BEGIN INPUT MODE 02134 M00S02105.xedit +++| 02135 M00S02106.xedit +++| NCLA DATA 0 READ REQ,D FROM INPUT IF ZERO 02136 M00S02107.xedit +++| TITLE COMMAND TABLE. 02137 M00S02108.xedit +++| JUMP BSS 0 START OF COMMAND TABLE 02138 M00S02109.xedit +++| .ADD COMMAND ADD,A,NUMBER1,,ADD,(IN,F0) 02139 M00S02110.xedit +++| .ALN COMMAND ADDLN,ALN,NUMBER2,-1,PLN,,OVL2 02140 M00S02111.xedit +++| .ALNS COMMAND ADDLNS,ALNS,NUMBER2,-2,PLN,,OVL2 02141 M00S02112.xedit +++| .BOTTOM COMMAND BOTTOM,B,NONE,,BTR,(LK) 02142 M00S02113.xedit +++| .BRIEF COMMAND BRIEF,BR,TOGGLE,(XVERIFY*2+0),SFG,(CR,LK,IN)
| Line S02114 Modification History | |
|---|---|
M01 (Removed by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 02143 M01S02114.xedit20 ---| .CHANGE COMMAND CHANGE,C,STRING,340000B,CNG,(LK,IN,F0) 02144 M01S02115.xedit20 ---| .CS COMMAND CHANGES,CS,STRING,340000B,CGS,(LK,IN,F0)
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
Seq # *Modification Id* Act ----------------------------+ 02145 M01S00006.xedit20 +++| .CHANGE COMMAND CHANGE,C,STRING,340000B,CNG,(IN,F0)
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xedit20 |
M02 (Removed by) | xedi20a |
Seq # *Modification Id* Act ----------------------------+ 02146 M02S00007.xedi20a ---| .CS COMMAND CHANGE,CS,STRING,340000B,CGS,(IN,F0)
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedi20a |
Seq # *Modification Id* Act ----------------------------+ 02147 M01S00001.xedi20a +++| .CS COMMAND CHANGES,CS,STRING,340000B,CGS,(IN,F0) 02148 M00S02116.xedit +++| .COPY COMMAND COPY,,ONEFILE,070011B,CPY,(LK,IN,F0),OVL2 02149 M00S02117.xedit +++| .COPYD COMMAND COPYD,,ONEFILE,070011B,CPY11,,OVL2 02150 M00S02118.xedit +++| .DBADL COMMAND DBADL,DBL,NUMBER1,-1,PBL,,OVL2 02151 M00S02119.xedit +++| .DEFTAB COMMAND DEFTAB,DT,CHAR,(TABCHAR*2+0),SCH,(CR,IN,LK) 02152 M00S02120.xedit +++| .DELETE COMMAND DELETE,D,STRING,070000B,DLT 02153 M00S02121.xedit +++| .DEL COMMAND DELIMIT,DEL,CHAR,1,DEL,(CR,LK,IN) 02154 M00S02122.xedit +++| .DEOF COMMAND DEOF,DF,NUMBER1,DF,DRF 02155 M00S02123.xedit +++| .DEOR COMMAND DEOR,DR,NUMBER1,DR,DRF 02156 M00S02124.xedit +++| .DLN COMMAND DELETELN,DLN,NONE,0,PLN,,OVL2 02157 M00S02125.xedit +++| .DLB COMMAND DLBLANKS,DLB,NUMBER1,,DLB,,OVL2
| Line S02126 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02158 M01S02126.xedit12 ---| .EDIT COMMAND EDIT,,NONE,,EDT,(IN)
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02159 M01S00002.xedit12 +++| .EDIT COMMAND EDIT,,NONE,,PEC,(IN) 02160 M00S02127.xedit +++| .END COMMAND END,E,ONEFILE,000022B,EFQ 02161 M00S02128.xedit +++| .EXPLAI COMMAND EXPLAIN,,NONE,,EXP,(CR,IN,LK),OVL1 02162 M00S02129.xedit +++| .FBADL COMMAND FBADL,FBL,NUMBER1,1,PBL,(LK),OVL2 02163 M00S02130.xedit +++| .FILE COMMAND FILE,F,ONEFILE,000022B,EFQ 02164 M00S02131.xedit +++| .FINDLL COMMAND FINDLL,FLL,NUMBER1,,FLL,(LK) 02165 M00S02132.xedit +++| .HELP COMMAND HELP,H,NULL,,HELP,(CR,LK,IN),OVL1 02166 M00S02133.xedit +++| .INPUT COMMAND INPUT,,CHAR,0,INP,(CR) 02167 M00S02134.xedit +++| .INSERT COMMAND INSERT,I,NUMBER1,IIB4,IIB,(CR) 02168 M00S02135.xedit +++| .IB COMMAND INSERTB,IB,NUMBER1,IIB3,IIB,(IN) 02169 M00S02136.xedit +++| .LISTAB COMMAND LISTAB,LT,NONE,,LTB,(CR,LK,IN),OVL2 02170 M00S02137.xedit +++| .LOCATE COMMAND LOCATE,L,STRING,260000B,LCT,(LK) 02171 M00S02138.xedit +++| IF DEF,TIMES,1 02172 M00S02139.xedit +++| .LOC COMMAND LOC,,STRING,260000B,LCTA,(LK) 02173 M00S02140.xedit +++| .MODIFY COMMAND MODIFY,M,NONE,0,MOD,(IN) 02174 M00S02141.xedit +++| .NEXT COMMAND NEXT,N,NEXT,,NXT,(LK) 02175 M00S02142.xedit +++| .NOBELL COMMAND NOBELLS,NB,NONE,,NBL,(CR,IN,LK),OVL2 02176 M00S02143.xedit +++| .OCTCHA COMMAND OCTCHANGE,OC,NULL,300000B,OCT,(IN,F0),OVL2 02177 M00S02144.xedit +++| .PRINT COMMAND PRINT,P,NUMBER1,,PNT,(CR,IN,LK,F0) 02178 M00S02145.xedit +++| .QMOD COMMAND QMOD,QM,NUMBER1,0,MOD1,(IN,F0) 02179 M00S02146.xedit +++| .QUIT COMMAND QUIT,Q,ONEFILE,000022B,EFQ 02180 M00S02147.xedit +++| .READ COMMAND READ,,NULL,,RDP,,OVL2 02181 M00S02148.xedit +++| .READP COMMAND READP,,NULL,,RDP,,OVL2 02182 M00S02149.xedit +++| .REPLACE COMMAND REPLACE,R,NUMBER1,,RLP,(IN,F0) 02183 M00S02150.xedit +++| .RLN COMMAND REPLACELN,RLN,NUMBER2,1,PLN,,OVL2 02184 M00S02151.xedit +++| .RESTOR COMMAND RESTORE,REST,NONE,,RST 02185 M00S02152.xedit +++| .RM COMMAND RMARGIN,RM,NUMBER1,,RMA,(CR,IN,LK) 02186 M00S02153.xedit +++| .STOP COMMAND STOP,,NONE,,ABO,(CR,LK) 02187 M00S02154.xedit +++| .TABS COMMAND TABS,TAB,NUMBER,NTABS,STB,(CR,LK,IN) 02188 M00S02155.xedit +++| .TEOF COMMAND TEOF,,TOGGLE,ITOGGLF,TGL,(CR,LK,IN) 02189 M00S02156.xedit +++| .TEOR COMMAND TEOR,,TOGGLE,ITOGGLR,TGL,(CR,LK,IN) 02190 M00S02157.xedit +++| .TRIM COMMAND TRIM,,TOGGLE,TRIM,TGL,(CR,LK,IN) 02191 M00S02158.xedit +++| .TRUNC COMMAND TRUNCATE,TRUNC,NUMBER1,,TRN,(IN,F0) 02192 M00S02159.xedit +++| .TOP COMMAND TOP,T,NONE,,TTN,(LK) 02193 M00S02160.xedit +++| .TOPNUL COMMAND TOPNULL,TN,NONE,,TTN 02194 M00S02161.xedit +++| .VERIFY COMMAND VERIFY,V,TOGGLE,(XVERIFY*2+1),SFG,(CR,LK,IN) 02195 M00S02162.xedit +++| .WEOF COMMAND WEOF,WF,NONE,34B,WRM,(IN) 02196 M00S02163.xedit +++| .WEOR COMMAND WEOR,WR,NONE,24B,WRM,(IN) 02197 M00S02164.xedit +++| .WHERE COMMAND WHERE,W,NONE,,WHR,(CR,IN,LK) 02198 M00S02165.xedit +++| .WM COMMAND WMARGIN,WM,NUMBER2,,SWN,(CR,IN,LK) 02199 M00S02166.xedit +++| .Y COMMAND Y,,NULL,,YZP,(CR,LK,IN) 02200 M00S02167.xedit +++| .YQMOD COMMAND YQMOD,YQM,NUMBER1,0,MOD2,(IN,F0) 02201 M00S02168.xedit +++| .Z COMMAND Z,,NULL,,YZP,(CR,IN,LK) 02202 M00S02169.xedit +++| JUMPX DATA 0
| Line S02170 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02203 M01S02170.v23l617 ---| VFD 2/3,58/0 ILLEGAL COMMAND MARKER
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02204 M01S00014.v23l617 +++| VFD 2/3,58/0 INCORRECT COMMAND MARKER 02205 M00S02171.xedit +++| SPACE 4 02206 M00S02172.xedit +++|** ASSEMBLE DATA NEEDED FOR OVERLAYS. 02207 M00S02173.xedit +++|* THIS CODE NEEDS TO BE AFTER THE COMMAND DEFINITIONS. 02208 M00S02174.xedit +++| 02209 M00S02175.xedit +++| 02210 M00S02176.xedit +++| LOVA VFD 24/0,30/0LXEDIT,6/0 OVERLAY BASE NAME 02211 M00S02177.xedit +++| LOVB VFD 30/MINFL,30/0 MINIMUM BASE FIELD LENGTH 02212 M00S02178.xedit +++| C.A SET 1 PREPARE TABLE OF FIELD LENGTHS 02213 M00S02179.xedit +++| DUP MXOVL,3 02214 M00S02180.xedit +++| C.D DECMIC C.A 02215 M00S02181.xedit +++| VFD 30//XEDIT_"C.D"_/LWA,30/0 02216 M00S02182.xedit +++| C.A SET C.A+1 02217 M00S02183.xedit +++| .H IFEQ DEBUG,1 IF DEBUG ON 02218 M00S02184.xedit +++| DATA 10H LOADING 02219 M00S02185.xedit +++| .H ENDIF 02220 M00S02186.xedit +++| LOVC BSSZ 1 OVERLAY NAME 02221 M00S02187.xedit +++| LOVD VFD 6/1,6/,5/,1/1,24/,*P/ 02222 M00S02188.xedit +++| LOVE CON 0 LAST OVERLAY LOADED 02223 M00S02189.xedit +++| IFEQ FILEOV,3,6 02224 M00S02190.xedit +++| LOVF CON 0 .NE.0 IF OVERLAY LOADED FROM LIBRARY 02225 M00S02191.xedit +++| LOVG BSS 0 02226 M00S02192.xedit +++| .I IFEQ DEBUG,1 IF DEBUG ON 02227 M00S02193.xedit +++| SCRG FILEC E.SCR,150D,(FET=13D),EPR 02228 M00S02194.xedit +++| .I ELSE 02229 M00S02195.xedit +++| SCRG FILEC E.SCR,150D,(FET=13D),(USN=LIBRARY),EPR 02230 M00S02196.xedit +++| .I ENDIF 02231 M00S02197.xedit +++| 02232 M00S02198.xedit +++| TITLE COMMAND PROCESSORS. 02233 M00S02199.xedit +++|** ENTRY CONDITIONS TO ALL COMMAND PROCESSORS - 02234 M00S02200.xedit +++|* 02235 M00S02201.xedit +++|* (X1) = (DECA) - INSTRUCTION DESCRIPTER WORD. 02236 M00S02202.xedit +++|* (INDEX) = ADDRESS OF INSTRUCTION DESCRIPTER WORD. 02237 M00S02203.xedit +++| ABO SPACE 4,10 02238 M00S02204.xedit +++|** ABO - PROCESS ABORT COMMAND. 02239 M00S02205.xedit +++|* 02240 M00S02206.xedit +++|* ENTRY NONE. 02241 M00S02207.xedit +++|* 02242 M00S02208.xedit +++|* EXIT TO *ABT*. 02243 M00S02209.xedit +++|* 02244 M00S02210.xedit +++|* USES A - 2. 02245 M00S02211.xedit +++|* X - 2. 02246 M00S02212.xedit +++|* B - 6. 02247 M00S02213.xedit +++|* 02248 M00S02214.xedit +++|* MACROS RETURN. 02249 M00S02215.xedit +++| 02250 M00S02216.xedit +++|
| Line S02217 Modification History | |
|---|---|
M01 (Removed by) | xedit25 |
Seq # *Modification Id* Act ----------------------------+ 02251 M01S02217.xedit25 ---| ABO SB6 =C* ABORTED* 02252 M01S02218.xedit25 ---| SA2 SPCP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit25 |
Seq # *Modification Id* Act ----------------------------+ 02253 M01S00001.xedit25 +++| ABO SA2 SPCP 02254 M00S02219.xedit +++| LX2 59-58
| Line S02220 Modification History | |
|---|---|
M01 (Removed by) | xedit25 |
Seq # *Modification Id* Act ----------------------------+ 02255 M01S02220.xedit25 ---| PL X2,ABT IF *P* NOT SPECIFIED 02256 M01S02221.xedit25 ---| RETURN E.IN,R RETURN EDIT FILE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | xedit25 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02222.xedit +++| EQ ABT ABORT XEDIT 02266 M00S02223.xedit +++| ADD SPACE 4,15 02267 M00S02224.xedit +++|** ADD - ADD TEXT TO END OF LINE(S). 02268 M00S02225.xedit +++|* 02269 M00S02226.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO ADD. 02270 M00S02227.xedit +++|* 02271 M00S02228.xedit +++|* EXIT TO NCM. 02272 M00S02229.xedit +++|* 02273 M00S02230.xedit +++|* USES A - 1, 2, 6, 7. 02274 M00S02231.xedit +++|* X - 1, 2, 3, 4, 6, 7. 02275 M00S02232.xedit +++|* B - 4, 6, 7. 02276 M00S02233.xedit +++|*
| Line S02234 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02277 M01S02234.xedit21 ---|* CALLS ITM, RDL, RDF, SAL, VFY, WTF.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02278 M01S00001.xedit21 +++|* CALLS ITM, RDF, RDL, SAC, SAL, VFY, VRY, WTF. 02279 M00S02235.xedit +++|* 02280 M00S02236.xedit +++|* ROUTINE REQUESTS ONE LINE OF DATA, AND ADDS IT TO 02281 M00S02237.xedit +++|* THE END OF N LINES. THE TRUNCATION MESSAGE IS ISSUED 02282 M00S02238.xedit +++|* IF THE RESULTANT LENGTH IS GREATER THAN 160 CHARACTERS. 02283 M00S02239.xedit +++| 02284 M00S02240.xedit +++| 02285 M00S02241.xedit +++| ADD SA1 NUMS
| Line S02242 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02286 M01S02242.xedit21 ---| SX6 X1-1 DECREMENT TO MAKE TESTING EASIER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02287 M01S00002.xedit21 +++| SX6 B1 02288 M01S00003.xedit21 +++| IX6 X1-X6 DECREMENT TO MAKE TESTING EASIER 02289 M00S02243.xedit +++| SA6 A1 02290 M00S02244.xedit +++| RJ SAC SET ASCII PROCESSING 02291 M00S02245.xedit +++| RJ RDL 02292 M00S02246.xedit +++| NZ X1,NCM IF NOTHING ON LINE (RETURN) 02293 M00S02247.xedit +++| EQ ADD2 PROCESS ADD 02294 M00S02248.xedit +++| 02295 M00S02249.xedit +++| ADD1 SA6 A1 REPLACE COUNT 02296 M00S02250.xedit +++| RJ WTF 02297 M00S02251.xedit +++| RJ RDF 02298 M00S02252.xedit +++| ADD2 SA1 E.STR-1 02299 M00S02253.xedit +++| SA2 D.STR-1 02300 M00S02254.xedit +++| SX3 X1-160D 02301 M00S02255.xedit +++| BX3 -X3 NUMBER OF AVAILABLE CHARACTERS 02302 M00S02256.xedit +++| IX4 X3-X2 02303 M00S02257.xedit +++| SB7 A1 02304 M00S02258.xedit +++| PL X4,ADD3 IF NO TRUNCATION 02305 M00S02259.xedit +++| BX2 X3 TRUNCATE DATA LINE 02306 M00S02260.xedit +++| ADD3 IX7 X1+X2 GET NEW LENGTH 02307 M00S02261.xedit +++| SB6 B7+X1 ADDR OF LAST CHAR IN EDIT LINE 02308 M00S02262.xedit +++| MX6 2 SET END OF LINE 02309 M00S02263.xedit +++| SB4 X2+B1 INCLUDE END OF LINE 02310 M00S02264.xedit +++| ADD4 SA6 B6+B4 02311 M00S02265.xedit +++| SB4 B4-B1 02312 M00S02266.xedit +++| SA1 A2+B4 02313 M00S02267.xedit +++| BX6 X1 02314 M00S02268.xedit +++| NZ B4,ADD4 IF NOT ALL MOVED 02315 M00S02269.xedit +++| SA7 E.STR-1 02316 M00S02270.xedit +++| PL X4,ADD5 IF NO TRUNCATION 02317 M00S02271.xedit +++| RJ ITM ISSUE TRUNCATION MESSAGE 02318 M00S02272.xedit +++| ADD5 SX7 B1 02319 M00S02273.xedit +++| SA7 E.LMOD SET MODIFICATIONS MADE 02320 M00S02274.xedit +++| SA7 NOMOD SET FILE MODIFICATIONS MADE 02321 M00S02275.xedit +++| RJ VRY VERIFY LINE 02322 M00S02276.xedit +++| SA1 NUMS
| Line S02277 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02323 M01S02277.xedit21 ---| SX6 X1-1
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02324 M01S00004.xedit21 +++| SX6 B1 02325 M01S00005.xedit21 +++| IX6 X1-X6 02326 M00S02278.xedit +++| NG X6,NCM IF FINISHED 02327 M00S02279.xedit +++| EQ ADD1 PROCESS NEXT LINE 02328 M00S02280.xedit +++| BTR SPACE 4,25 02329 M00S02281.xedit +++|** BTR - ADVANCE TO BOTTOM OF CURRENT RECORD. 02330 M00S02282.xedit +++|* 02331 M00S02283.xedit +++|* ENTRY NONE. 02332 M00S02284.xedit +++|* 02333 M00S02285.xedit +++|* EXIT TO VRT. 02334 M00S02286.xedit +++|* 02335 M00S02287.xedit +++|* USES A - 1, 2, 3. 02336 M00S02288.xedit +++|* X - 1, 2, 3. 02337 M00S02289.xedit +++|* 02338 M00S02290.xedit +++|* CALLS RDF, WTF. 02339 M00S02291.xedit +++|* 02340 M00S02292.xedit +++|* MACROS RECALL. 02341 M00S02293.xedit +++|* 02342 M00S02294.xedit +++|* THIS ROUTINE TAKES ASSUMES THAT THE END OF RECORD HAS BEEN 02343 M00S02295.xedit +++|* ENCOUNTERED WHEN THE FOLLOWING CONDITIONS ARE TRUE. 02344 M00S02296.xedit +++|* 1. THE FET IS NOT BUSY 02345 M00S02297.xedit +++|* 2. *IN* IS EQUAL TO *OUT* 02346 M00S02298.xedit +++|* DUE TO XEDIT,S HABIT OF PASSING OVER NULL RECORD/FILES THESE 02347 M00S02299.xedit +++|* CONDITIONS WILL LOCATE THE BOTTOM. 02348 M00S02300.xedit +++|* NOTE- XEDIT WILL TREAT AN EOF AS AN EOR IF THERE IS TEXT 02349 M00S02301.xedit +++|* IMMEDIATELY BEFORE THE EOF. THIS WAS ASSUMED WITHIN THE 02350 M00S02302.xedit +++|* OF THE DESIRED FUNCTION OF BOTTOM. 02351 M00S02303.xedit +++| 02352 M00S02304.xedit +++| 02353 M00S02305.xedit +++| BTR1 RJ WTF ADVANCE TO NEXT LINE 02354 M00S02306.xedit +++| RJ RDF 02355 M00S02307.xedit +++| BTR SA1 E.IN+2 *IN* 02356 M00S02308.xedit +++| SA2 A1+B1 *OUT* 02357 M00S02309.xedit +++| IX2 X2-X1 02358 M00S02310.xedit +++| NZ X2,BTR1 IF *IN* NOT EQUAL TO *OUT* (NOT AT END) 02359 M00S02311.xedit +++| SA3 E.IN 02360 M00S02312.xedit +++| LX3 59-0 02361 M00S02313.xedit +++| NG X3,VRT IF FET IS COMPLETE 02362 M00S02314.xedit +++| RECALL A3 WAIT FET COMPLETION 02363 M00S02315.xedit +++| EQ BTR FIND BOTTOM 02364 M00S02316.xedit +++| CNG/CNS SPACE 4,15 02365 M00S02317.xedit +++|** CNG/CNS - PROCESS CHANGE AND CHANGES COMMANDS. 02366 M00S02318.xedit +++|* 02367 M00S02319.xedit +++|* ENTRY (NUMS) = IF VIA *CNG*, NUMBER OF LINES. 02368 M00S02320.xedit +++|* IF VIA *CNS*, NUMBER OF STRINGS. 02369 M00S02321.xedit +++|* 02370 M00S02322.xedit +++|* EXIT TO *NCM*. 02371 M00S02323.xedit +++|* IF STRING NOT FOUND, TO *LCT4* 02372 M00S02324.xedit +++|*
| Line S02325 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02373 M01S02325.xedit21 ---|* USES A - 0, 1, 6, 7. 02374 M01S02326.xedit21 ---|* X - 0, 1, 5, 6, 7. 02375 M01S02327.xedit21 ---|* B - 2, 6.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02328.xedit +++|* 02380 M00S02329.xedit +++|* CALLS CHS, ITM, RDF, TSL, VRY, WTF. 02381 M00S02330.xedit +++| 02382 M00S02331.xedit +++| 02383 M00S02332.xedit +++| CNG SX0 E.SCR+160D SET LWA+1 OF SCRATCH, ENTRY 02384 M00S02333.xedit +++| EQ CNG1 PROCESS CHANGE 02385 M00S02334.xedit +++| 02386 M00S02335.xedit +++| CGS SX0 E.SCR+160D SET LWA+1 OF SCRATCH, ENTRY 02387 M00S02336.xedit +++| MX7 1 02388 M00S02337.xedit +++| BX0 X0+X7 SET STRING MODE 02389 M00S02338.xedit +++| CNG1 SA0 E.SCR SET FWA OF BUFFER 02390 M00S02339.xedit +++| RJ CHS CHANGE STRING(S) 02391 M00S02340.xedit +++| ZR B5,CNG5 IF STRING NOT FOUND 02392 M00S02341.xedit +++| NZ X5,CNG2 IF NO TRUNCATION 02393 M00S02342.xedit +++| SA1 P1RP CHECK IF STRING LENGTHS ARE EQUAL 02394 M00S02343.xedit +++| SA4 P1LP 02395 M00S02344.xedit +++| IX6 X1-X4 02396 M00S02345.xedit +++| SA1 P3RP 02397 M00S02346.xedit +++| SA4 P3LP 02398 M00S02347.xedit +++| IX1 X1-X4 02399 M00S02348.xedit +++| IX6 X6-X1 02400 M00S02349.xedit +++| ZR X6,CNG2 IF STRING LENGTHS ARE EQUAL 02401 M00S02350.xedit +++| RJ ITM ISSUE TRUNCATION MESSAGE 02402 M00S02351.xedit +++| CNG2 SA1 E.SCR 02403 M00S02352.xedit +++| SB6 E.STR-1 02404 M00S02353.xedit +++| SX7 B1 02405 M00S02354.xedit +++| 02406 M00S02355.xedit +++|* COPY LINE BACK FROM SCRATCH AREA. 02407 M00S02356.xedit +++| 02408 M00S02357.xedit +++| CNG3 BX6 X1 02409 M00S02358.xedit +++| SB6 B6+B1 02410 M00S02359.xedit +++| SA1 A1+B1 02411 M00S02360.xedit +++| SA6 B6 02412 M00S02361.xedit +++| PL X6,CNG3 IF NOT END OF LINE 02413 M00S02362.xedit +++| SB6 E.STR-1 02414 M00S02363.xedit +++| RJ TSL TRIM SPACES OFF LINE 02415 M00S02364.xedit +++| SA7 NOMOD 02416 M00S02365.xedit +++| SA7 E.LMOD 02417 M00S02366.xedit +++| RJ VRY VERIFY THE CHANGE 02418 M00S02367.xedit +++| BX6 X0 02419 M00S02368.xedit +++| AX6 59-1 =0 IF REGULAR, =-1 IF STRING MODE 02420 M00S02369.xedit +++| SA1 NUMS 02421 M00S02370.xedit +++| IX6 X1-X6 IF STRING, INCREMENT
| Line S02371 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02422 M01S02371.xedit21 ---| SB2 X6 02423 M01S02372.xedit21 ---| SX7 X6-1 DECREMENT COUNT (IF STRING, RESET) 02424 M01S02373.xedit21 ---| LE B2,B1,NCM IF FINISHED
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02374.xedit +++| SA7 A1+ 02430 M00S02375.xedit +++| 02431 M00S02376.xedit +++|* ADVANCE POINTER AND CONTINUE. 02432 M00S02377.xedit +++| 02433 M00S02378.xedit +++| CNG4 BX5 X0 SAVE (X0) 02434 M00S02379.xedit +++| RJ WTF 02435 M00S02380.xedit +++| RJ RDF 02436 M00S02381.xedit +++| BX0 X5 RESTORE (X0) 02437 M00S02382.xedit +++| EQ CNG1 CONTINUE CHANGE 02438 M00S02383.xedit +++| 02439 M00S02384.xedit +++|* PROCESS STRING NOT FOUND. 02440 M00S02385.xedit +++| 02441 M00S02386.xedit +++| CNG5 SA1 NUMS 02442 M00S02387.xedit +++| PL X1,CNG4 IF NOT 0 OPTION 02443 M00S02388.xedit +++| EQ LCT4 ISSUE * STRING NOT FOUND.* 02444 M00S02389.xedit +++| DEL SPACE 4,10 02445 M00S02390.xedit +++|** DEL - SET DELIMITER CHARACTER. 02446 M00S02391.xedit +++|* 02447 M00S02392.xedit +++|* ENTRY (NUMS) = NEW DELIMITER CHARACTER. 02448 M00S02393.xedit +++|* 02449 M00S02394.xedit +++|* EXIT TO *NCM*. 02450 M00S02395.xedit +++|* 02451 M00S02396.xedit +++|* USES A - 1, 2, 4, 6. 02452 M00S02397.xedit +++|* X - 1, 2, 3, 4, 6. 02453 M00S02398.xedit +++| 02454 M00S02399.xedit +++| 02455 M00S02400.xedit +++| DEL SA2 NUMS 02456 M00S02401.xedit +++| MX3 -18 02457 M00S02402.xedit +++| BX2 -X3*X2 REMOVE EXCESS CHARACTERS (IF -1) 02458 M00S02403.xedit +++| SA4 C.ON 02459 M00S02404.xedit +++| SX4 X4-Y.DEV 02460 M00S02405.xedit +++| ZR X4,DEL1 IF NOT CURRENTLY *Y/Z* LINE 02461 M00S02406.xedit +++| 02462 M00S02407.xedit +++|* NOTE- Y/Z DELIMIT COMMAND TAKES EFFECT 02463 M00S02408.xedit +++|* OUTSIDE OF *Y/Z* COMMAND STRING. 02464 M00S02409.xedit +++| 02465 M00S02410.xedit +++| SA1 C.STR-1 02466 M00S02411.xedit +++| BX1 X3*X1 02467 M00S02412.xedit +++| IX6 X1+X2 02468 M00S02413.xedit +++| SA6 A1 02469 M00S02414.xedit +++| DEL1 SA1 I.DEV+1 02470 M00S02415.xedit +++| BX1 X3*X1 02471 M00S02416.xedit +++| IX6 X1+X2 02472 M00S02417.xedit +++| SA6 A1 02473 M00S02418.xedit +++| SA1 S.DEV+1 02474 M00S02419.xedit +++| BX1 X3*X1 02475 M00S02420.xedit +++| IX6 X1+X2 02476 M00S02421.xedit +++| SA6 A1 02477 M00S02422.xedit +++| EQ NCM EXIT 02478 M00S02423.xedit +++| DLT SPACE 4,15 02479 M00S02424.xedit +++|** DLT - DELETE LINE(S). 02480 M00S02425.xedit +++|* 02481 M00S02426.xedit +++|* ENTRY (NUMS) = COUNT (-0 = NO ADVANCE). 02482 M00S02427.xedit +++|* STRING FIELDS PARSED AND INITIALIZED. 02483 M00S02428.xedit +++|* 02484 M00S02429.xedit +++|* EXIT TO *NCM*. 02485 M00S02430.xedit +++|* 02486 M00S02431.xedit +++|* USES A - 1, 6, 7. 02487 M00S02432.xedit +++|* X - 1, 5, 6, 7. 02488 M00S02433.xedit +++|* B - 4. 02489 M00S02434.xedit +++|* 02490 M00S02435.xedit +++|* CALLS LOC, RDF, VRY, WTF. 02491 M00S02436.xedit +++| 02492 M00S02437.xedit +++| 02493 M00S02438.xedit +++| DLT1 SA1 NUMS 02494 M00S02439.xedit +++| NG X1,LCT4 IF -0 OPTION. (STRING NOT FOUND) 02495 M00S02440.xedit +++| RJ WTF 02496 M00S02441.xedit +++| DLT2 RJ RDF 02497 M00S02442.xedit +++| DLT SB4 E.STR-1 SET FWA SEARCH -1 02498 M00S02443.xedit +++| RJ LOC 02499 M00S02444.xedit +++| ZR B5,DLT1 IF STRING NOT IN LINE 02500 M00S02445.xedit +++| SA1 NUMS 02501 M00S02446.xedit +++| SX7 B1 02502 M00S02447.xedit +++| IX6 X1-X7 DECREMENT COUNT 02503 M00S02448.xedit +++| AX5 X1,B1 02504 M00S02449.xedit +++| SA6 A1 02505 M00S02450.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE TO FILE 02506 M00S02451.xedit +++| RJ VRY VERIFY DELETED LINE 02507 M00S02452.xedit +++| NZ X5,DLT2 IF MORE TO DELETE 02508 M00S02453.xedit +++| RJ RDF CREAM EXISTING LINE 02509 M00S02454.xedit +++| EQ NCM EXIT 02510 M00S02455.xedit +++| DRF SPACE 4,10 02511 M00S02456.xedit +++|** DRF - DELETE RECORD/FILE MARKS. 02512 M00S02457.xedit +++|* 02513 M00S02458.xedit +++|* ENTRY (NUMS) = NUMBER TO DELETE. 02514 M00S02459.xedit +++|* (X1) = ADDRESS OF DELETION COUNT CELL. 02515 M00S02460.xedit +++|* 02516 M00S02461.xedit +++|* USES A - 0, 1, 2, 6. 02517 M00S02462.xedit +++|* X - 1, 2, 6. 02518 M00S02463.xedit +++|* 02519 M00S02464.xedit +++|* CALLS RDF, WTF. 02520 M00S02465.xedit +++| 02521 M00S02466.xedit +++| 02522 M00S02467.xedit +++| DRF SA2 NUMS 02523 M00S02468.xedit +++| AX1 18 GET CELL ADDRESS 02524 M00S02469.xedit +++| SA0 X1 SAVE CELL 02525 M00S02470.xedit +++| NZ X2,DRF0 IF NOT ZERO 02526 M00S02471.xedit +++| SX2 1 02527 M00S02472.xedit +++| DRF0 BX6 X2 02528 M00S02473.xedit +++| SA6 A0 SET DELETION COUNT 02529 M00S02474.xedit +++| DRF1 RJ WTF WRITE CURRENT LINE 02530 M00S02475.xedit +++| RJ RDF READ NEXT 02531 M00S02476.xedit +++| SA1 A0 02532 M00S02477.xedit +++| NZ X1,DRF1 IF NOT DELETED 02533 M00S02478.xedit +++| MX6 0 02534 M00S02479.xedit +++| SA6 NOMOD SET MODIFICATIONS MADE 02535 M00S02480.xedit +++| EQ NCM EXIT
| Line S02481 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02536 M01S02481.xedit12 ---| EDT SPACE 4,15 02537 M01S02482.xedit12 ---|** EDT - PROCESS EDIT COMMAND.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02538 M01S00003.xedit12 +++| PEC SPACE 4,15 02539 M01S00004.xedit12 +++|** PEC - PROCESS EDIT COMMAND. 02540 M00S02483.xedit +++|* 02541 M00S02484.xedit +++|* ENTRY NONE. 02542 M00S02485.xedit +++|* 02543 M00S02486.xedit +++|* EXIT (INPMODE) = 1. 02544 M00S02487.xedit +++|* TO *NCM*. 02545 M00S02488.xedit +++|* 02546 M00S02489.xedit +++|* USES A - 6. 02547 M00S02490.xedit +++|* X - 6. 02548 M00S02491.xedit +++|* 02549 M00S02492.xedit +++|* MACROS WRITEC. 02550 M00S02493.xedit +++| 02551 M00S02494.xedit +++|
| Line S02495 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02552 M01S02495.xedit12 ---| EDT SX6 B1
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02553 M01S00005.xedit12 +++| PEC SX6 B1 02554 M00S02496.xedit +++| SA6 INPMODE CLEAR INPUT MODE FLAG 02555 M00S02497.xedit +++| WRITEC OUTPUT,(=C* EDIT*) 02556 M00S02498.xedit +++| EQ NCM EXIT 02557 M00S02499.xedit +++| EFQ SPACE 4,20 02558 M00S02500.xedit +++|** EFQ - END, FILE, AND QUIT PROCESSOR. 02559 M00S02501.xedit +++|* 02560 M00S02502.xedit +++|* ENTRY (IFN) = FILE NAME PARAMETER. 02561 M00S02503.xedit +++|* (NUMS) = OPTIONS. 02562 M00S02504.xedit +++|* 02563 M00S02505.xedit +++|* EXIT IF TO TERMINATE XEDIT, TO *EXT*. 02564 M00S02506.xedit +++|* IF ERRORS, TO *CER* OR *NCM*. 02565 M00S02507.xedit +++|* 02566 M00S02508.xedit +++|* USES A - ALL. 02567 M00S02509.xedit +++|* X - ALL. 02568 M00S02510.xedit +++|* B - 2, 6, 7. 02569 M00S02511.xedit +++|* 02570 M00S02512.xedit +++|* CALLS CFF, PFM=, RDF, TOP. 02571 M00S02513.xedit +++|* 02572 M00S02514.xedit +++|* MACROS ERROR, FERROR, READ, RECALL, RENAME, 02573 M00S02515.xedit +++|* REWIND, STATUS. 02574 M00S02516.xedit +++| 02575 M00S02517.xedit +++| 02576 M00S02518.xedit +++| EFQ SA5 IFN GET SPECIFIED NAME 02577 M00S02519.xedit +++| SX6 B1 02578 M00S02520.xedit +++| MX7 0 02579 M00S02521.xedit +++| NZ X5,EFQ0 IF FILE NAME SPECIFIED 02580 M00S02522.xedit +++| SA5 ISFN USE *EDITFIL* 02581 M00S02523.xedit +++| EFQ0 SA7 SFET+5 CLEAR FNT/FST INFORMATION 02582 M00S02524.xedit +++| BX6 X6+X5 02583 M00S02525.xedit +++| SA7 A7+B1 02584 M00S02526.xedit +++| SA6 SFET 02585 M00S02527.xedit +++| RECALL E.IN WAIT ALL QUIET 02586 M00S02528.xedit +++| STATUS SFET,P OBTAIN INFORMATION 02587 M00S02529.xedit +++| SA4 SFET+5 GET FNT ENTRY 02588 M00S02530.xedit +++| SA1 SFET+1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02589 M01S00001.xedi13b +++| MX7 -6 SAVE FILE STATUS 02590 M01S00002.xedi13b +++| BX7 -X7*X4 02591 M01S00003.xedi13b +++| SA7 EFQB 02592 M00S02531.xedit +++| MX6 -8 ISOLATE PFM ERROR CODE 02593 M00S02532.xedit +++| MX7 1 02594 M00S02533.xedit +++| SA3 NUMS GET OPTIONS 02595 M00S02534.xedit +++| BX1 -X7*X1 CLEAR BIT 59 02596 M00S02535.xedit +++| LX4 -6 POSITION TO FILE TYPE 02597 M00S02536.xedit +++| BX6 -X6*X4 OBTAIN FILE TYPE 02598 M00S02537.xedit +++| AX1 -12 SHIFT DEVICE TYPE 02599 M00S02538.xedit +++| SX0 X6-PMFT =0 IF D.A. FILE 02600 M00S02539.xedit +++| ZR X0,EFQ1 IF DIRECT ACCESS FILE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02601 M01S00002.xedit13 +++| SX0 X6-QFFT 02602 M01S00003.xedit13 +++| ZR X0,EFQ1 IF QUEUE FILE 02603 M00S02540.xedit +++| SX0 X1-2RMT 02604 M00S02541.xedit +++| ZR X0,EFQ1 IF *MT* TYPE FILE 02605 M00S02542.xedit +++| SX0 X1-2RNT 02606 M00S02543.xedit +++|
| Line S02544 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02607 M01S02544.xedit13 ---|* (X0) = 0, IF FILE IS D.A, MT OR NT (NEED COPYBACK).
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02608 M01S00004.xedit13 +++|* (X0) = 0, IF FILE IS D.A., QUEUE, MT OR NT (NEED COPYBACK). 02609 M00S02545.xedit +++|* (X5) = FILE NAME. 02610 M00S02546.xedit +++|* (X3) = OPTIONS. 02611 M00S02547.xedit +++|* (X4) = FNT ENTRY SHIFTED LEFT -6. 02612 M00S02548.xedit +++| 02613 M00S02549.xedit +++| EFQ1 NZ X3,EFQ2 IF HAVE EXIT TYPE 02614 M00S02550.xedit +++| SX3 1BS0 SET DEFAULT OF LOCAL 02615 M00S02551.xedit +++| NZ X0,EFQ2 IF NOT DEFAULT OF COPYBACK 02616 M00S02552.xedit +++| SX3 1BS3 SET DEFAULT OF COPYBACK 02617 M00S02553.xedit +++| 02618 M00S02554.xedit +++|* CLEAR *L* FLAG IF *C* FLAG USED. 02619 M00S02555.xedit +++| 02620 M00S02556.xedit +++| EFQ2 BX6 X3 02621 M00S02557.xedit +++| SX7 B1 02622 M00S02558.xedit +++| LX6 0-3 02623 M00S02559.xedit +++| BX6 X7*X6 GET *C* FLAG 02624 M00S02560.xedit +++| BX3 -X6*X3 CONDITIONALLY CLEAR *L* 02625 M00S02561.xedit +++| LX1 X3 02626 M00S02562.xedit +++| 02627 M00S02563.xedit +++|* CHECK MODIFICATIONS ALLOWED TO FILE. 02628 M00S02564.xedit +++| 02629 M00S02565.xedit +++| SX7 50000B/100B 02630 M00S02566.xedit +++| SB2 EMI.*100B+1 02631 M00S02567.xedit +++| BX7 X7*X4 02632 M00S02568.xedit +++| NZ X7,CER IF NOT ALLOWED TO MODIFY FILE, EXIT 02633 M00S02569.xedit +++| EFQ3 NZ X0,EFQ4 IF NOT DA/MT/NT 02634 M00S02570.xedit +++| 02635 M00S02571.xedit +++|* IF DA/MT/NT MAKE SURE *L* NOT USED. 02636 M00S02572.xedit +++| 02637 M00S02573.xedit +++| SB2 EMI.*100B+2 02638 M00S02574.xedit +++| LX1 59-0 02639 M00S02575.xedit +++| NG X1,CER IF *L* USED, EXIT 02640 M00S02576.xedit +++| 02641 M00S02577.xedit +++|* (X3) = EXIT BITS (LOCAL,REPLACE,SAVE,COPYBACK). 02642 M00S02578.xedit +++|* (X5) = FINAL FILE NAME. 02643 M00S02579.xedit +++| 02644 M00S02580.xedit +++| EFQ4 SA2 NOMOD SET NOMOD TO NOMOD .OR. FS 02645 M00S02581.xedit +++| SA1 FS IF NOT ON SCRATCH FILE, COPY TO ONE 02646 M00S02582.xedit +++| SA0 X3 MOVE EXIT BITS TO A0 02647 M00S02583.xedit +++| BX6 X1*X2 UPDATE NOMOD 02648 M00S02584.xedit +++| MX7 0 02649 M00S02585.xedit +++| SA6 A2 02650 M00S02586.xedit +++| SA7 IWHERE SET =0 TO FORCE COPY IF AT LINE 1 02651 M00S02587.xedit +++| RJ TOP COPY FILE TO SCRATCH FILE 02652 M00S02588.xedit +++| SX0 A0 SET STATUS BITS TO X0 02653 M00S02589.xedit +++| SA4 EFQA-1 02654 M00S02590.xedit +++| EFQ5 SA4 A4+B1 GET NEXT OPTION 02655 M00S02591.xedit +++| ZR X4,EFQ10 IF END OF OPTIONS 02656 M00S02592.xedit +++| UX3,B7 X4 02657 M00S02593.xedit +++| SB6 X4 02658 M00S02594.xedit +++| LX1 B7,X0 02659 M00S02595.xedit +++| PL X1,EFQ5 IF OPTION NOT SPECIFIED 02660 M00S02596.xedit +++| JP B6 PROCESS OPTION 02661 M00S02597.xedit +++| 02662 M00S02598.xedit +++|* PROCESS PFM OPTIONS. 02663 M00S02599.xedit +++| 02664 M00S02600.xedit +++| EFQ6 SA1 E.IN GET LOCAL NAME
| Line S02601 Modification History | |
|---|---|
M01 (Removed by) | xedit9 |
Seq # *Modification Id* Act ----------------------------+ 02665 M01S02601.xedit9 ---| BX6 X5 02666 M00S02602.xedit ---| LX3 18 GET PFM CODE 02667 M00S02603.xedit ---| SX7 B1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit9 |
Seq # *Modification Id* Act ----------------------------+ 02668 M01S00001.xedit9 +++| ERRNZ PTRD-1 02669 M01S00002.xedit9 +++| BX6 X5+X7 02670 M00S02604.xedit +++| BX7 X7+X1 SET COMPLETE 02671 M00S02605.xedit +++| SA7 PFET SET LOCAL NAME 02672 M00S02606.xedit +++| SX7 X3 02673 M00S02607.xedit +++| SA6 PFET+8 SET PERMANENT NAME 02674 M00S02608.xedit +++| SA0 A6 SAVE FILE NAME ADDRESS 02675 M00S02609.xedit +++| SX2 A7 SET FET ADDRESS 02676 M00S02610.xedit +++| RJ PFM= MAKE REQUEST 02677 M00S02611.xedit +++| SA1 X2 02678 M00S02612.xedit +++| MX6 -8 02679 M00S02613.xedit +++| AX1 10 02680 M00S02614.xedit +++| BX6 -X6*X1 GET PFM ERROR 02681 M00S02615.xedit +++| ZR X6,EFQ9 IF VERIFY ACTION 02682 M00S02616.xedit +++| ERROR PFM.,X6 ISSUE PFM ERROR MESSAGE 02683 M00S02617.xedit +++| EQ EFQ11 END OF COMMAND 02684 M00S02618.xedit +++| 02685 M00S02619.xedit +++|* PROCESS LFM RENAME OPTION. 02686 M00S02620.xedit +++|
| Line S02621 Modification History | |
|---|---|
M01 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02687 M01S02621.xedi13b ---| EFQ7 SA0 E.IN+6
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
Seq # *Modification Id* Act ----------------------------+ 02693 M01S00001.xedi13a +++| BX6 X5 02694 M01S00002.xedi13a +++| SA6 A0 SET NEW NAME INTO FET
| Line S02622 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02695 M01S02622.xedit13 ---| SA1 SFET+6 OBTAIN FST ENTRY
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02696 M02S00005.xedi13b ---| SA1 SFET+5 OBTAIN FNT ENTRY 02697 M02S00006.xedi13b ---| MX4 -6 02698 M02S00007.xedi13b ---| BX4 -X4*X1 GET FILE STATUS FIELD
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
M02 (Removed by) | xedi13a |
M03 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02699 M03S00008.xedi13b ---| SX1 X4-NDST = 0, IF FILE STATUS IS *NO AUTO DROP* 02700 M03S00009.xedi13b ---| IX1 X1*X4 = 0, ONLY IF *AUTO DROP* OR *NO AUTO DROP*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02701 M02S00003.xedi13b ---| ZR X4,EFQ7.1 IF *AUTO DROP* STATUS 02702 M02S00004.xedi13b ---| SX1 X4-NDST 02703 M02S00005.xedi13b ---| NZ X1,EFQ8 IF NOT *NO AUTO DROP* STATUS 02704 M02S00006.xedi13b ---| SETFS SFET,NAD RESTORE *NO AUTO DROP* STATUS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02717 M02S00010.xedi13b ---| NZ X7,EFQ7.2 IF ERROR IN *SETFS*
| Line S02623 Modification History | |
|---|---|
M01 (Removed by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02718 M02S02623.xedi13b ---| BX6 X5
| Line S02624 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
M02 (Removed by) | xedi13a |
M03 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02719 M03S02624.xedi13b ---| MX7 6 02720 M03S02625.xedi13b ---| BX1 X7*X1 GET FILE *ID* FIELD
| Line S02626 Modification History | |
|---|---|
M01 (Removed by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02721 M02S02626.xedi13b ---| SA6 A0 SET NEW NAME INTO FET
| Line S02627 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
M02 (Removed by) | xedi13a |
M03 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02722 M03S02627.xedi13b ---| NZ X1,EFQ8 IF ID .NE. 0, COPY TO MAINTAIN *ID*
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
M02 (Removed by) | xedi13a |
M03 (Removed 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 (Removed by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02724 M02S02628.xedi13b ---| RENAME E.IN
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02725 M02S00011.xedi13b ---| EFQ7.1 RENAME E.IN RENAME SCRATCH FILE
| Line S02629 Modification History | |
|---|---|
M01 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02726 M01S02629.xedi13b ---| SA1 X2 02727 M01S02630.xedi13b ---| SX7 17BS10 02728 M01S02631.xedi13b ---| BX7 X7*X1 02729 M01S02632.xedi13b ---| SA7 FS INDICATE NOT READING SCRATCH FILE
| Line S02633 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02730 M02S02633.xedi13b ---| ZR X7,EFQ9 IF NO ERROR 02731 M02S02634.xedi13b ---| ERROR LFM.
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
M02 (Removed by) | xedi13a |
M03 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02732 M03S00011.xedi13b ---| NZ X7,EFQ7.1 IF ERROR DURING *RENAME* 02733 M03S00012.xedi13b ---| ZR X4,EFQ9 IF FILE STATUS IS *AUTO DROP* 02734 M03S00013.xedi13b ---| SETFS SFET,NAD 02735 M03S00014.xedi13b ---| SA1 X2 02736 M03S00015.xedi13b ---| SX4 17BS10 02737 M03S00016.xedi13b ---| BX7 X4*X1 02738 M03S00017.xedi13b ---| ZR X7,EFQ9 IF NO ERROR DURING *SETFS* 02739 M03S00018.xedi13b ---| EFQ7.1 ERROR LFM.
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
M02 (Removed by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02740 M02S00012.xedi13b ---| ZR X7,EFQ9 IF NO ERRORS IN *RENAME*
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02741 M01S00018.xedi13b +++| ZR X7,EFQ9 IF NO ERRORS IN *SETFS*
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | xedi13a |
Seq # *Modification Id* Act ----------------------------+ 02742 M01S00013.xedi13a +++| EFQ7.2 ERROR LFM. 02743 M00S02635.xedit +++| EQ EFQ11 END OF COMMAND 02744 M00S02636.xedit +++| 02745 M00S02637.xedit +++| EFQ8 READ E.IN START READ (ASSUMES NAME IN FET) 02746 M00S02638.xedit +++| SX6 B1 02747 M00S02639.xedit +++| BX6 X5+X6 SET COMPLETE 02748 M00S02640.xedit +++| SA6 CFET 02749 M00S02641.xedit +++| REWIND A6,RECALL RESET COPY FILE 02750 M00S02642.xedit +++| MX6 0 02751 M00S02643.xedit +++| SA6 CFET+5 CLEAR JUNK LEFT VIA STATUS 02752 M00S02644.xedit +++| SA6 A6+B1 02753 M00S02645.xedit +++| RJ CFF COPY FILE 02754 M00S02646.xedit +++| REWIND E.IN RESET EDIT FILE 02755 M00S02647.xedit +++| REWIND CFET,RECALL REWIND COPY FILE 02756 M00S02648.xedit +++| RECALL E.IN 02757 M00S02649.xedit +++| SA0 CFET SET FILE NAME POINTER 02758 M00S02650.xedit +++| 02759 M00S02651.xedit +++|* VERIFY ACTION. 02760 M00S02652.xedit +++| 02761 M00S02653.xedit +++| EFQ9 SA1 VERIFY
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02762 M01S00019.xedit13 +++| SA4 A4 RESTORE THE *EFQ* OPTION WORD 02763 M01S00020.xedit13 +++| SX2 A0 SET FET ADDRESS 02764 M00S02654.xedit +++| PL X1,EFQ5 IF NOT TO VERIFY
| Line S02655 Modification History | |
|---|---|
M01 (Removed by) | xedit13 |
Seq # *Modification Id* Act ----------------------------+ 02765 M01S02655.xedit13 ---| SX2 A0 SET FET ADDRESS 02766 M00S02656.xedit ---| AX4 18 02767 M00S02657.xedit ---| SA0 A4 SAVE VALUE OF A4 02768 M00S02658.xedit ---| FERROR X2,X4 02769 M00S02659.xedit ---| SA4 A0 RESET A4 02770 M00S02660.xedit ---| EQ EFQ5 GET NEXT OPTION 02771 M00S02661.xedit ---| 02772 M00S02662.xedit ---|* PROCESS END OF COMMAND. 02773 M00S02663.xedit ---| 02774 M00S02664.xedit ---| EFQ10 SA1 INDEX 02775 M00S02665.xedit ---| SX1 X1-.FILE 02776 M00S02666.xedit ---| NZ X1,EXT IF EXIT XEDIT 02777 M00S02667.xedit ---| EFQ11 READ E.IN,RECALL 02778 M00S02668.xedit ---| RJ RDF 02779 M00S02669.xedit ---| EQ NCM PROCESS END OF COMMAND 02780 M00S02670.xedit ---| 02781 M00S02671.xedit ---|* TABLE OF *EFQ* OPTIONS. 02782 M00S02672.xedit ---|* FORMAT IS- 02783 M00S02673.xedit ---|* 12/2000B+59-BIT NUMBER,6/PFM CODE,24/VERIFY ADDR,18/ROUTINE 02784 M00S02674.xedit ---| 02785 M00S02675.xedit ---| EFQA VFD 12/2000B+59-2,6/1,24/FSV.,18/EFQ6 SAVE 02786 M00S02676.xedit ---| VFD 12/2000B+59-1,6/6,24/FRP.,18/EFQ6 REPLACE 02787 M00S02677.xedit ---| VFD 12/2000B+59-0,6/0,24/FLC.,18/EFQ7 LOCAL 02788 M00S02678.xedit ---| VFD 12/2000B+59-3,6/0,24/FCP.,18/EFQ8 COPYBACK 02789 M00S02679.xedit ---| DATA 0
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | xedi13b |
Seq # *Modification Id* Act ----------------------------+ 02790 M01S00019.xedi13b +++| EFQB BSS 1 STORAGE FOR EDIT FILE STATUS 02791 M00S02680.xedit +++| FLL SPACE 4,15 02792 M00S02681.xedit +++|** FLL - FIND LONG LINE PROCESSOR. 02793 M00S02682.xedit +++|* 02794 M00S02683.xedit +++|* ENTRY (NUMS) = NUMBER OF LONG LINES TO FIND. 02795 M00S02684.xedit +++|* (IW) = WIDTH. IGNORE LINES OF LENGTH .LE. WIDTH. 02796 M00S02685.xedit +++|* 02797 M00S02686.xedit +++|* EXIT TO *NCM*. 02798 M00S02687.xedit +++|* 02799 M00S02688.xedit +++|* USES A - 1, 2, 6. 02800 M00S02689.xedit +++|* X - 1, 2, 6. 02801 M00S02690.xedit +++|* 02802 M00S02691.xedit +++|* CALLS SAC, VFY. 02803 M00S02692.xedit +++| 02804 M00S02693.xedit +++| 02805 M00S02694.xedit +++| FLL RJ SAC SET ASCII PROCESSING 02806 M00S02695.xedit +++| FLL1 SA1 E.STR-1 GET CHARS IN CURRENT LINE 02807 M00S02696.xedit +++| SA2 IW 02808 M00S02697.xedit +++| IX1 X2-X1 02809 M00S02698.xedit +++| PL X1,FLL2 IF LINE TOO SHORT 02810 M00S02699.xedit +++| RJ VRY VERIFY LONG LINE 02811 M00S02700.xedit +++| SA1 NUMS
| Line S02701 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02812 M01S02701.xedit21 ---| SX6 X1-1
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02813 M01S00013.xedit21 +++| SX6 B1 02814 M01S00014.xedit21 +++| IX6 X1-X6 02815 M00S02702.xedit +++| AX1 1 02816 M00S02703.xedit +++| ZR X1,NCM IF COUNT FINISHED, EXIT 02817 M00S02704.xedit +++| SA6 A1 02818 M00S02705.xedit +++| FLL2 RJ WTF ADVANCE TO NEXT LINE 02819 M00S02706.xedit +++| RJ RDF 02820 M00S02707.xedit +++| EQ FLL1 CHECK NEXT LINE 02821 M00S02708.xedit +++| FLN SPACE 4,15 02822 M00S02709.xedit +++|** FLN - ADVANCE TO SPECIFIED LINE NUMBER. 02823 M00S02710.xedit +++|* 02824 M00S02711.xedit +++|* ENTRY (NUMS) = LINE NUMBER. 02825 M00S02712.xedit +++|* 02826 M00S02713.xedit +++|* EXIT TO *VRT*. 02827 M00S02714.xedit +++|* 02828 M00S02715.xedit +++|* USES A - 1.
| Line S02716 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02829 M01S02716.xedit21 ---|* X - 1. 02830 M01S02717.xedit21 ---|* B - 2.
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02831 M01S00015.xedit21 +++|* X - 1, 6. 02832 M00S02718.xedit +++|* 02833 M00S02719.xedit +++|* CALLS GLN. 02834 M00S02720.xedit +++| 02835 M00S02721.xedit +++| 02836 M00S02722.xedit +++| FLN SA1 NUMS
| Line S02723 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02837 M01S02723.xedit21 ---| SB2 X1 02838 M01S02724.xedit21 ---| GE B2,B1,FLN1 IF LINE NUMBER SPECIFIED
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02839 M01S00016.xedit21 +++| SX6 B1 02840 M01S00017.xedit21 +++| IX6 X1-X6 02841 M01S00018.xedit21 +++| PL X6,FLN1 IF LINE NUMBER SPECIFIED 02842 M00S02725.xedit +++| SX1 B1+ 02843 M00S02726.xedit +++| FLN1 RJ GLN GET LINE NUMBER 02844 M00S02727.xedit +++| EQ VRT EXIT, VERIFY LINE 02845 M00S02728.xedit +++| IIB SPACE 4,15 02846 M00S02729.xedit +++|** IIB - *INSERT* AND *INSERT BEFORE* PROCESSOR. 02847 M00S02730.xedit +++|* 02848 M00S02731.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO INSERT. 02849 M00S02732.xedit +++|* (X1) = PROCESSOR ADDRESS. 02850 M00S02733.xedit +++|* 02851 M00S02734.xedit +++|* EXIT TO *NCM*. 02852 M00S02735.xedit +++|* 02853 M00S02736.xedit +++|* USES X - 1, 2, 6, 7. 02854 M00S02737.xedit +++|* A - 0, 1, 2, 6, 7.
| Line S02738 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02855 M01S02738.xedit21 ---|* B - 2, 7.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02856 M01S00019.xedit21 +++|* B - 7. 02857 M00S02739.xedit +++|* 02858 M00S02740.xedit +++|* CALLS RDL, TCD, TLB, WTF. 02859 M00S02741.xedit +++|* 02860 M00S02742.xedit +++|* MACROS WRITEC. 02861 M00S02743.xedit +++|* 02862 M00S02744.xedit +++|* NOTES A NULL LINE WILL OVERRIDE THE LINE COUNT. 02863 M00S02745.xedit +++| 02864 M00S02746.xedit +++| 02865 M00S02747.xedit +++| IIB BSS 0 ENTRY 02866 M00S02748.xedit +++| AX1 18 GET ROUTINE JUMP ADDRESS 02867 M00S02749.xedit +++| SA2 NUMS 02868 M00S02750.xedit +++| SA0 X1 SET JUMP ADDRESS
| Line S02751 Modification History | |
|---|---|
M01 (Removed by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 02869 M01S02751.xedit2 ---| SX6 X2-1 DECREMENT COUNT FOR EASIER TESTING
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 02870 M01S00001.xedit2 +++| SX6 B1 02871 M01S00002.xedit2 +++| IX6 X2-X6
| Line S02752 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02872 M01S02752.xedit21 ---| SB2 X2 02873 M01S02753.xedit21 ---| SA6 A2
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02874 M01S00020.xedit21 +++| SA6 A2+ 02875 M00S02754.xedit +++| IIB1 RJ RDL GET DATA LINE 02876 M00S02755.xedit +++| NZ X1,NCM IF A NULL LINE ENCOUNTERED 02877 M00S02756.xedit +++| RJ TCD TAB CODED DATA LINE 02878 M00S02757.xedit +++| IIB2 SB7 A0 02879 M00S02758.xedit +++| JP B7 EXECUTE PROCESSOR 02880 M00S02759.xedit +++| 02881 M00S02760.xedit +++|* *INSERT BEFORE* PROCESSOR. 02882 M00S02761.xedit +++| 02883 M00S02762.xedit +++| IIB3 WRITEC E.OUT,D.LINE PUT LINE JUST RECEIVED 02884 M00S02763.xedit +++| SA1 IWHERE UPDATE *IWHERE*
| Line S02764 Modification History | |
|---|---|
M01 (Removed by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 02885 M01S02764.xedit2 ---| SX6 X1+1
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | xedit2 |
Seq # *Modification Id* Act ----------------------------+ 02886 M01S00003.xedit2 +++| SX6 B1 02887 M01S00004.xedit2 +++| IX6 X1+X6 02888 M00S02765.xedit +++| SA6 A1+ 02889 M00S02766.xedit +++| EQ IIB5 PROCESS NEXT LINE 02890 M00S02767.xedit +++| 02891 M00S02768.xedit +++|* *INSERT* PROCESSOR. 02892 M00S02769.xedit +++| 02893 M00S02770.xedit +++| IIB4 RJ WTF WRITE EXISTING LINE 02894 M00S02771.xedit +++| 02895 M00S02772.xedit +++|* MOVE NEW LINE TO *E.LINE*. 02896 M00S02773.xedit +++| 02897 M00S02774.xedit +++| RJ TLB TRANSFER LINE TO BUFFER 02898 M00S02775.xedit +++| IIB5 SA1 NUMS
| Line S02776 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02899 M01S02776.xedit21 ---| SX6 X1-1
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02900 M01S00021.xedit21 +++| SX6 B1 02901 M01S00022.xedit21 +++| IX6 X1-X6 02902 M00S02777.xedit +++| BX7 X7-X7 02903 M00S02778.xedit +++| SA6 A1 DECREMENT LINES LEFT 02904 M00S02779.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE 02905 M00S02780.xedit +++| PL X6,IIB1 IF MORE LINES 02906 M00S02781.xedit +++| EQ NCM EXIT 02907 M00S02782.xedit +++| INP SPACE 4,15 02908 M00S02783.xedit +++|** INP - ENTRY INPUT MODE REQUEST. 02909 M00S02784.xedit +++|* 02910 M00S02785.xedit +++|* ENTRY (NUMS) = ESCAPE CHARACTER. 02911 M00S02786.xedit +++|* 02912 M00S02787.xedit +++|* EXIT IF ERROR, TO *ABT* OR *CER*.
| Line S02788 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02913 M01S02788.xedit12 ---|* ELSE, TO *EDT*.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02914 M01S00006.xedit12 +++|* ELSE, TO *PEC*. 02915 M00S02789.xedit +++|* 02916 M00S02790.xedit +++|* USES A - 1, 2, 6, 7. 02917 M00S02791.xedit +++|* X - 1, 2, 6, 7. 02918 M00S02792.xedit +++|* B - 6, 7. 02919 M00S02793.xedit +++|* 02920 M00S02794.xedit +++|* CALLS RDL, RTA, STK, TAB, UPL, WTF. 02921 M00S02795.xedit +++|* 02922 M00S02796.xedit +++|* MACROS WRITEC. 02923 M00S02797.xedit +++| 02924 M00S02798.xedit +++| 02925 M00S02799.xedit +++| INP SA1 NUMS MOVE INPUT ESCAPE CHARACTER 02926 M00S02800.xedit +++| SA2 BATCH 02927 M00S02801.xedit +++| BX6 X1 02928 M00S02802.xedit +++| SB6 =C+ *INPUT* ESCAPE CHAR. REQUIRED - BATCH MODE.+ 02929 M00S02803.xedit +++| PL X1,INP0 IF CHARACTER SPECIFIED 02930 M00S02804.xedit +++| NZ X2,ABT IF BATCH MODE, EXIT 02931 M00S02805.xedit +++| INP0 SA6 INPCHAR SET ESCAPE CHARACTER 02932 M00S02806.xedit +++| 02933 M00S02807.xedit +++| INP1 MX7 59 SET INPUT MODE 02934 M00S02808.xedit +++| SA7 INPMODE 02935 M00S02809.xedit +++| WRITEC OUTPUT,(=C* INPUT*) 02936 M00S02810.xedit +++| INP2 SA1 PREFIX 02937 M00S02811.xedit +++| SX6 1BS"PLUS" 02938 M00S02812.xedit +++| .CYB IF DEF,CYBRNET 02939 M00S02813.xedit +++| BX6 -X6*X1 CLEAR PLUS PREFIX 02940 M00S02814.xedit +++| .CYB ELSE 02941 M00S02815.xedit +++| BX6 X6+X1 SET + PREFIX 02942 M00S02816.xedit +++| .CYB ENDIF 02943 M00S02817.xedit +++| SA6 A1 02944 M00S02818.xedit +++| RJ RDL READ DATA LINE
| Line S02819 Modification History | |
|---|---|
M01 (Removed by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02945 M01S02819.xedit12 ---| NZ X1,EDT IF <CR> (RETURN TO EDIT MODE)
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | xedit12 |
Seq # *Modification Id* Act ----------------------------+ 02946 M01S00007.xedit12 +++| NZ X1,PEC IF <CR> (RETURN TO EDIT MODE) 02947 M00S02820.xedit +++| SA1 D.LINE 02948 M00S02821.xedit +++| SB6 D.STR 02949 M00S02822.xedit +++| RJ UPL UNPACK TEXT LINE 02950 M00S02823.xedit +++| SA1 D.STR 02951 M00S02824.xedit +++| SA2 INPCHAR 02952 M00S02825.xedit +++| IX2 X2-X1 02953 M00S02826.xedit +++| SB6 A1-B1 02954 M00S02827.xedit +++| ZR X2,INP3 IF INPUT MODE ESCAPE CHAR 02955 M00S02828.xedit +++| MX6 0 02956 M00S02829.xedit +++| SA6 NOMOD SET MODIFICATIONS MADE 02957 M00S02830.xedit +++| RJ TAB TAB TEXT LINE 02958 M00S02831.xedit +++| RJ WTF 02959 M00S02832.xedit +++| SB7 E.LINE SET DESTINATION 02960 M00S02833.xedit +++| SB6 D.STR 02961 M00S02834.xedit +++| RJ RTA PACK LINE INTO EDIT LINE BUFFER 02962 M00S02835.xedit +++| EQ INP2 PROCESS NEXT LINE 02963 M00S02836.xedit +++| 02964 M00S02837.xedit +++| INP3 SB7 S.LINE PACK COMMAND LINE INTO SPECIAL BUFFER 02965 M00S02838.xedit +++| SB6 D.STR+1 AND SKIP ESCAPE CHARACTER 02966 M00S02839.xedit +++| RJ RTA 02967 M00S02840.xedit +++| SA1 S.DEV 02968 M00S02841.xedit +++| RJ STK PROCESS ESCAPED COMMANDS 02969 M00S02842.xedit +++| SB2 STK. 02970 M00S02843.xedit +++| EQ CER COMMAND STACKING ERROR, EXIT 02971 M00S02844.xedit +++| LCT SPACE 4,20 02972 M00S02845.xedit +++|** LCT - LOCATE SPECIFIED STRING. 02973 M00S02846.xedit +++|*
| Line S02847 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02974 M01S02847.xedit21 ---|* ENTRY (NUMS) = NUMBER OF MATCHES TO FIND.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02975 M01S00023.xedit21 +++|* ENTRY (X5) .NE. 0. 02976 M01S00024.xedit21 +++|* (NUMS) = NUMBER OF MATCHES TO FIND. 02977 M00S02848.xedit +++|* IF -0, THEN DO NOT ADVANCE POINTER. 02978 M00S02849.xedit +++|* (MCOUNT) = 0. 02979 M00S02850.xedit +++|* STRING POINTERS ARE INITIALIZED PROPERLY. 02980 M00S02851.xedit +++|* 02981 M00S02852.xedit +++|* EXIT TO *NCM*. 02982 M00S02853.xedit +++|* 02983 M00S02854.xedit +++|* USES A - 1, 2, 3, 6, 7. 02984 M00S02855.xedit +++|* X - 1, 2, 3, 5, 6, 7. 02985 M00S02856.xedit +++|* B - 4. 02986 M00S02857.xedit +++|* 02987 M00S02858.xedit +++|* CALLS LOC, RDF, VRY, WTF. 02988 M00S02859.xedit +++|* 02989 M00S02860.xedit +++|* MACROS ERROR. 02990 M00S02861.xedit +++| 02991 M00S02862.xedit +++|
| Line S02863 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 02992 M01S02863.xedit21 ---|LCTA SX5 0 SET NOT TO CALL LOC 02993 M01S02864.xedit21 ---| LCT SA1 NUMS
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02865.xedit +++| NZ X1,LCT1 IF COUNT IS .NE. 0 03002 M00S02866.xedit +++| NG X1,LCT1 IF *0* COUNT WAS SPECIFIED 03003 M00S02867.xedit +++| SX6 B1 RESET COUNT TO 1 03004 M00S02868.xedit +++| SA6 A1 03005 M00S02869.xedit +++| LCT1 SB4 E.STR-1 SET FWA-1 FOR SEARCH 03006 M01S00032.xedit21 +++| 03007 M01S00033.xedit21 +++| IF DEF,TIMES,1 03008 M00S02870.xedit +++| ZR X5,LCT1.1 IF IN DEBUGGING MODE 03009 M01S00034.xedit21 +++| 03010 M00S02871.xedit +++| RJ LOC SEARCH EXISTING LINE FOR STRING
| Line S02872 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03011 M01S02872.xedit21 ---| LCT1.1 ZR B5,LCT3 IF STRING NOT FOUND
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02873.xedit +++| RJ VRY 03018 M00S02874.xedit +++| SA2 MCOUNT 03019 M00S02875.xedit +++| SA1 NUMS
| Line S02876 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03020 M01S02876.xedit21 ---| SX7 X2+B1 INCREMENT NUMBER OF MATCHES 03021 M01S02877.xedit21 ---| SX6 X1-1 DECREMENT NUMBER OF LINES
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S02878.xedit +++| SA7 A2 03026 M00S02879.xedit +++| AX1 1 03027 M00S02880.xedit +++| ZR X1,NCM IF FINISHED, EXIT 03028 M00S02881.xedit +++| SA6 A1 03029 M00S02882.xedit +++| LCT2 RJ WTF ADVANCE TO NEXT LINE 03030 M00S02883.xedit +++| RJ RDF 03031 M00S02884.xedit +++| EQ LCT1 SEARCH NEXT LINE 03032 M00S02885.xedit +++| 03033 M00S02886.xedit +++|* STRING NOT IN LINE. CHECK FOR *0* OPTION. 03034 M00S02887.xedit +++| 03035 M00S02888.xedit +++| LCT3 SA1 NUMS 03036 M00S02889.xedit +++| NZ X1,LCT2 IF NOT *0* OPTION 03037 M00S02890.xedit +++| LCT4 ERROR SNF. ENTRY FOR * STRING NOT FOUND.* 03038 M00S02891.xedit +++| SA3 C.STR-1 SET TO *READ* FOR NEXT CMD 03039 M00S02892.xedit +++| PX6 B0,X3 03040 M00S02893.xedit +++| SA6 A3 03041 M00S02894.xedit +++| EQ NCM EXIT 03042 M00S02895.xedit +++| MOD SPACE 4,10 03043 M00S02896.xedit +++|** MOD - MODIFY LINE(S). 03044 M00S02897.xedit +++|* 03045 M00S02898.xedit +++|* ENTRY AT *MOD* FOR *MODIFY* COMMAND. 03046 M00S02899.xedit +++|* AT *MOD1* FOR *QMOD* COMMAND. 03047 M00S02900.xedit +++|* AT *MOD2* FOR *YQMOD* COMMAND. 03048 M00S02901.xedit +++|* 03049 M00S02902.xedit +++|* USES A - 1, 3, 6, 7. 03050 M00S02903.xedit +++|* X - 1, 3, 6, 7. 03051 M00S02904.xedit +++|* 03052 M00S02905.xedit +++|* CALLS ETL, ITM, MDY, PCN, RDF, RDL, SAC, SCD, VRY, WTF. 03053 M00S02906.xedit +++| 03054 M00S02907.xedit +++| 03055 M00S02908.xedit +++|* ENTRY TO PROCESS *MODIFY* COMMAND. 03056 M00S02909.xedit +++| 03057 M00S02910.xedit +++| MOD RJ SCD SET CODED FOR SHIFT 03058 M00S02911.xedit +++| SX6 1 03059 M00S02912.xedit +++| SA1 E.LINE 03060 M00S02913.xedit +++| SA6 NUMS FORCE COUNT TO 1 03061 M00S02914.xedit +++| SA3 MODA SET SHIFT WORD 03062 M00S02915.xedit +++| RJ ETL ECHO TEXT LINE 03063 M00S02916.xedit +++| EQ MOD2 PERFORM MODIFICATION 03064 M00S02917.xedit +++| 03065 M00S02918.xedit +++|* ENTRY FOR *QMOD* COMMAND. 03066 M00S02919.xedit +++| 03067 M00S02920.xedit +++| MOD1 RJ PCN PRINT COLUMN NUMBERS 03068 M00S02921.xedit +++| 03069 M00S02922.xedit +++|* ENTRY FOR *YQMOD* COMMAND. 03070 M00S02923.xedit +++| 03071 M00S02924.xedit +++| MOD2 RJ SAC SET ASCII PROCESSING 03072 M00S02925.xedit +++| RJ RDL READ DATA LINE 03073 M00S02926.xedit +++| NZ X1,NCM IF NOTHING THERE, EXIT 03074 M00S02927.xedit +++| MOD3 RJ MDY MODIFY LINE 03075 M00S02928.xedit +++| PL B3,MOD4 IF NO TRUNCATION 03076 M00S02929.xedit +++| RJ ITM 03077 M00S02930.xedit +++| MOD4 SX7 1 03078 M00S02931.xedit +++| SA7 NOMOD SET MODIFICATIONS MADE 03079 M00S02932.xedit +++| SA7 E.LMOD SET LINE MODIFICATIONS MADE 03080 M00S02933.xedit +++| RJ VRY AND THEN VERIFY IT 03081 M00S02934.xedit +++| SA1 NUMS
| Line S02935 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03082 M01S02935.xedit21 ---| SX6 X1-1
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03083 M01S00043.xedit21 +++| SX6 B1 03084 M01S00044.xedit21 +++| IX6 X1-X6 03085 M00S02936.xedit +++| AX1 1 03086 M00S02937.xedit +++| ZR X1,NCM IF FINISHED 03087 M00S02938.xedit +++| SA6 A1 03088 M00S02939.xedit +++| RJ WTF 03089 M00S02940.xedit +++| RJ RDF 03090 M00S02941.xedit +++| EQ MOD3 PROCESS NEXT LINE 03091 M00S02942.xedit +++| 03092 M00S02943.xedit +++| MODA CON 2L +11 PARAMETER FOR *ETL* 03093 M00S02944.xedit +++| 03094 M00S02945.xedit +++| MOD RMT BATCH PARAMETER DEFINITION 03095 M00S02946.xedit +++| CON 3L +17 03096 M00S02947.xedit +++| RMT 03097 M00S02948.xedit +++| 03098 M00S02949.xedit +++| NXT SPACE 4,10 03099 M00S02950.xedit +++|** NXT - PROCESS NEXT COMMAND. 03100 M00S02951.xedit +++|* 03101 M00S02952.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO MOVE. 03102 M00S02953.xedit +++|* (NUMS+1) = DIRECTION OF MOVE (-0 = BACKWARDS, 03103 M00S02954.xedit +++|* +0 = FORWARDS). 03104 M00S02955.xedit +++|* 03105 M00S02956.xedit +++|* USES A - 1, 2, 6. 03106 M00S02957.xedit +++|* X - 1, 2, 6. 03107 M00S02958.xedit +++|* 03108 M00S02959.xedit +++|* CALLS MPR, VRT. 03109 M00S02960.xedit +++| 03110 M00S02961.xedit +++| 03111 M00S02962.xedit +++| NXT SA1 NUMS 03112 M00S02963.xedit +++| MX6 0 SET E.NMODE TO CODED 03113 M00S02964.xedit +++| SA2 A1+B1 03114 M00S02965.xedit +++| BX1 X1-X2 OBTAIN PROPER DISPLACEMENT 03115 M00S02966.xedit +++| NZ X1,NXT1 IF NOT ZERO DISPLACEMENT (ASSUME 1) 03116 M00S02967.xedit +++| SX1 B1 SET *NEXT-1* COMMAND 03117 M00S02968.xedit +++| NXT1 SA6 E.NMODE 03118 M00S02969.xedit +++| RJ MPR MOVE THE POINTER 03119 M00S02970.xedit +++| EQ VRT VERIFY AND RETURN 03120 M00S02971.xedit +++| PNT SPACE 4,15 03121 M00S02972.xedit +++|** PNT - PRINT COMMAND PROCESSOR. 03122 M00S02973.xedit +++|* 03123 M00S02974.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO PRINT. 03124 M00S02975.xedit +++|* 03125 M00S02976.xedit +++|* EXIT TO *NCM*. 03126 M00S02977.xedit +++|* 03127 M00S02978.xedit +++|* USES A - 1, 2, 4, 6. 03128 M00S02979.xedit +++|* X - 1, 2, 4, 6. 03129 M00S02980.xedit +++|* 03130 M00S02981.xedit +++|* CALLS RDF, SCD, WTF. 03131 M00S02982.xedit +++|* 03132 M00S02983.xedit +++|* MACROS WRITEC. 03133 M00S02984.xedit +++| 03134 M00S02985.xedit +++| 03135 M00S02986.xedit +++| PNT SA1 NUMS 03136 M00S02987.xedit +++| SA2 IWHERE
| Line S02988 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03137 M01S02988.xedit21 ---| SX6 X1-1 DECREMENT BY ONE (MAKE TESTING EASIER)
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03138 M01S00045.xedit21 +++| SX6 B1 03139 M01S00046.xedit21 +++| IX6 X1-X6 DECREMENT BY ONE (MAKE TESTING EASIER) 03140 M00S02989.xedit +++| NG X2,PNT2 IF IN CREATION MODE 03141 M00S02990.xedit +++| SA6 NUMS 03142 M00S02991.xedit +++| RJ SCD SET CODED LINE FORMAT 03143 M00S02992.xedit +++| PNT1 SA4 IW PRINT LINE 03144 M00S02993.xedit +++| WRITEC OUTPUT,E.LINE 03145 M00S02994.xedit +++| SA1 NUMS
| Line S02995 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03146 M01S02995.xedit21 ---| SX6 X1-1 DECREMENT COUNT
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03147 M01S00047.xedit21 +++| SX6 B1 03148 M01S00048.xedit21 +++| IX6 X1-X6 DECREMENT COUNT 03149 M00S02996.xedit +++| NG X6,NCM IF DONE, EXIT 03150 M00S02997.xedit +++| SA6 NUMS 03151 M00S02998.xedit +++| RJ WTF 03152 M00S02999.xedit +++| RJ RDF 03153 M00S03000.xedit +++| EQ PNT1 PRINT NEXT LINE 03154 M00S03001.xedit +++| 03155 M00S03002.xedit +++| PNT2 WRITEC OUTPUT,(=C* NULL LINE - IN CREATION MODE*) 03156 M00S03003.xedit +++| EQ NCM EXIT 03157 M00S03004.xedit +++| RLP SPACE 4,15 03158 M00S03005.xedit +++|** RLP - *REPLACE* PROCESSOR. 03159 M00S03006.xedit +++|* 03160 M00S03007.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO REPLACE. 03161 M00S03008.xedit +++|* 03162 M00S03009.xedit +++|* EXIT TO *NCM*. 03163 M00S03010.xedit +++|* 03164 M00S03011.xedit +++|* USES X - 2, 6, 7. 03165 M00S03012.xedit +++|* A - 2, 6, 7.
| Line S03013 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03166 M01S03013.xedit21 ---|* B - 6. 03167 M00S03014.xedit ---|* 03168 M00S03015.xedit ---|* CALLS RDF, RDL, TCD, TLB, WTF. 03169 M00S03016.xedit ---|* 03170 M00S03017.xedit ---|* NOTES A NULL LINE WILL OVERRIDE THE LINE COUNT. 03171 M00S03018.xedit ---| 03172 M00S03019.xedit ---| 03173 M00S03020.xedit ---| RLP1 RJ WTF COPY DATA LINE TO EDIT FILE 03174 M00S03021.xedit ---| 03175 M00S03022.xedit ---|* READ EDIT FILE. IF EOI, EXIT TO *NCM*. 03176 M00S03023.xedit ---| 03177 M00S03024.xedit ---| RJ RDF 03178 M00S03025.xedit ---| 03179 M00S03026.xedit ---| RLP BSS 0 ENTRY 03180 M00S03027.xedit ---| RJ RDL GET DATA LINE 03181 M00S03028.xedit ---| NZ X1,NCM IF EMPTY <CR> WAS ENCOUNTERED 03182 M00S03029.xedit ---| RJ TCD TAB CODED DATA LINE 03183 M00S03030.xedit ---| RJ TLB TRANSFER LINE TO *E.LINE* 03184 M00S03031.xedit ---| SA2 NUMS DECREMENT LINE COUNT 03185 M01S03032.xedit21 ---| SX6 X2-1
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03186 M01S00049.xedit21 +++| SX7 B1 03187 M01S00050.xedit21 +++| IX6 X2-X7 03188 M01S00051.xedit21 +++| IX2 X6-X7 03189 M00S03033.xedit +++| BX7 X7-X7
| Line S03034 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03190 M01S03034.xedit21 ---| SB6 X6 03191 M00S03035.xedit ---| SA7 NOMOD SET MODIFICATIONS MADE 03192 M00S03036.xedit ---| SA6 A2+ 03193 M01S03037.xedit21 ---| GT B6,B0,RLP1 IF LINE COUNT NOT EXHAUSTED
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03194 M01S00052.xedit21 +++| PL X2,RLP1 IF LINE COUNT NOT EXHAUSTED 03195 M00S03038.xedit +++| EQ NCM EXIT 03196 M00S03039.xedit +++| RMA SPACE 4,15 03197 M00S03040.xedit +++|** RMA - PROCESS RIGHT MARGIN COMMAND. 03198 M00S03041.xedit +++|* 03199 M00S03042.xedit +++|* ENTRY (NUMS) = NEW VALUE OF MARGIN (0 = RESET TO MAXIMUM). 03200 M00S03043.xedit +++|* 03201 M00S03044.xedit +++|* EXIT (IW) = THE VALUE OF THE RIGHT MARGIN. 03202 M00S03045.xedit +++|* IF NO PARAMETER GIVEN, *MAXWD*. 03203 M00S03046.xedit +++|* IF WIDTH IS NOT IN RANGE, TO *CER*, ELSE TO *NCM*. 03204 M00S03047.xedit +++|* 03205 M00S03048.xedit +++|* USES A - 1, 6. 03206 M00S03049.xedit +++|* X - 1, 2, 3, 6. 03207 M00S03050.xedit +++|* B - 2. 03208 M00S03051.xedit +++| 03209 M00S03052.xedit +++| 03210 M00S03053.xedit +++| RMA SA1 NUMS 03211 M00S03054.xedit +++| SX3 X1-MAXWD-1 03212 M00S03055.xedit +++| NZ X1,RMA1 IF WIDTH SPECIFIED (ELSE DEFAULT TO 160) 03213 M00S03056.xedit +++| SX1 160D 03214 M00S03057.xedit +++| RMA1 SX2 X1-MINWD 03215 M00S03058.xedit +++| BX3 -X3+X2 03216 M00S03059.xedit +++| LX6 X1 03217 M00S03060.xedit +++| SB2 ILL. 03218 M00S03061.xedit +++| NG X3,CER IF WIDTH NOT IN RANGE 03219 M00S03062.xedit +++| SA6 IW 03220 M00S03063.xedit +++| EQ NCM EXIT 03221 M00S03064.xedit +++| SWN SPACE 4,15 03222 M00S03065.xedit +++|** SWN - SET WINDOWS. 03223 M00S03066.xedit +++|* 03224 M00S03067.xedit +++|* ENTRY (NUMS) = LEFT WINDOW. 03225 M00S03068.xedit +++|* (NUMS+1) = RIGHT MARGIN. 03226 M00S03069.xedit +++|* 03227 M00S03070.xedit +++|* EXIT (LMW) = LEFT WINDOW. 03228 M00S03071.xedit +++|* (RMW) = RIGHT WINDOW. 03229 M00S03072.xedit +++|* (RTWD) = RIGHT WINDOW MARGIN. 03230 M00S03073.xedit +++|* IF ERROR, TO *CER*, ELSE TO *NCM*. 03231 M00S03074.xedit +++|* 03232 M00S03075.xedit +++|* USES A - 1, 2, 6, 7. 03233 M00S03076.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7. 03234 M00S03077.xedit +++|* B - 2. 03235 M00S03078.xedit +++| 03236 M00S03079.xedit +++| 03237 M00S03080.xedit +++| SWN SA1 NUMS 03238 M00S03081.xedit +++| SA2 A1+B1 03239 M00S03082.xedit +++| IX3 X2-X1 POSITIVE, IF LEFT .LE. RIGHT 03240 M00S03083.xedit +++| SX4 X1-1 POSITIVE IF 0 .LT. LEFT 03241 M00S03084.xedit +++| SX5 X2-161 NEGATIVE IF RIGHT .LE. 160 03242 M00S03085.xedit +++| BX3 X3+X4 03243 M00S03086.xedit +++| BX3 -X5+X3 03244 M00S03087.xedit +++| 03245 M00S03088.xedit +++|* (X3) = POSITIVE, IF 0 .LT. LEFT .LE. RIGHT .LE. 160. 03246 M00S03089.xedit +++| 03247 M00S03090.xedit +++| SB2 ARG. 03248 M00S03091.xedit +++| NG X3,CER IF ARGUMENTS NOT PROPER 03249 M00S03092.xedit +++| SX7 X2+ 03250 M00S03093.xedit +++| SA7 RTWD 03251 M00S03094.xedit +++| SX6 X1+E.STR-2 SET FWA -1 OF START 03252 M00S03095.xedit +++| SX7 X2+E.STR SET LWA+1 FOR SEARCH 03253 M00S03096.xedit +++| SA6 LMW 03254 M00S03097.xedit +++| SA7 A6+B1 03255 M00S03098.xedit +++| EQ NCM EXIT 03256 M00S03099.xedit +++| RST SPACE 4,15 03257 M00S03100.xedit +++|** RST - RESTORE FILE TO PREVIOUS CONDITION. 03258 M00S03101.xedit +++|* 03259 M00S03102.xedit +++|* ENTRY NONE. 03260 M00S03103.xedit +++|* 03261 M00S03104.xedit +++|* EXIT TO *NCM*. 03262 M00S03105.xedit +++|* (IWHERE) = 0. 03263 M00S03106.xedit +++|* (NOMOD) = 73B, INDICATES NO MODIFICATIONS. 03264 M00S03107.xedit +++|* 03265 M00S03108.xedit +++|* USES A - 6, 7. 03266 M00S03109.xedit +++|* X - 6, 7. 03267 M00S03110.xedit +++|* 03268 M00S03111.xedit +++|* CALLS TOP. 03269 M00S03112.xedit +++| 03270 M00S03113.xedit +++| 03271 M00S03114.xedit +++| RST BX7 X7-X7 SET IWHERE TO 0 (FORCE REWIND) 03272 M00S03115.xedit +++| MX6 73B SET *NOMOD* TO INDICATE NO MODIFICATIONS 03273 M00S03116.xedit +++| SA7 IWHERE 03274 M00S03117.xedit +++| SA6 NOMOD 03275 M00S03118.xedit +++| RJ TOP RESET FILES 03276 M00S03119.xedit +++| EQ NCM EXIT 03277 M00S03120.xedit +++| SCH SPACE 4,10 03278 M00S03121.xedit +++|** SCH - SET CHARACTER IN WORD. 03279 M00S03122.xedit +++|* 03280 M00S03123.xedit +++|* ENTRY (NUMS) = CHARACTER FOR PLACEMENT. 03281 M00S03124.xedit +++|* (X1) = ADDRESS TO PLACE CHARACTER. 03282 M00S03125.xedit +++|* 03283 M00S03126.xedit +++|* EXIT TO *NCM* 03284 M00S03127.xedit +++|* ((X1)) = (NUMS). 03285 M00S03128.xedit +++|* 03286 M00S03129.xedit +++|* USES A - 2, 6. 03287 M00S03130.xedit +++|* X - 1, 2, 6. 03288 M00S03131.xedit +++| 03289 M00S03132.xedit +++| 03290 M00S03133.xedit +++| SCH AX1 18 SHIFT MODIFIER WORD 03291 M00S03134.xedit +++| SA2 NUMS 03292 M00S03135.xedit +++| SX1 X1 REMOVE EXCESS CHARACTERS 03293 M00S03136.xedit +++| LX1 -1 03294 M00S03137.xedit +++| BX6 X2 03295 M00S03138.xedit +++| SA6 X1+ PUT CHARACTER 03296 M00S03139.xedit +++| EQ NCM EXIT 03297 M00S03140.xedit +++| SFG SPACE 4,20 03298 M00S03141.xedit +++|** SFG - SET FLAG. 03299 M00S03142.xedit +++|* 03300 M00S03143.xedit +++|* ENTRY (X1) = COMMAND DESCRIPTOR WORD, FORM IS - 03301 M00S03144.xedit +++|* 24/,17/ADDR,1/MODE,18/ 03302 M00S03145.xedit +++|* ADDR = ADDRESS OF THE FLAG TO SET. 03303 M00S03146.xedit +++|* MODE = SET, IF *VERIFY* MODE. 03304 M00S03147.xedit +++|* CLEAR, IF *BRIEF* MODE. 03305 M00S03148.xedit +++|* (NUMS) = +- PARAMETER, 03306 M00S03149.xedit +++|* IF NEGATIVE, SET FLAG TO CONDITION OPPOSITE 03307 M00S03150.xedit +++|* THAT INDICATED BY *MODE*. 03308 M00S03151.xedit +++|* IF POSITIVE, SET FLAG TO CONDITION INDICATED 03309 M00S03152.xedit +++|* BY *MODE*. 03310 M00S03153.xedit +++|* 03311 M00S03154.xedit +++|* EXIT TO *NCM*. 03312 M00S03155.xedit +++|* 03313 M00S03156.xedit +++|* USES A - 3, 6. 03314 M00S03157.xedit +++|* X - 1, 3, 6. 03315 M00S03158.xedit +++| 03316 M00S03159.xedit +++| 03317 M00S03160.xedit +++| SFG AX1 18 03318 M00S03161.xedit +++| SX1 X1 ISOLATE PARAMETER 03319 M00S03162.xedit +++| SA3 NUMS GET +- MODE 03320 M00S03163.xedit +++| LX1 -1 03321 M00S03164.xedit +++| BX6 X1-X3 OBTAIN PROPER CONDITION 03322 M00S03165.xedit +++| SA6 X1 SAVE NEW VALUE 03323 M00S03166.xedit +++| EQ NCM EXIT 03324 M00S03167.xedit +++| STB SPACE 4,10 03325 M00S03168.xedit +++|** STB - SET TABS. 03326 M00S03169.xedit +++|* 03327 M00S03170.xedit +++|* ENTRY (NUMS TO NUMS+NTABS) = TAB SETTINGS DESIRED. 03328 M00S03171.xedit +++|* 03329 M00S03172.xedit +++|* EXIT (TABS - TABS+NTABS-1) = IF ALL PARAMETERS ARE VALID 03330 M00S03173.xedit +++|* NEW TAB SETTINGS. 03331 M00S03174.xedit +++|* IF PARAMETERS ARE VALID, TO *NCM*, ELSE TO *CER*. 03332 M00S03175.xedit +++|* 03333 M00S03176.xedit +++|* USES A - 1, 2, 6, 7. 03334 M00S03177.xedit +++|* X - 1, 2, 6, 7. 03335 M00S03178.xedit +++|* B - 2, 5, 6, 7. 03336 M00S03179.xedit +++| 03337 M00S03180.xedit +++| 03338 M00S03181.xedit +++| STB SA1 IW 03339 M00S03182.xedit +++| SB7 160 DEFAULT LINE WIDTH 03340 M00S03183.xedit +++| ZR X1,STB0 IF USING DEFAULT 03341 M00S03184.xedit +++| SB7 X1 03342 M00S03185.xedit +++| STB0 SB6 B0 SET VALUE OF LAST TAB 03343 M00S03186.xedit +++| SA1 NUMS-1 03344 M00S03187.xedit +++| MX6 0 03345 M00S03188.xedit +++| SA6 NUMS+NTABS ASSURE ZERO MARKER 03346 M00S03189.xedit +++| SB2 ILL. ERROR MESSAGE 03347 M00S03190.xedit +++| STB1 SA1 A1+B1 03348 M00S03191.xedit +++| ZR X1,STB2 IF END OF LINE (ALL OK) 03349 M00S03192.xedit +++| SB5 X1 03350 M00S03193.xedit +++| GT B5,B7,CER IF TAB IS PAST LINE WIDTH 03351 M00S03194.xedit +++| LE B5,B6,CER IF TABS IS .LE. LAST TAB 03352 M00S03195.xedit +++| SB6 B5 03353 M00S03196.xedit +++| EQ STB1 CHECK NEXT TAB 03354 M00S03197.xedit +++| 03355 M00S03198.xedit +++| STB2 SA2 NUMS-1 03356 M00S03199.xedit +++| SA6 TABS CLEAR FIRST TAB 03357 M00S03200.xedit +++| STB3 SA2 A2+B1 GET NEXT TAB 03358 M00S03201.xedit +++| SA6 A6+B1 ZERO NEXT TAB 03359 M00S03202.xedit +++| BX7 X2 03360 M00S03203.xedit +++| SA7 A6-B1 PUT CURRENT TAB 03361 M00S03204.xedit +++| NZ X2,STB3 IF NOT FINISHED 03362 M00S03205.xedit +++| EQ NCM TABS SET, EXIT 03363 M00S03206.xedit +++| TGL SPACE 4,15 03364 M00S03207.xedit +++|** TGL - PROCESS TOGGLES. 03365 M00S03208.xedit +++|* 03366 M00S03209.xedit +++|* ENTRY (X1) = (DECA), ADDRESS OF WORD TO PROCESS. 03367 M00S03210.xedit +++|* (NUMS) = *+* PARAMETER. 03368 M00S03211.xedit +++|* IF (NUMS) .GT. 0, SET FLAG TO ON. 03369 M00S03212.xedit +++|* IF (NUMS) .LT. 0, SET FLAG TO OFF. 03370 M00S03213.xedit +++|* IF (NUMS) .EQ. 0, TOGGLE STATE OF FLAG. 03371 M00S03214.xedit +++|* 03372 M00S03215.xedit +++|* EXIT TO *NCM*. 03373 M00S03216.xedit +++|* 03374 M00S03217.xedit +++|* USES A - 2, 3, 6. 03375 M00S03218.xedit +++|* X - 1, 2, 3, 6. 03376 M00S03219.xedit +++| 03377 M00S03220.xedit +++| 03378 M00S03221.xedit +++| TGL AX1 18 OBTAIN ADDRESS 03379 M00S03222.xedit +++| SA3 NUMS 03380 M00S03223.xedit +++| SA2 X1 FLAG TO PROCESS 03381 M00S03224.xedit +++| NZ X3,TGL1 IF +- SPECIFIED 03382 M00S03225.xedit +++| LX3 X2 MOVE TOGGLE UP 03383 M00S03226.xedit +++| TGL1 BX6 -X3 TOGGLE FLAG 03384 M00S03227.xedit +++| SA6 A2 03385 M00S03228.xedit +++| EQ NCM EXIT 03386 M00S03229.xedit +++| TRN SPACE 4,10 03387 M00S03230.xedit +++|** TRN - TRUNCATE COMMAND. 03388 M00S03231.xedit +++|* 03389 M00S03232.xedit +++|* ENTRY (NUMS) = NUMBER OF LINES TO PROCESS. 03390 M00S03233.xedit +++|*
| Line S03234 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03391 M01S03234.xedit21 ---|* USES A - 0, 1, 5, 6, 7.
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03392 M01S00053.xedit21 +++|* USES A - 1, 5, 6, 7. 03393 M00S03235.xedit +++|* X - 1, 2, 5, 6, 7. 03394 M00S03236.xedit +++|* B - 2, 6. 03395 M00S03237.xedit +++|* 03396 M00S03238.xedit +++|* CALLS RDF, SAC, TSL, VRY, WTF. 03397 M00S03239.xedit +++| 03398 M00S03240.xedit +++|
| Line S03241 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03399 M01S03241.xedit21 ---| TRN SA1 NUMS 03400 M01S03242.xedit21 ---| SA5 IW GET DESIRED WIDTH 03401 M01S03243.xedit21 ---| SA0 X1
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03402 M01S00054.xedit21 +++| TRN BSS 0 ENTRY 03403 M01S00055.xedit21 +++| SA5 IW GET DESIRED WIDTH 03404 M00S03244.xedit +++| RJ SAC SET ASCII MODE 03405 M00S03245.xedit +++| TRN1 SA1 E.STR-1 GET EXISTING LINE WIDTH 03406 M00S03246.xedit +++| IX2 X5-X1
| Line S03247 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03407 M01S03247.xedit21 ---| SA0 A0-B1 DECREMENT COUNT
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03408 M01S00056.xedit21 +++| SX7 B1 03409 M00S03248.xedit +++| PL X2,TRN2 IF LINE ALREADY SHORT
| Line S03249 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03410 M01S03249.xedit21 ---| SB2 X5+B1 03411 M01S03250.xedit21 ---| SX7 B1
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03412 M01S00057.xedit21 +++| SB2 X5+1 03413 M00S03251.xedit +++| MX6 2 03414 M00S03252.xedit +++| SA7 E.LMOD SET LINE MODIFICATION 03415 M00S03253.xedit +++| SA6 A1+B2 SET NEW END OF LINE 03416 M00S03254.xedit +++| SA7 NOMOD SET MODIFICATION MADE TO FILE 03417 M00S03255.xedit +++| SB6 E.STR-1 SET LINE WIDTH CELL 03418 M00S03256.xedit +++| RJ TSL TRIM SPACES OFF LINE 03419 M00S03257.xedit +++| TRN2 RJ VRY VERIFY LINE
| Line S03258 Modification History | |
|---|---|
M01 (Removed by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 03420 M01S03258.xedit21 ---| SB2 A0 03421 M01S03259.xedit21 ---| LE B2,NCM IF FINISHED, EXIT
| Line S00058 Modification History | |
|---|---|
M01 (Added by) | xedit21 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S03260.xedit +++| RJ WTF 03429 M00S03261.xedit +++| RJ RDF 03430 M00S03262.xedit +++| EQ TRN1 RETURN TO PROCESS NEXT LINE 03431 M00S03263.xedit +++| TTN SPACE 4,10 03432 M00S03264.xedit +++|** TTN - TOP AND TOPNULL PROCESSOR. 03433 M00S03265.xedit +++|* 03434 M00S03266.xedit +++|* ENTRY (INDEX) = COMMAND TABLE INDEX FOR CURRENT COMMAND. 03435 M00S03267.xedit +++|* 03436 M00S03268.xedit +++|* USES A - 1, 2, 6. 03437 M00S03269.xedit +++|* X - 1, 2, 6. 03438 M00S03270.xedit +++|* 03439 M00S03271.xedit +++|* CALLS TOP. 03440 M00S03272.xedit +++| 03441 M00S03273.xedit +++| 03442 M00S03274.xedit +++|* REWIND FILES, IF *TN*, *TOP* WILL INSERT A BLANK LINE. 03443 M00S03275.xedit +++| 03444 M00S03276.xedit +++| TTN RJ TOP 03445 M00S03277.xedit +++| SA1 INDEX 03446 M00S03278.xedit +++| SA2 NOMOD 03447 M00S03279.xedit +++| SX1 X1-.TOPNUL POSITIVE, IF *TOPNULL*, MINUS, IF *TOP* 03448 M00S03280.xedit +++| 03449 M00S03281.xedit +++|* HANDLE CASE WHERE (IWHERE) = 1, AND COMMAND IS *TOP*, 03450 M00S03282.xedit +++|* AND (NOMOD) = FALSE. 03451 M00S03283.xedit +++| 03452 M00S03284.xedit +++| BX6 X1*X2 03453 M00S03285.xedit +++| SA6 A2 03454 M00S03286.xedit +++| EQ NCM EXIT 03455 M00S03287.xedit +++| WHR SPACE 4,15 03456 M00S03288.xedit +++|** WHR - PROCESS WHERE COMMAND. 03457 M00S03289.xedit +++|* 03458 M00S03290.xedit +++|* ENTRY (IWHERE) = CURRENT LINE COUNT. 03459 M00S03291.xedit +++|* 03460 M00S03292.xedit +++|* EXIT TO *NCM*. 03461 M00S03293.xedit +++|* 03462 M00S03294.xedit +++|* USES A - 1. 03463 M00S03295.xedit +++|* X - 1, 6. 03464 M00S03296.xedit +++|* 03465 M00S03297.xedit +++|* CALLS CDD. 03466 M00S03298.xedit +++|* 03467 M00S03299.xedit +++|* MACROS WRITEC, WRITEO. 03468 M00S03300.xedit +++| 03469 M00S03301.xedit +++| 03470 M00S03302.xedit +++| WHR SA1 IWHERE 03471 M00S03303.xedit +++| NG X1,WHR1 IF IN CREATION MODE 03472 M00S03304.xedit +++| RJ CDD 03473 M00S03305.xedit +++| MX1 12 03474 M00S03306.xedit +++| BX6 -X1*X6 03475 M00S03307.xedit +++| LX6 12 MOVE END OF LINE BYTE 03476 M00S03308.xedit +++| WRITEO OUTPUT 03477 M00S03309.xedit +++| EQ NCM EXIT 03478 M00S03310.xedit +++| 03479 M00S03311.xedit +++| WHR1 WRITEC OUTPUT,(=C* 0 - IN CREATION MODE.*) 03480 M00S03312.xedit +++| EQ NCM EXIT 03481 M00S03313.xedit +++| WRM SPACE 4,10 03482 M00S03314.xedit +++|** WRM - WRITE RECORD MARK. 03483 M00S03315.xedit +++|* 03484 M00S03316.xedit +++|* ENTRY (X1) = BITS 18 - 35 CONTAIN DESIRED *CIO* FUNCTION. 03485 M00S03317.xedit +++|* 03486 M00S03318.xedit +++|* EXIT TO *NCM*. 03487 M00S03319.xedit +++|* 03488 M00S03320.xedit +++|* USES A - 6. 03489 M00S03321.xedit +++|* X - 1, 2, 6, 7. 03490 M00S03322.xedit +++|* 03491 M00S03323.xedit +++|* CALLS =XCIO=. 03492 M00S03324.xedit +++| 03493 M00S03325.xedit +++| 03494 M00S03326.xedit +++| WRM SX2 FTA SELECT FET 03495 M00S03327.xedit +++| AX1 18 03496 M00S03328.xedit +++| SX7 X1 03497 M00S03329.xedit +++| MX6 0 03498 M00S03330.xedit +++| BX7 -X7 SPECIFY AUTO RECALL 03499 M00S03331.xedit +++| SA6 NOMOD SET MODIFICATION 03500 M00S03332.xedit +++| RJ =XCIO= 03501 M00S03333.xedit +++| EQ NCM EXIT 03502 M00S03334.xedit +++| 03503 M00S03335.xedit +++| YZP SPACE 4,15 03504 M00S03336.xedit +++|** YZP - Y/Z COMMAND PROCESSOR. 03505 M00S03337.xedit +++|* 03506 M00S03338.xedit +++|* ENTRY (NUMS) = IF NO PARAMETER, 0 03507 M00S03339.xedit +++|* ELSE, FWA OF PARAMETERS. 03508 M00S03340.xedit +++|* (NUMS+1) = LWA OF PARAMETER. 03509 M00S03341.xedit +++|* 03510 M00S03342.xedit +++|* EXIT IF ERROR, TO *CER*, ELSE TO *STK*. 03511 M00S03343.xedit +++|* 03512 M00S03344.xedit +++|* USES A - 1, 2, 3, 4, 5, 6, 7. 03513 M00S03345.xedit +++|* X - 1, 2, 3, 4, 5, 6, 7. 03514 M00S03346.xedit +++|* B - 6, 7. 03515 M00S03347.xedit +++|* 03516 M00S03348.xedit +++|* CALLS RTA, STK. 03517 M00S03349.xedit +++| 03518 M00S03350.xedit +++| 03519 M00S03351.xedit +++| YZP SA1 NUMS GET FWA OF PARAMETER 03520 M00S03352.xedit +++| SA2 A1+B1 GET LWA+1 03521 M00S03353.xedit +++| SA3 X1 DELIMITER CHARACTER 03522 M00S03354.xedit +++| ZR X1,YZP2 IF NO PARAMETER 03523 M00S03355.xedit +++| SA5 INDEX 03524 M00S03356.xedit +++| SA4 X2 LAST CHARACTER 03525 M00S03357.xedit +++| SB6 X1+B1 SET FWA OF STRING TO PACK 03526 M00S03358.xedit +++| SX5 X5-.Z 0 IF *Z* COMMAND 03527 M00S03359.xedit +++| MX7 1 03528 M00S03360.xedit +++| NZ X5,YZP1 IF NOT *Z* COMMAND 03529 M00S03361.xedit +++| BX3 X3+X7 SET TO ECHO COMMANDS 03530 M00S03362.xedit +++| YZP1 LX6 X3 MOVE DELIMITER/ECHO FLAG 03531 M00S03363.xedit +++| SB7 Y.LINE 03532 M00S03364.xedit +++| SA6 Y.DEV+1 SET DELIMITER CHARACTER 03533 M00S03365.xedit +++| BX7 X7+X4 SET PSEUDO END OF LINE 03534 M00S03366.xedit +++| SA7 A4 03535 M00S03367.xedit +++| RJ RTA PACK LINE 03536 M00S03368.xedit +++| SA1 NUMS+1 03537 M00S03369.xedit +++| SA1 X1+ GET PSEUDO END OF LINE 03538 M00S03370.xedit +++| MX7 1 03539 M00S03371.xedit +++| BX6 -X7*X1 REMOVE PSEUDO END OF LINE 03540 M00S03372.xedit +++| LX1 1 03541 M00S03373.xedit +++| NG X1,YZP1.1 IF TRUE END OF LINE 03542 M00S03374.xedit +++| SA6 A1+ REPLACE ENTRY 03543 M00S03375.xedit +++| YZP1.1 SA1 Y.DEV 03544 M00S03376.xedit +++| RJ STK STACK ENTRY. IF NO ERRORS, EXIT. 03545 M00S03377.xedit +++| SB2 STK. 03546 M00S03378.xedit +++| EQ CER IF STACKING ERROR, EXIT 03547 M00S03379.xedit +++| 03548 M00S03380.xedit +++| YZP2 SB2 ARG. 03549 M00S03381.xedit +++| EQ CER PARAMETER ERROR, EXIT 03550 M00S03382.xedit +++| TITLE SUBROUTINES. 03551 M00S03383.xedit +++| ABT SPACE 4,15 03552 M00S03384.xedit +++|** ABT - ABORT XEDIT. 03553 M00S03385.xedit +++|* 03554 M00S03386.xedit +++|* ENTRY (B6) = ADDRESS OF ABORT MESSAGE. 03555 M00S03387.xedit +++|* 03556 M00S03388.xedit +++|* EXIT TO *EXT*. 03557 M00S03389.xedit +++|* (EXTA) = -1, INDICATES ABORT. 03558 M00S03390.xedit +++|* 03559 M00S03391.xedit +++|* USES A - 6. 03560 M00S03392.xedit +++|* X - 6. 03561 M00S03393.xedit +++|* 03562 M00S03394.xedit +++|* MACROS WRITEC. 03563 M00S03395.xedit +++|* 03564 M00S03396.xedit +++|* NOTES DO NOT *RJ* TO THIS SUBROUTINE. 03565 M00S03397.xedit +++| 03566 M00S03398.xedit +++| 03567 M00S03399.xedit +++| ABT SX6 -1 CHANGE EXIT MODE 03568 M00S03400.xedit +++| SA6 EXTA 03569 M00S03401.xedit +++| WRITEC OUTPUT,B6 ISSUE MESSAGE 03570 M00S03402.xedit +++| EQ EXT EXIT XEDIT 03571 M00S03403.xedit +++| ASF SPACE 4,20 03572 M00S03404.xedit +++|** ASF - ANALYZE STRING FIELDS. 03573 M00S03405.xedit +++|* 03574 M00S03406.xedit +++|* ENTRY (P1LP - P3RP) = POINTERS TO STRINGS. 03575 M00S03407.xedit +++|* 03576 M00S03408.xedit +++|* EXIT STRING DEFINITIONS CHECKED AGAINST BITS IN COMMAND 03577 M00S03409.xedit +++|* MODIFIER WORD. 03578 M00S03410.xedit +++|* (LOCA - LOCC) = INITIALIZED FOR USE BY *LOC*. 03579 M00S03411.xedit +++|* (SPCP) = NEGATIVE IF WINDOW WAS SPECIFIED. 03580 M00S03412.xedit +++|* (B2) = 0 IF NO ERROR ENCOUNTERED, 03581 M00S03413.xedit +++|* ELSE, ORDINAL OF ERROR MESSAGE. 03582 M00S03414.xedit +++|* IF ERROR, TO *NER*. 03583 M00S03415.xedit +++|* 03584 M00S03416.xedit +++|* USES A - 1, 2, 3, 4, 6, 7. 03585 M00S03417.xedit +++|* X - 0, 1, 2, 3, 4, 6, 7. 03586 M00S03418.xedit +++|* B - 2, 3, 4, 5, 6, 7. 03587 M00S03419.xedit +++|* 03588 M00S03420.xedit +++|* CALLS SAC, VIS. 03589 M00S03421.xedit +++|* 03590 M00S03422.xedit +++|* NOTES ROUTINE IS DESIGNED TO BE CALLED IMMEDIATELY AFTER 03591 M00S03423.xedit +++|* THE STRINGS ARE PARSED VIA *PRM*. 03592 M00S03424.xedit +++| 03593 M00S03425.xedit +++| 03594 M00S03426.xedit +++| ASF11 SA1 COMMAND 03595 M00S03427.xedit +++| SA2 P3RP 03596 M00S03428.xedit +++| LX1 59-33 MODIFIER 15, 2 STRINGS NEEDED 03597 M00S03429.xedit +++| PL X1,ASF IF NOT ABOVE 03598 M00S03430.xedit +++| ZR X2,ASF10 IF NOT 2 STRINGS (ARG ERROR) 03599 M00S03431.xedit +++| 03600 M00S03432.xedit +++| ASF PS ENTRY/EXIT 03601 M00S03433.xedit +++| SA3 P1LP 03602 M00S03434.xedit +++| SA2 PREFIX 03603 M00S03435.xedit +++| ZR X3,ASF9 IF NO STRINGS 03604 M00S03436.xedit +++| SA1 GLOBAL 03605 M00S03437.xedit +++| MX6 -18 03606 M00S03438.xedit +++| LX2 59-/PREFIX/W (NEXT BIT IS -A-) 03607 M00S03439.xedit +++| BX7 -X6*X1 SET GLOBAL 03608 M00S03440.xedit +++| LX6 B1,X2 03609 M00S03441.xedit +++| SX4 B0 03610 M00S03442.xedit +++| PL X6,ASF1 IF NOT ANCHOR 03611 M00S03443.xedit +++| MX4 1 03612 M00S03444.xedit +++| ASF1 LX7 18 03613 M00S03445.xedit +++| SX1 E.STR-1 SET MINIMUM STARTING-1 03614 M00S03446.xedit +++| BX6 X6+X2 03615 M00S03447.xedit +++| PL X6,ASF2 IF NOT WINDOW/ANCHOR 03616 M00S03448.xedit +++| SA1 LMW GET WINDOW LEFT MARGIN 03617 M00S03449.xedit +++| ASF2 IX7 X7+X4 03618 M00S03450.xedit +++| BX7 X1+X7 03619 M00S03451.xedit +++| SA7 LOCA SAVE FIRST LOCATE PARAMETER WORD 03620 M00S03452.xedit +++| 03621 M00S03453.xedit +++|* INITIALIZE *LOCB* AND *LOCC*. 03622 M00S03454.xedit +++|* 03623 M00S03455.xedit +++|* NOTE- LWA+1 FOR SCAN IS SET VERY HIGH. THIS IS DONE FOR 03624 M00S03456.xedit +++|* TWO REASONS. THE FIRST, THIS ROUTINE IS ALSO CALLED BY 03625 M00S03457.xedit +++|* *OCTCHANGE*, WHICH MAY USE DOUBLE SIZE BUFFERS, AND THE 03626 M00S03458.xedit +++|* SECOND IS THAT IT DOES NOT MAKE MUCH DIFFERENCE AS THE 03627 M00S03459.xedit +++|* LOCATE SUBROUTINE, *LOC*, WILL FORCE LWA+1 TO BECOMES THE 03628 M00S03460.xedit +++|* EOL CHARACTER OF THE STRING BEING SEARCHED. 03629 M00S03461.xedit +++| 03630 M00S03462.xedit +++| SA1 P1LP 03631 M00S03463.xedit +++| SB2 E.STR+3*MAXWD 1.SET LWA+1 AVAIL FOR SCAN 03632 M00S03464.xedit +++| SA3 P2LP 03633 M00S03465.xedit +++| SB3 B2 2. SET LWA+1 AVAIL FOR SCAN 03634 M00S03466.xedit +++| MX0 1 03635 M00S03467.xedit +++| SA4 RMW OBTAIN WINDOW RIGHT MARGIN+1 03636 M00S03468.xedit +++| SB5 18 03637 M00S03469.xedit +++| SB6 B0 1. STRING LENGTH 03638 M00S03470.xedit +++| SB4 X4 03639 M00S03471.xedit +++| LX6 X1,B5 1. FWA COMPARE 03640 M00S03472.xedit +++| SB7 B7-B7 2. STRING LENGTH 03641 M00S03473.xedit +++| LX7 X3,B5 2. FWA COMPARE 03642 M00S03474.xedit +++| SA4 SPCP RESET WINDOW PARAMETER 03643 M00S03475.xedit +++| BX1 X7 03644 M00S03476.xedit +++| BX7 -X0*X4 03645 M00S03477.xedit +++| SA7 SPCP 03646 M00S03478.xedit +++| BX7 X1 03647 M00S03479.xedit +++| SA1 P1LP 03648 M00S03480.xedit +++| SA4 TRIM 03649 M00S03481.xedit +++| BX4 X4+X2 NEG. IF WINDOW OR TRIM 03650 M00S03482.xedit +++| PL X4,ASF3 IF NOT ABOVE 03651 M00S03483.xedit +++| BX6 X0+X6 1. SET TRIM 03652 M00S03484.xedit +++| BX7 X0+X7 2. SET TRIM 03653 M00S03485.xedit +++| ASF3 PL X2,ASF4 IF NOT WINDOW PROCESSING 03654 M00S03486.xedit +++| SA4 SPCP SET WINDOW PARAMETER 03655 M00S03487.xedit +++| BX4 X4+X0 03656 M00S03488.xedit +++| BX2 X7 03657 M00S03489.xedit +++| BX7 X4 03658 M00S03490.xedit +++| SA7 SPCP 03659 M00S03491.xedit +++| BX7 X2 03660 M00S03492.xedit +++| SB2 B4 03661 M00S03493.xedit +++| SB3 B4 03662 M00S03494.xedit +++| ASF4 LX2 /PREFIX/W-/PREFIX/A 03663 M00S03495.xedit +++| SA4 PRMB GET AND/NOT LOGIC FLAG 03664 M00S03496.xedit +++| ZR X3,ASF5 IF ONLY ONE STRING 03665 M00S03497.xedit +++| NZ X4,ASF5 IF *---* LOGIC 03666 M00S03498.xedit +++| BX6 X0+X6 1. SET TRIM (ALL CHARS SIGNIFICANT) 03667 M00S03499.xedit +++| ASF5 BX0 X0*X4 03668 M00S03500.xedit +++| LX0 36-59 POSITION FLAG 03669 M00S03501.xedit +++| PL X2,ASF6 IF NOT ANCHOR 03670 M00S03502.xedit +++| SB2 B4 1. RESET RIGHT MARGIN 03671 M00S03503.xedit +++| ASF6 BX7 X7+X0 2. SET POS/NEG LOGIC FLAG 03672 M00S03504.xedit +++| SA2 A1+B1 03673 M00S03505.xedit +++| SA4 A3+B1 03674 M00S03506.xedit +++| IX1 X2-X1 03675 M00S03507.xedit +++| IX3 X4-X3 03676 M00S03508.xedit +++| SB6 X1 03677 M00S03509.xedit +++| SB7 X3 03678 M00S03510.xedit +++| SX1 B2 03679 M00S03511.xedit +++| SX3 B3 03680 M00S03512.xedit +++| BX6 X6+X1 03681 M00S03513.xedit +++| BX7 X7+X3 03682 M00S03514.xedit +++| PX6 B6 03683 M00S03515.xedit +++| PX7 B7 03684 M00S03516.xedit +++| SA6 LOCB 03685 M00S03517.xedit +++| SA7 A6+B1 03686 M00S03518.xedit +++| SA1 LOCE SET NORMAL SEARCH 03687 M00S03519.xedit +++| GT B6,ASF7 IF FIRST STRING NOT NULL 03688 M00S03520.xedit +++| NZ X4,ASF8 IF THERE IS A SECOND STRING 03689 M00S03521.xedit +++| SA1 LOCF SET NULL SEARCH 03690 M00S03522.xedit +++| ASF7 BX6 X1 03691 M00S03523.xedit +++| SA6 LOC+1 CHANGE ENTRY POINT TO *LOC* 03692 M00S03524.xedit +++|* RJ VIS VOID INSTRUCTION STACK 03693 M00S03525.xedit +++| RJ SAC SET ASCII PROCESSING 03694 M00S03526.xedit +++| SB2 B0 SET NO ERROR 03695 M00S03527.xedit +++| EQ ASF RETURN 03696 M00S03528.xedit +++| 03697 M00S03529.xedit +++| ASF8 GT B7,ASF7 IF SECOND STRING NOT NULL 03698 M00S03530.xedit +++| EQ ASF10 SET *ARG* ERROR 03699 M00S03531.xedit +++| 03700 M00S03532.xedit +++| ASF9 SA1 LOCD SET FOUND STRING (NO FIELDS) 03701 M00S03533.xedit +++| SA2 COMMAND 03702 M00S03534.xedit +++| SB2 B0 SET *ASF* SUCCESSFUL 03703 M00S03535.xedit +++| BX6 X1 03704 M00S03536.xedit +++| SA6 LOC+1 03705 M00S03537.xedit +++| RJ VIS VOID INSTRUCTION STACK 03706 M00S03538.xedit +++| LX2 59-34 MODIFIER BIT 16, 1 STRING NEEDED 03707 M00S03539.xedit +++| PL X2,ASF11 IF NOT ABOVE 03708 M00S03540.xedit +++| ASF10 SB2 ARG. SET ERROR 03709 M00S03541.xedit +++| EQ ASF RETURN 03710 M00S03542.xedit +++| BTL SPACE 4,10 03711 M00S03543.xedit +++|** BTL - ISSUE *BAD TEXT LINE ENCOUNTERED* MESSAGE. 03712 M00S03544.xedit +++|* 03713 M00S03545.xedit +++|* ENTRY NONE. 03714 M00S03546.xedit +++|* 03715 M00S03547.xedit +++|* EXIT TO *NCM*. 03716 M00S03548.xedit +++|* 03717 M00S03549.xedit +++|* USES B - 2. 03718 M00S03550.xedit +++|* 03719 M00S03551.xedit +++|* CALLS IEM. 03720 M00S03552.xedit +++| 03721 M00S03553.xedit +++| 03722 M00S03554.xedit +++| BTL SB2 BTL. SET UP ERROR MESSAGE 03723 M00S03555.xedit +++| RJ IEM ISSUE ERROR MESSAGE 03724 M00S03556.xedit +++| EQ NCM EXIT 03725 M00S03557.xedit +++| CER SPACE 4,15 03726 M00S03558.xedit +++|** CER - COMMAND ERROR PROCESSOR. 03727 M00S03559.xedit +++|* 03728 M00S03560.xedit +++|* ENTRY (B2) = ERROR MESSAGE ORDINAL. 03729 M00S03561.xedit +++|* 03730 M00S03562.xedit +++|* EXIT TO *NCM* AFTER POPPING STACK TO MAIN DEVICE AND 03731 M00S03563.xedit +++|* READING NEXT COMMAND LINE (VIA *NCL*). 03732 M00S03564.xedit +++|* IF BATCH MODE, TO *ABT*. 03733 M00S03565.xedit +++|* 03734 M00S03566.xedit +++|* USES A - 1, 2, 5, 6, 7. 03735 M00S03567.xedit +++|* X - 1, 2, 5, 6, 7. 03736 M00S03568.xedit +++|* B - 2, 6, 7. 03737 M00S03569.xedit +++|* 03738 M00S03570.xedit +++|* CALLS IEM. 03739 M00S03571.xedit +++| 03740 M00S03572.xedit +++| 03741 M00S03573.xedit +++| CER ERROR B2 ISSUE ERROR MESSAGE 03742 M00S03574.xedit +++| 03743 M00S03575.xedit +++|* ENTRY POINT FOR COMMAND ERROR, BUT ISSUED OWN MESSAGE. 03744 M00S03576.xedit +++| 03745 M00S03577.xedit +++| CER1 SA2 BATCH ABORT/ELSE RETURN TO MAIN INPUT 03746 M00S03578.xedit +++| SB6 =C* BATCH ABORT - COMMAND ERROR.* 03747 M00S03579.xedit +++| NZ X2,ABT IF BATCH MODE 03748 M00S03580.xedit +++| SA1 INPMODE 03749 M00S03581.xedit +++| SB7 -I.DEV SET DEVICE TO CHECK AGAINST
Proceed to Part 2
cdc/nos2.source/opl.opl871/deck/xedit.001.txt · Last modified: (external edit)