MF2KP走马灯灯光变幻程序.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口高四位为输出模式XIUGAI1?out dx,al?;A口和C口低四位为输入模式XIUGAI1?;初始化灯LED全灭?mov dx,301h?;取8255的端口B的地址 ???;XIUGAI?mov al,00h?;使8255的PA0-PA7全为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的地址 ??;XIUGAI?mov al,00h?;使8255的PA0-PA7全为0?out d