
;INTELLEC BLACKJACK
	
	ORG	100H
DRAWP	EQU	4B7H
DRAWM	EQU	4EFH
NAME	EQU	2F1H
SPACE	EQU	308H
FLAG	EQU	30DH
ASKAG	EQU	30EH
P1	EQU	32AH
P2	EQU	32BH
M1	EQU	32CH
M2	EQU	32DH
DKPNT	EQU	32EH
CARD	EQU	330H
HIDE	EQU	334H
MSG3	EQU	336H
MSG4	EQU	35CH
MSG5	EQU	377H
MSG6	EQU	37BH
MSG7	EQU	39EH
MSG8	EQU	3B5H
IWIN	EQU	3BFH
UWIN	EQU	3D8H
PRTCD	EQU	3F5H
NOT10	EQU	404H
PRTHC	EQU	413H
CONSO	EQU	428H
CONSIS	EQU	435H
LNOUT	EQU	442H
LNIN	EQU	44DH
PICK	EQU	45DH
PJ1	EQU	497H
STPTR	EQU	4A1H
ENDCK	EQU	4A8H
SHUFL	EQU	528H
SRSTB	EQU	535H
SINLP	EQU	53CH
SJ1	EQU	55DH
SPKLP	EQU	561H
SPLP	EQU	566H
SPCKD	EQU	575H
STRCD	EQU	584H
SHDUN	EQU	58CH
STORE	EQU	58EH
DECK	EQU	600H
CARDS	EQU	634H
VALUE	EQU	69CH

P21:	LXI	SP,0700H
	LXI	H,MSG1
	CALL	LNOUT
	LXI	H,NAME
	MVI	B,20
	CALL	LNIN
	DCX	H
	MVI	M,'?'
	INX	H
	MVI	M,0DH
	INX	H
	MVI	M,0AH
	INX	H
	MVI	M,3

ASKLP:	LXI	H,MSG2
	CALL	LNOUT
	LXI	H,SPACE
	MVI	B,4
	CALL 	LNIN
	LDA	SPACE
	CPI	'N'
	JZ	P21
	CPI	'Y'
	JZ	PLAY	
	CPI	'O'
	JZ	PLAY
	JMP	ASKLP

PLAY:	XRA	A
	STA	FLAG
	LXI	H,P1
	MOV	M,A
	INX	H
	MOV	M,A
	INX	H
	MOV	M,A
	INX	H
	MOV	M,A
	INX	H
	MVI	M,DECK AND 0FFH
	INX	H
	MVI	H,DECK SHR 8
	CALL 	SHUFL

NEWGM:	LXI	H,MSG3
	CALL	LNOUT
	CALL	DRAWP
	CALL	PRTCD
	CALL	DRAWP
	CALL	PRTCD
	LXI	H,MSG4
	CALL	LNOUT	
	LXI	H,MSG5
	CALL	LNOUT
	CALL	DRAWM
	CALL	PRTCD
	CALL	DRAWM
	LDA	CARD
	STA	HIDE
	LDA	CARD+1
	STA	HIDE+1
	LDA	M2
	CPI	21
	JNZ	D1
	LDA	P2
	CPI	21
	JNZ	MWIN-3
	CALL	PRTHC


TIE:	LXI	H,MSG7
	CALL	LNOUT

RESET:	LXI	H,P1
	XRA	A
	MOV	M,A
	INX	H
	MOV	M,A	
	INX	H
	MOV	M,A
	INX	H
	MOV	M,A
	STA	FLAG


ASG:	LXI	H,ASKAG
	CALL	LNOUT
	MVI	B,4
	LXI	H,SPACE
	CALL	CONSI
	CPI	'Y'
	JZ	NEWGM
	CPI	'O'
	JZ	NEWGM
	CPI	'N'
	JZ	P21
	JMP	ASG
	CALL	PRTHC

MWIN:	LXI	H,IWIN
	CALL	LNOUT
	JMP	RESET
D1:	LDA	P2
	CPI	21
	JNZ	D2
	CALL	PRTHC

PWIN:	LXI	H,UWIN
	CALL	LNOUT
	JMP	RESET

D2:	LXI	H,MSG8
	CALL	LNOUT

D2A:	CALL	CONSI
	CPI	'H'
	JZ	HIT
	CPI	'S'
	JZ	STICK
	JMP	D2A

HIT:	CALL	DRAWP
	CALL	PRTCD
	LDA	P1
	CPI	22
	JM	D2A
	JMP	MWIN-3

STICK:	CALL	PRTHC

D3:	LDA	M2
	CPI	17
	JP	D4
	CALL	DRAWM
	CALL	PRTCD
	JMP	D3

D4:	CPI	22
	JP	D5
	LDA	P2
	CPI	22
	JP	D6
	LXI	H,M2
	CMP	M
	JM	MWIN
	JZ	TIE
	JMP	PWIN
D6:	LDA	P1
	LXI	H,M2
	CMP	M
	JM	MWIN
	JZ	TIE
	JMP	PWIN

D5:	LDA	M1
	CPI	17
	JP	D7
	CALL	DRAWM
	CALL	PRTCD
	JMP	D5
D7:	LDA	M1
	CPI	22
	JP	PWIN
	LDA	P2
	CPI	22
	JP	D8
	LXI	H,M1
	CMP	M
	JM	MWIN
	JZ	TIE
	JMP	PWIN

D8:	LDA	P1
	LXI	H,M1
	CMP	M
	JM	MWIN
	JZ	TIE
	JMP	PWIN

MSG1:	DB	0DH,0AH,0AH,'HELLO, I''M THE '
	DB	'INTELLEC 8  COMPUTER',0DH,0AH
	DB	'WHAT''S YOUR NAME?'0DH,0AH,03

MSG2:	DB	0DH,0AH,
	DB	'HOW ABOUT A GAME OF BLACKJACK, '


	END
                                                   