虚拟实现汉字系统----VVDOS -- 源码 -- 保护模式程序 - 2

2024-04-26 17:08
文章标签 实现 源码 程序 虚拟 保护模式 汉字系统 vvdos

本文主要是介绍虚拟实现汉字系统----VVDOS -- 源码 -- 保护模式程序 - 2，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

虚拟实现汉字系统----VVDOS -- 源码 -- 保护模式程序 - 2

1、HZ27.INC
; HZ27.inc
;
;
;
;
;
;
;
os32_code segment use32 public
assume cs:os32_code,ds:data
BeginPut proc near
mov dx,3ceh
mov al,5   ; write 0
out dx,al
inc dx
mov al,0
out dx,al
mov dx,3ceh
mov al,1   ; enable set /reset register
out dx,al
inc dx
mov al,0fh
out dx,al
ret
BeginPut endp
EndPut proc near
mov dx,3ceh
mov al,0   ; default set/reset value
out dx,al
inc dx
out dx,al
dec dx
mov al,1   ; default enable set/reset value
out dx,al
inc dx
mov al,0
out dx,al
dec dx
mov al,8   ;default bit mask value
out dx,al
inc dx
mov al,0ffh
out dx,al
ret
EndPut endp
; seg:   ds=OS32DataSel,es=User32DataSel
;par
;edi: GraphOffset
;ch: color
;cl:   bitmask   can put 8 points to screen
PutPixel macro
mov dx,3ceh
mov al,0   ; set /reset register
out dx,al
inc dx
mov al,ch   ; color only 8 bits
out dx,al
dec dx
mov al,8   ; bit mask register
out dx,al
inc dx
mov al,cl
out dx,al
or byte ptr es:[edi],al ; update the pixel
endm
;para
;edi: first offset
;ax: ah:attrib,al:8bits
Put8Pixel proc near
push eax
mov ch,ah
and ch,0fh ; fore color
mov cl,al
  ;call PutPixel
PutPixel
pop eax
mov ch,ah
and ch,0f0h
shr ecx,4
not al
mov cl,al
  ;call PutPixel
PutPixel
ret
Put8Pixel endp
;para al:char,ah:attr
;edi: graphoffset
PutChar proc near
mov tmpcolor,ah
call GetTextCodeAddress ; get esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
add edi,(640/8)
mov loopvar,16
tloopcont:
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
inc esi
add edi,(640/8)
dec loopvar
cmp loopvar,0
ja tloopcont
dec esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
ret
PutChar endp

;para al: char code
;RET esi: first offset
GetTextCodeAddress proc near
and eax,0ffh   ; only low 8 bits
sal eax,4
add eax,TextCodeAddress
mov esi,eax
ret
GetTextCodeAddress endp
;para ax:char,bl:color
;edi:offset
PutHZ proc near
push eax
mov tmpcolor,bl
mov tmpoffset,edi
call GetHZCodeAddress
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
add edi,(640/8)
mov loopvar,16
htloopcont:
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
inc esi
inc esi
add edi,640/8
dec loopvar
cmp loopvar,0
ja htloopcont
dec esi
dec esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
pop eax
call GetHZCodeAddress
mov edi,tmpoffset
inc edi
inc esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
add edi,640/8
dec esi
mov loopvar,16
htloopcont2:
inc esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
inc esi
add edi,640/8
dec loopvar
cmp loopvar,0
ja htloopcont2
dec esi
mov al,es:[esi]
mov ah,tmpcolor
call Put8Pixel
ret
PutHZ endp

;para ax: ax: al,first code ah: second code
;RET esi: 32 bits abs Address
GetHZCodeAddress proc near
xor ebx,ebx
mov ecx,ebx
sub al,0ah
sub ah,0ah
and ax,7f7fh
cmp al,24
jae goto
sub ah,23
mov cl,ah
xor eax,eax
mov al,cl
sal eax,5
sub eax,127*32
add eax,HZCodeAddress
mov esi,eax
ret

