;安装程序代码段
assume cs:code
code segmentstart:    mov ax,initsg ;将初始化代码段写入软盘的第1扇区mov es,axmov bx,0mov al,1mov ch,0mov cl,1mov dl,0mov dh,0mov ah,3int 13hmov ax,mainshell ;将主界面代码段写入软盘的2-11扇区mov es,axmov bx,0mov al,10mov ch,0mov cl,2mov dl,0mov dh,0mov ah,3int 13hmov ax,4c00hint 21h
code ends;初始化代码段
;运行地址：0:7c00h
assume cs:initsg
initsg segment;这部分注释掉的代码为错误代码
;initsgstart: jmp near ptr initstart
;    initsgstack: db 128 dup(0)    ;initstart: ;mov ax,7c0h;mov ss,ax;mov sp,(offset initsgstack)+128initsgstart:    call loadmainshell;将2000h:0h存入堆栈，用retf指令跳转到该处去运行mov ax,2000hpush axmov ax,0push axretf;加载主界面代码段到内存的2000h:0h位置
loadmainshell:    mov ax,2000hmov es,axmov bx,0mov al,10mov ch,0mov cl,2mov dl,0mov dh,0mov ah,2int 13hret
initsg ends;主界面代码段
;运行地址：2000h:0h
assume cs:mainshell
mainshell segment     ;这部分注释掉的代码为错误代码
;mainshellstart:
;    jmp near ptr shellstart
;    mainshellstack: db 128 dup(0)    ;主界面的堆栈区;shellstart:
;        mov ax,cs
;        mov ss,ax
;        mov sp,(offset mainshellstack)+128 ;设置堆栈mainloop:    call menudisplay ;显示主界面call getonechar  ;读取一个字符的输入，al返回输入的字符 mov al,al        ;传递参数call funsecl     ;根据不同的输入执行不同功能的函数jmp short mainloop ;跳到主循环运行;函数功能：根据不同的输入执行不同功能的函数
;函数输入参数：al
funsecl: jmp short funseclectfuntable dw 0,sysrest,sysstart,clockdisplay ;子函数的地址funseclect: push bx;先判断输入的字符是否在允许范围内cmp al,'4'    ja funretcmp al,'1'jb funret;根据不同的输入执行不同功能的函数mov bl,almov bh,0sub bx,'0'add bx,bxcall word ptr funtable[bx]funret: pop bxret;函数功能：系统复位
sysrest:    mov ax,0ffffhpush axmov ax,0push axretf;函数功能：启动操作系统
sysstart: call clearscreencall loadsyskerneladd sp,4    ;为了使跳出本软盘程序时的堆栈和进入本软盘程序开始时的堆栈相同;调整sp+4，因为之前执行了两个call指令，但是都还没有用ret指令返回;将0h:7c00h存入堆栈，用retf指令跳转到该处去运行mov ax,0push axmov ax,7c00hpush axretfloadsyskernel:    ;从硬盘c加载操作系统mov ax,0mov es,axmov bx,7c00hmov al,1mov ch,0mov cl,1mov dl,80hmov dh,0mov ah,2int 13hret ;函数功能：时钟显示，按下ESC键退出显示，按下F1键更改颜色
;参考《汇编语言》280页例程
clockdisplay: jmp short clockstartescflag dw 0     ;是否按下esc键的标志，0：未按下；1：按下int9back dw 0,0    ;保存int9中断向量的空间
clockstart:        push dspush espush bxmov ax,csmov ds,axmov ax,0mov es,ax;备份int9中断向量到int9back中mov bx,offset int9back push es:[9*4]pop ds:[bx]push es:[9*4+2]pop ds:[bx+2];更改int9的中断向量为int9函数地址mov word ptr es:[9*4],offset int9mov es:[9*4+2],cscall clearscreen     ;清屏mov escflag,0       ;将escflag清0mov bx,0b800h        mov es,bx;时钟主循环为不断的更新时间，并显示出来
clockloop:     mov byte ptr es:[160*12+28*2],32hmov byte ptr es:[160*12+29*2],30h    mov al,9call readparamov byte ptr es:[160*12+30*2],ahmov byte ptr es:[160*12+31*2],almov byte ptr es:[160*12+32*2],'/'mov al,8call readparamov byte ptr es:[160*12+33*2],ahmov byte ptr es:[160*12+34*2],almov byte ptr es:[160*12+35*2],'/'mov al,7call readparamov byte ptr es:[160*12+36*2],ahmov byte ptr es:[160*12+37*2],almov byte ptr es:[160*12+38*2],' 'mov al,4call readparamov byte ptr es:[160*12+39*2],ahmov byte ptr es:[160*12+40*2],almov byte ptr es:[160*12+41*2],':'mov al,2call readparamov byte ptr es:[160*12+42*2],ahmov byte ptr es:[160*12+43*2],almov byte ptr es:[160*12+44*2],':'mov al,0call readparamov byte ptr es:[160*12+45*2],ahmov byte ptr es:[160*12+46*2],alcmp escflag,0 ;判断是否按下ESCjne exit      ;如果是，就跳出循环jmp clockloop ;如果不是，继续显示exit:    call clearscreen ;清屏mov ax,0mov es,ax;将原int9中断向量复原mov bx,offset int9backpush ds:[bx]pop es:[9*4]push ds:[bx+2]pop es:[9*4+2]pop bxpop espop dsret;函数功能：读取参数(年、月、日、时、分、秒)
;函数输入参数:al
;函数输出参数：ax
readpara: push cxout 70h,alin al,71hmov ah,almov cl,4shr ah,cland al,00001111badd ah,30hadd al,30hpop cxret;函数功能：按下ESC键更改escflag标志，按下F1键更改颜色
int9:    push axpush bxpush esin al,60hpush axpushfpushfpop bxand bh,11111100bpush bxpopfmov bx,2000hmov ds,bxmov bx,offset int9backcall dword ptr ds:[bx]pop axcmp al,3bhje changecolor     ;按下F1键更改颜色cmp al,01hje quit            ;按下ESC键退出pop espop bxpop axiretchangecolor:    push espush bxmov ax,0b800hmov es,axmov bx,0mov cx,19
changeloop:    inc byte ptr es:[160*12+28*2+1][bx]add bx,2loop changelooppop bxpop esjmp short int9retquit:    mov escflag,1    ;按下ESC键更改escflag标志
int9ret:    pop espop bxpop axiret;函数功能：清屏
clearscreen: push bxpush espush cxmov bx,0b800hmov es,bxmov bx,0mov cx,2000
clearloop:    mov byte ptr es:[bx],' 'mov byte ptr es:[bx+1],07hadd bx,2loop clearlooppop cxpop espop bxret ;函数功能：主界面显示
menudisplay:    jmp short displaytable1: db '1) reset pc',0table2: db '2) start system',0table3: db '3) clock',0table4: db 'Enter your selection:   ',0display:    push dxpush axpush dspush simov dh,10mov dl,30mov ax,csmov ds,axmov si,offset table1call stringsshowmov dh,11mov dl,30mov ax,csmov ds,axmov si,offset table2call stringsshowmov dh,12mov dl,30mov ax,csmov ds,axmov si,offset table3call stringsshowmov dh,13mov dl,30mov ax,csmov ds,axmov si,offset table4call stringsshowpop sipop dspop axpop dxret;函数功能：显示一个字符串
stringsshow:    push bxpush espush axpush dimov bx,0b800hmov es,bxmov al,160mov ah,0mul dhmov di,axadd dl,dlmov dh,0add di,dxmenucharshow:    mov al,ds:[si]cmp al,0je menusret ;如果字符为0，就结束显示mov es:[di],aladd si,1add di,2jmp menucharshowmenusret:    pop dipop axpop espop bxret;子程序：字符栈的入栈、出栈和显示。
;参数说明：(ah)=功能号，0表示入栈，1表示出栈，2表示显示；
;          ds:si指向字符栈空间；
;          对于0号功能:(al)=入栈字符；
;          对于1号功能:(al)=返回的字符；
;          对于2号功能:(dh)、(dl)=字符串在屏幕上显示的行、列位置。charstack:jmp short charstart
table dw charpush,charpop,charshow
top   dw 0          ;栈顶(字符地址、个数记录器)charstart:push bxpush dxpush dipush escmp ah,2      ;判断ah中的功能号是否大于2ja sret            ;功能号>2，结束mov bl,ahmov bh,0add bx,bx     ;计算对应子程序在table表中的偏移jmp word ptr table[bx] ;调用对应的功能子程序 charpush:mov bx,topmov [si][bx],alinc topjmp sretcharpop:cmp top,0je sret            ;栈顶为0(无字符)，结束dec topmov bx,top         ;//保存数据，其它作用不详mov al,[si][bx]        ;//保存数据，其它作用不详jmp sret  charshow:mov bx,0b800hmov es,bxmov al,160mov ah,0mul dh             ;dh*160mov di,axadd dl,dl     ;dl*2mov dh,0add di,dx     ;di=dh*160+dl*2，es:di指向显存mov bx,0      ;ds:[si+bx]指向字符串首地址charshows:cmp bx,top        ;判断字符栈中字符是否全部显示完毕jne noempty        ;top≠bx，有未显示字符，执行显示mov byte ptr es:[di],' ';显示完毕，字符串末加空格jmp sretnoempty:mov al,[si][bx]     ;字符ASCII码赋值almov es:[di],al         ;显示字符mov byte ptr es:[di+2],' '  ;字符串末加空格inc bx             ;指向下一个字符add di,2      ;指向下一显存单元jmp charshowssret:    pop espop dipop dxpop bxret;子程序：读取一个字符的输入
;读取到的输入：al    getonechar:   jmp short getonecharstartchar db 8 dup(0) ;存输入的位置
getonecharstart: push dspush sipush dxmov char,0 ;输入存储单元清零mov top,0  ;将输入计数器清零mov ax,csmov ds,axmov si,offset char;输入显示的位置是13行52列mov dh,13mov dl,52call getstrmov al,charpop dxpop sipop dsretgetstr:  push ax
getstrs:mov ah,0int 16hcmp al,20hjb nochar     ;ASCII码小于20h，说明不是字符 cmp top,0     jne getstrs  ;如果有一个输入，就等待Enter键按下结束输入或者Backspace键删除;如果没有输入，就将这个输入的字符保存起来mov ah,0call charstack         ;字符入栈mov ah,2call charstack         ;显示栈中字符jmp getstrsnochar:  cmp ah,0eh         ;退格键的扫描码je backspacecmp ah,1ch             ;Enter键的扫描码je enterjmp getstrsbackspace:mov ah,1call charstack         ;字符出栈mov ah,2call charstack         ;显示栈中字符jmp getstrsenter:   mov al,0mov ah,0call charstack         ;0入栈mov ah,2call charstack         ;显示栈中字符pop axretmainshell ends
end start

