mirror of
https://github.com/cc65/cc65.git
synced 2024-11-06 15:06:07 +00:00
419eb700b5
The way we want to use the INITBSS segment - and especially the fact that it won't have the type bss on all ROM based targets - means that the name INITBSS is misleading. After all INIT is the best name from my perspective as it serves several purposes and therefore needs a rather generic name. Unfortunately this means that the current INIT segment needs to be renamed too. Looking for a short (ideally 4 letter) name I came up with ONCE as it contains all code (and data) accessed only once during initialization.
169 lines
4.2 KiB
ArmAsm
169 lines
4.2 KiB
ArmAsm
;
|
|
; Groepaz/Hitmen, 19.10.2015
|
|
;
|
|
; Low level init code for the monochrome soft80 screen output/console input
|
|
;
|
|
|
|
.constructor soft80mono_init, 8
|
|
.destructor soft80mono_shutdown
|
|
|
|
.import soft80mono_kclrscr, soft80_charset
|
|
.export soft80mono_internal_bgcolor, soft80mono_internal_cellcolor
|
|
.export soft80mono_internal_cursorxlsb
|
|
.export soft80mono_internal_nibble
|
|
|
|
.importzp ptr1, ptr2, ptr3
|
|
|
|
.include "c64.inc"
|
|
.include "soft80.inc"
|
|
|
|
soft80mono_init:
|
|
lda soft80mono_first_init
|
|
bne @skp
|
|
jsr firstinit
|
|
@skp:
|
|
; the "color voodoo" in other parts of the code relies on the vram and
|
|
; colorram being set up as expected, which is why we cant use the
|
|
; _bgcolor and _textcolor functions here.
|
|
|
|
lda CHARCOLOR ; use current textcolor
|
|
and #$0f ; make sure the upper nibble is 0s
|
|
sta CHARCOLOR
|
|
|
|
lda VIC_BG_COLOR0 ; use current bgcolor
|
|
and #$0f
|
|
sta soft80mono_internal_bgcolor
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
ora CHARCOLOR
|
|
sta soft80mono_internal_cellcolor
|
|
|
|
lda #$3b
|
|
sta VIC_CTRL1
|
|
lda #$00
|
|
sta CIA2_PRA
|
|
lda #$68
|
|
sta VIC_VIDEO_ADR
|
|
lda #$c8
|
|
sta VIC_CTRL2
|
|
|
|
jmp soft80mono_kclrscr
|
|
|
|
soft80mono_shutdown:
|
|
lda #$1b
|
|
sta VIC_CTRL1
|
|
lda #$03
|
|
sta CIA2_PRA
|
|
lda #$15
|
|
sta VIC_VIDEO_ADR
|
|
rts
|
|
|
|
.segment "ONCE"
|
|
firstinit:
|
|
; copy charset to RAM under I/O
|
|
sei
|
|
lda $01
|
|
pha
|
|
lda #$34
|
|
sta $01
|
|
|
|
inc soft80mono_first_init
|
|
|
|
lda #>soft80_charset
|
|
sta ptr1+1
|
|
lda #<soft80_charset
|
|
sta ptr1
|
|
lda #>soft80_lo_charset
|
|
sta ptr2+1
|
|
lda #<soft80_lo_charset
|
|
sta ptr2
|
|
lda #>soft80_hi_charset
|
|
sta ptr3+1
|
|
lda #<soft80_hi_charset
|
|
sta ptr3
|
|
|
|
ldx #4
|
|
@l2:
|
|
ldy #0
|
|
@l1:
|
|
lda (ptr1),y
|
|
sta (ptr2),y
|
|
asl a
|
|
asl a
|
|
asl a
|
|
asl a
|
|
sta (ptr3),y
|
|
iny
|
|
bne @l1
|
|
inc ptr1+1
|
|
inc ptr2+1
|
|
inc ptr3+1
|
|
dex
|
|
bne @l2
|
|
|
|
; copy the kplot tables to ram under I/O
|
|
;ldx #0 ; is 0
|
|
@l3:
|
|
lda soft80_tables_data_start,x
|
|
sta soft80_bitmapxlo,x
|
|
lda soft80_tables_data_start + (soft80_tables_data_end - soft80_tables_data_start - $100) ,x
|
|
sta soft80_bitmapxlo + (soft80_tables_data_end - soft80_tables_data_start - $100),x
|
|
inx
|
|
bne @l3
|
|
|
|
pla
|
|
sta $01
|
|
cli
|
|
rts
|
|
|
|
; the following tables take up 267 bytes, used by kplot
|
|
soft80_tables_data_start:
|
|
|
|
soft80_bitmapxlo_data:
|
|
.repeat 80,col
|
|
.byte <((col/2)*8)
|
|
.endrepeat
|
|
soft80_bitmapxhi_data:
|
|
.repeat 80,col
|
|
.byte >((col/2)*8)
|
|
.endrepeat
|
|
soft80_vramlo_data:
|
|
.repeat 25,row
|
|
.byte <(soft80_vram+(row*40))
|
|
.endrepeat
|
|
.byte 0,0,0,0,0,0,0 ; padding to next page
|
|
soft80_vramhi_data:
|
|
.repeat 25,row
|
|
.byte >(soft80_vram+(row*40))
|
|
.endrepeat
|
|
soft80_bitmapylo_data:
|
|
.repeat 25,row
|
|
.byte <(soft80_bitmap+(row*40*8))
|
|
.endrepeat
|
|
soft80_bitmapyhi_data:
|
|
.repeat 25,row
|
|
.byte >(soft80_bitmap+(row*40*8))
|
|
.endrepeat
|
|
|
|
soft80_tables_data_end:
|
|
|
|
;-------------------------------------------------------------------------------
|
|
.segment "INIT"
|
|
soft80mono_internal_cellcolor:
|
|
.res 1
|
|
soft80mono_internal_bgcolor:
|
|
.res 1
|
|
soft80mono_internal_cursorxlsb:
|
|
.res 1
|
|
|
|
.data
|
|
soft80mono_first_init:
|
|
.byte 0 ; flag to check first init, this really must be in .data
|
|
|
|
.rodata
|
|
soft80mono_internal_nibble:
|
|
.byte $f0, $0f
|
|
|