The Young Ones (Amstrad CPC)

The Young Ones
Developer: Orpheus Publisher: Orpheus Platform: Amstrad CPC Released in EU: 1986 This game has uncompiled source code.

Source Code Fragments

There are a couple of source code fragments scattered through, some right before used text. The addresses listed below are for a dump of the original tape.

Block 26, 45A:

           (HL),13
	LD A,(VA+21)
	DEC A
	CALL Jjumpblock+&06
	RET

srd:
	LD HL,VB+&3A0
	CP (HL)
	RET Z
	INC HL
	INC HL
	CP (HL)
	RET
EJECT

iconwalk:
	LD A,(VI+&F1)
	OR A
	JR nz,iconwalk2
;iconroom
	LD A,(VI+&F8)
	LD HL,VI+&F3
	SUB (HL)
	LD C,A
	LD HL,VI+&E0
	ADD HL,BC
	LD A,(HL)	;3540 LDA B%+&BE0,X
	LD (VI+&F1),A
;Put person's room in B
	LD HL,(VA+29)
	LD H,roomtable
	LD B,(HL)

	;Point at exit room coordinate
	LD HL,VB+&500
ira:	LD A,(HL)
	CP &80
	JR Z,irb
	INC HL
	JR ira

irb:	INC HL
	DJNZ ira

	LD A,(VI+&F1)
irc:	CP (HL)
	JR Z,ird
	INC L
	INC L
	INC L
	JR irc

ird:	;Exit and entrance found
	INC HL
	;Now pointing at exit
	LD BC,Rtable
	LD A,(VA+29)
	ADD A,A
	ADD A,A

ire:	INC C
	DEC A
	JR NZ,ire
	DEC C
	LD A,facingaway
	LD (BC),A
	DEC C
	LD A,(VI+&F1)
	LD (BC),A
	DEC C
	LD A,(HL)
	LD (BC),A

	CP 1
	CALL Z,iwalk255
	CP 28
	CALL Z,iwalk255

	DEC C
	INC L
	;(BC) now pointing at handshake byte
	;(HL) now pointing at destination room coordinate

	;Now put in destination room coordinate

Block 42, 3C0:

ADD	HL,BC
POP	BC
LD	A,(QWID)
LD	(ISA),A
LD	A,(QDAVE)
INC	A
LD	(QDAVE),A

QMOC:
CP	210
JP	C,EXPAN2
POP	HL
RET

FLAG88:DEFS	1
QDAVE:DEFS	1
QE399:DEFS	2
QSTORE:DEFS	2