mid-kid
5 years ago
commit
72b1ab6035
21 changed files with 1018 additions and 0 deletions
@ -0,0 +1,5 @@ |
|||
--languages=asm |
|||
--langmap=asm:.asm.inc |
|||
--regex-asm=/^([a-z0-9_]+):+.*/\1/l,labels/i |
|||
--regex-asm=/^([a-z0-9_]+)\s+=.*/\1/c,constants/i |
|||
--regex-asm=/^([a-z0-9_]+)\s+[Ee][Qq][Uu][Ss]?.*/\1/c,constants/i |
@ -0,0 +1,3 @@ |
|||
if expand("<afile>:e") ==? 'asm' || expand("<afile>:e") ==? 'inc' || expand("<afile>:e") ==? 'link' |
|||
setf rgbds |
|||
endif |
@ -0,0 +1,7 @@ |
|||
!_TAG_FILE_FORMAT 2 /extended format; --format=1 will not append ;" to lines/ |
|||
!_TAG_FILE_SORTED 1 /0=unsorted, 1=sorted, 2=foldcase/ |
|||
!_TAG_OUTPUT_MODE u-ctags /u-ctags or e-ctags/ |
|||
!_TAG_PROGRAM_AUTHOR Universal Ctags Team // |
|||
!_TAG_PROGRAM_NAME Universal Ctags /Derived from Exuberant Ctags/ |
|||
!_TAG_PROGRAM_URL https://ctags.io/ /official site/ |
|||
!_TAG_PROGRAM_VERSION 0.0.0 // |
@ -0,0 +1,56 @@ |
|||
name := Something |
|||
|
|||
dir_build := build |
|||
dir_source := source |
|||
dir_assets := assets |
|||
|
|||
RGBASM := rgbasm |
|||
RGBGFX := rgbgfx |
|||
RGBLINK := rgblink |
|||
RGBFIX := rgbfix |
|||
|
|||
RGBASMFLAGS := -p 0xff -L |
|||
RGBLINKFLAGS := -p 0xff -d -t |
|||
RGBFIXFLAGS := -p 0xff -j -m 0 -r 0 -n 0 -k "HB" -i "SMTH" -t "Something" |
|||
|
|||
rwildcard = $(foreach d, $(wildcard $1*), $(filter $(subst *, %, $2), $d) $(call rwildcard, $d/, $2)) |
|||
objects := $(patsubst $(dir_source)/%.asm, $(dir_build)/%.o, $(call rwildcard, $(dir_source)/, *.asm)) |
|||
|
|||
RGBASMFLAGS += -DENABLE_CGB #-DENABLE_CLEAR |
|||
RGBFIXFLAGS += -c |
|||
|
|||
.SECONDEXPANSION: |
|||
|
|||
.PHONY: all |
|||
all: $(name).gb |
|||
|
|||
.PHONY: clean |
|||
clean: |
|||
rm -rf $(name).gb $(name).sym $(name).map $(dir_build) |
|||
|
|||
$(name).gb: $(objects) |
|||
|
|||
%.gb: layout.link |
|||
$(RGBLINK) $(RGBLINKFLAGS) -l $< -n $(@:.gb=.sym) -m $(@:.gb=.map) -o $@ $(filter-out $<, $^) |
|||
$(RGBFIX) $(RGBFIXFLAGS) -v $@ |
|||
|
|||
$(dir_build)/%.o: $(dir_source)/%.asm | $$(dir $$@) |
|||
$(RGBASM) $(RGBASMFLAGS) -i $(dir_build)/ -i $(dir_source)/ -M $(@:.o=.d) -o $@ $< |
|||
|
|||
$(dir_build)/%.pal: $(dir_assets)/%.png | $$(dir $$@) |
|||
$(RGBGFX) -p $@ $< |
|||
|
|||
$(dir_build)/%.tilemap: $(dir_assets)/%.png | $$(dir $$@) |
|||
$(RGBGFX) -u -t $@ $< |
|||
|
|||
$(dir_build)/%.2bpp: $(dir_assets)/%.png | $$(dir $$@) |
|||
$(RGBGFX) -u -o $@ $< |
|||
|
|||
$(dir_build)/%.1bpp: $(dir_assets)/%.png | $$(dir $$@) |
|||
$(RGBGFX) -d 1 -u -o $@ $< |
|||
|
|||
.PRECIOUS: %/ |
|||
%/: |
|||
mkdir -p $@ |
|||
|
|||
-include $(patsubst %.o, %.d, $(objects)) |
Binary file not shown.
After Width: | Height: | Size: 308 B |
@ -0,0 +1,12 @@ |
|||
rom0 |
|||
org $40 |
|||
"home/vblank.asm@int40" |
|||
org $58 |
|||
"home/serial.asm@int58" |
|||
org $100 |
|||
"home/start.asm" |
|||
wram0 |
|||
"home/start.asm@wram0" |
|||
vram 0 |
|||
org $9800 |
|||
"home/video.asm@vram" |
@ -0,0 +1,58 @@ |
|||
; vim:set syn=asm: |
|||
|
|||
if 0 ;!def(_charmap_inc_) |
|||
_charmap_inc_ equ 0 |
|||
|
|||
char: macro |
|||
charmap \1, x |
|||
x = x + 1 |
|||
endm |
|||
|
|||
x = 0 |
|||
char " " |
|||
char "0" |
|||
char "1" |
|||
char "2" |
|||
char "3" |
|||
char "4" |
|||
char "5" |
|||
char "6" |
|||
char "7" |
|||
char "8" |
|||
char "9" |
|||
char "A" |
|||
char "B" |
|||
char "C" |
|||
char "D" |
|||
char "E" |
|||
char "F" |
|||
char "G" |
|||
char "H" |
|||
char "I" |
|||
char "J" |
|||
char "K" |
|||
char "L" |
|||
char "M" |
|||
char "N" |
|||
char "O" |
|||
char "P" |
|||
char "Q" |
|||
char "R" |
|||
char "S" |
|||
char "T" |
|||
char "U" |
|||
char "V" |
|||
char "W" |
|||
char "X" |
|||
char "Y" |
|||
char "Z" |
|||
char "." |
|||
char "-" |
|||
|
|||
charmap "$", $ff |
|||
|
|||
dstr: macro |
|||
db \1, "$" |
|||
endm |
|||
|
|||
endc |
@ -0,0 +1,45 @@ |
|||
if !def(_defines_inc_) |
|||
_defines_inc_ equ 0 |
|||
|
|||
bits: macro |
|||
; Defines a _f constant and a mask constant for one |
|||
; or multiple bits in a byte. |
|||
|
|||
if _NARG < 2 |
|||
\1_f rb 1 |
|||
\1 equ 1 << \1_f |
|||
else |
|||
\1_f rb \2 |
|||
x = 0 |
|||
rept \2 |
|||
x = x << 1 | 1 |
|||
endr |
|||
\1 equ x << \1_f |
|||
endc |
|||
endm |
|||
|
|||
enum: macro |
|||
\1 rb 1 |
|||
endm |
|||
|
|||
; h_console |
|||
rsreset |
|||
enum console_dmg |
|||
enum console_mgb |
|||
enum console_cgb |
|||
enum console_agb |
|||
|
|||
; h_joypad |
|||
rsreset |
|||
bits joy_a |
|||
bits joy_b |
|||
bits joy_select |
|||
bits joy_start |
|||
bits joy_right |
|||
bits joy_left |
|||
bits joy_up |
|||
bits joy_down |
|||
joy_buttons equ joy_a | joy_b | joy_select | joy_start |
|||
joy_dpad equ joy_right | joy_left | joy_up | joy_down |
|||
|
|||
endc |
@ -0,0 +1,103 @@ |
|||
if !def(_hardware_inc_) |
|||
_hardware_inc_ equ 0 |
|||
|
|||
include "defines.inc" |
|||
|
|||
; Memory map |
|||
rsreset |
|||
mmap_rom0 rb $4000 |
|||
mmap_rom0_end rb 0 |
|||
mmap_romx rb $4000 |
|||
mmap_romx_end rb 0 |
|||
mmap_vram rb $2000 |
|||
mmap_vram_end rb 0 |
|||
mmap_sram rb $2000 |
|||
mmap_sram_end rb 0 |
|||
mmap_wram0 rb $1000 |
|||
mmap_wram0_end rb 0 |
|||
mmap_wramx rb $1000 |
|||
mmap_wramx_end rb 0 |
|||
mmap_echo rb $1e00 |
|||
mmap_echo_end rb 0 |
|||
mmap_oam rb $a0 |
|||
mmap_oam_end rb 0 |
|||
mmap_nu rb $60 |
|||
mmap_nu_end rb 0 |
|||
mmap_io rb $80 |
|||
mmap_io_end rb 0 |
|||
mmap_hram rb $7f |
|||
mmap_hram_end rb 0 |
|||
|
|||
rsreset |
|||
r_joyp equ $ff00 |
|||
bits r_joyp_data, 4 |
|||
bits r_joyp_select, 2 |
|||
r_joyp_select_dpad equ %10 << r_joyp_select_f |
|||
r_joyp_select_buttons equ %01 << r_joyp_select_f |
|||
|
|||
r_sb equ $ff01 |
|||
|
|||
rsreset |
|||
r_sc equ $ff02 |
|||
bits r_sc_clk_internal |
|||
bits r_sc_clk_fast |
|||
rsset _RS + 5 |
|||
bits r_sc_start |
|||
|
|||
rsreset |
|||
r_if equ $ff0f |
|||
r_ie equ $ffff |
|||
bits r_int_vblank |
|||
bits r_int_stat |
|||
bits r_int_timer |
|||
bits r_int_serial |
|||
bits r_int_joypad |
|||
|
|||
rsreset |
|||
r_nr52 equ $ff26 |
|||
bits r_nr52_ch1 |
|||
bits r_nr52_ch2 |
|||
bits r_nr52_ch3 |
|||
bits r_nr52_ch4 |
|||
rsset _RS + 3 |
|||
bits r_nr52_on |
|||
|
|||
rsreset |
|||
r_lcdc equ $ff40 |
|||
bits r_lcdc_bg_on |
|||
bits r_lcdc_obj_on |
|||
bits r_lcdc_obj_big |
|||
bits r_lcdc_bg_map_high |
|||
bits r_lcdc_tiles_low |
|||
bits r_lcdc_window_on |
|||
bits r_lcdc_window_map_high |
|||
bits r_lcdc_on |
|||
|
|||
rsreset |
|||
r_stat equ $ff41 |
|||
bits r_stat_mode, 2 |
|||
bits r_stat_lyc_match |
|||
bits r_stat_int_hblank |
|||
bits r_stat_int_vblank |
|||
bits r_stat_int_oam |
|||
bits r_stat_int_lyc |
|||
r_stat_mode_hblank equ 0 << r_stat_mode_f |
|||
r_stat_mode_vblank equ 1 << r_stat_mode_f |
|||
r_stat_mode_oam equ 2 << r_stat_mode_f |
|||
r_stat_mode_vram equ 3 << r_stat_mode_f |
|||
|
|||
r_ly equ $ff44 |
|||
r_ly_vblank equ 144 |
|||
|
|||
rsreset |
|||
r_bcps equ $ff68 |
|||
bits r_bcps_offs, 3 |
|||
bits r_bcps_pal, 3 |
|||
rsset _RS + 1 |
|||
bits r_bcps_inc |
|||
|
|||
r_bcpd equ $ff69 |
|||
|
|||
r_svbk equ $ff70 |
|||
|
|||
endc |
@ -0,0 +1,8 @@ |
|||
include "hardware.inc" |
|||
|
|||
section "home/audio.asm", rom0 |
|||
|
|||
audio_disable:: |
|||
ld hl, r_nr52 |
|||
res r_nr52_on_f, [hl] |
|||
ret |
@ -0,0 +1,58 @@ |
|||
include "hardware.inc" |
|||
|
|||
section "home/joypad.asm@hram", hram |
|||
h_joypad: db |
|||
h_joypad_down:: db |
|||
h_joypad_pressed:: db |
|||
h_joypad_released:: db |
|||
|
|||
section "home/joypad.asm", rom0 |
|||
|
|||
joypad_read:: |
|||
ld a, r_joyp_select_dpad |
|||
ldh [r_joyp], a |
|||
rept 2 |
|||
ldh a, [r_joyp] |
|||
endr |
|||
|
|||
; Save the dpad value to the high nybble |
|||
cpl |
|||
and r_joyp_data |
|||
swap a |
|||
ld b, a |
|||
|
|||
ld a, r_joyp_select_buttons |
|||
ldh [r_joyp], a |
|||
rept 6 |
|||
ldh a, [r_joyp] |
|||
endr |
|||
|
|||
; Save the buttons to the low nybble |
|||
cpl |
|||
and r_joyp_data |
|||
or b |
|||
ldh [h_joypad], a |
|||
|
|||
ld a, r_joyp_select |
|||
ldh [r_joyp], a |
|||
ret |
|||
|
|||
joypad_update:: |
|||
ldh a, [h_joypad] |
|||
ld b, a |
|||
ldh a, [h_joypad_down] |
|||
ld c, a |
|||
|
|||
xor b |
|||
ld d, a |
|||
and c |
|||
ldh [h_joypad_released], a |
|||
|
|||
ld a, d |
|||
and b |
|||
ldh [h_joypad_pressed], a |
|||
|
|||
ld a, b |
|||
ldh [h_joypad_down], a |
|||
|
|||
ret |
@ -0,0 +1,24 @@ |
|||
section "home/math.asm", rom0 |
|||
|
|||
bits_swap:: |
|||
ld c, $80 |
|||
ld b, a |
|||
xor a |
|||
.loop |
|||
rrc b |
|||
jr nc, .skip |
|||
or c |
|||
.skip |
|||
rrc c |
|||
jr nc, .loop |
|||
ret |
|||
|
|||
divide:: |
|||
ld b, 0 |
|||
.loop |
|||
inc b |
|||
sub c |
|||
jr nc, .loop |
|||
dec b |
|||
add c |
|||
ret |
@ -0,0 +1,54 @@ |
|||
section "home/copy.asm", rom0 |
|||
|
|||
memcpy:: |
|||
inc b |
|||
inc c |
|||
jr .check |
|||
|
|||
.loop |
|||
ld a, [hli] |
|||
ld [de], a |
|||
inc de |
|||
|
|||
.check |
|||
dec c |
|||
jr nz, .loop |
|||
dec b |
|||
jr nz, .loop |
|||
ret |
|||
|
|||
memcpy_double:: |
|||
call swap_hl_de |
|||
|
|||
inc b |
|||
inc c |
|||
jr .check |
|||
|
|||
.loop |
|||
ld a, [de] |
|||
inc de |
|||
ld [hli], a |
|||
ld [hli], a |
|||
|
|||
.check |
|||
dec c |
|||
jr nz, .loop |
|||
dec b |
|||
jr nz, .loop |
|||
|
|||
jp swap_hl_de |
|||
|
|||
memset:: |
|||
inc b |
|||
inc c |
|||
jr .check |
|||
|
|||
.loop |
|||
ld [hli], a |
|||
|
|||
.check |
|||
dec c |
|||
jr nz, .loop |
|||
dec b |
|||
jr nz, .loop |
|||
ret |
@ -0,0 +1,132 @@ |
|||
include "hardware.inc" |
|||
|
|||
section "home/serial.asm@hram", hram |
|||
h_serial_len: dw |
|||
h_serial_send_ptr: dw |
|||
h_serial_recv_ptr: dw |
|||
|
|||
section "home/serial.asm@int58", rom0[$58] |
|||
push af |
|||
push hl |
|||
push bc |
|||
push de |
|||
jp serial_shift_int |
|||
|
|||
section "home/serial.asm", rom0 |
|||
|
|||
serial_shift_int: |
|||
call serial_shift |
|||
pop de |
|||
pop bc |
|||
pop hl |
|||
pop af |
|||
reti |
|||
|
|||
serial_end: |
|||
|
|||
serial_shift: |
|||
ldh a, [h_serial_len + 0] |
|||
ld c, a |
|||
ldh a, [h_serial_len + 1] |
|||
ld b, a |
|||
|
|||
; End early if we're done |
|||
or c |
|||
ret z |
|||
|
|||
ldh a, [h_serial_recv_ptr + 0] |
|||
ld e, a |
|||
ldh a, [h_serial_recv_ptr + 1] |
|||
ld d, a |
|||
|
|||
; Store the last received byte |
|||
or e |
|||
jr z, .no_recv |
|||
ldh a, [r_sb] |
|||
ld [de], a |
|||
inc de |
|||
.no_recv |
|||
|
|||
; We've transferred an entire byte in both directions |
|||
dec bc |
|||
|
|||
ldh a, [h_serial_send_ptr + 0] |
|||
ld l, a |
|||
ldh a, [h_serial_send_ptr + 1] |
|||
ld h, a |
|||
|
|||
; fallthrough |
|||
|
|||
serial_queue: |
|||
; If the length is 0, not much should be done |
|||
ld a, b |
|||
or c |
|||
jr z, .empty |
|||
|
|||
ld a, h |
|||
or l |
|||
ld a, -1 |
|||
jr z, .no_send |
|||
ld a, [hli] |
|||
.no_send |
|||
ldh [r_sb], a |
|||
|
|||
ldh a, [r_sc] |
|||
set r_sc_start_f, a |
|||
jr .store |
|||
|
|||
.empty |
|||
ldh a, [r_sc] |
|||
res r_sc_start_f, a |
|||
|
|||
.store |
|||
ldh [r_sc], a |
|||
|
|||
ld a, c |
|||
ldh [h_serial_len + 0], a |
|||
ld a, b |
|||
ldh [h_serial_len + 1], a |
|||
|
|||
ld a, e |
|||
ldh [h_serial_recv_ptr + 0], a |
|||
ld a, d |
|||
ldh [h_serial_recv_ptr + 1], a |
|||
|
|||
ld a, l |
|||
ldh [h_serial_send_ptr + 0], a |
|||
ld a, h |
|||
ldh [h_serial_send_ptr + 1], a |
|||
|
|||
ret |
|||
|
|||
serial_finished:: |
|||
; ret: z if done, nz if not done |
|||
ldh a, [r_sc] |
|||
bit r_sc_start_f, a |
|||
ret |
|||
|
|||
serial_transfer:: |
|||
; hl: Source buffer |
|||
; de: Destination buffer |
|||
; bc: Size |
|||
; ret: nz if previous transfer is still in transit |
|||
call serial_finished |
|||
ret nz |
|||
jp serial_queue |
|||
|
|||
serial_init_master:: |
|||
ld a, 1 |
|||
db $fe ; CP A, n8 |
|||
|
|||
serial_init_slave:: |
|||
xor a |
|||
|
|||
; fallthrough |
|||
|
|||
serial_init: |
|||
ldh [r_sc], a |
|||
|
|||
ldh a, [r_ie] |
|||
set r_int_serial_f, a |
|||
ldh [r_ie], a |
|||
ret |
@ -0,0 +1,161 @@ |
|||
include "hardware.inc" |
|||
include "defines.inc" |
|||
|
|||
NULL equ 0 |
|||
global NULL |
|||
|
|||
section "home/start.asm@wram0", wram0 |
|||
ds $100 - 1 |
|||
w_stack: |
|||
ds 1 |
|||
|
|||
section "home/start.asm@hram", hram |
|||
h_console:: db |
|||
|
|||
section "home/start.asm", rom0[$100] |
|||
nop |
|||
jp _start |
|||
|
|||
rept $150 - $104 |
|||
db 0 |
|||
endr |
|||
|
|||
_start: |
|||
di |
|||
|
|||
; Attempt to detect console model |
|||
cp $ff |
|||
jr z, .console_mgb |
|||
cp $11 |
|||
jr z, .console_cgb |
|||
|
|||
ld a, console_dmg |
|||
jr .console_end |
|||
|
|||
.console_mgb |
|||
ld a, console_mgb |
|||
jr .console_end |
|||
|
|||
.console_cgb |
|||
dec b |
|||
jr z, .console_agb |
|||
ld a, console_cgb |
|||
jr .console_end |
|||
|
|||
.console_agb |
|||
ld a, console_agb |
|||
|
|||
.console_end |
|||
ldh [h_console], a |
|||
|
|||
xor a |
|||
ldh [r_ie], a |
|||
ldh [r_if], a |
|||
|
|||
if def(ENABLE_CLEAR) |
|||
; Clear wram0 |
|||
ld hl, mmap_wram0 |
|||
ld bc, mmap_wram0_end - mmap_wram0 |
|||
call memset |
|||
endc |
|||
|
|||
ld sp, w_stack |
|||
ldh a, [h_console] |
|||
push af |
|||
|
|||
if def(ENABLE_CLEAR) |
|||
; Clear the hram and wram1 |
|||
xor a |
|||
ld hl, mmap_hram |
|||
ld bc, mmap_hram_end - mmap_hram |
|||
call memset |
|||
ld hl, mmap_wramx |
|||
ld bc, mmap_wramx_end - mmap_wramx |
|||
call memset |
|||
endc |
|||
|
|||
pop af |
|||
ldh [h_console], a |
|||
|
|||
if def(ENABLE_CGB) && def(ENABLE_CLEAR) |
|||
; Clear the different wram banks |
|||
cp console_cgb |
|||
jr c, .end |
|||
|
|||
ld d, 8 |
|||
.cgb_loop |
|||
dec d |
|||
ld a, d |
|||
ldh [r_svbk], a |
|||
cp 2 |
|||
jr c, .end |
|||
|
|||
ld hl, mmap_wramx |
|||
ld bc, mmap_wramx_end - mmap_wramx |
|||
call memset |
|||
|
|||
jr .cgb_loop |
|||
.end |
|||
endc |
|||
|
|||
ei |
|||
jp main |
|||
|
|||
_halt_:: |
|||
halt |
|||
jr _halt_ |
|||
|
|||
_stop_:: |
|||
; Save registers |
|||
ldh a, [r_ie] |
|||
ld b, a |
|||
ldh a, [r_lcdc] |
|||
ld c, a |
|||
|
|||
; Turn everything off |
|||
xor a |
|||
ldh [r_ie], a |
|||
ldh [r_if], a |
|||
ldh [r_joyp], a |
|||
call lcd_vblank_wait |
|||
xor a |
|||
ldh [r_lcdc], a |
|||
|
|||
; Make sure the joypad doesn't inmediately trigger anything. |
|||
ld d, $ff |
|||
.wait |
|||
ldh a, [r_joyp] |
|||
cpl |
|||
and r_joyp_data |
|||
jr nz, .wait |
|||
dec d |
|||
jr nz, .wait |
|||
|
|||
stop |
|||
|
|||
; Restore registers |
|||
ld a, c |
|||
ldh [r_lcdc], a |
|||
ld a, b |
|||
ldh [r_ie], a |
|||
ret |
|||
|
|||
_hl_:: |
|||
jp hl |
|||
|
|||
_bc_:: |
|||
push bc |
|||
ret |
|||
|
|||
_de_:: |
|||
push de |
|||
ret |
|||
|
|||
swap_hl_de:: |
|||
ld a, h |
|||
ld h, d |
|||
ld d, a |
|||
ld a, l |
|||
ld l, e |
|||
ld e, a |
|||
ret |
@ -0,0 +1,42 @@ |
|||
include "charmap.inc" |
|||
|
|||
section "home/text.asm", rom0 |
|||
|
|||
print:: |
|||
; hl: String |
|||
; de: Tilemap position |
|||
ld a, [hli] |
|||
cp "$" |
|||
ret z |
|||
call lcd_blank_wait ; TODO: Really hackish. |
|||
ld [de], a |
|||
inc de |
|||
jr print |
|||
|
|||
print_num_3digit:: |
|||
; a: Number |
|||
; de: Tilemap positon |
|||
push af |
|||
call lcd_blank_wait |
|||
xor a |
|||
ld [de], a |
|||
inc de |
|||
ld [de], a |
|||
inc de |
|||
ld [de], a |
|||
pop af |
|||
|
|||
ld l, 3 |
|||
.loop |
|||
ld c, 10 |
|||
call divide |
|||
add "0" |
|||
call lcd_blank_wait |
|||
ld [de], a |
|||
ld a, b |
|||
and a |
|||
ret z |
|||
dec de |
|||
dec l |
|||
jr nz, .loop |
|||
ret |
@ -0,0 +1,36 @@ |
|||
include "defines.inc" |
|||
include "hardware.inc" |
|||
|
|||
section "home/vblank.asm@hram", hram |
|||
h_vblank: db |
|||
|
|||
section "home/vblank.asm@int40", rom0[$40] |
|||
push af |
|||
ld a, 1 |
|||
ldh [h_vblank], a |
|||
jp vblank |
|||
|
|||
section "home/vblank.asm", rom0 |
|||
|
|||
vblank: |
|||
push hl |
|||
push bc |
|||
push de |
|||
|
|||
call joypad_read |
|||
|
|||
pop de |
|||
pop bc |
|||
pop hl |
|||
pop af |
|||
reti |
|||
|
|||
vblank_wait:: |
|||
xor a |
|||
ldh [h_vblank], a |
|||
.loop |
|||
halt |
|||
ld a, [h_vblank] |
|||
and a |
|||
jr z, .loop |
|||
ret |
@ -0,0 +1,54 @@ |
|||
include "video.inc" |
|||
include "hardware.inc" |
|||
|
|||
section "home/video.asm@vram", vram[$9800] |
|||
v_bgmap1:: ds $400 |
|||
v_bgmap2:: ds $400 |
|||
|
|||
section "home/video.asm", rom0 |
|||
|
|||
lcd_vblank_wait:: |
|||
ldh a, [r_ly] |
|||
cp r_ly_vblank + 1 |
|||
jr nz, lcd_vblank_wait |
|||
ret |
|||
|
|||
lcd_blank_wait:: |
|||
push af |
|||
.loop |
|||
ldh a, [r_stat] |
|||
and r_stat_mode |
|||
cp r_stat_mode_vblank + 1 |
|||
jr nc, .loop |
|||
pop af |
|||
ret |
|||
|
|||
lcd_disable:: |
|||
call lcd_vblank_wait |
|||
|
|||
ld hl, r_lcdc |
|||
res r_lcdc_on_f, [hl] |
|||
|
|||
ld hl, r_ie |
|||
res r_int_vblank_f, [hl] |
|||
ret |
|||
|
|||
lcd_enable:: |
|||
ld hl, r_lcdc |
|||
set r_lcdc_on_f, [hl] |
|||
|
|||
ld hl, r_if |
|||
res r_int_vblank_f, [hl] |
|||
|
|||
ld hl, r_ie |
|||
set r_int_vblank_f, [hl] |
|||
ret |
|||
|
|||
vram_clear:: |
|||
xor a |
|||
ld hl, mmap_vram |
|||
ld bc, mmap_vram_end - mmap_vram |
|||
call memset |
|||
ld hl, mmap_oam |
|||
ld bc, mmap_oam_end - mmap_oam |
|||
jp memset |
@ -0,0 +1,127 @@ |
|||
include "charmap.inc" |
|||
include "defines.inc" |
|||
include "video.inc" |
|||
include "hardware.inc" |
|||
|
|||
section "main.asm@data", rom0 |
|||
gfx_font: |
|||
incbin "assets/tetrisfont.1bpp" |
|||
gfx_font_end: |
|||
|
|||
section "main.asm@vram", vram |
|||
|
|||
ds $2D tiles |
|||
v_font_dash_period: ds 2 tiles |
|||
ds $1 tiles |
|||
v_font_numbers: ds 10 tiles |
|||
ds $7 tiles |
|||
v_font_uppercase: ds 26 tiles |
|||
ds $6 tiles |
|||
v_font_lowercase: ds 26 tiles |
|||
|
|||
section "main.asm", rom0 |
|||
|
|||
main:: |
|||
call audio_disable |
|||
call lcd_disable |
|||
if def(ENABLE_CLEAR) |
|||
call vram_clear |
|||
endc |
|||
|
|||
; Load the font |
|||
ld hl, gfx_font |
|||
ld de, v_font_numbers |
|||
ld bc, (10 tiles) / 2 |
|||
call memcpy_double |
|||
ld de, v_font_uppercase |
|||
ld bc, (26 tiles) / 2 |
|||
call memcpy_double |
|||
ld hl, gfx_font + (10 tiles) / 2 |
|||
ld de, v_font_lowercase |
|||
ld bc, (26 tiles) / 2 |
|||
call memcpy_double |
|||
ld de, v_font_dash_period + (1 tiles) |
|||
ld bc, (1 tiles) / 2 |
|||
call memcpy_double |
|||
ld de, v_font_dash_period |
|||
ld bc, (1 tiles) / 2 |
|||
call memcpy_double |
|||
|
|||
; Setup the palettes |
|||
if def(ENABLE_CGB) |
|||
ldh a, [h_console] |
|||
cp console_cgb |
|||
jr c, .skip_pals |
|||
|
|||
ld a, r_bcps_inc | 0 << r_bcps_pal_f | 0 << r_bcps_offs_f |
|||
ld c, LOW(r_bcps) |
|||
ldh [c], a |
|||
inc c |
|||
ld b, 4 |
|||
ld a, $ff |
|||
.loop_pal_1 |
|||
ldh [c], a |
|||
dec b |
|||
jr nz, .loop_pal_1 |
|||
ld b, 4 |
|||
xor a |
|||
.loop_pal_2 |
|||
ldh [c], a |
|||
dec b |
|||
jr nz, .loop_pal_2 |
|||
|
|||
.skip_pals |
|||
endc |
|||
|
|||
; Clear the background map |
|||
xor a |
|||
ld hl, v_bgmap1 |
|||
ld bc, bgmap_width * bgmap_height |
|||
call memset |
|||
|
|||
call lcd_enable |
|||
ld hl, string_something |
|||
bgcoord de, 5, 2 |
|||
call print |
|||
|
|||
call serial_init_master |
|||
|
|||
main_loop: |
|||
call joypad_update |
|||
bit joy_a_f, a |
|||
jr nz, .send_shit |
|||
|
|||
bgcoord hl, 7, 5 |
|||
call lcd_blank_wait |
|||
ld [hl], " " |
|||
|
|||
.continue |
|||
call vblank_wait |
|||
jr main_loop |
|||
|
|||
.send_shit |
|||
call vblank_wait |
|||
call joypad_update |
|||
bit joy_a_f, a |
|||
jr nz, .send_shit |
|||
|
|||
bgcoord hl, 7, 5 |
|||
call lcd_blank_wait |
|||
ld [hl], "A" |
|||
ld hl, transfer_buffer |
|||
ld de, NULL |
|||
ld bc, transfer_buffer.end - transfer_buffer |
|||
call serial_transfer |
|||
|
|||
.send_shit_wait |
|||
call vblank_wait |
|||
call serial_finished |
|||
jr nz, .send_shit_wait |
|||
|
|||
jr .continue |
|||
|
|||
transfer_buffer: |
|||
db $00, $11, $22, $33, $44, $55, $66, $77, $88, $99, $AA, $BB, $CC, $DD, $EE, $FF |
|||
.end |
|||
|
|||
string_something: db "SOMETHING$" |
@ -0,0 +1,33 @@ |
|||
; vim:set syn=asm: |
|||
|
|||
if !def(_video_inc_) |
|||
_video_inc_ equ 0 |
|||
|
|||
bgmap_width equ 32 |
|||
bgmap_height equ 32 |
|||
screen_width equ 20 |
|||
screen_height equ 18 |
|||
|
|||
tile_height equ 8 |
|||
len_1bpp_tile equ 1 * tile_height |
|||
len_2bpp_tile equ 2 * tile_height |
|||
tile equs "+ len_2bpp_tile *" |
|||
tiles equs "* len_2bpp_tile" |
|||
|
|||
coord: MACRO |
|||
if _NARG < 4 |
|||
ld \1, (\3) * screen_width + (\2) + w_tilemap |
|||
else |
|||
ld \1, (\3) * screen_height + (\2) + (\4) |
|||
endc |
|||
ENDM |
|||
|
|||
bgcoord: MACRO |
|||
if _NARG < 4 |
|||
ld \1, (\3) * bgmap_width + (\2) + v_bgmap1 |
|||
else |
|||
ld \1, (\3) * bgmap_width + (\2) + (\4) |
|||
endc |
|||
ENDM |
|||
|
|||
endc |
Loading…
Reference in new issue