Mercurial > hg > Members > kono > nitros9-code

annotate lib/alib/sho_regs.as @ 2989:5944d79e3fe5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sysgo: Update copyright year
author Tormod Volden <debian.tormod@gmail.com>
date Sun, 13 Apr 2014 21:19:25 +0200
parents 03f26e88b809
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
1 ************************************
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
3 * Display the 6809 registers to standard error
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
5 * OTHER MODULES NEEDED: BIN2HEX, BIN_HEX, PUTS
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
6
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
7
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
8 * ENTRY: none
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
9 * EXIT: none
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
10
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
11
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
12 * NOTE: The value used for PC is that of the calling routine
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
13 * S is assumed to be 2 greater than actual to comp for
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
14 * the subroutine call...
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
15
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
16
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
17 nam Show Register Values
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
18 ttl Assembler Library Module
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
19
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
20
2782
aaba193af04f Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2474
diff changeset
21 section .data
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
22
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
23 count rmb 1 counter for 9 regs.
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
24 buffer rmb 8 buffer for ascii strings
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
25 cc.r rmb 1 offsets to access values
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
26 a.r rmb 1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
27 b.r rmb 1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
28 dp.r rmb 1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
29 x.r rmb 2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
30 y.r rmb 2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
31 u.r rmb 2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
32 s.r rmb 2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
33 pc.r rmb 2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
34
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
35 endsect
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
36
2782
aaba193af04f Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2474
diff changeset
37 section .text
aaba193af04f Updated code to use lwasm/lwlink
Boisy Pitre <boisy.pitre@nuance.com>
parents: 2474
diff changeset
38
2474
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
39 SHO_REGS:
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
40 leas -2,s room for copy of <S>
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
41 pshs cc,a,b,dp,x,y,u save rest
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
42 leas -cc.r,s room for ascii strings
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
43 tfr s,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
44 leax pc.r,x get old <S>
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
45 stx s.r,s stick on stack
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
46 leay cc.r,s point to regs
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
47 leau text,pcr register names
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
48 clr count,s int. counter
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
49
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
50 * now we loop and display all the registers
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
51
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
52 loop1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
53 leax buffer,s point to ascii buffer
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
54 ldd ,u++ get reg. name
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
55 std ,x++
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
56 lda #'= add a "="
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
57 sta ,x+
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
58 lda count,s 1st 4 are 1 byte
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
59 cmpa #4
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
60 bhs loop2 no, do a 2byte
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
61 ldb ,y+ get single value
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
62 lbsr BIN2HEX
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
63 std ,x save ascii number
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
64 clr 2,x
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
65 bra report go report
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
66 loop2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
67 cmpa #9 done all?
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
68 bhs exit yes, go home
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
69 ldd ,y++ get reg value
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
70 lbsr BIN_HEX convert it
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
71
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
72 * report reg. value
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
73
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
74 report
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
75 leax buffer,s start of buffer
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
76 lda #2 std err
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
77 lbsr FPUTS print it
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
78 ldb #$20 space
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
79 lbsr FPUTC
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
80 inc count,s do next reg
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
81 bra loop1
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
82
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
83 exit
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
84 ldb #$0d
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
85 lda #2
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
86 lbsr FPUTC start new line
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
87 leas cc.r,s clear up stack
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
88 puls cc,a,b,dp,x,y,u
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
89 leas 2,s
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
90 rts go home
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
91
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
92 text
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
93 fcc /cc/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
94 fcc / a/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
95 fcc / b/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
96 fcc /dp/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
97 fcc / x/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
98 fcc / y/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
99 fcc / u/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
100 fcc / s/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
101 fcc /pc/
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
102
7d70b7e1cb21 Moved net and alib files into here
boisy
parents:
diff changeset
103 endsect