www.pudn.com > czxtsycx1.zip > G_OLD.ASM
;程序文件：\TC\G\GTIME.ASM 清单
; base on gfat16.asm
;only support one hard disk
.MODEL HUGE
.386P
include \tc\g\include\g_def.asm ; 描述符结构、常量、宏定义,清单见程序1-1
include \tc\g\include\cos_def.asm ; 描述符结构、常量、宏定义,清单见程序1-1
include \tc\g\include\ps_seg_p.asm ;
TOS_CODESEG SEGMENT PARA USE16 ; TOS操作系统的代码段
ASSUME CS:TOS_CODESEG,DS:DATA,SS:TOS_STACKSEG
TOS_BEGIN:
;********** seg_mode
COS_INIT ; TOS任务初始处理，在包含\tc\g\include\g_def.asm文件中
;***********move to 2M
CALL SEGS_MOV_2M ;all tos_segs(6 segs) --->2M idt_m
CALL PGT_INIT
COS_PAGE_INIT ;in cos_def
;*********** HAVE ENTERED PAGE_MODE
;*********** HAVE ENTERED PAGE_MODE
;time int
CALL COS_TIME_INIT ;GET REAL TIME CLOCK IN INCLUDE\V86_USED.ASM
CALL SETUP_CMD ;setup cmd_process in gprocess.asm
;Jmp PAGE_END ;ok6
CALL DISP_COS_HEAD ;IN gfat_p.ASM
CALL FILE_INIT ; in gfat16_p.asm
PUSH AX
MOV AX,V_TOS_DATA_SEL
MOV DS,AX
POP AX
CMP AL,1 ;AL=1 is not FAT16
JE PAGE_END
MOV AX,V_TOS_DATA_SEL
MOV DS,AX
;Jmp PAGE_END ;ok4
CALL RUN_U1 ;RUN u1.exe IN grocess.asm
;Jmp PAGE_END ;ok4
TOS_BEGIN_CMD:
;input str --->G_WORK ( ASCIIZ_STRING)
MOV AX,V_TOS_DATA_SEL
MOV DS,AX
MOV DX,OFFSET G_WORK
MOV AL,255 ;MAX COUNT
MOV AH,0AH ;=DOS 21H0AH
INT 21H ;input string in current position
;Jmp PAGE_END ;ok4
MOV BYTE PTR DS:[NEED_RESCHED],1 ;start schedule
MOV DS:[CURRENT],1024 ;user U2.EXE
cli
MOV AL,11111110B ;open clock&keyboard
OUT 21H,AL
sti
CALL DO_CMD ;***************into command mode
Jmp PAGE_END ;ok4
;;;;;;;;;
CMP AL,0 ;=0 OK&NEXT =1 EXIT =2 ERROR
JE TOS_BEGIN_CMD
CMP AL,1
JE PAGE_END
;=2 ERROR display command error
; read cursor
MOV AH,03H
MOV BH,0
INT 80H
; set cursor
MOV AH,02H
MOV BH,0
INC DH
MOV DL,0
INT 80H
; display ASCIIZ string
MOV AX,V_TOS_DATA_SEL
MOV DS,AX
MOV DX,OFFSET CMD_ERROR
CALL STRDISP
JE PAGE_END
TOS_BEGIN_CMD_R:
;;;;;;;;;;;;;;;;;;;;;;;; copy g_work-->str
;MOV AX,V_TOS_DATA_SEL ;INPUT STRING IN CURRENT POSITION
;MOV DS,AX
;MOV DX,OFFSET STR1
;PUSH DX
;PUSH DS
;MOV BX,OFFSET G_WORK
;INC BX
;INC BX ;from 3 copy
;PUSH BX
;PUSH DS
;DEC BX
;MOV AL,DS:[BX]
;INC AL
;MOV AH,0
;PUSH AX
;CALL STRNCPY ;G_WORK--->STR1
;strcpy ASCIIZ str1-->str2
;MOV AX,V_TOS_DATA_SEL
;MOV DS,AX
;MOV DX,OFFSET STR2
;PUSH DX
;PUSH DS
;MOV DX,OFFSET STR1
;PUSH DX
;PUSH DS
;CALL STRCPY
;;
;MOV AX,V_TOS_DATA_SEL ;display g_work
;MOV DS,AX
;MOV DX,OFFSET G_WORK
;INC DX
;INC DX
;MOV AH,09H ;=DOS 21H09H
;INT 21H
;MOV AX,G_VRAM_SEL
;MOV ES,AX
;MOV AL,41H ;"A"
;MOV AH,41H
;MOV ES:500,AX
COMEBACK_TO_TOS: ; 21h---4ch return
JMP PAGE_END
ERR_EXEFIL:
MOV AH,9
MOV CX,1100H
MOV DX,OFFSET ERR_EXEFILE
INT 21H
PAGE_END: ;********************* should have next 3 lines
DB 0EAH
DW OFFSET TURN_TO_REAL_MODE
DW TOS_CODE_SEL
TURN_TO_REAL_MODE:
MOV EAX,CR0 ; ；关闭分页模式
AND EAX,7FFFFFFFH
MOV CR0,EAX
JMP SHORT FROM_PAGE
FROM_PAGE:
CALL TURN_TO_REAL ;返回实模式，在\tc\g\include\tos_used.asm;中
include \tc\g\include\COS_USED.ASM ;
include \tc\g\include\V86_USED.ASM ;
include \tc\g\include\GFAT16_P.ASM ;
include \tc\g\include\GPROCESS.ASM ;
include \tc\g\include\reposit.asm ;
TOS_CODELEN = $
TOS_CODESEG ENDS
GDTSEG SEGMENT PARA USE16 ;全局描述符表
GDT LABEL BYTE
G_NULL GDT_DESC <>
REAL_SEG GDT_DESC <0FFFFH,0,0,92H,0,0>
REAL_SEL = REAL_SEG - GDT
GDT_INIT_BEGIN LABEL BYTE ;setup to start*************
IDT GDT_DESC ;92H=P ,DPL=0,TYPE=2
IDT_SEL = IDT - GDT
TOS_CODE GDT_DESC <0FFFFH,TOS_CODESEG,0,9AH,0,0> ;9AH=exec/read ,DPL=0
;limit must be 0ffffh for returnning to real_mode
TOS_CODE_SEL = TOS_CODE - GDT
TOS_DATA GDT_DESC ;92H=P ,DPL=0,TYPE=2
TOS_DATA_SEL = TOS_DATA - GDT
TOS_STACK GDT_DESC ;96H=R/W ,DOWN
TOS_STACK_SEL = TOS_STACK - GDT
TOS_TSS GDT_DESC ;89H=386TSS DPL=0
TOS_TSS_SEL = TOS_TSS - GDT
GDT_ASDATA GDT_DESC
GDT_ASDATA_SEL = GDT_ASDATA - GDT
TOS_TSSASDATA GDT_DESC
TOS_TSSASDATA_SEL = TOS_TSSASDATA - GDT
USER_PsTSS_mov GDT_DESC ;9AH=exec/read ,DPL=0
USER_PsTSS_mov_SEL = USER_PsTSS_mov - GDT
USER_PsLDT_mov GDT_DESC ;11
USER_PsLDT_mov_SEL = USER_PsLDT_mov - GDT ;+ 04H
DATASEG GDT_DESC ;92H=P ,DPL=0,TYPE=2
DATA_SEL = DATASEG - GDT
;***************V86
;***************V86
V86_CODE GDT_DESC <0FFFFH,V86CODESEG,0,0fAH,0,0>
V86_CODE_SEL = (V86_CODE - GDT)
V86_DATA_GDT GDT_DESC <0FFFFH,V86_DATASEG,0,92H,0,0>
V86_DATA_GDT_SEL = (V86_DATA_GDT - GDT)
V86TSS GDT_DESC ;89H=386TSS DPL=0
V86TSS_SEL =V86TSS - GDT
V86TSS_ASDATA GDT_DESC ;89H=386TSS DPL=0
V86TSS_ASDATA_SEL =V86TSS_ASDATA - GDT
V86LDTS GDT_DESC ;82H=LDT DPL=0
V86LDT_SEL =V86LDTS - GDT
;***************V86
;***************V86
GDT_INIT_COUNT = ($ - GDT_INIT_BEGIN)/(SIZE GDT_DESC)
; seg_mode -->start
USER_segs_mov GDT_DESC <0ffffh,0,0C0H,92H,0FH,0> ;9AH=exec/read ,DPL=0
USER_segs_mov_SEL = USER_segs_mov - GDT
; seg_mode -->end
;setup to end *******************************************
V86_VRAM GDT_DESC <0FFFFH,8000H,0BH,092H,0,0> ;92H=P ,DPL=0,TYPE=2
V86_VRAM_SEL = V86_VRAM - GDT ;60h
;;;;;;;;file system
V_SFT GDT_DESC <0FFFFH,0,0FFH,92H,0,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFF0000H
V_SFT_SEL = V_SFT - GDT
V_FILE_BUF GDT_DESC <0FFFFH,0,0FEH,92H,0,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFE0000H
V_FILE_BUF_SEL = V_FILE_BUF - GDT
;;;;;;;;file system
;;for schedule
V_PCB GDT_DESC <0ffFFH,0,080H,92H,0fH,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFF0000H ;LIMIT=1m
V_PCB_SEL = V_PCB - GDT ;LIMIT=4m 21
V_TOS_TSSASDATA GDT_DESC ;89H=386TSS DPL=0
V_TOS_TSSASDATA_SEL = V_TOS_TSSASDATA - GDT
V_GDT_ASDATA GDT_DESC <0FFFFH,2000H,40H,92H,0,0C0H>
V_GDT_ASDATA_SEL = V_GDT_ASDATA - GDT
;V_USER_SEGS GDT_DESC <04FFH,0,40H,92H,10H,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFF4000H ;LIMIT=4m
V_USER_SEGS GDT_DESC <0FFFFH,0,40H,92H,0FH,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFF4000H ;LIMIT=1m
V_USER_SEGS_SEL = V_USER_SEGS - GDT
V_STACK0 GDT_DESC <4095,0,40H,92H,0,0FFH> ;92H=P ,DPL=0,TYPE=2 ,base=FFFD0000H
V_STACK0_SEL = V_STACK0 - GDT
V_USER_PsTSS GDT_DESC ;9AH=exec/read ,DPL=0
V_USER_PsTSS_SEL = V_USER_PsTSS - GDT
USER_PsTSS_D GDT_DESC ;9AH=exec/read ,DPL=0
USER_PsTSS_D_SEL = USER_PsTSS_D - GDT
V_USER_PsLDTT GDT_DESC <4095,2000h,40h,82H,0,0FFH> ;82H=LDT
V_USER_PsLDT_SEL = V_USER_PsLDTT - GDT
USER_PsLDTT_ASDATA GDT_DESC <4095,2000H,40H,92H,0,0FFH> ;82H=LDT
USER_PsLDTT_ASDATA_SEL = USER_PsLDTT_ASDATA - GDT ;37
;;for schedule
;***********prepare page_memory
G_PDT GDT_DESC <0FFFH,2000H,21H,92H,0,0>;92H=P ,DPL=0,TYPE=2 ,base=2M+68k
G_PDT_SEL = G_PDT - GDT
G_PT0 GDT_DESC <0FFFFH,3000H,21H,92H,0,0>;92H=P ,DPL=0,TYPE=2 ,base=2M+72k ;16 PAGES
G_PT0_SEL = G_PT0 - GDT
G_MOVSEG GDT_DESC <0FFFFH,0,20H,92H,0FH,0> ;92H=P ,DPL=0,TYPE=2 ,base=2M
G_MOV_SEL = G_MOVSEG - GDT ;LIMIT=1M
;***********next for page_memory
V_DOS_CODE GDT_DESC <0FFFFH,0,0,9AH,0FH,0> ;9AH=exec/read ,DPL=0
V_DOS_CODE_SEL = V_DOS_CODE - GDT
G_VRAM GDT_DESC <0FFFFH,0,0,92H,0,0C0H> ;92H=P ,DPL=0,TYPE=2
G_VRAM_SEL = G_VRAM - GDT
;G_BUF GDT_DESC <1024,0,40H,92H,80H,0> ;92H=P ,DPL=0,TYPE=2 ,base=4M
G_BUF GDT_DESC <0FFFFh,0,40H,92H,0FH,0> ;92H=P ,DPL=0,TYPE=2 ,base=4M
G_BUF_SEL = G_BUF - GDT
V_G_PT0 GDT_DESC <0FFFFH,3000H,41H,92H,0,0C0H>
V_G_PT0_SEL = V_G_PT0 - GDT
V_TOS_TSS GDT_DESC ;89H=386TSS DPL=0
V_TOS_TSS_SEL = V_TOS_TSS - GDT
V_TOS_CODE GDT_DESC <0FFFFH,3000H,42H,9AH,0,0C0H> ;9AH=exec/read ,DPL=0
;limit must be 0ffffh for returnning to real_mode
V_TOS_CODE_SEL = V_TOS_CODE - GDT ;31
V_TOS_STACK GDT_DESC <01000H,3000H,43H,92H,0,0C0H> ;96H=R/W ,DOWN 93
V_TOS_STACK_SEL = V_TOS_STACK - GDT
V_TOS_DATA GDT_DESC <0FFFFH,4000H,43H,92H,0,0C0H> ;92H=P ,DPL=0,TYPE=2
V_TOS_DATA_SEL = V_TOS_DATA - GDT
ps_to_tos_sel =$
GDTLEN = $ - GDT
GDTSEGLEN = $
GDTSEG ENDS
DATA_TOS SEGMENT PARA USE16 ;全局描述符表
IDT_M SEGMAP_DESC <>
TOS_TSS_M SEGMAP_DESC <>
GDT_M SEGMAP_DESC <>
GPDT_M SEGMAP_DESC <>
GPT0_M SEGMAP_DESC <>
TOS_CODE_M SEGMAP_DESC <>
TOS_STACK_M SEGMAP_DESC <>
DATA_TOS_M SEGMAP_DESC <>
;USER_PSTSS_M SEGMAP_DESC <>
;USER_PSLDT_M SEGMAP_DESC <>
user_p_run DB 'Sample of changing task : User_p process is running! $'
TEST_MSG DB 'This is a protect_mode program! $'
TEST1_MSG DB 'LDT of Dos program: $'
HEAD_DOS DB 'Head of DOS program: $'
TEST_CS DB 'CS: $'
TEST_IP DB 'IP: $'
COS_FLAG DB 'C:\>$'
G_WORK DB 255,18,'RUN C:\TC\G\U1.EXE',0,256 DUP(?),0
G_WORK_U1 DB 255,14,'C:\TC\G\U1.EXE',0
G_BUF_SUM DD 0
IDTSIZE DW 272 ;中断表
IDTLOAD DW 0,0
;********** for v86
V86_IDTSIZE DW 272 ;中断表
V86_IDTLOAD DW 0,0
V86_ESP DW 0
V86_10H02 DB "V86_DEMO: 10H02H(setup cursor:4 row 0 col.) & 21H09H(display this string)",24H
V86_10H09 DB "V86_DEMO: 10H09H:display :",24H
;********** for v86
;********** for FILE
COS_HEAD DB "Welcome to Use 3G-COS Command Mode ",24H,0H
PRIBOOT DB 512 DUP(20) ; main boot sector
DOSBOOTA DB 1024 DUP(20) ; DOS boot sector (A OR B:)
DOSBOOT DB 1024 DUP(20) ; DOS boot sector (C: AND D:...) 24*512=12288
WORKBOOT DB 512 DUP(20),0 ;
OPT DW 1024 DUP(0)
FILE_INFO DB 32 DUP(?),0
DAT DB 112 DUP(?),0
FILE_NAME0 DB "D:\CHIS\TTT\LLL2.TXT",0,103 DUP(?),0,0 ;total is 128 bytes
CURRENT_DIR DB 81 DUP(?)
SYS_CURRENT_DIR DB 81 DUP(?)
ROOTDIR_FS_NO DD ?
ROOTDIR_LS_NO DD ?
TTSECTOR_NO DD ?
HIDDEN_SECTOR DD ?
TTSECTOR DB 512 DUP(20),0
TTSECTOR2 DB 512 DUP(20),0
TTSFT DB 40 DUP(?),0
STR1 DB 1024 DUP(0)
STR2 DB 128 DUP(0)
STR3 DB 128 DUP(0)
TTDB DB ?
TTDB1 DB ?
TTDB2 DB ?
TTDB3 DB ?
TTDBX DB 10 DUP(?)
TTDW1 DW ?
TTDW2 DW ?
TTDW3 DW ?
TTDW4 DW ?
TTDW5 DW ?
TTDW6 DW ?
TTDW7 DW ?
TTDD1 DD ?
TTDD2 DD ?
TTDD3 DD ?
TTDD4 DD ?
CMD_WORDS DB ",EXIT,DIR,TYPE,RUN,",0,0H
CMD_ERROR DB "Bad Command or File Name ",0H,0H
T_DIR1 DB " Volume Serial Number is ",0H,0H
T_DIR2 DB " Directory of C:\ ",0H,0H
V_DISP_AX DB 8 DUP(?)
;********** for FILE
;********** for process
CURRENT DD 0
NEED_RESCHED DB 0 ;0:no 1:need
PCB_TSS DW 0
PCB_NAME DB 16 DUP(?)
PCB_PRIORITY DD 100
CURRENT_PCB DW 0
CURRENT_SS DW 1
G_BUF_PTR DD 400000H ; second=10000h (64k)
USER_SEGS_PTR DD 400000H ; second=3000h (3*4096)
TT DW 0
;********** for process
DATA_TOSLEN = $
DATA_TOS ENDS
; GTIME MODIFIED
IDTSEG SEGMENT PARA USE16 ;全局描述符表
IDT0 IDT_DESC 8 DUP (<>) ;00--0D
IDT08 IDT_DESC
IDT09 IDT_DESC 5 DUP (<>) ;00--0D
IDT0E IDT_DESC <0,V_TOS_CODE_SEL,8E00H,0>
IDT_DESC 18 DUP (<>) ;0F,10--1F,20
;10,13,16,21 7 BYTES/ONE
IDT21 IDT_DESC
IDT_DESC 94 DUP (<>) ;22--7F
IDT80 IDT_DESC
REPT 2 ;81--82
IDT_DESC <>
ENDM
IDT83 IDT_DESC
REPT 2 ;84--85
IDT_DESC <>
ENDM
IDT86 IDT_DESC
REPT 3 ;87--8F
IDT_DESC <>
ENDM
IDT8A IDT_DESC ;8A=1A REAL_TIME
REPT 5 ;8B--8F
IDT_DESC <>
ENDM
IDT90 IDT_DESC
;IDT90 IDT_DESC
IDT_DESC 111 DUP (<>) ;91--FF
IDTLEN = $
IDTSEG ENDS
include \tc\g\include\DATA_IDT.asm ;
include \tc\g\include\v86_seg.asm ;no_move
include \tc\g\include\tos_seg.asm ; 定义TOS堆栈段TOS_STACKSEG与TOS任务状态段TOS_TSSSEG
; 清单见程序1-2
;*************************************************next DOS
STACK SEGMENT STACK ;实模式用堆栈
DB 200 DUP(0)
STACK ENDS
DATA SEGMENT PUBLIC 'DATA' ;各任务公用的数据段
t_string DB 80 dup(?)
FILE_NAME DB 80,0,80 DUP(0)
INPUT_MSG DB 0DH,0AH,'Input file_name:$'
FILE_HANDLE DW 0
FILE_OVER DW 0
ERR_FILE_NAME DB 0DH,0AH,'input run file_name error$'
ERR_FILE DB 0DH,0AH,'Open file error real_mode$'
ERR_EXEFILE DB 'Error: It is not a DOS .exe protect_mode $'
OK_MSG DB 0DH,0AH,'Have a nice day,Bye! $'
SAVE_GDT DW 4 DUP(0)
SAVE_IDT DW 4 DUP(0)
SAVE_SS DW 0
SAVE_SP DW 0
C_BUF_SIZE DW 0 ;848=350H
C_BUFFER DB 16000 DUP(?)
tos_sp dw ?
GDT_ADDR DW 0
DW 0,0 ;LIMIT=DW BASE=DW,DW
USER_Ps_LDT_ADDR DW 0
DW 0,0 ;LIMIT=DW BASE=DW,DW
USER_P1_LDT_ADDR DW 0
DW 0,0 ;LIMIT=DW BASE=DW,DW
DATALEN = $
DATA ENDS
CODE SEGMENT PARA USE16 ;PUBLIC 'CODE' ;实模式代码段
ASSUME CS:CODE,DS:DATA,SS:STACK
MAIN PROC FAR
START:
REAL_PAGE_INIT ;in cos_def.asm
CALL V86_IDT_INIT ;in V86_REAL.ASM
;在\tc\g\include\g_def.asm中，见程序1-1
TURN_TO_PROTECT_MODE:
CALL GDT_INIT ;初始化GDT表，在\tc\g\include\g_real.asm中，见程序1-2
MOV AX,V86LDTSEG
CALL USER_Px_LDT_INIT ;in px_ldt.asm
cli
TURN_TO_PROTECT_PAGE
;*****进入TOS任务，在\TC\G\INCLUDE\G_DEF.ASM中，见程序1-1
REAL_MODE:
TO_DOS ;回到DOS 在\TC\G\INCLUDE\G_DEF.ASM中，见程序1-1
MAIN ENDP
include \tc\g\include\g_real.asm
include \tc\g\include\V86_REAL.ASM ;见程序1-1
include \tc\g\include\a20.asm ;见程序1-1
include \tc\g\include\PX_LDT.ASM ;见程序1-1
tsrline label byte
CODE ENDS
END START
;test
;push ax
;push fs
;push di
;push dx
;MOV aX,V_GDT_ASDATA_SEL
;MOV aX,V_G_PT0_SEL
;mov fs,ax
;mov di,20352
;mov dx,16
;call disp_mem
;pop dx
;pop di
;pop fs
;pop ax
;Jmp PAGE_END ;ok4
;test
;PUSH ES
;PUSH AX
;MOV AX,G_VRAM_SEL
;MOV ES,AX
;mov ax,DATA_TOSLEN
;call disp_ax
;mov ax,TOS_CODELEN
;call disp_ax
;mov ax,TOS_stackLEN
;call disp_ax
;POP AX
;POP ES
;Jmp PAGE_END ;ok5
; test