虚拟实现汉字系统----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。

相关文章

使用Python和OpenCV库实现实时颜色识别系统

使用Python和OpenCV库实现实时颜色识别系统

《使用Python和OpenCV库实现实时颜色识别系统》：本文主要介绍使用Python和OpenCV库实现的实时颜色识别系统,这个系统能够通过摄像头捕捉视频流,并在视频中指定区域内识别主要颜色（红... 目录一、引言二、系统概述三、代码解析1. 导入库2. 颜色识别函数3. 主程序循环四、HSV色彩空间详解
阅读更多...
PostgreSQL中MVCC 机制的实现

PostgreSQL中MVCC 机制的实现

《PostgreSQL中MVCC机制的实现》本文主要介绍了PostgreSQL中MVCC机制的实现,通过多版本数据存储、快照隔离和事务ID管理实现高并发读写,具有一定的参考价值,感兴趣的可以了解一下... 目录一 MVCC 基本原理python1.1 MVCC 核心概念1.2 与传统锁机制对比二 Postg
阅读更多...
SpringBoot整合Flowable实现工作流的详细流程

SpringBoot整合Flowable实现工作流的详细流程

《SpringBoot整合Flowable实现工作流的详细流程》Flowable是一个使用Java编写的轻量级业务流程引擎,Flowable流程引擎可用于部署BPMN2.0流程定义,创建这些流程定义的... 目录1、流程引擎介绍2、创建项目3、画流程图4、开发接口4.1 Java 类梳理4.2 查看流程图4
阅读更多...
C++中零拷贝的多种实现方式

C++中零拷贝的多种实现方式

《C++中零拷贝的多种实现方式》本文主要介绍了C++中零拷贝的实现示例,旨在在减少数据在内存中的不必要复制,从而提高程序性能、降低内存使用并减少CPU消耗,零拷贝技术通过多种方式实现,下面就来了解一下... 目录一、C++中零拷贝技术的核心概念二、std::string_view 简介三、std::stri
阅读更多...
C++高效内存池实现减少动态分配开销的解决方案

C++高效内存池实现减少动态分配开销的解决方案

《C++高效内存池实现减少动态分配开销的解决方案》C++动态内存分配存在系统调用开销、碎片化和锁竞争等性能问题,内存池通过预分配、分块管理和缓存复用解决这些问题,下面就来了解一下... 目录一、C++内存分配的性能挑战二、内存池技术的核心原理三、主流内存池实现：TCMalloc与Jemalloc1. TCM
阅读更多...
OpenCV实现实时颜色检测的示例

OpenCV实现实时颜色检测的示例

《OpenCV实现实时颜色检测的示例》本文主要介绍了OpenCV实现实时颜色检测的示例,通过HSV色彩空间转换和色调范围判断实现红黄绿蓝颜色检测,包含视频捕捉、区域标记、颜色分析等功能,具有一定的参考... 目录一、引言二、系统概述三、代码解析1. 导入库2. 颜色识别函数3. 主程序循环四、HSV色彩空间
阅读更多...
Python实现精准提取 PDF中的文本,表格与图片

Python实现精准提取 PDF中的文本,表格与图片

《Python实现精准提取PDF中的文本,表格与图片》在实际的系统开发中,处理PDF文件不仅限于读取整页文本,还有提取文档中的表格数据,图片或特定区域的内容,下面我们来看看如何使用Python实... 目录安装 python 库提取 PDF 文本内容：获取整页文本与指定区域内容获取页面上的所有文本内容获取
阅读更多...
基于Python实现一个Windows Tree命令工具

基于Python实现一个Windows Tree命令工具

《基于Python实现一个WindowsTree命令工具》今天想要在Windows平台的CMD命令终端窗口中使用像Linux下的tree命令,打印一下目录结构层级树,然而还真有tree命令,但是发现... 目录引言实现代码使用说明可用选项示例用法功能特点添加到环境变量方法一：创建批处理文件并添加到PATH1
阅读更多...
Java使用HttpClient实现图片下载与本地保存功能

Java使用HttpClient实现图片下载与本地保存功能

《Java使用HttpClient实现图片下载与本地保存功能》在当今数字化时代,网络资源的获取与处理已成为软件开发中的常见需求,其中,图片作为网络上最常见的资源之一,其下载与保存功能在许多应用场景中都... 目录引言一、Apache HttpClient简介二、技术栈与环境准备三、实现图片下载与保存功能1.
阅读更多...
canal实现mysql数据同步的详细过程

canal实现mysql数据同步的详细过程

《canal实现mysql数据同步的详细过程》：本文主要介绍canal实现mysql数据同步的详细过程,本文通过实例图文相结合给大家介绍的非常详细,对大家的学习或工作具有一定的参考借鉴价值,需要的... 目录1、canal下载2、mysql同步用户创建和授权3、canal admin安装和启动4、canal
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2