ƒQ[ƒ€‚̃AƒZƒ“ƒuƒ‹ƒŠƒXƒg‚Å‚·
ORG $B000
SC:DS 2
ST:DS 5*22+1
TK:DS 7*22+1
MS:DS 4*15+1
BA:DS 7*8*3+1
SR:DS 6*25+1
SY:DS 2
DAD:DS 2
OT:DS 2
JK:DS 5
LA:DS 7
BAWA:DS 2
rnd:DS 2
STS:DS 1
MA1:DS 1
;MA2:DS 1
MA3:DS 1
HOI:DS 1
BAI:DS 1
GALA:DS 1
HI:DS 2
DS 100
STACK
ORG $A000
JP IPL
RND:PUSH HL:PUSH DE:LD HL,(rnd)
DB $54:$5D:$19:$19:$7D:$84:$67:$11:$81:$00:$19
LD (rnd),HL: DB $7C:$D1:$E1:$C9
RRND
LD E,A:CALL RND
RRND1:CP E:RET C:SUB E:JP RRND1
ADR:PUSH DE:PUSH BC:LD A,H
LD H,L:LD DE,$1E:LD L,D:LD B,8
ADR1:ADD HL,HL:JR NC,ADR2:ADD HL,DE
ADR2:DJNZ ADR1
LD DE,$1E*8+$8004:ADD HL,DE:LD E,A:LD D,0:ADD HL,DE
POP BC:POP DE:RET
;-------
PT:CALL ADR
PT1:PUSH BC:PUSH HL
PT2:LD A,(DE):INC DE:LD (HL),A:INC HL:DJNZ PT2
POP HL:LD BC,$1E:ADD HL,BC
POP BC:DEC C:JR NZ,PT1:RET
;------
PK:CALL ADR:LD DE,$1E:XOR A
PK1:PUSH BC:PUSH HL
PK2:LD (HL),A:INC HL:DJNZ PK2
POP HL:ADD HL,DE
POP BC:DEC C:JR NZ,PK1:RET
;‡‡Ó¼Þ
PR1:PUSH HL:PUSH HL:LD HL,MOJIDATA-8:LD DE,8:LD B,A
PR2:ADD HL,DE:DJNZ PR2
EX DE,HL:POP HL:LD BC,$108:CALL PT:POP HL:INC H:RET
;‡‡Ó¼ÞÚÂ
PR3:LD A,(DE):INC DE:OR A:RET Z
PUSH DE:CALL PR1:POP DE:JR PR3
;‡‡2¹À
KT2:PUSH AF:AND $F0: DB $F:$F:$F:$F
INC A:CALL PR1:POP AF
AND $F:INC A:JR PR1
;‡‡5¹À
KT5:LD A,(DE):INC DE:PUSH DE:CALL KT2:POP DE
LD A,(DE):CALL KT2:LD A,1:JR PR1
;‡‡½º± Æ AÀ¼Ã Ë®³¼Þ
SCAD:LD HL,SC+1:ADD A,(HL):DAA:LD (HL),A:DEC HL:LD A,0
ADC A,(HL):DAA:LD (HL),A
LD DE,SC:LD HL,$0600:JR KT5 ;????
;‡‡Î¼
ST1:LD HL,HOI:DEC (HL):JR NZ,SSST
LD (HL),5
SSST:LD IX,ST:LD BC,5:LD A,(IX)
ST2:DEC A:JR NZ,ST4
LD L,(IX+1)
LD H,(IX+2)
LD A,(IX+3):CPL:AND (HL):LD (HL),A:LD A,(HOI):DEC A:JR NZ,ST4
LD A,(IX+3):RRCA:LD (IX+3),A
CP $80:JR NZ,ST4
DEC (IX+4):JR NZ,ST3:LD (IX),0:JR ST4
ST3:DEC HL
LD (IX+1),L
LD (IX+2),H
ST4:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,ST2:RET
ST5:LD IX,ST:LD BC,5:LD A,(IX)
ST6:DEC A:JR NZ,ST7
LD L,(IX+1)
LD H,(IX+2)
LD A,(IX+3):OR (HL):LD (HL),A
ST7:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,ST6:RET
ST8:LD HL,ST:LD BC,5
ST9:LD A,(HL):DEC A:JR NZ,STA:ADD HL,BC:JR ST9
STA:LD (HL),1:PUSH HL:POP IX
LD A,100:CALL RRND:ADD A,8:LD L,A:LD H,$15:CALL ADR
LD (IX+1),L
LD (IX+2),H
LD (IX+3),$80
LD (IX+4),$16:RET
;‡‡‡‡ ÷
TK1:LD IX,TK:LD A,(IX)
TK2:DEC A:JP NZ,TKC
DEC (IX+6):JR NZ,TK3
LD E,(IX+3)
LD D,(IX+4):LD A,(DE):INC DE
LD (IX+3),E
LD (IX+4),D:PUSH AF:AND $F:LD (IX+5),A:POP AF
AND $F0: DB $F:$F:$F:$F
INC A:LD (IX+6),A
TK3:CALL MSCLS
LD A,(IX+5):AND 3:JR Z,TK6:DEC A:LD A,(IX+2):JR NZ,TK4
SUB 1:JR NC,TK5:LD (IX),0:JR TKC
TK4:INC A
TK5:LD (IX+2),A
TK6
LD A,(IX+5):AND $C:JR Z,TK9:SUB $4:LD A,(IX+1):JR NZ,TK7
SUB 8:JR TK8
TK7:ADD A,8
TK8:LD (IX+1),A
TK9
LD L,(IX+1)
LD H,(IX+2):CALL ADR:LD DE,$1E
DB $36:$80:$19:$36:$60:$19:$36:$30:$19:$36:$3C:$19:$36:$1F:$19
DB $36:$1F:$19:$36:$3C:$19:$36:$30:$19:$36:$60:$19:$36:$80
TKC:LD BC,7:ADD IX,BC:LD A,(IX):CP $FF:JP NZ,TK2:RET
;TKD:LD IX,TK:LD BC,7:LD A,(IX)
;TKE:DEC A:JR NZ,TK10:CALL MSCLS:DEC HL
;LD A,(IX+2):OR A:JR NZ,TKF:LD (IX),0:JR TK10
;TKF:DEC A:LD (IX+2),A:CALL TKB
;TK10:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,TKE:RET
;‡‡Ð»²Ù
MS8:LD A,8: DB $77:$19:$77:$19:$77:$19:$77:$19:$77:$19:$77:$19
LD A,$14: DB $77:$19:$77:$19:$77:$19:$77
RET
MSCLS
LD L,(IX+1)
LD H,(IX+2):CALL ADR:PUSH HL:LD DE,$1E:XOR A
DB $77:$19:$77:$19
DB $77:$19:$77:$19
DB $77:$19:$77:$19
DB $77:$19:$77:$19
DB $77:$19:$77
POP HL:RET
MS1:LD IX,MS:LD BC,4:LD A,(IX)
MS2:DEC A:JR NZ,MS5
CALL MSCLS:DEC HL
LD A,(IX+2):OR A:JR NZ,MS4:LD (IX),0:JR MS5
MS4:DEC A:LD (IX+2),A
LD A,(IX+3)
CP $FF:JR NZ,MS6
DB $36:$18:$19:$36:$3C:$19:$36:$3C:$19:$36:$7E:$19:$36:$5A:$19
DB $36:$DB:$19:$36:$FF:$19:$36:$FF:$19:$36:$66:$19:$36:$18:$19
JR MS5
MS6:CP $FE:JR NZ,MS7
DB $36:$38:$19:$36:$C6:$19:$36:$44:$19:$36:$7C:$19:$36:$38:$19
DB $36:$38:$19:$36:$10:$19:$36:$10:$19:$36:$10:$19:$36:$38:$19
JR MS5
MS7:OR A:JR Z,MS3:DEC A:LD (IX+3),A
MS3
CALL MS8
MS5:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,MS2:RET
MS9:LD IX,MS:LD BC,4:LD A,(IX)
MSA:DEC A:JR NZ,MSC:LD A,(IX+3):OR A:JR NZ,MSC
CALL MSCLS:XOR A:SBC HL,DE
LD A,(IX+1):DEC A:CP 8:JR NZ,MSB:LD (IX),0:JR MSC
MSB:LD (IX+1),A:CALL MS8
MSC:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,MSA:RET
;‡‡‡‡ ÊÞ¸ÊÂ
BA1:LD HL,BAI:DEC (HL):JR NZ,BBBB:LD (HL),5
BBBB
LD IX,BA:LD BC,7:LD A,(IX)
BA2:DEC A:JR NZ,BA9
LD L,(IX+1)
LD H,(IX+2)
LD A,(IX+3):CPL:LD E,A
AND (HL):LD (HL),A:LD A,E:LD DE,$1E:PUSH HL:ADD HL,DE
AND (HL):LD (HL),A:POP HL:LD A,(BAI):DEC A:JR NZ,BA9
DEC (IX+6):JR NZ,BA3:LD (IX),0:JR BA9
BA3:LD A,(IX+4):OR A:JR Z,BA5:DEC A:JR NZ,BA4
XOR A:SBC HL,DE:JR BA5
BA4:ADD HL,DE
BA5
LD A,(IX+5):OR A:JR Z,BA8:DEC A:LD A,(IX+3):JR NZ,BA6
RRCA:CP $80:JR NZ,BA7:DEC HL:JR BA7
BA6:RLCA:CP 1:JR NZ,BA7:INC HL
BA7:LD (IX+3),A
BA8:LD (IX+1),L:LD (IX+2),H
BA9:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,BA2:RET
BAA:LD IX,BA:LD DE,$1E:LD BC,7:LD A,(IX)
BAB:DEC A:JR NZ,BAC
LD L,(IX+1)
LD H,(IX+2)
LD A,(IX+3):OR (HL):LD (HL),A:ADD HL,DE
LD A,(IX+3):OR (HL):LD (HL),A
BAC:ADD IX,BC:LD A,(IX):CP $FF:JR NZ,BAB:RET
;‡‡½¸Û°Ù
SR1:LD IX,SR:LD A,(IX)
SR2:DEC A:JP NZ,SRB
LD L,(IX+1)
LD H,(IX+2)
LD B,(IX+5):LD C,0
LD DE,$1E:PUSH HL
SR3:LD (HL),C:ADD HL,DE:DJNZ SR3
POP HL:DEC (IX+4):JR NZ,SR4:LD (IX),0:JR SRB
SR4:DEC HL
LD (IX+1),L
LD (IX+2),H
LD A,(IX+3):OR A
JR NZ,SR5
DB $36:$80:$19:$36:$40:$19:$36:$20:$19:$36:$10:$19
DB $36:$08:$19:$36:$04:$19:$36:$02:$19:$36:$01
JR SRB
SR5:DEC A:JR NZ,SR6
DB $36:$C0:$19:$36:$30:$19:$36:$0C:$19:$36:$03
JR SRB
SR6:DEC A:JR NZ,SR7
DB $36:$F0:$19:$36:$F
JR SRB
SR7:DEC A:JR NZ,SR8
DB $36:$FF
JR SRB
SR8:DEC A:JR NZ,SR9
DB $36:$F:$19:$36:$F0
JR SRB
SR9:DEC A:JR NZ,SRA
DB $36:$3:$19:$36:$C:$19:$36:$30:$19:$36:$C0
JR SRB
SRA
DB $36:$01:$19:$36:$02:$19:$36:$04:$19:$36:$08:$19
DB $36:$10:$19:$36:$20:$19:$36:$40:$19:$36:$80
SRB:LD DE,6:ADD IX,DE:LD A,(IX):CP $FF:JP NZ,SR2
RET
;‡‡‡‡ ½¸Û°Ù ʯ¾²
S0
LD HL,(DAD)
S1:LD A,(HL):INC HL:CP $FF:JR NZ,S2:LD HL,SCDATA:JR S1
S2:LD (DAD),HL:PUSH AF:AND $7:LD HL,SR:LD DE,6
S3:LD B,(HL):DEC B:JR NZ,S4:ADD HL,DE:JR S3
S4:PUSH HL:POP IX:LD (HL),1:LD (IX+3),A:LD (IX+4),$16
OR A:JR NZ,S5:LD A,(SY):SUB 8:LD (SY),A:LD (SY+1),A:LD (IX+5),8:JP SB
S5:DEC A:JR NZ,S6:LD A,(SY):SUB 4:LD (SY),A:LD (SY+1),A:LD (IX+5),4:JR SB
S6:DEC A:JR NZ,S7:LD A,(SY):SUB 2:LD (SY),A:LD (SY+1),A:LD (IX+5),2:JR SB
S7:DEC A:JR NZ,S8:LD A,(SY):DEC A:LD (SY),A:LD (SY+1),A:LD (IX+5),1:JR SB
S8:DEC A:JR NZ,S9:LD A,(SY):INC A:LD (SY+1),A:INC A:LD (SY),A
LD (IX+5),2:JR SB
S9:DEC A:JR NZ,SA:LD A,(SY):INC A:LD (SY+1),A:ADD A,3:LD (SY),A
LD (IX+5),4:JR SB
SA:DEC A:JR NZ,SAS:LD A,(SY):INC A:LD (SY+1),A:ADD A,7:LD (SY),A
LD (IX+5),8:JR SB
SAS:LD A,(SY):INC A:LD (SY),A:LD (SY+1),A:LD (IX+3),3: LD (IX+5),1
SB:LD A,(SY+1):LD L,A:LD H,$15:CALL ADR
LD (IX+1),L
LD (IX+2),H:POP AF
PUSH AF:AND $18:JR Z,S11: DB $F:$F:$F
PUSH AF:LD HL,MS:LD DE,4
SD:LD A,(HL):DEC A:JR NZ,SE:ADD HL,DE:JR SD
SE:LD (HL),1:INC HL
LD A,(SY+1):SUB 11:LD (HL),A:INC HL
LD (HL),$15:INC HL:POP AF
DEC A:JR NZ,SF:LD A,10:CALL RRND:ADD A,2:LD (HL),A:JR S11
SF:DEC A:JR NZ,S10:LD (HL),$FF:JR S11
S10:LD (HL),$FE
S11:POP AF
AND $E0:JR Z,S16: DB $F:$F:$F:$F:$F
LD B,A:LD DE,5:LD HL,TKTABLE-5
S12:ADD HL,DE:DJNZ S12
PUSH HL:POP IX
LD B,(IX+4):LD HL,TK:LD DE,7:LD C,1
S13:PUSH BC
S14:LD A,(HL):CP $FF:JR NZ,SS14
POP BC:JR S16
SS14:DEC A:JR NZ,S15:ADD HL,DE:JR S14
S15:LD (HL),1:INC HL
LD A,(IX+0):LD (HL),A:INC HL
LD A,(IX+1):LD (HL),A:INC HL
LD A,(IX+2):LD (HL),A:INC HL
LD A,(IX+3):LD (HL),A:INC HL
LD (HL),0:INC HL
LD (HL),C:INC HL:POP BC:INC C:INC C:DJNZ S13
S16
CALL MS1:CALL SR1;:CALL TKD
RET
;‡‡‡‡ µÄ
OT1:LD A,(OT):OR A:RET Z:DEC A:LD (OT),A
OOT1:LD A,(OT+1):DEC A:JR Z,OT2:LD A,1
OT2:LD (OT+1),A:OUT (2),A:RET
;‡‡‡‡ Ú°»Þ°
LA1
IN A,(0):BIT 4,A:JR Z,LA2:XOR A:LD (LA+6),A:RET
LA2:LD A,(LA+6):DEC A :RET Z
LD IX,LA:LD A,(IX):DEC A:RET Z:LD A,1:LD (LA+6),A:LD (IX),A:LD (IX+1),0
LD A,(JK):ADD A,9:LD (IX+2),A:DEC A:LD (IX+4),A
LD A,(JK+1):ADD A,2:LD (IX+3),A:DEC A:LD (IX+5),A :RET
LA3:LD A,(LA):DEC A:RET NZ:CALL OOT1:LD IX,LA:LD A,(IX+1):DEC A:JR Z,LA5
LD L,(IX+2)
LD H,(IX+3):CALL ADR:LD A,(HL):OR A:JR NZ,LA4
LD (HL),$FF:INC (IX+2):LD A,(IX+3):INC A:LD (IX+3),A:CP $16:RET C
LD (IX+1),1:RET
LA4:LD (IX+1),1
LD IY,MS:LD DE,4:CALL AT
LD IY,TK:LD DE,7:JR AT
LA5
LD L,(IX+4)
LD H,(IX+5):CALL ADR:LD (HL),0:INC (IX+4):INC (IX+5)
LD A,(IX+4):CP (IX+2):RET NZ
LD A,(IX+5):CP (IX+3):RET NZ:LD (IX),0:RET
;‡‡‡‡ ÄÞÚÆ ±À¯À
BADATA:DB 1:0:1:2:0:2:2:2:2:0:2:1:0:1:1:1:$FF
AT
LD A,(IY)
AT1:DEC A:JR NZ,AT2
LD A,(IX+3):CP (IY+2):JR NZ,AT2
LD A,(IX+2):CP (IY+1):JR C,AT2
SUB 10:CP (IY+1):JR NC,AT2
PUSH IX:PUSH IY:POP IX:CALL MSCLS:LD (IX),0:POP IX
LD A,(IY+1)
LD H,(IY+2):ADD A,5:LD L,A:CALL ADR:LD (BAWA),HL
LD DE,BADATA:LD HL,BA:LD BC,7
AT3:LD A,(HL):CP $FF:JR Z,AT5:DEC A:JR NZ,AT4:ADD HL,BC:JR AT3
AT4:LD (HL),1:INC HL
LD A,(BAWA):LD (HL),A:INC HL
LD A,(BAWA+1):LD (HL),A:INC HL
LD (HL),$8:INC HL
LD A,(DE):INC DE:LD (HL),A:INC HL
LD A,(DE):INC DE:LD (HL),A:INC HL
LD (HL),10:INC HL
LD A,(DE):CP $FF:JR NZ,AT3
AT5:LD A,3:CALL SCAD
LD A,30:LD (OT),A:RET
AT2:ADD IY,DE:LD A,(IY):CP $FF:JR NZ,AT1:RET
;‡‡¼Þ·
JK1
;LD HL,MA2:DEC (HL):JR NZ,DJKEI
;LD (HL),7
LD HL,STS:DEC (HL):JR NZ,STS1
LD (HL),8*5:CALL ST8
STS1
CALL ST1:CALL BA1:CALL LA3:CALL LA1
LD HL,(JK):CALL ADR
LD DE,CH0:LD BC,$210
JK2:PUSH BC:PUSH HL
JK3:LD A,(DE):INC DE:CPL:AND (HL):INC HL:JP NZ,YA
DJNZ JK3:POP HL:LD BC,$1E:ADD HL,BC:POP BC:DEC C:JR NZ,JK2
CALL LA3:CALL ST5:CALL BAA
DJKEI
LD HL,(JK):LD BC,$210:CALL PK
IN A,(0):BIT 0,A:JR NZ,JK4:LD A,(JK):CP 9:JR C,JK5:DEC A:LD (JK),A
JR JK5
JK4:BIT 1,A:JR NZ,JK5:LD A,(JK):CP 200:JR NC,JK5:INC A:LD (JK),A
JK5
LD HL,(JK):LD BC,$210:LD DE,CH0:JP PT
;-----------------
JK6:LD HL,GALA:DEC (HL):RET NZ:LD (HL),2
LD HL,JK+4:DEC (HL):JR NZ,JK8
LD (HL),5:CALL JK7
IN A,(0):BIT 2,A:PUSH AF:CALL Z,JK7:POP AF
BIT 3,A:JR NZ,JK8
LD A,(JK+3):SUB 2: DB $20:$2:$3E:$1
LD (JK+3),A
JK8
LD HL,JK+2:DEC (HL):JR NZ,JK9:LD A,(JK+3):LD (HL),A
CALL S0
RET
JK9:LD B,4
JKA:PUSH BC:LD B,00
JKB:DJNZ JKB:POP BC:DJNZ JKA:RET
JK7:LD A,(JK+3):CP $15:RET NC:INC A
LD (JK+3),A:RET
MOJIDATA
DM "#<#B!!!!#B#<"
CH1
DM "#<#8#8#8#8#8#8#L"
CH2
DM "#N!!! #H#6?"
CH3
DM "#N! #@, !#N"
CH4
DM "#9#9#9#9?#8#8#8"
CH5
DM "?#1#1#O #O"
CH6
DM "#N!#1#O!!!#N"
CH7
DM "?!!#A#@#@#8#8"
CH8
DM "#N!!#I&!!#N"
CH9
DM "#N!!!> !#N"
CHA
DM "#<#B!!!?!!"
CHB
DM "#O!!#I'!!#O"
CHC
DM "#N!#1#1#1#1!#N"
CHD
DM "#?#A!!!!#A#?"
CHE
DM "?#1#1#O#1#1#1?"
CHF
DM "#1#1#1?#1#1#1"
CH10
DM "#N!!#1y!!#N"
CH11
DM "!!!!?!!!"
CH12
DM "#L#8#8#8#8#8#8#L"
CH13
DM "#N#4#4#4#4#4#4" DB $3 ;#H
CH14
DM "!#A#9#5#7#9#A!"
CH15
DM "#1#1#1#1#1#1#1?"
CH16
DM "cUUIIIII"
CH17
DM "#S#S%%))11"
CH18
DM "#<#B!!!!#B#<"
CH19
DM "#O!!!#O#1#1#1"
CH1A
DM "#<#B!!!-#Bl"
CH1B
DM "#O!!!#O#5#9#A"
CH1C
DM "#N!!#1#N !#N"
CH1D
DM "#8#8#8#8#8#8#8"
CH1E
DM "!!!!!!!#N"
CH1F
DM "AA#R#R#D#D#8#8"
CH20
DM "AAIII**#D"
CH21
DM "!#B#B#<#<#B#B!"
CH22
DM "AAAA>#8#8#8"
CH23
DM "? 0#H#<#6#3?"
CH24
DM "#@#8#4#4#4#4#8#@"
CH25
DM "#8#@ #@#8"
CH26
DM "$$$?$$$$"
CH27
DM "$$$$$$$$"
CH0
DM "#7$#4$#4$#4$#4$#4$#H$33p$#H$#<$#4$ÿ$"
;‡‡‡‡¼®·
IPL
LD HL,0:LD (HI),HL
SHO:LD SP,STACK:LD A,1
LD (MA1),A:LD (MA3),A:LD (HOI),A:LD (BAI),A:LD (GALA),A
LD (STS),A:LD HL,0
LD (OT),HL
LD (SC),HL
LD (LA),HL
LD HL,ST:LD DE,5:LD B,22:CALL WORK
LD HL,BA:LD DE,7:LD B,8*3:CALL WORK
LD HL,TK:LD B,22:CALL WORK
LD HL,MS:LD DE,4:LD B,15:CALL WORK
LD HL,SR:LD DE,6:LD B,25:CALL WORK
LD HL,JK: DB $36:$40:$23:$36:$4:$23:$36:$1:$23:$36:$5:$23:$36:$1
LD HL,SCDATA:LD (DAD),HL
LD A,200:LD (SY),A: DB $3E:$9A:$D3:$3
CALL CLS
LD DE,MJ1:LD HL,$300:CALL PR3
LD DE,MJ2:LD HL,$420:CALL PR3
LD DE,MJ3:LD HL,$430:CALL PR3
LD DE,MJ4:LD HL,$360:CALL PR3
LD DE,MJ5:LD HL,$470:CALL PR3
LD DE,MJ6:LD HL,$1C0:CALL PR3
TRIN:IN A,(0):BIT 4,A:JR NZ,TRIN
CALL KUN
CALL CLS ;JR MAIN
LD DE,SCORE:LD HL,0:CALL PR3
LD DE,HISC:LD HL,$C00:CALL PR3
LD DE,HI:LD HL,$F00:CALL KT5
XOR A:CALL SCAD
MAIN
LD HL,MA1:DEC (HL):JR NZ,MAIN1
LD (HL),10:CALL TK1
MAIN1
CALL JK1:CALL OT1
CALL JK6:CALL OT1
CALL MS9:CALL OT1:JR MAIN
WORK:LD (HL),0:ADD HL,DE:DJNZ WORK:LD (HL),$FF:RET
CLS:LD HL,$8000
LD DE,$8001
LD BC,$1FFF:LD (HL),0:LDIR:RET
MJ1: DB $1D:$D:$1C:$B:$17:$C:$16:$F:$28:$B:$1E:$1E:$15:$F:$1C:$00
MJ2: DB $17:$19:$20:$F:$27:$27:$27:$14:$19:$23:$28:$1D:$1E:$13:$D:$15:$00
MJ3: DB $16:$B:$1D:$F:$1C:$27:$27:$1E:$1C:$13:$11:$11:$F:$1C:$00
MJ4: DB $1A:$1C:$19:$11:$1C:$B:$17:$28:$C:$23:$28:$13:$1D:$13:$1D:$00
MJ5: DB $25:$D:$26:$28:$2:$A:$9:$9:$28:$4:$00
MJ6: DB $12:$13:$1E:$28:$1E:$1C:$13:$11:$11:$F:$1C:$28:$1E:$19:$28
DB $1D:$1E:$B:$1C:$1E:$00
KUN:LD B,$C0
KUN1:PUSH BC:LD A,1:OUT (2),A:PUSH BC
KUN2:DJNZ KUN2:POP BC:XOR A:OUT (2),A
KUN3:DJNZ KUN3:POP BC:DJNZ KUN1
RET
GAMEOVER: DB $11:$B:$17:$F:$28:$19:$20:$F:$1C:$00
YA:LD B,10
YA1:PUSH BC
LD HL,(JK):LD BC,$210:LD DE,BCH0:CALL PT:CALL KUN
LD HL,(JK):LD BC,$210:LD DE,BCH1:CALL PT:CALL KUN
POP BC:DJNZ YA1
LD DE,GAMEOVER:LD HL,$660:CALL PR3
LD HL,(HI):LD DE,(SC):XOR A:SBC HL,DE:JR NC,YA2:LD (HI),DE
YA2
YA3:IN A,(0):BIT 4,A:JR NZ,YA3
CALL KUN:JP SHO
SCORE: DB $1D:$D:$19:$1C:$F:$00
HISC: DB $12:$13:$00
;†‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡‡TKTABLE
DB $38:$17 DW COS1 DB 6
DB $40:$17 DW COS2 DB 7
DB $28:$17 DW COS3 DB 6
DB $38:$17 DW COS4 DB 9
DB $38:$17 DW COS5 DB 6
DB $38:$17 DW COS6 DB 5
DB $38:$17 DW COS7 DB 6
COS1: DB $31:$35:$31:$39:$38:$3A:$32:$36:$34
DB $35:$31:$39:$38:$3A:$32:$36:$34
DB $35:$31:$39:$38:$3A:$32:$36:$34
DB $F1:$F1
COS2: DB $41:$36:$24:$81:$28:$7A:$39:$41:$45:$44:$46:$42:$3A
DB $38:$39:$41:$45:$F1:$F1
COS3: DB $25:$29:$25:$29:$25:$29:$25:$29:$25:$29
DB $56:$F1:$F1
COS4: DB $91:$21:$29:$28:$2A:$22:$26:$24:$25
DB $21:$29:$28:$2A:$22:$26:$24:$25
DB $21:$29:$28:$2A:$22:$26:$24:$25
DB $F1:$F1
COS5: DB $61:$3A:$38:$31:$26:$44:$22:$25:$39
COS6: DB $F1:$F1
COS7: DB $49:$50:$45:$50:$49:$50:$45:$50:$49:$50:$45:$50:$F1:$F1
;SCDATA
;DB $03:$0B:$03:$02:$02:$01:$02:$01:$00:$01:$02:$03:$03:$03
;DB $04:$05:$06:$05:$04:$05:$04:$04:$03:$23:$1B:$FF
BCH0
DM "2P#9d#;Ê#Sý_þ/õ¯þ?øoMØ%H#: #2"
BCH1
DM "€$äJOþ?þÿþ?OOÜRª#5@#4"
SCDATA
DB $03:$0B:$01:$02:$0B:$00:$0B:$00:$0B:$00:$0B:$00:$0B:$00:$0B:$00:$00
DB $01:$02:$13:$04:$05:$06:$06:$05:$26:$05:$04:$07:$0B:$05:$06:$05:$04
DB $07:$02:$0A:$01:$12:$00:$01:$0A:$00:$01:$0A:$03:$05:$06:$06:$06:$05
DB $06:$05:$04:$07:$45:$07:$01:$00:$0A:$00:$0A:$01:$19:$00:$00:$01:$0A
DB $03:$0A:$00:$00:$01:$13:$04:$07:$0C:$07:$0C:$07:$0C:$07:$0C:$07:$0C
DB $07:$0C:$07:$06:$05:$66:$04:$05:$06:$06:$05:$07:$01:$0A:$01:$00:$0A
DB $03:$1B:$00:$09:$03:$05:$06:$07:$01:$00:$0A:$01:$0A:$00:$1B:$04:$05
DB $06:$06:$06:$06:$06:$85:$04:$07:$0F:$02:$09:$00:$09:$02:$13:$04:$06
DB $07:$0C:$01:$00:$0A:$03:$1B:$04:$06:$06:$05:$06:$07:$0D:$06:$06:$07
DB $0A:$00:$0A:$01:$00:$AA:$01:$0A:$00:$01:$1A:$02:$0B:$05:$06:$05:$04
DB $07:$0A:$01:$0A:$00:$01:$0A:$01:$1B:$04:$05:$06:$06:$05:$04:$07:$01
DB $0A:$00:$09:$00:$12:$C1:$1A:$00:$12:$02:$13:$05:$06:$05:$06:$06:$07
DB $0C:$06:$05:$07:$0F:$02:$00:$0A:$01:$1A:$00:$00:$1A:$01:$0A:$00:$01
DB $1B:$05:$06:$06:$04:$E6:$06:$05:$06:$05:$04:$07:$0A:$03:$0A:$00:$0A
DB $00:$01:$1A:$02:$09:$00:$01:$0B:$07:$0C:$07:$14:$07:$1C:$07:$0C:$07
DB $0C:$07:$0C:$05:$06:$26:$06:$05:$04:$07:$00:$09:$03:$0C:$05:$05:$05
DB $07:$FF