goto:
sub al,23
sub ah,23
mov cx,ax
xor eax,eax
mov al,cl
mov bl,94
mul bl       ;   ☆★
mov cl,ch
xor ch,ch
add ax,cx
sub ax,7fh   ; think it
sal eax,5
add eax,HZCodeAddress
mov esi,eax
ret
GetHZCodeAddress endp
GetXY proc near
mov dl,BIOSCurX
mov dh,BIOSCurY
mov ch,7   ; first line
mov cl,9           ; last line
ret
GetXY endp
GotoXY proc near
mov BIOSCurX,dl
mov BIOSCurY,dh
ret
GotoXY endp
os32_code ends
data segment use16 public
textWidth dd 79
textHigh dd 24
GraphWidth dd 640
GraphHigh dd 480
GraphTextWidth dd 8
GraphTextHigh dd 16
data ends

data segment use16 public
Int8IsRun dd 0
Int8IsRun1 dd 0
error_code dd 0
curx dd 0
cury dd 0
oldx db 0
oldy db 0
loopvar   dd 0
tmpcolor   db 0
entervar dd 0
tmpoffset dd 0
tmpsave   dw 0
tmpcurline db 0
data ends
data segment use16 public
TextCodeAddress dd 811934 ; rom 8*16 bits char code
ScreenBufBase dd 0b8000h
GraphDataBase dd 0a0000h ;may movable
PageA0000HBase dd ?
PageB8000HBase dd ?
PageE0000HBase dd ?

HZCodeAddress dd 0     ; HZ16 address
CodeAddress dd 0         ; 64k free memory,4k size
VirtualPageAddress dd 0 ; in CodeAddress
TextBufAddress dd 0
VirtualPage2Address dd 0
NowCodeAddress dd 0
HZExample   db '王',0,0,0
data ends
os32_code segment use32 public
assume cs:os32_code,ds:data
CompScreenAndTextBuf proc near
mov cury,0
call BeginPut
NextLine:
mov esi,VirtualPageAddress ;ScreenBufBase
mov edi,TextBufAddress
mov curx,0
mov eax,cury
mov edx,160
mul edx
add esi,eax
add edi,eax
NextChar:
mov eax,es:[esi]
cmp curx,79
je ascChar
call IsTableChar
jc ascChar
  cmp eax,es:[edi]
  je DoneThisHZ
  mov es:[edi],eax
  pushad
  call GetGraphAbsOffset
  mov ax,es:[esi]
  mov bl,ah
  mov ah,es:[esi]+2
  call PutHZ
  popad
DoneThisHZ:
  inc esi
  inc esi
  inc edi
  inc edi
  inc curx
  jmp DoneThisChar
ascChar:
  cmp ax,es:[edi]
  je DoneThisChar
  mov es:[edi],ax
  pushad
  call GetGraphAbsOffset
  mov ax,es:[esi]
  call PutChar
  popad
