.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

    lda oldply,x
    tay
    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
    ;xbyte = xbyte/8
    lda xdraw+1
    lsr
    lda xdraw
    ror ;just one bit over 256. Max screenwidth = 512!!!
    lsr
    lsr
;---
    tay
    ldx WhichUnPlot
	tya
    sta oldply,x

    ldx ydraw
    lda linetableL,x
    sta xbyte
    sta oldplot
    lda linetableH,x
    sta xbyte+1
    sta oldplot+1

    lda xdraw
    and #$7
    tax

    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
    lda oldply,x
    cmp oldply,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 #1          ; White background and border
	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 #$21
	sta $0400,x
	sta $0500,x
	sta $0600,x
	sta $0700,x
	inx
	bne @-
	
	
    rts
.endp

.ENDIF