;	FF	-	send FF to printer
; 
;       Copyright [c] Noel Alaska Systems Technology, 1983.

VMAJOR	=	1.			; version equates
VMINOR	=	0.
VSUB	=	0.
VEDIT	=	1.			; CHANGE EACH EDIT <-----------
VWHO	=	0.
 
        SEARCH  SYS                     ; AMOS librarys
        SEARCH  SYSSYM
	SEARCH	TRM
	SEARCH	MFN			; my library
 
        DSECT
        .=0				; define impure area
ODDB:	BLKB	D.DDB			; TERMINAL DDB 
        EVEN
IMPURE  =       .
        .=0
        PSECT
 

BEGIN:  PHDR    -2,-1,PH$REE!PH$REU	; OK TO RUN LOGGED OUT
        GETIMP  IMPURE,A5               ; GET MEMORY

	BYP				; SKIP BLANKS 
	LIN				; ANYTHING ENTERED? 
	BNE	1$			;  YES - TRY IT 
	LEA	A2,DFAULT		;  NO  - USE DEFAULT
 
1$:	FSPEC	ODDB(A5),TRM		; GET TERMINAL NAME 
	CALL	TRMSRH			; FIND TRMDEF(A5) 
	MOV	A3,D7			; TRMDEF FOUND? 
	BEQ	HELP 

	CLRB	ODDB+D.FLG(A5)		; OPEN TERMINAL
	MOVW	#[TRM],ODDB+D.DEV(A5) 
	INIT	ODDB(A5) 
	OPENO	ODDB(A5) 

	LEA	A1,TOSEND		; SEND THE STRING
2$:	MOVB	(A1)+,D1
	BEQ	DONE
	FILOTB	ODDB(A5)
	BR	2$

DONE:	CLOSE	ODDB(A5)		; CLOSE TERMINAL
	EXIT

HELP:	TYPECR	<?terminal not found> 
	EXIT 

; ----- TRMSRH -- LOCATE A TERMINAL DEFINITION 
TRMSRH:	MOV	TRMDFC,A3	;INDEX THE TERMINAL DEFINITION CHAIN 
TMSA:	CMM	ODDB+D.FIL(A5),4(A3) ;COMPARE TERMINAL DEFINITION NAME 
	BNE	TMSB		;  TO FILENAME IN ODDB(A5) 
	ADD	#10,A3		;ADVANCE TO TERMINAL DEFINITION BASE 
	RTN 
TMSB:	MOV	@A3,A3		;NEXT TERMINAL IN CHAIN 
	MOV	A3,D7
	BNE	TMSA		;  UNLESS END OF CHAIN 
	RTN 
 
DFAULT:	ASCII	/TRM:KB02.TRM /
	BYTE	15,12,0

TOSEND:	BYTE	15,12,14,0

	EVEN 
	END