cmu.s 287 B

123456789101112131415161718192021222324
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define cmu~
  4. .extern unknown~,cmu4~
  5. ! $Id$
  6. cmu~:
  7. cmp r0,$02
  8. bne 3f
  9. mov (sp)+,r1
  10. clr r0
  11. cmp (sp)+,(sp)+
  12. beq 2f
  13. bhi 1f
  14. inc r0
  15. br 2f
  16. 1:
  17. dec r0
  18. 2:
  19. jmp (r1)
  20. 3: cmp r0,$04
  21. bne 2f
  22. jmp cmu4~
  23. 2: jmp unknown~