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           name      mask_instruction
12 
13 
14           entry     smcm
15           entry     rmcm
16           entry     staq
17           entry     ldaq
18 
19 " ^L
20 
21 smcm:     lda       smcm_instruction
22           sta       ap|2,*
23           short_return
24 
25 
26 rmcm:     lda       rmcm_instruction
27           sta       ap|2,*
28           short_return
29 
30 
31 staq:     lda       staq_instruction
32           sta       ap|2,*
33           short_return
34 
35 
36 ldaq:     lda       ldaq_instruction
37           sta       ap|2,*
38           short_return
39 
40 
41           inhibit   on        <+><+><+><+><+><+><+><+><+><+><+><+>
42 smcm_instruction:
43           smcm      ab|0,*
44 
45 rmcm_instruction:
46           rmcm      ab|0,*
47 
48 staq_instruction:
49           staq      ab|0
50 
51 ldaq_instruction:
52           ldaq      ab|0
53           inhibit   off       <-><-><-><-><-><-><-><-><-><-><-><->
54 
55 
56 
57           end