home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCMACS.ARC / CMPTREES.MAC < prev    next >
Text File  |  1989-11-01  |  745b  |  45 lines
  1. ; CMPTREES for Turbo-ARC, TR 011189
  2.     .z80
  3.     extrn    x,y,weight,tdepth
  4.  
  5.     ld    de,(weight)
  6.     ld    hl,(x)
  7.     add    hl,hl
  8.     add    hl,de        ; ^weight(x)
  9.     ld    c,(hl)
  10.     inc    hl
  11.     ld    b,(hl)        ; BC = weight(x)
  12.     ld    hl,(y)
  13.     add    hl,hl
  14.     add    hl,de        ; ^weight(y)
  15.     ld    a,(hl)
  16.     inc    hl
  17.     ld    h,(hl)
  18.     ld    l,a        ; HL = weight(y)
  19.     sbc    hl,bc
  20.     ld    hl,1
  21.     ret    c        ; weight(x) > weight(y) : TRUE
  22.     ld    l,0
  23.     ret    nz        ; weight(x) < weight(y) : FALSE
  24.     ld    de,(tdepth)
  25.     ld    hl,(x)
  26.     add    hl,hl
  27.     add    hl,de        ; ^tdepth(x)
  28.     ld    c,(hl)
  29.     inc    hl
  30.     ld    b,(hl)        ; BC = tdepth(x)
  31.     ld    hl,(y)
  32.     add    hl,hl
  33.     add    hl,de        ; ^tdepth(y)
  34.     ld    a,(hl)
  35.     inc    hl
  36.     ld    h,(hl)
  37.     ld    l,a        ; HL = tdepth(y)
  38.     sbc    hl,bc
  39.     ld    hl,1
  40.     ret    c        ; tdepth(x) > tdepth(y) : TRUE
  41.     ld    l,0
  42.     ret              ; else : FALSE
  43.  
  44.     end
  45.