10 * a11-a22 are single precision float variables (2 word).
25 * JST M$INIT INITIALIZE MATRIX TO IDENTITY
29 ********************************************************************************
31 SUBR M$INIT,INIT INITIALIZE MATRIX
32 SUBR M$MUL,MUL MATRIX MULTIPLICATION
33 SUBR M$APLI,APLI APPLY MATRIX TO INTEGER VECTOR
34 SUBR M$APII,APII APPLY MATRIX TO PAIR OF INTEGERS
35 SUBR M$ROT,XXX ADD ROTATION TO MATRIX ARGUMENT
36 SUBR M$SCLE,SCLE SCALE MATRIX
45 ********************************************************************************
51 LDA* INIT GET MATRIX BASE ADDRESS
73 ********************************************************************************
77 * a11 a12 b11 b12 a11*b11 a21*b12
78 * a21 a22 b21 b22 a12*b21 a22*b22
124 * a11 a12 b11 b12 a11*b11 a21*b12
125 * a21 a22 b21 b22 a12*b21 a22*b22
158 ********************************************************************************
161 SCLE DAC ** SCALE MATRIX
164 LDA* SCLE GET MATRIX BASE ADDRESS
174 IRS SCLE TALLY RETURN ADDRESS
195 ********************************************************************************
198 * Apply Pair of integers and round
227 JST APL CALL REAL ROUTINE
230 ********************************************************************************
233 * Apply to integer vector and round
237 * DAC X Y MUST FOLLOW IN NEXT LOCATION!
263 ****************************************
266 APL DAC ** REAL APPLY ROUTINE
268 CALL FLOAT LOAD SINGLE PRECISION FLOAT FROM 1-WORD INTEGER
270 CALL M$22 MULTIPLY FLOAT*FLOAT
272 CALL H$22 STORE FLOAT
280 JST RND ROUND AND CONVERT TO INTEGER
281 STA PA21 STORE NEW X VALUE INTO TEMPORARY LOCATION
296 JST RND NOW INTEGER IN AC
297 STA* YP1 STORE NEW Y VALUE
301 JMP* APL RETURN TO CALLER.
303 ****************************************
305 RND DAC ** ROUND A/B AND RETURN WITH INTEGER IN A
308 CALL C$21 CONVERT TO INTEGER
311 HLF OCT '040100 CONSTANT 0.5
314 ****************************************
319 ********************************************************************************
410 ********************************************************************************
414 ********************************************************************************