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      tmlr
20           entry     tmlr
21           segdef    tmlr_data
22 
23 tmlr:     push
24 
25           eppbp     tmlr_data
26           lda       ap|6,*
27           ldq       ap|6,*
28           eppab     ap|8,*
29           eppab     ab|0,*
30           adwpab    4096+1024-11,du
31           lxl0      ap|2,*
32           a9bd      ab|0,x0
33           spriab    ap|4,*
34           mlr       (pr,rl),(pr,rl),fill(040)
35           desc9a    bp|0,al
36           desc9a    ab|0,ql
37 
38           return
39 
40 
41 tmlr_data:
42           aci       "0.01.012.0123.01234.012345.0123456.01234567.012345678.0123456789.0123456789|||"
43 
44           end