URL https://opencores.org/ocsvn/blue/blue/trunk

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [bluemon.asm] - Blame information for rev 2

Details | Compare with Previous | View Log


/* Monitor V0.4 */
/* Note: because of the monitors relocation
   You can't use the # form of immediate addressing now
   supported by the assembler */
 
#define CODEOFFSET 0xED0
#define FIRSTCODE 0xED1
#include "blue.inc"
 
 
        ORG 0
start:  jmp reload
        DEFSTACK
        ;; Need to eventually copy all code to top of memory
        call print_msgcr+CODEOFFSET
        ds "Blue Monitor 0.4\xFF"
prompt: call print_msg+CODEOFFSET
        ds "\r\r\nBLUE> \xFF"
prompt0:
        call waitcharecho+CODEOFFSET
        JMPIF(lf+CODEOFFSET,prompt0+CODEOFFSET)
        JMPIF(space+CODEOFFSET,prompt0+CODEOFFSET)
        ior makelower+CODEOFFSET
        JMPIF(cmdl+CODEOFFSET,load+CODEOFFSET)
        JMPIF(cmdd+CODEOFFSET,dump+CODEOFFSET)
        JMPIF(cmdg+CODEOFFSET,go+CODEOFFSET)
        JMPIF(cmdi+CODEOFFSET,intel+CODEOFFSET)
        ;; unknown command
        call print_msgcr+CODEOFFSET
        ds "?\xFF"
        jmp prompt+CODEOFFSET
 
        ;; load command (ESC ends)
load:   call hexin4+CODEOFFSET                  ; set X=address
        ldxa
load1:
        call hexin4+CODEOFFSET          ; get next word
        lda numin+CODEOFFSET            ; get number
        stax                    ; put it away
        incx                    ; next word
        lda hexsep+CODEOFFSET           ; if escape goto prompt
        JMPIF(escape+CODEOFFSET,prompt+CODEOFFSET)
        jmp load1+CODEOFFSET            ; keep going
 
        ;; dump command
dump:
        call hexin4+CODEOFFSET          ; get address
        ldxa
        ;;  would like to spin excess 8 words
dump1:
        stx                     ; see if are on xx0 or xx8
        and bits3+CODEOFFSET
        sz
        jmp dump2+CODEOFFSET
        ;;  do we want out? -- only test at end of lines
        lda uart+1
        spos
        jmp prompt+CODEOFFSET
 
        ;; new line
        call hexaddr+CODEOFFSET
dump2:
        ldax                    ; get word
        call hexout4+CODEOFFSET ; print it
        ldi ' '                 ; space
        call printchar+CODEOFFSET
        incx                    ; next word
        jmp dump1+CODEOFFSET            ; keep going
 
        ;; show XXXX:   (address)
hexaddr:
        call crlf+CODEOFFSET
        stx
        call hexout4+CODEOFFSET
        ldi ':'
        call printchar+CODEOFFSET
        ldi ' '
        jmp printchar+CODEOFFSET
 
 
        ;; go command
        ;; escape cancels
go:     call hexin4+CODEOFFSET
        lda hexsep+CODEOFFSET           ; see if we cancelled
        cmp escape+CODEOFFSET
        snz
        jmp prompt+CODEOFFSET
        lda numin+CODEOFFSET            ; nope. get number and jump
        jmpa
 
intel:  call waitcharecho+CODEOFFSET
        cmp escape+CODEOFFSET
        snz
        jmp prompt+CODEOFFSET
        cmp colon+CODEOFFSET
        sz
        jmp intel+CODEOFFSET
        ldi 2
        call hexinct+CODEOFFSET
        ;; count of bytes
        rar                     ; divide by 2
        and hexnib+CODEOFFSET   ;  max of 16
        sta icount+CODEOFFSET
        ldi 4
        call hexinct+CODEOFFSET
        rar                     ;  divide by 2
        push
        popx
        ldi 2
        call hexinct+CODEOFFSET
        add hexzero+CODEOFFSET
        sz
        jmp inteldone+CODEOFFSET
intelloop:
        ldi 4
        call hexinct+CODEOFFSET
        stax
        incx
        lda icount+CODEOFFSET
        deca
        sta icount+CODEOFFSET
        sz
        jmp intelloop+CODEOFFSET
        jmp intel+CODEOFFSET    ; ignore checksum crlf
inteldone:
        call waitcharecho+CODEOFFSET
        cmp lf+CODEOFFSET
        sz
        jmp inteldone+CODEOFFSET
        jmp prompt+CODEOFFSET
 
 
        ;; commands
cmdl:   dw 'l'
cmdd:   dw 'd'
cmdg:   dw 'g'
cmdi:   dw 'i'
colon:  dw ':'
        ;; cancel key
escape: dw 0x1b
        ;; bit to OR to make upper case lower case
