1 " ***********************************************************
2 " * *
3 " * Copyright, C Honeywell Bull Inc., 1987 *
4 " * *
5 " * Copyright, C Honeywell Information Systems Inc., 1982 *
6 " * *
7 " * Copyright c 1972 by Massachusetts Institute of *
8 " * Technology and Honeywell Information Systems, Inc. *
9 " * *
10 " ***********************************************************
11
12 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
13 "
14 " dn355_util: stuff for dn355 best done in ALM.
15 "
16 " compute_parity: compute odd parity on word supplied
17 " by caller pcw and set bit 22 in the word
18 " if necessary to make odd parity
19 "
20 "
21 " Created for new tty DIM on 01/13/75 by Mike Grady.
22 "
23 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
24
25 name dn355_util
26
27 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
28 "
29 " COMPUTE_PARITY ENTRY
30 "
31 " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " " "
32
33
34 segdef compute_parity
35
36 compute_parity:
37 lda ap|2,* get word to compute parity on
38 gtb 0 calculate parity on it
39 ana 1,dl test for odd or even
40 tnz 3,ic odd
41 lda =o020000,dl set parity bit bit 22
42 orsa ap|4,* ..
43 short_return
44
45 end