; generate error messages for use with 11m version ; ; This generates a table of error messages, along with a table of ; message numbers, starting addresses and lengths ; ; If we include message numbers, error routine can search thru table ; and skip over error numbers for which there is no message, thus making ; text storage minimum ; ; F. borger August 27, 1986 ; ; .macro err a b .psect mestxt aaaaaa=. .asciz ?b? bbbbbb=. .psect mestbl .word a ;error number .word aaaaaa .endm ; ; put error messages in their own psect ; .psect mestxt,rw,i,gbl,rel,con mestxt:: ;start of ascii messages ; ; and put the number/address table in its psect ; .psect mestbl,rw,i,gbl,rel,con mestbl:: ;start of table ; ; Now generate error messages ; err 0. < - User Storage overflow> err 1. < - Unrecognized statement - check spelling> err 2. < - Illegal GOTO or GOSUB> err 3. < - Illegal character in or terminating input line> err 4. < - RETURN Without GOSUB> err 5. < - Badly formed subscript> err 6. < - Subscript out of range> err 7. < - Mismatched parentheses> err 8. < - Illegal LET statement> err 9. < - Illegal relational operator in IF> err 10. < - Illegal IF> err 11. < - Illegal PRINT> err 12. < - Device or File error on input> err 13. < - Bad DIMENSION> err 14. < - Not enough room in storage for the array> err 15. < - Badly formed define> err 16. < - Illegal line number or dimension value> err 17. < - DIM of previously used variable name> err 18. < - Bad variable in input list> err 19. < - Bad variable in read list> err 20. < - Out of data during read> err 21. < - Bad data in a data statement> err 22. < - Illegal FOR statement> err 23. < - No NEXT without matching FOR> err 24. < - NEXT without FOR> err 25. < - Unmatched quotes in statement> err 26. < - External function not properly set up> err 27. < - Badly formed expression> err 28. < - Error in command string interpreter> err 29. < - SBS function error> err 30. < - Syntax error in function> err 31. < - Syntax error in OPEN> err 32. < - Syntax error in CLOSE> err 33. < - Invalid file number> err 34. < - End of file error> err 35. < - FCS error during CLOSE> err 36. < - FCS error during OPEN> err 37. < - Error during CALL processing> err 38. < - Error in CALL argument list> err 39. < - Error in store during called routine> err 40. < - Syntax error or LUN in use in library open> err 41. < - FCS error during library open or 1st read> err 42. < - Syntax error in SLEEP command> err 43. < - Syntax error in WAIT command> err 44. < - Timeout error - you waited too long to type> err 45. < - Priority error> err 46. < - Basic program file error> err 47. < - File access mode error (seq/ran)> err 48. < - Error in loaded user subroutine> err 49. < - Virtual access error from fcs> err 50. < - Virtual file open error from fcs> err 51. < - Error in set command> err 52. < - Use of "/co" switch with normal basic source> err 53. < - Immediate mode command in source text> err 54. < - Variable type mis-match> err 62. < - Debugging error #1 - tell system manager> err 63. < - Debugging error #2 - tell system manager> err 64. < - Log of negative or zero number> err 65. < - Square root of negative number> err 66. < - Under/overflow in multiply or divide> err 67. < - Number too large to fix> err 68. < - Floating overflow> err 69. < - Floating underflow> err 70. < - Non-existent variable> err 71. < - Too much data typed> err 72. < - Not enough data typed> err 73. < - Illegal characters on input> err 74. < - Error in value function> .end