mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-10-31 10:13:35 +00:00
d2_hgr: closer to submit
This commit is contained in:
parent
44d0160b26
commit
a9418f88fa
@ -123,6 +123,8 @@ forever:
|
||||
;=====================
|
||||
; repeat
|
||||
|
||||
bit TEXTGR
|
||||
|
||||
jmp forever
|
||||
|
||||
|
||||
@ -153,16 +155,14 @@ print_message:
|
||||
|
||||
jsr clear_both_bottoms
|
||||
|
||||
ldx #13
|
||||
ldx #12
|
||||
print_message_loop:
|
||||
lda message1,X
|
||||
; ora #$80
|
||||
sta $650,X
|
||||
sta $A50,X
|
||||
sta $6d2,X
|
||||
sta $Ad2,X
|
||||
lda message2,X
|
||||
; ora #$80
|
||||
sta $6d0,X
|
||||
sta $AD0,X
|
||||
sta $6ea,X
|
||||
sta $Aea,X
|
||||
dex
|
||||
bpl print_message_loop
|
||||
|
||||
|
@ -100,6 +100,7 @@ mockingboard_setup_interrupt:
|
||||
; Note, on Apple II the clock isn't 1MHz but is actually closer to
|
||||
; roughly 1.023MHz, and every 65th clock is stretched (it's complicated)
|
||||
|
||||
; c7ce / 1.023e6 = .050s, 20Hz
|
||||
; 9c40 / 1.023e6 = .040s, 25Hz
|
||||
; 8534 / 1.023e6 = .033s, 30Hz
|
||||
; 4fe7 / 1.023e6 = .020s, 50Hz
|
||||
@ -120,12 +121,14 @@ mockingboard_setup_interrupt:
|
||||
sta MOCK_6522_IFR ; IFR: 1100, enable interrupt on timer one oflow
|
||||
sta MOCK_6522_IER ; IER: 1100, enable timer one interrupt
|
||||
|
||||
lda #$40
|
||||
lda #$CE
|
||||
; lda #$40
|
||||
; lda #$34
|
||||
; lda #$E7
|
||||
sta MOCK_6522_T1CL ; write into low-order latch
|
||||
|
||||
lda #$9C
|
||||
lda #$C7
|
||||
; lda #$9C
|
||||
; lda #$85
|
||||
; lda #$4f
|
||||
sta MOCK_6522_T1CH ; write into high-order latch,
|
||||
|
@ -99,7 +99,7 @@ ror_nop_smc:
|
||||
; sta HGR_PAGE
|
||||
|
||||
lda FRAME
|
||||
cmp #$1f
|
||||
cmp #$1b ; NOTE: NEEDS TO BE ODD
|
||||
bne draw_moving ; bra
|
||||
|
||||
rts
|
||||
|
@ -78,7 +78,7 @@ noflo:
|
||||
inc COUNT
|
||||
inc FRAME
|
||||
lda FRAME
|
||||
cmp #32
|
||||
cmp #53
|
||||
|
||||
bne outer_loop
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user