mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 06:39:40 +02:00
Pecusx
258 lines
4.6 KiB
NASM
258 lines
4.6 KiB
NASM
.IF *>0 ;this is a trick that prevents compiling this file alone
|
|
|
|
; Basic hardware-dependent graphics routines.
|
|
|
|
; -----------------------------------------
|
|
.proc unPlot
|
|
; plots a point and saves the plotted byte, reverts the previous plot.
|
|
; -----------------------------------------
|
|
ldx #0 ; only one pixel
|
|
unPlotAfterX
|
|
stx WhichUnPlot
|
|
|
|
; first remake the oldie
|
|
lda oldplotL,x
|
|
sta oldplot
|
|
lda oldplotH,x
|
|
sta oldplot+1
|
|
|
|
ldy #0
|
|
lda oldora,x
|
|
sta (oldplot),y
|
|
|
|
|
|
; is it not out of the screen ????
|
|
cpw ydraw #screenheight
|
|
jcc CheckX
|
|
mwa #0 ydraw
|
|
CheckX
|
|
cpw xdraw #screenwidth
|
|
jcs EndOfUnPlot
|
|
MakeUnPlot
|
|
; let's count coordinates taken from xdraw and ydraw
|
|
lda xdraw
|
|
and #%11111000
|
|
;sta xbyte
|
|
;---
|
|
ldx ydraw
|
|
clc
|
|
adc linetableL,x
|
|
sta xbyte
|
|
sta oldplot
|
|
lda linetableH,x
|
|
adc xdraw+1
|
|
sta xbyte+1
|
|
sta oldplot+1
|
|
|
|
lda xdraw
|
|
and #$7
|
|
tax
|
|
ldy #0
|
|
|
|
lda color
|
|
bne ClearUnPlot
|
|
|
|
;plotting here
|
|
lda (xbyte),y
|
|
sta OldOraTemp
|
|
ora bittable,x
|
|
sta (xbyte),y
|
|
bne ContinueUnPlot ; allways <>0
|
|
ClearUnPlot
|
|
lda (xbyte),y
|
|
sta OldOraTemp
|
|
and bittable2,x
|
|
sta (xbyte),y
|
|
ContinueUnPlot
|
|
ldx WhichUnPlot
|
|
lda OldOraTemp
|
|
sta oldora,x
|
|
lda oldplot
|
|
sta oldplotL,x
|
|
lda oldplot+1
|
|
sta oldplotH,x
|
|
; and now we must solve the problem of several plots
|
|
; in one byte
|
|
ldx #4
|
|
ldy WhichUnPlot
|
|
LetsCheckOverlapping
|
|
cpx WhichUnPlot
|
|
beq SkipThisPlot
|
|
lda oldplotL,x
|
|
cmp oldplotL,y
|
|
bne NotTheSamePlot
|
|
lda oldplotH,x
|
|
cmp oldplotH,y
|
|
bne NotTheSamePlot
|
|
; the pixel is in the same byte so let's take correct contents
|
|
lda oldora,x
|
|
sta oldora,y
|
|
NotTheSamePlot
|
|
SkipThisPlot
|
|
dex
|
|
bpl LetsCheckOverlapping
|
|
EndOfUnPlot
|
|
rts
|
|
.endp
|
|
|
|
; -----------------------------------------
|
|
.proc plot ;plot (xdraw, ydraw, color)
|
|
; color == 1 --> put pixel
|
|
; color == 0 --> erase pixel
|
|
; this is one of the most important routines in the whole
|
|
; game. If you are going to speed up the game, start with
|
|
; plot - it is used by every single effect starting from explosions
|
|
; through line drawing and small text output!!!
|
|
;
|
|
; Optimized by 0xF (Fox) THXXXX!!!
|
|
|
|
; -----------------------------------------
|
|
; is it not over the screen ???
|
|
cpw ydraw #(screenheight+1); changed for one additional line. cpw ydraw #(screenheight-1)
|
|
bcs unPlot.EndOfUnPlot ;nearest RTS
|
|
CheckX02
|
|
cpw xdraw #screenwidth
|
|
bcs EndOfPlot
|
|
MakePlot
|
|
; let's calculate coordinates from xdraw and ydraw
|
|
|
|
lda xdraw
|
|
and #%11111000
|
|
;sta xbyte
|
|
;---
|
|
ldx ydraw
|
|
clc
|
|
adc linetableL,x
|
|
sta xbyte
|
|
lda linetableH,x
|
|
adc xdraw+1
|
|
sta xbyte+1
|
|
|
|
lda xdraw
|
|
and #$7
|
|
tax
|
|
ldy #0
|
|
lda color
|
|
bne ClearPlot
|
|
|
|
lda (xbyte),y
|
|
ora bittable,x
|
|
sta (xbyte),y
|
|
EndOfPlot
|
|
rts
|
|
ClearPlot
|
|
lda (xbyte),y
|
|
and bittable2,x
|
|
sta (xbyte),y
|
|
rts
|
|
.endp
|
|
|
|
; -----------------------------------------
|
|
.proc point_plot
|
|
; -----------------------------------------
|
|
; checks state of the pixel (coordinates in xdraw and ydraw)
|
|
; result is in A (zero or appropriate bit is set)
|
|
|
|
; let's calculate coordinates from xdraw and ydraw
|
|
|
|
lda xdraw
|
|
and #%11111000
|
|
;sta xbyte
|
|
;---
|
|
ldx ydraw
|
|
clc
|
|
adc linetableL,x
|
|
sta xbyte
|
|
lda linetableH,x
|
|
adc xdraw+1
|
|
sta xbyte+1
|
|
|
|
lda xdraw
|
|
and #$7
|
|
tax
|
|
ldy #0
|
|
lda (xbyte),y
|
|
eor #$ff
|
|
and bittable,x
|
|
rts
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc ClearScreen
|
|
;--------------------------------------------------
|
|
mwa #displayC64 temp
|
|
ldy #0
|
|
@ lda #$ff
|
|
sta (temp),y
|
|
inw temp
|
|
cpw temp #displayC64+screenheight*screenBytes+1
|
|
bne @-
|
|
rts
|
|
.endp
|
|
|
|
;--------------------------------------------------
|
|
.proc GenerateLineTable
|
|
|
|
mwa #displayC64 temp
|
|
mwa #linetableL temp2
|
|
mwa #linetableH modify
|
|
ldy #0
|
|
ldx #0
|
|
@ lda temp
|
|
sta (temp2),y
|
|
lda temp+1
|
|
sta (modify),y
|
|
cpx #7
|
|
bne NotChar
|
|
ldx #0
|
|
adw temp #(320-7)
|
|
jmp next8lines
|
|
NotChar
|
|
inw temp
|
|
inx
|
|
next8lines
|
|
iny
|
|
cpy #screenheight+1
|
|
bne @-
|
|
rts
|
|
.endp
|
|
;--------------------------------------------------
|
|
.proc SetMainScreen
|
|
lda #$b ; Grey background and border
|
|
lda WallsType
|
|
:4 rol
|
|
sta $d020
|
|
sta $d021
|
|
|
|
lda $dd00 ; Set video bank to start at 0
|
|
and #252
|
|
ora #3
|
|
sta $dd00
|
|
lda #$18
|
|
sta $d018
|
|
|
|
; SwitchVICBank(0)
|
|
; SetScreenMemory($2000)
|
|
SetHiresBitmapMode ; Hires mode on
|
|
lda #$00
|
|
sta 53281
|
|
; clear color RAM
|
|
ldx #0
|
|
@ lda #1
|
|
sta $d800,x
|
|
sta $d900,x
|
|
sta $da00,x
|
|
sta $db00,x
|
|
lda #$0f
|
|
sta $0400,x
|
|
sta $0500,x
|
|
sta $0600,x
|
|
sta $0700,x
|
|
inx
|
|
bne @-
|
|
|
|
|
|
rts
|
|
.endp
|
|
|
|
.ENDIF |