4 / F4 INTEGER FUNCTIONS IOR (A,B)
8 / F4 REAL FUNCTION BOOL (A)
9 / F4 LOGICAL FUNCTION EQL (A,B)
11 / IOR RETURNS THE 36 BIT BITWISE OR BETWEEN A AND B
12 / IAND "" " " " " " AND "" A " B
13 / INOT "" " " " " " COMPLEMENT OF A
14 / IBOOL "" " " " UNCHANGED PARAMETER A (FOR TYPELESS ASSIGNMENT)
15 / BOOL "" " " " " " " " " " " " " "
16 / EQL "" A .TRUE. IF ALL 36 BITS OF A MATCH THE 36 BITS OF B
18 / THE INPUT PARAMETERS A AND B REMAIN UNCHANGED.
20 / HARDWARE: LAB8/E, SOFT/HARD FPP12
22 / VER 0.0 21-AUG-80 HA
27 ENTRY IOR / I=IOR(A,B) 36 BIT LOGICAL OR
28 ENTRY IAND / I=IAND(A,B)
29 ENTRY INOT / I=INOT(A)
30 ENTRY BOOL / TYPELESS ASSIGNMENT TO REAL
31 ENTRY IBOOL / TYPLESS ASSIGNMENT TO INTEGER
32 ENTRY EQL / LOGICAL BITWISE TEST A WITH B
36 FLDA BINS1 / INSERT THE CORRECT INSTRUCTION IN PROCEDURE BODY
43 FSTA BINS / INSERT INSTRUCTION INTO PROC. BODY
44 FLDA 3*10 / GET RETURN ADR.
46 FLDA 0 / GET FIRST PARAMETER
49 FLDA% 3 / ADR. OF FIRST PARAMETER --> FAC
52 FLDA% 3 / FIRST PARAMETER --> FAC
56 FLDA ARG1 / RESULT --> FAC
62 BINS1, FSTA ARG1 / INSTR. USED BY INOT
68 FLDA INS0 / JMP BEQL --> INS
73 FLDA INS1 / JMP OR --> INS
78 FLDA INS2 / JMP BAND --> INS
83 FSTA INS / INSERT THE CORRECT INSTRUCTION INTO INS
90 FLDA% 3 / ADR. FIRST PARAM. --> FAC
93 FLDA% 3 / FIRST PARAMETER --> FAC
94 FSTA ARG1 / AND STORE INTO ARG1
99 FLDA% 3 / ADR. SECOND PARAM.
102 FLDA% 3 / SECOND PARAM. --> ARG2
105 FLDA ARG1 / RESULT --> FAC
121 INOT8, .-. / COMPLEMENT ARG1
139 NOP / MUST BE HERE SINCE FPP STORES 2 WORDS
142 BEQL, / TEST FOR EQUALITY BETWEEN ARG1 AND ARG2
143 TAD ARG1 / LOAD FIRST WORD OF ARG1
144 CMA IAC / TWO'S COMPLEMENT AC
145 TAD ARG2 / AND ADD FIRST WORD OF SECOND ARGUMENT
146 SZA / IF THE THE WORDS MATCH THEN THE RESULT IS ZERO AND WE TEST
147 JMP NOTEQL / TEST FOR THE NEXT WORD ELSE WE GO HOME
159 DCA ARG1 / INSERT .TRUE. INTO THE RESULT
160 CLA CLL CML RTR / 2000 --> AC
168 DCA ARG1+2 / RETURN A .FALSE.
173 BAND, / AND BETWEEN ARG1 AND ARG2
187 BOR, / OR BETWEEN ARG1 AND ARG2