File: SET50.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 1
FILE # 1
1 /OS/8 SET FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /
10 /COPYRIGHT (C) 1978,1979,1980 BY DATAPLAN GMBH, LAUDA, BRD
11 / AND 2015 W. VAN DER MARK
12 /
13 /
14 /
15 /
16 /
17 /
18 /
19 /
20 /
21 /
22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DATAPLAN GMBH.
24 /DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR
25 /IN THIS DOCUMENT.
26 /
27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
29 /(WITH INCLUSION OF DATAPLAN'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DATAPLAN.
31 /
32 /DATAPLAN GMBH ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY
33 /OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DATAPLAN.
34 /
35 /
36 /
37 /
38 /
39 /
40 /
41 /
42 /
43 /
44 /W.V.D.MARK, DP CONSULTING, ZUERICH, SWITZERLAND
45 /JUL-1978
46 /JUL-1979
47 /DEZ-1979
48 /JAN-1980
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 2
FILE # 1
49
50
51
52 / EDIT HISTORY:
53
54 / 19-MAR-77 S.R. REMOVED FROM CAMP V4
55 / 19-MAR-77 S.R. FIXED BUG WITH SET MTA FILES
56 / 19-MAR-77 S.R. FIXED BUG WITH SET CDR
57 / 19-MAR-77 S.R. FIXED BUG WITH = OPTION
58 / 19-MAR-77 S.R. CONVERTED TO MACREL CODE
59 / 01-APR-77 S.R. TTY PAUSE
60 / 01-APR-77 S.R. TTY HEIGHT
61 / 01-APR-77 S.R. TTY SCOPE
62 / 17-APR-77 S.R. REWROTE TTY PAGE
63 / 17-APR-77 S.R. DEV: DVCODE
64 / 17-APR-77 S.R. FINISHED TTY SCOPE
65 / 27-APR-77 S.R. TTY COL
66 / 27-APR-77 S.R. SYS OPTIONS (INIT, OS8, OS78)
67 / 03-MAY-77 S.R. LA8A, LA78
68 / 03-MAY-77 S.R. INIT OS78 FIXES TERMINATE
69 / 03-MAY-77 S.R. BASIC FIXES
70 / 29-JUN-77 S.R. TTY ARROW
71 / 29-JUN-77 S.R. TTY ESC
72 / 29-JUN-77 S.R. DEV BLK LOC
73 / 30-JUL-78 W.M. DATA IN FIELD 1
74 / OPTIMIZED CODE (6 FREE PAGES)
75 / ENHANCED LPT COMMANDS FOR LPSS HANDLER
76 / PRINTS THRU BATCH
77 / GETS COMMANDS UP TO $ FROM BATCH STREAM
78 / 31-DEC-78 W.M. SUPPORT FOR NEW TTY HANDLER(KL8EG)
79 / LPT SUPPORT FOR EDIT & BATCH
80 / 1-MAR-79 W.M. PRINTRONIX SUPPORT
81 / 1-JUL-79 W.M. MACREL ONLY
82 / SYS ASS,SYS DEA COMMANDS
83 / GERMANIZED
84 / MMISC OPTIONS
85 / 20-JAN-80 W.M. ADAPT TO NEW VERSION NUMBERS 'M'
86 / SET RB01,PDP8 OR VT78
87 / GERMAN=1 NOT ANYMORE
88 / MUST SKIP LOCS 1000-1377
89
90 /FIELD 0
91 /0000-0777 /SET
92 /1000-1377 /OS/8 LINE BUFFER
93 /1400-6577 /SET
94 /6600-7177 /AUXILIARY I/O BUFFER
95 /7000-7177 /I/O BUFFER FOR TECO CCB
96 /7200-7577 /OS/8 HANDLER
97 /7600-7777 /OS/8
98
99 /FIELD 1
100 /2000-.... /ERRORS, MESSAGES, LISTS,...
101
102 /LOADING INSTRUCTIONS:
103 / .MAC SET40
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 2-1
FILE # 1
104 / .LINK SET40,TTY:<SET40/B /MUST GO THRU .BN
105 / .LO SET40/9/P
106 / .SA SYS SET
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 3
FILE # 1
107
108
109
110 7400 BATOUT=7400
111 5400 BATIN=5400
112 0400 KMNTRY=400
113 1077 KMINIT=1077
114 7726 SCPBIT=7726 /BIT 4
115 7741 UDNAME=7741
116 7760 DCB=7760
117 7771 OS78BT=7771
118 7777 MMISC=7777
119 1000 LINBUF=1000
120 6600 AUXBUF=6600
121 7200 HANBUF=7200
122
123
124 0060 VERSL="0&77
125 0030 PATCHL="X&77
126
127 0200 .START 200,0
128 2401 .JSW 2401
129
130
131 /AC NUMERICAL LOADS FILE
132
133 7346 ACM3= CLL STA RTL
134 7344 ACM2= CLL STA RAL
135 7340 ACM1= CLL STA
136 7300 AC0= CLA CLL
137 7301 AC1= CLA CLL IAC
138 7326 AC2= CLA STL RTL
139 7325 AC3= CLA STL IAC RAL
140 7307 AC4= CLA CLL IAC RTL
141 7327 AC6= CLA STL IAC RTL
142 7303 AC100= CLA CLL IAC BSW
143 7332 AC2K= CLA STL RTR
144 7350 AC3777= CLL STA RAR
145 7330 AC4K= CLA STL RAR
146 7352 AC5777= CLL STA RTR
147 7333 AC6K= CLA STL IAC RTR
148 7346 AC7775= ACM3
149 7344 AC7776= ACM2
150 7340 AC7777= ACM1
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 4
FILE # 1
151
152
153
154 0000 .XSECT XSET
155 ?0000 0000 XR1, 0
156 ?0001 0000 XR2, 0
157 ?0002 0000 XR3, 0
158 ?0003 0000 XR4, 0
159
160 0000 .ZSECT ZSET
161 ?0000 0000 TEMP, 0
162 ?0001 0000 T, 0
163 ?0002 0000 T2, 0
164 ?0003 0000 LINPTR, 0
165 ?0004 0000 T3, 0
166 ?0005 0000 FLAG, 0
167 ?0006 0000 SPKNT, 0
168 ?0007 0000 DEVTYP, 0 /DEVICE TYPE (BITS 6-11)
169 ?0010 0000 ENTRY, 0 /HANDLER ENTRY POINT
170 ?0011 0000 NUM, 0
171 ?0012 0000 TYP, 0 /0 MEANS 'F', 1 MEANS 'R'
172 ?0013 0000 T4, 0
173 ?0014 0000 DEVNUM, 0
174 ?0015 0000 DCW, 0 /DEVICE CONTROL WORD
175 ?0016 0000 DCWPTR, 0
176 ?0017 0200 USR, 200 /POINTS TO USR ENTRY POINT
177 ?0020 0000 ESCBIT, 0 /1 MEANS USER TYPED ESCAPE
178 ?0021 0000 CNT, 0
179 ?0022 0000 CTOFLG, 0 /-1 MEANS SAW ^O
180 ?0023 0000 PTR, 0
181 ?0024 0000 DHIT, 0 /DEVICE HANDLER INFO TABLE - 1
182 ?0025 0000 DHI, 0 /DEVICE HANDLER INFO
183 ?0026 0000 DBLK, 0 /DEVICE HANDLER BLOCK
184 ?0027 0000 VNOPTR, 0 /PTS TO VERSION # IN HANDLER
185 ?0030 0000 VNO, 0 /CURRENT HANDLER VERSION NUMBER
186 ?0031 0000 SAVPTR, 0
187 ?0032 0000 NO, 0 /1 MEANS 'NO'
188 ?0033 0001 FLG, 1 /1 MEANS SAW NO DIGITS
189 ?0034 0000 RR, 0
190 ?0035 0000 NUCODE, 0
191 ?0036 0000 SCOP, 0 /NON-0 IF TTY IS SCOPE
192 ?0037 0000 NUM2, 0
193 ?0040 0000 BTSTRP, 0 /USED BY RDAUX,WRAUX; THEN POINTER TO LOC
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 5
FILE # 1
194
195
196
197 0200 .ASECT SETSTA
198 0000 FIELD 0
199 0200 *200
200
201 00200 7410 START, SKP
202 00201 5204 JMP CHN
203 00202 4223 JMS BIT
204 00203 4400 * JMS I [READ /READ A LINE INTO OS/8 LINE BUFFER
205 00204 1001 * CHN, TAD [LINBUF /CHAIN ENTRY ADDRESS
206 00205 3003 * DCA LINPTR /INITIALIZE POINTER TO LINE BUFFER
207 00206 4223 JMS BIT
208 00207 7240 STA
209 00210 4402 * JMS I [SPACE /IGNORE LEADING SPACES
210 00211 4244 JMS GETTWO /GET TWO CHARS
211 00212 3000 * DCA TEMP
212 00213 4403 * JMS I [SCAN /SCAN PAST EXTRA LETTERS OR DIGITS
213 00214 1000 * TAD TEMP
214 00215 4404 * JMS I [BRANCH /GO TO APPROPRIATE ROUTINE
215 00216 3062 BRSET
216 00217 7650 SNA CLA
217 00220 5405 * JMP I [GOAWAY
218 00221 4406 * SYNTAX, JMS I [ERROR /NONE OF THESE
219 00222 0000 ESYN
220
221 00223 0000 BIT, 0
222 00224 6211 CDF 10
223 00225 1777 TAD I (SCPBIT
224 00226 6201 CDF 0
225 00227 0007 * AND [200
226 00230 3036 * DCA SCOP /NOTE WHETHER TTY IS SCOPE V3D
227 00231 7332 AC2K
228 00232 0776 AND I (7777 /TEST IF UNDER BATCH
229 00233 7650 SNA CLA
230 00234 5623 JMP I BIT
231 00235 1776 TAD I (7777 /YES; GET FIELD
232 00236 0010 * AND [70
233 00237 1375 TAD (6202
234 00240 3774 DCA I (TYPEB /SET BATCH PRINT
235 00241 1774 TAD I (TYPEB
236 00242 3773 DCA I (GETB /SET BATCH INPUT
237 00243 5623 JMP I BIT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 6
FILE # 1
238
239
240
241 / GETTWO
242
243 /GET TWO LETTERS OR DIGITS FROM INPUT LINE, PACK IN SIXBIT
244 /ADVANCE PAST THEM. SUBSTITUTE NULL IF NOT FOUND.
245
246 00244 0000 GETTWO, 0
247 00245 4255 JMS GETSIX
248 00246 7106 CLL RTL
249 00247 7006 RTL
250 00250 7006 RTL
251 00251 3002 * DCA T2
252 00252 4255 JMS GETSIX
253 00253 1002 * TAD T2 /COMBINE
254 00254 5644 JMP I GETTWO
255
256 00255 0000 GETSIX, 0 /GET A SIXBIT LETTER OR DIGIT (OR NULL)
257 00256 4272 JMS ALPHA /IS IT ALPHANUMERIC?
258 00257 5262 JMP NOTALPH /NO
259 00260 0011 * AND [77 /YES
260 00261 5655 JMP I GETSIX /TRUNCATE TO SIXBIT
261 00262 7200 NOTALPH,CLA
262 00263 4265 JMS BACKC
263 00264 5655 JMP I GETSIX /RETURN NULL
264
265 00265 0000 BACKC, 0 /MOVE SCAN POINTER BACK ONE
266 00266 7240 STA
267 00267 1003 * TAD LINPTR
268 00270 3003 * DCA LINPTR
269 00271 5665 JMP I BACKC /RETURN
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 7
FILE # 1
270
271
272
273 /RETURN 1 NOT OF TYPE DESIRED
274 /RETURN 2 DESIRED TYPE
275 /IN BOTH CASES, CHAR IS LEFT IN AC
276
277 00272 0000 ALPHA, 0 /LOOK FOR ALPHANUMERIC
278 00273 4412 * JMS I [GETC
279 00274 4303 JMS LETTER /IS IT A LETTER?
280 00275 5277 JMP TRYDIG /NO, TRY DIGIT
281 00276 5301 JMP GOTAL /YES
282 00277 4313 TRYDIG, JMS DIGIT /IS IT A DIGIT?
283 00300 5672 JMP I ALPHA /NO, AINT LETTER OR DIGIT
284 00301 2272 GOTAL, ISZ ALPHA /YES, EITHER LETTER OR DIGIT
285 00302 5672 JMP I ALPHA /RETURN WITH IT IN AC
286
287 00303 0000 LETTER, 0 /LOOK FOR LETTER
288 00304 1372 TAD (-"A
289 00305 7100 CLL
290 00306 1371 TAD ("A-"Z-1
291 00307 7420 SNL
292 00310 2303 ISZ LETTER
293 00311 1370 TAD ("Z+1 /RESTORE CHAR
294 00312 5703 JMP I LETTER
295
296 00313 0000 DIGIT, 0 /LOOK FOR DIGIT
297 00314 1367 TAD (-"0
298 00315 7100 CLL
299 00316 1366 TAD ("0-"9-1 /(DECIMAL)
300 00317 7420 SNL
301 00320 2313 ISZ DIGIT
302 00321 1365 TAD ("9+1 /RESTORE DIGIT TO CHARACTER FORM
303 00322 5713 JMP I DIGIT /AND RETURN WITH IT IN AC
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 8
FILE # 1
304
305
306
307 /SCAN PAST EXTRA LETTERS OR DIGITS
308
309 00323 0000 SCAN, 0
310 00324 4272 JMS ALPHA
311 00325 5330 JMP NOPE
312 00326 7200 CLA
313 00327 5324 JMP SCAN+1
314 00330 7200 NOPE, CLA
315 00331 4265 JMS BACKC
316 00332 5723 JMP I SCAN
317
318 /SCAN PAST SPACES; GIVE ERROR IF NO SPACES FOUND UNLESS AC=-1
319
320 00333 0000 SPACE, 0
321 00334 3005 * DCA FLAG /SET AC=-1 TO PREVENT ERROR ON NO SPACES FOUND
322 00335 3006 * DCA SPKNT /INITIALIZE SPACE COUNTER
323 00336 7410 SKP /JUMP INTO LOOP
324 00337 2006 * GOTSP, ISZ SPKNT
325 00340 4412 * JMS I [GETC /GET NEXT CHAR
326 00341 1013 * TAD [-240
327 00342 7650 SNA CLA /IS IT A SPACE?
328 00343 5337 JMP GOTSP /YES, COUNT IT
329 00344 4265 JMS BACKC /NO, PUT IT BACK
330 00345 2005 * ISZ FLAG /CHECK FLAG
331 00346 7410 SKP /USER DIDN'T SPECIFY FLAG
332 00347 5733 JMP I SPACE /-0 MEANT DON'T CHECK IF FOUND SPACE
333 00350 1006 * TAD SPKNT /HOW MANY SPACES DID WE FIND?
334 00351 7640 SZA CLA
335 00352 5733 JMP I SPACE /SOME. OK
336 00353 5221 JMP SYNTAX /NONE. TSK. TSK.
------
00365 0272
00366 7766
00367 7520
00370 0333
00371 7746
00372 7477
00373 2532
00374 2144
00375 6202
00376 7777
00377 7726
337 0400 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 9
FILE # 1
338
339
340
341 00400 0000 ERROR, 0
342 00401 6201 CDF 0
343 00402 7332 AC2K /RELOC!
344 00403 1600 TAD I ERROR
345 00404 3206 DCA .+2
346 00405 4217 JMS PRINT
347 00406 0000 0
348 00407 1020 * GOAWAY, TAD ESCBIT
349 00410 7640 SZA CLA
350 00411 5215 JMP GOEXIT /LINE ENDED WITH ESCAPE
351 00412 1400 * TAD I [READ /WAS 'READ' EVER CALLED?
352 00413 7640 SZA CLA
353 00414 5407 * JMP I [START /YES, GET A NEW LINE
354 00415 4414 * GOEXIT, JMS I [TYPE
355 00416 5415 * JMP I [7605 /NO, WE MUST'VE BEEN CHAINED TO, RECALL KBM
356
357 00417 0000 PRINT, 0
358 00420 1617 TAD I PRINT
359 00421 3236 DCA DPRINT
360 00422 6211 PRINTL, CDF 10
361 00423 1636 TAD I DPRINT
362 00424 7002 BSW
363 00425 4237 JMS PRIN
364 00426 6211 CDF 10
365 00427 1636 TAD I DPRINT
366 00430 4237 JMS PRIN
367 00431 2236 ISZ DPRINT
368 00432 5222 JMP PRINTL
369 00433 4416 * LV, JMS I [CRLF
370 00434 2217 ISZ PRINT
371 00435 5617 JMP I PRINT
372 00436 0000 DPRINT, 0
373
374 00437 0000 PRIN, 0
375 00440 6201 CDF 0
376 00441 0011 * AND [77
377 00442 7450 SNA
378 00443 5233 JMP LV
379 00444 1017 * TAD [240
380 00445 0011 * AND [77
381 00446 1017 * TAD [240
382 00447 4251 JMS TYPIT
383 00450 5637 JMP I PRIN
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 10
FILE # 1
384
385
386
387 00451 0000 TYPIT, 0
388 00452 3004 * DCA T3
389 00453 6031 KSF
390 00454 5270 JMP NOKBD
391 00455 6036 GEGEKB, KRB
392 00456 0020 * AND [177
393 00457 1377 TAD (-3
394 00460 7450 SNA
395 00461 5273 JMP CTRLC
396 00462 1376 TAD (203-217 /^O
397 00463 7450 SNA
398 00464 5300 JMP CTRLO
399 00465 1375 TAD (217-223 /^S?
400 00466 7650 SNA CLA
401 00467 5310 JMP CTRLS
402 00470 1004 * NOKBD, TAD T3
403 00471 4414 * JMS I [TYPE
404 00472 5651 JMP I TYPIT
405
406 00473 1021 * CTRLC, TAD ["^
407 00474 4414 * JMS I [TYPE
408 00475 1374 TAD ("C
409 00476 4414 * JMS I [TYPE /ECHO "^C"
410 00477 5422 * JMP I [7600 /THEN GO AWAY
411
412 00500 1021 * CTRLO, TAD ["^
413 00501 4414 * JMS I [TYPE
414 00502 1373 TAD ("O
415 00503 4414 * JMS I [TYPE
416 00504 4416 * JMS I [CRLF
417 00505 7240 STA
418 00506 3022 * DCA CTOFLG /STOP ECHOING
419 00507 5270 JMP NOKBD
420
421 00510 6031 CTRLS, KSF /WAIT FOR NEXT
422 00511 5310 JMP CTRLS
423 00512 5255 JMP GEGEKB
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 11
FILE # 1
424
425
426
427 00513 2020 * BATERR, ISZ ESCBIT /SIGNAL END
428 00514 4200 JMS ERROR
429 00515 0341 EBERR
430 00516 4200 NONEX, JMS ERROR
431 00517 0024 EDVNEX
432 00520 4200 SYSERR, JMS ERROR
433 00521 0044 EIOSYS
434 00522 4200 BADKBM, JMS ERROR
435 00523 0073 EOLDVE
436 00524 4200 REASEM, JMS ERROR
437 00525 0276 ERKL8E
438 00526 4200 ZERERR, JMS ERROR
439 00527 0376 EZERO
440
441 00530 4217 HELP, JMS PRINT
442 00531 2610 MHELP1
443 00532 4217 JMS PRINT
444 00533 2625 MHELP2
445 00534 4217 JMS PRINT
446 00535 2631 MHELP3
447 00536 5407 * JMP I [START
448 00537 4217 VERSION,JMS PRINT
449 00540 2600 MVER
450 00541 5407 * JMP I [START
451
452 00542 0000 VERTST, 0 /TEST FOR OLD VERSION NUMBER
453 00543 1742 TAD I VERTST /"X IS ARG TO VERTST
454 00544 0011 * AND [77 /ONLY 6 BIT
455 00545 7041 CIA
456 00546 1030 * TAD VNO /THIS HANDLERS VESION NUMBER
457 00547 7710 SPA CLA /THIS AND NEWER HANDLERS ALLOWED
458 00550 4200 OLDERR, JMS ERROR
459 00551 0216 EOBSHD
460 00552 5742 JMP I VERTST /FALL THRU ARG
------
00573 0317
00574 0303
00575 7774
00576 7764
00577 7775
461 0600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 12
FILE # 1
462
463
464
465 00600 0000 SYSOS8, 0
466 00601 1032 * TAD NO /REVERSE MEANING OF 'NO'
467 00602 7650 SNA CLA
468 00603 7001 IAC
469 00604 3032 * DCA NO
470 00605 4207 JMS SYS78
471 00606 5600 JMP I SYSOS8
472
473 00607 0000 SYS78, 0
474 00610 1377 TAD (OS78BT
475 00611 4423 * JMS I [SET200
476 00612 1376 TAD (OS78BT&177+200
477 00613 4424 * JMS I [RDAUX
478 00614 0000 0
479 00615 4423 * JMS I [SET200
480 00616 4425 * JMS I [WRAUX
481 00617 1375 TAD (56
482 00620 4424 * JMS I [RDAUX /THERE'S A 2ND COPY
483 00621 0011 11 /IN BLOCK 11 LOCATION 56
484 00622 4423 * JMS I [SET200
485 00623 4425 * JMS I [WRAUX
486 00624 5607 JMP I SYS78
487
488 00625 0300 INIMSG, "@;"I;"N;"I;"T;0
00626 0311
00627 0316
00630 0311
00631 0324
00632 0000
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 13
FILE # 1
489
490
491
492 00633 0000 SYSINI, 0
493 00634 4412 * JMS I [GETC
494 00635 7650 SNA CLA
495 00636 5260 JMP DEFINI /ASSUME @INIT
496 00637 1032 * TAD NO
497 00640 7640 SZA CLA
498 00641 5426 * JMP I [SYNTAX /SET SYS NO INIT CMD
499 00642 4427 * JMS I [BACKC
500 00643 1003 * TAD LINPTR
501 00644 3257 DCA SAVLP
502 00645 1374 TAD (-6 /ALLOW A MAXIMUM OF 5 CHARS
503 00646 3256 DCA SAVKN
504 00647 4412 * SAVLUP, JMS I [GETC
505 00650 7650 SNA CLA
506 00651 5262 JMP DEFDO
507 00652 2256 ISZ SAVKN
508 00653 5247 JMP SAVLUP
509 00654 4406 * JMS I [ERROR
510 00655 0056 EICOBG
511
512 00656 0000 SAVKN, 0
513 00657 0000 SAVLP, 0
514
515 00660 1373 DEFINI, TAD (INIMSG
516 00661 3257 DCA SAVLP
517 00662 1011 * DEFDO, TAD [77
518 00663 4424 * JMS I [RDAUX
519 00664 0000 0
520 00665 1032 * TAD NO
521 00666 7640 SZA CLA
522 00667 1372 TAD (KMNTRY-KMINIT
523 00670 1371 TAD (KMINIT
524 00671 3440 * DCA I BTSTRP
525 00672 4425 * JMS I [WRAUX
526 00673 1032 * TAD NO
527 00674 7640 SZA CLA
528 00675 5633 JMP I SYSINI
529 00676 7340 ACM1
530 00677 4424 * JMS I [RDAUX
531 00700 0011 11
532 00701 7240 STA
533 00702 1257 TAD SAVLP
534 00703 3001 * DCA XR2
535 00704 1040 * TAD BTSTRP
536 00705 3002 * DCA XR3
537 00706 1370 TAD (-5
538 00707 3256 DCA SAVKN
539 00710 1401 * MOVL, TAD I XR2
540 00711 3402 * DCA I XR3
541 00712 2256 ISZ SAVKN
542 00713 5310 JMP MOVL
543 00714 4425 * JMS I [WRAUX
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 13-1
FILE # 1
544 00715 5633 JMP I SYSINI
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 14
FILE # 1
545
546
547
548 00716 0000 RDAUX, 0 /READ 2 PAGES INTO AUXBUF
549 00717 3040 * DCA BTSTRP /ADRESS TO BE MODIFIED
550 00720 1040 * TAD BTSTRP
551 00721 0022 * AND [7600
552 00722 7650 SNA CLA
553 00723 1767 TAD I (7612 /CHECK FOR 2-PAGE SYS
554 00724 1366 TAD (-3
555 00725 7650 SNA CLA
556 00726 1365 TAD (66 /YES; MAYBE WE WANT BLK 66
557 00727 3340 DCA AUXBLK
558 00730 1716 TAD I RDAUX /NOW GET WANTED BLK
559 00731 2316 ISZ RDAUX
560 00732 7450 SNA
561 00733 1340 TAD AUXBLK /WANTED BLK 0, MAYBE GETS 66
562 00734 3340 DCA AUXBLK
563 00735 4430 * JMS I [7607
564 00736 0200 200
565 00737 6600 AUXBUF
566 00740 0000 AUXBLK, 0
567 00741 5431 * JMP I [SYSERR
568 00742 1337 TAD AUXBLK-1
569 00743 1040 * TAD BTSTRP
570 00744 3040 * DCA BTSTRP /POINTS TO DESIRED LOC
571 00745 5716 JMP I RDAUX
572
573 00746 0000 WRAUX, 0
574 00747 1040 * TAD BTSTRP
575 00750 7650 SNA CLA
576 00751 5746 JMP I WRAUX /ONLY WRITE ONCE
577 00752 1340 TAD AUXBLK
578 00753 3357 DCA .+4
579 00754 4430 * JMS I [7607
580 00755 4200 4200
581 00756 6600 AUXBUF
582 00757 0000 0
583 00760 5431 * JMP I [SYSERR
584 00761 3040 * DCA BTSTRP /SET WRITTEN FLAG
585 00762 5746 JMP I WRAUX
586
------
00765 0066
00766 7775
00767 7612
00770 7773
00771 1077
00772 7301
00773 0625
00774 7772
00775 0056
00776 0371
00777 7771
587 1000 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 15
FILE # 1
588
589
590
591 0000 FIELD 0
592 1400 *1400
593
594
595 01400 0000 TTAROW, 0 /V3D
596 01401 4777 JMS I (TTYTST
597 01402 7326 AC2
598 01403 4432 * JMS I [SRCH
599 01404 0300 300;30;6203
01405 0030
01406 6203
600 01407 5433 * JMP I [REASEM
601 01410 1000 * TAD TEMP
602 01411 0020 * AND [177
603 01412 1376 TAD (5200
604 01413 3001 * DCA T
605 01414 7301 AC1
606 01415 4432 * JMS I [SRCH
607 01416 0340 340;20;32
01417 0020
01420 0032
608 01421 5433 * JMP I [REASEM
609 01422 1000 * TAD TEMP
610 01423 0020 * AND [177
611 01424 1376 TAD (5200
612 01425 3004 * DCA T3
613 01426 1375 TAD (13
614 01427 1000 * TAD TEMP
615 01430 3000 * DCA TEMP
616 01431 1032 * TAD NO
617 01432 7650 SNA CLA
618 01433 5237 JMP YESARO /YES
619 01434 1004 * TAD T3
620 01435 3400 * NOAROW, DCA I TEMP
621 01436 5600 JMP I TTAROW
622 01437 1001 * YESARO, TAD T
623 01440 5235 JMP NOAROW
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 16
FILE # 1
624
625
626
627 01441 0000 GENBLK, 0 /V3D
628 01442 4774 JMS I (GENCMN
629 01443 1037 * TAD NUM2
630 01444 3264 DCA BLOK /GET BLOCK NUMBER
631 01445 1373 TAD (LOC
632 01446 4434 * JMS I [KEYSRCH
633 01447 5426 * JMP I [SYNTAX
634 01450 4774 JMS I (GENCMN /GET LOCATION
635 01451 1035 * TAD [-400
636 01452 7100 CLL
637 01453 1037 * TAD NUM2
638 01454 7630 SZL CLA
639 01455 5436 * JMP I [NUMBIG
640 01456 1037 * TAD NUM2
641 01457 1263 TAD PAUXBUF
642 01460 3037 * DCA NUM2
643 01461 4410 * JMS I ENTRY /READ BLOCK
644 01462 0200 200
645 01463 6600 PAUXBUF,AUXBUF
646 01464 0000 BLOK, 0
647 01465 5431 * JMP I [SYSERR
648 01466 1000 * TAD TEMP
649 01467 7650 SNA CLA
650 01470 4772 JMS I (ODT
651 01471 4437 * JMS I [ONUM
652 01472 3011 * DCA NUM
653 01473 7201 CLA IAC
654 01474 3014 * DCA DEVNUM /FAKE OUT - PREVENTS RE-WRITING USED HANDLER
655 01475 1033 * TAD FLG
656 01476 7640 SZA CLA
657 01477 5641 JMP I GENBLK
658 01500 4412 * JMS I [GETC
659 01501 7640 SZA CLA
660 01502 5426 * JMP I [SYNTAX
661 01503 1011 * TAD NUM
662 01504 3437 * DCA I NUM2 /SET NEW VALUE
663 01505 1264 TAD BLOK
664 01506 3312 DCA BLOK2
665 01507 4410 * JMS I ENTRY
666 01510 4200 4200
667 01511 6600 AUXBUF
668 01512 0000 BLOK2, 0
669 01513 5431 * JMP I [SYSERR
670 01514 5641 JMP I GENBLK
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 17
FILE # 1
671
672
673
674 01515 0000 TTGAG, 0
675 01516 1371 TAD (33
676 01517 4770 JMS I (TYPIT
677 01520 1367 TAD (110
678 01521 4770 JMS I (TYPIT
679 01522 1371 TAD (33
680 01523 4770 JMS I (TYPIT
681 01524 1366 TAD (112
682 01525 4770 JMS I (TYPIT
683 01526 1040 * TAD [-10
684 01527 3000 * DCA TEMP
685 01530 1365 TAD (12
686 01531 4770 JMS I (TYPIT
687 01532 2000 * ISZ TEMP
688 01533 5330 JMP .-3
689 01534 4441 * JMS I [PRINT
690 01535 2634 MGAG1
691 01536 4441 * JMS I [PRINT
692 01537 2673 MGAG2
693 01540 4441 * JMS I [PRINT
694 01541 2716 MGAG3
695 01542 4441 * JMS I [PRINT
696 01543 2746 MGAG4
697 01544 4441 * JMS I [PRINT
698 01545 2771 MGAG5
699 01546 4441 * JMS I [PRINT
700 01547 3021 MGAG6
701 01550 4441 * JMS I [PRINT
702 01551 3042 MGAG7
703 01552 5715 JMP I TTGAG
------
01565 0012
01566 0112
01567 0110
01570 0451
01571 0033
01572 4513
01573 4306
01574 4432
01575 0013
01576 5200
01577 2542
704 1600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 18
FILE # 1
705
706
707
708 01600 0000 BRANCH, 0
709 01601 3001 * DCA T
710 01602 7340 ACM1
711 01603 1600 TAD I BRANCH
712 01604 3226 DCA DBRANC
713 01605 2200 ISZ BRANCH
714 01606 6211 CDF 10
715 01607 2226 BR2, ISZ DBRANC
716 01610 1626 TAD I DBRANC
717 01611 2226 ISZ DBRANC
718 01612 7450 SNA
719 01613 5223 JMP NOTFND
720 01614 1001 * TAD T
721 01615 7640 SZA CLA
722 01616 5207 JMP BR2
723 01617 1626 TAD I DBRANC
724 01620 3001 * DCA T
725 01621 6201 CDF 0
726 01622 5401 * JMP I T /FOUND ITEM IN COLUMN 1, JUMP TO ADDRESS IN COL 2
727 01623 1001 * NOTFND, TAD T
728 01624 6201 CDF 0
729 01625 5600 JMP I BRANCH /IF NOT FOUND IN COL 1, RETURN WITH AC INTACT
730 01626 0000 DBRANC, 0
731
732
733 01627 0000 LP78, 0 /ALL DO THE SAME , BUT USE OTHER LISTS
734 01630 7300 AC0 /THE AC TELLS WHICH LIST, EACH LIST 8 LONG
735 01631 4253 JMS LPCHNG
736 01632 5627 JMP I LP78
737 01633 0000 LP8A, 0
738 01634 7301 AC1
739 01635 4253 JMS LPCHNG
740 01636 5633 JMP I LP8A
741 01637 0000 LPLX, 0
742 01640 7326 AC2
743 01641 4253 JMS LPCHNG
744 01642 5637 JMP I LPLX
745 01643 0000 LPSLU2, 0
746 01644 7325 AC3
747 01645 4253 JMS LPCHNG
748 01646 5643 JMP I LPSLU2
749 01647 0000 LPSLU3, 0
750 01650 7307 AC4
751 01651 4253 JMS LPCHNG
752 01652 5647 JMP I LPSLU3
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 19
FILE # 1
753
754
755
756 01653 0000 LPCHNG, 0 /FOR LPSS LINE-PRINTER HANDLER
757 01654 7106 CLL RTL
758 01655 7004 RAL
759 01656 1377 TAD (LPIOTL-1
760 01657 3002 * DCA XR3 /POINT TO START OF CORRECT LIST
761 01660 4776 JMS I (LPTTST
762 01661 7326 AC2
763 01662 4432 * JMS I [SRCH
764 01663 0007 7;100;7640
01664 0100
01665 7640
765 01666 5775 JMP I (OLDERR
766 01667 4343 JMS LPGET
767 01670 3400 * DCA I TEMP
768 01671 7325 AC3
769 01672 4432 * JMS I [SRCH
770 01673 0100 100;100;7700
01674 0100
01675 7700
771 01676 5775 JMP I (OLDERR
772 01677 1400 * TAD I TEMP
773 01700 0042 * AND [7000
774 01701 1001 * TAD [-7000
775 01702 7640 SZA CLA /NOP OR CMA
776 01703 5775 JMP I (OLDERR
777 01704 4343 JMS LPGET
778 01705 3400 * DCA I TEMP
779 01706 2000 * ISZ TEMP
780 01707 1400 * TAD I TEMP
781 01710 0042 * AND [7000
782 01711 1374 TAD (-6000
783 01712 7640 SZA CLA
784 01713 5775 JMP I (OLDERR
785 01714 4343 JMS LPGET
786 01715 3400 * DCA I TEMP
787 01716 2000 * ISZ TEMP
788 01717 4343 JMS LPGET
789 01720 3400 * DCA I TEMP
790 01721 7326 AC2
791 01722 4432 * JMS I [SRCH
792 01723 0100 100;100;6203
01724 0100
01725 6203
793 01726 5775 JMP I (OLDERR
794 01727 4343 JMS LPGET
795 01730 3400 * DCA I TEMP
796 01731 7301 AC1
797 01732 4432 * JMS I [SRCH
798 01733 0100 100;100;6201
01734 0100
01735 6201
799 01736 5775 JMP I (OLDERR
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 19-1
FILE # 1
800 01737 4343 JMS LPGET
801 01740 3400 * DCA I TEMP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 20
FILE # 1
802
803
804
805 01741 4773 JMS I (EDIBAT /CHANGE EDIT FOR VIEW AND BATCH
806 01742 5653 JMP I LPCHNG
807
808 01743 0000 LPGET, 0 /GET ITEM FROM LIST IN FIELD 1
809 01744 6211 CDF 10
810 01745 1402 * TAD I XR3
811 01746 6201 CDF 0
812 01747 5743 JMP I LPGET
------
01773 5210
01774 2000
01775 0550
01776 3471
01777 3357
813 2000 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 21
FILE # 1
814
815
816
817 /READ A LINE INTO OS/8 LINE BUFFER
818
819 02000 0000 READ, 0
820 02001 7650 SNA CLA
821 02002 1377 RD1, TAD ("#
822 02003 4317 JMS TYPE
823 02004 3022 * DCA CTOFLG /ALLOW ECHOING
824 02005 1001 * TAD [LINBUF
825 02006 3003 * DCA LINPTR
826 02007 3020 * GT, DCA ESCBIT
827 02010 4776 JMS I (GET
828 02011 4404 * LOOK, JMS I [BRANCH
829 02012 3071 BRIN
830 02013 3000 * DCA TEMP /NONE OF THESE
831 02014 1003 * TAD LINPTR
832 02015 1375 TAD (-LINBUF-377
833 02016 7650 SNA CLA /AT END OF LINE BUFFER?
834 02017 5207 JMP GT /YES, DON'T ACCEPT CHAR
835 02020 4233 JMS PRNT /ECHO IT
836 02021 1000 * TAD TEMP /INSERT IN BUFFER
837 02022 3403 * DCA I LINPTR
838 02023 2003 * ISZ LINPTR /BUMP POINTER
839 02024 5207 JMP GT /NEXT
840
841 02025 1021 * CTRLU, TAD ["^
842 02026 4317 JMS TYPE
843 02027 1374 TAD ("U
844 02030 4317 JMS TYPE /ECHO "^U" <CR><LF>
845 02031 4350 BOL, JMS CRLF
846 02032 5202 JMP RD1
847
848 02033 0000 PRNT, 0
849 02034 2274 ISZ RBFLAG
850 02035 5240 JMP .+3
851 02036 1043 * TAD ["\
852 02037 4317 JMS TYPE
853 02040 3274 DCA RBFLAG
854 02041 1000 * TAD TEMP
855 02042 4317 JMS TYPE
856 02043 5633 JMP I PRNT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 22
FILE # 1
857
858
859
860 0210 BS=210
861
862 02044 1003 * RUBOUT, TAD LINPTR
863 02045 1042 * TAD [-LINBUF
864 02046 7450 SNA
865 02047 5231 JMP BOL /AT BEGIN OF LINE
866 02050 1373 TAD (LINBUF-1
867 02051 3003 * DCA LINPTR /MOVE POINTER BACK ONE
868 02052 1036 * TAD SCOP
869 02053 7640 SZA CLA
870 02054 5265 JMP RUBBS
871 02055 1043 * TAD ["\
872 02056 2274 ISZ RBFLAG
873 02057 4317 JMS TYPE
874 02060 7340 ACM1
875 02061 3274 DCA RBFLAG
876 02062 1403 * TAD I LINPTR
877 02063 4317 JMS TYPE
878 02064 5207 JMP GT
879
880 02065 1372 RUBBS, TAD (BS
881 02066 4317 JMS TYPE
882 02067 1017 * TAD [240
883 02070 4317 JMS TYPE
884 02071 1372 TAD (BS
885 02072 4317 JMS TYPE
886 02073 5207 JMP GT
887 02074 0000 RBFLAG, 0
888
889 02075 1371 ESCAPE, TAD ("$ /ECHO ESCAPE AS DOLLAR SIGN
890 02076 3000 * DCA TEMP
891 02077 4233 JMS PRNT
892 02100 2020 * ISZ ESCBIT /NOTE ESCAPE
893 02101 3403 * CR, DCA I LINPTR /INSERT 0 AT END
894 02102 4350 JMS CRLF
895 02103 5600 JMP I READ /RETURN, WE GOT LINE
896
897 02104 3403 * LF, DCA I LINPTR /TEMPORARILY INSERT A 0 SENTINEL
898 02105 1373 TAD (LINBUF-1
899 02106 3000 * DCA XR1
900 02107 4350 JMS CRLF
901 02110 1377 TAD ("#
902 02111 4317 JMS TYPE
903 02112 1400 * LFLP, TAD I XR1
904 02113 7450 SNA
905 02114 5207 JMP GT /FINISHED, GET SOME MORE CHARS
906 02115 4317 JMS TYPE /ECHO CURRENT CHARS
907 02116 5312 JMP LFLP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 23
FILE # 1
908
909
910
911 02117 0000 TYPE, 0
912 02120 3343 DCA TYPEM
913 02121 6046 TLS
914 02122 4770 JMS I (DELAYY
915 02123 3321 DCA .-2
916 02124 3322 DCA .-2
917 02125 1344 TAD TYPEB /UNDER BATCH?
918 02126 7640 SZA CLA
919 02127 5344 JMP TYPEB /YES PRINT INDIRECT
920 02130 1022 * TAD CTOFLG
921 02131 7640 SZA CLA
922 02132 5717 JMP I TYPE /NO ECHOING
923 02133 1343 TAD TYPEM
924 02134 7450 SNA
925 02135 5717 JMP I TYPE
926 02136 6041 TSF
927 02137 5336 JMP .-1
928 02140 6046 TLS
929 02141 7200 CLA
930 02142 5717 JMP I TYPE
931 02143 0000 TYPEM, 0
932 02144 0000 TYPEB, 0 /OR CIF BATCH FIELD
933 02145 1343 TAD TYPEM
934 02146 4767 JMS I (BATOUT
935 02147 5717 JMP I TYPE
936
937 02150 0000 CRLF, 0
938 02151 1044 * TAD [215
939 02152 3000 * DCA TEMP
940 02153 4233 JMS PRNT
941 02154 1045 * TAD [212
942 02155 4317 JMS TYPE
943 02156 5750 JMP I CRLF
944
------
02167 7400
02170 2360
02171 0244
02172 0210
02173 0777
02174 0325
02175 6401
02176 2520
02177 0243
945 2200 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 24
FILE # 1
946
947
948
949 /GET A DECIMAL NUMBER, RETURN IT IN AC
950
951 02200 0000 NUMBER, 0
952 02201 3011 * DCA NUM
953 02202 7201 CLA IAC
954 02203 3033 * DCA FLG
955 02204 4412 * NM1, JMS I [GETC
956 02205 4446 * JMS I [DIGIT
957 02206 5227 JMP EON
958 02207 1377 TAD (-"0 /CONVERT TO DIGIT
959 02210 3013 * DCA T4
960 02211 3033 * DCA FLG /NOTE PASSAGE OF A DIGIT
961 02212 1011 * TAD NUM
962 02213 0042 * AND [7000
963 02214 7640 SZA CLA
964 02215 5436 * JMP I [NUMBIG
965 02216 1011 * TAD NUM
966 02217 7106 CLL RTL
967 02220 1011 * TAD NUM
968 02221 7104 CLL RAL
969 02222 1013 * TAD T4
970 02223 7430 SZL
971 02224 5436 * JMP I [NUMBIG
972 02225 3011 * DCA NUM
973 02226 5204 JMP NM1
974
975 02227 7200 EON, CLA
976 02230 4427 * JMS I [BACKC
977 02231 7240 STA
978 02232 4402 * JMS I [SPACE
979 02233 1033 * TAD FLG
980 02234 7440 SZA
981 02235 3011 * DCA NUM /IF NO DIGITS, RETURN A 1
982 02236 1011 * TAD NUM
983 02237 5600 JMP I NUMBER
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 25
FILE # 1
984
985
986
987 / GETDEV
988
989 /PARSES OFF A DEVICE NAME (1-4 CHARS)
990 /DETERMINES IF IT EXISTS
991 /LOADS HANDLER INTO 7200-7577 IF NOT ALREADY IN CORE
992 /SETS ENTRY POINT ADDRESS AT 'ENTRY'
993 /SETS DEVICE NUMBER AT 'DEVNUM'
994 /SETS DEVICE CONTROL WORD AT 'DCW'
995 /SETS 'DEVTYP'
996
997 02240 0000 GETDEV, 0
998 02241 4337 JMS COMBIN
999 02242 3247 DCA WD1
1000 02243 3250 INQ, DCA WD2
1001 02244 6212 CIF 10
1002 02245 4417 * JMS I USR
1003 02246 0012 12 /INQUIRE
1004 02247 0000 WD1, 0 /DEVICE NAME
1005 02250 0000 WD2, 0 /GETS DEVICE NUMBER
1006 02251 0000 WD3, 0 /GETS ENTRY POINT
1007 02252 5447 * JMP I [NONEX /DEVICE DOESN'T EXIST
1008 02253 1251 TAD WD3
1009 02254 7440 SZA /IS HANDLER ALREADY IN CORE?
1010 02255 5277 JMP INCORE /YES
1011 02256 1247 TAD WD1
1012 02257 3266 DCA DW1
1013 02260 1376 TAD (HANBUF+1 /ALLOW TWO PAGE HANDLER
1014 02261 3270 DCA DW3
1015 02262 3267 DCA DW2
1016 02263 6212 CIF 10
1017 02264 4417 * JMS I USR
1018 02265 0001 1 /FETCH
1019 02266 0000 DW1, 0 /DEVICE NAME
1020 02267 0000 DW2, 0 /GETS DEVICE NUMBER
1021 02270 0000 DW3, 0 /GETS ENTRY POINT
1022 02271 5447 * JMP I [NONEX /DOESN'T EXIST
1023 02272 1267 TAD DW2
1024 02273 3014 * DCA DEVNUM
1025 02274 1270 TAD DW3
1026 02275 3010 * DCA ENTRY
1027 02276 5302 JMP GETYP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 26
FILE # 1
1028
1029
1030
1031 02277 3010 * INCORE, DCA ENTRY
1032 02300 1250 TAD WD2
1033 02301 3014 * DCA DEVNUM
1034 02302 1014 * GETYP, TAD DEVNUM
1035 02303 1375 TAD (7757
1036 02304 3016 * DCA DCWPTR /POINT INTO DEVICE CONTROL WGRD TABLE
1037 02305 6211 CDF 10
1038 02306 1416 * TAD I DCWPTR /GET DCW
1039 02307 3015 * DCA DCW
1040 02310 1015 * TAD DCW
1041 02311 7012 RTR
1042 02312 7010 RAR
1043 02313 0011 * AND [77
1044 02314 3007 * DCA DEVTYP
1045 02315 7240 STA
1046 02316 1774 TAD I (37 /GET ADDRESS OF DHIT
1047 02317 3024 * DCA DHIT
1048 02320 1024 * TAD DHIT
1049 02321 1014 * TAD DEVNUM
1050 02322 3025 * DCA DHI
1051 02323 1425 * TAD I DHI
1052 02324 6201 CDF 0
1053 02325 3025 * DCA DHI
1054 02326 1025 * TAD DHI
1055 02327 7006 RTL
1056 02330 7006 RTL
1057 02331 7006 RTL
1058 02332 0050 * AND [17
1059 02333 7440 SZA
1060 02334 1373 TAD (15
1061 02335 3026 * DCA DBLK
1062 02336 5640 JMP I GETDEV
1063
1064 02337 0000 COMBIN, 0
1065 02340 4451 * JMS I [GETTWO
1066 02341 3247 DCA WD1
1067 02342 4451 * JMS I [GETTWO
1068 02343 3250 DCA WD2
1069 02344 1247 TAD WD1
1070 02345 1250 TAD WD2
1071 02346 3247 DCA WD1 /COMBINE TWO WORDS INTO 1 (IN WD1)
1072 02347 1250 TAD WD2
1073 02350 7650 SNA CLA
1074 02351 5356 JMP COMONE
1075 02352 1247 TAD WD1 /OS/8 KLUDGE FOR UNIQUENESS
1076 02353 7104 CLL RAL
1077 02354 7130 STL RAR /FORCE BIT 0 ON IF 2ND WORD WAS NON-ZERO
1078 02355 3247 DCA WD1
1079 02356 1247 COMONE, TAD WD1
1080 02357 5737 JMP I COMBIN
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 27
FILE # 1
1081
1082
1083
1084 02360 0000 DELAYY, 0
1085 02361 1040 * TAD [-10
1086 02362 3371 DCA OUTER
1087 02363 2370 ISZ ZER
1088 02364 5363 JMP .-1
1089 02365 2371 ISZ OUTER
1090 02366 5363 JMP .-3
1091 02367 5760 JMP I DELAYY
1092 02370 0000 ZER, 0
1093 02371 7770 OUTER, -10
------
02373 0015
02374 0037
02375 7757
02376 7201
02377 7520
1094 2400 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 28
FILE # 1
1095
1096
1097
1098 02400 0000 TTPAUS, 0
1099 02401 4342 JMS TTYTST
1100 02402 1377 TAD (11
1101 02403 4432 * JMS I [SRCH
1102 02404 0216 216;1;2200 /CHECK 'ISZ TTYPCH'
02405 0001
02406 2200
1103 02407 5433 * JMP I [REASEM
1104 02410 1400 * TAD I TEMP
1105 02411 0376 AND (7007
1106 02412 1375 TAD (-6001 /CHECK 'PAUSL,KSF'
1107 02413 7640 SZA CLA
1108 02414 5433 * JMP I [REASEM
1109 02415 4432 * JMS I [SRCH
1110 02416 0326 326;1;5600 /CHECK 'JMP I TTYPCH'
02417 0001
02420 5600
1111 02421 5433 * JMP I [REASEM
1112 02422 1374 TAD (PSTBL
1113 02423 4773 JMS I (FIXUP
1114 02424 3011 * DCA NUM
1115 02425 4412 * JMS I [GETC
1116 02426 7650 SNA CLA
1117 02427 5255 JMP NOPA /NO PAUSE VALUE
1118 02430 1032 * TAD NO
1119 02431 7640 SZA CLA
1120 02432 5255 JMP NOPA /SET TTY NO PAUSE XX?
1121 02433 4427 * JMS I [BACKC
1122 02434 7333 AC6K
1123 02435 4452 * JMS I [NUMCHK
1124 02436 0106 EPAUSE
1125 02437 1011 * TAD NUM /SCALE CORRECTLY
1126 02440 7104 CLL RAL
1127 02441 1011 * TAD NUM
1128 02442 7106 CLL RTL
1129 02443 3011 * DCA NUM
1130 02444 7307 AC4
1131 02445 4432 * JMS I [SRCH
1132 02446 0330 330;20;11
02447 0020
02450 0011
1133 02451 5433 * JMP I [REASEM
1134 02452 1011 * TAD NUM
1135 02453 7041 CIA
1136 02454 3400 * DCA I TEMP
1137 02455 4772 NOPA, JMS I (BASLUK
1138 02456 5600 JMP I TTPAUS
1139 02457 1011 * TAD NUM
1140 02460 7041 CIA
1141 02461 3771 DCA I (AUXBUF+1
1142 02462 4425 * JMS I [WRAUX
1143 02463 5600 JMP I TTPAUS
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 29
FILE # 1
1144
1145
1146
1147 02464 0000 ONUM, 0
1148 02465 3011 * DCA NUM
1149 02466 7201 CLA IAC
1150 02467 3033 * DCA FLG
1151 02470 4412 * ONM1, JMS I [GETC
1152 02471 1370 TAD (-"0-10 /CONVERT TO DIGIT
1153 02472 7100 CLL
1154 02473 1053 * TAD [10
1155 02474 7420 SNL
1156 02475 5312 JMP OEON
1157 02476 3013 * DCA T4
1158 02477 3033 * DCA FLG
1159 02500 1011 * TAD NUM
1160 02501 0042 * AND [7000
1161 02502 7640 SZA CLA
1162 02503 5436 * JMP I [NUMBIG
1163 02504 1011 * TAD NUM
1164 02505 7106 CLL RTL
1165 02506 7004 RAL
1166 02507 1013 * TAD T4
1167 02510 3011 * DCA NUM
1168 02511 5270 JMP ONM1
1169 02512 7200 OEON, CLA
1170 02513 4427 * JMS I [BACKC
1171 02514 7240 STA
1172 02515 4402 * JMS I [SPACE
1173 02516 1011 * TAD NUM
1174 02517 5664 JMP I ONUM
1175
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 30
FILE # 1
1176
1177
1178
1179 02520 0000 GET, 0
1180 02521 1332 TAD GETB /UNDER BATCH?
1181 02522 7640 SZA CLA
1182 02523 5332 JMP GETB /YES GET MORE FROM BATCH STREAM
1183 02524 6031 KSF
1184 02525 5324 JMP .-1
1185 02526 6036 KRB
1186 02527 0020 * AND [177
1187 02530 1007 * TAD [200 /FORCE TO 8-BIT
1188 02531 5720 JMP I GET
1189 02532 0000 GETB, 0
1190 02533 4767 JMS I (BATIN
1191 02534 5766 JMP I (BATERR
1192 02535 1365 TAD (-212 /IGNORE LFDS
1193 02536 7450 SNA
1194 02537 5332 JMP GETB
1195 02540 1364 TAD (212
1196 02541 5720 JMP I GET
1197
1198 02542 0000 TTYTST, 0
1199 02543 4763 JMS I (DBLTST
1200 02544 4454 * JMS I [VERTST
1201 02545 0315 "M
1202 02546 5742 JMP I TTYTST
1203
------
02563 3723
02564 0212
02565 7566
02566 0513
02567 5400
02570 7510
02571 6601
02572 3123
02573 3020
02574 3223
02575 1777
02576 7007
02577 0011
1204 2600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 31
FILE # 1
1205
1206
1207
1208 02600 0000 TTHGHT, 0
1209 02601 1022 * TAD [7600
1210 02602 4331 JMS NUMCHK
1211 02603 0140 EBADHT
1212 02604 4777 JMS I (TTYTST
1213 02605 1376 TAD (12
1214 02606 4432 * JMS I [SRCH
1215 02607 0250 250;40;7600
02610 0040
02611 7600
1216 02612 5433 * JMP I [REASEM
1217 02613 1011 * TAD NUM
1218 02614 7041 CIA
1219 02615 3400 * DCA I TEMP
1220 02616 1400 * TAD I TEMP
1221 02617 2000 * ISZ TEMP
1222 02620 3400 * DCA I TEMP
1223 02621 4775 JMS I (BASLUK
1224 02622 5600 JMP I TTHGHT
1225 02623 1011 * TAD NUM
1226 02624 7041 CIA
1227 02625 3774 DCA I (AUXBUF
1228 02626 4425 * JMS I [WRAUX
1229 02627 5600 JMP I TTHGHT
1230
1231 02630 0000 LPHGHT, 0
1232 02631 1022 * TAD [7600
1233 02632 4331 JMS NUMCHK
1234 02633 0140 EBADHT
1235 02634 4773 JMS I (LPTTST
1236 02635 1011 * TAD NUM
1237 02636 7041 CIA
1238 02637 3772 DCA I (HANBUF+202
1239 02640 5630 JMP I LPHGHT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 32
FILE # 1
1240
1241
1242
1243 02641 0000 TTCODE, 0
1244 02642 1032 * TAD NO
1245 02643 7640 SZA CLA
1246 02644 5426 * JMP I [SYNTAX
1247 02645 4437 * JMS I [ONUM
1248 02646 7450 SNA
1249 02647 5426 * JMP I [SYNTAX
1250 02650 3035 * DCA NUCODE
1251 02651 1035 * TAD NUCODE
1252 02652 0055 * AND [7700
1253 02653 7640 SZA CLA
1254 02654 5436 * JMP I [NUMBIG
1255 02655 4456 * JMS I [TTYTST
1256 02656 1057 * TAD [HANBUF
1257 02657 3034 * DCA RR
1258 02660 4771 JMS I (GETIOT
1259 02661 5460 * JMP I [OLDERR
1260 02662 7041 CIA
1261 02663 3002 * DCA T2
1262 02664 4771 TTLP, JMS I (GETIOT
1263 02665 5460 * JMP I [OLDERR
1264 02666 7041 CIA
1265 02667 3004 * DCA T3
1266 02670 1004 * TAD T3
1267 02671 7041 CIA
1268 02672 1002 * TAD T2
1269 02673 7450 SNA
1270 02674 5264 JMP TTLP
1271 02675 7700 SMA CLA
1272 02676 5301 JMP .+3
1273 02677 1004 * TAD T3
1274 02700 3002 * DCA T2 /T2 CONTAINS NEG OF SMALLER IOT
1275 02701 1057 * TAD [HANBUF
1276 02702 3034 * DCA RR
1277 02703 4771 TTLP2, JMS I (GETIOT
1278 02704 5641 JMP I TTCODE
1279 02705 1002 * TAD T2
1280 02706 7640 SZA CLA
1281 02707 7201 CLA IAC
1282 02710 1035 * TAD NUCODE
1283 02711 7106 CLL RTL
1284 02712 7004 RAL
1285 02713 3004 * DCA T3
1286 02714 1434 * TAD I RR
1287 02715 0370 AND (7007
1288 02716 1004 * TAD T3
1289 02717 3434 * DCA I RR
1290 02720 5303 JMP TTLP2
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 33
FILE # 1
1291
1292
1293
1294 02721 0000 LPTAB, 0
1295 02722 1055 * TAD [7700
1296 02723 4331 JMS NUMCHK
1297 02724 0353 EBADTB
1298 02725 4773 JMS I (LPTTST
1299 02726 1011 * TAD NUM
1300 02727 3767 DCA I (HANBUF+203
1301 02730 5721 JMP I LPTAB
1302
1303 02731 0000 NUMCHK, 0 /CHECK FOR NUMERICAL ARG
1304 02732 3360 DCA NUMMSK
1305 02733 1731 TAD I NUMCHK
1306 02734 2331 ISZ NUMCHK
1307 02735 3356 DCA BADHIT+1 /ERROR MESSAGE
1308 02736 1032 * TAD NO
1309 02737 7640 SZA CLA
1310 02740 5426 * JMP I [SYNTAX /SET DEV NO NUMBER
1311 02741 4766 JMS I (OPTEQ /CHECK =
1312 02742 4461 * JMS I [NUMBER
1313 02743 7450 SNA
1314 02744 5462 * JMP I [ZERERR
1315 02745 3011 * DCA NUM
1316 02746 1033 * TAD FLG
1317 02747 7640 SZA CLA
1318 02750 4406 * NUMBIG, JMS I [ERROR /NO NUMBER
1319 02751 0010 ENUBIG
1320 02752 1011 * TAD NUM
1321 02753 0360 AND NUMMSK
1322 02754 7640 SZA CLA
1323 02755 4406 * BADHIT, JMS I [ERROR
1324 02756 0140 EBADHT /WILL BE REPLACED
1325 02757 5731 JMP I NUMCHK
1326 02760 0000 NUMMSK, 0
------
02766 4263
02767 7403
02770 7007
02771 4200
02772 7402
02773 3471
02774 6600
02775 3123
02776 0012
02777 2542
1327 3000 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 34
FILE # 1
1328
1329
1330
1331 03000 0000 SET200, 0 /DF IS SPECIALLY SET
1332 03001 7440 SZA
1333 03002 3040 * DCA BTSTRP /IF AC=0 USE ADRESS FROM RDAUX
1334 03003 1440 * TAD I BTSTRP
1335 03004 0377 AND (7577
1336 03005 3000 * DCA TEMP
1337 03006 1000 * TAD TEMP
1338 03007 1376 TAD (-HLT
1339 03010 7640 SZA CLA
1340 03011 5775 JMP I (BADKBM
1341 03012 1032 * TAD NO
1342 03013 7650 SNA CLA
1343 03014 1007 * TAD [200
1344 03015 1000 * TAD TEMP
1345 03016 3440 * DCA I BTSTRP
1346 03017 5600 JMP I SET200
1347
1348 03020 0000 FIXUP, 0
1349 03021 3245 DCA FIXPTR
1350 03022 6211 FIXLUP, CDF 10
1351 03023 1645 TAD I FIXPTR
1352 03024 6201 CDF 0
1353 03025 7450 SNA
1354 03026 5620 JMP I FIXUP
1355 03027 3246 DCA FIXLOC
1356 03030 2245 ISZ FIXPTR
1357 03031 1032 * TAD NO
1358 03032 7640 SZA CLA
1359 03033 2245 ISZ FIXPTR
1360 03034 6211 CDF 10
1361 03035 1645 TAD I FIXPTR
1362 03036 6201 CDF 0
1363 03037 3646 DCA I FIXLOC
1364 03040 1032 * TAD NO
1365 03041 7650 SNA CLA
1366 03042 2245 ISZ FIXPTR
1367 03043 2245 ISZ FIXPTR
1368 03044 5222 JMP FIXLUP
1369 03045 0000 FIXPTR, 0
1370 03046 0000 FIXLOC, 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 35
FILE # 1
1371
1372
1373
1374 / SCOPE BIT ON DISK:
1375 / BLOCK 0 REL 126 BIT 4
1376
1377 / SCOPE BIT IN MEMORY:
1378 / LOC 17726 BIT 4
1379
1380 03047 0000 TTSCOP, 0
1381 03050 4774 JMS I (TTYTST
1382 03051 4424 * JMS I [RDAUX
1383 03052 0011 11
1384 03053 1373 TAD (KBMTBL
1385 03054 4220 JMS FIXUP
1386 03055 4425 * JMS I [WRAUX
1387 03056 4424 * JMS I [RDAUX
1388 03057 0053 53
1389 03060 1372 TAD (CDTBL
1390 03061 4220 JMS FIXUP
1391 03062 4425 * JMS I [WRAUX
1392 03063 1032 * TAD NO /SET SCOPE BIT
1393 03064 7650 SNA CLA
1394 03065 7001 IAC
1395 03066 3036 * DCA SCOP
1396 03067 6211 CDF 10
1397 03070 1371 TAD (SCPBIT
1398 03071 4200 JMS SET200
1399 03072 6201 CDF 0
1400 03073 1370 TAD (SCPBIT&177
1401 03074 4424 * JMS I [RDAUX
1402 03075 0000 0
1403 03076 4200 JMS SET200
1404 03077 4425 * JMS I [WRAUX
1405 03100 1367 TAD (14
1406 03101 4432 * JMS I [SRCH
1407 03102 0150 150;20;-232
03103 0020
03104 7546
1408 03105 5460 * JMP I [OLDERR
1409 03106 1032 * TAD NO
1410 03107 7650 SNA CLA
1411 03110 1366 TAD (1261-1230 /TAD TTY240
1412 03111 1365 TAD (1230 /TAD TTY212
1413 03112 3400 * DCA I TEMP
1414 03113 2000 * ISZ TEMP
1415 03114 2000 * ISZ TEMP
1416 03115 1032 * TAD NO
1417 03116 7650 SNA CLA
1418 03117 1364 TAD (1335-SKP /TAD TTY10
1419 03120 1363 TAD (SKP
1420 03121 3400 * DCA I TEMP
1421 03122 5647 JMP I TTSCOP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 36
FILE # 1
1422
1423
1424
1425 03123 0000 BASLUK, 0
1426 03124 1362 TAD (BASNAM
1427 03125 4463 * JMS I [LOOKUP
1428 03126 5723 JMP I BASLUK
1429 03127 2323 ISZ BASLUK
1430 03130 1064 * TAD [7
1431 03131 3334 DCA BASBLK
1432 03132 7326 AC2
1433 03133 4424 * JMS I [RDAUX
1434 03134 0000 BASBLK, 0
1435 03135 1440 * TAD I BTSTRP
1436 03136 7650 SNA CLA
1437 03137 5723 JMP I BASLUK
1438 03140 4441 * OLDBAS, JMS I [PRINT
1439 03141 2321 EOLBAS+2000
1440 03142 5723 JMP I BASLUK
1441
1442 03143 0201 BASNAM, FILENAME BASIC.SV
03144 2311
03145 0300
03146 2326
1443
------
03162 3143
03163 7410
03164 1725
03165 1230
03166 0031
03167 0014
03170 0126
03171 7726
03172 3167
03173 3133
03174 2542
03175 0522
03176 0376
03177 7577
1444 3200 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 37
FILE # 1
1445
1446
1447
1448 03200 4402 * SET, JMS I [SPACE
1449 03201 3030 * DCA VNO /V3C
1450 03202 4465 * JMS I [GETDEV
1451 03203 4412 * JMS I [GETC
1452 03204 4404 * JMS I [BRANCH
1453 03205 3124 BRCOHY
1454 03206 5426 * JMP I [SYNTAX /NO : OR BLANK AFTER NAME
1455
1456 03207 7240 COLN, STA
1457 03210 4402 * JMS I [SPACE /IGNORE OPTIONAL SPACES
1458 03211 4412 * JMS I [GETC
1459 03212 7450 SNA
1460 03213 5426 * JMP I [SYNTAX
1461 03214 1066 * TAD [-"-
1462 03215 7650 SNA CLA
1463 03216 5326 JMP HYPH
1464 03217 4427 * JMS I [BACKC
1465 03220 6211 COLN2, CDF 10
1466 03221 1377 TAD (2331
1467 03222 3776 DCA I (NAM1+2000 /NAMS ARE RELOCATED
1468 03223 1375 TAD (2300 /SET TO SYS
1469 03224 3774 DCA I (NAM2+2000
1470 03225 7240 STA
1471 03226 1014 * TAD DEVNUM
1472 03227 7650 SNA CLA
1473 03230 5355 JMP SYSDV
1474 03231 1373 TAD (MAIN-1 /LOOK FOR DEVICE TYPE IN MAIN TABLE
1475 03232 3000 * MNLUP, DCA XR1
1476 03233 1400 * TAD I XR1
1477 03234 7540 SMA SZA
1478 03235 5350 JMP NOTYP /NOT FOUND
1479 03236 1007 * TAD DEVTYP
1480 03237 7650 SNA CLA
1481 03240 5244 JMP FNDTYP
1482 03241 7325 AC3 /POINT TO NEXT ENTRY
1483 03242 1000 * TAD XR1
1484 03243 5232 JMP MNLUP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 38
FILE # 1
1485
1486
1487
1488 03244 1400 * FNDTYP, TAD I XR1 /GET GENERIC NAME
1489 03245 3776 DCA I (NAM1+2000
1490 03246 1400 * TAD I XR1
1491 03247 3774 DCA I (NAM2+2000
1492 03250 3360 DCA AUXFLG
1493 03251 1400 * TAD I XR1 /GET PTR TO DEVICE TABLE
1494 03252 6201 INTO, CDF 0
1495 03253 3023 * DCA PTR
1496 03254 3032 * DCA NO
1497 03255 1003 * TAD LINPTR
1498 03256 3031 * DCA SAVPTR /SAVE SCAN POINTER
1499 03257 4451 * JMS I [GETTWO
1500 03260 1372 TAD (-'NO
1501 03261 7450 SNA /ARE NEXT TWO CHARS 'NO'?
1502 03262 5266 JMP SAWNO /YES
1503 03263 1371 TAD (<'NO>-<'KE> /OR KE IN?
1504 03264 7640 SZA CLA
1505 03265 5277 JMP SAWNBK
1506 03266 7201 SAWNO, CLA IAC
1507 03267 3032 * DCA NO
1508 03270 4403 * JMS I [SCAN
1509 03271 7240 STA
1510 03272 4402 * JMS I [SPACE
1511 03273 1003 * TAD LINPTR
1512 03274 3031 * DCA SAVPTR
1513 03275 5277 JMP SAWNBK
1514 03276 2023 * NOF, ISZ PTR
1515 03277 1031 * SAWNBK, TAD SAVPTR /NO
1516 03300 3003 * DCA LINPTR /RESTORE PTR
1517 03301 6211 SCNLUP, CDF 10
1518 03302 1423 * TAD I PTR
1519 03303 7450 SNA /GET NEXT KEYWORD POINTER
1520 03304 5340 JMP NOKEY
1521 03305 2023 * ISZ PTR /POINT TO PTR TO ROUTINE
1522 03306 4434 * JMS I [KEYSRCH
1523 03307 5276 JMP NOF /NOT FOUND
1524 03310 6211 CDF 10
1525 03311 1423 * TAD I PTR /FOUND
1526 03312 6201 CDF 0
1527 03313 3023 * DCA PTR /GET PTR TO ROUTINE
1528 03314 7240 STA
1529 03315 1014 * TAD DEVNUM
1530 03316 7640 SZA CLA
1531 03317 4770 JMS I (HREAD /READ HANDLER
1532 03320 4423 * JMS I PTR /CALL ROUTINE
1533 03321 7240 STA
1534 03322 1014 * TAD DEVNUM
1535 03323 7640 SZA CLA
1536 03324 4767 JMS I (HWRITE /REWRITE HANDLER
1537 03325 5405 * JMP I [GOAWAY
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 39
FILE # 1
1538
1539
1540
1541 03326 4467 * HYPH, JMS I [ALPHA
1542 03327 5470 * JMP I [BADV
1543 03330 3030 * DCA VNO
1544 03331 1030 * TAD VNO
1545 03332 7450 SNA
1546 03333 5470 * JMP I [BADV
1547 03334 0071 * AND [37
1548 03335 3030 * DCA VNO
1549 03336 4402 * JMS I [SPACE /IGNORE SPACE
1550 03337 5220 JMP COLN2
1551
1552 03340 1360 NOKEY, TAD AUXFLG
1553 03341 7640 SZA CLA
1554 03342 4406 * JMS I [ERROR
1555 03343 0154 EUNKAT
1556 03344 2360 NOO, ISZ AUXFLG
1557 03345 1366 TAD (AUX
1558 03346 3023 * DCA PTR
1559 03347 5301 JMP SCNLUP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 40
FILE # 1
1560
1561
1562
1563 03350 7200 NOTYP, CLA
1564 03351 3776 DCA I (NAM1+2000
1565 03352 3774 DCA I (NAM2+2000
1566 03353 1366 TAD (AUX /SEARCH AUXILIARY TABLE
1567 03354 7410 SKP
1568 03355 1365 SYSDV, TAD (SYSAUX
1569 03356 2360 ISZ AUXFLG
1570 03357 5252 JMP INTO /V3D ALLOW SET SYS:
1571
1572 03360 0000 AUXFLG, 0
1573
------
03365 3771
03366 4014
03367 3445
03370 3400
03371 0312
03372 6161
03373 3437
03374 2175
03375 2300
03376 2174
03377 2331
1574 3400 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 41
FILE # 1
1575
1576
1577
1578 03400 0000 HREAD, 0
1579 03401 1026 * TAD DBLK
1580 03402 3206 DCA BLOCK
1581 03403 4430 * JMS I [7607
1582 03404 0200 200 /READ 2 PAGES
1583 03405 7200 HANBUF /INTO 7200-7577
1584 03406 0000 BLOCK, 0 /FROM THIS BLOCK ON SYSTEM DEVICE
1585 03407 5431 * JMP I [SYSERR
1586 03410 1030 * TAD VNO
1587 03411 7640 SZA CLA /V3C
1588 03412 5600 JMP I HREAD /VNO ALREADY SET BY - COMMAND
1589 03413 1206 TAD BLOCK /IS IT IN BOOT?
1590 03414 7650 SNA CLA
1591 03415 5221 JMP HRBOOT /YES
1592 03416 1025 * TAD DHI
1593 03417 0020 * AND [177
1594 03420 5224 JMP VLOOP-1 /OK
1595 03421 1010 * HRBOOT, TAD ENTRY /IF BLOCK 0: BOOTSTRAP
1596 03422 0020 * AND [177
1597 03423 1007 * TAD [200 /ENTRY IN SECOND HALF
1598 03424 1057 * TAD [HANBUF
1599 03425 3027 * VLOOP, DCA VNOPTR
1600 03426 1427 * TAD I VNOPTR
1601 03427 7100 CLL
1602 03430 1377 TAD (-33
1603 03431 7630 SZL CLA
1604 03432 5240 JMP BACKV
1605 03433 1427 * TAD I VNOPTR
1606 03434 7450 SNA
1607 03435 5460 * JMP I [OLDERR
1608 03436 3030 * DCA VNO
1609 03437 5600 JMP I HREAD
1610 03440 7240 BACKV, STA
1611 03441 1027 * TAD VNOPTR
1612 03442 5225 JMP VLOOP
1613
1614 03443 4406 * RESERR, JMS I [ERROR
1615 03444 0177 EDVRES
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 42
FILE # 1
1616
1617
1618
1619 03445 0000 HWRITE, 0
1620 03446 1206 TAD BLOCK
1621 03447 7450 SNA
1622 03450 5243 JMP RESERR
1623 03451 3255 DCA BLKTWO
1624 03452 4430 * JMS I [7607
1625 03453 4200 4200
1626 03454 7200 HANBUF
1627 03455 0000 BLKTWO, 0
1628 03456 5431 * JMP I [SYSERR
1629 03457 5645 JMP I HWRITE
1630
1631 03460 0000 LPWDTH, 0
1632 03461 1035 * TAD [7400
1633 03462 4452 * JMS I [NUMCHK
1634 03463 0266 EWIDTH
1635 03464 4271 JMS LPTTST
1636 03465 1011 * TAD NUM
1637 03466 7040 CMA
1638 03467 3457 * DCA I [HANBUF
1639 03470 5660 JMP I LPWDTH
1640
1641 03471 0000 LPTTST, 0
1642 03472 1776 TAD I (HANBUF+1
1643 03473 7710 SPA CLA
1644 03474 4406 * JMS I [ERROR
1645 03475 0216 EOBSHD
1646 03476 4454 * JMS I [VERTST
1647 03477 0315 "M
1648 03500 4775' LPTOK, JMS DBLTST
1649 03501 1435 * TAD I [HANBUF+200
1650 03502 7640 SZA CLA
1651 03503 5460 * JMP I [OLDERR
1652 03504 1774 TAD I (HANBUF+201
1653 03505 0055 * AND [7700
1654 03506 1373 TAD (-5200 /JUMP OVER ARGS
1655 03507 7640 SZA CLA
1656 03510 5460 * JMP I [OLDERR
1657 03511 5671 JMP I LPTTST
1658
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 43
FILE # 1
1659
1660
1661
1662 03512 0000 GENVER, 0
1663 03513 1032 * TAD NO
1664 03514 7640 SZA CLA
1665 03515 5426 * JMP I [SYNTAX
1666 03516 4467 * JMS I [ALPHA
1667 03517 5331 JMP BADV
1668 03520 3011 * DCA NUM
1669 03521 1011 * TAD NUM
1670 03522 0072 * AND [40
1671 03523 7640 SZA CLA
1672 03524 5331 JMP BADV
1673 03525 1011 * TAD NUM
1674 03526 0372 AND (37
1675 03527 3427 * DCA I VNOPTR
1676 03530 5712 JMP I GENVER
1677 03531 4406 * BADV, JMS I [ERROR
1678 03532 0253 EBVELT
1679
1680 03533 0000 GENREA, 0
1681 03534 6211 CDF 10
1682 03535 1416 * TAD I DCWPTR
1683 03536 7106 CLL RTL
1684 03537 7104 CLL RAL
1685 03540 1032 * TAD NO
1686 03541 7010 RAR
1687 03542 7030 CML RAR
1688 03543 7010 RAR
1689 03544 3416 * DCA I DCWPTR
1690 03545 6201 CDF 0
1691 03546 7201 CLA IAC
1692 03547 3014 * DCA DEVNUM
1693 03550 5733 JMP I GENREA
1694
1695 03551 0000 GENFIL, 0
1696 03552 6211 CDF 10
1697 03553 1416 * TAD I DCWPTR
1698 03554 7104 CLL RAL
1699 03555 7104 CLL RAL /ZERO LINK
1700 03556 1032 * TAD NO
1701 03557 7010 RAR
1702 03560 7030 CML RAR
1703 03561 3416 * DCA I DCWPTR
1704 03562 6201 CDF 0
1705 03563 7201 CLA IAC
1706 03564 3014 * DCA DEVNUM
1707 03565 5751 JMP I GENFIL
------
03572 0037
03573 2600
03574 7401
03575 3723
03576 7201
03577 7745
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 43-1
FILE # 1
1708 3600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 44
FILE # 1
1709
1710
1711
1712 03600 0000 LPPAGE, 0
1713 03601 1200 TAD LPPAGE
1714 03602 3205 DCA LPLV
1715 03603 1377 TAD (20
1716 03604 7410 SKP
1717 03605 0000 LPLV, 0
1718 03606 1376 TAD (10
1719 03607 3000 * DCA TEMP
1720 03610 4775 JMS I (LPTTST
1721 03611 1000 * TAD TEMP
1722 03612 1032 * TAD NO
1723 03613 7110 CLL RAR
1724 03614 7430 SZL
1725 03615 7200 CLA
1726 03616 3774 DCA I (HANBUF+1
1727 03617 5605 JMP I LPLV
1728
1729 03620 0000 LPLC, 0
1730 03621 4775 JMS I (LPTTST
1731 03622 1032 * TAD NO
1732 03623 7106 CLL RTL
1733 03624 7006 RTL
1734 03625 7004 RAL
1735 03626 7041 CIA
1736 03627 3773 DCA I (HANBUF+2
1737 03630 5620 JMP I LPLC
1738
1739 03631 0000 TTECHO, 0
1740 03632 4772 JMS I (TTYTST
1741 03633 1032 * TAD NO
1742 03634 7640 SZA CLA
1743 03635 1371 TAD (SKP CLA-1613 /SKP
1744 03636 1370 TAD (1613 /TAD I TTYCA
1745 03637 3767 DCA I (HANBUF+115
1746 03640 5631 JMP I TTECHO
1747
1748 03641 0000 TTPAGE, 0
1749 03642 4772 JMS I (TTYTST
1750 03643 7325 AC3
1751 03644 4432 * JMS I [SRCH /V3D NEW ROUTINE
1752 03645 0240 240;4;7640
03646 0004
03647 7640
1753 03650 5433 * JMP I [REASEM
1754 03651 1032 * TAD NO
1755 03652 7650 SNA CLA
1756 03653 1366 TAD (5243-NOP /YES
1757 03654 1365 TAD (NOP /NO
1758 03655 3400 * DCA I TEMP
1759 03656 5641 JMP I TTPAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 45
FILE # 1
1760
1761
1762
1763 03657 0000 TTTAB, 0
1764 03660 4772 JMS I (TTYTST
1765 03661 4412 * JMS I [GETC
1766 03662 7450 SNA
1767 03663 5273 JMP TTEO
1768 03664 1364 TAD (-"/
1769 03665 7650 SNA CLA
1770 03666 4412 * JMS I [GETC
1771 03667 1363 TAD (-"N
1772 03670 7640 SZA CLA
1773 03671 5426 * JMP I [SYNTAX
1774 03672 5300 JMP NOTEC
1775 03673 1032 * TTEO, TAD NO
1776 03674 7650 SNA CLA
1777 03675 1362 TAD (5000
1778 03676 1007 * TAD [200
1779 03677 4761 JMS I (TECO
1780 03700 4432 * NOTEC, JMS I [SRCH
1781 03701 0375 375;1;5600
03702 0001
03703 5600
1782 03704 5433 * JMP I [REASEM
1783 03705 1360 TAD (TABTBL
1784 03706 4757 JMS I (FIXUP
1785 03707 5657 JMP I TTTAB
1786
1787 03710 0000 GETC, 0 /GET A CHARACTER, ADVANCE POINTER
1788 03711 1403 * TAD I LINPTR
1789 03712 0020 * AND [177 /ALWAYS RETURN 8-BIT
1790 03713 7440 SZA
1791 03714 1007 * TAD [200 /WITH HIGH ORDER BIT ON
1792 03715 1356 TAD (-340 /LOWER CASE?
1793 03716 7500 SMA
1794 03717 1355 TAD (-40 /YES CONVERT
1795 03720 1354 TAD (340
1796 03721 2003 * ISZ LINPTR /ADVANCE SCAN
1797 03722 5710 JMP I GETC /RETURN
1798
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 46
FILE # 1
1799
1800
1801
1802 03723 0000 DBLTST, 0
1803 03724 1025 * TAD DHI
1804 03725 7710 SPA CLA
1805 03726 5723 JMP I DBLTST
1806 03727 4406 * JMS I [ERROR
1807 03730 0234 E2PGHN
1808
1809 03731 0000 RBX7, 0 /FOR SETTING BYTE MODE FLOPPY HANDLER
1810 03732 1331 TAD RBX7 /TO EITHER VT78 OR PDP8 FORMAT
1811 03733 3336 DCA RBX8 /THIS IS FOR YES OR NO VT78
1812 03734 7240 STA
1813 03735 7410 SKP
1814 03736 0000 RBX8, 0
1815 03737 1032 * TAD NO /EITHER YES OR NO PDP8
1816 03740 7510 SPA
1817 03741 7201 CLA IAC
1818 03742 3032 * DCA NO
1819 03743 4454 * JMS I [VERTST
1820 03744 0315 "M
1821 03745 1032 * TAD NO
1822 03746 3753 DCA I (HANBUF+200 /SWITCH IN HANDLER AC=0:PDP8
1823 03747 5736 JMP I RBX8
1824 /
------
03753 7400
03754 0340
03755 7740
03756 7440
03757 3020
03760 3265
03761 5004
03762 5000
03763 7462
03764 7521
03765 7000
03766 6243
03767 7315
03770 1613
03771 5775
03772 2542
03773 7202
03774 7201
03775 3471
03776 0010
03777 0020
1825 4000 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 47
FILE # 1
1826
1827
1828
1829 /ENTER WITH PTR TO POSSIBLE KEYWORD IN AC
1830
1831 04000 0000 KEYSRCH,0
1832 04001 3227 DCA KPTR
1833 04002 6211 KL, CDF 10
1834 04003 1627 TAD I KPTR
1835 04004 6201 CDF 0
1836 04005 2227 ISZ KPTR
1837 04006 7450 SNA
1838 04007 5230 JMP GOTKEY
1839 04010 7041 CIA
1840 04011 3000 * DCA TEMP
1841 04012 4467 * JMS I [ALPHA /IS IT ALPHANUMERIC?
1842 04013 5221 JMP EOK /NO
1843 04014 1000 * TAD TEMP /COMPARE
1844 04015 7104 CLL RAL /LOW ORDER 11 BITS
1845 04016 7650 SNA CLA
1846 04017 5202 JMP KL /MATCHED, KEEP LOOKING
1847 04020 5600 JMP I KEYSRCH /DIDN'T MATCH
1848 04021 4427 * EOK, JMS I [BACKC
1849 04022 1000 * TAD TEMP
1850 04023 7041 CIA /INPUT STREAM RAN OUT OR HIT SPACE
1851 04024 7710 SPA CLA
1852 04025 5230 JMP GOTKEY /SPACE OR EOL MATCH FLAGGED CHARACTER
1853 04026 5600 JMP I KEYSRCH
1854
1855 04027 0000 KPTR, 0
1856
1857 04030 4403 * GOTKEY, JMS I [SCAN
1858 04031 7240 STA /SKIP EXTRA STUFF
1859 04032 4402 * JMS I [SPACE
1860 04033 2200 ISZ KEYSRCH /TAKE GOOD RETURN 2
1861 04034 5600 JMP I KEYSRCH
1862
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 48
FILE # 1
1863
1864
1865
1866 04035 0000 TTESC, 0 /V3D
1867 04036 4777 JMS I (TTYTST
1868 04037 7325 AC3
1869 04040 4432 * JMS I [SRCH
1870 04041 0200 200;5;336
04042 0005
04043 0336
1871 04044 5433 * JMP I [REASEM
1872 04045 1032 * TAD NO
1873 04046 7640 SZA CLA
1874 04047 1376 TAD (1337-NOP /YES
1875 04050 1375 TAD (NOP /NO
1876 04051 3400 * DCA I TEMP
1877 04052 5635 JMP I TTESC
1878
1879 04053 0000 TTLC, 0
1880 04054 4777 JMS I (TTYTST
1881 04055 1374 TAD (12
1882 04056 4432 * JMS I [SRCH
1883 04057 0340 340;20;-4
04060 0020
04061 7774
1884 04062 5433 * JMP I [REASEM
1885 04063 1400 * TAD I TEMP
1886 04064 7100 CLL
1887 04065 1007 * TAD [200
1888 04066 7620 SNL CLA
1889 04067 5433 * JMP I [REASEM
1890 04070 1032 * TAD NO
1891 04071 7650 SNA CLA
1892 04072 1373 TAD (7600-7640 /7600 CLA
1893 04073 1372 TAD (7640 /SZA CLA
1894 04074 3400 * DCA I TEMP
1895 04075 5653 JMP I TTLC
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 49
FILE # 1
1896
1897
1898
1899 04076 0000 LPCODE, 0
1900 04077 4473 * JMS I [LPTTST
1901 04100 4474 * JMS I [OPTEQ
1902 04101 4475 * JMS I [GENCMN
1903 04102 1037 * TAD NUM2
1904 04103 0055 * AND [7700
1905 04104 7640 SZA CLA
1906 04105 4406 * DVCERR, JMS I [ERROR
1907 04106 0365 EDEVC
1908 04107 1037 * TAD NUM2
1909 04110 1371 TAD (-30
1910 04111 7750 SPA SNA CLA
1911 04112 5305 JMP DVCERR
1912 04113 1037 * TAD NUM2
1913 04114 7106 CLL RTL
1914 04115 7004 RAL
1915 04116 3037 * DCA NUM2
1916 04117 6211 CDF 10
1917 04120 1370 TAD (6005-10
1918 04121 1037 * TAD NUM2
1919 04122 3767 DCA I (SLUX
1920 04123 1366 TAD (6006
1921 04124 1037 * TAD NUM2
1922 04125 3765 DCA I (SLUX+2
1923 04126 1364 TAD (6001
1924 04127 1037 * TAD NUM2
1925 04130 3763 DCA I (SLUX+4
1926 04131 6201 CDF 0
1927 04132 1362 TAD (5
1928 04133 4761 JMS I (LPCHNG
1929 04134 5676 JMP I LPCODE
------
04161 1653
04162 0005
04163 3434
04164 6001
04165 3432
04166 6006
04167 3430
04170 5775
04171 7750
04172 7640
04173 7740
04174 0012
04175 7000
04176 2337
04177 2542
1930 4200 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 50
FILE # 1
1931
1932
1933
1934 04200 0000 GETIOT, 0
1935 04201 2034 * ISZ RR
1936 04202 1034 * TAD RR
1937 04203 1007 * TAD [-HANBUF-400
1938 04204 7650 SNA CLA
1939 04205 5600 JMP I GETIOT
1940 04206 1434 * TAD I RR
1941 04207 0042 * AND [7000
1942 04210 1000 * TAD [-6000
1943 04211 7640 SZA CLA
1944 04212 5201 JMP GETIOT+1
1945 04213 1434 * TAD I RR
1946 04214 7012 RTR
1947 04215 7010 RAR
1948 04216 0011 * AND [77
1949 04217 1377 TAD (-20
1950 04220 7110 CLL RAR
1951 04221 7450 SNA
1952 04222 5201 JMP GETIOT+1
1953 04223 7004 RAL
1954 04224 1376 TAD (20
1955 04225 2200 ISZ GETIOT
1956 04226 5600 JMP I GETIOT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 51
FILE # 1
1957
1958
1959
1960 04227 0000 TTWIDTH,0
1961 04230 1035 * TAD [7400
1962 04231 4452 * JMS I [NUMCHK
1963 04232 0266 EWIDTH
1964 04233 4775 JMS I (TTYTST
1965 04234 1011 * TAD NUM
1966 04235 0064 * AND [7
1967 04236 7640 SZA CLA
1968 04237 4406 * BADWID, JMS I [ERROR
1969 04240 0266 EWIDTH
1970 04241 1011 * TAD NUM
1971 04242 1022 * TAD [-200
1972 04243 7650 SNA CLA
1973 04244 5237 JMP BADWID
1974 04245 1374 TAD (10
1975 04246 4432 * JMS I [SRCH
1976 04247 0260 260;20;7600
04250 0020
04251 7600
1977 04252 5433 * JMP I [REASEM
1978 04253 1011 * TAD NUM
1979 04254 7040 CMA
1980 04255 3400 * DCA I TEMP
1981 04256 2000 * ISZ TEMP
1982 04257 1011 * TAD NUM
1983 04260 7041 CIA
1984 04261 3400 * DCA I TEMP
1985 04262 5627 JMP I TTWIDTH
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 52
FILE # 1
1986
1987
1988
1989 04263 0000 OPTEQ, 0
1990 04264 4412 * JMS I [GETC
1991 04265 7450 SNA
1992 04266 5426 * JMP I [SYNTAX
1993 04267 1373 TAD (-"=
1994 04270 7650 SNA CLA
1995 04271 5264 JMP OPTEQ+1
1996 04272 4427 * JMS I [BACKC
1997 04273 7240 STA /V3D
1998 04274 4402 * JMS I [SPACE
1999 04275 5663 JMP I OPTEQ
2000
2001 04276 0000 LPFILL, 0 /FOR LPSS HANDLER
2002 04277 1276 TAD LPFILL
2003 04300 3303 DCA LPPAUS
2004 04301 1372 TAD (12
2005 04302 5305 JMP .+3
2006 04303 0000 LPPAUS, 0
2007 04304 1371 TAD (4001
2008 04305 3000 * DCA TEMP
2009 04306 4770 JMS I (LPTTST
2010 04307 1032 * TAD NO
2011 04310 7640 SZA CLA
2012 04311 5313 JMP .+2
2013 04312 1000 * TAD TEMP
2014 04313 3767 DCA I (HANBUF+204
2015 04314 5703 JMP I LPPAUS
2016
2017 04315 0000 LPAROW, 0
2018 04316 4770 JMS I (LPTTST
2019 04317 1032 * TAD NO
2020 04320 7041 CIA
2021 04321 7450 SNA
2022 04322 1366 TAD (136
2023 04323 3765 DCA I (HANBUF+205
2024 04324 5715 JMP I LPAROW
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 53
FILE # 1
2025
2026
2027
2028 04325 0000 LPESC, 0
2029 04326 4770 JMS I (LPTTST
2030 04327 1032 * TAD NO
2031 04330 7640 SZA CLA
2032 04331 1364 TAD (11
2033 04332 3763 DCA I (HANBUF+206
2034 04333 5725 JMP I LPESC
------
04363 7406
04364 0011
04365 7405
04366 0136
04367 7404
04370 3471
04371 4001
04372 0012
04373 7503
04374 0010
04375 2542
04376 0020
04377 7760
2035 4400 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 54
FILE # 1
2036
2037
2038
2039 04400 0000 SRCH, 0 /SEARCH HANBUF, ARGS:START,CNT,WORD
2040 04401 3000 * DCA TEMP /AC= OFFSET FROM FOUND LOC
2041 04402 1600 TAD I SRCH
2042 04403 2200 ISZ SRCH
2043 04404 1377 TAD (HANBUF-1
2044 04405 3000 * DCA XR1
2045 04406 1600 TAD I SRCH
2046 04407 2200 ISZ SRCH
2047 04410 7041 CIA
2048 04411 3021 * DCA CNT
2049 04412 1600 TAD I SRCH
2050 04413 7041 CIA
2051 04414 3002 * DCA T2
2052 04415 2200 ISZ SRCH
2053 04416 1400 * SRLUP, TAD I XR1
2054 04417 1002 * TAD T2
2055 04420 7650 SNA CLA
2056 04421 5225 JMP SRFND
2057 04422 2021 * ISZ CNT
2058 04423 5216 JMP SRLUP
2059 04424 5600 JMP I SRCH
2060 04425 2200 SRFND, ISZ SRCH
2061 04426 1000 * TAD XR1
2062 04427 1000 * TAD TEMP
2063 04430 3000 * DCA TEMP
2064 04431 5600 JMP I SRCH
2065
2066 04432 0000 GENCMN, 0
2067 04433 1032 * TAD NO
2068 04434 7640 SZA CLA
2069 04435 5426 * JMP I [SYNTAX
2070 04436 4437 * JMS I [ONUM
2071 04437 3037 * DCA NUM2
2072 04440 1033 * TAD FLG
2073 04441 7640 SZA CLA
2074 04442 5426 * JMP I [SYNTAX
2075 04443 4412 * JMS I [GETC
2076 04444 3000 * DCA TEMP
2077 04445 1000 * TAD TEMP
2078 04446 7450 SNA
2079 04447 5632 JMP I GENCMN
2080 04450 1376 TAD (-"=
2081 04451 7440 SZA
2082 04452 1375 TAD ("=-",
2083 04453 7640 SZA CLA
2084 04454 5426 * JMP I [SYNTAX
2085 04455 7240 STA
2086 04456 4402 * JMS I [SPACE
2087 04457 5632 JMP I GENCMN
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 55
FILE # 1
2088
2089
2090
2091 04460 0000 GENLOC, 0
2092 04461 4232 JMS GENCMN
2093 04462 1025 * TAD DHI
2094 04463 7750 SPA SNA CLA /ALLOW PEEK INTO BOOTSTRAP
2095 04464 1022 * TAD [-200
2096 04465 1022 * TAD [-200
2097 04466 7100 CLL
2098 04467 1037 * TAD NUM2
2099 04470 7630 SZL CLA
2100 04471 5436 * JMP I [NUMBIG
2101 04472 1037 * TAD NUM2
2102 04473 1057 * TAD [HANBUF /BASE OF HANDLER
2103 04474 3037 * DCA NUM2
2104 04475 1000 * TAD TEMP
2105 04476 7650 SNA CLA
2106 04477 4313 JMS ODT
2107 04500 4437 * GETNEW, JMS I [ONUM
2108 04501 3011 * DCA NUM
2109 04502 1033 * TAD FLG
2110 04503 7640 SZA CLA
2111 04504 5660 JMP I GENLOC
2112 04505 4412 * JMS I [GETC
2113 04506 7640 SZA CLA
2114 04507 5426 * JMP I [SYNTAX
2115 04510 1011 * TAD NUM
2116 04511 3437 * DCA I NUM2
2117 04512 5660 JMP I GENLOC
2118
2119 04513 0000 ODT, 0
2120 04514 1437 * TAD I NUM2
2121 04515 4331 JMS OPRIN
2122 04516 1374 TAD ("/
2123 04517 4414 * JMS I [TYPE
2124 04520 1400 * TAD I [READ
2125 04521 3357 DCA GTEM /SAVE CHAIN STATUS
2126 04522 7301 AC1 /PREVENT #
2127 04523 4400 * JMS I [READ
2128 04524 1001 * TAD [LINBUF
2129 04525 3003 * DCA LINPTR
2130 04526 1357 TAD GTEM
2131 04527 3400 * DCA I [READ
2132 04530 5713 JMP I ODT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 56
FILE # 1
2133
2134
2135
2136 04531 0000 OPRIN, 0
2137 04532 3356 DCA N3
2138 04533 1373 TAD (-4
2139 04534 3355 DCA OKNT
2140 04535 1356 OPLP, TAD N3
2141 04536 4346 JMS DGP
2142 04537 1356 TAD N3
2143 04540 7006 RTL
2144 04541 7004 RAL
2145 04542 3356 DCA N3
2146 04543 2355 ISZ OKNT
2147 04544 5335 JMP OPLP
2148 04545 5731 JMP I OPRIN
2149
2150 04546 0000 DGP, 0
2151 04547 7006 RTL
2152 04550 7006 RTL
2153 04551 0064 * AND [7
2154 04552 1076 * TAD [60
2155 04553 4414 * JMS I [TYPE
2156 04554 5746 JMP I DGP
2157
2158 04555 0000 OKNT, 0
2159 04556 0000 N3, 0
2160 04557 0000 GTEM, 0
------
04573 7774
04574 0257
04575 0021
04576 7503
04577 7177
2161 4600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 57
FILE # 1
2162
2163
2164
2165 04600 0000 MTAPAR, 0
2166 04601 1032 * TAD NO
2167 04602 7640 SZA CLA
2168 04603 5426 * JMP I [SYNTAX
2169 04604 4224 JMS MTATST
2170 04605 1003 * TAD LINPTR
2171 04606 3031 * DCA SAVPTR
2172 04607 1377 TAD (EVEN
2173 04610 4434 * JMS I [KEYSRCH
2174 04611 7410 SKP
2175 04612 5221 JMP SETE
2176 04613 1031 * TAD SAVPTR
2177 04614 3003 * DCA LINPTR
2178 04615 1376 TAD (ODD
2179 04616 4434 * JMS I [KEYSRCH
2180 04617 5426 * JMP I [SYNTAX
2181 04620 1375 TAD (400
2182 04621 1374 SETE, TAD (2
2183 04622 3457 * DCA I [HANBUF
2184 04623 5600 JMP I MTAPAR
2185
2186 04624 0000 MTATST, 0
2187 04625 4454 * JMS I [VERTST
2188 04626 0315 "M
2189 04627 5624 JMP I MTATST
2190
2191 04630 0000 MTAFIL, 0
2192 04631 4224 JMS MTATST
2193 04632 1032 * TAD NO
2194 04633 7041 CIA /V3D
2195 04634 7001 IAC /V3D
2196 04635 3773 DCA I (HANBUF
2197 04636 5630 JMP I MTAFIL
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 58
FILE # 1
2198
2199
2200
2201 /SUPPOSED TO WORK ON ALL VERSIONS
2202
2203 04637 0000 CDCODE, 0
2204 04640 7240 STA
2205 04641 4452 * JMS I [NUMCHK
2206 04642 0327 ECARDC
2207 04643 1011 * TAD NUM
2208 04644 1372 TAD (-32 /026
2209 04645 7450 SNA
2210 04646 5257 JMP C026
2211 04647 1371 TAD (32-35 /029
2212 04650 7640 SZA CLA
2213 04651 4406 * BADCOD, JMS I [ERROR
2214 04652 0327 ECARDC
2215 04653 4263 JMS CHANGE
2216 04654 3310 LIST1;LIST2
04655 3326
2217 04656 5637 JMP I CDCODE
2218 04657 4263 C026, JMS CHANGE
2219 04660 3310 LIST1;LIST3
04661 3343
2220 04662 5637 JMP I CDCODE
2221
2222 04663 0000 CHANGE, 0
2223 04664 1663 TAD I CHANGE
2224 04665 3310 DCA P1
2225 04666 2263 ISZ CHANGE
2226 04667 1663 TAD I CHANGE
2227 04670 3311 DCA P2
2228 04671 2263 ISZ CHANGE
2229 04672 6211 CHLUP, CDF 10
2230 04673 1710 TAD I P1
2231 04674 7450 SNA
2232 04675 5306 JMP CHNGEX
2233 04676 1057 * TAD [HANBUF /BASE OF HANDLER
2234 04677 3312 DCA P3
2235 04700 1711 TAD I P2
2236 04701 6201 CDF 0
2237 04702 3712 DCA I P3
2238 04703 2310 ISZ P1
2239 04704 2311 ISZ P2
2240 04705 5272 JMP CHLUP
2241 04706 6201 CHNGEX, CDF 0
2242 04707 5663 JMP I CHANGE
2243 04710 0000 P1, 0
2244 04711 0000 P2, 0
2245 04712 0000 P3, 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 59
FILE # 1
2246
2247
2248
2249 04713 0000 SYSDEA, 0 /DEASSIGN USERS IN BOOT AND CORE
2250 04714 1370 TAD (UDNAME&177-1
2251 04715 4424 * JMS I [RDAUX
2252 04716 0000 0
2253 04717 1367 TAD (-17
2254 04720 3000 * DCA TEMP
2255 04721 1040 * TAD BTSTRP
2256 04722 3001 * DCA XR2
2257 04723 1040 * TAD BTSTRP
2258 04724 1366 TAD (7600-AUXBUF
2259 04725 3002 * DCA XR3
2260 04726 3401 * DCA I XR2
2261 04727 6211 CDF 10
2262 04730 3402 * DCA I XR3
2263 04731 6201 CDF 0
2264 04732 2000 * ISZ TEMP
2265 04733 5326 JMP .-5
2266 04734 4425 * JMS I [WRAUX
2267 04735 5713 JMP I SYSDEA
------
04766 1000
04767 7761
04770 0140
04771 7775
04772 7746
04773 7200
04774 0002
04775 0400
04776 4332
04777 4176
2268 5000 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 60
FILE # 1
2269
2270
2271
2272 05000 2405 TECNAM, FILENAME TECO.SV
05001 0317
05002 0000
05003 2326
2273
2274 05004 0000 TECO, 0
2275 05005 3231 DCA SA
2276 05006 1377 TAD (TECNAM
2277 05007 4232 JMS LOOKUP
2278 05010 5604 JMP I TECO /NOT THERE
2279 05011 3215 DCA BLKN
2280 05012 4430 * JMS I [7607
2281 05013 0100 100 /READ 1 PAGE FROM TECO
2282 05014 7000 7000 /BUFFER
2283 05015 0000 BLKN, 0
2284 05016 5431 * JMP I [SYSERR
2285 05017 1215 TAD BLKN
2286 05020 3226 DCA BLKN2
2287 05021 1231 TAD SA
2288 05022 3776 DCA I (7002 /REL LOC 2 IS S.A.
2289 05023 4430 * JMS I [7607
2290 05024 4100 4100
2291 05025 7000 7000
2292 05026 0000 BLKN2, 0
2293 05027 5431 * JMP I [SYSERR
2294 05030 5604 JMP I TECO
2295
2296 05031 0000 SA, 0
2297
2298 05032 0000 LOOKUP, 0
2299 05033 3240 DCA ARG1 /PTR TO FILENAME IN AC
2300 05034 7201 CLA IAC /LOOKUP ON SYS
2301 05035 6212 CIF 10
2302 05036 4417 * JMS I USR
2303 05037 0002 2
2304 05040 0000 ARG1, 0 /STARTING BLOCK
2305 05041 0000 0
2306 05042 5632 JMP I LOOKUP /NOT FOUND
2307 05043 7305 CLA CLL IAC RAL /=2
2308 05044 1241 TAD ARG1+1 /-LENGHT
2309 05045 7630 SZL CLA /MUST BE LONGER THAN 2
2310 05046 6254 6254 /IF UNDER MULTI8
2311 05047 7410 SKP
2312 05050 5632 JMP I LOOKUP /IT WAS A SHSAVE FILE: NOT THERE
2313 05051 1240 TAD ARG1
2314 05052 2232 ISZ LOOKUP
2315 05053 5632 JMP I LOOKUP /RETURN 2 WITH BLOCK # IN AC
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 61
FILE # 1
2316
2317
2318
2319 05054 0000 GENDVC, 0
2320 05055 1032 * TAD NO
2321 05056 7640 SZA CLA
2322 05057 5426 * JMP I [SYNTAX
2323 05060 4437 * JMS I [ONUM
2324 05061 7450 SNA
2325 05062 5426 * JMP I [SYNTAX
2326 05063 3035 * DCA NUCODE
2327 05064 1035 * TAD NUCODE
2328 05065 0055 * AND [7700
2329 05066 7640 SZA CLA
2330 05067 5436 * JMP I [NUMBIG
2331 05070 1035 * TAD NUCODE
2332 05071 1375 TAD (-30
2333 05072 7710 SPA CLA
2334 05073 5436 * JMP I [NUMBIG
2335 05074 1035 * TAD NUCODE
2336 05075 7106 CLL RTL
2337 05076 7004 RAL
2338 05077 3035 * DCA NUCODE
2339 05100 1057 * TAD [HANBUF
2340 05101 3034 * DCA RR
2341 05102 4774 DVLUP, JMS I (GETIOT
2342 05103 5654 JMP I GENDVC
2343 05104 1375 TAD (-30
2344 05105 7710 SPA CLA
2345 05106 5302 JMP DVLUP
2346 05107 1434 * TAD I RR
2347 05110 0373 AND (7007
2348 05111 1035 * TAD NUCODE
2349 05112 3434 * DCA I RR
2350 05113 5302 JMP DVLUP
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 62
FILE # 1
2351
2352
2353
2354 05114 0000 TTCOL, 0
2355 05115 1040 * TAD [7770
2356 05116 4452 * JMS I [NUMCHK
2357 05117 0126 EBDCC
2358 05120 1011 * TAD NUM
2359 05121 4324 JMS SETMSW
2360 05122 7770 7770
2361 05123 5714 JMP I TTCOL
2362
2363 05124 0000 SETMSW, 0 /SET MMISC IN BOOT AND MEMORY
2364 05125 3344 DCA MSWVAL
2365 05126 1372 TAD (MMISC&177
2366 05127 4424 * JMS I [RDAUX
2367 05130 0000 0
2368 05131 1724 TAD I SETMSW /GET MASK
2369 05132 2324 ISZ SETMSW
2370 05133 0440 * AND I BTSTRP
2371 05134 1344 TAD MSWVAL
2372 05135 3440 * DCA I BTSTRP
2373 05136 1440 * TAD I BTSTRP
2374 05137 6211 CDF 10
2375 05140 3771 DCA I (MMISC
2376 05141 6201 CDF 0
2377 05142 4425 * JMS I [WRAUX
2378 05143 5724 JMP I SETMSW
2379 05144 0000 MSWVAL, 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 63
FILE # 1
2380
2381
2382
2383 05145 0000 FORT, 0 /COMMON SUB FOR FORTRANS
2384 05146 7112 CLL RTR
2385 05147 7012 RTR
2386 05150 3344 DCA MSWVAL /SET 7000 BITS
2387 05151 7346 ACM3
2388 05152 1345 TAD FORT
2389 05153 3345 DCA FORT /GETS ADDRESS OF FORT SUB
2390 05154 1745 TAD I FORT
2391 05155 3345 DCA FORT /GET CALLING ADDRESS
2392 05156 1344 TAD MSWVAL
2393 05157 4324 JMS SETMSW
2394 05160 0777 0777 /KEEP ON OTHER BITS
2395 05161 5745 JMP I FORT
------
05171 7777
05172 0177
05173 7007
05174 4200
05175 7750
05176 7002
05177 5000
2396 5200 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 64
FILE # 1
2397
2398
2399
2400 05200 0504 EDTNAM, FILENAME EDIT.SV
05201 1124
05202 0000
05203 2326
2401 05204 0201 BATNAM, FILENAME BATCH.SV
05205 2403
05206 1000
05207 2326
2402
2403 05210 0000 EDIBAT, 0 /SUB FOR ADAPTING VIEW TO HARDWARE
2404 05211 1377 TAD (EDTNAM
2405 05212 4776 JMS I (LOOKUP
2406 05213 5232 JMP TRYBAT /NOT THERE
2407 05214 1064 * TAD [7 /LPT IN REL.BLK. 7
2408 05215 3220 DCA EDBLK
2409 05216 1020 * TAD [177 /LITERAL POINTING AT 'LPT'
2410 05217 4424 * JMS I [RDAUX
2411 05220 0000 EDBLK, 0
2412 05221 1375 TAD (AUXBUF-3000
2413 05222 1440 * TAD I BTSTRP
2414 05223 3040 * DCA BTSTRP /RELOCATED LPT
2415 05224 1440 * TAD I BTSTRP /TEST WORD
2416 05225 7640 SZA CLA
2417 05226 5232 JMP TRYBAT /BAD VERSION
2418 05227 1040 * TAD BTSTRP
2419 05230 4252 JMS MODEBA
2420 05231 4425 * JMS I [WRAUX
2421 05232 1374 TRYBAT, TAD (BATNAM /PART FOR ADAPTING BATCH
2422 05233 4776 JMS I (LOOKUP
2423 05234 5610 JMP I EDIBAT /NOT THERE; END
2424 05235 1373 TAD (16 /AT 6400 IN BATCH
2425 05236 3241 DCA BTBLK
2426 05237 1064 * TAD [7 /REL TEST LOC
2427 05240 4424 * JMS I [RDAUX
2428 05241 0000 BTBLK, 0
2429 05242 1440 * TAD I BTSTRP
2430 05243 1372 TAD (-5600 /TEST FOR 'JMP I LPTSET'
2431 05244 7640 SZA CLA
2432 05245 5610 JMP I EDIBAT /BAD BATCH VERSION
2433 05246 1371 TAD (AUXBUF
2434 05247 4252 JMS MODEBA
2435 05250 4425 * JMS I [WRAUX
2436 05251 5610 JMP I EDIBAT
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 65
FILE # 1
2437
2438
2439
2440 05252 0000 MODEBA, 0
2441 05253 3003 * DCA XR4
2442 05254 1002 * TAD XR3
2443 05255 1370 TAD (-5 /SET XR BACK TO LIST
2444 05256 3002 * DCA XR3
2445 05257 4767 JMS I (LPGET
2446 05260 3403 * DCA I XR4 /NOP OR CMA
2447 05261 4767 JMS I (LPGET
2448 05262 3403 * DCA I XR4 /PRINT COMMAND
2449 05263 4767 JMS I (LPGET
2450 05264 3403 * DCA I XR4 /PRINT2 OR NOP
2451 05265 2003 * ISZ XR4 /SKIP 'CLA' OR 'NOP'
2452 05266 4767 JMS I (LPGET
2453 05267 3403 * DCA I XR4 /SKIP IOT
2454 05270 4767 JMS I (LPGET
2455 05271 7200 CLA /SYNC LIST
2456 05272 5652 JMP I MODEBA
2457
2458 05273 0000 SYSASS, 0 /ASSIGN DEVICE IN BOOT AND CORE
2459 05274 4465 * JMS I [GETDEV /GET DEV NUMBER
2460 05275 4402 * JMS I [SPACE /GO TO SECOND DEVICE
2461 05276 1366 TAD (UDNAME&177-1
2462 05277 4424 * JMS I [RDAUX /GET BOOT BLOCK
2463 05300 0000 0
2464 05301 1014 * TAD DEVNUM
2465 05302 1040 * TAD BTSTRP /POINT INTO TABLE
2466 05303 3040 * DCA BTSTRP
2467 05304 4765 JMS I (COMBIN /HASH SECOND DEVICE
2468 05305 3440 * DCA I BTSTRP /INTO TABLE IN BOOT
2469 05306 1040 * TAD BTSTRP
2470 05307 1364 TAD (7600-AUXBUF
2471 05310 3040 * DCA BTSTRP /POINT INTO CORE
2472 05311 1763 TAD I (WD1 /GET NAME AGAIN
2473 05312 6211 CDF 10
2474 05313 3440 * DCA I BTSTRP
2475 05314 6201 CDF 0
2476 05315 4425 * JMS I [WRAUX /WRITE BOOT BACK
2477 05316 7201 CLA IAC
2478 05317 3014 * DCA DEVNUM /DON'T WRITE RUBBISH IN BLK 0!!!
2479 05320 5673 JMP I SYSASS
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 66
FILE # 1
2480
2481
2482
2483 05321 0000 F4SUB, 0 /FOR SETTING CCL FORTRAN DEFAULTS
2484 05322 7300 AC0 /FORTRAN IV
2485 05323 4762 JMS I (FORT /DOES NOT RETURN HERE!
2486 05324 0000 F5SUB, 0
2487 05325 7301 AC1 /FORTRAN V
2488 05326 4762 JMS I (FORT
2489 05327 0000 F2SUB, 0
2490 05330 7326 AC2 /FORTRAN II
2491 05331 4762 JMS I (FORT
2492 /FXSUB, 0
2493 / AC3 /XXX?
2494 / JMS I (FORT
2495 /
------
05362 5145
05363 2247
05364 1000
05365 2337
05366 0140
05367 1743
05370 7773
05371 6600
05372 2200
05373 0016
05374 5204
05375 3600
05376 5032
05377 5200
2496 5400 PAGE
2497 /6600-7177 AUXILIARY BUFFER
2498 /7000-7177 BUFFER FOR TECO CCB
2499 /7200-7577 BUFFER FOR HANDLER
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 67
FILE # 1
2500
2501
2502
------
00000 2000
00001 1000
00002 0333
00003 0323
00004 1600
00005 0407
00006 0400
00007 0200
00010 0070
00011 0077
00012 3710
00013 7540
00014 2117
00015 7605
00016 2150
00017 0240
00020 0177
00021 0336
00022 7600
00023 3000
00024 0716
00025 0746
00026 0221
00027 0265
00030 7607
00031 0520
00032 4400
00033 0524
00034 4000
00035 7400
00036 2750
00037 2464
00040 7770
00041 0417
00042 7000
00043 0334
00044 0215
00045 0212
00046 0313
00047 0516
00050 0017
00051 0244
00052 2731
00053 0010
00054 0542
00055 7700
00056 2542
00057 7200
00060 0550
00061 2200
00062 0526
00063 5032
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 67-1
FILE # 1
00064 0007
00065 2240
00066 7523
00067 0272
00070 3531
00071 0037
00072 0040
00073 3471
00074 4263
00075 4432
00076 0060
2503 0200 .ASECT SETMSG
2504 0001 FIELD 1
2505 2000 *2000
2506
2507 .NOLIST BE
2508
2509 2000 RELOC 0
2510 .IF NDF GERMAN <
2511 10000* 7740 ESYN, TEXT /? SYNTAX ERROR/
2512 10010* 7740 ENUBIG, TEXT /? BAD OR TOO BIG NUMBER/
2513 10024* 7740 EDVNEX, TEXT /? CAN'T - DEVICE DOESN'T EXIST/
2514 10044* 7740 EIOSYS, TEXT \? I/O ERROR ON SYS:\
2515 10056* 7740 EICOBG, TEXT /? INITIAL COMMAND TOO BIG/
2516 10073* 7740 EOLDVE, TEXT /? OLD VERSION OF KBM/
2517 10106* 7740 EPAUSE, TEXT /? BAD VALUE FOR PAUSE DURATION/
2518 10126* 7740 EBDCC, TEXT /? BAD COLUMN COUNT/
2519 10140* 7740 EBADHT, TEXT /? BAD HEIGHT SPECIFIED/
2520 10154* 7740 EUNKAT, TEXT \? UNKNOWN ATTRIBUTE FOR DEVICE \
2521 2174 *.-1
2522 10174* 0000 NAM1, 0
2523 10175* 0000 NAM2, 0
2524 10176* 0000 0
2525 10177* 7740 EDVRES, TEXT /? CAN'T - DEVICE IS RESIDENT/
2526 10216* 7740 EOBSHD, TEXT /? CAN'T - OBSOLETE HANDLER/
2527 10234* 7740 E2PGHN, TEXT /? CAN'T - NOT 2-PAGE HANDLER/
2528 10253* 7740 EBVELT, TEXT /? BAD VERSION LETTER/
2529 10266* 7740 EWIDTH, TEXT /? ILLEGAL WIDTH/
2530 10276* 7740 ERKL8E, TEXT /? CAN'T - MUST REASSEMBLE KL8E SOURCE/
2531 10321* 4140 EOLBAS, TEXT /! OLD BASIC/
2532 10327* 7740 ECARDC, TEXT /? UNKNOWN CARD CODE/
2533 10341* 7740 EBERR, TEXT /? BATCH INPUT ERROR/
2534 10353* 7740 EBADTB, TEXT /? TAB IS TOO LARGE/
2535 10365* 7740 EDEVC, TEXT /? BAD DEVICE CODE/
2536 10376* 7740 EZERO, TEXT /? ZERO ARGUMENT/
2537 >
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 68
FILE # 1
2538
2539
2540
2541 .IF DF GERMAN <
2542 ESYN, TEXT \? SYNTAX-FEHLER\
2543 ENUBIG, TEXT \? ZU GROSSE ODER KEINE ZAHL\
2544 EDVNEX, TEXT \? GERAET NICHT IM SYSTEM\
2545 EIOSYS, TEXT \? L/S-FEHLER AUF SYS:\
2546 EICOBG, TEXT \? 'INIT'-BEFEHL ZU LANG: 1-5 ZEICHEN\
2547 EOLDVE, TEXT \? SYSTEM IST ALT ODER BOOTSTRAP ZERSTOERT\
2548 EPAUSE, TEXT \? ZU LANGE PAUSE-ZEIT: 1-1023\
2549 EBDCC, TEXT \? ZU VIELE SPALTEN VERLANGT: 1-7\
2550 EBADHT, TEXT \? ZU GROSSE HOEHE VERLANGT: 1-127\
2551 EUNKAT, TEXT \? UNBEKANNTER BEFEHL FUER \
2552 *.-1
2553 NAM1, 0
2554 NAM2, 0
2555 0
2556 EDVRES, TEXT \? GERAET IST RESIDENT ODER MULTI8-KANAL\
2557 EOBSHD, TEXT \? HANDLER IST ZU ALT\
2558 E2PGHN, TEXT \? UNMOEGLICH - 2-SEITEN HANDLER\
2559 EBVELT, TEXT \? FALSCHE VERSIONS-BEZEICHNUNG\
2560 EWIDTH, TEXT \? ZU BREIT: 1-255 ODER MEHRFACHES VON 8\
2561 ERKL8E, TEXT \? KL8E HANDLER FALSCH\
2562 EOLBAS, TEXT \! BASIC.SV WURDE NICHT ANGEPASST\
2563 ECARDC, TEXT \? KARTEN-KODE UNBEKANNT: 26 ODER 29\
2564 EBERR, TEXT \? BATCH LESE-FEHLER\
2565 EBADTB, TEXT \? LPT-TABULATOR ZU GROSS: 1-63\
2566 EDEVC, TEXT \? 'DEVICE CODE' NICHT ERLAUBT\
2567 EZERO, TEXT \? ARGUMENT = 0\
2568 >
2569 2406 RELOC
2570 2600 PAGE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 69
FILE # 1
2571
2572
2573
2574 12600 1723 MVER, TEXT \OS/8 SET V5\
2575 2606 *.-1
2576 12606 6030 VERSL^100+PATCHL
2577 12607 0000 0000
2578 .IF NDF GERMAN <
2579 12610 2305 MHELP1, TEXT /SET DEV: [NO] ATTRIB [N]/
2580 12625 2605 MHELP2, TEXT /VERSION/
2581 12631 1005 MHELP3, TEXT /HELP/
2582 12634 0140 MGAG1, TEXT /A FUNNY THING HAPPENED TO ME ON THE WAY TO THE COMPUTER ROOM./
2583 12673 0140 MGAG2, TEXT /A PANHANDLER CAME UP TO ME AND SAID,/
2584 12716 4203 MGAG3, TEXT /"CAN YOU SPARE ME $25,000 FOR A CUP OF COFFEE?"/
2585 12746 4227 MGAG4, TEXT /"WHY SO MUCH?", I ASKED IN AMAZEMENT./
2586 12771 4224 MGAG5, TEXT /"THINGS HAVE BECOME SO AUTOMATED", HE REPLIED,/
2587 13021 4224 MGAG6, TEXT /"THAT THE ONLY WAY I CAN ORDER IT/
2588 13042 1123 MGAG7, TEXT /IS WITH A COMPUTER ORDER FORM"./
2589 >
2590 .IF DF GERMAN <
2591 MHELP1, TEXT /SETZE GERAET: [KEIN] BEFEHL [N]/
2592 MHELP2, TEXT /VERSION/
2593 MHELP3, TEXT /HILFE/
2594 MGAG1, TEXT / DDDD A TTTTT A PPPP L A N N/
2595 MGAG2, TEXT / D D A A T A A P P L A A NN N/
2596 MGAG3, TEXT / D D A A T A A P P L A A N N N/
2597 MGAG4, TEXT / D D AAAAA T AAAAA PPPP L AAAAA N NN/
2598 MGAG5, TEXT / D D A A T A A P L A A N N/
2599 MGAG6, TEXT / DDDD A A T A A P LLLLL A A N N/
2600 MGAG7, TEXT / ======================================================/
2601 >
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 70
FILE # 1
2602
2603
2604
2605 13062 5473 BRSET, -2305;SET /SE
2606 13064 5173 -2605;VERSION /VE
2607 13066 6773 -1005;HELP /HE
2608 13070 0000 0
2609
2610 13071 7401 BRIN, -377;RUBOUT
2611 13073 7561 -217;GT /^O
2612 13075 7522 -".;GT /IGNORE '.' BATCH MONITOR
2613 13077 7575 -203;CTRLC /^C
2614 13101 7566 -212;LF /LINE FEED
2615 13103 7563 -215;CR /CARRIAGE RETURN
2616 13105 7534 -"$;ESCAPE /BATCH ESCAPE=$
2617 13107 7403 -375;ESCAPE /ALTMODE
2618 13111 7402 -376;ESCAPE /ALTMODE (2ND FLAVOR)
2619 13113 7545 -233;ESCAPE /ESCAPE
2620 13115 7553 -225;CTRLU /^U
2621 13117 7600 -200;GT /IGNORE NULLS
2622 13121 7555 -223;GT /IGNORE ^S
2623 13123 0000 0
2624
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 71
FILE # 1
2625
2626
2627
2628 13124 7506 BRCOHY, -":;COLN
2629 13126 7540 -" ;COLN
2630 13130 7523 -"-;HYPH
2631 13132 0000 0
2632
2633 / LOC YES NO
2634 13133 7113 KBMTBL, AUXBUF+313; 0210; 1361
2635 13136 7114 AUXBUF+314; 1313; 2020
2636 13141 7116 AUXBUF+316; 1324; 7240
2637 13144 7117 AUXBUF+317; 4423; 3020
2638 13147 7122 AUXBUF+322; 1313; 1440
2639 13152 7024 AUXBUF+224; 7555; 7403
2640 13155 7025 AUXBUF+225; 1207; 1302
2641 13160 7026 AUXBUF+226; 7557; 7402
2642 13163 7027 AUXBUF+227; 1207; 1302
2643 13166 0000 0
2644
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 72
FILE # 1
2645
2646
2647
2648 13167 6735 CDTBL, AUXBUF+135; 0210; 1101
2649 13172 6736 AUXBUF+136; 1335; 2024
2650 13175 6740 AUXBUF+140; 1346; 7240
2651 13200 6741 AUXBUF+141; 4466; 3024
2652 13203 6744 AUXBUF+144; 1335; 1420
2653 13206 6633 AUXBUF+33; 7555; 7403
2654 13211 6634 AUXBUF+34; 5207; 5321
2655 13214 6635 AUXBUF+35; 7557; 7402
2656 13217 6636 AUXBUF+36; 5207; 5321
2657 13222 0000 0
2658 13223 7417 PSTBL, HANBUF+217; 1343; 7420
2659 13226 7420 HANBUF+220; 3264; 5250
2660 13231 7430 HANBUF+230; 5327; 5245
2661 13234 7527 HANBUF+327; 7440; 1375
2662 13237 7530 HANBUF+330; 5245; 3326
2663 13242 7531 HANBUF+331; 2301; 2275
2664 13245 7532 HANBUF+332; 5331; 4264
2665 13250 7533 HANBUF+333; 2264; 2301
2666 13253 7534 HANBUF+334; 5227; 5332
2667 13256 7542 HANBUF+342; 7410; 3326
2668 13261 7543 HANBUF+343; 7700; 5354
2669 13264 0000 0
2670 13265 7567 TABTBL, HANBUF+367; 1344; 1241
2671 13270 7570 HANBUF+370; 7040; 4264
2672 13273 7571 HANBUF+371; 0277; 1277
2673 13276 7572 HANBUF+372; 1344; 0344
2674 13301 7573 HANBUF+373; 3277; 7640
2675 13304 7574 HANBUF+374; 5324; 5367
2676 13307 0000 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 73
FILE # 1
2677
2678
2679
2680 /FIXED FOR V3D:
2681 13310 0104 LIST1, 104;105;106
2682 13313 0114 114;115;116
2683 13316 0124 124;125;126;127
2684 13322 0134 134;135;136
2685 13325 0000 0
2686
2687 13326 3203 LIST2, 3203;4007;3502
2688 13331 7514 7514;0577;3637
2689 13334 0104 0104;1211;3374;0641
2690 13340 7316 7316;3410;1376
2691
2692 13343 7735 LIST3, 7735;4076;0774
2693 13346 3314 3314;1002;0305
2694 13351 3204 3204;1273;3606;1341
2695 13355 3716 3716;1175;3401
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 74
FILE # 1
2696
2697
2698
2699 6576 DBCE= 6576
2700 6574 DBTD= 6574
2701 6577 DBSS= 6577
2702 6570 DBST= 6570
2703 6667 LIC= 6667
2704 6666 LLS= 6666
2705 6661 LSF= 6661
2706 0000 LPCI= 0000 /?????
2707 6575 LPCB= 6575
2708 6576 LPSC= 6576
2709 6572 LPSF= 6572
2710 6305 KIE2= 6305
2711 6316 TLS2= 6316
2712 6311 TSF2= 6311
2713 6325 KIE3= 6325
2714 6336 TLS3= 6336
2715 6331 TSF3= 6331
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 75
FILE # 1
2716
2717
2718
2719 /LIST FOR LPT CHANGES ; EACH 8 LONG!
2720
2721 13360 6576 LPIOTL, DBCE;CMA;DBTD;DBSS;DBST;CLA;0;0 /LP78
2722 13370 6667 LIC;NOP;LLS;NOP;LSF;CLA;0;0 /LA8A
2723 13400 0000 LPCI;NOP;LPCB;LPSC;LPSF;SKP CLA;0;0 /LX180
2724 13410 6305 KIE2;NOP;TLS2;NOP;TSF2;CLA;0;0 /SLU2
2725 13420 6325 KIE3;NOP;TLS3;NOP;TSF3;CLA;0;0 /SLU3
2726 13430 0000 SLUX, 0;NOP;0;NOP;0;CLA;0;0 /SLUX IS SET BY LPCODE
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 76
FILE # 1
2727
2728
2729
2730 13440 0000 MAIN, -0; DEVICE TTY; TTYTBL
2731 13444 7777 -1; DEVICE PTR; PTRTBL
2732 13450 7776 -2; DEVICE PTP; PTPTBL
2733 13454 7775 -3; DEVICE CDR; CDRTBL
2734 13460 7774 -4; DEVICE LPT; LPTTBL
2735 13464 7762 -16; DEVICE TC; BLATBL
2736 13470 7760 -20; DEVICE MTA; MTATBL
2737 13474 7757 -21; DEVICE TD8; BLATBL
2738 13500 7756 -22; DEVICE BAT; BLATBL
2739 13504 7755 -23; DEVICE RK05; BLATBL
2740 13510 7754 -24; DEVICE NULL; BLATBL
2741 13514 7753 -25; DEVICE RX01; BLATBL
2742 13520 7752 -26; DEVICE RL01; BLATBL
2743 13524 7747 -31; DEVICE RL01; BLATBL
2744 13530 7746 -32; DEVICE RX02; BLATBL
2745 13534 7745 -33; DEVICE VXA1; BLATBL
2746 13540 7744 -34; DEVICE VXA2; BLATBL
2747 13544 7743 -35; DEVICE VXA3; BLATBL
2748 13550 7741 -37; DEVICE TU58; BLATBL
2749 13554 7740 -40; DEVICE SI43; BLATBL
2750 13560 7737 -41; DEVICE RB01; RBXTBL
2751 13564 7736 -42; DEVICE RB07; RBXTBL
2752 13570 7735 -43; DEVICE EDOU; BLATBL
2753 13574 7734 -44; DEVICE EDIN; BLATBL
2754 13600 7730 -50; DEVICE VMT0; BLATBL
2755 13604 7727 -51; DEVICE VMT1; BLATBL
2756 13610 7726 -52; DEVICE VMT2; BLATBL
2757 13614 7725 -53; DEVICE VMT3; BLATBL
2758 13620 7724 -54; DEVICE VMT4; BLATBL
2759 13624 7723 -55; DEVICE VMT5; BLATBL
2760 13630 7722 -56; DEVICE VMT6; BLATBL
2761 13634 7721 -57; DEVICE VMT7; BLATBL
2762 13640 7720 -60; DEVICE COMM; BLATBL
2763 13644 0001 1
2764 /TABLE ENDS WITH A POSITIVE NON-ZERO NUMBER
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 77
FILE # 1
2765
2766
2767
2768 13645 4462 TTYTBL, WIDTH;TTWIDTH
2769 13647 4120 BREITE;TTWIDTH
2770 13651 4126 CODE;TTCODE
2771 13653 4253 KODE;TTCODE
2772 13655 4162 ECHO;TTECHO
2773 13657 4276 LC;TTLC
2774 13661 4245 KLEIN;TTLC
2775 13663 4355 PAYGE;TTPAGE
2776 13665 4433 TAB;TTTAB
2777 13667 4222 GAG;TTGAG
2778 13671 4361 PAUS;TTPAUS /V3D
2779 13673 4226 HGHT;TTHGHT /V3D
2780 13675 4235 HOEHE;TTHGHT
2781 13677 4406 SCOPP;TTSCOP /V3D
2782 13701 4437 VIDEO;TTSCOP
2783 13703 4133 COL;TTCOL /V3D
2784 13705 4260 KOL;TTCOL
2785 13707 4167 ESC;TTESC /V3D
2786 13711 4075 AROW;TTAROW /V3D
2787 13713 4373 PFEIL;TTAROW
2788 13715 0000 0
2789
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 78
FILE # 1
2790
2791
2792
2793 13716 4462 LPTTBL, WIDTH; LPWDTH
2794 13720 4120 BREITE; LPWDTH
2795 13722 4276 LC; LPLC
2796 13724 4245 KLEIN; LPLC
2797 13726 4317 LV8E; LPLV
2798 13730 4264 LA8A; LP8A
2799 13732 4271 LA78; LP78
2800 13734 4324 LX180; LPLX
2801 13736 4421 SLU2; LPSLU2
2802 13740 4426 SLU3; LPSLU3
2803 13742 4355 PAYGE; LPPAGE
2804 13744 4226 HGHT; LPHGHT
2805 13746 4235 HOEHE; LPHGHT
2806 13750 4433 TAB; LPTAB
2807 13752 4361 PAUS; LPPAUS
2808 13754 4414 SIMU; LPFILL
2809 13756 4075 AROW; LPAROW
2810 13760 4373 PFEIL; LPAROW
2811 13762 4167 ESC; LPESC
2812 13764 4126 CODE; LPCODE
2813 13766 4253 KODE; LPCODE
2814 13770 0000 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 79
FILE # 1
2815
2816
2817
2818 13771 4240 SYSAUX, INIT; SYSINI
2819 13773 4336 OS8; SYSOS8
2820 13775 4342 OS78; SYS78
2821 13777 4112 BLK; GENBLK
2822 14001 4103 ASS; SYSASS
2823 14003 4145 DEA; SYSDEA
2824 14005 4211 F2; F2SUB
2825 14007 4214 F4; F4SUB
2826 14011 4217 F5; F5SUB
2827 14013 0000 0
2828
2829 14014 4306 AUX, LOC;GENLOC
2830 14016 4203 FILES;GENFIL
2831 14020 4137 DATEI;GENFIL
2832 14022 4401 READO;GENREA
2833 14024 4301 LESEN;GENREA
2834 14026 4445 VERS;GENVER
2835 14030 4153 DVCO;GENDVC /V3D
2836 14032 4112 BLK;GENBLK /V3D
2837 14034 0000 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 80
FILE # 1
2838
2839
2840
2841 14035 4347 MTATBL, PARITY;MTAPAR
2842 14037 4203 FILES;MTAFIL
2843 14041 4137 DATEI;MTAFIL
2844 14043 0000 0
2845
2846 14044 4367 RBXTBL, PDP8;RBX8
2847 14046 4455 VT78;RBX7
2848 14050 0000 0
2849
2850 14051 0000 PTRTBL, ZBLOCK 4
2851 14055 0000 0
2852
2853 14056 0000 PTPTBL, ZBLOCK 4
2854 14062 0000 0
2855
2856 14063 0000 BLATBL, ZBLOCK 4
2857 14067 0000 0
2858
2859 14070 4126 CDRTBL, CODE;CDCODE
2860 14072 4253 KODE;CDCODE
2861 14074 0000 0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 81
FILE # 1
2862
2863
2864
2865 14075 0301 AROW, "A;"R;"R;"O;"W;0
2866 14103 0301 ASS, "A;"S;"S;4000+"I;4000+"G;4000+"N;0
2867 14112 0302 BLK, "B;"L;"O;"C;"K;0
2868 14120 0302 BREITE, "B;"R;"E;"I;"T;0
2869 14126 0303 CODE, "C;"O;"D;"E;0
2870 14133 0303 COL, "C;"O;"L;0
2871 14137 0304 DATEI, "D;"A;"T;"E;"I;0 /-STRUKTURIERT
2872 14145 0304 DEA, "D;"E;"A;4000+"S;4000+"S;0
2873 14153 0304 DVCO, "D;"V;"C;4000+"O;4000+"D;4000+"E;0
2874 14162 0305 ECHO, "E;"C;"H;"O;0
2875 14167 0305 ESC, "E;"S;"C;4000+"A;4000+"P;4000+"E;0
2876 14176 0305 EVEN, "E;4000+"V;4000+"E;4000+"N;0
2877 14203 0306 FILES, "F;"I;"L;"E;4000+"S;0
2878 14211 0306 F2, "F;"2;0 /FORTRAN-II
2879 14214 0306 F4, "F;"4;0 /FORTRAN-IV
2880 14217 0306 F5, "F;"5;0 /FRUN ETC
2881 14222 0307 GAG, "G;"A;"G;0
2882 14226 0310 HGHT, "H;"E;"I;"G;"H;"T;0
2883 14235 0310 HOEHE, "H;"O;0 /ALSO 'HOCH'
2884 14240 0311 INIT, "I;"N;"I;"T;0
2885 14245 0313 KLEIN, "K;"L;"E;"I;"N;0 /-SCHRIFT
2886 14253 0313 KODE, "K;"O;"D;"E;0
2887 14260 0313 KOL, "K;"O;"L;0
2888 14264 0314 LA8A, "L;"A;"8;"A;0
2889 14271 0314 LA78, "L;"A;"7;"8;0
2890 14276 0314 LC, "L;"C;0
2891 14301 0314 LESEN, "L;"E;"S;"E;0 /LESE-NUR
2892 14306 0314 LOC, "L;"O;"C;4000+"A;4000+"T;4000+"I;4000+"O;4000+"N;0
2893 14317 0314 LV8E, "L;"V;4000+"8;4000+"E;0
2894 14324 0314 LX180, "L;"X;"1;"8;"0;0
2895 14332 0317 ODD, "O;4000+"D;4000+"D;0
2896 14336 0317 OS8, "O;"S;"8;0
2897 14342 0317 OS78, "O;"S;"7;"8;0
2898 14347 0320 PARITY, "P;"A;"R;4000+"I;4000+"T;0 /ALSO 'PARITAET'
2899 14355 0320 PAYGE, "P;"A;"G;0 /ALSO 'PAGINA'
2900 14361 0320 PAUS, "P;"A;"U;"S;"E;0
2901 14367 0320 PDP8, "P;"D;"P;0 /PDP8
2902 14373 0320 PFEIL, "P;"F;"E;"I;"L;0
2903 14401 0322 READO, "R;"E;"A;"D;0 /-ONLY
2904 14406 0323 SCOPP, "S;"C;"O;"P;"E;0
2905 14414 0323 SIMU, "S;"I;"M;"U;0 /SIMULATED FORM-FEED
2906 14421 0323 SLU2, "S;"L;"U;"2;0
2907 14426 0323 SLU3, "S;"L;"U;"3;0
2908 14433 0324 TAB, "T;"A;"B;0
2909 14437 0326 VIDEO, "V;"I;"D;"E;"O;0
2910 14445 0326 VERS, "V;"E;"R;4000+"S;4000+"I;4000+"O;4000+"N;0
2911 14455 0326 VT78, "V;"T;"7;"8;0
2912 14462 0327 WIDTH, "W;"I;"D;"T;"H;0
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 82
FILE # 1
2913
2914
2915
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 83
FILE # 1
2916
2917
2918
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 84
SYMBOL TABLE
ACM1 7340 BRSET 3062 DW3 2270 GENCMN 4432
ACM2 7344 BR2 1607 EBADHT 0140 GENDVC 5054
ACM3 7346 BS 0210 EBADTB 0353 GENFIL 3551
AC0 7300 BTBLK 5241 EBDCC 0126 GENLOC 4460
AC1 7301 BTSTRP 0040+ ZSET EBERR 0341 GENREA 3533
AC100 7303 CDCODE 4637 EBVELT 0253 GENVER 3512
AC2 7326 CDRTBL 4070 ECARDC 0327 GET 2520
AC2K 7332 CDTBL 3167 ECHO 4162 GETB 2532
AC3 7325 CHANGE 4663 EDBLK 5220 GETC 3710
AC3777 7350 CHLUP 4672 EDEVC 0365 GETDEV 2240
AC4 7307 CHN 0204 EDIBAT 5210 GETIOT 4200
AC4K 7330 CHNGEX 4706 EDTNAM 5200 GETNEW 4500
AC5777 7352 CNT 0021+ ZSET EDVNEX 0024 GETSIX 0255
AC6 7327 CODE 4126 EDVRES 0177 GETTWO 0244
AC6K 7333 COL 4133 EICOBG 0056 GETYP 2302
AC7775 7346 COLN 3207 EIOSYS 0044 GOAWAY 0407
AC7776 7344 COLN2 3220 ENTRY 0010+ ZSET GOEXIT 0415
AC7777 7340 COMBIN 2337 ENUBIG 0010 GOTAL 0301
ALPHA 0272 COMONE 2356 EOBSHD 0216 GOTKEY 4030
ARG1 5040 CR 2101 EOK 4021 GOTSP 0337
AROW 4075 CRLF 2150 EOLBAS 0321 GT 2007
ASS 4103 CTOFLG 0022+ ZSET EOLDVE 0073 GTEM 4557
AUX 4014 CTRLC 0473 EON 2227 HANBUF 7200
AUXBLK 0740 CTRLO 0500 EPAUSE 0106 HELP 0530
AUXBUF 6600 CTRLS 0510 ERKL8E 0276 HGHT 4226
AUXFLG 3360 CTRLU 2025 ERROR 0400 HOEHE 4235
BACKC 0265 C026 4657 ESC 4167 HRBOOT 3421
BACKV 3440 DATEI 4137 ESCAPE 2075 HREAD 3400
BADCOD 4651 DBCE 6576 ESCBIT 0020+ ZSET HWRITE 3445
BADHIT 2755 DBLK 0026+ ZSET ESYN 0000 HYPH 3326
BADKBM 0522 DBLTST 3723 EUNKAT 0154 INCORE 2277
BADV 3531 DBRANC 1626 EVEN 4176 INIMSG 0625
BADWID 4237 DBSS 6577 EWIDTH 0266 INIT 4240
BASBLK 3134 DBST 6570 EZERO 0376 INQ 2243
BASLUK 3123 DBTD 6574 E2PGHN 0234 INTO 3252
BASNAM 3143 DCB 7760 FILES 4203 KBMTBL 3133
BATERR 0513 DCW 0015+ ZSET FIXLOC 3046 KEYSRC 4000
BATIN 5400 DCWPTR 0016+ ZSET FIXLUP 3022 KIE2 6305
BATNAM 5204 DEA 4145 FIXPTR 3045 KIE3 6325
BATOUT 7400 DEFDO 0662 FIXUP 3020 KL 4002
BIT 0223 DEFINI 0660 FLAG 0005+ ZSET KLEIN 4245
BLATBL 4063 DELAYY 2360 FLD: 0 0200 ASECT KMINIT 1077
BLK 4112 DEVNUM 0014+ ZSET FLG 0033+ ZSET KMNTRY 0400
BLKN 5015 DEVTYP 0007+ ZSET FNDTYP 3244 KODE 4253
BLKN2 5026 DGP 4546 FORT 5145 KOL 4260
BLKTWO 3455 DHI 0025+ ZSET F2 4211 KPTR 4027
BLOCK 3406 DHIT 0024+ ZSET F2SUB 5327 LA78 4271
BLOK 1464 DIGIT 0313 F4 4214 LA8A 4264
BLOK2 1512 DPRINT 0436 F4SUB 5321 LC 4276
BOL 2031 DVCERR 4105 F5 4217 LESEN 4301
BRANCH 1600 DVCO 4153 F5SUB 5324 LETTER 0303
BRCOHY 3124 DVLUP 5102 GAG 4222 LF 2104
BREITE 4120 DW1 2266 GEGEKB 0455 LFLP 2112
BRIN 3071 DW2 2267 GENBLK 1441 LIC 6667
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 84-1
SYMBOL TABLE
LINBUF 1000 MSWVAL 5144 PRINTL 0422 SYSDV 3355
LINPTR 0003+ ZSET MTAFIL 4630 PRNT 2033 SYSERR 0520
LIST1 3310 MTAPAR 4600 PSTBL 3223 SYSINI 0633
LIST2 3326 MTATBL 4035 PTPTBL 4056 SYSOS8 0600
LIST3 3343 MTATST 4624 PTR 0023+ ZSET SYS78 0607
LLS 6666 MVER 2600 PTRTBL 4051 T 0001+ ZSET
LOC 4306 NAM1 0174 P1 4710 TAB 4433
LOOK 2011 NAM2 0175 P2 4711 TABTBL 3265
LOOKUP 5032 NM1 2204 P3 4712 TECNAM 5000
LPAROW 4315 NO 0032+ ZSET RBFLAG 2074 TECO 5004
LPCB 6575 NOAROW 1435 RBXTBL 4044 TEMP 0000+ ZSET
LPCHNG 1653 NOF 3276 RBX7 3731 TLS2 6316
LPCI 0000 NOKBD 0470 RBX8 3736 TLS3 6336
LPCODE 4076 NOKEY 3340 RDAUX 0716 TRYBAT 5232
LPESC 4325 NONEX 0516 RD1 2002 TRYDIG 0277
LPFILL 4276 NOO 3344 READ 2000 TSF2 6311
LPGET 1743 NOPA 2455 READO 4401 TSF3 6331
LPHGHT 2630 NOPE 0330 REASEM 0524 TTAROW 1400
LPIOTL 3360 NOTALP 0262 RESERR 3443 TTCODE 2641
LPLC 3620 NOTEC 3700 RR 0034+ ZSET TTCOL 5114
LPLV 3605 NOTFND 1623 RUBBS 2065 TTECHO 3631
LPLX 1637 NOTYP 3350 RUBOUT 2044 TTEO 3673
LPPAGE 3600 NUCODE 0035+ ZSET SA 5031 TTESC 4035
LPPAUS 4303 NUM 0011+ ZSET SAVKN 0656 TTGAG 1515
LPSC 6576 NUMBER 2200 SAVLP 0657 TTHGHT 2600
LPSF 6572 NUMBIG 2750 SAVLUP 0647 TTLC 4053
LPSLU2 1643 NUMCHK 2731 SAVPTR 0031+ ZSET TTLP 2664
LPSLU3 1647 NUMMSK 2760 SAWNBK 3277 TTLP2 2703
LPTAB 2721 NUM2 0037+ ZSET SAWNO 3266 TTPAGE 3641
LPTOK 3500 N3 4556 SCAN 0323 TTPAUS 2400
LPTTBL 3716 ODD 4332 SCNLUP 3301 TTSCOP 3047
LPTTST 3471 ODT 4513 SCOP 0036+ ZSET TTTAB 3657
LPWDTH 3460 OEON 2512 SCOPP 4406 TTWIDT 4227
LP78 1627 OKNT 4555 SCPBIT 7726 TTYTBL 3645
LP8A 1633 OLDBAS 3140 SET 3200 TTYTST 2542
LSF 6661 OLDERR 0550 SETE 4621 TYP 0012+ ZSET
LV 0433 ONM1 2470 SETMSG 4470 ASECT TYPE 2117
LV8E 4317 ONUM 2464 SETMSW 5124 TYPEB 2144
LX180 4324 OPLP 4535 SETSTA 5400 ASECT TYPEM 2143
MAIN 3440 OPRIN 4531 SET200 3000 TYPIT 0451
MGAG1 2634 OPTEQ 4263 SIMU 4414 T2 0002+ ZSET
MGAG2 2673 OS78 4342 SLUX 3430 T3 0004+ ZSET
MGAG3 2716 OS78BT 7771 SLU2 4421 T4 0013+ ZSET
MGAG4 2746 OS8 4336 SLU3 4426 UDNAME 7741
MGAG5 2771 OUTER 2371 SPACE 0333 USR 0017+ ZSET
MGAG6 3021 PARITY 4347 SPKNT 0006+ ZSET VERS 4445
MGAG7 3042 PATCHL 0030 SRCH 4400 VERSIO 0537
MHELP1 2610 PAUS 4361 SRFND 4425 VERSL 0060
MHELP2 2625 PAUXBU 1463 SRLUP 4416 VERTST 0542
MHELP3 2631 PAYGE 4355 START 0200 VIDEO 4437
MMISC 7777 PDP8 4367 SYNTAX 0221 VLOOP 3425
MNLUP 3232 PFEIL 4373 SYSASS 5273 VNO 0030+ ZSET
MODEBA 5252 PRIN 0437 SYSAUX 3771 VNOPTR 0027+ ZSET
MOVL 0710 PRINT 0417 SYSDEA 4713 VT78 4455
/OS/8 SET FOR KBM V50 MACREL-V2C WED 10-JUN-87 PAGE 84-2
SYMBOL TABLE
WD1 2247
WD2 2250
WD3 2251
WIDTH 4462
WRAUX 0746
XR1 0000+ XSET
XR2 0001+ XSET
XR3 0002+ XSET
XR4 0003+ XSET
XSET 0004 XSECT
YESARO 1437
ZER 2370
ZERERR 0526
ZSET 0041 ZSECT
$SETSTA 0077 ZSECT