source: buchla-68k/alcyon/vspray4.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.2 KB
RevLine 
[7bf3856]1.bss
2L1:.ds.b 82
3.text
4.globl _vspray4
5.text
6_vspray4:
7~~vspray4:
8~vobj=8
9~vwid=12
10~fg=14
11~ml=16
12~vb=20
13~pitch=22
14link R14,#0
15movem.l R3-R7/R12-R13,-(sp)
16~cp=R13
17~lp=R12
18~c=R7
19~j=R6
20~k=R5
21~row=R4
22*line 39
23clr R4
24*line 41
25and #15,14(R14)
26*line 42
27move 14(R14),R0
28asl #4,R0
29or R0,14(R14)
30*line 43
31move 14(R14),R0
32asl #8,R0
33or R0,14(R14)
34*line 45
35*line 46
36cmp #-1,20(R14)
37beq L3
38*line 46
39move 20(R14),(sp)
40jsr _vbank
41*line 47
42L3:
43*line 48
44bra L6
45L5:
46*line 49
47*line 50
48move.l #L1,R12
49*line 51
50*line 52
51bra L9
52L8:
53*line 53
54*line 54
55and #255,R6
56*line 55
57move.b (R13)+,R7
58*line 56
59*line 57
60clr R5
61bra L12
62L13:
63*line 58
64move.b R7,(R12)+
65L11:
66*line 57
67add #1,R5
68L12:
69*line 57
70cmp R6,R5
71blt L13
72L10:
73*line 58
74L9:
75*line 59
76move.b (R13)+,R6
77ext.w R6
78cmp #-1,R6
79bne L8
80L7:
81*line 60
82*line 61
83clr.b (R12)
84*line 62
85*line 63
86move 22(R14),(sp)
87move.l #L1,-(sp)
88clr -(sp)
89move R4,-(sp)
90move 14(R14),-(sp)
91move 12(R14),-(sp)
92move.l 8(R14),-(sp)
93jsr _tsplot4
94adda.l #16,sp
95add #1,R4
96L6:
97*line 64
98move.l 16(R14),R8
99move.l (R8),R13
100move.l R13,R0
101add.l #4,16(R14)
102tst.l R0
103bne L5
104L4:L2:tst.l (sp)+
105movem.l (sp)+,R4-R7/R12-R13
106unlk R14
107rts
108.data
Note: See TracBrowser for help on using the repository browser.