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

ds: print 7 chars

Browse Source
This commit is contained in:
Vince Weaver 2019-10-12 19:44:07 -04:00
parent cad4aadc34
commit d76344cbd0
2 changed files with 53 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
demosplash/appleII_intro.s
View File

@ -195,7 +195,7 @@ page1_loop: ; delay 115+(7 loop)+4 (bit)+4(extra)
cpx #80 ; 2
bcc wipe_left ; blt ; 3
; -1
cpx #152 ; 2
cpx #192 ; 2
bcc forever ; blt ; 3
; -1
@ -205,14 +205,14 @@ page1_loop: ; delay 115+(7 loop)+4 (bit)+4(extra)
done_done:
; -1
;===========================
; delay 1174-11-3=1160
; delay 1174-15-3=1156
; delay
; Try X=11 Y=19 cycles=1160
; Try X=45 Y=5 cycles=1156
ldy #19 ; 2
loop11: ldx #11 ; 2
ldy #5 ; 2
loop11: ldx #45 ; 2
loop21: dex ; 2
bne loop21 ; 2nt/3
dey ; 2
@ -225,40 +225,71 @@ loop21: dex ; 2
;=========================
; FOREVER
;==========================
; ' '@80
; ' '@88
; F@96, 11,32
; O@104
; F@80, 11,32
; O@96
; R@112
; E@120
; V@128
; E@136
; R@144
; E@128
; V@144
; E@160
; R@176
forever:
; -1
;===========================
; delay 1174-16-3-371-6=778
; forever:
; 1174 base
; -16 previous if/else
; -7 check
; -12 new_forever
; -12 putchar prep
; -365 putchar
; -8 end
;=====================
; 754
ldx #11 ; 2
txa ; 2
and #$f ; 2
beq new_forever ; 3
; -1
nop
nop
nop
nop
nop
jmp write_forever ; 3
new_forever:
lda forever_x_smc+1 ; 4
clc ; 2
adc #4 ; 2
sta forever_x_smc+1 ; 4
;=======
; 12
write_forever:
forever_x_smc:
ldx #7 ; 2
ldy #32 ; 2
lda #'B' ; 2
jsr put_char ; 6+365
;=======
; delay
; Try X=21 Y=7 cycles=778
; Try X=49 Y=3 cycles=754
ldy #7 ; 2
loop19: ldx #21 ; 2
ldy #3 ; 2
loop19: ldx #49 ; 2
loop29: dex ; 2
bne loop29 ; 2nt/3
dey ; 2
bne loop19 ; 2nt/3
jmp intro_wipe_done ; 3
inc DUDE_X ; 5
jmp intro_wipe_done ; 3

4
demosplash/font.s
View File

@ -22,7 +22,7 @@ colors_lo: .byte $FC,$4C
put_char:
; point to font location
sec ; 2
sbc #'A' ; 2
sbc #'@' ; 2
; multiply by 8... 0..63 -> 0..511 1 1111
; shift left by 4
; pha ; 3
@ -147,6 +147,7 @@ page1_put_char2:
.align $100
font_high:
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; ' '
.byte $f0,$0f,$f0,$ff,$0f,$ff,$00,$00 ; A
.byte $ff,$0f,$f0,$ff,$0f,$ff,$00,$00 ; B
.byte $f0,$0f,$0f,$ff,$00,$00,$00,$00 ; C
@ -160,6 +161,7 @@ font_high:
.align $100
font_low: ; 2 pages later
.byte $00,$00,$00,$00,$00,$00,$00,$00 ; ' '
.byte $ff,$f0,$ff,$ff,$00,$ff,$00,$00 ; A
.byte $ff,$f0,$0f,$ff,$f0,$ff,$00,$00 ; B
.byte $ff,$00,$00,$0f,$f0,$f0,$00,$00 ; C