inn.s 331 B

1234567891011121314151617181920212223
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define inn~
  4. ! $Id$
  5. inn~:
  6. mov r0,-(sp)
  7. clr r0
  8. div $010,r0
  9. cmp r0,(sp)
  10. bcc 1f
  11. add sp,r0
  12. bitb bits(r1),4(r0)
  13. beq 1f
  14. mov $01,r0
  15. br 2f
  16. 1: clr r0
  17. 2: mov 02(sp),r1
  18. add (sp)+,sp
  19. tst (sp)+
  20. jmp (r1)
  21. .sect .data
  22. bits: .data1 1,2,4,010,020,040,0100,0200