source: buchla-68k/alcyon/vtext.s@ ca867c1

Last change on this file since ca867c1 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 1.0 KB
Line 
1.data
2L1:.dc.w $FF00
3.dc.w $FF
4.text
5.globl _vtext
6.text
7_vtext:
8~~vtext:
9~obj=R13
10~nc=R7
11~row=R6
12~col=R5
13~ip=R12
14link R14,#0
15movem.l R4-R7/R11-R13,-(sp)
16~op=R11
17*line 18
18move.l 8(R14),R13
19*line 18
20move 12(R14),R7
21*line 18
22move 14(R14),R6
23*line 18
24move 16(R14),R5
25*line 18
26move.l 18(R14),R12
27*line 18
28bra L5
29L4:
30*line 19
31*line 20
32move.l R13,R11
33clr R0
34move R6,R0
35clr R1
36move R7,R1
37lsr #1,R1
38mulu R1,R0
39lsl #1,R0
40swap R0
41clr R0
42swap R0
43add.l R0,R11
44clr R0
45move R5,R0
46lsr #1,R0
47lsl #1,R0
48swap R0
49clr R0
50swap R0
51add.l R0,R11
52*line 21
53*line 22
54*line 23
55clr R0
56move R5,R0
57and #1,R0
58lsl #1,R0
59swap R0
60clr R0
61swap R0
62move.l R0,R8
63move.l #L1,R9
64clr R0
65move 0(R8,R9.l),R0
66and (R11),R0
67move.b (R12)+,R1
68ext.w R1
69and #255,R1
70btst #0,R5
71beq L10000
72move #8,R2
73bra L10002
74L10000:clr R2
75L10002:asl R2,R1
76or R1,R0
77move R0,(R11)
78*line 24
79*line 25
80add #1,R5
81L5:
82*line 26
83tst.b (R12)
84bne L4
85L3:L2:tst.l (sp)+
86movem.l (sp)+,R5-R7/R11-R13
87unlk R14
88rts
89.data
Note: See TracBrowser for help on using the repository browser.