; prompt_dli.s - DLI for the final high-resolution prompt row.
;
; The original XL/XE self-test display list jumps through DISL3, which has
; a DLI blank line immediately before the "RESET OR HELP TO EXIT" ANTIC 2
; text row.  POD uses that DLI to make PF1 white and PF2 the background
; colour, so the GR.0 text is not rendered as a white rectangle.

.export _prompt_dli

COLPF1 = $D017
COLPF2 = $D018
COLOR4 = $02C8
ATRACT = $004D

.proc _prompt_dli
        pha
        lda     #$0f        ; white text/luminance for ANTIC 2 characters
        sta     COLPF1
        lda     COLOR4      ; red background shadow used by the rest of screen
        sta     COLPF2
        lda     #$00
        sta     ATRACT
        pla
        rti
.endproc