1 / -+-+-+-+-+
\ e H P P W . R A
\ e -+-+-+-+-+
3 // ENTRY IATX / CONVERT FRACTION INTO 12 BIT INTEGER R.J.Z.F.
4 ENTRY IXTA / INTEGER --> FRACTIONAL CONVERSION
7 BASE 0 / STAY ON CALLERS BASE
63 FLDA IN1 / INSERT THE CORRECT INSTRUCTION
64 JA CON1 / AND CONTINUE
76 FSTA INS / INSERT THE CORRECT INSTRUCTION INTO INS
77 FLDA 10*3 / GET RETURN ADR.
79 FLDA 0 / GET FIRST PARAMETER
82 FCLA / CLEAR EXP. FOR LOC FUNCTION
83 FLDA% 3 / ADR. OF FIRST PARAMETER --> FAC
84 FSTA 3 / STORE ADR. OF PARAMETER
87 FCLA / CLEAR ARG,ARG+1
90 FLDA% 3 / PARAMETER --> FAC
91 SETX ARG+1 / CONVERSION OUTPUT ADR.
92 ATX 1 / CONVERT INTO INTEGER AND STORE INTO ARG+2
98 FLDA% 3 / THIRD WORD OF PARAMETER --> X1
100 SETX ARG+1 / MAKE ARG+2 TO X1
103 ANORM, 27 / FAC EXPONENT FOR NORMALISATION
105 DJA, JA 0 / CONSTANT TO GET THE CORRECT LOC
108 FSUB DJA / SUBTRACT JA FROM THE ADR. TO GET THE LOCATION
118 FSTA REMI / INSERT THE CORRECT REMOTE INSTRUCTION
119 FLDA 10*3 / RET. ADR. --> FAC
120 FSTA GOBAK / AND STORE INTO RETURN LOCATION
121 FLDA 0 / LOAD ADR. OF ARGUMENT LIST --> FAC
122 FADD TWO / INCREMENT FOR FIRST ARGUMENT
123 FSTA 3 / TEMPORARY FOR SECOND INDIRECT REF.
127 FLDA% 3 / FIRST PARAMETER
129 TRAP4 DOIT8 / EXECUTE THE SHIFT & STORE INSTRUCTION WITH PDP8
130 FLDA ARG / LOAD THE RESULT --> FAC
131 GOBAK, JA .-. / HOME TO MAMA
153 NOP / SHOULD BE HERE SINCE FPP PICKS UP 2 WORDS
157 CLEROT, JMS CLEAR / CLEAR ARG, ROTATE AC 6 BITS AND JMP STARG2
162 CLBROT, JMS CLEAR / CLEARS ARG, SWAP BYTES, ROTATE AC 6 BITS AND JMP STARG2
163 AND RHALF / CLEAR LEFT HALF OF AC
167 TMP1, ORG .+1 / STORAGE FOR AC
176 SSL6, .-. / LOGICAL SHIFT 6 BITS TO THE RIGHT
178 AND RHALF / CLEAR LEFT HALF OF AC
204 DOQ1, / QUARTERS NOT YET IMPLEMENTED
234 NOP / MUST BE HERE SINCE FPP STORES 2 WORDS INTO REMI
238 JMP% DOIT8 / HOME TO FPP12