Context Navigation

dcopy.s@ 0170798

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

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