去评论
随县网_随县论坛_随州随县论坛网

【转载】七夕小程序：瞬间让对方电脑桌面开满999朵玫瑰（纯16位汇编）2500行

┽→踏雪无痕╰
2013/08/14 11:08:27
前些日子不是七夕嘛。然后呢。正好今年收获了女朋友哈。我就想写一只程序来送她当礼物。纯16位汇编编写。程序情书部分已经略去。咳咳。程序放出源码供同学们交流讨论哈。。
里面涉及了许多知识。自己慢慢挖掘咯。程序可能会有BUG（譬如。bit子程序）。这就需要同学们去发现了。 里面那个玫瑰html源码非本人编写。。借用哈。。IE貌似不会显示出玫瑰。请用chrome或者火狐吧。

其实玫瑰下边是情书，只不过我在这里的给略去了而已。

PS:话说。她挺喜欢的。你们明年的8.2可以想一下。做个什么程序礼物给自己的她。不仅可以增进感情，还可以加强自己的知识哈。。。


欢迎同学们共同讨论哈。程序可能写的不怎么样。但是都是用心去写的每一行代码。。



编译环境：masm6.15


想要完整的环境及工具都在压缩包里。
2500行=代码+空格+注释。。。

程序源码下载：http://pan.baidu.com/share/link? ... 8&uk=4160755509

