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 / LONGINT.MAC < prev    next >
Text File  |  1989-11-03  |  298b  |  22 lines
  1. ; LONGINT for Turbo-ARC, TR 031189
  2.     .z80
  3.     extrn    lw
  4.  
  5.     ld    hl,(lw)        ; ^lw
  6.     ld    e,(hl)
  7.     inc    hl
  8.     ld    d,(hl)
  9.     bit    7,d
  10.     jr    nz,maxret    ; Overflow: Return 32767
  11.     inc    hl
  12.     ld    a,(hl)
  13.     inc    hl
  14.     or    (hl)
  15.     jr    nz,maxret    ; Overflow: Return 32767
  16.     ex    de,hl
  17.     ret            ; ok
  18. maxret:    ld    hl,7FFFh
  19.     ret
  20.  
  21.     end
  22.