makelower:      dw 0x20
        ;; constants
zero:   dw '0'
hexzero:        dw 0
nine:   dw '9'
hexa:   dw 'a'
hexmask:        dw 0xFFF0
// The below doesn't work because lf isn't defined in pass1
//ten:  equ lf
#define ten lf
hexnib:  dw 0xF
bits3:  dw 0x7
 
        ;; number in winds up here (and in ACC)
numin:  dw 0
 
hextmp: dw 0
hextmp2: dw 0
hexsep: dw 0                    ; hexin separator
bs:     dw 8
hexct:  dw 4
mask3:   dw 0xFFF
icount: dw 0
space:  dw ' '
 
        ;; read 4 hex characters, result in acc and numin
        ;; also set hexsep to the "ending character" (e.g., space, CR, etc.)
hexin4: ldi 0xFFFF
hexinct:
        sta hexct+CODEOFFSET
        ldi 0                   ; clear acc
        sta numin+CODEOFFSET            ; store acc
hexinl:
        call waitcharecho+CODEOFFSET    ; get character
        JMPIF(space+CODEOFFSET,hexinl+CODEOFFSET)
        SKIP
hexinl2:        call waitcharecho+CODEOFFSET ;  character after first
        cmp bs+CODEOFFSET
        snz
        jmp hexbs+CODEOFFSET
        cmp zero+CODEOFFSET             ; if <'0' then done
        snz
        jmp hexin09+CODEOFFSET
        sc
        jmp hexin4done+CODEOFFSET
        cmp nine+CODEOFFSET             ; if <='9' then number
        sc
        jmp hexin09+CODEOFFSET
        snz
        jmp hexin09+CODEOFFSET
        ;; TODO:         need to test that not above 'F'
        ;; if here we have a non number (A-F)
        ior makelower+CODEOFFSET                ;  make lower case
        sub hexa+CODEOFFSET
        sc
        jmp hexin4done+CODEOFFSET
        add ten+CODEOFFSET
        SKIP
hexin09:
        sub zero+CODEOFFSET
        sta hextmp+CODEOFFSET
        lda numin+CODEOFFSET            ; shift number over
        ral
        ral
        ral
        ral
        and hexmask+CODEOFFSET
        ior hextmp+CODEOFFSET           ; put in our current number
        sta numin+CODEOFFSET            ; store acc
        lda hexct+CODEOFFSET
        deca
        sta hexct+CODEOFFSET
        sz
        jmp hexinl2+CODEOFFSET
hexin4done:
        sta hexsep+CODEOFFSET           ; remember why we quit
        lda numin+CODEOFFSET            ; load the number and return
        ret
 
hexbs:  lda numin+CODEOFFSET
        rar
        rar
        rar
        rar
        and mask3+CODEOFFSET
        sta numin+CODEOFFSET
        ;; assume hextct will equal FFFF if backspaces occur
        jmp hexinl2+CODEOFFSET
 
        ;; print out 4 hex digits
hexout4:        sta hextmp+CODEOFFSET
                swap
                call hexout2+CODEOFFSET
                lda hextmp+CODEOFFSET
hexout2:        sta hextmp2+CODEOFFSET
                rar
                rar
                rar
                rar
                call hexout1+CODEOFFSET
                lda hextmp2+CODEOFFSET
hexout1:        and hexnib+CODEOFFSET
                cmp ten+CODEOFFSET
                snc
                jmp hexouta+CODEOFFSET
                add zero+CODEOFFSET
                jmp printchar+CODEOFFSET
hexouta:        sub ten+CODEOFFSET
                add hexa+CODEOFFSET
                jmp printchar+CODEOFFSET        ;  hidden return
 
 
 
 
#include "syslib.inc"
reload: ldx 0
reloadx:
        ldax 0
        stax CODEOFFSET
        incx
        stx
        sub limit
        sz
        jmp reloadx
        jmp FIRSTCODE
 
limit:  dw reload
 
        END

Browse

Tools

Subversion Repositories blue

[/] [blue/] [trunk/] [blue8/] [bluemon.asm] - Blame information for rev 2

