BOSER Technology HS-2616, Manual

Page: 27 / 84

21
wait1: loop wait1
pop cx
loop @b
pop cx
ret
begin proc near
mov ax,@data
mov ds,ax
STI
Mov dx, port
Mov al, 80h out dx, al
;;--------------------
;;ROR
mov cx, 08h
@@:
ror al, 1
call delay
out dx, al
loop @b
pop cx
;;ROL
push cx
mov cx, 08h
@@:
rol al, 1
out dx, al
call delay
loop @b
pop cx
;;--------------------
;;--------------------
;;ROR
mov cx, 08h
@@:
ror al, 1
call delay
out dx, al
loop @b
pop cx
;;ROL
push cx
mov cx, 08h
@@:
rol al, 1
out dx, al
call delay
loop @b
pop cx
;;--------------------
;;--------------------
;;ROR
mov cx, 08h
@@:
ror al, 1