mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-03 05:49:48 +00:00
167 lines
3.6 KiB
ArmAsm
167 lines
3.6 KiB
ArmAsm
|
; Copyright 2019 faddenSoft. All Rights Reserved.
|
||
|
|
; See the LICENSE.txt file for distribution terms (Apache 2.0).
|
||
|
|
;
|
||
|
|
; Assembler: Merlin 32
|
||
|
|
|
||
|
|
HGR equ $f3e2
|
||
|
|
src_ptr equ $00
|
||
|
|
xoff equ $02
|
||
|
|
width equ $03
|
||
|
|
line equ $04
|
||
|
|
count equ $05
|
||
|
|
|
||
|
|
org $1000
|
||
|
|
|
||
|
|
bit bitmap1 ;give the disassembler a reason to label them
|
||
|
|
bit bitmap2
|
||
|
|
bit bitmap3
|
||
|
|
bit bitmap4
|
||
|
|
bit bitmap5
|
||
|
|
|
||
|
|
jsr HGR ;clear screen, set hi-res mode
|
||
|
|
lda #<bitmap1
|
||
|
|
sta src_ptr
|
||
|
|
lda #>bitmap1
|
||
|
|
sta src_ptr+1
|
||
|
|
lda #$00
|
||
|
|
sta xoff
|
||
|
|
lda #$01 ;1x8
|
||
|
|
sta width
|
||
|
|
jsr draw
|
||
|
|
|
||
|
|
lda #<bitmap2
|
||
|
|
sta src_ptr
|
||
|
|
lda #>bitmap2
|
||
|
|
sta src_ptr+1
|
||
|
|
lda #$03 ;start in odd column
|
||
|
|
sta xoff
|
||
|
|
lda #$01 ;1x8
|
||
|
|
sta width
|
||
|
|
jsr draw
|
||
|
|
|
||
|
|
lda #<bitmap3
|
||
|
|
sta src_ptr
|
||
|
|
lda #>bitmap3
|
||
|
|
sta src_ptr+1
|
||
|
|
lda #$06
|
||
|
|
sta xoff
|
||
|
|
lda #$02 ;2x8
|
||
|
|
sta width
|
||
|
|
jsr draw
|
||
|
|
|
||
|
|
lda #<bitmap4
|
||
|
|
sta src_ptr
|
||
|
|
lda #>bitmap4
|
||
|
|
sta src_ptr+1
|
||
|
|
lda #$0a
|
||
|
|
sta xoff
|
||
|
|
lda #$02 ;2x8
|
||
|
|
sta width
|
||
|
|
jsr draw
|
||
|
|
|
||
|
|
lda #<bitmap5
|
||
|
|
sta src_ptr
|
||
|
|
lda #>bitmap5
|
||
|
|
sta src_ptr+1
|
||
|
|
lda #$0e
|
||
|
|
sta xoff
|
||
|
|
lda #$03 ;3x8
|
||
|
|
sta width
|
||
|
|
jsr draw
|
||
|
|
|
||
|
|
rts
|
||
|
|
|
||
|
|
; Copies an Nx8 bitmap to the hi-res screen.
|
||
|
|
;
|
||
|
|
; Put X offset in "xoff", width-1 in "width_m1", and a pointer to the bitmap
|
||
|
|
; data in "src_ptr".
|
||
|
|
draw
|
||
|
|
ldy #$00 ;index to input byte
|
||
|
|
sty line ;init line index to zero
|
||
|
|
:loop ldx line
|
||
|
|
lda addrs,x
|
||
|
|
beq :done
|
||
|
|
sta _copy+2
|
||
|
|
lda xoff
|
||
|
|
sta _copy+1
|
||
|
|
|
||
|
|
ldx #$00
|
||
|
|
:loop1 lda (src_ptr),y
|
||
|
|
_copy sta $2000,x
|
||
|
|
iny
|
||
|
|
inx
|
||
|
|
cpx width
|
||
|
|
bne :loop1
|
||
|
|
inc line
|
||
|
|
bne :loop ;always (more or less)
|
||
|
|
|
||
|
|
:done rts
|
||
|
|
|
||
|
|
; hi byte of base addresses on hi-res screen; must be 8 of them
|
||
|
|
addrs
|
||
|
|
dfb $20
|
||
|
|
dfb $24
|
||
|
|
dfb $28
|
||
|
|
dfb $2c
|
||
|
|
dfb $30
|
||
|
|
dfb $34
|
||
|
|
dfb $38
|
||
|
|
dfb $3c
|
||
|
|
dfb $00
|
||
|
|
|
||
|
|
; 1x8
|
||
|
|
bitmap1
|
||
|
|
dfb $00
|
||
|
|
dfb $01
|
||
|
|
dfb $02
|
||
|
|
dfb $04
|
||
|
|
dfb $08
|
||
|
|
dfb $10
|
||
|
|
dfb $20
|
||
|
|
dfb $40
|
||
|
|
|
||
|
|
; 1x8 (odd byte)
|
||
|
|
bitmap2
|
||
|
|
dfb $c0
|
||
|
|
dfb $a0
|
||
|
|
dfb $90
|
||
|
|
dfb $88
|
||
|
|
dfb $84
|
||
|
|
dfb $82
|
||
|
|
dfb $81
|
||
|
|
dfb $80
|
||
|
|
|
||
|
|
; 2x8
|
||
|
|
bitmap3
|
||
|
|
dfb $d5,$aa ;pure colors
|
||
|
|
dfb $aa,$d5
|
||
|
|
dfb $55,$2a
|
||
|
|
dfb $2a,$55
|
||
|
|
dfb $d5,$2a ;high bit split
|
||
|
|
dfb $aa,$55
|
||
|
|
dfb $55,$aa
|
||
|
|
dfb $2a,$d5
|
||
|
|
|
||
|
|
; 2x8
|
||
|
|
bitmap4
|
||
|
|
dfb $40,$00 ;bits at the edge
|
||
|
|
dfb $00,$01
|
||
|
|
dfb $40,$01
|
||
|
|
dfb $60,$03
|
||
|
|
dfb $40,$02
|
||
|
|
dfb $d5,$d5 ;same byte odd/even
|
||
|
|
dfb $aa,$aa
|
||
|
|
dfb $d5,$55
|
||
|
|
|
||
|
|
; 3x8 (do in B&W)
|
||
|
|
bitmap5
|
||
|
|
dfb $7f,$7f,$7f
|
||
|
|
dfb $03,$08,$60
|
||
|
|
dfb $03,$1c,$60
|
||
|
|
dfb $03,$3e,$60
|
||
|
|
dfb $03,$7f,$60
|
||
|
|
dfb $43,$77,$61
|
||
|
|
dfb $63,$63,$63
|
||
|
|
dfb $7f,$7f,$7f
|
||
|
|
|