pea supex(pc)   ;go to supervisor mode
  move.w #38,-(sp)
  trap #14
  addq.l #6,sp
  
  pea im(pc)
  move.w #9,-(sp)
  trap #1
  addq.l #6,sp
  
  clr.w -(sp)
  trap #1

supex  move.b #$FF,$FFFF8E21.w  *16MHz MSTE

  rts

im dc.b "16MHz set!",0