.DEFIN SELOUT
	.GLOBL %AT,%SL,%O0
	TAD (-1); JMS* %SL; XCT %O0	/ STREAMS 1:4 NOT 0:3
	.ENDM
/
	.DEFIN CLOSE,STREAM
	.GLOBL %AT,%CL; %T1 STREAM
	.IFZER STREAM; .GLOBL %I0; LAC %I0; .ENDC
	.IFNZR STREAM; .GLOBL %O0; LAC %O0; .ENDC
	JMS* %CL
	.ENDM
/
/
/	** PART 5 (MODIFIED) **
	.IFUND NOTRACE
	.DEFIN .TRACE
	.GLOBL %I9; JMS* %I9
	.ENDM
	.ENDC
	.IFDEF NOTRACE
	.DEFIN .TRACE
	.GLOBL %I9; NOP
	.ENDM
	.ENDC
/
/
	.DEFIN STOP
	CLOSE OUTPUT
	.EXIT
	.ENDM