home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / OUTRNG.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  737 b   |  28 lines
  1.  
  2. *TEST FOR OUT OF RANGE
  3. *
  4. *      OUTRNG VAR,LOW,HIGH,LABEL
  5. *
  6. *BRANCH TO LABEL IF CONT OF VAR > HIGH OR < LOW
  7. *LOW AND HIGH ARE VARS OR CONSTANTS
  8.  
  9.        COPY MACROS.LCAC
  10.  
  11. OUTRNG $MACRO            A,B,C,D   RANGE OUTSIDE TEST
  12.        $IF  B.SA&$UNDF
  13.        LCAC -(:B.V:)     LOAD CONST -:B:
  14.        ADD  :A:,0        COMP :A:
  15.        $ELSE
  16.        LAC  :A:,0        LOAD :A:
  17.        SUB  :B:,0        COMP TO :B:
  18.        $ENDIF
  19.        BLZ  :D:          BR IF :A:<:B:
  20.        $IF  C.SA&$UNDF
  21.        LCAC -(:C.V:)     LOAD CONST -:C:
  22.        ADD  :A:,0        COMP TO :A:
  23.        $ELSE
  24.        LAC  :A:,0        LOAD :A:
  25.        SUB  :C:,0        COMP TO :C:
  26.        $ENDIF
  27.        BGZ  :D:          BR IF :A:>:C:
  28.        $END