Apple-2gs-SW/minix.fst
1
0
Fork 0
mirror of https://github.com/ksherlock/minix.fst.git synced 2024-12-27 06:29:15 +00:00
Code Issues Projects Releases Wiki Activity

set_mark fixes

Browse Source
This commit is contained in:
Kelvin Sherlock 2015-08-21 17:32:42 -04:00
parent 4fff4f9c2d
commit d15f7e3af4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
set_mark.aii
View File

@ -15,6 +15,10 @@
import disk_inode:v1_inode import disk_inode:v1_inode
import disk_super:v1_super import disk_super:v1_super
import init_vcr
import init_fcr
my_dp record dp.__end my_dp record dp.__end
displacement ds.w 1 displacement ds.w 1
@ -26,12 +30,12 @@ mark ds.l 1
ENDIF ENDIF
endr endr
import init_fcr
set_mark procname export set_mark procname export
with dp, my_dp, fst_parms with dp, my_dp, fst_parms
jsr init_vcr
jsr init_fcr jsr init_fcr
@ -75,6 +79,7 @@ class1
cmp #3+1 cmp #3+1
bcs pre bcs pre
asl a ; x 2 asl a ; x 2
tax
jmp (table,x) jmp (table,x)
table table