Peek-A-Boo Poker

Peek-A-Boo Poker
Also known as: AV Poker (JP) Developer: Idea-Tek Publishers: Hacker International (JP), Panesian (US) Platform: Unlicensed NES Released in JP: 1990 Released in US: 1991 This game has uncompiled source code. This game has regional differences.

Uncompiled Source Code

Some uncompiled source code can be found only in the Japanese ROM at 0x70F9.

USH00_0
	JSR	YEQXADD1
CHK_FLUSH00
	LDA	PLAY_ÿÿG
    Q	CHK_FLUSHDLR
	LDA	PLAYBUF,X
	AND	#C0H
	STA	I_TEMP
	LDA	PLAYBUF,Y
	AND	#C0H
	STA	J_TEMP
CHK_FLUSHALL
	LDA	I_TEMP
	CMP	J_TEMP
	BNE	NO_ÿÿUS    INY
	CPY	#5
	BNE	CHK_FLUSH00
	INX
	CPX	#4
	BNE	CHK_FLUSH00_0
	INC	FLUSH_FLG
	RTS
NO_FLUSH
	LDA	#0
	STA	FLUSH_FLG
	RTS
;
;
;
CHK_PÿÿRD    	JSR	CHK_DLRNO
	JMP	CHK_PAIR10
CHK_PAIR
	LDX	#0
	STX	SAME_CNT
	STX	PAIR_TEMP
CHK_PAIR00_0
	JSR	YEQXADD1
CHK_PAIR00
	LDA	PLAY_FLG
	BEQ	ÿÿK_    DLR
	LDA	PLAYBUF,X
	AND	#0FH
	STA	I_TEMP
	LDA	PLAYBUF,Y
	AND	#0FH
	STA	J_TEMP
CHK_PAIR10
	LDA	I_TEMP
	CMP	J_TEMP
	BNE	NOT_SAME
	INC	SÿÿE_    
	LDA	J_TEMP
	BNE	CHK_PAIR03
	LDA	#13
CHK_PAIR03
	CMP	PAIR_TEMP
	BMI	NOT_SAME
	PHA
	LDA	PAIR_TEMP
	STA	PAIR_TEMP1
	PLA
	STA	PAIR_TEMP
ÿÿOT    E
	INY
	CPY	#5
	BNE	CHK_PAIR00
	INX
	CPX	#4
	BNE	CHK_PAIR00_0
	RTS
;
;
;
CHK_STRIGHTDLR
	JSR	CHK_DLRNO
	JMP	CHK_STRIGHT10
CHK_STRIÿÿT
    X	#0
CHK_STRIGHT00_0
	JSR	YEQXADD1
CHK_STRIGHT00
	LDA	PLAY_FLG
	BEQ	CHK_STRIGHTDLR
	LDA	PLAYBUF,X
	AND	#0FH
	STA	I_TEMP
	LDA	PLAYBUF,Y
ÿÿAN    FH
	STA	J_TEMP
CHK_STRIGHT10
	LDA	I_TEMP
	CMP	J_TEMP
	BMI	CHK_STRSUB01
	SEC
	SBC	J_TEMP
	CMP	#4
	BMI	CHK_STR01
	BEQ	CHK_STR01
	JMP	CHÿÿNO    
CHK_STR01
	INY
	CPY	#5
	BNE	CHK_STRIGHT00
	INX
	CPX	#04
	BNE	CHK_STRIGHT00_0
	INC	STR_FLG
	RTS
CHK_NOSTR
	LDA	#0
	STA	STR_FLG
	RTS
ÿÿHK    SUB01
	SEC
	LDA	J_TEMP
	SBC	I_TEMP
	CMP	#4
	BMI	CHK_STR01
	BEQ	CHK_STR01
	JMP	CHK_NOSTR
;
;
;
CHK_BIGERDLR
	LDA	DLRBUF
	JMP	CHK_BIGÿÿ10    T_ATO13
	LDA	#13
	JMP	CHK_BIGER10
CHK_BIGDLR01
	LDA	DLRBUF,X
	JMP	CHK_BIGER11
CHK_BIGER
	LDX	#1
	LDA	PLAY_FLG
	BEQ	CHK_BIGERDLR
	LDA	PÿÿYB    	BEQ	SET_ATO13
CHK_BIGER10
;	STA	BIG_TMP1
	AND	#0FH
	STA	BIGER_TEMP
	LDA	#0
	STA	BIGCNT