DoneThisChar:
inc esi
inc esi
inc edi
inc edi
inc curx
cmp curx,80
jb NextChar
inc cury
cmp cury,25
jb NextLine
call EndPut
ret
CompScreenAndTextBuf endp
GetSameChar proc near ;   cl: char :ch
push ebx
xor ecx,ecx
mov edx,ecx
sub ebx,6
cmp al,es:[ebx]
jne same_1
inc cl
same_1:
add ebx,2
cmp al,es:[ebx]
jne same_2
inc cl
same_2:
add ebx,2
cmp al,es:[ebx]
jne same_3
inc cl
inc dl
same_3:
add ebx,4
cmp al,es:[ebx]
jne same_4
inc dl
inc ch
same_4:
add ebx,2
cmp al,es:[ebx]
jne same_5
inc ch
same_5:
add ebx,2
cmp al,es:[ebx]
jne same_6
inc ch
same_6:
sub ebx,6
sub ebx,480
cmp al,es:[ebx]
jne same_7
inc dl
same_7:
add ebx,160
cmp al,es:[ebx]
jne same_71
inc dl
same_71:
add ebx,160
cmp al,es:[ebx]
jne same_8
inc dl
same_8:
add ebx,320
cmp al,es:[ebx]
jne same_9
inc dh
same_9:
add ebx,160
cmp al,es:[ebx]
jne same_10
inc dh
same_10:
add ebx,160
cmp al,es:[ebx]
jne same_101
inc dh
same_101:
pop ebx
ret
GetSameChar endp
GetNextChar proc near
push ebx
inc ebx
inc ebx
mov dx,es:[ebx]
pop ebx
ret
GetNextChar endp
GetLastChar proc near
push ebx
dec ebx
dec ebx
mov dx,es:[ebx]
pop ebx
ret
GetLastChar endp
GetUpChar proc near
push ebx
sub ebx,160
mov dx,es:[ebx]
pop ebx
ret
GetUpChar endp
GetDownChar proc near
push ebx
add ebx,160
mov dx,es:[ebx]
pop ebx
ret
GetDownChar endp
GetNextNextChar proc near
push ebx
inc ebx
inc ebx
inc ebx
inc ebx
mov dx,es:[ebx]
pop ebx
ret
GetNextNextChar endp
GetLastLastChar proc near
push ebx
dec ebx
dec ebx
dec ebx
dec ebx
mov dx,es:[ebx]
pop ebx
ret
GetLastLastChar endp
GetUpUpChar proc near
push ebx
sub ebx,320
mov dx,es:[ebx]
pop ebx
ret
GetUpUpChar endp
GetDownDownChar proc near
push ebx
add ebx,320
mov dx,es:[ebx]
pop ebx
ret
GetDownDownChar endp

IsTableChar proc near
mov ebx,esi
cmp al,176
je isBlockChar
cmp al,177
je isBlockChar
cmp al,178
je isBlockChar
cmp al,219
je isHalfBlockChar
cmp al,220
je isAscTableChar
cmp al,221
je isAscTableChar
cmp al,222
je isHZCodeChar
cmp al,223
je isAscTableChar
cmp al,196
je isLine196Char
cmp al,205
je isLine205Char
cmp al,179
je isLine179Char
cmp al,186
je isLine186Char
cmp al,218
je isLine218Char
cmp al,195
je isLine195Char
cmp al,192
je isLine192Char
cmp al,194
je isLine194Char
cmp al,197
je isLine197Char
cmp al,193
je isLine193Char
cmp al,191
je isLine191Char
cmp al,180
je isLine180Char
cmp al,217
je isLine217Char
cmp al,201
je isLine201Char
cmp al,204
je isLine204Char
cmp al,200
je isLine200Char
cmp al,203
je isLine203Char
cmp al,206
je isLine206Char
cmp al,202
je isLine202Char
cmp al,187
je isLine187Char
cmp al,185
je isLine185Char
cmp al,188
je isLine188Char

jmp isHZCodeChar
isBlockChar:
  call GetSameChar
  cmp cl,3
  jae isAscTableChar
  cmp ch,3
  jae isAscTableChar
  cmp dl,3
  jae isAscTableChar
  cmp dh,3
  jae isAscTableChar
  jmp isHZCodeChar
isHalfBlockChar:
  call GetSameChar
  cmp cl,3
  jae isAscTableChar
  cmp ch,3
  jae isAscTableChar
  cmp dl,3
  jae isAscTableChar
  cmp dh,3
  jae isAscTableChar
  jmp isHZCodeChar
isLine196Char:
  call GetLastChar
  cmp dl,196
  je isChar196Cont1
  call GetNextChar
  cmp dl,196
  je isChar196Cont2
  jmp isHZCodeChar
isChar196Cont1:
  call GetNextChar
  cmp dl,196
  je isChar196Cont1_1
  cmp dl,194
  je isChar196Cont1_1
  cmp dl,197
  je isChar196Cont1_1
  cmp dl,193
  je isChar196Cont1_1
  cmp dl,191
  je isChar196Cont1_1
  cmp dl,180
  je isChar196Cont1_1
  cmp dl,217
  je isChar196Cont1_1
  jmp isHZCodeChar
