| Alien (BUGFIX 1.7) | Routines |
| Prev: 34859 | Up: Map | Next: 34920 |
|
Mirror the CorridorPosTable cell under the cursor into CursorCellValue ($8395), save the attribute under the cursor row into SavedRowAttr, then paint the row bright white (attr 120) — two rows when the cell value is >= 70 (two-row label).
|
||||
| 34882 | LD A,(33683) | A = cursor row | ||
| 34885 | PUSH AF | |||
| 34886 | LD E,A | |||
| 34887 | LD D,0 | |||
| 34889 | LD HL,29630 | index CorridorPosTable by the row | ||
| 34892 | ADD HL,DE | |||
| 34893 | LD A,(HL) | A = cell value under the cursor | ||
| 34894 | LD (33685),A | mirror it for the dispatchers | ||
| 34897 | EX AF,AF' | keep the cell value in A' | ||
| 34898 | POP AF | A = cursor row again | ||
| 34899 | CALL 34920 | HL = the row's attribute address | ||
| 34902 | LD A,(HL) | |||
| 34903 | LD (33684),A | save the attribute for the un-highlight | ||
| 34906 | EX AF,AF' | cell value >= 70 (two-row label)? | ||
| 34907 | LD C,1 | C = number of rows to paint | ||
| 34909 | CP 70 | |||
| 34911 | JR C,34914 | |||
| 34913 | INC C | yes: highlight two rows | ||
| 34914 | LD A,120 | bright white paper, black ink | ||
| 34916 | CALL 31612 | FillAttrColumn over C rows | ||
| 34919 | RET | |||
| Prev: 34859 | Up: Map | Next: 34920 |