1 " ******************************************************
2 " * *
3 " * *
4 " * Copyright c 1972 by Massachusetts Institute of *
5 " * Technology and Honeywell Information Systems, Inc. *
6 " * *
7 " * *
8 " ******************************************************
9
10 " ******************************************************
11 " * *
12 " * *
13 " * Copyright, C Honeywell Information Systems *
14 " * Inc., 1980. *
15 " * *
16 " * *
17 " ******************************************************
18
19 name cmpc
20 entry cmpc
21 temp loop_cnt
22
23 cmpc:
24 push
25 stz loop_cnt
26 again:
27 lda =o20,dl
28 ldq =o400,dl
29 cmpc rl,rl,fill040
30 desc9a lookup,ql
31 desc9a data,al
32 tnz bad
33 aos loop_cnt
34 lda loop_cnt
35 cmpa =o400000,dl
36 tnz again
37 return
38 bad:
39 oct 0 "ZOP
40 even
41 data:
42 aci "objectname "
43 aci "retain "
44 aci "indirect "
45 aci "delete "
46 aci "no_link "
47 aci "synonym "
48 aci "global "
49 aci "table "
50 aci "Objectname "
51 aci "Addname "
52 aci "Global "
53 aci "Order "
54 aci "Force_Order "
55 aci "No_Old_Alm "
56 aci "No_Table "
57 even
58 lookup:
59 aci "objectname "
60 aci " "
61 aci " "
62 aci " "
63 aci " "
64 aci " "
65 aci " "
66 aci " "
67 aci " "
68 aci " "
69 aci " "
70 aci " "
71 aci " "
72 aci " "
73 aci " "
74 aci " "
75 end