Serial Bitbang a 19200 bauds na porta de Joystick

Fiz funcionar a rotina de transmissão serial na porta de joystick. Removidos alguns erros de lógica, consegui transmitir para o PC nas seguintes velocidades:

19200 Bauds, (6)
14400 Bauds, (10)
9600 Bauds, (17-19)
4800 Bauds, (41-43)
2400 Bauds, (90-93)
1200 Bauds, (188-191)

Toda a temporização é feita por software. Os números em parênteses são o parâmetro de temporização. As velocidades de 14400 e 19200 são meio críticas, mas funcionam bem.

A conexão com o PC é através do pino 6 da porta de Joystick B. Eu utilizei um MAX232, alimentado pelo pino 5 (Vcc), mas há outras alternativas[1], [2], embora eu ainda não as tenha testado.

O código fonte encontra-se abaixo.

;
;  Rotinas de impressão na porta
;  de Joystick do MSX
;
; danjovic@hotmail.com
; http://hotbit.blogspot.com
;
; Versao 0.5 12/01/2008
;
; Licenca de uso: GNU GPL
;
;


ORG 09000H

; Compilado no ASMSX
; http://www.robsy.net/asmsx.htm
.BASIC
.START PRNTJ232

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

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


;
; Constantes

; BaudRates
;BAUD EQU 6   ; 19200 Bauds, (6)
;BAUD EQU 10  ; 14400 Bauds, (10)
BAUD EQU 18  ;  9600 Bauds, (17-19)
;BAUD EQU 42  ;  4800 Bauds, (41-43)
;BAUD EQU 92  ;  2400 Bauds, (90-93)
;BAUD EQU 190 ;  1200 Bauds, (188-191)


;
;  Rotina de teste de impressão
;  na porta de Joystick
;



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

SET ABSEL,A ; JOY B
SET BTXD,A ; SDA=1

SYNC:
SET BPLS,A  ; start sync
OUT [PSGWR],A
NOP
NOP
NOP
NOP
RES BPLS,A  ; stop sync
OUT [PSGWR],A
LD B,A      ; B=conteudo reg 15

MUDABAUD:
LD H,BAUD
LD DE,MENSAGEM
REPETE:
LD A,[DE]
INC DE
OR A
JR Z,FIM
LD C,A
CALL SND232
JR REPETE

FIM:
EI
RET


MENSAGEM:
DB "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789 ",0

PSGSAV:
DS 1


SND232:
; Entradas:
; C: Byte a ser transmitido
; B: Estado atual do registrador 15 do PSG
; H: Constante para Baud Rate
;
; Modifica A,F,B,C,L

LD A,B        ; B=Estado registro 15 PSG

;
; Start bit  (txd=0)
;
LD L,H        ; 4+1
CALL SND0     ; 17+1 + (SEND0)

;
; 8 bits do dado, LSbit primeiro
;
LD B,08H      ; 7+1
S20:
LD L,H        ; 4+1
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 - retorna linha txd para IDLE
;
LD L,BAUD     ; 8
CALL SND1     ; 17+1  + (SEND1)
LD B,A        ; 4+1
RET           ; 10+1


;
; Envia um bit 0
;
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

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