Fix AVR assembler LSL and ROL.

larsbrinkhoff · Aug 7, 2017 · 016ff4e · 016ff4e
1 parent 01957aa
commit 016ff4e
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/targets/avr/asm.fth b/targets/avr/asm.fth
@@ -247,8 +247,8 @@ E index: -x
 
 \ Aliases
 : clr,   3dup eor, ;
-: lsl,   3dup adc, ;
-: rol,   3dup add, ;
+: lsl,   3dup add, ;
+: rol,   3dup adc, ;
 
 \ Resolve jumps.
 : >mark-br   here 2 - ['] br! here ;

diff --git a/test/test-avr-asm.fth b/test/test-avr-asm.fth
@@ -30,8 +30,8 @@ code assembler-test
    r11 lsr,                 94B6 check
    r12 ror,                 94C7 check
    r13 dec,                 94DA check
-   r14 rol,                 0CEE check
-   r15 lsl,                 1CFF check
+   r14 rol,                 1CEE check
+   r15 lsl,                 0CFF check
    r16 clr,                 2700 check
 
    r0 r0 cpc,               0400 check