isChar196Cont1_1:
  call GetLastLastChar
  cmp dl,196
  je isChar196Cont1_2
  cmp dl,218
  je isChar196Cont1_2
  cmp dl,195
  je isChar196Cont1_2
  cmp dl,192
  je isChar196Cont1_2
  cmp dl,194
  je isChar196Cont1_2
  cmp dl,197
  je isChar196Cont1_2
  cmp dl,193
  je isChar196Cont1_2
  jmp isHZCodeChar
isChar196Cont1_2:
  jmp isAscTableChar
isChar196Cont2:
  call GetLastChar
  cmp dl,218
  je isChar196Cont2_1
  cmp dl,195
  je isChar196Cont2_1
  cmp dl,192
  je isChar196Cont2_1
  cmp dl,194
  je isChar196Cont2_1
  cmp dl,197
  je isChar196Cont2_1
  cmp dl,193
  je isChar196Cont2_1
  jmp isHZCodeChar
isChar196Cont2_1:
  call GetNextNextChar
  cmp dl,196
  je isChar196Cont2_2
  cmp dl,194
  je isChar196Cont2_2
  cmp dl,197
  je isChar196Cont2_2
  cmp dl,193
  je isChar196Cont2_2
  cmp dl,191
  je isChar196Cont2_2
  cmp dl,180
  je isChar196Cont2_2
  cmp dl,217
  je isChar196Cont2_2
  jmp isHZCodeChar
isChar196Cont2_2:
  jmp isAscTableChar
isLine205Char:
  call GetLastChar
  cmp dl,205
  je isChar205Cont1
  call GetNextChar
  cmp dl,205
  je isChar205Cont2
  jmp isHZCodeChar
isChar205Cont1:
  call GetNextChar
  cmp dl,205
  je isAscTableChar
  cmp dl,203
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,202
  je isAscTableChar
  cmp dl,187
  je isAscTableChar
  cmp dl,185
  je isAscTableChar
  cmp dl,188
  je isAscTableChar
  jmp isHZCodeChar
isChar205Cont2:
  call GetLastChar
  cmp dl,205
  je isAscTableChar
  cmp dl,203
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,202
  je isAscTableChar
  cmp dl,201
  je isAscTableChar
  cmp dl,204
  je isAscTableChar
  cmp dl,200
  je isAscTableChar
  jmp isHZCodeChar
isLine179Char:
  call GetUpChar
  cmp dl,179
  je isChar179Cont1
  call GetDownChar
  cmp dl,179
  je isChar179Cont2
  jmp isHZCodeChar
isChar179Cont1:
  call GetDownChar
  cmp dl,179
  je isChar179Cont1_1
  cmp dl,195
  je isChar179Cont1_2
  cmp dl,197
  je isChar179Cont1_2
  cmp dl,180
  je isChar179Cont1_2
  cmp dl,192
  je isChar179Cont1_2
  cmp dl,193
  je isChar179Cont1_2
  cmp dl,217
  je isChar179Cont1_2
  jmp isHZCodeChar
isChar179Cont1_1:
  call GetDownDownChar
  cmp dl,179
  je isAscTableChar
  cmp dl,195
  je isAscTableChar
  cmp dl,197
  je isAscTableChar
  cmp dl,180
  je isAscTableChar
  cmp dl,192
  je isAscTableChar
  cmp dl,193
  je isAscTableChar
  cmp dl,217
  je isAscTableChar
  jmp isHZCodeChar
isChar179Cont1_2:
  call GetUpUpChar
  cmp dl,179
  je isAscTableChar
  cmp dl,195
  je isAscTableChar
  cmp dl,197
  je isAscTableChar
  cmp dl,180
  je isAscTableChar
  cmp dl,218
  je isAscTableChar
  cmp dl,194
  je isAscTableChar
  cmp dl,191
  je isAscTableChar
  jmp isHZCodeChar

isChar179Cont2:
  call GetDownDownChar
  cmp dl,179
  je isChar179Cont2_1
  cmp dl,195
  je isChar179Cont2_1
  cmp dl,197
  je isChar179Cont2_1
  cmp dl,180
  je isChar179Cont2_1
  cmp dl,192
  je isChar179Cont2_1
  cmp dl,193
  je isChar179Cont2_1
  cmp dl,217
  je isChar179Cont2_1
  jmp isHZCodeChar
