move case on to the makefile
This commit is contained in:
parent
fc29420832
commit
7d456bf025
2
Makefile
2
Makefile
|
@ -9,7 +9,7 @@ OBJECTS=$(SOURCES:.aii=.o)
|
||||||
LD=mpw linkIIgs
|
LD=mpw linkIIgs
|
||||||
ASM=mpw asmIIgs
|
ASM=mpw asmIIgs
|
||||||
#ASMFLAGS=-d DEBUG_S16 -d DebugSymbols
|
#ASMFLAGS=-d DEBUG_S16 -d DebugSymbols
|
||||||
ASMFLAGS=-d DebugSymbols
|
ASMFLAGS=-case on -d DebugSymbols
|
||||||
LDFLAGS=
|
LDFLAGS=
|
||||||
|
|
||||||
minix.fst : Makefile $(OBJECTS)
|
minix.fst : Makefile $(OBJECTS)
|
||||||
|
|
|
@ -4,7 +4,7 @@
|
||||||
; a directory.
|
; a directory.
|
||||||
;
|
;
|
||||||
|
|
||||||
case on
|
string asis
|
||||||
|
|
||||||
include 'gsos.equ'
|
include 'gsos.equ'
|
||||||
include 'minix.equ'
|
include 'minix.equ'
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
case on
|
string asis
|
||||||
|
|
||||||
include 'gsos.equ'
|
include 'gsos.equ'
|
||||||
include 'minix.equ'
|
include 'minix.equ'
|
||||||
|
@ -15,11 +15,19 @@
|
||||||
|
|
||||||
entry path_to_inode
|
entry path_to_inode
|
||||||
entry load_inode
|
entry load_inode
|
||||||
|
entry find_file
|
||||||
|
|
||||||
import id_disk
|
import id_disk
|
||||||
import device_read
|
import device_read
|
||||||
|
|
||||||
|
|
||||||
|
data record
|
||||||
|
|
||||||
|
path_offset ds.w 1
|
||||||
|
more ds.w 1
|
||||||
|
|
||||||
|
endr
|
||||||
|
|
||||||
get_file_info procname export
|
get_file_info procname export
|
||||||
|
|
||||||
with fst_parms
|
with fst_parms
|
||||||
|
@ -239,6 +247,7 @@ no_path
|
||||||
bps
|
bps
|
||||||
lda #bad_path_syntax
|
lda #bad_path_syntax
|
||||||
sec
|
sec
|
||||||
|
exit
|
||||||
rts
|
rts
|
||||||
|
|
||||||
check_path
|
check_path
|
||||||
|
@ -249,7 +258,8 @@ check_path
|
||||||
|
|
||||||
; but is it relative?
|
; but is it relative?
|
||||||
|
|
||||||
lda [path]
|
ldy #2
|
||||||
|
lda [path],y
|
||||||
and #$00ff
|
and #$00ff
|
||||||
cmp #':'
|
cmp #':'
|
||||||
beq absolute
|
beq absolute
|
||||||
|
@ -258,13 +268,14 @@ check_path
|
||||||
sta inode
|
sta inode
|
||||||
|
|
||||||
lda dev_num
|
lda dev_num
|
||||||
bne bps
|
beq bps
|
||||||
|
sta device
|
||||||
jsr id_disk
|
jsr id_disk
|
||||||
|
bcs exit
|
||||||
|
lda #2
|
||||||
|
sta data.path_offset ; skip past gs-os length word
|
||||||
|
brl find_file ; will rts.
|
||||||
;
|
;
|
||||||
; now find the actual file...
|
|
||||||
;
|
|
||||||
;
|
|
||||||
rts
|
|
||||||
|
|
||||||
absolute
|
absolute
|
||||||
;
|
;
|
||||||
|
@ -284,6 +295,8 @@ absolute
|
||||||
find_file proc
|
find_file proc
|
||||||
|
|
||||||
with dp
|
with dp
|
||||||
|
with data
|
||||||
|
|
||||||
import find_entry_by_name
|
import find_entry_by_name
|
||||||
|
|
||||||
path equ fst_parms.path1_ptr
|
path equ fst_parms.path1_ptr
|
||||||
|
@ -293,7 +306,6 @@ span equ fst_parms.span1
|
||||||
import target:GSString32
|
import target:GSString32
|
||||||
|
|
||||||
stz more
|
stz more
|
||||||
stz path_offset
|
|
||||||
|
|
||||||
; we always need to load inode 1
|
; we always need to load inode 1
|
||||||
lda #1
|
lda #1
|
||||||
|
@ -310,7 +322,7 @@ dir_loop
|
||||||
; get a path component.
|
; get a path component.
|
||||||
|
|
||||||
ldx #0
|
ldx #0
|
||||||
ldy #path_offset
|
ldy path_offset
|
||||||
|
|
||||||
path_loop
|
path_loop
|
||||||
lda [path],y
|
lda [path],y
|
||||||
|
@ -382,8 +394,7 @@ done
|
||||||
rts
|
rts
|
||||||
|
|
||||||
|
|
||||||
path_offset ds.w 1
|
|
||||||
more ds.w 1
|
|
||||||
|
|
||||||
endp
|
endp
|
||||||
|
|
||||||
|
|
3
gsos.equ
3
gsos.equ
|
@ -1,8 +1,5 @@
|
||||||
|
|
||||||
|
|
||||||
string asis
|
|
||||||
case on
|
|
||||||
|
|
||||||
MACRO
|
MACRO
|
||||||
DEFAULT &var,&value
|
DEFAULT &var,&value
|
||||||
IF &FINDSYM(&SYSGLOBAL,&var)=0 THEN
|
IF &FINDSYM(&SYSGLOBAL,&var)=0 THEN
|
||||||
|
|
2
main.aii
2
main.aii
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
case on
|
string asis
|
||||||
|
|
||||||
include 'gsos.equ'
|
include 'gsos.equ'
|
||||||
include 'minix.equ'
|
include 'minix.equ'
|
||||||
|
|
|
@ -1,4 +1,5 @@
|
||||||
case on
|
|
||||||
|
string asis
|
||||||
|
|
||||||
include 'gsos.equ'
|
include 'gsos.equ'
|
||||||
include 'minix.equ'
|
include 'minix.equ'
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
|
|
||||||
case on
|
string asis
|
||||||
|
|
||||||
include 'gsos.equ'
|
include 'gsos.equ'
|
||||||
stubs proc
|
stubs proc
|
||||||
|
|
|
@ -1,5 +1,4 @@
|
||||||
|
|
||||||
case on
|
|
||||||
string asis
|
string asis
|
||||||
|
|
||||||
tables record
|
tables record
|
||||||
|
|
Loading…
Reference in New Issue