OUT DX,AL MOV DX,0FFE0H MOV AL,00H OUT DX,AL MOV AL,10H OUT DX,AL JMP $
;----------------------------实验十 继电器控制------------------------ ORG 34B0H
JDL: MOV CX,0004H JDL1: PUSH CX MOV CX,0FFFFH LOOP $ POP CX LOOP JDL1 RET
;----------------实验十二 8251串口实验(2) 8251ORG 34E0H JMP S8251
Z8251 EQU 0FFE1H D8251 EQU 0FFE0H COM_MOD EQU 04EH COM_COM EQU 25H TXBUF DB 26 DUP(?)
;------------------------ S8251: MOV DX,Z8251 MOV AL,COM_MOD
OUT DX,AL ;8 bit,*16 MOV AL,COM_COM ; OUT DX,AL
MOV BX,OFFSET TXBUF
MOV AL,41H ;'A' L11: MOV [BX],AL INC BX INC AL CMP AL,5BH JNZ L11
;-------------------------
L3: MOV BX,OFFSET TXBUF MOV CX,001AH
发送26个字母----------------- L2: MOV AH,[BX] CALL SEND
; INC BYTE PTR [BX] INC BX NOP LOOP L2 JMP L3
;--------------------- SEND: MOV DX,Z8251 W1: IN AL,DX TEST AL,01H JZ W1
MOV DX,D8251 MOV AL,AH OUT DX,AL RET
;---------------------------
ORG 3550H ;PC-TX,88-RX R8251: MOV DX,Z8251 MOV AL,COM_MOD
OUT DX,AL ;8 bit,*16 MOV AL,COM_COM ; OUT DX,AL
L5: CALL WP
;----------------------- L4: MOV BX,OFFSET BUF MOV CX,0006H L6: push cx push bx CALL RECV pop bx pop cx CMP AL,0DH JZ L5 CALL SUBB CMP AL,20H JZ L6
MOV [BX],AL INC BX LOOP L6 JMP L4
;--------------------- SUBB: CMP AL,30H JC L7
CMP AL,3AH JC L8
CMP AL,41H JC L7
CMP AL,47H JNC L7 SUB AL,37H RET
L8: SUB AL,30H RET
L7: MOV AL,20H RET
;------------------- RECV: MOV DX,Z8251 W11: IN AL,DX TEST AL,02H JNZ W22 CALL DIS JMP W11
W22: MOV DX,D8251 IN AL,DX MOV AH,AL MOV DX,Z8251 W33: IN AL,DX TEST AL,02H JNZ W33
W44: IN AL,DX TEST AL,02H JNZ W44 MOV AL,AH RET
;----------------实验十一 8251串口实验(1) ORG 35C0H ;TX=RX MOV BX,0400H MOV AL,[BX] CMP AL,00H JNZ SR0
SR8251: MOV DX,Z8251 MOV AL,COM_MOD
OUT DX,AL ; MOV AL,COM_COM ; OUT DX,AL MOV AL,01H
-------------------- 自发自收MOV BX,0400H MOV [BX],AL SR0: CALL WP MOV SI,4000H MOV DI,5000H MOV CX,0010H
SR1: MOV AH,[SI] CALL SEND CALL RX MOV [DI],AH INC SI INC DI LOOP SR1
SR2: CALL DIS JMP SR2
RX: MOV DX,Z8251 RX1: IN AL,DX TEST AL,02H JZ RX1
MOV DX,D8251 IN AL,DX MOV AH,AL RET
;--------------------------实验十三IOCONPT EQU 0FFDBH IOBPT E
QU 0FFD9H IOAPT EQU 0FFD8H
ORG 3620H MOV AL,88H MOV DX,IOCONPT OUT DX,AL NOP NOP NOP
IOLED1: MOV DX,IOAPT MOV AL,08H OUT DX,AL
步进电机控制----------------------
