acct.s 166 B

12345678910111213
  1. .sect .text; .sect .rom; .sect .data; .sect .bss
  2. .sect .text
  3. acct = 51
  4. .define _acct
  5. .define cerror
  6. _acct:
  7. .data2 0x0000
  8. chmk $acct
  9. bcc 1f
  10. jmp cerror
  11. 1:
  12. ret