csb.s 311 B

123456789101112131415161718192021222324
  1. .sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
  2. .sect .text
  3. .define csb~
  4. .extern fat~
  5. ! $Id$
  6. ECASE = 024
  7. csb~:
  8. mov (r0)+,-(sp)
  9. mov (r0)+,r3
  10. beq 1f
  11. 3: cmp (r0)+,r1
  12. beq 2f
  13. tst (r0)+
  14. sob r3,3b
  15. 1: mov (sp)+,r1
  16. br 4f
  17. 2: tst (sp)+
  18. mov (r0),r1
  19. 4: beq 5f
  20. jmp (r1)
  21. 5: mov $ECASE,-(sp)
  22. jmp fat~