If you appreciate the work done within the wiki, please consider supporting The Cutting Room Floor on Patreon. Thanks for all your support!

Peek-A-Boo Poker

From The Cutting Room Floor
Jump to navigation Jump to search

Title Screen

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


SourceIcon.png This game has uncompiled source code.
RegionIcon.png 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
AVPokerTitleScreen.png PeakABooPoker.png