热自助双活机制

最新推荐文章于 2023-02-21 13:33:03 发布
最新推荐文章于 2023-02-21 13:33:03 发布
阅读量974 收藏 1
点赞数 1
文章标签： 任务 代码分析 integer fp cmd function
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xuzj2000/article/details/791407
版权

热自助死机问题代码分析

流程图

 

热自助被激活时执行以下代码:

 

/* TSR 激活函数 */

void tsr_active(void)

{

    if (dosbusy() && !int28_active)

    {

       hot_while_dosbusy = 1;

    }

    else

    {

       /* 设置自己的栈 */

       enable();

       set_stack();[xuzj1] 

 

       /* 清键盘缓冲区 */

//     while (bioskey(_KEYBRD_READY))

//         bioskey(_KEYBRD_READ);

 

       if (*(long far *)MK_FP(0, 0xd0 * 4))

       {

           _ES = FP_SEG(active);

           _BX = FP_OFF(active);

           asm{

              mov ax, 0x0920

              int 0xd0

              }[xuzj2] 

       }

       else

           active();

 

       /* 恢复栈 */

       restore_stack();[xuzj3] 

    }

}

 

multask.exe程序中对应调用:

serv

procedure serv(_Flags, _CS, _IP, _AX, _BX, _CX, _DX, _SI, _DI, _DS, _ES, _BP: Word); interrupt;

begin

    case _ax of

        $0920:

            begin

                asm

                    mov tempstack.s,ss

                    mov tempstack.o,sp

                end;[xuzj4] 

                InsertTask(ptr(_ES, _BX), tempstack.p);[xuzj5] 

            end;

… …

InsertTask

procedure InsertTask(p, stack: pointer {;dta:pointer;psp:word});

var j: integer;

begin

    asm                     {Enter Critical Area}

        MOV   AL ,1

        XCHG  MyHandleActive , AL

        MOV   isActive, AL

    end;

    if (not isActive) and (NumTaskCurrent < MaxTask) then

    begin

        inc(NumTaskCurrent);

        Tasks[NumTaskCurrent].Start.p := p;[xuzj6] 

        Tasks[NumTaskCurrent].needkey := true;

        Tasks[NumTaskCurrent].havekey := false;

        if Tasks[NumTaskCurrent - 1].havekey then

        begin

            Tasks[NumTaskCurrent].havekey := true;

            Tasks[NumTaskCurrent - 1].havekey := false;

        end;

        if Tasks[0].havekey then

        begin

            Tasks[NumTaskCurrent].havekey := true;

            Tasks[0].havekey := false;

        end;

        Tasks[NumTaskCurrent].noDosCalls := false;

        Tasks[NumTaskCurrent].TickInc := 1;

        Tasks[NumTaskCurrent].CurrentTicks := Tasks[NumTaskCurrent].TickInc;

        for j := 0 to VideoParamNum - 1 do

            Tasks[NumTaskCurrent].video[j] := ParamData[j * 5 + 4];

        if stack <> nil then

            Tasks[NumTaskCurrent].OStack.p := stack;[xuzj7] 

    end;

    if not isActive then

        asm

        mov MyHandleActive,0;

        end; {Leave Critical Area}

end;

 

然后是通过时钟中断来激活运行热自助程序:

MyTimer

procedure MyTimer[xuzj8] ; interrupt;

begin

    inline($9C)[xuzj9] ;

    OldTimer;

    if (not DosBusy^) and (not Critical^) and (In13 = 0) and (not InTimer) and(InMyDOS = 0)

        and ((CurrentTask < NumTaskLast) or (CurrentTask = 0)) then

     {and (CurrentTask<>1) then}

    begin

        InTimer := true;

        inline($9C);

       asm call far [dotimer] end;[xuzj10] 

        InTimer := false;

    end

    else

    begin

        if (NumTaskLast > 0) and (CurrentTask = 0) and (not Transed) and (not noDosswitch) then

            inc(TransCount);

    end;

    inline($9C);

    OldTimer;

    dec(meml[$40: $6C]);

end;

DoTimer(前部分,用于启动热自助程序)

procedure DoTimer; interrupt;

begin

    InTimer := true;

    asm                     {Enter Critical Area}

        MOV   AL ,1

        XCHG  MyHandleActive , AL

        MOV   isActive, AL

    end;

    if (not isActive) and (NumTaskCurrent > 0) then[xuzj11] 

    begin

        asm

            CLI

            MOV   TempStack.S,SS

            MOV   TempStack.O,SP

        end;

