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 prrl,prrl,fill040
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