TITLE TEST

A=1 ? B=2 ? P=17

; Include wonderful network routines

FTHST3==-1				; use HOSTS3
NIORTS==-1				; include I/O routines
ERRHAN==-1				; include automagic error handling
ERRINS==IF1,[0] .ELSE JRST CONERR	; error instruction
ERRTNS==-1				; include error routines
HSTTAB==-1				; include host table routines
MRKCHR==-1				; read mark bytes as characters

.INSRT NETWRK.MID[S,NET]

PDL:	BLOCK 50
START:	MOVE P,[PDL(-50)]
	PUSHJ P,MAPHST
	MOVE 0,[1200,,13]
	PUSHJ P,HSTNUM
	 JFCL
	MOVE 0,[4412,,302]
	PUSHJ P,HSTNUM
	 JFCL
	MOVEI 0,[ASCIZ/SU-AI/]
	PUSHJ P,HSTNAM
	 JFCL
	 JFCL
	PUSHJ P,HSTNXA
	 JFCL
	PUSHJ P,HSTNXA
	 JFCL
	PUSHJ P,UNMHST
CONERR:	CALLI 12
	END START