isChar179Cont2_1:
  call GetUpChar
  cmp dl,179
  je isAscTableChar
  cmp dl,195
  je isAscTableChar
  cmp dl,197
  je isAscTableChar
  cmp dl,180
  je isAscTableChar
  cmp dl,218
  je isAscTableChar
  cmp dl,194
  je isAscTableChar
  cmp dl,191
  je isAscTableChar
  jmp isHZCodeChar
isLine186Char:
  call GetSameChar
  add dh,dl
  cmp dh,3
  jb isHZCodeChar
  call GetUpChar
  cmp dl,186
  je isChar186Cont1
  call GetDownChar
  cmp dl,186
  je isChar186Cont2
  jmp isHZCodeChar
isChar186Cont1:
  call GetUpUpChar
  cmp dl,186
  je isChar186Cont1_1
  cmp dl,204
  je isChar186Cont1_1
  cmp dl,206
  je isChar186Cont1_1
  cmp dl,185
  je isChar186Cont1_1
  cmp dl,201
  je isChar186Cont1_1
  cmp dl,203
  je isChar186Cont1_1
  cmp dl,187
  je isChar186Cont1_1
  jmp isHZCodeChar
isChar186Cont1_1:
  call GetDownChar
  cmp dl,186
  je isChar186Cont1_2
  cmp dl,204
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,185
  je isAscTableChar
  cmp dl,200
  je isAscTableChar
  cmp dl,202
  je isAscTableChar
  cmp dl,188
  je isAscTableChar
  jmp isHZCodeChar
isChar186Cont1_2:
  call GetDownDownChar
  cmp dl,186
  je isAscTableChar
  cmp dl,204
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,185
  je isAscTableChar
  cmp dl,200
  je isAscTableChar
  cmp dl,202
  je isAscTableChar
  cmp dl,188
  je isAscTableChar
  jmp isHZCodeChar
isChar186Cont2:
  call GetDownDownChar
  cmp dl,186
  je isChar186Cont2_1
  cmp dl,204
  je isChar186Cont2_1
  cmp dl,206
  je isChar186Cont2_1
  cmp dl,185
  je isChar186Cont2_1
  cmp dl,200
  je isChar186Cont2_1
  cmp dl,202
  je isChar186Cont2_1
  cmp dl,188
  je isChar186Cont2_1
  jmp isHZCodeChar
isChar186Cont2_1:
  call GetUpChar
  cmp dl,186
  je isChar186Cont2_2
  cmp dl,204
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,185
  je isAscTableChar
  cmp dl,201
  je isAscTableChar
  cmp dl,203
  je isAscTableChar
  cmp dl,187
  je isAscTableChar
  jmp isHZCodeChar
isChar186Cont2_2:
  call GetUpChar
  cmp dl,186
  je isAscTableChar
  cmp dl,204
  je isAscTableChar
  cmp dl,206
  je isAscTableChar
  cmp dl,185
  je isAscTableChar
  cmp dl,201
  je isAscTableChar
  cmp dl,203
  je isAscTableChar
  cmp dl,187
  je isAscTableChar
  jmp isHZCodeChar
;Single line
isLine218Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine195Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
;   call GetUpUpChar
;   cmp dl,179
;   jne isHZCodeChar
;   call GetDownDownChar
;   cmp dl,179
;   jne isHZCodeChar
  jmp isAscTableChar
isLine192Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
;   call GetUpUpChar
;   cmp dl,179
;   jne isHZCodeChar
  jmp isAscTableChar
isLine194Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine197Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine193Char:
  call GetNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,196
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine191Char:
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine180Char:
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetDownChar
  cmp dl,179
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
isLine217Char:
  call GetLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpChar
  cmp dl,179
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,196
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,179
  jne isHZCodeChar
  jmp isAscTableChar
