dup.s 231 B

123456789101112131415161718192021
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. .define _dup
  4. .define _dup2
  5. dup = 41
  6. .align 1
  7. _dup:
  8. .data2 0x0000
  9. brb 1f
  10. .align 1
  11. _dup2:
  12. .data2 0x0000
  13. bisb2 $0100,4(ap)
  14. 1:
  15. chmk $dup
  16. bcc 1f
  17. jmp errmon
  18. 1:
  19. ret