mirror of
https://github.com/Pecusx/scorch_src.git
synced 2026-05-21 21:34:20 +02:00
Cleanup
This commit is contained in:
Pecusx
+1
-1
@@ -142,7 +142,7 @@ WeaponsDescription
|
|||||||
EmptyLine
|
EmptyLine
|
||||||
dta d" "
|
dta d" "
|
||||||
LastLine
|
LastLine
|
||||||
:40 dta $00 ; INVERSE
|
:40 dta $00
|
||||||
; -------------------------------------------------
|
; -------------------------------------------------
|
||||||
.ALIGN $1000 ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
|
.ALIGN $1000 ; WARNING!!!! 4KiB barrier crossing here, might need reassignment!!!
|
||||||
NameScreen
|
NameScreen
|
||||||
|
|||||||
+31
-35
@@ -441,7 +441,8 @@ splot8 .proc
|
|||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
clearscreen .proc
|
clearscreen .proc
|
||||||
;--------------------------------------------------
|
;--------------------------------------------------
|
||||||
lda #$ff ; INVERSE
|
|
||||||
|
lda #$ff
|
||||||
ldx #0
|
ldx #0
|
||||||
@
|
@
|
||||||
:31 sta display+($100*#),x
|
:31 sta display+($100*#),x
|
||||||
@@ -1024,7 +1025,7 @@ MakeUnPlot
|
|||||||
|
|
||||||
|
|
||||||
lda color
|
lda color
|
||||||
bne ClearUnPlot ; INVERSE
|
bne ClearUnPlot
|
||||||
|
|
||||||
;plotting here
|
;plotting here
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
@@ -1118,7 +1119,7 @@ MakePlot
|
|||||||
|
|
||||||
ldx ybit
|
ldx ybit
|
||||||
lda color
|
lda color
|
||||||
bne ClearPlot ; INVERSE
|
bne ClearPlot
|
||||||
|
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
ora bittable,x
|
ora bittable,x
|
||||||
@@ -1166,7 +1167,7 @@ point .proc
|
|||||||
|
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
and bittable,x
|
and bittable,x
|
||||||
eor bittable,x ; INVERSE
|
eor bittable,x
|
||||||
rts
|
rts
|
||||||
.endp
|
.endp
|
||||||
|
|
||||||
@@ -1187,8 +1188,7 @@ DrawLine .proc
|
|||||||
loopdraw
|
loopdraw
|
||||||
|
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
;ora bittable,x
|
and bittable2,x
|
||||||
and bittable2,x ; INVERSE
|
|
||||||
sta (xbyte),y
|
sta (xbyte),y
|
||||||
IntoDraw adw xbyte #screenBytes
|
IntoDraw adw xbyte #screenBytes
|
||||||
|
|
||||||
@@ -1219,9 +1219,9 @@ TypeChar .proc
|
|||||||
ldy #7
|
ldy #7
|
||||||
CopyChar
|
CopyChar
|
||||||
lda (fontind),y
|
lda (fontind),y
|
||||||
eor #$ff ; INVERSE
|
eor #$ff
|
||||||
sta char1,y
|
sta char1,y
|
||||||
lda #$ff ; INVERSE
|
lda #$ff
|
||||||
sta char2,y
|
sta char2,y
|
||||||
dey
|
dey
|
||||||
bpl CopyChar
|
bpl CopyChar
|
||||||
@@ -1230,9 +1230,9 @@ CopyChar
|
|||||||
ldy #7
|
ldy #7
|
||||||
CopyMask
|
CopyMask
|
||||||
lda (fontind),y
|
lda (fontind),y
|
||||||
eor #$ff ; INVERSE
|
eor #$ff
|
||||||
sta mask1,y
|
sta mask1,y
|
||||||
lda #$00 ; INVERSE
|
lda #$00
|
||||||
sta mask2,y
|
sta mask2,y
|
||||||
dey
|
dey
|
||||||
bpl CopyMask
|
bpl CopyMask
|
||||||
@@ -1264,44 +1264,44 @@ CopyMask
|
|||||||
ldx ybit
|
ldx ybit
|
||||||
beq MaskOK00
|
beq MaskOK00
|
||||||
MakeMask00
|
MakeMask00
|
||||||
lsr mask1 ; INVERSE
|
lsr mask1
|
||||||
ror mask2
|
ror mask2
|
||||||
lsr mask1+1 ; INVERSE
|
lsr mask1+1
|
||||||
ror mask2+1
|
ror mask2+1
|
||||||
lsr mask1+2 ; INVERSE
|
lsr mask1+2
|
||||||
ror mask2+2
|
ror mask2+2
|
||||||
lsr mask1+3 ; INVERSE
|
lsr mask1+3
|
||||||
ror mask2+3
|
ror mask2+3
|
||||||
lsr mask1+4 ; INVERSE
|
lsr mask1+4
|
||||||
ror mask2+4
|
ror mask2+4
|
||||||
lsr mask1+5 ; INVERSE
|
lsr mask1+5
|
||||||
ror mask2+5
|
ror mask2+5
|
||||||
lsr mask1+6 ; INVERSE
|
lsr mask1+6
|
||||||
ror mask2+6
|
ror mask2+6
|
||||||
lsr mask1+7 ; INVERSE
|
lsr mask1+7
|
||||||
ror mask2+7
|
ror mask2+7
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1
|
ror char1
|
||||||
ror char2
|
ror char2
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+1
|
ror char1+1
|
||||||
ror char2+1
|
ror char2+1
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+2
|
ror char1+2
|
||||||
ror char2+2
|
ror char2+2
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+3
|
ror char1+3
|
||||||
ror char2+3
|
ror char2+3
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+4
|
ror char1+4
|
||||||
ror char2+4
|
ror char2+4
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+5
|
ror char1+5
|
||||||
ror char2+5
|
ror char2+5
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+6
|
ror char1+6
|
||||||
ror char2+6
|
ror char2+6
|
||||||
sec ; INVERSE
|
sec
|
||||||
ror char1+7
|
ror char1+7
|
||||||
ror char2+7
|
ror char2+7
|
||||||
dex
|
dex
|
||||||
@@ -1310,7 +1310,7 @@ MaskOK00
|
|||||||
; here x=0
|
; here x=0
|
||||||
lda Erase
|
lda Erase
|
||||||
beq CharLoopi ; it works, because x=0
|
beq CharLoopi ; it works, because x=0
|
||||||
lda #$ff ; INVERSE
|
lda #$ff
|
||||||
ldx #7
|
ldx #7
|
||||||
EmptyChar
|
EmptyChar
|
||||||
sta char1,x
|
sta char1,x
|
||||||
@@ -1320,17 +1320,13 @@ EmptyChar
|
|||||||
ldx #0
|
ldx #0
|
||||||
CharLoopi
|
CharLoopi
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
;and mask1,x
|
ora mask1,x
|
||||||
;ora char1,x
|
and char1,x
|
||||||
ora mask1,x ; INVERSE
|
|
||||||
and char1,x ; INVERSE
|
|
||||||
sta (xbyte),y
|
sta (xbyte),y
|
||||||
iny
|
iny
|
||||||
lda (xbyte),y
|
lda (xbyte),y
|
||||||
;and mask2,x
|
ora mask2,x
|
||||||
;ora char2,x
|
and char2,x
|
||||||
ora mask2,x ; INVERSE
|
|
||||||
and char2,x ; INVERSE
|
|
||||||
sta (xbyte),y
|
sta (xbyte),y
|
||||||
dey
|
dey
|
||||||
adw xbyte #screenBytes
|
adw xbyte #screenBytes
|
||||||
|
|||||||
+1
-2
@@ -781,7 +781,7 @@ SetunPlots
|
|||||||
sta oldplotH,x
|
sta oldplotH,x
|
||||||
lda #0
|
lda #0
|
||||||
sta oldply,x
|
sta oldply,x
|
||||||
lda #$ff ; INVERSE
|
lda #$ff
|
||||||
sta oldora,x
|
sta oldora,x
|
||||||
dex
|
dex
|
||||||
bpl SetunPlots
|
bpl SetunPlots
|
||||||
@@ -861,7 +861,6 @@ DLIinterruptGraph .proc
|
|||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
nop
|
nop
|
||||||
; sta WSYNC
|
|
||||||
sta COLPF1
|
sta COLPF1
|
||||||
sty COLPF2
|
sty COLPF2
|
||||||
inc dliCounter
|
inc dliCounter
|
||||||
|
|||||||
Reference in New Issue
Block a user