Skip to content

Commit 746d19d

Browse files
tslaninatslanina
authored
Add files via upload
Initial commit
1 parent 7b4cff2 commit 746d19d

11 files changed

+2828
-0
lines changed

‎compile.bat

+4
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,4 @@
1+
del *.p
2+
cls
3+
asw -cpu 68000 seibu.s
4+
p2bin -r $-$ seibu.p

‎copmacros.s

+198
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,198 @@
1+
2+
dc.b "[MACROS_COPY]",0
3+
4+
macros_copy:
5+
lea COP_OFFSET, A1
6+
move.l a0,d4
7+
.copy_next:
8+
move.l (a0)+,a2
9+
cmpi.l #-$1,a2
10+
beq .copy_exit
11+
12+
add.l d4,a2
13+
14+
move.w (a2)+,d0
15+
16+
move.w D0, ($3c,A1)
17+
move.w (A2)+, ($38,A1)
18+
move.w (A2)+, ($3a,A1)
19+
move.w (A2)+, D0
20+
move.w #$7, D1
21+
.copy_loop:
22+
move.w D0, ($34,A1)
23+
addq.w #1, D0
24+
move.w (A2)+, ($32,A1)
25+
dbra d1,.copy_loop
26+
bra .copy_next
27+
.copy_exit:
28+
rts
29+
30+
NUM_COP_MACROS equ 21
31+
32+
33+
revival_macros:
34+
dc.l revival_00-revival_macros
35+
dc.l revival_01-revival_macros
36+
dc.l -1
37+
38+
revival_00:
39+
dc.w $0105, $0006
40+
dc.w $fffb, $0000
41+
dc.w $0180, $02e0, $00a0, $0000, $0000, $0000, $0000, $0000
42+
43+
revival_01:
44+
dc.w $0b05, $0006
45+
dc.w $ffdb, $0008
46+
dc.w $0180, $02e0, $00a0, $0182, $02e0, $00c0, $0000, $0000
47+
48+
default_macros:
49+
dc.l cop_macro_00-default_macros
50+
dc.l cop_macro_08-default_macros
51+
dc.l cop_macro_10-default_macros
52+
dc.l cop_macro_18-default_macros
53+
dc.l cop_macro_28-default_macros
54+
dc.l cop_macro_60-default_macros
55+
dc.l cop_macro_80-default_macros
56+
dc.l cop_macro_88-default_macros
57+
dc.l cop_macro_90-default_macros
58+
dc.l cop_macro_98-default_macros
59+
dc.l cop_macro_20-default_macros
60+
dc.l cop_macro_30-default_macros
61+
dc.l cop_macro_38-default_macros
62+
dc.l cop_macro_40-default_macros
63+
dc.l cop_macro_48-default_macros
64+
dc.l cop_macro_68-default_macros
65+
dc.l cop_macro_c0-default_macros
66+
dc.l cop_macro_a0-default_macros
67+
dc.l cop_macro_a8-default_macros
68+
dc.l cop_macro_b0-default_macros
69+
dc.l cop_macro_b8-default_macros
70+
dc.l -1
71+
72+
cop_macro_00:
73+
dc.w $0205,$0006
74+
dc.w $FFEB
75+
dc.w $0000
76+
dc.w $0188, $0282, $0082, $0B8E, $098E, $0000, $0000, $0000
77+
78+
cop_macro_08:
79+
dc.w $0905, $0006
80+
dc.w $FBFB
81+
dc.w $0008
82+
dc.w $0194, $0288, $0088, $0000, $0000, $0000, $0000, $0000
83+
84+
cop_macro_10:
85+
dc.w $138E, $0005
86+
dc.w $BF7F
87+
dc.w $0010
88+
dc.w $0984, $0AA4, $0D82, $0AA2, $039B, $0B9A, $0B9A, $0B9A
89+
90+
cop_macro_18:
91+
dc.w $1905, $0006
92+
dc.w $FBFB
93+
dc.w $0018
94+
dc.w $0994, $0A88, $0088, $0000, $0000, $0000, $0000, $0000
95+
96+
cop_macro_28:
97+
dc.w $2A05, $0006
98+
dc.w $EBEB
99+
dc.w $0028
100+
dc.w $09AF, $0A82, $0082, $0A8F, $018E, $0000, $0000, $0000
101+
102+
cop_macro_60:
103+
dc.w $6200, $0008
104+
dc.w $F3E7
105+
dc.w $0060
106+
dc.w $0380, $039A, $0380, $0A80, $029A, $0000, $0000, $0000
107+
108+
cop_macro_80:
109+
dc.w $08100, $00007
110+
dc.w $FDFB
111+
dc.w $0080
112+
dc.w $0B9A, $0B88, $0888, $0000, $0000, $0000, $0000, $0000
113+
114+
cop_macro_88:
115+
dc.w $8900, $0007
116+
dc.w $FDFB
117+
dc.w $0088
118+
dc.w $0B9A, $0B8A, $088A, $0000, $0000, $0000, $0000, $0000
119+
120+
cop_macro_90:
121+
dc.w $9180, $0007
122+
dc.w $F8F7
123+
dc.w $0090
124+
dc.w $0B80, $0B94, $0B94, $0894, $0000, $0000, $0000, $0000
125+
126+
cop_macro_98:
127+
dc.w $9980, $0007
128+
dc.w $F8F7
129+
dc.w $0098
130+
dc.w $0B80, $0B96, $0B96, $0896, $0000, $0000, $0000, $0000
131+
132+
cop_macro_20:
133+
dc.w $2288, $0005
134+
dc.w $F5DF
135+
dc.w $0020
136+
dc.w $0F8A, $0B8A, $0388, $0B9C, $0B9A, $0A9A, $0000, $0000
137+
138+
cop_macro_30:
139+
dc.w $338E, $0005
140+
dc.w $BF7F
141+
dc.w $0030
142+
dc.w $0984, $0AA4, $0D82, $0AA2, $039C, $0B9C, $0B9C, $0A9A
143+
144+
cop_macro_38:
145+
dc.w $3BB0, $0004
146+
dc.w $007F
147+
dc.w $0038
148+
dc.w $0F9C, $0B9C, $0B9C, $0B9C, $0B9C, $0B9C, $0B9C, $099C
149+
150+
cop_macro_40:
151+
dc.w $42C2, $0005
152+
dc.w $FCDD
153+
dc.w $0040
154+
dc.w $0F9A, $0B9A, $0B9C, $0B9C, $0B9C, $029C, $0000, $0000
155+
156+
cop_macro_48:
157+
dc.w $4AA0, $0005
158+
dc.w $FCDD
159+
dc.w $0048
160+
dc.w $0F9A, $0B9A, $0B9C, $0B9C, $0B9C, $099B, $0000, $0000
161+
162+
cop_macro_68:
163+
dc.w $6880, $000A
164+
dc.w $FFF3
165+
dc.w $0068
166+
dc.w $0B80, $0BA0, $0000, $0000, $0000, $0000, $0000, $0000
167+
168+
cop_macro_c0:
169+
dc.w $C480, $000A
170+
dc.w $FF00
171+
dc.w $00C0
172+
dc.w $0080, $0882, $0000, $0000, $0000, $0000, $0000, $0000
173+
174+
cop_macro_a0:
175+
dc.w $A100, $0000
176+
dc.w $FFFF
177+
dc.w $00A0
178+
dc.w $0B80, $0B82, $0B84, $0B86, $0000, $0000, $0000, $0000
179+
180+
cop_macro_a8:
181+
dc.w $A900, $000F
182+
dc.w $FFFF
183+
dc.w $00A8
184+
dc.w $0BA0, $0BA2, $0BA4, $0BA6, $0000, $0000, $0000, $0000
185+
186+
cop_macro_b0:
187+
dc.w $B080, $0009
188+
dc.w $FFFF
189+
dc.w $00B0
190+
dc.w $0B40, $0BC0, $0BC2, $0000, $0000, $0000, $0000, $00000
191+
192+
cop_macro_b8:
193+
dc.w $B880, $0006
194+
dc.w $FFFF
195+
dc.w $00B8
196+
dc.w $0B60, $0BE0, $0BE2, $0000, $0000, $0000, $0000, $0000
197+
198+
sdefault_macros_end:

