v4.0/src/CMD/FC/MAXMIN.ASM

   1 ;
   2 ; maximum and minimum routines.
   3 ;
   4
   5 .xlist
   6 include version.inc
   7 include cmacros.inc
   8 .list
   9
  10 sBegin  code
  11 assumes cs,code
  12
  13 cProc   max,<PUBLIC>
  14 parmW   a
  15 parmW   b
  16 cBegin
  17         mov     ax,a
  18         cmp     ax,b
  19         jg      maxdone
  20         mov     ax,b
  21 maxdone:
  22 cEnd
  23
  24 cProc   min,<PUBLIC>
  25 parmW   a
  26 parmW   b
  27 cBegin
  28         mov     ax,a
  29         cmp     ax,b
  30         jl      mindone
  31         mov     ax,b
  32 mindone:
  33 cEnd
  34
  35 sEnd
  36
  37 end