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

相关文章

golang版本升级如何实现

golang版本升级如何实现

《golang版本升级如何实现》：本文主要介绍golang版本升级如何实现问题,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录golanwww.chinasem.cng版本升级linux上golang版本升级删除golang旧版本安装golang最新版本总结gola
阅读更多...
SpringBoot中SM2公钥加密、私钥解密的实现示例详解

SpringBoot中SM2公钥加密、私钥解密的实现示例详解

《SpringBoot中SM2公钥加密、私钥解密的实现示例详解》本文介绍了如何在SpringBoot项目中实现SM2公钥加密和私钥解密的功能,通过使用Hutool库和BouncyCastle依赖,简化... 目录一、前言1、加密信息(示例)2、加密结果(示例)二、实现代码1、yml文件配置2、创建SM2工具
阅读更多...
Mysql实现范围分区表(新增、删除、重组、查看)

Mysql实现范围分区表(新增、删除、重组、查看)

《Mysql实现范围分区表(新增、删除、重组、查看)》MySQL分区表的四种类型（范围、哈希、列表、键值）,主要介绍了范围分区的创建、查询、添加、删除及重组织操作,具有一定的参考价值,感兴趣的可以了解... 目录一、mysql分区表分类二、范围分区（Range Partitioning1、新建分区表：2、分
阅读更多...
MySQL 定时新增分区的实现示例

MySQL 定时新增分区的实现示例

《MySQL定时新增分区的实现示例》本文主要介绍了通过存储过程和定时任务实现MySQL分区的自动创建,解决大数据量下手动维护的繁琐问题,具有一定的参考价值,感兴趣的可以了解一下... mysql创建好分区之后，有时候会需要自动创建分区。比如，一些表数据量非常大，有些数据是热点数据，按照日期分区MululbU
阅读更多...
MySQL中查找重复值的实现

MySQL中查找重复值的实现

《MySQL中查找重复值的实现》查找重复值是一项常见需求,比如在数据清理、数据分析、数据质量检查等场景下,我们常常需要找出表中某列或多列的重复值,具有一定的参考价值,感兴趣的可以了解一下... 目录技术背景实现步骤方法一：使用GROUP BY和HAVING子句方法二：仅返回重复值方法三：返回完整记录方法四：
阅读更多...
IDEA中新建/切换Git分支的实现步骤

IDEA中新建/切换Git分支的实现步骤

《IDEA中新建/切换Git分支的实现步骤》本文主要介绍了IDEA中新建/切换Git分支的实现步骤,通过菜单创建新分支并选择是否切换,创建后在Git详情或右键Checkout中切换分支,感兴趣的可以了... 前提：项目已被Git托管1、点击上方栏Git->NewBrancjsh...2、输入新的分支的
阅读更多...
Python实现对阿里云OSS对象存储的操作详解

Python实现对阿里云OSS对象存储的操作详解

《Python实现对阿里云OSS对象存储的操作详解》这篇文章主要为大家详细介绍了Python实现对阿里云OSS对象存储的操作相关知识,包括连接,上传,下载,列举等功能,感兴趣的小伙伴可以了解下... 目录一、直接使用代码二、详细使用1. 环境准备2. 初始化配置3. bucket配置创建4. 文件上传到os
阅读更多...
关于集合与数组转换实现方法

关于集合与数组转换实现方法

《关于集合与数组转换实现方法》：本文主要介绍关于集合与数组转换实现方法,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地方,望不吝赐教... 目录1、Arrays.asList()1.1、方法作用1.2、内部实现1.3、修改元素的影响1.4、注意事项2、list.toArray()2.1、方
阅读更多...
使用Python实现可恢复式多线程下载器

使用Python实现可恢复式多线程下载器

《使用Python实现可恢复式多线程下载器》在数字时代,大文件下载已成为日常操作,本文将手把手教你用Python打造专业级下载器,实现断点续传,多线程加速,速度限制等功能,感兴趣的小伙伴可以了解下... 目录一、智能续传：从崩溃边缘抢救进度二、多线程加速：榨干网络带宽三、速度控制：做网络的好邻居四、终端交互
阅读更多...
java实现docker镜像上传到harbor仓库的方式

java实现docker镜像上传到harbor仓库的方式

《java实现docker镜像上传到harbor仓库的方式》：本文主要介绍java实现docker镜像上传到harbor仓库的方式,具有很好的参考价值,希望对大家有所帮助,如有错误或未考虑完全的地... 目录1. 前 言2. 编写工具类2.1 引入依赖包2.2 使用当前服务器的docker环境推送镜像2.2
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2