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 
20           name      mvnoosb
21           entry     mvnoosb
22 mvnoosb:
23           push
24           eppab     ap|2,* "get ptr to temp seg
25           eppab     ab|0,*
26           mvn       (),(pr)
27           desc9ns   foo,20
28           desc9ns   ab|2046,20
29           return
30 foo:      aci       "12345678901234567890"
31           end