home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / DIV.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  495 b   |  17 lines
  1.  
  2.     COPY MACROS.SACX
  3.  
  4.       REF  DDV$,DDV$0,DDV$1,DDV$2,DDV$3
  5.  
  6.     DIV$0 EQU  DDV$0    Define 1st formal (Dividend - DIVID)
  7.     DIV$1 EQU  DDV$1    Define 2nd formal (Divisor  - DIVISOR)
  8.     DIV$2 EQU  DDV$2    Define 3rd formal (Quotient - QUOTNT)
  9.     DIV$3 EQU  DDV$3    Define 4th formal (Remainder- REMAIN)
  10.  
  11.       DEF  DIV$,DIV$0,DIV$1,DIV$2,DIV$3
  12.  
  13.     DIV$  LAC  DIV$0,0  Load Single Word Dividend
  14.       SACX DDV$0    Store as a double word for DDV$
  15.       B    DDV$     Go off to DDV$
  16.  
  17.     END