UrForth: more words
[urasm.git] / test / test.zas
blob42a4ced367ff96f36b73ff3c8f786de2ace22915
1   deffmt raw
3         ORG #8000
4 NNN0:   EQU #10
5 NNN1:   EQU #1000
6 ADDR:   ADC A,(HL)
7         ADC A,(IX+5)
8         ADC A,(IY-#44)
9         ADC A,A
10         ADC A,B
11         ADC A,C
12         ADC A,D
13         ADC A,E
14         ADC A,H
15         ADC A,L
16         ADC A,NNN0
17         ADC HL,BC
18         ADC HL,DE
19         ADC HL,HL
20         ADC HL,SP
22         ADD A,(HL)
23         ADD A,(IX-3)
24         ADD A,(IY+127)
25         ADD A,A
26         ADD A,B
27         ADD A,C
28         ADD A,D
29         ADD A,E
30         ADD A,H
31         ADD A,L
32         ADD A,%1010
33         ADD HL,BC
34         ADD HL,DE
35         ADD HL,BC
36         ADD HL,SP
37         ADD IX,BC
38         ADD IX,DE
39         ADD IX,IX
40         ADD IX,SP
41         ADD IY,BC
42         ADD IY,DE
43         ADD IY,IY
44         ADD IY,SP
46         AND (HL)
47         AND (IX-128)
48         AND (IY+0)
49         AND A
50         AND B
51         AND C
52         AND D
53         AND E
54         AND H
55         AND L
56         ;AND 1995?1990
58         BIT 0,(HL)
59         BIT 0,(IX)
60         BIT 0,(IY+#33)
61         BIT 0,A
62         BIT 0,B
63         BIT 0,C
64         BIT 0,D
65         BIT 0,E
66         BIT 0,H
67         BIT 0,L
68         BIT 1,(HL)
69         BIT 1,(IX)
70         BIT 1,(IY+#33)
71         BIT 1,A
72         BIT 1,B
73         BIT 1,C
74         BIT 1,D
75         BIT 1,E
76         BIT 1,H
77         BIT 1,L
78         BIT 2,(HL)
79         BIT 2,(IX-2)
80         BIT 2,(IY+#22)
81         BIT 2,A
82         BIT 2,B
83         BIT 2,C
84         BIT 2,D
85         BIT 2,E
86         BIT 2,H
87         BIT 2,L
88         BIT 3,(HL)
89         BIT 3,(IX-3)
90         BIT 3,(IY+#33)
91         BIT 3,A
92         BIT 3,B
93         BIT 3,C
94         BIT 3,D
95         BIT 3,E
96         BIT 3,H
97         BIT 3,L
98         BIT 4,(HL)
99         BIT 4,(IX-3)
100         BIT 4,(IY+#34)
101         BIT 4,A
102         BIT 4,B
103         BIT 4,C
104         BIT 4,D
105         BIT 4,E
106         BIT 4,H
107         BIT 4,L
108         BIT 5,(HL)
109         BIT 5,(IX-3)
110         BIT 5,(IY+#35)
111         BIT 5,A
112         BIT 5,B
113         BIT 5,C
114         BIT 5,D
115         BIT 5,E
116         BIT 5,H
117         BIT 5,L
118         BIT 5,(HL)
119         BIT 6,(IX-3)
120         BIT 6,(IY+#66)
121         BIT 6,A
122         BIT 6,B
123         BIT 6,C
124         BIT 6,D
125         BIT 6,E
126         BIT 6,H
127         BIT 6,L
128         BIT 7,(HL)
129         BIT 7,(IX-3)
130         BIT 7,(IY+#67)
131         BIT 7,A
132         BIT 7,B
133         BIT 7,C
134         BIT 7,D
135         BIT 7,E
136         BIT 7,H
137         BIT 7,L
139         CALL ADDR
140         CALL C,ADDR
141         CALL M,$
142         CALL NC,ADDR+40
143         CALL NZ,#5F00
144         CALL P,0
145         CALL PE,%1111000011110000
146         CALL PO,$-40
147         CALL Z,NNN1
149         CCF
151         CP (HL)
152         CP (IX-128)
153         CP (IY+127)
154         CP A
155         CP B
156         CP C
157         CP D
158         CP E
159         CP H
160         CP L
161         CP 19
163         CPD
164         CPDR
165         CPI
166         CPIR
167         CPL
168         DAA
170         DEC (HL)
171         DEC (IX)
172         DEC (IY+1)
173         DEC A
174         DEC B
175         DEC BC
176         DEC C
177         DEC D
178         DEC DE
179         DEC E
180         DEC H
181         DEC HL
182         DEC IX
183         DEC IY
184         DEC L
185         DEC SP
187         DI
188 LABEL:  DJNZ LABEL
189         EI
190         EX (SP),HL
191         EX (SP),IX
192         EX (SP),IY
193         EX AF,AF'
194         EX DE,HL
195         EXX
196         HALT
197         IM 0
198         IM 1
199         IM 2
201         ;IN (HL),(C)
202         IN A,(C)
203         IN A,(#FE)
204         IN B,(C)
205         IN C,(C)
206         IN D,(C)
207         IN E,(C)
208         IN H,(C)
209         IN L,(C)
211         INC (HL)
212         INC (IX-8)
213         INC (IY+8)
214         INC A
215         INC B
216         INC BC
217         INC C
218         INC D
219         INC DE
220         INC E
221         INC H
222         INC HL
223         INC IX
224         INC IY
225         INC L
226         INC SP
228         IND
229         INDR
230         INI
231         INIR
233         JP (HL)
234         JP (IX)
235         JP (IY)
236         JP      LABEL
237         JP C,ADDR
238         JP M,$
239         JP NC,ADDR+40
240         JP NZ,#5F00
241         JP P,9/3+5*66-#13&#FFFF  ; 0x13a
242         JP PE,%100
243         JP PO,$-40
244         JP Z,NNN1
246 near:   JR near+#1
247         JR C,near
248         JR NC,near
249         JR NZ,$+129
250         JR Z,$-126
252 Zyte:   EQU #FE
253         LD (ADDR),A
254         LD (ADDR+1),BC
255         LD (23296),DE
256         LD (#5B00),HL
257         LD (256+768),IX
258         LD (0-2),IY
259         LD (%0),SP
260         LD (BC),A
261         LD (DE),A
262         LD (HL),A
263         LD (HL),B
264         LD (HL),C
265         LD (HL),D
266         LD (HL),E
267         LD (HL),H
268         LD (HL),L
269         LD (HL),Zyte
270         LD (IX+127),A
271         LD (IX+127),B
272         LD (IX+127),C
273         LD (IX+127),D
274         LD (IX+127),E
275         LD (IX+127),H
276         LD (IX+127),L
277         LD (IX+127),Zyte
278         LD (IY-127),A
279         LD (IY-127),B
280         LD (IY-127),C
281         LD (IY-127),D
282         LD (IY-127),E
283         LD (IY-127),H
284         LD (IY-127),L
285         LD (IY-127),Zyte-Zyte
286         LD A,(HL)
287         LD A,(IX)
288         LD A,(IY+#7F)
289         LD A,A
290         LD A,B
291         LD A,C
292         LD A,D
293         LD A,E
294         LD A,H
295         LD A,I
296         LD A,L
297         LD A,R
298         LD A,Zyte
299         LD B,(HL)
300         LD B,(IX)
301         LD B,(IY+#7F)
302         LD B,A
303         LD B,B
304         LD B,C
305         LD B,D
306         LD B,E
307         LD B,H
308         LD B,L
309         LD B,Zyte
310         LD BC,(ADDR)
311         LD BC,NNN1
312         LD C,(HL)
313         LD C,(IX-#80)
314         LD C,(IY+#7F)
315         LD C,A
316         LD C,B
317         LD C,C
318         LD C,D
319         LD C,E
320         LD C,H
321         LD C,L
322         LD C,Zyte
323         LD D,(HL)
324         LD D,(IX-#80)
325         LD D,(IY+#7F)
326         LD D,A
327         LD D,B
328         LD D,C
329         LD D,D
330         LD D,E
331         LD D,H
332         LD D,L
333         LD D,Zyte
334         LD DE,(#3322)
335         LD DE,#3322
336         LD E,(HL)
337         LD E,(IX-#80)
338         LD E,(IY+#7F)
339         LD E,A
340         LD E,B
341         LD E,C
342         LD E,D
343         LD E,E
344         LD E,H
345         LD E,L
346         LD E,Zyte
347         LD H,(HL)
348         LD H,(IX-#80)
349         LD H,(IY+#7F)
350         LD H,A
351         LD H,B
352         LD H,C
353         LD H,D
354         LD H,E
355         LD H,H
356         LD H,L
357         LD H,#AA
358         LD HL,(#F000+#E00+#21)
359         LD HL,ADDR/ADDR
360         LD I,A
361         LD IX,(#0000)
362         LD IX,5
363         LD IY,(#1234)
364         LD IY,$/2
365         LD L,(HL)
366         LD L,(IX-#80)
367         LD L,(IY+#7F)
368         LD L,A
369         LD L,B
370         LD L,C
371         LD L,D
372         LD L,E
373         LD L,H
374         LD L,L
375         LD L,#DD
376         LD R,A
377         LD SP,(ADDR)
378         LD SP,IX
379         LD SP,IY
380         LD SP,HL
381         LD SP,NNN1
383         LDD
384         LDDR
385         LDI
386         LDIR
387         NEG
388         NOP
390         OR (HL)
391         OR (IX-128)
392         OR (IY+127)
393         OR A
394         OR B
395         OR C
396         OR D
397         OR E
398         OR H
399         OR L
400         OR %11000111
402         OTDR
403         OTIR
405         OUT (C),A
406         OUT (C),B
407         OUT (C),C
408         OUT (C),D
409         OUT (C),E
410         OUT (C),H
411         OUT (C),L
412 PORT:   EQU #1F
413         OUT (PORT),A
415         OUTD
416         OUTI
418         POP AF
419         POP BC
420         POP DE
421         POP HL
422         POP IX
423         POP IY
425         PUSH AF
426         PUSH BC
427         PUSH DE
428         PUSH HL
429         PUSH IX
430         PUSH IY
432         RES 0,(HL)
433         RES 0,(IX)
434         RES 0,(IY+#33)
435         RES 0,A
436         RES 0,B
437         RES 0,C
438         RES 0,D
439         RES 0,E
440         RES 0,H
441         RES 0,L
442         RES 1,(HL)
443         RES 1,(IX)
444         RES 1,(IY+#33)
445         RES 1,A
446         RES 1,B
447         RES 1,C
448         RES 1,D
449         RES 1,E
450         RES 1,H
451         RES 1,L
452         RES 2,(HL)
453         RES 2,(IX-2)
454         RES 2,(IY+#22)
455         RES 2,A
456         RES 2,B
457         RES 2,C
458         RES 2,D
459         RES 2,E
460         RES 2,H
461         RES 2,L
462         RES 3,(HL)
463         RES 3,(IX-3)
464         RES 3,(IY+#33)
465         RES 3,A
466         RES 3,B
467         RES 3,C
468         RES 3,D
469         RES 3,E
470         RES 3,H
471         RES 3,L
472         RES 4,(HL)
473         RES 4,(IX-3)
474         RES 4,(IY+#34)
475         RES 4,A
476         RES 4,B
477         RES 4,C
478         RES 4,D
479         RES 4,E
480         RES 4,H
481         RES 4,L
482         RES 5,(HL)
483         RES 5,(IX-3)
484         RES 5,(IY+#35)
485         RES 5,A
486         RES 5,B
487         RES 5,C
488         RES 5,D
489         RES 5,E
490         RES 5,H
491         RES 5,L
492         RES 5,(HL)
493         RES 6,(IX-3)
494         RES 6,(IY+#66)
495         RES 6,A
496         RES 6,B
497         RES 6,C
498         RES 6,D
499         RES 6,E
500         RES 6,H
501         RES 6,L
502         RES 7,(HL)
503         RES 7,(IX-3)
504         RES 7,(IY+#67)
505         RES 7,A
506         RES 7,B
507         RES 7,C
508         RES 7,D
509         RES 7,E
510         RES 7,H
511         RES 7,L
513         RET
514         RET C
515         RET M
516         RET NC
517         RET NZ
518         RET P
519         RET PE
520         RET PO
521         RET Z
522         RETI
523         RETN
525         RL (HL)
526         RL (IX-128)
527         RL (IY+127)
528         RL A
529         RL B
530         RL C
531         RL D
532         RL E
533         RL H
534         RL L
535         RLA
537         RLC (HL)
538         RLC (IX-128)
539         RLC (IY+127)
540         RLC A
541         RLC B
542         RLC C
543         RLC D
544         RLC E
545         RLC H
546         RLC L
547         RLCA
549         RLD
551         RR (HL)
552         RR (IX-128)
553         RR (IY+127)
554         RR A
555         RR B
556         RR C
557         RR D
558         RR E
559         RR H
560         RR L
561         RRA
563         RRC (HL)
564         RRC (IX-128)
565         RRC (IY+127)
566         RRC A
567         RRC B
568         RRC C
569         RRC D
570         RRC E
571         RRC H
572         RRC L
573         RRCA
575         RRD
577         RST 0
578         RST %1000
579         RST 16
580         RST #18
581         RST #20
582         RST #28
583         RST #30
584         RST #38
586         SBC A,(HL)
587         SBC A,(IX+5)
588         SBC A,(IY)
589         SBC A,A
590         SBC A,B
591         SBC A,C
592         SBC A,D
593         SBC A,E
594         SBC A,H
595         SBC A,L
596         SBC A,NNN0
597         SBC HL,BC
598         SBC HL,DE
599         SBC HL,HL
600         SBC HL,SP
602         SCF
604         SET 0,(HL)
605         SET 0,(IX)
606         SET 0,(IY+#33)
607         SET 0,A
608         SET 0,B
609         SET 0,C
610         SET 0,D
611         SET 0,E
612         SET 0,H
613         SET 0,L
614         SET 1,(HL)
615         SET 1,(IX)
616         SET 1,(IY+#33)
617         SET 1,A
618         SET 1,B
619         SET 1,C
620         SET 1,D
621         SET 1,E
622         SET 1,H
623         SET 1,L
624         SET 2,(HL)
625         SET 2,(IX-2)
626         SET 2,(IY+#22)
627         SET 2,A
628         SET 2,B
629         SET 2,C
630         SET 2,D
631         SET 2,E
632         SET 2,H
633         SET 2,L
634         SET 3,(HL)
635         SET 3,(IX-3)
636         SET 3,(IY+#33)
637         SET 3,A
638         SET 3,B
639         SET 3,C
640         SET 3,D
641         SET 3,E
642         SET 3,H
643         SET 3,L
644         SET 4,(HL)
645         SET 4,(IX-3)
646         SET 4,(IY+#34)
647         SET 4,A
648         SET 4,B
649         SET 4,C
650         SET 4,D
651         SET 4,E
652         SET 4,H
653         SET 4,L
654         SET 5,(HL)
655         SET 5,(IX-3)
656         SET 5,(IY+#35)
657         SET 5,A
658         SET 5,B
659         SET 5,C
660         SET 5,D
661         SET 5,E
662         SET 5,H
663         SET 5,L
664         SET 5,(HL)
665         SET 6,(IX-3)
666         SET 6,(IY+#66)
667         SET 6,A
668         SET 6,B
669         SET 6,C
670         SET 6,D
671         SET 6,E
672         SET 6,H
673         SET 6,L
674         SET 7,(HL)
675         SET 7,(IX-3)
676         SET 7,(IY+%1100)
677         SET 7,A
678         SET 7,B
679         SET 7,C
680         SET 7,D
681         SET 7,E
682         SET 7,H
683         SET 7,L
685         SLA (HL)
686         SLA (IX-128)
687         SLA (IY+127)
688         SLA A
689         SLA B
690         SLA C
691         SLA D
692         SLA E
693         SLA H
694         SLA L
696         SRA (HL)
697         SRA (IX-128)
698         SRA (IY+127)
699         SRA A
700         SRA B
701         SRA C
702         SRA D
703         SRA E
704         SRA H
705         SRA L
707         SRL (HL)
708         SRL (IX-128)
709         SRL (IY+127)
710         SRL A
711         SRL B
712         SRL C
713         SRL D
714         SRL E
715         SRL H
716         SRL L
718         SUB (HL)
719         SUB (IX+15)
720         SUB (IY-15)
721         SUB A
722         SUB B
723         SUB C
724         SUB D
725         SUB E
726         SUB H
727         SUB L
728         SUB #FF
730         XOR (HL)
731         XOR (IX-128)
732         XOR (IY+0)
733         XOR (IY)
734         XOR A
735         XOR B
736         XOR C
737         XOR D
738         XOR E
739         XOR H
740         XOR L
741         XOR #55
743         ;DEFB 1,NNN0,LABEL/#100,2,33,#4F
744         ;DEFW NNN0,LABEL,0,#4567
745         ;DEFS 3*10-15
746         ;DEFM "1995 (C) Œ¥¤­®­®£®¢ B.C. "