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

;       В│ВнВчВ╠ЛGР▀      FILENAME:CSas#_##(CS+П═+╝┼╪╡ No.(+╗╠▐┼▌╩▐░))
;               ГVБ[ГУБ@ВTВOВPБQВP
;               Ч╤К╘КwНZБ@Ф╟Х╥Рм

        INCLUDE SUPER_S.INC

START:
        DW      SCTBL,MSGTBL,COMTBL,VNTBL,ENDTBL
SCTBL:
        DW      S1, S2, S3, S4, S5, S6, S7, S8
MSGTBL:
        DW      M1
COMTBL:
        DW      CM1, CM2, CM3
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,    NN1,-1
CM2:    DW      VV2,    NN2,-1
CM3:    DW      VV3,    NN3,NN4,NN5,NN6,NN7,NN8,-1

;VV1:   DB      1,      'МйВщ',0
VV1:    DB      1,      'LOOK',0
;VV2:   DB      2,      'НlВжВщ',0
VV2:    DB      2,      'THINK',0
;VV3:   DB      3,      'ПСВн',0
VV3:    DB      3,      'WRITE',0

;NN1:   DB      1,      'В▄ВэВш',0
NN1:    DB      1,      'AROUND',0
;NN2:   DB      2,      'Ч╤К╘КwНZ',0
NN2:    DB      2,      'SCHOOL TRIP',0
;NN3:   DB      3,      'ЧщОq',0
NN3:    DB      3,      'REIKO',0
;NN4:   DB      4,      'П╦Оq',0
NN4:    DB      4,      'SHOKO',0
;NN5:   DB      5,      'Р┤Ф№',0
NN5:    DB      5,      'KIYOMI',0
;NN6:   DB      6,      'Ч┌ЧЮ',0
NN6:    DB      6,      'RURI',0
;NN7:   DB      7,      'РпИд',0
NN7:    DB      7,      'SEIA',0
;NN8:   DB      8,      'МbИ╦Ф№',0
NN8:    DB      8,      'MEIMI',0

;       Б@Б@Б@ УоОМ Ц╝ОМ ╠╫╕▐ ╥п╛░╝▐
S1:             DW      VV1, NN1,  1, M2, M3            ;МйВщБ@О№ВшВQ
S2:             DW      VV2, NN2,  2, M4, M5, M6                ;НlВжВщБ@Ч╤К╘КwНZВR
S3:             DW      VV3, NN3,  3, M7                ;ПСВнБ@ЧщОqВP
S4:             DW      VV3, NN4,  4, M8                ;ПСВнБ@П╦ОqВP
S5:             DW      VV3, NN5,  5, M9                ;ПСВнБ@Р┤Ф№ВP
S6:             DW      VV3, NN6,  6, M10               ;ПСВнБ@Ч┌ЧЮВP
S7:             DW      VV3, NN8,  7, M11               ;ПСВнБ@МbИ╦Ф№ВP
S8:             DW      VV3, NN7,  8, M12               ;ПСВнБ@РпИдВP


;ГCГjГVГГГЛГБГbГZБ[ГW
M1:
        DB      BGM,6
        E_CG B_SUDA,'AB_36_4'
;       DB      'Бy%001БzБFБEБEБEБEБEБEВ│В─В╞БBВ╞В┴В╞В╞ЩrВ▀В╦Б`В╞В╚БB'
        DB      "%001:  Well, I guess I'd better choose who I want."
        DB G_FLG,G_COPYF,110,110
        DB G_FLG,G_COPYF,120,120
        DB G_FLG,G_COPYF,140,140
        DB G_FLG,G_COPYF,150,150
        DB G_FLG,G_COPYF,170,170
        DB G_FLG,G_COPYF,180,180
        DB FLG,F_COPYI,200,0
        DB FLG,F_COPYI,202,0
        DB C_BLD,C_V_ON,3
        DW      0000H

M2:             ;МйВщБ@О№ВшВP
;       DB      'ОЎЛ╞ТЖВ╛ВпВаВ┴В─БAЧмР╬В╔В▌ВёВ╚Р├ВйВ╛БB'
        DB      "Class is going on right now, so it's quiet."
        DB      FLG,F_COPYI,1,1
        DW      0000H

M3:             ;МйВщБ@О№ВшВQ
;       DB      'БEБEБEОЎЛ╞ТЖВ╚ВёВ╛ВйВчБAВаВёВ▄ВшГLГЗГНГLГЗГНВ╡В╦Б`Х√ВкВвВвВ║БB'
        DB      "Class is going on now, so you shouldn't look around too"
        DB      CR
        DB      "much."
        DB      FLG,F_COPYI,1,0
        DW      0000H

M4:             ;НlВжВщБ@Ч╤К╘КwНZВP
;       DB      'СSНZР╢УkВ┼НsВнБAВRФСВSУ·В╠ЦkКCУ╣В╓В╠Ч╖В╛БB'
        DB      "All the students in the school are taking the school trip"
        DB      CR
        DB      "to Hokkaido for four days and three nights."
        DB      NEXT
;       DB      'БEБEБEЙ╜В┼СSНZР╢УkВйВ╞М╛ВдВ╞БEБEБE'
        DB      "It was supposedly the dean's idea to require us all"
        DB      CR
        DB      "to go."
        DB      FLG,F_COPYI,2,1
        DW      0000H

M5:             ;НlВжВщБ@Ч╤К╘КwНZВQ
;       DB      'БEБEБEВ┼БAУЦСRНsВ┴В╜РцВ┼В═Ф╟ТPИ╩В┼НsУоВ╖ВщЦєВ╛ВкБEБEБE'
        DB      "The dean wants us to be organized in groups, and each"
        DB      CR
        DB      "group has to have students from each graduating class in"
        DB      CR
        DB      "it."
        DB      NEXT
;       DB      'В╛ВйВчЙ┤В╠ПъНЗВ═ТЖУЩХФВйВчЙ╜РlВйВ╞БAУёФNВйОOФNВйВчЙ╜РlВйВЁСIВ╬В╚ВлВсВ╚ВчВёЦєВ╛БB'
        DB      "So I've got to pick some students to be in my group."
        DB      FLG,F_COPYI,2,2
        DW      0000H

M6:             ;НlВжВщБ@Ч╤К╘КwНZВR
;       DB      'БEБEБEВёВ┼БAЙ┤В╠Ц┌В╠СOВ╔ВаВщОЖВ╔В═ВUВ┬БAЦ╝СOВЁПСВнЧУВкВаВщБB'
        DB      "There are six spaces on the paper in front of me, room for"
        DB      CR
        DB      "six names."
        DB      NEXT
;       DB      'В╗В╠УрВRВ┬В═БAК∙В╔ЦДВ▄В┴В─ВвВщБB'
        DB      "Three of the names are already filled in."
        DB      NEXT
;       DB      'ВPБDР╜БiВ▄ВЯВвВ┐ВиБ`ЧFТBВ╛ВйВчБj',CR
        DB      "1. Makoko"
        DB      NEXT
;       DB      'ВQБDФ№ППВ┐ВсВёБiТЖУЩХФВ╠ТmВшНЗВвВ┴В─В▒В╠Ц║ВнВчВвВ╡ВйВвВ╚ВвВйВчБj',CR
        DB      "2. Mio"
        DB      NEXT
;       DB      'ВRБDИЯКєВ┐ВсВёБiФ№ППВ┐ВсВёПСВвВ─В▒В╠Ц║ПСВйВ╚ВвВ╞БAМуВ┼Л░В╗ВдВ╛ВйВчБj'
        DB      "3. Aki"
        DB      NEXT
;       DB      'БEБEБEБEБEБE'
        DB      "..............................."
        DB      NEXT
;       DB      'ЦтСшВ═БAОcВшВ╠ВRРlВ╛В╚БB'
        DB      "There are three spaces left. Who should I write?"
        DB C_BLD,C_V_ON,2
        DB C_BLD,C_V_OFF,3
        DW      0000H

M7:             ;ПСВнБ@ЧщОqВP
;       DB      'БEБEБEВ╗ВдВ╛В╚БAЧщОqВ│ВёВ╔В╡ВцВдБB'
        DB      "Reiko's a good choice."
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB      NEXT
;       DB      'БEБEБEБEБEБE'
        DB      "..............................."
        DB      NEXT
;       DB      'ЧщОqВ│ВёВ╞Р╝ЦьВ│ВёБAГXГQБ[СКРлИлВвВ▌В╜ВвВ╛ВйВчВ╚БBЧщОqВ│ВёВЁУ№ВъВ╜ВйВчБAР╝ЦьВ│ВёВ═ПСВйВ╚ВвХ√ВкВвВвВ╚БB'
        DB      "Reiko really doesn't get along with Shoko. Since I've"
        DB      CR
        DB      "written Reiko's name down, I'd better not write Shoko."
        DB C_BLD,C_N_ON,3,1
        DB C_BLD,C_N_ON,3,2
        DB      FLG,F_CALI,110,5
        DB      FLG,F_COPYI,111,1
        DB      FLG,F_COPYI,201,1
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

M8:             ;ПСВнБ@П╦ОqВP
;       DB      'БEБEБEБEБEБE'
        DB      "..............................."
        DB      PAUSE
;       DB      'ВвВвВ╠ВйБH'
        DB      "Is that really okay?"
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB      NEXT
;       DB      'БEБEБEБEБEБE'
        DB      "..............................."
        DB      NEXT
;       DB      'ЧщОqВ│ВёВ╞Р╝ЦьВ│ВёБAГXГQБ[СКРлИлВвВ▌В╜ВвВ╛ВйВчВ╚БBР╝ЦьВ│ВёВЁУ№ВъВ╜ВйВчБAЧщОqВ│ВёВ═ПСВйВ╚ВвХ√ВкВвВвВ╚БB'
        DB      "Reiko really doesn't get along with Shoko. Since I've"
        DB      CR
        DB      "written Shoko's name down, I'd better not write Reiko."
        DB C_BLD,C_N_ON,3,1
        DB C_BLD,C_N_ON,3,2
        DB      FLG,F_CALI,140,5
        DB      FLG,F_COPYI,141,1
        DB      FLG,F_COPYI,201,4
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

M9:             ;ПСВнБ@Р┤Ф№ВP
;       DB      'БEБEБEВ╗ВдВ╛В╚БAРVУбВ│ВёВ╔В╡ВцВдБB'
        DB      "Yes, Kiyomi's a good person to write."
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB C_BLD,C_N_ON,3,3
        DB      FLG,F_CALI,120,5
        DB      FLG,F_COPYI,121,1
        DB      FLG,F_COPYI,201,2
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

M10:            ;ПСВнБ@Ч┌ЧЮВP
;       DB      'БEБEБEФТРЕВ│ВёБAВйБEБEБE'
        DB      ".......Okay, Ruri it is..."
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB C_BLD,C_N_ON,3,4
        DB      FLG,F_CALI,150,5
        DB      FLG,F_COPYI,151,1
        DB      FLG,F_COPYI,201,5
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

M11:            ;ПСВнБ@МbИ╦Ф№ВP
;       DB      'БEБEБEТЖЦьВйБB'
        DB      "......Okay, I'll write Meimi's name."
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB C_BLD,C_N_ON,3,6
        DB      FLG,F_CALI,180,5
        DB      FLG,F_COPYI,181,1
        DB      FLG,F_COPYI,201,8
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

M12:            ;ПСВнБ@РпИдВP
;       DB      'БEБEБEЛgУcВ╦БB'
        DB      ".....Seia's a good one to write."
        DB      NEXT
;       DB      'ВйВлВйВл'
        DB      "*write write*"
        DB C_BLD,C_N_ON,3,5
        DB      FLG,F_CALI,170,5
        DB      FLG,F_COPYI,171,1
        DB      FLG,F_COPYI,201,7
        DB      FLG,F_CALLS,200
        DW      M_SUB1,M_SUB2
        DW      -1                                                                              ;ВnВmБ@ВfВnВrВtВa
        DW      0000H

EXIT:           ;
        DB      NEXT
;       DB      'БEБEБEВцВ╡БAСSХФЦДВ▀В╜В╝БB'
        DB      "Okay, that's finished."
        DB      NEXT
;       DB      'БEБEБEБEБEБEВ│Б`В─БAВ╟Б`В╚ВщВйКyВ╡В▌В╛БEБEБEБEБEБE'
        DB      ".....I wonder what'll happen up in Hokkaido."
        DB      NEXT
;       DB      'БyЛ│ОtБzБFОЯВ╠ЦтСшВЁБEБEБE',PAUSE,'ОRР_БAУЪВжВ─В▌ВыБB'
        DB      "Teacher:  And the answer is...",PAUSE," Yamagami, why don't you tell us?"
        DB      NEXT
;       DB      'Бy%001БzБFВ═В┴В═ВвБIБH'
        DB      "%001:  Huh??"
        DB      NEXT
        E_CG B_NORM,'T_05'
        DB      NEXT
        DB G_FLG,G_COPYG,110,110
        DB G_FLG,G_COPYG,120,120
        DB G_FLG,G_COPYG,140,140
        DB G_FLG,G_COPYG,150,150
        DB G_FLG,G_COPYG,170,170
        DB G_FLG,G_COPYG,180,180
        DB      SINARIO,'CS502.OVL',0
        DW      0000H

M_SUB1:         ;ИъФ╘Ц┌ВЁВfГtГЙГOВ╓
        DB      FLG,F_COPYI,200,1                               ;ГWГГГУГvРцВЁ M_SUB2 В╓
        DB      G_FLG,G_COPYG,255,201                   ;ВfГtГЙГOУ]СЧ
        DB      FLG,F_CALI,202,1
        DW      0000H

M_SUB2:
        DB      FLG,F_CALI,202,1
        DB      FLG,F_COMPI,255,202,2
        DB      FLG,F_JGR,255                                   ;ВRРlСIВёВ╛ВйБH
        DW      EXIT
        DW      0000H



end
Subversion Repositories NedoOS

(root)/src/games/sakura/jmc_ovl_src/CS501_1.ASM @ 1669 – Rev 1340
