Apple-2-Tools/host-fst
1
0
Fork 0
mirror of https://github.com/ksherlock/host-fst.git synced 2024-06-08 11:18:37 +00:00
Code Issues Projects Releases Wiki Activity

fix short m bug.

Browse Source
This commit is contained in:
Kelvin Sherlock 2016-10-16 20:45:24 -04:00
parent ad1ea50499
commit 837e992254
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
host.fst.aii
View File

@ -605,17 +605,17 @@ read proc
ldx #0 ldx #0
lda #0 lda #0
short m short m
nloop nloop
lda [ptr],y lda [ptr],y
tax tax
lda #$ff lda #$ff
sta >$009a00+2,x sta >$009a00+2,x
dey dey
bpl nloop bpl nloop
long m long m
bra fd_op bra fd_op
endp endp
@ -928,6 +928,8 @@ loop
@ok @ok
bra ok bra ok
longa on
longi on
endp endp
@ -990,10 +992,14 @@ loop
@ok @ok
bra ok bra ok
longa on
longi on
endp endp
open proc open proc
with dp, fst_parms with dp, fst_parms
jsr build_vcr jsr build_vcr