Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/display.asm @ 710:4b8f2de93c51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added DS40 target
author boisy
date Sat, 04 Jan 2003 02:23:45 +0000
parents 1810b051d07e
children 84ea83668304
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
2 * Display - Character display utility
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
8 * 2 Original Tandy/Microware version
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
9 * 3 Added decimal, text features ADK
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 nam Display
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
12 ttl Character display utility
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
14 * Disassembled 94/12/10 12:27:37 by Alan DeKok
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 ifp1
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
17 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 endc
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
19
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 rev set $01
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
23 edition set 3
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
24
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 mod eom,name,tylg,atrv,start,size
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
26
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
27 org 0
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
28 T.Delim rmb 1 text delimiter
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
29 D.Len rmb 1 length of decimal bytes: 0=1 byte, 1=2 bytes
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
30 D.Word rmb 2 decimal byte to output
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
31 rmb 200 room for the stack
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 size equ .
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
33
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
34 name fcs /Display/
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
35 fcb edition
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
36
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
37 Start pshs x save start address of text to output
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
38 leay ,x destination buffer=input buffer (always shrinks it)
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
39 leau Hex,pcr point to routine to ouput hex characters
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
40
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
41 Loop jsr ,u grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
42 bcs S.01 if error, dump it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
43 stb ,x+ save character in internal buffer
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
44 bra Loop and get another one
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
45
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
46 S.01 tfr x,d get current pointer into D
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
47 subd ,s take out start address
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
48 tfr d,y length of the data to print
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
49 puls x restore start address
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
50
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
51 lda #$01 to STDOUT
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
52 os9 I$Write dump it out
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
53 bcs Exit exit if error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
54
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
55 ClnExit clrb no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
56 Exit os9 F$Exit and exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
57
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
58 Do.Hex leau <Hex,pcr point to main hex routine
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
59 Hex ldb ,y+ grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
60 cmpb #C$COMA comma?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
61 bne Hex.2 nope, do more checks
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
62
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
63 Hex.1 ldb ,y+ grab another character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
64 Hex.2 cmpb #C$SPAC space?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
65 beq Hex.1 yup, skip it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
66
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
67 cmpb #'/ slash?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
68 beq Do.Text yes, go output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
69 cmpb #'\ back-slash?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
70 beq Do.Text yes, output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
71 cmpb #'" double-quote?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
72 beq Do.Text yes, output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
73
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
74 cmpb #C$PERD period?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
75 beq Decimal yes, do a one-time output of decimal byte(s)
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
76
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
77 leay -1,y
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
78 bsr Nibble turn character in B into a nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
79 bcs OK.2
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
80 pshs b save high nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
81 bsr Nibble get current character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
82 bcs Hex.3 skip move if next character is not a number
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
83 lsl ,s move low nibble into high nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
84 lsl ,s
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
85 lsl ,s - can't do it before now, because hex number
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
86 lsl ,s might be 1 digit long
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
87
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
88 addb ,s add high nibble to low nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
89 stb ,s save it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
90 Hex.3 clrb no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
91 puls b,pc restore byte to output, and exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
92
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
93 Nibble ldb ,y get the current character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
94 cmpb #C$CR end of parameters?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
95 beq Error yes, exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
96
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
97 cmpb #'0 error if B<'0'
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
98 blo Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
99
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
100 cmpb #'9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
101 bls OK allow '0' to '9' inclusive
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
102
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
103 cmpb #'A error if B<'A'
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
104 blo Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
105
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
106 andb #$DF make the character lowercase
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
107 cmpb #'F
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
108 bhi Error error if B>'F'
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
109
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
110 subb #$07 map 'A' down to $0A
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
111 OK subb #$30 take out ascii zero, now B=nibble 0-F
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
112
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
113 OK.0 leay 1,y
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
114 OK.1 clra set to no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
115 OK.2 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
116
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
117 Error comb set carry
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
118 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
119
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
120 Do.Text leau <Text,pcr
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
121 stb <T.Delim save text delimiter
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
122 Text ldb ,y+ grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
123 cmpb <T.Delim text delimiter again?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
124 beq T.Check check for some stuff
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
125 cmpb #C$CR end of text?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
126 beq Error yes, signal it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
127 bra OK.1 otherwise allow the character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
128
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
129 T.Check lda ,y get the next character after the delimiter
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
130 cmpa <T.Delim is it the same, i.e. 2 delimiters in a row?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
131 beq OK.0 yes, skip the second and output the first
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
132 bra Do.Hex otherwise go to hex mode again
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
133
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
134 Decimal lda ,y get next character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
135 anda #$DF make it uppercase
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
136 cmpa #'W force a word?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
137 bne D.One no, do a straight decimal conversion
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
138 leay 1,y skip the 'w' character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
139 lda #1 force 2 bytes
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
140 fcb $21 skip the 'clra' following
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
141
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
142 D.One clra force 1 byte (may expand to 2)
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
143 sta <D.Len save length of the decimal character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
144
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
145 clra start off at zero
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
146 clrb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
147 std <D.Word sav starting value of the decimal word to output
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
148
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
149 D.Read lda ,y+ grab a decimal digit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
150 cmpa #C$CR done the list?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
151 beq D.CR yes, output the characters and then exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
152
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
153 cmpa #'0 smaller than zero?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
154 bls D.Done0 yes, we're done this decimal digit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
155 cmpa #'9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
156 bhi Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
157 suba #'0 convert ascii to number
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
158
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
159 pshs a save the character for later
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
160 ldd <D.Word get the current word
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
161 aslb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
162 rola N*2
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
163 aslb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
164 rola N*4
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
165 aslb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
166 rola N*8
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
167 addd <D.Word N*8+N=N*9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
168 addd <D.Word N*9+N=N*10
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
169 addb ,s+ add in our latest character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
170 adca #0 make it 16-bit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
171 std <D.Word
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
172 bra D.Read go get another character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
173
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
174 D.Done0 leay -1,y point to character we've tried to convert to dec.
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
175 D.Done ldd <D.Word get the byte(s) to output
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
176 tst <D.Len check length flag
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
177 bne D.Two if forcing 2 bytes, output them
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
178 tst <D.Word is high byte zero?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
179 beq D.Exit yes, only output low order byte
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
180
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
181 D.Two sta ,x+ save high byte in the output buffer
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
182 D.Exit clra
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
183 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
184
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
185 D.CR leau Error,pcr point to error routine: no more characters
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
186 bra D.Done output these characters, and the exit
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
187
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 eom equ *
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
190 end
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
191