180: Routine at CBF7

CBF7: Routine at CBF7

Used by the routines at InterruptRoutine and CAEB.
CBF7	LD A,($D009)	Return if *D009 is zero.
CBFA	AND A
CBFB	RET Z
CBFC	LD A,$00	Write 00 to *CC4A.
CBFE	LD ($CC4A),A	Write 00 to *CC4A.
CC01	LD HL,$CC84	HL=CC84.
CC04	DEC (HL)	Decrease *HL by one.
CC05	JR NZ,$CC22	Jump to CC22 if *HL is not equal to 00.
CC07	LD B,(HL)	B=*HL.
CC08	LD IX,$CB6B	IX=CB6B.
CC0C	CALL $CD4A	Call CD4A.
CC0F	LD IX,$CB8A	IX=CB8A.
CC13	CALL $CD4A	Call CD4A.
CC16	LD IX,$CBA9	IX=CBA9.
CC1A	CALL $CD4A	Call CD4A.
CC1D	LD HL,$CC84	HL=CC84.
CC20	LD (HL),$01	Write 01 to *HL.
CC22	LD IX,$CB6B	IX=CB6B.
CC26	CALL $CDEC	Call CDEC.
CC29	LD ($CEFD),HL	Write HL to *CEFD.
CC2C	LD ($CF05),A	Write A to *CF05.
CC2F	LD IX,$CB8A	IX=CB8A.
CC33	CALL $CDEC	Call CDEC.
CC36	LD ($CEFF),HL	Write HL to *CEFF.
CC39	LD ($CF06),A	Write A to *CF06.
CC3C	LD IX,$CBA9	IX=CBA9.
CC40	CALL $CDEC	Call CDEC.
CC43	LD ($CF01),HL	Write HL to *CF01.
CC46	LD ($CF07),A	Write A to *CF07.
CC49	LD A,$00	Write 00 to *CF03.
CC4B	LD ($CF03),A	Write 00 to *CF03.
CC4E	LD HL,$CF0A	HL=CF0A.
CC51	LD A,$0D	A=0D.
CC53	LD C,$FD	C=FD.
CC55	LD B,$FF	B=FF.
CC57	OUT (C),A	Send A to port *C.
CC59	LD B,$BF	B=BF.
CC5B	OUTD	OUTD.
CC5D	DEC A	Decrease A by one.
CC5E	JP P,$CC55	Jump to CC55 if A is greater than or equal to A.
CC61	RET	Return.