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 <IDTLEN,IDTSEG,0,92H,0,0> ;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 <DATA_TOSLEN,DATA_TOS,0,92H,0,0> ;92H=P ,DPL=0,TYPE=2
TOS_DATA_SEL = TOS_DATA - GDT
TOS_STACK   GDT_DESC <TOS_STACKLEN,TOS_STACKSEG,0,92H,0,0>   ;96H=R/W ,DOWN
TOS_STACK_SEL = TOS_STACK - GDT
TOS_TSS     GDT_DESC <TOS_TSSLEN,TOS_TSSSEG,0,089H,0,0> ;89H=386TSS DPL=0
TOS_TSS_SEL  = TOS_TSS - GDT
GDT_ASDATA  GDT_DESC <GDTLEN,GDTSEG,0,92H,0,0>
GDT_ASDATA_SEL = GDT_ASDATA - GDT
TOS_TSSASDATA GDT_DESC <TOS_TSSLEN,TOS_TSSSEG,0,92H,0,0>
TOS_TSSASDATA_SEL  = TOS_TSSASDATA - GDT
USER_PsTSS_mov     GDT_DESC <USER_PsTSSLEN,USER_PsTSSSEG,0,92H,0,0> ;9AH=exec/read ,DPL=0
USER_PsTSS_mov_SEL  = USER_PsTSS_mov - GDT
USER_PsLDT_mov  GDT_DESC <USER_PsLDTLEN,USER_PsLDTSEG,0,92H,0,0>  ;11
USER_PsLDT_mov_SEL = USER_PsLDT_mov - GDT ;+ 04H
DATASEG     GDT_DESC <DATALEN,DATA,0,92H,0,0> ;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 <V86TSSLEN,V86TSSSEG,0,89H,0,0> ;89H=386TSS DPL=0
V86TSS_SEL     =V86TSS - GDT 
V86TSS_ASDATA  GDT_DESC <V86TSSLEN,V86TSSSEG,0,92H,0,0> ;89H=386TSS DPL=0
V86TSS_ASDATA_SEL     =V86TSS_ASDATA - GDT 
V86LDTS        GDT_DESC <V86LDTLEN,V86LDTSEG,0,82H,0,0> ;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 <TOS_TSSLEN,1000H,40H,092H,0,0C0H> ;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 <USER_PsTSSLEN,1000h,40h,089H,0,0FFH> ;9AH=exec/read ,DPL=0
V_USER_PsTSS_SEL  = V_USER_PsTSS - GDT
USER_PsTSS_D     GDT_DESC <USER_PsTSSLEN,1000h,40h,92H,0,0FFH> ;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