URL
https://opencores.org/ocsvn/k68/k68/trunk
Subversion Repositories k68
[/] [k68/] [trunk/] [sw/] [misc/] [work.s] - Rev 4
Compare with Previous | Blame | View Log
.data .align 2 .text _start: /*Start of Program*/ bra init init: /* Allocate Stack, Init Uarts, Say Hello */ movel #0x00001000, %a7 bsr init_uart bsr sign_on bra main init_uart: /* Initialize Uarts */ rts stat_a: /* Check UART A readable status */ movel #0xFFFF0102, %a0 moveb %a0@, %d0 andib #1, %d0 rts read_a: /* Read a byte from UART A */ bsr stat_a beq read_a movel #0xFFFF0100, %a0 moveb %a0@, %d1 rts write_a:/* Write a byte to UART A */ movel #0xFFFF0102, %a0 write_a_loop: moveb %a0@, %d0 nop andib #2, %d0 nop beq write_a_loop movel #0xFFFF0100, %a0 moveb %d1, %a0@ rts stat_b: /* Check UART B readable status */ movel #0xFFFF0202, %a0 moveb %a0@, %d0 andib #1, %d0 rts read_b: /* Read a byte from UART B */ bsr stat_b beq read_b movel #0xFFFF0200, %a0 moveb %a0@, %d1 rts write_b:/* Write a byte to UART B */ movel #0xFFFF0202, %a0 write_b_loop: moveb %a0@, %d0 nop andib #2, %d0 nop beq write_b_loop movel #0xFFFF0200, %a0 moveb %d1, %a0@ rts sign_on:/* Say Hello on Both UARTS */ moveb #0x4B, %d1 bsr write_a bsr write_b moveb #0x36, %d1 bsr write_a bsr write_b moveb #0x68, %d1 bsr write_a bsr write_b moveb #0x0D, %d1 bsr write_a bsr write_b moveb #0x0A, %d1 bsr write_a bsr write_b main: /* Main Program Loop */ /* Check for Data on A */ bsr stat_a beq do_a bsr stat_b beq do_b bra main do_a: /* Encrypt A and Write to B */ bsr read_a bsr encrypt bsr write_b rts do_b: /* Decrypt B and Write to A */ bsr read_b bsr decrypt bsr write_a rts decrypt:/* Decrypt Data Through hardware ENC */ rts encrypt:/* Encrypt Data Through hardware ENC */ rts .end