微机原理实验——走马灯程序.docx

;*********************************************************************; Aexp8.asm 走马灯（灯光变幻）程序 *;内容：用DIP的8位开关控制走马灯的花样，用SW3控制走马灯的起/停 * ;运行步骤:1.按下一次开关SW3,开始灯光变幻,再按下一次则停止; 可重复进行 *; 2.按下SW3后，拨动不同的数码开关DIP,就会出现不同的灯光变幻 *; 3.按下q或者Q,退出 *;*********************************************************************sseg segment para stack stack dw 200 dup (?)sseg endsdseg segment para public datamessage db press SW3 to start and then press SW3 to stop,and so on!,0ah,0dh;系统提示信息 db turn on DIP one by one and display various soud-op patterns! db 0ah,0dh db if you want to quit, please hit q or Q!,0ah,0dh,$flag db 0 ;初始化状态标志变量为0tdw 0 ;初始化延时变量为0numdw 0 ;初始化数字变量为0data1db 80h,40h,20h,10h,08h,04h,02h,01h ;八种不同的灯光变幻组合 data2db 01h,02h,04h,08h,10h,20h,40h,80h data3db 80h,20h,08h,02h,40h,10h,04h,01h data4db 01h,04h,10h,40h,02h,08h,20h,80hdata5db 0c0h,30h,0ch,03h,0c0h,30h,0ch,03hdata6db 03h,0ch,30h,0c0h,03h,0ch,30h,0c0hdata7db 81h,42h,24h,18h,81h,42h,24h,18h data8db 18h,24h,42h,81h,18h,24h,42h,81hdseg endscseg segment para public code assume ss:sseg,cs:cseg,ds:dsegm proc farstart:mov ax,ds push ax mov ax,00h push ax ;保留程序数据段地址 mov ah,09h ;显示系统提示信息 mov dx,seg message mov ds,dx mov dx,offset message int 21h ;初始化8255 mov dx,303h ;取8255的控制端口的地址 mov al,91h ;初始化8255的B口和C口高四位为输出模式 out dx,al ;A口和C口低四位为输入模式 ;初始化灯LED全灭 mov dx,301h ;取8255的端口B的地址 mov al,00h ;使8255的PB0-PB7全为0 out dx,al ;使所有的灯LED全灭 wait:;检测q或者Q键 mov ah,0bh int 21h ;调用DOS 21H 功能0BH 进行键盘判断 inc al jnz readpc ;检测是否有键按下 mov ah,08h int 21h ;调用DOS 21H 功能08H 进行键盘输入判断 cmp al,q jz quit;检测到q,退出 cmp al,Q jz quit;检测到Q,退出 readpc: ;判断开关SW3的状态 mov dx,302h ;取8255的端口C的地址 in al,dx ;读端口C的值 ;当按下开关SW3时,PC2口为低电平 test al,04h ;检测PC2口状态 jnz caselp:in al,dx test al,04h jz lp ;循环检测直至放开 xor flag,01h ;将状态值取反case:cmp flag,01h ;进行状态值比较 jne stopbegin:call ledflash ;调用灯光变幻过程 call delay2 jmp wait ;灯LED全灭 stop:mov dx,301h ;取8255的端口B的地址 mov al,00h ;使8255的PB0-PB7全为0 out dx,al ;使所有的灯LED全灭 jmp waitquit:;灯LED全灭 mov dx,301h ;取8255的端口B的地址 mov al,00h ;使8255的PB0-PB7全