;vsetmode.s
	opt o-
    section	text

        pea     demostart
        move.w  #$26,-(sp)
        trap    #14
        addq.l  #6,sp

			clr.w   -(A7)
			trap    #1
demostart
	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