; lenser -- Atari GR.8 (ANTIC mode F) hi-res viewer, self-booting
; 320x192, two tones.  Appended data from $4000 ...
;   $4000/$5000  bitmap (1 bit per pixel, 4K split)
;   $6000        two bytes, background reg then foreground reg
;
; assembled by atari/viewer/assemble.py via xa

        * = $2000
boot:
        .byte 0
        .byte 0                 ; sector count (patched)
        .word $2000
        .word binit

cont:
        lda #$22
        sta $22f                ; SDMCTL
        lda #<dlist
        sta $230
        lda #>dlist
        sta $231
        lda #$00
        sta $26f                ; GPRIOR = 0
        lda $6000
        sta $2c6                ; COLPF2 (background)
        sta $2c8                ; COLBAK (border) = background
        lda $6001
        sta $2c5                ; COLPF1 (foreground luminance)
#include "awyt.i"
binit:
        rts

dlist:
        .byte $70,$70,$70
        .byte $4f               ; LMS + mode F
        .word $4000
        .dsb 101,$0f
        .byte $4f
        .word $5000
        .dsb 89,$0f
        .byte $41
        .word dlist