; Double Line
isLine201Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine204Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine200Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine203Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine206Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine202Char:
  call GetNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetNextNextChar
  cmp dl,205
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine187Char:
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine185Char:
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownChar
  cmp dl,186
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetDownDownChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
isLine188Char:
  call GetLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpChar
  cmp dl,186
  jne isHZCodeChar
  call GetLastLastChar
  cmp dl,205
  jne isHZCodeChar
  call GetUpUpChar
  cmp dl,186
  jne isHZCodeChar
  jmp isAscTableChar
jmp isHZCodeChar
isAscTableChar:
stc
ret
isHZCodeChar:
cmp byte ptr es:[ebx],161
jb isAscTableChar
cmp byte ptr es:[ebx]+2,161
jb isAscTableChar
isRealHZCodeChar:
clc
ret
IsTableChar endp

;para
;ecx:line,edx,col
GetGraphAbsOffset proc near
mov eax,cury
mov edx,1440 ; a line byte size 18*80
mul edx
add eax,curx
add eax,GraphDataBase
mov edi,eax
ret
GetGraphAbsOffset endp
; ret eax:number
GetNumber proc near   ;y*160+x*2
push edx
xor eax,eax
mov al,BIOSCurY
mov dl,160
mul dl
xor edx,edx
mov dl,BIOSCurX
sal edx,1
add eax,edx
pop edx
ret
GetNumber endp

;ret al:char,ah:attrib
GetCharAndAttrib proc near
xor eax,eax
mov al,oldy
mov dl,160
mul dl
xor edx,edx
mov dl,oldx
sal edx,1
add eax,edx
mov esi,TextBufAddress
add esi,eax
mov ax,es:[esi]
ret
GetCharAndAttrib endp
; para oldx,oldy
GetTextAbsOffset proc near
mov dh,oldy
mov dl,oldx
xor eax,eax
mov al,dh
mov bl,dl
mov edx,1440 ; a line byte size 18*80
mul edx
xor edx,edx
mov dl,bl
add eax,edx
add eax,GraphDataBase
mov edi,eax
ret
GetTextAbsOffset endp
DrawLineArrow proc near
mov tmpsave,ax
xor eax,eax
mov edx,eax
mov eax,(640/8)*16
add edi,eax
call BeginPut
mov ax,tmpsave
call Put8Pixel
add edi,640/8
mov ax,tmpsave
call Put8Pixel
call EndPut
ret
DrawLineArrow endp
DrawArrow proc near
cmp CurFirstLine,0fh
ja nodraw
call GetTextAbsOffset
call GetCharAndAttrib
mov al,0ffh
call DrawLineArrow
nodraw:
ret
DrawArrow endp
ClrArrow proc near
call GetTextAbsOffset
call GetCharAndAttrib
mov al,0
call DrawLineArrow
ret
ClrArrow endp
Arrow proc near
inc isArrow
cmp isArrow,2
je DrawIt
cmp isArrow,4
je nodrawIt
jmp endArrow
noDrawIt:
call ClrArrow
mov isArrow,0
jmp endArrow
drawIt:
call ClrArrow
call GetXY
mov oldx,dl
mov oldy,dh
call DrawArrow
endArrow:
ret
Arrow endp
os32_code ends
data segment use16 public
promptX db 0
promptY   db 25
promptLen   db 96/2 ; only 96 char from 4096 bytes.(48 HZ)
promptBuf   dd 0
data ends
os32_code segment use32 public
assume cs:os32_code,ds:data
os32_code ends

这篇关于虚拟实现汉字系统----VVDOS -- 源码 -- 保护模式程序 - 2的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/938153。

相关文章

SpringBoot集成redisson实现延时队列教程

SpringBoot集成redisson实现延时队列教程

《SpringBoot集成redisson实现延时队列教程》文章介绍了使用Redisson实现延迟队列的完整步骤,包括依赖导入、Redis配置、工具类封装、业务枚举定义、执行器实现、Bean创建、消费... 目录1、先给项目导入Redisson依赖2、配置redis3、创建 RedissonConfig 配
阅读更多...
Python的Darts库实现时间序列预测

Python的Darts库实现时间序列预测

