.CALL_ENTRY MAX_ARGS=3, HOME_ARGS=TRUE, - INPUT=, - PRESERVE=, - LABEL=CTP_SUBQ ;++ ;1 CTP_SUBQ ; Subrtract 2 quad values and return the quad difference. This routine ; uses AXP intruction and is NOT VAX compatible. ;2 Input ; .address of quad val1 ; .address of quad val2 ; .address of quad val3 ;2 Output ; val3 = val1-val2 ;2 Returns ; SS$_NORMAL OK ; ;-- MOVL 4(AP),R6 ; Val1 EVAX_LDQ R7,(R6) ; Get 1st sample MOVL 8(AP),R6 ; Val2 EVAX_LDQ R8,(R6) ; Get 2nd sample EVAX_SUBQ R8,R7,R9 ; Curr - 1st EVAX_STQ R9,@12(AP) ; Return MOVL #SS$_NORMAL,R0 RET