DB 00110001B ;A******采用单八拍，一次旋转的角度为7.5°旋转方向应为D->C->B->A DB 00110011B ;AB DB 00110010B ;B DB 00110110B ;BC DB 00110100B ;C DB 00111100B ;CD
DB 00111000B ;D DB 00111001B ;DA .CODE START: MOV AX,@DATA MOV DS,AX NOP CALL InitPCI CALL ModifyAddress ;根据PCI提供的基地址,将偏移地址转化为实地址 MOV DX,COM_ADD MOV AL,82H ;8255初始化控制字 1000 0010 （只有B口为输入） OUT DX,AL MOV DX,PC_ADD ;灯全亮 MOV AL,00H out dx,al call dl500ms mov al,0ffh OUT DX,AL ;蜂鸣 MOV DX,Pa_ADD ;灯全熄灭 MOV AL,0ffH OUT DX,AL LEA BX,LED_Data
start1: mov DX,PB_ADD in al,dx cmp al,01h
jNz start1 ;等着按开关 K1 mov cx,3
JMP START2 START2: MOV DX,PA_ADD MOV AL,0 XLAT OUT DX,AL CALL DL3S ;9s放衣服时间，绿灯始终亮，红灯闪3次
MOV AL,1 XLAT OUT DX,AL CALL DL500MS LOOP START2 JMP BEGIN
BEGIN: ;选流程 MOV DX,PA_ADD MOV AL,001 XLAT OUT DX,AL call dl3s ;等着按开关 K2 MOV DX,PB_ADD IN AL,DX
CMP AL,01H JZ BEGIN1
CMP AL,03H JZ BEGIN2
BEGIN1:
CALL WASH ;洗涤过程 CALL TUOSHUI ;脱水过程 CALL PIAOXI ;漂洗过程 CALL TUOSHUI ; CALL PIAOXI ;
CALL SHUAIGAN ;甩干过程 jmp exit
BEGIN2: CALL WASH CALL TUOSHUI CALL PIAOXI CALL SHUAIGAN jmp exit
WASH PROC NEAR mov AL,1
XLAT
OUT DX,AL call dl500ms mov AL,0 XLAT
OUT DX,AL
MOV DX,PC_ADD MOV AL,20H ;打开进水阀 OUT DX,AL CALL DL5S jmp start5
start5 :
MOV DX,PB_ADD IN AL,DX
CMP AL,04H ;达到预定水位？ 按开关3 jnz start5
MOV DX,PA_ADD ;洗涤状态标示 第五个灯亮 MOV AL,77H OUT DX,AL CALL DELAY
mov cx,3 ;洗涤过程中的三次循环 jmp xididj
xididj: call dianjimov call dl3s
loop xididj
MOV DX,PA_ADD MOV AL,1 XLAT
OUT DX,AL;红灯亮 CALL DL3S MOV AL,0 XLAT OUT DX,AL RET
WASH ENDP
TUOSHUI PROC NEAR
MOV DX,PB_ADD
IN AL,DX;打开排水阀
MOV DX,PA_ADD ;脱水状态标示 第六个灯亮 MOV AL,7BH OUT DX,AL CALL DELAY ;PUSH CX MOV CX,75 JMP ZHENGZHUAN1 ZHENGZHUAN1: MOV DX,PC_ADD MOV AL,2 XLAT ;从存储单元[bx+al]中取一个字节送到al寄存器 OUT DX,AL ;A通电 B、C、D断开，A相磁极和转子0、3号齿对齐，同时，转子的1、4号 ;齿就和B、C相绕组磁极产生错齿，2、5号齿就和C、D相绕组磁极产生错齿 ;。初始状态 CALL DELAY ;延迟500ms MOV AL,3 XLAT OUT DX,AL ;AB通电CD断开时，由于B相绕组的磁力线和1、4号齿之间磁力线的作用，
;使转子转动，同时A相绕组的磁力线和0、3号齿之间磁力线的作用 使1、4号齿不能和B相绕组的磁极对齐。因;此0、3号齿和A、B相绕组产生错齿，1、4号齿就和B、C相绕组磁极产生错齿，2、5号齿与C、D;产生错齿。(转动角度7.5°) CALL DELAY ;延迟500ms MOV AL,4 XLAT OUT DX,AL ;B通电 A、C、D断开，由于B相绕组的磁力线和1、4号齿之间磁力线的作用，使转子转动，B相磁极和转子1、4号齿对齐，同时，转子的0、3号齿就和A、D相绕组磁极产生错齿，2、5号齿就和C、D相绕组磁极产生错齿。(该次转动角度为7.5°共转了15°) CALL DELAY ;延迟500ms MOV AL,5 ;BC通电 旋转类推 XLAT
OUT DX,AL CALL DELAY ;延迟500ms MOV AL,6 ;C通电 旋转类推 XLAT OUT DX,AL CALL DELAY MOV AL,7 ;CD通电 旋转类推 XLAT OUT DX,AL CALL DELAY
MOV AL,8 XLAT OUT DX,AL CALL DELAY
MOV AL,9 XLAT OUT DX,AL CALL DELAY LOOP ZHENGZHUAN1
JMP FINISH;5S后结束脱水 FINISH:
MOV DX,PA_ADD MOV AL,1 XLAT
OUT DX,AL;红灯亮 CALL DL500mS MOV AL,0 XLAT OUT DX,AL RET
TUOSHUI ENDP
PIAOXI PROC NEAR
mov AL,1 XLAT
OUT DX,AL call dl500ms
;D通电 旋转类推 ;DA通电 旋转类推