Google
 

Trailing-Edge - PDP-10 Archives - integ_tools_tops20_v7_30-apr-86_dumper - tools/tvaxv2/gtvr07.mar
There are 7 other files named gtvr07.mar in the archive. Click here to see a list.
	.TITLE	GTVR07 - ERROR MESSAGES FOR TV
;
;	IN	GERRN = ERROR NUMBER (IF - THEN INFO)
;		R1 = LENGTH TERMINAL OUTPUT SOFAR
;
	.MACRO	MOVSP	P1
	MOVL	GTTAB,R1
	MOVL	P1*4(R1),R1
	MOVC3	(R1),2(R1),(R3)
	.ENDM
	INIT	GTVR07
	CLRL	R6
	TSTW	GERRN
	IF.	*GTS		;POSITIVE
		MOVW	GERRN,R6
	ELSE.
		MNEGW	GERRN,R6
	ENDIF.
	MOVL	ERRTA[R6],R2
	MOVL	R1,R3			;SAVE LENGTH SOFAR
	MOVAB	2(R2),R1
	MOVZWL	(R2),R0
	BSBW	GWRITR2			;WRITE MESSAGE IN BATCH
	ADDL3	R3,GOBUFFA,R3
	MOVB	#10,(R3)+		;LF
	MOVC3	(R2),2(R2),(R3)
	CMPL	R6,#40
	IF.	*LT		;NOT LEAVE CURSOR COMMAND
		MOVSP	4
		MOVW	EEND,(R3)+
	ENDIF.
	SUBL3	GOBUFFA,R3,R1		;SET NEW LENGTH
	RET
EEND:	.BYTE	13,^A/*/
	.MACRO	ERR,P1,P2
ORG=.
MA1=P1*4
.=ERRTA+MA1
	.LONG	ORG
.=ORG
MA1=%LENGTH(P2)
	.WORD	MA1
	.ASCII	|P2|
	.ENDM
ERRTA:	.BLKL	50			;MAX 50 ERROR MESSAGES
	ERR	1,<input does not start with TV command>
	ERR	2,<Q-reg contains no character string>
	ERR	3,<Q-reg contains no numeric value>
	ERR	4,<expression without command>
	ERR	5,<more than 15 levels of iterations nested>
	ERR	6,<no iteration active>
	ERR	7,<command not yet supported>
	ERR	8,<invalid TV command char>
	ERR	9,<too many digits in expression>
	ERR	10,<invalid Q-register>
	ERR	11,<file buffer size exceeded>
	ERR	12,<iteration not closed>
GERR13:: ERR	13,<XXX,XXX,XXX->
	ERR	14,<operand error in expression>
	ERR	15,<operator error in expression>
	ERR	16,<wrong syntax in expression>
	ERR	17,<more than 10 nested ( in expression )>
	ERR	18,<divide by 0 in expression>
	ERR	19,<Q-reg buffer size exceeded>
	ERR	20,<argument exceeded buffer size >
	ERR	21,<range not valid for command>
	ERR	22,<two times a range (,) in row not allowed>
	ERR	23,<invalid range>
	ERR	24,<command aborted>
	ERR	25,<no argument allowed for command>
	ERR	26,<no previous search string given>
	ERR	27,<maximum search string is 256 bytes>
	ERR	28,<no match found>
	ERR	29,<no previous input present>
	ERR	30,<Q-reg locked for command execution>
	ERR	31,<no nesting of ;E allowed>
	ERR	32,<invalid command syntax>
	ERR	33,<no argument given on @R or @S command>
	ERR	34,<exact match op S en R command>
	ERR	35,<upper/lower match op S en R command>
	ERR	36,<invalid digit for octal value>
	ERR	37,<iteration count LE 0>
	ERR	40,<    input file:>
	ERR	41,<   output file:>
	.END