Re: A86: Fonts

[Prev][Next][Index][Thread]

Re: A86: Fonts

MTNBIKE560@aol.com wrote:
> 
> ls there anyway that l could get the source code for the cursive font and the
> fatfont?

i posted the fat font yesterday (go check out the collection from the ng
at ticalc) heres the cursive font....

#include "asm86.h"
#INCLUDE "TI86ASM.INC"

.org $D748

        call _clrLCD
        ld hl,$0000
        ld (_curRow),hl
        ld hl,menu
        call _puts
key:
        halt
        call $5371
        cp 0
        jr z,key
        cp 34
        jr z,in
        cp 26
        jr z,ui
        cp 55
        jr nz,key
        ret z
in:
        ld a,0          ; set up font pointer (it's 24-bit)
        ld ($D2ED),a
        ld hl,Font
        ld ($D2EE),hl

        set 0,(IY+$23)  ; use user font!
        ret z
ui:
        res 0,(IY+$23)
        ret z

menu:   .db "1. INSTALL CURSIVE   "
        .db "   FONT              "
        .db "2. UNINSTALL CURSIVE "
        .db "   FONT              "
        .db "EXIT                  ",0

Font:
.db $6F ; magic number
.db 56 ; # of characters in font

.db 'A'
.db 00010b
.db 00110b
.db 01010b
.db 10010b
.db 10010b
.db 10010b
.db 01101b

.db 'B'
.db 01110b
.db 01001b
.db 01010b
.db 01100b
.db 01010b
.db 01011b
.db 11110b

.db 'C'
.db 00110b
.db 01001b
.db 10010b
.db 10000b
.db 10000b
.db 01001b
.db 00110b

.db 'D'
.db 01100b
.db 01010b
.db 01010b
.db 01010b
.db 01010b
.db 01011b
.db 11110b

.db 'E'
.db 00111b
.db 01011b
.db 01000b
.db 00100b
.db 01000b
.db 01001b
.db 00110b

.db 'F'
.db 01111b
.db 10100b
.db 01111b
.db 00101b
.db 00100b
.db 00100b
.db 00100b

.db 'G'
.db 00100b
.db 01010b
.db 00100b
.db 01011b
.db 01010b
.db 01011b
.db 11110b

.db 'H'
.db 10010b
.db 01001b
.db 01001b
.db 01111b
.db 10010b
.db 10010b
.db 10010b

.db 'I'
.db 01111b
.db 10100b
.db 00100b
.db 00100b
.db 00100b
.db 00101b
.db 11110b

.db 'J'
.db 00100b
.db 01010b
.db 01010b
.db 01011b
.db 00110b
.db 01100b
.db 11000b

.db 'K'
.db 10001b
.db 10001b
.db 10010b
.db 11100b
.db 11000b
.db 10101b
.db 10010b

.db 'L'
.db 00110b
.db 00101b
.db 01110b
.db 00100b
.db 01110b
.db 10101b
.db 01100b

.db 'M'
.db 10000b
.db 01010b
.db 10101b
.db 10010b
.db 10010b
.db 10011b
.db 10010b

.db 'N'
.db 11100b
.db 01010b
.db 01010b
.db 01010b
.db 10010b
.db 10011b
.db 10010b

.db 'O'
.db 11110b
.db 01001b
.db 01001b
.db 10010b
.db 10010b
.db 10011b
.db 01110b

.db 'P'
.db 11110b
.db 01001b
.db 01001b
.db 01110b
.db 10000b
.db 10000b
.db 10000b

.db 'Q'
.db 01110b
.db 01001b
.db 10101b
.db 10001b
.db 10010b
.db 10011b
.db 01110b

.db 'R'
.db 11110b
.db 01001b
.db 01001b
.db 01110b
.db 10001b
.db 10010b
.db 10011b

.db 'S'
.db 00011b
.db 00101b
.db 00010b
.db 00101b
.db 01001b
.db 01011b
.db 11110b

.db 'T'
.db 01111b
.db 10010b
.db 00010b
.db 00010b
.db 11010b
.db 10010b
.db 01100b

.db 'U'
.db 10001b
.db 01001b
.db 01001b
.db 01001b
.db 10010b
.db 10011b
.db 01110b

.db 'V'
.db 11001b
.db 01001b
.db 01001b
.db 01001b
.db 10010b
.db 10100b
.db 11000b

.db 'W'
.db 10010b
.db 01001b
.db 01001b
.db 01001b
.db 01001b
.db 10101b
.db 11010b

.db 'X'
.db 10001b
.db 01010b
.db 01010b
.db 00100b
.db 01010b
.db 01011b
.db 10010b

.db 'Y'
.db 10001b
.db 01001b
.db 01010b
.db 01100b
.db 01111b
.db 10100b
.db 11000b

.db 'Z'
.db 10001b
.db 01001b
.db 01010b
.db 11100b
.db 01111b
.db 10100b
.db 11000b

.db 'a'
.db 00000b
.db 00000b
.db 00000b
.db 01110b
.db 10010b
.db 10011b
.db 01110b

.db 'b'
.db 00100b
.db 01010b
.db 01010b
.db 01010b
.db 01011b
.db 00101b
.db 01010b

.db 'c'
.db 00000b
.db 00000b
.db 00010b
.db 00101b
.db 01000b
.db 01001b
.db 00110b

.db 'd'
.db 00010b
.db 00101b
.db 00101b
.db 00011b
.db 01110b
.db 10011b
.db 01110b

.db 'e'
.db 00000b
.db 00000b
.db 00100b
.db 01010b
.db 01010b
.db 00100b
.db 11011b

.db 'f'
.db 00100b
.db 01010b
.db 01010b
.db 01100b
.db 11011b
.db 01010b
.db 01100b

.db 'g'
.db 00000b
.db 01110b
.db 10010b
.db 01100b
.db 00111b
.db 01100b
.db 11000b

.db 'h'
.db 01000b
.db 10100b
.db 10100b
.db 01000b
.db 01100b
.db 11011b
.db 01010b

.db 'i'
.db 00000b
.db 00100b
.db 00000b
.db 00100b
.db 00100b
.db 10101b
.db 01010b

.db 'j'
.db 00100b
.db 00000b
.db 00100b
.db 00100b
.db 11111b
.db 10100b
.db 01000b

.db 'k'
.db 00100b
.db 01010b
.db 01010b
.db 01100b
.db 11011b
.db 01100b
.db 10011b

.db 'l'
.db 00100b
.db 01010b
.db 01010b
.db 01010b
.db 01010b
.db 00100b
.db 11011b

.db 'm'
.db 00000b
.db 00000b
.db 00000b
.db 10010b
.db 01101b
.db 10101b
.db 10101b

.db 'n'
.db 00000b
.db 00000b
.db 00000b
.db 10110b
.db 01001b
.db 10010b
.db 10010b

.db 'o'
.db 00000b
.db 00000b
.db 00000b
.db 11110b
.db 01001b
.db 01001b
.db 00110b

.db 'p'
.db 00000b
.db 00010b
.db 00101b
.db 00101b
.db 11110b
.db 00110b
.db 01100b

.db 'q'
.db 00000b
.db 01100b
.db 10100b
.db 10100b
.db 01111b
.db 01100b
.db 00110b

.db 'r'
.db 00000b
.db 00000b
.db 01010b
.db 01110b
.db 01010b
.db 01011b
.db 10010b

.db 's'
.db 00000b
.db 00000b
.db 00000b
.db 00100b
.db 01010b
.db 10011b
.db 01110b

.db 't'
.db 00000b
.db 00100b
.db 01111b
.db 10100b
.db 00100b
.db 10101b
.db 01010b

.db 'u'
.db 00000b
.db 00000b
.db 00000b
.db 01010b
.db 11010b
.db 01010b
.db 01101b

.db 'v'
.db 00000b
.db 00000b
.db 00000b
.db 01011b
.db 11010b
.db 01010b
.db 01100b

.db 'w'
.db 00000b
.db 00000b
.db 00000b
.db 10001b
.db 10101b
.db 11010b
.db 10010b

.db 'x'
.db 00000b
.db 00000b
.db 00000b
.db 11010b
.db 00100b
.db 01010b
.db 10010b

.db 'y'
.db 00000b
.db 00000b
.db 01010b
.db 01010b
.db 10111b
.db 01100b
.db 01000b

.db 'z'
.db 00000b
.db 00000b
.db 01010b
.db 01010b
.db 11111b
.db 01100b
.db 01000b

.db '!'
.db 00010b
.db 00110b
.db 00110b
.db 00100b
.db 00000b
.db 01000b
.db 11000b

.db '?'
.db 00110b
.db 01001b
.db 10010b
.db 00100b
.db 00000b
.db 01000b
.db 11000b

.db '.'
.db 00000b
.db 00000b
.db 00000b
.db 00000b
.db 00000b
.db 00100b
.db 01100b

.db ','
.db 00000b
.db 00000b
.db 00000b
.db 00000b
.db 00100b
.db 00100b
.db 01000b

.end
.end
-- 
ŠėtH
Follow-Ups: References: