; need outi.casl
MAIN	START
	LAD GR1,#8000
    CALL OUTI
FIN	RET
	END