|
2534
|
1 *******************************************************
|
|
|
2 *
|
|
|
3 * DWWriteMESS
|
|
|
4 *
|
|
|
5 * 4/27/10 AAW - Based on John Linville's example
|
|
|
6 *
|
|
|
7 * Entry:
|
|
|
8 * X = starting address of data to send
|
|
|
9 * Y = number of bytes to send
|
|
|
10 *
|
|
|
11 * Exit:
|
|
|
12 * X = address of last byte sent + 1
|
|
|
13 * Y = 0
|
|
|
14 * All others preserved
|
|
|
15 *
|
|
|
16
|
|
|
17
|
|
|
18 DWWrite pshs u,d,cc ; preserve registers
|
|
|
19 orcc #$50 ; mask interrupts
|
|
|
20
|
|
|
21 txByte ldb ,x+ ; get a byte to transmit
|
|
|
22 stb $ffe0 ; write it to the FIFO
|
|
|
23 leay ,-y ; decrement byte counter
|
|
|
24 bne txByte ; loop if more to send
|
|
|
25
|
|
|
26 puls cc,d,u,pc ; restore registers and return
|
|
|
27
|
|
|
28
|
