.TITLE SIN .PSECT UTILS .GLOBL DSIN AC3 = %3 ;SYMBOL FOR FLT REG 3. SIN:: ; CALCULATES THE SINE OF THE DOUBLE-PRECISION ARGUMENT ; AT THE ADDRESS SUPPLIED IN THE CALL. PUTS THE RESULT ; AT THE ADDRESS SPECIFIED IN THE CALL AS THE DESTINA- ; TION ADDRESS. INTENDED TO BE INVOKED BY THE MACRO, ; "SIN" (ABOVE). MOV (R5)+,5$ ;GET SRC ADRS. SUB #8.,SP ;MAKE ROOM FOR AC3. STD AC3,(SP) ;SAVE AC3. JSR R5,DSIN ;CALC SINE OF... BR 10$ ;RETURN POINT. 5$: .WORD 0 ;PLACE FOR ADDRESS OF SOURCE. 10$: STD AC3,@(R5)+ ;PUT RESULT INTO DEST. LDD (SP)+,AC3 ;RESTORE AC3. RTS R5 ;RETURN .END