unit Txt;
{$R-}
interface
uses
VGA256,
Buffers;
const
Normal = $00;
Kalin = $01;
Golge = $02;
procedure Fontkur (i: Integer; Style: Word);
function Harfim (i: Integer): Pointer;
function TextGenis (S: String): Integer;
procedure TextYaz (X, Y: Integer; S: String; Attr: Byte);
function CenterX (S: String): Integer;
procedure CenterText (Y: Integer; S: String; Attr: Byte);
implementation
const
bGolge: Boolean = FALSE;
bKalin: Boolean = FALSE;
var
Font: Pointer;
Base: Byte;
procedure SuluFont; assembler;
asm
dw @Space, @Exclamation, @DQuotation, @NumberSign, @Dollar, @Procent
dw @AndSign, @SQuotation, @LeftBracket, @RightBracket, @Asterisk, @Plus
dw @Comma, @Hyphen, @Dot, @Slash, @Number0, @Number1, @Number2, @Number3
dw @Number4, @Number5, @Number6, @Number7, @Number8, @Number9, @Colon
dw @SemiColon, @SqLBracket, @Equal, @SqRBracket, @QuestionMark, @At
dw @A1, @B1, @C1, @D1, @E1, @F1, @G1, @H1, @I1, @J1, @K1, @L1, @M1
dw @N1, @O1, @P1, @Q1, @R1, @S1, @T1, @U1, @V1, @W1, @X1, @Y1, @Z1
dw @LBracket2, @BackSlash, @RBracket2, @AccCir, @UnderLine, @BSQuot
dw @A2, @B2, @C2, @D2, @E2, @F2, @G2, @H2, @I2, @J2, @K2, @L2, @M2
dw @N2, @O2, @P2, @Q2, @R2, @S2, @T2, @U2, @V2, @W2, @X2, @Y2, @Z2
dw @LBracket3, @VertLine, @RBracket3, @Tilde, @Copyright, @Registered
dw @TradeMark
@Space:
db 8,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00
@Exclamation:
db 8,24
db $00,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$00,$00
db $18,$18,$18,$00,$00,$00,$00,$00
@DQuotation:
db 9,24
db $00,$00,$B0,$61,$C3,$86,$0D,$1B,$36,$6C,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
@NumberSign:
db 17,24
db $00,$00,$00,$C6,$00,$8C,$01,$8C,$01,$18,$03,$18,$0 6,$FF,$7F,$FE
db $FF,$60,$18,$C0,$18,$80,$31,$F8,$FF,$F3,$FF,$07,$C 6,$00,$C6,$00
db $8C,$01,$0C,$03,$18,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00
@Dollar:
db 16,24
db $80,$00,$80,$00,$E0,$07,$F8,$0F,$98,$1C,$8C,$18,$8 C,$30,$8C,$00
db $9C,$00,$F8,$01,$E0,$0F,$80,$1E,$80,$38,$8C,$30,$8 C,$30,$8C,$30
db $9C,$1C,$F8,$0F,$E0,$07,$80,$00,$80,$00,$00,$00,$0 0,$00,$00,$00
@Procent:
db 22,24
db $00,$00,$00,$1C,$60,$C0,$1F,$08,$30,$06,$03,$06,$4 3,$80,$C1,$08
db $60,$30,$03,$30,$46,$00,$FC,$19,$00,$3E,$02,$00,$C 0,$7C,$00,$98
db $3F,$00,$62,$0C,$C0,$0C,$06,$10,$83,$01,$C6,$60,$8 0,$60,$0C,$10
db $F8,$03,$06,$38,$80,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00
@AndSign:
db 19,24
db $00,$00,$00,$3E,$00,$F8,$03,$E0,$38,$00,$83,$01,$1 8,$0C,$C0,$71
db $00,$DC,$01,$C0,$07,$80,$1F,$00,$CE,$31,$30,$9C,$C 1,$C0,$0F,$06
db $3C,$30,$C0,$81,$03,$0F,$38,$FC,$C0,$7F,$0E,$F8,$E 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@SQuotation:
db 6,24
db $00,$C3,$30,$08,$42,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00
@LeftBracket:
db 7,24
db $00,$30,$08,$06,$C1,$60,$30,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$0C
db $06,$03,$81,$81,$C0
@RightBracket:
db 7,24
db $80,$81,$C0,$40,$60,$30,$18,$18,$0C,$06,$83,$C1,$6 0,$30,$18,$06
db $83,$41,$30,$08,$06
@Asterisk:
db 14,24
db $00,$00,$30,$00,$0C,$30,$13,$FC,$0F,$FC,$00,$1E,$C 0,$0F,$38,$07
db $84,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00
@Plus:
db 18,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 C,$00,$30,$00
db $C0,$00,$00,$03,$00,$0C,$00,$30,$00,$FF,$3F,$FC,$F F,$00,$0C,$00
db $30,$00,$C0,$00,$00,$03,$00,$0C,$00,$30,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@Comma:
db 7,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$18,$0C
db $06,$02,$C1,$20,$00
@Hyphen:
db 10,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$3F,$FC
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00
@Dot:
db 6,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 C,$C3,$00,$00
db $00,$00
@Slash:
db 10,24
db $00,$00,$06,$18,$20,$C0,$00,$03,$04,$18,$60,$80,$0 0,$03,$0C,$10
db $60,$80,$01,$02,$0C,$30,$40,$80,$01,$06,$00,$00,$0 0,$00
@Number0:
db 16,24
db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$1 C,$38,$0C,$30
db $0C,$30,$0C,$30,$0C,$30,$0C,$30,$0C,$30,$0C,$30,$1 C,$38,$18,$18
db $38,$1C,$F0,$0F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number1:
db 16,24
db $00,$00,$00,$00,$00,$03,$00,$03,$80,$03,$F0,$03,$F 0,$03,$00,$03
db $00,$03,$00,$03,$00,$03,$00,$03,$00,$03,$00,$03,$0 0,$03,$00,$03
db $00,$03,$00,$03,$00,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number2:
db 16,24
db $00,$00,$00,$00,$E0,$07,$F0,$1F,$38,$1C,$1C,$30,$0 C,$30,$0C,$30
db $00,$30,$00,$18,$00,$1E,$80,$0F,$E0,$03,$F0,$00,$3 8,$00,$1C,$00
db $0C,$00,$FC,$3F,$FC,$3F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number3:
db 16,24
db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$0 C,$18,$00,$18
db $00,$1C,$80,$0F,$80,$1F,$00,$38,$00,$30,$0C,$30,$0 C,$30,$1C,$38
db $38,$1C,$F8,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number4:
db 16,24
db $00,$00,$00,$00,$00,$0C,$00,$0E,$00,$0F,$80,$0F,$8 0,$0D,$C0,$0C
db $60,$0C,$70,$0C,$30,$0C,$18,$0C,$1C,$0C,$FC,$7F,$F C,$7F,$00,$0C
db $00,$0C,$00,$0C,$00,$0C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number5:
db 16,24
db $00,$00,$00,$00,$F8,$1F,$F8,$1F,$18,$00,$18,$00,$1 8,$00,$C8,$07
db $F8,$1F,$18,$1C,$0C,$38,$00,$30,$00,$30,$00,$30,$0 C,$30,$0C,$38
db $38,$1C,$F8,$0F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number6:
db 16,24
db $00,$00,$00,$00,$C0,$07,$F0,$1F,$38,$18,$18,$30,$1 8,$30,$0C,$00
db $CC,$07,$FC,$1F,$3C,$1C,$1C,$38,$0C,$30,$0C,$30,$0 C,$30,$18,$38
db $38,$1C,$F0,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number7:
db 16,24
db $00,$00,$00,$00,$FC,$3F,$FC,$3F,$00,$18,$00,$1C,$0 0,$0C,$00,$06
db $00,$07,$00,$03,$80,$03,$80,$01,$C0,$01,$C0,$00,$E 0,$00,$E0,$00
db $60,$00,$60,$00,$70,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number8:
db 16,24
db $00,$00,$00,$00,$E0,$07,$F0,$0F,$38,$1C,$18,$18,$1 C,$18,$18,$18
db $38,$1C,$F0,$0F,$F8,$1F,$38,$1C,$0C,$30,$0C,$30,$0 C,$30,$1C,$38
db $38,$1C,$F8,$1F,$E0,$07,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Number9:
db 16,24
db $00,$00,$00,$00,$E0,$07,$F8,$0F,$38,$1C,$1C,$18,$0 C,$30,$0C,$30
db $0C,$30,$1C,$38,$38,$3C,$F8,$3F,$E0,$33,$00,$30,$0 C,$18,$0C,$18
db $18,$1C,$F8,$0F,$E0,$03,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Colon:
db 6,24
db $00,$00,$00,$00,$C0,$30,$0C,$00,$00,$00,$00,$00,$0 C,$C3,$00,$00
db $00,$00
@SemiColon:
db 6,24
db $00,$00,$00,$00,$C0,$30,$0C,$00,$00,$00,$00,$00,$0 C,$C3,$20,$08
db $43,$00
@SqLBracket:
db 19,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$40,$00,$C0
db $03,$80,$07,$80,$0F,$00,$0F,$00,$1E,$00,$18,$00,$8 0,$07,$00,$F0
db $00,$00,$3E,$00,$80,$07,$00,$F0,$00,$00,$04,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@Equal:
db 19,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$FC,$FF,$E1,$FF,$0F,$00,$00,$00,$00,$0 0,$00,$00,$FE
db $FF,$F0,$FF,$07,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@SqRBracket:
db 19,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 4,$00,$E0,$01
db $00,$3C,$00,$80,$0F,$00,$E0,$01,$00,$3C,$00,$00,$0 3,$00,$0F,$00
db $1E,$00,$3E,$00,$3C,$00,$78,$00,$40,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@QuestionMark:
db 14,24
db $00,$00,$F8,$80,$7F,$E0,$38,$1C,$0C,$03,$C3,$C0,$0 0,$30,$00,$06
db $C0,$00,$18,$00,$03,$C0,$00,$30,$00,$00,$00,$00,$C 0,$00,$30,$00
db $0C,$00,$00,$00,$00,$00,$00,$00,$00,$00
@At:
db 27,24
db $00,$00,$00,$00,$E0,$3F,$00,$C0,$01,$07,$80,$03,$E 0,$00,$06,$00
db $06,$18,$00,$60,$60,$E0,$1B,$06,$83,$F1,$30,$18,$0 6,$87,$61,$30
db $18,$0C,$C3,$C0,$60,$18,$06,$06,$C3,$30,$30,$0C,$8 6,$C1,$60,$30
db $0C,$86,$01,$E3,$68,$06,$18,$3C,$1F,$80,$01,$00,$0 0,$1C,$00,$08
db $80,$01,$60,$00,$78,$E0,$01,$00,$FF,$01,$00,$00,$0 0,$00,$00,$00
db $00
@A1:
db 16,24
db $00,$00,$C0,$03,$C0,$03,$C0,$03,$E0,$07,$60,$06,$6 0,$06,$70,$0E
db $30,$0C,$30,$0C,$38,$1C,$18,$18,$FC,$3F,$FC,$3F,$0 C,$30,$0E,$70
db $06,$70,$06,$60,$07,$E0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@B1:
db 16,24
db $00,$00,$FC,$0F,$FC,$3F,$0C,$38,$0C,$30,$0C,$30,$0 C,$30,$0C,$30
db $0C,$38,$FC,$0F,$FC,$3F,$0C,$30,$0C,$60,$0C,$60,$0 C,$60,$0C,$60
db $0C,$30,$FC,$3F,$FC,$0F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@C1:
db 18,24
db $00,$00,$00,$7F,$00,$FF,$07,$1E,$3C,$1C,$C0,$30,$0 0,$E6,$00,$98
db $01,$00,$06,$00,$18,$00,$60,$00,$80,$01,$00,$06,$8 0,$39,$00,$C6
db $00,$1C,$07,$30,$78,$F0,$C0,$FF,$01,$FC,$01,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@D1:
db 18,24
db $00,$00,$F0,$7F,$C0,$FF,$07,$03,$3E,$0C,$E0,$30,$0 0,$C3,$00,$1C
db $03,$60,$0C,$80,$31,$00,$C6,$00,$18,$03,$60,$0C,$8 0,$31,$00,$C7
db $00,$0C,$03,$38,$0C,$70,$F0,$FF,$C1,$FF,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@E1:
db 16,24
db $00,$00,$FC,$7F,$FC,$7F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00
db $0C,$00,$FC,$3F,$FC,$3F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00
db $0C,$00,$FC,$7F,$FC,$7F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@F1:
db 15,24
db $00,$00,$FE,$1F,$FF,$8F,$01,$C0,$00,$60,$00,$30,$0 0,$18,$00,$0C
db $00,$FE,$0F,$FF,$87,$01,$C0,$00,$60,$00,$30,$00,$1 8,$00,$0C,$00
db $06,$00,$03,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0
@G1:
db 19,24
db $00,$00,$00,$FE,$00,$FC,$0F,$70,$E0,$C1,$01,$0C,$0 6,$E0,$18,$00
db $C0,$00,$00,$06,$00,$30,$F0,$8F,$81,$7F,$0C,$00,$6 3,$00,$18,$07
db $C0,$30,$00,$87,$03,$3C,$78,$F0,$81,$FF,$0D,$F0,$4 3,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@H1:
db 18,24
db $00,$00,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C0,$30,$0 0,$C3,$00,$0C
db $03,$30,$FC,$FF,$F0,$FF,$C3,$00,$0C,$03,$30,$0C,$C 0,$30,$00,$C3
db $00,$0C,$03,$30,$0C,$C0,$30,$00,$C3,$00,$0C,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@I1:
db 6,24
db $00,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00
db $00,$00
@J1:
db 13,24
db $00,$00,$C0,$00,$18,$00,$03,$60,$00,$0C,$80,$01,$3 0,$00,$06,$C0
db $00,$18,$00,$03,$60,$0C,$8C,$81,$31,$30,$0E,$87,$7 F,$E0,$07,$00
db $00,$00,$00,$00,$00,$00,$00
@K1:
db 16,24
db $00,$00,$0C,$F0,$0C,$38,$0C,$1C,$0C,$0E,$0C,$07,$8 C,$03,$CC,$01
db $EC,$01,$FC,$01,$BC,$03,$1C,$07,$0C,$06,$0C,$0E,$0 C,$1C,$0C,$38
db $0C,$38,$0C,$70,$0C,$E0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@L1:
db 13,24
db $00,$80,$01,$30,$00,$06,$C0,$00,$18,$00,$03,$60,$0 0,$0C,$80,$01
db $30,$00,$06,$C0,$00,$18,$00,$03,$60,$00,$0C,$80,$F F,$F3,$7F,$00
db $00,$00,$00,$00,$00,$00,$00
@M1:
db 21,24
db $00,$00,$80,$07,$E0,$F0,$00,$1E,$1E,$C0,$C3,$07,$7 8,$D8,$80,$0D
db $1B,$B0,$61,$07,$36,$CC,$60,$86,$19,$CC,$30,$C7,$1 9,$C6,$18,$C3
db $18,$63,$18,$77,$0C,$C3,$86,$61,$D8,$30,$0C,$1F,$8 6,$C1,$C1,$30
db $38,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00
@N1:
db 18,24
db $00,$00,$70,$00,$C3,$01,$0C,$0F,$30,$7C,$C0,$B0,$0 1,$C3,$0E,$0C
db $73,$30,$8C,$C1,$30,$0E,$C3,$70,$0C,$83,$31,$0C,$C E,$30,$70,$C3
db $80,$0D,$03,$3E,$0C,$F0,$30,$80,$C3,$00,$0E,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@O1:
db 19,24
db $00,$00,$00,$FE,$00,$FC,$1F,$F0,$E0,$C1,$01,$1C,$0 6,$C0,$38,$00
db $CE,$00,$60,$06,$00,$33,$00,$98,$01,$C0,$0C,$00,$6 6,$00,$30,$07
db $C0,$31,$00,$86,$03,$38,$78,$F0,$80,$FF,$03,$F0,$0 7,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@P1:
db 16,24
db $00,$00,$FC,$1F,$FC,$3F,$0C,$70,$0C,$60,$0C,$60,$0 C,$60,$0C,$60
db $0C,$70,$FC,$3F,$FC,$1F,$0C,$00,$0C,$00,$0C,$00,$0 C,$00,$0C,$00
db $0C,$00,$0C,$00,$0C,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Q1:
db 19,24
db $00,$00,$00,$FE,$00,$FC,$1F,$F0,$E0,$C1,$01,$1C,$0 6,$C0,$38,$00
db $CE,$00,$60,$06,$00,$33,$00,$98,$01,$C0,$0C,$00,$6 6,$00,$30,$07
db $C4,$31,$70,$86,$03,$3F,$78,$F0,$80,$FF,$0F,$F0,$E 7,$00,$00,$02
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@R1:
db 17,24
db $00,$00,$F8,$7F,$F0,$FF,$61,$00,$C7,$00,$8C,$01,$1 8,$03,$30,$06
db $60,$0C,$70,$F8,$7F,$F0,$FF,$61,$80,$C3,$00,$8E,$0 1,$18,$03,$30
db $06,$60,$0C,$C0,$18,$80,$31,$00,$03,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00
@S1:
db 16,24
db $00,$00,$F0,$07,$F8,$1F,$1C,$3C,$0E,$30,$06,$30,$0 6,$70,$06,$00
db $3E,$00,$FC,$07,$E0,$3F,$00,$3C,$00,$70,$06,$60,$0 6,$60,$06,$70
db $1E,$38,$FC,$1F,$F0,$0F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@T1:
db 14,24
db $00,$C0,$FF,$FF,$FF,$03,$03,$C0,$00,$30,$00,$0C,$0 0,$03,$C0,$00
db $30,$00,$0C,$00,$03,$C0,$00,$30,$00,$0C,$00,$03,$C 0,$00,$30,$00
db $0C,$00,$00,$00,$00,$00,$00,$00,$00,$00
@U1:
db 18,24
db $00,$00,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C0,$30,$0 0,$C3,$00,$0C
db $03,$30,$0C,$C0,$30,$00,$C3,$00,$0C,$03,$30,$0C,$C 0,$30,$00,$C3
db $00,$0C,$07,$38,$38,$70,$C0,$FF,$00,$FE,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@V1:
db 15,24
db $00,$80,$03,$B8,$01,$CC,$00,$E6,$80,$63,$C0,$30,$6 0,$38,$38,$18
db $0C,$0C,$06,$8E,$03,$C6,$00,$63,$80,$3B,$80,$0D,$C 0,$06,$E0,$03
db $E0,$00,$70,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0
@W1:
db 23,24
db $00,$00,$80,$03,$0C,$B8,$01,$0F,$CC,$80,$07,$E6,$C 0,$03,$73,$F0
db $C1,$31,$98,$61,$18,$CC,$30,$1C,$66,$18,$8E,$33,$0 E,$C6,$30,$03
db $67,$98,$81,$3B,$CC,$80,$0D,$36,$C0,$06,$1E,$E0,$0 3,$0F,$F0,$81
db $07,$70,$80,$01,$38,$C0,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00
@X1:
db 15,24
db $00,$80,$07,$B8,$03,$8E,$83,$83,$C3,$C0,$71,$C0,$1 D,$C0,$06,$E0
db $03,$E0,$00,$70,$00,$7C,$00,$77,$80,$31,$E0,$38,$3 8,$38,$0C,$1C
db $07,$DC,$01,$1C,$00,$00,$00,$00,$00,$00,$00,$00,$0 0
@Y1:
db 16,24
db $00,$00,$0F,$E0,$0E,$70,$1C,$38,$1C,$38,$38,$1C,$3 0,$0C,$70,$0E
db $60,$06,$C0,$03,$C0,$03,$80,$01,$80,$01,$80,$01,$8 0,$01,$80,$01
db $80,$01,$80,$01,$80,$01,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@Z1:
db 16,24
db $00,$00,$FC,$7F,$FC,$7F,$00,$70,$00,$38,$00,$1C,$0 0,$0E,$00,$0E
db $00,$07,$80,$03,$C0,$01,$E0,$00,$E0,$00,$70,$00,$3 8,$00,$1C,$00
db $0C,$00,$FE,$7F,$FE,$7F,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
@LBracket2:
db 10,24
db $00,$C0,$07,$1F,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$0 0,$03,$0C,$30
db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$00,$1 F,$7C
@BackSlash:
db 10,24
db $00,$18,$60,$00,$01,$0C,$30,$80,$00,$06,$18,$40,$0 0,$03,$0C,$20
db $80,$01,$06,$10,$C0,$00,$03,$08,$60,$80,$01,$00,$0 0,$00
@RBracket2:
db 10,24
db $00,$F8,$E0,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$0 0,$03,$0C,$30
db $C0,$00,$03,$0C,$30,$C0,$00,$03,$0C,$30,$C0,$E0,$8 3,$0F
@AccCir:
db 21,24
db $00,$00,$00,$C0,$01,$00,$7C,$00,$C0,$1D,$00,$1C,$0 7,$C0,$C1,$01
db $1C,$70,$C0,$01,$1C,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00
@UnderLine:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$F8,$7F
@BSQuot:
db 6,24
db $00,$42,$10,$0C,$C3,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00
@a2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$F 0,$1F,$0C,$0E
db $03,$03,$C0,$C0,$3F,$FC,$8D,$03,$63,$C0,$18,$30,$0 E,$0F,$7F,$8F
db $8F,$03,$00,$00,$00,$00,$00,$00,$00,$00
@b2:
db 15,24
db $00,$00,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$30,$1 F,$D8,$1F,$3C
db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$3 8,$30,$3C,$1C
db $F6,$07,$F3,$01,$00,$00,$00,$00,$00,$00,$00,$00,$0 0
@c2:
db 13,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$7C,$C0,$3 F,$1C,$C6,$81
db $19,$00,$03,$60,$00,$0C,$80,$01,$63,$70,$1C,$07,$F F,$C0,$07,$00
db $00,$00,$00,$00,$00,$00,$00
@d2:
db 15,24
db $00,$00,$00,$0C,$00,$06,$00,$03,$80,$01,$C0,$C0,$6 7,$F0,$37,$1C
db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 C,$38,$1C,$1E
db $FC,$0D,$7C,$06,$00,$00,$00,$00,$00,$00,$00,$00,$0 0
@e2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$3F,$E 0,$1F,$1C,$8E
db $03,$66,$80,$F9,$7F,$FE,$9F,$01,$60,$00,$38,$60,$1 C,$0E,$FE,$01
db $3F,$00,$00,$00,$00,$00,$00,$00,$00,$00
@f2:
db 7,24
db $00,$3C,$9F,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$06
db $03,$00,$00,$00,$00
@g2:
db 15,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6 F,$F0,$37,$1C
db $1E,$06,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 8,$38,$1C,$1E
db $FC,$0D,$7C,$06,$00,$63,$80,$61,$60,$F0,$3F,$E0,$0 7
@h2:
db 14,24
db $00,$00,$03,$C0,$00,$30,$00,$0C,$00,$03,$C0,$3C,$B 0,$1F,$3C,$0E
db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0 C,$0C,$03,$C3
db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00
@i2:
db 6,24
db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00
db $00,$00
@j2:
db 6,24
db $00,$C3,$30,$00,$C0,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$30,$0C
db $F3,$1C
@k2:
db 13,24
db $00,$80,$01,$30,$00,$06,$C0,$00,$18,$00,$03,$67,$3 0,$0C,$83,$39
db $B0,$03,$7E,$C0,$1B,$38,$07,$C3,$60,$38,$0C,$86,$8 1,$31,$70,$00
db $00,$00,$00,$00,$00,$00,$00
@l2:
db 6,24
db $00,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0C,$C3,$30,$0 C,$C3,$00,$00
db $00,$00
@m2:
db 20,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$EC
db $F3,$C1,$BF,$1F,$1C,$8F,$C3,$60,$30,$0C,$06,$C3,$6 0,$30,$0C,$06
db $C3,$60,$30,$0C,$06,$C3,$60,$30,$0C,$06,$C3,$60,$3 0,$0C,$06,$03
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
@n2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$7E,$F 0,$1F,$3C,$0E
db $07,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$30,$0 C,$0C,$03,$C3
db $C0,$00,$00,$00,$00,$00,$00,$00,$00,$00
@o2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$1F,$E 0,$1F,$1C,$0E
db $03,$67,$80,$19,$60,$06,$98,$01,$66,$80,$31,$70,$1 C,$0E,$FE,$01
db $1F,$00,$00,$00,$00,$00,$00,$00,$00,$00
@p2:
db 15,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$30,$1 F,$D8,$1F,$3C
db $1C,$0E,$0C,$03,$8C,$01,$C6,$00,$63,$80,$31,$C0,$3 8,$30,$3C,$1C
db $F6,$07,$F3,$81,$01,$C0,$00,$60,$00,$30,$00,$18,$0 0
@q2:
db 15,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$6 F,$F0,$37,$1C
db $1E,$07,$8E,$01,$C6,$00,$63,$80,$31,$C0,$18,$60,$1 8,$38,$1C,$1E
db $FC,$0D,$7C,$06,$00,$03,$80,$01,$C0,$00,$60,$00,$3 0
@r2:
db 8,24
db $00,$00,$00,$00,$00,$00,$EC,$FC,$3C,$1C,$0C,$0C,$0 C,$0C,$0C,$0C
db $0C,$0C,$0C,$00,$00,$00,$00,$00
@s2:
db 12,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$F8,$C0,$3F,$0 E,$63,$60,$06
db $E0,$03,$F8,$03,$7C,$00,$66,$60,$0E,$C7,$3F,$F8,$0 0,$00,$00,$00
db $00,$00,$00,$00
@t2:
db 7,24
db $00,$00,$83,$C1,$60,$FC,$FF,$0C,$06,$83,$C1,$60,$3 0,$18,$0C,$3E
db $1E,$00,$00,$00,$00
@u2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$C0,$3 0,$30,$0C,$0C
db $03,$C3,$C0,$30,$30,$0C,$0C,$03,$C3,$C0,$30,$38,$1 C,$0F,$FE,$03
db $CF,$00,$00,$00,$00,$00,$00,$00,$00,$00
@v2:
db 12,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$0 6,$E6,$70,$0C
db $C3,$30,$98,$81,$19,$98,$01,$0F,$F0,$00,$0F,$60,$0 0,$00,$00,$00
db $00,$00,$00,$00
@w2:
db 18,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$70,$70,$B0
db $C1,$61,$86,$8F,$19,$36,$E6,$D8,$1C,$73,$33,$CC,$C C,$30,$63,$83
db $8F,$07,$1E,$1E,$78,$78,$C0,$C1,$00,$03,$03,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00
@x2:
db 12,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$EE,$70,$9 C,$83,$19,$F8
db $01,$0F,$70,$00,$0F,$F8,$C1,$39,$0C,$E3,$70,$07,$0 E,$00,$00,$00
db $00,$00,$00,$00
@y2:
db 12,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$07,$6E,$60,$0 6,$E6,$70,$0C
db $C3,$30,$9C,$83,$19,$98,$81,$0F,$F0,$00,$0F,$60,$0 0,$06,$60,$00
db $03,$3E,$E0,$01
@z2:
db 14,24
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C0,$FF,$F 1,$7F,$00,$0E
db $80,$01,$30,$00,$0E,$C0,$01,$38,$00,$07,$E0,$00,$1 8,$00,$FF,$C7
db $FF,$01,$00,$00,$00,$00,$00,$00,$00,$00
@LBracket3:
db 10,24
db $00,$00,$0E,$3E,$38,$60,$80,$01,$06,$18,$60,$80,$0 1,$07,$0F,$3C
db $C0,$01,$06,$18,$60,$80,$01,$06,$18,$60,$80,$03,$3 E,$F0
@VertLine:
db 8,24
db $18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$18,$1 8,$18,$18,$18
db $18,$18,$18,$18,$18,$18,$18,$18
@RBracket3:
db 10,24
db $00,$3C,$F0,$01,$07,$18,$60,$80,$01,$06,$18,$60,$8 0,$03,$3C,$F0
db $E0,$80,$01,$06,$18,$60,$80,$01,$06,$18,$70,$F0,$C 1,$01
@Tilde:
db 19,24
db $00,$00,$00,$00,$00,$3C,$60,$F0,$03,$83,$31,$18,$0 6,$63,$30,$F8
db $83,$01,$0F,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00
@Copyright:
db 22,24
db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$60,$8 0,$01,$0C,$C0
db $80,$F1,$61,$20,$C6,$10,$8C,$60,$0C,$31,$00,$42,$0 C,$80,$10,$03
db $20,$C4,$00,$08,$71,$18,$83,$18,$43,$60,$7C,$18,$3 0,$00,$03,$18
db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00
@Registered:
db 22,24
db $00,$00,$00,$00,$00,$00,$F0,$03,$00,$83,$03,$20,$8 0,$01,$04,$C0
db $80,$F9,$63,$20,$C6,$11,$84,$61,$08,$61,$18,$42,$F 8,$83,$10,$66
db $20,$84,$19,$08,$63,$0C,$83,$18,$43,$20,$86,$19,$1 0,$00,$03,$0C
db $60,$00,$0C,$0E,$00,$7C,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00
@TradeMark:
db 20,24
db $00,$00,$00,$00,$00,$7C,$C6,$00,$61,$0C,$10,$EE,$0 0,$A1,$0A,$10
db $AA,$00,$A1,$0B,$10,$92,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$0 0,$00,$00,$00
db $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
end;
procedure Font8x8; assembler;
asm
dw @0d128, @0d129, @0d130, @0d131, @0d132, @0d133, @0d134, @0d135, @0d136
dw @0d137, @0d138, @0d139, @0d140, @0d141, @0d142, @0d143, @0d144, @0d145
dw @0d146, @0d147, @0d148, @0d149, @0d150, @0d151, @0d152, @0d153, @0d154
dw @0d155, @0d156, @0d157, @0d158, @0d159, @0d160, @0d161, @0d162, @0d163
dw @0d164, @0d165, @0d166, @0d167, @0d168, @0d169, @0d170, @0d171, @0d172
dw @0d173, @0d174, @0d175, @0d176, @0d177, @0d178, @0d179, @0d180, @0d181
dw @0d182, @0d183, @0d184, @0d185, @0d186, @0d187, @0d188, @0d189, @0d190
dw @0d191, @0d192, @0d193, @0d194, @0d195, @0d196, @0d197, @0d198, @0d199
dw @0d200, @0d201, @0d202, @0d203, @0d204, @0d205, @0d206, @0d207, @0d208
dw @0d209, @0d210, @0d211, @0d212, @0d213, @0d214, @0d215, @0d216, @0d217
dw @0d218, @0d219, @0d220, @0d221, @0d222, @0d223, @0d224, @0d225, @0d226
dw @0d227, @0d228, @0d229, @0d230, @0d231, @0d232, @0d233, @0d234, @0d235
dw @0d236, @0d237, @0d238, @0d239, @0d240, @0d241, @0d242, @0d243, @0d244
dw @0d245, @0d246, @0d247, @0d248, @0d249, @0d250, @0d251, @0d252, @0d253
dw @0d254, @0d255
@0d128:
db 8,8
db $00,$00,$00,$00,$00,$00,$00,$00
@0d129:
db 8,8
db $7E,$81,$A5,$81,$BD,$99,$81,$7E
@0d130:
db 8,8
db $7E,$FF,$DB,$FF,$C3,$E7,$FF,$7E
@0d131:
db 8,8
db $36,$7F,$7F,$7F,$3E,$1C,$08,$00
@0d132:
db 8,8
db $08,$1C,$3E,$7F,$3E,$1C,$08,$00
@0d133:
db 8,8
db $1C,$3E,$1C,$7F,$7F,$3E,$1C,$3E
@0d134:
db 8,8
db $08,$08,$1C,$3E,$7F,$3E,$1C,$3E
@0d135:
db 8,8
db $00,$00,$18,$3C,$3C,$18,$00,$00
@0d136:
db 8,8
db $FF,$FF,$E7,$C3,$C3,$E7,$FF,$FF
@0d137:
db 8,8
db $00,$3C,$66,$42,$42,$66,$3C,$00
@0d138:
db 8,8
db $FF,$C3,$99,$BD,$BD,$99,$C3,$FF
@0d139:
db 8,8
db $F0,$E0,$F0,$BE,$33,$33,$33,$1E
@0d140:
db 8,8
db $3C,$66,$66,$66,$3C,$18,$7E,$18
@0d141:
db 8,8
db $FC,$CC,$FC,$0C,$0C,$0E,$0F,$07
@0d142:
db 8,8
db $FE,$C6,$FE,$C6,$C6,$E6,$67,$03
@0d143:
db 8,8
db $99,$5A,$3C,$E7,$E7,$3C,$5A,$99
@0d144:
db 8,8
db $01,$07,$1F,$7F,$1F,$07,$01,$00
@0d145:
db 8,8
db $40,$70,$7C,$7F,$7C,$70,$40,$00
@0d146:
db 8,8
db $18,$3C,$7E,$18,$18,$7E,$3C,$18
@0d147:
db 8,8
db $66,$66,$66,$66,$66,$00,$66,$00
@0d148:
db 8,8
db $FE,$DB,$DB,$DE,$D8,$D8,$D8,$00
@0d149:
db 8,8
db $7C,$C6,$1C,$36,$36,$1C,$33,$1E
@0d150:
db 8,8
db $00,$00,$00,$00,$7E,$7E,$7E,$00
@0d151:
db 8,8
db $18,$3C,$7E,$18,$7E,$3C,$18,$FF
@0d152:
db 8,8
db $18,$3C,$7E,$18,$18,$18,$18,$00
@0d153:
db 8,8
db $18,$18,$18,$18,$7E,$3C,$18,$00
@0d154:
db 8,8
db $00,$18,$30,$7F,$30,$18,$00,$00
@0d155:
db 8,8
db $00,$0C,$06,$7F,$06,$0C,$00,$00
@0d156:
db 8,8
db $00,$00,$03,$03,$03,$7F,$00,$00
@0d157:
db 8,8
db $00,$24,$66,$FF,$66,$24,$00,$00
@0d158:
db 8,8
db $00,$18,$3C,$7E,$FF,$FF,$00,$00
@0d159:
db 8,8
db $00,$FF,$FF,$7E,$3C,$18,$00,$00
@0d160:
db 6,8
db $00,$00,$00,$00,$00,$00
@0d161:
db 3,8
db $92,$24,$08
@0d162:
db 4,8
db $55,$00,$00,$00
@0d163:
db 6,8
db $8A,$F2,$29,$9F,$A2,$00
@0d164:
db 6,8
db $84,$37,$38,$D8,$43,$00
@0d165:
db 8,8
db $46,$29,$16,$08,$34,$4A,$31,$00
@0d166:
db 7,8
db $0C,$09,$C3,$94,$49,$D8,$00
@0d167:
db 3,8
db $0A,$00,$00
@0d168:
db 4,8
db $24,$11,$21,$04
@0d169:
db 4,8
db $21,$44,$24,$01
@0d170:
db 7,8
db $00,$09,$E3,$C7,$90,$00,$00
@0d171:
db 6,8
db $00,$41,$7C,$04,$01,$00
@0d172:
db 3,8
db $00,$00,$28
@0d173:
db 6,8
db $00,$00,$7C,$00,$00,$00
@0d174:
db 2,8
db $00,$10
@0d175:
db 5,8
db $88,$10,$21,$42,$00
@0d176:
db 6,8
db $4E,$14,$45,$51,$E4,$00
@0d177:
db 6,8
db $84,$41,$10,$04,$E1,$00
@0d178:
db 6,8
db $4E,$04,$31,$42,$F0,$01
@0d179:
db 6,8
db $4E,$04,$31,$50,$E4,$00
@0d180:
db 6,8
db $08,$A3,$24,$1F,$82,$00
@0d181:
db 6,8
db $5F,$F0,$40,$50,$E4,$00
@0d182:
db 6,8
db $8C,$10,$3C,$51,$E4,$00
@0d183:
db 6,8
db $1F,$04,$21,$04,$41,$00
@0d184:
db 6,8
db $4E,$14,$39,$51,$E4,$00
@0d185:
db 6,8
db $4E,$14,$79,$10,$62,$00
@0d186:
db 2,8
db $10,$10
@0d187:
db 3,8
db $80,$00,$28
@0d188:
db 5,8
db $88,$88,$20,$08,$02
@0d189:
db 6,8
db $00,$F0,$01,$C0,$07,$00
@0d190:
db 5,8
db $41,$10,$44,$44,$00
@0d191:
db 6,8
db $4E,$04,$21,$04,$40,$00
@0d192:
db 6,8
db $4E,$D4,$55,$5D,$E0,$00
@0d193:
db 6,8
db $84,$12,$45,$5F,$14,$01
@0d194:
db 6,8
db $4F,$14,$3D,$51,$F4,$00
@0d195:
db 7,8
db $1C,$51,$20,$10,$10,$71,$00
@0d196:
db 7,8
db $8F,$48,$28,$14,$8A,$3C,$00
@0d197:
db 6,8
db $5F,$10,$3C,$41,$F0,$01
@0d198:
db 6,8
db $5F,$10,$3C,$41,$10,$00
@0d199:
db 7,8
db $1C,$51,$20,$10,$13,$F1,$00
@0d200:
db 6,8
db $51,$14,$7D,$51,$14,$01
@0d201:
db 2,8
db $55,$15
@0d202:
db 6,8
db $1E,$04,$41,$51,$E4,$00
@0d203:
db 6,8
db $51,$52,$0C,$45,$12,$01
@0d204:
db 6,8
db $41,$10,$04,$41,$F0,$01
@0d205:
db 8,8
db $41,$63,$55,$49,$41,$41,$41,$00
@0d206:
db 6,8
db $D1,$54,$65,$51,$14,$01
@0d207:
db 8,8
db $1C,$22,$41,$41,$41,$22,$1C,$00
@0d208:
db 6,8
db $4F,$14,$3D,$41,$10,$00
@0d209:
db 6,8
db $4E,$14,$45,$91,$83,$01
@0d210:
db 6,8
db $4F,$14,$3D,$45,$12,$01
@0d211:
db 6,8
db $4E,$14,$38,$50,$E4,$00
@0d212:
db 6,8
db $1F,$41,$10,$04,$41,$00
@0d213:
db 6,8
db $51,$14,$45,$51,$E4,$00
@0d214:
db 6,8
db $51,$14,$45,$91,$42,$00
@0d215:
db 8,8
db $41,$41,$41,$49,$55,$63,$41,$00
@0d216:
db 8,8
db $41,$22,$14,$08,$14,$22,$41,$00
@0d217:
db 8,8
db $41,$22,$14,$08,$08,$08,$08,$00
@0d218:
db 7,8
db $3F,$10,$04,$41,$10,$FC,$00
@0d219:
db 3,8
db $4B,$92,$0C
@0d220:
db 5,8
db $41,$08,$42,$10,$02
@0d221:
db 3,8
db $93,$24,$0D
@0d222:
db 6,8
db $00,$A1,$44,$00,$00,$00
@0d223:
db 6,8
db $00,$00,$00,$00,$00,$FC
@0d224:
db 3,8
db $11,$00,$00
@0d225:
db 5,8
db $00,$B8,$94,$92,$05
@0d226:
db 5,8
db $21,$9C,$94,$D2,$01
@0d227:
db 5,8
db $00,$B8,$10,$82,$03
@0d228:
db 5,8
db $08,$B9,$94,$92,$05
@0d229:
db 6,8
db $00,$E0,$44,$5F,$E0,$00
@0d230:
db 4,8
db $2C,$27,$22,$02
@0d231:
db 5,9
db $00,$B8,$94,$92,$43,$80
@0d232:
db 5,8
db $21,$9C,$94,$52,$02
@0d233:
db 2,8
db $51,$15
@0d234:
db 3,9
db $82,$24,$49,$00
@0d235:
db 5,8
db $21,$A4,$32,$4A,$02
@0d236:
db 2,8
db $55,$15
@0d237:
db 8,8
db $00,$00,$37,$49,$49,$49,$49,$00
@0d238:
db 5,8
db $00,$9C,$94,$52,$02
@0d239:
db 6,8
db $00,$E0,$44,$51,$E4,$00
@0d240:
db 5,9
db $00,$9C,$94,$D2,$09,$40
@0d241:
db 5,9
db $00,$B8,$94,$92,$43,$00
@0d242:
db 5,8
db $00,$98,$14,$42,$00
@0d243:
db 6,8
db $00,$E0,$05,$0E,$F4,$00
@0d244:
db 5,8
db $40,$3C,$21,$04,$03
@0d245:
db 5,8
db $00,$A4,$94,$92,$03
@0d246:
db 6,8
db $00,$10,$45,$91,$42,$00
@0d247:
db 8,8
db $00,$00,$49,$49,$49,$49,$36,$00
@0d248:
db 6,8
db $00,$10,$29,$84,$12,$01
@0d249:
db 5,9
db $00,$A4,$94,$92,$43,$C0
@0d250:
db 6,8
db $00,$F0,$21,$84,$F0,$01
@0d251:
db 4,8
db $24,$12,$22,$04
@0d252:
db 2,8
db $15,$15
@0d253:
db 4,8
db $21,$42,$22,$01
@0d254:
db 7,8
db $A6,$0C,$00,$00,$00,$00,$00
@0d255:
db 6,8
db $00,$40,$28,$51,$F4,$01
end;
procedure Fontkur (i: Integer; Style: Word);
begin
case i of
0: begin
Font := @Font8x8;
Base := 0;
end;
1: begin
Font := @SuluFont;
Base := 32;
end;
end;
bKalin := Style or Kalin = Style;
bGolge := Style or Golge = Style;
end;
function Harfim (i: Integer): pointer;
var
W1,
W2: Word;
P: Pointer;
begin
P := Font;
Dec (i, Base);
asm
push ds
lds si, P
mov ax, i
shl ax, 1
add si, ax
lodsw
mov W1, ds
mov W2, ax
pop ds
end;
Harfim := Ptr (W1, W2);
end;
function TextGenis (S: String): Integer;
var
P: Pointer;
Width: Integer;
i: Byte;
A: Word;
begin
P := Font;
Width := 0;
for i := 1 to Length (S) do
begin
A := Ord (S [i]) shl 1;
Dec (A, 2 * Base);
asm
push ds
lds si, P
mov ax, A
add si, ax
cld
lodsw
mov si, ax
lodsb
mov ah, 0
add Width, ax
pop ds
end;
Inc (Width, Byte (bKalin) + Byte (bGolge));
end;
TextGenis := Width;
end;
procedure TextYaz (X, Y: Integer; S: String; Attr: Byte);
var
i: Byte;
C: Char;
begin
i := 1;
repeat
C := S [i];
if bGolge then
DrawBitmap (X + 1, Y + 1, Harfim (Ord (C))^, 16);
if bKalin then
begin
if bGolge then
DrawBitmap (X, Y + 1, Harfim (Ord (C))^, 16);
DrawBitmap (X - 1, Y, Harfim (Ord (C))^, Attr);
end;
DrawBitmap (X, Y, Harfim (Ord (C))^, Attr);
inc (X, TextGenis (C));
Inc (i);
until i > Length (S);
end;
function CenterX (S: String): Integer;
begin
CenterX := XView + (SCREEN_WIDTH - TextGenis (S)) shr 1;
end;
procedure CenterText (Y: Integer; S: String; Attr: Byte);
begin
TextYaz (CenterX (S), Y, S, Attr);
end;
begin
Fontkur (0, Normal);
end.
işte öle
pascalda assembly örneği
Normal
