388 lines
5.7 KiB
ArmAsm
388 lines
5.7 KiB
ArmAsm
;
|
|
; graphics.s
|
|
;
|
|
; Created by Quinn Dunki on 9/10/16
|
|
; Copyright (c) 2015 One Girl, One Laptop Productions. All rights reserved.
|
|
;
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; EnableHires
|
|
;
|
|
EnableHires:
|
|
sta TEXT
|
|
sta HIRES1
|
|
sta HIRES2
|
|
rts
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; EnableText
|
|
;
|
|
EnableText:
|
|
sta TEXT2
|
|
rts
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; SaveBackground
|
|
; PARAM0: X pos
|
|
; PARAM1: Y pos
|
|
; PARAM2: Storage area (LSB)
|
|
; PARAM3: Storage area (MSB)
|
|
;
|
|
; Assumes 6-byte-wide, 8px-high sprites
|
|
;
|
|
SaveBackground:
|
|
SAVE_AXY
|
|
ldy #0
|
|
lda #0
|
|
pha
|
|
|
|
saveBackground_loop:
|
|
clc
|
|
pla
|
|
pha
|
|
adc PARAM1 ; Calculate Y line
|
|
tax
|
|
|
|
lda HGRROWS_H1,x ; Compute hires row
|
|
sta saveBackground_smc0+2
|
|
sta saveBackground_smc1+2
|
|
sta saveBackground_smc2+2
|
|
sta saveBackground_smc3+2
|
|
sta saveBackground_smc4+2
|
|
sta saveBackground_smc5+2
|
|
lda HGRROWS_L,x
|
|
sta saveBackground_smc0+1
|
|
sta saveBackground_smc1+1
|
|
sta saveBackground_smc2+1
|
|
sta saveBackground_smc3+1
|
|
sta saveBackground_smc4+1
|
|
sta saveBackground_smc5+1
|
|
|
|
ldx PARAM0 ; Compute hires column
|
|
lda DIV7_2,x
|
|
tax
|
|
|
|
saveBackground_smc0:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
inx
|
|
saveBackground_smc1:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
inx
|
|
saveBackground_smc2:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
inx
|
|
saveBackground_smc3:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
inx
|
|
saveBackground_smc4:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
inx
|
|
saveBackground_smc5:
|
|
lda $2000,x
|
|
sta (PARAM2),y
|
|
iny
|
|
|
|
pla
|
|
inc
|
|
pha
|
|
|
|
cpy #48
|
|
bne saveBackground_loop
|
|
|
|
pla
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; RestoreBackground
|
|
; PARAM0: X pos
|
|
; PARAM1: Y pos
|
|
; PARAM2: Storage area (LSB)
|
|
; PARAM3: Storage area (MSB)
|
|
;
|
|
; Assumes 4-byte-wide, 8px-high sprites
|
|
;
|
|
RestoreBackground:
|
|
SAVE_AXY
|
|
ldy #0
|
|
lda #0
|
|
pha
|
|
|
|
restoreBackground_loop:
|
|
clc
|
|
pla
|
|
pha
|
|
adc PARAM1 ; Calculate Y line
|
|
tax
|
|
|
|
lda HGRROWS_H1,x ; Compute hires row
|
|
sta restoreBackground_smc0+2
|
|
sta restoreBackground_smc1+2
|
|
sta restoreBackground_smc2+2
|
|
sta restoreBackground_smc3+2
|
|
sta restoreBackground_smc4+2
|
|
sta restoreBackground_smc5+2
|
|
lda HGRROWS_L,x
|
|
sta restoreBackground_smc0+1
|
|
sta restoreBackground_smc1+1
|
|
sta restoreBackground_smc2+1
|
|
sta restoreBackground_smc3+1
|
|
sta restoreBackground_smc4+1
|
|
sta restoreBackground_smc5+1
|
|
|
|
ldx PARAM0 ; Compute hires column
|
|
lda DIV7_2,x
|
|
tax
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc0:
|
|
sta $2000,x
|
|
iny
|
|
inx
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc1:
|
|
sta $2000,x
|
|
iny
|
|
inx
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc2:
|
|
sta $2000,x
|
|
iny
|
|
inx
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc3:
|
|
sta $2000,x
|
|
iny
|
|
inx
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc4:
|
|
sta $2000,x
|
|
iny
|
|
inx
|
|
|
|
lda (PARAM2),y
|
|
restoreBackground_smc5:
|
|
sta $2000,x
|
|
iny
|
|
|
|
pla
|
|
inc
|
|
pha
|
|
|
|
cpy #48
|
|
bne restoreBackground_loop
|
|
|
|
pla
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; BlackRect
|
|
; PARAM0: X pos
|
|
; PARAM1: Y pos
|
|
;
|
|
; Assumes 6-byte-wide, 8px-high sprites
|
|
; 1099 cycles per call
|
|
;
|
|
BlackRect:
|
|
SAVE_AX ; 6
|
|
lda #0 ; 2
|
|
pha ; 3 9 setup
|
|
|
|
blackRect_loop:
|
|
clc ; 2
|
|
pla ; 4
|
|
pha ; 3
|
|
adc PARAM1 ; 3 ; Calculate Y line
|
|
tax ; 2
|
|
|
|
lda HGRROWS_H1,x ; 4 ; Compute hires row
|
|
sta blackRect_smc0+2 ; 4
|
|
sta blackRect_smc1+2 ; 4
|
|
sta blackRect_smc2+2 ; 4
|
|
sta blackRect_smc3+2 ; 4
|
|
sta blackRect_smc4+2 ; 4
|
|
sta blackRect_smc5+2 ; 4
|
|
lda HGRROWS_L,x ; 4
|
|
sta blackRect_smc0+1 ; 4
|
|
sta blackRect_smc1+1 ; 4
|
|
sta blackRect_smc2+1 ; 4
|
|
sta blackRect_smc3+1 ; 4
|
|
sta blackRect_smc4+1 ; 4
|
|
sta blackRect_smc5+1 ; 4
|
|
|
|
ldx PARAM0 ; 3 ; Compute hires column
|
|
lda DIV7_2,x ; 4
|
|
tax ; 2
|
|
; 79
|
|
blackRect_smc0:
|
|
stz $2000,x ; 5
|
|
inx ; 2
|
|
|
|
blackRect_smc1:
|
|
stz $2000,x ; 5
|
|
inx ; 2
|
|
|
|
blackRect_smc2:
|
|
stz $2000,x ; 5
|
|
inx ; 2
|
|
|
|
blackRect_smc3:
|
|
stz $2000,x ; 5
|
|
inx ; 2
|
|
|
|
blackRect_smc4:
|
|
stz $2000,x ; 5
|
|
inx ; 2
|
|
|
|
blackRect_smc5:
|
|
stz $2000,x ; 5
|
|
|
|
pla ; 4
|
|
inc ;2
|
|
pha ; 3
|
|
|
|
cmp #8 ; 2
|
|
bne blackRect_loop ; 2 134 per row
|
|
|
|
pla ; 4
|
|
RESTORE_AX ; 8
|
|
rts ; 6 18 cleanup
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; LinearFill
|
|
; A: Byte value to fill
|
|
; Trashes all registers
|
|
;
|
|
LinearFill:
|
|
ldx #0
|
|
|
|
linearFill_outer:
|
|
pha
|
|
lda HGRROWS_H1,x
|
|
sta linearFill_inner+2
|
|
lda HGRROWS_L,x
|
|
sta linearFill_inner+1
|
|
pla
|
|
|
|
ldy #39
|
|
linearFill_inner:
|
|
sta $2000,y
|
|
dey
|
|
bpl linearFill_inner
|
|
|
|
inx
|
|
cpx #192
|
|
bne linearFill_outer
|
|
rts
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; VenetianFill
|
|
; A: Byte value to fill
|
|
; Trashes all registers
|
|
;
|
|
VenetianFill:
|
|
ldx #$3f
|
|
venetianFill_outer:
|
|
stx venetianFill_inner+2
|
|
ldy #$00
|
|
venetianFill_inner:
|
|
sta $2000,y ; Upper byte of address is self-modified
|
|
iny
|
|
bne venetianFill_inner
|
|
dex
|
|
cpx #$1f
|
|
bne venetianFill_outer
|
|
rts
|
|
|
|
|
|
INBUF = $0200
|
|
DOSCMD = $be03
|
|
KBD = $c000
|
|
KBDSTRB = $c010
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; CommandLine
|
|
;
|
|
; PARAM0: Command line string (LSB)
|
|
; PARAM1: Command line string (MSB)
|
|
;
|
|
CommandLine:
|
|
SAVE_AXY
|
|
ldx #0
|
|
ldy #0
|
|
|
|
CommandLine_loop:
|
|
lda (PARAM0),y
|
|
beq CommandLine_done
|
|
sta $0200,x ; Keyboard input buffer
|
|
inx
|
|
iny
|
|
bra CommandLine_loop
|
|
|
|
CommandLine_done:
|
|
lda #$8d ; Terminate with return and null
|
|
sta $0200,x
|
|
inx
|
|
lda #0
|
|
sta $0200,x
|
|
|
|
jsr $be03 ; ProDOS 8 entry point
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; BloadHires
|
|
;
|
|
; PARAM0: Filename (LSB)
|
|
; PARAM1: Filename (MSB)
|
|
;
|
|
; Max filename length: 16 chars!
|
|
;
|
|
BloadHires:
|
|
SAVE_AXY
|
|
ldx #0
|
|
ldy #0
|
|
|
|
BloadHires_loop:
|
|
lda (PARAM0),y ; Copy filename into BLOAD buffer
|
|
beq BloadHires_done
|
|
sta BloadHires_buffer+6,x
|
|
inx
|
|
iny
|
|
bra BloadHires_loop
|
|
|
|
BloadHires_done:
|
|
lda #<BloadHires_buffer
|
|
sta PARAM0
|
|
lda #>BloadHires_buffer
|
|
sta PARAM1
|
|
jsr CommandLine
|
|
|
|
RESTORE_AXY
|
|
rts
|
|
|
|
BloadHires_buffer:
|
|
.byte "BLOAD ",0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
|