;(1)按下任意一个键，LED显示对应开关的打开与否
IOY0  EQU 0600H
AA    EQU IOY0+0*2
BB    EQU IOY0+1*2
CC    EQU IOY0+2*2
MODE  EQU IOY0+3*2
STACK1  SEGMENT STACKDW  256  DUP(?)
STACK1  ENDS
CODE SEGMENTASSUME CS:CODE,SS:STACK1
START:MOV DX,MODEMOV AL,82HOUT DX,AL
NEXT:MOV DX,BBIN  AL,DXMOV DX,AAOUT DX,ALMOV AH,1JMP NEXTMOV AH,4CHINT 21H
CODE ENDSEND START

;（2）流水灯实验
IOY0  EQU 0600H
AA    EQU IOY0+0*2
BB    EQU IOY0+1*2
CC    EQU IOY0+2*2
MODE  EQU IOY0+3*2
STACK1  SEGMENT STACKDW  256  DUP(?)
STACK1  ENDS
CODE SEGMENTASSUME CS:CODE,SS:STACK1
START:MOV DX,MODE                这几行是设置控制字MOV AL,80H  ;80H 输出， 82H输入OUT DX,ALMOV BL,80HMOV BH,01H
NEXT:MOV DX,AA            输出步骤：1、设置值  2、设置地址  3、向端口输出MOV AL,BLOUT DX,ALMOV DX,BBMOV AL,BHOUT DX,ALCALL DELAYROR BL,1ROL BH,1JMP NEXTMOV AH,4CHINT 21H
DELAY PROC NEARMOV CX,20H
D1:MOV AX,0FFFFH
D2:DEC AXJNZ D2LOOP D1RET
DELAY ENDP
CODE ENDSEND START

IOY0 EQU 0600H
AA EQU IOY0 + 0 * 2
BB EQU IOY0 + 1 * 2
CC EQU IOY0 + 2 * 2
MODE EQU IOY0 + 3 * 2DATA SEGMENTCODES db 00h, 3fh, 06h, 5bh, 4fh, 66h, 6dh, 7dh, 07h, 7fh, 6fh, 79hLEN EQU $-CODES
DATA ENDSSTACK1 SEGMENT STACKDW 256 DUP(?)
STACK1 ENDSCODE SEGMENTassume cs:CODE, ds:DATA, ss:STACK1
START:;set control-wordMOV DX, MODEMOV AL, 82HOUT DX, AL;set dsMOV AX, DATAMOV DS, AXL:;GET KEY VALUEMOV DX, BBIN AL, DXCALL FUNCTIONJMP LFUNCTION PROCCMP AL, 00H JZ DEFAULTCMP AL, 01HJZ SHOWCMP AL, 02HJZ SHOWCMP AL, 04HJZ SHOWCMP AL, 08HJZ SHOWCMP AL, 10HJZ SHOWCMP AL, 20HJZ SHOWCMP AL, 40HJZ SHOWCMP AL, 80HJZ SHOWJMP EXCEPTION                SHOW:;MOV AH, 00H;MOV BL, 02H;DIV BLMOV CL, 0;get Codes address;ADD SI, AX;ADD SI, 01HJMP COUNTDEFAULT:MOV SI, OFFSET CODESMOV AL, DS:[SI] ;set original valueMOV DX, AA ;set addressOUT DX, ALCALL DELAYJMP LNEXT:MOV SI, OFFSET CODESMOV AH, 00HMOV AL, 00HMOV AL, CLADD SI, AXMOV AL, DS:[SI] ;set original valueMOV DX, AA ;set addressOUT DX, ALCALL DELAYRETEXCEPTION:MOV SI, OFFSET CODESADD SI, len DEC SIMOV AL, DS:[SI] ;set original valueMOV DX, AA ;set addressOUT DX, ALCALL DELAYRETCOUNT:ADD CL, 01HSHR AL, 1JNC COUNTJMP NEXTFUNCTION ENDPEXIT :MOV AH, 4CHINT 21HDELAY PROCPUSH CXPUSH BXMOV BX, 0FFFHD1: MOV CX, 010HD2: LOOP D2DEC BXJNZ D1POP BXPOP CXRETDELAY ENDPCODE ENDS
END START

