mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-11-04 05:05:13 +00:00
68 lines
710 B
ArmAsm
68 lines
710 B
ArmAsm
.include "zp.inc"
|
|
|
|
plot_test:
|
|
|
|
jsr clear_screens ; clear top/bottom of page 0/1
|
|
jsr set_gr_page0
|
|
|
|
;===============
|
|
; Init Variables
|
|
;===============
|
|
lda #0
|
|
sta DRAW_PAGE
|
|
|
|
ldx #0
|
|
ldy #0
|
|
|
|
|
|
plot_loop:
|
|
txa
|
|
and #$0f
|
|
sta TEMP
|
|
|
|
tya
|
|
asl
|
|
asl
|
|
asl
|
|
asl
|
|
ora TEMP
|
|
sta COLOR
|
|
|
|
stx XPOS
|
|
sty YPOS
|
|
|
|
jsr plot
|
|
|
|
ldx XPOS
|
|
ldy YPOS
|
|
|
|
inx
|
|
cpx #16
|
|
bne plot_loop
|
|
|
|
ldx #0
|
|
|
|
iny
|
|
cpy #16
|
|
bne plot_loop
|
|
|
|
|
|
blah:
|
|
jmp blah
|
|
|
|
|
|
|
|
;===============================================
|
|
; External modules
|
|
;===============================================
|
|
|
|
.include "pageflip.s"
|
|
.include "gr_setpage.s"
|
|
;.include "keypress.s"
|
|
;.include "gr_putsprite.s"
|
|
.include "gr_offsets.s"
|
|
.include "gr_fast_clear.s"
|
|
.include "gr_plot.s"
|
|
|
|
|