171 lines
2.5 KiB
ArmAsm
171 lines
2.5 KiB
ArmAsm
; 134 bytes -- start
|
|
; 127 bytes -- merge ypos into one lookup
|
|
; 119 bytes -- use BASCALC
|
|
; 107 bytes -- use built-in string
|
|
|
|
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 value
|
|
jsr BASCALC ; convert to BASL/BASH
|
|
|
|
lda BASH ; add so is proper page
|
|
clc
|
|
adc DRAW_PAGE
|
|
sta BASH
|
|
|
|
tya ; lookup char to print
|
|
clc
|
|
adc FRAME
|
|
and #$f
|
|
tax
|
|
; lda apple,X
|
|
lda $FB09,X ; 8 bytes of apple II
|
|
cpx #8
|
|
bcc blah2
|
|
; ora #$80
|
|
lda #$a0
|
|
blah2:
|
|
sta (BASL),Y ; print it
|
|
|
|
dey ; loop
|
|
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 23,23,23,22,22,21,20,20,20,20,20,21,21,22,23,23
|
|
|
|
; .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
|