source: buchla-68k/alcyon/vmput.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: 1.5 KB
Line 
1.globl _vmput
2.text
3_vmput:
4~~vmput:
5~sbase=8
6~row=12
7~col=14
8~ms=16
9~ma=20
10link R14,#-4
11movem.l R4-R7,-(sp)
12~c=R7
13~tc=R6
14~tr=R5
15~cp=-4
16*line 39
17move 12(R14),R5
18*line 41
19bra L4
20L3:
21*line 42
22*line 43
23move 14(R14),R6
24*line 44
25*line 45
26bra L7
27L6:
28*line 46
29move 20(R14),(sp)
30move R7,-(sp)
31move R6,-(sp)
32move R5,-(sp)
33move.l 8(R14),-(sp)
34jsr _vputc
35adda.l #10,sp
36add #1,R6
37L7:
38*line 46
39move.l -4(R14),R8
40move.b (R8),R0
41ext.w R0
42move R0,R7
43clr R0
44move R7,R0
45add.l #1,-4(R14)
46tst R0
47bne L6
48L5:
49*line 47
50*line 48
51add #1,R5
52L4:
53*line 49
54move.l 16(R14),R8
55move.l (R8),R0
56move.l R0,-4(R14)
57add.l #4,16(R14)
58tst.l R0
59bne L3
60L2:L1:tst.l (sp)+
61movem.l (sp)+,R5-R7
62unlk R14
63rts
64.globl _vmputa
65.text
66_vmputa:
67~~vmputa:
68~sbase=8
69~row=12
70~col=14
71~ms=16
72~ma=20
73link R14,#-8
74movem.l R4-R7,-(sp)
75~c=R7
76~tc=R6
77~tr=R5
78~tm=-4
79~cp=-8
80*line 69
81move 12(R14),R5
82*line 71
83bra L11
84L10:
85*line 72
86*line 73
87move 14(R14),R6
88*line 74
89move.l 20(R14),R8
90move.l (R8),-4(R14)
91add.l #4,20(R14)
92*line 75
93*line 76
94bra L14
95L13:
96*line 77
97move.l -4(R14),R8
98move (R8),(sp)
99move R7,-(sp)
100move R6,-(sp)
101move R5,-(sp)
102move.l 8(R14),-(sp)
103jsr _vputc
104adda.l #10,sp
105add.l #2,-4(R14)
106add #1,R6
107L14:
108*line 77
109move.l -8(R14),R8
110move.b (R8),R0
111ext.w R0
112move R0,R7
113clr R0
114move R7,R0
115add.l #1,-8(R14)
116tst R0
117bne L13
118L12:
119*line 78
120*line 79
121add #1,R5
122L11:
123*line 80
124move.l 16(R14),R8
125move.l (R8),R0
126move.l R0,-8(R14)
127add.l #4,16(R14)
128tst.l R0
129bne L10
130L9:L8:tst.l (sp)+
131movem.l (sp)+,R5-R7
132unlk R14
133rts
134.data
Note: See TracBrowser for help on using the repository browser.