Context Navigation

lseg.s

Last change on this file was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Added Alcyon C reference output.
Property mode set to `100644`
File size: 2.0 KB

Line
1	.globl _point
2	.comm _point,4
3	.globl _lseg
4	.text
5	_lseg:
6	~~lseg:
7	~x1=8
8	~y1=10
9	~x2=12
10	~y2=14
11	~t=16
12	link R14,#-6
13	movem.l R2-R7,-(sp)
14	~dx=R7
15	~dy=R6
16	~ptx=R5
17	~pty=R4
18	~p=R3
19	~i=-2
20	~px=-4
21	~py=-6
22	*line 48
23	move 8(R14),R5
24	move 12(R14),R3
25	sub R5,R3
26	*line 49
27	tst R3
28	bge L10000
29	move #-1,R0
30	bra L10002
31	L10000:tst R3
32	beq L10003
33	move #1,R0
34	bra L10005
35	L10003:clr R0
36	L10005:L10002:move R0,R7
37	*line 50
38	tst R3
39	bge L10006
40	move R3,R0
41	neg R0
42	bra L10008
43	L10006:move R3,R0
44	L10008:move R0,-6(R14)
45	*line 52
46	move 10(R14),R4
47	move 14(R14),R3
48	sub R4,R3
49	*line 53
50	tst R3
51	bge L10009
52	move #-1,R0
53	bra L10011
54	L10009:tst R3
55	beq L10012
56	move #1,R0
57	bra L10014
58	L10012:clr R0
59	L10014:L10011:move R0,R6
60	*line 54
61	tst R3
62	bge L10015
63	move R3,R0
64	neg R0
65	bra L10017
66	L10015:move R3,R0
67	L10017:move R0,-4(R14)
68	*line 56
69	move 16(R14),-(sp)
70	move R4,-(sp)
71	move R5,-(sp)
72	move.l _point,R8
73	jsr (R8)
74	addq.l #6,sp
75	*line 58
76	*line 58
77	move -6(R14),R0
78	cmp -4(R14),R0
79	ble L2
80	*line 59
81	*line 60
82	move -6(R14),R3
83	asr R3
84	*line 61
85	*line 62
86	move #1,-2(R14)
87	bra L5
88	L6:
89	*line 63
90	*line 64
91	add R7,R5
92	*line 65
93	*line 66
94	*line 66
95	sub -4(R14),R3
96	bge L7
97	*line 67
98	*line 68
99	add R6,R4
100	*line 69
101	add -6(R14),R3
102	*line 70
103	*line 71
104	L7:
105	*line 72
106	move 16(R14),-(sp)
107	move R4,-(sp)
108	move R5,-(sp)
109	move.l _point,R8
110	jsr (R8)
111	addq.l #6,sp
112	L4:
113	*line 62
114	add #1,-2(R14)
115	L5:
116	*line 62
117	move -2(R14),R0
118	cmp -6(R14),R0
119	blt L6
120	L3:
121	*line 73
122	*line 74
123	bra L8
124	L2:
125	*line 75
126	*line 76
127	*line 77
128	move -4(R14),R3
129	asr R3
130	*line 78
131	*line 79
132	move #1,-2(R14)
133	bra L11
134	L12:
135	*line 80
136	*line 81
137	add R6,R4
138	*line 82
139	*line 83
140	*line 83
141	sub -6(R14),R3
142	bge L13
143	*line 84
144	*line 85
145	add R7,R5
146	*line 86
147	add -4(R14),R3
148	*line 87
149	*line 88
150	L13:
151	*line 89
152	move 16(R14),-(sp)
153	move R4,-(sp)
154	move R5,-(sp)
155	move.l _point,R8
156	jsr (R8)
157	addq.l #6,sp
158	L10:
159	*line 79
160	add #1,-2(R14)
161	L11:
162	*line 79
163	move -2(R14),R0
164	cmp -4(R14),R0
165	ble L12
166	L9:
167	*line 90
168	L8:L1:tst.l (sp)+
169	movem.l (sp)+,R3-R7
170	unlk R14
171	rts
172	.data

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format