Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-08-13 19:29:05 +00:00
Code Issues Projects Releases Wiki Activity

kfest: start drawing lines

Browse Source
This commit is contained in:
Vince Weaver 2018-07-18 17:13:33 -04:00
parent 763d015fd2
commit 1dc5a474ac
1 changed files with 32 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
kfest2018/raster.s
View File

@ -1,13 +1,45 @@
; Kansasfest HackFest Entry
; Soft Switches
SET_GR = $C050 ; Enable graphics
FULLGR = $C052 ; Full screen, no text
LORES = $C056 ; Enable LORES graphics
; ROM routines
TEXT = $FB36 ;; Set text mode
HOME = $FC58 ;; Clear the text screen
;===================
; init screen
jsr TEXT
jsr HOME
; GR part
bit LORES
bit SET_GR
bit FULLGR
lda #$55
ldx #39
border_loop:
sta $5d0,X ; 38
dex
bpl border_loop
loop_forever:
jmp loop_forever
; H E L L O
.byte $D1,$00,$D1,$00, $D1,$01,$00, $D1,$00,$00, $D1,$00,$00, $D0,$01,$D0,$00
.byte $24,$04,$24,$00, $24,$20,$00, $24,$20,$00, $24,$20,$00, $04,$20,$04,$00
.byte $C9,$C0,$C9,$00, $C9,$C0,$00, $C9,$00,$00, $C9,$00,$00, $C9,$00,$C0,$00
.byte $06,$00,$06,$00, $06,$00,$00, $06,$00,$00, $06,$00,$00, $06,$00,$06,$00