Euro sign for PB for DOS programs & printing

[David J Walker]

Hi Don

Funny that, my first effort (for printing envelopes sideways)
used that method on an old Epson 9-pin!
I shall dig up the code to change fonts for you, it involves
POKEing the 4096-byte character set into RAM, & then calling
an Int10H function.
In the meantime, if you send me an email, I'll send you some
previously-made fonts & a prog to load them into RAM & invoke
them.

[email protected]

------------------

[David J Walker]

Hi Don, just found this. I think it gets the screen font into a
string. Written in QB7, using my own Memcopy, should be fairly
obvious. Shouldn't break anything!

DECLARE SUB Memcopy (fromseg%, fromoff%, toseg%, tooff%, len%, dir%)

FUNCTION PeekChars$

lth% = 4096
t$ = SPACE$(lth%)
Memcopy &HC000, &H6126, SSEG(t$), SADD(t$), lth%, 1
PeekChars$ = t$

END FUNCTION

------------------

[Lance Edmonds]

DEF SEG segment
A$ = PEEK$(offset, count)
DEF SEG

...is much easier in PowerBASIC than that QB carry-on!

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[David J Walker]

Yes, but QB's got a stepping debugger!

------------------

[Lance Edmonds]

So has PowerBASIC...

------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>

[Don Ward]

Thanks David and Lance,
Just what I needed to know, the segment and offset.
I am going to play around with extra characters on screen.
Don


------------------

[Don Ward]

Unfortunately the location of the font in ROM differs from
computer to computer. There are also 3 fonts in the RAM on
this one, 8,14 and 16 bytes per character.
Don


------------------

[David J Walker]

Hi Don
You need this:

buf$ is a 4096-byte string containing the font bitmaps to use.
The 16-byte fonts are VGA 640x480, 14-byte EGA 640x350. 8-byte
are used in 43/50 line mode.

(INT 10 1100 - VIDEO - TEXT-MODE CHARGEN - LOAD USER-SPECIFIED PATTERNS (PS,EGA,VGA))

SUB Usechars (buf$)

inregX.ax = &H1100
inregX.bx = &H1000
inregX.cx = &HFF
inregX.dx = 0
inregX.es = SSEG(buf$)
inregX.bp = SADD(buf$)
CALL InterruptX(&H10, inregX, outregX)

END SUB

Ralf Brown's Interrupt List is the place to look for this stuff.
Drop me an email & I'll send you some bits & pieces. It was a
long time ago that I did the font creation stuff, it mostly got
compiled into .OBJs & .LIBs, so rooting out the source is a bit
haphazard!

------------------

[Amos Vryhof]

From QB to PB:

%AX = 1 : %BX = 2 : %CX = 3 : %DX = 4
%SI = 5 : %DI = 6 : %BP = 7 : %DS = 8
%ES = 9 : %FLAGS = 0

SUB Usechars (buff$)
REG %AX, &H1100
REG %BX, &H1000
REG %CX, &HFF
REG %DX, 0
REG %EX, VARSEG(buf$) 'These two lines are the only ones I am
REG %BP, VARPTR(buf$) 'unsure of. I compared PB and QBX help.
CALL INTERRUPT &H10
END SUB

------------------
Amos
DosOS.com
mailto:[email protected][email protected]</A>

[Tom Hanlin]

When dealing with strings, use STRSEG and STRPTR to get the location
of the actual string data, not VARSEG and VARPTR, which return the
location of the string handle.

Where it says "REG %EX" is meant "REG %ES".


------------------
Tom Hanlin
PowerBASIC Staff

[Amos Vryhof]

Thanks again Tom,

You are always a big help! The %EX was a typo.

Also, thanks for converting those statements correctly for me..
now I see why a lot of my QB to PB conversions don't work right.

Amos

------------------
Amos
DosOS.com
mailto:[email protected][email protected]</A>

[Lance Edmonds]

Topic closed due to extreme length. If further discussion is warranted, please start a new thread and include a URL link to this thread.

Thanks!


------------------
Lance
PowerBASIC Support
mailto:[email protected][email protected]</A>