source: buchla-68k/alcyon/vputsv.s@ 4810254

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 1.4 KB
Line 
1.globl _vputsv
2.text
3_vputsv:
4~~vputsv:
5~sbase=8
6~row=12
7~col=14
8~str=16
9~attrib=20
10~len=22
11link R14,#-6
12~c=-2
13*line 36
14bra L4
15L3:
16*line 37
17*line 38
18move 22(R14),(sp)
19move 20(R14),-(sp)
20move -2(R14),-(sp)
21move 14(R14),-(sp)
22move 12(R14),-(sp)
23move.l 8(R14),-(sp)
24jsr _vputcv
25adda.l #12,sp
26*line 39
27*line 40
28*line 40
29add #1,14(R14)
30clr R0
31move 14(R14),R0
32cmp #64,R0
33blo L5
34*line 41
35*line 42
36clr 14(R14)
37*line 43
38*line 44
39*line 45
40add #1,12(R14)
41clr R0
42move 12(R14),R0
43cmp #25,R0
44blo L6
45*line 45
46clr 12(R14)
47L6:
48*line 46
49L5:L4:
50*line 47
51move.l 16(R14),R8
52move.b (R8),R0
53ext.w R0
54move R0,-2(R14)
55add.l #1,16(R14)
56tst R0
57bne L3
58L2:L1:unlk R14
59rts
60.globl _vputsav
61.text
62_vputsav:
63~~vputsav:
64~sbase=8
65~row=12
66~col=14
67~str=16
68~attrib=20
69~len=24
70link R14,#-6
71~c=-2
72*line 69
73bra L10
74L9:
75*line 70
76*line 71
77move 24(R14),(sp)
78move.l 20(R14),R8
79move (R8),-(sp)
80move -2(R14),-(sp)
81move 14(R14),-(sp)
82move 12(R14),-(sp)
83move.l 8(R14),-(sp)
84jsr _vputcv
85adda.l #12,sp
86add.l #2,20(R14)
87*line 72
88*line 73
89*line 73
90add #1,14(R14)
91clr R0
92move 14(R14),R0
93cmp #64,R0
94blo L11
95*line 74
96*line 75
97clr 14(R14)
98*line 76
99*line 77
100*line 78
101add #1,12(R14)
102clr R0
103move 12(R14),R0
104cmp #25,R0
105blo L12
106*line 78
107clr 12(R14)
108L12:
109*line 79
110L11:L10:
111*line 80
112move.l 16(R14),R8
113move.b (R8),R0
114ext.w R0
115move R0,-2(R14)
116add.l #1,16(R14)
117tst R0
118bne L9
119L8:L7:unlk R14
120rts
121.data
Note: See TracBrowser for help on using the repository browser.