10 REM > SerLink/s
   20 REM Connect BBC VDU output to serial port on Break
   30 :
   40 FOR P=0 TO 1
   50   P%=&380
   60   [OPT P*3
   70   .start
   80   BCC go:RTS
   90   .go
  100   LDA #3:LDX #1:JSR &FFF4
  110   LDA #22:JSR &FFEE
  120   LDA &355:JMP &FFEE
  130   .init
  140   LDA #76:STA &190+247
  150   LDA #&80:STA &190+248
  160   LDA #&03:STA &190+249
  170   LDA #3:LDX #1:JMP &FFF4
  180 ]NEXT
  190 *FX247,76
  200 *FX248,128
  210 *FX249,3
  220 PRINT"*SAVE SerLink FFFF0380 FFFF0";~P%;" FFFF0";~init

Download SerLink.s

BBC BASIC detokeniser and syntax highlighter by Ben Ryves.