File: TECOVX.LS of Disk: V50/Source/Source-Listing-MAC-2
(Source file text)
PAGE LINE SUBTITLE
2 57 Cmd EX
2 63 Cmd EC
2 77 Cmd EF
3 133 Cmd EK
3 139 Cmd V
4 148 Cmd ^W
4 152 Cmd ^V
4 156 Chr ^_
4 164 Cmd ^L
5 170 Cmd ^F
5 175 Cmd ?
5 182 Cmd ^N
5 188 Cmd ^E
7 223 Cmd EG
9 293 Cmd ^U
10 315 Imm *
10 316 Imm ^S
10 356 Cmd [
10 358 Cmd ]
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 1
FILE # 1
1 /4 X-OVERLAY TO TECO V50
2
3 / 08-APR-79 FIXED RELOC BUG
4 / ADDED ERRONEOUS E COMMANDS
5 / MADE QSIZE GLOBAL
6
7 .ENABLE 7BIT
8
9 .MACRO .ERROR ERNUM
10 .GLOBAL ERR'ERNUM
11 ERR'ERNUM: ERR
12 .ENDM
13
14 .MACRO .SORT ARG1,ARG2
15 SORT; ARG1; ARG2-ARG1
16 .ENDM
17
18 7344 MTWO=CLL STA RAL
19 0400 CCLADR=400 /CCL OVERLAY LOAD ADDRESS
20 0067 CCLOVL=67 /BLOCK OF CCL OVERLAY
21 0602 CCLOST=602 /CCL OVERLAY SECONDARY START ADDRESS
22 7746 JSBITS=7746 /JOB STATUS BITS - IN FIELD 0
23 7757 MREAD=7757 /V50- FOR ENTRY POINT TO MYSYS
24 7776 SBLOCK=7776 /V50- MYSYS CHAIN DEVICE - FIELD 0
25 7647 OSHNDT=7647 /OS/8 DEVICE HANDLER TABLE - IN FIELD 1
26
27 .EXTERNAL IOVRLC,QOVRLC,EOVRLC,FOVRLC
28 .EXTERNAL PUSHJ,CTL.C,QPNTR
29 .ZTERNAL OUTR,ZNXTBUF,REND,ZZ,OCRCNT,Z177,MQ,ODEV,OUTHND
30 .ZTERNAL EBFLG,Z200,Z7,CAFF,TFLG,FFFLAG,OSCANP,SCANP,NFLG,ZIREST
31 .ZTERNAL OCMDLN,ZQPNTR,ERROR,N,NLINK,MEMSIZ,QZ,Z52
32 .EXTERNAL ERR,OUTPUT,GETUSR,NORMAL,OCNT,OUNAM,POPJ
33 .EXTERNAL PUSHJ,NRET,CHR.T,NCHK,GETNUM,NCOM,TYPE,QREF,QSKP
34 .EXTERNAL NCOMCL,NNEW13,QCHK,QUOTST,GETUSR,ECDISM,CHREY
35 .EXTERNAL ADJQ,NOTRCE,QUOTST,QPUT,ENTRCE,TYPE,TCTLS,NCOM14
36
37 .GLOBAL CHR.EA,CHR.EE,CHR.EI,CHR.EL,CHR.EM
38 .GLOBAL CHR.EN,CHR.EP,CHR.EQ
39 .GLOBAL CHR.EV,CHR.EY,CHR.EZ
40 .GLOBAL XOVRLY,TSAV,CQSM,PSHPOP
41 .GLOBAL CHR.EC,CHR.EF,CHR.EG,CHR.EJ,CHR.EK,CHR.EX,CHR.UB,CHR.V
42 .GLOBAL CTL.B,CTL.E,CTL.F,CTL.L,CTL.N,CTL.U,CTL.V,CTL.W
43 .GLOBAL QSIZE
44
45 0200 .ASECT TECOVX
46
47 6600 *6600
48
49 6600 RELOC 3200
50
51 03200* 0000 * IOVRLC
52 03201* 0000 * QOVRLC
53 03202* 0000 * EOVRLC
54 03203* 0000 XOVRLY, 0
55 03204* 0000 * FOVRLC
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 2
FILE # 1
56
57 .SBTTL Cmd EX
58
59 03205* 0000 * CHR.EX, PUSHJ /"EX" COMMAND
60 03206* 3210 CHR.EC /CLOSE OUT THE FILES
61 03207* 5777 JMP I (CTL.C /AND GO AWAY
62
63 .SBTTL Cmd EC
64
65 03210* 1000 * CHR.EC, TAD OUTR /"EC" COMMAND
66 03211* 7041 CIA /CHECK FOR OPEN OUTPUT FILE
67 03212* 1000 * TAD ERROR
68 03213* 7650 SNA CLA
69 03214* 5303 JMP FASTEX /NOPE, EXIT ALREADY
70 03215* 4400 * L$: JMS I ZNXTBUF /GET NEXT BUFFER
71 03216* 1000 * TAD REND
72 03217* 7041 CIA
73 03220* 1000 * TAD ZZ /CHECK FOR END-OF-FILE AND
74 03221* 7640 SZA CLA /TEXT BUFFER EMPTY
75 03222* 5215 JMP L$ /NOT YET
76
77 .SBTTL Cmd EF
78
79 03223* 1000 * CHR.EF, TAD OCRCNT /CAN FALL IN FROM ABOVE
80 03224* 7040 CMA /REDUCE THE OUTPUT DOUBLEWORD COUNT
81 03225* 0000 * AND Z177 /TO REFLECT ONLY THOSE WORDS REMAINING
82 03226* 7040 CMA /UNTIL THE NEXT BLOCK BOUNDARY
83 03227* 3000 * DCA OCRCNT
84 03230* 1274 TAD L7200 /USED TO BE 'DV7200'
85 03231* 3000 * DCA MQ /SET COUNTER FOR ONE BLOCK WORTH OF STUFF
86 03232* 1376 TAD (32 /^Z END-OF-FILE
87 03233* 0000 * OUTPUT
88 03234* 2000 * ISZ MQ
89 03235* 5233 JMP .-2 /FILL AT LEAST THE CURRENT BUFFER AND OUTPUT IT
90 03236* 1000 * TAD ODEV /MAKE SURE THE USR KNOWS THE HANDLER
91 03237* 1375 TAD (OSHNDT-1 /*K* - POINTER INTO
92 03240* 3257 DCA TY / OS/8 DEVICE RESIDENCY TABLE
93 03241* 6211 CDF 10
94 03242* 1000 * TAD OUTHND
95 03243* 3657 DCA I TY /MARK THE HANDLER AS IN CORE
96 03244* 4774 JMS I (GETUSR /LOCK THE USR INTO CORE
97 03245* 1000 * TAD EBFLG /IS THIS AN EDIT BACKUP?
98 03246* 7650 SNA CLA
99 03247* 5773 JMP I (NORMAL /NO, JUST CLOSE FILE
100 03250* 1772 TAD I (OCNT-1 /YES, LOOKUP OLD FILE TO CHANGE NAME
101 03251* 3256 DCA TY-1
102 03252* 6212 CIF 10
103 03253* 1000 * TAD ODEV /INPUT AND OUTPUT ARE ON SAME DEVICE
104 03254* 4400 * JMS I Z200
105 03255* 0002 2
106 03256* 0000 * OUNAM
107 03257* 0000 TY, 0 /USELESS LENGTH--USE IT FOR TEMPORARY
108 03260* 5773 JMP I (NORMAL /ERROR-JUST CLOSE FILE AND DON'T TELL ANYBODY
109 03261* 6211 CDF 10 /ALL THAT WAS JUST TO GET THE DIRECTORY IN CORE
110 03262* 7240 STA /SO WE COULD FIDDLE WITH IT
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 2-1
Cmd EF FILE # 1
111 03263* 1771 TAD I (17 /FORM POINTER TO DIRECTORY ENTRY
112 03264* 1770 TAD I (1404
113 03265* 3257 DCA TY
114 03266* 1367 TAD ('BK /CHANGE EXTENSION TO .BK
115 03267* 3657 DCA I TY
116 03270* 1400 * TAD I Z7 /DIRECTORY BLOCK IT CAME FROM
117 03271* 0000 * AND Z7
118 03272* 3300 DCA DIRBLK
119 03273* 6201 CDF 0
120 03274* 7200 L7200, CLA
121 03275* 4400 * JMS I OUTHND
122 03276* 4210 4210 /WRITE IT BACK OUT
123 03277* 1400 1400
124 03300* 0000 DIRBLK, 0
125 03301* 5274 JMP L7200 /ERROR! KEEP TRYING-THIS CAN BLOW A DIRECTORY
126 03302* 5773 JMP I (NORMAL
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 3
Cmd EF FILE # 1
127
128 03303* 1000 * FASTEX, TAD ZZ
129 03304* 7650 SNA CLA
130 03305* 0000 * POPJ /FAST EXIT
131 .ERROR 42 /TRIED TO EX WITH NO OUTPUT FILE AND TEXT IN BUFFER
132
133 .SBTTL Cmd EK
134
135 03307* 1000 * CHR.EK, TAD ERROR
136 03310* 3000 * DCA OUTR
137 03311* 0000 * POPJ
138
139 .SBTTL Cmd V
140
141 03312* 7100 CHR.V, CLL
142 03313* 0000 * PUSHJ
143 03314* 0000 * NRET
144 03315* 0000 * PUSHJ /DO A 0T
145 03316* 0000 * CHR.T
146 03317* 5716 JMP I .-1 /NOW DO A T
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 4
Cmd V FILE # 1
147
148 .SBTTL Cmd ^W
149
150 CTL.W, .ERROR 27 /^W
151
152 .SBTTL Cmd ^V
153
154 CTL.V, .ERROR 35 /^V
155
156 .SBTTL Chr ^_
157
158 03322* 0000 * CHR.UB, NCHK
159 .ERROR 40 /NO ARG BEFORE ^_
160 03324* 0000 * GETNUM
161 03325* 7060 CML CMA
162 03326* 5766 JMP I (NCOM
163
164 .SBTTL Cmd ^L
165
166 03327* 1000 * CTL.L, TAD CAFF
167 03330* 0000 * TYPE
168 03331* 0000 * POPJ
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 5
Cmd ^L FILE # 1
169
170 .SBTTL Cmd ^F
171
172 03332* 7604 CTL.F, CLA OSR /^F COMMAND - VALUE OF CONSOLE SWITCHES
173 03333* 5765 JMP I (NCOMCL
174
175 .SBTTL Cmd ?
176
177 03334* 1000 * CQSM, TAD TFLG
178 03335* 7040 CMA /TRACE FLAG ALTERNATES BETWEEN 0 AND 7777
179 03336* 3000 * DCA TFLG
180 03337* 0000 * POPJ
181
182 .SBTTL Cmd ^N
183
184 03340* 1000 * CTL.N, TAD REND
185 03341* 7040 CMA
186 03342* 5764 JMP I (NNEW13
187
188 .SBTTL Cmd ^E
189
190 03343* 1000 * CTL.E, TAD FFFLAG /^E COMMAND - RETURNS FORM FEED FLAG
191 03344* 5764 JMP I (NNEW13
192
193 03345* 6211 CTL.B, CDF 10 /^B COMMAND - OS/8 SYSTEM DATE
194 03346* 1763 TAD I (7666
195 03347* 6201 CDF 0
196 03350* 5766 JMP I (NCOM
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 6
Cmd ^E FILE # 1
197
198 CHR.EE,
199 CHR.EL,
200 CHR.EQ,
201 CHR.EV,
202
203 CHR.EA,
204 CHR.EP,
205 CHR.EI,
206 CHR.EM,
207 CHR.EN,
208 CHR.EZ,
209 .ERROR 36
210
211 03352* 5762 CHR.EY, JMP I (CHREY /OVERLAYS HAVE SPECIAL CALL
212
213 03353* 3361 TBL, (256. /-1EJ COMPUTER ID (PDP-8)
214 03354* 0000 * MEMSIZ /-2EJ MEMORY SIZE (IN 512 WORD CHUNKS?)
215 03355* 3360 QSIZE /-3EJ AVAILABLE Q-REGISTER STORAGE IN CHARACTERS
216 03356* 0000 * QZ /-4EJ NUMBER OF CHARS IN Q-REGISTER SPACE
217 03357* 7776 SBLOCK /-5EJ NUMBER OF MYSYS CHAIN DEVICE
218
219 03360* 3720 QSIZE, 2000. /LENGTH OF Q-REGISTER STORAGE (2944. IF 12K)
220
------
03361* 0400
03362* 0000 *
03363* 7666
03364* 0000 *
03365* 0000 *
03366* 0000 *
03367* 0213
03370* 1404
03371* 0017
03372* 7777 *
03373* 0000 *
03374* 0000 *
03375* 7646
03376* 0032
03377* 0000 *
221 7000 PAGE
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 7
Cmd ^E FILE # 1
222
223 .SBTTL Cmd EG
224
225 03400* 0000 * CHR.EG, PUSHJ /DO AN EC TO CLOSE OUT FILE
226 03401* 3210 CHR.EC
227 03402* 0000 * QCHK /ALLOW @
228 03403* 3215 DCA STOCD /MAKE REUSABLE IN CASE .START
229 03404* 1336 TAD L7600
230 03405* 3226 DCA CDPTR
231 03406* 1377 TAD (-47 /47 ENTRIES IN CD TABLE
232 03407* 3227 DCA EGCNT
233 03410* 0000 * EG1, QUOTST
234 03411* 5230 JMP EG2
235 03412* 1000 * TAD Z200 /TURN ON PARITY BIT FOR OS/8
236 03413* 4215 JMS STOCD
237 03414* 5210 JMP EG1
238
239 03415* 0000 STOCD, 0
240 03416* 2227 ISZ EGCNT
241 03417* 7410 SKP
242 .ERROR 33 /EG ARG TOO BIG
243 03421* 6211 CDF 10
244 03422* 3626 DCA I CDPTR
245 03423* 6201 CDF 0
246 03424* 2226 ISZ CDPTR
247 03425* 5615 JMP I STOCD
248
249 03426* 7600 CDPTR, 7600
250 03427* 7737 EGCNT, -41
251
252 03430* 1215 EG2, TAD STOCD
253 03431* 7650 SNA CLA /ANYTHING IS ARG
254 03432* 5270 JMP REGEG /NO
255 03433* 4215 JMS STOCD /STORE 0 AT END
256 03434* 4776 JMS I (GETUSR
257 03435* 1375 TAD (CCLNAM
258 03436* 3245 DCA ARG1 /JUST IN CASE PREVIOUS EG FAILED
259 03437* 1774 TAD I (SBLOCK /GET MYSYS CHAIN DEVICE V40
260 03440* 7450 SNA /IF NOT V40
261 03441* 7201 CLA IAC /USE SYS
262 03442* 6212 CIF 10
263 03443* 4400 * JMS I Z200
264 03444* 0002 2 /LOOKUP
265 03445* 3464 ARG1, CCLNAM
266 03446* 0000 0
267 03447* 5261 JMP CCLERR
268 03450* 1373 TAD (2001
269 03451* 3772 DCA I (JSBITS /KEEP USR IN CORE
270 03452* 1245 TAD ARG1
271 03453* 3260 DCA CHNBLK
272 03454* 1771 TAD I (MREAD-1 /USE MYSYS DEV ENTRYPOINT
273 03455* 6212 CIF 10
274 03456* 4400 * JMS I Z200
275 03457* 0006 6 /CHAIN
276 03460* 0000 CHNBLK, 0
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 8
Cmd EG FILE # 1
277
278 03461* 0000 * CCLERR, PUSHJ
279 03462* 0000 * ECDISM
280 03463* 5220 JMP ERR33
281
282 03464* 0303 CCLNAM, FILENAME CCL.SV
03465* 1400
03466* 0000
03467* 2326
283
284 REGEG, /EDIT AND GO - A CCL SPECIAL
285 03470* 4770 JMS I (7607 /CALL THE OS/8 SYSTEM HANDLER
286 03471* 0200 0200 /TO READ IN THE CCL OVERLAY
287 03472* 0400 CCLADR
288 03473* 0067 CCLOVL
289 03474* 5220 JMP ERR33 /ERROR ON SYSTEM DEVICE!
290 03475* 5676 JMP I .+1 /GO TO THE OVERLAY
291 03476* 0602 CCLOST /AT OUR "SPECIAL" LOCATION
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 9
Cmd EG FILE # 1
292
293 .SBTTL Cmd ^U
294
295 03477* 0000 * CTL.U, QREF /COMMAND ^U
296 03500* 0000 * QSKP /COUNT UP STRING
297 03501* 1000 * TAD OSCANP
298 03502* 7040 CMA
299 03503* 1000 * TAD SCANP /LENGTH OF STRING
300 /
301 / *** PROHIBIT STRING > 2047 CHARS (NO WAY CAN BE CREATED)
302 /
303 03504* 0000 * ADJQ /ADJUST Q-REGISTERS AND SET NEW LENGTH
304 03505* 1000 * TAD OSCANP /RESET SCAN POINTER
305 03506* 3000 * DCA SCANP
306 03507* 3000 * DCA NFLG
307 03510* 0000 * NOTRCE / ?WHY?
308 03511* 0000 * 1$: QUOTST
309 03512* 5315 JMP 2$
310 03513* 0000 * QPUT
311 03514* 5311 JMP 1$
312 03515* 0000 * 2$: ENTRCE / ?WHY?
313 03516* 5400 * JMP I ZIREST
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 10
Cmd ^U FILE # 1
314
315 .SBTTL Imm *
316 .SBTTL Imm ^S
317
318 03517* 1000 * TSAV, TAD Z52
319 03520* 0000 * TYPE /TYPE A "*Z"
320 03521* 1367 TAD ("Z /TYPE "Z"
321 03522* 0000 * TYPE /AFTER A *
322 03523* 7344 MTWO /DROP OFF THE TWO BELLS OR ALTMODES
323 03524* 1000 * TAD OCMDLN
324 03525* 7510 SPA
325 03526* 5336 JMP L7600 /IGNORE SOME IMMEDIATE COMMANDS
326 03527* 0000 * ADJQ /SET COMMAND STRING LENGTH TO OLD VALUE
327 03530* 1366 TAD (44
328 03531* 0000 * QREF /SET UP POINTERS TO Q-REG Z
329 03532* 0000 * ADJQ /KILL CONTENTS OF Q-REG Z
330 03533* 1400 * TAD I ZQPNTR
331 03534* 3765 DCA I (QPNTR-2
332 03535* 3400 * DCA I ZQPNTR /DO A QUICK SHUFFLE OF Q-REG LENGTHS
333 03536* 7600 L7600, 7600 /CLA
334 03537* 5764 JMP I (TCTLS
335
336 03540* 1000 * CHR.EJ, TAD NLINK
337 03541* 7650 SNA CLA
338 03542* 5354 JMP TERMNO
339 03543* 1000 * TAD N
340 / AND (7 /WHO CARES IF WE ARE OUT OF RANGE
341 03544* 7041 CIA
342 03545* 1363 TAD (TBL-1
343 03546* 3353 DCA T$
344 03547* 1753 TAD I T$
345 03550* 3353 DCA T$
346 03551* 1753 TAD I T$
347 03552* 5762 JMP I (NCOM14 /RETURN SYSTEM-DEPENDENT VALUES
348 03553* 0000 T$: 0
349
350 03554* 6254 TERMNO, 6254 /ARE WE UNDER MULTI8?
351 03555* 5762 JMP I (NCOM14 /NO, GIVE BACK TERMINAL #0
352 03556* 7201 CLA IAC /GIOT 1: GET TERMINAL NUMBER
353 03557* 6770 6770
354 03560* 5762 JMP I (NCOM14 /POSITIVE EJ RETURNS 0 (JOB NUMBER, TERMINAL NUMBER)
355
356 .SBTTL Cmd [
357
358 .SBTTL Cmd ]
359
360 PSHPOP, .ERROR 41 /UNIMPLEMENTED [ OR ]
361
------
03562* 0000 *
03563* 3352
03564* 0000 *
03565* 7776 *
03566* 0044
03567* 0132
03570* 7607
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 10-1
Cmd ] FILE # 1
03571* 7756
03572* 7746
03573* 2001
03574* 7776
03575* 3464
03576* 0000 *
03577* 7731
362 7200 PAGE
363 7200 RELOC
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 11
Cmd ] FILE # 1
364
/4 X-OVERLAY TO TECO V50 MACREL-V2C FRI 07-DEC-90 PAGE 12
SYMBOL TABLE
ADJQ X **** ERR36 G 3351 SCANP Z 0***
ARG1 3445 ERR40 G 3323 STOCD 3415
CAFF Z 0*** ERR41 G 3561 TBL 3353
CCLADR 0400 ERR42 G 3306 TCTLS X ****
CCLERR 3461 FASTEX 3303 TECOVX 7200 ASECT
CCLNAM 3464 FFFLAG Z 0*** TERMNO 3554
CCLOST 0602 FLD: 0 0200 ASECT TFLG Z 0***
CCLOVL 0067 FOVRLC X **** TSAV G 3517
CDPTR 3426 GETNUM X **** TY 3257
CHNBLK 3460 GETUSR X **** TYPE X ****
CHREY X **** IOVRLC X **** XOVRLY G 3203
CHR.EA G 3351 JSBITS 7746 ZIREST Z 0***
CHR.EC G 3210 L7200 3274 ZNXTBU Z 0***
CHR.EE G 3351 L7600 3536 ZQPNTR Z 0***
CHR.EF G 3223 MEMSIZ Z 0*** ZZ Z 0***
CHR.EG G 3400 MQ Z 0*** Z177 Z 0***
CHR.EI G 3351 MREAD 7757 Z200 Z 0***
CHR.EJ G 3540 MTWO 7344 Z52 Z 0***
CHR.EK G 3307 N Z 0*** Z7 Z 0***
CHR.EL G 3351 NCHK X **** .ERROR M 0000
CHR.EM G 3351 NCOM X **** .SORT M 0000
CHR.EN G 3351 NCOMCL X ****
CHR.EP G 3351 NCOM14 X ****
CHR.EQ G 3351 NFLG Z 0***
CHR.EV G 3351 NLINK Z 0***
CHR.EX G 3205 NNEW13 X ****
CHR.EY G 3352 NORMAL X ****
CHR.EZ G 3351 NOTRCE X ****
CHR.T X **** NRET X ****
CHR.UB G 3322 OCMDLN Z 0***
CHR.V G 3312 OCNT X ****
CQSM G 3334 OCRCNT Z 0***
CTL.B G 3345 ODEV Z 0***
CTL.C X **** OSCANP Z 0***
CTL.E G 3343 OSHNDT 7647
CTL.F G 3332 OUNAM X ****
CTL.L G 3327 OUTHND Z 0***
CTL.N G 3340 OUTPUT X ****
CTL.U G 3477 OUTR Z 0***
CTL.V G 3321 POPJ X ****
CTL.W G 3320 PSHPOP G 3561
DIRBLK 3300 PUSHJ X ****
EBFLG Z 0*** QCHK X ****
ECDISM X **** QOVRLC X ****
EGCNT 3427 QPNTR X ****
EG1 3410 QPUT X ****
EG2 3430 QREF X ****
ENTRCE X **** QSIZE G 3360
EOVRLC X **** QSKP X ****
ERR X **** QUOTST X ****
ERROR Z 0*** QZ Z 0***
ERR27 G 3320 REGEG 3470
ERR33 G 3420 REND Z 0***
ERR35 G 3321 SBLOCK 7776