CHKSUM.S 597 B

1234567891011121314151617181920212223242526272829303132
  1. ORG $3000
  2. ZEROIT LDA #$80
  3. STA ZEROLP1+2
  4. LDA #$FF
  5. LDX #0
  6. ZEROLP1 STA $8000,X
  7. INX
  8. BNE ZEROLP1
  9. INC ZEROLP1+2
  10. BNE ZEROLP1
  11. ZERODONE JMP ZERODONE
  12. ******************************************
  13. EORIT LDA #$80
  14. STA EORLP1+2
  15. LDA #0
  16. LDX #0
  17. EORLP1 EOR $8000,X
  18. INX
  19. BNE EORLP1
  20. INC EORLP1+2
  21. BNE EORLP1
  22. EORDONE JMP EORDONE
  23. END