Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-10 23:54:33 +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 ; Clear Page1
lda #$4 lda #$4
sta DRAW_PAGE sta DRAW_PAGE
lda #$44 lda #$0
jsr clear_gr jsr clear_gr
; draw some green lines for character
lda #$44
ldy #28
jsr clear_page_loop
; draw border line ; draw border line
lda #$55 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 ; F -> 7 -> 6 -> 2
@ -71,20 +76,11 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
ldy #0 ldy #0
jsr hline jsr hline
; lda #$3f
; ldy #12
; jsr hline
lda #$4 lda #$4
sta DRAW_PAGE sta DRAW_PAGE
lda #$27 lda #$27
ldy #0 ldy #0
jsr hline jsr hline
; lda #$1b
; ldy #12
; jsr hline
;===================================== ;=====================================
; Print the apple logos plus vmw logos ; Print the apple logos plus vmw logos
@ -94,16 +90,16 @@ WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
ldx #0 ldx #0
data_loop2: data_loop2:
lda words,Y lda words,Y
sta $7a8,X
lda words2,Y
sta $450,X sta $450,X
lda words2,Y
sta $4d0,X
lda words3,Y lda words3,Y
sta $ba8,X sta $850,X
lda words4,Y lda words4,Y
sta $850,X sta $8d0,X
iny iny
inx inx