mirror of
https://github.com/GnoConsortium/gno.git
synced 2024-11-18 19:09:31 +00:00
61474a874f
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.
293 lines
4.7 KiB
NASM
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
|