1 / -+-+-+-+-+
\ e H P P W . R A
\ e -+-+-+-+-+
9 ENTRY LOC / RETURNS ADR. OF PARAMETER FLOATED
10 ENTRY IATX / CONVERT FRACTION INTO 12 BIT INTEGER R.J.Z.F.
11 ENTRY IXTA / INTEGER --> FRACTIONAL CONVERSION
12 BASE 0 / STAY ON CALLERS BASE
68 FLDA IN1 / INSERT THE CORRECT INSTRUCTION
69 JA CON1 / AND CONTINUE
81 FSTA INS / INSERT THE CORRECT INSTRUCTION INTO INS
82 FLDA 10*3 / GET RETURN ADR.
84 FLDA 0 / GET FIRST PARAMETER
87 FCLA / CLEAR EXP. FOR LOC FUNCTION
88 FLDA% 3 / ADR. OF FIRST PARAMETER --> FAC
89 FSTA 3 / STORE ADR. OF PARAMETER
92 FCLA / CLEAR ARG,ARG+1
95 FLDA% 3 / PARAMETER --> FAC
96 SETX ARG+1 / CONVERSION OUTPUT ADR.
97 ATX 1 / CONVERT INTO INTEGER AND STORE INTO ARG+2
103 FLDA% 3 / THIRD WORD OF PARAMETER --> X1
105 SETX ARG+1 / MAKE ARG+2 TO X1
108 ANORM, 27 / FAC EXPONENT FOR NORMALISATION
110 DJA, JA 0 / CONSTANT TO GET THE CORRECT LOC
113 FSUB DJA / SUBTRACT JA FROM THE ADR. TO GET THE LOCATION
123 FSTA REMI / INSERT THE CORRECT REMOTE INSTRUCTION
124 FLDA 10*3 / RET. ADR. --> FAC
125 FSTA GOBAK / AND STORE INTO RETURN LOCATION
126 FLDA 0 / LOAD ADR. OF ARGUMENT LIST --> FAC
127 FADD TWO / INCREMENT FOR FIRST ARGUMENT
128 FSTA 3 / TEMPORARY FOR SECOND INDIRECT REF.
132 FLDA% 3 / FIRST PARAMETER
134 TRAP4 DOIT8 / EXECUTE THE SHIFT & STORE INSTRUCTION WITH PDP8
135 FLDA ARG / LOAD THE RESULT --> FAC
136 GOBAK, JA .-. / HOME TO MAMA
158 NOP / SHOULD BE HERE SINCE FPP PICKS UP 2 WORDS
162 CLEROT, JMS CLEAR / CLEAR ARG, ROTATE AC 6 BITS AND JMP STARG2
167 CLBROT, JMS CLEAR / CLEARS ARG, SWAP BYTES, ROTATE AC 6 BITS AND JMP STARG2
168 AND RHALF / CLEAR LEFT HALF OF AC
172 TMP1, ORG .+1 / STORAGE FOR AC
181 SSL6, .-. / LOGICAL SHIFT 6 BITS TO THE RIGHT
183 AND RHALF / CLEAR LEFT HALF OF AC
209 DOQ1, / QUARTERS NOT YET IMPLEMENTED
239 NOP / MUST BE HERE SINCE FPP STORES 2 WORDS INTO REMI
243 JMP% DOIT8 / HOME TO FPP12