File: TECINI.LS of Disk: V50/Source/Source-Listing-MAC-2
(Source file text)
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 1
FILE # 1
1 /9 TECO INITIALIZATION MODULE V50
2
3 / 08-APR-79 PASS INITIAL COMMAND TO TECO.INI IN Q-REGISTER Z
4 / DON'T NEED SYS WRITE ENABLED ON STARTUP
5 / FIXED BUG HAVING TO DO WITH / IN 8K
6 / FIX -3EJ COMMAND IN 12K
7 / 10-APR-79 CONDITIONALIZED IN EXTENDED MATCH CONTROL INITIALIZATION
8
9 /GERMAN=1 /NOT ANYMORE
10
11 .ENABLE 7BIT
12
13 7344 MTWO=CLL STA RAL
14
15 .GLOBAL ERR30,TECO35,TCINIT,JTECO
16 .GLOBAL CDF4A,CDF4B,CDF4C,TWLVKP,VT05C,VT52D,VT52KL
17 .EXTERNAL XERBAS,IOVRLC,QOVRLC,ERRXX,ERRYY
18 .EXTERNAL QPUTS,GETQX,ASR33,QSIZE
19 .ZTERNAL MQ,CACR,XR,INXR,Z377,QP,SCHAR
20 .EXTERNAL NWRUSR,MQMAX,COLCT,CHKCTC
21 .EXTERNAL INHNDL,PUTT,L16K
22 .EXTERNAL Q12MAX,QLIMIT,KSFWT,DISPLY,TSFWT,VT52B,TYI1,CHTECO
23 .ZTERNAL QZ,MEMSIZ
24 .EXTERNAL SCAPE,EUFLAG,ETFLAG,EU1,EU2,INRSIZ,INCTLW,INPCNT
25 .EXTERNAL I2,IC,J12K1,J12K2,L12K1,L12K2,OUTSIZ,BUFIN
26 .EXTERNAL T0A,TECO1,HLPADR,HLPSYS,TECOS,QPUT,POUTHT,SCPBIT,RUBY
27 .ZTERNAL TEMPT
28 .EXTERNAL SCOPY,BLSP1,BLSP2,BLSP3,BLSP4,TYPE,QPNTR
29 .EXTERNAL CDSP,CHR.W,C.W,CTL.CB,INHNDL,OUHNDL,SRHLEN,MEMLOC,NEWERR
30 .EXTERNAL OVREAD
31 .ZTERNAL Z7400,Z4,Z40,Z200
32 .EXTERNAL CORTST
33
34 7746 JSBITS=7746
35 7776 SBLOCK=7776
36 7757 MREAD=7757
37 0000 XTNDED=0 /NO EXTENDED MATCH CONTROL
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 2
FILE # 1
38
39
40 0200 .ASECT TECINI
41
42 5200 *5200
43
44 / INITIALIZATION SECTION
45 / ENTER HERE AT 5200 TO MODIFY TECO TO USE A MODEL 35 TELETYPE
46
47 05200 2320 TECO35, ISZ JTECO /IF CALLED VIA "R" OR "RUN"
48 05201 1377 TAD (-10 /MOVE IN ASR35 ROUTINE
49 05202 4776 JMS I (MOVE
50 05203 6211 CDF 10
51 05204 3540 ASR35-1
52 05205 6201 CDF 0
53 05206 7777 * ASR33-1
54 05207 1375 TAD (ASR33+1
55 05210 3774 DCA I (POUTHT
56 05211 1373 TAD (TECOS
57 05212 3772 DCA I (7745 /CHANGE STARTING ADDRESS IN CASE WE'RE RESTARTED
58 /AND FALL INTO INITIALIZATION ROUTINE
59
60 05213 7320 TCINIT, CLA STL
61 05214 6141 6141 /ENTER LINC MODE (MAYBE)
62 05215 0004 4 /ESF - SET SMALL CHARACTERS FOR SCOPE
63 05216 0261 0261 /ROL I 1 - ROTATE LINK INTO AC11
64 05217 0002 0002 /BACK TO PDP-8 MODE
65 05220 7650 SNA CLA /AC NON-ZERO IF WE ARE A PDP-12
66 05221 5227 JMP 1$ /NO, JUST AN ORDINARY 8
67 05222 4337 JMS CHANGE /TRADE OFF TWO PAGE HANDLERS FOR A SCOPE
68 05223 3432 PDP12
69 05224 1771 TAD I (ETFLAG
70 05225 1370 TAD (2000 /SET VR12 BIT
71 05226 3771 DCA I (ETFLAG
72 05227 1642 1$: TAD I COR1
73 05230 0250 AND COR70
74 05231 7440 SZA
75 05232 5326 JMP SOFCOR
76 05233 6201 COR0, CDF 0 /NEEDED FOR PDP-8L
77 05234 1325 TAD CORSIZ /GET FIELD TO TEST
78 05235 7006 RTL
79 05236 7004 RAL
80 05237 0250 AND COR70 /MASK USEFUL BITS
81 05240 1263 TAD COREX
82 05241 3242 DCA .+1 /SET UP CDF TO FIELD
83 05242 7777 COR1, 7777 /N IS FIELD TO TEST
84 05243 1723 TAD I CORLOC /SAVE CURRENT CONTENTS
85 05244 7000 COR2, NOP /HACK FOR PDP-8!
86 05245 3242 DCA COR1
87 05246 1244 TAD COR2 /7000 IS A "GOOD" PATTERN
88 05247 3723 DCA I CORLOC
89 05250 0070 COR70, 70 /HACK FOR PDP-8, NOP
90 05251 1723 TAD I CORLOC /TRY TO READ BACK 7000
91 05252 7400 CORX, 7400 /HACK FOR PDP-8, NOP
92 05253 1252 TAD CORX /GUARD AGAINST WRAP-AROUND
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 2-1
FILE # 1
93 05254 1324 TAD CORV /TAD (1400
94 05255 7640 SZA CLA
95 05256 5263 JMP COREX /NON-EXISTENT FIELD EXIT
96 05257 1242 TAD COR1 /RESTORE CONTENTS DESTROYED
97 05260 3723 DCA I CORLOC
98 05261 2325 ISZ CORSIZ /TRY NEXT HIGHER FIELD
99 05262 5233 JMP COR0
100
101 05263 6201 COREX, CDF 0 /LEAVE WITH DATA FIELD 0
102 05264 1367 COR992, TAD (-2 /CAN'T BE MTWO
103 05265 1325 TAD CORSIZ /HIGHEST EXISTING FIELD
104 05266 6213 CIF CDF 10
105 05267 4766 JMS I (CORTST /MAY SKIP RETURN
106 05270 5307 JMP JTECOM /8K
107 05271 1365 TAD (-7 /MORE THAN 8K
108 05272 4776 JMS I (MOVE
109 05273 6211 CDF 10
110 05274 3522 QPUT12-1
111 05275 6201 CDF 0
112 05276 7777 * QPUTS-1
113 05277 1365 TAD (-7
114 05300 4776 JMS I (MOVE
115 05301 6211 CDF 10
116 05302 3531 QGET12-1
117 05303 6201 CDF 0
118 05304 7777 * GETQX-1
119 05305 4337 JMS CHANGE /AND CHANGE A WHOLE MESS OF LOCATIONS
120 05306 3470 TWLVEK
121 05307 4764 JTECOM, JMS I (OVINIT /WRITE OUT OVERLAYS
122 05310 6211 CDF 10
123 05311 1763 TAD I (SCPBIT
124 05312 6201 CDF 0
125 05313 0000 * AND Z200
126 05314 7650 SNA CLA
127 05315 5320 JMP JTECO
128 05316 4337 JMS CHANGE
129 05317 3447 SCOPE
130 05320 5721 JTECO, JMP I .+1 /INCREMENTED IF WE WERE'NT CHAINED TO
131 05321 5331 CHINIL
132 05322 0000 * TECO1
133
134 05323 5252 CORLOC, CORX /ADDRESS TO TEST IN EACH FIELD
135 05324 1400 CORV, 1400 /7000+7400+1400=0
136 05325 0001 CORSIZ, 1 /CURRENT FIELD TO TEST
137
138 05326 7110 SOFCOR, CLL RAR
139 05327 7012 RTR
140 05330 5264 JMP COR992
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 3
FILE # 1
141
142
143 /CHAINED INIT CODE - MOVE 17600 INTO Q-REGISTER SPACE
144
145 05331 6213 CHINIL, CIF CDF 10
146 05332 5762 JMP I (CHINI2 /GO TO FIELD 1 CHAIN INITIALIZATION
147
148 05333 0000 XQPUT, 0
149 05334 0000 * QPUT /QPUT ROUTINE CALLABLE FROM FIELD 1
150 05335 6213 CIF CDF 10
151 05336 5733 JMP I XQPUT
152
153 05337 0000 CHANGE, 0 /ROUTINE TO CHANGE SPECIFIC LOCATIONS
154 05340 7240 STA
155 05341 1737 TAD I CHANGE
156 05342 2337 ISZ CHANGE
157 05343 3000 * DCA XR /STORE TABLE POINTER
158 05344 6211 L$: CDF 10
159 05345 1400 * TAD I XR /GET LOCATION
160 05346 6201 CDF 0
161 05347 7450 SNA
162 05350 5737 JMP I CHANGE /END OF LIST - RETURN
163 05351 3000 * DCA TEMPT
164 05352 6211 CDF 10
165 05353 1400 * TAD I XR /GET CONTENTS
166 05354 6201 CDF 0
167 05355 3400 * DCA I TEMPT /ZAP!
168 05356 5344 JMP L$
169
170 /CHECK FOR OS/8 SCOPE BIT, IF ON, PATCH TECO
171 /ALSO SEND ESC SEQ TO TERMINAL TO SEE IF VT05 OR VT5X.
------
05362 3600
05363 0000 *
05364 5400
05365 7771
05366 0000 *
05367 7776
05370 2000
05371 0000 *
05372 7745
05373 0000 *
05374 0000 *
05375 0001 *
05376 5471
05377 7770
172 5400 PAGE
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 4
FILE # 1
173
174
175 05400 0000 OVINIT, 0 /WRITE OUT OVERLAYS
176 05401 6213 CIF CDF 10
177 05402 4777 JMS I (MOREI /DO MORE INITIALIZATION
178 /IF MORE THAN 12K, MOVE OVERLAYS TO FIELD 3
179 05403 7344 MTWO
180 05404 1000 * TAD MEMSIZ
181 05405 7710 TWLVKP, SPA CLA
182 05406 5240 JMP L16KK /LESS THAN 16K
183 05407 1000 * TAD Z7400
184 05410 4271 JMS MOVE
185 05411 6201 CDF 0
186 05412 3177 3200-1
187 05413 6231 CDF4A, CDF 30
188 05414 7777 * MEMLOC-1
189 05415 1376 TAD (-2000
190 05416 4271 JMS MOVE
191 05417 6201 CDF 0
192 05420 5577 5600-1
193 05421 6231 CDF4B, CDF 30
194 05422 0377 * MEMLOC+400-1
195 05423 1375 TAD (-5
196 05424 4271 JMS MOVE
197 05425 6211 CDF 10
198 05426 7777 * NEWERR-1
199 05427 6201 CDF 0
200 05430 7777 * OVREAD-1
201 05431 1374 TAD (-3200
202 05432 4271 JMS MOVE
203 05433 6211 CDF 10
204 05434 7777 * XERBAS-1
205 05435 6231 CDF4C, CDF 30
206 05436 7777 * XERBAS-1
207 05437 5254 JMP G16K
208 05440 4773 L16KK, JMS I (7607
209 05441 4200 4200
210 05442 3200 3200 /WRITE OUT I/O-OVERLAY
211 05443 0000 * IOVRLC
212 05444 5256 JMP OVERR /ERROR WRITING OVERLAY
213 05445 4773 JMS I (7607
214 05446 5000 5000 /4 OVERLAYS
215 05447 5600 5600 /WRITE OUT Q-OVERLAY AND E-OVERLAY
216 05450 0000 * QOVRLC
217 05451 5256 JMP OVERR /ERROR WRITING OUT OVERLAY
218 05452 7240 STA
219 05453 3772 DCA I (L16K
220 05454 3771 G16K, DCA I (ERRXX
221 .IF NE XTNDED <
222 TAD (-200 /MOVE EXTENDED MATCH CONTROL INTO INPUT BUFFER
223 JMS MOVE
224 CDF 10
225 3200-1
226 CDF 0
227 7200-1
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 4-1
FILE # 1
228 >
229 05455 5600 JMP I OVINIT /RETURN
230
231 05456 1000 * OVERR, TAD Z7400 /SWAP IN ERROR OVERLAY FROM CORE AND MAKE SURE
232 05457 4271 JMS MOVE /WE RETURN TO MONITOR
233 05460 6201 CDF 0
234 05461 6177 6200-1
235 05462 6201 CDF 0
236 05463 3177 3200-1
237 05464 1770 TAD I (ETFLAG
238 05465 0367 AND (7577
239 05466 1000 * TAD Z200 /SET FATAL SWITCH
240 05467 3770 DCA I (ETFLAG
241 05470 5766 ERR30, JMP I (ERRYY /CALL ERROR MESSAGE PROCESSOR
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 5
FILE # 1
242
243
244 05471 0000 MOVE, 0
245 05472 3000 * DCA MQ
246 05473 1671 TAD I MOVE
247 05474 3307 DCA 1$
248 05475 2271 ISZ MOVE
249 05476 1671 TAD I MOVE
250 05477 3000 * DCA INXR
251 05500 2271 ISZ MOVE
252 05501 1671 TAD I MOVE
253 05502 3311 DCA 2$
254 05503 2271 ISZ MOVE
255 05504 1671 TAD I MOVE
256 05505 3000 * DCA XR
257 05506 2271 ISZ MOVE
258 05507 7402 1$: HLT
259 05510 1400 * TAD I INXR
260 05511 7402 2$: HLT
261 05512 3400 * DCA I XR
262 05513 6201 CDF 0
263 05514 2000 * ISZ MQ
264 05515 5307 JMP 1$
265 05516 5671 JMP I MOVE
------
05566 0000 *
05567 7577
05570 0000 *
05571 0000 *
05572 0000 *
05573 7607
05574 4600
05575 7773
05576 6000
05577 3637
266 5600 PAGE
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 6
FILE # 1
267
268
269 0200 .ASECT TECPAT
270 0001 FIELD 1
271 3400 *3400
272
273 /LIST OF PATCHES TO ENABLE VT52 "WATCH" COMMAND
274
275 .GLOBAL VPATCH
276 .SECREF SWATCH,VTCHKC,VTYI,VTGETQ,VTCCB
277
278 0030 CUR=30
279
280 13400 0000 * VPATCH, CHR.W /ADDR
281 13401 7774 -4 /-SIZE
282 /ALTER WATCH ROUTINE
283 13402 7200 CLA
284 13403 6233 CIF CDF CUR
285 13404 **** * CHR.W+3&177+5600/JMP I .+1
286 13405 0000 * SWATCH
287
288 13406 0127 * CDSP+127 /ADDR
289 13407 7777 -1 /-SIZE
290 13410 0000 * C.W /ALTER COMMAND DISPATCH TO ALLOW WATCH COMMAND
291
292 13411 0000 * VT52KL, VT52B /ADDR *M8 GETS 0: END OF LIST
293 13412 7775 -3 /-SIZE
294 /ALTER CONTROL C INTERCEPT FOR TYPE AHEAD
295 13413 6233 CIF CDF CUR /WAS KSF
296 13414 **** * VT52B+2&177+5600/JMP I .+1 /WAS JMP I CHKCTC
297 13415 0000 * VTCHKC /WAS KRS
298
299 13416 0000 * TYI1 /ADDR
300 13417 7774 -4 /-SIZE
301 13420 6233 CIF CDF CUR /WAS KSF
302 13421 **** * TYI1+2&177+5600 /JMP I .+1 /WAS JMP .-1
303 13422 0000 * VTYI /WAS CTCCHK
304 13423 7000 NOP /WAS KRB
305
306 13424 0000 * CTL.CB /ADDR /FOR ^] COMMAND
307 13425 7775 -3 /-SIZE
308 13426 6233 CIF CDF CUR /WAS KSF
309 13427 **** * CTL.CB+2&177+5600 /JMP I .+1 /WAS STL STA
310 13430 0000 * VTCCB /WAS JMP NCOM
311
312 13431 0000 0 /END OF LIST
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 7
FILE # 1
313
314
315 /LOCATIONS TO CHANGE IF WE'RE RUNNING ON A PDP-12
316
317 13432 0000 * PDP12, KSFWT; DISPLY /FIX KEYBOARD AND PRINTER WAITS
13433 0000 *
318 13434 0000 * TSFWT; DISPLY /SO THEY DISPLAY WHILE WAITING
13435 0000 *
319 13436 0127 * CDSP+127;C.W /ENABLE W COMMAND
13437 0000 *
320 13440 0000 * INHNDL; 7200 /ONE PAGE INPUT HANDLER ONLY
13441 7200
321 13442 0000 * OUHNDL; 7400 /DITTO OUTPUT HANDLER
13443 7400
322 13444 0000 * SRHLEN; -40 /SHORTEN SEARCH BUFFER TO 40 CHARACTERS
13445 7740
323 13446 0000 0
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 8
FILE # 1
324
325
326 /LOCATIONS TO CHANGE IF CONSOLE TERMINAL IS A SCOPE
327
328 13447 0000 * SCOPE, RUBY; SCOPY /MAKE SCOPE RUBOUTS WORK
13450 0000 *
329 13451 0000 * BLSP1; TAD CACR /MAKE BELL SPACE WORK
13452 1000 *
330 13453 0000 * BLSP2; TYPE /AND MORE RUBOUTS
13454 0000 *
331 13455 0000 * BLSP3; SCAPE&177+4600 /JMS I (ESCAPE
13456 **** *
332 13457 0000 * BLSP4; VT05C,113 /MORE BELL SPACE
13460 0113
333 13461 0000 * EUFLAG; -1 /SET EU TO -1
13462 7777
334 13463 0000 * EU1; CLA
13464 7200
335 13465 0000 * EU2; TAD Z40
13466 1000 *
336 13467 0000 0
337
338 /LOCATIONS TO CHANGE MUST BE CHANGED IN OVERLAY IMAGE
339 /BEFORE OVERLAY IS WRITTEN OUT
340
341 /LOCATIONS TO CHANGE IF WE HAVE 12K OF CORE
342
343 13470 0000 * TWLVEK, INRSIZ; 4 /INPUT BUFFER GROWS TO 4 BLOCKS LONG
13471 0004
344 13472 0000 * INCTLW; 1021 /AND LIVES IN FIELD 2
13473 1021
345 13474 0000 * INPCNT; 5000
13475 5000
346 13476 0000 * I2; CDF 20
13477 6221
347 13500 0000 * IC; CDF 0 /THIS WAS A NOP TO SPEED UP RTS-8 OPERATION
13501 6201
348 13502 0000 * L12K1; J12K1 /SPEED UP TEXT MOVE ROUTINES,
13503 0000 *
349 13504 0000 * L12K2; J12K2 /SINCE Q-REGISTERS DON'T SIT ON TOP OF TEXT.
13505 0000 *
350 13506 0000 * OUTSIZ; 6777 /OUTPUT BUFFER TAKES OVER OLD INPUT BUFFER SPACE
13507 6777
351 13510 0000 * BUFIN; 5600
13511 5600
352 13512 0000 * NWRUSR; TAD Z4 /LET USR BE CALLED WITHOUT SAVING CORE
13513 1000 *
353 13514 0000 * MQMAX; -Q12MAX /ALLOW MORE Q-REGISTER STORAGE
13515 **** *
354 13516 0000 * QLIMIT; 12-Q12MAX
13517 **** *
355 13520 3400 * QSIZE-3200+6600;Q12MAX/FIX -3EJ COMMAND
13521 0000 *
356 13522 0000 0
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 9
FILE # 1
357
358
359 /ALTERNATE Q-REGISTER GET AND PUT ROUTINES FOR USE IN 12K
360
361 13523 0000 QPUT12, 0 /12K Q-REGISTER PUT ROUTINE
362 13524 0000 * AND Z377
363 13525 6221 CDF 20
364 13526 3400 * DCA I QP
365 13527 6201 CDF 0
366 13530 2000 * ISZ QP
367 13531 **** * QPUTS&177+5600
368
369 VT52D,
370 13532 0000 QGET12, 0 /*VT52 12K Q-REGISTER GET ROUTINE
371 13533 **** * CHKCTC&177+3200 /*VT52
372 13534 6221 CDF 20 /*VT52
373 13535 **** * CHKCTC&177+1600 /*VT52
374 13536 6201 CDF 0
375 13537 0000 * AND Z377
376 13540 **** * GETQX&177+5600
377
378 /ALTERNATE ROUTINE TO USE IF WE HAVE AN ASR35
379
380 13541 **** * ASR35, ASR33+6&177+5200/ FORM FEED/VERT. TAB - USE 8/4 FILLERS
381 13542 **** * COLCT&177+1200 /GET COLUMN COUNTER
382 13543 7012 RTR
383 13544 7010 RAR
384 13545 7244 CLA CMA RAL /OUTPUT 2 FILLERS IF MORE THAN 4 CHARS TO TAB
385 13546 **** * COLCT&177+3200 /OTHERWISE 1 (COLCT IS A MODULO 8 COUNTER)
386 13547 1000 * TAD SCHAR /GET CONTROL CHAR TO TYPE
387 13550 0000 * PUTT /AND TYPE IT - WE WILL NOW FILL WITH NULLS
388 3600 PAGE
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 10
FILE # 1
389
390
391 3600 *3600
392
393 /ENTER AT CHINI2
394 /MOVE INITIAL COMMAND INTO COMMAND-LINE Q-REGISTER SPACE
395
396 13600 1777 CHINI2, TAD I (7600
397 13601 7640 SZA CLA
398 13602 5213 JMP 3$ /REGULAR TECO COMMAND
399 13603 1376 TAD (PSTKMD
400 13604 3236 DCA PST /CCL COMMAND
401 13605 1375 TAD (INIKMD
402 13606 3235 DCA PTR$
403 13607 5213 JMP 3$
404 13610 3225 1$: DCA 4$ /FIRST 0 MEANS SWITCH TO POST COMMAND
405 13611 1236 TAD PST
406 13612 3235 2$: DCA PTR$ /STORE NEW POINTER
407 13613 1635 3$: TAD I PTR$ /GET A CHARACTER
408 13614 2235 ISZ PTR$ /POINT TO NEXT IN SEQUENCE
409 13615 7450 SNA /IS IT 0?
410 13616 5225 JMP 4$ /YES, END OF INITIAL COMMAND STRING
411 13617 7510 SPA /NO, IS IT NEGATIVE?
412 13620 5212 JMP 2$ /YES, IT IS A POINTER TO THE NEXT PART OF THE BUFFER
413 13621 6203 CIF CDF 0 /LINK TO FIELD 0
414 13622 4774 JMS I (XQPUT /DO A PUT
415 13623 2234 ISZ KNT$ /COUNT HOW MANY CHARACTERS THERE WERE
416 13624 5213 JMP 3$ /REITERATE
417 13625 5210 4$: JMP 1$ /LOC GETS ZERO'ED
418 13626 1234 TAD KNT$
419 13627 6203 CIF CDF 0
420 13630 3773 DCA I (QZ
421 13631 1234 TAD KNT$
422 13632 3772 DCA I (QPNTR
423 13633 5771 JMP I (CHTECO
424
425 13634 0000 KNT$: 0 /NUMBER OF CHARACTERS IN CHAINED INIT COMMAND
426 13635 4000 PTR$: INICMD /POINTS TO INITIAL COMMAND
427 13636 4130 PST, PSTCMD
428
429 /IF 07600 IS 0, THEN CCL COMMAND FOLLOWS
430 /PASSED IN TEXT BUFFER TO TECO.TEC WHICH EXECUTES FROM Q-REGISTER V
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 11
FILE # 1
431
432
433 /ADDITIONAL INITIALIZATION COMMANDS:
434
435 13637 0000 MOREI, 0
436 13640 6046 TLS
437 13641 1240 TAD .-1
438 13642 6201 CDF 0
439 13643 3770 DCA I (TECOS
440 13644 1302 TAD JMPT0A
441 13645 3767 DCA I (TECO1
442 13646 1366 TAD (2001 /NOTHING IMPORTANT ANYMORE DOWN THERE
443 13647 3765 DCA I (JSBITS /SO DON'T SWAP USR
444 13650 1764 TAD I (SBLOCK /GET CHAIN DEVICE
445 13651 7450 SNA /IF NOT V40
446 13652 7201 CLA IAC /USE SYS:
447 13653 6211 CDF 10
448 13654 4763 JMS I (7700 /CALL THE USR
449 13655 0002 2 /TO DO A LOOKUP
450 13656 3676 B$: HLP$ /ON SYS:TECHLP.TXT
451 13657 0000 0 /GETS NEGATIVE OF LENGTH
452 13660 7610 SKP CLA /FILE NOT FOUND
453 13661 1256 TAD B$ /GET ADDRESS
454 13662 3762 DCA I (HLPADR /SAVE AWAY ITS STARTING ADDRESS
455 13663 1761 TAD I (SCPBIT
456 13664 0360 AND (200
457 13665 7002 BSW
458 13666 6201 CDF 0
459 13667 1757 TAD I (ETFLAG
460 13670 3757 DCA I (ETFLAG /TURN ON SCOPE BIT IF SCOPE
461 13671 1756 TAD I (MREAD-1 /GET CHAIN ENTRYPOINT FOR EXT ERR
462 13672 6211 CDF 10
463 13673 3755 DCA I (HLPSYS
464 13674 6203 CIF CDF 0
465 13675 5637 JMP I MOREI
466
467 13676 2405 HLP$: FILENAME TECHLP.TXT
13677 0310
13700 1420
13701 2430
468
469 13702 **** * JMPT0A, T0A&177+5200 /JMP T0A
470 /
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 12
FILE # 1
471
472
------
13755 0000 *
13756 7756
13757 0000 *
13760 0200
13761 0000 *
13762 0000 *
13763 7700
13764 7776
13765 7746
13766 2001
13767 0000 *
13770 0000 *
13771 0000 *
13772 0000 *
13773 0000 *
13774 5333
13775 4172
13776 4345
13777 7600
473 4000 PAGE
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 13
FILE # 1
474
475
476 4000 *4000 /2 PAGES AVAILABLE
477
478 .ENABLE ASCII,NOFILL
479 .NOLIST BE
480
481 14000 0100 INICMD, TEXT %@I\@:ER/:TECO.INI/\5J-5EJ-2ES%
482 14035 0105 TEXT %ES"L@I\SYS\'%
483 14051 0105 TEXT %ES"E@I\DSK\'%
484 14065 0105 TEXT %ES"G@I\DSK0\'%
485 14102 0110 TEXT %HXWHKMW"SYHXWHK'@^UZ%
486 14126 0200 200
487 14127 7600 7600 /CONTINUE WITH USER'S COMMAND STRING
488
489 14130 0200 PSTCMD, 200
490 14131 0115 TEXT %MW+0ES.,.XWMZ^[0,0XZES"N0ESMX'%<33><33>
491 14171 0000 0
492
493 14172 0100 INIKMD, TEXT %@I\@:ER/:TECO.TEC/\5J-5EJ-2ES%
494 14227 0105 TEXT %ES"L@I\SYS\'%
495 14243 0105 TEXT %ES"E@I\DSK\'%
496 14257 0105 TEXT %ES"G@I\DSK0\'%
497 14274 0110 .IF ND GERMAN < TEXT %HXVMV"FCan't find 4,ZT% >
498 .IF DF GERMAN < TEXT %HXVMV"FFinde 4,ZT nicht!% >
499 14324 0001 TEXT <1><15><12><1><3><3>
500 14332 0047 TEXT %'YHXVHK@I%
501 14343 0200 200
502 14344 7601 7601
503
504 14345 0200 PSTKMD, 200
505 14346 0115 TEXT %MV.,.XV0ES%<33><33>
506 14362 0000 0
507
508 .ENABLE SIXBIT,FILL
509 .LIST BE
/9 TECO INITIALIZATION MODULE V5 MACREL-V2C FRI 07-DEC-90 PAGE 14
SYMBOL TABLE
ASR33 X **** IOVRLC X **** SWATCH Y ****
ASR35 3541 I2 X **** TCINIT G 5213
BLSP1 X **** JMPT0A 3702 TECINI 5600 ASECT
BLSP2 X **** JSBITS 7746 TECOS X ****
BLSP3 X **** JTECO G 5320 TECO1 X ****
BLSP4 X **** JTECOM 5307 TECO35 G 5200
BUFIN X **** J12K1 X **** TECPAT 4363 ASECT
CACR Z 0*** J12K2 X **** TEMPT Z 0***
CDF4A G 5413 KSFWT X **** TSFWT X ****
CDF4B G 5421 L12K1 X **** TWLVEK 3470
CDF4C G 5435 L12K2 X **** TWLVKP G 5405
CDSP X **** L16K X **** TYI1 X ****
CHANGE 5337 L16KK 5440 TYPE X ****
CHINIL 5331 MEMLOC X **** T0A X ****
CHINI2 3600 MEMSIZ Z 0*** VPATCH G 3400
CHKCTC X **** MOREI 3637 VTCCB Y ****
CHR.W X **** MOVE 5471 VTCHKC Y ****
CHTECO X **** MQ Z 0*** VTGETQ Y ****
COLCT X **** MQMAX X **** VTYI Y ****
COREX 5263 MREAD 7757 VT05C G 3460
CORLOC 5323 MTWO 7344 VT52B X ****
CORSIZ 5325 NEWERR X **** VT52D G 3532
CORTST X **** NWRUSR X **** VT52KL G 3411
CORV 5324 OUHNDL X **** XERBAS X ****
CORX 5252 OUTSIZ X **** XQPUT 5333
COR0 5233 OVERR 5456 XR Z 0***
COR1 5242 OVINIT 5400 XTNDED 0000
COR2 5244 OVREAD X **** Z200 Z 0***
COR70 5250 PDP12 3432 Z377 Z 0***
COR992 5264 POUTHT X **** Z4 Z 0***
CTL.CB X **** PST 3636 Z40 Z 0***
CUR 0030 PSTCMD 4130 Z7400 Z 0***
C.W X **** PSTKMD 4345
DISPLY X **** PUTT X ****
ERRXX X **** QGET12 3532
ERRYY X **** QLIMIT X ****
ERR30 G 5470 QOVRLC X ****
ETFLAG X **** QP Z 0***
EUFLAG X **** QPNTR X ****
EU1 X **** QPUT X ****
EU2 X **** QPUTS X ****
FLD: 0 0200 ASECT QPUT12 3523
GETQX X **** QSIZE X ****
G16K 5454 QZ Z 0***
HLPADR X **** Q12MAX X ****
HLPSYS X **** RUBY X ****
IC X **** SBLOCK 7776
INCTLW X **** SCAPE X ****
INHNDL X **** SCHAR Z 0***
INICMD 4000 SCOPE 3447
INIKMD 4172 SCOPY X ****
INPCNT X **** SCPBIT X ****
INRSIZ X **** SOFCOR 5326
INXR Z 0*** SRHLEN X ****