#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 FAT FONT " .db "2. UNINSTALL FAT FONT" .db "EXIT ",0 Font: .db $6F ; magic number .db 88 ; # of characters in font .db 'A' .db 01110b .db 11011b .db 11011b .db 11111b .db 11011b .db 11011b .db 11011b .db 'B' .db 11110b .db 11011b .db 11001b .db 11110b .db 11001b .db 11011b .db 11110b .db 'C' .db 01110b .db 11011b .db 11011b .db 11000b .db 11011b .db 11011b .db 01110b .db 'D' .db 11110b .db 11011b .db 11011b .db 11011b .db 11011b .db 11011b .db 11110b .db 'E' .db 11111b .db 11111b .db 11000b .db 11111b .db 11000b .db 11111b .db 11111b .db 'F' .db 11111b .db 11111b .db 11000b .db 11110b .db 11000b .db 11000b .db 11000b .db 'G' .db 01110b .db 11011b .db 11000b .db 11111b .db 11011b .db 11011b .db 01110b .db 'H' .db 11011b .db 11011b .db 11011b .db 11111b .db 11011b .db 11011b .db 11011b .db 'I' .db 11111b .db 11111b .db 01110b .db 01110b .db 01110b .db 11111b .db 11111b .db 'J' .db 11111b .db 11111b .db 00011b .db 00011b .db 11011b .db 11011b .db 01110b .db 'K' .db 11011b .db 11011b .db 11010b .db 11100b .db 11010b .db 11011b .db 11011b .db 'L' .db 11000b .db 11000b .db 11000b .db 11000b .db 11000b .db 11111b .db 11111b .db 'M' .db 10001b .db 11011b .db 11111b .db 11011b .db 11011b .db 11011b .db 11011b .db 'N' .db 10011b .db 10011b .db 11011b .db 11111b .db 11011b .db 11001b .db 11001b .db 'O' .db 01110b .db 11011b .db 11011b .db 11011b .db 11011b .db 11011b .db 01110b .db 'P' .db 11110b .db 11011b .db 11011b .db 11110b .db 11000b .db 11000b .db 11000b .db 'Q' .db 01110b .db 11011b .db 11011b .db 11011b .db 11011b .db 11010b .db 01101b .db 'R' .db 11110b .db 11011b .db 11011b .db 11110b .db 11011b .db 11011b .db 11011b .db 'S' .db 01110b .db 11011b .db 11000b .db 01110b .db 00011b .db 11011b .db 01110b .db 'T' .db 11111b .db 11111b .db 01110b .db 01110b .db 01110b .db 01110b .db 01110b .db 'U' .db 11011b .db 11011b .db 11011b .db 11011b .db 11011b .db 11011b .db 01110b .db 'V' .db 11011b .db 11011b .db 11011b .db 11011b .db 11011b .db 01010b .db 00100b .db 'W' .db 11011b .db 11011b .db 11011b .db 11011b .db 11111b .db 11011b .db 10001b .db 'X' .db 11011b .db 11011b .db 11011b .db 01110b .db 11011b .db 11011b .db 11011b .db 'Y' .db 11011b .db 11011b .db 11011b .db 01110b .db 00100b .db 00100b .db 00100b .db 'Z' .db 11111b .db 10011b .db 00011b .db 00110b .db 01100b .db 11001b .db 11111b .db '0' .db 01110b .db 11011b .db 11011b .db 11111b .db 11011b .db 11011b .db 01110b .db '1' .db 00110b .db 01110b .db 11110b .db 00110b .db 00110b .db 11111b .db 11111b .db '2' .db 01110b .db 11011b .db 10011b .db 00110b .db 01100b .db 11001b .db 11111b .db '3' .db 01110b .db 11011b .db 00011b .db 00110b .db 00011b .db 11011b .db 01110b .db '4' .db 11011b .db 11011b .db 11011b .db 01111b .db 00011b .db 00011b .db 00011b .db '5' .db 11111b .db 11000b .db 11000b .db 01110b .db 00011b .db 11011b .db 01110b .db '6' .db 01110b .db 11011b .db 11000b .db 11110b .db 11011b .db 11011b .db 01110b .db '7' .db 11111b .db 10011b .db 00011b .db 00110b .db 01100b .db 01100b .db 01100b .db '8' .db 01110b .db 11011b .db 11011b .db 01110b .db 11011b .db 11011b .db 01110b .db '9' .db 01110b .db 11011b .db 11011b .db 01111b .db 00011b .db 11011b .db 01110b .db '!' .db 00100b .db 01110b .db 01110b .db 00100b .db 00100b .db 01110b .db 00100b .db '?' .db 01110b .db 11011b .db 00011b .db 00110b .db 00000b .db 00110b .db 00110b .db '+' .db 01110b .db 01110b .db 11111b .db 11111b .db 01110b .db 01110b .db 00000b .db '-' .db 00000b .db 00000b .db 11111b .db 11111b .db 00000b .db 00000b .db 00000b .db '=' .db 00000b .db 11111b .db 11111b .db 00000b .db 11111b .db 11111b .db 00000b .db ',' .db 00000b .db 00000b .db 00000b .db 00000b .db 01110b .db 00110b .db 01100b .db '.' .db 00000b .db 00000b .db 00000b .db 00000b .db 01110b .db 01110b .db 01110b .db '{' .db 00110b .db 01100b .db 01100b .db 11000b .db 01100b .db 01100b .db 00110b .db '}' .db 01100b .db 00110b .db 00110b .db 00011b .db 00110b .db 00110b .db 01100b .db '(' .db 00110b .db 01100b .db 01100b .db 01100b .db 01100b .db 01100b .db 00110b .db ')' .db 01100b .db 00110b .db 00110b .db 00110b .db 00110b .db 00110b .db 01100b .db '^' .db 00100b .db 01110b .db 11011b .db 10001b .db 00000b .db 00000b .db 00000b .db '*' .db 00000b .db 00000b .db 11011b .db 01110b .db 11011b .db 00000b .db 00000b .db '#' .db 01010b .db 11111b .db 11111b .db 01010b .db 11111b .db 11111b .db 01010b .db '&' .db 01110b .db 11011b .db 01011b .db 00110b .db 01101b .db 11010b .db 01101b .db '%' .db 11011b .db 11011b .db 00011b .db 00110b .db 01100b .db 11011b .db 11011b .db '$' .db 01010b .db 01111b .db 11010b .db 01110b .db 01011b .db 11110b .db 01010b .db '@' .db 01110b .db 11001b .db 11011b .db 11011b .db 11000b .db 11111b .db 01111b .db '|' .db 01100b .db 01100b .db 01100b .db 01100b .db 01100b .db 01100b .db 01100b .db '>' .db 11000b .db 01100b .db 00110b .db 00011b .db 00110b .db 01100b .db 11000b .db '<' .db 00011b .db 00110b .db 01100b .db 11000b .db 01100b .db 00110b .db 00011b .db '/' .db 00011b .db 00110b .db 00110b .db 00110b .db 01100b .db 01100b .db 11000b .db '\' .db 11000b .db 01100b .db 01100b .db 01100b .db 00110b .db 00110b .db 00011b .db 'a' .db 01110b .db 11011b .db 00011b .db 01111b .db 11011b .db 11011b .db 01111b .db 'b' .db 11000b .db 11000b .db 11000b .db 11110b .db 11011b .db 11011b .db 11110b .db 'c' .db 00000b .db 00000b .db 01110b .db 11011b .db 11000b .db 11011b .db 01110b .db 'd' .db 00011b .db 00011b .db 00011b .db 01111b .db 11011b .db 11011b .db 01111b .db 'e' .db 00000b .db 01110b .db 11011b .db 11111b .db 11000b .db 11011b .db 01110b .db 'f' .db 00111b .db 01111b .db 01100b .db 11110b .db 01100b .db 01100b .db 01100b .db 'g' .db 00000b .db 00000b .db 01110b .db 11011b .db 01111b .db 00011b .db 01110b .db 'h' .db 11000b .db 11000b .db 11000b .db 11110b .db 11011b .db 11011b .db 11011b .db 'i' .db 00110b .db 00110b .db 00000b .db 01110b .db 00110b .db 11111b .db 11111b .db 'j' .db 00011b .db 00011b .db 00000b .db 00111b .db 00011b .db 00110b .db 01100b .db 'k' .db 11000b .db 11000b .db 11000b .db 11011b .db 11011b .db 11110b .db 11011b .db 'l' .db 01110b .db 00110b .db 00110b .db 00110b .db 00110b .db 00110b .db 11111b .db 'm' .db 00000b .db 00000b .db 00000b .db 11010b .db 10101b .db 10001b .db 11011b .db 'n' .db 00000b .db 00000b .db 00000b .db 11110b .db 11011b .db 11011b .db 11011b .db 'o' .db 00000b .db 00000b .db 00000b .db 01110b .db 11011b .db 11011b .db 01110b .db 'p' .db 00000b .db 00000b .db 11110b .db 11011b .db 11110b .db 11000b .db 11000b .db 'q' .db 00000b .db 00000b .db 01111b .db 11001b .db 01111b .db 00011b .db 00011b .db 'r' .db 00000b .db 00000b .db 00000b .db 11110b .db 11011b .db 11000b .db 11000b .db 's' .db 00000b .db 00000b .db 01111b .db 11000b .db 01110b .db 00011b .db 11110b .db 't' .db 00000b .db 01100b .db 01100b .db 11111b .db 01100b .db 01100b .db 00110b .db 'u' .db 00000b .db 00000b .db 00000b .db 11011b .db 11011b .db 11011b .db 01111b .db 'v' .db 00000b .db 00000b .db 00000b .db 11011b .db 11011b .db 01110b .db 00100b .db 'w' .db 00000b .db 00000b .db 00000b .db 00000b .db 10101b .db 11111b .db 01010b .db 'x' .db 00000b .db 00000b .db 00000b .db 0000b .db 11011b .db 01110b .db 11011b .db 'y' .db 00000b .db 00000b .db 11011b .db 11011b .db 01111b .db 00011b .db 01110b .db 'z' .db 00000b .db 00000b .db 00000b .db 11111b .db 00110b .db 01100b .db 11111b .db '"' .db 11011b .db 11011b .db 11011b .db 00000b .db 00000b .db 00000b .db 00000b .db ']' .db 00111b .db 00011b .db 00011b .db 00011b .db 00011b .db 00011b .db 00111b .db '[' .db 11100b .db 11000b .db 11000b .db 11000b .db 11000b .db 11000b .db 11100b .end .end