Line No.	Rev	Author	Line
1	2	wd5gnr	`/* Monitor V0.4 */`
2			`/* Note: because of the monitors relocation`
3			`You can't use the # form of immediate addressing now`
4			`supported by the assembler */`
5
6			`#define CODEOFFSET 0xED0`
7			`#define FIRSTCODE 0xED1`
8			`#include "blue.inc"`
9
10
11			`ORG 0`
12			`start: jmp reload`
13			`DEFSTACK`
14			`;; Need to eventually copy all code to top of memory`
15			`call print_msgcr+CODEOFFSET`
16			`ds "Blue Monitor 0.4\xFF"`
17			`prompt: call print_msg+CODEOFFSET`
18			`ds "\r\r\nBLUE> \xFF"`
19			`prompt0:`
20			`call waitcharecho+CODEOFFSET`
21			`JMPIF(lf+CODEOFFSET,prompt0+CODEOFFSET)`
22			`JMPIF(space+CODEOFFSET,prompt0+CODEOFFSET)`
23			`ior makelower+CODEOFFSET`
24			`JMPIF(cmdl+CODEOFFSET,load+CODEOFFSET)`
25			`JMPIF(cmdd+CODEOFFSET,dump+CODEOFFSET)`
26			`JMPIF(cmdg+CODEOFFSET,go+CODEOFFSET)`
27			`JMPIF(cmdi+CODEOFFSET,intel+CODEOFFSET)`
28			`;; unknown command`
29			`call print_msgcr+CODEOFFSET`
30			`ds "?\xFF"`
31			`jmp prompt+CODEOFFSET`
32
33			`;; load command (ESC ends)`
34			`load: call hexin4+CODEOFFSET ; set X=address`
35			`ldxa`
36			`load1:`
37			`call hexin4+CODEOFFSET ; get next word`
38			`lda numin+CODEOFFSET ; get number`
39			`stax ; put it away`
40			`incx ; next word`
41			`lda hexsep+CODEOFFSET ; if escape goto prompt`
42			`JMPIF(escape+CODEOFFSET,prompt+CODEOFFSET)`
43			`jmp load1+CODEOFFSET ; keep going`
44
45			`;; dump command`
46			`dump:`
47			`call hexin4+CODEOFFSET ; get address`
48			`ldxa`
49			`;; would like to spin excess 8 words`
50			`dump1:`
51			`stx ; see if are on xx0 or xx8`
52			`and bits3+CODEOFFSET`
53			`sz`
54			`jmp dump2+CODEOFFSET`
55			`;; do we want out? -- only test at end of lines`
56			`lda uart+1`
57			`spos`
58			`jmp prompt+CODEOFFSET`
59
60			`;; new line`
61			`call hexaddr+CODEOFFSET`
62			`dump2:`
63			`ldax ; get word`
64			`call hexout4+CODEOFFSET ; print it`
65			`ldi ' ' ; space`
66			`call printchar+CODEOFFSET`
67			`incx ; next word`
68			`jmp dump1+CODEOFFSET ; keep going`
69
70			`;; show XXXX: (address)`
71			`hexaddr:`
72			`call crlf+CODEOFFSET`
73			`stx`
74			`call hexout4+CODEOFFSET`
75			`ldi ':'`
76			`call printchar+CODEOFFSET`
77			`ldi ' '`
78			`jmp printchar+CODEOFFSET`
79
80
81			`;; go command`
82			`;; escape cancels`
83			`go: call hexin4+CODEOFFSET`
84			`lda hexsep+CODEOFFSET ; see if we cancelled`
85			`cmp escape+CODEOFFSET`
86			`snz`
87			`jmp prompt+CODEOFFSET`
88			`lda numin+CODEOFFSET ; nope. get number and jump`
89			`jmpa`
90
91			`intel: call waitcharecho+CODEOFFSET`
92			`cmp escape+CODEOFFSET`
93			`snz`
94			`jmp prompt+CODEOFFSET`
95			`cmp colon+CODEOFFSET`
96			`sz`
97			`jmp intel+CODEOFFSET`
98			`ldi 2`
99			`call hexinct+CODEOFFSET`
100			`;; count of bytes`
101			`rar ; divide by 2`
102			`and hexnib+CODEOFFSET ; max of 16`
103			`sta icount+CODEOFFSET`
104			`ldi 4`
105			`call hexinct+CODEOFFSET`
106			`rar ; divide by 2`
107			`push`
108			`popx`
109			`ldi 2`
110			`call hexinct+CODEOFFSET`
111			`add hexzero+CODEOFFSET`
112			`sz`
113			`jmp inteldone+CODEOFFSET`
114			`intelloop:`
115			`ldi 4`
116			`call hexinct+CODEOFFSET`
117			`stax`
118			`incx`
119			`lda icount+CODEOFFSET`
120			`deca`
121			`sta icount+CODEOFFSET`
122			`sz`
123			`jmp intelloop+CODEOFFSET`
124			`jmp intel+CODEOFFSET ; ignore checksum crlf`
125			`inteldone:`
126			`call waitcharecho+CODEOFFSET`
127			`cmp lf+CODEOFFSET`
128			`sz`
129			`jmp inteldone+CODEOFFSET`
130			`jmp prompt+CODEOFFSET`
131
132
133			`;; commands`
134			`cmdl: dw 'l'`
135			`cmdd: dw 'd'`
136			`cmdg: dw 'g'`
137			`cmdi: dw 'i'`
138			`colon: dw ':'`
139			`;; cancel key`
140			`escape: dw 0x1b`
141			`;; bit to OR to make upper case lower case`
142			`makelower: dw 0x20`
143			`;; constants`
144			`zero: dw '0'`
145			`hexzero: dw 0`
146			`nine: dw '9'`
147			`hexa: dw 'a'`
148			`hexmask: dw 0xFFF0`
149			`// The below doesn't work because lf isn't defined in pass1`
150			`//ten: equ lf`
151			`#define ten lf`
152			`hexnib: dw 0xF`
153			`bits3: dw 0x7`
154
155			`;; number in winds up here (and in ACC)`
156			`numin: dw 0`
157
158			`hextmp: dw 0`
159			`hextmp2: dw 0`
160			`hexsep: dw 0 ; hexin separator`
161			`bs: dw 8`
162			`hexct: dw 4`
163			`mask3: dw 0xFFF`
164			`icount: dw 0`
165			`space: dw ' '`
166
167			`;; read 4 hex characters, result in acc and numin`
168			`;; also set hexsep to the "ending character" (e.g., space, CR, etc.)`
169			`hexin4: ldi 0xFFFF`
170			`hexinct:`
171			`sta hexct+CODEOFFSET`
172			`ldi 0 ; clear acc`
173			`sta numin+CODEOFFSET ; store acc`
174			`hexinl:`
175			`call waitcharecho+CODEOFFSET ; get character`
176			`JMPIF(space+CODEOFFSET,hexinl+CODEOFFSET)`
177			`SKIP`
178			`hexinl2: call waitcharecho+CODEOFFSET ; character after first`
179			`cmp bs+CODEOFFSET`
180			`snz`
181			`jmp hexbs+CODEOFFSET`
182			`cmp zero+CODEOFFSET ; if <'0' then done`
183			`snz`
184			`jmp hexin09+CODEOFFSET`
185			`sc`
186			`jmp hexin4done+CODEOFFSET`
187			`cmp nine+CODEOFFSET ; if <='9' then number`
188			`sc`
189			`jmp hexin09+CODEOFFSET`
190			`snz`
191			`jmp hexin09+CODEOFFSET`
192			`;; TODO: need to test that not above 'F'`
193			`;; if here we have a non number (A-F)`
194			`ior makelower+CODEOFFSET ; make lower case`
195			`sub hexa+CODEOFFSET`
196			`sc`
197			`jmp hexin4done+CODEOFFSET`
198			`add ten+CODEOFFSET`
199			`SKIP`
200			`hexin09:`
201			`sub zero+CODEOFFSET`
202			`sta hextmp+CODEOFFSET`
203			`lda numin+CODEOFFSET ; shift number over`
204			`ral`
205			`ral`
206			`ral`
207			`ral`
208			`and hexmask+CODEOFFSET`
209			`ior hextmp+CODEOFFSET ; put in our current number`
210			`sta numin+CODEOFFSET ; store acc`
211			`lda hexct+CODEOFFSET`
212			`deca`
213			`sta hexct+CODEOFFSET`
214			`sz`
215			`jmp hexinl2+CODEOFFSET`
216			`hexin4done:`
217			`sta hexsep+CODEOFFSET ; remember why we quit`
218			`lda numin+CODEOFFSET ; load the number and return`
219			`ret`
220
221			`hexbs: lda numin+CODEOFFSET`
222			`rar`
223			`rar`
224			`rar`
225			`rar`
226			`and mask3+CODEOFFSET`
227			`sta numin+CODEOFFSET`
228			`;; assume hextct will equal FFFF if backspaces occur`
229			`jmp hexinl2+CODEOFFSET`
230
231			`;; print out 4 hex digits`
232			`hexout4: sta hextmp+CODEOFFSET`
233			`swap`
234			`call hexout2+CODEOFFSET`
235			`lda hextmp+CODEOFFSET`
236			`hexout2: sta hextmp2+CODEOFFSET`
237			`rar`
238			`rar`
239			`rar`
240			`rar`
241			`call hexout1+CODEOFFSET`
242			`lda hextmp2+CODEOFFSET`
243			`hexout1: and hexnib+CODEOFFSET`
244			`cmp ten+CODEOFFSET`
245			`snc`
246			`jmp hexouta+CODEOFFSET`
247			`add zero+CODEOFFSET`
248			`jmp printchar+CODEOFFSET`
249			`hexouta: sub ten+CODEOFFSET`
250			`add hexa+CODEOFFSET`
251			`jmp printchar+CODEOFFSET ; hidden return`
252
253
254
255
256			`#include "syslib.inc"`
257			`reload: ldx 0`
258			`reloadx:`
259			`ldax 0`
260			`stax CODEOFFSET`
261			`incx`
262			`stx`
263			`sub limit`
264			`sz`
265			`jmp reloadx`
266			`jmp FIRSTCODE`
267
268			`limit: dw reload`
269
270			`END`