; 0000 0015 PORTB |= (1 << PORTB.0); PORTB &= ~(1 << PORTB.0); PORTB ^= (1 << PORTB.0);
IN R1,24
LDI R30,0
SBIC 0x18,0
LDI R30,1
LDI R26,LOW(1)
RCALL __LSLB12
OR R30,R1
OUT 0x18,R30
IN R1,24
LDI R30,0
SBIC 0x18,0
LDI R30,1
RCALL __LSLB12
COM R30
AND R30,R1
OUT 0x18,R30
IN R1,24
LDI R30,0
SBIC 0x18,0
LDI R30,1
RCALL __LSLB12
EOR R30,R1
OUT 0x18,R30
; 0000 0016 }
LD R30,Y+
OUT SREG,R30
LD R30,Y+
LD R26,Y+
LD R1,Y+
LD R0,Y+
RETI
.CSEG
.CSEG
__LSLB12:
TST R30
MOV R0,R30
MOV R30,R26
BREQ __LSLB12R
__LSLB12L:
LSL R30
DEC R0
BRNE __LSLB12L
__LSLB12R:
RET
Любой 8051 такую черепаху элементарно сделает...