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      tct
20           entry     tct
21 
22 
23 tct:      push
24           eppab     string
25           eppbp     ap|2,*
26           eppbp     bp|0,*
27 
28           tct       (pr),()
29           desc9a    ab|0,168
30           arg       table-*,ic
31           arg       bp|2048
32 
33           return
34 
35 string:   aci       "when in the course of human events it becomes necessary"
36           aci       "when in the course of human events it becomes necessary"
37           aci       "when in the course of human events it becomes necessary"
38 
39           bss       ,1515     "was an org         1561+5
40 table:    oct       000001002003
41           oct       000001002003
42           bss       ,476
43 
44           end