quill | Routines |
Prev: 25177 | Up: Map | Next: 25300 |
|
||||
DESC_LOCATION | 25231 | CALL 8020 | Read the BREAK key | |
25234 | JR C,DESC_LOCATION_0 | If not pressed, skip BREAK handling | ||
25236 | LD HL,(27354) | Get address of Quill editor | ||
25239 | LD A,H | |||
25240 | OR L | If address is 0, break should be ignored | ||
25241 | JR Z,DESC_LOCATION_0 | If break not enabled, skip break handling | ||
25243 | RES 7,(IY+8) | Break handling | ||
25247 | RST 8 | The 'Error' routtine | ||
25248 | INC C | (Unused?) | ||
DESC_LOCATION_0 | 25249 | XOR A | A=0 | |
25250 | CP (IX+2) | Is flag 2 equal to 0? | ||
25253 | JR Z,DESC_LOCATION_1 | |||
25255 | DEC (IX+2) | Decrement flag 2 | ||
DESC_LOCATION_1 | 25258 | CP (IX+0) | Is it dark? | |
25261 | JR Z,DESC_LIT_LOC | If not, Describe lit location | ||
25263 | CP (IX+3) | Is flag 3 equal to 0? | ||
25266 | JR Z,DESC_LOCATION_2 | |||
25268 | DEC (IX+3) | Decrement flag 3 | ||
DESC_LOCATION_2 | 25271 | LD A,(23333) | A=Location of light source | |
25274 | CP (IX+35) | Is it at current location? | ||
25277 | JR Z,DESC_LIT_LOC | Describe lit location | ||
25279 | CP 253 | Is it worn or carried? | ||
25281 | JR NC,DESC_LIT_LOC | Describe lit location | ||
25283 | LD HL,0 | "It's dark" | ||
25286 | CALL PRINT_TO_SCREEN | Display darkness message | ||
25289 | XOR A | A=0 | ||
25290 | CP (IX+4) | Is flag 4 equal to 0? | ||
25293 | JR Z,PROCESS_STATUS | |||
25295 | DEC (IX+4) | Decrement flag 4 | ||
25298 | JR PROCESS_STATUS | Carry on to status table processing |
Prev: 25177 | Up: Map | Next: 25300 |