bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

some comment alignment

Browse Source
This commit is contained in:
xlar54
2024-06-13 21:40:51 -05:00
parent 0837f9c25f
commit 60f9081ea4
1 changed files with 21 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
libsrc/cx16/tgi/cx640p1.s
View File

@@ -113,20 +113,20 @@ CURRENT_X:
; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels. ; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels.
; The first 16 RGB elements mimic the Commodore 64's colors. ; The first 16 RGB elements mimic the Commodore 64's colors.
SCRBASE: .res 1 ; High byte of screen base SCRBASE: .res 1 ; High byte of screen base
BITMASK: .res 1 ; $00 = clear, $FF = set pixels BITMASK: .res 1 ; $00 = clear, $FF = set pixels
OLDCOLOR: .res 1 ; colors before entering gfx mode OLDCOLOR: .res 1 ; colors before entering gfx mode
defpalette: .res $0100 defpalette: .res $0100
palette: .res $0100 palette: .res $0100
bcolor := palette + 0 ; Background color bcolor := palette + 0 ; Background color
color: .res 1 ; Stroke and fill index color: .res 1 ; Stroke and fill index
text_mode: .res 1 ; Old text mode text_mode: .res 1 ; Old text mode
.data .data
error: .byte TGI_ERR_OK ; Error code error: .byte TGI_ERR_OK ; Error code
; Constants and tables ; Constants and tables
@@ -193,13 +193,13 @@ INIT: stz error ; #TGI_ERR_OK
; Switch into (640 x 480 x 2) graphics mode. ; Switch into (640 x 480 x 2) graphics mode.
lda #%00000000 ; DCSEL = 0, VRAM port 1 lda #%00000000 ; DCSEL = 0, VRAM port 1
sta VERA::CTRL sta VERA::CTRL
lda #%00100001 ; Disable sprites, layer 1 enable, VGA lda #%00100001 ; Disable sprites, layer 1 enable, VGA
sta VERA::DISP::VIDEO sta VERA::DISP::VIDEO
lda #%00000100 ; Bitmap mode enable lda #%00000100 ; Bitmap mode enable
sta VERA::L1::CONFIG sta VERA::L1::CONFIG
lda #%00000001 ; Tile width 640 lda #%00000001 ; Tile width 640
sta VERA::L1::TILE_BASE sta VERA::L1::TILE_BASE
rts rts
@@ -248,7 +248,7 @@ CLEAR:
; set cache writes ; set cache writes
lda #$40 lda #$40
tsb $9f29 ;VERA_FX_CTRL tsb $9F29 ;VERA_FX_CTRL
; set FX cache to all zeroes ; set FX cache to all zeroes
lda #(6 << 1) lda #(6 << 1)
@@ -260,24 +260,24 @@ CLEAR:
lda #$ff lda #$ff
ahead: ahead:
sta VERA::DISP::VIDEO sta VERA::DISP::VIDEO
sta VERA::DISP::HSCALE ;$9f2a sta VERA::DISP::HSCALE
sta VERA::DISP::VSCALE ;$9f2b sta VERA::DISP::VSCALE
sta VERA::DISP::FRAME ;$9f2c sta VERA::DISP::FRAME
stz VERA::CTRL stz VERA::CTRL
; set address and increment for bitmap area ; set address and increment for bitmap area
stz VERA::ADDR stz VERA::ADDR
stz VERA::ADDR + 1 stz VERA::ADDR + 1
lda #$30 ; increment +4 lda #$30 ; increment +4
sta VERA::ADDR + 2 sta VERA::ADDR + 2
ldy #240 ; number of rows ldy #$F0
blank_outer: blank_outer:
ldx #10 ; 10 iterations of 32 = one line of 640 ldx #$0A
blank_loop: blank_loop:
.repeat 8 .repeat 8
stz VERA::DATA0 ; $9f23 each `stz` writes four zeroes to VRAM (cache contents) for a total of 32 pixels when repeated 8x stz VERA::DATA0
.endrep .endrep
dex dex
@@ -287,10 +287,10 @@ blank_loop:
; set up DCSEL=2 ; set up DCSEL=2
lda #(2 << 1) lda #(2 << 1)
sta VERA::CTRL ; $9f25 sta VERA::CTRL
; set FX off (cache write bit 1 -> 0) ; set FX off (cache write bit 1 -> 0)
stz $9f29 ;VERA_FX_CTRL stz $9F29 ;VERA_FX_CTRL
stz VERA::CTRL stz VERA::CTRL
.endscope .endscope