cbios/stampf.180

   1
   2         public  stampf
   3
   4         maclib  z180reg.inc
   5         maclib  config.inc
   6
   7         cseg
   8 stampf:
   9         dec     c
  10         jr      nz,f2
  11 ; c == 1:  return bios version
  12         ld      hl,0<<8 + 7     ;h = major, l = minor
  13         jr      exit
  14 f2:
  15         dec     c
  16         jr      nz,f3
  17 ; c == 2:  return bios id string
  18         ld      hl,id
  19         jr      exit
  20 f3:
  21         ld      hl,0ffffh       ; error
  22 exit:
  23         ld      a,l
  24         ret
  25
  26 id:
  27         db      "Stamp BIOS",0
  28
  29         end