|
324
|
1 ********************************************************************
|
|
937
|
2 * Error - Show text error messages
|
|
324
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
937
|
6 * By Bob Devries (c) 2003; bdevries@gil.com.au
|
|
|
7 *
|
|
|
8 * Released under the GNU public licence
|
|
|
9 *
|
|
324
|
10 * Ed. Comments Who YY/MM/DD
|
|
|
11 * ------------------------------------------------------------------
|
|
937
|
12 * 1 Rewrote in assembler for size RdV 03/01/20
|
|
|
13 * Ffixed problem with trailing space RdV 03/01/21
|
|
324
|
14
|
|
937
|
15 nam Error
|
|
|
16 ttl Show text error messags
|
|
324
|
17
|
|
|
18 ifp1
|
|
|
19 use defsfile
|
|
|
20 endc
|
|
|
21
|
|
|
22 tylg set Prgrm+Objct
|
|
|
23 atrv set ReEnt+rev
|
|
|
24 rev set $01
|
|
937
|
25 edition set 1
|
|
324
|
26
|
|
937
|
27 mod eom,name,tylg,atrv,start,size
|
|
324
|
28
|
|
937
|
29 name fcs /Error/
|
|
324
|
30 fcb edition
|
|
|
31
|
|
937
|
32 org 0
|
|
|
33 path rmb 1
|
|
|
34 same rmb 1
|
|
|
35 prmptr rmb 2
|
|
|
36 endptr rmb 2
|
|
|
37 length rmb 2
|
|
|
38 parbuff rmb 256
|
|
|
39 filbuff rmb 256
|
|
|
40 stack rmb 350
|
|
|
41 size equ .
|
|
|
42
|
|
|
43 start cmpd #1 1 char == CR
|
|
|
44 lbeq help
|
|
|
45 tfr d,y length of parameters
|
|
|
46 bsr open
|
|
|
47 bcs exit
|
|
|
48 pshs u
|
|
|
49 ldu #parbuff point to buffer
|
|
|
50 entry0 lda ,x+
|
|
|
51 cmpa #C$SPAC is it a space (between parameters?)
|
|
|
52 beq entry1
|
|
|
53 cmpa #C$CR
|
|
|
54 bne nocr
|
|
|
55 entry1 clra yes, null it
|
|
|
56 nocr sta ,u+ store in buffer
|
|
|
57 leay -1,y decrement length counter
|
|
|
58 bne entry0
|
|
|
59 clr ,u
|
|
|
60 tfr u,y
|
|
|
61 puls u
|
|
|
62 sty <endptr store end of all parameters
|
|
|
63 ldx #parbuff load address of parbuff into X
|
|
|
64 stx <prmptr save parameter pointer
|
|
|
65 entry2 lda ,x
|
|
|
66 bne entry3
|
|
|
67 leax 1,x
|
|
|
68 bra rered2
|
|
|
69 entry3 bsr strlen go get string length of first param
|
|
|
70 std <length store it
|
|
|
71 reread bsr readlin read line from errmsg file
|
|
|
72 bcc rered0
|
|
|
73 cmpb #E$EOF did we find end-of-file?
|
|
|
74 lbeq unknown yep, tell user we don't know his error num
|
|
|
75 rered0 bsr compare compare user number with 1st 3 chars of line
|
|
|
76 beq reread compare returns 0 if failed
|
|
|
77 bsr print else go print the errmsg line
|
|
|
78 bcs exit exit if I$WritLn problem
|
|
|
79 rered1 ldd <length get length
|
|
|
80 ldx prmptr get parameter pointer
|
|
|
81 leax d,x add length to it
|
|
|
82 leax 1,x increment past null byte
|
|
|
83 rered2 clrb
|
|
|
84 cmpx <endptr
|
|
|
85 bge exit
|
|
|
86 stx <prmptr store it
|
|
|
87 lbsr seek0 rewind the file
|
|
|
88 bra entry2 loop around again
|
|
|
89
|
|
|
90 exit os9 F$Exit
|
|
|
91
|
|
|
92 open pshs x
|
|
|
93 leax errmsg,pcr point to file name
|
|
|
94 lda #READ. read mode
|
|
|
95 os9 I$Open
|
|
|
96 bcs open0
|
|
|
97 sta <path store path number
|
|
|
98 open0 puls x,pc
|
|
|
99
|
|
|
100 readlin pshs x,y
|
|
|
101 lda <path get file path number
|
|
|
102 ldy #256 read max 256 bytes
|
|
|
103 ldx #filbuff into memory pointed to by filbuff
|
|
|
104 os9 I$ReadLn
|
|
|
105 puls x,y,pc
|
|
|
106
|
|
|
107 print pshs x,y,a
|
|
|
108 lda #1 STDOUT
|
|
|
109 ldx #filbuff point to buffer
|
|
|
110 ldy #256 max of 256 chars
|
|
|
111 os9 I$WritLn
|
|
|
112 puls x,y,a,pc
|
|
324
|
113
|
|
937
|
114 strlen pshs x,y
|
|
|
115 ldy #0 initialise count
|
|
|
116 strl0 tst ,x+ is it a char > null
|
|
|
117 beq strl1 nope, exit
|
|
|
118 leay 1,y yep, increment count
|
|
|
119 bra strl0 do again
|
|
|
120 strl1 tfr y,d return with length in D
|
|
|
121 puls x,y,pc
|
|
|
122
|
|
|
123 compare pshs x,y
|
|
|
124 clr <same comparison indicator
|
|
|
125 ldx prmptr get address of next cmd line param
|
|
|
126 ldy #filbuff point to file buffer
|
|
|
127 comp0 lda ,x+ get char from cmd line
|
|
|
128 beq comp1 is it null (end of param)
|
|
|
129 cmpa ,y+ compare to file buffer
|
|
|
130 bne comp2 not same, exit
|
|
|
131 inc <same yep, in comparison counter
|
|
|
132 bra comp0 'round again
|
|
|
133 comp1 lda ,y
|
|
|
134 cmpa #C$SPAC was it end of number in errmsg file?
|
|
|
135 bne comp2
|
|
|
136 tst <same test indicator
|
|
|
137 puls x,y,pc
|
|
|
138 comp2 clr <same clear the counter
|
|
|
139 puls x,y,pc
|
|
324
|
140
|
|
937
|
141 unknown leax unkmsg,pcr point to message
|
|
|
142 ldy #unkmsgl num of chars to print
|
|
|
143 lda #1 to STDOUT
|
|
|
144 os9 I$Write
|
|
|
145 lbcs exit exit if problem with I$Write
|
|
|
146 ldx prmptr put pointer into parameter buffer in X
|
|
|
147 lda #1 STDOUT
|
|
|
148 ldy <length get length of user's param
|
|
|
149 os9 I$Write
|
|
|
150 lbcs exit
|
|
|
151 lda #1 STDOUT
|
|
|
152 leax return,pcr point to CR char
|
|
|
153 ldy #1 print 1 char
|
|
|
154 os9 I$WritLn
|
|
|
155 lbcs exit
|
|
|
156 ldx prmptr put point into parameter buffer in X
|
|
|
157 ldd <length get length of user's param
|
|
|
158 leax d,x add to X
|
|
|
159 leax 1,x increment past null byte
|
|
|
160 clrb
|
|
|
161 cmpx endptr
|
|
|
162 lbge exit
|
|
|
163 stx <prmptr store X
|
|
|
164 bsr seek0 rewind file
|
|
|
165 lbra entry2
|
|
324
|
166
|
|
937
|
167 seek0 pshs x,u
|
|
|
168 lda <path
|
|
|
169 ldx #0
|
|
|
170 ldu #0
|
|
|
171 os9 I$Seek
|
|
|
172 puls x,u,pc
|
|
|
173
|
|
|
174 help leax hlpmsg,pcr point to help message
|
|
|
175 lda #2 STDERR
|
|
|
176 ldy #256 max of 256 bytes (arbitrary, really)
|
|
|
177 os9 I$WritLn
|
|
|
178 lbcs exit
|
|
|
179 leax hlpmsg2,pcr 2nd line of message
|
|
|
180 lda #2
|
|
|
181 ldy #256
|
|
|
182 os9 I$WritLn
|
|
|
183 lbcs exit
|
|
|
184 clrb
|
|
|
185 lbra exit
|
|
|
186
|
|
|
187 hlpmsg fcc /Error errno [errno...]/
|
|
|
188 fcb C$CR
|
|
|
189 hlpmsg2 fcc /Usage: returns error message for given error numbers/
|
|
|
190 fcb C$CR
|
|
|
191 errmsg fcc "/DD/SYS/errmsg"
|
|
|
192 fcb 0
|
|
|
193 unkmsg fcc /Unknown error number - /
|
|
|
194 unkmsgl equ *-unkmsg
|
|
|
195 return fcb C$CR
|
|
|
196
|
|
|
197 emod
|
|
|
198 eom equ *
|
|
|
199 end
|
