FnOff
SR(1) //Luminance 100%
SR(17) //Normal Write mode
SR(20) //Disable cursor
SR(12) //Clear Display
0->A //initialize counter
While 1
SR(13) //Carriage Return
SR('A')
SR(' ')
SR('=')
SR(' ')
SR(A/100+'0') //100s
SR(A^100/10+'0') //10s
SR(A^10+'0') //1s
A+1^256->A //increment counter
Pause 100
EndIf getKey(15)
LnReg
Return
Lbl SR //Serial
0->r2 //reset parity
3->port //start bit
For(8)
For(30):End //some delay
If r1.1 // get LSB
r2++
0->port
Else
For(2):En
3->port
End
r1/2->r1 //shift right
End
For(17):End
If r2.1 //parity bit
0->port
Else
3->port
End
For(20):End
0->port //Stop bit
For(25):End
Return