;;Przykład 8.9. Implementacja algorytmu generowania trzasku
.MODEL tiny
.CODE
org 100h
Start:
 call Glos
 mov AX,4C00h ;;zakończenie 
 int 21h
Glos PROC
 cli ;;zakaz przerwań 
 in AL,61h ;;odczyt bajta
 mov CX,1000  ;; ilość powtó-rzeń
et1:
 push CX
 or AL,2 ;;zamiana na 1 bitu 1
 out 61h,AL
 mov CX,60000 
 loop $ ;;opóźnienie
 and AL,0FDh ;;zamiana na 0 bi-tu 1
out 61h,AL
 mov CX,60000 ;
 loop $ ;;opóźnienie 
 pop CX
 loop et1
 sti ;;zezwolenie przerwań 
Glos ENDP
.DATA
END Start