annotate level1/cmds/display.asm @ 1891:5f8822fb42e0

shortened H6309L2 code to fit within $1D0 bytes
author robert
date Fri, 14 Oct 2005 01:53:05 +0000
parents 84ea83668304
children 2996c407889b
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 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
9 * 2 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
10 * Original Tandy/Microware version.
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
11 *
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
12 * 3 ????/??/?? Alan DeKok
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 662
diff changeset
13 * Added decimal, text features.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 nam Display
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
16 ttl Character display utility
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
18 * Disassembled 94/12/10 12:27:37 by Alan DeKok
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 ifp1
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
21 use defsfile
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 endc
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
23
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 rev set $01
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
27 edition set 3
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
28
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 mod eom,name,tylg,atrv,start,size
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
30
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
31 org 0
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
32 T.Delim rmb 1 text delimiter
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
33 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
34 D.Word rmb 2 decimal byte to output
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
35 rmb 200 room for the stack
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 size equ .
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
37
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
38 name fcs /Display/
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
39 fcb edition
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 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
42 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
43 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
44
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
45 Loop jsr ,u grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
46 bcs S.01 if error, dump it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
47 stb ,x+ save character in internal buffer
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
48 bra Loop and get another one
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
49
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
50 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
51 subd ,s take out start address
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
52 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
53 puls x restore start address
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 lda #$01 to STDOUT
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
56 os9 I$Write dump it out
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
57 bcs Exit exit if error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
58
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
59 ClnExit clrb no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
60 Exit os9 F$Exit and exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
61
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
62 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
63 Hex ldb ,y+ grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
64 cmpb #C$COMA comma?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
65 bne Hex.2 nope, do more checks
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 Hex.1 ldb ,y+ grab another character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
68 Hex.2 cmpb #C$SPAC space?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
69 beq Hex.1 yup, skip it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
70
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
71 cmpb #'/ slash?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
72 beq Do.Text yes, go output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
73 cmpb #'\ back-slash?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
74 beq Do.Text yes, output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
75 cmpb #'" double-quote?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
76 beq Do.Text yes, output straight text
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
77
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
78 cmpb #C$PERD period?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
79 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
80
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
81 leay -1,y
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
82 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
83 bcs OK.2
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
84 pshs b save high nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
85 bsr Nibble get current character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
86 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
87 lsl ,s move low nibble into high nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
88 lsl ,s
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
89 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
90 lsl ,s might be 1 digit long
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
91
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
92 addb ,s add high nibble to low nibble
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
93 stb ,s save it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
94 Hex.3 clrb no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
95 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
96
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
97 Nibble ldb ,y get the current character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
98 cmpb #C$CR end of parameters?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
99 beq Error yes, exit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
100
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
101 cmpb #'0 error if B<'0'
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
102 blo Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
103
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
104 cmpb #'9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
105 bls OK allow '0' to '9' inclusive
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
106
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
107 cmpb #'A error if B<'A'
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
108 blo Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
109
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
110 andb #$DF make the character lowercase
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
111 cmpb #'F
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
112 bhi Error error if B>'F'
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
113
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
114 subb #$07 map 'A' down to $0A
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
115 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
116
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
117 OK.0 leay 1,y
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
118 OK.1 clra set to no error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
119 OK.2 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
120
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
121 Error comb set carry
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
122 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
123
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
124 Do.Text leau <Text,pcr
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
125 stb <T.Delim save text delimiter
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
126 Text ldb ,y+ grab a character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
127 cmpb <T.Delim text delimiter again?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
128 beq T.Check check for some stuff
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
129 cmpb #C$CR end of text?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
130 beq Error yes, signal it
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
131 bra OK.1 otherwise allow the character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
132
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
133 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
134 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
135 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
136 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
137
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
138 Decimal lda ,y get next character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
139 anda #$DF make it uppercase
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
140 cmpa #'W force a word?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
141 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
142 leay 1,y skip the 'w' character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
143 lda #1 force 2 bytes
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
144 fcb $21 skip the 'clra' following
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
145
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
146 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
147 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
148
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
149 clra start off at zero
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
150 clrb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
151 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
152
662
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
153 D.Read lda ,y+ grab a decimal digit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
154 cmpa #C$CR done the list?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
155 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
156
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
157 cmpa #'0 smaller than zero?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
158 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
159 cmpa #'9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
160 bhi Error
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
161 suba #'0 convert ascii to number
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
162
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
163 pshs a save the character for later
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
164 ldd <D.Word get the current word
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*2
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
167 aslb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
168 rola N*4
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
169 aslb
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
170 rola N*8
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
171 addd <D.Word N*8+N=N*9
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
172 addd <D.Word N*9+N=N*10
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
173 addb ,s+ add in our latest character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
174 adca #0 make it 16-bit
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
175 std <D.Word
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
176 bra D.Read go get another character
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
177
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
178 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
179 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
180 tst <D.Len check length flag
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
181 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
182 tst <D.Word is high byte zero?
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
183 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
184
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
185 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
186 D.Exit clra
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
187 rts
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
188
1810b051d07e copy, display and makdir are now improved versions with enhanced
boisy
parents: 200
diff changeset
189 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
190 bra D.Done output these characters, and the exit
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
191
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 eom equ *
15
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
194 end
0912ac5dc2ff Added initial and dates to some source files
boisy
parents: 0
diff changeset
195