Prev: C4E0 Up: Map Next: D2F0
D135: Leftover source text
More of the source text, lines 15380-15690, just after the object table on the tape; the start-up's copy to OBJECTS takes the first 263 bytes of it along. It is the source of the end of ROOMST: the DEFB of the glyphs of one of the quest's closing messages, the call of MESS2 (MESS2) and the jump to WAIT (WAIT), and the start of the room's set-up, from the label ROS (the LD (IY),7 there) to the loop that copies the records of the things carried, OBJD and OB2, with DATLEN for the record's length and the variable bases V (IY, OBJECT_COUNT) and T (IY+$64).
SOURCE_AFTER_OBJECTS D135 DEFM "DEFB",$09,"0,20,8,5,0,"
D145 DEFM "23,9,26,1,18,4,0"
D155 DEFM ",9,19,0,6,18,5,5"
D165 DEFM $0D,$14,"<",$09,"DEFB",$09,"164",$0D,$1E,"<",$09
D175 DEFM "CALL",$09,"MESS2",$0D,"(<",$09,"JP"
D185 DEFM $09,"WAIT",$0D,"2<ROS",$09,"LD",$09,"("
D195 DEFM "IY),7",$0D,"<<",$09,"LD",$09,"B,5",$0D
D1A5 DEFM "F<",$09,"LD",$09,"HL,55552",$0D,"P"
D1B5 DEFM "<",$09,"LD",$09,"(T),HL",$0D,"Z<OB"
D1C5 DEFM "JD",$09,"LD",$09,"L,(IY+31)",$0D
D1D5 DEFM "d<",$09,"INC",$09,"IY",$0D,"n<",$09,"LD",$09
D1E5 DEFM "H,(IY+31)",$0D,"x<",$09,"INC"
D1F5 DEFM $09,"IY",$0D,$82,"<",$09,"LD",$09,"A,L",$0D,$8C,"<"
D205 DEFM $09,"OR",$09,"H",$0D,$96,"<",$09,"JR",$09,"Z,OB"
D215 DEFM "2",$0D,$A0,"<",$09,"LD",$09,"(IY+29),"
D225 DEFM "E",$0D,$AA,"<",$09,"LD",$09,"(IY+30),"
D235 DEFM "D",$0D,$B4,"<",$09,"PUSH",$09,"BC",$0D,$BE,"<",$09
D245 DEFM "LD",$09,"BC,DATLEN",$0D,$C8,"<",$09
D255 DEFM "EX",$09,"DE,HL",$0D,$D2,"<",$09,"ADD",$09
D265 DEFM "HL,BC",$0D,$DC,"<",$09,"EX",$09,"DE,H"
D275 DEFM "L",$0D,$E6,"<",$09,"PUSH",$09,"DE",$0D,$F0,"<",$09
D285 DEFM "LD",$09,"DE,(T)",$0D,$FA,"<",$09,"LDI"
D295 DEFM "R",$0D,$04,"=",$09,"LD",$09,"(T),DE",$0D,$0E
D2A5 DEFM "=",$09,"POP",$09,"DE",$0D,$18,"=",$09,"POP",$09
D2B5 DEFM "BC",$0D,"\"=",$09,"LD",$09,"A,(V)",$0D,","
D2C5 DEFM "=",$09,"INC",$09,"A",$0D,"6=",$09,"LD",$09,"(V"
D2D5 DEFM "),A",$0D,"@=OB2",$09,"DJNZ",$09,"O"
D2E5 DEFM "BJD",$0D,"J=",$09,"LD",$09,"("
Prev: C4E0 Up: Map Next: D2F0