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