home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast.iso
/
pcmag
/
vol5n15.zip
/
FONT2DB.SCR
< prev
next >
Wrap
Text File
|
1986-08-05
|
698b
|
37 lines
N FONT2DB.COM
A 100
MOV BH,02 ; 03 for 8x8 Font!
MOV AX,1130
INT 10 ; ES:BP points to font
MOV CX,0100 ; Number of characters
MOV BH,0E ; 08 for 8x8 Font!
ES:
MOV DH,[BP+00] ; Get Byte
INC BP ; Point to next
MOV BL,08 ; 8 bits
MOV DI,013C ; Destination
MOV BYTE PTR [DI],00; Zero it out
RCL DH,1 ; Get the bit
ADC BYTE PTR [DI],30; Put in 0 or 1
INC DI ; Next bit
DEC BL ; Bit counter
JNZ 0116 ; Loop around
MOV DX,0139 ; Point to output
MOV AH,09 ; And print it
INT 21
DEC BH ; Bytes per character
JNZ 010C ; Loop around
MOV DX,0145 ; Print out return
MOV AH,09
INT 21
LOOP 010A ; Get next character
INT 20
DB "DB 01234567b",0D,0A,"$"
R CX
48
W
Q