ORG #5204

pp:
LD (HL),A : INC H : INC L
LD (HL),A : INC H : INC L
LD (HL),A : DEC L
LD (HL),A : DEC L
LD (HL),A : DEC H : DEC H
RET

start:
LD HL,pp : LD (#29),HL

LD A,#2A
ADD HL,BC : RST #28
ADD HL,HL : LD (HL),A
INC H : INC L : LD (HL),A
INC H : INC L : RST #28
LD L,5 : RST #28
LD L,2 : RST #28
LD HL,#0A01 : LD (HL),A

LD D,H : LD B,D
my: LD C,D : mx:
	LD A,C : CP A,B : LD A,(BC) : JR NC,$+5
		LD H,C : LD L,B : LD (HL),A
	LD H,D : LD L,D : ADD HL,HL : SBC HL,BC
	LD (HL),A
	PUSH HL : LD H,B : LD (HL),A : POP HL
	LD L,C : LD (HL),A
DEC C : JR NZ,mx : DJNZ my

LD B,H
ty: LD C,H : tx:
	LD (#B726),BC : LD A,(BC) : CALL #BB5A
DEC C : JR NZ,tx : DJNZ ty

JR $

s EQU $-pp
PRINT 'SAVE"snow.bin",B,&pp,&s,&start'
