1987-05-15 09:11:10 +00:00
|
|
|
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
|
|
|
|
.sect .text
|
|
|
|
.define gto~
|
|
|
|
! $Header$
|
1984-07-19 12:51:00 +00:00
|
|
|
|
|
|
|
gto~:
|
1984-07-19 13:12:03 +00:00
|
|
|
mov (sp)+,r4
|
|
|
|
mov 4(r4),r5
|
|
|
|
mov 2(r4),sp
|
|
|
|
mov (r4),pc
|
1987-05-15 09:11:10 +00:00
|
|
|
!
|
|
|
|
! mov (sp)+,r3
|
|
|
|
!1: cmp 4(r3),r5
|
|
|
|
! jeq 2f
|
|
|
|
! mov 2(r5),r4
|
|
|
|
! mov 4(r5),r2
|
|
|
|
! mov (r5),r5
|
|
|
|
! br 1b
|
|
|
|
!2: mov 2(r3),sp
|
|
|
|
! jmp *(r3)
|