Refactoring, logo

1 files changed, 279 insertions, 0 deletions

diff --git a/text.asm b/text.asm
new file mode 100644
index 0000000..89abdd0
--- /dev/null
+++ b/text.asm
@@ -0,0 +1,279 @@
+print_text_s:

+  jsr wait_blank

+  ; выключаем PPU

+  jsr disable_ppu

+  ; выбираем последний CHR банк

+  lda #%00011111

+  sta $6001

+  ; очищаем экран

+  jsr clear_screen

+  ; загружаем палитру

+  lda #LOW(symbols_palette)

+  sta <PAL_SOURCE_ADDR

+  lda #HIGH(symbols_palette)

+  sta <PAL_SOURCE_ADDR+1

+  jsr preload_palette

+  jsr load_palette

+  lda #3

+  sta <TEXT_LINE

+  lda #1

+  sta <TEXT_POS

+  sta SPRITES_ENABLED

+  lda #0

+  sta <TEXT_NAMETABLE

+  sta <TEXT_SCROLL_STARTED

+  jsr reset_scroll

+  jsr wait_blank_simple

+  jsr enable_ppu

+.next_char:

+  ldy #0

+  lda [TEXT_SOURCE_ADDR], y

+  beq .end

+  cmp #$FF

+  bne .not_next_line

+  ; переходим на следующую строку

+  jsr next_line

+  jmp .inc_source_pos

+.not_next_line:

+  ; печатаем символ

+  jsr symbol_print

+  lda <KONAMI_CODE_TRIGGERED

+  bne .exit_to_credits

+.inc_source_pos:

+  inc <TEXT_SOURCE_ADDR

+  bne .inc_text_pos

+  inc <TEXT_SOURCE_ADDR+1

+.inc_text_pos:

+  inc <TEXT_POS

+  jmp .next_char

+.end:

+  lda <THE_END

+  beq .not_the_end

+.endless_loop:

+  jsr wait_blank

+  lda <KONAMI_CODE_TRIGGERED

+  bne .exit_to_credits

+  jmp .endless_loop

+.not_the_end

+  jsr wait_buttons_not_pressed

+  jsr wait_any_button

+  lda #0

+  sta SPRITES_ENABLED

+  lda #LOW(symbols_palette)

+  sta <PAL_SOURCE_ADDR

+  lda #HIGH(symbols_palette)

+  sta <PAL_SOURCE_ADDR+1

+  jsr dim_out

+  rts

+.exit_to_credits:

+  lda #0

+  sta SPRITES_ENABLED

+  lda #LOW(symbols_palette)

+  sta <PAL_SOURCE_ADDR

+  lda #HIGH(symbols_palette)

+  sta <PAL_SOURCE_ADDR+1

+  jsr dim_out

+  jmp credits

+

+  ; определяем адрес, куда писать символ

+symbol_address:

+  pha

+  bit PPUSTATUS

+  lda <TEXT_NAMETABLE

+  bne .second_nametable

+  lda <TEXT_LINE

+  lsr A

+  lsr A

+  lsr A

+  clc

+  adc #$20  

+  jmp .write_nametable_hi

+.second_nametable:

+  lda <TEXT_LINE

+  lsr A

+  lsr A

+  lsr A

+  clc

+  adc #$28

+.write_nametable_hi

+  sta PPUADDR

+  lda <TEXT_LINE

+  asl A

+  asl A

+  asl A

+  asl A

+  asl A

+  ora <TEXT_POS

+  sta PPUADDR

+  pla

+  rts

+

+  ; печать символа из регистра A

+symbol_print:

+  pha

+  ; при удержании любой кнопки ускоряем

+  lda <BUTTONS

+  bne .skip_sprite_draw

+  

+  ; настраиваем спрайт

+  lda #$FF

+  sta SPRITES

+  pla

+  sta SPRITES+1

+  pha

+  lda #0

+  sta SPRITES+2

+  lda <TEXT_POS

+  asl A

+  asl A

+  asl A

+  sta SPRITES+3

+  jsr wait_blank

