124 lines
1.4 KiB
ArmAsm
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
|
|
|