Context Navigation

lseg.s@ 9519422

Last change on this file since 9519422 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

Rev	Line
[7bf3856]	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