代码:
  1. assume cs:CG

  3. DG segment
  4.   l  db 9 dup (20h)
  5.     db '   *  *             *  *              *  *             *  *   '
  6.     db 18 dup (20h)
  7.     db ' *      *         *      *          *      *         *      * '
  8.     db 18 dup (20h)
  9.     db '*       *        *       *         *       *        *       * '
  10.     db 18 dup (20h)
  11.     db '*       *        *    *  *         *       *        *    *  * '
  12.     db 18 dup (20h)
  13.     db ' * * *  *         * *     *         * * *  *         * *     *'
  14.     db 18 dup (20h)
  15.     db '        *                                  *                  '
  16.     db 18 dup (20h)
  17.     db '*      *                           *      *                   '
  18.     db 18 dup (20h)
  19.     db ' * * *                              * * *                     '
  20.    
  21.     ;gaga
  22.    
  23.   num  dw $ - offset l
  24. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  25.     ;colour
  26.     ;黑+白：07H
  27.     ;蓝+红：1CH
  28.     ;红+红：4CH
  29.     ;蓝+高黄：1eh
  30.     ;高  红+黄：0ceh
  31.     ;高绿：0ah
  32.     ;高红：0ch
  33.     ;高黄：0eh
  34.     ;高蓝：09h
  35.    
  36. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<   

  38.   i  db 27 dup (20h,0)
  39.     db 'P',0ah,'l',0ah,'e',0ah,'a',0ah,'s',0ah,'e',0ah,' ',0ah,'p',0ah,'r',0ah
  40.     db 'e',0ah,'s',0ah,'s',0ah,' ',0ah,'t',0ah,'h',0ah,'e',0ah,"'",0ah,'1',0ch
  41.     db "'",0ah,' ',0ah,'k',0ah,'e',0ah,'y',0ah,'.',0ah
  42.     db 28 dup (20h,0)
  43.    
  44.     db 39 dup (20h,0)
  45.     db 19h,0eh
  46.     db 40 dup (20h,0)
  47.     ;Please press the "1" key.
  48.    
  49. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  50.   t  db 15 dup (20h)
  51.     db '9966999999966699999996699666699666999966699666699'
  52.     db 31 dup (20h)
  53.     db '9969999999996999999999699666699669966996699666699'
  54.     db 31 dup (20h)
  55.     db '9966999999999999999996699666699699666699699666699'
  56.     db 31 dup (20h)
  57.     db '9966669999999999999666669999966699666699699666699'
  58.     db 31 dup (20h)
  59.     db '9966666699999999966666666999666699666699699666699'
  60.     db 31 dup (20h)
  61.     db '9966666666999996666666666999666669966996699666699'
  62.     db 31 dup (20h)
  63.     db '9966666666699966666666666999666666999966669999996'
  64.     db 31 dup (20h)
  65.     db '6666666666669666666666666666666666666666666666666'
  66.     db 16 dup (20h)
  67.     ;隐含图
  68.    
  69. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  71.   e  db 160 dup (20h)
  72.     db 53 dup (20h)
  73.     db '*'
  74.     db 50 dup (20h)
  75.     db '*'
  76.     db 27 dup (20h)
  77.     db '******'
  78.     db 43 dup (20h)
  79.     db '******'
  80.     db 24 dup (20h)
  81.     db '*      *'
  82.     db 44 dup (20h)
  83.     db '*'
  84.     db 26 dup (20h)
  85.     db '*  *   *'
  86.     db 44 dup (20h)
  87.     db '*'
  88.     db 30 dup (20h)
  89.     db '* *'
  90.     db 45 dup (20h)
  91.     db '*     *'
  92.     db 26 dup (20h)
  93.     db '*'
  94.     db 47 dup (20h)
  95.     db '****'
  96.     db 26 dup (20h)
  97.     db '**'
  98.     db 77 dup (20h)
  99.     db '*'
  100.     db 27 dup (20h)
  101.     ;七夕  8行
  102.    
  103. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  104.    
  105.   g  db 240 dup (20h)
  106.     db 6 dup (20h)
  107.     db '*'
  108.     db 17 dup (20h)
  109.     db '*  *'
  110.     db 9 dup (20h)
  111.     db '*  * *'
  112.     db 6 dup (20h)  ;8(这个没用，原来备份的值)
  113.     db '*  * *'
  114.     db 8 dup (20h)
  115.     db '*       *'
  116.     db 15 dup (20h)  ;13
  117.    
  118.     db '*   * *'
  119.     db 9 dup (20h)
  120.     db '*      *'
  121.     db 7 dup (20h)
  122.     db '**     *'
  123.     db 4 dup (20h)  ;6
  124.     db '**     *'
  125.     db 7 dup (20h)
  126.     db '*     *'
  127.     db 16 dup (20h)  ;14
  128.    
  129.     db '* *     *'
  130.     db 6 dup (20h)
  131.     db '*       *'
  132.     db 7 dup (20h)
  133.     db '*      *'
  134.     db 4 dup (20h)  ;6
  135.     db '*      *'
  136.     db 8 dup (20h)
  137.     db '*   *'
  138.     db 16 dup (20h)  ;14
  139.    
  140.     db '**      *'
  141.     db 6 dup (20h)
  142.     db '*    *  *'
  143.     db 7 dup (20h)
  144.     db '**  *'
  145.     db 7 dup (20h)  ;9
  146.     db '**  *'
  147.     db 14 dup (20h)
  148.     db '*'
  149.     db 17 dup (20h)  ;15
  150.    
  151.     db '*       *'
  152.     db 7 dup (20h)
  153.     db '* *     *'
  154.     db 6 dup (20h)
  155.     db '*'
  156.     db 11 dup (20h)  ;13
  157.     db '*'
  158.     db 17 dup (20h)
  159.     db '*'
  160.     db 19 dup (20h)  ;17
  161.    
  162.     db '*      *'
  163.     db 23 dup (20h)
  164.     db '*'
  165.     db 11 dup (20h)  ;13
  166.     db '*'
  167.     db 14 dup (20h)
  168.     db '*'
  169.     db 14 dup (20h)  ;14
  170.     db 320 dup (20)
  171.     ;happy  10行
  172.    
  173. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  175.   het1 DW 0B8CH,0AEAH,0A48H,09A6H,0904H,0860H,07BCH,0718H,0676H,05D6H,0538H,049CH
  176.      DW 049EH,04A0H,04A2H,04A4H,04A6H,04A8H,04AAH,054CH,05EEH,0550H,04B2H,04B4H
  177.      DW 04B6H,04B8H,04BAH,04BCH,04BEH,04C0H,0564H,0606H,06A6H,0744H,07E0H,087CH
  178.      DW 0918H,09B6H,0A54H,0AF2H,0B90H,0C2EH
  179.      ;内层坐标
  180.      
  181.   het2 DW 0CCEH,0C2AH,0B86H,0A40H,08F8H,07B2H,066CH,052AH,03EEH,02B4H,021EH,02C8H
  182.      DW 040EH,02D4H,023EH,02E8H,042EH,0572H,06B0H,07EAH,0924H,0A5CH,0B96H,0C32H
  183.      ;外层坐标

  185.      ;双层心(组合)
  186.      
  187.      
  188.   het3 DB 'Guess my mind~'
  189.      ;猜猜我的心
  190.      
  191. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  193.   het4 DW 0CCEH,0C2AH,0B86H,0A40H,08F8H,07B2H,066CH,052AH,03EEH,02B4H,021EH,02C8H
  194.      DW 040EH
  195.      ;左半(外层)
  196.      DW 05EEH,054CH,04AAH,04A8H,04A6H,04A4H,04A2H,04A0H,049EH,049CH,0538H,05D6H
  197.      DW 0676H,0718H,07BCH,0860H,0904H,09A6H,0A48H,0AEAH,0B8CH,0C2EH
  198.      ;左半(内层)
  199.      
  200.   het5 DW 0CCEH,0C32H,0B96H,0A5CH,0924H,07EAH,06B0H,0572H,042EH,02E8H,023EH,02D4H
  201.      DW 040EH
  202.      ;右半(外层)
  203.      DW 05EEH,0550H,04B2H,04B4H,04B6H,04B8H,04BAH,04BCH,04BEH,04C0H,0564H,0606H
  204.      DW 06A6H,0744H,07E0H,087CH,0918H,09B6H,0A54H,0AF2H,0B90H,0C2EH
  205.      ;右半(内层)
  206.      
  207.      ;双层心(分散)

  209. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  211.   next    db "Next                            "
  212.         db "Please press 1 or 2 to choose.  "
  213.         db "                                "
  214.         db "                                "
  215.         db "                                "
  216.         ;提示语句
  217.         ;接下来，请按1或2来选择
  218.      
  219.   problem1  db "Can answer my three questions?  "
  220.         db "                                "
  221.         db "1.OK          2.NO              "
  222.         db "                                "
  223.         db "                                "
  224.       
  225.       ;可以回答我3个问题么？
  226.       ;1.OK(problem2)         2.NO(problem3)
  227.       
  228.   problem2  db "Well,you already answered my    "
  229.         db "first question,you can answer   "
  230.         db "my third question it?           "
  231.         db "                                "
  232.         db "1.OK          2.NO              "
  233.         
  234.         
  235.       ;好，你已经回答我一个问题了，那么可以回答我第三个问题么？
  236.       ;1.OK(promble4)         2.NO(problem5)
  237.       
  238.   problem3  db "Well,I just hope you can answer "
  239.         db "my third question?              "
  240.         db "                                "
  241.         db "1.OK          2.NO              "
  242.         db "                                "
  243.       
  244.       ;好吧，我只希望你能够回答我第三个问题好么？
  245.       ;1.OK(problem4)          2.NO(problem5)
  246.      
  247.   problem4  db "Do you love me?                 "
  248.         db "The answer can be and the answer"
  249.         db "to the second question?         "
  250.         db "                                "
  251.         db "1.OK          2.OK              "
  252.         
  253.         
  254.       ;你喜欢我么？答案可以和第二个问题一样吗？
  255.       ;1.OK(joke)             2.OK(joke)
  256.       
  257.   problem5  db "Do you love me?                 "
  258.         db "The answer can be and the answer"
  259.         db "to the second question?         "
  260.         db "                                "
  261.         db "1.NO          2.NO              "
  262.         
  263.       ;你喜欢我么？答案可以和第二个问题一样吗？
  264.       ;1.NO(joke)             2.NO(joke)
  265.       
  266.       
  267.   joke    db "                                "
  268.         db "      \(*^__^*)/...             "
  269.         db "                                "
  270.         db "You choose,is that I want to say"
  271.         db "                                "
  272.       
  273.        ;你选的，就是我想说的。
  274.       
  275. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  277.       
  278.   rose1    db "rose.htm",0
  279.         
  280.   rose3    db "<html>"
  281.         db "<head>"
  282.         db "<meta http-equiv="
  283.         db "'Content-Type' content='text/html;charset=gbk'>"
  284.         db "<title>献给最喜欢的人</title>"
  285.         
  286.         db "</head>"
  287.         db "<body>"
  288.         db "<canvas></canvas>"
  289.         db "<script>"
  290.         
  291.         db "var c = document.getElementsByTagName('canvas')[0];"
  292.         db "var b = document.body;"
  293.         db "var a = c.getContext('2d');"
  294.         
  295.         db "with(m=Math)C=cos,S=sin,P=pow;O=a.getImageData"
  296.         db "(0,0,c.height=f=W=256,f);U=O.data;D={};F=[];function "
  297.         db "J(p){p[5]=Q=0;for(j=3;j--;)if(!D[Q=(p[j]>>=2)+Q*f])D[Q]"
  298.         db "=F.push(p)}setInterval(function(){for(i=1e3;i--;){c=i%42*1.35;"
  299.         db "H=T;T=m.random();A=H*2-1;B=T*2-1;"
  300.         db "J([S(H*7)*(o=13+5/(.2+P(T*4,4)))-T*50,T*550+500,(l=C(H*7))*o,"
  301.         db "(G=l/7+.5)-T/4,G]);if(A*A+B*B<1)if(c>32)"
  302.         db "{J([(o=.5/(H+.01)-H*300)*C(n=(j=c&1)?6:4)+"
  303.         db "(w=T*-f)*S(n)+j*630-390,"
  304.         db "o*S(n)-w*C(n)+999-j*350,C(B+A)*99-j*50,"
  305.         db "(P(l=1-B*B,f*6)+C(H+T)+P(C((o*H+o+(B>0?w:-w))/25),"
  306.         db "30)*l-H+2)/5,o/1e3+.7-o*w/3e5])"
  307.         db ";J([(o=H*45-20)*C(l=c/.86)+(w=T*T)*f*S(l),"
  308.         db "C(B/2)*99-w*T*60+436,o*S(l)-w*f*C(l),w*.3+.3,T*.7])}else "
  309.         db "J([(o=A*(2-T)*(80-c*2))*C(c)-(w=99-C(A)*120-C(T)*"
  310.         db "(f-c*5)+C(P(1-T,7))*50+c*2)*S(c),(B*2-C(P(T,7))+9)*50,"
  311.         db "o*S(c)+w*C(c),1-T*.7,P(1-T,9)/4])}for(i=0;i<f*f;"
  312.         db "m[i++]=f)for(l=4;l--;)U[i*4+l]=255;for(c=C(W),"
  313.         db "s=S(W),j=F.length;j--;){k=F[j],x=k[0]*c+k[2]*s+99,"
  314.         db "z=k[0]*s-k[2]*c,y=k[1]-z*.4<<8;for(i=3;i--;)if"
  315.         db "(z<m[p=y-~x+[0,1,f][i]])for(m[p]=z,l=3;l--;)"
  316.         db "U[p*4+l]=k[l+3]*f}a.putImageData(O,0,0);W+=.03},T=0)"
  317.         
  318.         db "</script>"
  319.         db "</body>"
  320.         db "<br><br/>"
  321.         db "<br><br/>"
  322.         db "<br>执此红玫瑰,送予心上人<br/>"
  323.         db "</html>"
  324.         
  325.       ;玫瑰html源码+创建文件所需
  326.   
  327. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  329.   gift    db 'Please check your folder,'
  330.         db 'there is a gift to you.  '
  331.         
  332.       ;提示语：请查看你的文件夹，有一个礼物呦~
  333. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  335.   back1    db 'Now look at your folders to'
  336.         db 'have more than one file.   '
  337.         db 'Open her,A surprise        '
  338.         db "please click 'Q' key exit. "
  339.         db '    From www.asmedu.net    '
  340.         db '        by:MeeSong         '
  341.         db '        2012.08.23         '
  342.    
  343.   adrs    dw 03DCH,053EH,066CH,08F0H,0C46H,0CE6H,0D86H

  345. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  346.   love1 db 00h,00h,00h,00h,00h,00h,00h,00h
  347.       db 00h,00h,00h,010h,00h,00h,00h,00h
  348.       db 00h,00h,01fh,090h,00h,00h,00h,00h
  349.       db 00h,00h,01fh,090h,03eh,00h,00h,00h
  350.       db 00h,00h,04h,0feh,023h,00h,00h,00h
  351.       db 00h,00h,04h,013h,021h,00h,00h,00h
  352.       db 00h,00h,04h,011h,021h,00h,00h,00h
  353.       db 00h,00h,04h,011h,021h,00h,00h,00h
  354.       db 00h,00h,04h,011h,021h,00h,00h,00h
  355.       db 00h,00h,04h,011h,021h,00h,00h,00h
  356.       db 00h,00h,04h,011h,021h,00h,00h,00h
  357.       db 00h,00h,01fh,091h,021h,00h,00h,00h
  358.       db 00h,00h,04h,011h,021h,00h,00h,00h
  359.       db 00h,00h,04h,011h,021h,00h,00h,00h
  360.       db 00h,00h,04h,031h,021h,00h,00h,00h
  361.       db 00h,00h,04h,021h,021h,00h,00h,00h
  362.       db 00h,00h,04h,021h,021h,00h,00h,00h
  363.       db 00h,00h,04h,021h,021h,00h,00h,00h
  364.       db 00h,00h,05h,0c1h,021h,00h,00h,00h
  365.       db 00h,00h,06h,041h,021h,00h,00h,00h
  366.       db 00h,00h,038h,081h,021h,00h,00h,00h
  367.       db 00h,00h,01h,093h,023h,00h,00h,00h
  368.       db 00h,00h,01h,0eh,03eh,00h,00h,00h
  369.       db 00h,00h,00h,00h,00h,00h,00h,00h
  370.       db 00h,00h,00h,00h,00h,00h,00h,00h
  371.       ;珈

  373.   love2 db 00h,00h,00h,01h,080h,00h,00h,00h
  374.       db 00h,00h,00h,03h,0c0h,00h,00h,00h
  375.       db 00h,00h,03fh,086h,060h,00h,00h,00h
  376.       db 00h,00h,04h,0ch,010h,00h,00h,00h
  377.       db 00h,00h,04h,030h,0ch,00h,00h,00h
  378.       db 00h,00h,04h,0cfh,0f7h,00h,00h,00h
  379.       db 00h,00h,04h,00h,01h,00h,00h,00h
  380.       db 00h,00h,04h,01eh,00h,00h,00h,00h
  381.       db 00h,00h,04h,03fh,06h,00h,00h,00h
  382.       db 00h,00h,04h,061h,026h,00h,00h,00h
  383.       db 00h,00h,03fh,061h,026h,00h,00h,00h
  384.       db 00h,00h,04h,07fh,026h,00h,00h,00h
  385.       db 00h,00h,04h,07fh,026h,00h,00h,00h
  386.       db 00h,00h,04h,061h,026h,00h,00h,00h
  387.       db 00h,00h,04h,061h,026h,00h,00h,00h
  388.       db 00h,00h,04h,07fh,026h,00h,00h,00h
  389.       db 00h,00h,04h,061h,026h,00h,00h,00h
  390.       db 00h,00h,05h,0e1h,026h,00h,00h,00h
  391.       db 00h,00h,07h,061h,06h,00h,00h,00h
  392.       db 00h,00h,01ch,061h,06h,00h,00h,00h
  393.       db 00h,00h,030h,061h,06h,00h,00h,00h
  394.       db 00h,00h,00h,06fh,03ch,00h,00h,00h
  395.       db 00h,00h,00h,00h,00h,00h,00h,00h
  396.       db 00h,00h,00h,00h,00h,00h,00h,00h
  397.       db 00h,00h,00h,00h,00h,00h,00h,00h
  398.       ;瑜

  400.   love3 db 00h,00h,00h,00h,00h,00h,00h,00h
  401.       db 00h,00h,00h,01h,00h,00h,00h,00h
  402.       db 00h,00h,00h,039h,020h,00h,00h,00h
  403.       db 00h,00h,03h,0e1h,030h,00h,00h,00h
  404.       db 00h,00h,01eh,081h,018h,00h,00h,00h
  405.       db 00h,00h,00h,081h,08h,00h,00h,00h
  406.       db 00h,00h,00h,081h,0ch,00h,00h,00h
  407.       db 00h,00h,00h,081h,00h,00h,00h,00h
  408.       db 00h,00h,03fh,0ffh,0ffh,00h,00h,00h
  409.       db 00h,00h,00h,081h,00h,00h,00h,00h
  410.       db 00h,00h,00h,081h,04h,00h,00h,00h
  411.       db 00h,00h,00h,081h,0ch,00h,00h,00h
  412.       db 00h,00h,00h,085h,088h,00h,00h,00h
  413.       db 00h,00h,00h,0b8h,090h,00h,00h,00h
  414.       db 00h,00h,01h,0e0h,0b0h,00h,00h,00h
  415.       db 00h,00h,0fh,080h,0a0h,00h,00h,00h
  416.       db 00h,00h,038h,080h,0e0h,00h,00h,00h
  417.       db 00h,00h,00h,080h,0c1h,00h,00h,00h
  418.       db 00h,00h,00h,081h,0e1h,00h,00h,00h
  419.       db 00h,00h,00h,082h,021h,00h,00h,00h
  420.       db 00h,00h,00h,08ch,011h,00h,00h,00h
  421.       db 00h,00h,018h,098h,019h,00h,00h,00h
  422.       db 00h,00h,0fh,080h,0eh,00h,00h,00h
  423.       db 00h,00h,00h,00h,00h,00h,00h,00h
  424.       db 00h,00h,00h,00h,00h,00h,00h,00h
  425.       ;我

  427.   love4 db 0,0,0,0,07fh,0,0,0
  428.       db 0,0,07h,0ffh,0f8h,0,0,0
  429.       db 0,0,0,0,04h,0,0,0
  430.       db 0,0,01h,04h,0ch,0,0,0
  431.       db 0,0,0,086h,08h,0,0,0
  432.       db 0,0,0,082h,018h,0,0,0
  433.       db 0,0,0,0c2h,010h,0,0,0
  434.       db 0,0,01fh,0ffh,0ffh,0c0h,0,0
  435.       db 0,0,010h,010h,0,040h,0,0
  436.       db 0,0,010h,010h,0,040h,0,0
  437.       db 0,0,010h,010h,0,0c0h,0,0
  438.       db 0,0,013h,0ffh,0feh,080h,0,0
  439.       db 0,0,0,030h,0,0,0,0
  440.       db 0,0,0,020h,0,0,0,0
  441.       db 0,0,0,03fh,0fch,0,0,0
  442.       db 0,0,0,07fh,0feh,0,0,0
  443.       db 0,0,0,0f0h,04h,0,0,0
  444.       db 0,0,0,098h,0ch,0,0,0
  445.       db 0,0,01h,08ch,018h,0,0,0
  446.       db 0,0,07h,06h,030h,0,0,0
  447.       db 0,0,0ch,03h,0c0h,0,0,0
  448.       db 0,0,018h,03h,0e0h,0,0,0
  449.       db 0,0,0,03ch,03ch,0,0,0
  450.       db 0,0,03h,0e0h,07h,0c0h,0,0
  451.       db 0,0,0,0,0,0,0,0
  452.       ;爱

  454.   love6 db 00h,00h,02h,020h,00h,00h,00h,00h
  455.       db 00h,00h,02h,020h,00h,00h,00h,00h
  456.       db 00h,00h,06h,020h,00h,00h,00h,00h
  457.       db 00h,00h,04h,03fh,0fch,00h,00h,00h
  458.       db 00h,00h,04h,07fh,0feh,00h,00h,00h
  459.       db 00h,00h,04h,041h,03h,00h,00h,00h
  460.       db 00h,00h,0ch,0c1h,02h,00h,00h,00h
  461.       db 00h,00h,0ch,081h,02h,00h,00h,00h
  462.       db 00h,00h,0dh,01h,02h,00h,00h,00h
  463.       db 00h,00h,014h,011h,00h,00h,00h,00h
  464.       db 00h,00h,014h,011h,08h,00h,00h,00h
  465.       db 00h,00h,024h,031h,08h,00h,00h,00h
  466.       db 00h,00h,04h,021h,04h,00h,00h,00h
  467.       db 00h,00h,04h,021h,04h,00h,00h,00h
  468.       db 00h,00h,04h,061h,04h,00h,00h,00h
  469.       db 00h,00h,04h,041h,06h,00h,00h,00h
  470.       db 00h,00h,04h,0c1h,02h,00h,00h,00h
  471.       db 00h,00h,04h,081h,02h,00h,00h,00h
  472.       db 00h,00h,05h,081h,02h,00h,00h,00h
  473.       db 00h,00h,05h,01h,02h,00h,00h,00h
  474.       db 00h,00h,04h,019h,00h,00h,00h,00h
  475.       db 00h,00h,04h,0fh,00h,00h,00h,00h
  476.       db 00h,00h,00h,00h,00h,00h,00h,00h
  477.       db 00h,00h,00h,00h,00h,00h,00h,00h
  478.       db 00h,00h,00h,00h,00h,00h,00h,00h
  479.       ;你

  481.   love7 db 00h,00h,08h,018h,00h,00h,00h,00h
  482.       db 00h,00h,0ch,010h,00h,00h,00h,00h
  483.       db 00h,00h,06h,01fh,0ffh,080h,00h,00h
  484.       db 00h,00h,02h,020h,00h,00h,00h,00h
  485.       db 00h,00h,01h,060h,00h,00h,00h,00h
  486.       db 00h,00h,00h,0cfh,0feh,00h,00h,00h
  487.       db 00h,00h,00h,090h,03h,00h,00h,00h
  488.       db 00h,00h,010h,011h,03h,00h,00h,00h
  489.       db 00h,00h,08h,010h,082h,00h,00h,00h
  490.       db 00h,00h,04h,010h,0c2h,00h,00h,00h
  491.       db 00h,00h,04h,030h,042h,00h,00h,00h
  492.       db 00h,00h,00h,07fh,0ffh,080h,00h,00h
  493.       db 00h,00h,01h,0ffh,0ffh,080h,00h,00h
  494.       db 00h,00h,03h,022h,02h,00h,00h,00h
  495.       db 00h,00h,02h,023h,02h,00h,00h,00h
  496.       db 00h,00h,02h,021h,082h,00h,00h,00h
  497.       db 00h,00h,02h,060h,082h,00h,00h,00h
  498.       db 00h,00h,06h,040h,082h,00h,00h,00h
  499.       db 00h,00h,04h,07fh,0ffh,080h,00h,00h
  500.       db 00h,00h,04h,00h,04h,00h,00h,00h
  501.       db 00h,00h,0ch,01h,04h,00h,00h,00h
  502.       db 00h,00h,08h,01h,0fch,00h,00h,00h
  503.       db 00h,00h,00h,00h,00h,00h,00h,00h
  504.       db 00h,00h,00h,00h,00h,00h,00h,00h
  505.       db 00h,00h,00h,00h,00h,00h,00h,00h
  506.       ;海
  507.       
  508.   love8 db 00h,00h,01h,00h,040h,00h,00h,00h
  509.       db 00h,00h,01h,00h,040h,00h,00h,00h
  510.       db 00h,00h,01h,00h,040h,00h,00h,00h
  511.       db 00h,00h,01h,00h,040h,00h,00h,00h
  512.       db 00h,00h,01h,00h,040h,00h,00h,00h
  513.       db 00h,00h,01fh,0ffh,0ffh,00h,00h,00h
  514.       db 00h,00h,01h,080h,040h,00h,00h,00h
  515.       db 00h,00h,01h,080h,040h,00h,00h,00h
  516.       db 00h,00h,03h,040h,040h,00h,00h,00h
  517.       db 00h,00h,03h,040h,040h,00h,00h,00h
  518.       db 00h,00h,03h,020h,040h,00h,00h,00h
  519.       db 00h,00h,05h,027h,0feh,00h,00h,00h
  520.       db 00h,00h,05h,03ch,03h,00h,00h,00h
  521.       db 00h,00h,0dh,08h,03h,00h,00h,00h
  522.       db 00h,00h,09h,08h,03h,00h,00h,00h
  523.       db 00h,00h,019h,08h,03h,00h,00h,00h
  524.       db 00h,00h,01h,08h,03h,00h,00h,00h
  525.       db 00h,00h,01h,08h,03h,00h,00h,00h
  526.       db 00h,00h,01h,08h,03h,00h,00h,00h
  527.       db 00h,00h,01h,08h,03h,00h,00h,00h
  528.       db 00h,00h,01h,08h,03h,00h,00h,00h
  529.       db 00h,00h,01h,07h,0feh,00h,00h,00h
  530.       db 00h,00h,00h,00h,00h,00h,00h,00h
  531.       db 00h,00h,00h,00h,00h,00h,00h,00h
  532.       db 00h,00h,00h,00h,00h,00h,00h,00h
  533.       ;枯

  535.   love9 db 00h,00h,00h,00h,00h,00h,00h,00h
  536.       db 00h,00h,0fh,0ffh,0ffh,080h,00h,00h
  537.       db 00h,00h,00h,0ch,00h,00h,00h,00h
  538.       db 00h,00h,00h,08h,00h,00h,00h,00h
  539.       db 00h,00h,00h,010h,00h,00h,00h,00h
  540.       db 00h,00h,00h,030h,00h,00h,00h,00h
  541.       db 00h,00h,00h,020h,00h,00h,00h,00h
  542.       db 00h,00h,00h,040h,00h,00h,00h,00h
  543.       db 00h,00h,00h,0ffh,0fch,00h,00h,00h
  544.       db 00h,00h,01h,0ffh,0feh,00h,00h,00h
  545.       db 00h,00h,03h,080h,02h,00h,00h,00h
  546.       db 00h,00h,07h,080h,02h,00h,00h,00h
  547.       db 00h,00h,0dh,080h,02h,00h,00h,00h
  548.       db 00h,00h,011h,080h,02h,00h,00h,00h
  549.       db 00h,00h,01h,080h,02h,00h,00h,00h
  550.       db 00h,00h,01h,080h,02h,00h,00h,00h
  551.       db 00h,00h,01h,080h,02h,00h,00h,00h
  552.       db 00h,00h,01h,080h,02h,00h,00h,00h
  553.       db 00h,00h,01h,080h,02h,00h,00h,00h
  554.       db 00h,00h,01h,080h,06h,00h,00h,00h
  555.       db 00h,00h,00h,0ffh,0fch,00h,00h,00h
  556.       db 00h,00h,00h,00h,00h,00h,00h,00h
  557.       db 00h,00h,00h,00h,00h,00h,00h,00h
  558.       db 00h,00h,00h,00h,00h,00h,00h,00h
  559.       db 00h,00h,00h,00h,00h,00h,00h,00h
  560.       ;石

  562.   lovea db 00h,00h,01h,04h,02h,00h,00h,00h
  563.       db 00h,00h,01h,06h,06h,00h,00h,00h
  564.       db 00h,00h,01h,02h,04h,00h,00h,00h
  565.       db 00h,00h,09h,021h,0ch,00h,00h,00h
  566.       db 00h,00h,09h,021h,08h,00h,00h,00h
  567.       db 00h,00h,09h,040h,08h,00h,00h,00h
  568.       db 00h,00h,09h,05fh,0ffh,080h,00h,00h
  569.       db 00h,00h,09h,080h,00h,00h,00h,00h
  570.       db 00h,00h,09h,080h,00h,00h,00h,00h
  571.       db 00h,00h,09h,00h,00h,00h,00h,00h
  572.       db 00h,00h,019h,00h,00h,00h,00h,00h
  573.       db 00h,00h,011h,00h,00h,00h,00h,00h
  574.       db 00h,00h,01h,00h,00h,00h,00h,00h
  575.       db 00h,00h,01h,0fh,0ffh,00h,00h,00h
  576.       db 00h,00h,01h,080h,00h,00h,00h,00h
  577.       db 00h,00h,02h,080h,00h,00h,00h,00h
  578.       db 00h,00h,02h,0c0h,00h,00h,00h,00h
  579.       db 00h,00h,02h,040h,00h,00h,00h,00h
  580.       db 00h,00h,04h,040h,00h,00h,00h,00h
  581.       db 00h,00h,0ch,020h,00h,00h,00h,00h
  582.       db 00h,00h,08h,03fh,0ffh,080h,00h,00h
  583.       db 00h,00h,010h,03fh,0ffh,080h,00h,00h
  584.       db 00h,00h,00h,00h,00h,00h,00h,00h
  585.       db 00h,00h,00h,00h,00h,00h,00h,00h
  586.       db 00h,00h,00h,00h,00h,00h,00h,00h
  587.       ;烂
  588.       
  589.   loveb db 00h,00h,00h,080h,00h,00h,00h,00h
  590.       db 00h,00h,00h,080h,00h,00h,00h,00h
  591.       db 00h,00h,01h,00h,00h,00h,00h,00h
  592.       db 00h,00h,01h,0ffh,0feh,00h,00h,00h
  593.       db 00h,00h,02h,04h,00h,00h,00h,00h
  594.       db 00h,00h,06h,04h,00h,00h,00h,00h
  595.       db 00h,00h,0ch,04h,00h,00h,00h,00h
  596.       db 00h,00h,018h,04h,00h,00h,00h,00h
  597.       db 00h,00h,010h,04h,00h,00h,00h,00h
  598.       db 00h,00h,00h,04h,00h,00h,00h,00h
  599.       db 00h,00h,00h,04h,00h,00h,00h,00h
  600.       db 00h,00h,01fh,0ffh,0ffh,00h,00h,00h
  601.       db 00h,00h,00h,06h,00h,00h,00h,00h
  602.       db 00h,00h,00h,06h,00h,00h,00h,00h
  603.       db 00h,00h,00h,0bh,00h,00h,00h,00h
  604.       db 00h,00h,00h,09h,00h,00h,00h,00h
  605.       db 00h,00h,00h,010h,080h,00h,00h,00h
  606.       db 00h,00h,00h,020h,040h,00h,00h,00h
  607.       db 00h,00h,00h,060h,020h,00h,00h,00h
  608.       db 00h,00h,01h,080h,018h,00h,00h,00h
  609.       db 00h,00h,07h,00h,0eh,00h,00h,00h
  610.       db 00h,00h,01ch,00h,03h,00h,00h,00h
  611.       db 00h,00h,00h,00h,00h,00h,00h,00h
  612.       db 00h,00h,00h,00h,00h,00h,00h,00h
  613.       db 00h,00h,00h,00h,00h,00h,00h,00h
  614.       ;矢

  616.   lovec db 00h,00h,00h,04h,00h,00h,00h,00h
  617.       db 00h,00h,00h,04h,00h,00h,00h,00h
  618.       db 00h,00h,00h,04h,00h,00h,00h,00h
  619.       db 00h,00h,01fh,0ffh,0ffh,00h,00h,00h
  620.       db 00h,00h,00h,04h,00h,00h,00h,00h
  621.       db 00h,00h,00h,04h,00h,00h,00h,00h
  622.       db 00h,00h,00h,04h,00h,00h,00h,00h
  623.       db 00h,00h,00h,04h,00h,00h,00h,00h
  624.       db 00h,00h,00h,04h,00h,00h,00h,00h
  625.       db 00h,00h,0fh,0ffh,0feh,00h,00h,00h
  626.       db 00h,00h,00h,00h,00h,00h,00h,00h
  627.       db 00h,00h,00h,0ch,00h,00h,00h,00h
  628.       db 00h,00h,02h,044h,0ch,00h,00h,00h
  629.       db 00h,00h,06h,044h,04h,00h,00h,00h
  630.       db 00h,00h,04h,046h,06h,00h,00h,00h
  631.       db 00h,00h,04h,042h,02h,00h,00h,00h
  632.       db 00h,00h,04h,042h,012h,00h,00h,00h
  633.       db 00h,00h,04h,042h,013h,00h,00h,00h
  634.       db 00h,00h,08h,042h,011h,00h,00h,00h
  635.       db 00h,00h,08h,040h,011h,00h,00h,00h
  636.       db 00h,00h,018h,040h,021h,080h,00h,00h
  637.       db 00h,00h,010h,07fh,0c0h,00h,00h,00h
  638.       db 00h,00h,00h,00h,00h,00h,00h,00h
  639.       db 00h,00h,00h,00h,00h,00h,00h,00h
  640.       db 00h,00h,00h,00h,00h,00h,00h,00h
  641.       ;志
  642.       
  643.   loved db 00h,00h,00h,00h,00h,00h,00h,00h
  644.       db 00h,00h,00h,00h,00h,00h,00h,00h
  645.       db 00h,00h,00h,00h,00h,00h,00h,00h
  646.       db 00h,00h,00h,00h,00h,00h,00h,00h
  647.       db 00h,00h,07h,0ffh,0ffh,080h,00h,00h
  648.       db 00h,00h,00h,01h,080h,00h,00h,00h
  649.       db 00h,00h,00h,01h,00h,00h,00h,00h
  650.       db 00h,00h,00h,03h,00h,00h,00h,00h
  651.       db 00h,00h,00h,02h,00h,00h,00h,00h
  652.       db 00h,00h,00h,06h,00h,00h,00h,00h
  653.       db 00h,00h,00h,0eh,0c0h,00h,00h,00h
  654.       db 00h,00h,00h,0ah,060h,00h,00h,00h
  655.       db 00h,00h,00h,012h,030h,00h,00h,00h
  656.       db 00h,00h,00h,062h,018h,00h,00h,00h
  657.       db 00h,00h,00h,0c2h,0ch,00h,00h,00h
  658.       db 00h,00h,01h,082h,02h,00h,00h,00h
  659.       db 00h,00h,06h,02h,01h,00h,00h,00h
  660.       db 00h,00h,08h,02h,00h,080h,00h,00h
  661.       db 00h,00h,00h,02h,00h,0c0h,00h,00h
  662.       db 00h,00h,00h,02h,00h,00h,00h,00h
  663.       db 00h,00h,00h,02h,00h,00h,00h,00h
  664.       db 00h,00h,00h,02h,00h,00h,00h,00h
  665.       db 00h,00h,00h,02h,00h,00h,00h,00h
  666.       db 00h,00h,00h,02h,00h,00h,00h,00h
  667.       db 00h,00h,00h,02h,00h,00h,00h,00h
  668.       ;不
  669.       
  670.   lovee db 00h,00h,00h,00h,080h,00h,00h,00h
  671.       db 00h,00h,08h,03h,0c0h,00h,00h,00h
  672.       db 00h,00h,04h,06h,070h,00h,00h,00h
  673.       db 00h,00h,02h,0ch,018h,00h,00h,00h
  674.       db 00h,00h,01h,030h,0eh,00h,00h,00h
  675.       db 00h,00h,00h,0e0h,03h,080h,00h,00h
  676.       db 00h,00h,00h,09fh,0fch,080h,00h,00h
  677.       db 00h,00h,00h,00h,00h,00h,00h,00h
  678.       db 00h,00h,018h,00h,03h,00h,00h,00h
  679.       db 00h,00h,0ch,03fh,013h,00h,00h,00h
  680.       db 00h,00h,06h,041h,013h,00h,00h,00h
  681.       db 00h,00h,02h,041h,013h,00h,00h,00h
  682.       db 00h,00h,00h,07fh,013h,00h,00h,00h
  683.       db 00h,00h,03h,041h,013h,00h,00h,00h
  684.       db 00h,00h,02h,041h,013h,00h,00h,00h
  685.       db 00h,00h,02h,041h,013h,00h,00h,00h
  686.       db 00h,00h,06h,07fh,013h,00h,00h,00h
  687.       db 00h,00h,04h,041h,013h,00h,00h,00h
  688.       db 00h,00h,0ch,041h,013h,00h,00h,00h
  689.       db 00h,00h,08h,041h,03h,00h,00h,00h
  690.       db 00h,00h,010h,041h,03h,00h,00h,00h
  691.       db 00h,00h,00h,04fh,01eh,00h,00h,00h
  692.       db 00h,00h,00h,00h,00h,00h,00h,00h
  693.       db 00h,00h,00h,00h,00h,00h,00h,00h
  694.       db 00h,00h,00h,00h,00h,00h,00h,00h
  695.       ;渝

  697.   lovef db 00h,00h,00h,00h,00h,00h,00h,00h
  698.       db 00h,00h,00h,00h,00h,00h,00h,00h
  699.       db 00h,00h,00h,00h,00h,00h,00h,00h
  700.       db 00h,00h,00h,0ffh,0fch,00h,00h,00h
  701.       db 00h,00h,00h,00h,0ch,00h,00h,00h
  702.       db 00h,00h,00h,00h,030h,00h,00h,00h
  703.       db 00h,00h,00h,01h,0c0h,00h,00h,00h
  704.       db 00h,00h,07h,0c3h,08h,040h,00h,00h
  705.       db 00h,00h,00h,042h,0ch,040h,00h,00h
  706.       db 00h,00h,00h,05fh,0f4h,080h,00h,00h
  707.       db 00h,00h,00h,041h,04h,080h,00h,00h
  708.       db 00h,00h,00h,041h,05h,080h,00h,00h
  709.       db 00h,00h,00h,041h,05h,00h,00h,00h
  710.       db 00h,00h,00h,05fh,0f6h,00h,00h,00h
  711.       db 00h,00h,00h,05fh,0fah,00h,00h,00h
  712.       db 00h,00h,00h,080h,082h,00h,00h,00h
  713.       db 00h,00h,00h,080h,083h,00h,00h,00h
  714.       db 00h,00h,01h,080h,081h,00h,00h,00h
  715.       db 00h,00h,01h,03fh,0f9h,080h,00h,00h
  716.       db 00h,00h,03h,00h,080h,080h,00h,00h
  717.       db 00h,00h,02h,00h,080h,040h,00h,00h
  718.       db 00h,00h,04h,00h,080h,060h,00h,00h
  719.       db 00h,00h,08h,031h,080h,020h,00h,00h
  720.       db 00h,00h,00h,0fh,00h,00h,00h,00h
  721.       db 00h,00h,00h,00h,00h,00h,00h,00h
  722.       ;承

  724.   lovev db 00h,00h,00h,00h,00h,00h,00h,00h
  725.       db 00h,00h,00h,00h,00h,00h,00h,00h
  726.       db 00h,00h,01h,00h,020h,00h,00h,00h
  727.       db 00h,00h,01h,00h,020h,00h,00h,00h
  728.       db 00h,00h,01h,00h,020h,00h,00h,00h
  729.       db 00h,00h,01h,00h,020h,00h,00h,00h
  730.       db 00h,00h,0fh,0f7h,0ffh,080h,00h,00h
  731.       db 00h,00h,02h,010h,020h,00h,00h,00h
  732.       db 00h,00h,02h,010h,020h,00h,00h,00h
  733.       db 00h,00h,02h,010h,020h,00h,00h,00h
  734.       db 00h,00h,02h,010h,020h,00h,00h,00h
  735.       db 00h,00h,06h,01fh,0ffh,0c0h,00h,00h
  736.       db 00h,00h,04h,030h,030h,00h,00h,00h
  737.       db 00h,00h,04h,020h,030h,00h,00h,00h
  738.       db 00h,00h,04h,020h,078h,00h,00h,00h
  739.       db 00h,00h,04h,020h,0ech,00h,00h,00h
  740.       db 00h,00h,02h,060h,0a4h,00h,00h,00h
  741.       db 00h,00h,01h,0c1h,0a2h,00h,00h,00h
  742.       db 00h,00h,00h,0c3h,023h,00h,00h,00h
  743.       db 00h,00h,00h,0e6h,021h,080h,00h,00h
  744.       db 00h,00h,01h,03ch,020h,0c0h,00h,00h
  745.       db 00h,00h,03h,08h,020h,00h,00h,00h
  746.       db 00h,00h,06h,00h,020h,00h,00h,00h
  747.       db 00h,00h,0ch,00h,020h,00h,00h,00h
  748.       db 00h,00h,00h,00h,00h,00h,00h,00h
  749.       ;妹
  750.       
  751.   loveh db 00h,00h,00h,00h,00h,00h,00h,00h
  752.       db 00h,00h,00h,00h,00h,00h,00h,00h
  753.       db 00h,00h,00h,00h,00h,00h,00h,00h
  754.       db 00h,00h,00h,00h,00h,00h,00h,00h
  755.       db 00h,00h,00h,00h,00h,00h,00h,00h
  756.       db 00h,00h,00h,00h,00h,00h,00h,00h
  757.       db 00h,00h,00h,00h,00h,00h,00h,00h
  758.       db 00h,00h,00h,00h,00h,00h,00h,00h
  759.       db 00h,00h,00h,00h,00h,00h,00h,00h
  760.       db 00h,00h,00h,00h,00h,00h,00h,00h
  761.       db 00h,00h,00h,00h,00h,00h,00h,00h
  762.       db 00h,00h,0fh,0ffh,0ffh,080h,00h,00h
  763.       db 00h,00h,00h,00h,00h,00h,00h,00h
  764.       db 00h,00h,00h,00h,00h,00h,00h,00h
  765.       db 00h,00h,00h,00h,00h,00h,00h,00h
  766.       db 00h,00h,00h,00h,00h,00h,00h,00h
  767.       db 00h,00h,00h,00h,00h,00h,00h,00h
  768.       db 00h,00h,00h,00h,00h,00h,00h,00h
  769.       db 00h,00h,00h,00h,00h,00h,00h,00h
  770.       db 00h,00h,00h,00h,00h,00h,00h,00h
  771.       db 00h,00h,00h,00h,00h,00h,00h,00h
  772.       db 00h,00h,00h,00h,00h,00h,00h,00h
  773.       db 00h,00h,00h,00h,00h,00h,00h,00h
  774.       db 00h,00h,00h,00h,00h,00h,00h,00h
  775.       db 00h,00h,00h,00h,00h,00h,00h,00h
  776.       ;一

  778.   lovei db 00h,00h,00h,04h,00h,00h,00h,00h
  779.       db 00h,00h,00h,04h,08h,00h,00h,00h
  780.       db 00h,00h,08h,04h,08h,00h,00h,00h
  781.       db 00h,00h,04h,03fh,0ffh,00h,00h,00h
  782.       db 00h,00h,06h,03fh,0ffh,00h,00h,00h
  783.       db 00h,00h,03h,04h,08h,00h,00h,00h
  784.       db 00h,00h,00h,04h,088h,00h,00h,00h
  785.       db 00h,00h,00h,00h,080h,00h,00h,00h
  786.       db 00h,00h,03ch,00h,080h,00h,00h,00h
  787.       db 00h,00h,04h,07fh,0ffh,00h,00h,00h
  788.       db 00h,00h,04h,01h,00h,00h,00h,00h
  789.       db 00h,00h,04h,03h,00h,00h,00h,00h
  790.       db 00h,00h,04h,02h,00h,00h,00h,00h
  791.       db 00h,00h,04h,07h,0fch,00h,00h,00h
  792.       db 00h,00h,04h,0ch,06h,00h,00h,00h
  793.       db 00h,00h,04h,018h,06h,00h,00h,00h
  794.       db 00h,00h,04h,068h,06h,00h,00h,00h
  795.       db 00h,00h,04h,08h,06h,00h,00h,00h
  796.       db 00h,00h,04h,0c8h,06h,00h,00h,00h
  797.       db 00h,00h,05h,088h,06h,00h,00h,00h
  798.       db 00h,00h,07h,08h,06h,00h,00h,00h
  799.       db 00h,00h,00h,0fh,0fch,00h,00h,00h
  800.       db 00h,00h,00h,00h,00h,00h,00h,00h
  801.       db 00h,00h,00h,00h,00h,00h,00h,00h
  802.       db 00h,00h,00h,00h,00h,00h,00h,00h
  803.       ;诺

  805.   lovej db 00h,00h,00h,00h,00h,00h,00h,00h
  806.       db 00h,00h,00h,020h,020h,00h,00h,00h
  807.       db 00h,00h,00h,010h,020h,00h,00h,00h
  808.       db 00h,00h,00h,090h,060h,00h,00h,00h
  809.       db 00h,00h,00h,098h,040h,00h,00h,00h
  810.       db 00h,00h,08h,088h,048h,00h,00h,00h
  811.       db 00h,00h,08h,088h,048h,00h,00h,00h
  812.       db 00h,00h,08h,08ch,044h,00h,00h,00h
  813.       db 00h,00h,08h,084h,0c4h,00h,00h,00h
  814.       db 00h,00h,08h,084h,084h,00h,00h,00h
  815.       db 00h,00h,08h,086h,086h,00h,00h,00h
  816.       db 00h,00h,018h,081h,02h,00h,00h,00h
  817.       db 00h,00h,010h,083h,02h,00h,00h,00h
  818.       db 00h,00h,010h,082h,02h,00h,00h,00h
  819.       db 00h,00h,010h,084h,013h,00h,00h,00h
  820.       db 00h,00h,030h,08ch,011h,00h,00h,00h
  821.       db 00h,00h,020h,098h,011h,00h,00h,00h
  822.       db 00h,00h,00h,0e0h,011h,00h,00h,00h
  823.       db 00h,00h,01h,0c0h,010h,00h,00h,00h
  824.       db 00h,00h,01eh,080h,030h,00h,00h,00h
  825.       db 00h,00h,030h,0ffh,0e0h,00h,00h,00h
  826.       db 00h,00h,00h,00h,00h,00h,00h,00h
  827.       db 00h,00h,00h,00h,00h,00h,00h,00h
  828.       db 00h,00h,00h,00h,00h,00h,00h,00h
  829.       db 00h,00h,00h,00h,00h,00h,00h,00h
  830.       ;必

  832.   lovek db 00h,00h,00h,04h,00h,00h,00h,00h
  833.       db 00h,00h,00h,06h,00h,00h,00h,00h
  834.       db 00h,00h,00h,02h,00h,00h,00h,00h
  835.       db 00h,00h,07h,0ffh,0ffh,080h,00h,00h
  836.       db 00h,00h,04h,00h,00h,080h,00h,00h
  837.       db 00h,00h,04h,00h,010h,080h,00h,00h
  838.       db 00h,00h,04h,00h,010h,080h,00h,00h
  839.       db 00h,00h,04h,00h,010h,080h,00h,00h
  840.       db 00h,00h,00h,00h,010h,00h,00h,00h
  841.       db 00h,00h,0fh,0ffh,0ffh,0c0h,00h,00h
  842.       db 00h,00h,00h,00h,010h,00h,00h,00h
  843.       db 00h,00h,00h,00h,010h,00h,00h,00h
  844.       db 00h,00h,01h,080h,010h,00h,00h,00h
  845.       db 00h,00h,00h,0c0h,010h,00h,00h,00h
  846.       db 00h,00h,00h,060h,010h,00h,00h,00h
  847.       db 00h,00h,00h,030h,010h,00h,00h,00h
  848.       db 00h,00h,00h,010h,010h,00h,00h,00h
  849.       db 00h,00h,00h,08h,010h,00h,00h,00h
  850.       db 00h,00h,00h,00h,010h,00h,00h,00h
  851.       db 00h,00h,00h,00h,010h,00h,00h,00h
  852.       db 00h,00h,00h,06h,010h,00h,00h,00h
  853.       db 00h,00h,00h,07h,0f0h,00h,00h,00h
  854.       db 00h,00h,00h,00h,00h,00h,00h,00h
  855.       db 00h,00h,00h,00h,00h,00h,00h,00h
  856.       db 00h,00h,00h,00h,00h,00h,00h,00h
  857.       ;守

  859.   lovel db 00h,00h,00h,00h,00h,00h,00h,00h
  860.       db 00h,00h,00h,00h,00h,00h,00h,00h
  861.       db 00h,00h,00h,00h,00h,00h,00h,00h
  862.       db 00h,00h,00h,00h,00h,00h,00h,00h
  863.       db 00h,00h,00h,00h,00h,00h,00h,00h
  864.       db 00h,00h,00h,00h,00h,00h,00h,00h
  865.       db 00h,00h,00h,00h,00h,00h,00h,00h
  866.       db 00h,00h,00h,00h,00h,00h,00h,00h
  867.       db 00h,00h,00h,00h,00h,00h,00h,00h
  868.       db 00h,00h,00h,00h,00h,00h,00h,00h
  869.       db 00h,00h,00h,00h,00h,00h,00h,00h
  870.       db 00h,00h,0fh,0ffh,0ffh,080h,00h,00h
  871.       db 00h,00h,00h,00h,00h,00h,00h,00h
  872.       db 00h,00h,00h,00h,00h,00h,00h,00h
  873.       db 00h,00h,00h,00h,00h,00h,00h,00h
  874.       db 00h,00h,00h,00h,00h,00h,00h,00h
  875.       db 00h,00h,00h,00h,00h,00h,00h,00h
  876.       db 00h,00h,00h,00h,00h,00h,00h,00h
  877.       db 00h,00h,00h,00h,00h,00h,00h,00h
  878.       db 00h,00h,00h,00h,00h,00h,00h,00h
  879.       db 00h,00h,00h,00h,00h,00h,00h,00h
  880.       db 00h,00h,00h,00h,00h,00h,00h,00h
  881.       db 00h,00h,00h,00h,00h,00h,00h,00h
  882.       db 00h,00h,00h,00h,00h,00h,00h,00h
  883.       db 00h,00h,00h,00h,00h,00h,00h,00h
  884.       ;一

  886.   lovem db 00h,00h,00h,02h,00h,00h,00h,00h
  887.       db 00h,00h,01h,02h,00h,00h,00h,00h
  888.       db 00h,00h,01h,02h,00h,00h,00h,00h
  889.       db 00h,00h,02h,02h,00h,00h,00h,00h
  890.       db 00h,00h,02h,02h,00h,00h,00h,00h
  891.       db 00h,00h,03h,0ffh,0feh,00h,00h,00h
  892.       db 00h,00h,02h,02h,00h,00h,00h,00h
  893.       db 00h,00h,04h,02h,00h,00h,00h,00h
  894.       db 00h,00h,04h,02h,00h,00h,00h,00h
  895.       db 00h,00h,08h,02h,00h,00h,00h,00h
  896.       db 00h,00h,018h,02h,00h,00h,00h,00h
  897.       db 00h,00h,010h,02h,00h,00h,00h,00h
  898.       db 00h,00h,00h,02h,00h,00h,00h,00h
  899.       db 00h,00h,07h,0ffh,0feh,00h,00h,00h
  900.       db 00h,00h,00h,02h,00h,00h,00h,00h
  901.       db 00h,00h,00h,02h,00h,00h,00h,00h
  902.       db 00h,00h,00h,02h,00h,00h,00h,00h
  903.       db 00h,00h,00h,02h,00h,00h,00h,00h
  904.       db 00h,00h,00h,02h,00h,00h,00h,00h
  905.       db 00h,00h,00h,02h,00h,00h,00h,00h
  906.       db 00h,00h,00h,02h,00h,00h,00h,00h
  907.       db 00h,00h,01fh,0ffh,0ffh,080h,00h,00h
  908.       db 00h,00h,00h,00h,00h,00h,00h,00h
  909.       db 00h,00h,00h,00h,00h,00h,00h,00h
  910.       db 00h,00h,00h,00h,00h,00h,00h,00h
  911.       ;生

  913.       ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  914.       ;以上皆为点阵坐标。为64*64单色位图生成。
  915.       ;每行8字节，64位。共64行。即64*64.
  916.       ;
  917.       ;经过删除空白行，已经简化到25行/图
  918.       ;
  919.       ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  920.       
  921.       
  922.   segm  dw 040,040,120,120,120,260,260,260,260,260,260,260,260
  923.       dw 360,360,360,360,360,360,360,360
  924.       ;各图形首地址行数
  925.       
  926.       ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  927.       
  928.   ofet  dw 040,100,100,160,220,060,120,180,240,340,400,460,520
  929.       dw 120,180,240,280,400,460,520,580
  930.       ;各图形首地址列数
  931.       
  932. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  933.   
  934.   sec    db 0
  935.     ;记录1ch中断运行次数
  936.     ;提供延时程序参数
  937.    
  938. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  939.    
  940. DG ends


  943. ;
  944. ;程序主体思想
  945. ;
  946. ;通过各种功能模块(子程序)相互交错
  947. ;利用延时和时差
  948. ;
  949. ;来实现同步处理(多线程)的假象
  950. ;制造视觉的同步变换。
  951. ;

  953. CG segment
  954.   
  955. start  :mov si,DG
  956.      mov ds,si
  957.      xor si,si
  958.      
  959.      mov di,0b800h
  960.      mov es,di
  961.      mov di,160
  962.      
  963.      lea bx,num
  964.      mov cx,[bx]
  965.      mov ah,0eh
  966.      
  967. girl  :lodsb
  968.      stosw
  969.      loop girl
  970.      ;送入"gaga"
  971.      
  972. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  974.      call int1cst
  975.      ;截取1ch中断
  976.      
  977. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  978.      
  979.      mov di,13*160
  980.      lea si,i
  981.      
  982. key1  :mov cx,159
  983.      call discolor
  984.      
  985.      push si
  986.      lea si,sec
  987.      and byte ptr [si],0
  988. t1    :cmp byte ptr [si],15
  989.      jne t1
  990.      pop si
  991.      ;t系列皆为控制延时程序
  992.      ;
  993.      ;通过检测1ch中断运行次数
  994.      ;控制指令进程，来实现延时
  995.      ;
  996.      
  997.      cld
  998.      rep movsb
  999.      
  1000.      cmp di,15*160 - 2
  1001.      jne key1
  1002.      ;
  1003.      ;通过检测最后一个字符的位置来判定
  1004.      ;是否完成同组输出
  1005.      
  1006.      
  1007.      ;指示语句
  1008.      
  1009. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<  
  1010.    
  1011.      add di,162
  1012.      
  1013. like  :mov cx,80
  1014.      call discolor
  1015.      ;'*'字符变色
  1016.      
  1017.      push si
  1018.      lea si,sec
  1019.      and byte ptr [si],0
  1020. t2    :cmp byte ptr [si],15
  1021.      jne t2
  1022.      pop si
  1023.      ;延时
  1024.      
  1025. key2_1  :mov ah,1eh
  1026.      
  1027.      cmp byte ptr ds:[si],20h
  1028.      jz space
  1029.      ;检测空格符，改变颜色
  1030.      
  1031.      
  1032. key2_2  :lodsb
  1033.      stosw
  1034.      loop key2_1
  1035.      
  1036.      cmp di,24*160
  1037.      jne like
  1038.      
  1039.      jmp clor
  1040.      
  1041. space  :xor ah,ah
  1042.      jmp key2_2
  1043.      ;隐含图
  1044.      
  1045. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1046.      
  1047. clor  :call discolor
  1048.      
  1049.      push si
  1050.      lea si,sec
  1051.      and byte ptr [si],0
  1052. t2_1  :cmp byte ptr [si],15
  1053.      jne t2_1
  1054.      pop si
  1055.      
  1056.      mov ah,11
  1057.      int 21h
  1058.      or al,al
  1059.      jz clor    ;检测按键状态
  1060.      
  1061.      xor ax,ax
  1062.      int 16h
  1063.      cmp ah,2h
  1064.      jnz clor
  1065.      
  1066.      ;检测按键，当按键为1时，则向下执行
  1067.      
  1068.      
  1069.      mov cx,8*80
  1070.      mov di,16*160
  1071.      call discolor
  1072.      
  1073. clor1  :cmp byte ptr es:[di],39h
  1074.      jne snd
  1075.      
  1076.      mov byte ptr es:[di+1],0ceh
  1077.      
  1078. snd    :add di,2
  1079.      loop clor1
  1080.      jmp roll
  1081.      
  1082.      call discolor
  1083.      ;按键显图
  1084.      
  1085. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1086.      
  1087. roll  :lea si,e
  1088.      mov cx,24
  1089.      
  1090. roll1  :push cx
  1091.      push si
  1092.      lea si,sec
  1093.      and byte ptr [si],0
  1094. t3    :cmp byte ptr [si],15
  1095.      jne t3
  1096.      pop si
  1097.      ;延时
  1098.      
  1099.      call discolor
  1100.      ;'*'符变色
  1101.      
  1102.      mov dx,1
  1103.      call rollp
  1104.      ;滚屏1行
  1105.      
  1106.      mov cx,80
  1107.      
  1108.      mov di,0f00h
  1109.      
  1110. roll2  :lodsb
  1111.      stosw
  1112.      loop roll2
  1113.      ;送单行字符
  1114.      
  1115.      pop cx
  1116.      loop roll1
  1117.      
  1118.      ;滚屏后，随即向最后一行送入数据，
  1119.      ;通过时间差，延时等，视觉上会感觉早已存在的数据
  1120.      
  1121.      
  1122.      ;七夕happy滚屏上移
  1123.      
  1124. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1125.      
  1126.      push si
  1127.      lea si,sec
  1128.      and byte ptr [si],0
  1129. t4    :cmp byte ptr [si],15
  1130.      jne t4
  1131.      pop si
  1132.      ;延时
  1133.      
  1134.      mov si,0
  1135.      mov di,158
  1136.      call close
  1137.      ;先显示一下内聚门
  1138.      
  1139.      mov cx,19
  1140.      
  1141. poem  :push si
  1142.      lea si,sec
  1143.      and byte ptr [si],0
  1144. t5    :cmp byte ptr [si],10
  1145.      jne t5
  1146.      pop si
  1147.      ;延时
  1148.      
  1149.      add si,4
  1150.      sub di,4
  1151.      call close
  1152.      ;内聚
  1153.      
  1154.      push si
  1155.      push di
  1156.      
  1157.      sub si,4
  1158.      add di,4
  1159.      call clear
  1160.      ;清除原来的图像
  1161.      
  1162.      call discolor
  1163.      ;变色
  1164.      
  1165.      pop di
  1166.      pop si
  1167.      loop poem
  1168.      
  1169.      
  1170.      ;内聚动画
  1171.      
  1172. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1173.      
  1174.      call dclose
  1175.      ;先改变下图像方向
  1176.      
  1177.      mov cx,19
  1178.      
  1179. poem1  :push si
  1180.      lea si,sec
  1181.      and byte ptr [si],0
  1182. t6    :cmp byte ptr [si],10
  1183.      jne t6
  1184.      pop si
  1185.      ;延时
  1186.      
  1187.      sub si,4
  1188.      add di,4
  1189.      call dclose
  1190.      ;外散
  1191.      
  1192.      push si
  1193.      push di
  1194.      
  1195.      add si,4
  1196.      sub di,4
  1197.      call clear
  1198.      ;清除原来图像
  1199.      
  1200.      pop di
  1201.      pop si
  1202.      loop poem1
  1203.      
  1204.      ;外散动画
  1205.      
  1206.      call clear
  1207.      ;清除残留图像
  1208.      
  1209. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1210.      
  1211.      lea bx,het3
  1212.      mov di,13*160+66
  1213.      mov cx,14
  1214.      mov ah,0eh
  1215.      
  1216. guess  :mov al,[bx]
  1217.      mov es:[di],ax
  1218.      inc bx
  1219.      add di,2
  1220.      loop guess
  1221.      
  1222.      push si
  1223.      lea si,sec
  1224.      and byte ptr [si],0
  1225. t6_1  :cmp byte ptr [si],100
  1226.      jne t6_1
  1227.      pop si
  1228.      
  1229.      
  1230.      xor dx,dx
  1231.      call rollp
  1232.      
  1233.      ;猜猜我的心
  1234. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1235. lovex  :lea bx,het1
  1236.      mov cx,66
  1237.      
  1238. lovex1  :mov di,[bx]
  1239.      mov word ptr es:[di],0c2ah
  1240.      ;通过读取各个已经保存好的坐标
  1241.      ;来向预定位置送入字符
  1242.      ;以下同理
  1243.      
  1244.      
  1245.      push si
  1246.      lea si,sec
  1247.      and byte ptr [si],0
  1248. t7    :cmp byte ptr [si],10
  1249.      jne t7
  1250.      pop si
  1251.      
  1252.      add bx,2
  1253.      loop lovex1
  1254.      ;单字符缓慢显示双层心。
  1255.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1256.      
  1257. cai1  :xor ax,ax
  1258.      int 16h
  1259.      cmp ah,17h
  1260.      jz cai1_1
  1261.      jmp short cai1      ;i
  1262.      
  1263. cai1_1  :mov ax,0e49h
  1264.      mov word ptr es:[11*160+70],ax
  1265.      mov ax,0720h
  1266.      mov word ptr es:[11*160+72],ax
  1267.      
  1268.      
  1269. cai2  :xor ax,ax
  1270.      int 16h
  1271.      cmp ah,26h
  1272.      jz cai2_1
  1273.      jmp short cai2      ;l
  1274.      
  1275. cai2_1  :mov ax,0e4ch
  1276.      mov word ptr es:[11*160+74],ax

  1278. cai3  :xor ax,ax
  1279.      int 16h
  1280.      cmp ah,18h
  1281.      jz cai3_1
  1282.      jmp short cai3      ;o
  1283.      
  1284. cai3_1  :mov ax,0e4fh
  1285.      mov word ptr es:[11*160+76],ax

  1287. cai4  :xor ax,ax
  1288.      int 16h
  1289.      cmp ah,2fh
  1290.      jz cai4_1
  1291.      jmp short cai4      ;v
  1292.      
  1293. cai4_1  :mov ax,0e56h
  1294.      mov word ptr es:[11*160+78],ax

  1296. cai5  :xor ax,ax
  1297.      int 16h
  1298.      cmp ah,12h
  1299.      jz cai5_1
  1300.      jmp short cai5      ;e
  1301.      
  1302. cai5_1  :mov ax,0e45h
  1303.      mov word ptr es:[11*160+80],ax
  1304.      mov ax,0720h
  1305.      mov word ptr es:[11*160+82],ax

  1307. cai6  :xor ax,ax
  1308.      int 16h
  1309.      cmp ah,15h
  1310.      jz cai6_1
  1311.      jmp short cai6      ;y
  1312.      
  1313. cai6_1  :mov ax,0e59h
  1314.      mov word ptr es:[11*160+84],ax

  1316. cai7  :xor ax,ax
  1317.      int 16h
  1318.      cmp ah,18h
  1319.      jz cai7_1
  1320.      jmp short cai7      ;o
  1321.      
  1322. cai7_1  :mov ax,0e4fh
  1323.      mov word ptr es:[11*160+86],ax

  1325. cai8  :xor ax,ax
  1326.      int 16h
  1327.      cmp ah,16h
  1328.      jz cai8_1
  1329.      jmp short cai8      ;u
  1330.      
  1331. cai8_1  :mov ax,0e55h
  1332.      mov word ptr es:[11*160+88],ax
  1333.      
  1334.      ;答案判断选定
  1335.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1336.      
  1337.      xor dx,dx
  1338.      mov cx,20
  1339.      
  1340. het6  :lea bx,het1
  1341.      lea bp,het2
  1342.      
  1343.      call flick1
  1344.      ;外层心变色
  1345.      
  1346.      push si
  1347.      lea si,sec
  1348.      and byte ptr [si],0
  1349. t8    :cmp byte ptr [si],10
  1350.      jne t8
  1351.      pop si
  1352.      
  1353.      call flick2
  1354.      ;内层心变色
  1355.      
  1356.      push si
  1357.      lea si,sec
  1358.      and byte ptr [si],0
  1359. t8_1  :cmp byte ptr [si],2
  1360.      jne t8_1
  1361.      pop si
  1362.      
  1363.      loop het6
  1364.      
  1365.      ;跳动
  1366.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1367.      push si
  1368.      lea si,sec
  1369.      and byte ptr [si],0
  1370. t9    :cmp byte ptr [si],10
  1371.      jne t9
  1372.      pop si
  1373.      ;暂停一会，陶醉一下~
  1374.      
  1375.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1376.      
  1377.      lea bx,het4
  1378.      lea bp,het5
  1379.      mov cx,37
  1380.      
  1381. lovex3  :mov di,[bx]
  1382.      mov si,ds:[bp]
  1383.      mov word ptr es:[di],0720h
  1384.      mov word ptr es:[si],0720h
  1385.      
  1386.      push si
  1387.      lea si,sec
  1388.      and byte ptr [si],0
  1389. ta    :cmp byte ptr [si],10
  1390.      jne ta
  1391.      pop si
  1392.      
  1393.      add bx,2
  1394.      add bp,2
  1395.      loop lovex3
  1396.      ;单字符缓慢分解心
  1397.      
  1398.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1399.      
  1400.      mov di,073ah
  1401.      mov cx,11
  1402.      
  1403. lovex4  :mov byte ptr es:[di],20h
  1404.      
  1405.      push si
  1406.      lea si,sec
  1407.      and byte ptr [si],0
  1408. tb    :cmp byte ptr [si],10
  1409.      jne tb
  1410.      pop si
  1411.      
  1412.      sub di,2
  1413.      loop lovex4
  1414.      ;分解 i love you
  1415.      
  1416. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1417.      
  1418.      mov dx,0
  1419.      call rollp
  1420.      ;清屏
  1421.      ;保证界面干净
  1422.      
  1423. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1424.      
  1425. ;此部分为语句边框
  1426. ;
  1427. ;原理同上边那个左右滑动门动画一样
  1428. ;
  1429.      
  1430.      
  1431.      push si
  1432.      lea si,sec
  1433.      and byte ptr [si],0
  1434. tc    :cmp byte ptr [si],20
  1435.      jne tc
  1436.      pop si
  1437.      ;暂停一会
  1438.      
  1439.      mov di,12*160+78
  1440.      mov si,12*160+80
  1441.      
  1442.      mov word ptr es:[di],0cc9h
  1443.      mov word ptr es:[di+0a0h],0cc8h
  1444.      ;左
  1445.      
  1446.      mov word ptr es:[si],0cbbh
  1447.      mov word ptr es:[si+0a0h],0cbch
  1448.      ;右
  1449.      
  1450.      sub di,2
  1451.      add si,2
  1452.      
  1453.      mov ax,0c2dh
  1454.      mov cx,19
  1455.      
  1456. wind1  :mov word ptr es:[di],0cc9h
  1457.      mov word ptr es:[di+0a0h],0cc8h
  1458.      ;左
  1459.      
  1460.      mov word ptr es:[si],0cbbh
  1461.      mov word ptr es:[si+0a0h],0cbch
  1462.      ;右
  1463.      
  1464.      mov word ptr es:[di+2],ax
  1465.      mov word ptr es:[di+0a2h],ax
  1466.      
  1467.      mov word ptr es:[si-2],ax
  1468.      mov word ptr es:[si+09eh],ax
  1469.      
  1470.      
  1471.      push si
  1472.      lea si,sec
  1473.      and byte ptr [si],0
  1474. td    :cmp byte ptr [si],20
  1475.      jne td
  1476.      pop si
  1477.      ;慢效果
  1478.      
  1479.      sub di,2
  1480.      add si,2
  1481.      loop wind1
  1482.      
  1483.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1484.      
  1485.      mov si,12*160+40
  1486.      mov di,13*160+40
  1487.      
  1488.      mov cx,8
  1489.      
  1490. wind2  :push cx
  1491.      mov cx,40
  1492.      
  1493. wind3  :mov ax,es:[si]
  1494.      mov es:[si - 0a0h],ax
  1495.      
  1496.      mov word ptr es:[si],0720h
  1497.      
  1498.      mov ax,es:[di]
  1499.      mov es:[di + 0a0h],ax
  1500.      
  1501.      mov word ptr es:[di],0720h
  1502.      
  1503.      add si,2
  1504.      add di,2
  1505.      loop wind3
  1506.      ;单次复制清除上下双行
  1507.      
  1508.      
  1509.      push si
  1510.      lea si,sec
  1511.      and byte ptr [si],0
  1512. te    :cmp byte ptr [si],18
  1513.      jne te
  1514.      pop si
  1515.      ;慢效果
  1516.      
  1517.      
  1518.      add di,80
  1519.      sub si,240
  1520.      pop cx
  1521.      loop wind2
  1522.      
  1523.      ;问题语句窗口框
  1524.      
  1525. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1526.      
  1527. ;此部分为提问机制
  1528. ;
  1529.      
  1530.      lea si,next
  1531.      mov di,10*160+50
  1532.      call pro_str
  1533.      ;提示语句显示
  1534.      
  1535.      push si
  1536.      lea si,sec
  1537.      and byte ptr [si],0
  1538. tf    :cmp byte ptr [si],50
  1539.      jne tf
  1540.      pop si
  1541.      ;暂停约5秒
  1542.      ;50次应该不到3秒，向显存送入字符，空格占一部分时间
  1543.      
  1544.      call pro_cle
  1545.      
  1546.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1547.      
  1548.      lea si,problem1
  1549.      call pro_str
  1550.      
  1551. choose1  :xor ax,ax
  1552.      int 16h  ;读取按键
  1553.      
  1554.      cmp al,31h
  1555.      je prob1  ;第一选择可能
  1556.      
  1557.      cmp al,32h
  1558.      je prob2  ;第二选择可能
  1559.      
  1560.      jmp short choose1
  1561.      ;第一问题
  1562.      
  1563.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1564.      
  1565. prob1  :call pro_cle  ;清除上个问题
  1566.      
  1567.      lea si,problem2
  1568.      call pro_str  ;显示当前问题
  1569.      
  1570. choose2  :xor ax,ax
  1571.      int 16h
  1572.      
  1573.      cmp al,31h
  1574.      je prob3
  1575.      
  1576.      cmp al,32h
  1577.      je prob4
  1578.      
  1579.      jmp short choose2
  1580.      ;第二问题(1号)
  1581.      
  1582.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1583.      
  1584. prob2  :call pro_cle
  1585.      
  1586.      lea si,problem3
  1587.      call pro_str
  1588.      
  1589. choose3  :xor ax,ax
  1590.      int 16h
  1591.      
  1592.      cmp al,31h
  1593.      je prob3
  1594.      
  1595.      cmp al,32h
  1596.      je prob4
  1597.      
  1598.      jmp short choose3
  1599.      ;第二问题(2号)
  1600.      
  1601.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1602.      
  1603. prob3  :call pro_cle
  1604.      
  1605.      lea si,problem4
  1606.      call pro_str
  1607.      
  1608. choose4  :xor ax,ax
  1609.      int 16h
  1610.      
  1611.      cmp al,31h
  1612.      je joked
  1613.      
  1614.      cmp al,32h
  1615.      je joked
  1616.      
  1617.      jmp short choose4
  1618.      ;第三问题(1号)
  1619.      
  1620.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1621.      
  1622. prob4  :call pro_cle
  1623.      
  1624.      lea si,problem5
  1625.      call pro_str
  1626.      
  1627. choose5  :xor ax,ax
  1628.      int 16h
  1629.      
  1630.      cmp al,31h
  1631.      je joked
  1632.      
  1633.      cmp al,32h
  1634.      je joked
  1635.      
  1636.      jmp short choose5
  1637.      ;第三问题(2号)
  1638.      
  1639.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1640.      
  1641. joked  :call pro_cle
  1642.      
  1643.      lea si,joke
  1644.      call pro_str
  1645.      ;答案：结束语
  1646.      
  1647.      push di
  1648.      mov cx,5*80
  1649.      
  1650. colo  :mov byte ptr es:[di+1],0eh
  1651.      add di,2
  1652.      loop colo
  1653.      
  1654.      pop di
  1655.      
  1656.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1657.      
  1658.      push si
  1659.      lea si,sec
  1660.      and byte ptr [si],0
  1661. t01    :cmp byte ptr [si],50
  1662.      jne t01
  1663.      pop si
  1664.      ;暂停约3秒
  1665.      
  1666. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1667.      ;倒计时
  1668.      
  1669.      call pro_cle
  1670.      
  1671.      mov ax,0e35h
  1672.      mov di,12*160+80
  1673.      
  1674. num1  :mov es:[di],ax
  1675.      
  1676.      push si
  1677.      lea si,sec
  1678.      and byte ptr [si],0
  1679. t02    :cmp byte ptr [si],18
  1680.      jne t02
  1681.      pop si
  1682.      ;1s
  1683.      
  1684.      cmp al,'0'
  1685.      jz flie
  1686.      
  1687.      dec ax
  1688.      jmp short num1
  1689.      
  1690.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1691.      
  1692. flie  :mov word ptr es:[di],0720h
  1693.      ;清除
  1694.      
  1695.      call rose
  1696.      ;生成文件
  1697.      
  1698.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1699.      
  1700.      lea si,gift
  1701.      mov di,10*160+50
  1702.      mov ah,0eh
  1703.      mov cx,2
  1704.      
  1705. gift1  :push cx
  1706.      mov cx,25
  1707.      
  1708. gift2  :lodsb
  1709.      stosw
  1710.      loop gift2
  1711.      
  1712.      mov di,11*160+50
  1713.      pop cx
  1714.      loop gift1
  1715.      ;提示语：礼物
  1716.      
  1717.      ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1718.      
  1719.      push si
  1720.      lea si,sec
  1721.      and byte ptr [si],0
  1722. t03    :cmp byte ptr [si],54
  1723.      jne t03
  1724.      pop si
  1725.      ;3s
  1726.      
  1727.      xor dx,dx
  1728.      call rollp
  1729.      
  1730. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<




  1735.      
  1736. time1  :mov ax,4f03h
  1737.      int 10h
  1738.      push bx
  1739.      ;保存模式
  1740.      
  1741.      mov ax,4f02h
  1742.      mov bx,101h
  1743.      int 10h
  1744.      ;设置模式 640*480 256 色
  1745.      
  1746.      mov ax,04h  ;设置颜色
  1747.      
  1748. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1749.      
  1750.      mov si,DG
  1751.      mov ds,si
  1752.      
  1753.      mov si,0a000h
  1754.      mov es,si
  1755.      lea si,love1
  1756.      
  1757.      
  1758.      lea bp,segm
  1759.      
  1760.      xor dx,dx
  1761.      mov cx,21        ;图数
  1762.      
  1763. tim4  :call tim
  1764.      
  1765.      cmp dx,4
  1766.      jz stops
  1767.      
  1768.      push si
  1769.      lea si,sec
  1770.      and byte ptr [si],0
  1771. te_1  :cmp byte ptr [si],5
  1772.      jne te_1
  1773.      pop si
  1774.      ;延时
  1775.      
  1776. back  :inc dx
  1777.      loop tim4
  1778.      jmp short over
  1779.      
  1780. stops  :push si
  1781.      lea si,sec
  1782.      and byte ptr [si],0
  1783. tf_1  :cmp byte ptr [si],40
  1784.      jne tf_1
  1785.      pop si
  1786.      ;延时
  1787.      jmp short back
  1788.    
  1789. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1790.      
  1791. over  :push si
  1792.      lea si,sec
  1793.      and byte ptr [si],0
  1794. tf_2  :cmp byte ptr [si],100
  1795.      jne tf_2
  1796.      pop si
  1797.      
  1798.      mov ax,4f02h
  1799.      pop bx
  1800.      int 10h
  1801.      ;恢复模式
  1802.      
  1803.      ;像素
  1804.      
  1805.      
  1806. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1807.      
  1808.      mov di,DG
  1809.      mov ds,di
  1810.      mov di,0b800h
  1811.      mov es,di
  1812.      
  1813.      mov ax,0cc20h
  1814.      mov di,164
  1815. way    :mov cx,76
  1816.    
  1817. way1  :mov word ptr es:[di],ax
  1818.      add di,2
  1819.      loop way1
  1820.      cmp di,23*160+78*2
  1821.      je lon
  1822.      mov di,23*160+4
  1823.      jmp way
  1824.      
  1825.      ;设置两个横向边框
  1826.      
  1827. lon    :mov cx,23
  1828.      mov di,162
  1829.    
  1830. lon1  :mov word ptr es:[di],ax
  1831.      mov word ptr es:[di+154],ax
  1832.      add di,0a0h
  1833.      loop lon1
  1834.      
  1835.      ;设置两个纵向边框
  1836.      
  1837. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  1839.      lea si,back1
  1840.      lea bx,adrs
  1841.      
  1842.      mov cx,7
  1843.      xor dx,dx
  1844.      
  1845. ovspk1  :push cx
  1846.      mov cx,27
  1847.      
  1848.      mov di,[bx]
  1849.      
  1850.      cmp dx,2
  1851.      jz yellow
  1852.      
  1853.      cmp dx,3
  1854.      jz yellow
  1855.      
  1856.      mov ah,0ah
  1857.      
  1858. ovspk  :lodsb
  1859.      stosw
  1860.      
  1861.      cmp byte ptr es:[di-2],'Q'
  1862.      jz red
  1863.      
  1864. red1  :loop ovspk
  1865.      
  1866.      add bx,2
  1867.      inc dx
  1868.      pop cx
  1869.      loop ovspk1
  1870.      jmp sto
  1871.      
  1872. yellow  :mov ah,0eh
  1873.      jmp ovspk

  1875. red    :mov byte ptr es:[di-1],0ch
  1876.      jmp red1
  1877.      
  1878.      ;那几句话。
  1879. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1880.      
  1881. sto    :call int1cov

  1883.      xor ax,ax
  1884.      int 16h
  1885.      cmp ah,10h
  1886.      jnz sto
  1887.      
  1888.      mov ax,4c00h
  1889.      int 21h
  1890.      
  1891.      ;结束
  1892.      
  1893. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<


  1896. ;-------------------------------------------------|
  1897. ;子程序                          |
  1898. ;                          |
  1899. ;目录                         |
  1900. ;                          |
  1901. ;1. 使所有'*'字符随机变色              |
  1902. ;2. 上滚屏or清屏                  |
  1903. ;3. 截取1CH中断的安装程序              |
  1904. ;4. 释放1CH中断                    |
  1905. ;5. 向内滑动门动画(双列1次)              |
  1906. ;6. 向外                      |
  1907. ;7. 配合5 and 6 清除专用              |
  1908. ;8. 提问显示                    |
  1909. ;9. 提问清除                    |
  1910. ;A. 生成htm文件                    |
  1911. ;B and C.改变心形图案颜色，实现跳动。(内外层)    |
  1912. ;D. 转换点阵数据子程序                |
  1913. ;-------------------------------------------------|

  1915. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  1917. ;单字符随机变色
  1918. ;
  1919. ;功能：使‘*’字符变换颜色。
  1920. ;
  1921. ;默认参数:
  1922. ;es = 0b800h
  1923. ;
  1924. discolor:push bx
  1925.      push cx
  1926.      
  1927.      xor bx,bx
  1928.      mov cx,2000
  1929.      
  1930. dicl2  :cmp byte ptr es:[bx],'*'
  1931.      jnz dicl
  1932.      
  1933.      in al,40h
  1934.      mov es:[bx+1],al
  1935.      and byte ptr es:[bx+1],0fh
  1936.      ;通过读取时钟控制端口，来实现随机变色
  1937.      
  1938.      ;若想整体变色，就需要把读取端口放到循环外
  1939.      
  1940. dicl  :add bx,2
  1941.      loop dicl2
  1942.      
  1943.      pop cx
  1944.      pop bx
  1945.      ret
  1946.      
  1947. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  1949. ;上滚屏or清屏
  1950. ;
  1951. ;功能：上滚屏或清屏
  1952. ;dx∈{0~24}，当dx=0时，为清屏
  1953. ;
  1954. ;
  1955. ;这个是我学习《汇编语言》第16章后
  1956. ;自己写的算法
  1957. ;自我感觉良好哈O(∩_∩)O~
  1958. ;
  1959. ;
  1960. ;功能除了光标不重置
  1961. ;其余都和 AH=06H/int 10h 一样。
  1962. ;
  1963. ;
  1964. rollp:  push ds
  1965.     push si
  1966.     push di
  1967.     push cx
  1968.    
  1969.     mov si,0b800h
  1970.     mov ds,si
  1971.     mov si,160
  1972.     xor di,di
  1973.     mov cx,25
  1974.    
  1975.     sub cx,dx
  1976.     ;计算复制行数
  1977.     ;
  1978.     ;总行数 - 需要上滚行数 = 需要保留行数(需要复制行数)
  1979.     ;
  1980.    
  1981. roll3:  push cx
  1982.     mov cx,160
  1983.     rep movsb
  1984.     pop cx
  1985.     loop roll3
  1986.     ;复制
  1987.    
  1988.     mov ax,80
  1989.     mul dx
  1990.     mov cx,ax
  1991.     ;计算清空的行数
  1992.    
  1993.     ;需要上滚行数*80 = 需要清除的字的次数
  1994.    
  1995.    
  1996.    
  1997.     mov si,0f9eh
  1998.     ;指向最后一行最后一个字
  1999.    
  2000. roll4:  mov word ptr [si],0720H
  2001.     sub si,2
  2002.     loop roll4
  2003.     ;覆盖 = 清除
  2004.    
  2005.     pop cx
  2006.     pop di
  2007.     pop si
  2008.     pop ds
  2009.     ret
  2010.      
  2011. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2012. ;计时器安装子程序
  2013. ;
  2014. ;截取1ch中断
  2015. ;功能：设置参数到指定内存单元
  2016. ;
  2017. ;
  2018. int1cst  :push ds
  2019.      push si
  2020.      push es
  2021.      push di
  2022.      push cx
  2023.      
  2024.      push cs
  2025.      pop ds
  2026.      lea si,int1c
  2027.      
  2028.      xor di,di
  2029.      mov es,di
  2030.      mov di,204h
  2031.      
  2032.      mov cx,offset intend - offset int1c
  2033.      
  2034.      cld
  2035.      rep movsb
  2036.      
  2037.      cli
  2038.      push es:[1ch*4]
  2039.      push es:[1ch*4+2]
  2040.      pop es:[202h]
  2041.      pop es:[200h]
  2042.      
  2043.      mov word ptr es:[1ch*4],204h
  2044.      mov word ptr es:[1ch*4+2],0
  2045.      sti
  2046.      
  2047.      pop cx
  2048.      pop di
  2049.      pop es
  2050.      pop si
  2051.      pop ds
  2052.      ret
  2053.      ;安装程序
  2054.      
  2055. int1c  :pushf
  2056.      call dword ptr cs:[200h]
  2057.      
  2058.      push ds
  2059.      push si
  2060.      
  2061.      mov si,DG
  2062.      mov ds,si
  2063.      lea si,sec
  2064.      
  2065.      inc byte ptr [si]
  2066.      ;记录运行次数
  2067.      ;1CH中断会被系统在1秒内大约调用18次
  2068.      ;通过主程序检测次数来实现延时目的
  2069.      
  2070.      pop si
  2071.      pop ds
  2072.      iret
  2073.      
  2074. intend  :nop

  2076. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  2078. ;计时器解除子程序
  2079. ;
  2080. ;功能：释放1CH中断
  2081. ;
  2082. ;
  2083. int1cov  :push ds
  2084.      push si
  2085.      
  2086.      xor si,si
  2087.      mov ds,si
  2088.      mov si,200h
  2089.      
  2090.      cli
  2091.      push [si]
  2092.      push [si+2]
  2093.      pop ds:[1ch*4+2]
  2094.      pop ds:[1ch*4]
  2095.      sti
  2096.      
  2097.      pop si
  2098.      pop ds
  2099.      ret
  2100.      

  2102. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  2104. ;close动画(内聚)
  2105. ;
  2106. ;si为1号列
  2107. ;di为2号列
  2108. ;
  2109. ;原理：
  2110. ;左列：每次送入字符，列增加一字符
  2111. ;     每行输出完便指向下一行输出字符
  2112. ;
  2113. ;右列：每次输入字符,列减少一字符
  2114. ;     每行输出完便指向下一行输出字符
  2115. ;
  2116. ;通过主程序设置di,si参数来进行列控制
  2117. ;
  2118. ;
  2119. ;一下2个同系列子程序同理
  2120. ;
  2121. close  :push si
  2122.      push di
  2123.      push cx
  2124.      
  2125.      mov ax,0b800h
  2126.      mov es,ax
  2127.      
  2128.      mov ax,0a3dh
  2129.      mov es:[si],ax
  2130.      mov es:[di],ax
  2131.      inc al
  2132.      mov es:[si+2],ax
  2133.      sub al,2
  2134.      mov es:[di-2],ax
  2135.      ;送入上 => and <=
  2136.      
  2137.      add si,160
  2138.      add di,160
  2139.      mov cx,23
  2140.      mov al,'|'
  2141.      
  2142. close1  :mov es:[si],ax
  2143.      mov es:[di],ax
  2144.      mov es:[si+2],ax
  2145.      mov es:[di-2],ax
  2146.      
  2147.      add si,160
  2148.      add di,160
  2149.      loop close1
  2150.      ;送入23行'||'
  2151.      
  2152.      mov al,3dh
  2153.      mov es:[si],ax
  2154.      mov es:[di],ax
  2155.      inc al
  2156.      mov es:[si+2],ax
  2157.      sub al,2
  2158.      mov es:[di-2],ax
  2159.      ;送入下 => and <=
  2160.      
  2161.      pop cx
  2162.      pop di
  2163.      pop si
  2164.      ret
  2165.      
  2166. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2167. ;close动画(外散)
  2168. ;
  2169. ;si为1号列
  2170. ;di为2号列
  2171. ;
  2172. dclose  :push si
  2173.      push di
  2174.      push cx
  2175.      
  2176.      mov ax,0b800h
  2177.      mov es,ax
  2178.      
  2179.      mov ax,0a3ch
  2180.      mov es:[si],ax
  2181.      add al,2
  2182.      mov es:[di],ax
  2183.      dec al
  2184.      mov es:[si+2],ax
  2185.      mov es:[di-2],ax
  2186.      ;送入上 <= and =>
  2187.      
  2188.      add si,160
  2189.      add di,160
  2190.      mov cx,23
  2191.      mov al,'|'
  2192.      
  2193. dclose1  :mov es:[si],ax
  2194.      mov es:[di],ax
  2195.      mov es:[si+2],ax
  2196.      mov es:[di-2],ax
  2197.      
  2198.      add si,160
  2199.      add di,160
  2200.      loop dclose1
  2201.      ;送入23行||
  2202.      
  2203.      mov ax,0a3ch
  2204.      mov es:[si],ax
  2205.      add al,2
  2206.      mov es:[di],ax
  2207.      dec al
  2208.      mov es:[si+2],ax
  2209.      mov es:[di-2],ax
  2210.      ;送入下 <= and =>
  2211.      
  2212.      pop cx
  2213.      pop di
  2214.      pop si
  2215.      ret
  2216.      
  2217. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2218. ;clear清除(配合左右滑动门)
  2219. ;
  2220. ;si为1号列
  2221. ;di为2号列
  2222. ;
  2223. clear  :push cx
  2224.      push si
  2225.      push di
  2226.      
  2227.      mov ax,0720h
  2228.      mov cx,25
  2229.      
  2230. clear1  :mov es:[si],ax
  2231.      mov es:[di],ax
  2232.      mov es:[si+2],ax
  2233.      mov es:[di-2],ax
  2234.      ;根据si，di清除列
  2235.      
  2236.      add si,160
  2237.      add di,160
  2238.      loop clear1
  2239.      
  2240.      pop di
  2241.      pop si
  2242.      pop cx
  2243.      ret
  2244.      
  2245. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2246. ;提问段显示
  2247. ;
  2248. ;参数：
  2249. ;si = 问题偏移地址
  2250. ;di = 显存偏移地址

  2252. pro_str  :push di
  2253.      
  2254.      mov cx,5
  2255.      mov ah,0ah
  2256.      
  2257. pro1  :push cx
  2258.      mov cx,32
  2259.      
  2260. pro2  :lodsb
  2261.      stosw
  2262.      
  2263.      push si
  2264.      lea si,sec
  2265.      and byte ptr [si],0
  2266. t00    :cmp byte ptr [si],2
  2267.      jne t00
  2268.      pop si
  2269.      
  2270.      loop pro2
  2271.      
  2272.      add di,96
  2273.      pop cx
  2274.      loop pro1
  2275.      
  2276.      pop di
  2277.      ret
  2278.    
  2279. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2280. ;提问段清除
  2281. ;与清屏同理
  2282. ;
  2283. ;参数：
  2284. ;di = 显存偏移地址

  2286. pro_cle  :push di
  2287.      
  2288.      mov cx,5
  2289.      mov ax,0720h
  2290.      
  2291. pro3  :push cx
  2292.      mov cx,32
  2293.      
  2294. pro4  :mov es:[di],ax
  2295.      add di,2
  2296.      loop pro4
  2297.      
  2298.      add di,96
  2299.      pop cx
  2300.      loop pro3
  2301.      
  2302.      pop di
  2303.      ret
  2304.    
  2305. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2306. ;子程序：rose
  2307. ;
  2308. ;功能：生成rose.htm文件
  2309. ;

  2311. rose  :push dx
  2312.      push ds
  2313.      push es
  2314.      push cx
  2315.      
  2316.      mov dx,DG
  2317.      mov ds,dx
  2318.      mov es,dx
  2319.      
  2320.      lea dx,rose1
  2321.      xor cx,cx
  2322.      mov ah,3ch
  2323.      int 21h
  2324.      ;创建
  2325.      
  2326.      jc rose_ret
  2327.      
  2328.      mov bx,ax
  2329.      mov cx,1338
  2330.      lea dx,rose3
  2331.      mov ah,40h
  2332.      int 21h
  2333.      ;写文件
  2334.      
  2335.      jc rose_ret
  2336.      
  2337.      mov ah,3eh
  2338.      int 21h
  2339.      ;关闭文件
  2340.      
  2341. rose_ret:pop cx
  2342.      pop es
  2343.      pop ds
  2344.      pop dx
  2345.      ret
  2346.      
  2347. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2348. ;改变外层心字符颜色
  2349. ;
  2350. ;功能：无色与原色相互变换。
  2351. ;
  2352. ;参数：bp=坐标区偏移地址
  2353. ;
  2354. flick1  :push bx
  2355.      push cx
  2356.      
  2357.      mov al,00H
  2358.      mov cx,24
  2359.      
  2360.      xor dl,1
  2361.      jz reddd
  2362.      
  2363. flick1_1:mov di,ds:[bp]
  2364.      mov es:[di+1],al
  2365.      
  2366.      add bp,2
  2367.      loop flick1_1
  2368.      jmp short firet
  2369.      
  2370. reddd  :mov al,0CH
  2371.      jmp short flick1_1
  2372.      
  2373. firet  :pop cx
  2374.      pop bx
  2375.      ret
  2376.      
  2377. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2378. ;改变内层心字符颜色
  2379. ;
  2380. ;功能：无色与原色相互变换。
  2381. ;
  2382. ;参数：bx=坐标区偏移地址
  2383. ;
  2384. flick2  :push bx
  2385.      push cx
  2386.      
  2387.      mov al,00H
  2388.      mov cx,42
  2389.      
  2390.      xor dh,1
  2391.      jz redd
  2392.      
  2393. flick2_1:mov di,[bx]
  2394.      mov es:[di+1],al
  2395.      
  2396.      add bx,2
  2397.      loop flick2_1
  2398.      jmp short flret
  2399.      
  2400. redd  :mov al,0CH
  2401.      jmp short flick2_1
  2402.      
  2403. flret  :pop cx
  2404.      pop bx
  2405.      ret
  2406.      
  2407. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2408. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  2409. ;按位写像素子程序(单图显示)
  2410. ;
  2411. ;参数：ds=DG  bp=指定行数  bp+60=指定列数
  2412. ;     al=颜色
  2413. ;
  2414. ;返回参数：si=下一图的首字节  bp=下一图行数  bp=下一图列数
  2415. ;
  2416. ;
  2417. ;功能：根据单色位图翻译工具生成的数据。来计算坐标并写像素。
  2418. ;
  2419. tim    :push cx
  2420.      push dx
  2421.      push ax
  2422.      
  2423.      mov bx,ds:[bp]  
  2424.      mov ax,640
  2425.      mul bx
  2426.      add ax,word ptr ds:[bp+42]
  2427.      adc dx,0    ;计算结果DX为页数，ax为偏移地址
  2428.      
  2429.      mov di,ax
  2430.      
  2431.      xor bx,bx
  2432.      mov ax,4f05h
  2433.      int 10h    ;设置页数
  2434.      
  2435.      add bp,2    ;指向下一图行列
  2436.      
  2437.      
  2438.      pop ax
  2439.      
  2440.      mov cx,25    ;行数
  2441.      
  2442. tim1  :push cx
  2443.      mov cx,8    ;字节数
  2444.      
  2445. tim2  :push cx
  2446.      mov cx,8    ;位数
  2447.      
  2448.      mov ah,[si]  ;取字节
  2449.      
  2450.      
  2451. tim3  :rcl ah,1
  2452.      jnc zero    ;检测每位
  2453.      
  2454.      mov es:[bx+di],al  ;当为1时，送入字节
  2455.      
  2456. zero  :inc bx      ;指向下一像素点
  2457.      loop tim3
  2458.      
  2459.      inc si      ;指向下一字节
  2460.      pop cx
  2461.      loop tim2
  2462.      
  2463.      xor bx,bx    ;初始化辅助偏移
  2464.      add di,640    ;指向下一行
  2465.      pop cx
  2466.      loop tim1
  2467.      
  2468.      pop dx
  2469.      pop cx
  2470.      ret
  2471.      
  2472. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  2474. ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

  2476. CG ends
  2477. end start
进入原文参与互动
家装活动