Enviando dados via RS232 na porta de Joystick

Em muitos microcontroladores sem UART real é comum emular este periférico gerando os bits, um a um, via Software. Mas para fazer isso é necessário saber exatamente o tempo de execução de cada instrução, de forma a se produzir as temporizações corretas.

No MSX deve-se levar em consideração não somente os ciclos de máquina gastos com cada instrução, mas também o WAIT STATE inserido a cada ciclo M1.

O Ciclo M1 é gerado durante a busca de instruções do Z80 ("opcode fetch"), mas há algumas instruções onde esse ciclo ocorre mais de uma vez, ou seja, é necessário somar um ciclo a mais para cada ciclo M1 gerado.

Um exemplo é a instrução NEG:

INSTR    BYTES  M1        
NEG        2    OCF(4)/OCF(4)

Esta instrução gasta ao todo 10 ciclos de máquina para ser executada no MSX.

Uma relação completa das instruções do Z80, bem como da quantidade de ciclos por instrução, e a quantidade de ciclos M1 pode ser encontrada neste link: http://www.z80.info/z80ins.txt

A rotina abaixo envia um byte recebido no registrador A pelo pino 6 da porta B de joystick.

;
;  Bits do Registro 15 do PSG
;
BTXD  EQU 2
ABSEL EQU 6

;
; Registros do PSG
;
PSGAD EQU 0A0H
PSGWR EQU 0A1H
PSGRD EQU 0A2H


;
; Constantes

; BaudRates
;BAUD EQU 8 ; 19200 Bauds, -0.32% erro
;BAUD EQU 14 ; 14400 Bauds, -1.8% erro
BAUD EQU 25 ; 9600 Bauds, -0.32% erro
;BAUD EQU 59 ; 4800 Bauds, -0.32% erro
;BAUD EQU 127; 2400 Bauds, -0.32% erro
;BAUD EQU 255 ;1200 Bauds, 2.6% erro



;
; A: Byte a ser transmitido
; B: Estado atual do registrador 15 do PSG
;
SND232:
LD C,A
LD A,B

; Start bit
LD L,BAUD
CALL SND0     ; 17+1 + (SEND0)

; 8 bits
LD B,08H      ; 7+1
LD L,BAUD     ; 8

S20:
 RRC C    ; 8+2
 CALL C,SND1   ; 17+1 + (SEND0)/ 10+1 F
 CALL NC,SND0  ; 17+1 + (SEND0)/ 10+1 F 
DJNZ S20      ; 13+1 b<>0/ 8+1 b=0

; Stopbit - return line to IDLE state
LD L,BAUD     ; 8
CALL SND1     ; 17+1  + (SEND0)
LD B,A        ; 4+1
RET           ; 10+1


SND0:
RES BTXD,A ; txd=0   8+2
OUT [PSGWR],A ; 11+1
S01: DEC L ; 4+1
    JP NZ,S01 ; 10+1  ;
RET           ; 10+1


SND1:
SET BTXD,A ; txd=1  8+2
OUT [PSGWR],A ; 11+1
S01: DEC L   ; 4+1
    JP NZ,S01 ; 10+1  ;
RET           ; 10+1

E Antes de imprimir, é necessário desabilitar as interrupções e inicializar o registro 15:

PRNTJ232:
DI
LD A,15
OUT [PSGAD],A
IN A,[PSGRD]
LD [PSGSAV],A

SET ABSEL,A ; JOY B
SET BTXD,A ; SDA=1
OUT [PSGWR],A
LD B,A