.MAIN. MACRO Y05.02 Thursday 28-Aug-86 17:51 Page 1 1 ; generate error messages for use with 11m version 2 ; 3 ; This generates a table of error messages, along with a table of 4 ; message numbers, starting addresses and lengths 5 ; 6 ; If we include message numbers, error routine can search thru table 7 ; and skip over error numbers for which there is no message, thus making 8 ; text storage minimum 9 ; 10 ; F. borger August 27, 1986 11 ; 12 ; 13 .macro err a b 14 .psect mestxt 15 aaaaaa=. 16 .asciz ?b? 17 bbbbbb=. 18 .psect mestbl 19 .word a ;error number 20 .word aaaaaa 21 .endm 22 ; 23 ; put error messages in their own psect 24 ; 25 000000 .psect mestxt,rw,i,gbl,rel,con 26 000000 mestxt:: ;start of ascii messages 27 ; 28 ; and put the number/address table in its psect 29 ; 30 000000 .psect mestbl,rw,i,gbl,rel,con 31 000000 mestbl:: ;start of table 32 ; 33 ; Now generate error messages 34 ; 35 000000 err 0. < - User Storage overflow> 36 000004 err 1. < - Unrecognized statement - check spelling> 37 000010 err 2. < - Illegal GOTO or GOSUB> 38 000014 err 3. < - Illegal character in or terminating input line> 39 000020 err 4. < - RETURN Without GOSUB> 40 000024 err 5. < - Badly formed subscript> 41 000030 err 6. < - Subscript out of range> 42 000034 err 7. < - Mismatched parentheses> 43 000040 err 8. < - Illegal LET statement> 44 000044 err 9. < - Illegal relational operator in IF> 45 000050 err 10. < - Illegal IF> 46 000054 err 11. < - Illegal PRINT> 47 000060 err 12. < - Device or File error on input> 48 000064 err 13. < - Bad DIMENSION> 49 000070 err 14. < - Not enough room in storage for the array> 50 000074 err 15. < - Badly formed define> 51 000100 err 16. < - Illegal line number or dimension value> 52 000104 err 17. < - DIM of previously used variable name> 53 000110 err 18. < - Bad variable in input list> 54 000114 err 19. < - Bad variable in read list> 55 000120 err 20. < - Out of data during read> 56 000124 err 21. < - Bad data in a data statement> 57 000130 err 22. < - Illegal FOR statement> .MAIN. MACRO Y05.02 Thursday 28-Aug-86 17:51 Page 1-1 58 000134 err 23. < - No NEXT without matching FOR> 59 000140 err 24. < - NEXT without FOR> 60 000144 err 25. < - Unmatched quotes in statement> 61 000150 err 26. < - External function not properly set up> 62 000154 err 27. < - Badly formed expression> 63 000160 err 28. < - Error in command string interpreter> 64 000164 err 29. < - SBS function error> 65 000170 err 30. < - Syntax error in function> 66 000174 err 31. < - Syntax error in OPEN> 67 000200 err 32. < - Syntax error in CLOSE> 68 000204 err 33. < - Invalid file number> 69 000210 err 34. < - End of file error> 70 000214 err 35. < - FCS error during CLOSE> 71 000220 err 36. < - FCS error during OPEN> 72 000224 err 37. < - Error during CALL processing> 73 000230 err 38. < - Error in CALL argument list> 74 000234 err 39. < - Error in store during called routine> 75 000240 err 40. < - Syntax error or LUN in use in library open> 76 000244 err 41. < - FCS error during library open or 1st read> 77 000250 err 42. < - Syntax error in SLEEP command> 78 000254 err 43. < - Syntax error in WAIT command> 79 000260 err 44. < - Timeout error - you waited too long to type> 80 000264 err 45. < - Priority error> 81 000270 err 46. < - Basic program file error> 82 000274 err 47. < - File access mode error (seq/ran)> 83 000300 err 48. < - Error in loaded user subroutine> 84 000304 err 49. < - Virtual access error from fcs> 85 000310 err 50. < - Virtual file open error from fcs> 86 000314 err 51. < - Error in set command> 87 000320 err 52. < - Use of "/co" switch with normal basic source> 88 000324 err 53. < - Immediate mode command in source text> 89 000330 err 54. < - Variable type mis-match> 90 000334 err 62. < - Debugging error #1 - tell system manager> 91 000340 err 63. < - Debugging error #2 - tell system manager> 92 000344 err 64. < - Log of negative or zero number> 93 000350 err 65. < - Square root of negative number> 94 000354 err 66. < - Under/overflow in multiply or divide> 95 000360 err 67. < - Number too large to fix> 96 000364 err 68. < - Floating overflow> 97 000370 err 69. < - Floating underflow> 98 000374 err 70. < - Non-existent variable> 99 000400 err 71. < - Too much data typed> 100 000404 err 72. < - Not enough data typed> 101 000410 err 73. < - Illegal characters on input> 102 000414 err 74. < - Error in value function> 103 000001 .end .MAIN. MACRO Y05.02 Thursday 28-Aug-86 17:51 Page 1-2 Symbol table AAAAAA= 004024R 002 BBBBBB= 004057R 002 MESTBL 000000RG 003 MESTXT 000000RG 002 . ABS. 000000 000 (RW,I,GBL,ABS,OVR) 000000 001 (RW,I,LCL,REL,CON) MESTXT 004057 002 (RW,I,GBL,REL,CON) MESTBL 000420 003 (RW,I,GBL,REL,CON) Errors detected: 0 *** Assembler statistics Work file reads: 0 Work file writes: 0 Size of work file: 8340 Words ( 33 Pages) Size of core pool: 19714 Words ( 75 Pages) Operating system: RSX-11M/PLUS (Under VAX/VMS) Elapsed time: 00:00:15.01 BSCERR11M,BSCERR11M=BSCERR11M