source: buchla-68k/alcyon/vhinit.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.6 KB
RevLine 
[7bf3856]1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _cgtable
38.globl _cg_rows
39.globl _v_obtab
40.comm _v_obtab,288
41.globl _v_curob
42.comm _v_curob,4
43.globl _v_nobj
44.comm _v_nobj,2
45.globl _v_obpri
46.comm _v_obpri,2
47.globl _vr_data
48.data
49_vr_data:
50.dc.w $825B
51.dc.w $C474
52.dc.w $6
53.dc.w $100
54.dc.w $0
55.dc.w $0
56.dc.w $1
57.dc.w $40
58.dc.w $80
59.dc.w $10
60.dc.w $FF
61.dc.w $0
62.dc.w $C08
63.dc.w $140A
64.dc.w $9568
65.dc.w $A16A
66.globl _VHinit
67.text
68_VHinit:
69~~VHinit:
70link R14,#-4
71*line 79
72clr (sp)
73jsr _vbank
74*line 83
75move #16,(sp)
76move.l #_vr_data,-(sp)
77move.l #_v_regs,-(sp)
78jsr _memcpyw
79addq.l #8,sp
80*line 87
81move #350,(sp)
82move #-1,-(sp)
83move.l #_v_actab,-(sp)
84jsr _memsetw
85addq.l #6,sp
86*line 91
87move #64,(sp)
88clr -(sp)
89move.l #_v_odtab,-(sp)
90jsr _memsetw
91addq.l #6,sp
92*line 95
93move #4096,(sp)
94clr -(sp)
95move.l #_v_cgtab,-(sp)
96jsr _memsetw
97addq.l #6,sp
98*line 96
99move _cg_rows,R0
100asl #8,R0
101move R0,(sp)
102move.l #_cgtable,-(sp)
103move.l #_v_cgtab,-(sp)
104jsr _memcpyw
105addq.l #8,sp
106L1:unlk R14
107rts
108.data
Note: See TracBrowser for help on using the repository browser.