.title	TTYHDL

	.inclu	"b:global"

	sect	code


;+
; S{tt TERMINALTYP
;-

oTTSET:	REPARS	#3, #VT
	bcs	Fusk
	mov	#4, r0
	call	FixLst
	mov	Found(r0), r1
	call	GetAdr
	call	MovTTD
Fusk:	rts	pc

;+
; S{tt AUTOMATISK TERMINALTYP
;-

oTTPER:	call	MtxBgn

	gos	GetRec,	<#1, MyRec, #FB1,>
	mov	r1, r4
	cmp	Level, #3
	beq	10$
	clr	114(r4)
	br	20$
10$:	mov	#4, r0
	call	FixLst
	mov	Found(r0), r1
	call	GetAdr
	mov	(r1), 114(r4)
20$:	gos	put,<#1,,#FB1>

	call	MtxEnd

	rts	pc

oTTDef:	bitb	#xDETT, MyPriv+1
	bne	1$
	Write	#DHIR
	br	999$

1$:	mov	#LSTGRP, r1
	call	GetAdr
	cmp	#-1, 2(r1)
	bne	3$
	
	Write	#MAF
	br	999$

3$:	RePars	#2, #TTYNam
	bcs	999$

	mov	Strs+2, r1
	mov	Strs+4, r0
	sub	r1, r0
	dec	r0
	cmp	#15., r0
	bhis	5$
	Write	#Nafl
	br	999$

5$:	call	AmbTst
	bcc	7$
	Write	#Amb
	br	999$
	
7$:	mov	#FB1, r2
	mov	#4, (r2)+
	mov	Me, (r2)+
	clr	(r2)+			; Flaggord.
	movb	r0, (r2)+
10$:	movb	(r1)+, (r2)+
	sob	r0, 10$
	mov	#FB1, r1
	clr	26(r1)			; Rader & kolumner.
	clr	30(r1)			; Antal rader
	call	SETDEF
	call	pcrlf
	mov	#FB3, r3

	call	MtxBgn

	gos	Get,	<#1, #2, r3, #1,>
	inc	30(r3)
	mov	30(r3), r4
	mov	r4, r0
	mov	#FB2, r1
	call	CreIn4
	mov	r1, r5
	mov	#FB1, r2
	mov	#40, r0
20$:	mov	(r2)+, (r1)+
	sob	r0, 20$
	mov	#FB3, r3
	gos	put,	<#4,,#FB2>
	gos	LNKGRP,	<r4, r5, #FB1>	; Put list in memory.
	gos	put,	<#1,,#FB3>	; Put INFO.

	call	MtxEnd

999$:	rts	pc


Text	TTYNam,<"Namn p} terminalen">
Text	VT,<"Vilken terminaltyp">

	.end