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      mvn
20           entry     mvn
21           temp      OU_MISC
22           temp      CMPC_MISC
23 
24 mvn:      push
25           eppbp     ap|2,*
26           eppbp     bp|0,*
27           adwpbp    1024,du
28           stz       OU_MISC
29           stz       CMPC_MISC
30           mvn       (),(pr),round
31           desc9fl   a,25
32           desc9fl   bp|0,23
33 
34           cmpc      (),(pr)
35           desc9a    answer,23
36           desc9a    bp|0,23
37 
38           tnz       cmpc_misc
39 
40 ou_check:
41           eax0      0
42 LOOP:     ldaq      bp|0,x0
43           cmpaq     answer,x0
44           tnz       ou_misc
45           eax0      2,x0
46           cmpx0     6,du
47           tze       validate
48           tra       LOOP
49 cmpc_misc:
50           aos       CMPC_MISC
51           tra       ou_check            "validate cmpc operation
52 
53 ou_misc:  aos       OU_MISC
54 
55 validate:
56           ldx1      OU_MISC
57           cmpx1     CMPC_MISC
58           tze       tst_mvn
59           szn       OU_MISC
60           tze       cmpc_failed
61           szn       OU_MISC
62           tnz       cmpc_mvn_failed
63 tst_mvn:  szn       OU_MISC
64           tnz       mvn_failed
65           return
66 
67 cmpc_failed:
68           mme4
69 
70 cmpc_mvn_failed:
71           mme1
72 
73 mvn_failed:
74           drl
75 
76 a:        aci       "+05242880000000000000000"
77           oct       360000000000
78           even
79 answer:   aci       "+5242880000000000000"
80           oct       060060361000
81           oct       0
82           end
83