Bit setzen und ausgeben

Hi Leute brauch mal eine Antwort.

Habe im Assembler folgendes geschrieben,

cport equ $02 ;Port B
cpdir equ $06 ;Portrichtung

org $101

lda #252 ;lade Port 9 und 10
sta cpdir ;Port 9 und 10 als Ausgang
bset 0,cport ;setze Port 9 auf 1
bset 1,cport ;setze Port 10 auf 1
rts

Meine Frage .....bset bedeutet doch "Port auf 1 setzen"
Habe an Port 9 und 10 ein Relais. Der Assembler setzt aber das Port nicht auf 1, denn das Relais bleibt aus.
Oder ist das nicht so wie ich denke????

[Frank]

Hi,

hab jetzt leider bald 2 Monate nix mehr im C-Control Assembler gemacht da ich mir derzeit etwas mehr den Atmel anschaue. Von daher hab ich die Portadressen und Bezeichnungen nicht mehr so im Kopf.

Aber wie es aussieht verwendest Du glaub die falschen Adressen. Hab mal kurz in mein letztes Listing gelinst , da steht folgendes

PORTB .EQU $01 ;PortB
DIRB .EQU $05 ;PortBdir

Also das solltest du schon mal ändern. Und dann solltest du beim kommentieren möglichst auch imme rdie Bit´s des Ports nennen, denn die Nummerbezeichnung bei der C-Control ist manchmal etwas verwirrend. Von dahe rweiss ich jetzt nicht ob du den Port schaltest den du auch willst. Am besten und übersichtlichsten ist es wenn du auch das Datenrichtungsregister mit BSET setzt. Ansonsten stimmt es wohl, bset setzt immer auf 1 !
Hier hast du mal Auszug aus meinem letzten Listing, ist zwar hinsichtlich Bytegröße nicht sonderlich optimiert, aber einigermaßen übersichtlich. Vielleicht hilft es dir

;Ansteuerung eines PCF8574 �ber SDA und SCL
;Verwendung des vorhandenen I2C-Bus

I2CAdr  .EQU  $0A1    ;Adresse
I2CDat  .EQU  $0A2    ;Adresse
SensorDatenA	.EQU $0A3	;PCF Baustein 1 vorne linken und rechten 4
SensorDatenB	.EQU $0A4	;PCF Baustein 2 Seiten und Mitte vorne
PCF3Befehl	.EQU $0A5	;PCF Baustein 3 Lichtschranke 
LSchritte 	.EQU $0A6
HSchritte 	.EQU $0A7


       .org $101
;EEPROM vom Bus abmelden
I2C     jsr $08BB    ;I2C_ReadLast
;Schreibzugriff auf PCF8574
        jsr I2C_Start
        lda I2CAdr     ;Adresse PCF8574 lesen
        jsr I2C_Write
        lda I2CDat     ;Daten lesen
        jsr I2C_Write
        jsr $08E5    ;I2C_Stop
;Lesezugriff auf PCF8574
        jsr I2C_Start
        lda I2CAdr     ;Adresse lesen
        inca         ;Lesebit setzen
        jsr I2C_Write
        jsr $086F    ;I2C_Read
        sta I2CDat     ;Daten speichern
        jsr $08BB    ;I2C_ReadLast
;EEPROM wieder anmelden
        ldx #$0A0    ;Adresse 24C65, write
        jsr $083C    ;I2C_Start
        ldx $066     ;AdrCounter Hi
        jsr $0846    ;I2C_Write
        ldx $067     ;AdrCounter Lo
        jsr $0846    ;I2C_Write
        ldx #$0A1    ;Adresse 24C65, read
        jsr $083C    ;I2C_Start
        rts


PORT  .EQU  $00    ;PortA
DIR   .EQU  $04    ;PortAdir
SDA   .EQU  0      ;Port A.0
SCL   .EQU  1      ;Port A.1

I2C_Start  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

I2C_Write  BSET  SDA,DIR    ; SDA out
         LDX  #8         ; init loop
Nextbit  ROLA
         BCC   Lobit     ;
         BSET  SDA,PORT  ; hi bit
         BRA   Clock
Lobit    BCLR  SDA,PORT  ; lo bit
Clock    BSET  SCL,PORT  ; scl hi
         BCLR  SCL,PORT  ; scl lo
         DEX
         BNE   Nextbit   ; loop
         BCLR  SDA,DIR   ; sda als Eingang
         BSET  SCL,PORT  ; scl hi
         BCLR  SCL,PORT
         RTS


;Schrittmotor vorwärts

PORTB	.EQU  $01    ;PortB
DIRB	.EQU  $05    ;PortBdir
LMOTOR 	.EQU  4      ;Port B.5
RMOTOR 	.EQU  5      ;Port B.6
PCF1	.EQU  $70  
PCF2	.EQU  $72  
PCF3	.EQU  $74  

Vor	ldx #250	;unnötig
VorA	jsr Pulse
	jsr Pause
	jsr SensorAbfragen

	lda SensorDatenA ;Vorne IR Sensoren
	cmp #255
	bne Fertig

	lda SensorDatenB  ;Vorne mittlere IR Sensor
	and #16
	cmp #16
	bne Fertig

	lda PCF3Befehl  ;Vorne mittlere IR Sensor
	and #8
	cmp #8
	bne Fertig
	
        bra VorA  ;Immer springen
Fertig	rts

Pulse	BSET  LMOTOR,DIRB    ;Als Ausgang schalten
	BSET  RMOTOR,DIRB    ;Als Ausgang schalten

	BCLR  LMOTOR,PORTB
	BCLR  RMOTOR,PORTB
	
	BSET  LMOTOR,PORTB
	BSET  RMOTOR,PORTB

	inc LSchritte	;Schritte zählen
	bne Pulse1
	inc HSchritte
Pulse1	RTS

Pause 	Lda #2
pause1	ldx #255
pause2	decx
	bne pause2
	deca
	bne pause1
	rts

SensorAbfragen lda #PCF1
	sta I2CAdr
	lda #255
	sta I2CDat
	jsr I2C
	lda I2CDat
	sta SensorDatenA

	lda #PCF2
	sta I2CAdr
	lda #255
	sta I2CDat
	jsr I2C
	lda I2CDat
	sta SensorDatenB

	lda #PCF3
	sta I2CAdr
	lda PCF3Befehl
	ora #8   ;Lichtschranke Input
	sta I2CDat
	jsr I2C
	lda I2CDat
	sta PCF3Befehl
	rts

.end

Gruß Frank

Danke für Antwort,muß mal testen.

cport equ $02 ;Port B
cpdir equ $06 ;Portrichtung


das ist richtig denn PCF liegt an Port B an 9 und 10.

Port9 equ 0 ; Port 9 C-Control
Port10 equ 1 ;Port 10 C_Control

lda #252 ;lade Port 9 und 10
sta cpdir ;Port 9 und 10 als Ausgang
bset Port9,cport ;setze Port 9 auf 1
bset Port 10,cport ;setze Port 10 auf 1
rts

Muß ich manchmal den Akku noch mal laden, um Relais zu schalten.