[xuzj12]         if NumTaskCurrent > NumTaskLast then

        begin

            if NumTaskLast = 0 then

            begin

                GetIntVec($21, @OldDosServe);

                if noDosSwitch then

                    @MyDosServe := @OldDosServe

                else

                    @MyDosServe := @DosServe1;

                SetIntVec($21, @MyDosServe);

            end;

            PreviousTask := CurrentTask;

            Tasks[PreviousTask].stack := TempStack;[xuzj13] 

            inc(NumTaskLast);[xuzj14] 

            CurrentTask := NumTaskLast;

            Tasks[CurrentTask].stack := Tasks[CurrentTask].ostack;

            LastStack := Tasks[CurrentTask].stack;

            asm

                MOV  SS,LastStack.S

                MOV  SP,LastStack.O

            end;[xuzj15] 

            SaveVideo(CurrentTask - 1);

            if (Tasks[CurrentTask].havekey) or NoKeySwitch then

                SetIntVec($16, @OldKeyServe)

            else

                SetIntVec($16, @MyKeyServe);

            asm

                MOV  MyHandleActive,0 {Leave Critical Area}

            end;

            InTimer := false;

            inline($9C);

            Tasks[CurrentTask].Start.Proc;[xuzj16] 

            asm

                MOV  MyHandleActive,1 {Enter Critical Area}

            end;

            dec(NumTaskCurrent);

            dec(NumTaskLast);[xuzj17] 

 

            if NumTaskCurrent = 0 then

            begin

                GetIntVec($21, @MyDosServe);

                SetIntVec($21, @OldDosServe);

            end;

            for i := CurrentTask to NumTaskCurrent do

                Tasks[i] := Tasks[i + 1];

            for i := NumTaskCurrent downto 0 do

            begin

                if Tasks[i].needkey then Tasks[i].havekey := true;

            end;

            if CurrentTask > NumTaskCurrent then CurrentTask := 0;

            LastStack := Tasks[CurrentTask].Stack;

            RestoreVideo(CurrentTask);

            if (Tasks[CurrentTask].havekey) or NoKeySwitch then

                SetIntVec($16, @OldKeyServe)

            else

                SetIntVec($16, @MyKeyServe);

            asm

                MOV  SS,LastStack.S

                MOV  SP,LastStack.O

                MOV  BP,SP               {!!!}

                ADD  BP,2

            end;[xuzj18] 

        end

        else

 

… …

 

至此,热自助程序应该开始启动,并开动和后台行情分析软件间的切换工作!

 

热自助在键盘空闲之时会要求multask.exe
将CPU切换给后台分析软件使用:

//GUI系统读键, 系统要求读键用此函数, 类似于bioskey()

int GuiKey(int cmd)

