mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-30 14:56:23 +00:00
186 lines
2.4 KiB
ArmAsm
186 lines
2.4 KiB
ArmAsm
|
; 134 bytes -- start
|
||
|
|
; 127 bytes -- merge ypos into one lookup
|
||
|
|
|
||
|
|
CH = $24
|
||
|
|
CV = $25
|
||
|
|
BASL = $28
|
||
|
|
BASH = $29
|
||
|
|
CSWL = $36
|
||
|
|
SEEDL = $4E
|
||
|
|
FORPTR = $85
|
||
|
|
LOWTR = $9B
|
||
|
|
FACL = $9D
|
||
|
|
FACH = $9E
|
||
|
|
|
||
|
|
FRAME = $FA
|
||
|
|
XSAVE = $FB
|
||
|
|
STACKSAVE = $FC
|
||
|
|
YSAV = $FD
|
||
|
|
COUNT = $FE
|
||
|
|
DRAW_PAGE = $FF
|
||
|
|
|
||
|
|
SET_GR = $C050
|
||
|
|
SET_TEXT = $C051
|
||
|
|
|
||
|
|
PAGE0 = $C054
|
||
|
|
GETCHAR = $D72C ; loads (FAC),Y and increments FAC
|
||
|
|
TOKEN = $D734
|
||
|
|
HGR = $F3E2
|
||
|
|
COSTBL = $F5BA
|
||
|
|
SETTXT = $FB39
|
||
|
|
TABV = $FB5B ; store A in CV and call MON_VTAB
|
||
|
|
BASCALC = $FBC1
|
||
|
|
STORADV = $FBF0 ; store A at (BASL),CH, advancing CH, trash Y
|
||
|
|
MON_VTAB = $FC22 ; VTAB to CV
|
||
|
|
VTABZ = $FC24 ; VTAB to value in A
|
||
|
|
HOME = $FC58
|
||
|
|
CLREOL = $FC9C ; clear (BASL),CH to end of line
|
||
|
|
CLREOLZ = $FC9E ; clear (BASL),Y to end of line
|
||
|
|
|
||
|
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
||
|
|
|
||
|
|
COUT = $FDED
|
||
|
|
COUT1 = $FDF0
|
||
|
|
COUTZ = $FDF6 ; cout but ignore inverse flag
|
||
|
|
|
||
|
|
ypos = $2000
|
||
|
|
xpos = $2100
|
||
|
|
textl = $2200
|
||
|
|
texth = $2300
|
||
|
|
which = $2400
|
||
|
|
|
||
|
|
move:
|
||
|
|
lda #0
|
||
|
|
sta DRAW_PAGE
|
||
|
|
|
||
|
|
next_frame:
|
||
|
|
|
||
|
|
ldy #39
|
||
|
|
text_loop:
|
||
|
|
|
||
|
|
tya ; get YY to print at
|
||
|
|
clc
|
||
|
|
adc FRAME
|
||
|
|
and #$f
|
||
|
|
tax
|
||
|
|
|
||
|
|
lda cosine,X ; get cosine (need to rol*3 into BASL/BASH)
|
||
|
|
sta BASL
|
||
|
|
|
||
|
|
asl BASL
|
||
|
|
rol
|
||
|
|
|
||
|
|
asl BASL
|
||
|
|
rol
|
||
|
|
|
||
|
|
asl BASL
|
||
|
|
rol
|
||
|
|
|
||
|
|
; asl BASL
|
||
|
|
; rol
|
||
|
|
|
||
|
|
and #$0f
|
||
|
|
clc
|
||
|
|
adc DRAW_PAGE
|
||
|
|
sta BASH
|
||
|
|
|
||
|
|
; tay
|
||
|
|
; lda gr_offsetsh,Y
|
||
|
|
; clc
|
||
|
|
; adc DRAW_PAGE
|
||
|
|
; sta smc+2
|
||
|
|
; lda gr_offsetsl,Y
|
||
|
|
; sta smc+1
|
||
|
|
;
|
||
|
|
|
||
|
|
tya
|
||
|
|
and #$f
|
||
|
|
taX
|
||
|
|
|
||
|
|
lda apple,X
|
||
|
|
ora #$80
|
||
|
|
;smc:
|
||
|
|
; sta $400,X
|
||
|
|
|
||
|
|
|
||
|
|
sta (BASL),Y
|
||
|
|
|
||
|
|
dey
|
||
|
|
bpl text_loop
|
||
|
|
|
||
|
|
flip_pages:
|
||
|
|
; Y is $FF at this point
|
||
|
|
; ldy #0
|
||
|
|
iny
|
||
|
|
|
||
|
|
lda DRAW_PAGE
|
||
|
|
beq done_page
|
||
|
|
iny
|
||
|
|
done_page:
|
||
|
|
ldx PAGE0,Y ; set display page to PAGE1 or PAGE2
|
||
|
|
|
||
|
|
eor #$4 ; flip draw page between $400/$800
|
||
|
|
sta DRAW_PAGE
|
||
|
|
|
||
|
|
;===============
|
||
|
|
; clear screen
|
||
|
|
|
||
|
|
ldx #24
|
||
|
|
clear_screen_loop:
|
||
|
|
txa
|
||
|
|
jsr BASCALC ; A is BASL at end
|
||
|
|
lda BASH
|
||
|
|
clc
|
||
|
|
adc DRAW_PAGE
|
||
|
|
sta BASH
|
||
|
|
|
||
|
|
ldy #0
|
||
|
|
jsr CLREOLZ
|
||
|
|
dex
|
||
|
|
bpl clear_screen_loop
|
||
|
|
|
||
|
|
|
||
|
|
; pause
|
||
|
|
|
||
|
|
lda #200
|
||
|
|
jsr WAIT
|
||
|
|
|
||
|
|
inc FRAME
|
||
|
|
|
||
|
|
; bmi grmode
|
||
|
|
|
||
|
|
; bit SET_TEXT
|
||
|
|
; jmp next_frame
|
||
|
|
|
||
|
|
;grmode:
|
||
|
|
; bit SET_GR
|
||
|
|
|
||
|
|
jmp next_frame
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
apple:
|
||
|
|
; .byte "][ ELPPA"
|
||
|
|
.byte " APPLE ][ 4EVER "
|
||
|
|
|
||
|
|
cosine:
|
||
|
|
; .byte 3,3,3,2,2,1,0,0,0,0,0,1,1,2,3,3
|
||
|
|
; .byte $7d,$7d,$7d,$75,$75,$6d,$65,$65,$65,$65,$65,$6d,$6d,$75,$7d,$7d
|
||
|
|
.byte $fa,$fa,$fa,$ea,$ea,$da,$ca,$ca,$ca,$ca,$ca,$da,$da,$ea,$fa,$fa
|
||
|
|
; 0111 1101 0111 0101 0110 0101 0110 1101
|
||
|
|
|
||
|
|
;gr_offsetsh:
|
||
|
|
; .byte $4,$4,$5,$5
|
||
|
|
;gr_offsetsl:
|
||
|
|
; .byte $00,$80,$00,$80
|
||
|
|
|
||
|
|
;gr_offsetsh:
|
||
|
|
; .byte $6,$6,$7,$7
|
||
|
|
;gr_offsetsl:
|
||
|
|
; .byte $50,$d0,$50,$d0
|
||
|
|
|
||
|
|
blah:
|
||
|
|
; want this to be at $3F5, is at $383
|
||
|
|
|
||
|
|
jmp move
|