home *** CD-ROM | disk | FTP | other *** search
- text
- main:
- link %a6,&-4
- movm.l &0x1000,-(%a7)
- mov &0,%d3
- mov.l %d3,-(%a7)
- jsr subr
- add.w &4,%a7
- L%0:
- movm.l (%a7)+,&0x0008
- unlk %a6
- rts
- subr:
- link %a6,&0
- movm.l &0x1000,-(%a7)
- mov.l 8(%a6),%d3
- mov &2,%d0
- muls %d3,%d0
- mov.l %d0,%d3
- mov.l %d3,%d0
- L%1:
- movm.l (%a7)+,&0x0008
- unlk %a6
- rts
- global main
- global subr
-