( ------------------------------------------------------------------------ ) ( -- communications line interface tandy 102 -- ) ( ------------------------------------------------------------------------ ) hex \ set baud rate : com ( rate-code -- ) 030 + 0F65B c! ; \ initialise communications line : cl.init {cl ; \ receive a byte from line code cl.rx ( -- received-byte ) 06D7E call ( no error check ) 0 h ldbi a l ldb hpush \ transmit a byte to line code cl.tx ( transmit-byte -- ) hl popw l a ldb 06E32 call ( no error check ) next decimal pr.rx ' cl.rx ' cl pr.set pr.tx ' cl.tx ' cl pr.set pr.init ' cl.init ' cl pr.set