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 cmpc7
20 entry cmpc7
21
22 cmpc7: push
23 eppbp ap|2,*
24 eppbp bp|0,*
25 adwpbp 1017,du
26 eppab CONST
27 cmpc pr,pr
28 desc9a bp|0,32
29 desc9a ab|0,32
30 tnz fail
31 return
32
33 fail: oct 0 "ZOP
34
35 org 1017
36 CONST: oct 042041173074,076101102103,104105106107,110111112113
37 oct 114115116117,120121122123,124125126127,130131132012
38
39 "force fill to page bound for next test
40 bss ,1020
41
42 end