?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1. ; Frost 4k Intro
  2. ; (C)2000 FeNoMen. Mad Rain.
  3. ; Converted from Alasm to SjASMPlus by Aprisobal
  4.  
  5.         DEVICE ZXSPECTRUM128
  6.  
  7. SCRSEG          EQU #88
  8. FREESEG         EQU #8A
  9. TXTSWSEG        EQU #8D
  10. SINSEG          EQU #62
  11. BANKOOO         EQU #11
  12. BANKBUMPE       EQU #13
  13. BANKBLOB        EQU #14
  14. BANKBLOB2       EQU #16
  15. BANKBLOB3       EQU #17
  16.  
  17.         ORG #6300
  18. STARTF  XOR A
  19.         OUT (254),A
  20.         CALL CLS
  21.         LD HL,NACH
  22.         CALL NACT
  23.         CALL IMON
  24.         CALL SINDEC
  25.         CALL FULLINSTALL
  26.         CALL RDSC
  27.         CALL TXTSWR
  28.         CALL TXTREA
  29.         LD A,#37
  30.         LD (PLAY),A
  31.         LD IX,TXT3
  32.         CALL WATERPRINT
  33. S000
  34.         LD HL,STARTER
  35.         CALL MAINS
  36.         LD IX,TXT6
  37.         CALL WATERPRINT
  38.         CALL CLS7
  39. S001
  40.         CALL LINESIN
  41.         LD B,128
  42. WEDP    PUSH BC
  43.         CALL LINES
  44.         CALL START
  45.         POP BC
  46.         DJNZ WEDP
  47.         LD HL,STARTER2
  48.         CALL MAINS
  49.         LD IX,TXT7
  50.         CALL WATERPRINT
  51.         LD HL,STARTER3
  52.         CALL MAINS
  53.         CALL CLS7
  54.         LD A,#10
  55.         CALL BANK
  56.         CALL FNMIN
  57.         LD BC,400
  58. QKXX    PUSH BC
  59.         CALL FNM
  60.         CALL START
  61.         POP BC
  62.         DEC BC
  63.         LD A,B
  64.         OR C
  65.         JR NZ,QKXX
  66. IWDI
  67.         LD HL,STARTER4
  68.         CALL MAINS
  69.         LD IX,TXTEND
  70.         CALL WATERPRINT
  71. KWS
  72.         LD A,(POSITION)
  73.         CP 33
  74.         JR C,KWS
  75. EXIT
  76.         LD HL,STOPP
  77.         CALL NACT
  78.         LD A,63
  79.         LD I,A
  80.         IM 1
  81.         LD IY,23610
  82.         LD HL,10072
  83.         EXX
  84.         EI
  85.         RET
  86. RNDSC
  87.         CALL RND
  88.         AND #3F
  89.         SUB #20
  90.         LD E,A
  91. WAN1    CALL RND
  92.         AND B
  93.         CP C
  94.         JR NC,WAN1
  95.         SRL C
  96.         SUB C
  97.         LD D,A
  98.         RET
  99. RAND
  100.         LD LX,6
  101. WAN0
  102.         LD BC,#3F40
  103.         CALL RNDSC
  104.         LD HL,0
  105.         CALL LINE
  106.         DEC LX
  107.         JR NZ,WAN0
  108.         LD HL,#D700
  109.         CALL CLEAR2
  110.         LD HL,#FF00
  111.         CALL CLEAR2
  112.         LD H,#D8
  113.         JP BLUR
  114. CLEAR2
  115.         LD E,1
  116.         LD D,H
  117.         LD BC,64
  118.         LD (HL),#80
  119.         LDIR
  120.         RET
  121. RANDIN
  122.         LD HL,#D800
  123.         PUSH HL
  124.         LD (HL),#80
  125.         CALL CLEAR
  126.         CALL BLURIN
  127.         POP DE
  128.         JP RD65
  129. LINE
  130.         LD A,D
  131.         SUB H
  132.         LD D,A
  133.         LD A,E
  134.         SUB L
  135.         LD E,A
  136.         LD B,#2C
  137.         BIT 7,A
  138.         JR Z,FM7
  139.         INC B
  140.         NEG
  141. FM7     LD E,A
  142.         LD A,B
  143.         LD (FMOP1),A
  144.         LD (FMOP2),A
  145.  
  146.         LD A,D
  147.         LD B,#24
  148.         BIT 7,A
  149.         JR Z,FM8
  150.         INC B
  151.         NEG
  152. FM8     LD D,A
  153.         LD A,B
  154.         LD (FMOP3),A
  155.         LD (FMOP4),A
  156.         LD A,H
  157.         ADD A,#D8+19
  158.         LD H,A
  159.         LD A,L
  160.         ADD A,32
  161.         LD L,A
  162.         LD A,E
  163.         CP D
  164.         JR C,FM3Q
  165.         LD B,E
  166.         INC B
  167.         LD A,E
  168.         SRL A
  169. FM2
  170.         LD (HL),#87
  171. FMOP1   DB #87
  172.         ADD A,D
  173.         CP E
  174.         JR C,FM1
  175. FMOP3   DB 2
  176.         SUB E
  177. FM1
  178.         DJNZ FM2
  179.         RET
  180. FM3Q    LD B,D
  181.         INC B
  182.         LD A,D
  183.         SRL A
  184. FM3
  185.         LD (HL),#87
  186. FMOP4   DB #87
  187.         ADD A,E
  188.         CP D
  189.         JR C,FM4
  190. FMOP2   DB 2
  191.         SUB D
  192. FM4
  193.         DJNZ FM3
  194.         RET
  195. FNM2
  196.         LD H,#D8
  197.         LD C,#80
  198.         LD LX,38
  199. FN0Q
  200.         LD L,0
  201.         LD B,64
  202. FN1Q    LD A,(HL)
  203.         CP C
  204.         JP Z,FNL
  205.         DEC (HL)
  206. FNL
  207.         INC L
  208.         DJNZ FN1Q
  209.         INC H
  210.         DEC LX
  211.         JR NZ,FN0Q
  212.         LD A,(GRAD)
  213.         ADD A,2
  214.         LD (GRAD),A
  215.         LD LX,A
  216.         LD HX,SINSEG
  217.         LD DE,#90D2
  218.         CALL TAKE
  219.         LD E,167
  220.         CALL TAKE
  221.         LD E,140
  222.         CALL TAKE
  223.         LD A,LX
  224.         ADD A,A
  225.         LD LX,A
  226.         LD E,#1E
  227.         CALL TAKE
  228.         LD IX,VECTORS
  229. EVK
  230.         LD A,(IX)
  231.         AND A
  232.         RET Z
  233.         CALL ROTAT
  234.         PUSH DE
  235.         CALL ROTAT
  236.         POP HL
  237.         CALL LINE
  238.         JR EVK
  239. ROTAT
  240.         LD H,#90
  241.         LD A,(IX)
  242.         SUB 72
  243.         LD L,A
  244.         INC IX
  245.         LD E,(HL)
  246.         INC H
  247.         LD A,(HL)
  248.         INC H
  249.         LD L,(IX)
  250.         INC IX
  251.         ADD A,(HL)
  252.         INC H
  253.         LD D,A
  254.         LD A,E
  255.         ADD A,(HL)
  256.         LD E,A
  257.         RET
  258. TAKE
  259.         LD C,(IX)
  260.         LD B,0
  261.         LD L,B
  262.         BIT 7,C
  263.         JR Z,TK1
  264.         DEC B
  265. TK1
  266.         LD A,LX
  267.         ADD A,E
  268.         LD LX,A
  269.         LD E,L
  270.         LD H,L
  271.         PUSH HL
  272. LO5
  273.         LD A,H
  274.         LD (DE),A
  275.         ADD HL,BC
  276.         INC E
  277.         BIT 7,E
  278.         JR Z,LO5
  279.         POP HL
  280.         OR A
  281.         LD E,-1
  282. LO6
  283.         SBC HL,BC
  284.         LD A,H
  285.         LD (DE),A
  286.         DEC E
  287.         BIT 7,E
  288.         JR NZ,LO6
  289.         INC D
  290.         RET
  291. FNM2IN
  292.         LD A,#7A
  293.         LD (GRAD),A
  294.         LD HL,#D700
  295.         LD (HL),#80
  296.         CALL CLEAR
  297.         LD DE,#D800
  298.         JP RD65
  299. KVAD
  300.         LD E,L
  301.         LD D,H
  302.         LD B,16
  303.         LD C,D
  304.         LD A,E
  305.         EX DE,HL
  306.         LD HL,0
  307. ML2     SRL C
  308.         RRA
  309.         JR NC,ML3
  310.         ADD HL,DE
  311. ML3     EX DE,HL
  312.         ADD HL,HL
  313.         EX DE,HL
  314.         DJNZ ML2
  315.         RET
  316. SQR     LD A,L
  317.         LD L,H
  318.         LD DE,64
  319.         LD H,D
  320.         LD B,8
  321. SQ1Q
  322.         SBC HL,DE
  323.         JR NC,SQ2Q
  324.         ADD HL,DE
  325. SQ2Q    CCF
  326.         RL D
  327.         ADD A,A
  328.         ADC HL,HL
  329.         ADD A,A
  330.         ADC HL,HL
  331.         DJNZ SQ1Q
  332.         LD L,D
  333.         LD H,A
  334.         RET
  335. DIV
  336.         LD C,H
  337.         BIT 7,C
  338.         JR Z,DV1
  339.         CALL MINUS
  340. DV1
  341.         PUSH HL
  342.         POP IX
  343.         LD HL,0
  344.         LD B,16
  345. DVV
  346.         ADD IX,IX
  347.         INC IX
  348.         ADC HL,HL
  349.         SBC HL,DE
  350.         JR NC,DVV2
  351.         ADD HL,DE
  352.         DEC IX
  353. DVV2
  354.         DJNZ DVV
  355.         PUSH IX
  356.         POP HL
  357.         BIT 7,C
  358.         RET Z
  359. MINUS   LD A,L
  360.         CPL
  361.         LD L,A
  362.         LD A,H
  363.         CPL
  364.         LD H,A
  365.         INC HL
  366.         RET
  367. BULKAIN
  368.         LD IY,#A000-#400
  369.         LD HL,-19
  370. XK1     PUSH HL
  371.         LD A,L
  372.         LD (XK5+1),A
  373.         CALL KVAD
  374.         LD (XK2+1),HL
  375.         LD HL,-32
  376. XK3     PUSH HL
  377.         PUSH HL
  378.         CALL KVAD
  379. XK2     LD DE,#1111
  380.         ADD HL,DE
  381.         CALL SQR
  382.         LD A,L
  383.         ADD A,A
  384.         ADD A,A
  385.         ADD A,A
  386.         LD L,A
  387.         LD H,SINSEG
  388.         LD A,(HL)
  389.         ADD A,#80
  390.         LD L,A
  391.         LD H,1
  392.         EX DE,HL
  393.         POP HL
  394.         LD H,L
  395.         LD L,0
  396.         ADD HL,HL
  397.         CALL DIV
  398.         LD (IY),L
  399.         INC IY
  400. XK5     LD H,0
  401.         LD L,0
  402.         ADD HL,HL
  403.         CALL DIV
  404.         LD (IY),L
  405.         INC IY
  406.         POP HL
  407.         INC HL
  408.         LD A,L
  409.         CP 32
  410.         JR NZ,XK3
  411.         POP HL
  412.         INC HL
  413.         LD A,L
  414.         CP 19
  415.         JR NZ,XK1
  416.         LD DE,LESS
  417.         LD A,64
  418. BK1
  419.         LD HL,BAUSKO
  420.         LD BC,BAUSKOE-BAUSKO
  421.         LDIR
  422.         DEC A
  423.         JR NZ,BK1
  424.         LD A,#C9
  425.         LD (DE),A
  426.         LD DE,#B000
  427.         JP RD61
  428. BULKA
  429.         LD HL,GRAD
  430.         INC (HL)
  431.         INC (HL)
  432.         LD L,(HL)
  433.         LD H,SINSEG
  434.         LD A,(HL)
  435.         ADD A,#80
  436.         SRL A
  437.         ADD A,48
  438.         LD LX,A
  439.         LD A,L
  440.         ADD A,#2D
  441.         LD L,A
  442.         LD A,(HL)
  443.         ADD A,#80
  444.         SRL A
  445.         LD HX,A
  446.         LD HL,#A000-#400
  447.         LD BC,#B000
  448.         LD LY,38
  449. BUL1
  450.         CALL LESS
  451.         DEC C
  452.         INC BC
  453.         DEC L
  454.         INC HL
  455.         DEC LY
  456.         JR NZ,BUL1
  457.         RET
  458. BAUSKO
  459.         LD A,LX
  460.         SUB (HL)
  461.         LD E,A
  462.         INC L
  463.         LD A,(HL)
  464.         ADD A,HX
  465.         OR #C0
  466.         LD D,A
  467.         INC L
  468.         LD A,(DE)
  469.         LD (BC),A
  470.         INC C
  471. BAUSKOE
  472. CLS7    LD A,7
  473. CLS
  474.         LD HL,#4000
  475.         LD DE,#4001
  476.         LD BC,6144
  477.         LD (HL),L
  478.         LDIR
  479.         LD (HL),A
  480.         LD BC,767
  481.         LDIR
  482.         RET
  483. WATERPRINT
  484.         LD A,#41
  485.         CALL CLS
  486. IDD
  487.         CALL WATERIN
  488.         LD DE,#DD00
  489.         LD L,#3F
  490.         LD BC,#100
  491.         CALL PRINT
  492.         PUSH IX
  493.         CALL WATER
  494.         CALL START
  495.         LD B,50
  496.         HALT
  497.         DJNZ $-1
  498.         LD B,23
  499. EEQ
  500.         PUSH BC
  501.         CALL WATER
  502.         CALL START
  503.         POP BC
  504.         DJNZ EEQ
  505.         POP IX
  506.         LD A,(IX)
  507.         AND A
  508.         JR NZ,IDD
  509.         RET
  510. MAINS
  511.         LD A,(HL)
  512.         AND A
  513.         RET Z
  514.         LD (COLOR+1),A
  515.         INC HL
  516.         LD A,(HL)
  517.         INC HL
  518.         CALL BANK
  519.         LD A,(HL)
  520.         INC HL
  521.         LD (PATW+1),A
  522.         LD E,(HL)
  523.         INC HL
  524.         LD D,(HL)
  525.         INC HL
  526.         LD (INIT+1),DE
  527.         LD E,(HL)
  528.         INC HL
  529.         LD D,(HL)
  530.         INC HL
  531.         PUSH HL
  532.         LD (STTA+1),DE
  533. INIT    CALL #CDCD
  534.         HALT
  535.         LD HL,22592
  536.         LD DE,22593
  537.         LD BC,607
  538. COLOR   LD (HL),#36
  539.         LDIR
  540.  
  541. STTA    CALL #CDCD
  542.         CALL START
  543.         LD A,(POSITION)
  544. PATW    CP #FE
  545.         JR NZ,STTA
  546.         HALT
  547.         LD HL,23295
  548.         LD DE,23294
  549.         LD BC,6912
  550.         LD (HL),C
  551.         LDDR
  552.         POP HL
  553.         JR MAINS
  554. STARTER
  555.         DB #03
  556.         DB BANKBUMPE
  557.         DB #04
  558.         DW BUMPIN
  559.         DW BUMP
  560.         DB 0
  561. STARTER2
  562.         DB #04
  563.         DB #10
  564.         DB 10
  565.         DW NECHIN
  566.         DW NECH
  567.  
  568.         DB #07
  569.         DB BANKBLOB3
  570.         DB 12
  571.         DW BLOBSINL
  572.         DW BLOBS
  573.  
  574.         DB #06
  575.         DB BANKOOO
  576.         DB 14
  577.         DW SCALEIN
  578.         DW SCALE
  579.  
  580.         DB #05
  581.         DB BANKBLOB
  582.         DB 16
  583.         DW BLOBSINL
  584.         DW BLOBS
  585.         DB 0
  586.  
  587. STARTER3
  588.         DB #0E
  589.         DB BANKBLOB2
  590.         DB 19
  591.         DW BLOBSIN
  592.         DW BLOBS
  593.  
  594.         DB #47
  595.         DB #10
  596.         DB 20
  597.         DW FNM2IN
  598.         DW FNM2
  599.  
  600.         DB #06
  601.         DB #10
  602.         DB 21
  603.         DW SCALE2IN
  604.         DW SCALE2
  605.  
  606.         DB #47
  607.         DB BANKOOO
  608.         DB 23
  609.         DW FLAGIN
  610.         DW FLAG
  611.         DB 0
  612.  
  613. STARTER4
  614.         DB 1*8+#47
  615.         DB #10
  616.         DB 28
  617.         DW NECHIN2
  618.         DW NECH
  619.  
  620.         DB #02
  621.         DB #10
  622.         DB 29
  623.         DW RANDIN
  624.         DW RAND
  625.  
  626.         DB 5
  627.         DB BANKOOO
  628.         DB 32
  629.         DW BULKAIN
  630.         DW BULKA
  631.  
  632.         DB 0
  633. FULLINSTALL
  634.         LD A,BANKOOO
  635.         CALL BANK
  636.         CALL OOO
  637.         LD A,BANKBUMPE
  638.         CALL BANK
  639.         CALL BUMPINF
  640.         LD A,#16
  641.         LD (STP),A
  642.         LD A,#6F
  643.         LD (BLQ+1),A
  644.  
  645.         LD A,BANKBLOB
  646.         CALL BANK
  647.         CALL BLOBSINF
  648.         LD A,BANKBLOB2
  649.         CALL BANK
  650.         CALL BLOBSINF2
  651.  
  652.         LD A,BANKBLOB3
  653.         CALL BANK
  654.         CALL BLOBSINF
  655.         LD A,#10
  656. BANK
  657.         LD BC,#7FFD
  658.         OUT (C),A
  659.         RET
  660. NECH
  661.         LD A,(GRAD)
  662.         ADD A,4
  663.         LD (GRAD),A
  664.         LD D,SINSEG
  665.         LD E,A
  666.         LD HL,#0872
  667.         CALL SINQP
  668.         LD (ST1QL+1),A
  669.         LD A,L
  670.         LD (ST1L+1),A
  671.         LD HL,#8291
  672.         CALL SINQP
  673.         LD (ST2QL+1),A
  674.         LD A,L
  675.         LD (ST2L+1),A
  676.         LD A,E
  677.         ADD A,30
  678.         LD E,A
  679.         LD HL,#7218
  680.         CALL SINQP
  681.         LD (ST3QL+2),A
  682.         LD A,L
  683.         LD (ST3L+2),A
  684.         LD IY,#B000-#A00
  685.         LD B,FREESEG
  686. ST3QL   LD HX,#26
  687. ST1QL   LD D,#16
  688. ST2QL   LD H,#26
  689.         LD A,38
  690. LSZ     EX AF,AF'
  691. ST3L    LD LX,#2E
  692. ST1L    LD E,#1E
  693. ST2L    LD L,#2E
  694.         CALL LESS
  695.         LD A,LY
  696.         ADD A,63
  697.         LD LY,A
  698.         INC IY
  699.         INC HX
  700.         INC D
  701.         INC H
  702.         EX AF,AF'
  703.         DEC A
  704.         JR NZ,LSZ
  705.         RET
  706. NECHIN2
  707.         LD A,4
  708.         LD (NE4-1),A
  709.         LD A,#6F
  710.         LD (BLQ+1),A
  711. NECHIN
  712.         LD DE,#B000-#A00
  713.         CALL RD61
  714.         XOR A
  715.         LD DE,LESS
  716. NE1
  717.         LD (BOR1+2),A
  718.         LD (BOR2+2),A
  719.         LD HL,NEUSKO
  720.         LD BC,NEUSKOE-NEUSKO
  721.         LDIR
  722.         INC A
  723.         CP #40
  724.         JR NZ,NE1
  725.         LD A,#C9
  726.         LD (DE),A
  727.         LD HL,(FREESEG+1)*256
  728.         LD C,L
  729. NE3
  730.         INC C
  731.         LD B,2
  732. NE4
  733.         LD (HL),C
  734.         INC L
  735.         DJNZ NE4
  736.         LD A,L
  737.         AND A
  738.         JR NZ,NE3
  739.         LD HL,#B000
  740.         PUSH HL
  741.         LD (HL),L
  742.         CALL CLEAR
  743.  
  744.         LD A,150
  745.         LD (SKOL+1),A
  746.         LD A,#C9
  747.         LD (STP),A
  748.         CALL BUMPE
  749.         POP HL
  750. NU0
  751.         LD A,(HL)
  752.         AND A
  753.         JR NZ,NU1
  754.         DEC H
  755.         LD A,(HL)
  756.         INC H
  757.         LD (HL),A
  758. NU1     INC HL
  759.         LD A,H
  760.         AND A
  761.         JR NZ,NU0
  762.         LD HL,FREESEG*256
  763. UPDOWN
  764. PN10Q
  765.         LD A,#80
  766. PN8Q
  767.         LD (HL),A
  768.         INC L
  769.         LD (HL),A
  770.         INC A
  771.         INC L
  772.         CP #88
  773.         JR NZ,PN8Q
  774. PN9Q
  775.         DEC A
  776.         LD (HL),A
  777.         INC L
  778.         LD (HL),A
  779.         INC L
  780.         CP #80
  781.         JR NZ,PN9Q
  782.         LD A,L
  783.         AND A
  784.         JR NZ,PN10Q
  785.         RET
  786. NEUSKO
  787.         LD A,(DE)
  788.         ADD A,(HL)
  789. BOR2    SUB (IX)
  790.         LD C,A
  791.         LD A,(BC)
  792. BOR1    LD (IY),A
  793.         INC L
  794.         INC E
  795. NEUSKOE
  796. FNMIN
  797.         LD HL,LESS
  798.         LD A,120
  799.         LD B,64
  800. FN0
  801.         LD (HL),#4E
  802.         INC HL
  803.         LD (HL),#0A
  804.         INC HL
  805.         LD (HL),#12
  806.         INC HL
  807.         LD (HL),#1C
  808.         INC HL
  809.         ADD A,220
  810.         JR NC,FN1
  811.         LD (HL),#2C
  812.         INC HL
  813. FN1
  814.         DJNZ FN0
  815.         LD (HL),#C9
  816.         LD HL,FREESEG*256+#80
  817.         LD (HL),L
  818.         LD A,L
  819.         INC L
  820. FN2
  821.         LD (HL),A
  822.         INC A
  823.         INC L
  824.         JR NZ,FN2
  825.         LD HL,TXTE1
  826.         LD DE,TXTE1+1
  827.         LD BC,257
  828.         LD (HL),C
  829.         LDIR
  830.         LD HL,#D800
  831.         LD (HL),#80
  832.         JP CLEAR
  833. PRINTFNM
  834.         LD A,(IX)
  835.         AND A
  836.         RET Z
  837.         LD L,A
  838.         SET 7,L
  839.         LD H,7
  840.         ADD HL,HL
  841.         ADD HL,HL
  842.         ADD HL,HL
  843.         LD LY,6
  844. FN8
  845.         INC L
  846.         LD A,(HL)
  847.         RRCA
  848.         OR (HL)
  849.         LD C,A
  850.         LD A,#88
  851.         LD B,8
  852. FN7     RL C
  853.         JP NC,FN6
  854.         LD (DE),A
  855. FN6     INC E
  856.         DJNZ FN7
  857.         LD A,E
  858.         SUB 8
  859.         LD E,A
  860.         INC D
  861.         DEC LY
  862.         JR NZ,FN8
  863.         INC IX
  864.         LD A,D
  865.         SUB 6
  866.         LD D,A
  867.         LD A,E
  868.         ADD A,8
  869.         LD E,A
  870.         JR PRINTFNM
  871. FNMONE
  872.         LD A,(IY)
  873.         DEC (IY)
  874.         JR Z,FNTWO
  875.         LD A,(IY+1)
  876.         ADD A,(IY+3)
  877.         LD (IY+1),A
  878.         LD HL,FN3+1
  879.         ADD A,(HL)
  880.         LD E,A
  881.         LD A,(IY+2)
  882.         ADD A,(IY+4)
  883.         LD (IY+2),A
  884.         LD D,A
  885.         LD A,(IY+5)
  886.         LD LX,A
  887.         LD A,(IY+6)
  888.         LD HX,A
  889.         JR PRINTFNM
  890. FNTWO
  891.         PUSH IY
  892.         POP DE
  893.         LD HL,(TXTFNM)
  894.         LD BC,7
  895.         LDIR
  896.         LD (TXTFNM),HL
  897.         JR FNMONE
  898. TXTFNM  DW TXTF1
  899. TXTF1
  900.         DB 120
  901.         DB 64
  902.         DB #D8+18
  903.         DB -1,0
  904.         DW TFT1
  905.  
  906.         DB 70
  907.         DB 0,0,0,0
  908.         DW TFT2-1
  909.  
  910.         DB 50
  911.         DB 20
  912.         DB #D1
  913.         DB 0,1
  914.         DW TFT15
  915.  
  916.  
  917.         DB 110
  918.         DB -45
  919.         DB #D8+17
  920.         DB 1,0
  921.         DW TFT2
  922.  
  923.         DB 50
  924.         DB -3
  925.         DB 0;#D8+#28 ;will be "Bytes lost"
  926.         DB 1,-1
  927.         DW TFT3
  928.  
  929.         DB 48
  930.         DB 10
  931.         DB 0;#D8+#28 ;will be "Bytes lost"
  932.         DB 0,-1
  933.         DW TFT4
  934.  
  935.         DB 45
  936.         DB -3
  937.         DB #D8-6
  938.         DB 1,1
  939.         DW TFT5
  940.  
  941.         DB 45
  942.         DB 12     ;X
  943.         DB #D8-6  ;Y
  944.         DB 0,1    ;SX,SY
  945.         DW TFT6
  946.  
  947.  
  948.         DB 120
  949.         DB 64
  950.         DB #D8+17
  951.         DB -1,0
  952.         DW TFT7
  953.  
  954.         DUP 2
  955.         DB 0,0,0,0,0
  956.         DW TFT1-1
  957.         EDUP
  958. FNM
  959.         LD IY,TXTE1
  960.         CALL FNMONE
  961.         LD IY,TXTE1+7
  962.         CALL FNMONE
  963.  
  964.         LD B,FREESEG
  965.         LD H,#DA+2
  966.         LD D,#D8
  967.         LD LX,#20
  968. FN3
  969.         LD L,4
  970.         LD E,#80
  971.         CALL LESS
  972.         LD A,LX
  973.         ADD A,210
  974.         LD LX,A
  975.         JR NC,$+3
  976.         INC H
  977.         INC D
  978.         JR NZ,FN3
  979.         LD A,(FN3+1)
  980.         XOR #80
  981.         LD (FN3+1),A
  982.         LD A,(FN3+3)
  983.         LD E,A
  984.         XOR #80
  985.         LD (FN3+3),A
  986.         LD D,#D8
  987.         JP RD65
  988.  
  989. BLOBSINF2
  990.         XOR A
  991.         LD (BLQ+1),A
  992.         LD HL,(FREESEG+1)*256
  993.         LD A,15
  994. W2      LD B,4
  995. W1      LD (HL),A
  996.         INC L
  997.         DJNZ W1
  998.         DEC A
  999.         JR NZ,W2
  1000.         XOR A
  1001. W3      LD (HL),A
  1002.         INC L
  1003.         JR NZ,W3
  1004.         JR WAA
  1005. BLOBSINF
  1006.         LD HL,(FREESEG+1)*256
  1007. W0E     XOR A
  1008. W1E
  1009.         LD (HL),A
  1010.         INC L
  1011.         LD (HL),A
  1012.         INC L
  1013.         INC A
  1014.         CP 8
  1015.         JR NZ,W1E
  1016. W2E
  1017.         DEC A
  1018.         LD (HL),A
  1019.         INC L
  1020.         LD (HL),A
  1021.         INC L
  1022.         AND A
  1023.         JR NZ,W2E
  1024.         LD A,L
  1025.         AND A
  1026.         JR NZ,W0E
  1027. WAA
  1028.         LD HL,#B000
  1029.         LD (HL),L
  1030.         CALL CLEAR
  1031.         CALL BUMPE
  1032.         LD HL,#FFFF-#A00
  1033.         LD DE,#FFFF
  1034.         LD BC,#4000
  1035.         LDDR
  1036.         RET
  1037. FLAG
  1038.         LD IY,(GRAD)
  1039.         LD BC,#0301
  1040.         ADD IY,BC
  1041.         LD (GRAD),IY
  1042.         LD HX,SINSEG
  1043.         LD BC,#B000
  1044.         LD H,FREESEG
  1045.         LD L,C
  1046.         LD A,38
  1047. FB6     EX AF,AF'
  1048.         LD A,LY
  1049.         INC LY
  1050.         INC LY
  1051.         LD LX,A
  1052.         LD A,(IX)
  1053.         INC LX
  1054.         INC LX
  1055.         ADD A,#80
  1056.         SRL A
  1057.         LD D,A
  1058.         LD A,HY
  1059.         INC HY
  1060.         LD LX,A
  1061.         LD A,(IX)
  1062.         ADD A,#80
  1063.         LD E,A
  1064.         SRL A
  1065.         ADD A,D
  1066.         LD L,A
  1067.         PUSH HL
  1068.         CALL LESS
  1069.         POP HL
  1070.         DEC L
  1071.         DEC C
  1072.         INC BC
  1073.         EX AF,AF'
  1074.         DEC A
  1075.         JR NZ,FB6
  1076.         RET
  1077. FLAGIN
  1078.         LD IX,SINSEG*256
  1079.         LD DE,LESS
  1080.         LD IY,#4080
  1081. FB0
  1082.         INC LX
  1083.         INC LX
  1084.         LD A,(IX)
  1085.         ADD A,#80
  1086.         SRL A
  1087.         SRL A
  1088.         CP LY
  1089.         LD LY,A
  1090.         LD BC,FLUSKOE-FLUSKO-1
  1091.         JR Z,FB1
  1092.         INC C
  1093.         LD A,#2D
  1094.         JR C,FB2
  1095.         DEC A
  1096. FB2     LD (FLUSKOE-1),A
  1097. FB1
  1098.         LD HL,FLUSKO
  1099.         LDIR
  1100.         DEC HY
  1101.         JR NZ,FB0
  1102.         LD A,#C9
  1103.         LD (DE),A
  1104.         LD HL,FREESEG*256
  1105.         LD A,L
  1106. FB5
  1107.         OR #C0
  1108.         LD (HL),A
  1109.         INC A
  1110.         INC L
  1111.         JR NZ,FB5
  1112.         LD DE,#B000
  1113.         JP RD61
  1114. FLUSKO
  1115.         LD D,(HL)
  1116.         LD A,(DE)
  1117.         LD (BC),A
  1118.         INC C
  1119.         DEC E
  1120.         DEC E
  1121. FLUSKOE
  1122. SCALE2
  1123.         LD B,40
  1124. WWO
  1125.         LD A,(SF1+1)
  1126.         LD L,A
  1127.         CALL RND
  1128.         AND #3F
  1129.         ADD A,L
  1130.         LD L,A
  1131.         CALL RND
  1132.         AND #1F
  1133.         ADD A,#D8+4
  1134.         LD H,A
  1135.         CALL RND
  1136.         AND 7
  1137.         OR #80
  1138.         LD (HL),A
  1139.         DJNZ WWO
  1140. EDEE    LD A,5
  1141.         INC A
  1142.         LD (EDEE+1),A
  1143.         CP 12
  1144.         JR NZ,EDEE2
  1145.         XOR A
  1146.         LD (EDEE+1),A
  1147.         LD A,(SF1+1)
  1148.         ADD A,35
  1149.         LD E,A
  1150.         LD D,#DF+7
  1151.         LD HL,(TEXT)
  1152.         LD A,(HL)
  1153.         INC HL
  1154.         LD (TEXT),HL
  1155.         LD L,A
  1156.         SET 7,L
  1157.         LD H,7
  1158.         ADD HL,HL
  1159.         ADD HL,HL
  1160.         ADD HL,HL
  1161. WWD5
  1162.         LD LY,16
  1163. WWD4
  1164.         LD A,(HL)
  1165.         RRCA
  1166.         OR (HL)
  1167.         LD C,A
  1168.         LD B,8
  1169.         LD A,#89
  1170. WWD3
  1171.         RL C
  1172.         JR NC,WWD
  1173.         LD (DE),A
  1174.         INC E
  1175.         LD (DE),A
  1176.         INC E
  1177.         JR WWD2
  1178. WWD
  1179.         INC E
  1180.         INC E
  1181. WWD2
  1182.         DJNZ WWD3
  1183.         INC D
  1184.         LD A,E
  1185.         SUB 16
  1186.         LD E,A
  1187.         LD A,LY
  1188.         RRA
  1189.         JR NC,$+3
  1190.         INC L
  1191.         DEC LY
  1192.         JR NZ,WWD4
  1193. EDEE2
  1194.         LD H,#DA+2
  1195.         LD D,#D7
  1196.         LD LX,38
  1197. SF2     LD A,5
  1198.         LD (SF2E+1),A
  1199. SL2P
  1200.         PUSH DE
  1201.         PUSH HL
  1202. SF0     LD E,0
  1203. SF1     LD A,128
  1204. SF2E    ADD A,#C6
  1205.         LD L,A
  1206. BUL     CALL #CDCD
  1207.         POP HL
  1208.         POP DE
  1209.         INC D
  1210.         LD A,LY
  1211.         ADD A,220
  1212.         LD LY,A
  1213.         LD A,H
  1214.         ADC A,0
  1215.         LD H,A
  1216.         LD A,HY
  1217.         ADD A,30
  1218.         LD HY,A
  1219.         LD A,(SF2E+1)
  1220.         ADC A,0
  1221.         LD (SF2E+1),A
  1222.         DEC LX
  1223.         JR NZ,SL2P
  1224.         LD A,(SF1+1)
  1225.         LD E,A
  1226.         LD L,A
  1227.         LD H,#D7
  1228.         PUSH HL
  1229.         DEC E
  1230.         DEC E
  1231.         DEC E
  1232.         LD D,#29
  1233.         LD B,FREESEG
  1234. BUL2
  1235.         LD L,E
  1236.         CALL LESS
  1237.         INC H
  1238.         DEC D
  1239.         JR NZ,BUL2
  1240.         POP DE
  1241.         LD A,(SF2+1)
  1242.         XOR 1
  1243.         LD (SF2+1),A
  1244.         LD A,(SF0+1)
  1245.         LD C,A
  1246.         LD A,(SF1+1)
  1247.         LD (SF0+1),A
  1248.         LD A,C
  1249.         LD (SF1+1),A
  1250.         INC D
  1251.         JP RD65
  1252. SCALE2IN
  1253.         LD HL,#D500
  1254.         LD (HL),#80
  1255.         CALL CLEAR
  1256.         LD DE,LESS
  1257.         LD A,#42
  1258. SO4
  1259.         LD HL,BUSKO
  1260.         LD BC,BUSKOE-BUSKO
  1261.         LDIR
  1262.         DEC A
  1263.         JR NZ,SO4
  1264.         LD A,#C9
  1265.         LD (DE),A
  1266.         EX DE,HL
  1267.         INC HL
  1268.         LD (BUL+1),HL
  1269.         LD B,64
  1270. SO2
  1271.         LD (HL),#ED
  1272.         INC HL
  1273.         LD (HL),#A0
  1274.         INC HL
  1275.         LD A,C
  1276.         ADD A,220
  1277.         LD C,A
  1278.         JR C,SO1
  1279.         LD (HL),#2B
  1280.         INC HL
  1281. SO1
  1282.         LD A,E
  1283.         ADD A,20
  1284.         LD E,A
  1285.         JR NC,SO1E
  1286.         LD (HL),#25
  1287.         INC HL
  1288. SO1E
  1289.         DJNZ SO2
  1290.         LD (HL),#C9
  1291.         INC HL
  1292.         EX DE,HL
  1293.         LD HL,FREESEG*256
  1294.         LD A,#80
  1295.         LD (HL),A
  1296.         INC L
  1297.         LD (HL),A
  1298.         INC L
  1299.         LD B,7
  1300. SOP
  1301.         DUP 4
  1302.         LD (HL),A
  1303.         INC L
  1304.         EDUP
  1305.         INC A
  1306.         DJNZ SOP
  1307. SOP2    LD (HL),A
  1308.         INC L
  1309.         JR NZ,SOP2
  1310.         RET
  1311. CLEAR
  1312.         LD D,H
  1313.         LD E,L
  1314.         INC DE
  1315.         LD A,H
  1316.         CPL
  1317.         LD B,A
  1318.         LD A,L
  1319.         CPL
  1320.         LD C,A
  1321.         LDIR
  1322.         RET
  1323. BUMPIN
  1324.         LD HL,#F000
  1325.         LD DE,#9B00
  1326.         LD BC,#1000
  1327.         LDIR
  1328.         LD L,E
  1329.         LD H,D
  1330.         INC DE
  1331.         LD B,#16
  1332.         LD (HL),#80
  1333.         LDIR
  1334.         LD HL,#F000
  1335.         LD (HL),#80
  1336.         CALL CLEAR
  1337.         LD DE,LESS
  1338.         LD A,#40
  1339. KS1
  1340.         LD HL,BUUSKO
  1341.         LD BC,BUUSKOE-BUUSKO
  1342.         LDIR
  1343.         DEC A
  1344.         JR NZ,KS1
  1345.         LD A,#C9
  1346.         LD (DE),A
  1347.         LD DE,#9000
  1348.         JP RD61
  1349. BUMP
  1350.         LD A,(GRAD)
  1351.         ADD A,5
  1352.         LD (GRAD),A
  1353.         LD D,SINSEG
  1354.         LD E,A
  1355.         LD A,(DE)
  1356.         ADD A,#80
  1357.         SRL A
  1358.         SRL A
  1359.         LD (BQ2+1),A
  1360.         LD A,E
  1361.         ADD A,28
  1362.         LD E,A
  1363.         LD A,(DE)
  1364.         ADD A,#80
  1365.         SRL A
  1366.         SRL A
  1367.         SRL A
  1368.         ADD A,#B4
  1369.         LD (BQ3+1),A
  1370.  
  1371.         LD DE,#9000
  1372.         LD IX,66*3+#9B00+67
  1373.         LD LY,38
  1374. BQ3     LD B,#B5
  1375. BQ1
  1376. BQ2     LD C,0
  1377.         CALL LESS
  1378.         INC IX
  1379.         INC IX
  1380.         INC B
  1381.         DEC E
  1382.         INC DE
  1383.         DEC LY
  1384.         JR NZ,BQ1
  1385.         RET
  1386. BUUSKO
  1387.         LD A,(IX+1)
  1388.         SUB (IX-1)
  1389. BP1     ADD A,C
  1390.         INC C
  1391.         LD L,A
  1392.         LD A,(IX+66)
  1393.         SUB (IX-66)
  1394.         INC IX
  1395.         ADD A,B
  1396.         LD H,A
  1397.         LD A,(HL)
  1398.         LD (DE),A
  1399.         INC E
  1400. BUUSKOE
  1401. LINES
  1402.         LD DE,#C100
  1403.         LD HL,#BE00
  1404.         LD A,8
  1405. LB7
  1406.         LD E,0
  1407.         LD BC,64
  1408. LB6
  1409.         LDI
  1410.         LDI
  1411.         LDI
  1412.         LDI
  1413.         JP PE,LB6
  1414.         INC D
  1415.         DEC A
  1416.         JR NZ,LB7
  1417.         LD HY,38
  1418.         LD H,#A0
  1419. LB3
  1420. IDDL2   LD L,0
  1421.         LD BC,64
  1422.         LD E,B
  1423. LB4
  1424.         LDI
  1425.         DEC L
  1426.         LDI
  1427.         LDI
  1428.         DEC L
  1429.         LDI
  1430.         JP PE,LB4
  1431.         INC D
  1432.         INC H
  1433.         DEC HY
  1434.         JR NZ,LB3
  1435.         LD LY,0
  1436. LB9     CALL LIN
  1437.         DEC LY
  1438.         JR NZ,LB9
  1439.         LD A,(IDDL+1)
  1440.         INC A
  1441.         LD (IDDL+1),A
  1442.         LD (IDDL2+1),A
  1443.         LD H,#C0
  1444.         JP BLUR
  1445. LIN
  1446.         LD BC,#1F1C
  1447.         CALL RNDSC
  1448.  
  1449.         ADD A,#A0-8+20
  1450.         CP #C0
  1451.         RET NC
  1452.         CP #A0
  1453.         RET C
  1454.         LD H,A
  1455.         LD A,E
  1456.         ADD A,#20
  1457.         SRL A
  1458. IDDL    ADD A,0
  1459.         LD L,A
  1460.         LD A,(HL)
  1461.         CP #80
  1462.         RET Z
  1463.         LD HL,#C100
  1464.         LD A,D
  1465.         ADD A,20
  1466.         ADD A,H
  1467.         LD H,A
  1468.         LD A,E
  1469.         ADD A,#20
  1470.         ADD A,L
  1471.         LD L,A
  1472.         LD A,E
  1473.         LD B,#2C
  1474.         BIT 7,A
  1475.         JR Z,LO1P
  1476.         INC B
  1477.         NEG
  1478. LO1P
  1479.         LD E,A
  1480.         LD A,B
  1481.         LD (LO1),A
  1482.         LD (LO1E),A
  1483.         LD A,D
  1484.         LD B,#24
  1485.         BIT 7,A
  1486.         JR Z,LO2P
  1487.         INC B
  1488.         NEG
  1489. LO2P
  1490.         LD D,A
  1491.         ADD A,E
  1492.         CP 2
  1493.         RET C
  1494.         LD A,B
  1495.         LD (LO2),A
  1496.         LD (LO2E),A
  1497.         LD A,E
  1498.         CP D
  1499.         JR C,LIN2
  1500.         LD A,E
  1501.         SRL A
  1502.         LD C,A
  1503. LN2     BIT 6,L
  1504.         RET NZ
  1505.         LD (HL),#87
  1506. LO1     INC L
  1507.         LD A,C
  1508.         ADD A,D
  1509.         LD C,A
  1510.         CP E
  1511.         JP C,LN2
  1512.         SUB E
  1513.         LD C,A
  1514. LO2     INC H
  1515.         LD A,H
  1516.         SUB #C1
  1517.         CP 38
  1518.         RET NC
  1519.         JP LN2
  1520. LIN2
  1521.         LD A,D
  1522.         SRL A
  1523.         LD C,A
  1524. LN2E    BIT 6,L
  1525.         RET NZ
  1526.         LD (HL),#87
  1527. LO2E    INC L
  1528.         LD A,H
  1529.         SUB #C1
  1530.         CP 38
  1531.         RET NC
  1532.         LD A,C
  1533.         ADD A,E
  1534.         LD C,A
  1535.         CP D
  1536.         JP C,LN2E
  1537.         SUB D
  1538.         LD C,A
  1539. LO1E    INC L
  1540.         LD A,C
  1541.         JP LN2E
  1542. RND
  1543.         PUSH HL
  1544.         PUSH DE
  1545.         LD HL,(RND1)
  1546.         LD DE,(RND2)
  1547.         DEC HL
  1548.         RL H
  1549.         ADC HL,DE
  1550.         LD A,E
  1551. RND4    ADC A,0
  1552.         LD E,A
  1553.         LD A,D
  1554.         ADC A,0
  1555.         LD D,A
  1556.         LD (RND2),DE
  1557.         LD (RND1),HL
  1558.         LD A,H
  1559.         RLCA
  1560.         SUB L
  1561.         LD (RND4+1),A
  1562.         XOR E
  1563.         POP DE
  1564.         POP HL
  1565.         RET
  1566. RND1    DW #C9C9
  1567. RND2    DW #C9C9
  1568. OOO
  1569.         LD DE,#C000
  1570.         PUSH DE
  1571.         LD L,E
  1572.         LD H,L
  1573. XOS
  1574.         RES 5,H
  1575.         LD A,(HL)
  1576.         INC HL
  1577.         AND #0F
  1578.         CP 2
  1579.         JR C,XOS
  1580.         OR #80
  1581.         LD (DE),A
  1582.         INC DE
  1583.         LD A,D
  1584.         AND A
  1585.         JR NZ,XOS
  1586.         POP DE
  1587.         LD IX,TXT4
  1588. NOD5
  1589.         LD L,(IX)
  1590.         SET 7,L
  1591.         LD H,7
  1592.         ADD HL,HL
  1593.         ADD HL,HL
  1594.         ADD HL,HL
  1595.         PUSH DE
  1596. NOD4
  1597.         LD LY,8
  1598. NOD41
  1599.         PUSH DE
  1600.         LD A,(HL)
  1601.         SRL A
  1602.         OR (HL)
  1603.         LD C,A
  1604.         LD A,#80
  1605.         LD B,8
  1606. NOD3
  1607.         RR C
  1608.         JR NC,NOD
  1609.         DUP 4
  1610.         LD (DE),A
  1611.         INC E
  1612.         EDUP
  1613.         JR NOD2
  1614. NOD
  1615.         DUP 4
  1616.         INC E
  1617.         EDUP
  1618. NOD2
  1619.         DJNZ NOD3
  1620.         POP DE
  1621.         INC D
  1622.         SET 7,D
  1623.         SET 6,D
  1624.         DEC LY
  1625.         JR NZ,NOD41
  1626.         INC L
  1627.         LD A,L
  1628.         AND 7
  1629.         JR NZ,NOD4
  1630.         POP DE
  1631.         LD A,E
  1632.         ADD A,8*4+2
  1633.         LD E,A
  1634.         INC IX
  1635.         BIT 7,(IX)
  1636.         JR Z,NOD5
  1637.         LD B,6
  1638. WWOX2   LD HL,#C000
  1639. WWOX    LD A,(HL)
  1640.         INC HL
  1641.         SET 7,H
  1642.         SET 6,H
  1643.         LD C,H
  1644.         DEC H
  1645.         SET 7,H
  1646.         SET 6,H
  1647.         ADD A,(HL)
  1648.         INC L
  1649.         LD H,C
  1650.         ADD A,(HL)
  1651.         DEC L
  1652.         INC H
  1653.         SET 7,H
  1654.         SET 6,H
  1655.         ADD A,(HL)
  1656.         LD H,C
  1657.         SRL A
  1658.         SRL A
  1659.         OR #80
  1660.         LD (HL),A
  1661.         LD A,L
  1662.         AND A
  1663.         JR NZ,WWOX
  1664.         LD A,H
  1665.         CP #C0
  1666.         JR NZ,WWOX
  1667.         DJNZ WWOX2
  1668.         RET
  1669. GRAD    DW #C9C9
  1670. BLOBS
  1671.         LD A,(GRAD)
  1672.         ADD A,4
  1673.         LD (GRAD),A
  1674.         LD D,SINSEG
  1675.         LD E,A
  1676.         LD HL,#0872
  1677.         CALL SINQP
  1678.         LD (ST1Q+1),A
  1679.         LD A,L
  1680.         LD (ST1+1),A
  1681.         LD HL,#8291
  1682.         CALL SINQP
  1683.         LD (ST2Q+1),A
  1684.         LD A,L
  1685.         LD (ST2+1),A
  1686.         LD A,E
  1687.         ADD A,30
  1688.         LD E,A
  1689.         LD HL,#7218
  1690.         CALL SINQP
  1691.         LD (ST3Q+2),A
  1692.         LD A,L
  1693.         LD (ST3+2),A
  1694. BLOB
  1695.         LD A,B
  1696.         SRL A
  1697.         SRL A
  1698.         ADD A,#C0-#A-#2
  1699.         LD D,A
  1700.         LD A,B
  1701.         AND 3
  1702.         RRCA
  1703.         RRCA
  1704.         ADD A,C
  1705.         LD E,A
  1706. ST2Q    LD H,#26
  1707. ST1Q    LD D,#16
  1708. ST3Q    LD HX,#26
  1709.         LD B,FREESEG
  1710.         LD IY,#B000-#A00
  1711.         LD A,38
  1712. BH2     EX AF,AF'
  1713. ST1     LD E,#1E
  1714. ST2     LD L,#2E
  1715. ST3     LD LX,#2E
  1716.         CALL LESS
  1717.         LD A,LY
  1718.         ADD A,#3F
  1719.         LD LY,A
  1720.         INC IY
  1721.         INC D
  1722.         INC H
  1723.         INC HX
  1724.         EX AF,AF'
  1725.         DEC A
  1726.         JR NZ,BH2
  1727.         RET
  1728. SINQP
  1729.         LD A,E
  1730.         ADD A,L
  1731.         LD E,A
  1732.         LD A,(DE)
  1733.         ADD A,#80
  1734.         SRL A
  1735.         SRL A
  1736.         LD L,A
  1737.         LD A,E
  1738.         ADD A,H
  1739.         LD E,A
  1740.         LD A,(DE)
  1741.         ADD A,#80
  1742.         SRL A
  1743.         LD C,A
  1744.         SRL A
  1745.         ADD A,C
  1746.         SRL A
  1747.         SRL A
  1748.         SRL A
  1749.         ADD A,#B6
  1750.         RET
  1751. BLOBSINL
  1752.         LD A,#96
  1753.         LD (BER1-1),A
  1754.         CALL BLOBSIN
  1755.         LD A,#AE
  1756.         LD (BER1-1),A
  1757.         RET
  1758. BLOBSIN
  1759.         LD HL,#C000
  1760.         LD DE,#C000-#A00
  1761.         LD BC,#4000
  1762.         LDIR
  1763.         LD DE,#A600
  1764.         CALL RD61
  1765.         LD DE,LESS
  1766.         XOR A
  1767. LW1
  1768.         LD (BER1+2),A
  1769.         LD (BER2+2),A
  1770.         LD HL,BLUSKO
  1771.         LD BC,BLUSKOE-BLUSKO
  1772.         LDIR
  1773.         INC A
  1774.         CP #40
  1775.         JR NZ,LW1
  1776.         LD A,#C9
  1777.         LD (DE),A
  1778.         LD HL,FREESEG*256
  1779.         LD A,#80
  1780. W5
  1781.         LD (HL),A
  1782.         INC L
  1783.         LD (HL),A
  1784.         INC L
  1785.         INC A
  1786.         CP #87
  1787.         JR NZ,W5
  1788. W6
  1789.         LD (HL),A
  1790.         INC L
  1791.         BIT 7,L
  1792.         JR Z,W6
  1793.         LD A,#80
  1794. W7
  1795.         LD (HL),A
  1796.         INC L
  1797.         JR NZ,W7
  1798.         RET
  1799. BLUSKO
  1800.         LD A,(DE)
  1801.         ADD A,(HL)
  1802. BER1    ADD A,(IX)
  1803.         LD C,A
  1804.         LD A,(BC)
  1805. BER2    LD (IY),A
  1806.         INC E
  1807.         INC L
  1808. BLUSKOE
  1809. BUMPINF
  1810.         LD HL,#AE00
  1811.         LD (HL),#80
  1812.         CALL CLEAR
  1813.  
  1814.         XOR A
  1815.         LD (BLQ+1),A
  1816.         LD HL,(FREESEG+1)*256
  1817.         LD A,#87
  1818.         LD B,20
  1819. W1A
  1820.         LD (HL),A
  1821.         INC L
  1822.         DJNZ W1A
  1823. W2A
  1824.         DUP 4
  1825.         LD (HL),A
  1826.         INC L
  1827.         EDUP
  1828.         DEC A
  1829.         CP #80
  1830.         JR NZ,W2A
  1831. W3A     LD (HL),A
  1832.         INC L
  1833.         JR NZ,W3A
  1834.         CALL BUMPE
  1835.         LD HL,#F000
  1836.         LD DE,66*54
  1837. KX1
  1838.         CALL RND
  1839.         AND #3F
  1840.         LD (HL),A
  1841.         INC HL
  1842.         DEC DE
  1843.         LD A,E
  1844.         OR D
  1845.         JR NZ,KX1
  1846.         LD LY,2
  1847.         CALL KX3
  1848.         LD IX,TXT2
  1849.         LD BC,66
  1850.         LD DE,66*12+#F002
  1851.         LD L,#3C
  1852.         CALL PRINT
  1853.         LD LY,2
  1854. KX3     LD IX,#F000
  1855.         LD DE,66*54
  1856. KX2     LD A,(IX-1)
  1857.         ADD A,(IX-66)
  1858.         ADD A,(IX+1)
  1859.         ADD A,(IX+66)
  1860.         SRL A
  1861.         SRL A
  1862.         LD (IX),A
  1863.         INC IX
  1864.         DEC DE
  1865.         LD A,D
  1866.         OR E
  1867.         JR NZ,KX2
  1868.         DEC LY
  1869.         JR NZ,KX3
  1870.         RET
  1871. BUMPE
  1872.         XOR A
  1873.         LD (GRAD),A
  1874.         LD HY,FREESEG+1
  1875.         LD C,A
  1876.         LD B,A
  1877. TN9E
  1878.         PUSH BC
  1879.         LD HL,FREESEG*256
  1880.         LD D,H
  1881.         LD E,L
  1882.         LD HX,E
  1883.         LD LY,C
  1884. TN5E
  1885.         LD A,HX
  1886.         LD (HL),A
  1887.         ADD IX,BC
  1888.         LD A,HX
  1889.         NEG
  1890.         DEC E
  1891.         LD (DE),A
  1892.         INC L
  1893.         BIT 7,L
  1894.         JR Z,TN5E
  1895.         LD H,SINSEG
  1896.         LD L,0
  1897. TN7E
  1898.         LD C,L
  1899.         LD E,(HL)
  1900.         LD A,(DE)
  1901.         ADD A,#40
  1902.         CP #80
  1903.         JR NC,TN6E
  1904.         LD LX,A
  1905.         LD A,L
  1906.         ADD A,64
  1907.         LD L,A
  1908.         LD E,(HL)
  1909.         LD A,(DE)
  1910.         ADD A,#28
  1911.         CP #50
  1912.         JR NC,TN6E
  1913.         ADD A,#B0
  1914.         LD HX,A
  1915.         LD A,L
  1916.         ADD A,A
  1917. BLQ     LD LY,A
  1918.         LD A,(IY)
  1919.         LD (IX),A
  1920. TN6E    LD L,C
  1921.         INC L
  1922.         JR NZ,TN7E
  1923. TN8E    LD HL,20
  1924.         POP BC
  1925.         INC C
  1926.         LD A,C
  1927. SKOL    CP 100
  1928.         JR C,TN9E
  1929. STP     DB #C9,#02
  1930. BE3     LD H,#B0
  1931.         LD C,#50
  1932. BE2     LD L,#FF
  1933.         LD A,1
  1934.         LD B,128
  1935. BE1     INC L
  1936.         DEC H
  1937.         ADD A,(HL)
  1938.         INC L
  1939.         INC H
  1940.         ADD A,(HL)
  1941.         DEC L
  1942.         INC H
  1943.         ADD A,(HL)
  1944.         DEC H
  1945.         INC A
  1946.         SRL A
  1947.         SRL A
  1948.         LD (HL),A
  1949.         DJNZ BE1
  1950.         INC H
  1951.         DEC C
  1952.         JR NZ,BE2
  1953.         DEC D
  1954.         JR NZ,BE3
  1955.         RET
  1956. SCALEIN
  1957.         LD DE,#B000-#A00
  1958.         CALL RD61
  1959.         LD DE,LESS
  1960.         LD A,64
  1961. SC1
  1962.         LD HL,SUSKO
  1963.         LD BC,SUSKOE-SUSKO
  1964.         LDIR
  1965.         DEC A
  1966.         JR NZ,SC1
  1967.         LD A,#C9
  1968.         LD (DE),A
  1969.         RET
  1970. SCALE
  1971.         LD HL,GRAD
  1972.         INC (HL)
  1973.         INC (HL)
  1974.         LD E,(HL)
  1975.         LD D,SINSEG
  1976.         LD A,(DE)
  1977.         ADD A,#80
  1978.         LD L,A
  1979.         LD H,0
  1980.         LD BC,-128
  1981.         ADD HL,BC
  1982.         ADD HL,HL
  1983.         ADD HL,HL
  1984.         LD (FIV+1),HL
  1985.         LD A,E
  1986.         ADD A,34
  1987.         LD E,A
  1988.         LD A,(DE)
  1989.         ADD A,#80
  1990.         LD L,A
  1991.         LD H,0
  1992.         LD BC,-128
  1993.         ADD HL,BC
  1994.         ADD HL,HL
  1995.         ADD HL,HL
  1996.         LD (FIV2+1),HL
  1997.         LD HL,#B000-#A00
  1998.         LD C,#C0
  1999.         EXX
  2000. FCH     LD HL,#2121
  2001. FCH2    LD IX,#4021
  2002. FIV     LD BC,#0101
  2003. FIV2    LD DE,#1111
  2004.         LD LY,38
  2005. SC2
  2006.         PUSH HL
  2007.         PUSH IX
  2008.         CALL LESS
  2009.         POP IX
  2010.         POP HL
  2011.         ADD IX,BC
  2012.         OR A
  2013.         SBC HL,DE
  2014.         DEC DE
  2015.         DEC DE
  2016.         DEC DE
  2017.         DEC LY
  2018.         JR NZ,SC2
  2019.         LD HL,(FCH+1)
  2020.         ADD HL,DE
  2021.         LD (FCH+1),HL
  2022.         LD HL,(FCH2+2)
  2023.         ADD HL,BC
  2024.         ADD HL,BC
  2025.         LD (FCH2+2),HL
  2026.         RET
  2027. SUSKO
  2028.         ADD HL,BC
  2029.         ADD IX,DE
  2030.         LD A,H
  2031.         EXX
  2032.         OR C
  2033.         LD D,A
  2034.         LD E,HX
  2035.         LD A,(DE)
  2036.         LD (HL),A
  2037.         INC HL
  2038.         EXX
  2039. SUSKOE
  2040. WATERIN
  2041.         LD HL,#A000
  2042.         PUSH HL
  2043.         LD (HL),L
  2044.         CALL CLEAR
  2045.         LD DE,LESS
  2046.         XOR A
  2047. WT0
  2048.         LD (SOS+2),A
  2049.         LD HL,WUSKO
  2050.         LD BC,WUSKOE-WUSKO
  2051.         LDIR
  2052.         INC A
  2053.         CP #40
  2054.         JR NZ,WT0
  2055.         LD A,#C9
  2056.         LD (DE),A
  2057.         LD HL,FREESEG*256
  2058.         XOR A
  2059.         LD (HL),A
  2060.         INC L
  2061. WT1
  2062.         LD (HL),A
  2063.         INC L
  2064.         INC A
  2065.         CP #3F
  2066.         JR NZ,WT1
  2067. WT2     LD (HL),#3F
  2068.         INC L
  2069.         LD A,L
  2070.         CP #80+#20
  2071.         JR NZ,WT2
  2072. WT3     LD (HL),#00
  2073.         INC L
  2074.         JR NZ,WT3
  2075.         INC H
  2076.         LD A,#80
  2077. WT4
  2078.         LD B,8
  2079.         LD (HL),A
  2080.         INC L
  2081.         DJNZ $-2
  2082.         INC A
  2083.         CP #89
  2084.         JR NZ,WT4
  2085.         POP DE
  2086.         JP RD61
  2087. WATER
  2088.         HALT
  2089.         LD H,#FF-#27-2
  2090.         LD D,#AB
  2091.         LD IX,#A000
  2092.         LD B,FREESEG
  2093.         LD LY,38
  2094. EED
  2095.         LD L,-1
  2096.         LD E,0
  2097.         CALL LESS
  2098.         LD A,LX
  2099.         ADD A,63
  2100.         LD LX,A
  2101.         INC IX
  2102.         INC H
  2103.         INC D
  2104.         DEC LY
  2105.         JR NZ,EED
  2106.         LD A,(WATER+1)
  2107.         LD C,A
  2108.         LD A,(WATER+3)
  2109.         LD (WATER+1),A
  2110.         LD A,C
  2111.         LD (WATER+3),A
  2112.         RET
  2113. WUSKO
  2114.         LD A,(HL)
  2115.         INC L
  2116.         DEC H
  2117.         ADD A,(HL)
  2118.         INC H
  2119.         INC L
  2120.         ADD A,(HL)
  2121.         INC H
  2122.         DEC L
  2123.         ADD A,(HL)
  2124.         SRL A
  2125.         DEC H
  2126.         EX DE,HL
  2127.         SUB (HL)
  2128.         LD C,A
  2129.         LD A,(BC)
  2130.         LD (HL),A
  2131.         INC B
  2132.         LD C,A
  2133.         LD A,(BC)
  2134.         DEC B
  2135. SOS     LD (IX),A
  2136.         INC L
  2137.         EX DE,HL
  2138. WUSKOE
  2139. BLURIN
  2140.         CALL RD64
  2141.         LD HL,#B000
  2142.         LD (HL),#80
  2143.         CALL CLEAR
  2144.         LD HL,FREESEG*256
  2145. BL1
  2146.         LD A,L
  2147.         INC A
  2148.         SRL A
  2149.         SRL A
  2150.         OR #80
  2151.         LD (HL),A
  2152.         INC L
  2153.         JR NZ,BL1
  2154.         LD DE,LESS
  2155.         LD A,64
  2156. BL2
  2157.         LD HL,BUSKO
  2158.         LD BC,BUSKOE-BUSKO
  2159.         LDIR
  2160.         DEC A
  2161.         JR NZ,BL2
  2162.         LD A,#C9
  2163.         LD (DE),A
  2164.         RET
  2165. BLUR
  2166.         LD B,FREESEG
  2167.         LD A,39
  2168. EEE     EX AF,AF'
  2169.         LD L,#FF
  2170.         LD A,#80
  2171.         CALL LESS
  2172.         INC H
  2173.         EX AF,AF'
  2174.         DEC A
  2175.         JR NZ,EEE
  2176.         RET
  2177. BUSKO
  2178.         INC L
  2179.         DEC H
  2180.         ADD A,(HL)
  2181.         INC H
  2182.         INC L
  2183.         ADD A,(HL)
  2184.         INC H
  2185.         DEC L
  2186.         ADD A,(HL)
  2187.         LD C,A
  2188.         LD A,(BC)
  2189.         DEC H
  2190.         LD (HL),A
  2191. BUSKOE
  2192.  
  2193. START
  2194.         HALT
  2195.         DI
  2196.         LD A,SCRSEG
  2197. EOP     LD (SCSG+2),A
  2198.         LD A,(SL5)
  2199.         XOR #14
  2200.         LD (SL5),A
  2201.         LD HL,0
  2202.         LD (SL4),HL
  2203.         LD HL,BUF1
  2204.         LD A,38
  2205.         CALL SLOP
  2206.         LD HL,#1414
  2207.         LD (SL4),HL
  2208.         LD HL,64+BUF1
  2209.         LD A,38
  2210.         CALL SLOP
  2211.         EI
  2212.         RET
  2213. SLOP
  2214.         LD (SPL+1),SP
  2215.         JP TXTSWSEG*256
  2216. CONT
  2217. SCSG    LD SP,SCRSEG*256
  2218.         JR SL2
  2219. SL1     LD SP,0
  2220. SL2     POP HL
  2221.         POP DE
  2222.         LD (SL1+1),SP
  2223. SL5     NOP
  2224. SL4     NOP
  2225.         NOP
  2226.         LD SP,HL
  2227.         DUP 32
  2228.         POP HL
  2229.         LDI
  2230.         EDUP
  2231.         DEC A
  2232.         JP NZ,SL1
  2233. SPL     LD SP,#3131
  2234.         RET
  2235. RDSC
  2236.         LD HL,SCRSEG*256+2
  2237.         LD DE,#4040
  2238.         CALL SW0
  2239.         LD DE,#4440
  2240. SW0     LD B,19
  2241. SW2
  2242.         LD (HL),E
  2243.         INC L
  2244.         LD (HL),D
  2245.         INC L
  2246.         INC L
  2247.         INC L
  2248.         LD A,E
  2249.         ADD A,#20
  2250.         LD E,A
  2251.         JR NC,SW1
  2252.         LD A,D
  2253.         ADD A,8
  2254.         LD D,A
  2255. SW1     DJNZ SW2
  2256.         RET
  2257. RD61    LD BC,64
  2258.         JR RD66
  2259. RD64
  2260.         LD DE,#C100
  2261. RD60
  2262. RD65
  2263.         LD BC,256
  2264. RD66    PUSH DE
  2265.         LD HL,SCRSEG*256
  2266.         CALL SQ0
  2267.         POP DE
  2268.         EX DE,HL
  2269.         ADD HL,BC
  2270.         EX DE,HL
  2271.  
  2272. SQ0     LD A,19
  2273. SQ1     LD (HL),E
  2274.         INC L
  2275.         LD (HL),D
  2276.         INC L
  2277.         INC L
  2278.         INC L
  2279.         EX DE,HL
  2280.         ADD HL,BC
  2281.         ADD HL,BC
  2282.         EX DE,HL
  2283.         DEC A
  2284.         JR NZ,SQ1
  2285.         RET
  2286. IMON
  2287.         LD HL,#6000
  2288.         LD A,#61
  2289. IL1     LD (HL),A
  2290.         INC L
  2291.         JR NZ,IL1
  2292.         INC H
  2293.         LD (HL),A
  2294.         LD H,A
  2295.         LD L,A
  2296.         LD (HL),#C3
  2297.         INC L
  2298.         LD (HL),low IMPROC
  2299.         INC L
  2300.         LD (HL),high IMPROC
  2301.         DEC A
  2302.         LD I,A
  2303.         IM 2
  2304.         EI
  2305.         RET
  2306.  
  2307. IMPROC
  2308.         PUSH AF
  2309.         PUSH HL
  2310.         PUSH DE
  2311.         PUSH BC
  2312. PLAY    OR A
  2313.         JP NC,POL
  2314. DDD     LD A,5
  2315.         INC A
  2316.         LD (DDD+1),A
  2317.         CP 6
  2318.         JR NZ,DDD2
  2319.         XOR A
  2320.         LD (DDD+1),A
  2321.         LD A,(POSITION)
  2322.         LD E,A
  2323.         LD D,0
  2324.         LD HL,POSIT
  2325.         ADD HL,DE
  2326.         LD A,(HL)
  2327.         LD L,A
  2328.         LD H,0
  2329.         DUP 5
  2330.         ADD HL,HL
  2331.         EDUP
  2332.         LD DE,PATTERNS
  2333.         ADD HL,DE
  2334.         LD A,(NOTE)
  2335.         LD C,A
  2336.         LD B,A
  2337.         SRL A
  2338.         LD E,A
  2339.         LD D,0
  2340.         ADD HL,DE
  2341.         LD A,(HL)
  2342.         RR C
  2343.         JR C,$+6
  2344.         DUP 4
  2345.         RLCA
  2346.         EDUP
  2347.         AND #0F
  2348.         JR Z,NXU
  2349.         DEC A
  2350.         ADD A,A
  2351.         ADD A,low STABLE
  2352.         LD L,A
  2353.         LD A,high STABLE
  2354.         ADC A,0
  2355.         LD H,A
  2356.         LD E,(HL)
  2357.         INC HL
  2358.         LD D,(HL)
  2359.         LD (SAMP),DE
  2360. NXU
  2361.         LD A,B
  2362.         INC A
  2363.         CP 64
  2364.         JR NZ,DDD4
  2365.         LD HL,POSITION
  2366.         INC (HL)
  2367.         XOR A
  2368. DDD4
  2369.         LD (NOTE),A
  2370. DDD2
  2371.         LD HL,(SAMP)
  2372.         LD A,(HL)
  2373.         INC A
  2374.         JR Z,POL
  2375.         DEC A
  2376.         LD E,2
  2377.         CALL RESS
  2378.         LD A,(HL)
  2379.         INC E
  2380.         CALL RESS
  2381.         LD A,(HL)
  2382.         LD E,6
  2383.         CALL RESS
  2384.         LD A,(HL)
  2385.         BIT 7,A
  2386.         LD C,0
  2387.         JR Z,$+4
  2388.         LD C,16
  2389.         BIT 6,A
  2390.         LD A,C
  2391.         JR Z,$+4
  2392.         OR 2
  2393.         OR 40
  2394.         INC E
  2395.         CALL RESS
  2396.         DEC HL
  2397.         INC E
  2398.         INC E
  2399.         LD A,(HL)
  2400.         AND #1F
  2401.         CALL RESS
  2402.         LD (SAMP),HL
  2403. POL     POP BC
  2404.         POP DE
  2405.         POP HL
  2406.         POP AF
  2407.         EI
  2408.         RET
  2409.  
  2410. NACT
  2411.         LD E,0
  2412. NC1     LD A,(HL)
  2413.         CALL RESS
  2414.         INC E
  2415.         LD A,E
  2416.         CP 14
  2417.         JR NZ,NC1
  2418.         RET
  2419. RESS
  2420.         LD BC,#FFFD
  2421.         OUT (C),E
  2422.         LD B,#BF
  2423.         OUT (C),A
  2424.         INC HL
  2425.         RET
  2426.  
  2427. TXTSWR
  2428.         LD HL,TXTSWSEG*256
  2429.         LD (HL),#F9
  2430.         INC HL
  2431.         LD C,#80
  2432. TU2
  2433.         LD A,#80
  2434. TU1     LD (HL),#E1
  2435.         INC HL
  2436.         LD (HL),#22
  2437.         INC HL
  2438.         LD (HL),A
  2439.         INC HL
  2440.         LD (HL),C
  2441.         INC HL
  2442.         ADD A,2
  2443.         CP #88
  2444.         JR NZ,TU1
  2445.         INC C
  2446.         LD A,C
  2447.         CP #88
  2448.         JR NZ,TU2
  2449.         LD (HL),#C3
  2450.         INC HL
  2451.         LD (HL),low CONT
  2452.         INC HL
  2453.         LD (HL),high CONT
  2454.         RET
  2455. TXTREA
  2456.         LD IX,BUF1
  2457.         LD HL,TXTU
  2458.         CALL TZ0
  2459. TZ0     LD (TZ2+1),HL
  2460.         LD LY,8
  2461. TZ2
  2462.         LD DE,0
  2463.         LD B,8
  2464. TZ1
  2465.         LD A,(DE)
  2466.         AND #F0
  2467.         LD C,A
  2468.         LD A,(HL)
  2469.         AND #0F
  2470.         OR C
  2471.         LD (IX),A
  2472.         INC IX
  2473.         INC DE
  2474.         DJNZ TZ1
  2475.         INC HL
  2476.         DEC LY
  2477.         JR NZ,TZ2
  2478.         RET
  2479. SINDEC
  2480.         LD HL,SINN
  2481.         LD DE,SINSEG*256
  2482.         LD BC,64
  2483.         LDIR
  2484.         LD H,D
  2485.         LD L,E
  2486. SN1     DEC E
  2487.         LD A,(DE)
  2488.         LD (HL),A
  2489.         INC L
  2490.         LD A,L
  2491.         CP 128
  2492.         JR C,SN1
  2493.         LD E,C
  2494. SN2     LD A,(DE)
  2495.         NEG
  2496.         LD (HL),A
  2497.         INC E
  2498.         INC L
  2499.         JR NZ,SN2
  2500.         RET
  2501. LINESIN
  2502.         CALL BLURIN
  2503.         LD HL,#A000
  2504.         PUSH HL
  2505.         LD (HL),#80
  2506.         CALL CLEAR
  2507.         POP DE
  2508.         LD IX,TXT1
  2509.         LD L,#87
  2510.         INC B
  2511. PRINT
  2512.         LD (SCK+1),BC
  2513.         LD A,L
  2514.         LD (TI3-1),A
  2515. PRIN2
  2516.         LD A,(IX)
  2517.         INC IX
  2518.         AND A
  2519.         RET Z
  2520.         PUSH DE
  2521.         LD L,A
  2522.         SET 7,L
  2523.         LD H,7
  2524.         ADD HL,HL
  2525.         ADD HL,HL
  2526.         ADD HL,HL
  2527.         LD LY,32
  2528. TI2
  2529.         PUSH DE
  2530.         LD B,8
  2531.         LD C,(HL)
  2532.         LD A,C
  2533.         RRCA
  2534.         OR C
  2535.         LD C,A
  2536. TI1     RL C
  2537. TI6     LD A,#00
  2538.         JR NC,TI3+1
  2539.         LD A,#3F
  2540. TI3     LD (DE),A
  2541.         INC DE
  2542.         DJNZ TI1
  2543.         LD A,LY
  2544.         AND 3
  2545.         JR NZ,OOWW
  2546.         INC L
  2547. OOWW    POP DE
  2548.         EX DE,HL
  2549. SCK     LD BC,#0101
  2550.         ADD HL,BC
  2551.         EX DE,HL
  2552.  
  2553.         DEC LY
  2554.         JR NZ,TI2
  2555.         POP DE
  2556.         DUP 9
  2557.         INC DE
  2558.         EDUP
  2559.         JR PRIN2
  2560. VECTORS
  2561.         DB -20,10,1,-20
  2562.         DB 1,-20,20,10
  2563.         DB 30,10,60,10
  2564.         DB 60,10,60,-20
  2565.         DB 60,-20,30,-20
  2566.         DB 30,-20,30,10
  2567.         DB 70,10,100,10
  2568.         DB 85,10,85,-20
  2569.         DB 110,10,135,10
  2570.         DB 110,0,130,0
  2571.         DB 110,-20,135,-20
  2572.         DB 110,10,110,-20
  2573.         DB 145,-20,145,-20
  2574.         DB 145,10,145,-15
  2575.         DB 0
  2576.  
  2577. SAMP    DW #C9C9
  2578. NACH    DB 190,3,0,0,124,7,0,40,31,0,31,120,0,8
  2579. STOPP   DB 0,0,0,0,0,0,0,#FF,0,0,0
  2580. POSITION        DB 0
  2581. NOTE            DB 0
  2582. POSIT
  2583.  
  2584.         DUP 2
  2585.         DB 0,1,1,1,1,2,3,1,1,1,1
  2586.         EDUP
  2587.         DB 0,1,1,1,1,2,3,1,1,1,2
  2588.  
  2589. STABLE  DW S4L,S5L,S6L,SBL
  2590.         INCLUDE "samples.asm"
  2591.  
  2592. TFT1    DB "GREETZ",0
  2593. TFT15   DB "TO",0
  2594. TFT2    DB "PSYCHO",0
  2595. TFT3    DB "AMD",0
  2596. TFT4    DB "ACL",0
  2597. TFT5    DB "OB",0
  2598. TFT6    DB "RUSH",0
  2599. TFT7    DB "AND YOU",0
  2600.  
  2601. TXT3    DB "FENOMEN",0
  2602.         DB "PRESENT",0
  2603.         DB "4kINTRO",0
  2604.         DB " NAMED",0,0
  2605. TXT2    DB " FROST",0
  2606. TXT6    DB "  FOR",0,0
  2607. TXT4    DB "NEM0NEF",#80
  2608. TEXT    DW TXT5
  2609. TXT5
  2610.         DB "FOR.US   "
  2611. TXT1    DB "    MILLENNIUM    "
  2612. TXT7    DB " C0DEX:",0
  2613.         DB "MadRain",0,0
  2614. TXTEND  DB "THE END",0,0
  2615. BUF1
  2616. LESS    EQU BUF1+90+90
  2617. LEN     EQU $-STARTF
  2618. TXTE1   EQU LESS+#400
  2619.        
  2620.         ;save snapshot of intro
  2621.         SAVESNA "frost10.sna",STARTF