Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/error.asm @ 946:5c80e10a5d03

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
renamed variable that was clashing with one in systype
author boisy
date Tue, 21 Jan 2003 21:17:37 +0000
parents cef89b8a4241
children 84ea83668304
comparison
equal deleted inserted replaced
945:707940712718 946:5c80e10a5d03
31 31
32 org 0 32 org 0
33 path rmb 1 33 path rmb 1
34 same rmb 1 34 same rmb 1
35 prmptr rmb 2 35 prmptr rmb 2
36 endptr rmb 2 36 prmend rmb 2
37 length rmb 2 37 length rmb 2
38 parbuff rmb 256 38 parbuff rmb 256
39 filbuff rmb 256 39 filbuff rmb 256
40 stack rmb 350 40 stack rmb 350
41 size equ . 41 size equ .
57 leay -1,y decrement length counter 57 leay -1,y decrement length counter
58 bne entry0 58 bne entry0
59 clr ,u 59 clr ,u
60 tfr u,y 60 tfr u,y
61 puls u 61 puls u
62 sty <endptr store end of all parameters 62 sty <prmend store end of all parameters
63 leax parbuff,u load address of parbuff into X 63 leax parbuff,u load address of parbuff into X
64 stx <prmptr save parameter pointer 64 stx <prmptr save parameter pointer
65 entry2 lda ,x 65 entry2 lda ,x
66 bne entry3 66 bne entry3
67 leax 1,x 67 leax 1,x
79 rered1 ldd <length get length 79 rered1 ldd <length get length
80 ldx prmptr get parameter pointer 80 ldx prmptr get parameter pointer
81 leax d,x add length to it 81 leax d,x add length to it
82 leax 1,x increment past null byte 82 leax 1,x increment past null byte
83 rered2 clrb 83 rered2 clrb
84 cmpx <endptr 84 cmpx <prmend
85 bge exit 85 bge exit
86 stx <prmptr store it 86 stx <prmptr store it
87 lbsr seek0 rewind the file 87 lbsr seek0 rewind the file
88 bra entry2 loop around again 88 bra entry2 loop around again
89 89
156 ldx prmptr put point into parameter buffer in X 156 ldx prmptr put point into parameter buffer in X
157 ldd <length get length of user's param 157 ldd <length get length of user's param
158 leax d,x add to X 158 leax d,x add to X
159 leax 1,x increment past null byte 159 leax 1,x increment past null byte
160 clrb 160 clrb
161 cmpx endptr 161 cmpx prmend
162 lbge exit 162 lbge exit
163 stx <prmptr store X 163 stx <prmptr store X
164 bsr seek0 rewind file 164 bsr seek0 rewind file
165 lbra entry2 165 lbra entry2
166 166