home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / os278-src.tar.Z / os278-src.tar / ccltab.ma < prev    next >
Text File  |  1992-09-18  |  6KB  |  345 lines
  1. /CCLTAB: LEGAL COMMANDS; LOAD CCL LOADER (CCL.MA)
  2.  
  3. /
  4. /
  5. /
  6. /COPYRIGHT  (C)  1979,1982 BY DIGITAL EQUIPMENT CORPORATION
  7. /
  8. /
  9. /
  10. /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  11. /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  12. /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  13. /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  14. /
  15. /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  16. /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  17. /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  18. /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  19. /
  20. /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  21. /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  22. /DIGITAL.
  23. /
  24. /
  25. /
  26.  
  27.  
  28. /VERSION=V3B (D.H.)
  29. /1    CCL OVERLAY TABLE
  30.  
  31.     .EXTERNAL BEGLN,PRQMRK
  32.     .GLOBAL CCLBLC,NOCCL
  33.     CCLTAB="B&77^100+63    /VERSION = B3
  34.  
  35. /CCL.SV (THE IMPORTANT PART) MUST BE A SINGLE CORE-LOAD
  36. /CONTIGUOUS LOAD, BECAUSE OF THE WAY THE MONITOR LOADS IT.
  37. /FORTUNATELY, FIELD 0 STUFF OCCURS AFTER FIELD 1 STUFF IN THE
  38. /OS/8 CORE-IMAGE FORMAT.
  39. /FOR VERSION OF THE MONITOR BEFORE LEVEL A,
  40. /THE TOTAL LENGTH OF CCL.SV MUST BE LESS THAN14 BLOCKS
  41. /OR IT READS OVER 7600.
  42. /BUT NOW CCL COMES IN AND READS THE REMAINDER OF ITSELF
  43. /INTO FIELD 0.  400-777 IS IGNORED BY SKIPPING A BLOCK,
  44. /THEN THER REST OF CCL (7 PAGES) IS READ IN.
  45.  
  46.     .ASECT TABLE0
  47.     FIELD 0
  48.  
  49.     *400
  50.  
  51. /IT LOADS OVER THE SAVE, DATE OVERLAY
  52. /AND STARTS AT LOCATION 600
  53.  
  54. /KEYWORD TABLE IN 400-
  55.  
  56. /CONSISTS OF COMMANDS 2 CHARS PER LOCATION
  57. /IN 5-BIT ASCII (ONLY LETTERS ARE LEGAL)
  58. /SEPARATED FROM EACH OTHER BY 6-BIT 00'S.
  59. /EACH ENTRY STARTS ON A WORD BOUNDARY, BUT IF YOU
  60. /NEED THE ROOM, THEY NEED NOT WITH A SIMPLE FIX
  61. /BIT 40 ON MEANS THAT THE CHARACTER ISN'T REQUIRED
  62. /BUT IF THE USER DOES TYPE A LETTER, IT MUST MATCH.
  63.  
  64.  
  65. VNO,    CCLTAB
  66. KEYWRD,
  67. 0530    /EX ECUT
  68. 4543
  69. 6564
  70. 0006    /FIX DIR
  71. 1130
  72. 4451
  73. 6200
  74. 0201    /BAS IC
  75. 2351
  76. 4300
  77. 0617    /FORMAT
  78. 2215    /NO SHORT FORM FOR THIS COMMAND
  79. 0124
  80. 0002    /BO OT
  81. 1757
  82. 6400
  83. 0317    /COMPA R
  84. 1520
  85. 0162
  86. 0003    /COM PIL
  87. 1715
  88. 6051
  89. 5400
  90. 0317    /COP Y
  91. 2071
  92. 0015    /MEM ORY
  93. 0515
  94. 5762
  95. 7100
  96. 0504    /ED IT
  97. 5164
  98. 0003    /CREA T(E)
  99. 2205
  100. 0164
  101. 0003    /CREF
  102. 2205
  103. 0600
  104. 0401    /DA TE
  105. 6445
  106. 0004    /DEL ETE
  107. 0514
  108. 4564
  109. 4500
  110. 0405    /DE A
  111. 4100
  112. 0411    /DIR ECT
  113. 2245
  114. 4364
  115. 0023    /SETU(P)
  116. 0524
  117. 2500
  118. 1005    /HE LP
  119. 5460
  120. 0006    /FU TI(L)    ADDED FOR OS78 V4
  121. 2564
  122. 5100
  123. 2224    /RT FL(OP)    WAS MACREL AND LINK IN V3.
  124. 4654
  125. 0014    /LI ST
  126. 1163
  127. 6400
  128. 1417    /LO AD
  129. 4144
  130. 0015    /MAK E
  131. 0113
  132. 4500
  133. 1501    /MAP
  134. 2000
  135. 1525    /MUNG
  136. 1607
  137. 0020    /PAL
  138. 0114
  139. 0020    /PI P        /WAS PUNCH
  140. 1160
  141. 0022    /REN AME
  142. 0516
  143. 4155
  144. 4500
  145. 2720    /WP FLOP     /WAS CA NCEL
  146. 4654
  147. 5760
  148. 0023    /SET
  149. 0524
  150. 0023    /SQ UISH
  151. 2165
  152. 5163
  153. 5000
  154. 2325    /SU BMIT
  155. 4255
  156. 5164
  157. 0024    /TE CO
  158. 0543
  159. 5700
  160. 2431    /TY PE
  161. 6045
  162. 0014    /LINK        WAS REQ U
  163. 1116
  164. 1300
  165. 1501    /MAC RE(L)    WAS QUEUE
  166. 0362
  167. 5400
  168. 2501    /UA
  169. 0025    /UB
  170. 0200
  171. 2503    /UC
  172. 0026    /VE R
  173. 0562
  174. 0032    /ZERO
  175. 0522
  176. 1700
  177. 2205    /RE AD
  178. 4144
  179. 0015    /ME NU
  180. 0556
  181. 6500
  182. 1517    /MO UNT
  183. 6556
  184. 6400
  185. 4000    /@
  186. 0000
  187.     ZBLOCK 600-.
  188.     IFDEF XYZMCR <
  189.  
  190. THIS IS THE TECO MACRO WHICH WAS USED TO CREATE THE ABOVE TABLE:
  191.  
  192.  
  193. HKGYJ2SR0,.KHXAHKMA
  194. TYPE COMMANDS, SPACE SEPARATES MANDATORY PART FROM
  195. OPTIONAL PART, CR TERMINATES COMMANDS, ^Z TERMINATES ALL.
  196. **  NO EDITING **
  197. HKHXYHXN0UO0UB0UN
  198. !CHLP!^TULQL-32"EOBLANK'QL-13"EOCR'QL-26"EOEND'
  199. !CHLP0!QL&63+QBUT QT/8UXQX+48IQT-(8*QX)+48I
  200. QL"NZJ.UZGNQLIQZJXNK%N'
  201. %O&1"NOCHLP' QN-3"LZUH'I
  202. OCHLP
  203. !BLANK! 32UBZJ.UZGNQLIQZJXNK%NOCHLP
  204. !CR! QHJ    /GNZJXN0UN0UB0ULOCHLP0
  205. !END!I00
  207.  
  208.  
  209.     >
  210.     *600
  211.  
  212.     JSBITS=7746
  213.     SYSTEM=22
  214.     PRMES=330
  215.     ERRET=33    /THESE ARE LOCATIONS FROM OS/8 MONITOR
  216.  
  217. /RUNS IN FIELD 0 ONLY.
  218.  
  219. ENTRY,    0        /INITIALLY 0 MEANS 'EX' COMMAND
  220. LINPTR,    JMP ENTREE    /OS/8 JUMPS HERE (ACTUALLY TO 600)
  221. TEMM,
  222. TEKLDG,    ISZ CCLNHR    /TECO 'EG' JUMPS HERE
  223.     DCA I (BEGLN    /ZERO COMMAND LINE
  224.     JMP TEGO    /FIRST WE DISABLE CALLS TO MONITOR
  225. ENTREE,    TAD (7605
  226.     DCA ERRET
  227.     TAD SYSTEM
  228.     DCA MYSYS
  229.     JMS FINDIT    
  230.     SPA CLA        /WAS IT A LEGAL COMMAND?
  231.     JMP I (PRQMRK    /NO
  232. TEGO,    TAD (6003    /YES
  233.     DCA I (JSBITS
  234.     CIF 10
  235.     JMS I MYSYS    /CALL USR AND LOCK IN CORE
  236.     10
  237.     CLA IAC
  238.     CIF 10
  239.     JMS I (200
  240.     2
  241. CCLBLC,    CCLSV
  242. CCLEN,    0
  243. CCLNHR,    JMP NOCCL    /ISZ'ED IF KBM NOT IN MEMORY
  244.     CLA IAC
  245.     TAD CCLBLC
  246.     DCA CCLRDB
  247.     JMS I (7607
  248. CCLCCW,    2711        /READ 27 PAGES OF CCL.SV
  249. CCLSTR,    2000
  250. MYSYS,
  251. CCLRDB,    7700        /INITIALLY POINTS TO USR
  252.     JMP NOCCL
  253.     CIF CDF 10
  254.     JMP I CCLSTR
  255. CCLSV,    FILENAME CCL.SV
  256.  
  257. NOCCL,    CLA SKP
  258.     JMP I (7605    /GO BACK TO MON IF CCL NOT FOUND ON TECO EG COMMAND
  259.     JMS I (PRMES    /PRINT ERROR MESSAGE OTHERWISE
  260.     TEXT    /NO CCL!/
  261.     0
  262.  
  263. /FINDS IF INPUT LINE STARTS WITH A COMMAND
  264. /LEAVES ENTRY # IN AC, -1 IF NOT FOUND
  265. /ENTRIES START AT ENTRY 0.
  266. /CALLABLE FROM ANY FIELD
  267.  
  268. FINDIT,    0
  269. MORE,    TAD (BEGLN-1
  270.     DCA LINPTR
  271.     ISZ LINPTR
  272.     TAD I LINPTR
  273.     TAD (-240
  274.     SNA CLA
  275.     JMP .-4
  276.     JMS GETKAR
  277.     JMP ENDOFT    /NO MATCH
  278.     JMP INTO
  279. FNLUP,    TAD I LINPTR
  280.     TAD (-301
  281.     STL
  282.     TAD (-32
  283.     SNL CLA
  284.     JMP NOLET    /NOT A LETTER
  285.     JMS GETKAR
  286.     JMP MATCH
  287. INTO,    CIA
  288.     TAD I LINPTR
  289.     AND (37        /5-BIT ASCII
  290.     ISZ LINPTR
  291.     SNA CLA        /DO THEY MATCH?
  292.     JMP FNLUP    /YES
  293. NOMT,    JMS GETKAR
  294.     SKP
  295.     JMP .-2        /SCAN TO NEXT ENTRY
  296.     ISZ ENTRY
  297.     JMP MORE
  298.  
  299. NOLET,    JMS GETKAR
  300.     JMP MATCH
  301.     CLA
  302.     ISZ SIGNIF
  303.     JMP NOMT
  304. MATCH,    TAD ENTRY
  305.     SKP
  306. ENDOFT,    STA
  307. RETCIF,    CDF 0        /RETURN TO CALLING FIELD (MAY BE OVERLAID)
  308.     JMP I FINDIT
  309. KPTR,    KEYWRD
  310.  
  311. HALF,    -1        /0 MEANS LEFT HALF
  312. SIGNIF,    0        /1 MEANS 40 BIT ON WHICH MEANS CHAR IS SIGNIF ONLY IF PRESENT
  313.  
  314. /GETKAR GETS NEXT 5-BIT CHAR, LEAVES IT IN AC
  315. /SETS SIGNIF TO -1 IF 40 BIT WAS PRESENT
  316. /TAKES RETURN 1 IF CHAR IS 0
  317. /TAKES RETURN 2 OTHERWISE
  318.  
  319. GETKAR,    0
  320.     ISZ HALF
  321.     JMP RTHALF
  322.     TAD I KPTR
  323.     RTR
  324.     RTR
  325.     RTR
  326.     JMP INSIDE
  327. RTHALF,    STA
  328.     DCA HALF
  329.     TAD I KPTR
  330.     ISZ KPTR
  331. INSIDE,    AND (77
  332.     DCA TEMM
  333.     TAD TEMM
  334.     AND X40
  335. X40,    SZA CLA
  336.     STA
  337.     DCA SIGNIF
  338.     TAD TEMM
  339.     SZA
  340.     ISZ GETKAR
  341.     AND (37
  342.     JMP I GETKAR
  343.     PAGE
  344.  
  345.