section text

        move.l  4(sp),a5            ;Store basepage addr
        move.l  $0c(a5),d0          ;Text
        add.l   $14(a5),d0          ;Data
        add.l   $1c(a5),d0          ;BSS
        add.l   #$100,d0            ;Basepage
        add.l   #$1000,d0           ;Stack
        move.l  a5,d1               ;Basepage
        add.l   d0,d1               ;End
        and.l   #-2,d1              ;Even
        move.l  d1,sp               ;Stackaddr

        move.l  d0,-(sp)            ;mshrink()
        move.l  a5,-(sp)
        move.w  d0,-(sp)
        move.w  #$4a,-(sp)
        trap    #1
        lea 12(sp),sp


        move.w  #-1,-(sp)           ;VsetMode() get current mode in d0
        move.w  #$58,-(sp)
        trap    #14
        addq.l  #4,sp

        bset    #5,d0               ;Set PAL flag in modecode

        move.w  d0,-(sp)            ;VsetMode() set same screenmode with PAL flag set
        move.w  #$58,-(sp)
        trap    #14
        addq.l  #4,sp

        clr.w   -(sp)
        trap    #1

        end