بوق کامپیوتر

[qazwsx]

یه مثال میخوام مثلا یه برنامه که چه میدونم مثلا 7 بار بیب کامپیوتر رو در بیاره

[Alay102]

STSEG SEGMENT STACK 'STACK'
DW 32 DUP(0)
STSEG ENDS
;-----------------------------------------------


COSEG SEGMENT 'CODE'
START PROC FAR
ASSUME CS:COSEG, SS:STSEG

;
MOV CX,07h
ST1: OR AL,03H
OUT 61H,AL
CALL DELAY

;
;-----------------------------------------------

AND AL,0FCH
OUT 61H,AL

DEC CX
JNZ ST1
;-----------------------------------------------

MOV AX,4C00H
INT 21H

;-----------------------------------------------

DELAY PROC NEAR
PUSH CX
MOV CX,0FFFFH
BACK1: MOV BX,0FFFFH
BACK2: DEC BX
JNZ BACK2
LOOP BACK1
POP CX
RET
DELAY ENDP
;
START ENDP
COSEG ENDS
END START


موفق باشی ...