mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-10 23:54:33 +00:00
kfest: have it mostly looking nice
still have troubles at times acuiring vapor lock
This commit is contained in:
parent
097d7a6be3
commit
e40b2f9679
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user