FreeLists / zxspectrum / [zxspectrum] Re: routine seriale

[Mario Prato <mario.prato@xxxxxxxx>]

grazie per la routine EM, l'ho adattata alla porta $FE che e' quella 
che uso, la riposto cosi' mi dici cosa ne pensi...
in effetti rispetto alla mia e' molto piu' pulita :)
ora pero' mi tocca calcolare istruzione per istruzione la durata del 
ciclo di pausa per adattare la velocita'...:(

TXD DI
  LD   D,A                      ;salva il byte da spedire in D
  LD      A,(BORDCR)            ; carica il colore attuale del bordo
  RRCA
  RRCA
  RRCA

  LD L,A                        ;salva in L

  AND   A,127
  OUT  (254),A  ;START BIT      ;bit di start


   LD   B,108
TD1 DJNZ TD1    ;PAUSA
                
   LD   E,8
SND
   LD A,D       ;carica il byte
   RRCA         ;ruota a destra
   LD D,A       ;salva di nuovo in D
   AND A,128    ; maschera tutti i bit tranne il 7
   OR L         ;aggiunge il colore del bordo

   OUT  (254),A ;pone il bit in uscita

   LD   B,107
TD2 DJNZ TD2    ;pausa

   DEC  E
   JR   NZ,SND

   LD   A,L
   SET 7,A      
   OUT  (C),A   ;STOP BIT

   LD   B,107
TD3 DJNZ TD3

   EI
   RET