bigsea.asm

在DOS下

                .MODEL  	SMALL
      	        .STACK  	64
        	.DATA
frequency       DW 196,220
                DW 262,262,262,262,262,220,196
                DW 262,262,262,262,294,262,220,262
                DW 294,294,294,294,294,262,220
                DW 294,294,294,294,330,294,330,392
                DW 440,440,392,440,392,330
                DW 294,294,330,294,262,220,196,220
                DW 262,262,262,262,262,220
                DW 262,196,220
                DW 440,440,392,440,524,440
                DW 392,330,294,262,220,196,220
                DW 262,262,262,262,294,262
                DW 262,330,392
                DW 440,440,440,440,524,440
                DW 392,392,392,440,392,330,294
                DW 262,262,262,262,294
                DW 330,330,294
                DW 262,262,262,262,524,440
                DW 392,392,392,440,392,330,392
                DW 440,524,524,440,392
                DW 392,330,392
                DW 440,440,440,440,524,440
                DW 392,392,392,440,392,330,294
                DW 262,262,262,262,392
                DW 330,330,294
                DW 262,262,262,262,294,330
                DW 392,392,330,392,330,392
                DW 440
                DW 9,9,196,660,294,294,262
                DW 262,-1

Duration        DW 400,400
                DW 400,200,400,400,800,400,400
                DW 400,200,400,200,200,800,400,400
                DW 400,200,400,400,800,400,400
                DW 400,200,400,200,200,800,400,400
                DW 400,800,400,800,400,400
                DW 400,200,200,400,400,800,400,400
                DW 400,200,400,400,800,800
                DW 1600,800,800
                DW 400,800,400,800,400,400
                DW 400,400,400,400,800,400,400
                DW 400,800,400,800,400,200
                DW 2400,400,400
                DW 400,800,400,800,400,400
                DW 400,800,200,200,800,400,400
                DW 400,800,400,800,800
                DW 2400,400,400
                DW 400,800,400,800,400,400
                DW 400,800,200,200,800,400,400
                DW 800,400,800,400,200
                DW 2400,400,400
                DW 400,800,400,800,400,400
                DW 400,800,200,200,800,400,400
                DW 400,800,400,800,800
                DW 2400,400,400
                DW 400,800,400,800,400,400
                DW 400,800,400,800,400,400
                DW 3200
                DW 800,400,400,400,400,400,400
                DW 4000             	
     
                .CODE
MAIN:   	MOV     	AX,@DATA        	        	
        	MOV     	DS,AX
        	MOV     	SI,OFFSET frequency
        	MOV     	DI,OFFSET Duration
Loop1:     	MOV     	CX,[SI]
         	CMP     	CX,-1
         	JE      	exit
         	MOV     	BX,[DI]
         	CALL     	gensound
         	ADD     	SI,2
         	ADD     	DI,2
         	JMP             Loop1      	      
gensound:       PUSH            DX
                MOV             AX,0B6H
                OUT             43H,AL
                MOV             DX,8H
                MOV             AX,3208H
                DIV             CX
                OUT             42H,AL
                MOV             AL,AH
                OUT             42H,AL
                IN              AL,61H
                MOV             AH,AL
                OR              AL,03H
                OUT             61H,AL
Duration1:      PUSH            DX
                PUSH            AX
                MOV             DX,8H
                MOV             AX,0F05H                
SpkrOn:         SUB             AX,1
                SBB             DX,0
                JNZ             SpkrOn
                POP             AX
                POP             DX
                DEC             BX
                JNZ             Duration1
                MOV             AL,AH
                OUT             61H,AL
                POP             DX
                RET              
exit:           MOV     	AH,4CH
        	INT     	21H  
        	END     	MAIN