FIVE	START 	0x1000
		LDF 	BETA
		DIVF	GAMMA
		FIX
		STA		ALPHA
ALPHA	RESW	1
BETA	RESW	1
GAMMA	RESW	1
		END	  	PROG

SEVEN	START	0x1000
LDX		INIT
LDT		TEST
LDCH	STRING
LOOP	STCH	STRING,X
		TIXR	T
		JLT		LOOP
INIT	WORD	0
TEST	WORD	20
STRING	RESB	20
		END		SEVEN


TWELVE	START	0x1000
		JSUB	COPY
		END		TWELVE

COPY

		LDX		INIT
RLOOP	TD		F3
		JEQ 	RLOOP
		RD		INDEV
		CMP 	EOF
		JEQ		OUTLOOP
		STCH	DATA,X
		TIX		MAXLEN
		JLT		RLOOP
		STX		LEGTH

BUFFER	RESB 	100
LENGTH	RESW	0
INIT	WORD	0
MAXLEN	WORD	100
INDEV	BYTE
EOF		BYTE	C'\0'
		RSUB


THIRTEEN	START	0x1000
			JSUB	COPY
			END		THIRTEEN

COPY	LDX		#0
		LDS		#0
		LDT		#100
RLOOP	TD		F3
		JEQ 	RLOOP
		RD		INDEV
		CMPR 	A, S
		JEQ		OUTLOOP
		STCH	DATA,X
		TIXR	T
		JLT		RLOOP
		STX		LEGTH

BUFFER	RESB 	100
LENGTH	RESW	0
INDEV	BYTE
		RSUB