Routines
Prev: 9A57 Up: Map Next: 9AAE
9A6C: Clear right edge and draw Reinaldo peering in
Called from reinaldo_encounter before Reinaldo fully appears.
Clears 11 rows x 2 columns at column 26 ($1A) with white background. Draws Reinaldo peering through the doorway (frame_reinaldo_peering, CHARS=$82CA). Draws the "Cu cu" speech bubble (frame_bubble_reinaldo_r1c21, CHARS=$FD61). Delays 11 ticks.
reinaldo_peerin 9A6C LD D,$00 LD D,$00 (start row = 0)
9A6E LD E,$1A LD E,$1A (column 26)
9A70 LD A,$11 LD A,$11 (PAPER control code)
9A72 RST $10 RST $10 (emit PAPER)
9A73 LD A,$07 LD A,$07 (PAPER=7 white)
9A75 RST $10 RST $10 (emit value)
9A76 LD B,$0B LD B,$0B (11 rows to clear)
reinaldo_peerin_0 9A78 PUSH BC Inner loop (18 bytes): PUSH BC + PRINT AT D,E + 2×$80 blank + INC D + POP BC + DJNZ
9A79 LD A,$16
9A7B RST $10
9A7C LD A,D
9A7D RST $10
9A7E LD A,E
9A7F RST $10
9A80 LD A,$80
9A82 RST $10
9A83 LD A,$80
9A85 RST $10
9A86 INC D
9A87 POP BC
9A88 DJNZ reinaldo_peerin_0
9A8A LD HL,$9413 Draw clear-bubble frame frame_clear_prostitute_r6c1 (draw_frame)
9A8D CALL draw_frame
9A90 LD DE,$82CA Set CHARS=$82CA (set_chars), draw Reinaldo frame frame_reinaldo_peering (draw_frame)
9A93 CALL set_chars
9A96 LD HL,$9AAE
9A99 CALL draw_frame
9A9C LD DE,$FD61 Set CHARS=$FD61 (set_chars), draw "Cu cu" bubble frame_bubble_reinaldo_r1c21 (draw_frame)
9A9F CALL set_chars
9AA2 LD HL,$9ACF
9AA5 CALL draw_frame
9AA8 LD A,$0B Delay 11 ticks (delay_a)
9AAA CALL delay_a
9AAD RET
Prev: 9A57 Up: Map Next: 9AAE