;========================================================
;段代码功能：加载codesg段到2000h:7f00h位置处，并且将cs:ip
;设定到2000h:7f02处去执行，以测试codesg段是否是真正意义的
;位置无关代码
;========================================================
assume cs:setupsg,ss:stack
stack segmentdb 128 dup(0)
stack endssetupsg segment
start:mov ax,stackmov ss,axmov sp,128mov ax,codesgmov ds,axmov si,0 ;设置ds:si指向源地址mov ax,2000hmov es,axmov di,7f00h ;设置es:di指向目标地址mov cx,offset codesgend-offset codesgstart+2cldrep movsbmov ax,2000hpush axmov ax,7f02h ;codesg段的第一条地址是偏移量为2的地方push axretfsetupsg ends ;========================================================
;段代码功能：sum单元加1
;========================================================
assume cs:codesg
codesg segmentsum dw 0
codesgstart:call getip ;获得下一条指令的运行地址
pos:           mov bx,axmov ax,offset pos sub bx,ax    ;获得sum的真实物理地址mov ax,cs          mov ds,axinc word ptr ds:[bx]mov ax,4c00hint 21h;========================================================
;函数功能：获得当前的IP，也即下一条指令的地址
;函数返回：ax
;========================================================
getip:push bxmov ax,ssmov ds,axmov bx,spmov ax,ds:[bx+2]pop bxretcodesgend:nop
codesg ends
end start