PTN1	START
       	PUSH    0,GR1
	    LAD     GR2,15
        SUBL    GR2,GR1
        LD      GR1,GR2
        LD      GR2,=#8000
        SRA     GR2,0,GR1
        POP     GR1
        RET
        END