HI welche möglichkeiten habe ich ???

PORT .EQU $02 ;PortC
DIR .EQU $06 ;PortCdir
SDA .EQU 0 ;Port 9
SCL .EQU 1 ;Port 10
SDA1 .EQU 0 ;Port 1
SCL1 .EQU 1 ;Port 2

Start_9u10 BSET SDA,DIR ; SDA hi ausgeben
BSET SDA,PORT ; Vorbereiten der Startbed.
BSET SCL,PORT ; SCL hi falls lo
BCLR SDA,PORT ; SDA lo -> STARTBEDINGUNG
BCLR SCL,PORT ;
RTS

Start_1u2 BSET SDA1,DIR ; SDA hi ausgeben
BSET SDA1,PORT ; Vorbereiten der Startbed.
BSET SCL1,PORT ; SCL hi falls lo
BCLR SDA1,PORT ; SDA lo -> STARTBEDINGUNG
BCLR SCL1,PORT ;
RTS

Kann man das zusammenfassen ????