chiark / gitweb /
working on making it compile
[trains.git] / detpic / serout.asm
1 ;======================================================================
2 ; SERIAL PORT - TRANSMISSION TO HOST
3
4  include common.inc
5  code
6 ;----------------------------------------
7 serial_addbyte
8 ;  W            byte for transmission to host   trashed
9 ;  FSR0         any                             set for serial_addbyte_another
10 ;  outmsg_*     buffer not full                 adjusted appropriately
11 ;  STATUS       any                             trashed
12 ;  all others   any                             not interfered with
13 ;
14         mov_lfsr outbuf, 0
15         mov_ff  outmsg_end, FSR0L
16 ;...
17 serial_addbyte_another
18 ;  W            byte for transmission to host   trashed
19 ;  FSR0         from serial_addbyte[_another]   set for serial_addbyte_another
20 ;  outmsg_*     buffer not full                 adjusted appropriately
21 ;  STATUS       any                             trashed
22 ;  all others   any                             not interfered with
23 ;
24         mov_wf  POSTINC0
25         bc_f    FSR0L, 7
26         mov_fw  FSR0L
27         mov_wf  outmsg_end
28         xor_wfw outmsg_begin
29         bra_z   serial_addbyte_toomany
30         return
31
32 ;-----
33 serial_addbyte_toomany panic morse_HB
34
35 ;======================================================================
36  include final.inc