source: buchla-68k/alcyon/setv2gi.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: 908 bytes
RevLine 
[7bf3856]1.globl _curinst
2.globl _curvce
3.globl _ins2grp
4.globl _s_inst
5.globl _vce2grp
6.globl _vbufs
7.globl _setv2gi
8.text
9_setv2gi:
10~~setv2gi:
11~group=8
12link R14,#0
13movem.l R4-R7/R12-R13,-(sp)
14~grp=R7
15~vce=R6
16~ins=R5
17~ip=R13
18~fp=R12
19*line 41
20move 8(R14),R8
21add.l R8,R8
22add.l #_ins2grp,R8
23move (R8),R5
24and #255,R5
25*line 42
26move 8(R14),R7
27add #1,R7
28*line 44
29clr R6
30bra L4
31L5:
32*line 45
33*line 46
34*line 46
35move R6,R8
36add.l R8,R8
37add.l #_vce2grp,R8
38cmp (R8),R7
39bne L6
40*line 47
41*line 48
42*line 48
43cmp _curvce,R6
44bne L7
45*line 49
46*line 50
47move R5,_curinst
48*line 51
49move _curvce,R8
50add.l R8,R8
51add.l #_s_inst,R8
52move R5,(R8)
53*line 52
54*line 53
55L7:
56*line 54
57move #1,(sp)
58move R5,-(sp)
59move R6,-(sp)
60jsr _execins
61addq.l #4,sp
62*line 55
63L6:L3:
64*line 44
65add #1,R6
66L4:
67*line 44
68cmp #12,R6
69blt L5
70L2:L1:tst.l (sp)+
71movem.l (sp)+,R5-R7/R12-R13
72unlk R14
73rts
74.data
Note: See TracBrowser for help on using the repository browser.