move case on to the makefile

This commit is contained in:
Kelvin Sherlock 2015-08-16 20:53:43 -04:00
parent fc29420832
commit 7d456bf025
9 changed files with 30 additions and 22 deletions

View File

@ -9,7 +9,7 @@ OBJECTS=$(SOURCES:.aii=.o)
LD=mpw linkIIgs
ASM=mpw asmIIgs
#ASMFLAGS=-d DEBUG_S16 -d DebugSymbols
ASMFLAGS=-d DebugSymbols
ASMFLAGS=-case on -d DebugSymbols
LDFLAGS=
minix.fst : Makefile $(OBJECTS)

View File

@ -1,5 +1,5 @@
case on
string asis
include 'records.equ'

View File

@ -4,7 +4,7 @@
; a directory.
;
case on
string asis
include 'gsos.equ'
include 'minix.equ'

View File

@ -1,5 +1,5 @@
case on
string asis
include 'gsos.equ'
include 'minix.equ'
@ -15,11 +15,19 @@
entry path_to_inode
entry load_inode
entry find_file
import id_disk
import device_read
data record
path_offset ds.w 1
more ds.w 1
endr
get_file_info procname export
with fst_parms
@ -239,6 +247,7 @@ no_path
bps
lda #bad_path_syntax
sec
exit
rts
check_path
@ -249,7 +258,8 @@ check_path
; but is it relative?
lda [path]
ldy #2
lda [path],y
and #$00ff
cmp #':'
beq absolute
@ -258,13 +268,14 @@ check_path
sta inode
lda dev_num
bne bps
beq bps
sta device
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
;
@ -284,6 +295,8 @@ absolute
find_file proc
with dp
with data
import find_entry_by_name
path equ fst_parms.path1_ptr
@ -293,7 +306,6 @@ span equ fst_parms.span1
import target:GSString32
stz more
stz path_offset
; we always need to load inode 1
lda #1
@ -310,7 +322,7 @@ dir_loop
; get a path component.
ldx #0
ldy #path_offset
ldy path_offset
path_loop
lda [path],y
@ -382,8 +394,7 @@ done
rts
path_offset ds.w 1
more ds.w 1
endp

View File

@ -1,8 +1,5 @@
string asis
case on
MACRO
DEFAULT &var,&value
IF &FINDSYM(&SYSGLOBAL,&var)=0 THEN

View File

@ -1,5 +1,5 @@
case on
string asis
include 'gsos.equ'
include 'minix.equ'

View File

@ -1,4 +1,5 @@
case on
string asis
include 'gsos.equ'
include 'minix.equ'

View File

@ -1,5 +1,5 @@
case on
string asis
include 'gsos.equ'
stubs proc

View File

@ -1,6 +1,5 @@
case on
string asis
string asis
tables record