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