?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. ;*Z80
  2. *L+
  3. *M-
  4. ;*D-
  5. ;********ДЕМОНСТРАЦИОННЫЙ МОДУЛЬ ДЛЯ НЛО-2********
  6. iIVAN   EQU 32000
  7. pIVAN   EQU iIVAN+6
  8. *P1
  9.         ORG #C000
  10. SCR
  11. *B      ..\XDEMO\XDEMO0.lpc
  12. *P3
  13.         ORG #C000
  14. *B      ..\XDEMO\XDEMOTXT.lpc
  15. *P6
  16.         ORG #C000
  17. *B      ..\XDEMO\XDEMOS6.lpc
  18. *P7
  19.         ORG #C000
  20. *B      ..\XDEMO\XDEMOS7.lpc
  21.         DEFM " ===Слава Медноногов=== 143/33/03"
  22. *P4
  23.         ORG #C000
  24. *B      ..\XDEMO\XDEMO1.lpc
  25. *P0
  26.         ORG #C000
  27. *B      ..\XDEMO\XDEMO2.lpc
  28. ;---------------------
  29.  
  30.         ORG #7000
  31.         ENT $
  32. ST1     JR      ST1_
  33.         DEFM "   *** (c) 1996 Mednonogov bros.  "
  34.         DEFM "'UFO-2' Demo Movie v1.03 "
  35.         DEFM " Tel/Fax (812) 1433303 ***   "
  36. ST1_    DI
  37.         LD (OLDSP+1),SP
  38.         LD SP,#BFF0
  39.         EXX
  40.         PUSH HL
  41.         PUSH IY
  42.         IM 2
  43.         LD A,#71
  44.         LD I,A
  45.         CALL iIVAN
  46.         DI
  47.         JP START
  48.         DEFS #7272-$,#72
  49. intr    PUSH DE
  50.         PUSH HL
  51.         PUSH BC
  52.         CALL pIVAN
  53.         CALL KEYs
  54.         POP BC
  55.         POP HL
  56.         POP DE
  57.         EI
  58.         RET
  59. *F      XGRLIB
  60. MEME    LD BC,#7FFD
  61.         AND #7
  62.         OR 16
  63.         OUT (C),A
  64.         RET
  65.  
  66. START   CALL DECOMP    
  67.         ATR$ #0,#2018,#70  ;всё поле
  68.         XOR A
  69.         OUT (254),A
  70.         CALL CHNGRG
  71.         DEC A
  72.         CALL SIMBAR
  73.         LD HL,#D00
  74.         LD BC,#1070
  75.         LD DE,XTITLE
  76.         CALL PUTSCR
  77.         ATR$ #1000,#808,#50;экран
  78.         ATR$ #0010,#1012,#68;земной шар
  79.         ATR$ #1208,#1806,#78;текст
  80.         ATR$ #800,#1008,#30;надпись
  81.         CHN$ XOR_
  82.         LD HL,#B939
  83.         LD DE,#B906
  84.         CALL LINE
  85.         DEC D
  86.         LD HL,#8606
  87.         CALL LINE
  88.         INC L
  89.         LD DE,#8639
  90.         CALL LINE
  91.         INC D
  92.         LD HL,#B839
  93.         CALL LINE
  94.         LD HL,BUFFER
  95.         LD DE,BUFFER+1
  96.         LD (HL),#FF
  97.         LD BC,575
  98.         LDIR
  99.         EI
  100.  
  101. NACH    LD A,0
  102.         CALL E8
  103.         LD A,1
  104.         CALL E8
  105.         LD A,4
  106.         CALL E8
  107.         JP NACH
  108.  
  109. PAGE    DEFB 7
  110. E8      LD (PAGE),A
  111.         LD B,8
  112.         LD DE,#4000+16+#20
  113.         LD HL,SCR
  114. E88     LD C,1
  115. E89     PUSH$
  116.         HALT
  117.         CALL PTBALL
  118.         POP$
  119.         PUSH$
  120.         HALT
  121.         CALL FLIK
  122.         CALL VOSST
  123.         POP$
  124.         LD A,C
  125. TIM     ADD A,250
  126.         LD C,A
  127.         JR NC,E89
  128.         LD A,H
  129.         ADD A,8
  130.         LD H,A
  131. E78     DJNZ E88
  132.         RET
  133.  
  134. PTBALL  LD A,(PAGE)
  135.         CALL MEME
  136.         LD B,128
  137. PB0     PUSH BC
  138.         PUSH DE
  139.         LDI
  140.         LDI
  141.         LDI
  142.         LDI;
  143.         LDI
  144.         LDI
  145.         LDI
  146.         LDI ;
  147.         LDI
  148.         LDI
  149.         LDI
  150.         LDI  ;
  151.         LDI
  152.         LDI
  153.         LDI
  154.         LDI   ;
  155.         POP DE
  156.         POP BC
  157.         INC D
  158.         LD A,D
  159.         AND %111
  160.         JR NZ,M74
  161.         LD A,D
  162.         SUB 8
  163.         LD D,A
  164.         LD A,E
  165.         ADD A,32
  166.         LD  E,A
  167.         JR NC,M74
  168.         LD A,8
  169.         ADD A,D
  170.         LD D,A
  171. M74     DJNZ PB0
  172.         RET
  173.  
  174. DEL     EQU TIM+1
  175. KEYs    PUSH BC
  176.         LD BC,#BFFE
  177.         IN A,(C)
  178.         POP BC
  179.         BIT 2,A
  180.         JR NZ,KY1
  181.         LD A,(DEL);+++
  182.         INC A
  183.         RET Z
  184.         LD (DEL),A
  185.         RET
  186. KY1     BIT 3,A
  187.         JR NZ,KY2
  188.         LD A,(DEL);---
  189.         OR A
  190.         RET Z
  191.         DEC A
  192.         LD (DEL),A
  193.         RET
  194. KY2     BIT 0,A
  195.         RET NZ
  196.         DI
  197.         XOR A
  198.         CALL MEME
  199.         IM 1
  200.         LD BC,65533
  201.         LD A,7
  202.         OUT (C),A
  203.         LD BC,49149
  204.         LD A,#FF
  205.         OUT (C),A
  206.         ATR$ 0,#2018,0
  207.         POP IY
  208.         POP HL
  209.         EXX
  210.         LD BC,1995
  211. OLDSP   LD SP,0
  212.         EI
  213.         RET
  214. ;0-пропуск такта
  215. ;253 -конец
  216. ;255,N-ждать N тактов
  217. ;254,С-цвет С
  218. ;1-100 и 101-200 - картинки
  219. ;201-230 - тексты
  220. FLIK    LD HL,SDELAY
  221.         LD A,(HL)
  222.         OR A
  223.         JR Z,FL1
  224.         DEC (HL)
  225.         RET
  226. FL1     LD HL,(PSCEN)
  227.         LD A,(HL)
  228.         INC HL
  229.         LD (PSCEN),HL
  230.         OR A
  231.         RET Z
  232.         CP 253
  233.         JR NZ,FL2
  234.         LD HL,SCENA ;С начала
  235.         LD (PSCEN),HL
  236.         JP iIVAN
  237. FL2     CP #FE
  238.         JR C,FL3
  239.         JR Z,FCOL
  240.         LD A,(HL)     ;Пауза
  241.         LD (SDELAY),A
  242.         INC HL
  243.         LD (PSCEN),HL
  244.         RET
  245. FCOL    LD A,(HL)      ;Цвет
  246.         INC HL
  247.         LD (PSCEN),HL
  248.         LD HL,#1101
  249.         LD BC,#606
  250.         JP ATRBAR
  251. FL3     CP 201
  252.         JR C,FL4
  253.         SUB 201        ;Текст
  254.         LD L,A
  255.         LD A,3
  256.         CALL MEME
  257.         LD A,55
  258.         LD (VOSB),A
  259.         LD H,0
  260.         DEFS 6,#29 ;add hl
  261.         PUSH HL
  262.         DEFS 3,#29
  263.         POP DE
  264.         ADD HL,DE
  265.         LD DE,#C000
  266.         ADD HL,DE
  267.         LD DE,BUFFER
  268.         LD BC,576
  269.         LDIR
  270.         RET
  271. FL4     DEC A   ;Мультик
  272.         LD L,A
  273.         LD H,0
  274.         CP 100
  275.         LD A,6
  276.         JR C,FL41
  277.         LD A,L
  278.         SUB 100
  279.         LD L,A
  280.         LD A,7
  281. FL41    CALL MEME
  282.         DEFS 5,#29
  283.         PUSH HL
  284.         DEFS 3,#29
  285.         POP DE
  286.         ADD HL,DE
  287.         LD BC,#C000
  288.         ADD HL,BC
  289.         LD DE,#5000+32+1
  290.         LD B,48
  291. FL40    PUSH BC
  292.         PUSH DE
  293.         LDI
  294.         LDI
  295.         LDI
  296.         LDI
  297.         LDI
  298.         LDI
  299.         POP DE
  300.         INC D
  301.         LD A,D
  302.         AND %111
  303.         JR NZ,M38
  304.         LD A,D
  305.         SUB 8
  306.         LD D,A
  307.         LD A,E
  308.         ADD A,32
  309.         LD  E,A
  310.         JR NC,M38
  311.         LD A,8
  312.         ADD A,D
  313.         LD D,A
  314. M38     POP BC
  315.         DJNZ FL40
  316.         RET
  317.  
  318. VOSB    DEFB 1
  319. VOSST   LD HL,VOSB
  320.         INC (HL)
  321.         LD A,(HL)
  322.         CP 24
  323.         JR C,VS1
  324.         XOR A
  325.         LD (HL),A
  326. VS1     LD DE,#5000+64+768+8
  327.         LD L,A
  328.         ADD A,E
  329.         LD E,A
  330.         LD H,0
  331.         LD BC,BUFFER
  332.         ADD HL,BC
  333.         LD B,24
  334. VS0     PUSH BC
  335.         LD A,(HL)
  336.         LD (DE),A
  337.         LD BC,24
  338.         ADD HL,BC
  339.         INC D
  340.         LD A,D
  341.         AND %111
  342.         JR NZ,M338
  343.         LD A,D
  344.         SUB 8
  345.         LD D,A
  346.         LD A,E
  347.         ADD A,32
  348.         LD  E,A
  349.         JR NC,M338
  350.         LD A,8
  351.         ADD A,D
  352.         LD D,A
  353. M338    POP BC
  354.         DJNZ VS0
  355.         RET
  356.  
  357.         DEFS iIVAN-17-$,#CC
  358. *B      ..\MUSIC\M_IVAN2.$C
  359.  
  360. BUFFER
  361. XTITLE 
  362. *B      ..\DATA\XTITLE.DAT
  363.  
  364. W       MAC
  365.         DEFB 255,=0
  366.         ENDM
  367.  
  368. CL      MAC
  369.         DEFB 254,=0
  370.         ENDM
  371.  
  372. S6      MAC
  373.         DEFB =0
  374.         ENDM
  375.  
  376. S7      MAC
  377.         DEFB =0+100
  378.         ENDM
  379. T       MAC
  380.         DEFB =0+200
  381.         ENDM
  382. CLEAR   MAC
  383.         DEFB 254,0,1
  384.         ENDM
  385.  
  386.         DEFM "  24 Earth spr/ 28 Text spr/ 112 Movie spr/ Good music!"
  387.  
  388. SCENA   ;СЦЕНАРИЙ
  389. ;Титры и кредиты
  390.         T 7
  391.         CLEAR
  392.         W 170
  393.         T 1
  394.         W 180
  395.         T 3
  396.         W 23
  397.         S6 4
  398.         CL #8
  399.         CL #30
  400.         CL #78
  401.         CL #30
  402.         CL #50
  403.         W 250
  404.         T 7
  405.         W 25
  406.         CL #30
  407.         CL #78
  408.         CL #30
  409.         CL 8
  410.         CLEAR
  411.         W 55
  412.         T 2
  413.         W 23
  414.         S6 3
  415.         CL #10
  416.         CL #30
  417.         CL #78
  418.         CL #70
  419.         CL #38
  420.         W 150
  421.         T 4
  422.         W 220
  423.         T 16
  424.         W 220
  425.         T 7
  426.         W 20
  427.         CL #31
  428.         CL #32
  429.         CL #7E
  430.         CL #7F
  431.         CL #36
  432.         CL 9
  433.         CLEAR
  434.         W 60
  435.         T 5
  436.         W 20
  437.         S6 2
  438.         CL 8
  439.         NOP
  440.         CL #10
  441.         NOP
  442.         CL #18
  443.         NOP
  444.         CL #28
  445.         NOP
  446.         CL #68
  447.         NOP
  448.         CL #78
  449.         NOP
  450.         CL #68
  451.         W 250
  452.         W 100
  453.         T 7
  454.         W 20
  455.         CL #78
  456.         NOP
  457.         CL #68
  458.         NOP
  459.         CL #28
  460.         NOP
  461.         CL #18
  462.         NOP
  463.         CL #10
  464.         NOP
  465.         CL 8
  466.         CLEAR
  467.  
  468. ;Марсианские хроники
  469.         W 80
  470.         S6 5
  471.         CL 8
  472.         NOP
  473.         NOP
  474.         CL #10
  475.         NOP
  476.         NOP
  477.         CL #18
  478.         NOP
  479.         CL #58
  480.         T 6
  481.         W 55
  482.         S6 6
  483.         W 70
  484.         S6 7
  485.         W 70
  486.         S6 8
  487.         W 55
  488.         T 8
  489.         W 14
  490.         S6 9
  491.         W 30
  492.         S6 18
  493.         NOP
  494.         S6 19
  495.         NOP
  496.         S6 20
  497.         NOP
  498.         S6 21
  499.         NOP
  500.         S6 22
  501.         NOP
  502.         S6 23
  503.         NOP
  504.         S6 24
  505.         NOP
  506.         S6 9
  507.         W 15
  508.         S6 10
  509.         W 70
  510.         S6 11
  511.         W 70
  512.         S6 12
  513.         W 60
  514.         T 9
  515.         W 9
  516.         S6 13
  517.         W 70
  518.         S6 14
  519.         W 70
  520.         S6 15
  521.         W 70
  522.         S6 16
  523.         W 70
  524.         S6 17
  525.         W 25
  526.         S6 25
  527.         NOP
  528. ;SCENA  ;ЛУЧ
  529.         S6 26
  530.         NOP
  531.         S6 27
  532.         CL #59
  533.         S6 28
  534.         NOP
  535.         S6 29
  536.         NOP
  537.         S6 30
  538.         CL #30
  539.         CL #70
  540.         CL #78
  541.         W 5
  542.         T 10
  543. ;SCENA;Земля 1999
  544.         CL #70
  545.         W 5
  546.         CL #68
  547.         NOP
  548.         CL #2D
  549.         S6 31
  550.         W 65
  551.         CL #2B
  552.         NOP
  553.         CL #2A
  554.         NOP
  555.         CL #29
  556.         W 35
  557.         T 11
  558.         W 40
  559.         S6 32
  560.         CL #69
  561.         S6 33
  562.         CL #71
  563.         S6 34
  564.         S6 35
  565.         S6 30
  566.         W 7
  567.         CL #6D
  568.         W 3
  569.         S6 31
  570.         CL #2D
  571.         NOP
  572.         CL #2A
  573.         NOP
  574.         CL #29
  575.         W 39
  576.         CL #19
  577.         NOP
  578.         CL #11
  579.         NOP
  580.         CL #49
  581.         S6 1
  582.         T 7
  583.         W 25
  584. ;SCENA;Разбуженный пришелец
  585.         T 12
  586.         W 105
  587.         T 13
  588.         S7 25
  589.         CL #51
  590.         W 2
  591.         CL #61
  592.         W 2
  593.         CL #68
  594.         W 2
  595.         CL #70
  596.         W 115
  597.         S7 26
  598.         W 3
  599.         S6 54
  600.         W 3
  601.         S6 55
  602.         W 3
  603.         S6 56
  604.         W 87
  605.         T 7
  606.         W 10
  607.         CL 18
  608.         NOP
  609.         CL 8
  610.         NOP
  611.         CLEAR
  612.         W 60
  613. ;Земля-2017
  614.         S7 27
  615.         CL #8
  616.         NOP
  617.         CL #50
  618.         NOP
  619.         CL #68
  620.         NOP
  621.         CL #70
  622.         W 5
  623.         T 14
  624.         W 60
  625.         S7 28
  626.         NOP
  627.         S7 29
  628.         NOP
  629.         S7 30
  630.         NOP
  631.         S7 31
  632.         NOP
  633.         S7 32
  634.         NOP
  635.         S7 33
  636.         NOP
  637.         S7 34
  638.         W 80
  639.         S7 35
  640.         NOP
  641.         S7 36
  642.         NOP
  643.         S6 30
  644.         W 36
  645.        
  646. ;Чужаки
  647.         S6 52
  648.         W 2
  649.         S6 53
  650.         W 3
  651.         S7 1
  652.         W 9
  653.         T 15
  654.         W 70
  655.         S7 2
  656.         S7 3
  657.         S7 4
  658.         S7 5
  659.         S7 6
  660.         NOP
  661.         S7 5
  662.         S7 4
  663.         S7 3
  664.         S7 2
  665.         S7 1
  666.         W 15
  667.         S6 53
  668.         W 1
  669.         S6 52
  670.         W 1
  671.         S6 30
  672.         W 16
  673. ;SCENA;Нападение на корабль
  674.         CLEAR
  675.         CL #69
  676.         S7 38
  677.         W 10
  678.         T 17
  679.         W 100
  680.         S7 39
  681.         W 2
  682.         S7 40
  683.         W 2
  684.         S7 41
  685.         W 5
  686.         T 18
  687.         W 90
  688.         S7 42
  689.         S7 43
  690.         S7 44
  691.         S7 45
  692.         S7 46
  693.         S7 47
  694.         S7 48
  695.         S7 41
  696.         W 25
  697.         T 19
  698.         W 10
  699.         S7 42
  700.         S7 43
  701.         S7 44
  702.         S7 45
  703.         S7 46
  704.         S7 47
  705.         S7 48
  706.         S7 41
  707.         S7 42
  708.         S7 43
  709.         S7 44
  710.         S7 45
  711.         S7 46
  712.         S7 47
  713.         S7 48
  714.         S7 41
  715.         S7 42
  716.         S7 43
  717.         S7 44
  718.         S7 45
  719.         S7 46
  720.         S7 47
  721.         S7 48
  722.         S7 41
  723.         S7 42
  724.         S7 43
  725.         S7 44
  726.         S7 45
  727.         S7 46
  728.         S7 47
  729.         S7 48
  730.         S7 41
  731.         W 60
  732.         S7 40
  733.         W 2
  734.         S7 39
  735.         W 2
  736.         S7 38
  737.         W 25
  738.         CLEAR
  739.         S7 37
  740.         CL #60
  741.         T 28
  742.         W 110
  743.         CL #61
  744.         CL #6A
  745.         CL #75
  746.         CL #7F
  747.         S6 1
  748.         CL #46
  749.         CL #45
  750.         CL #44
  751.         CL #42
  752.         CL 1
  753.         CLEAR
  754.         W 7
  755.         T 20
  756.         W 140
  757.        
  758. ;База
  759.         CL #68
  760.         S6 36
  761.         W 4
  762.         S6 46
  763.         NOP
  764.         NOP
  765.         S6 47
  766.         T 21
  767.         NOP
  768.         S6 48
  769.         NOP
  770.         NOP
  771.         S6 47
  772.         NOP
  773.         NOP
  774.         S6 46
  775.         NOP
  776.         NOP
  777.         S6 36
  778.         W 4
  779.         S6 49
  780.         NOP
  781.         NOP
  782.         S6 50
  783.         NOP
  784.         NOP
  785.         S6 51
  786.         NOP
  787.         NOP
  788.         S6 50
  789.         NOP
  790.         NOP
  791.         S6 49
  792.         NOP
  793.         NOP
  794.         S6 36
  795.         W 4
  796.         S6 46
  797.         NOP
  798.         NOP
  799.         S6 47
  800.         NOP
  801.         NOP
  802.         S6 48
  803.         NOP
  804.         NOP
  805.         S6 47
  806.         NOP
  807.         NOP
  808.         S6 46
  809.         NOP
  810.         NOP
  811.         S6 36
  812.         W 4
  813.         S6 49
  814.         NOP
  815.         NOP
  816.         S6 50
  817.         NOP
  818.         NOP
  819.         S6 51
  820.         NOP
  821.         NOP
  822.         S6 50
  823.         NOP
  824.         NOP
  825.         S6 49
  826.         NOP
  827.         NOP
  828.         S6 36
  829.         W 4
  830.         S6 46
  831.         NOP
  832.         NOP
  833.         S6 47
  834.         NOP
  835.         NOP
  836.         S6 48
  837.         NOP
  838.         NOP
  839.         S6 47
  840.         NOP
  841.         NOP
  842.         S6 46
  843.         NOP
  844.         NOP
  845.         S6 36
  846.         W 4
  847.         S6 49
  848.         NOP
  849.         NOP
  850.         S6 50
  851.         NOP
  852.         NOP
  853.         S6 51
  854.         NOP
  855.         NOP
  856.         S6 50
  857.         NOP
  858.         NOP
  859.         S6 49
  860.         NOP
  861.         NOP
  862.         S6 36
  863.         W 4
  864.         S6 46
  865.         NOP
  866.         NOP
  867.         S6 47
  868.         NOP
  869.         NOP
  870.         S6 48
  871.         NOP
  872.         NOP
  873.         S6 47
  874.         NOP
  875.         NOP
  876.         S6 46
  877.         NOP
  878.         NOP
  879.         S6 36
  880.         W 4
  881.         S6 49
  882.         NOP
  883.         NOP
  884.         S6 50
  885.         NOP
  886.         NOP
  887.         S6 51
  888.         NOP
  889.         NOP
  890.         S6 50
  891.         NOP
  892.         NOP
  893.         S6 49
  894.         NOP
  895.         NOP
  896.         S6 36
  897.         W 4
  898.         S6 46
  899.         NOP
  900.         NOP
  901.         S6 47
  902.         NOP
  903.         NOP
  904.         S6 48
  905.         NOP
  906.         NOP
  907.         S6 47
  908.         NOP
  909.         NOP
  910.         S6 46
  911.         NOP
  912.         NOP
  913.         S6 36
  914.         W 4
  915.         S6 49
  916.         NOP
  917.         NOP
  918.         S6 50
  919.         NOP
  920.         NOP
  921.         S6 51
  922.         NOP
  923.         NOP
  924.         S6 50
  925.         NOP
  926.         NOP
  927.         S6 49
  928.         NOP
  929.         NOP
  930.         S6 36
  931.         W 4
  932.         S6 46
  933.         NOP
  934.         NOP
  935.         S6 47
  936.         NOP
  937.         NOP
  938.         S6 48
  939.         NOP
  940.         NOP
  941.         S6 47
  942.         NOP
  943.         NOP
  944.         S6 46
  945.         NOP
  946.         NOP
  947.         S6 36
  948.         W 4
  949.         S6 49
  950.         NOP
  951.         NOP
  952.         S6 50
  953.         NOP
  954.         NOP
  955.         S6 51
  956.         NOP
  957.         NOP
  958.         S6 50
  959.         T 22
  960.         NOP
  961.         S6 49
  962.         NOP
  963.         NOP
  964.         S6 36
  965.         W 4
  966.         S6 46
  967.         NOP
  968.         NOP
  969.         S6 47
  970.         NOP
  971.         NOP
  972.         S6 48
  973.         NOP
  974.         NOP
  975.         S6 47
  976.         NOP
  977.         NOP
  978.         S6 46
  979.         NOP
  980.         NOP
  981.         S6 36
  982.         W 4
  983.         S6 49
  984.         NOP
  985.         NOP
  986.         S6 50
  987.         NOP
  988.         NOP
  989.         S6 51
  990.         NOP
  991.         NOP
  992.         S6 50
  993.         NOP
  994.         NOP
  995.         S6 49
  996.         NOP
  997.         NOP
  998.         S6 36
  999.         W 4
  1000.         S6 46
  1001.         NOP
  1002.         NOP
  1003.         S6 47
  1004.         NOP
  1005.         NOP
  1006.         S6 48
  1007.         NOP
  1008.         NOP
  1009.         S6 47
  1010.         NOP
  1011.         NOP
  1012.         S6 46
  1013.         NOP
  1014.         NOP
  1015.         S6 36
  1016.         W 4
  1017.         S6 49
  1018.         NOP
  1019.         NOP
  1020.         S6 50
  1021.         NOP
  1022.         NOP
  1023.         S6 51
  1024.         NOP
  1025.         NOP
  1026.         S6 50
  1027.         NOP
  1028.         NOP
  1029.         S6 49
  1030.         NOP
  1031.         NOP
  1032.         S6 36
  1033. ;Открыть ШЛЮЗ
  1034.         W 10
  1035.         S6 37
  1036.         W 4            
  1037.         S6 38
  1038.         W 4
  1039.         S6 39
  1040.         W 4
  1041.         S6 40
  1042.         W 4
  1043.         S6 42
  1044.         W 4
  1045.         S6 43
  1046.         W 4
  1047.         S6 44
  1048.         W 4
  1049.         S6 45
  1050.         W 4
  1051.         S6 1
  1052. ;Тритон выплывает
  1053.         W 14
  1054.         S7 7
  1055.         W 2
  1056.         S7 8
  1057.         W 2
  1058.         S7 9
  1059.         W 2
  1060.         S7 10
  1061.         W 2
  1062.         S7 11
  1063.         W 2
  1064.         S7 12
  1065.         W 2
  1066.         S7 13
  1067.         W 2
  1068.         S7 14
  1069.         T 23
  1070.         S7 15
  1071.         W 2
  1072.         S6 1
  1073. ;SCENA;ВРАЩАЮЩИЙСЯ МОНИТОР
  1074.         CLEAR
  1075.         W 30
  1076.         CL 1
  1077.         CL 2
  1078.         CL 4
  1079.         CL 5
  1080.         CL #46
  1081.         CL #7F
  1082.         S7 23
  1083.         CL #7D
  1084.         S7 24
  1085.         CL #78
  1086.         S7 16
  1087.         NOP
  1088.         S7 17
  1089.         NOP
  1090.         S7 18
  1091.         NOP
  1092.         S7 19
  1093.         NOP
  1094.         S7 20
  1095.         NOP
  1096.         S7 21
  1097.         NOP
  1098.         S7 22
  1099.         NOP
  1100.         S7 23
  1101.         NOP
  1102.         S7 24
  1103.         NOP
  1104.         S7 16
  1105.         NOP
  1106.         S7 17
  1107.         NOP
  1108.         S7 18
  1109.         NOP
  1110.         S7 19
  1111.         NOP
  1112.         S7 20
  1113.         NOP
  1114.         S7 21
  1115.         NOP
  1116.         S7 22
  1117.         NOP
  1118.         S7 23
  1119.         NOP
  1120.         S7 24
  1121.         NOP
  1122.         S7 16
  1123.         NOP
  1124.         S7 17
  1125.         NOP
  1126.         S7 18
  1127.         NOP
  1128.         S7 19
  1129.         NOP
  1130.         S7 20
  1131.         NOP
  1132.         S7 21
  1133.         NOP
  1134.         S7 22
  1135.         NOP
  1136.         S7 23
  1137.         NOP
  1138.         S7 24
  1139.         NOP
  1140.         S7 16
  1141.         NOP
  1142.         S7 17
  1143.         NOP
  1144.         S7 18
  1145.         NOP
  1146.         S7 19
  1147.         NOP
  1148.         S7 20
  1149.         NOP
  1150.         S7 21
  1151.         NOP
  1152.         S7 22
  1153.         NOP
  1154.         S7 23
  1155.         NOP
  1156.         S7 24
  1157.         NOP
  1158.         S7 16
  1159.         NOP
  1160.         S7 17
  1161.         NOP
  1162.         S7 18
  1163.         NOP
  1164.         S7 19
  1165.         NOP
  1166.         S7 20
  1167.         NOP
  1168.         S7 21
  1169.         NOP
  1170.         S7 22
  1171.         NOP
  1172.         S7 23
  1173.         NOP
  1174.         S7 24
  1175.         NOP
  1176.         S7 16
  1177.         NOP
  1178.         S7 17
  1179.         NOP
  1180.         S7 18
  1181.         NOP
  1182.         S7 19
  1183.         NOP
  1184.         S7 20
  1185.         NOP
  1186.         S7 21
  1187.         NOP
  1188.         S7 22
  1189.         NOP
  1190.         S7 23
  1191.         NOP
  1192.         S7 24
  1193.         NOP
  1194.         S7 16
  1195.         NOP
  1196.         S7 17
  1197.         NOP
  1198.         S7 18
  1199.         NOP
  1200.         S7 19
  1201.         NOP
  1202.         S7 20
  1203.         NOP
  1204.         S7 21
  1205.         NOP
  1206.         S7 22
  1207.         NOP
  1208.         S7 23
  1209.         NOP
  1210.         S7 24
  1211.         NOP
  1212.         S7 16
  1213.         NOP
  1214.         S7 17
  1215.         NOP
  1216.         S7 18
  1217.         NOP
  1218.         S7 19
  1219.         NOP
  1220.         S7 20
  1221.         NOP
  1222.         S7 21
  1223.         NOP
  1224.         S7 22
  1225.         NOP
  1226.         S7 23
  1227.         T 24
  1228.         S7 24
  1229.         NOP
  1230.         S7 16
  1231.         NOP
  1232.         S7 17
  1233.         NOP
  1234.         S7 18
  1235.         NOP
  1236.         S7 19
  1237.         NOP
  1238.         S7 20
  1239.         NOP
  1240.         S7 21
  1241.         NOP
  1242.         S7 22
  1243.         NOP
  1244.         S7 23
  1245.         NOP
  1246.         S7 24
  1247.         NOP
  1248.         S7 16
  1249.         NOP
  1250.         S7 17
  1251.         NOP
  1252.         S7 18
  1253.         NOP
  1254.         S7 19
  1255.         NOP
  1256.         S7 20
  1257.         NOP
  1258.         S7 21
  1259.         NOP
  1260.         S7 22
  1261.         NOP
  1262.         S7 23
  1263.         NOP
  1264.         S7 24
  1265.         NOP
  1266.         S7 16
  1267.         NOP
  1268.         S7 17
  1269.         NOP
  1270.         S7 18
  1271.         NOP
  1272.         S7 19
  1273.         NOP
  1274.         S7 20
  1275.         NOP
  1276.         S7 21
  1277.         NOP
  1278.         S7 22
  1279.         NOP
  1280.         S7 23
  1281.         NOP
  1282.         S7 24
  1283.         NOP
  1284.         S7 16
  1285.         NOP
  1286.         S7 17
  1287.         NOP
  1288.         S7 18
  1289.         NOP
  1290.         S7 19
  1291.         NOP
  1292.         S7 20
  1293.         NOP
  1294.         S7 21
  1295.         NOP
  1296.         S7 22
  1297.         NOP
  1298.         S7 23
  1299.         CL #70
  1300.         S7 24
  1301.         CL #28
  1302.         S7 16
  1303.         CL #20
  1304.         S7 17
  1305.         CL #10
  1306.         S7 18
  1307.         CL #8
  1308.         CLEAR
  1309.         W 30
  1310. ;SCENA;Идут акванавты
  1311.         T 25
  1312.         W 22
  1313.         S7 49
  1314.         CL #8
  1315.         S7 50
  1316.         CL #18
  1317.         S7 51
  1318.         CL #28
  1319.         S7 52
  1320.         CL #30
  1321.         S7 53
  1322.         CL #38
  1323.         S7 54
  1324.         NOP
  1325.         S7 55
  1326.         NOP
  1327.         S7 56
  1328.         NOP
  1329.         S7 49
  1330.         NOP
  1331.         S7 50
  1332.         NOP
  1333.         S7 51
  1334.         NOP
  1335.         S7 52
  1336.         NOP
  1337.         S7 53
  1338.         NOP
  1339.         S7 54
  1340.         NOP
  1341.         S7 55
  1342.         NOP
  1343.         S7 56
  1344.         NOP
  1345.         S7 49
  1346.         NOP
  1347.         S7 50
  1348.         NOP
  1349.         S7 51
  1350.         NOP
  1351.         S7 52
  1352.         NOP
  1353.         S7 53
  1354.         NOP
  1355.         S7 54
  1356.         NOP
  1357.         S7 55
  1358.         NOP
  1359.         S7 56
  1360.         NOP
  1361.         S7 49
  1362.         NOP
  1363.         S7 50
  1364.         NOP
  1365.         S7 51
  1366.         NOP
  1367.         S7 52
  1368.         NOP
  1369.         S7 53
  1370.         NOP
  1371.         S7 54
  1372.         NOP
  1373.         S7 55
  1374.         NOP
  1375.         S7 56
  1376.         NOP
  1377.         S7 49
  1378.         NOP
  1379.         S7 50
  1380.         NOP
  1381.         S7 51
  1382.         NOP
  1383.         S7 52
  1384.         NOP
  1385.         S7 53
  1386.         NOP
  1387.         S7 54
  1388.         NOP
  1389.         S7 55
  1390.         NOP
  1391.         S7 56
  1392.         NOP
  1393.         S7 49
  1394.         NOP
  1395.         S7 50
  1396.         NOP
  1397.         S7 51
  1398.         NOP
  1399.         S7 52
  1400.         NOP
  1401.         S7 53
  1402.         NOP
  1403.         S7 54
  1404.         NOP
  1405.         S7 55
  1406.         NOP
  1407.         S7 56
  1408.         NOP
  1409.         S7 49
  1410.         NOP
  1411.         S7 50
  1412.         NOP
  1413.         S7 51
  1414.         NOP
  1415.         S7 52
  1416.         NOP
  1417.         S7 53
  1418.         NOP
  1419.         S7 54
  1420.         NOP
  1421.         S7 55
  1422.         NOP
  1423.         S7 56
  1424.         NOP
  1425.         S7 49
  1426.         NOP
  1427.         S7 50
  1428.         NOP
  1429.         S7 51
  1430.         NOP
  1431.         S7 52
  1432.         NOP
  1433.         S7 53
  1434.         NOP
  1435.         S7 54
  1436.         NOP
  1437.         S7 55
  1438.         NOP
  1439.         S7 56
  1440.         NOP
  1441.         S7 49
  1442.         NOP
  1443.         S7 50
  1444.         NOP
  1445.         S7 51
  1446.         NOP
  1447.         S7 52
  1448.         NOP
  1449.         S7 53
  1450.         NOP
  1451.         S7 54
  1452.         NOP
  1453.         S7 55
  1454.         NOP
  1455.         S7 56
  1456.         T     26
  1457.         S7 49
  1458.         NOP
  1459.         S7 50
  1460.         NOP
  1461.         S7 51
  1462.         NOP
  1463.         S7 52
  1464.         NOP
  1465.         S7 53
  1466.         NOP
  1467.         S7 54
  1468.         NOP
  1469.         S7 55
  1470.         NOP
  1471.         S7 56
  1472.         NOP
  1473.         S7 49
  1474.         NOP
  1475.         S7 50
  1476.         NOP
  1477.         S7 51
  1478.         NOP
  1479.         S7 52
  1480.         NOP
  1481.         S7 53
  1482.         NOP
  1483.         S7 54
  1484.         NOP
  1485.         S7 55
  1486.         NOP
  1487.         S7 56
  1488.         NOP
  1489.         S7 49
  1490.         NOP
  1491.         S7 50
  1492.         NOP
  1493.         S7 51
  1494.         NOP
  1495.         S7 52
  1496.         NOP
  1497.         S7 53
  1498.         NOP
  1499.         S7 54
  1500.         NOP
  1501.         S7 55
  1502.         NOP
  1503.         S7 56
  1504.         NOP
  1505.         S7 49
  1506.         NOP
  1507.         S7 50
  1508.         NOP
  1509.         S7 51
  1510.         NOP
  1511.         S7 52
  1512.         NOP
  1513.         S7 53
  1514.         NOP
  1515.         S7 54
  1516.         NOP
  1517.         S7 55
  1518.         NOP
  1519.         S7 56
  1520.         NOP
  1521.         S7 49
  1522.         NOP
  1523.         S7 50
  1524.         NOP
  1525.         S7 51
  1526.         NOP
  1527.         S7 52
  1528.         NOP
  1529.         S7 53
  1530.         NOP
  1531.         S7 54
  1532.         NOP
  1533.         S7 55
  1534.         NOP
  1535.         S7 56
  1536.         NOP
  1537.         S7 49
  1538.         NOP
  1539.         S7 50
  1540.         NOP
  1541.         S7 51
  1542.         NOP
  1543.         S7 52
  1544.         NOP
  1545.         S7 53
  1546.         NOP
  1547.         S7 54
  1548.         NOP
  1549.         S7 55
  1550.         NOP
  1551.         S7 56
  1552.         NOP
  1553.         S7 49
  1554.         NOP
  1555.         S7 50
  1556.         NOP
  1557.         S7 51
  1558.         NOP
  1559.         S7 52
  1560.         NOP
  1561.         S7 53
  1562.         NOP
  1563.         S7 54
  1564.         NOP
  1565.         S7 55
  1566.         NOP
  1567.         S7 56
  1568.         T 27
  1569.         S7 49
  1570.         NOP
  1571.         S7 50
  1572.         NOP
  1573.         S7 51
  1574.         NOP
  1575.         S7 52
  1576.         NOP
  1577.         S7 53
  1578.         CL #30
  1579.         S7 54
  1580.         CL #20
  1581.         S7 55
  1582.         CL #10
  1583.         S7 56
  1584.         CLEAR
  1585.  
  1586. ;КОНЕЦ
  1587.         W 100
  1588.         T 26
  1589.         W 10
  1590.         CL #68
  1591.         S6 41
  1592.         W 170
  1593.         T 27
  1594.         W 200
  1595.         T 25
  1596.         W 170
  1597.         T 27
  1598.         W 100
  1599.         CL 0
  1600.         S6 4
  1601.         CL #42
  1602.         W 100
  1603.         T 26
  1604.         W 180
  1605.         T 27
  1606.         W 80
  1607.         CL #60
  1608.         S6 2
  1609.         W 100
  1610.         CLEAR
  1611.         T 7
  1612.         W 45
  1613.  
  1614.  
  1615.         DEFW 253
  1616.  
  1617. ;СЦЕНАРИЙ
  1618.  
  1619. SDELAY  DEFB 5
  1620. PSCEN   DEFW SCENA
  1621.  
  1622. DECOMA  CALL    MEME
  1623.         LD      BC,(SCR)
  1624.         LD      HL,SCR+2
  1625.         ADD     HL,BC
  1626.         DEC     HL
  1627.         LD      DE,#FFFE
  1628.         LDDR
  1629.         EX      DE,HL
  1630.         INC     HL
  1631.         LD      DE,SCR
  1632.         CALL    DELPC
  1633.         RET
  1634.  
  1635. DECOMP  XOR A
  1636.         CALL DECOMA
  1637.         LD A,1
  1638.         CALL DECOMA
  1639.         LD A,6
  1640.         CALL DECOMA
  1641.         LD A,7
  1642.         CALL DECOMA
  1643.         LD A,4
  1644.         CALL DECOMA
  1645.         LD A,3
  1646.         JP DECOMA
  1647.  
  1648. *F xDELPC