SVN операционной системы NedoOS для ZX-Evo

;       В│ВнВчВ╠ЛGР▀      FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
;               ГVБ[ГУБ@ВTВOВP
;               Ч╤К╘КwНZБ@ВPБ|В`СхМИРэБIЧщОqВЦВУП╦Оq

        INCLUDE SUPER_S.INC

START:
        DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
SCTBL:
        DW      S1, S2, S3
MSGTBL:
        DW      M1
COMTBL:
        DW      CM1, CM2
VNTBL:
        DW      V_FNAME,N_FNAME
ENDTBL:

        INCLUDE "V_NAME00.INC"                  ; 0=NoCommand , 1-49=NormalCommand
        INCLUDE "N_NAME00.INC"                  ; 50-99=HseenCommand

;       Б@Б@Б@ УоОМБ@Б@Ц╝ОММQ
CM1:    DW      VV1,    -1
CM2:    DW      VV2,    NN1,NN2,-1

;VV1:   DB      1,      'МйВщ',0
VV1:    DB      1,      'LOOK',0
;VV2:   DB      2,      'ШbВ╖',0
VV2:    DB      2,      'TALK',0


;NN1:   DB      1,      'ЧщОq',0
NN1:    DB      1,      'REIKO',0
;NN2:   DB      2,      'П╦Оq',0
NN2:    DB      2,      'SHOKO',0


;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
S1:             DW      VV2, NN1,  2, M2, M3, M4                ;ШbВ╖Б@ЧщОqВR
S2:             DW      VV2, NN2,  3, M5, M6, M7                ;ШbВ╖Б@П╦ОqВR
S3:             DW      VV1, -1,  1, M8, M9             ;МйВщ


;ГCГjГVГГГЛГБГbГZБ[ГW
M1:
        DB      BGM,6
        BAK_INIT 'AB_36_4'
;       DB      'БEБEБEФ~ЙJВрВаВпВ╜ВUМОЙ║П{БB'
        DB      "It's late June. The month-long Japanese rainy season has"
        DB      CR
        DB      "just started."
        DB      NEXT
        DB      "I hate this time of year. That's why I'm happy the entire"
        DB      CR
        DB      "school is off to Hokkaido for our school camp, because"
        DB      CR
        DB      "Hokkaido is far enough north to not have rainy season."
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEВдБ[ВёБEБEБEБEБEБE'
        DB      "%001:  Hmmm..."
        DB      NEXT
;       DB      'Й┤В═БAР^В┴ФТВвОЖВ╠СOВ┼ЪXВшР║ВЁПуВ░В─ВвВ╜БB'
        DB      "I was struggling over a blank sheet of paper, trying to"
        DB      CR
        DB      "figure out what to write."
        DB      NEXT
        DB      BUF,B_COPY01
        TU_CG 'CT14','S',0,37,2
        TU_CG 'CT08','S',0,0,3
        T_CG 'CT07','S',0,23,4
        DB      ANI,A_ON,3
        DB      ANI,A_ON,2
;       DB      'БyМbИ╦Ф№БzБFБEБEБEВ╟ВдБHМИВ▄В┴В╜БH'
        DB      "Meimi:  Well? Did you decide?"
        DB      NEXT
;       DB      'Бy%001БzБFВвВёВтБAВ▄В╛БB'
        DB      "%001:  No, not yet."
        DB      NEXT
;       DB      'БyРпИдБzБFЦ╛У·В╠ТйВ▄В┼В╔ТёПoВ┼В╖ВйВчБAСБВ▀В╔ПСВвВ─Й║В│ВвВ╦БB'
        DB      "Seia:  You have to turn your paper in by tomorrow morning,"
        DB      CR
        DB      "so you'd better hurry."
        DB      NEXT
;       DB      'Бy%001БzБFХкВйВ┴В─ВщВ┴В─БB'
        DB      "%001:  I know that."
        DB      NEXT
;       DB      'БyР╜БzБFВ╗ВёВ╚ВрВёБAВ╧В┴В╧В┴В╞ПСВвВ┐В▄ВжВ┴В─БB'
        DB      "Makoto:  Why are you taking so long?"
        DB      NEXT
;       DB      'В╜ВйВ╛ВйБAЧ╤К╘КwНZВ╠Ф╟МИВ▀В╛ВыБ`ВкБB'
        DB      "Makoto:  Just decide the people you want to be in the same "
        DB      CR
        DB      "group with at camp and write it on the form."
        DB      NEXT
;       DB      'БEБEБEСхС╠БAКєЦ]Т╩ВшВ╔В╚ВщВ╞В═М└ВчВ╦Б`ВёВ╛БBВ╞В┴В╞В╞ЩrВ▀В┐В▄ВжБB'
        DB      "Makoto:  You don't even know if you'll get to be with them,"
        DB      CR
        DB      "anyway."
        DB      NEXT
;       DB      'Бy%001БzБFВ╗ВчВ▄Б`В╗Б`В╛ВкБEБEБEБEБEБE'
        DB      "%001:  You're right..."
        DB      NEXT
        DB      ANI,A_INIT
        DB      BUF,B_COPY01
        TU_CG 'CT03','S','K',10,2
        T_CG 'CT01','S','K',35,4
        DB      ANI,A_ON,2
;       DB      'БyЧщОqБzБF%001ВнБ`ВёБI',CR
        DB      "Reiko:  %001!"
        DB      PAUSE
        DB      CR
;       DB      'БyФ№ППБzБF%001РцФyБI'
        DB      "Mio:  %001!"
        DB      NEXT
;       DB      'БyЧщОqБEФ№ППБzБFВиТЛИъППВ╔РHВ╫ВцВ┴БI'
        DB      "Mio & Reiko:  Let's eat lunch together!"
        DB      NEXT
        T_CG1 'CT02','S','K',0,3
        DB      ANI,A_ON,4
        DB      ANI,A_ON,2
;       DB      'БyР┤Ф№БzБFБEБEБEВаВчБAЧщОqВ│ВёФ№ППВ│ВёБAВ▒ВёВ╔В┐В═БB'
        DB      "Kiyomi:  Hello, Reiko and Mio. How are you?"
        DB C_BLD,C_N_ON,2,2
        DB      ERASE,E_GFLG,10,100,101,102,103,104,105,106,107,108,109 ;ПДЙёГNГКГA
        DW      0000H

M8:             ;МйВщ
;       DB      'БEБEБEВ▒Б[ВфБ[В╠В┴В─БAРlВ╔МйВчВъВ─ВщВ╞ПСВпВ╦Б[ВцВ╚БEБEБE'
        DB      "I can't decide who I want to be grouped with at camp"
        DB      CR
        DB      "right now. There're too many people around."
        DW      0000H

M9:             ;МйВщВQ
;       DB      'В╚ВёВйБEБEБEЛєЛCВкГvГЙГYГ}Й╗В╡В─В╦ВеВйБH'
        DB      "The air's getting hot, wouldn't you say?"
        DW      0000H

M2:             ;ШbВ╖Б@ЧщОqВP
;       DB      'БyЧщОqБzБFВ╦Вж%001МNБEБEБEЧ╤К╘КwНZВ╠КєЦ]БAПСВвВ╜БH'
        DB      "Reiko:  %001, did you decide who you wanted to be with at camp?"
        DB      NEXT
;       DB      'Бy%001БzБFВвВёВтБAВ▄В╛БB'
        DB      "%001:  No, not yet."
        DB      NEXT
;       DB      'БyЧщОqБzБFВ╛В┴В╜Вч',CR
        DB      "Reiko:  In that case......."
        DB      ANI,A_INIT
        DB      BUF,B_COPY01
        T_CG 'CT04','S','K',10,1
;       DB      'БyП╦ОqБzБFВаВ╜В╡В╠Ц╝СOПСВвВ─ВеБI'
        DB      CR
        DB      "Shoko:  Choose me, okay?"
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEБEБEБE'
        DB      "%001:  .................................."
        DB      NEXT
;       DB      'БyЧщОqБzБFБEБEБEБEБEБEБEБEБE'
        DB      "Reiko:  .................................."
        DB      NEXT
;       DB      'БyП╦ОqБzБFВаВчВчВЯБHВ╟В╡В╜В╠ВзВ▌ВёВ╚БAМ┼В▄В┴В╜ВшВ╚ВёВйВ╡В─ВеБ`БH'
        DB      "Shoko:  Huh? What did I say? Everyone got so serious all"
        DB      CR
        DB      "of the sudden."
        DB      NEXT
        DB      ANI,A_OFF
        T_CG1 'CT01','S','D',35,2
        DB      ANI,A_ON,1
;       DB      'БyЧщОqБzБFВ╡БAП╦ОqБIВаВёВ╜В╟В┴ВйВчЧNВвВ─ЧИВ╜В╠ВцВ┴БIБH'
        DB      "Reiko:  Shoko! What are you doing here?!"
        DB      NEXT
        K_CG 'CT04','D',10,3
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВаБAЧщОqВ┐ВсВёВ╨В┴В╟Б`ВвБBВаВ╜В╡ВбБAВ┌Б[В╙ВчВ╢ВсВ╚ВвВрВёБI'
        DB      "Shoko:  If you're allowed to be here, I am too!"
        DB      NEXT
;       DB      'БyЧщОqБzБFГ{Б[ГtГЙВ╠Х√ВкГ}ГVВцВ┴БIВаВёВ╜В▌В╜ВвВ╔В╞В▒ВыН\ВэВ╕ПoВ─В▒В╚ВвВйВчВ┴БI'
        DB      "Reiko:  No, you aren't! Now off with you!"
        DB      NEXT
        K_CG 'CT04','I',10,4
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFБEБEБEЧщОqВ┐ВсВёБAВ╨В╟ВвБEБEБEВаВ╜В╡БAЛГВвВ┐ВсВдВгБB'
        DB      "Shoko:  You're so mean, Reiko! I... I'm going to cry!"
        DB      NEXT
;       DB      'БyЧщОqБzБFЙRЛГВлВ╡В╚ВвВ┼В┴В┴БI'
        DB      "Reiko:  I said leave!"
        DB      FLG,F_COPYI,1,1
        DB      FLG,F_COPYI,2,1
        DB C_BLD,C_N_OFF,2,2
        DW      0000H

M3:             ;ШbВ╖Б@ЧщОqВQ
;       DB      'БyЧщОqБzБF%001МNБIВ▒ВёВ╚В╠У№ВъВ╜ВчГНГNВ╚ОЦВ╔В╚ВчВ╚ВвВэВцБI'
        DB      "Reiko:  %001, never mind Reiko, okay? She's not worth talking"

        DB      CR

        DB      "to."
        DB      NEXT
        K_CG 'CT04','D',10,5
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВаБ`БIВ╗ВъВ┴В─ВеБuВ╤В┌ВдВ┐ВхБ[В╡ВуБ[БvВ┴В─М╛ВдВ╠ВцВзБH'
        DB      "Shoko:  Ah! I can't believe you said that! That's *slender*!"
        DB      NEXT
;       DB      'БyР┤Ф№БzБFБEБEБEВаВ╠БEБEБEВ╗ВъВЁМ╛ВдВ╚ВчБuФюцОТЖПЭБvВ┼В═БEБEБE'
        DB      "Kiyomi:  Excuse me, I think the word you're looking for"
        DB      CR
        DB      "is *slander*."
        DB      NEXT
;       DB      'БyП╦ОqБzБFВ╞В╔ВйВнВдБIВ┐ВхВ┴В╞В╨В╟ВвВ┴В─К┤В╢ВбБ`БI'
        DB      "Shoko:  Whatever. She's so mean. I hate her!"
        DB      NEXT
;       DB      'БyЧщОqБzБFВ╗Б[ВфБ[ОЦВ═БAОйХкВ╠ИлНsВЁРUВшХ╘В┴В─ВйВчМ╛ВвВ╚В│ВвБI'
        DB      "Reiko:  As if you're perfect."
        DB      NEXT
        K_CG 'CT04','K',10,6
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВ╙ВщВ╙ВщБBВаВ╜В╡ВбБAИлВвВ▒В╞В╚ВёВ─В╡В─В╚ВвВрБ`ВёБB'
        DB      "Shoko:  I'm not perfect, but I'm not mean like you."
        DB      NEXT
;       DB      'БyЧщОqБzБFЙRВиВ┴В╡ВсВвВ┴В┴БIБI'
        DB      "Reiko:  Liar!"
        DB      FLG,F_COPYI,2,2
        DW      0000H

M4:             ;ШbВ╖Б@ЧщОqВR
;       DB      'БyЧщОqБzБF%001МNБEБEБEРрЦ╛ЙяВ╠ОЮВ╠В▒В╞БAЦYВъВ─В╚ВвВэВцВ╦БH'
        DB      "Reiko:  %001, you haven't forgotten about what happened"
        DB      CR
        DB      "the first week, have you?"
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEВдБAВдВёБB'
        DB      "%001:  ......No."
        EF_SET 101
        DW      0000H

M5:             ;ШbВ╖Б@П╦ОqВP
        K_CG 'CT04','K',10,6
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВ╦ВеВ╦ВеВ╡ВуБ`МNБEБEБEВаВ╜В╡В╠НьВ┴В╜ГJГМБ[БAРHВ╫В╜ВнВ╚ВЯВвБH'
        DB      "Shoko:  %001, I want to make curry for you. Would that"
        DB      CR
        DB      "make you happy?"
        DB      NEXT
;       DB      'БyЧщОqБzБF%001МNБAО~В▀В─ВиВвВ╜Х√ВкВвВвВэВцБB'
        DB      "Reiko:  I wouldn't if I were you, %001."
        DB      PAUSE
;       DB      'П╦ОqВ╠Ч┐ЧЭБAМАЦЄВ╛ВйВчБB'
        DB      " Shoko's cooking is"
        DB      CR
        DB      "horrible."
        DB      NEXT
        K_CG 'CT04','D',10,5
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВ╘Б`БAЙ╜В╔ВрНьВъВ╚ВвВцВшГ}ГVВ╛ВрБ`ВёБB'
        DB      "Shoko:  At least I can cook! What can you do?"
        DB      NEXT
;       DB      'БyЧщОqБzБFВ╚ВёВ┼В╖В┴В─ВжБI'
        DB      "Reiko:  What did you say to me?"
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEГ}ГVВ╚В╠ВйБH'
        DB      "%001:  Did she say 'at least'....?"
        DB      FLG,F_COPYI,3,1
        DW      0000H

M6:             ;ШbВ╖Б@П╦ОqВQ
        K_CG 'CT04','K',10,6
        DB      ANI,A_ON,2
;       DB      'БyП╦ОqБzБFВ╦ВеВ╦ВеВ╡ВуБ`МNБBВаВ╜В╡В╞ВзБAЦщВ╠КCК▌В┼Ве'
        DB      "Shoko:  %001, %001, do you want to take a romantic walk"
        DB      CR
        DB      "on the beach tonight?"
        DB      NEXT
;       DB      'БyЧщОqБzБFВаВёВ╜В╠ПъНЗВ═БwГGГНГ`ГbГNБxВ┼В╡ВхБH'
        DB      "Reiko:  Don't you mean *erotic* walk?"
        DB      NEXT
;       DB      'БyП╦ОqБzБFБEБEБEВрБ`БAЧщОqВ┐ВсВёВ┴В╜ВчБEБEБEВжВ┴В┐БB'
        DB      "Shoko:  Oh, Reiko. You're such a bad woman."
        DB      NEXT
;       DB      'БyЧщОqБzБFБEБEБEБEБEБEВаВ╚В╜В╔В╛ВпВ═М╛ВэВъВ╜ВнВ╚ВвВэВ╦БA'
        DB      "Reiko:  Keep your observations to yourself, thanks."
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEБEБEБE'
        DB      "%001:  ............................"
        DB      NEXT
;       DB      'БiБEБEБEВ╚ВёВйБAЙ╬ЦЄМ╔В╔ВвВщВцБ[В╚ЛCВкВ╡В─ЧИВ╜БEБEБEБj'
        DB      ".............They're really going at it."
        DB      FLG,F_COPYI,3,2
        DW      0000H

M7:             ;ШbВ╖Б@П╦ОqВR
;       DB      'БyП╦ОqБzБFБEБEБEВ╞В╔ВйВнВгБAВаВ╜В╡В╞БuВ╣ВвВ╡ВуВёБvВ╡В▄В╡ВхБH'
        DB      "Shoko:  Shuji...I've got the ice cubes."
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEБEБEБEНlВжВ╞ВнБEБEБEБEБEБE'
        DB      "%001:  ........Great."
        EF_SET 102
        DW      0000H

M_EXIT:         ;
        DB      FLG,F_AND,255,101,102
        DB      FLG,F_EXIT,255
        DB      NEXT
;       DB      'ВлБ[ВёВ▒Б[ВёВйБ[ВёВ▒Б[Вё'
        DB      "*DING DONG DING DONG*"
        DB      NEXT
;       DB      'Бy%001БzБFБEБEБEВаБAГxГЛВ╛БB'
        DB      "%001:  Ah, it's the bell."
        DB      NEXT
;       DB      'БyП╦ОqБzБFБEБEБEВ╗ВъВ╢ВсВ╡ВуБ`МNБAВ▄В╜В╦ВёБЩ'
        DB      "Shoko:  Okay, well, I'll see you later."
        DB      NEXT
;       DB      'БyЧщОqБzБFБEБEБEБEБEБEВ╞В╔ВйВнБAП╦ОqВ╠Ц╝СOВ╛ВпВ═ПСВвВ┐ВсГ_ГБВцБI'
        DB      "Reiko:  Whatever you do, don't write Shoko's name on that"

        DB      CR

        DB      "paper!"
        DB      NEXT
        B_P1 B_SUDA
;       DB      'Бy%001БzБFБEБEБEБEБEБEБEБEБE'
        DB      "%001:  ..........."
        DB      PAUSE
;       DB      'В╙ВдБB'
        DB      "Hmmmm."
        DB      NEXT
        DB      SINARIO,'CS501_1.OVL',0
        DW      0000H


end
Subversion Repositories NedoOS

(root)/src/games/sakura/jmc_ovl_src/CS501.ASM – Rev 1340
