4 /COPYRIGHT (C) 1979 BY DIGITAL EQUIPMENT CORPORATION
8 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
9 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
10 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
11 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
13 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
14 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
15 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
16 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
27 \f/1 CCL OVERLAY TABLE
29 .EXTERNAL BEGLN,PRQMRK
33 /CCL.SV (THE IMPORTANT PART) MUST BE A SINGLE CORE-LOAD
34 /CONTIGUOUS LOAD, BECAUSE OF THE WAY THE MONITOR LOADS IT.
35 /FORTUNATELY, FIELD 0 STUFF OCCURS AFTER FIELD 1 STUFF IN THE
36 /OS/8 CORE-IMAGE FORMAT.
37 /FOR VERSION OF THE MONITOR BEFORE LEVEL A,
38 /THE TOTAL LENGTH OF CCL.SV MUST BE LESS THAN14 BLOCKS
39 /OR IT READS OVER 7600.
40 /BUT NOW CCL COMES IN AND READS THE REMAINDER OF ITSELF
41 /INTO FIELD 0. 400-777 IS IGNORED BY SKIPPING A BLOCK,
42 /THEN THER REST OF CCL (7 PAGES) IS READ IN.
49 /IT LOADS OVER THE SAVE, DATE OVERLAY
50 /AND STARTS AT LOCATION 600
52 /KEYWORD TABLE IN 400-
54 /CONSISTS OF COMMANDS 2 CHARS PER LOCATION
55 /IN 5-BIT ASCII (ONLY LETTERS ARE LEGAL)
56 /SEPARATED FROM EACH OTHER BY 6-BIT 00'S.
57 /EACH ENTRY STARTS ON A WORD BOUNDARY, BUT IF YOU
58 /NEED THE ROOM, THEY NEED NOT WITH A SIMPLE FIX
59 /BIT 40 ON MEANS THAT THE CHARACTER ISN'T REQUIRED
60 /BUT IF THE USER DOES TYPE A LETTER, IT MUST MATCH.
66 0002 /BA CKSP OR TER MIN
197 THIS IS THE TECO MACRO WHICH WAS USED TO CREATE THE ABOVE TABLE:
200 HKGYJ2S
\ 1\eR0,.KHXAHKMA
201 \ 1TYPE COMMANDS, SPACE SEPARATES MANDATORY PART FROM
202 OPTIONAL PART, CR TERMINATES COMMANDS, ^Z TERMINATES ALL.
205 !CHLP!^TUL
\eQL-32"EOBLANK
\e'QL-13"EOCR
\e'QL-26"EOEND
\e'
206 !CHLP0!QL&63+QBUT
\e QT/8UX
\eQX+48I
\eQT-(8*QX)+48I
\e
207 QL"NZJ.UZGNQLI
\eQZJXNK%N
\e'
208 %O&1"NOCHLP
\e' QN-3"LZUH'I
210 !BLANK! 32UBZJ.UZGNQLI
\eQZJXNK%N
\eOCHLP
\e
212 \ 1QHJ /
\eGNZJXN0UN0UB0ULOCHLP0
\e
223 ERRET=33 /THESE ARE LOCATIONS FROM OS/8 MONITOR
225 /RUNS IN FIELD 0 ONLY.
227 ENTRY, 0 /INITIALLY 0 MEANS 'EX' COMMAND
228 LINPTR, JMP ENTREE /OS/8 JUMPS HERE (ACTUALLY TO 600)
230 TEKLDG, ISZ CCLNHR /TECO 'EG' JUMPS HERE
231 DCA I (BEGLN /ZERO COMMAND LINE
232 JMP TEGO /FIRST WE DISABLE CALLS TO MONITOR
238 SPA CLA /WAS IT A LEGAL COMMAND?
243 JMS I MYSYS /CALL USR AND LOCK IN CORE
251 CCLNHR, JMP NOCCL /ISZ'ED IF KBM NOT IN MEMORY
256 CCLCCW, 2711 /READ 27 PAGES OF CCL.SV
259 CCLRDB, 7700 /INITIALLY POINTS TO USR
263 \fCCLSV, FILENAME CCL.SV
266 JMP I (7605 /GO BACK TO MON IF CCL NOT FOUND ON TECO EG COMMAND
267 JMS I (PRMES /PRINT ERROR MESSAGE OTHERWISE
270 \f/FINDS IF INPUT LINE STARTS WITH A COMMAND
271 /LEAVES ENTRY # IN AC, -1 IF NOT FOUND
272 /ENTRIES START AT ENTRY 0.
273 /CALLABLE FROM ANY FIELD
291 JMP NOLET /NOT A LETTER
298 SNA CLA /DO THEY MATCH?
302 JMP .-2 /SCAN TO NEXT ENTRY
314 RETCIF, CDF 0 /RETURN TO CALLING FIELD (MAY BE OVERLAID)
317 \fHALF, -1 /0 MEANS LEFT HALF
318 SIGNIF, 0 /1 MEANS 40 BIT ON WHICH MEANS CHAR IS SIGNIF ONLY IF PRESENT
320 /GETKAR GETS NEXT 5-BIT CHAR, LEAVES IT IN AC
321 /SETS SIGNIF TO -1 IF 40 BIT WAS PRESENT
322 /TAKES RETURN 1 IF CHAR IS 0
323 /TAKES RETURN 2 OTHERWISE
projects / pdp8.git / blob