1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) BULL HN Information Systems Inc., 1990   *
 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 
15 " HISTORY COMMENTS:
16 "  1) change(90-09-20,Bubric), approve(90-10-01,MCR8211),
17 "     audit(90-10-01,Itani), install(90-10-17,MR12.4-1044):
18 "     Add the entry point 'null_entry_'
19 "                                                      END HISTORY COMMENTS
20 
21 
22 
23 "
24 "         NOTHING -- command to return, and do nothing.
25 "
26 "         Re-coded from the pl1, for efficiency, 06/12/80 W. Olin Sibert
27 "
28 
29           segdef    nothing
30           segdef    nt
31           segdef    null_entry_
32           segdef    main_                         " for fortran refname hack
33 
34           name      nothing
35 
36 nothing:
37 nt:
38 null_entry_:
39 main_:
40           short_return
41 
42           end
43