IOY0         EQU   0600H          ;片选IOY0对应的端口始地址
MY8255_A     EQU    IOY0+00H*2     ;8255的A口地址
MY8255_B     EQU   IOY0+01H*2     ;8255的B口地址
MY8255_C     EQU   IOY0+02H*2     ;8255的C口地址
MY8255_MODE  EQU   IOY0+03H*2     ;8255的控制寄存器地址
SSTACK    SEGMENT STACKDW 32 DUP(?)
SSTACK    ENDS
DATA SEGMENTNUMS DB 3FH,06H,5BH,4FH,66h,6dh,7dh,07h,7fh,6fh,79H  ;
    ;SELECT_OUTSMG1  DB  0H, 0FEH, 0FDH, 0FBH, 0F7H
    DATA ENDS
CODE    SEGMENTASSUME CS:CODE,SS:SSTACK
START:    MOV AX,DATAMOV DS,AXMOV AX,SSTACKMOV SS,AXMOV DX, MY8255_MODEMOV AL, 82H    ;1000 0001 表示A口C口高四位低四位输出，B口为输入OUT DX, AL    ;控制字送控制寄存器MOV BX, 0    ;清零CTRL:        MOV DX , MY8255_BIN AL, DX    ;C口值送AL，进行输入MOV AH,0    ;AX的高8位清零TEST AL,1H    ;AL是否等于1，进行and操作，影响标志位JNZ T1           ;若AL为XXXX XXX1，跳T1MOV  CX ,00      ;CX送0JMP A1T1:        TEST AL, 2HJNZ T2           ;若AL为XXXX XX1X，跳T2MOV CX,10        ;CX送10MOV DX , MY8255_Bmov AL,00010000B ;
    out DX, AL    ;将AL的值给C口JMP A1T2:        TEST AL, 4HJNZ T3           ;若AL为XXXX X1XX，跳T3MOV CX, 20        ;CX送20MOV DX , MY8255_Bmov AL, 00100000Bout DX, ALJMP A1T3:        TEST AL,8HJNZ T4           ;若AL为XXXX 1XXX，跳T4MOV CX,40MOV DX , MY8255_Bmov AL,01000000Bout DX, ALJMP A1T4:        MOV CX,60        ;CX送60MOV DX , MY8255_Bmov AL,10000000Bout DX, ALJMP A1A1:        CMP BX,CXJNZ AMD  ;ZF=0，跳AMDCMP BX,0JE CWT    ;ZF=1,跳CWTAMD:        CMP CX,BXJB ASD   ;CX小于BX，跳ASDCALL PRINT1  ;执行子程序，会返回JMP CTRL
ASD:CALL PRINT2JMP CTRLCWT:        CALL PRIJMP CTRL    PRINT1 PROC;因为每次只能亮1个的原因，所以要call多次实现肉眼错觉CALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRI;CALL PRI;CALL PRI;CALL PRIINC  BXCMP BX,CXJB  PRINT1MOV BX,CXRET
PRINT1 ENDPPRINT2 PROCCALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRICALL PRI;CALL PRI;CALL PRI;CALL PRIDEC  BXCMP CX,BXJB  PRINT2MOV BX,CXRET
PRINT2 ENDPPRI PROC    PUSH CXPUSH DXPUSH AXPUSH BX;速度高位MOV AX,BXMOV CL,10DIV CL        ;  AH 余数  AL  商  36 / 10 = 3 ..... 6  MOV CX,0MOV CX,14 ;0000 1110b,就是设置第一个数码管亮MOV BL,AL   ; 3   CALL HUACALL YANSHI;速度低位    MOV BL,AHMOV CX,13 ;0000 1101b，就是设置第二数码管亮CALL HUACALL YANSHI;档位MOV BL, ALMOV CX,7 ;0000 0111b，就是设置第4个亮CALL HUACALL YANSHIPOP BXPOP AXPOP DXPOP CXRET
PRI ENDPHUA PROCPUSH BXPUSH AX;控制第XXX灯亮MOV DX, MY8255_CMOV AX,CXOUT DX,AX   ;B口输出CX;输出值到数码管MOV BH,0MOV DX,MY8255_AMOV SI,OFFSET NUMSMOV AX,[SI+BX]OUT DX,AX   ;A口输出BX，也就是NUMS[BX]POP AXPOP BXRET
HUA ENDP    YANSHI PROCPUSH CXMOV CX,2000
YS:CALL YANSHI2DEC CXJNZ YS
POP CXRET
YANSHI ENDPYANSHI2 PROCPUSH CXMOV CX,1
TYUY:DEC CXJNZ TYUYPOP CXRET
YANSHI2 ENDP
CODE    ENDS
END START