dos33fsprogs/dhgr/raster.s
2020-10-07 17:01:18 -04:00

124 lines
1.4 KiB
ArmAsm

GBASL = $26
GBASH = $27
HGRPAGE = $E6
COLOR = $ff
HGR = $F3E2
HGR2 = $F3D8
HPOSN = $F411
raster:
jsr HGR
jsr HGR2
; sta $C050 ; set graphics
; sta $C057 ; set hires
; sta $C052 ; set fullscreen
sta $C05E ; set double hires
sta $C00D ; 80 column
sta $C001 ; 80 store
lda #$20
sta HGRPAGE
lda #$0
sta COLOR
lda #100
jsr draw_line_color
lda #$4
sta COLOR
lda #99
jsr draw_line_color
lda #$4
sta COLOR
lda #101
jsr draw_line_color
lda #$8
sta COLOR
lda #98
jsr draw_line_color
lda #$8
sta COLOR
lda #102
jsr draw_line_color
forever:
jmp forever
;=========================
; draw line of color in COLOR
; at location A
;=========================
draw_line_color:
ldx #0
ldy #0
jsr HPOSN
; set page2
sta $C055
; page2 first
ldx COLOR
lda color_table,X
ldy #0
aux_part1_loop:
sta (GBASL),Y
iny
iny
cpy #40
bcc aux_part1_loop
; page2 first
ldx COLOR
lda color_table+1,X
ldy #1
aux_part2_loop:
sta (GBASL),Y
iny
iny
cpy #40
bcc aux_part2_loop
; set page1
sta $C054
; page1 next
ldx COLOR
lda color_table+2,X
ldy #0
main_part1_loop:
sta (GBASL),Y
iny
iny
cpy #40
bcc main_part1_loop
; page1 next
ldx COLOR
lda color_table+3,X
ldy #1
main_part2_loop:
sta (GBASL),Y
iny
iny
cpy #40
bcc main_part2_loop
rts
color_table:
.byte $FF,$FF,$FF,$FF ; white
.byte $3B,$6E,$77,$5D ; 0xB = light blue
.byte $33,$4C,$66,$19 ; 0x3 = medium blue