home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug014.arc / MSXFER.LBR / BIOSH.AS next >
Text File  |  1979-12-31  |  512b  |  26 lines
  1.     psect    text
  2.  
  3.     global    _biosh, csv,cret
  4.  
  5. arg    equ    6            ;offset of 1st arg on stack
  6.  
  7. _biosh:
  8.     call    csv
  9.     ld    hl,cret            ;set up return address
  10.     push    hl
  11.     ld    l,(ix+arg+0)        ;get bios index
  12.     dec    l            ;adjust
  13.     ld    e,l
  14.     ld    h,0
  15.     ld    d,0
  16.     add    hl,hl            ;double it
  17.     add    hl,de            ;times 3
  18.     ld    de,(1)            ;get warm boot address
  19.     add    hl,de            ;now have transfer address
  20.     push    hl            ;put on stack
  21.     ld    c,(ix+arg+2)        ;get 1st arg
  22.     ld    b,(ix+arg+3)
  23.     ld    e,(ix+arg+4)        ;get 2nd arg
  24.     ld    d,(ix+arg+5)
  25.     ret                ;do bios call
  26.