Это то что у меня получилось(с учетом того, что я в портах пока вообще не смыслю, так что не смейтесьесли можете исправьте или подскажите что сделать)Это три маленьких блока

;          ВВОД БАЙТА ДАННЫХ
;          
;ВЫПОЛНИЛ: студент группы 4-СKC-76 Бессмельцкв Андрей


;-------Сегмент данных-------------------------------------
DATASG        SEGMENT    PARA    'Data'
  
 
DATASG        ENDS                
;-----------Конец сегмента данных--------------------------

;--------------------Сегмент стека-------------------------
STK        SEGMENT    STACK
DB        256    DUP ('?')
STK            ENDS                
;---------------Конец сегмента стека-----------------------

;------------------------Сегмент кода---------------------
CODE        SEGMENT    PARA    PUBLIC    'CODE'
MAIN    PROC FAR 
ASSUME    CS:CODE, DS:DATASG, ES:DATASG, SS:STK

XOR AL,AL      ; устанавливаем на адаптере 0,
MOV DX,0200h      ; показываем, что контроллер cлушатель
MOV DX,0204h
IN  AL,DX      ;вводим  байт 
          

 
CODE ENDS
MAIN ENDP
END  MAIN




;          ВЫВОД БАЙТА ДАННЫХ
;          
;ВЫПОЛНИЛ: студент группы 4-СKC-76 Бессмельцкв Андрей


;-------Сегмент данных-------------------------------------
DATASG        SEGMENT    PARA    'Data'
  
 
DATASG        ENDS                
;-----------Конец сегмента данных--------------------------

;--------------------Сегмент стека-------------------------
STK        SEGMENT    STACK
DB        256    DUP ('?')
STK            ENDS                
;---------------Конец сегмента стека-----------------------

;------------------------Сегмент кода---------------------
CODE        SEGMENT    PARA    PUBLIC    'CODE'
MAIN    PROC FAR 
ASSUME    CS:CODE, DS:DATASG, ES:DATASG, SS:STK

XOR AL,AL     ; устанавливаем на адаптере 0,
MOV DX,0200h     ; показываем, что контроллер говорящий
MOV AL,10010101b  ; заносим байт данных
MOV DX,0204h
OUT DX,AL     ; байт данных на шине
          

 
CODE ENDS
MAIN ENDP
END  MAIN




;          ВЫВОД БАЙТА  КОМАНДЫ
;          
;ВЫПОЛНИЛ: студент группы 4-СKC-76 Бессмельцкв Андрей


;-------Сегмент данных-------------------------------------
DATASG        SEGMENT    PARA    'Data'
  
 
DATASG        ENDS                
;-----------Конец сегмента данных--------------------------

;--------------------Сегмент стека-------------------------
STK        SEGMENT    STACK
DB        256    DUP ('?')
STK            ENDS                
;---------------Конец сегмента стека-----------------------

;------------------------Сегмент кода---------------------
CODE        SEGMENT    PARA    PUBLIC    'CODE'
MAIN    PROC FAR 
ASSUME    CS:CODE, DS:DATASG, ES:DATASG, SS:STK

XOR AL,AL      ; устанавливаем  0,
MOV DX,0202h      
IN  AL,DX
AND AL,7Fh
OUT DX,AL      ;выыодим  байт 
XOR AL,AL
MOV DX,0204h
MOV AL,10110101b
IN  AL,DX
          

 
CODE ENDS
MAIN ENDP
END  MAIN