Guest User

Untitled

a guest
Jul 17th, 2018
102
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.29 KB | None | 0 0
  1. br main
  2. num: .equate 2
  3. main: subsp 0,i
  4. stro quest,d
  5. ask: deci num,d
  6. lda num,d
  7. cpa 0,i
  8. brlt check
  9. check: stro error,d
  10. charo '\n',i
  11. stro quest,d
  12. br ask
  13. addsp 0,i
  14. stop
  15. error: .ascii "Error: You have entered a negative number. \X00"
  16. quest: .ascii "Enter a number: \X00"
  17. .end
Add Comment
Please, Sign In to add comment