to msb› STA CBAUDH› RTS›;›; @ Subroutine: Adjust VCOUNT value›;›?ADJUST› CMP #$7C› BMI ?ADJ1›;› SEC› SBC #$7C› RTS›;›?ADJ1› CLC› LDX PALNTS› ADC NTSC.PAL+10,X› RTS›;›?BEGIN› LDA BRKKEY  Set initial› BNE ?NTBRK2 baud rate›;› JMP ?BROKE›;›?NTBRK2› SEI› LDA TIMFLG  go if not timed› BNE ?OKTIM1 out›;› BEQ ?TOUT1  Else glitch›;›?OKTIM1› LDA SKSTAT  Read serial› AND #$10    port› BNE ?BEGIN  Start bit?›;› STA SAVIO   Save data in› LDX VCOUNT  Read count› LDY RTCLOK+2› STX TIMER1  Save initial› STY TIMER1+1 timer value› LDX #1› STX TEMP3› LDY #$0A›;›?60776› LDA BRKKEY› BEQ ?BROKE›;› LDA TIMFLG› BNE ?60789›;›?TOUT1› CLI› JMP ?TOUT›;›?60789› LDA SKSTAT› AND #$10› CMP SAVIO› BEQ ?60776›;› STA SAVIO› DEY› BNE ?60776›;› DEC TEMP3› BMI ?60822›;› LDA VCOUNT› LDY RTCLOK+2› JSR ?COMPUT› LDY #9› BNE ?60776›;›?60822› LDA CBAUDL› STA