📄 zhk1.asm
字号:
CMP CX,0A0H
JB LOPY1
MOV DX,78H
MOV CX,91H
MOV AH,0CH
MOV AL,4
INT 10H
MOV DX,78H
MOV CX,0AFH
MOV AH,0CH
MOV AL,4
INT 10H
MOV DX,46H ；行坐标
MOV CX,0A0H ；列坐标
LL1_NOR1L12: MOV AH,0CH ；设置写像素点功能
MOV AL,4
INT 10H
INC DX
CMP DX,0AFH
JNZ LL1_NOR1L12
MOV DX,0AFH
MOV CX,8AH
MOV AL,4
INT 10H
RET
WELCOME_PIC ENDP
;-------------------------------------;WELCOME_SOUD子程序
WELCOME_SOUD PROC NEAR
LEA SI,FREQ
LEA BP,TIME
MUSIC1_WEL: MOV DI,[SI]
CMP DI,0
JE DONE_WELS
MOV BX,DS:[BP]
MOV AL,0B6H
OUT 43H,AL ;8254 CHANNEL 2 CTRL WORD
MOV DX,12H
MOV AX,3280H
DIV DI
OUT 42H,AL ;8254 CHANNEL 2 DEFAULT CONUNT
MOV AL,AH
OUT 42H,AL ;8255 CHANNEL 2 DEFAULT CONUNT
IN AL,61H ;READ 8255 PB
MOV AH,AL
OR AL,03H
OUT 61H,AL ;8255 PB
DELAY1_WEL: MOV CX,0FFFFH
DELAY2_WEL: LOOP DELAY2_WEL
DEC BX
JNZ DELAY1_WEL
MOV AL,AH
OUT 61H,AL ;8255 PB
ADD SI,2
ADD BP,2
JMP MUSIC1_WEL
DONE_WELS:
RET
WELCOME_SOUD ENDP
;--------------------------------------; WARNING_PIC子程序
WARNING_PIC PROC NEAR
MOV AH,00H
MOV AL,0DH
INT 10H
MOV AH,0BH
MOV BH,0
MOV BL,0
INT 10H
MOV DX,1EH
MOV CX,50H
L1_WARP: MOV AH,0CH
MOV AL,7
INT 10H
INC DX
CMP DX,46H
JNZ L1_WARP
MOV DX,1EH
INC CX
CMP CX,0F0H
JNZ L1_WARP
MOV DX,47H
MOV CX,50H
L2_WARP: MOV AH,0CH
MOV AL,1
INT 10H
INC DX
CMP DX,0AFH
JNZ L2_WARP
MOV DX,47H
INC CX
CMP CX,0A0H
JNZ L2_WARP
MOV DX,47H
MOV CX,0A1H
L5_WARP: MOV AH,0CH
MOV AL,1
INT 10H
INC DX
CMP DX,0AFH
JNZ L5_WARP
MOV DX,47H
INC CX
CMP CX,0F0H
JNZ L5_WARP
MOV DX,46H
MOV CX,50H
L3_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC CX
CMP CX,0F0H
JNZ L3_WARP
MOV DX,46H
MOV CX,0A0H
L4_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC DX
CMP DX,0AFH
JNZ L4_WARP
MOV DX,1EH
MOV CX,50H
L6_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC DX
CMP DX,0AFH
JNZ L6_WARP
MOV DX,1EH
MOV CX,0F0H
L7_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC DX
CMP DX,0AFH
JNZ L7_WARP
MOV DX,1EH
MOV CX,50H
L8_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC CX
CMP CX,0F0H
JNZ L8_WARP
MOV DX,0AFH
MOV CX,50H
L9_WARP: MOV AH,0CH
MOV AL,5
INT 10H
INC CX
CMP CX,0F0H
JNZ L9_WARP
MOV DX,78H
MOV CX,91H
MOV AH,0CH
MOV AL,4
INT 10H
MOV DX,78H
MOV CX,0AFH
MOV AH,0CH
MOV AL,4
INT 10H
LEA DX,WARING
MOV AH,9
INT 21H
;---------------------------------------密码小键盘
MOV DX,56H ；行坐标
MOV CX,20H ；列坐标
LLL1_NORK: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,79H
JNZ LLL1_NORK
MOV DX,56H
INC CX
CMP CX,39H
JNZ LLL1_NORK
MOV DX,59H ；行坐标
MOV CX,23H ；列坐标
LLL1_NOR1K: MOV AH,0CH ；设置写像素点功能
MOV AL,5
INT 10H
INC DX
CMP DX,62H
JNZ LLL1_NOR1K
MOV DX,59H
INC CX
CMP CX,36H
JNZ LLL1_NOR1K
MOV DX,65H
MOV CX,25H
MOV AL,4
INT 10H
MOV DX,65H
MOV CX,2AH
MOV AL,4
INT 10H
MOV DX,65H
MOV CX,2FH
MOV AL,4
INT 10H
MOV DX,65H
MOV CX,34H
MOV AL,4
INT 10H
MOV DX,6AH
MOV CX,25H
MOV AL,4
INT 10H
MOV DX,6AH
MOV CX,2AH
MOV AL,4
INT 10H
MOV DX,6AH
MOV CX,2FH
MOV AL,4
INT 10H
MOV DX,6AH
MOV CX,34H
MOV AL,4
INT 10H
MOV DX,6FH
MOV CX,25H
MOV AL,4
INT 10H
MOV DX,6FH
MOV CX,2AH
MOV AL,4
INT 10H
MOV DX,6FH
MOV CX,2FH
MOV AL,4
INT 10H
MOV DX,6FH
MOV CX,34H
MOV AL,4
INT 10H
MOV DX,74H
MOV CX,25H
MOV AL,4
INT 10H
MOV DX,74H
MOV CX,2AH
MOV AL,4
INT 10H
MOV DX,74H
MOV CX,2FH
MOV AL,4
INT 10H
MOV DX,74H
MOV CX,34H
MOV AL,4
INT 10H
;-------------------人画面
MOV DX,51H ；行坐标
MOV CX,98H ；列坐标
LL1_NORK: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,5FH
JNZ LL1_NORK
MOV DX,51H
INC CX
CMP CX,0A8H
JNZ LL1_NORK
MOV DX,55H ；行坐标
MOV CX,0A0H ；列坐标
LL1_NOR1K: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,70H
JNZ LL1_NOR1K
MOV DX,70H ；行坐标
MOV CX,90H ；列坐标
LL1_NOR2K: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC CX
CMP CX,0B0H
JNZ LL1_NOR2K
MOV DX,70H ；行坐标
MOV CX,90H ；列坐标
LL1_NOR3K: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,8AH
JNZ LL1_NOR3K
MOV DX,70H ；行坐标
MOV CX,0B0H ；列坐标
LL1_NOR4K: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,8AH
JNZ LL1_NOR4K
MOV DX,70H ；行坐标
MOV CX,0A0H ；列坐标
LL1_NOR5K: MOV AH,0CH ；设置写像素点功能
MOV AL,11
INT 10H
INC DX
CMP DX,9AH
JNZ LL1_NOR5K
MOV DX,0AFH
MOV CX,8AH
LOPPK: MOV AH,0CH
MOV AL,11
INT 10H
DEC DX
INC CX
CMP CX,0A0H
JNZ LOPPK
MOV DX,9AH
MOV CX,0A1H
LOPP1K:MOV AH,0CH
MOV AL,11
INT 10H
INC DX
INC CX
CMP DX,0B0H
JNZ LOPP1K
RET
WARNING_PIC ENDP
;--------------------------------------; WARNING_SOUD子程序
WARNING_SOUD PROC NEAR
LEA SI,F
LEA BP,T
MUSIC1_WAR: MOV DI,[SI]
CMP DI,0
JE DONE_WARS
MOV BX,DS:[BP]
MOV AL,0B6H
OUT 43H,AL ;8254 CHANNEL 2 CTRL WORD
MOV DX,12H
MOV AX,3280H
DIV DI
OUT 42H,AL ;8254 CHANNEL 2 DEFAULT CONUNT
MOV AL,AH
OUT 42H,AL ;8255 CHANNEL 2 DEFAULT CONUNT
IN AL,61H ;READ 8255 PB
MOV AH,AL
OR AL,03H
OUT 61H,AL ;8255 PB
DELAY1_WAR: MOV CX,0FFFFH
DELAY2_WAR: LOOP DELAY2_WAR
DEC BX
JNZ DELAY1_WAR
MOV AL,AH
OUT 61H,AL ;8255 PB
ADD SI,2
ADD BP,2
JMP MUSIC1_WAR
DONE_WARS:
RET
WARNING_SOUD ENDP
;---------------------------------
;-------------------------------------延时
DELAY3 PROC NEAR
MOV BX,0FFH
PUSH AX
PUSH CX
PUSH DX
TLL1: MOV CX, 1
MOV DX, 10
MOV AH, 86H
INT 15H
DEC BX
JNZ TLL1
POP DX
POP CX
POP AX
RET
DELAY3 ENDP
;--------------------------------;DINGDONG
DDONG PROC NEAR
LEA SI,F_D
LEA BP,T_D
MUSIC1_D: MOV DI,[SI]
CMP DI,0
JE DONE_D
MOV BX,DS:[BP]
MOV AL,0B6H
OUT 43H,AL ;8254 CHANNEL 2 CTRL WORD
MOV DX,12H
MOV AX,3280H
DIV DI
OUT 42H,AL ;8254 CHANNEL 2 DEFAULT CONUNT
MOV AL,AH
OUT 42H,AL ;8255 CHANNEL 2 DEFAULT CONUNT
IN AL,61H ;READ 8255 PB
MOV AH,AL
OR AL,03H
OUT 61H,AL ;8255 PB
DELAY1_D: MOV CX,0FFFFH
DELAY2_D: LOOP DELAY2_D
DEC BX
JNZ DELAY1_D
MOV AL,AH
OUT 61H,AL ;8255 PB
ADD SI,2
ADD BP,2
JMP MUSIC1_D
DONE_D:
RET
DDONG ENDP
CODE ENDS
END START
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -