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