mus1.asm

用汇编语言实现的类似DOS下打字的游戏

DELAY1 MACRO
      PUSH CX
      PUSH DX
      MOV  DX,9000
DL11:
      MOV CX,0FFFFH
DL12:
      LOOP DL12
      DEC  DX
      JNZ  DL11
      POP  DX
      POP  CX
ENDM
WAIT1  MACRO
      PUSH CX
      PUSH DX
      MOV  DX,3000
DL21:
      MOV CX,0FFFFH
DL22:
      LOOP DL22
      DEC  DX
      JNZ  DL21
      POP  DX
      POP  CX
ENDM

stack segment stack 
	db 200 dup(0)
stack ends
code segment 
	assume ss:stack,cs:code
start:
	mov ax,0
	mov ds,ax

	mov cx,3

	in  al,61h
	or  al,3
	out 61h,al

main1:  mov bx,1800
	call beep
;	mov bx,2000
;	call beep
 	mov bx,1000
	call beep
	mov bx,1600
	call beep
	mov bx,1200
	call beep
	mov bx,1400
	call beep
	loop main1

	in  al,61h
	xor al,3
	out 61h,al
	
	mov ah,4ch
	int 21h
	
beep  proc 
	mov ax,34dch
	mov dx,12h
	div bx
	out 42h,al
	mov al,ah
	out 42h,al
	wait1
	ret
beep	endp

code  ends
	end start