asambler

mov AL,FF
out 04
;
mov CL,A0 ;set counter untuk stage1
stage1:
mov AL,41 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage1 ;jump to stage1 if CL<>0
;
mov CL,25 ;set counter untuk stage1
stage2:
mov AL,11 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage2 ;jump to stage2 if CL<>0
;
mov CL,50 ;set counter untuk stage1
stage3:
mov AL,81 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage3 ;jump to stage3 if CL<>0
;
mov CL,27 ;set counter untuk stage1
stage4:
mov AL,11 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage4 ;jump to stage4 if CL<>0
;
mov CL,50 ;set counter untuk stage1
stage5:
mov AL,41 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage5 ;jump to stage5 if CL<>0
;
mov CL,27 ;set counter untuk stage1
stage6:
mov AL,11 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage6 ;jump to stage6 if CL<>0
;
mov CL,78 ;set counter untuk stage1
stage7:
mov AL,81 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage7 ;jump to stage7 if CL<>0
;
mov CL,47 ;set counter untuk stage1
stage8:
mov AL,21 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage8 ;jump to stage8 if CL<>0
;
mov CL,25 ;set counter untuk stage1
stage9:
mov AL,81 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage9 ;jump to stage9 if CL<>0
;
mov CL,70 ;set counter untuk stage1
stage10:
mov AL,11 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage10 ;jump to stage10 if CL<>0
;
mov CL,A0 ;set counter untuk stage1
stage11:
mov AL,41 ;set Dir=Down,set speed=1
out 04 ;send to port 04
dec CL ;decrement counter CL
jnz stage11 ;jump to stage11 if CL<>0
end