Blame |
Last modification |
View Log
| Download
| RSS feed
; Frost 4k Intro
; (C)2000 FeNoMen. Mad Rain.
; Converted from Alasm to SjASMPlus by Aprisobal
DEVICE ZXSPECTRUM128
SCRSEG EQU #88
FREESEG EQU #8A
TXTSWSEG EQU #8D
SINSEG EQU #62
BANKOOO EQU #11
BANKBUMPE EQU #13
BANKBLOB EQU #14
BANKBLOB2 EQU #16
BANKBLOB3 EQU #17
ORG #6300
STARTF XOR A
OUT (254),A
CALL CLS
LD HL,NACH
CALL NACT
CALL IMON
CALL SINDEC
CALL FULLINSTALL
CALL RDSC
CALL TXTSWR
CALL TXTREA
LD A,#37
LD (PLAY),A
LD IX,TXT3
CALL WATERPRINT
S000
LD HL,STARTER
CALL MAINS
LD IX,TXT6
CALL WATERPRINT
CALL CLS7
S001
CALL LINESIN
LD B,128
WEDP PUSH BC
CALL LINES
CALL START
POP BC
DJNZ WEDP
LD HL,STARTER2
CALL MAINS
LD IX,TXT7
CALL WATERPRINT
LD HL,STARTER3
CALL MAINS
CALL CLS7
LD A,#10
CALL BANK
CALL FNMIN
LD BC,400
QKXX PUSH BC
CALL FNM
CALL START
POP BC
DEC BC
LD A,B
OR C
JR NZ,QKXX
IWDI
LD HL,STARTER4
CALL MAINS
LD IX,TXTEND
CALL WATERPRINT
KWS
LD A,(POSITION)
CP 33
JR C,KWS
EXIT
LD HL,STOPP
CALL NACT
LD A,63
LD I,A
IM 1
LD IY,23610
LD HL,10072
EXX
EI
RET
RNDSC
CALL RND
AND #3F
SUB #20
LD E,A
WAN1 CALL RND
AND B
CP C
JR NC,WAN1
SRL C
SUB C
LD D,A
RET
RAND
LD LX,6
WAN0
LD BC,#3F40
CALL RNDSC
LD HL,0
CALL LINE
DEC LX
JR NZ,WAN0
LD HL,#D700
CALL CLEAR2
LD HL,#FF00
CALL CLEAR2
LD H,#D8
JP BLUR
CLEAR2
LD E,1
LD D,H
LD BC,64
LD (HL),#80
LDIR
RET
RANDIN
LD HL,#D800
PUSH HL
LD (HL),#80
CALL CLEAR
CALL BLURIN
POP DE
JP RD65
LINE
LD A,D
SUB H
LD D,A
LD A,E
SUB L
LD E,A
LD B,#2C
BIT 7,A
JR Z,FM7
INC B
NEG
FM7 LD E,A
LD A,B
LD (FMOP1),A
LD (FMOP2),A
LD A,D
LD B,#24
BIT 7,A
JR Z,FM8
INC B
NEG
FM8 LD D,A
LD A,B
LD (FMOP3),A
LD (FMOP4),A
LD A,H
ADD A,#D8+19
LD H,A
LD A,L
ADD A,32
LD L,A
LD A,E
CP D
JR C,FM3Q
LD B,E
INC B
LD A,E
SRL A
FM2
LD (HL),#87
FMOP1 DB #87
ADD A,D
CP E
JR C,FM1
FMOP3 DB 2
SUB E
FM1
DJNZ FM2
RET
FM3Q LD B,D
INC B
LD A,D
SRL A
FM3
LD (HL),#87
FMOP4 DB #87
ADD A,E
CP D
JR C,FM4
FMOP2 DB 2
SUB D
FM4
DJNZ FM3
RET
FNM2
LD H,#D8
LD C,#80
LD LX,38
FN0Q
LD L,0
LD B,64
FN1Q LD A,(HL)
CP C
JP Z,FNL
DEC (HL)
FNL
INC L
DJNZ FN1Q
INC H
DEC LX
JR NZ,FN0Q
LD A,(GRAD)
ADD A,2
LD (GRAD),A
LD LX,A
LD HX,SINSEG
LD DE,#90D2
CALL TAKE
LD E,167
CALL TAKE
LD E,140
CALL TAKE
LD A,LX
ADD A,A
LD LX,A
LD E,#1E
CALL TAKE
LD IX,VECTORS
EVK
LD A,(IX)
AND A
RET Z
CALL ROTAT
PUSH DE
CALL ROTAT
POP HL
CALL LINE
JR EVK
ROTAT
LD H,#90
LD A,(IX)
SUB 72
LD L,A
INC IX
LD E,(HL)
INC H
LD A,(HL)
INC H
LD L,(IX)
INC IX
ADD A,(HL)
INC H
LD D,A
LD A,E
ADD A,(HL)
LD E,A
RET
TAKE
LD C,(IX)
LD B,0
LD L,B
BIT 7,C
JR Z,TK1
DEC B
TK1
LD A,LX
ADD A,E
LD LX,A
LD E,L
LD H,L
PUSH HL
LO5
LD A,H
LD (DE),A
ADD HL,BC
INC E
BIT 7,E
JR Z,LO5
POP HL
OR A
LD E,-1
LO6
SBC HL,BC
LD A,H
LD (DE),A
DEC E
BIT 7,E
JR NZ,LO6
INC D
RET
FNM2IN
LD A,#7A
LD (GRAD),A
LD HL,#D700
LD (HL),#80
CALL CLEAR
LD DE,#D800
JP RD65
KVAD
LD E,L
LD D,H
LD B,16
LD C,D
LD A,E
EX DE,HL
LD HL,0
ML2 SRL C
RRA
JR NC,ML3
ADD HL,DE
ML3 EX DE,HL
ADD HL,HL
EX DE,HL
DJNZ ML2
RET
SQR LD A,L
LD L,H
LD DE,64
LD H,D
LD B,8
SQ1Q
SBC HL,DE
JR NC,SQ2Q
ADD HL,DE
SQ2Q CCF
RL D
ADD A,A
ADC HL,HL
ADD A,A
ADC HL,HL
DJNZ SQ1Q
LD L,D
LD H,A
RET
DIV
LD C,H
BIT 7,C
JR Z,DV1
CALL MINUS
DV1
PUSH HL
POP IX
LD HL,0
LD B,16
DVV
ADD IX,IX
INC IX
ADC HL,HL
SBC HL,DE
JR NC,DVV2
ADD HL,DE
DEC IX
DVV2
DJNZ DVV
PUSH IX
POP HL
BIT 7,C
RET Z
MINUS LD A,L
CPL
LD L,A
LD A,H
CPL
LD H,A
INC HL
RET
BULKAIN
LD IY,#A000-#400
LD HL,-19
XK1 PUSH HL
LD A,L
LD (XK5+1),A
CALL KVAD
LD (XK2+1),HL
LD HL,-32
XK3 PUSH HL
PUSH HL
CALL KVAD
XK2 LD DE,#1111
ADD HL,DE
CALL SQR
LD A,L
ADD A,A
ADD A,A
ADD A,A
LD L,A
LD H,SINSEG
LD A,(HL)
ADD A,#80
LD L,A
LD H,1
EX DE,HL
POP HL
LD H,L
LD L,0
ADD HL,HL
CALL DIV
LD (IY),L
INC IY
XK5 LD H,0
LD L,0
ADD HL,HL
CALL DIV
LD (IY),L
INC IY
POP HL
INC HL
LD A,L
CP 32
JR NZ,XK3
POP HL
INC HL
LD A,L
CP 19
JR NZ,XK1
LD DE,LESS
LD A,64
BK1
LD HL,BAUSKO
LD BC,BAUSKOE-BAUSKO
LDIR
DEC A
JR NZ,BK1
LD A,#C9
LD (DE),A
LD DE,#B000
JP RD61
BULKA
LD HL,GRAD
INC (HL)
INC (HL)
LD L,(HL)
LD H,SINSEG
LD A,(HL)
ADD A,#80
SRL A
ADD A,48
LD LX,A
LD A,L
ADD A,#2D
LD L,A
LD A,(HL)
ADD A,#80
SRL A
LD HX,A
LD HL,#A000-#400
LD BC,#B000
LD LY,38
BUL1
CALL LESS
DEC C
INC BC
DEC L
INC HL
DEC LY
JR NZ,BUL1
RET
BAUSKO
LD A,LX
SUB (HL)
LD E,A
INC L
LD A,(HL)
ADD A,HX
OR #C0
LD D,A
INC L
LD A,(DE)
LD (BC),A
INC C
BAUSKOE
CLS7 LD A,7
CLS
LD HL,#4000
LD DE,#4001
LD BC,6144
LD (HL),L
LDIR
LD (HL),A
LD BC,767
LDIR
RET
WATERPRINT
LD A,#41
CALL CLS
IDD
CALL WATERIN
LD DE,#DD00
LD L,#3F
LD BC,#100
CALL PRINT
PUSH IX
CALL WATER
CALL START
LD B,50
HALT
DJNZ $-1
LD B,23
EEQ
PUSH BC
CALL WATER
CALL START
POP BC
DJNZ EEQ
POP IX
LD A,(IX)
AND A
JR NZ,IDD
RET
MAINS
LD A,(HL)
AND A
RET Z
LD (COLOR+1),A
INC HL
LD A,(HL)
INC HL
CALL BANK
LD A,(HL)
INC HL
LD (PATW+1),A
LD E,(HL)
INC HL
LD D,(HL)
INC HL
LD (INIT+1),DE
LD E,(HL)
INC HL
LD D,(HL)
INC HL
PUSH HL
LD (STTA+1),DE
INIT CALL #CDCD
HALT
LD HL,22592
LD DE,22593
LD BC,607
COLOR LD (HL),#36
LDIR
STTA CALL #CDCD
CALL START
LD A,(POSITION)
PATW CP #FE
JR NZ,STTA
HALT
LD HL,23295
LD DE,23294
LD BC,6912
LD (HL),C
LDDR
POP HL
JR MAINS
STARTER
DB #03
DB BANKBUMPE
DB #04
DW BUMPIN
DW BUMP
DB 0
STARTER2
DB #04
DB #10
DB 10
DW NECHIN
DW NECH
DB #07
DB BANKBLOB3
DB 12
DW BLOBSINL
DW BLOBS
DB #06
DB BANKOOO
DB 14
DW SCALEIN
DW SCALE
DB #05
DB BANKBLOB
DB 16
DW BLOBSINL
DW BLOBS
DB 0
STARTER3
DB #0E
DB BANKBLOB2
DB 19
DW BLOBSIN
DW BLOBS
DB #47
DB #10
DB 20
DW FNM2IN
DW FNM2
DB #06
DB #10
DB 21
DW SCALE2IN
DW SCALE2
DB #47
DB BANKOOO
DB 23
DW FLAGIN
DW FLAG
DB 0
STARTER4
DB 1*8+#47
DB #10
DB 28
DW NECHIN2
DW NECH
DB #02
DB #10
DB 29
DW RANDIN
DW RAND
DB 5
DB BANKOOO
DB 32
DW BULKAIN
DW BULKA
DB 0
FULLINSTALL
LD A,BANKOOO
CALL BANK
CALL OOO
LD A,BANKBUMPE
CALL BANK
CALL BUMPINF
LD A,#16
LD (STP),A
LD A,#6F
LD (BLQ+1),A
LD A,BANKBLOB
CALL BANK
CALL BLOBSINF
LD A,BANKBLOB2
CALL BANK
CALL BLOBSINF2
LD A,BANKBLOB3
CALL BANK
CALL BLOBSINF
LD A,#10
BANK
LD BC,#7FFD
OUT (C),A
RET
NECH
LD A,(GRAD)
ADD A,4
LD (GRAD),A
LD D,SINSEG
LD E,A
LD HL,#0872
CALL SINQP
LD (ST1QL+1),A
LD A,L
LD (ST1L+1),A
LD HL,#8291
CALL SINQP
LD (ST2QL+1),A
LD A,L
LD (ST2L+1),A
LD A,E
ADD A,30
LD E,A
LD HL,#7218
CALL SINQP
LD (ST3QL+2),A
LD A,L
LD (ST3L+2),A
LD IY,#B000-#A00
LD B,FREESEG
ST3QL LD HX,#26
ST1QL LD D,#16
ST2QL LD H,#26
LD A,38
LSZ EX AF,AF'
ST3L LD LX,#2E
ST1L LD E,#1E
ST2L LD L,#2E
CALL LESS
LD A,LY
ADD A,63
LD LY,A
INC IY
INC HX
INC D
INC H
EX AF,AF'
DEC A
JR NZ,LSZ
RET
NECHIN2
LD A,4
LD (NE4-1),A
LD A,#6F
LD (BLQ+1),A
NECHIN
LD DE,#B000-#A00
CALL RD61
XOR A
LD DE,LESS
NE1
LD (BOR1+2),A
LD (BOR2+2),A
LD HL,NEUSKO
LD BC,NEUSKOE-NEUSKO
LDIR
INC A
CP #40
JR NZ,NE1
LD A,#C9
LD (DE),A
LD HL,(FREESEG+1)*256
LD C,L
NE3
INC C
LD B,2
NE4
LD (HL),C
INC L
DJNZ NE4
LD A,L
AND A
JR NZ,NE3
LD HL,#B000
PUSH HL
LD (HL),L
CALL CLEAR
LD A,150
LD (SKOL+1),A
LD A,#C9
LD (STP),A
CALL BUMPE
POP HL
NU0
LD A,(HL)
AND A
JR NZ,NU1
DEC H
LD A,(HL)
INC H
LD (HL),A
NU1 INC HL
LD A,H
AND A
JR NZ,NU0
LD HL,FREESEG*256
UPDOWN
PN10Q
LD A,#80
PN8Q
LD (HL),A
INC L
LD (HL),A
INC A
INC L
CP #88
JR NZ,PN8Q
PN9Q
DEC A
LD (HL),A
INC L
LD (HL),A
INC L
CP #80
JR NZ,PN9Q
LD A,L
AND A
JR NZ,PN10Q
RET
NEUSKO
LD A,(DE)
ADD A,(HL)
BOR2 SUB (IX)
LD C,A
LD A,(BC)
BOR1 LD (IY),A
INC L
INC E
NEUSKOE
FNMIN
LD HL,LESS
LD A,120
LD B,64
FN0
LD (HL),#4E
INC HL
LD (HL),#0A
INC HL
LD (HL),#12
INC HL
LD (HL),#1C
INC HL
ADD A,220
JR NC,FN1
LD (HL),#2C
INC HL
FN1
DJNZ FN0
LD (HL),#C9
LD HL,FREESEG*256+#80
LD (HL),L
LD A,L
INC L
FN2
LD (HL),A
INC A
INC L
JR NZ,FN2
LD HL,TXTE1
LD DE,TXTE1+1
LD BC,257
LD (HL),C
LDIR
LD HL,#D800
LD (HL),#80
JP CLEAR
PRINTFNM
LD A,(IX)
AND A
RET Z
LD L,A
SET 7,L
LD H,7
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD LY,6
FN8
INC L
LD A,(HL)
RRCA
OR (HL)
LD C,A
LD A,#88
LD B,8
FN7 RL C
JP NC,FN6
LD (DE),A
FN6 INC E
DJNZ FN7
LD A,E
SUB 8
LD E,A
INC D
DEC LY
JR NZ,FN8
INC IX
LD A,D
SUB 6
LD D,A
LD A,E
ADD A,8
LD E,A
JR PRINTFNM
FNMONE
LD A,(IY)
DEC (IY)
JR Z,FNTWO
LD A,(IY+1)
ADD A,(IY+3)
LD (IY+1),A
LD HL,FN3+1
ADD A,(HL)
LD E,A
LD A,(IY+2)
ADD A,(IY+4)
LD (IY+2),A
LD D,A
LD A,(IY+5)
LD LX,A
LD A,(IY+6)
LD HX,A
JR PRINTFNM
FNTWO
PUSH IY
POP DE
LD HL,(TXTFNM)
LD BC,7
LDIR
LD (TXTFNM),HL
JR FNMONE
TXTFNM DW TXTF1
TXTF1
DB 120
DB 64
DB #D8+18
DB -1,0
DW TFT1
DB 70
DB 0,0,0,0
DW TFT2-1
DB 50
DB 20
DB #D1
DB 0,1
DW TFT15
DB 110
DB -45
DB #D8+17
DB 1,0
DW TFT2
DB 50
DB -3
DB 0;#D8+#28 ;will be "Bytes lost"
DB 1,-1
DW TFT3
DB 48
DB 10
DB 0;#D8+#28 ;will be "Bytes lost"
DB 0,-1
DW TFT4
DB 45
DB -3
DB #D8-6
DB 1,1
DW TFT5
DB 45
DB 12 ;X
DB #D8-6 ;Y
DB 0,1 ;SX,SY
DW TFT6
DB 120
DB 64
DB #D8+17
DB -1,0
DW TFT7
DUP 2
DB 0,0,0,0,0
DW TFT1-1
EDUP
FNM
LD IY,TXTE1
CALL FNMONE
LD IY,TXTE1+7
CALL FNMONE
LD B,FREESEG
LD H,#DA+2
LD D,#D8
LD LX,#20
FN3
LD L,4
LD E,#80
CALL LESS
LD A,LX
ADD A,210
LD LX,A
JR NC,$+3
INC H
INC D
JR NZ,FN3
LD A,(FN3+1)
XOR #80
LD (FN3+1),A
LD A,(FN3+3)
LD E,A
XOR #80
LD (FN3+3),A
LD D,#D8
JP RD65
BLOBSINF2
XOR A
LD (BLQ+1),A
LD HL,(FREESEG+1)*256
LD A,15
W2 LD B,4
W1 LD (HL),A
INC L
DJNZ W1
DEC A
JR NZ,W2
XOR A
W3 LD (HL),A
INC L
JR NZ,W3
JR WAA
BLOBSINF
LD HL,(FREESEG+1)*256
W0E XOR A
W1E
LD (HL),A
INC L
LD (HL),A
INC L
INC A
CP 8
JR NZ,W1E
W2E
DEC A
LD (HL),A
INC L
LD (HL),A
INC L
AND A
JR NZ,W2E
LD A,L
AND A
JR NZ,W0E
WAA
LD HL,#B000
LD (HL),L
CALL CLEAR
CALL BUMPE
LD HL,#FFFF-#A00
LD DE,#FFFF
LD BC,#4000
LDDR
RET
FLAG
LD IY,(GRAD)
LD BC,#0301
ADD IY,BC
LD (GRAD),IY
LD HX,SINSEG
LD BC,#B000
LD H,FREESEG
LD L,C
LD A,38
FB6 EX AF,AF'
LD A,LY
INC LY
INC LY
LD LX,A
LD A,(IX)
INC LX
INC LX
ADD A,#80
SRL A
LD D,A
LD A,HY
INC HY
LD LX,A
LD A,(IX)
ADD A,#80
LD E,A
SRL A
ADD A,D
LD L,A
PUSH HL
CALL LESS
POP HL
DEC L
DEC C
INC BC
EX AF,AF'
DEC A
JR NZ,FB6
RET
FLAGIN
LD IX,SINSEG*256
LD DE,LESS
LD IY,#4080
FB0
INC LX
INC LX
LD A,(IX)
ADD A,#80
SRL A
SRL A
CP LY
LD LY,A
LD BC,FLUSKOE-FLUSKO-1
JR Z,FB1
INC C
LD A,#2D
JR C,FB2
DEC A
FB2 LD (FLUSKOE-1),A
FB1
LD HL,FLUSKO
LDIR
DEC HY
JR NZ,FB0
LD A,#C9
LD (DE),A
LD HL,FREESEG*256
LD A,L
FB5
OR #C0
LD (HL),A
INC A
INC L
JR NZ,FB5
LD DE,#B000
JP RD61
FLUSKO
LD D,(HL)
LD A,(DE)
LD (BC),A
INC C
DEC E
DEC E
FLUSKOE
SCALE2
LD B,40
WWO
LD A,(SF1+1)
LD L,A
CALL RND
AND #3F
ADD A,L
LD L,A
CALL RND
AND #1F
ADD A,#D8+4
LD H,A
CALL RND
AND 7
OR #80
LD (HL),A
DJNZ WWO
EDEE LD A,5
INC A
LD (EDEE+1),A
CP 12
JR NZ,EDEE2
XOR A
LD (EDEE+1),A
LD A,(SF1+1)
ADD A,35
LD E,A
LD D,#DF+7
LD HL,(TEXT)
LD A,(HL)
INC HL
LD (TEXT),HL
LD L,A
SET 7,L
LD H,7
ADD HL,HL
ADD HL,HL
ADD HL,HL
WWD5
LD LY,16
WWD4
LD A,(HL)
RRCA
OR (HL)
LD C,A
LD B,8
LD A,#89
WWD3
RL C
JR NC,WWD
LD (DE),A
INC E
LD (DE),A
INC E
JR WWD2
WWD
INC E
INC E
WWD2
DJNZ WWD3
INC D
LD A,E
SUB 16
LD E,A
LD A,LY
RRA
JR NC,$+3
INC L
DEC LY
JR NZ,WWD4
EDEE2
LD H,#DA+2
LD D,#D7
LD LX,38
SF2 LD A,5
LD (SF2E+1),A
SL2P
PUSH DE
PUSH HL
SF0 LD E,0
SF1 LD A,128
SF2E ADD A,#C6
LD L,A
BUL CALL #CDCD
POP HL
POP DE
INC D
LD A,LY
ADD A,220
LD LY,A
LD A,H
ADC A,0
LD H,A
LD A,HY
ADD A,30
LD HY,A
LD A,(SF2E+1)
ADC A,0
LD (SF2E+1),A
DEC LX
JR NZ,SL2P
LD A,(SF1+1)
LD E,A
LD L,A
LD H,#D7
PUSH HL
DEC E
DEC E
DEC E
LD D,#29
LD B,FREESEG
BUL2
LD L,E
CALL LESS
INC H
DEC D
JR NZ,BUL2
POP DE
LD A,(SF2+1)
XOR 1
LD (SF2+1),A
LD A,(SF0+1)
LD C,A
LD A,(SF1+1)
LD (SF0+1),A
LD A,C
LD (SF1+1),A
INC D
JP RD65
SCALE2IN
LD HL,#D500
LD (HL),#80
CALL CLEAR
LD DE,LESS
LD A,#42
SO4
LD HL,BUSKO
LD BC,BUSKOE-BUSKO
LDIR
DEC A
JR NZ,SO4
LD A,#C9
LD (DE),A
EX DE,HL
INC HL
LD (BUL+1),HL
LD B,64
SO2
LD (HL),#ED
INC HL
LD (HL),#A0
INC HL
LD A,C
ADD A,220
LD C,A
JR C,SO1
LD (HL),#2B
INC HL
SO1
LD A,E
ADD A,20
LD E,A
JR NC,SO1E
LD (HL),#25
INC HL
SO1E
DJNZ SO2
LD (HL),#C9
INC HL
EX DE,HL
LD HL,FREESEG*256
LD A,#80
LD (HL),A
INC L
LD (HL),A
INC L
LD B,7
SOP
DUP 4
LD (HL),A
INC L
EDUP
INC A
DJNZ SOP
SOP2 LD (HL),A
INC L
JR NZ,SOP2
RET
CLEAR
LD D,H
LD E,L
INC DE
LD A,H
CPL
LD B,A
LD A,L
CPL
LD C,A
LDIR
RET
BUMPIN
LD HL,#F000
LD DE,#9B00
LD BC,#1000
LDIR
LD L,E
LD H,D
INC DE
LD B,#16
LD (HL),#80
LDIR
LD HL,#F000
LD (HL),#80
CALL CLEAR
LD DE,LESS
LD A,#40
KS1
LD HL,BUUSKO
LD BC,BUUSKOE-BUUSKO
LDIR
DEC A
JR NZ,KS1
LD A,#C9
LD (DE),A
LD DE,#9000
JP RD61
BUMP
LD A,(GRAD)
ADD A,5
LD (GRAD),A
LD D,SINSEG
LD E,A
LD A,(DE)
ADD A,#80
SRL A
SRL A
LD (BQ2+1),A
LD A,E
ADD A,28
LD E,A
LD A,(DE)
ADD A,#80
SRL A
SRL A
SRL A
ADD A,#B4
LD (BQ3+1),A
LD DE,#9000
LD IX,66*3+#9B00+67
LD LY,38
BQ3 LD B,#B5
BQ1
BQ2 LD C,0
CALL LESS
INC IX
INC IX
INC B
DEC E
INC DE
DEC LY
JR NZ,BQ1
RET
BUUSKO
LD A,(IX+1)
SUB (IX-1)
BP1 ADD A,C
INC C
LD L,A
LD A,(IX+66)
SUB (IX-66)
INC IX
ADD A,B
LD H,A
LD A,(HL)
LD (DE),A
INC E
BUUSKOE
LINES
LD DE,#C100
LD HL,#BE00
LD A,8
LB7
LD E,0
LD BC,64
LB6
LDI
LDI
LDI
LDI
JP PE,LB6
INC D
DEC A
JR NZ,LB7
LD HY,38
LD H,#A0
LB3
IDDL2 LD L,0
LD BC,64
LD E,B
LB4
LDI
DEC L
LDI
LDI
DEC L
LDI
JP PE,LB4
INC D
INC H
DEC HY
JR NZ,LB3
LD LY,0
LB9 CALL LIN
DEC LY
JR NZ,LB9
LD A,(IDDL+1)
INC A
LD (IDDL+1),A
LD (IDDL2+1),A
LD H,#C0
JP BLUR
LIN
LD BC,#1F1C
CALL RNDSC
ADD A,#A0-8+20
CP #C0
RET NC
CP #A0
RET C
LD H,A
LD A,E
ADD A,#20
SRL A
IDDL ADD A,0
LD L,A
LD A,(HL)
CP #80
RET Z
LD HL,#C100
LD A,D
ADD A,20
ADD A,H
LD H,A
LD A,E
ADD A,#20
ADD A,L
LD L,A
LD A,E
LD B,#2C
BIT 7,A
JR Z,LO1P
INC B
NEG
LO1P
LD E,A
LD A,B
LD (LO1),A
LD (LO1E),A
LD A,D
LD B,#24
BIT 7,A
JR Z,LO2P
INC B
NEG
LO2P
LD D,A
ADD A,E
CP 2
RET C
LD A,B
LD (LO2),A
LD (LO2E),A
LD A,E
CP D
JR C,LIN2
LD A,E
SRL A
LD C,A
LN2 BIT 6,L
RET NZ
LD (HL),#87
LO1 INC L
LD A,C
ADD A,D
LD C,A
CP E
JP C,LN2
SUB E
LD C,A
LO2 INC H
LD A,H
SUB #C1
CP 38
RET NC
JP LN2
LIN2
LD A,D
SRL A
LD C,A
LN2E BIT 6,L
RET NZ
LD (HL),#87
LO2E INC L
LD A,H
SUB #C1
CP 38
RET NC
LD A,C
ADD A,E
LD C,A
CP D
JP C,LN2E
SUB D
LD C,A
LO1E INC L
LD A,C
JP LN2E
RND
PUSH HL
PUSH DE
LD HL,(RND1)
LD DE,(RND2)
DEC HL
RL H
ADC HL,DE
LD A,E
RND4 ADC A,0
LD E,A
LD A,D
ADC A,0
LD D,A
LD (RND2),DE
LD (RND1),HL
LD A,H
RLCA
SUB L
LD (RND4+1),A
XOR E
POP DE
POP HL
RET
RND1 DW #C9C9
RND2 DW #C9C9
OOO
LD DE,#C000
PUSH DE
LD L,E
LD H,L
XOS
RES 5,H
LD A,(HL)
INC HL
AND #0F
CP 2
JR C,XOS
OR #80
LD (DE),A
INC DE
LD A,D
AND A
JR NZ,XOS
POP DE
LD IX,TXT4
NOD5
LD L,(IX)
SET 7,L
LD H,7
ADD HL,HL
ADD HL,HL
ADD HL,HL
PUSH DE
NOD4
LD LY,8
NOD41
PUSH DE
LD A,(HL)
SRL A
OR (HL)
LD C,A
LD A,#80
LD B,8
NOD3
RR C
JR NC,NOD
DUP 4
LD (DE),A
INC E
EDUP
JR NOD2
NOD
DUP 4
INC E
EDUP
NOD2
DJNZ NOD3
POP DE
INC D
SET 7,D
SET 6,D
DEC LY
JR NZ,NOD41
INC L
LD A,L
AND 7
JR NZ,NOD4
POP DE
LD A,E
ADD A,8*4+2
LD E,A
INC IX
BIT 7,(IX)
JR Z,NOD5
LD B,6
WWOX2 LD HL,#C000
WWOX LD A,(HL)
INC HL
SET 7,H
SET 6,H
LD C,H
DEC H
SET 7,H
SET 6,H
ADD A,(HL)
INC L
LD H,C
ADD A,(HL)
DEC L
INC H
SET 7,H
SET 6,H
ADD A,(HL)
LD H,C
SRL A
SRL A
OR #80
LD (HL),A
LD A,L
AND A
JR NZ,WWOX
LD A,H
CP #C0
JR NZ,WWOX
DJNZ WWOX2
RET
GRAD DW #C9C9
BLOBS
LD A,(GRAD)
ADD A,4
LD (GRAD),A
LD D,SINSEG
LD E,A
LD HL,#0872
CALL SINQP
LD (ST1Q+1),A
LD A,L
LD (ST1+1),A
LD HL,#8291
CALL SINQP
LD (ST2Q+1),A
LD A,L
LD (ST2+1),A
LD A,E
ADD A,30
LD E,A
LD HL,#7218
CALL SINQP
LD (ST3Q+2),A
LD A,L
LD (ST3+2),A
BLOB
LD A,B
SRL A
SRL A
ADD A,#C0-#A-#2
LD D,A
LD A,B
AND 3
RRCA
RRCA
ADD A,C
LD E,A
ST2Q LD H,#26
ST1Q LD D,#16
ST3Q LD HX,#26
LD B,FREESEG
LD IY,#B000-#A00
LD A,38
BH2 EX AF,AF'
ST1 LD E,#1E
ST2 LD L,#2E
ST3 LD LX,#2E
CALL LESS
LD A,LY
ADD A,#3F
LD LY,A
INC IY
INC D
INC H
INC HX
EX AF,AF'
DEC A
JR NZ,BH2
RET
SINQP
LD A,E
ADD A,L
LD E,A
LD A,(DE)
ADD A,#80
SRL A
SRL A
LD L,A
LD A,E
ADD A,H
LD E,A
LD A,(DE)
ADD A,#80
SRL A
LD C,A
SRL A
ADD A,C
SRL A
SRL A
SRL A
ADD A,#B6
RET
BLOBSINL
LD A,#96
LD (BER1-1),A
CALL BLOBSIN
LD A,#AE
LD (BER1-1),A
RET
BLOBSIN
LD HL,#C000
LD DE,#C000-#A00
LD BC,#4000
LDIR
LD DE,#A600
CALL RD61
LD DE,LESS
XOR A
LW1
LD (BER1+2),A
LD (BER2+2),A
LD HL,BLUSKO
LD BC,BLUSKOE-BLUSKO
LDIR
INC A
CP #40
JR NZ,LW1
LD A,#C9
LD (DE),A
LD HL,FREESEG*256
LD A,#80
W5
LD (HL),A
INC L
LD (HL),A
INC L
INC A
CP #87
JR NZ,W5
W6
LD (HL),A
INC L
BIT 7,L
JR Z,W6
LD A,#80
W7
LD (HL),A
INC L
JR NZ,W7
RET
BLUSKO
LD A,(DE)
ADD A,(HL)
BER1 ADD A,(IX)
LD C,A
LD A,(BC)
BER2 LD (IY),A
INC E
INC L
BLUSKOE
BUMPINF
LD HL,#AE00
LD (HL),#80
CALL CLEAR
XOR A
LD (BLQ+1),A
LD HL,(FREESEG+1)*256
LD A,#87
LD B,20
W1A
LD (HL),A
INC L
DJNZ W1A
W2A
DUP 4
LD (HL),A
INC L
EDUP
DEC A
CP #80
JR NZ,W2A
W3A LD (HL),A
INC L
JR NZ,W3A
CALL BUMPE
LD HL,#F000
LD DE,66*54
KX1
CALL RND
AND #3F
LD (HL),A
INC HL
DEC DE
LD A,E
OR D
JR NZ,KX1
LD LY,2
CALL KX3
LD IX,TXT2
LD BC,66
LD DE,66*12+#F002
LD L,#3C
CALL PRINT
LD LY,2
KX3 LD IX,#F000
LD DE,66*54
KX2 LD A,(IX-1)
ADD A,(IX-66)
ADD A,(IX+1)
ADD A,(IX+66)
SRL A
SRL A
LD (IX),A
INC IX
DEC DE
LD A,D
OR E
JR NZ,KX2
DEC LY
JR NZ,KX3
RET
BUMPE
XOR A
LD (GRAD),A
LD HY,FREESEG+1
LD C,A
LD B,A
TN9E
PUSH BC
LD HL,FREESEG*256
LD D,H
LD E,L
LD HX,E
LD LY,C
TN5E
LD A,HX
LD (HL),A
ADD IX,BC
LD A,HX
NEG
DEC E
LD (DE),A
INC L
BIT 7,L
JR Z,TN5E
LD H,SINSEG
LD L,0
TN7E
LD C,L
LD E,(HL)
LD A,(DE)
ADD A,#40
CP #80
JR NC,TN6E
LD LX,A
LD A,L
ADD A,64
LD L,A
LD E,(HL)
LD A,(DE)
ADD A,#28
CP #50
JR NC,TN6E
ADD A,#B0
LD HX,A
LD A,L
ADD A,A
BLQ LD LY,A
LD A,(IY)
LD (IX),A
TN6E LD L,C
INC L
JR NZ,TN7E
TN8E LD HL,20
POP BC
INC C
LD A,C
SKOL CP 100
JR C,TN9E
STP DB #C9,#02
BE3 LD H,#B0
LD C,#50
BE2 LD L,#FF
LD A,1
LD B,128
BE1 INC L
DEC H
ADD A,(HL)
INC L
INC H
ADD A,(HL)
DEC L
INC H
ADD A,(HL)
DEC H
INC A
SRL A
SRL A
LD (HL),A
DJNZ BE1
INC H
DEC C
JR NZ,BE2
DEC D
JR NZ,BE3
RET
SCALEIN
LD DE,#B000-#A00
CALL RD61
LD DE,LESS
LD A,64
SC1
LD HL,SUSKO
LD BC,SUSKOE-SUSKO
LDIR
DEC A
JR NZ,SC1
LD A,#C9
LD (DE),A
RET
SCALE
LD HL,GRAD
INC (HL)
INC (HL)
LD E,(HL)
LD D,SINSEG
LD A,(DE)
ADD A,#80
LD L,A
LD H,0
LD BC,-128
ADD HL,BC
ADD HL,HL
ADD HL,HL
LD (FIV+1),HL
LD A,E
ADD A,34
LD E,A
LD A,(DE)
ADD A,#80
LD L,A
LD H,0
LD BC,-128
ADD HL,BC
ADD HL,HL
ADD HL,HL
LD (FIV2+1),HL
LD HL,#B000-#A00
LD C,#C0
EXX
FCH LD HL,#2121
FCH2 LD IX,#4021
FIV LD BC,#0101
FIV2 LD DE,#1111
LD LY,38
SC2
PUSH HL
PUSH IX
CALL LESS
POP IX
POP HL
ADD IX,BC
OR A
SBC HL,DE
DEC DE
DEC DE
DEC DE
DEC LY
JR NZ,SC2
LD HL,(FCH+1)
ADD HL,DE
LD (FCH+1),HL
LD HL,(FCH2+2)
ADD HL,BC
ADD HL,BC
LD (FCH2+2),HL
RET
SUSKO
ADD HL,BC
ADD IX,DE
LD A,H
EXX
OR C
LD D,A
LD E,HX
LD A,(DE)
LD (HL),A
INC HL
EXX
SUSKOE
WATERIN
LD HL,#A000
PUSH HL
LD (HL),L
CALL CLEAR
LD DE,LESS
XOR A
WT0
LD (SOS+2),A
LD HL,WUSKO
LD BC,WUSKOE-WUSKO
LDIR
INC A
CP #40
JR NZ,WT0
LD A,#C9
LD (DE),A
LD HL,FREESEG*256
XOR A
LD (HL),A
INC L
WT1
LD (HL),A
INC L
INC A
CP #3F
JR NZ,WT1
WT2 LD (HL),#3F
INC L
LD A,L
CP #80+#20
JR NZ,WT2
WT3 LD (HL),#00
INC L
JR NZ,WT3
INC H
LD A,#80
WT4
LD B,8
LD (HL),A
INC L
DJNZ $-2
INC A
CP #89
JR NZ,WT4
POP DE
JP RD61
WATER
HALT
LD H,#FF-#27-2
LD D,#AB
LD IX,#A000
LD B,FREESEG
LD LY,38
EED
LD L,-1
LD E,0
CALL LESS
LD A,LX
ADD A,63
LD LX,A
INC IX
INC H
INC D
DEC LY
JR NZ,EED
LD A,(WATER+1)
LD C,A
LD A,(WATER+3)
LD (WATER+1),A
LD A,C
LD (WATER+3),A
RET
WUSKO
LD A,(HL)
INC L
DEC H
ADD A,(HL)
INC H
INC L
ADD A,(HL)
INC H
DEC L
ADD A,(HL)
SRL A
DEC H
EX DE,HL
SUB (HL)
LD C,A
LD A,(BC)
LD (HL),A
INC B
LD C,A
LD A,(BC)
DEC B
SOS LD (IX),A
INC L
EX DE,HL
WUSKOE
BLURIN
CALL RD64
LD HL,#B000
LD (HL),#80
CALL CLEAR
LD HL,FREESEG*256
BL1
LD A,L
INC A
SRL A
SRL A
OR #80
LD (HL),A
INC L
JR NZ,BL1
LD DE,LESS
LD A,64
BL2
LD HL,BUSKO
LD BC,BUSKOE-BUSKO
LDIR
DEC A
JR NZ,BL2
LD A,#C9
LD (DE),A
RET
BLUR
LD B,FREESEG
LD A,39
EEE EX AF,AF'
LD L,#FF
LD A,#80
CALL LESS
INC H
EX AF,AF'
DEC A
JR NZ,EEE
RET
BUSKO
INC L
DEC H
ADD A,(HL)
INC H
INC L
ADD A,(HL)
INC H
DEC L
ADD A,(HL)
LD C,A
LD A,(BC)
DEC H
LD (HL),A
BUSKOE
START
HALT
DI
LD A,SCRSEG
EOP LD (SCSG+2),A
LD A,(SL5)
XOR #14
LD (SL5),A
LD HL,0
LD (SL4),HL
LD HL,BUF1
LD A,38
CALL SLOP
LD HL,#1414
LD (SL4),HL
LD HL,64+BUF1
LD A,38
CALL SLOP
EI
RET
SLOP
LD (SPL+1),SP
JP TXTSWSEG*256
CONT
SCSG LD SP,SCRSEG*256
JR SL2
SL1 LD SP,0
SL2 POP HL
POP DE
LD (SL1+1),SP
SL5 NOP
SL4 NOP
NOP
LD SP,HL
DUP 32
POP HL
LDI
EDUP
DEC A
JP NZ,SL1
SPL LD SP,#3131
RET
RDSC
LD HL,SCRSEG*256+2
LD DE,#4040
CALL SW0
LD DE,#4440
SW0 LD B,19
SW2
LD (HL),E
INC L
LD (HL),D
INC L
INC L
INC L
LD A,E
ADD A,#20
LD E,A
JR NC,SW1
LD A,D
ADD A,8
LD D,A
SW1 DJNZ SW2
RET
RD61 LD BC,64
JR RD66
RD64
LD DE,#C100
RD60
RD65
LD BC,256
RD66 PUSH DE
LD HL,SCRSEG*256
CALL SQ0
POP DE
EX DE,HL
ADD HL,BC
EX DE,HL
SQ0 LD A,19
SQ1 LD (HL),E
INC L
LD (HL),D
INC L
INC L
INC L
EX DE,HL
ADD HL,BC
ADD HL,BC
EX DE,HL
DEC A
JR NZ,SQ1
RET
IMON
LD HL,#6000
LD A,#61
IL1 LD (HL),A
INC L
JR NZ,IL1
INC H
LD (HL),A
LD H,A
LD L,A
LD (HL),#C3
INC L
LD (HL),low IMPROC
INC L
LD (HL),high IMPROC
DEC A
LD I,A
IM 2
EI
RET
IMPROC
PUSH AF
PUSH HL
PUSH DE
PUSH BC
PLAY OR A
JP NC,POL
DDD LD A,5
INC A
LD (DDD+1),A
CP 6
JR NZ,DDD2
XOR A
LD (DDD+1),A
LD A,(POSITION)
LD E,A
LD D,0
LD HL,POSIT
ADD HL,DE
LD A,(HL)
LD L,A
LD H,0
DUP 5
ADD HL,HL
EDUP
LD DE,PATTERNS
ADD HL,DE
LD A,(NOTE)
LD C,A
LD B,A
SRL A
LD E,A
LD D,0
ADD HL,DE
LD A,(HL)
RR C
JR C,$+6
DUP 4
RLCA
EDUP
AND #0F
JR Z,NXU
DEC A
ADD A,A
ADD A,low STABLE
LD L,A
LD A,high STABLE
ADC A,0
LD H,A
LD E,(HL)
INC HL
LD D,(HL)
LD (SAMP),DE
NXU
LD A,B
INC A
CP 64
JR NZ,DDD4
LD HL,POSITION
INC (HL)
XOR A
DDD4
LD (NOTE),A
DDD2
LD HL,(SAMP)
LD A,(HL)
INC A
JR Z,POL
DEC A
LD E,2
CALL RESS
LD A,(HL)
INC E
CALL RESS
LD A,(HL)
LD E,6
CALL RESS
LD A,(HL)
BIT 7,A
LD C,0
JR Z,$+4
LD C,16
BIT 6,A
LD A,C
JR Z,$+4
OR 2
OR 40
INC E
CALL RESS
DEC HL
INC E
INC E
LD A,(HL)
AND #1F
CALL RESS
LD (SAMP),HL
POL POP BC
POP DE
POP HL
POP AF
EI
RET
NACT
LD E,0
NC1 LD A,(HL)
CALL RESS
INC E
LD A,E
CP 14
JR NZ,NC1
RET
RESS
LD BC,#FFFD
OUT (C),E
LD B,#BF
OUT (C),A
INC HL
RET
TXTSWR
LD HL,TXTSWSEG*256
LD (HL),#F9
INC HL
LD C,#80
TU2
LD A,#80
TU1 LD (HL),#E1
INC HL
LD (HL),#22
INC HL
LD (HL),A
INC HL
LD (HL),C
INC HL
ADD A,2
CP #88
JR NZ,TU1
INC C
LD A,C
CP #88
JR NZ,TU2
LD (HL),#C3
INC HL
LD (HL),low CONT
INC HL
LD (HL),high CONT
RET
TXTREA
LD IX,BUF1
LD HL,TXTU
CALL TZ0
TZ0 LD (TZ2+1),HL
LD LY,8
TZ2
LD DE,0
LD B,8
TZ1
LD A,(DE)
AND #F0
LD C,A
LD A,(HL)
AND #0F
OR C
LD (IX),A
INC IX
INC DE
DJNZ TZ1
INC HL
DEC LY
JR NZ,TZ2
RET
SINDEC
LD HL,SINN
LD DE,SINSEG*256
LD BC,64
LDIR
LD H,D
LD L,E
SN1 DEC E
LD A,(DE)
LD (HL),A
INC L
LD A,L
CP 128
JR C,SN1
LD E,C
SN2 LD A,(DE)
NEG
LD (HL),A
INC E
INC L
JR NZ,SN2
RET
LINESIN
CALL BLURIN
LD HL,#A000
PUSH HL
LD (HL),#80
CALL CLEAR
POP DE
LD IX,TXT1
LD L,#87
INC B
PRINT
LD (SCK+1),BC
LD A,L
LD (TI3-1),A
PRIN2
LD A,(IX)
INC IX
AND A
RET Z
PUSH DE
LD L,A
SET 7,L
LD H,7
ADD HL,HL
ADD HL,HL
ADD HL,HL
LD LY,32
TI2
PUSH DE
LD B,8
LD C,(HL)
LD A,C
RRCA
OR C
LD C,A
TI1 RL C
TI6 LD A,#00
JR NC,TI3+1
LD A,#3F
TI3 LD (DE),A
INC DE
DJNZ TI1
LD A,LY
AND 3
JR NZ,OOWW
INC L
OOWW POP DE
EX DE,HL
SCK LD BC,#0101
ADD HL,BC
EX DE,HL
DEC LY
JR NZ,TI2
POP DE
DUP 9
INC DE
EDUP
JR PRIN2
VECTORS
DB -20,10,1,-20
DB 1,-20,20,10
DB 30,10,60,10
DB 60,10,60,-20
DB 60,-20,30,-20
DB 30,-20,30,10
DB 70,10,100,10
DB 85,10,85,-20
DB 110,10,135,10
DB 110,0,130,0
DB 110,-20,135,-20
DB 110,10,110,-20
DB 145,-20,145,-20
DB 145,10,145,-15
DB 0
SAMP DW #C9C9
NACH DB 190,3,0,0,124,7,0,40,31,0,31,120,0,8
STOPP DB 0,0,0,0,0,0,0,#FF,0,0,0
POSITION DB 0
NOTE DB 0
POSIT
DUP 2
DB 0,1,1,1,1,2,3,1,1,1,1
EDUP
DB 0,1,1,1,1,2,3,1,1,1,2
STABLE DW S4L,S5L,S6L,SBL
INCLUDE "samples.asm"
TFT1 DB "GREETZ",0
TFT15 DB "TO",0
TFT2 DB "PSYCHO",0
TFT3 DB "AMD",0
TFT4 DB "ACL",0
TFT5 DB "OB",0
TFT6 DB "RUSH",0
TFT7 DB "AND YOU",0
TXT3 DB "FENOMEN",0
DB "PRESENT",0
DB "4kINTRO",0
DB " NAMED",0,0
TXT2 DB " FROST",0
TXT6 DB " FOR",0,0
TXT4 DB "NEM0NEF",#80
TEXT DW TXT5
TXT5
DB "FOR.US "
TXT1 DB " MILLENNIUM "
TXT7 DB " C0DEX:",0
DB "MadRain",0,0
TXTEND DB "THE END",0,0
BUF1
LESS EQU BUF1+90+90
LEN EQU $-STARTF
TXTE1 EQU LESS+#400
;save snapshot of intro
SAVESNA "frost10.sna",STARTF