Hi,

sorry, aber es will nicht.

Code:
'-----------------------------
Gl_read = Gl_inp                                         'PIND                                         'Assign data
Gl_tris = &B11111111                                     'port output


$asm
LDS r24, {Gl_bit}

L_10x00f6:
   LDI r25,0x01                                             '  1-er laden
   !AND r24,r24                                             '  gl_bit = 0 ?
   BREQ L_10x0104                                           '  dann fertig
   CLC                                                      '  clear carry
L_10x00fe:
   ROL r25                                                  ' rot left
   DEC r24                                                  ' bit-nr  - 1
   BRNE  L_10x00FE                                          '  fertig ?
L_10x0104:
   LDS r23, {gl_read}
$end Asm


If Gl_rstflag = 1 Then
   !OR r23, r24                                             ' bit setzen
Else
   COM r24                                                  ' invertieren
   !AND r23, r24                                            ' bit löschen
End If

!STS {Gl_pix}, r23
'-------------------------------