[A83] Re: Font hooks correction
[Prev][Next][Index][Thread]
[A83] Re: Font hooks correction
>Hmmm... The code looks right to me. I think your
>problem is that you are not writing a flash
>application.
:-(
>When I in 1,(6) I get the current page in
>flash rom (where the application holding the font hook
>would normally be) and save it to the correct pointer.
>I don't know of a way to get the font hook working in
>a ram program.
Too bad...
Well, thank you anyway.
An app for just one font is quite much...
But wait, now I know how the 'Nederlan' APP works&why it is an app!
>Goodluck, Andy Hochhaus
>
>--- Ronald Teune <rtwolf@gmx.net> wrote:
>>
>>
>> -----Original Message-----
>> From: Andy Hochhaus <amhochhaus@yahoo.com>
>> To: assembly-83@lists.ticalc.org
>> <assembly-83@lists.ticalc.org>
>> Date: donderdag 4 oktober 2001 21:51
>> Subject: [A83] Re: Font hooks correction
>>
>>
>> >
>> >I made a mistake, upon entering the fonthook a=0 if
>> >variable width font and a=1 if it is the large
>> font.
>> >(Like the inital email from Dan said)
>>
>> I think you _where_ right, because you ret _nz_
>>
>> However, I made this using your code, and it doesn't
>> seem to work. The eea
>> guy (sorry, forgot your name) said, however, that
>> hooks could only be used
>> in apps.
>>
>> ;<COMMON STUFF>
>>
>> .NOLIST
>> #define equ .equ
>> #define EQU .equ
>> #define end .end
>> #include "ti83plus.inc"
>> ;#include "tokens.inc"
>> .LIST
>> #define bcall(xxxx) rst 28h \ .dw xxxx
>> #define bcallz(xxxx) jr nz,$+5 \ rst 28h \ .dw xxxx
>> #define bcallnz(xxxx) jr z,$+5 \ rst 28h \ .dw xxxx
>> #define bcallc(xxxx) jr nc,$+5 \ rst 28h \ .dw xxxx
>> #define bcallnc(xxxx) jr c,$+5 \ rst 28h \ .dw xxxx
>> #define bjump(xxxx) call 50h \ .dw xxxx
>> .addinstr BCALL * EF 3 NOP 1
>> saferam1 =9872h ;Ion-
>> progstart =9327h ;headers
>> .org progstart-2
>> .db $BB,$6D
>>
>> ;</COMMON STUFF>
>>
>> ;Start of Andy Hochhaus' code
>>
>> ;To enable: (or else do a B_CALL)
>> ld hl,fonthook
>> in a,(6)
>> ld (9b9ch),hl ;start of font hook
>> ld (9b9eh),a ;page num font hook is on
>> set 5,(IY+35h) ;flag for font hook
>>
>>
>> ;my stuff (start)
>> ld bc,$0000
>> ld (pencol),bc
>> ld hl,tekst
>> bcall(_VPutS)
>> bcall(_GetKey)
>> ret
>> ;end
>>
>> tekst:
>> .db "1*2",0
>>
>> ;Then the font hook itself:
>> ;in: a=0 if big font, a=1 if small font
>> ; b=ascii of char to be displayed
>>
>> ;out: nz if display default tios bitmap
>> ; z if display custom font then also
>> ; hl->bitmap
>> fonthook:
>> .db 83h
>> cp 0
>> ret nz ;don't do anything if BIG font
>>
>> ld a,b
>> cp 2ah ;acsii of '*' 2ah
>> ret nz ;if any key other than '*' return
>> push af
>> push bc
>> ld hl,newmult
>> ld de,sfont_record
>> ld bc,8
>> ldir ;copy new bitmap to safe ram location
>> pop bc
>> pop af
>> ld hl,sfont_record ;hl->new bitmap
>> ret
>>
>> newmult:
>> .db 2 ;char width
>> .db 00000000b ;bitmap right justified
>> .db 00000000b
>> .db 00000000b
>> .db 00000010b
>> .db 00000000b
>> .db 00000000b
>> .db 00000000b
>>
>> ;end of AHC
>> .end
>> END
>>
>> Ronald.
>>
>>
>>
>
>
>__________________________________________________
>Do You Yahoo!?
>NEW from Yahoo! GeoCities - quick and easy web site hosting, just
$8.95/month.
>http://geocities.yahoo.com/ps/info1
>
>