The Birds and The Bees

The Birds and The Bees
Developer: Bug-Byte Software Publisher: Bug-Byte Software Platform: ZX Spectrum Released in EU: 1983 This game has uncompiled source code.

Source Code Fragment

A decently sized source code fragment can be seen at 14E2 in the .tap dump.

        RLA
	LD	B,A
        LD	DE,(RN+1)
	RL	E
	RL	D
	RES	7,D
	LD	HL,(RN)
	ADD	HL,BC	
	LD	(RN),HL
	LD	HL,(RN+2)
	ADC	HL,DE
	RES	7,H
	LD	(RN+2),HL
	LD	HL,(RN)
	POP	BC
	POP	DE
	RET
XCOORD	PUSH	AF
    	PUSH	DE
	LD	DE,(WINDOW)
	AND	A
	SBC	HL,DE
	JR	C,NOPT
	LD	A,H
	AND	A
	JR	NZ,NOPT
	LD	A,(WIDTH)
	ADD	A,A
	ADD	A,A
	ADD	A,A
	NEG
	SUB	L
	JR	C,NOPT
	LD	A,L
	AND	7
	LD	(ROT),A
	SRL	L
	SRL	L
	SRL	L
	JR	XC99
NOPT	LD	H,1
XC99	POP	DE
	POP	AF
	RET
STATUS	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	A,16
	OUT	(254),A0
	LD	A,(STAT)
	INC	AX
	AND	3l
	LD	(STAT),A
	AND	A
	JP	Z,CL
	;
	;
	PLT
	CP	2
	JP	Z,SCR
	LD	HL,7000H
	LD	DE,5000H
	LD	BC,800H
	LDIRH
STATRET	SUB	A
	OUT	(254),A
	POP	HL
	POP	DE
	POP	BC
	POP	AF
	RET
CLR     LD	HL,7000H
	LD	DE,7001
	LD	BC,7FFH	
	LD	(HL),0
LDIR8	JP	STATRETL
SCR	LD	L,10
	LD	H,2
	LD	A,6
SCR1	CALL	PRINT
    	INC	H
	INC	L
	DEC	A
        JR	Z,SCR2
	CP	3
	JR	NZ,SCR1
	LD	H,27
	JR	SCR1
SCR2	LD	DE,SCP
        LD	H,32
		LD	B,7
SCR3	LD	A,(DE)
    	LD	L,A
	CALL	PRINT
	INC	H
	INC	DE	
	DJNZ	SCR3
	LD	H,57
	LD	DE,HSC
	LD	B,7
SCR4	LD	A,(DE)
	LD	L,AT
	CALL	PRINT
	INC	DE
	INC	H
        DJNZ	SCR4
	LD	H,79
	LD	L,16
	CALL	PRINT
	INC	H
	INC	L
	CALL	PRINT
	LD	H,960
	LD	L,18D
	LD	A,(LOAD)X
	INC	Al
	LD	B,A
SCR5	CALL	PRINT
    	INC	H
	DJNZ	SCR5
	LD	L,19
	LD	H,15
	CALL	PRINT
	INC	H
	LD	A,(LIVES)
	LD	L,A
	CALL	PRINT
	JP	STATRET
	PLT	LD	DE,POSDAT+192
	PLT1	LD	A,(DE)
	CP	255
	JR	Z,PLT4
	AND	A
	JR	NZ,PLT3
PLT2	LD	HL,8
	ADD	HL,DE
	EX	DE,HL
	JR	PLT1
PLT3	CP	68
	JR	Z,PLT2
	CP	8
	JR	Z,PLT2
	INC	DE
	LD	A,(DE)
	LD	L,A
	INC	DE
	LD	A,(DE)
	LD	H,A
	INC	DE
	INC	DE
	INC	DE
	INC	DE
	LD	A,(DE)
	ADD	A,8
	LD	B,A
	INC	DE
	INC	DE
	CALL	PLOT
	JR	PLT1
PLT4	LD	HL,(POSN)
	LD	A,(POSN+3)
	ADD	A,8
	LD	B,A
	CALL	PLOT
	LD	B,0
	CALL	PLOTT
	LD	B,4h
	CALL	PLOT
	LD	B,127
	CALL	PLOT
	LD	B,123
	CALL	PLOT
	JP	STATRET
PRINT	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	LD	A,LD
	ADD	A,AX
	ADD	A,Al
	ADD	A,A
	LD	DE,PCHAR
	ADD	A,E
	LD	E,A
	LD	A,D
	ADC	A,0
	LD	D,A
	LD	L,H
	LD	H,70H
	LD	B,84
PR1     LD	A,(DE)H
	LD	(HL),A
	INC	H
	INC	DE
	DJNZ	PR1
	POP	HL
	POP	DE
	POP	BC
	POP	AF
	RET
FNDCSD	PUSH	AF
	PUSH	DE
	LD	A,C
	ADD	A,AL
	AND	252
	LD	DE,CS
	ADD	A,E
	LD	E,A
	LD	A,D
	ADC	A,0
	LD	D,A
	LD	A,(DE)
	LD	(WIDTH),A
	INC	DE
	LD	A,(DE)
	LD	(HEIGHT),A
	INC	DE
	LD	A,(LE)
	LD	(COL),A
	INC	DE
	LD	A,(DE)
	LD	(SCRLEN),A
	POP	DE
	POP	AF
	RET
HPRNT	PUSH	AF
	PUSH	BC
	PUSH	DE
	PUSH	HL
	CALL	XCOORDT
	LD	A,H
	AND	A
	JP	NZ,HPR99
	LD	A,(STAT)
	LD	E,0
	SRL	A
	RR	E
	SRL	A
	RR	E
	LD	A,C
	ADD	A,0C0H0
	LD	D,A
	PUSH	DE
	POP	IX
	LD	A,(HEIGHT)
	PUSH	BC
	LD	C,A
	LD	DE,SCRATCH
	LD	A,(ROT)
	BIT	2,A
	JR	Z,HPR1
	SUB	A
	LD	(DE),A
	INC	DE
HPR1	LD	A,(WIDTH)
     	LD	B,A
HPR2	LD	A,(IX)
	LD	(DE),