45 lines
636 B
ArmAsm
45 lines
636 B
ArmAsm
.scope circle_test
|
|
.include "circle.inc"
|
|
|
|
LDA #$50
|
|
STA X_pos
|
|
STA Y_pos
|
|
LDA #$00
|
|
STA $EF
|
|
|
|
|
|
|
|
LDX #$ff
|
|
LDY #$ff
|
|
hihi:
|
|
NOP
|
|
NOP
|
|
DEX
|
|
BNE hihi
|
|
DEY
|
|
BNE hihi
|
|
|
|
LDA #$50
|
|
STA X_pos
|
|
STA Y_pos
|
|
|
|
INC $EF
|
|
LDA $EF
|
|
|
|
STA radius
|
|
|
|
|
|
|
|
VIC_bank = $4000
|
|
Mov_16 A_start, A_start + 1, #<VIC_bank, #>VIC_bank
|
|
Mov_16 length, length + 1, #<$1f40, #>$1f40
|
|
LDA #$00
|
|
jsr memset
|
|
|
|
JSR circle
|
|
|
|
LDX #$ff
|
|
LDY #$ff
|
|
|
|
jmp hihi
|
|
.endscope
|