Move screen clearing code over to main.s

Author: InPermutation

main.s

@@ -21,6 +21,57 @@ reset:
   jsr vdp_reset
   jsr tty_reset
 
+.clear_board:
+  vdp_write_vram VDP_NAME_TABLE_BASE
+.top_border:
+  lda #3
+  sta VDP_VRAM
+  ldx #(VDP_COLS - 2)
+  lda #0
+.top_border_horiz:
+  sta VDP_VRAM
+  dex
+  bne .top_border_horiz
+  lda #2
+  sta VDP_VRAM
+
+  ldy #(VDP_ROWS - 2)
+.mid_board:
+  lda #1
+  sta VDP_VRAM
+  ldx #(VDP_COLS - 2)
+  lda #' '
+.mid_board_horiz
+  sta VDP_VRAM
+  dex
+  bne .mid_board_horiz
+  lda #1
+  sta VDP_VRAM
+  dey
+  bne .mid_board
+
+.bottom_border:
+  lda #5
+  sta VDP_VRAM
+  ldx #(VDP_COLS - 2)
+  lda #0
+.bottom_border_horiz:
+  sta VDP_VRAM
+  dex
+  bne .bottom_border_horiz
+  lda #4
+  sta VDP_VRAM
+
+.snake:
+  vdp_write_vram (VDP_NAME_TABLE_BASE + (5 * VDP_COLS) + 30)
+  lda #'*'
+  sta VDP_VRAM
+
+  vdp_write_vram (VDP_NAME_TABLE_BASE + (10 * VDP_COLS) + 20)
+  lda #$7F
+  sta VDP_VRAM
+  sta VDP_VRAM
+
   cli
 
 loop:

vdp.s

@@ -102,63 +102,6 @@ vdp_pattern_table_loop:
 
 
 vdp_initialize_name_table:
-  pha
-  phx
-  phy
-  vdp_write_vram VDP_NAME_TABLE_BASE
-.top_border:
-  lda #3
-  sta VDP_VRAM
-  ldx #(VDP_COLS - 2)
-  lda #0
-.top_border_horiz:
-  sta VDP_VRAM
-  dex
-  bne .top_border_horiz
-  lda #2
-  sta VDP_VRAM
-
-  ldy #(VDP_ROWS - 2)
-.mid_board:
-  lda #1
-  sta VDP_VRAM
-  ldx #(VDP_COLS - 2)
-  lda #' '
-.mid_board_horiz
-  sta VDP_VRAM
-  dex
-  bne .mid_board_horiz
-  lda #1
-  sta VDP_VRAM
-  dey
-  bne .mid_board
-
-.bottom_border:
-  lda #5
-  sta VDP_VRAM
-  ldx #(VDP_COLS - 2)
-  lda #0
-.bottom_border_horiz:
-  sta VDP_VRAM
-  dex
-  bne .bottom_border_horiz
-  lda #4
-  sta VDP_VRAM
-
-.snake:
-  vdp_write_vram (VDP_NAME_TABLE_BASE + (5 * VDP_COLS) + 30)
-  lda #'*'
-  sta VDP_VRAM
-
-  vdp_write_vram (VDP_NAME_TABLE_BASE + (10 * VDP_COLS) + 20)
-  lda #$7F
-  sta VDP_VRAM
-  sta VDP_VRAM
-
-.exit
-  ply
-  plx
-  pla
   rts
 
 vdp_enable_display: