;vsetmode.s
    opt o-
    section text

    move.w    #%100011,-(sp)    ; pal 50
    move.w    #88,-(sp)     ; Offset 0
    trap      #14           ; Call XBIOS
    addq.l    #4,sp         ; Correct stack

            clr.w   -(A7)
            trap    #1