source: buchla-68k/alcyon/setgc.s@ ca867c1

Last change on this file since ca867c1 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 _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _cmtype
7.globl _cxval
8.globl _cyval
9.globl _sgcsw
10.globl _stccol
11.globl _stcrow
12.globl _setgc
13.text
14_setgc:
15~~setgc:
16~xv=R7
17~yv=R6
18link R14,#0
19movem.l R5-R7,-(sp)
20*line 30
21move 8(R14),R7
22*line 30
23move 10(R14),R6
24*line 30
25move R6,(sp)
26move R7,-(sp)
27jsr _gcurpos
28addq.l #2,sp
29*line 32
30move R7,_cxval
31*line 33
32move R6,_cyval
33*line 35
34move R6,R0
35ext.l R0
36divs #14,R0
37move R0,_stcrow
38*line 36
39move R7,R0
40asr #3,R0
41move R0,_stccol
42*line 38
43move #1,_sgcsw
44*line 39
45clr _cmtype
46*line 41
47*line 42
48move.l _curfet,(sp)
49move _stccol,-(sp)
50move _stcrow,-(sp)
51jsr _infield
52addq.l #4,sp
53tst R0
54beq L2
55*line 42
56move.l _infetp,_cfetp
57*line 43
58bra L3
59L2:
60*line 44
61clr.l _cfetp
62L3:L1:tst.l (sp)+
63movem.l (sp)+,R6-R7
64unlk R14
65rts
66.globl _settc
67.text
68_settc:
69~~settc:
70~rv=R7
71~cv=R6
72link R14,#0
73movem.l R5-R7,-(sp)
74*line 59
75move 8(R14),R7
76*line 59
77move 10(R14),R6
78*line 59
79move R6,(sp)
80move R7,-(sp)
81jsr _itcpos
82addq.l #2,sp
83*line 61
84move R7,_stcrow
85*line 62
86move R6,_stccol
87*line 64
88move R7,R0
89muls #14,R0
90move R0,_cyval
91*line 65
92move R6,R0
93asl #3,R0
94move R0,_cxval
95*line 67
96clr _sgcsw
97*line 68
98move #1,_cmtype
99*line 70
100*line 71
101move.l _curfet,(sp)
102move _stccol,-(sp)
103move _stcrow,-(sp)
104jsr _infield
105addq.l #4,sp
106tst R0
107beq L5
108*line 71
109move.l _infetp,_cfetp
110*line 72
111bra L6
112L5:
113*line 73
114clr.l _cfetp
115L6:L4:tst.l (sp)+
116movem.l (sp)+,R6-R7
117unlk R14
118rts
119.data
Note: See TracBrowser for help on using the repository browser.