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      sreg
20           entry     sreg
21           temp8     regs
22 
23 sreg:     push
24           lda       regs
25           tra       label
26 
27           org       1024-3
28 label:    nop
29           nop
30           sreg      regs
31           nop
32           return
33 
34 "force fill to page bound for next test case 'test_ci
35           bss       ,1018
36 
37           end