First public commit.
This commit is contained in:
parent
2a48f52979
commit
4bac9d83ed
288 changed files with 18417 additions and 1076 deletions
42
lenser/atari/viewer/gr8.s
Normal file
42
lenser/atari/viewer/gr8.s
Normal file
|
|
@ -0,0 +1,42 @@
|
|||
; 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
|
||||
Loading…
Add table
Add a link
Reference in a new issue