gno/bin/gsh/orca.asm
gdr-ftp 61474a874f This checkin contains only enough changes that gsh is able to assemble
and link.  However, it does not work yet and thus still needs work.

The *.asm files have had the following common changes:
	- 'keep' lines were eliminated
	- the 'mcopy' now takes the macro from the /obj/gno/bin/gsh
	  directory.  This is in anticipation of having the macro
	  files generated from a single source file; there is a large
	  amount of duplication.  For the moment, the makefile merely
	  copies the old macro files from the "M" directory to the
	  /obj/gno/bin/gsh directory.
	- start each file with a dummy routine so that the source
	  code winds up in the *.o rather than the *.root file.
	- added the 'setcom 60' directive; there were many source
	  lines that were otherwise getting truncated.

The makefile is a complete rewrite.
1998-04-24 15:38:47 +00:00

293 lines
4.7 KiB
NASM

*************************************************************************
*
* The GNO Shell Project
*
* Developed by:
* Jawaid Bazyar
* Tim Meekins
*
* $Id: orca.asm,v 1.2 1998/04/24 15:38:34 gdr-ftp Exp $
*
**************************************************************************
*
* ORCA.ASM
* By Tim Meekins
*
* Builtin commands for Orca compiling/editing, etc.
*
**************************************************************************
mcopy /obj/gno/bin/gsh/orca.mac
dummy start ; ends up in .root
end
setcom 60
**************************************************************************
*
* EDIT: builtin command
* syntax: edit pathname...
*
* Invokes an editor and edits a file or files.
*
**************************************************************************
MAXPARMBUF gequ 1023
edit START
strPtr equ 0
inLoopPtr equ strPtr+4
argLoopPtr equ inLoopPtr+4
sLen equ argLoopPtr+4
k equ sLen+2
j equ k+2
editcommand equ j+2
retval equ editcommand+4
sFile equ retval+2 GSString255Ptr
inPath equ sFile+4
outPath equ inPath+4
space equ outPath+4
subroutine (4:argv,2:argc),space
stz retval
stz sLen
lda #1
sta j
lda argc make sure there are two or
cmp #2 more parameters, otherwise we
bcs enoughparms
ldx #^enofile
lda #enofile
jsr errputs
lda #1
sta retval
jmp goaway
enoughparms anop
jsl alloc1024
sta sFile
stx sFile+2
ora sFile+2
beq memerr1
jsl alloc1024
sta inPath
stx inPath+2
ora inPath+2
beq memerr1
jsl alloc1024
sta outPath
stx outPath+2
ora outPath+2
bne noerr1
memerr1 ldx #^enomem
lda #enomem
jsr errputs
lda #-1
sta retval
jmp goaway
noerr1 anop
lda sFile
clc
adc #2
sta strPtr
lda sFile+2
adc #0
sta strPtr+2
doloop lda j
cmp #2
bcc nodelimit
short m
lda #10 ; newline
sta [strPtr]
long m
inc sLen
inc strPtr
bne nodelimit
inc strPtr+2
nodelimit anop
lda j
asl a ; get the proper argv pointer
asl a
tay
lda [argv],y
sta argLoopPtr
iny2
lda [argv],y
sta argLoopPtr+2
lda inPath get text field of inPath
clc
adc #2
sta inLoopPtr
lda inPath+2
adc #0
sta inLoopPtr+2
stz k
whileloop lda [argLoopPtr]
and #$00FF
beq donewhile
short m
sta [inLoopPtr]
long m
inc argLoopPtr
bne noinc2
inc argLoopPtr+2
noinc2 inc inLoopPtr
bne noinc3
inc inLoopPtr+2
noinc3 inc k
lda k
cmp #255
bcc whileloop
ldx #^einval
lda #einval
jsr errputs
lda #2
sta retval
jmp goaway
donewhile lda k
sta [inPath]
lda #1024
sta [outPath]
mv4 inPath,ep_inputPath
mv4 outPath,ep_outputPath
ExpandPath ep
bcc noeperror
ldx #^err3
lda #err3
jsr errputs
lda #-1
sta retval
jmp goaway
noeperror anop
ldy #2
lda [outPath],y
sta k
clc
adc sLen
cmp #MAXPARMBUF
bcs doloopend
pei (k)
pei (outPath+2)
lda outPath
clc
adc #4
pha
pei (strPtr+2)
pei (strPtr)
jsl rmemcpy
lda sLen
clc
adc k
sta sLen
lda strPtr
clc
adc k
sta strPtr
lda strPtr+2
adc #0
sta strPtr+2
doloopend inc j
lda j
cmp argc
jcc doloop
lda sLen
sta [sFile]
mv4 sFile,gl_sFile
Set_LInfoGS gl ;now set up the environment
ph4 #editorvar
jsl getenv
sta editcommand
stx editcommand+2
ora editcommand+2
bne goteditvar
ph4 #defedit
jsr p2cstr
sta editcommand
stx editcommand+2
goteditvar anop
pei (editcommand+2)
pei (editcommand)
ph2 #0 ;tells execute we're called by system
jsl execute
sta retval
pei (editcommand+2)
pei (editcommand)
jsl nullfree
goaway lda sFile
ora sFile+2
beq donedealloc
ldx sFile+2
lda sFile
jsl free1024
lda inPath
ora inPath+2
beq donedealloc
ldx inPath+2
lda inPath
jsl free1024
lda outPath
ora outPath+2
beq donedealloc
ldx outPath+2
lda outPath
jsl free1024
donedealloc return 2:retval
ep dc i2'2'
ep_inputPath dc i4'0'
ep_outputPath dc i4'0'
enofile dc c'edit: no filename specified',h'0D00'
enomem dc c'edit: out of memory',h'0D00'
einval dc c'edit: invalid argument (filename too long)',h'0D00'
err3 dc c'edit: invalid path name',h'0d00'
gl anop
dc i2'11'
gl_sfile dc i4'0'
dc i4'nullparm'
dc i4'nullparm'
dc i4'nullparm'
dc i1'8'
dc i1'0'
dc i1'0'
dc i1'0'
dc i4'0'
dc i4'$8000000'
dc i4'0'
nullparm dc i2'0'
editorvar dc c'editor',h'00'
defedit str '4:editor'
END