DOSSEG

.MODEL Tiny

.CODE
.STARTUP

Instalacja:
  MOV AX,3521h
  INT 21h
  MOV CX,ES
  MOV DX,BX
  MOV BX,OFFSET AdresPrzerwania
  MOV CS:[BX],DX
  ADD BX,2
  MOV CS:[BX],CX
  MOV AX,CS
  MOV DS,AX
  MOV DX,OFFSET Przerwanie
  MOV AX,2521h
  INT 21h
  MOV DX,100h
  MOV AX,3100h
  INT 21h

Przerwanie:
  CLI
  CMP AH,30h
  JNE Dalej
  MOV AL,8
  MOV AH,0
  STI
  RETF 02
Dalej:
  PUSHF
  CALL CS:FAR [AdresPrzerwania+2]
  STI
  RETF 02

  AdresPrzerwania DD (?)

END