Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-26 11:30:12 +00:00
Code Issues Projects Releases Wiki Activity

kfest: have it mostly looking nice

Browse Source 
still have troubles at times acuiring vapor lock
This commit is contained in:
Vince Weaver 2018-07-20 23:51:25 -04:00
parent 097d7a6be3
commit e40b2f9679
1 changed files with 12 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
kfest2018/raster.s
View File

@ -50,9 +50,14 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
; Clear Page1
lda #$4
sta DRAW_PAGE
lda #$44
lda #$0
jsr clear_gr
; draw some green lines for character
lda #$44
ldy #28
jsr clear_page_loop
; draw border line
lda #$55
@ -61,7 +66,7 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
;==================
; Draw Top Border
; Draw Blue Border on screen
;==================
; F -> 7 -> 6 -> 2
@ -71,20 +76,11 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
ldy #0
jsr hline
; lda #$3f
; ldy #12
; jsr hline
lda #$4
sta DRAW_PAGE
lda #$27
ldy #0
jsr hline
; lda #$1b
; ldy #12
; jsr hline
;=====================================
; Print the apple logos plus vmw logos
@ -94,16 +90,16 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
ldx #0
data_loop2:
lda words,Y
sta $7a8,X
lda words2,Y
sta $450,X
lda words2,Y
sta $4d0,X
lda words3,Y
sta $ba8,X
sta $850,X
lda words4,Y
sta $850,X
sta $8d0,X
iny
inx