source: thomson/code/3rdparty/sources1-hmel/ESS6801.ASM@ ceffc47

main
Last change on this file since ceffc47 was ceffc47, checked in by Adrien Destugues <pulkomandy@…>, 10 years ago

Add that collection of 3rdparty source I had lying on my disk for some time...

git-svn-id: ​svn://localhost/thomson@51 85ae3b6b-dc8f-4344-a89d-598714f2e4e5
  • Property mode set to 100644
File size: 4.0 KB
Line 
1****************************************
2* *
3* Essai de l'assembleur croisé 6801 *
4* *
5****************************************
6
7 TITLE ESSAIASM6801
8
9LED EQU 3 bit commande led
10SWITCH EQU 7 bit interrupteur
11PORTB EQU $0001
12PORTF EQU $ABCD
13FLG SET 50
14
15 ORG $0010 ram
16
17MEMPT RMB 2
18VAR RMB 1
19
20 PAGE
21 ORG $0080 rom
22
23CNST1 FCB 10
24CNST2 FDB $1234
25MESS FCC 'SALUTOHBRICOLEUR'
26* INCLUD FILE include mis en
27* commentaire !!
28
29
30* Assemblage type 0
31*
32* adressage inherent
33*---------------------------------------
34
35T0 ABA
36 CLRA
37 CLRB
38 CBA
39 COMA
40 COMB
41 NEGA
42 NEGB
43 DAA
44 DECA
45 DECB
46 INCA
47 INCB
48 PSHA
49 PSHB
50 PULA
51 PULB
52 ROLA
53 ROLB
54 RORA
55 RORB
56 ASLA
57 ASLB
58 ASRA
59 ASRB
60 LSRA
61 LSRB
62 LSLA *
63 LSLB *
64 SBA
65 TAB
66 TBA
67 TSTA
68 TSTB
69 DEX
70 DECX *
71 DES
72 DECS *
73 INX
74 INCX *
75 INS
76 INCS *
77 TXS
78 TSX
79 NOP
80 RTI
81 RTS
82 SWI
83 WAI
84 WAIT *
85 CLC
86 CLI
87 CLV
88 SEC
89 SEI
90 SEV
91 TAP
92 TPA
93 ABX
94 ASLD
95 LSRD
96 MUL
97 PSHX
98 PULX
99
100
101* Assemblage type 1
102*
103* adressage PC relatif -128..+127
104*
105* BRA LABEL
106* BRA LABEL+1
107* BRA *+25
108*---------------------------------------
109
110T1 BRA *
111 BCC T10
112 BCS T1
113 BEQ *
114 BGE *
115 BGT *
116 BHI *
117 BLE *
118 BLS *
119 BLT *
120 BMI *
121 BNE *
122 BVC *
123 BVS *
124 BPL *
125T10 BSR *
126
127
128* Assemblage type 2
129*
130* CLR [<]<exp. 8 bits>,X indexe offset
131* sur 8 bits
132* CLR [>]<exp.16 bits>
133*---------------------------------------
134
135T2 CLR VAR,X
136 CLR <VAR,X
137 CLR VAR
138 CLR >VAR
139 COM VAR
140 NEG VAR
141 DEC VAR
142 INC VAR
143 ROL VAR
144 ROR VAR
145 ASL VAR
146 ASR VAR
147 LSR VAR
148 LSL VAR *
149 TST VAR
150 JMP PORTF
151 JSR T1
152
153
154* Assemblage type 3
155*
156* STAA [<]<exp. 8 bits> direct
157* STAA [<]<exp. 8 bits>,X indexe offset
158* 8 bits
159* STAA [>]<exp.16 bits>
160*
161* si '>' impose mode étendu
162* si '>' impose mode étendu
163* si rien fait au mieux selon expres
164*---------------------------------------
165
166T3 STAA VAR
167 STAA PORTF
168 STAA <VAR
169 STAA >VAR
170 STAA VAR,X
171 STAA <VAR,X
172 STA VAR *
173 STAB VAR
174 STB VAR *
175 STX VAR
176 STS VAR
177 STAD VAR
178 STD VAR *
179
180
181* Assemblage type 4 et 5
182*
183* ADDA #<exp. 8/16 bits>
184* ADDA [<]<exp. 8 bits>
185* ADDA [<]<exp. 8 bits>,X
186* ADDA [>]<exp. 16 bits>
187*
188* si '>' impose mode étendu
189* si '>' impose mode étendu
190* si rien fait au mieux selon expres
191*---------------------------------------
192
193T45 ADDA #CNST1
194 ADDA #25
195 ADDA #$23
196 ADDA VAR
197 ADDA PORTF
198 ADDA <VAR
199 ADDA >VAR
200 ADDA VAR,X
201 ADDA <$12,X
202 ADDB #25
203 ADCA #25
204 ADCB #25
205 ANDA #25
206 ANDB #25
207 BITA #25
208 BITB #25
209 CMPA #25
210 CMPB #25
211 EORA #25
212 EORB #25
213 LDAA #25
214 LDA #25 *
215 LDAB #25
216 LDB #25 *
217 ORAA #25
218 ORA #25 *
219 ORAB #25
220 ORB #25 *
221 SUBA #25
222 SUBB #25
223 SBCA #25
224 SBCB #25
225 CPX #25
226 CMPX #25 *
227 LDX #25
228 LDS #25
229 ADDD #25
230 LDAD #25
231 LDD #25 *
232 SUBD #25
233
234FINPRG EQU *
235 END
Note: See TracBrowser for help on using the repository browser.