王爽—实验16.doc

AT89S51单片机实验ASSUME CS:CODECODE SEGMENT ;-在最后一行写满A- START: MOV AX,0B800H MOV ES,AX MOV CX,80 MOV SI,24*160 SC: MOV BYTE PTR ES:SI,A ADD SI,2 LOOP SC ;-安装INT 7CH中断处理程序- MOV AX,0 MOV ES,AX MOV AX,CS MOV DS,AX MOV SI,OFFSET SETSCREEN MOV DI,200H MOV CX,OFFSET WAN-OFFSET SETSCREEN CLD REP MOVSB ;-修改INT 7CH的中断向量表- MOV WORD PTR ES:7CH*4,200H MOV WORD PTR ES:7CH*4+2,0 ;-调用INT 7CH，AH传递的是要调用INT 7CH中的哪条子程序，AL传递的是颜色属性- MOV AH,2 MOV AL,3 INT 7CH ;-整个程序执行完，返回！- - - - MOV AX,4C00H INT 21H SETSCREEN: JMP S ;-这里和以前的不同，如果和以前一样，那么TABLE表中的数据是原来的数据，跳转时就发生错误，- ;-数据（地址）是会变的，不变的是相对位移（地址）- TABLE DW 0,0,0,0 S: MOV BX,OFFSET SUB1-OFFSET SETSCREEN ADD BX,200H MOV WORD PTR TABLE0,BX MOV BX,OFFSET SUB2-OFFSET SETSCREEN ADD BX,200H MOV WORD PTR TABLE2,BX MOV BX,OFFSET SUB3-OFFSET SETSCREEN ADD BX,200H MOV WORD PTR TABLE4,BX MOV BX,OFFSET SUB4-OFFSET SETSCREEN ADD BX,200H MOV WORD PTR TABLE6,BX ;-根据传递的参数，找到相应的子程序- SET: PUSH BX CMP AH,3 ;当AH传递的值大于3，说明输入有误 JA SRET MOV BL,AH MOV BH,0 ADD BX,BX CALL WORD PTR TABLEBX SRET: POP BX IRET ;-子程序0，清屏- SUB1: PUSH BX PUSH CX PUSH ES MOV BX,0B800H MOV ES,BX MOV BX,0 MOV CX,2000 SUBLS: MOV BYTE PTR ES:BX, ADD BX,2 LOOP SUBLS POP ES POP CX POP BX RET ;-子程序1，设置前景色- SUB2: PUSH BX PUSH CX PUSH ES MOV BX,0B800H MOV ES,BX MOV BX,1 MOV CX,2000 SUB2S: AND BYTE PTR ES:BX,11111000B OR ES:BX,AL ADD BX,2 LOOP SUB2S POP ES POP CX POP BX RET ;-子程序2，设置背景色- SUB3: PUSH BX PUSH CX PUSH ES MOV CL,4 SHL AL,CL MOV BX,0B800H MOV ES,BX MOV BX,1 MOV CX,2000 SUB3S: AND BYTE PTR ES:BX,10001111B OR ES:BX,AL ADD BX,2 LOOP SUB3S POP ES POP CX POP BX RET ;-子程序3，向上滚动一行- SUB4: PUSH CX PUSH SI PUSH DI PUSH ES PUSH DS MOV SI,0B800H MOV ES,SI MOV DS,SI MOV SI,160 MOV DI,0 CLD MOV CX,24 SUB4S: PUSH CX MOV CX,160 REP MOVSB POP CX LOOP SUB4S MOV CX,80 MOV SI,0 SUB4S1: MOV BYTE PTR 160*24+S