The Young Ones (Amstrad CPC)

A video game tie-in for the popular 80s BBC sitcom that allows you to control either Vyvyan, (P)Rick, Neil or Mike in their student home.

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