CHK_BIGER01
	LDA	PLAY_FLG
	BEQ	CHK_BIGDLR01
	Lÿÿ	P    UF,X
CHK_BIGER11
	AND	#0FH
	STA	I_TEMP
	LDA	BIGER_TEMP
	CMP	I_TEMP
	BPL	CHK_BIGER00
	STX	BIGCNT
	LDA	I_TEMP
CHK_BIGER00
	STA	BIGER_TEMÿÿ
	    
	CPX	#5
	BNE	CHK_BIGER01

	LDX	BIGCNT
	LDA	PLAY_FLG
	BEQ	CHKBIG00
	LDA	PLAYBUF,X
	STA	BIG_TMP1
	RTS
CHKBIG00
	LDA	DLRBUF,X
	STA	BIG_ÿÿP1    TS

;
;
;

CHK_ADDA1_DLR
	LDA	DLRBUF,X
	JMP	CHK_ADD101
CHK_ADDA1
	LDX	#0
CHK_ADDA011
	LDA	PLAY_FLG
	BEQ	CHK_ADDA1_DLR
	LDA	PLAYBUFÿÿ
    ADD101
	AND	#0FH
	CMP	#0DH
	BNE	CHK_ADDA0011
	CLC
	LDA	PLAY_FLG
	BEQ	CHK_ADD_DLR11
	LDA	PLAYBUF,X
	AND	#C0H
;	ADC	#13
	STA	PLAYBUF,X
ÿÿK_    0011
	INX
	CPX	#5
	BNE	CHK_ADDA011
	RTS
CHK_ADD_DLR11
	LDA	DLRBUF,X
	AND	#C0H
;	ADC	#13
	STA	DLRBUF,X
	JMP	CHK_ADDA0011
CHK_ADDA_DLR
ÿÿLD    RBUF,X
	JMP	CHK_ADD10
CHK_ADDA
	LDX	#0
CHK_ADDA01
	LDA	PLAY_FLG
	BEQ	CHK_ADDA_DLR
	LDA	PLAYBUF,X
CHK_ADD10
	AND	#0FH
	BNE	CHK_ADDA00
ÿÿLC    DA	PLAY_FLG
	BEQ	CHK_ADD_DLR1
	LDA	PLAYBUF,X
	AND	#C0H
	ADC	#13
	STA	PLAYBUF,X
CHK_ADDA00
	INX
	CPX	#5
	BNE	CHK_ADDA01
	RTS
CHK_ADD_Dÿÿ1
    A	DLRBUF,X
	AND	#C0H
	ADC	#13
	STA	DLRBUF,X
	JMP	CHK_ADDA00

;
;
;
YEQXADD1
	TXA
	CLC
	ADC	#1
	TAY
	RTS
;
;
;
SET_ITEM
	LDA	SÿÿE_    
	BEQ	NOT_PAIR
	TAX
	LDA	PAIR_ITEM,X
	STA	ITEM
	RTS
PAIR_ITEM
	DB	0,1,2,3,6,7,9
NOT_PAIR
	LDA	FLUSH_FLG
	BEQ	NOT_FLUSH
	LDA	STR_FLG
	ÿÿQ	    LUSH
	LDA	#8
	STA	ITEM
	RTS
NOT_FLUSH
	LDA	STR_FLG
	BEQ	BED_CARD
	LDA	#4
	STA	ITEM
	RTS
BED_CARD
	LDA	#0
	STA	ITEM
	RTS

IS_FLUSHÿÿ	L    5
	STA	ITEM
	RTS
PUSHITEM
	LDX	#0
	LDA	PLAY_FLG
	BEQ	PUSHIT_DLR0
	INX
PUSHIT_DLR0
	LDA	ITEM
	STA	DLR_ITEM,X
	LDA	SAME_CNT
	BNE	PUSH_ÿÿ
;    	BIGER_TEMP

	LDA	BIG_TMP1
	STA	DLR_CHK2,X
	RTS
PUSH_P
	LDA	PAIR_TEMP
	STA	DLR_CHK2,X
	LDY	SAME_CNT
	CPY	#2
	BEQ	SPC_CASE11
	INX
	LDÿÿBI    P1
	STA	DLR_CHK3,X
	RTS
SPC_CASE11
	INX
	LDA	PAIR_TEMP1
	STA	DLR_CHK3,X
	RTS
�NNERAS
;	JMP	ITEM_SPC_TEST
	LDA	#0
	STA	PLAY_FLG
	JSR	ÿÿK_

Regional Differences

The title screen was completely changed for the US release.

Japan	US