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
|
|
|
|
|
|
|
2021-07-28 16:50:59 +00:00
|
|
|
|
tax
|
2023-10-18 05:41:12 +00:00
|
|
|
|
lda FILEs.hFD-1,x
|
2021-07-28 16:50:59 +00:00
|
|
|
|
bra GFX.IOCTL
|
2021-06-05 15:48:54 +00:00
|
|
|
|
|
|
|
|
|
|
GFX.TEXT.RTS clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2021-07-28 16:50:59 +00:00
|
|
|
|
GFX.GR >LDA.G hDevGFX
|
2021-06-05 15:48:54 +00:00
|
|
|
|
beq GFX.TEXT.RTS
|
|
|
|
|
|
|
|
|
|
|
|
GFX.IOCTL >PUSHA
|
|
|
|
|
|
>PUSHBI IOCTL.CONTROL
|
2021-07-24 20:42:23 +00:00
|
|
|
|
>PUSHWZ
|
2021-06-05 15:48:54 +00:00
|
|
|
|
>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
|
