mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-19 08:31:23 +00:00
41 lines
460 B
ArmAsm
41 lines
460 B
ArmAsm
|
; VGI Lines
|
||
|
|
|
||
|
|
;========================
|
||
|
|
; VGI point
|
||
|
|
;========================
|
||
|
|
|
||
|
|
VGI_PCOLOR = P0
|
||
|
|
VGI_PX = P1
|
||
|
|
VGI_PY = P2
|
||
|
|
|
||
|
|
vgi_point:
|
||
|
|
ldx VGI_PCOLOR
|
||
|
|
lda COLORTBL,X
|
||
|
|
sta HGR_COLOR
|
||
|
|
|
||
|
|
ldy #0
|
||
|
|
ldx VGI_PX
|
||
|
|
lda VGI_PY
|
||
|
|
|
||
|
|
jsr HPLOT0 ; plot at (Y,X), (A)
|
||
|
|
|
||
|
|
jmp vgi_loop
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;========================
|
||
|
|
; VGI line to
|
||
|
|
;========================
|
||
|
|
VGI_LX = P0
|
||
|
|
VGI_LY = P1
|
||
|
|
|
||
|
|
vgi_lineto:
|
||
|
|
ldx #0
|
||
|
|
ldy VGI_LY
|
||
|
|
lda VGI_LX
|
||
|
|
|
||
|
|
jsr HGLIN ; line to (X,A),(Y)
|
||
|
|
|
||
|
|
jmp vgi_loop
|