Context Navigation

dcopy.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.1 KB

Line
1	.globl _Cbuffs
2	.globl _Stdbufs
3	.globl _Stdbuf
4	.globl _defect
5	.globl _end
6	.globl _edata
7	.globl _etext
8	.globl _p_dlen
9	.globl _mphead
10	.globl _dcopy
11	.text
12	_dcopy:
13	~~dcopy:
14	link R14,#0
15	movem.l R3-R7/R12-R13,-(sp)
16	~fp=R13
17	~from=R12
18	~wrtlen=R7
19	~loadlen=R6
20	~bsslen=R5
21	~txtlen=R4
22	*line 40
23	clr _defect
24	*line 42
25	move.l #_etext,R4
26	sub.l #_Lo_RAM,R4
27	*line 43
28	move.l #_end,R5
29	sub.l #_edata,R5
30	*line 45
31	move.l #_edata,R6
32	sub.l #_Lo_RAM,R6
33	*line 49
34	move #24602,_mphead
35	*line 50
36	move.l R4,2+_mphead
37	*line 51
38	move.l _p_dlen,6+_mphead
39	*line 52
40	move.l R5,10+_mphead
41	*line 53
42	clr.l 14+_mphead
43	*line 54
44	clr.l 18+_mphead
45	*line 55
46	move.l #_Lo_RAM,22+_mphead
47	*line 56
48	move #-1,26+_mphead
49	*line 62
50	jsr _preio
51	*line 64
52	*line 64
53	move.l #L3,(sp)
54	move.l #L2,-(sp)
55	jsr _fopenb
56	addq.l #4,sp
57	move.l R0,R13
58	move.l R13,R0
59	bne L4
60	*line 65
61	*line 66
62	move #1,_defect
63	*line 67
64	jsr _postio
65	*line 68
66	move #-1,R0
67	bra L1
68	*line 69
69	*line 70
70	*line 71
71	*line 72
72	*line 73
73	*line 74
74	L4:
75	*line 75
76	move.l #_mphead,R12
77	*line 77
78	move.l #$1c,R7
79	bra L7
80	L8:
81	*line 78
82	*line 78
83	move.l R13,(sp)
84	move.b (R12)+,R0
85	ext.w R0
86	move R0,-(sp)
87	jsr _putc
88	addq.l #2,sp
89	cmp #-1,R0
90	bne L9
91	*line 79
92	*line 80
93	move #2,_defect
94	*line 81
95	move.l R13,(sp)
96	jsr _fclose
97	*line 82
98	jsr _postio
99	*line 83
100	move #-1,R0
101	bra L1
102	*line 84
103	*line 85
104	*line 86
105	*line 87
106	L9:L6:L7:
107	*line 77
108	move.l R7,R0
109	sub.l #$1,R7
110	tst.l R0
111	bne L8
112	L5:
113	*line 88
114	move.l #_Lo_RAM,R12
115	*line 90
116	move.l R6,R7
117	bra L12
118	L13:
119	*line 91
120	*line 91
121	move.l R13,(sp)
122	move.b (R12)+,R0
123	ext.w R0
124	move R0,-(sp)
125	jsr _putc
126	addq.l #2,sp
127	cmp #-1,R0
128	bne L14
129	*line 92
130	*line 93
131	move #3,_defect
132	*line 94
133	move.l R13,(sp)
134	jsr _fclose
135	*line 95
136	jsr _postio
137	*line 96
138	move #-1,R0
139	bra L1
140	*line 97
141	*line 98
142	*line 99
143	*line 100
144	L14:L11:L12:
145	*line 90
146	move.l R7,R0
147	sub.l #$1,R7
148	tst.l R0
149	bne L13
150	L10:
151	*line 101
152	move.l R13,(sp)
153	jsr _fflush
154	*line 102
155	move.l R13,(sp)
156	jsr _fclose
157	*line 103
158	jsr _postio
159	*line 104
160	clr R0
161	bra L1
162	L1:tst.l (sp)+
163	movem.l (sp)+,R4-R7/R12-R13
164	unlk R14
165	rts
166	.data
167	L2:.dc.b $6D,$69,$64,$61,$73,$2E,$61,$62,$73,$0
168	L3:.dc.b $77,$0

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

Download in other formats:

Original Format