Listing 5



[Return]
Listing 5: The ISR

runtime:
  int    60h                ;call the old INT-51h
  pusha                     ;save all registers.
  push   ds
  push   es
  push   ss
  mov    ax,cs:hwndcs       ;get window handle
; call POSTMESSAGE PASCAL,ax,WM_USER,0, 0,0
;no, will do it this way, as PASCAL qualifier very
;inefficient ...
  push        ax
  push        WM_USER
  push        0
  push        0
  push        0
  call        POSTMESSAGE ;put message on queue.
  pop    ss                 ;now restore and get out.
  pop    es
  pop    ds
  popa
  iret
installint ENDP
  END
[Return]