-3,3
.IDENT /V7.8/
-6,6
; Version 7.8 22-Oct-83
-204,204
	.MCALL .PURGE,.SERR,.TTINR,.SPFUN,.TWAIT
-272
	MOV	#1000.,SLPCNT		;Load counter
-281,282
	BCC	3$			;Yes
	TST	SLPCNT
	BEQ	4$
	DEC	SLPCNT			;Decrement sleep counter
	BR	READY
4$:	.TWAIT	#TWAREA,#TIME		;Wait for a time
	BR	READY
3$:	JSR	PC,CKMND		;Check for EXEC commands
-880,880
2$:	MOV	#1000.,SLPCNT		;First reset sleep counter
	BICB	#200,R0			;Strip parity
-883
;*****
	BR	4$
;*****
-1089,1089
	BNE	6$			;Skip if TSX
-1094,1094
2$:	MOV	#1000.,SLPCNT		;First reset sleep counter
	MOVB	@KADDR2,R0		;Get the character
-1098,1098
	BNE	8$			;End of buffer?
-1101,1103
4$:	BR	8$
6$:	.TTINR				;Get a character for TSX+
	BCS	8$			;Return with carry set if nothing
	MOV	#1000.,SLPCNT		;Else reset sleep counter
8$:	RTS	PC
-1292,1295
TWAREA:	.BLKW	2			;EMT area for timed wait
TIME:	.WORD	0,15.*1.		;Sleep for 1/4 second
SLPCNT:	.WORD	0			;Sleep counter
-1297,1298
RAREA:	.BLKW	5			;EMT area for receiver channel
INPNT:	.WORD	0			;Receive buffer pointer
INBLK:	.WORD	0			;Receive block count
INCHR:	.WORD	0			;Receive char count
-1300,1302
CHRSAV:	.WORD	0			;Temporary character storage
MAXBLK:	.WORD	0			;Receiver file size
-1304,1304
DEXT:	.WORD	0			;Default file types for .CSIGEN
	.RAD50	"LST"			;Use .LST for default
	.WORD	0,0
-1306,1306
OUTSP:	.BLKW	39.			;CSI file descriptors

MSGA:	.ASCII	<CR><LF>"EXEC - Version 7.8 22-Oct-83"
-1368,1368
SYSID:	.ASCIZ	"# DEC H11/LSI-11,CC,HC,PA,PL"
/