05-20-2003, 11:53 PM
This how I modified Tclib15's Pset24 sub:
It works for me, but i have a 32 bit card...
You could also try to set up a suitable line length. It would not increase speed in YOUR computer, but it would do it in many others.
Code:
SUB Pset24 (x%, y%)
' Plots a pixel using the current RGB combination
'DEF SEG = &HA000
IF x% < 0 OR x% >= ScrWidth THEN EXIT SUB
IF y% < 0 OR y% >= Scrheight THEN EXIT SUB
Offsetb& = (ScrWidth * y% + x%) * Bpp
bankb& = Offsetb& \ 65536
Offsetb& = Offsetb& MOD 65536
IF bankb& <> curbank THEN
curbank = bankb&
Regs.ax = &H4F05
Regs.bx = 0
Regs.dx = bankb&
CALL INTERRUPT(&H10, Regs, Regs)
END IF
POKE Offsetb&, blue%
IF Offsetb& = &HFFFF THEN
Offsetb& = -1
curbank = curbank + 1
Regs.ax = &H4F05
Regs.bx = 0
Regs.dx = curbank
CALL INTERRUPT(&H10, Regs, Regs)
END IF
POKE Offsetb& + 1, green%
IF Offsetb& = &HFFFE THEN
Offsetb& = -2
curbank = curbank + 1
Regs.ax = &H4F05
Regs.bx = 0
Regs.dx = curbank
CALL INTERRUPT(&H10, Regs, Regs)
END IF
POKE Offsetb& + 2, red%
END SUB
It works for me, but i have a 32 bit card...
You could also try to set up a suitable line length. It would not increase speed in YOUR computer, but it would do it in many others.
Antoni