![]() |
Routines |
Prev: 98EC | Up: Map | Next: 9945 |
9918 | LD A,($A1E6) | Set A to shield power | ||
991B | LD L,A | Copy shield power to HL | ||
991C | LD H,$00 | |||
991E | CALL $A5AA | Convert shield power to charcode digits | ||
9921 | LD E,$15 | Draw shield power into display file | ||
9923 | LD L,$00 | |||
9925 | LD B,$02 | |||
9927 | CALL $A570 | |||
992A | LD A,($A1E6) | Computes color attribute of digits based on shield power Color attribute is bit6-4 of shield power + 1 | ||
992D | SRL A | |||
992F | SRL A | |||
9931 | SRL A | |||
9933 | SRL A | |||
9935 | AND $07 | |||
9937 | INC A | |||
9938 | LD ($5815),A | Set color attribute into attribute file | ||
993B | LD ($5814),A | |||
993E | LD ($E514),A | Set color attribute into attribute buffer for HUD | ||
9941 | LD ($E513),A | |||
9944 | RET |
Prev: 98EC | Up: Map | Next: 9945 |