; AIM V1A-QDX  Edit #44  25-Feb-82  Autor: -tf-  File: AIM.MAC
; ===
;
; AIM-TRANSPARENT-KONSOLE, ^Z ==>EOF
;
	.NLIST SYM,TOC
;
;
	.MCALL	.FETCH,.WRITE,.WAIT,.ENTER,.WRITW
	.MCALL	.PRINT,.EXIT,.CLOSE,.QSET
;
	PRVEC=70		; PC
	PRCSR=177550		; PC
;
;	PRVEC=160		; DL
;	PRCSR=176560		; DL
;
	PRIN=PRCSR+2
	PROUT=PRCSR+6
;
;
START:	.PRINT	#IMSG		; INTRODUCTION
	MOV	@#60,SAV60	; KEYBOARD INTERRUPT
	MOV	#TTINT,@#60
;
	MOV	#INT,@#PRVEC	; INITIALIZE INTERRUPTS
	MOV	#340,@#PRVEC+2
	TST	@#PRIN		; CLEAR FLAG
	MOV	#100,@#PRCSR	; INTERRUPT ENABLE
;
LOOP:	CMP	LSTCHR,#32	; ^Z
	BNE	LOOP
;
	CLR	@#PRCSR		; STOP INTERRUPTS
	.PRINT	#FIN
	MOV	SAV60,@#60
	.EXIT
;
;
INT:	MOVB	@#PRIN,@#177566	; MUSS SCHNELLER SEIN ALS LINK, KEIN XOFF !
	RTI
;
TTINT:	MOVB	@#177562,LSTCHR
	CMP	LSTCHR,#32	; ^Z
	BEQ	1$
	MOVB	LSTCHR,@#PROUT	; NUR 'LANGSAM' TIPPEN !
1$:	RTI
;
SAV60:	0
;
LSTCHR:	0
;
	.NLIST	BEX
	.ENABL	LC
;
FIN:IMSG:	.ASCIZ	/AIM-transparent-Konsole/
	.EVEN
;
	.END START

            