.TITLE	IMXGWT - PORT EXPANDER GATEWAY TABLES

; The way this works is that the table at GWTAB contains the
; number of nets it's good for in word 0, and in words 1-N
; the IMP/HOST address of the gateway for net I.



	.ENABL	ISD

	.GLOBL	GWTAB

	NNETS = 127.



	.CSECT	GWTAB, STATIC

GWTAB:	.WORD	NNETS
	.BLKW	NNETS

	.CSECT



	.MACRO	GWAY	NET,HOST,IMP

; NET - NET THAT THIS IS THE GWAY TO
; IMP - IMP NO OF GATEWAY
; HOST - HOST ON IMP


	.CSECT	GWTAB

	.IF GT, <NET - NNETS>
	.ERROR	NET NUMBER TOO HIGH
	.ENDC

	. = <GWTAB + <NET * 2>>

	.IF GT, <IMP - 377>
	.ERROR	IMP NUMBER TOO BIG TO GO INTO ONE BYTE
	.ENDC
	.BYTE	IMP

	.IF GT, <HOST - 377>
	.ERROR	HOST NUMBER TOO BIG TO GO INTO ONE BYTE
	.ENDC
	.BYTE	HOST

	.CSECT

	.ENDM



; Actual gateway entries.

	GWAY	1, 02, 05	; BBN-PRNET
	GWAY	2, 00, 46	; SF-PR1
	GWAY	3, 03, 110	; RCCNET
	GWAY	4, 03, 50	; SATNET
	GWAY	6, 01, 63	; SF-PR2
	GWAY	10, 03, 51	; CLARKNET
	GWAY	11, 00, 46	; BRAGG-PRNET
	GWAY	13, 03, 50	; UCLNET
	GWAY	25, 03, 24	; EDN
	GWAY	27, 03, 51	; MITRE
	GWAY	30, 03, 110	; BBN-LOCALNET
	GWAY	31, 03, 50	; RSRE
	GWAY	33, 02, 05	; NOSC
	GWAY	35, 03, 21	; COMSAT
	GWAY	37, 03, 50	; SAT-TEST
	GWAY	43, 03, 50	; NULL
	GWAY	51, 03, 110	; BBN-TEST
	GWAY	60, 03, 50	; NDRE-RING
	GWAY	62, 03, 50	; ?
	GWAY	106, 02, 54	; MIT FAKE NET

	.END