PSG_select  equ $FF8800
PSG_write   equ $FF8802

    clr.l   -(sp)
    move.w  #$20,-(sp)
    trap    #1
    addq.l  #6,sp
    move.l  d0,old_ssp
super
    movea.l #PSG_select,a3
    movea.l #PSG_write,a4

    move.b  #$0,(a3)
    move.b  #%11101101,(a4)

    move.b  #$1,(a3)
    move.b  #%1111,(a4)

    move.b  #$2,(a3)
    move.b  #%00110111,(a4)

    move.b  #$3,(a3)
    move.b  #%0011,(a4)

    move.b  #$7,(a3)
    move.b  #%11011101,(a4)

    move.b  #$8,(a3)
    move.b  #%1011,(a4)

    move.b  #$9,(a3)
    move.b  #%1001,(a4)

    move.b  #$b,(a3)
    move.b  #%01001001,(a4)

    move.l  #QuitMsg,-(sp)
    move.w  #$09,-(sp)
    trap    #1
    addq.l  #6,sp

    move.w  #$01,-(sp)
    trap    #1
    addq.l  #2,sp

    move.l  old_ssp(pc),-(sp)
    move    #$20,-(sp)
    trap    #1
    addq.l  #6,sp

old_ssp ds.l    1
QuitMsg dc.b    13,10,"Press a key to exit",13,10,0