A2osX/BIN/FORTH.S.GFX.txt

100 lines
1.7 KiB
Plaintext
Raw Normal View History

2020-12-15 13:23:22 +00:00
NEW
AUTO 3,1
*--------------------------------------
2021-05-14 20:58:20 +00:00
GFX.Open >PUSHW L.DEV.GFX
>PUSHBI 0
2020-12-15 13:23:22 +00:00
>SYSCALL Open
bcs .9
>STA.G hDevGFX
2021-06-05 15:48:54 +00:00
bra GFX.TEXT
2020-12-15 13:23:22 +00:00
.9 rts
*--------------------------------------
GFX.Close >LDA.G hDevGFX
beq .9
>SYSCALL Close
2020-12-17 20:23:54 +00:00
.9 rts
2020-12-15 13:23:22 +00:00
*--------------------------------------
2021-06-05 15:48:54 +00:00
GFX.TEXT ldy #S.PS.hStdIn
lda (pPS),y
bit #1
bne GFX.IOCTL
GFX.TEXT.RTS clc
rts
*--------------------------------------
GFX.GR ldy #S.PS.hStdIn
lda (pPS),y
bit #1
beq GFX.TEXT.RTS
>LDA.G hDevGFX
beq GFX.TEXT.RTS
GFX.IOCTL >PUSHA
>PUSHBI IOCTL.CONTROL
>PUSHWI 0
>SYSCALL IOCTL
rts
*--------------------------------------
2020-12-15 13:23:22 +00:00
* (Y X C)
*--------------------------------------
2020-12-17 20:23:54 +00:00
GFX.PLOT ldx #S.CB.CMD.SETPIXEL
jsr GFX.WriteX
2020-12-15 13:23:22 +00:00
lda pStack
clc
2020-12-17 20:23:54 +00:00
adc #8
2020-12-15 13:23:22 +00:00
sta pStack
2020-12-17 20:23:54 +00:00
clc
2020-12-15 13:23:22 +00:00
rts
*--------------------------------------
* (Y2 X2 Y1 X1 C)
*--------------------------------------
2020-12-17 20:23:54 +00:00
GFX.RECT ldx #S.CB.CMD.FILLRECT
2020-12-15 13:23:22 +00:00
2020-12-17 20:23:54 +00:00
jsr GFX.WriteX
2020-12-15 13:23:22 +00:00
2020-12-17 20:23:54 +00:00
lda pStack
clc
adc #12
sta pStack
clc
rts
*--------------------------------------
GFX.WriteX ldy #1
lda (pStack)
sta (pStack),y
2020-12-23 14:54:57 +00:00
lda #S.CB.M.C16
2020-12-17 20:23:54 +00:00
sta (pStack)
>PUSHBI S.CB.OP.SET
txa
>PUSHA
2020-12-15 13:23:22 +00:00
>PUSHB.G hDevGFX
>PUSHBI IOCTL.WRITE
lda pStack
clc
2020-12-17 20:23:54 +00:00
adc #2
tay
lda pStack+1
adc #0
>PUSHYA
>SYSCALL IOCTL
clc DHGR.DRV bug ?
2020-12-15 13:23:22 +00:00
rts
*--------------------------------------
*--------------------------------------
*--------------------------------------
MAN
SAVE usr/src/bin/forth.s.gfx
LOAD usr/src/bin/forth.s
ASM