Fairlight: Text at 617C

Part of the game's own source code, as text, left in memory when the tape was made: numbered lines (a two-byte line number, the text with tabs between the fields, a carriage return), here lines 6240-6670. They are the source of the end of the pick-up code in PICK_UP_LOOK_ON (the author's WEI3, and calls of routines he called ROMM, DOE, SRP and INFOR: SET_THING_ROOM, the instruction three bytes before it, REDRAW_OBJECT and SHOW_THING_IN_USE) and the start of the joystick and keyboard reading (KNIGHT_CONTROLS, his I88 onwards); the text goes on at MASTER_OBJECTS. The game never reads it.

The top of it is the game's stack: START sets SP two bytes below the block's end, and in the build's sessions the stack reached down 150 bytes below that.

Part of the game's own source code, as text, left in memory when the tape was made: numbered lines (a two-byte line number, the text with tabs between the fields, a carriage return), here lines 6240-6670. They are the source of the end of the pick-up code in PICK_UP_LOOK_ON (the author's WEI3, and calls of routines he called ROMM, DOE, SRP and INFOR: SET_THING_ROOM, the instruction three bytes before it, REDRAW_OBJECT and SHOW_THING_IN_USE) and the start of the joystick and keyboard reading (KNIGHT_CONTROLS, his I88 onwards); the text goes on at MASTER_OBJECTS. The game never reads it. The top of it is the game's stack: START sets SP two bytes below the block's end, and in the build's sessions the stack reached down 150 bytes below that.
SOURCE_AND_STACK	617C	DEFM $60,$18,$09,"LD",$09,"(IY+7),3",$0D,"j"
	618C	DEFM $18,$09,"JR",$09,"DOE",$0D,"t",$18,"WEI3",$09
	619C	DEFM "LD",$09,"(V+18),A",$0D,"~",$18,$09,"P"
	61AC	DEFM "USH",$09,"IX",$0D,$88,$18,$09,"POP",$09,"DE"
	61BC	DEFM $0D,$92,$18,$09,"LD",$09,"H,255",$0D,$9C,$18,$09
	61CC	DEFM "LD",$09,"L,(IY+30)",$0D,$A6,$18,$09
	61DC	DEFM "LD",$09,"(HL),E",$0D,$B0,$18,$09,"INC"
	61EC	DEFM $09,"HL",$0D,$BA,$18,$09,"LD",$09,"(HL),D"
	61FC	DEFM $0D,$C4,$18,$09,"SET",$09,"5,(IX+16"
	620C	DEFM ")",$0D,$CE,$18,$09,"RES",$09,"7,(IX+1"
	621C	DEFM "4)",$0D,$D8,$18,$09,"RES",$09,"1,(IY+"
	622C	DEFM "17)",$0D,$E2,$18,$09,"LD",$09,"C,254",$0D
	623C	DEFM $EC,$18,$09,"CALL",$09,"ROMM",$0D,$F6,$18,$09
	624C	DEFM "PUSH",$09,"IX",$0D,$00,$19,$09,"CALL",$09
	625C	DEFM "DOE",$0D,$0A,$19,$09,"POP",$09,"HL",$0D,$14,$19
	626C	DEFM $09,"LD",$09,"A,(V+3)",$0D,$1E,$19,$09,"P"
	627C	DEFM "USH",$09,"AF",$0D,"(",$19,$09,"LD",$09,"A,("
	628C	DEFM "T+20)",$0D,"2",$19,$09,"LD",$09,"(V+3"
	629C	DEFM "),A",$0D,"<",$19,$09,"PUSH",$09,"HL",$0D,"F"
	62AC	DEFM $19,$09,"CALL",$09,"SRP",$0D,"P",$19,$09,"PO"
	62BC	DEFM "P",$09,"HL",$0D,"Z",$19,$09,"CALL",$09,"INF"
	62CC	DEFM "OR",$0D,"d",$19,$09,"POP",$09,"AF",$0D,"n",$19,$09
	62DC	DEFM "LD",$09,"(V+3),A",$0D,"x",$19,$09,"LD"
	62EC	DEFM $09,"(IY+17),0",$0D,$82,$19,$09,"RE"
	62FC	DEFM "T",$0D,$8C,$19,"I88",$09,"CALL",$09,"IN3"
	630C	DEFM "1",$0D,$96,$19,$09,"JR",$09,"Z,I80",$0D,$A0,$19
	631C	DEFM "I89",$09,"RRA",$0D,$AA,$19,$09,"JR",$09,"NC"
	632C	DEFM ",I82",$0D,$B4,$19,$09,"LD",$09,"C,8",$0D,$BE
	633C	DEFM $19,"I82",$09,"RRA",$0D,$C8,$19,$09,"JR",$09,"N"
	634C	DEFM "C,I83",$0D,$D2,$19,$09,"LD",$09,"C,4",$0D
	635C	DEFM $DC,$19,"I83",$09,"RRA",$0D,$E6,$19,$09,"JR",$09
	636C	DEFM "NC,I84",$0D,$F0,$19,$09,"LD",$09,"C,1"
	637C	DEFM "28",$0D,$FA,$19,"I84",$09,"RRA",$0D,$04,$1A,$09
	638C	DEFM "JR",$09,"NC,I85",$0D,$0E,$1A,$09,"L"
STACK_TOP	639A	DEFB $44,$09	SP starts here, so the first word pushed goes just below