《Python的Darts库实现时间序列预测》Darts一个集统计、机器学习与深度学习模型于一体的Python时间序列预测库,本文主要介绍了Python的Darts库实现时间序列预测,感兴趣的可以了解... 目录目录一、什么是 Darts？二、安装与基本配置安装 Darts导入基础模块三、时间序列数据结构与
阅读更多...
Python使用FastAPI实现大文件分片上传与断点续传功能

Python使用FastAPI实现大文件分片上传与断点续传功能

《Python使用FastAPI实现大文件分片上传与断点续传功能》大文件直传常遇到超时、网络抖动失败、失败后只能重传的问题,分片上传+断点续传可以把大文件拆成若干小块逐个上传,并在中断后从已完成分片继... 目录一、接口设计二、服务端实现（FastAPI）2.1 运行环境2.2 目录结构建议2.3 serv
阅读更多...
C#实现千万数据秒级导入的代码

C#实现千万数据秒级导入的代码

《C#实现千万数据秒级导入的代码》在实际开发中excel导入很常见,现代社会中很容易遇到大数据处理业务,所以本文我就给大家分享一下千万数据秒级导入怎么实现,文中有详细的代码示例供大家参考,需要的朋友可... 目录前言一、数据存储二、处理逻辑优化前代码处理逻辑优化后的代码总结前言在实际开发中excel导入很
阅读更多...
SpringBoot+RustFS 实现文件切片极速上传的实例代码

SpringBoot+RustFS 实现文件切片极速上传的实例代码

《SpringBoot+RustFS实现文件切片极速上传的实例代码》本文介绍利用SpringBoot和RustFS构建高性能文件切片上传系统,实现大文件秒传、断点续传和分片上传等功能,具有一定的参考... 目录一、为什么选择 RustFS + SpringBoot？二、环境准备与部署2.1 安装 RustF
阅读更多...
Nginx部署HTTP/3的实现步骤

Nginx部署HTTP/3的实现步骤

《Nginx部署HTTP/3的实现步骤》本文介绍了在Nginx中部署HTTP/3的详细步骤,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要的朋友们下面随着小编来一起学... 目录前提条件第一步：安装必要的依赖库第二步：获取并构建 BoringSSL第三步：获取 Nginx
阅读更多...
MyBatis Plus实现时间字段自动填充的完整方案

MyBatis Plus实现时间字段自动填充的完整方案

《MyBatisPlus实现时间字段自动填充的完整方案》在日常开发中,我们经常需要记录数据的创建时间和更新时间,传统的做法是在每次插入或更新操作时手动设置这些时间字段,这种方式不仅繁琐,还容易遗漏,... 目录前言解决目标技术栈实现步骤1. 实体类注解配置2. 创建元数据处理器3. 服务层代码优化填充机制详
阅读更多...
Python实现Excel批量样式修改器(附完整代码)

Python实现Excel批量样式修改器(附完整代码)

《Python实现Excel批量样式修改器(附完整代码)》这篇文章主要为大家详细介绍了如何使用Python实现一个Excel批量样式修改器,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一... 目录前言功能特性核心功能界面特性系统要求安装说明使用指南基本操作流程高级功能技术实现核心技术栈关键函
阅读更多...
Java实现字节字符转bcd编码

Java实现字节字符转bcd编码

《Java实现字节字符转bcd编码》BCD是一种将十进制数字编码为二进制的表示方式,常用于数字显示和存储,本文将介绍如何在Java中实现字节字符转BCD码的过程,需要的小伙伴可以了解下... 目录前言BCD码是什么Java实现字节转bcd编码方法补充总结前言BCD码（Binary-Coded Decima
阅读更多...
python获取指定名字的程序的文件路径的两种方法

python获取指定名字的程序的文件路径的两种方法

《python获取指定名字的程序的文件路径的两种方法》本文主要介绍了python获取指定名字的程序的文件路径的两种方法,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学习价值,需要... 最近在做项目，需要用到给定一个程序名字就可以自动获取到这个程序在Windows系统下的绝对路径，以下
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2