;************************************************
public      Porty
;************************************************
Prog        segment code
            rseg Prog
;------------------------------------------------
Porty:      nop
            inc P1
            nop
            ret
;------------------------------------------------
            end
;------------------------------------------------