home *** CD-ROM | disk | FTP | other *** search
/ Chestnut's Multimedia Mania / MM_MANIA.ISO / midi / cmtcmu / pekpok.asm < prev    next >
Encoding:
Assembly Source File  |  1990-06-28  |  695 b   |  55 lines
  1. ;routines to emultate lattice c peek and poke 
  2. include dos.mac 
  3. PSEG 
  4.     public _peek 
  5. _peek    proc near 
  6.     push     bp 
  7.     mov    bp,sp 
  8.     push    es 
  9.     push     ds 
  10.     push     si 
  11.     push     di 
  12.     cld 
  13.     mov     ax,ds 
  14.     mov     es,ax 
  15.     mov     ds,[bp+4] 
  16.     mov     si,[bp+6] 
  17.     mov     di,[bp+8] 
  18.     mov     cx,[bp+10] 
  19.     cli 
  20.     rep     movsb 
  21.     sti 
  22.     pop     di 
  23.     pop     si 
  24.     pop     ds 
  25.     pop     es 
  26.     pop    bp 
  27.     ret 
  28. _peek    endp 
  29.     public _poke 
  30. _poke    proc near 
  31.     push     bp 
  32.     mov    bp,sp 
  33.     push    es 
  34.     push     ds 
  35.     push     si 
  36.     push     di 
  37.     cld 
  38.     mov es,[bp+4] 
  39.     mov di,[bp+6] 
  40.     mov si,[bp+8] 
  41.     mov cx,[bp+10] 
  42.     cli 
  43.     rep movsb 
  44.     sti 
  45.     pop di 
  46.     pop si 
  47.     pop ds 
  48.     pop es 
  49.     mov bp,sp 
  50.     pop    bp 
  51.     ret 
  52. _poke    endp 
  53. ENDPS 
  54. END 
  55.