汇编中用在图形模式下显示汉字

来源：互联网发布：php mysql是什么编辑：程序博客网时间：2024/06/14 05:54

HZ MACRO X,Y,CHAR,COLOR
    LOCAL DATASEGMENT,HZK,START,HZKHD,HZBUF,ASCTOQW,STRING
    LOCAL CODESEGMENT,XPOINTER,YPOINTER,INIT,EXIT
    LOCAL INIT1,INIT2,NEXT,NEXT1,NEXT2,INIT3
    PUSH AX
    PUSH BX
    PUSH CX
    PUSH DX
    PUSH SI
    PUSH DI
    PUSH BP
    PUSH DS
    PUSH ES
    JMP START
DATASEGMENT:
    XPOINTER DW X
    YPOINTER DW Y
    HZK:     DB 'HZK16',0
    HZKHD:   DW ?
    HZBUF:   DB 32 DUP (0)
    STRING:  DB CHAR,0,255
CODESEGMENT:
START:
    MOV AX,CS
    MOV DS,AX
    MOV ES,AX
    MOV AH,3DH          ;
    LEA DX,HZK          ;OPEN HZK
    MOV AL,0            ;
    INT 21H             ;
    LEA SI,HZKHD        ;SAVE FILE HZK16 HELDER
    MOV [SI],AX         ;

    LEA SI,STRING
ASCTOQW:
    MOV AL,[SI]
    CMP AL,0
    JZ  INIT
    SUB AL,161
    MOV [SI],AL
    INC SI
    JMP ASCTOQW

INIT:
    LEA SI,STRING
init1:
    push si
    MOV AL,[SI]
    CMP AL,0
    JNZ INIT2
    LEA BX,EXIT
    JMP BX
INIT2:
    MOV AH,0
    MOV BH,0
    MOV BL,94
    MUL BL
    INC SI
    MOV BL,[SI]
    MOV BH,0
    ADD AX,BX
    MOV BX,32
    MUL BX
    MOV CX,DX
    MOV DX,AX
    LEA SI,HZKHD
    MOV BX,[SI]
    MOV AH,42H
    MOV AL,0
    INT 21H

    LEA SI,HZKHD
    MOV BX,[SI]
    LEA DX,HZBUF
    MOV CX,32
    MOV AH,3FH
    INT 21H
    PUSH AX          ;PSET ONE HANZI
    PUSH BX          ;
    PUSH CX          ;
    PUSH DX          ;
    PUSH SI          ;
    PUSH DI          ;
    PUSH BP          ;
    LEA SI,XPOINTER  ;
    MOV CX,[SI]      ;
    LEA SI,YPOINTER  ;
    MOV DX,[SI]      ;
    MOV DI,CX        ;
    ADD DI,16        ;
    MOV BP,DX        ;
    ADD BP,16        ;
    MOV AH,0CH       ;
    MOV AL,COLOR     ;
    MOV BH,0         ;
    LEA SI,HZBUF     ;
NEXT2:
    MOV BX,[SI]      ;
    XCHG BH,BL
NEXT1:
    ROL BX,1         ;
    PUSH BX          ;
    AND BX,1         ;
    CMP BX,0         ;
    JZ NEXT          ;
    INT 10H          ;
NEXT:
    INC CX           ;
    POP BX           ;
    CMP CX,DI        ;
    JB NEXT1         ;
    SUB CX,16        ;
    INC DX           ;
    INC SI           ;
    INC SI           ;
    CMP DX,BP        ;
    JB  NEXT2        ;
    LEA SI,XPOINTER  ;
    MOV AX,[SI]      ;
    ADD AX,16        ;
    MOV [SI],AX      ;
    POP BP           ;
    POP DI           ;
    POP SI           ;
    POP DX           ;
    POP CX           ;
    POP BX           ;
    POP AX           ;
    POP SI
    INC SI
    INC SI
INIT3:
    LEA BX,INIT1
    JMP BX
EXIT:
    pop si
    LEA SI,HZKHD
    MOV BX,[SI]
    MOV AH,3EH
    INT 21H
    POP ES
    POP DS
    POP BP
    POP DI
    POP SI
    POP DX
    POP CX
    POP BX
    POP AX
ENDM