chiark / gitweb /
undo broken deletion
[trains.git] / iwjpictest / syncwrite.asm
1 ;======================================================================
2
3         include         /usr/share/gputils/header/p18f458.inc
4         radix           dec
5         include         ../iwjpictest/insn-aliases.inc
6
7   code
8 ;----------------------------------------
9 serial_write_char
10 ; W             character       undefined
11 serial_write_char_loop
12         bt_f_if0        PIR1, TXIF
13         bra             serial_write_char_loop
14         mov_wf          TXREG
15         return
16
17 ;======================================================================
18   include ../iwjpictest/syncwrite.inc
19   end