1234567891011121314151617181920212223242526 |
- .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
- .sect .text
- .define cif~,cuf~
- .extern setint~,setfloat~
- ! $Id$
- cif~:
- mov (sp)+,r1
- mov (sp)+,r0
- jsr pc,setfloat~
- mov (sp)+,r0
- 1: jsr pc,setint~
- movif (sp)+,r0
- movf r0,-(sp)
- setd;seti
- jmp (r1)
- cuf~:
- mov (sp)+,r1
- mov (sp)+,r0
- jsr pc,setfloat~
- mov (sp)+,r0
- cmp r0,$02
- bne 1b
- clr -(sp)
- mov $04,r0
- br 1b
|