1 
 2 /* BEGIN INCLUDE ..................imp_host_table .................... */
 3 
 4 /* For IMP DIM */
 5 
 6 /* Following table keeps the most recent status of hosts on the ARPA Network. */
 7 
 8 dcl 1 imp_data$host external aligned,
 9     2 marked_up (1: 288) bit (1) unaligned,                 /* If there is any link entry that thinks
10                                                                this host is up then that bit is one. */
11     2 marked_down (1: 288) bit (1) unaligned,               /* If there is any link entry that thinks
12                                                                this host is down then this bit is one. */
13     2 status_known (1: 288) bit (1) unaligned,              /* on in case host status is known */
14     2 status (1: 288) bit (1) unaligned;                    /* On if host is up */
15 
16 /* END INCLUDE.....................imp_host_table..................... */