Symbol H$HORN

Definition

	11662	−0 00000 0 10211	5625	HORN	MZE	ERSETO (+0) ERRORSET OBJECT IN A, IR4 IN D

11560	−0634 00 4 11662	5552	ERRSET	SXD	HORN,4
11562	−3 11673 0 02363	5554		TXL	$END8,,HORN+9
11563	−0634 00 2 11663	5555		SXD	HORN+1,2
11564	0634 00 1 11663	5556		SXA	HORN+1,1
11565	0604 00 0 11666	5557		STI	HORN+4
11574	0601 00 0 11670	5564		STO	HORN+6
11600	0402 00 0 11670	5568		SUB	HORN+6 COMPARE WITH THE LIMIT
11603	0601 00 0 11667	5571		STO	HORN+5 SAVE (LIMIT - OLD COUNT)
11604	0500 00 0 11670	5572		CLA	HORN+6 SET CONS COUNTER TO LIMIT
11611	0600 00 0 11667	5577	OBOE	STZ	HORN+5 TAKE LIMIT = OLD COUNT
11614	0601 00 0 11670	5580		STO	HORN+6
11625	−0535 00 4 11670	5593	BSOON	LDC	HORN+6,4 UNSAVE ALL RECURSIVE FUNCTIONS
11643	0601 00 0 11670	5608	SHAWM	STO	HORN+6 SAVE EXIT VALUE
11647	0402 00 0 11667	5612		SUB	HORN+5
11653	0534 00 1 11663	5616		LXA	HORN+1,1 RESTORE INDICATORS, IR1, AND IR2
11654	−0534 00 2 11663	5617		LXD	HORN+1,2
11655	0441 00 0 11666	5618		LDI	HORN+4
11656	0500 00 0 11670	5619		CLA	HORN+6 PICK UP EXIT VALUE
11660	−0534 00 4 11662	5621		LXD	HORN,4 RESTORE IR4 AND EXIT