Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

modify linetest to highlight out of bound bad behaviour of line

Browse source
This commit is contained in:
hugova 2025-07-24 21:46:31 +02:00
parent 0168fb4079
commit 25e65d8197
1 changed files with 44 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

78
wip-hugo/routines/line/line_test_extensive.s
View file

@ -6,16 +6,16 @@
.include "../memory/mem.inc" .include "../memory/mem.inc"
Y_pos_ = $0D Y_pos_ = $0D
X_pos_ = $0E X_pos_ = $0E
Y_end_ = $10 Y_end_ = $0F
X_end_ = $11 X_end_ = $0C
LDA #$d2 LDA #$d2
STA X_pos_ STA X_pos_
LDA #$62 LDA #$62
STA Y_pos_ STA Y_pos_
LDA #$ff LDA #$ff
STA X_end STA X_end_
LDA #$0 LDA #$0
STA Y_end STA Y_end_
;; Full angle test ;; Full angle test
@loop: @loop:
@ -23,16 +23,17 @@
STA Y_pos STA Y_pos
LDA X_pos_ LDA X_pos_
STA X_pos STA X_pos
LDA X_end_
STA X_end
LDA Y_end_
STA Y_end
jsr line jsr line
INC Y_end INC Y_end_
LDA Y_end LDA Y_end_
CMP #$bb CMP #$ff
bne @loop bne @loop
hihi:
jmp hihi
clear_screen: clear_screen:
;;Lets clear bitmap ;;Lets clear bitmap
VIC_bank = $4000 VIC_bank = $4000
@ -48,18 +49,23 @@ long_line_test_a:
LDA #$60 LDA #$60
STA Y_pos_ STA Y_pos_
LDA #$ff LDA #$ff
STA X_end STA X_end_
LDA #$0 LDA #$0
STA Y_end STA Y_end_
@loop: @loop:
LDA Y_pos_ LDA Y_pos_
STA Y_pos STA Y_pos
LDA X_pos_ LDA X_pos_
STA X_pos STA X_pos
LDA X_end_
STA X_end
LDA Y_end_
STA Y_end
jsr line jsr line
INC Y_end INC Y_end_
LDA Y_end LDA Y_end_
CMP #$bb CMP #$ff
BNE @loop BNE @loop
clear_screen_: clear_screen_:
@ -68,24 +74,28 @@ clear_screen_:
Mov_16 length, length + 1, #<$1f40, #>$1f40 Mov_16 length, length + 1, #<$1f40, #>$1f40
LDA #$00 LDA #$00
jsr memset jsr memset
long_line_test_b:
LDA #$00
STA X_pos_
LDA #$00
STA Y_pos_
LDA #$ff
STA X_end
LDA #$60
STA Y_end
@loop:
LDA Y_pos_
STA Y_pos
LDA X_pos_
STA X_pos
jsr line
INC Y_pos_
LDA Y_pos_
CMP #$bb
BNE @loop
long_line_test_b:
LDA #$00
STA X_pos_
LDA #$00
STA Y_pos_
LDA #$ff
STA X_end_
LDA #$60
STA Y_end_
@loop:
LDA Y_pos_
STA Y_pos
LDA X_pos_
STA X_pos
LDA X_end_
STA X_end
LDA Y_end_
STA Y_end
jsr line
INC Y_pos_
LDA Y_pos_
CMP #$ff
BNE @loop
.endscope .endscope