中国矿业大学计算机学院信息安全10-4班硬件课程设计——电子琴
MOV DX, 208H MOV AL, 34H OUT DX, AL MOV AL, 30H OUT DX, AL CALL DELAY2 MOV DX, 208H MOV AL, 24H OUT DX, AL MOV AL, 38H OUT DX, AL CALL DELAY2 LOOP WW5
MOV CX,02H WW7:
MOV DX, 208H MOV AL, 07H OUT DX, AL MOV AL, 34H OUT DX, AL CALL DELAY2 MOV DX, 208H MOV AL, 02H OUT DX, AL MOV AL, 51H OUT DX, AL CALL DELAY2
MOV DX, 208H MOV AL, 24H OUT DX, AL MOV AL, 38H OUT DX, AL CALL DELAY2 LOOP WW7 RET ZHONGYIN ENDP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; GAOYIN PROC NEAR MOV CX,02H
W1: MOV DX, 208H ;1 MOV AL, 12H
- 37 -
中国矿业大学计算机学院信息安全10-4班硬件课程设计——电子琴
OUT DX, AL MOV AL, 18H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;2 MOV AL, 04H OUT DX, AL MOV AL, 17H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;3 MOV AL, 17H OUT DX, AL MOV AL, 15H OUT DX, AL
CALL DELAY2 ;1 MOV DX, 208H MOV AL, 12H OUT DX, AL MOV AL, 18H OUT DX, AL CALL DELAY2 LOOP W1
MOV CX,02H W3:
MOV DX, 208H ;3 MOV AL, 17H OUT DX, AL MOV AL, 15H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;4 MOV AL, 29H OUT DX, AL MOV AL, 14H OUT DX, AL
CALL DELAY2 ;5 MOV DX, 208H MOV AL, 76H OUT DX, AL MOV AL, 12H OUT DX, AL
- 38 -
中国矿业大学计算机学院信息安全10-4班硬件课程设计——电子琴
CALL DELAY2 ;5 MOV DX, 208H MOV AL, 76H OUT DX, AL MOV AL, 12H OUT DX, AL
CALL DELAY2 LOOP W3 MOV CX,02H W5:
MOV DX, 208H ;5 MOV AL, 76H OUT DX, AL MOV AL, 12H OUT DX, AL
CALL DELAY MOV DX, 208H ;6 MOV AL, 36H OUT DX, AL MOV AL, 11H OUT DX, AL
CALL DELAY ;5 MOV DX, 208H MOV AL, 76H OUT DX, AL MOV AL, 12H OUT DX, AL CALL DELAY MOV DX, 208H ;4 MOV AL, 29H OUT DX, AL MOV AL, 14H OUT DX, AL CALL DELAY
MOV DX, 208H ;3 MOV AL, 17H OUT DX, AL MOV AL, 15H OUT DX, AL CALL DELAY2
MOV DX, 208H ;1 MOV AL, 12H OUT DX, AL MOV AL, 18H
- 39 -
中国矿业大学计算机学院信息安全10-4班硬件课程设计——电子琴
OUT DX, AL CALL DELAY2 LOOP W5
MOV CX,02H W7:
MOV DX, 208H ;2 MOV AL, 04H OUT DX, AL MOV AL, 17H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;5 MOV AL, 76H OUT DX, AL MOV AL, 12H OUT DX, AL CALL DELAY2
MOV DX, 208H ;1 MOV AL, 12H OUT DX, AL MOV AL, 18H OUT DX, AL CALL DELAY2 LOOP W7 RET GAOYIN ENDP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; DIYIN PROC NEAR MOV CX,02H
WWW1:MOV DX, 208H ;1 MOV AL, 34H OUT DX, AL MOV AL, 76H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;2 MOV AL, 03H OUT DX, AL MOV AL, 68H OUT DX, AL
CALL DELAY2 MOV DX, 208H ;3
- 40 -