\ ----- Test AvrAsm ----- only forth also assembler : loadtos, 24 Y+ ld, 25 Y+ ld, ; \ define macro : savetos, -Y 25 st, -Y 24 st, ; \ from macros.asm code dup_ savetos, end-code \ insert asm code code drop_ loadtos, end-code code ++_ \ ( x1 x2 x3 -- x4 ) R14 2 ldi, \ + + label> R16 Y+ ld, R17 Y+ ld, R24 R16 add, R25 R17 adc, R14 1 subi, 0 jmp, \ -+ \ label> \ | +>-+ \ clc, \ | | | \ adr> rjmp, \ | | +-+ \ nop, \ | | | \ brcc, \ | | +-+ \ nop, \ | | | \ rot | | \ swap 0 jmp, 0 >lbl \ addr->lbl[0] \ label> 1 >lbl \ clc, \ adr> rjmp, 2 >lbl \ nop, \ 2 brcc, 3 >lbl \ nop, \ 0 tos \ 1