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

The Young Ones (Amstrad CPC)

From The Cutting Room Floor
Jump to navigation Jump to search

Title Screen

The Young Ones

Developer: Orpheus
Publisher: Orpheus
Platform: Amstrad CPC
Released in EU: 1986


SourceIcon.png 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