; Assembler-Hilfsfunktionen

               export    fix2pt, pt2fix


; int fix2pt(fix31 f)
;
; rechnet eine Punktgr”že von fix31 in ganze pt um (mit Runden)
; Zitat NVDI-Guide:
; "Man darf nie, nie, niemals den Nachkommateil einfach abschneiden!"

module         fix2pt
               add.l     #32768,d0     ; Runden
               clr.w     d0
               swap      d0
               rts
endmod


; fix31 pt2fix(int p)
;
; "rechnet" eine Punktgr”že von ganzen pt in fix31 um

module         pt2fix
               swap      d0
               clr.w     d0
               rts
endmod