1 / -+-+-+-+-+
\ e H P P W . R A
\ e -+-+-+-+-+
18 ENTRY LOC / RETURNS ADR. OF PARAMETER FLOATED
19 ENTRY IATX / CONVERT FRACTION INTO 12 BIT INTEGER R.J.Z.F.
20 ENTRY IXTA / INTEGER --> FRACTIONAL CONVERSION
21 BASE 0 / STAY ON CALLERS BASE
77 FLDA IN1 / INSERT THE CORRECT INSTRUCTION
78 JA CON1 / AND CONTINUE
90 FSTA INS / INSERT THE CORRECT INSTRUCTION INTO INS
91 FLDA 10*3 / GET RETURN ADR.
93 FLDA 0 / GET FIRST PARAMETER
96 FCLA / CLEAR EXP. FOR LOC FUNCTION
97 FLDA% 3 / ADR. OF FIRST PARAMETER --> FAC
98 FSTA 3 / STORE ADR. OF PARAMETER
101 FCLA / CLEAR ARG,ARG+1
104 FLDA% 3 / PARAMETER --> FAC
105 SETX ARG+1 / CONVERSION OUTPUT ADR.
106 ATX 1 / CONVERT INTO INTEGER AND STORE INTO ARG+2
112 FLDA% 3 / THIRD WORD OF PARAMETER --> X1
114 SETX ARG+1 / MAKE ARG+2 TO X1
117 ANORM, 27 / FAC EXPONENT FOR NORMALISATION
119 DJA, JA 0 / CONSTANT TO GET THE CORRECT LOC
122 FSUB DJA / SUBTRACT JA FROM THE ADR. TO GET THE LOCATION
132 FSTA REMI / INSERT THE CORRECT REMOTE INSTRUCTION
133 FLDA 10*3 / RET. ADR. --> FAC
134 FSTA GOBAK / AND STORE INTO RETURN LOCATION
135 FLDA 0 / LOAD ADR. OF ARGUMENT LIST --> FAC
136 FADD TWO / INCREMENT FOR FIRST ARGUMENT
137 FSTA 3 / TEMPORARY FOR SECOND INDIRECT REF.
141 FLDA% 3 / FIRST PARAMETER
143 TRAP4 DOIT8 / EXECUTE THE SHIFT & STORE INSTRUCTION WITH PDP8
144 FLDA ARG / LOAD THE RESULT --> FAC
145 GOBAK, JA .-. / HOME TO MAMA
167 NOP / SHOULD BE HERE SINCE FPP PICKS UP 2 WORDS
171 CLEROT, JMS CLEAR / CLEAR ARG, ROTATE AC 6 BITS AND JMP STARG2
176 CLBROT, JMS CLEAR / CLEARS ARG, SWAP BYTES, ROTATE AC 6 BITS AND JMP STARG2
177 AND RHALF / CLEAR LEFT HALF OF AC
181 TMP1, ORG .+1 / STORAGE FOR AC
190 SSL6, .-. / LOGICAL SHIFT 6 BITS TO THE RIGHT
192 AND RHALF / CLEAR LEFT HALF OF AC
218 DOQ1, / QUARTERS NOT YET IMPLEMENTED
248 NOP / MUST BE HERE SINCE FPP STORES 2 WORDS INTO REMI
252 JMP% DOIT8 / HOME TO FPP12