Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-07 21:30:39 +00:00
Code Issues Projects Releases Wiki Activity

midline: optimize a bit

Browse Source
This commit is contained in:
Vince Weaver 2023-05-17 16:26:04 -04:00
parent b76e1b20ef
commit 945244fdd0
4 changed files with 44 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
vaporlock/demo/gr_offsets.s
View File

@ -1,10 +0,0 @@
gr_offsets_h:
.byte $4,$4,$5,$5,$6,$6,$7,$7
.byte $4,$4,$5,$5,$6,$6,$7,$7
.byte $4,$4,$5,$5,$6,$6,$7,$7
gr_offsets_l:
.byte $00,$80,$00,$80,$00,$80,$00,$80
.byte $28,$a8,$28,$a8,$28,$a8,$28,$a8
.byte $50,$d0,$50,$d0,$50,$d0,$50,$d0

2
vaporlock/demo/hardware.inc
View File

@ -49,3 +49,5 @@ HGLIN = $F53A ; line to (X,A),(Y)
ROM_TEXT2COPY = $F962 ; iigs
ROM_MACHINEID = $FBB3 ; iigs
COUT = $FDED

3
vaporlock/demo/hello.bas
View File

@ -1,5 +1,4 @@
5 HOME
10 PRINT CHR$(4);"CATALOG"
15 PRINT:PRINT "LOADING DOUBLE..."
'20 PRINT CHR$(4);"BRUN DOUBLE"
20 PRINT CHR$(4);"BRUN MIDLINE"

112
vaporlock/demo/midline.s
View File

@ -6,19 +6,22 @@
.include "hardware.inc"
double:
; 198 bytes -- proof of concept
; 76 bytes -- optimize Apple II Forever printing code
lda #0
sta FRAME
lda #$ff
sta FRAMEH
midline:
; lda #0
; sta FRAME
; lda #$ff
; sta FRAMEH
;================================
; Clear screen and setup graphics
;================================
jsr SETGR ; set lo-res 40x40 mode
bit LORES
; jsr SETGR ; set lo-res 40x40 mode
; bit LORES
sta FULLGR
;====================================================
@ -29,76 +32,50 @@ double:
sta SETMOUSETEXT
ldy #0
restart:
ldx #0
sty XX
a24e_newy:
lda gr_offsets_l,Y
sta stringing_smc+1
lda gr_offsets_h,Y
clc
adc #4
sta stringing_smc+2
a24e_loop:
lda a2_string,X
bne keep_stringing
ldx #0
lda a2_string,X
keep_stringing:
inx
eor #$80
stringing_smc:
sta $d000
inc stringing_smc+1
inc XX
lda XX
cmp #40
bne a24e_loop
lda #0
sta XX
iny
cpy #24
bne a24e_newy
beq print_done
print_loop:
lda a2_string,X
beq restart
jsr COUT ; output char in A to stdout
inx
bne print_loop
print_done:
stringing_done:
bit PAGE2
;==============================
; do the cycle counting
;==============================
blog:
ldx #255
blog_loop:
jsr delay_12 ; 12
bit SET_GR ; 4
jsr delay_16_setgr ; 16
; 16
jsr delay_12 ; 12
; 28
bit SET_TEXT ; 4
jsr delay_16_settext ; 16
; 32
jsr delay_12 ; 12
; 44
bit SET_GR ; 4
jsr delay_16_setgr ; 16
; 48
jsr delay_12 ; 12
jsr delay_12 ; 12
; 60
dex ; 2
; bne blog_loop ; 2/3
dex ; 2
jmp blog_loop ; 3
jmp blog_loop ; 3
delay_16_setgr:
bit SET_GR
delay_12:
rts
delay_16_settext:
bit SET_TEXT
rts
.if 0
; -1
@ -119,8 +96,6 @@ loop4: dex ; 2
jmp midline_loop ; 3
.align $100
;===================================
; wait y-reg times 10
;===================================
@ -160,16 +135,11 @@ rts1:
.endif
.include "gr_offsets.s"
a2_string:
; 012345678901234567 8 9
.byte "Apple II Forever!! ",'@'+$80," "
.byte "Apple II Forever! ",'@'+$80," ",0
; .byte "Apple II Forever!! ",'@'+$80," ",0
.byte 'A'+$80,'p'+$80,'p'+$80,'l'+$80,'e'+$80,' '+$80
.byte 'I'+$80,'I'+$80,' '+$80,'F'+$80,'o'+$80,'r'+$80
.byte 'e'+$80,'v'+$80,'e'+$80,'r'+$80,'!'+$80,'!'+$80
.byte ' '+$80,'@'+$00,' '+$80,0