jetpac | Routines |
Prev: 72b6 | Up: Map | Next: 72ef |
|
||||||||||||||
72d0 | ld a,l | Horizontal coordinate. Example, if $B8: | ||||||||||||
72d1 | rrca | A=01011100, C=0 | ||||||||||||
72d2 | rrca | A=00101110, C=0 | ||||||||||||
72d3 | rrca | A=00010111, C=0 | ||||||||||||
72d4 | and $1f | A=00010111 <- screen width? | ||||||||||||
72d6 | ld l,a | L=$17 | ||||||||||||
72d7 | ld a,h | Vertical coordinate. Example, if $68: | ||||||||||||
72d8 | rlca | A=00110100, C=0 | ||||||||||||
72d9 | rlca | A=00011010, C=0 | ||||||||||||
72da | and $e0 | A=00000000 | ||||||||||||
72dc | or l | A=00010111 | ||||||||||||
72dd | ld l,a | L=$17 <- new LSB of attribute file | ||||||||||||
72de | ld a,h | Vertical coordinate. Example, if $68: | ||||||||||||
72df | and $07 | A=00000100 | ||||||||||||
72e1 | ex af,af' | Puts the value into the shadow register | ||||||||||||
72e2 | ld a,h | Vertical coordinate. Example, if $68: | ||||||||||||
72e3 | rrca | A=00110100, C=0 | ||||||||||||
72e4 | rrca | A=00011010, C=0 | ||||||||||||
72e5 | rrca | A=00001101, C=0 | ||||||||||||
72e6 | and $18 | A=00001000 | ||||||||||||
72e8 | or $40 | A=00101000 | ||||||||||||
72ea | ld h,a | HL=$48 | ||||||||||||
72eb | ex af,af' | Get the shadow register value | ||||||||||||
72ec | or h | A=00101100 | ||||||||||||
72ed | ld h,a | H=$4C <- DISPLAY_FILE address (>= 4000) | ||||||||||||
72ee | ret | Return HL=4C68 |
Prev: 72b6 | Up: Map | Next: 72ef |