source: buchla-68k/alcyon/vclrs.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: 458 bytes
Line 
1.globl _vclrs
2.text
3_vclrs:
4~~vclrs:
5~obase=-2
6~nc=R7
7~obase=8
8~row=12
9~col=14
10~ch=18
11~atr=20
12link R14,#0
13movem.l R6-R7,-(sp)
14*line 32
15move 16(R14),R7
16*line 32
17bra L4
18L3:
19*line 33
20move 20(R14),(sp)
21move 18(R14),-(sp)
22move 14(R14),-(sp)
23move 12(R14),-(sp)
24move.l 8(R14),-(sp)
25jsr _vputc
26adda.l #10,sp
27add #1,14(R14)
28L4:
29*line 33
30move R7,R0
31sub #1,R7
32tst R0
33bne L3
34L2:L1:tst.l (sp)+
35movem.l (sp)+,R7-R7
36unlk R14
37rts
38.data
Note: See TracBrowser for help on using the repository browser.