|
|
CODE SEGMENTASSUME CS:CODE,DS:CODE
ORG 100h
INCLUDE EQU.INC
Start: jmp PrgStart
eom = 0
LogoPos = 0600hCodePos = LogoPos+421hMemPos = LogoPos+521hFilePos = LogoPos+621hPrinterPos = LogoPos+721hHekeyPos = LogoPos+821hHjkeyPos = LogoPos+921hKbdPos = LogoPos+0a21hHelpPos = LogoPos+0C10h
MenuData STRUCmFlag db ?mCurPos dw ?mFlagAddr dw ?mKbdSrv dw ?mMaxItem db ?mCurItem db ?mHelpMsg dw ?mMenuMsg dw ?MenuData ENDS
; mFlagByteDisp = 00000010bStringDisp = 00000100b
;------------------------LogoMsg label byte db ' ���������������������������������������������������Ŀ',cr,lf db ' � HanGeul BIOS setup program Version 6.12 �',cr,lf db ' � (C)Copyright Qnix computer Co., Ltd. 1992 �',cr,lf db ' ���������������������������������������������������Ĵ',cr,lf db ' � CODE/SPEC. � �',cr,lf db ' � FONT MEMORY � �',cr,lf db ' � FONT FILENAME � �',cr,lf db ' � PRINTER TYPE � �',cr,lf db ' � HAN/ENG KEY � �',cr,lf db ' � HANJA KEY � �',cr,lf db ' � KBD TYPE � �',cr,lf db ' ���������������������������������������������������Ĵ',cr,lf db ' � �',cr,lf db ' �����������������������������������������������������'LogoLng = $-LogoMsg
MenuSelHelp db 'USAGE : cursor, enter, ESC ',eomStringSelHelp label byteCodeSelHelp db 'USAGE : up, down, BS, enter, ESC',eomCodeSelHelpLng = $-CodeSelHelp-1SaveMsg db ' Save and exit (N/y) ',eomDefaultMsg db 'default',eomDefaultMsgLng = $-DefaultMsg-1FileCreatErrMsg db cr,lf,'File creation error !',7,cr,lf,'$'
;------------------------GrpCnvtTbl db '�','' db '�','' db '�','' db '�','' db '�','' db '�','' db '�','' db '�','' db '�','' db '�',''GrpCnvtTblLng = ($-GrpCnvtTbl)/2
;------------------------MenuSelect label byte db 48h,1 ; up db 50h,2 ; down db 4bh,3 ; left db 4dh,4 ; right db 1ch,5 ; enter db 01h,6 ; ESC dw -1
MakeCode label byte db 48h,1 ; up db 50h,2 ; down db 4bh,8 ; left db 4dh,9 ; right db 1ch,5 ; enter db 01h,6 ; ESC dw -1
MakeString label byte db 48h,1 ; up db 50h,2 ; down db 1ch,5 ; enter db 01h,6 ; ESC db 0eh,7 ; BS dw -1
;------------------------MainTbl label word dw offset Sub1Tbl dw offset Sub2Tbl dw offset Sub3Tbl dw offset Sub4Tbl dw offset Sub5Tbl dw offset Sub6Tbl dw offset Sub7TblMainTblLng = ($-MainTbl)/2
Sub1Tbl label byte db 0 dw CodePos dw offset Sub1DataTbl dw offset KbdMenu db Sub1DataTblLngCurCode db 1 dw offset MenuSelHelp dw offset Sub1Msg1 dw offset Sub1Msg2 dw offset Sub1Msg3 dw offset Sub1Msg4Sub1Msg1 db 'English ',eomSub1Msg2 db 'KS C 5842 - 1991',eomSub1Msg3 db 'Chohab ',eomSub1Msg4 db 'Wansung 7 bit ',eomSub1DataTbl label byte db 0 db WSung or HangeulMode db Chab or HangeulMode db WSung7 or HangeulModeSub1DataTblLng = $-Sub1DataTbl
Sub2Tbl label byte db 0 dw MemPos dw offset Sub2DataTbl dw offset KbdMenu db Sub2DataTblLngCurMem db 0 dw offset MenuSelHelp dw offset Sub2Msg1 dw offset Sub2Msg2 dw offset Sub2Msg3 dw offset Sub2Msg4 dw offset Sub2Msg5Sub2Msg1 db 'Automatic',eomSub2Msg2 db 'HIMEM ',eomSub2Msg3 db 'EMS ',eomSub2Msg4 db 'Extended ',eomSub2Msg5 db 'Real ',eomSub2DataTbl label byte db 0 db HiMem db EmsMem db ExtMem db RealMemSub2DataTblLng = $-Sub2DataTbl
Sub3Tbl label byte db StringDisp dw FilePos dw offset FontFileName dw offset KbdString db 1 db 0 dw offset StringSelHelp
Sub4Tbl label byte db 0 dw PrinterPos dw offset Sub4DataTbl dw offset KbdMenu db Sub4DataTblLngCurPrinter db 1 dw offset MenuSelHelp dw offset Sub4Msg1 dw offset Sub4Msg2 dw offset Sub4Msg3 dw offset Sub4Msg4 dw offset Sub4Msg5 dw offset Sub4Msg6Sub4Msg1 db 'none select ',eomSub4Msg2 db 'KS ',eomSub4Msg3 db 'QLBP ',eomSub4Msg4 db 'KSSM ',eomSub4Msg5 db 'KSSM(Chohab)',eomSub4Msg6 db 'TG(Chohab) ',eomSub4DataTbl label byte db NoPrt db KsPrt db wLbp db wKmPrt db cKmPrt db TgPrtSub4DataTblLng = $-Sub4DataTbl
Sub5Tbl label byte db ByteDisp dw HekeyPos dw offset HeKey dw offset KbdCode db 1 db 0 dw offset MenuSelHelp
Sub6Tbl label byte db ByteDisp dw HjkeyPos dw offset HjKey dw offset KbdCode db 1 db 0 dw offset MenuSelHelp
Sub7Tbl label byte db 0 dw KbdPos dw offset Sub7DataTbl dw offset KbdMenu db Sub7DataTblLngCurKbd db 0 dw offset MenuSelHelp dw offset Sub7Msg1 dw offset Sub7Msg2Sub7Msg1 db 'Default',eomSub7Msg2 db '101 KBD',eomSub7DataTbl label byte db 0 db SetKbd101Sub7DataTblLng = $-Sub7DataTbl
;------------------------MenuPos dw 0 ; main table indexCharCnt dw 0 ; char counterCurPos dw FilePos
OrgMode db 0NorAttr db 0SelAttr db 0BakAttr db 0
FileName db 'C:\HECON.CFG',eomHandle dw 0
;------------------------ConfigData label byteCfgFilename db 'HECON.CFG' ; 9 byteCodeStat db HangeulModeFontFileName db 'FONT.SYS' db 24 dup(0) ; drive/path/filenameMemStat db 0 ; real/EMS/ext./HIMEMHeKey db 0HjKey db 0PrinterStat db 0KbdType db 0 db 3 dup(0) ; reserved
;------------------------PrgStart: call Modeset call SetAttribute call DisplayLogo call OpenFile call DisplayAll mov ah,1 xor bh,bh mov cx,220dh int 10h call Action call RestoreScreenExit: mov ah,4ch int 21h
;------------------------------------------------------------------------Modeset: mov ah,0fh int 10h mov [OrgMode],al int 11h test al,30h mov ax,7 jpe @f mov al,3@@: int 10h mov ah,1 mov cx,2000h int 10h ret
;------------------------SetAttribute: int 11h mov [NorAttr],70h mov [SelAttr],7 mov [BakAttr],70h cmp al,30h jpe @f mov [NorAttr],70h mov [SelAttr],7 mov [BakAttr],70h@@: ret
;------------------------DisplayLogo: mov ax,920h xor bh,bh mov bl,[BakAttr] mov cx,80*25 int 10h push es mov ax,0fd00h int 10h mov si,bx mov si,es:[si+16] mov ah,byte ptr es:[si+7+4+1] pop es cmp al,0fdh jnz DisplayLogoDo ; jump if english environment test ah,00000001b jz DisplayLogoDo ; jump if english mode mov di,offset LogoMsg mov cx,LogoLng@@: mov al,[di] call ChgTblGrp mov [di],al inc di loop @bDisplayLogoDo: mov bp,offset LogoMsg mov dx,LogoPos mov cx,LogoLng mov bl,[NorAttr] xor bh,bh mov ax,1300h int 10h retChgTblGrp: push cx mov bl,al mov si,offset GrpCnvtTbl mov cx,GrpCnvtTblLng@@: lodsw cmp al,bl jz @f loop @b mov ah,bl@@: mov al,ah pop cx ret
;------------------------OpenFile: mov ah,19h int 21h cmp al,2 jbe @f mov al,2@@: add al,'A' mov si,offset Filename mov [si],al ; set drive latter mov dx,offset FileName mov ax,3d02h int 21h jc GetConfigFileCreat mov [Handle],ax mov dx,offset ConfigData mov ah,3fh mov bx,[Handle] mov cx,50 int 21h jnc GetConfigFileReadGetConfigFileCreat: mov dx,offset FileName mov ah,3ch mov cx,2 ; hidden file int 21h mov [Handle],ax jnc @f mov ah,9 mov dx,offset FileCreatErrMsg int 21h@@: retGetConfigFileRead: mov si,offset CfgFilename mov di,offset FileName add di,3 mov cx,9 rep cmpsb jnz GetConfigFileCreat; mov ah,[CodeStat] and ah,not ChabLoad mov si,offset Sub1DataTbl mov bx,si mov cx,Sub1DataTblLng@@: lodsb cmp al,ah jz @f loop @b@@: sub si,bx mov bx,si dec bx mov [CurCode],bl; mov ah,[MemStat] mov si,offset Sub2DataTbl mov bx,si mov cx,Sub2DataTblLng@@: lodsb cmp al,ah jz @f loop @b@@: sub si,bx mov bx,si dec bx mov [CurMem],bl; mov ah,[PrinterStat] mov si,offset Sub4DataTbl mov bx,si mov cx,Sub4DataTblLng@@: lodsb cmp al,ah jz @f loop @b@@: sub si,bx mov bx,si dec bx mov [CurPrinter],bl; mov ah,[KbdType] mov si,offset Sub7DataTbl mov bx,si mov cx,Sub7DataTblLng@@: lodsb cmp al,ah jz @f loop @b@@: sub si,bx mov bx,si dec bx mov [CurKbd],bl ret
;------------------------DisplayAll: mov cx,MainTblLng@@: push cx mov bl,[NorAttr] call DispMenu inc [MenuPos] pop cx loop @b mov [MenuPos],0 mov bl,[SelAttr] call DispMenu call DispHelp ret
;------------------------------------------------------------------------Action: xor ah,ah int 16h mov bx,[MenuPos] shl bx,1 mov bx,[bx+MainTbl] call [bx+mKbdSrv] jnc @f mov ax,0e07h int 10h jmp short Action@@: mov cl,ah xor ch,ch shl cx,1 mov si,cx call [si].ActionTbl jnc Action retActionTbl label word dw offset EditString ; 0 dw offset MenuUp ; 1 dw offset MenuDown ; 2 dw offset MenuPost ; 3 dw offset MenuNext ; 4 dw offset CheckSave ; 5 dw offset Escape ; 6 dw offset EditBs ; 7 dw offset CodeDec ; 8 dw offset CodeInc ; 9
;------------------------EditString: cmp [CharCnt],StringLng jae EditStringErr mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov di,[si].mFlagAddr cmp [CharCnt],0 jnz @f push ax push di mov dx,[si].mCurPos mov [CurPos],dx mov di,offset FontFileName mov cx,StringLng xor al,al rep stosb pop di pop ax@@: add di,[CharCnt] mov [di],al inc [CharCnt] mov bl,[SelAttr] call DispMenu inc [CurPos] mov dx,[CurPos] mov ah,2 xor bh,bh int 10h clc retEditStringErr: call Beep clc ret
;------------------------MenuUp: mov [CharCnt],0 mov [CurPos],FilePos mov bl,[NorAttr] call DispMenu dec [MenuPos] cmp [MenuPos],-1 jnz @f mov [MenuPos],MainTblLng-1@@: call DispHelp mov bl,[SelAttr] call DispMenu call CursorControl clc ret
;------------------------MenuDown: mov [CharCnt],0 mov [CurPos],FilePos mov bl,[NorAttr] call DispMenu inc [MenuPos] cmp [MenuPos],MainTblLng jb @f mov [MenuPos],0@@: call DispHelp mov bl,[SelAttr] call DispMenu call CursorControl clc ret
;------------------------MenuPost: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov al,[si].mMaxItem dec [si].mCurItem cmp [si].mCurItem,-1 jnz @f dec al mov [si].mCurItem,al@@: mov bl,[SelAttr] call DispMenu clc ret
;------------------------MenuNext: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov al,[si].mMaxItem inc [si].mCurItem cmp [si].mCurItem,al jb @f mov [si].mCurItem,0@@: mov bl,[SelAttr] call DispMenu clc ret
;------------------------CheckSave: xor bh,bh mov ah,3 int 10h and ch,not 20h mov ah,1 int 10h mov dx,HelpPos mov bl,[NorAttr] xor bh,bh mov ah,2 int 10h mov cx,CodeSelHelpLng mov ah,9 mov al,' ' int 10h mov si,offset SaveMsg mov bl,[SelAttr] call DispString xor ah,ah int 16h or al,20h cmp al,'y' jnz CheckSaveEnd mov bl,[CurCode] xor bh,bh mov al,[bx+Sub1DataTbl] mov [CodeStat],al mov bl,[CurMem] xor bh,bh mov al,[bx+Sub2DataTbl] mov [MemStat],al mov bl,[CurKbd] xor bh,bh mov al,[bx+Sub7DataTbl] mov [KbdType],al mov bl,[CurPrinter] xor bh,bh mov al,[bx+Sub4DataTbl] mov [PrinterStat],al cmp [PrinterStat],NoPrt jz @f or [CodeStat],ChabLoad@@: test [CodeStat],Chab or WSung7 jz @f or [CodeStat],ChabLoad@@: test [CodeStat],ChabLoad jnz @f and [CodeStat],not (Chab or WSung7) mov [PrinterStat],NoPrt@@: xor cx,cx xor dx,dx mov bx,[Handle] mov ax,4200h int 21h mov dx,offset ConfigData mov ah,40h mov cx,50 int 21h mov ah,3eh int 21h stc retCheckSaveEnd: call DispHelp call CursorControl mov bl,[SelAttr] call DispMenu clc ret
;------------------------Escape: stc ret
;------------------------EditBs: cmp [CharCnt],0 jz EditBsErr dec [CharCnt] mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov di,[si].mFlagAddr add di,[CharCnt] mov byte ptr [di],0 mov bl,[SelAttr] call DispMenu dec [CurPos] mov dx,[CurPos] mov ah,2 xor bh,bh int 10h clc retEditBsErr: call Beep clc ret
;------------------------CodeDec: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov dx,[si].mCurPos mov si,[si].mFlagAddr mov bl,[SelAttr] dec byte ptr [si] jz CodeDefMsgCodeHexMsg: mov bl,[NorAttr] xor bh,bh mov ah,2 int 10h mov cx,DefaultMsgLng mov ah,9 mov al,' ' int 10h mov bl,[SelAttr] call DispMenu ret
;------------------------CodeInc: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov dx,[si].mCurPos mov si,[si].mFlagAddr mov bl,[SelAttr] inc byte ptr [si] jnz CodeHexMsgCodeDefMsg: mov bl,[SelAttr] mov si,offset DefaultMsg call DispString ret
;------------------------------------------------------------------------DispMenu: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov dx,[si].mCurPos mov al,[si].mFlag and ax,00000110b mov di,ax call [di].DispMenuTbl retDispMenuTbl label word dw offset DispMenuStringMsg dw offset DispByteMsg dw offset DispStringMsg dw offset DispStringMsgDispMenuStringMsg: mov al,[si].mCurItem xor ah,ah shl ax,1 add si,ax mov si,[si].mMenuMsg call DispString retDispByteMsg: mov si,[si].mFlagAddr mov al,[si] or al,al jnz @f mov si,offset DefaultMsg push bx mov bl,[NorAttr] xor bh,bh mov ah,2 int 10h mov cx,DefaultMsgLng mov ah,9 mov al,' ' int 10h pop bx call DispString ret@@: mov ah,al and ax,0f00fh shr ah,1 shr ah,1 shr ah,1 shr ah,1 add ax,'00' cmp al,'9' jbe @f add al,7@@: cmp ah,'9' jbe @f add ah,7@@: push ax mov al,ah mov cx,1 xor bh,bh mov ah,2 int 10h mov ah,9 int 10h inc dl mov ah,2 int 10h pop ax mov ah,9 int 10h retDispStringMsg: xor bh,bh mov ah,2 int 10h mov cx,StringLng mov ah,9 mov al,' ' int 10h mov si,[si].mFlagAddr call DispString mov ax,920h int 10h ; clear han 1st flag mov dx,[CurPos] xor bh,bh mov ah,2 int 10h ret
;------------------------DispHelp: mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov si,[si].mHelpMsg mov bl,[NorAttr] mov dx,HelpPos call DispString ret
;------------------------RestoreScreen: mov al,[OrgMode] xor ah,ah int 10h ret
;------------------------KbdMenu: mov si,offset MenuSelect call ParsingKey ret
;------------------------KbdCode: mov si,offset MakeCode call ParsingKey ret
;------------------------KbdString: mov bh,al mov si,offset MakeString call ParsingKey jnc @f mov al,bh xor ah,ah ; CLC@@: ret
;------------------------ParsingKey: mov bl,ah@@: lodsw cmp ax,-1 jz @f cmp al,bl jnz @b ret@@: stc ret
;------------------------Beep: mov ax,0e07h int 10h ret
;------------------------CursorControl: push dx xor bh,bh mov ah,3 int 10h or ch,20h cmp [MenuPos],3-1 jnz @f and ch,not 20h mov si,[MenuPos] shl si,1 mov si,[si+MainTbl] mov dx,[si].mCurPos mov [CurPos],dx@@: mov ah,1 int 10h pop dx ret
;------------------------DispString: mov cx,1 xor bh,bh@@: mov ah,2 int 10h lodsb cmp al,eom jz @f mov ah,9 int 10h inc dl jmp short @b@@: ret
CODE ENDS END Start
|
