mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-26 13:49:18 +00:00
87 lines
1.4 KiB
Plaintext
87 lines
1.4 KiB
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
GFX.Open >PUSHBI 0
|
||
>LDYA L.DEV.GFX
|
||
>SYSCALL Open
|
||
bcs .9
|
||
|
||
>STA.G hDevGFX
|
||
|
||
rts
|
||
|
||
ldy #S.PS.hStdIn
|
||
lda (pPS),y
|
||
bit #1
|
||
beq .9
|
||
|
||
>PUSHA
|
||
>PUSHBI IOCTL.CONTROL
|
||
>PUSHWI 0
|
||
>SYSCALL IOCTL
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
GFX.Close >LDA.G hDevGFX
|
||
beq .9
|
||
|
||
>SYSCALL Close
|
||
|
||
.9 rts
|
||
*--------------------------------------
|
||
* (Y X C)
|
||
*--------------------------------------
|
||
GFX.PLOT ldx #S.CB.CMD.SETPIXEL
|
||
jsr GFX.WriteX
|
||
|
||
lda pStack
|
||
clc
|
||
adc #8
|
||
sta pStack
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
* (Y2 X2 Y1 X1 C)
|
||
*--------------------------------------
|
||
GFX.RECT ldx #S.CB.CMD.FILLRECT
|
||
|
||
jsr GFX.WriteX
|
||
|
||
lda pStack
|
||
clc
|
||
adc #12
|
||
sta pStack
|
||
clc
|
||
rts
|
||
*--------------------------------------
|
||
GFX.WriteX ldy #1
|
||
lda (pStack)
|
||
sta (pStack),y
|
||
|
||
lda #S.CB.M.C16
|
||
sta (pStack)
|
||
|
||
>PUSHBI S.CB.OP.SET
|
||
txa
|
||
>PUSHA
|
||
|
||
>PUSHB.G hDevGFX
|
||
>PUSHBI IOCTL.WRITE
|
||
lda pStack
|
||
clc
|
||
adc #2
|
||
tay
|
||
lda pStack+1
|
||
adc #0
|
||
>PUSHYA
|
||
>SYSCALL IOCTL
|
||
clc DHGR.DRV bug ?
|
||
rts
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/bin/forth.s.gfx
|
||
LOAD usr/src/bin/forth.s
|
||
ASM
|