1) TOTAL[S,AIL] and 2) TOTAL.OLD[S,AIL]	12-17-76 13:52	pages 12,13

**** File 1) TOTAL[S,AIL], Page 12 line 53
1)		TDNN	TBITS,[SBSCRP,,ITEM!ITMVAR!PROCED]
1)		TRNN	TBITS,DBLPRC
1)		 JRST	.+2		;NOT VALUE LONG
1)		SETZM	ACKTAB+1(TEMP)	;CLEAR 2ND AC OF LONG
1)	Comment ⊗ for STRING INDXED quantities (or non-STRING with ADDR)
**** File 2) TOTAL.OLD[S,AIL], Page 13 line 2
2)	Comment ⊗ for STRING INDXED quantities (or non-STRING with ADDR)
***************


**** File 1) TOTAL[S,AIL], Page 27 line 60
1)		TRNN	TBITS,STRING
1)		 ADDI	TEMP,1		;WAS NOT STRING
1)		TRZE	A,FXTWO
1)		 ADDI	TEMP,1		;WAS FXTWO
1)	EPNT.1:	HRL	C,TEMP		;GET TO DISPLACEMENT PLACE
**** File 2) TOTAL.OLD[S,AIL], Page 27 line 60
2)		TRZN	A,FXTWO		;IF FXTWO OR
2)		TRNN	TBITS,STRING	; ¬STRING,
2)		 ADDI	 TEMP,1		;REVERSE ASSUMPTION
2)	EPNT.1:	HRL	C,TEMP		;GET TO DISPLACEMENT PLACE
***************


**** File 1) TOTAL[S,AIL], Page 27 line 89
1)		TDNN	TBITS,[SBSCRP!REFRNC,,PROCED!ITEM!ITMVAR]	;THESE ARE NOT VALUE LONGS
1)		TRNN	TBITS,DBLPRC	;LONG?
1)		 JRST	.+3		;NO
1)		TRZE	A,FXTWO
1)		 SUBI	TEMP,1		;FXTWO ON LONG FORMAL MOVES CLOSER TO STACK TOP
1)		TLNE	TBITS,REFRNC	;REFERENCE PARAM?
**** File 2) TOTAL.OLD[S,AIL], Page 27 line 88
2)		TLNE	TBITS,REFRNC	;REFERENCE PARAM?
***************