MD_TextTest Sonic Clackers new hello.asm

    include 'init.asm'
    include 'globals.asm'
    include 'text.asm'

__main:

    move.w #0x8F02, vdp_control     ; Set autoincrement to 2 bytes

    ; ************************************
    ; Move palettes to CRAM
    ; ************************************
    move.l #vdp_write_palettes, vdp_control ; Set up VDP to write to CRAM address 0x0000

    lea Palettes, a0  ; Load address of Palettes into a0
    move.l #0x1F, d0  ; 128 bytes of data (4 palettes, 32 longwords, minus 1 for counter) in palettes

    @ColourLoop:
    move.l (a0)+, vdp_data ; Move data to VDP data port, and increment source address
    dbra d0, @ColourLoop

    ; ************************************
    ; Load font
    ; ************************************
    lea        PixelFont, a0       ; Move font address to a0
    move.l    #PixelFontVRAM, d0   ; Move VRAM dest address to d0
    move.l    #PixelFontSizeT, d1  ; Move number of characters (font size in tiles) to d1
    jsr        LoadFont            ; Jump to subroutine

    ; ************************************
    ; Draw text
    ; ************************************
    lea     String1, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0501, d1          ; XY (5, 1)
    move.l  #0x0, d2             ; Palette 0
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    lea     String2, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0502, d1          ; XY (5, 2)
    move.l  #0x1, d2             ; Palette 1
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    lea     String3, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0503, d1          ; XY (5, 3)
    move.l  #0x2, d2             ; Palette 2
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    lea     String4, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0504, d1          ; XY (5, 4)
    move.l  #0x3, d2             ; Palette 3
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    lea     String5, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0106, d1          ; XY (1, 6)
    move.l  #0x3, d2             ; Palette 3
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    lea     String6, a0          ; String address
    move.l  #PixelFontTileID, d0 ; First tile id
    move.w  #0x0107, d1          ; XY (1, 7)
    move.l  #0x3, d2             ; Palette 3
    jsr     DrawTextPlaneA       ; Call draw text subroutine

    stop #$2700 ; Halt CPU

Palettes:
    dc.w 0x0000 ; Colour 0 - Transparent
    dc.w 0x000E ; Colour 1 - Red
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000

    dc.w 0x0000 ; Colour 0 - Transparent
    dc.w 0x00E0 ; Colour 1 - Green
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000

    dc.w 0x0000 ; Colour 0 - Transparent
    dc.w 0x0E00 ; Colour 1 - Blue
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000

    dc.w 0x0000 ; Colour 0 - Transparent
    dc.w 0x0EEE ; Colour 1 - White
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000
    dc.w 0x0000

    ; Text strings (zero terminated)
String1:
    dc.b "SONIC CLACKERS NEWER",0
String2:
    dc.b "ANIMATION TEST",0
String3:
    dc.b "SONIC",0
String4:
    dc.b "TAILS",0
String5:
    dc.b "FIELD",0
String6:
    dc.b "ATTRACTION",0

    ; Include art assets
    include 'fonts\pixelfont.asm'

__end    ; Very last line, end of ROM address