‎defines.s

+71
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,71 @@
1+
2+
INITIAL_STACK equ $11f000
3+
ADDR_DSW equ $100740
4+
ADDR_INP equ $100744
5+
ADDR_INP2 equ $10074c
6+
7+
8+
9+
PALETTE_RAM equ $104000
10+
TILEMAP equ $102000
11+
12+
NUM_NIBBLE equ 1
13+
NUM_BYTE equ 2
14+
NUM_WORD equ 4
15+
NUM_DWORD equ 8
16+
17+
COLOR_WHITE equ $1000
18+
COLOR_BLACK equ $0000
19+
COLOR_GREEN equ $2000
20+
COLOR_RED equ $3000
21+
22+
TMP_STRING equ $11c880
23+
24+
BSS_MOD_BASE equ $11d000
25+
26+
BSS_BASE equ $11f000
27+
28+
MACROS_BASE equ $11c000
29+
30+
VAR_VBLANK equ (BSS_BASE)
31+
VAR_FRAMECNT equ (BSS_BASE+4)
32+
VAR_MODULE equ (BSS_BASE+8)
33+
VAR_MEMV equ (BSS_BASE+12)
34+
VAR_MEMV_MODE equ (BSS_BASE+16)
35+
VAR_MEMV_EA equ (BSS_BASE+20)
36+
VAR_INPUT equ (BSS_BASE+24)
37+
VAR_INPUT_TRG equ (BSS_BASE+28)
38+
VAR_NUM_MODS equ (BSS_BASE+32)
39+
VAR_MODE equ (BSS_BASE+36)
40+
VAR_MEMV_X equ (BSS_BASE+40)
41+
VAR_MEMV_Y equ (BSS_BASE+44)
42+
VAR_MEMV_DT equ (BSS_BASE+48)
43+
VAR_MEMV_FIRE equ (BSS_BASE+52)
44+
VAR_MEMV_EDITP equ (BSS_BASE+56)
45+
VAR_MEMV_FLASH equ (BSS_BASE+60)
46+
VAR_MEMV_ADDRP equ (BSS_BASE+64)
47+
VAR_MEMV_AFLASH equ (BSS_BASE+68)
48+
VAR_MTYPE equ (BSS_BASE+72)
49+
50+
STATUS_X equ 1
51+
STATUS_Y equ 13
52+
53+
COUNT_X equ 1
54+
COUNT_Y equ 29
55+
56+
MNAME_X equ 1
57+
MNAME_Y equ 14
58+
59+
MOD_Y equ 16
60+
61+
VIEWER_Y equ 2
62+
63+
MODE_VIEW equ 0
64+
MODE_EDIT equ 1
65+
MODE_MODIFY equ 2
66+
67+
ID_X equ 19
68+
ID_Y equ 26
69+
70+
71+
COP_OFFSET equ $100400

‎interrupt.s

+34
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
2+
interrupt:
3+
4+
move #$2700, SR
5+
movem.l D0-D7/A0-A6, -(A7)
6+
7+
move.w #$14, $10047e.l
8+
move.w #$ffff, $1006fc.l ; palette
9+
nop
10+
nop
11+
move.w #$15, $10047e.l
12+
move.w #$ffff, $1006fc.l ; tilemap
13+
nop
14+
nop
15+
16+
move.w ADDR_DSW, D0
17+
btst #$1, D0
18+
19+
bne .skip_cop_write
20+
21+
move.w #$ffff, $100600.l ; unknown ?
22+
nop
23+
nop
24+
.skip_cop_write:
25+
26+
lea BSS_BASE, a6
27+
move.l #1,VAR_VBLANK
28+
addq.l #1,VAR_FRAMECNT
29+
30+
31+
32+
33+
movem.l (A7)+, D0-D7/A0-A6
34+
rte

0 commit comments

Comments
 (0)