{

… …

       while (1)

       {

… …

              if(cmd == 0)

                     key = _bios_keybrd(_NKEYBRD_READY);

              else

                  key = bioskey(1);

… …

              else if (key == kbNoKey)

              {

… …

                     if(kbShiftTimes == 1 || !(Function&131072l))

                            if (getvect(0xd0))

                            {

                                   for(i=0;i<2;i++)

                                          asm{

                                          mov ax, 0x1974

                                          int 0xd0

                                             }[xuzj19] 

                            }

… …

 


multask.exe程序中对应调用:

serv

procedure serv(_Flags, _CS, _IP, _AX, _BX, _CX, _DX, _SI, _DI, _DS, _ES, _BP: Word); interrupt;

begin

    case _ax of

… …

        $1974:

            begin

                if (not InTimer) and (not DosBusy^) and (not Critical^) and (In13 = 0)

                    and (not NoTaskSwitch) then

                begin

                    InTimer := true;

                    inline($9C);

                   asm call far [dotimer] end;[xuzj20] 

                    InTimer := false;

                end;

            end;

… …

 

DoTimer(后半部分,用于任务间切换CPU)

procedure DoTimer; interrupt;

begin

    InTimer := true;

    asm                     {Enter Critical Area}

        MOV   AL ,1

        XCHG  MyHandleActive , AL

        MOV   isActive, AL

    end;

    if (not isActive) and (NumTaskCurrent > 0) then[xuzj21] 

    begin

        asm

            CLI

            MOV   TempStack.S,SS

            MOV   TempStack.O,SP

        end;

[xuzj22]         if NumTaskCurrent > NumTaskLast then[xuzj23] 

        begin

… …

        end

        else

            if not (NoTaskSwitch and (FixTask = CurrentTask)) then

            begin

 

                dec(Tasks[CurrentTask].CurrentTicks);

                if (Tasks[CurrentTask].CurrentTicks <= 0) then[xuzj24] 

                begin

                    PreviousTask := CurrentTask;

                    repeat

                        inc(Tasks[CurrentTask].CurrentTicks, Tasks[CurrentTask].TickInc);

                        CurrentTask := (CurrentTask + 1) mod (NumTaskCurrent + 1);

            {CurrentTask:=(CurrentTask+NumTaskCurrent) mod (NumTaskCurrent+1);}

                    until Tasks[CurrentTask].CurrentTicks > 0;[xuzj25] 

                    LastStack := Tasks[CurrentTask].Stack;

                    if (CurrentTask <> 0) then

                        asm

                            MOV SS,LastStack.S

                            MOV SP,LastStack.O

                            MOV BP,SP               {!!!}

                            ADD BP,2

                        end;[xuzj26] 

                    Tasks[PreviousTask].Stack := TempStack;[xuzj27] 

                    SaveVideo(PreviousTask);

                    RestoreVideo(CurrentTask);

                    if (Tasks[CurrentTask].havekey or NoKeySwitch) then

                        SetIntVec($16, @OldKeyServe)

                    else

                        SetIntVec($16, @MyKeyServe);

                    if (CurrentTask = 0) then

                        asm

                            MOV SS,LastStack.S

                            MOV SP,LastStack.O

                            MOV BP,SP               {!!!}

                            ADD BP,2

                        end;[xuzj28] 

                end;

            end

    end;

    TransCount := 0;

    if not isActive then

        asm

        mov MyHandleActive,0;

        end; {Leave Critical Area}

end;

 

从InsertTask可见,行情分析软件在multask的管理队列Tasks数组中对应的下标为0,而热自助的程序的下标应该是1;

这段代码退出后,将开始继续运行后台行情分析软件的代码

 

等待下一个时钟中断时,执行MyTimer,并调用DoTimer时将后台行情分析软件切换到热自助:

以上应该就是实现双活机制的整个实现过程了.

 

 [xuzj1]设置热自助自己的堆栈地址

 [xuzj2]调用MULTASK.EXE提供的0x0920功能,插入一个任务,并由MULTASK去引导执行

 [xuzj3]回复堆栈地址(应该是行情分析软件的)

 [xuzj4]热自助程序自己的堆栈

 [xuzj5]插入在multask中任务并开始由其管理

 [xuzj6]热自助程序的入口程序

 [xuzj7]指定热自助程序的堆栈

 [xuzj8]用于重载0x08时钟中断向量

 [xuzj9]Pushf,防止执行OldTimer后破坏原来的堆栈

 [xuzj10]执行dotimer,其为启动热自助和实现双活的主要过程

 [xuzj11]此判断应该是为了防止重入或在无需任务切换时进入

 [xuzj12]保存当前的任务的堆栈信息

 [xuzj13]保存当前任务的堆栈指针;便于之后的任务切换或在退出时用于恢复原先的堆栈指针

 [xuzj14]增加一由MULTASK.EXE管理的任务

 [xuzj15]设置热自助任务的堆栈指针,使得启动热自助后使用此堆栈区间

 [xuzj16]执行到这儿,应该开始启动并显示热自助程序的主界面,并一直运行直到退出热自助程序

 [xuzj17]删除一热自助任务

 [xuzj18]恢复当前任务(应是后台行情分析软件)的堆栈指针

 [xuzj19]调用MULTASK.exe提供的0x1974功能进行切换CPU任务

 [xuzj20]调用dotimer的后半部分实现CPU切换

 [xuzj21]此判断应该是为了防止重入或在无需任务切换时进入

 [xuzj22]获取当前任务的堆栈指针

 [xuzj23]此段代码在有新任务加入时切换,其在前面已经有所描述

 [xuzj24]应该是用于控制任务切换的时间间隔,缺省应该是一个时钟中断间隔切换一次

 [xuzj25]依次对各任务的时钟占用增加指定间隔(缺省为1),若下一得到一任务的时钟占用大于0就跳出

 [xuzj26]恢复下一任务的堆栈指针,使得退出中断时即可运行该任务的代码(此段代码在热自助切换到后台行情分析软件时应该不会执行)

 [xuzj27]保存切换前的任务的堆栈指针

 [xuzj28]恢复下一任务的堆栈指针,使得退出中断时即可运行该任务的代码(此段代码在后台行情分析软件切换到热自助程序时应该不会执行)

米泥
关注
  • 1
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
利用Quartz设计采集系统并实现系统双活机制_在SpringCloud中自己设计系统双活---SpringCloud工作笔记178
添柴程序猿的专栏
06-23 564
因为项目仅仅是不停的抓数据,没有弄成分布式的,但依然需要系统双活来保证系统稳定. 这个时候,我的思路是:这个在另一篇博文中有些的详细思路(在Timer定时任务中_基于Redis自己实现一套双机互备_双活系统_基于抢占原则),可以搜索双活查到,但是实际实现起来,碰到了一些问题,已经解决,记录下来.首先根据上面这个博文,已经实现了,一个简单的quartz定时:1.自己定义一个QuartzTask普通的接口,然后实现几个这个接口,做为不同的定时任务.2.但这里需要的是,动态添加任务,因为系统启动后,不同的定时器,
双活存储基础知识
weixin_34109408的博客
05-20 1万+
双活特性中的两个数据中心互为备份，且都处于运行状态。当一个数据中心发生设备故障，甚至数据中心整体故障时，业务自动切换到另一个数据中心，解决了传统灾备业务无法自动切换的问题。提供给用户高级别的数据可靠性以及业务连续性的同时，提高存储系统的资源利用率。 存储系统为基础的存储双活架构，为客户建设业务不间断运行的解决方案，包括本地数据中心部署逻辑架构和跨数据中心部署逻辑架构。...
华为云计算之双活容灾
坏坏-5的博客
02-21 899
关于华为云计算HCIE中的双活容灾技术介绍！
异地双活实践笔记
mark's technic world
01-22 9981
最近恰好在搞异地双活，以下是一个梳理： 基本概念 1、异地容灾。这仅仅是一个冷备的概念。也就是在平时正常的时候，另外一个机房只是当做备份。 2、异地双（多）活。而异地双（多）活，却是指有两个或者多个可以同时对外服务的节点，任意一个点挂了，也可以迅速切换到其他节点对外服务，节点之间的数据做到准实时同步。 分类 根据是否需要数据同步大体分为三类： 1、必须同步型。（比如数据库） 2、无须...
es双活方案
wssmao250的博客
07-30 2435
参考：http://www.yunxiaobai.net/archives/489 另外：ES7.1.1中支持了ＣＣＲ跨集群复制，但是该功能属于ｘｐａｃｋ中，非免费使用。
技术实践｜浅谈Elasticsearch跨集群搜索
zhongdianjinxin的博客
01-17 1169
ES在5.3及以后的版本中引入了跨集群搜索的功能，可以针对一个或多个远程集群进行单个搜索请求，这也是目前主流的ES跨集群搜索方案。本文主要围绕CCS的基本概念、应用场景以及CCS配置方面进行了简要的梳理。
Ubuntu环境keepalived+Apache双活机制配置参考
02-06
一、LVM磁盘分区创建及挂载 3 1.配置清单 3 2.操作步骤 3 二、Apache安装与配置 4 1.安装Apache 4 2.启动Apache相关模块 4 3.配置Apache 5 4.启动/停止Apache 5 三、keepalived安装与配置 6 1.安装keepalived 6 ...
浪潮双活存储解决方案浪潮双活存储解决方案
最新发布
01-04
浪潮双活存储解决方案
存储 nas 双活 中文版安装明细
08-21
netapp 中文安装文档 双活说明
日立存储实施数据中心双活
05-30
概念 本地或远程（近距离）存储高可用方案 配置 两台高端存储VSP存储系统； 两台存储通过TC同步复制，保持数据一致 通过虚拟化外部存储作为Quorum Disk 客户收益 当存储系统出现故障时，应用系统能够自动的，不...
数据库双活部署
09-08
介绍农行的数据库实现双活的案例，非常有参考价值。 实现灾备，实现快速反应。
ElasticSearch 同城容灾调研
Coolyqq的专栏
03-10 2634
ElasticSearch 同城容灾调研
双活方案
zoomtech的专栏
04-22 905
http://weibo.com/p/1001603829748445879683?mod=zwenzhang
微服务双活体系建设
liu1390910的博客
04-08 1356
双机房部署 双活数据中心入口路由算法 静态路由算法：基于IP地址进行选择 动态路由算法：分析链路和数据中心的负载情况，响应时间，优先级等进行路由 系统网关控制：通过网关制定规则实现流量分发 双活数据中心需要注意的问题 脑裂现象：网络出现波动，通信终端，无法感知，各自为战，很难判断请求应该分发到哪个数据中心 运维相对复杂：数据同步问题，如何达到同步准实时 非零丢失：一个机房挂掉，另一个机房还没有及时同步最新数据的情况，只是非常少量的数据丢失，所以双活不能保证非零丢失 基于支付场景的双活体系建设 业
什么是"双活"
菜鸟-传奇
11-11 1万+
什么是"双活" 主备数据中心之间一般有热备、冷备、双活三种备份方式。 热备 热备的情况下，只有主数据中心承担用户的业务，此时备数据中心对主数据中心进行实时的备份，当主数据中心挂掉以后，备数据中心可以自动接管主数据中心的业务，用户的业务不会中断，所以也感觉不到数据中心的切换。 冷备 冷备的情况下，也是只有主数据中心承担业务，但是备用数据中心不会对主数据中心进行实时备份，这时可能是周期性的进...
数据中心双活该如何构建
热门推荐
Hardy
04-25 2万+
双活本身其实有广义和狭义之分，但是在数据中心这个前提下，我们所说的双活就是广义上的应用、网络、存储和数据的端到端的数据中心双活，顾名思义，应用、网络、存储都应该是双活状态，当然在项目部署和实施过程中，技术上支持部分处于双活或HA状态、部分是单点状态，只是这种方式会使整体方案的双活能力大打折扣。
双写、双写缓冲、双删、双活、双机热备
haoranhaoshi的博客
09-16 2896
双写：新旧数据库在线迁移、数据库在线扩缩容等场景下，可以一边写旧库，一边写到MQ，新库将历史数据消化完后，消费MQ中的数据，在访问低峰，MQ中没有数据或很少数据后，切换到新库，MQ中堆积的数据被消费完后就可以下掉了。写MQ的数据可以靠Canal监听旧库得到。 双写缓冲：MySQL的Innodb中有Double Write Buffer，也就是双写缓冲，数据落盘时，Innodb的数据页写到操作系统的数据页，也会写到Double Write Buffer，如果写到操作系统的数据页失败，可以靠Double .
存储数据保护技术——HyperMetro双活技术讲解
m0_49864110的博客
04-12 7508
哪个阵列先找到仲裁设备，哪个就为主---------是一个软件，一般安装在Linux系统中。通常部署在同城或着相近城市的来两个数据中心（300km以内）正常情况下，双活特性中的两个数据中心互为备份，且都处于运行状态。当其中一个数据中心发生故障时，可以自动切换到另一个数据中心。写入时不会写入到此空间，会写入到其它的空间中（当脑裂或者其中一个数据中心出现故障时，可以通过。空间锁定会进行动态调整，分布在两个阵列上）），会将其写入数据的空间进行锁定。通常部署在同园区的不同机房中。进行写入时（会双写到阵列。
Elastic Job 同城主备、同城双活，高可用必备
Tom_sensen的博客
09-01 773
在使用Elastic Job Lite做定时任务的时候，我发现很多开发的团队都是直接部署单点，这对于一些离线的非核心业务（如对账、监控等）或许无关紧要，但对于一些高可用补偿、核心数据定时修改（如金融场景的利息更新等），单点部署则“非常危险”。实际上，Elastic Job Lite是支持高可用的。 网上关于Elastic Job的较高级的博文甚少，本文试图结合自身实践的一些经验，大致讲解其方案原理，并延伸至同城双机房的架构实践。 单点部署到高可用 如本文开头所说，很多系统的部署是采取以下部署架构：
springboot 双活
09-09
3. 数据同步：双活架构需要保证数据的一致性，所以需要考虑数据同步的机制。可以使用数据库复制、消息队列等方式来实现数据同步，确保应用实例之间的数据是最新的。 4. 故障切换：在一个地理位置的主要应用实例发生...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值