+  lda #0

+  sta OAMADDR

+  lda #HIGH(SPRITES)

+  sta OAMDMA

+

+  ; плавно увеличиваем яркость

+  jsr preload_palette

+  jsr dim_4

+  jsr dim_4

+  jsr wait_blank

+  jsr .set_sprite_y

+  jsr load_sprite_palette

+

+  jsr preload_palette

+  jsr dim_4

+  jsr wait_blank

+  jsr .set_sprite_y

+  jsr load_sprite_palette

+

+  ; скрываем спрайт

+  lda #$FF

+  sta SPRITES

+  jsr wait_blank

+  lda #0

+  sta OAMADDR

+  lda #HIGH(SPRITES)

+  sta OAMDMA

+.skip_sprite_draw:

+  ; вычисляем адреса

+  jsr symbol_address

+  pla

+  ; печатаем символ

+  sta PPUDATA

+  inc <SYMBOL_COUNTER

+  ; если зажата кнопка, то ждём vlank раз в 4 символа

+  lda <BUTTONS

+  beq .not_skip_vblank

+  lda <SYMBOL_COUNTER

+  and #%11

+  bne .skip_vblank

+.not_skip_vblank:

+  jsr wait_blank

+.skip_vblank:

+  rts

+

+.set_sprite_y:

+  lda <TEXT_LINE

+  asl A

+  asl A

+  asl A

+  sec

+  sbc <SCROLL_POS

+  bcs .not_ovf

+  sec

+  sbc #16

+.not_ovf

+  sec

+  sbc #1

+  ldx <SCROLL_POS

+  cpx <SCROLL_TARGET_POS

+  beq .not_scrolling

+  sec

+  sbc #1

+.not_scrolling:

+  sta SPRITES

+  lda #0

+  sta OAMADDR

+  lda #HIGH(SPRITES)

+  sta OAMDMA

+  rts

+

+  ; переход на следующую строку

+next_line:

+  jsr wait_blank

+  lda #0

+  sta <TEXT_POS

+  ; увеличиваем номер строки

+  inc <TEXT_LINE

+  lda <TEXT_LINE

+  ; если он равен 30...

+  cmp #30

+  bne .scroll_check

+  ; обнуляем строку

+  lda #0

+  sta <TEXT_LINE

+  ; меняем nametable

+  lda TEXT_NAMETABLE

+  eor #1

+  sta <TEXT_NAMETABLE

+  ; проверка, не пора ли начинать скроллинг

+.scroll_check:

+  lda <TEXT_LINE

+  cmp #27 ; на какой строке начинать скроллить

+  bne .not_scroll_start

+  ; пора

+  inc <TEXT_SCROLL_STARTED

+.not_scroll_start:

+  ; включен ли сейчас скроллиг?

+  lda <TEXT_SCROLL_STARTED

+  beq .clear_line

+  ; увеличиваем скроллинг на 8 пикселей

+  lda <SCROLL_TARGET_POS

+  clc

+  adc #8

+  ; если дошли до 240й строки, обнуляем

+  cmp #240

+  bne .not_next_nt

+  lda #0

+.not_next_nt:

+  sta <SCROLL_TARGET_POS

+  ; очищаем строку на противоположном nametable

+.clear_line:

+  jsr wait_blank

+  bit PPUSTATUS

+  lda <TEXT_NAMETABLE

+  bne .second_nametable

+  lda <TEXT_LINE

+  lsr A

+  lsr A

+  lsr A

+  clc

+  adc #$28

+  jmp .write_nametable_hi

+.second_nametable:

+  lda <TEXT_LINE

+  lsr A

+  lsr A

+  lsr A

+  clc

+  adc #$20

+.write_nametable_hi

+  sta PPUADDR

+  lda <TEXT_LINE

+  asl A

+  asl A

+  asl A

+  asl A

+  asl A  

+  sta PPUADDR

+  ldx #32

+  lda #0

+.next_char:

+  sta PPUDATA

+  dex

+  bne .next_char

+.end:

+  jsr wait_blank

+  rts