Google
 

Trailing-Edge - PDP-10 Archives - bb-k345a-sb - strerr.mac
There are 5 other files named strerr.mac in the archive. Click here to see a list.
;	ERROR ROUTINES



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974,1979 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
	TITLE LLZ$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY LLZ$
LLZ$:	TTC(1)
	SETZ	R1,	;GET TO CLOSEST REASONABLE VALUE
	POPJ	P,
	IFE MESSAG,<
M.1:	ASCIZ /%STRLLZ. LENGTH LESS THAN ZERO
/>
	PRGEND

	TITLE LEM$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY LEM$
LEM$:	TTC(2)
	HRR	R1,R2	;DECREASE LEN TO ACCEPT VALUE
	POPJ	P,
	IFE MESSAG,<
M.2:	ASCIZ /%STRLEM. LENGTH EXCEEDS MAXIMUM
/>
	PRGEND

	TITLE NSS$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY NSS$
NSS$:	TTC(3)
	POPJ	P,
	IFE MESSAG,<
M.3:	ASCIZ /%STRNSS. NO SOURCE STRINGS (COUNT UNDER 1)
/>
	PRGEND

	TITLE CIV$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY CIV$
CIV$:	TTC(4)
	POPJ	P,
	IFE MESSAG,<
M.4:	ASCIZ /%STRCIV. CODE INVALID VALUE (NOT 0-5)
/>
	PRGEND

	TITLE SPE$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY SPE$
SPE$:	TTC(5)
	MOVEI	POS2,1(LEN1)	;LARGEST LEGAL VAL
	POPJ	P,
	IFE MESSAG,<
M.5:	ASCIZ /%STRSPE. 2ND POSITION PAST END OF STRING
/>
	PRGEND

	TITLE SLI$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY SLI$
SLI$:	TTC(6)
	POPJ	P,
	IFE MESSAG,<
M.6:	ASCIZ /%STRSLI. 1ST POSITION SUCH THAT STRING LENGTH INCREASED
/>
	PRGEND

	TITLE FES$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY FES$
FES$:	TTC(7)
	POPJ	P,
	IFE MESSAG,<
M.7:	ASCIZ /%STRFES. 1ST POSITION EXCEEDS SECOND
/>
	PRGEND

	TITLE UOF$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY UOF$
UOF$:	TTC(8)
	TLNE	ST.IBP,400000	;IS IT LESS THAN ZERO?
	SETZ	ST.IBP,		;YES IT WAS
	TLZ	ST.IBP,777777	;IF OTHER CASE, JUST TRUNC.
	POPJ	P,
	IFE MESSAG,<
M.8:	ASCIZ /%STRUOF. UNDER OR OVERFLOW OF (UBS) LENGTH OR MAXIMUM
/>
	PRGEND

	TITLE MLI$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY MLI$
MLI$:	TTC(9)
	HRLS	R1	;SINCE PRESENTED AT SAME TIME, USE LEN
	POPJ	P,
	IFE MESSAG,<
M.9:	ASCIZ /%STRMLI. MAXIMUM AND LENGTH INCONSISTENT
/>
	PRGEND

	TITLE RPU$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY RPU$
RPU$:	TTC(10)
	POPJ	P,
	IFE MESSAG,<
M.10:	ASCIZ /%STRRPU. REPLACEMENT UNSUCCESSFUL: />
	PRGEND

	TITLE EPS$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY EPS$
EPS$:	TTC(11)
	POPJ	P,
	IFE MESSAG,<
M.11:	ASCIZ /%STREPS. END OF SUBSTRING PAST END OF STRING.
/>
	PRGEND

	TITLE IDT$
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY IDT$
IDT$:	TTC(12)
	MOVE	R0,R1		;SETUP UP NULL AT ARG
	SETZ	R1,
	POPJ	P,
	IFE MESSAG,<
M.12:	ASCIZ /%STRIDT. STRING ARGUMENT HAS ILLEGAL DATA TYPE - NULL STRING ASSUMED
/>
	PRGEND

	TITLE	CPW.
	SEARCH STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY CPW$
CPW$:				;CHARS PER WORD FOR ALL BYTE SIZES LEFT ALIGNED
	-1		;BYTSIZ 0 UNDEFINED
	^D36
	^D18
	^D12
	^D9
	7
	6
	5
	4
	4
CPW10.:	3
	3
	3
CPW13.:	REPEAT 6,<2>
CPW19.: REPEAT ^D18,<1>
	PRGEND

	TITLE	EXDATA
	SEARCH	STRDCL
	IFE HIGH,<
	TWOSEG
	RELOC	400000>
	ENTRY	D13D13
D13D13:	XWD	15,15
	END