; Dummy Functions to use the SAS/C getreg and putreg functions with DICE
; Attention, they're only reading/writing the a4 register, even if you
; specify a different one.
;
;   Written for the Triton Linklibs on 25-May-95 by Michael Bauer
;       (michael.bauer@zdv.uni-tuebingen.de)
;
    section text,code
    xdef ___builtin_getreg
    xdef ___builtin_putreg

___builtin_getreg
    move.l  $0004(A7),D0
    move.l  A4,D0
    rts

___builtin_putreg
    move.l  $0004(a7),D0
    move.l  $0008(a7),D1
    move.l  D1,A4
    rts