There are 8 other files named algfun.mac in the archive. Click here to see a list.
CTIR:	SKIPN	SRCEMC		; IS IT A KI10 ?
SKIPE	SRCEMC		; ARE WE A KA PROCESSOR?
JUMPL	A0,.+3		; [E130] POSITIVE OR NEGATIVE ?
JUMPL	A0,CTLRI5	; NEG ?
JUMPGE	A0,.+3		; ARGUMENT POSITIVE?
JUMPL	A0,.+3		; NEGATIVE NUMBER?
CADD:	TLNN	A7,SGNA0	; WAS A0 =-?
A0WPL:	TLNN	A7,SGNA3	; WAS A3=-?
TLNN	A0,400		; IS NORMALIZE DONE?
TRNE	A2,BITEST	; DID FP OV/UNDER FLO OCCUR?
; NUMBERS.THE ARGUMENTS ARE IN  A0-1 AND A3-4.
NEG1RB:	TDNE	A0,	; IS DIVIDEND ZERO?
TDNN	A3,	; OR HAS 11TH COMMANDMENT BEEN VIOLATED?
POWC1:	JUMPN	A0,POWC11	; BASE = 0?
POWC10:	POPJ	SP,		; RESULT = 0 FOR ZERO BASE AND POS. EXP.
POWC12:	TRZE	A2,000001	; BIT SET IN EXPONENT?
POWC2:	JUMPE	A0,POWC24	; BASE = 0?
JUMPN	A2,POWC21	; NO. EXPONENT = 0?
POWC21:	CAIG	A2,0		; EXPONENT POSITIVE?
POWC23:	TRZE	A2,000001	; BIT SET IN EXPONENT?
POWC3:	JUMPN	A0,.+3		; BASE = 0?
JUMPN	A2,POWC31	; EXPONENT = 0?
JUMPG	A2,POWC32	; EXPONENT POSITIVE?
POWL2:	TRZE	A7,000001	; BIT SET IN EXPONENT?
POWL3:	TRZE	A7,1		; BIT SET IN EXPONENT ?
JUMPE	A7,POWLEX	; FINISHED ?
;  TO PROPER TYPE AND LOADED INTO A0.
IF LAST GENERATED INST. WAS "MOVEI"
;  TESTED AT RUN TIME.
IF THE LAST GENERATED INSTRUCTION = "SETO"
;  IF INCREMENT = 1 THEN CODE IS "AOS"
;  ELSE IF INCREMENT = -1 THEN CODE IS "SOS"
;  ELSE IF INCREMENT = 0 THEN CODE IS "MOVE"
EDIT(046); Don't generate an "ADDB" for a zero increment !
; [E046] UNLESS OPCODE = MOVE, WHEN AC0 IS O.K.
;  ON ENTRY, OPERAND LEXEMES ARE IN LOP AND SYM.
;  (IN THE ORDER INTEGER => REAL => LONG REAL).
;  IN LOP AND SYM.
;  NEW LEXEX COMES FROM THOSE FOR SYM AND LOP.
;  COMPOSITE NAME FOR THE ASSIGNMENT EXPRESSION.
;  COMPOSITE NAME FOR THE RESULT EXPRESSION.
;  (AND NO CODE WILL BE PRODUCED).
THEN;..AFTER REORDERING, LOP IS STILL NOT A PORTION.
;  IS REVERSIBLE, (E.G., "<" => ">", LFDV => RLFDV).
IF OP = "DIV" OR "REM"