jasc.asm

独孤剑客 ASM Source Code 1998-2001 for DOS

code    segment
        org     100h
        assume  cs:code,ds:code
Start:
        lea     bp,ASCtab
        mov     ax,1100h ;加载用户点阵,重编程控制
        mov     bh,10h   ;点
        mov     bl,00    ;块
        mov     cx,93    ;cx每字符字节
        mov     dx,33    ;表中首字符
        int     10h      ;

        mov     ah,4ch
        int     21h

ASCtab	db	0,8,28,28,28,28,8,8,8,8,0,0,8,28,8,0		;!
	db	54,54,20,20,0,0,0,0,0,0,0,0,0,0,0,0		;"
	db	0,4,36,36,38,60,100,36,36,38,60,100,36,36,32,0	;#
	db	8,8,28,42,73,72,40,28,10,9,9,73,42,28,8,8	;$
	db	0,32,81,82,82,84,36,8,8,18,21,37,37,69,2,0	;%
	db	0,24,36,36,36,24,16,16,40,42,74,68,68,76,51,0	;&
	db	12,12,8,8,0,0,0,0,0,0,0,0,0,0,0,0		;'
	db	2,4,8,8,8,16,16,16,16,16,16,8,8,8,4,2		;(
	db	32,16,8,8,8,4,4,4,4,4,4,8,8,8,16,32		;)
	db	0,0,0,0,8,8,73,42,20,42,73,8,8,0,0,0		;*
	db	0,0,0,0,8,8,8,127,8,8,8,0,0,0,0,0		;+
	db	0,0,0,0,0,0,0,0,0,0,0,0,48,48,16,32		;,
	db	0,0,0,0,0,0,0,62,0,0,0,0,0,0,0,0		;-
	db	0,0,0,0,0,0,0,0,0,0,0,0,0,48,48,0		;.
	db	0,1,1,2,2,4,4,8,8,16,16,32,32,64,64,0		;/
	db	0,28,34,34,65,65,65,65,65,65,65,65,34,34,28,0	;0
	db	0,8,24,40,8,8,8,8,8,8,8,8,8,8,62,0		;1
	db	0,28,34,65,65,65,2,2,4,8,16,32,32,64,127,0	;2
	db	0,28,34,65,1,1,2,28,2,1,1,1,65,34,28,0		;3
	db	0,4,12,12,20,20,20,36,36,68,68,127,4,4,4,0	;4
	db	0,63,32,32,32,32,44,50,33,1,1,1,1,34,28,0	;5
	db	0,28,34,65,64,64,92,98,65,65,65,65,65,34,28,0	;6
	db	0,127,1,2,2,2,2,4,4,4,4,8,8,8,8,0		;7
	db	0,28,34,65,65,65,34,28,34,65,65,65,65,34,28,0	;8
	db	0,28,34,65,65,65,65,65,35,29,1,1,65,34,28,0	;9
	db	0,0,0,0,24,24,0,0,0,0,24,24,0,0,0,0		;:
	db	0,0,0,0,24,24,0,0,0,0,24,24,8,16,0,0		;;
	db	0,0,0,2,4,8,16,32,64,32,16,8,4,2,0,0		;<
	db	0,0,0,0,0,0,62,0,0,62,0,0,0,0,0,0		;=
	db	0,0,0,32,16,8,4,2,1,2,4,8,16,32,0,0		;>
	db	0,28,34,65,65,2,4,8,8,8,0,0,8,8,8,0		;?
	db	0,28,34,65,77,85,85,85,85,85,85,74,64,33,30,0	;@
	db	0,8,20,20,20,34,34,34,34,62,65,65,65,65,65,0	;A
	db	0,124,66,65,65,65,66,124,66,65,65,65,65,66,124,0	;B
	db	0,28,34,65,65,64,64,64,64,64,64,65,65,34,28,0	;C
	db	0,124,66,66,65,65,65,65,65,65,65,65,66,66,124,0	;D
	db	0,127,64,64,64,64,64,126,64,64,64,64,64,64,127,0	;E
	db	0,127,64,64,64,64,64,126,64,64,64,64,64,64,64,0	;F
	db	0,28,34,65,64,64,64,64,79,65,65,65,65,35,29,0	;G
	db	0,65,65,65,65,65,65,127,65,65,65,65,65,65,65,0	;H
	db	0,62,8,8,8,8,8,8,8,8,8,8,8,8,62,0		;I
	db	0,2,2,2,2,2,2,2,2,2,2,2,66,36,24,0		;J
	db	0,65,66,66,68,72,72,80,104,72,68,68,66,66,65,0	;K
	db	0,32,32,32,32,32,32,32,32,32,32,32,32,32,63,0	;L
	db	0,65,65,99,99,85,85,85,73,73,65,65,65,65,65,0	;M
	db	0,65,65,97,97,81,81,73,73,69,69,67,67,65,65,0	;N
	db	0,28,34,65,65,65,65,65,65,65,65,65,65,34,28,0	;O
	db	0,124,66,65,65,65,65,66,124,64,64,64,64,64,64,0	;P
	db	0,28,34,65,65,65,65,65,65,65,65,73,69,34,29,0	;Q
	db	0,124,66,65,65,65,65,66,124,68,68,66,66,66,65,0	;R
	db	0,28,34,65,65,64,32,24,4,2,1,65,65,34,28,0	;S
	db	0,127,8,8,8,8,8,8,8,8,8,8,8,8,8,0		;T
	db	0,65,65,65,65,65,65,65,65,65,65,65,65,34,28,0	;U
	db	0,65,65,65,34,34,34,34,20,20,20,20,8,8,8,0	;V
	db	0,65,65,65,65,65,73,73,73,85,85,85,34,34,34,0	;W
	db	0,65,65,34,34,20,20,8,8,20,20,34,34,65,65,0	;X
	db	0,65,65,34,34,34,20,20,8,8,8,8,8,8,8,0		;Y
	db	0,127,1,2,2,4,4,8,8,16,16,32,32,64,127,0	;Z
	db	30,16,16,16,16,16,16,16,16,16,16,16,16,16,16,30	;[
;	db	0,65,34,34,20,20,8,127,8,8,127,8,8,8,8,0        ;\
	db	0,64,64,32,32,16,16,8,8,4,4,2,2,1,1,0   	;\
	db	60,4,4,4,4,4,4,4,4,4,4,4,4,4,4,60       	;]
	db	12,18,0,0,0,0,0,0,0,0,0,0,0,0,0,0		;^
	db	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,127		;_
	db	16,8,4,0,0,0,0,0,0,0,0,0,0,0,0,0		;`
	db	0,0,0,0,0,0,60,66,2,14,50,66,66,70,59,0		;a
	db	0,32,32,32,32,32,44,50,33,33,33,33,33,50,44,0	;b
	db	0,0,0,0,0,0,28,34,65,64,64,64,65,34,28,0	;c
	db	0,2,2,2,2,2,26,38,66,66,66,66,66,38,26,0	;d
	db	0,0,0,0,0,0,28,34,65,65,127,64,64,33,30,0	;e
	db	0,7,8,8,8,8,63,8,8,8,8,8,8,8,8,0		;f
	db	0,0,0,0,0,0,26,38,66,66,66,38,26,66,36,24	;g
	db	0,32,32,32,32,32,46,49,33,33,33,33,33,33,33,0	;h
	db	0,0,8,8,0,0,8,8,8,8,8,8,8,8,8,0			;i
	db	0,0,4,4,0,0,4,4,4,4,4,4,4,36,36,24		;j
	db	0,32,32,32,32,32,33,34,36,40,52,36,34,34,33,0	;k
	db	0,8,8,8,8,8,8,8,8,8,8,8,8,8,12,0		;l
	db	0,0,0,0,0,0,82,109,73,73,73,73,73,73,73,0	;m
	db	0,0,0,0,0,0,46,49,33,33,33,33,33,33,33,0	;n
	db	0,0,0,0,0,0,28,34,65,65,65,65,65,34,28,0	;o
	db	0,0,0,0,0,0,44,50,33,33,33,33,50,44,32,32	;p
	db	0,0,0,0,0,0,26,38,66,66,66,66,38,26,2,2		;q
	db	0,0,0,0,0,0,23,24,16,16,16,16,16,16,16,0	;r
	db	0,0,0,0,0,0,30,33,32,32,30,1,1,33,30,0		;s
	db	0,0,8,8,8,8,63,8,8,8,8,8,8,8,7,0		;t
	db	0,0,0,0,0,0,66,66,66,66,66,66,66,70,58,0	;u
	db	0,0,0,0,0,0,65,65,34,34,34,20,20,8,8,0		;v
	db	0,0,0,0,0,0,65,65,65,73,73,85,34,34,34,0	;w
	db	0,0,0,0,0,0,65,34,34,20,8,20,34,34,65,0		;x
	db	0,0,0,0,0,0,65,66,34,36,20,24,8,16,16,32	;y
	db	0,0,0,0,0,0,127,1,2,4,8,16,32,64,127,0		;z
	db	6,8,8,8,8,8,8,16,16,8,8,8,8,8,8,6		;{
	db	8,8,8,8,8,8,8,8,8,8,8,8,8,8,8,8			;|
	db	48,8,8,8,8,8,8,4,4,8,8,8,8,8,8,48		;}

code    ends
        end     Start