;****************************************************************************
;** LEVEL 9 STUFF (DATA , SPRITES AND PROGRAMMING) **
;****************************************************************************
; IF STARTLEV=9
PHASE LEVELDATA
LEVEL9DATA DB $A0,$60+FLOROF ; HERO X,Y
DB $8C ; MAPX
DB $10 ; MAPY
DB 0 ; 0=SCROLL L/R - l=SCROLL U/D
DB $FF,$FF ; WEAPON ROOM X,Y INIT
DW $0000 ; DOOR XY
DB $E6, $00 ; RIGHTMAX,DOWNMAX
DB $FF,$FF ; SETUD,SETLR
DW FLOOR9 ; FLOOR BLOCKS
DW WALL9 ; WALL BLOCKS
DB $FF,$FF ; LADDER BLOCKS - $FF,$FF - $FF,$FF
DB $6E ; CRAWL ON BLOCK
DB $FF,$FF ; SLIDE UP
DB $FF,$FF ; SLIDE DOWN
DW LEV9BADX,LEV9BADX2 ; LEVEL BADDY INITS X,EXTRA X
DW LEV9BADY ; LEVEL BADDY INITS Y
DW L9CHRS ; CHRS
DW L9ATRS ; ATRS
DW L9BLOX ; BLOX
DW L9MAPX ; MAPX
DW L9MAPY ; MAPY
DB 96 ; MAPXMAXSIZE
CALL PRTBRAIN:CALL PRTFACES:CALL PRTSTARS:RET
JP RESETLEV9BAD
JP SMODFACES
WAPTABLE9 DB $00,0,$00,0,$00,0,$00,0,$00,0,$00,0
JP KILLBRAIN ; KILL BIG
JP INITBRAIN ; INIT BIG 1
JP INITFACES ; INIT BIG 2
JP RETURN ; INIT BIG 3
JP RETURN ; INIT BIG 4
;***************************************
RESETLEV9BAD XOR A:LD (ISBIGON),A:LD (PRTBRAIN+1),A
LD (PRTSTARS+1),A
LD (PRTFACES+1),A
LD HL,WORMDATA:LD DE,WORMDATA+1:LD BC,NOWORMS*WORMLEN-1
LD (HL),A:LDIR
LD HL,FACEXYS:LD DE,FACEXYS+1:LD BC,NOFACES*5-1
LD (HL),A:LDIR
RET
;***************************************
FLOOR9 DB 1+3+1
DB #01
DB #09,#00,#03
DB #6E
WALL9 DB 2+1+1
DB #08,#07
DB #13
DB #02
;***************************************
LEV9BADX DB $FF,$FF ; END OF DATA
LEV9BADY DB $FF,$FF ; END OF DATA
LEV9BADX2 DB $70,$FE ; FACES
DB $6A,$FE ; FACES
DB $64,$FE ; FACES
DB $5E,$FE ; FACES
DB $58,$FE ; FACES
DB $52,$FE ; FACES
DB $4C,$FE ; FACES
DB $46,$FE ; FACES
DB $40,$FE ; FACES
DB $3A,$FE ; FACES
DB $34,$FE ; FACES
DB $00,$FF ; BRAIN
DB $FF,$FF ; END OF DATA
;***************************************
INITBRAIN XOR A:LD (PRTFACES+1),A
INC A:LD (PRTBRAIN+1),A:LD (ISBIGON),A
LD A,4:LD (BRAIND+1),A
LD DE,$0000:LD (BRAINX+1),DE
LD A,$40:LD (BIGHITS),A
LD A,31:LD (DZSB+1),A
LD A,6:JP PLAYMUSIC
BIGBRAIN LD DE,(BRAINX+1):LD D,$28
LD A,(BRAIND+1):ADD A,E
CP $00:JR Z,DOSB:CP $70:JR NZ,NOSB
DOSB LD A,(BRAIND+1):NEG :LD (BRAIND+1),A:LD A,E
NOSB LD E,A:LD (BRAINX+1),A
LD A,(WORMCNT+1):INC A:LD (WORMCNT+1),A:CP 4
JR C,NTWRM:XOR A:LD (WORMCNT+1),A
PUSH DE:LD A,E:ADD A,$10:AND $F8:LD E,A:LD D,$38
CALL INITWORM:POP DE
NTWRM LD L,E:LD H,$2F:LD (BIGX1),HL
LD HL,$1F20:LD (BIGY1),HL
LD HL,BIGBRAINSPR:JP BAXITA
DZSB LD A,23:DEC A:LD (DZSB+1),A:JP Z,DOSWB
CP 7: JP C,NOTWRM
AND 3:CALL Z,INITBRAYN:JP NOTWRM
PRTBRAIN LD A,1:OR A:RET Z
CP $01:JR Z,BRAINX
CP $20:JP Z,ALLBRAN
CP $20+1:JP Z,BIGBRAIN
CP $41:JP Z,SEQUENCE
INC A:LD (PRTBRAIN+1),A
LD DE,(BRAINX+1)
CP $20:PUSH AF:CALL C,PHEAD:POP AF:CALL NC,PBRAN
CALL RAND:LD DE,(BIGX1):LD A,(BIGY1):LD D,A
LD A,(RND1):AND $3F:ADD A,E:LD E,A
LD A,(RND2):AND $3F:ADD A,D:LD D,A
JP INITEXP
PBRAN LD D,$28:LD HL,BIGBRAINSPR: JP BAXITA
PHEAD PUSH DE:LD A,E:ADD A,$18:LD E,A:LD A,D
GOBY ADD A,$40:LD D,A:LD HL,BRAIN2:CALL BAXITA:POP DE
PUSH DE:LD HL,BRAIN1:CALL BAXITA:POP DE
PUSH DE:LD A,E:ADD A,$10:LD E,A:LD A,D:ADD A,$40
LD D,A:LD HL,BRAIN3:LD BC,$0308:CALL MASKCXB:POP DE
RET
BRAINX LD DE,$0000:LD A,E
BRAIND ADD A,$04:JP Z,DZSB:CP $70:JR NZ,NOSWB
DOSWB LD A,(BRAIND+1):NEG :LD (BRAIND+1),A:LD A,E
NOSWB LD E,A:LD (BRAINX+1),A
WORMCNT LD A,0:INC A:LD (WORMCNT+1),A:CP 7:JR C,NOTWRM
XOR A:LD (WORMCNT+1),A
PUSH DE:LD A,E:ADD A,$40:AND $F8:LD E,A:LD D,$40
CALL INITWORM:POP DE:LD A,23:LD (DZSB+1),A
NOTWRM
CALL PHEAD
LD A,(DZSB+1):CP 23:LD A,0:JR NZ,EDSZ
LD A,(POS)
EDSZ RRA:AND 7:LD C,A:LD B,0:LD HL,GOBYS
ADD HL,BC:LD A,(HL):LD (GOBY+1),A
LD L,D:ADD A,$2F:LD H,A:LD (BIGY1),HL
LD L,E:LD H,$47:LD (BIGX1),HL:RET
GOBYS DB #40,#38,#30,#28,#28,#30,#38,#40
ALLBRAN INC A:LD (PRTBRAIN+1),A
LD A,$20:LD (BIGHITS),A:LD A,1:LD (ISBIGON),A
JP BIGBRAIN
KILLBRAIN XOR A:LD (ISBIGON),A
LD A,(PRTBRAIN+1):INC A:LD (PRTBRAIN+1),A:RET
SEQUENCE XOR A:LD (PRTBRAIN+1),A:CALL SETUPDOWN:LD DE,$0F00
UPDATL0P3 PUSH DE:CALL UPDATEY:POP DE:DEC D:JP P,UPDATL0P3
LD DE,$6818:LD (HEROX+1),DE:LD D,$58:LD (GUNX+1),DE
LD A,18:LD (HEROP+1),A:LD A,2:LD (GUNDIR+1),A
CALL RESETBAD:LD HL,0:LD (PRTBARRIER+1),HL
LD A,5:CALL PLAYMUSIC
CARRYRIGHT LD A,(HEROP+1):INC A:AND 3:ADD A,16:LD (HEROP+1),A
CALL DOALLBACKBITS:LD A,(HEROX+1):ADD A,8:LD (HEROX+1),A
LD (GUNX+1),A:CP $B8:JR C,CARRYRIGHT
LD A,8:LD (GUNDIR+1),A
CARRYUP LD A,(HEROP+1):DEC A:AND 3:ADD A,48:LD (HEROP+1),A
CALL DOALLBACKBITS:LD A,(HEROX+2):SUB 8:LD (HEROX+2),A
SUB $10:LD (GUNX+2),A:CP $D0:JR NZ,CARRYUP
LD A,$E8:LD (HEROX+1),A:LD (GUNX+1),A
LD B,16
CARRYUP2 PUSH BC:CALL SCROLLUP:POP BC:PUSH BC
LD A,B:CP 15:JR NC,NOTYETOK:CP 15-4:JR C,NOTYETOK
LD HL,PEOPLETAB:LD A,(SAVORS):LD C,A:LD B,6
SKPLP RR C:JR C,SKPY:LD DE,BACKATR2
LD A,(HL):ADD A,E:LD E,A:ADC A,D:SUB E:LD D,A
PUSH BC:INC HL:LD B,(HL):DEC HL:LD A,#76
SKPAS LD (DE),A:INC DE:DJNZ SKPAS:POP BC
SKPY INC HL:INC HL:DJNZ SKPLP
NOTYETOK CALL DOALLBACKBITS:POP BC:DJNZ CARRYUP2
LD A,1:LD (PRTSTARS+1),A
LD HL,STARXYS:LD DE,STARSXY:LD B,6
LD A,(SAVORS):LD C,A
SAVBLP LD (HL),0:INC HL:LD (HL),$40-4:DEC HL
RR C:JR C,NASTAR
LD A,(DE):LD (HL),A:INC HL:INC DE
LD A,(DE):LD (HL),A:DEC HL:DEC DE
NASTAR INC HL:INC DE:INC HL:INC DE:DJNZ SAVBLP
LD B,128
FLYINGSTAR PUSH BC:CALL DOALLBACKBITS:POP BC:DJNZ FLYINGSTAR
LD B,250:CALL BFLY
LD B,250:CALL BFLY
LD A,NXTLEV:LD (RETMODE),A:RET
PRTSTARS LD A,0:OR A:RET Z
LD IX,STARXYS:LD B,6
PRTSTARBLP LD A,(IX+00):SUB 4:LD (IX+00),A:LD E,A
LD A,(IX+01):ADD A,4:LD (IX+01),A
CP $B4:JR Z,NZZT:CP $48:JR C,NARTY
JP M,NARTY
NZZT LD A,$B0:LD (IX+01),A
NARTY LD D,A:INC IX:INC IX:RES 2,D:PUSH BC
LD A,(POS):AND 1:LD HL,STAR1:JR Z,FMRADIO:LD HL,STAR2
FMRADIO LD A,D:CP $70:LD BC,$0208:CALL C,MASKCXB
POP BC:DJNZ PRTSTARBLP:RET
STARXYS DS 6*2,0
STARSXY DW $D8B8,$D0E0
DW $E8C8,$E0F0
DW $F8D8,$F000
PEOPLETAB
DB 19,2 ; DAD
DB 17,2 ; MUM
DB 05,2 ; SIS
DB 04,1 ; BRO
DB 11,4 ; GRD
DB 01,2 ; GRN
BRAIN1 DB 10,8*8
DB #00,#00,#07,#07,#C3,#E0,#F1,#C0,#00,#00,#00,#00,#30,#0E,#1B,#3C
DB #A8,#08,#00,#00,#00,#00,#13,#51,#00,#E4,#60,#C8,#00,#00,#00,#80
DB #F7,#E3,#C9,#A8,#03,#67,#00,#00,#00,#0F,#86,#A7,#51,#B3,#CF,#F0
DB #40,#00,#00,#A0,#C7,#9F,#B3,#F1,#CE,#26,#10,#00,#00,#23,#85,#C5
DB #F1,#73,#3F,#8F,#D0,#00,#00,#10,#3C,#1F,#67,#E0,#81,#41,#27,#00
DB #00,#24,#49,#18,#A6,#E7,#8E,#73,#C8,#00,#00,#F6,#EB,#C0,#C3,#46
DB #99,#4C,#40,#00,#00,#43,#0D,#3A,#8D,#99,#E1,#D7,#F9,#00,#80,#FC
DB #CF,#07,#9C,#1D,#35,#4C,#67,#00,#00,#87,#26,#32,#9B,#3F,#1F,#97
DB #FD,#40,#40,#FE,#8F,#7F,#7E,#3A,#75,#86,#A3,#00,#01,#51,#42,#72
DB #74,#C6,#7F,#97,#FE,#A0,#A0,#FE,#8B,#23,#98,#69,#11,#00,#20,#01
DB #01,#0F,#FF,#00,#C1,#33,#19,#C7,#FE,#A0,#A0,#FE,#CB,#BD,#67,#D8
DB #C0,#FF,#BF,#00,#01,#70,#01,#E2,#BC,#CF,#BC,#C5,#F5,#A0,#D0,#A9
DB #62,#DC,#CF,#B9,#D1,#FE,#EF,#02,#05,#D0,#01,#01,#73,#87,#80,#60
DB #53,#D0,#D0,#20,#2F,#03,#40,#67,#80,#AA,#A2,#05,#0B,#44,#41,#4A
DB #66,#62,#FF,#87,#87,#20,#A0,#CF,#E3,#7F,#05,#66,#A7,#0E,#40,#0B
DB #0A,#91,#97,#27,#B3,#3A,#FF,#F2,#9F,#D0,#D0,#3F,#F1,#FF,#F1,#BB
DB #27,#D3,#8A,#08,#0A,#83,#DB,#23,#D3,#0A,#FF,#E6,#28,#A0,#40,#17
DB #E7,#7F,#55,#C6,#23,#9B,#A9,#08,#12,#54,#0E,#25,#CD,#20,#03,#E7
DB #01,#A0,#60,#9E,#CB,#FC,#81,#1B,#A6,#A0,#4A,#21,#42,#25,#55,#4F
DB #16,#47,#03,#17,#A1,#A0,#40,#0A,#BF,#A9,#C8,#35,#9F,#00,#10,#41
DB #88,#8F,#FF,#3E,#2B,#95,#74,#59,#95,#20,#90,#AF,#4D,#FE,#AB,#AB
DB #6C,#00,#40,#84,#92,#14,#00,#11,#DB,#1F,#FF,#1E,#5F,#D0,#E8,#7F
DB #2F,#FF,#3F,#D7,#0B,#00,#00,#8D,#96,#81,#00,#C1,#B6,#5F,#F3,#9F
DB #7E,#48,#08,#BC,#4F,#E1,#BF,#B4,#E2,#42,#D0,#4F,#97,#E8,#25,#71
DB #2A,#2F,#E5,#57,#AC,#90,#10,#96,#5B,#F2,#DA,#14,#B8,#12,#F4,#8A
DB #85,#3A,#09,#51,#30,#25,#50,#9B,#CB,#60,#A0,#D0,#2F,#A3,#D8,#41
DB #83,#04,#5D,#40,#40,#2E,#80,#07,#12,#E7,#0C,#57,#E7,#10,#48,#C0
DB #7F,#F3,#F8,#11,#0E,#41,#17,#20,#10,#03,#A0,#04,#92,#FB,#0E,#1F
DB #F2,#B4,#F4,#F9,#0F,#FD,#F5,#39,#70,#D1,#51,#25,#2A,#8A,#E0,#19
DB #1B,#0B,#FE,#6F,#FA,#FA,#FA,#F9,#BF,#FC,#17,#32,#69,#61,#41,#47
DB #4E,#98,#82,#C2,#72,#0B,#F8,#79,#FA,#FA,#F4,#F1,#B2,#FC,#97,#26
DB #A2,#09,#1C,#57,#8E,#B8,#17,#56,#65,#CA,#E8,#61,#E2,#F4,#68,#18
DB #18,#46,#A5,#E5,#86,#2E,#00,#95,#8E,#00,#9D,#04,#CD,#50,#3E,#96
DB #DA,#10,#E0,#ED,#B6,#FD,#E9,#4D,#0C,#4A,#0A,#84,#8C,#55,#A4,#0C
DB #CB,#92,#FB,#B7,#6D,#00,#00,#6D,#BB,#E3,#65,#CA,#14,#DA,#AB,#96
DB #8F,#7E,#80,#19,#99,#8B,#D9,#62,#5D,#00,#00,#0A,#08,#08,#05,#96
DB #28,#0E,#FD,#97,#8B,#EA,#31,#39,#88,#80,#02,#2C,#82,#00,#00,#CD
DB #76,#27,#10,#10,#E9,#24,#50,#45,#42,#A0,#4E,#D0,#E0,#00,#07,#76
DB #CD,#00,#00,#D9,#36,#03,#F0,#C2,#E7,#57,#07,#20,#18,#19,#0E,#EB
DB #C8,#0E,#06,#6D,#92,#00,#00,#0C,#00,#80,#00,#C0,#0F,#27,#E1,#07
DB #45,#45,#45,#45,#45,#06,#46,#46,#46,#46
DB #47,#47,#47,#4F,#47,#06,#46,#4E,#46,#46
DB #45,#45,#45,#4F,#06,#46,#46,#4E,#46,#46
DB #45,#4F,#0F,#07,#05,#06,#46,#46,#46,#46
DB #4D,#45,#05,#05,#06,#47,#47,#46,#47,#47
DB #45,#4D,#45,#05,#06,#06,#46,#46,#46,#46
DB #05,#05,#4D,#06,#06,#06,#46,#46,#46,#46
DB #45,#45,#06,#06,#06,#06,#47,#47,#47,#47
BRAIN2 DB 6,6*8
DB #8F,#00,#00,#41,#00,#50,#D0,#80,#20,#48,#E0,#C6,#40,#62,#02,#20
DB #81,#A0,#A0,#41,#20,#00,#30,#23,#B7,#B0,#01,#10,#43,#40,#80,#46
DB #10,#90,#98,#59,#54,#59,#00,#90,#86,#80,#00,#8D,#10,#08,#18,#AA
DB #A5,#30,#00,#20,#8D,#00,#00,#0D,#21,#01,#70,#92,#88,#E0,#10,#21
DB #0D,#00,#00,#2D,#42,#00,#80,#41,#3E,#00,#44,#8A,#06,#80,#80,#46
DB #14,#01,#00,#00,#13,#00,#10,#4A,#13,#40,#40,#82,#04,#00,#00,#13
DB #13,#0F,#03,#C0,#20,#40,#C0,#80,#22,#C4,#10,#12,#26,#20,#28,#14
DB #43,#40,#A0,#02,#92,#12,#05,#27,#4F,#0A,#85,#48,#51,#D0,#A8,#20
DB #A4,#4B,#97,#9B,#91,#8F,#87,#D0,#04,#08,#04,#00,#F8,#CB,#D7,#84
DB #61,#80,#A5,#01,#34,#1A,#CD,#76,#03,#D3,#C0,#4B,#99,#E0,#E9,#07
DB #6E,#6D,#DA,#2E,#07,#F5,#F0,#89,#9C,#F0,#E8,#06,#84,#82,#2A,#00
DB #02,#F6,#78,#8C,#9E,#3C,#FD,#30,#BC,#ED,#DD,#9E,#69,#7F,#3E,#8F
DB #97,#9F,#A6,#F1,#DA,#D9,#13,#C8,#F8,#4A,#C7,#4B,#47,#E3,#A6,#7C
DB #47,#87,#EF,#8E,#3B,#EF,#83,#23,#25,#79,#EF,#1B,#DF,#7E,#7C,#EF
DB #8F,#47,#FC,#12,#11,#FC,#83,#43,#6D,#55,#29,#BA,#A0,#22,#FE,#08
DB #09,#7E,#74,#3C,#10,#01,#82,#01,#DE,#61,#AE,#08,#09,#54,#03,#EF
DB #63,#C4,#D8,#7B,#EF,#63,#A8,#04,#02,#50,#E3,#C6,#1D,#D0,#90,#E8
DB #10,#C5,#01,#01,#00,#84,#1A,#0F,#10,#20,#C0,#0F,#F0,#E1,#7B,#00
DB #06,#06,#46,#46,#46,#46
DB #06,#06,#46,#46,#46,#46
DB #06,#42,#42,#02,#07,#47
DB #45,#55,#42,#57,#47,#47
DB #45,#45,#06,#46,#46,#46
DB #05,#05,#06,#06,#46,#46
BRAIN3
DB #00,#83,#00,#8F,#1F,#00,#0F,#E0,#00,#C6,#00,#91,#00,#46,#00,#40
DB #0F,#60,#07,#30,#00,#23,#80,#21,#C0,#1E,#00,#B7,#07,#B0,#03,#98
DB #00,#59,#E1,#00,#FF,#00,#00,#54,#03,#58,#03,#18,#00,#AA,#FE,#00
DB #FE,#00,#00,#A5,#07,#30,#07,#70,#00,#92,#FE,#00,#FE,#00,#00,#88
DB #0F,#E0,#1F,#80,#00,#41,#FF,#00,#FF,#00,#80,#3E,#7F,#00,#FF,#00
DB #C1,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
BIGBRAINSPR DB 6,4*8
DB #0C,#00,#03,#DD,#E0,#00,#00,#1B,#22,#EC,#C0,#12,#29,#21,#11,#C4
DB #64,#80,#40,#39,#F3,#E7,#16,#5C,#9C,#99,#C7,#19,#9B,#A0,#20,#D7
DB #48,#12,#C3,#89,#43,#96,#38,#CC,#C6,#20,#D0,#41,#E3,#87,#B2,#23
DB #17,#23,#2B,#9B,#1B,#10,#CC,#3C,#6C,#5C,#88,#22,#20,#DC,#0E,#6E
DB #7E,#A2,#8D,#7E,#36,#A7,#50,#24,#41,#20,#53,#34,#6E,#DD,#F9,#6E
DB #32,#7B,#40,#93,#93,#40,#7B,#1F,#27,#62,#99,#33,#1F,#5B,#40,#8B
DB #45,#A0,#A6,#3C,#70,#7D,#9D,#E3,#91,#0E,#D0,#21,#18,#EE,#15,#C5
DB #C7,#E9,#E2,#27,#CE,#0B,#EF,#20,#44,#64,#83,#9D,#33,#72,#A4,#61
DB #9A,#79,#2B,#8A,#8D,#14,#84,#3A,#63,#84,#48,#77,#77,#3A,#83,#86
DB #43,#43,#9C,#76,#7E,#10,#60,#3C,#36,#EC,#81,#21,#10,#38,#6C,#9B
DB #11,#80,#00,#82,#9B,#09,#C0,#21,#4E,#00,#23,#9D,#CC,#00,#00,#30
DB #CE,#C0,#06,#40,#20,#39,#1F,#00,#C0,#00,#00,#00,#FF,#E0,#C0,#1F
DB #45,#06,#06,#46,#46,#06
DB #06,#06,#45,#46,#46,#46
DB #45,#06,#06,#06,#46,#46
DB #45,#45,#06,#06,#06,#06
;********************************************
INITBRAYN PUSH DE :LD IX,WORMDATA:LD DE,WORMLEN:LD B,NOWORMS
INITBRAYNBLP LD A, (IX+WORMENG): OR A:JR Z,GOTBRAYN
ADD IX,DE:DJNZ INITBRAYNBLP:POP DE:RET
GOTBRAYN POP DE:LD (IX+WORMX),$30:LD (IX+WORMY),$40+$80
LD (IX+WORMENG),4:LD (IX+WORMGRAV),0:RET
INITWORM PUSH DE:LD IX,WORMDATA:LD DE,WORMLEN:LD B,NOWORMS
INITWORMBLP LD A,(IX+WORMENG):OR A:JR Z,GOTWORM
ADD IX,DE:DJNZ INITWORMBLP:POP DE:RET
GOTWORM POP DE:LD (IX+WORMX),E:LD (IX+WORMY),D
LD (IX+WORMENG),1:LD (IX+WORMGRAV),-4:RET
PRTWORMS LD A,(PRTBRAIN+1):CP $22:RET NC
LD IX,WORMDATA:LD B,NOWORMS
PRTWORMSBLP LD A,(IX+WORMENG):OR A:JR Z,NXTWORM:PUSH BC
LD A,(IX+WORMX):RRA :AND 3
LD HL,WORMSPR:LD DE,$60:CALL MULT
LD D,(IX+WORMY):LD A,D:CP $F0:JR Z,NZTGND
OR A:JP M,GOBRAIN:JR NOTGND
NZTGND LD D,#60
NOTGND LD E,(IX+WORMX):LD BC,$0308:PUSH DE:CALL MASKCXB:POP DE
LD A,D:ADD A,4:LD D,A
LD BC,$0F17:CALL ISBULORHERO:POP BC
LD A,(IX+WORMENG):OR A:JR Z,NXTWORM
LD A,(IX+WORMY):CP $60:JR C,STWORMY
CP $F0:JR Z,ONGROUND
LD A,(HEROX+1):CP (IX+WORMX):CCF :LD A,0:ADC A,A
ADD A,A:DEC A:ADD A,A:LD (IX+WORMGRAV),A
LD (IX+WORMY),$F0:JR NXTWORM
ONGROUND LD A,(IX+WORMX):ADD A,(IX+WORMGRAV):LD (IX+WORMX),A
CP $E8:JR C,NXTWORM:LD (IX+WORMENG),0:JR NXTWORM
STWORMY LD A,(IX+WORMY):ADD A,(IX+WORMGRAV):LD (IX+WORMY),A
INC (IX+WORMGRAV)
NXTWORM LD DE,WORMLEN:ADD IX,DE:DEC B:JP NZ,PRTWORMSBLP:RET
GOBRAIN LD A,D:ADD A,8:LD D,A:CP $D0:JR C,NOTBOTB:LD A,$D0
NOTBOTB LD (IX+WORMY),A:AND $78:LD D,A
LD A,(IX+WORMX):ADD A,4:LD (IX+WORMX),A:LD E,A
CP $E8:JR C,KOFZ:LD (IX+WORMENG),0:POP BC:JR NXTWORM
KOFZ PUSH DE:LD HL,BRAINSPR:LD BC,$0410:CALL MASKCXB:POP DE
PUSH DE:LD BC,$0404:CALL BAXATR:POP DE
LD BC,$1F1F:CALL ISBULORHERO:POP BC:JR NXTWORM
NOWORMS EQU 16
WORMX EQU 0
WORMY EQU 1
WORMENG EQU 2
WORMGRAV EQU 3
WORMLEN EQU 4
WORMDATA DS NOWORMS*WORMLEN,0
WORMSPR
DB #F0,#00,#8F,#00,#FF,#00,#FF,#00,#07,#70,#E0,#0F,#C0,#0F,#03,#B8
DB #FF,#00,#FF,#00,#01,#BC,#80,#37,#80,#3B,#01,#7C,#FF,#00,#FF,#00
DB #81,#3C,#00,#7C,#01,#7C,#80,#3A,#FF,#00,#FF,#00,#C0,#06,#81,#3C
DB #C1,#04,#C1,#1C,#FF,#00,#FF,#00,#81,#3C,#C1,#18,#C0,#1E,#83,#38
DB #FF,#00,#FF,#00,#03,#60,#C0,#1E,#80,#2E,#01,#1C,#FF,#00,#FF,#00
DB #00,#7E,#81,#34,#03,#78,#80,#36,#FF,#00,#FF,#00,#C1,#0C,#87,#30
DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
DB #FF,#00,#FF,#00,#4F,#00,#FE,#00,#FC,#01,#07,#B0,#FF,#00,#FF,#00
DB #03,#D8,#F8,#03,#F8,#03,#03,#D8,#FF,#00,#FF,#00,#01,#DC,#F0,#05
DB #E0,#0E,#00,#DE,#FF,#00,#FF,#00,#01,#BC,#E0,#0E,#E0,#0F,#40,#1A
DB #FF,#00,#7F,#00,#E0,#07,#C0,#16,#81,#38,#E0,#0F,#1F,#00,#0F,#E0
DB #E0,#0E,#00,#5E,#01,#6C,#F0,#05,#0F,#A0,#1F,#C0,#F8,#03,#83,#30
DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
DB #FF,#00,#93,#00,#FF,#00,#FF,#00,#00,#6C,#FE,#00,#F8,#01,#00,#EF
DB #3F,#00,#17,#C0,#00,#F6,#D0,#05,#80,#2E,#00,#F6,#01,#E8,#00,#EE
DB #00,#E5,#00,#76,#00,#77,#18,#01,#00,#DA,#01,#3C,#FE,#00,#80,#34
DB #FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00,#FF,#00
DB #FF,#00,#FF,#00,#E4,#00,#FF,#00,#FF,#00,#C0,#1B,#7F,#00,#3F,#80
DB #80,#3D,#FF,#00,#FF,#00,#80,#3D,#3F,#80,#1F,#C0,#00,#5D,#FF,#00
DB #FE,#00,#00,#ED,#0F,#E0,#1F,#C0,#00,#EB,#FE,#00,#FE,#00,#04,#F1
DB #0F,#A0,#07,#70,#0E,#60,#FC,#01,#F8,#03,#1E,#80,#01,#F0,#00,#EE
DB #0E,#E0,#F0,#05,#F0,#06,#1F,#C0,#00,#5A,#81,#3C,#3F,#00,#F8,#03
BRAINSPR
DB #FF,#00,#80,#1F,#03,#F0,#FF,#00,#FF,#00,#00,#0C,#00,#60,#FE,#00
DB #FC,#01,#00,#86,#00,#73,#7F,#00,#3F,#80,#00,#0C,#00,#33,#F8,#02
DB #F0,#04,#00,#90,#00,#C9,#1F,#40,#0F,#A0,#00,#C2,#00,#CC,#E0,#08
DB #E0,#08,#00,#2D,#00,#99,#07,#D0,#07,#D0,#00,#74,#00,#26,#C0,#13
DB #C0,#11,#00,#60,#00,#6A,#03,#68,#03,#68,#00,#86,#00,#C6,#80,#24
DB #80,#26,#00,#06,#00,#23,#03,#28,#01,#84,#00,#71,#00,#4F,#80,#24
DB #80,#20,#00,#CB,#00,#35,#01,#14,#00,#7A,#00,#B6,#00,#A6,#80,#24
DB #00,#49,#00,#E4,#00,#6E,#00,#BA,#00,#62,#00,#6C,#00,#51,#00,#59
DB #00,#48,#00,#80,#00,#05,#00,#CA,#00,#9A,#00,#01,#00,#1C,#00,#5C
DB #00,#4D,#00,#39,#00,#31,#00,#3D,#00,#6D,#00,#70,#00,#2B,#00,#88
DB #00,#A1,#00,#96,#00,#E6,#00,#75,#00,#25,#00,#CC,#00,#C6,#00,#80
DB #00,#A9,#00,#A0,#00,#95,#00,#81,#00,#91,#00,#29,#00,#E1,#00,#88
DB #00,#95,#00,#50,#00,#73,#00,#3A,#00,#22,#00,#33,#00,#21,#00,#8A
DB #00,#45,#00,#80,#00,#86,#00,#52,#01,#A4,#00,#E0,#00,#A0,#00,#42
DB #80,#20,#00,#45,#00,#59,#03,#88,#07,#30,#00,#AE,#00,#03,#C0,#18
DB #E0,#07,#00,#00,#00,#00,#0F,#C0,#3F,#00,#00,#FF,#00,#FF,#F8,#00
DB #06,#06,#46,#46
DB #06,#06,#46,#46
DB #06,#06,#46,#46
DB #06,#06,#46,#46
;***************************************
INITFACES LD DE,$00F0:CALL ADDFACE:LD DE,$28F0
ADDFACE PUSH DE:LD IX,FACEXYS:LD B,NOFACES:LD DE,5
FINDFACE LD A,(IX+02):OR A:JR Z,GOTFACE
ADD IX,DE:DJNZ FINDFACE:POP DE:RET
GOTFACE POP DE:LD (IX+00),E:LD (IX+01),D:LD (IX+02),$06
LD (IX+03),0:LD A,R:AND 7:LD (IX+04),A
LD A,1:LD (PRTFACES+1),A:RET
PRTFACES LD A,0:PUSH AF:CALL PRTWORMS:POP AF:OR A:RET Z
LD IX,FACEXYS:LD B,NOFACES
PRTFACESBLP PUSH BC:LD A,(IX+02):OR A:JP Z,SKPFACE
LD A,(IX+03):LD HL,FACE1:OR A:JR Z,FART2
LD HL,FACE3:CP 2:JR Z,FART2:LD HL,FACE2
FART2 LD E,(IX+00):LD A,(FACEY):ADD A,(IX+01):LD D,A
CALL BAXITA:DEC (IX+04):JP P,HART:LD (IX+04),7
LD A,(IX+03):INC A:AND 3:LD (IX+03),A
HART LD A,(POS):AND 7:JR NZ,NAFI
CALL RAND:LD A,(RND1):AND 3:JR NZ,NAFI
LD A,(IX+00):ADD A,$18:LD E,A
LD A,(FACEY):ADD A,(IX+01):ADD A,$18:LD D,A
LD A,(RND2):AND 3:CP 3:JR C,AK:LD A,1
AK ADD A,3:LD B,4:PUSH IX:CALL INITBAL:POP IX
NAFI LD A,(IX+00):ADD A,$10:LD E,A
LD A,(FACEY):ADD A,(IX+01):LD D,A
LD BC,$2717:CALL ISBULORHERO
LD A,(IX+02):OR A:JR NZ,SKPFACE
LD A,(IX+00):ADD A,$08:LD E,A
LD A,(FACEY):ADD A,(IX+01):LD D,A
PUSH IX:CALL INITEXPNORND:POP IX
SKPFACE POP BC:LD DE,5:ADD IX,DE:DEC B:JP NZ,PRTFACESBLP
LD DE,(FACEY):LD A,E:ADD A,D:LD E,A
CP $30:JR C,NOTSTRAY
LD A,(FACEY):LD E,A:LD A,D:NEG :LD D,A
NOTSTRAY LD (FACEY),DE:RET
SMODFACES LD IX,FACEXYS:LD B,NOFACES:LD DE,5
SMODFACEBLP LD A,(IX+02):OR A:JR Z,SKPSMODFACE
LD A,(IX+00):ADD A,L:LD (IX+00),A
CP $F0:JR NZ,SKPSMODFACE:LD (IX+02),0
SKPSMODFACE ADD IX,DE:DJNZ SMODFACEBLP:RET
NOFACES EQU 12
FACEY DB 0
FACED DB 2
FACEXYS DS NOFACES*5,0
FACE1 DB 6,5*8
DB #30,#F0,#63,#CF,#00,#2C,#94,#3F,#3E,#3D,#0C,#67,#48,#03,#1E,#78
DB #C0,#62,#90,#0F,#61,#86,#E0,#10,#27,#F8,#41,#82,#3F,#E8,#F4,#5F
DB #C4,#22,#FC,#2F,#5F,#FA,#15,#E8,#3F,#F4,#FA,#5F,#C0,#03,#FE,#5F
DB #5F,#BD,#07,#E0,#3D,#FA,#FA,#7F,#D0,#0B,#FE,#5F,#2F,#FE,#27,#E4
DB #3F,#F4,#F4,#0B,#F2,#4B,#EC,#17,#09,#D1,#97,#ED,#95,#C8,#30,#60
DB #F6,#0B,#06,#06,#01,#F8,#D7,#EF,#1F,#C0,#08,#C0,#F7,#6B,#03,#10
DB #21,#FF,#F5,#EF,#FE,#08,#04,#FF,#F7,#EB,#FF,#23,#21,#FE,#B7,#ED
DB #FE,#84,#04,#5F,#FA,#63,#7D,#21,#10,#AA,#D5,#FD,#0A,#88,#08,#E1
DB #FE,#A3,#51,#10,#08,#07,#A3,#F6,#FE,#08,#90,#FF,#E6,#A1,#BF,#08
DB #09,#7E,#10,#0C,#3F,#50,#90,#56,#03,#08,#F8,#08,#10,#76,#00,#07
DB #AB,#10,#88,#F6,#07,#00,#CE,#10,#21,#1F,#00,#3B,#F3,#08,#04,#F9
DB #7D,#00,#BF,#20,#21,#3A,#52,#DE,#DC,#84,#44,#0D,#8F,#E1,#70,#22
DB #21,#30,#60,#06,#0E,#84,#44,#1E,#00,#00,#58,#22,#11,#3C,#30,#0C
DB #BC,#88,#08,#19,#1E,#78,#98,#10,#08,#41,#3C,#3C,#82,#10,#20,#55
DB #F9,#9F,#AA,#04,#04,#55,#0F,#F0,#AA,#20,#40,#54,#08,#10,#2A,#02
DB #57,#57,#56,#56,#57,#57
DB #47,#57,#56,#56,#57,#47
DB #44,#06,#46,#56,#46,#46
DB #04,#4E,#46,#46,#57,#46
DB #04,#44,#46,#46,#46,#46
FACE2 DB 6,5*8
DB #67,#39,#EB,#97,#9C,#E6,#13,#60,#2E,#75,#06,#C8,#91,#81,#BA,#5D
DB #81,#89,#E6,#0F,#7A,#5E,#F0,#67,#2F,#F8,#2E,#74,#1F,#F4,#FA,#3F
DB #A8,#15,#FC,#5F,#5F,#FA,#03,#C0,#5F,#FA,#FA,#3D,#C8,#0B,#BC,#5F
DB #5F,#1C,#05,#D0,#38,#FA,#F4,#7D,#A0,#03,#BE,#2F,#2F,#FC,#05,#D0
DB #3F,#F4,#E8,#5F,#B0,#03,#FA,#17,#0B,#D4,#15,#E8,#2B,#D0,#20,#14
DB #C6,#63,#28,#04,#13,#07,#85,#D1,#E0,#C8,#14,#1F,#EC,#22,#F8,#20
DB #40,#02,#D3,#EF,#00,#22,#C1,#EA,#EF,#65,#5F,#85,#8B,#FE,#C3,#F3
DB #FF,#E1,#E1,#BF,#FD,#25,#FF,#87,#4B,#FF,#43,#FE,#55,#C2,#82,#8A
DB #F6,#43,#FD,#45,#22,#A3,#41,#E6,#E1,#44,#08,#FC,#0D,#20,#0E,#10
DB #09,#64,#10,#03,#46,#90,#48,#B9,#0E,#00,#C0,#13,#21,#B0,#00,#1D
DB #7C,#A4,#42,#FE,#3E,#00,#7C,#47,#47,#7C,#02,#B9,#6E,#A2,#D2,#C6
DB #06,#00,#F6,#8E,#96,#E3,#00,#BF,#27,#61,#51,#63,#70,#01,#C8,#8D
DB #9D,#9A,#20,#07,#69,#61,#D1,#20,#77,#3B,#83,#8D,#95,#01,#37,#66
DB #00,#E1,#42,#03,#64,#07,#90,#8D,#44,#DA,#00,#00,#07,#62,#C4,#66
DB #00,#B0,#EB,#4A,#26,#73,#8F,#E3,#4E,#A4,#48,#1D,#7B,#BC,#39,#13
DB #47,#57,#16,#56,#57,#47
DB #47,#57,#56,#56,#57,#47
DB #44,#06,#46,#56,#46,#46
DB #44,#06,#06,#46,#46,#46
DB #44,#06,#57,#57,#47,#46
FACE3 DB 6,5*8
DB #48,#01,#75,#AE,#80,#02,#89,#03,#5D,#BA,#C0,#91,#27,#F8,#5C,#7A
DB #1F,#E4,#F2,#3D,#74,#2E,#BC,#27,#4F,#BE,#2C,#34,#3D,#FA,#FA,#78
DB #88,#11,#1A,#4F,#4C,#47,#03,#C0,#62,#3A,#F4,#F8,#C8,#05,#1E,#2F
DB #27,#BD,#03,#D0,#7D,#F4,#E8,#FD,#A0,#05,#BE,#17,#13,#FD,#03,#D0
DB #7F,#E8,#D0,#BF,#B0,#05,#EA,#09,#04,#10,#23,#E4,#5F,#28,#C4,#00
DB #C3,#C5,#80,#13,#20,#7F,#00,#D8,#FF,#22,#41,#00,#EE,#23,#00,#41
DB #85,#F2,#D5,#EF,#FE,#A1,#D1,#FF,#F3,#43,#FF,#8B,#87,#FE,#A5,#FD
DB #7F,#A2,#C2,#AF,#FE,#43,#FE,#4B,#46,#F9,#41,#F6,#15,#44,#08,#83
DB #E6,#41,#43,#21,#10,#0F,#20,#0C,#F0,#10,#08,#E4,#01,#10,#3E,#30
DB #41,#44,#00,#03,#9E,#24,#52,#7F,#0F,#00,#B0,#93,#8F,#78,#00,#1E
DB #F3,#B1,#89,#61,#B9,#02,#FC,#1E,#2E,#EE,#00,#06,#C9,#94,#88,#0D
DB #BF,#40,#E3,#1D,#35,#C1,#80,#38,#6C,#D4,#C8,#6C,#03,#20,#16,#5B
DB #3B,#33,#33,#3B,#60,#84,#88,#40,#3B,#37,#01,#5B,#3B,#80,#07,#30
DB #00,#14,#88,#00,#00,#00,#A0,#1B,#2D,#B0,#00,#00,#00,#D1,#C1,#19
DB #00,#00,#D2,#9D,#4C,#E7,#00,#00,#33,#92,#02,#87,#01,#30,#77,#26
DB #57,#57,#16,#56,#57,#57
DB #47,#57,#56,#56,#57,#47
DB #04,#06,#46,#46,#46,#46
DB #04,#06,#47,#46,#57,#46
DB #04,#06,#07,#47,#47,#46
;***************************************
LEVEL9END
;***************************************
L9CHRS
DB #90,#8B,#03,#73,#70,#73,#03,#0B,#09,#39,#40,#4F,#47,#47,#40,#38
DB #00,#00,#00,#00,#00,#00,#00,#00,#09,#09,#09,#09,#09,#09,#09,#09
DB #90,#8B,#93,#8B,#90,#8B,#93,#8B,#00,#93,#85,#A3,#05,#A3,#95,#80
DB #00,#F8,#F6,#FA,#F6,#FA,#F4,#00,#2C,#2C,#24,#20,#11,#8C,#62,#11
DB #B4,#B4,#A4,#84,#08,#31,#42,#8C,#C0,#99,#9C,#84,#C1,#40,#4D,#5C
DB #03,#9D,#3D,#31,#03,#82,#1A,#BA,#47,#0A,#05,#82,#60,#98,#67,#F8
DB #3F,#73,#65,#61,#33,#9F,#47,#A3,#7E,#BF,#DF,#DF,#BF,#FE,#FE,#FC
DB #D2,#A4,#44,#88,#17,#68,#90,#22,#4B,#25,#A2,#11,#E8,#16,#09,#44
DB #45,#4B,#87,#8B,#45,#23,#25,#23,#A2,#D2,#E1,#D1,#A2,#C5,#A5,#C5
DB #E2,#50,#A8,#41,#06,#19,#E7,#1E,#A2,#12,#02,#C1,#31,#C8,#07,#78
DB #7C,#FD,#FB,#FB,#FD,#7F,#7F,#BF,#FC,#CE,#A6,#86,#CC,#FA,#E5,#8A
DB #45,#48,#40,#83,#8C,#13,#E0,#1C,#C0,#9E,#8E,#80,#CD,#4C,#5D,#40
DB #03,#3D,#1D,#01,#1B,#9A,#3A,#82,#58,#A0,#43,#8F,#1C,#18,#31,#32
DB #14,#0A,#C4,#F2,#38,#D8,#6C,#EC,#01,#32,#31,#18,#1C,#8F,#43,#A0
DB #70,#EC,#6C,#D8,#39,#F1,#C2,#05,#25,#43,#45,#8B,#97,#8B,#97,#8B
DB #A5,#C2,#E2,#D1,#E9,#F1,#E9,#F1,#47,#2B,#25,#22,#25,#22,#91,#0C
DB #E2,#D4,#A5,#C4,#A5,#C4,#89,#32,#A3,#B3,#B9,#B9,#9D,#88,#81,#93
DB #8B,#91,#89,#95,#88,#94,#88,#95,#10,#99,#8F,#CE,#05,#F3,#EA,#F5
DB #E3,#F3,#F9,#39,#DD,#E8,#F1,#73,#FC,#FA,#FC,#FA,#FC,#FA,#FC,#FA
DB #BB,#79,#5D,#3D,#1C,#3C,#1C,#39,#09,#09,#09,#09,#04,#02,#01,#00
DB #89,#93,#C7,#EF,#EF,#35,#02,#FC,#FC,#FA,#FC,#F4,#E8,#F0,#A8,#41
DB #19,#33,#27,#6F,#4F,#85,#22,#50,#00,#00,#00,#01,#01,#02,#02,#02
DB #3B,#45,#9D,#3D,#39,#72,#61,#63,#04,#04,#04,#04,#04,#09,#09,#09
DB #E3,#C1,#C9,#D5,#C8,#94,#88,#95,#01,#20,#00,#00,#00,#00,#08,#80
DB #00,#04,#08,#00,#10,#00,#04,#00,#00,#00,#00,#00,#00,#00,#10,#02
DB #00,#00,#20,#00,#08,#00,#10,#00,#A9,#93,#87,#8F,#8F,#85,#C2,#A0
DB #80,#83,#03,#73,#70,#73,#03,#0B,#05,#6A,#95,#0A,#45,#A4,#52,#E2
DB #50,#A6,#49,#90,#22,#A5,#4A,#47,#01,#52,#8C,#70,#02,#04,#B4,#F4
DB #E4,#1B,#04,#43,#A8,#75,#F9,#52,#0F,#50,#A3,#44,#89,#10,#24,#28
DB #F4,#09,#C4,#22,#11,#88,#A4,#94,#07,#58,#20,#C2,#15,#AE,#9F,#4A
DB #94,#4A,#31,#0E,#40,#20,#2D,#2F,#00,#04,#00,#40,#00,#00,#00,#04
DB #00,#00,#40,#00,#20,#00,#00,#00,#00,#00,#00,#40,#00,#00,#10,#00
DB #00,#00,#20,#00,#00,#01,#00,#00,#00,#23,#05,#43,#05,#43,#25,#00
DB #E0,#F0,#F8,#38,#DC,#E8,#F0,#70,#B8,#78,#5C,#3C,#1C,#3C,#1C,#38
DB #18,#30,#20,#60,#40,#80,#00,#00,#00,#F8,#F6,#FA,#F6,#FA,#F5,#02
DB #E5,#F2,#F9,#38,#DD,#EA,#F1,#70,#00,#00,#00,#00,#00,#20,#00,#00
DB #00,#00,#00,#00,#00,#03,#07,#07,#1B,#3F,#5F,#97,#2F,#0B,#45,#00
DB #00,#01,#0E,#3B,#7C,#1C,#CE,#9E,#1B,#FC,#FE,#BF,#D7,#4F,#22,#87
DB #CD,#BE,#FF,#FF,#FF,#BF,#D7,#8A,#A3,#F0,#F9,#68,#F0,#A4,#E0,#C0
DB #F8,#FD,#5E,#BF,#FF,#79,#FE,#FE,#00,#80,#D8,#86,#E1,#F8,#FC,#7A
DB #FF,#FF,#7D,#DE,#6E,#08,#91,#8F,#7F,#B6,#99,#D7,#3A,#40,#8B,#06
DB #00,#00,#00,#00,#00,#40,#20,#10,#00,#00,#00,#00,#00,#04,#00,#00
DB #58,#EC,#CE,#1F,#2E,#FD,#F8,#7D,#00,#00,#00,#00,#80,#40,#20,#20
DB #01,#08,#10,#12,#20,#22,#25,#43,#41,#20,#80,#02,#00,#40,#80,#42
DB #45,#6B,#57,#FF,#DF,#EB,#C6,#8B,#80,#D6,#E2,#73,#D0,#61,#83,#E7
DB #08,#36,#1A,#7E,#2F,#37,#1F,#8F,#05,#0C,#00,#0C,#5F,#FB,#E0,#59
DB #62,#71,#5F,#2C,#82,#58,#86,#FB,#CD,#92,#B9,#EF,#76,#3B,#73,#29
DB #0A,#04,#80,#20,#93,#64,#B0,#FB,#04,#38,#65,#83,#45,#3F,#DF,#FD
DB #D7,#7F,#FF,#EF,#DF,#C7,#E2,#B1,#FE,#FC,#FE,#F7,#7C,#9A,#22,#03
DB #76,#B8,#1E,#87,#D3,#F9,#FE,#3F,#10,#90,#08,#18,#BC,#0C,#84,#C2
DB #5B,#E1,#78,#7D,#7E,#0E,#13,#41,#22,#16,#1E,#1B,#39,#2D,#1B,#C3
DB #DF,#F7,#AB,#B1,#F8,#75,#5B,#5A,#BF,#D6,#E3,#76,#2D,#07,#CF,#E5
DB #54,#3C,#2A,#29,#1D,#14,#0A,#0B,#B6,#7F,#BB,#5E,#0E,#06,#13,#0F
DB #5D,#AF,#19,#22,#01,#CA,#E4,#51,#B4,#66,#8B,#FF,#6F,#3F,#1F,#7F
DB #22,#41,#A3,#CB,#65,#5B,#7F,#BE,#37,#1F,#9F,#DF,#BF,#FF,#FF,#FF
DB #E3,#77,#21,#A4,#92,#78,#FD,#FA,#8F,#A7,#13,#73,#FB,#BD,#7F,#7F
DB #FE,#FA,#FC,#FD,#FF,#FB,#F3,#E4,#7F,#FD,#F8,#73,#E7,#8B,#43,#01
DB #89,#F0,#E8,#FC,#FA,#F8,#F8,#F4,#E5,#C3,#63,#73,#B3,#12,#1A,#BA
DB #FE,#FE,#7E,#3D,#BF,#FF,#FC,#94,#76,#74,#64,#24,#08,#A8,#D0,#70
DB #05,#04,#02,#01,#00,#00,#00,#00,#45,#A2,#01,#0A,#07,#03,#27,#1B
DB #0E,#06,#03,#00,#00,#00,#00,#00,#FF,#FF,#7F,#BF,#FF,#FF,#7F,#1F
DB #AF,#5F,#7F,#FF,#3F,#0F,#01,#00,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#1F
DB #F0,#80,#10,#E2,#F9,#FF,#FF,#FF,#00,#11,#68,#F4,#F0,#F8,#DF,#EB
DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#F8,#C5,#A3,#F7,#FF,#FC,#F0,#80,#00
DB #40,#00,#01,#11,#0B,#A6,#7C,#F8,#60,#E0,#C0,#80,#00,#00,#00,#00
DB #B0,#E0,#C0,#00,#00,#00,#00,#00,#F8,#E7,#9F,#75,#C2,#20,#00,#00
DB #F9,#76,#8F,#F7,#AA,#41,#00,#00,#00,#00,#00,#00,#00,#06,#3F,#FF
DB #00,#00,#00,#00,#00,#00,#00,#E0,#FF,#7F,#BF,#5F,#EF,#77,#1B,#2B
DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#14,#07,#01,#00,#00,#00,#00,#39
DB #FF,#0F,#F7,#1B,#05,#01,#03,#E7,#00,#00,#00,#00,#01,#07,#0F,#3F
DB #00,#00,#01,#03,#07,#07,#0F,#0F,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF
DB #00,#00,#07,#7F,#FF,#FF,#FF,#FF,#00,#00,#E0,#FE,#FF,#FF,#FF,#FF
DB #FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#00,#00,#00,#00,#C0,#F0,#F8,#FC
DB #00,#00,#80,#C0,#C0,#E0,#E0,#F0,#FF,#FF,#FF,#FF,#F0,#CF,#BE,#71
DB #C6,#B9,#46,#00,#80,#C0,#E4,#FF,#FD,#F3,#EE,#9D,#7E,#F2,#E4,#40
DB #0F,#1F,#1F,#1F,#1F,#3F,#3F,#3F,#3F,#3F,#BF,#1F,#1F,#1F,#DF,#6F
DB #F0,#F0,#F8,#F8,#F8,#F8,#FC,#FC,#FC,#FC,#FC,#FC,#F8,#F8,#F8,#F0
DB #80,#80,#40,#B2,#CD,#F2,#FF,#FF,#7F,#BF,#FF,#DF,#9F,#B7,#6F,#FF
DB #00,#00,#00,#04,#8A,#75,#8E,#FF,#00,#00,#00,#00,#00,#00,#00,#00
DB #87,#7B,#FD,#7E,#FE,#7D,#25,#01,#FF,#FF,#FF,#3F,#DF,#EF,#F7,#F0
DB #0C,#A3,#57,#13,#28,#00,#10,#0C,#63,#9D,#FA,#21,#88,#14,#02,#88
DB #D0,#7A,#3D,#1F,#0F,#01,#00,#00,#F0,#EF,#5B,#B5,#40,#0F,#DA,#24
DB #F0,#2F,#DB,#35,#40,#0F,#DA,#24,#08,#00,#42,#F1,#FF,#FF,#1F,#00
DB #00,#01,#13,#3F,#FF,#FE,#E0,#00,#8C,#A2,#56,#12,#28,#40,#12,#08
DB #83,#1E,#FC,#F0,#C0,#00,#00,#00,#68,#A0,#D0,#E0,#F8,#FF,#FF,#FF
DB #00,#00,#00,#00,#00,#F0,#FE,#FF,#00,#00,#00,#00,#00,#02,#07,#FF
DB #FB,#5D,#AF,#43,#04,#00,#00,#00,#0F,#F7,#FB,#FC,#BF,#13,#24,#00
DB #00,#00,#00,#03,#07,#7F,#FF,#FF,#FF,#FF,#1F,#EF,#F7,#BB,#4B,#03
DB #03,#07,#0F,#1F,#FF,#FF,#FF,#FF,#FF,#FF,#EE,#D5,#BB,#AE,#75,#40
DB #FF,#FF,#FF,#FF,#F8,#F0,#E0,#E0,#E0,#F0,#E0,#D0,#C0,#A0,#A0,#80
DB #FF,#FF,#FF,#FF,#3F,#1F,#5F,#AF,#6F,#2F,#5F,#2F,#17,#17,#17,#0B
DB #FF,#FF,#C3,#85,#03,#0D,#1B,#8D,#C3,#85,#81,#84,#0E,#05,#03,#85
DB #FE,#FD,#FC,#FA,#FA,#F8,#FC,#FD,#FF,#E1,#40,#AE,#91,#02,#01,#00
DB #86,#01,#00,#00,#00,#00,#00,#02,#7F,#BF,#BF,#09,#72,#01,#00,#19
DB #D7,#AF,#93,#24,#C3,#E0,#F0,#FC,#FF,#FC,#FA,#F5,#F0,#E0,#E0,#F0
DB #FF,#3F,#DF,#2F,#4F,#17,#07,#0F,#F8,#88,#60,#80,#00,#40,#20,#20
DB #1E,#21,#16,#00,#00,#00,#05,#0B,#FF,#FF,#FF,#FF,#CB,#E5,#C3,#21
DB #83,#0F,#2F,#5F,#3F,#7F,#FF,#FF,#FF,#FC,#F9,#FA,#F0,#F4,#F4,#F8
DB #FA,#F8,#F5,#E8,#D0,#A0,#82,#C2,#FF,#3F,#1F,#0F,#0F,#0F,#0F,#0F
DB #1F,#17,#0B,#E3,#03,#03,#03,#03,#FF,#FF,#FE,#FD,#FD,#FC,#FA,#F4
DB #FF,#C3,#81,#A0,#50,#B8,#71,#91,#8B,#43,#85,#02,#00,#02,#02,#02
DB #00,#80,#80,#C0,#C2,#C2,#C0,#C0,#05,#02,#40,#20,#11,#07,#17,#27
DB #17,#27,#4F,#1F,#FF,#FF,#3F,#5F,#C3,#8D,#05,#02,#00,#04,#82,#02
DB #C2,#82,#81,#80,#80,#C1,#E2,#E1,#81,#85,#C1,#C7,#93,#93,#15,#12
DB #C0,#C0,#81,#E0,#E4,#CC,#C4,#C4,#FF,#FF,#7F,#BF,#BF,#7F,#FF,#7F
DB #FE,#FF,#FF,#FE,#FE,#FE,#FC,#FC,#BF,#BF,#7F,#FF,#FF,#FF,#7F,#3F
DB #FC,#F8,#F8,#F8,#F1,#F1,#E0,#E0,#01,#03,#05,#05,#05,#02,#02,#02
DB #50,#50,#59,#B9,#78,#30,#50,#10,#FF,#FF,#7F,#7F,#7F,#5F,#2F,#0F
DB #D0,#C0,#E8,#E8,#D0,#D0,#D0,#A0,#17,#0F,#2F,#27,#17,#17,#17,#0B
DB #40,#A0,#C0,#E2,#E0,#C2,#A2,#80,#05,#0B,#07,#17,#83,#89,#85,#41
DB #FD,#FC,#FA,#FA,#F4,#F4,#F4,#E8,#E8,#E0,#F0,#FD,#FD,#FD,#F0,#E8
DB #07,#0F,#17,#17,#0B,#0B,#05,#01,#E8,#A0,#22,#94,#FE,#FF,#FF,#FF
DB #02,#00,#01,#0F,#0F,#0F,#0F,#0F,#02,#02,#04,#85,#81,#41,#45,#41
DB #45,#41,#21,#A3,#A3,#A3,#C3,#03,#04,#0C,#04,#0C,#04,#0C,#04,#0C
DB #05,#83,#45,#8A,#15,#8B,#15,#0A,#FF,#FF,#FF,#FF,#FF,#FF,#FF,#FF
DB #A3,#67,#CB,#D7,#8B,#97,#0B,#05,#F7,#FF,#FF,#FF,#F7,#FF,#B5,#CA
DB #52,#01,#C2,#F5,#F8,#FC,#FE,#FC,#FA,#D4,#A0,#47,#8B,#15,#0F,#1F
DB #17,#2F,#1F,#2F,#17,#8F,#95,#8A,#00,#7C,#FA,#FD,#FA,#F4,#E8,#F2
DB #E0,#00,#02,#15,#2F,#5F,#2F,#DF,#E5,#D3,#E5,#CA,#85,#CB,#95,#0A
DB #FB,#F5,#FA,#FC,#FA,#F4,#E8,#32,#84,#00,#2E,#57,#BE,#7F,#7F,#FF
DB #55,#2B,#82,#45,#A0,#50,#B2,#71,#FF,#FF,#FF,#D7,#AB,#15,#83,#C8
DB #00,#00,#00,#00,#00,#00,#03,#0F,#00,#00,#00,#00,#00,#80,#C0,#E0
DB #C5,#CD,#C5,#CD,#C5,#CD,#C5,#CD,#FF,#FF,#FF,#FF,#00,#55,#00,#FF
DB #C5,#CD,#C5,#CD,#05,#0D,#05,#CD,#0B,#80,#C9,#77,#FB,#F7,#FF,#A3
DB #00,#D4,#2A,#54,#2A,#14,#20,#00,#02,#28,#54,#AA,#54,#AA,#55,#08
DB #03,#08,#27,#4F,#5D,#DF,#9F,#31
L9ATRS
DB #43,#45,#47,#45,#43,#05,#45,#06,#46,#03,#43,#07,#46,#06,#05,#05
DB #04,#44,#07,#07,#06,#46,#05,#03,#43,#06,#46,#06,#46,#04,#44,#04
DB #44,#4C,#4C,#4C,#0E,#4C,#0E,#45,#05,#4C,#44,#45,#45,#45,#4C,#46
DB #46,#46,#46,#4C,#43,#45,#45,#45,#45,#06,#46,#45,#45,#46,#46,#46
DB #46,#05,#06,#06,#44,#45,#06,#46,#07,#07,#07,#4F,#0F,#07,#4F,#47
DB #4F,#47,#47,#46,#47,#47,#07,#0F,#07,#0F,#0F,#0F,#0F,#4F,#4F,#4F
DB #67,#67,#4F,#47,#4F,#4F,#07,#0F,#07,#0F,#0F,#67,#47,#47,#67,#67
DB #4F,#47,#4F,#4F,#4F,#47,#07,#07,#07,#47,#47,#47,#4F,#4F,#47,#47
DB #47,#47,#47,#46,#46,#46,#46,#46,#46,#46,#46,#77,#77,#77,#77,#77
DB #47,#77,#77,#46,#46,#46,#77,#77,#77,#77,#46,#7E,#46,#46,#46,#46
DB #77,#77,#77,#77,#77,#77,#77,#77,#77,#46,#46,#46,#46,#46,#46,#46
DB #46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46
DB #46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46
DB #46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46,#46
DB #46,#46,#46,#47,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45,#45
DB #05,#45,#45,#45,#47,#45,#47,#47,#05,#05,#47
L9BLOX
DB #23,#24,#25,#26,#24,#23,#26,#25,#25,#43,#29,#44,#23,#42,#25,#43
DB #03,#22,#27,#28,#01,#00,#03,#04,#03,#21,#03,#22,#03,#33,#01,#34
DB #03,#04,#01,#00,#2B,#2C,#2D,#2E,#16,#0B,#0C,#0D,#12,#13,#14,#15
DB #1D,#1E,#1F,#20,#02,#02,#2F,#30,#02,#02,#31,#32,#17,#18,#17,#18
DB #29,#2A,#05,#06,#29,#2A,#35,#36,#29,#2A,#37,#38,#29,#2A,#39,#3A
DB #29,#2A,#3B,#3C,#02,#02,#02,#3D,#02,#3E,#3F,#40,#19,#1A,#1B,#1C
DB #02,#02,#02,#02,#25,#26,#29,#2A,#0E,#0F,#10,#11,#41,#06,#23,#24
DB #05,#06,#05,#06,#07,#08,#09,#0A,#41,#45,#23,#46,#47,#48,#2F,#49
DB #4A,#4B,#4C,#4D,#4E,#4F,#50,#51,#52,#53,#54,#55,#56,#57,#58,#59
DB #5A,#5B,#5C,#5D,#5E,#5F,#60,#61,#62,#63,#64,#65,#66,#67,#68,#69
DB #6A,#6B,#6C,#6D,#6E,#6F,#70,#71,#72,#73,#74,#75,#76,#77,#02,#78
DB #79,#6F,#7A,#7B,#7C,#7D,#7E,#7F,#80,#81,#82,#02,#83,#84,#85,#86
DB #87,#88,#89,#8A,#88,#88,#88,#88,#88,#8B,#8C,#8D,#8E,#8F,#90,#90
DB #91,#88,#90,#92,#88,#93,#94,#02,#95,#02,#02,#02,#96,#90,#97,#90
DB #90,#90,#90,#90,#90,#98,#90,#99,#88,#9A,#9B,#88,#9C,#9C,#88,#93
DB #9C,#02,#95,#02,#83,#84,#02,#02,#87,#88,#9D,#9E,#88,#88,#9F,#88
DB #A0,#A1,#88,#A2,#A3,#A4,#A5,#A6,#A1,#A7,#A8,#88,#88,#A9,#88,#88
DB #AA,#85,#88,#88,#AB,#85,#88,#88,#86,#85,#88,#88,#02,#02,#85,#86
DB #02,#02,#AB,#AB,#AC,#AD,#85,#AE,#AF,#88,#B0,#88,#88,#88,#B1,#83
DB #88,#88,#88,#94,#93,#95,#85,#86,#88,#B2,#88,#B3,#B4,#88,#B5,#88
DB #88,#88,#B6,#B7,#88,#88,#88,#B8,#B9,#88,#BA,#BB,#88,#88,#88,#BC
DB #BD,#BE,#BF,#C0,#C1,#88,#C2,#88,#88,#C3,#88,#C4,#C5,#88,#C6,#C7
DB #C8,#88,#C9,#88,#88,#02,#88,#CA,#CB,#88,#CC,#88,#CD,#CE,#CF,#D0
DB #D1,#D2,#D3,#D4,#D5,#88,#D6,#D7,#D8,#D9,#DA,#DB,#88,#DC,#88,#DD
DB #DE,#DF,#E0,#88,#E1,#88,#E2,#88,#E8,#E9,#E5,#EA,#EB,#EC,#ED,#E5
DB #EE,#EF,#E4,#E5,#F0,#F1,#E6,#E7,#02,#F2,#E4,#E5,#F3,#02,#E6,#E7
DB #E3,#02,#F4,#E5,#02,#E3,#E5,#F4,#F4,#F5,#F4,#E5,#F5,#F6,#E5,#F4
DB #F7,#F7,#F8,#F9,#FA,#F7,#F8,#F8,#23,#24,#25,#26
L9MAPX
DB #18,#18,#0D,#18,#18,#18,#18,#18,#18,#15,#18,#18,#18,#18,#0D,#1F
DB #20,#21,#22,#18,#18,#18,#05,#1C,#0F,#17,#0C,#17,#0F,#17,#0C,#1C
DB #0F,#17,#0C,#17,#0F,#17,#0C,#1B,#1B,#1B,#1B,#1B,#1B,#1E,#19,#19
DB #19,#19,#19,#02,#18,#18,#18,#18,#18,#18,#18,#16,#18,#18,#18,#18
DB #18,#15,#18,#18,#18,#18,#18,#15,#18,#18,#18,#18,#18,#18,#18,#18
DB #18,#18,#16,#18,#18,#18,#16,#18,#18,#18,#18,#18,#16,#18,#18,#18
DB #18,#18,#18,#18,#18,#0D,#18,#18,#18,#18,#0D,#18,#18,#18,#18,#23
DB #24,#25,#26,#15,#18,#18,#06,#1B,#1B,#1B,#1B,#1B,#1B,#1B,#1B,#1B
DB #1B,#1B,#1B,#1B,#1B,#1B,#1E,#19,#19,#19,#19,#19,#19,#02,#18,#15
DB #18,#18,#15,#18,#18,#18,#18,#16,#18,#18,#18,#15,#18,#18,#15,#18
DB #18,#18,#18,#16,#18,#18,#16,#18,#18,#18,#18,#18,#16,#18,#18,#15
DB #18,#18,#18,#18,#18,#18,#18,#18,#0E,#18,#15,#18,#18,#18,#18,#16
DB #18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#16,#27
DB #28,#29,#2A,#18,#0D,#18,#04,#19,#19,#19,#19,#19,#19,#19,#19,#19
DB #19,#19,#19,#19,#19,#19,#02,#18,#18,#15,#18,#18,#18,#18,#16,#18
DB #18,#18,#16,#18,#18,#0E,#18,#16,#18,#18,#18,#18,#18,#18,#18,#18
DB #15,#18,#18,#18,#18,#18,#18,#18,#0E,#18,#15,#18,#18,#18,#15,#18
DB #18,#16,#18,#18,#18,#18,#18,#15,#18,#18,#16,#18,#18,#18,#16,#18
DB #0D,#18,#18,#0E,#18,#18,#18,#18,#18,#18,#0D,#0E,#18,#18,#18,#2B
DB #2C,#2D,#2E,#18,#18,#18,#18,#16,#18,#18,#0E,#18,#0D,#0D,#18,#18
DB #18,#16,#18,#18,#0D,#18,#18,#18,#18,#18,#18,#15,#18,#18,#18,#18
DB #18,#18,#18,#18,#0E,#18,#15,#18,#18,#18,#18,#18,#18,#18,#18,#15
DB #18,#18,#16,#18,#18,#18,#18,#15,#18,#18,#16,#18,#18,#18,#18,#18
DB #18,#18,#18,#18,#18,#0E,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18
DB #15,#18,#18,#18,#18,#18,#18,#18,#18,#15,#18,#18,#18,#18,#18,#16
DB #18,#18,#0E,#18,#18,#15,#09,#6E,#6E,#6E,#6E,#6E,#6E,#6E,#6E,#6E
DB #6E,#6E,#6E,#6E,#6E,#6E,#03,#15,#18,#18,#15,#18,#18,#16,#18,#18
DB #18,#18,#18,#15,#18,#18,#16,#18,#18,#18,#18,#18,#18,#15,#18,#18
DB #18,#18,#18,#18,#18,#18,#18,#15,#18,#18,#18,#18,#18,#18,#16,#18
DB #18,#18,#18,#18,#15,#18,#18,#16,#18,#18,#18,#18,#0E,#18,#18,#18
DB #18,#18,#18,#18,#18,#18,#18,#18,#0D,#18,#18,#18,#18,#16,#18,#18
DB #18,#18,#18,#18,#18,#18,#07,#10,#11,#12,#13,#14,#11,#12,#13,#12
DB #11,#12,#13,#14,#11,#12,#13,#00,#00,#00,#00,#00,#00,#00,#00,#03
DB #18,#18,#15,#18,#18,#16,#18,#18,#18,#18,#18,#18,#15,#18,#18,#16
DB #18,#18,#18,#18,#18,#18,#18,#16,#18,#18,#18,#18,#18,#18,#18,#18
DB #18,#18,#18,#0E,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#18,#16
DB #18,#0E,#0D,#18,#18,#18,#15,#18,#18,#18,#0D,#0E,#18,#18,#0E,#18
DB #18,#15,#0E,#18,#16,#15,#08,#1C,#1A,#0B,#1D,#0A,#1A,#0B,#1D,#0A
DB #1A,#0B,#1D,#0A,#1A,#0B,#1D,#12,#11,#12,#13,#14,#11,#12,#11,#13
DB #00,#00,#00,#00,#00,#03,#15,#15,#18,#18,#18,#16,#18,#18,#18,#18
DB #0E,#18,#18,#18,#18,#18,#15,#18,#18,#16,#18,#18,#18,#18,#0E,#18
DB #18,#16,#18,#18,#18,#18,#0E,#18,#18,#18,#0E,#18,#18,#0D,#18,#15
DB #01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01,#01
DB #01,#01,#01,#01,#01,#01,#08,#1C,#0C,#17,#0F,#17,#0C,#17,#0F,#17
DB #0C,#17,#0F,#17,#0C,#17,#0F,#0A,#1A,#0B,#1D,#0A,#1A,#0A,#1A,#1D
DB #13,#14,#11,#12,#13,#13,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
DB #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
L9MAPY
DB #2F,#30,#31,#31,#31,#32,#33,#34,#35,#36,#18,#18,#18,#31,#31,#31
DB #31,#31,#37,#38,#39,#3A,#3B,#3C,#18,#18,#3D,#3E,#3F,#31,#31,#40
DB #41,#42,#31,#43,#44,#45,#46,#47,#48,#49,#4A,#31,#31,#31,#31,#31
DB #31,#31,#31,#4B,#31,#31,#31,#31,#31,#31,#31,#31,#31,#31,#4C,#4D
DB #48,#4E,#4F,#50,#51,#52,#53,#54,#55,#56,#57,#58,#31,#31,#59,#5A
DB #5B,#5C,#5D,#31,#5E,#31,#5F,#60,#61,#31,#31,#6C,#6D,#6C,#6D,#6C
DB #6D,#6C,#6D,#6C,#6D,#6C,#6D,#6C,#66,#67,#66,#67,#66,#67,#66,#67
DB #66,#67,#68,#69,#67,#62,#63,#62,#63,#62,#63,#62,#63,#62,#63,#6A
DB #6B,#62,#64,#65,#64,#65,#64,#65,#64,#65,#64,#65,#6A,#6B,#64,#62
DB #63,#62,#63,#62,#63,#62,#63,#62,#63,#6A,#6B,#62,#64,#65,#64,#65
DB #64,#65,#64,#65,#64,#65,#6A,#6B,#64,#62,#63,#62,#63,#62,#63,#62
DB #63,#62,#63,#6A,#6B,#62,#64,#65,#64,#65,#64,#65,#64,#65,#64,#65
DB #6A,#6B,#64,#6C,#6D,#6C,#6D,#6C,#6D,#6C,#6D,#6C,#6D,#6C,#6D,#6C
L9END
;ENDIF
UNPHASE
;****************************************************************************
;** END OF FILE **
;****************************************************************************
;****************************************************************************
;** END OF LEVEL DATA **
;****************************************************************************