Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-01 07:41:51 +00:00
Code Issues Projects Releases Wiki Activity
80f0627240
A2osX/BIN/CSH.S.txt

654 lines
13 KiB
Plaintext
Raw Normal View History

Kernel 0.92
2019-01-21 06:52:04 +00:00
NEW
Kernel 0.93++
2020-01-25 18:56:36 +00:00
AUTO 3,1
Kernel 0.92
2019-01-21 06:52:04 +00:00
.LIST OFF
Kernel 0.93++
2020-01-25 18:56:36 +00:00
.OP 65C02
.OR $2000
Kernel 0.94
2020-02-18 15:34:56 +00:00
.TF bin/csh
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
Kernel 0.94
2020-07-31 14:46:11 +00:00
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.i
.INB inc/mli.e.i
Kernel 0.92
2019-01-26 16:33:03 +00:00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
CSH.T.VOID .EQ 0
CSH.T.UCHAR .EQ 1
CSH.T.SCHAR .EQ 2
CSH.T.UINT .EQ 3
CSH.T.SINT .EQ 4
CSH.T.ULONG .EQ 5
CSH.T.SLONG .EQ 6
CSH.T.FLOAT .EQ 7
CSH.T.VARIADIC .EQ $FF
*--------------------------------------
CSH.Q.POINTER .EQ %01000000
CSH.Q.PPOINTER .EQ %10000000
CSH.Q.PPPOINTER .EQ %11000000
CSH.Q.PCONST .EQ %00100000
CSH.Q.CONST .EQ %00010000
CSH.Q.FUNC .EQ %00001000
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
* Zero Page Segment, up to 32 bytes
*--------------------------------------
.DUMMY
.OR ZPBIN
ZS.START
Kernel 0.94
2020-08-02 12:19:43 +00:00
ZPCSHCode .BS 2
Kernel 0.92+
2019-02-13 16:20:44 +00:00
ZPCSHConst .BS 2
Kernel 0.94
2020-02-19 16:42:05 +00:00
ZPCSHData .BS 2
Kernel 0.92
2019-01-21 06:52:04 +00:00
ZPCSHStack .BS 2
Kernel 0.93+
2019-08-26 06:29:18 +00:00
Kernel 0.94
2020-07-31 14:46:11 +00:00
ZPVarID .BS 2
Kernel 0.94
2020-08-02 12:19:43 +00:00
ZPVarDef .EQ *
Kernel 0.94+
2021-01-12 21:14:13 +00:00
ZPVarType .BS 1
ZPVarQual .BS 1
Kernel 0.94
2020-02-19 16:42:05 +00:00
ZPVarSizeOf .BS 2
ZPVarDataPtr .BS 2
Kernel 0.93+
2019-08-26 06:29:18 +00:00
Kernel 0.94+
2020-12-23 14:54:57 +00:00
ZPInputBufPtr .BS 2
Kernel 0.94
2020-08-02 12:19:43 +00:00
Kernel 0.94+
2020-12-23 14:54:57 +00:00
bFastCall .BS 1
bCompil .BS 1
hDefine .BS 1
hInclude .BS 1
Kernel 0.94
2020-02-19 16:42:05 +00:00
ZPPtr1 .BS 2
ZPPtr2 .BS 2
ZPPtr3 .BS 2
Kernel 0.94+
2020-12-23 14:54:57 +00:00
ArgIndex .BS 1
Kernel 0.92
2019-01-21 06:52:04 +00:00
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
CS.START cld
jmp (.1,x)
.DA #$61 6502,Level 1 (65c02)
.DA #1 BIN Layout Version 1
.DA #0 S.PS.F.EVENT
.DA #0
.DA CS.END-CS.START Code Size (without Constants)
.DA DS.END-DS.START Data SegmentSize
Kernel 0.93+
2019-07-22 06:31:01 +00:00
.DA #64 Stack Size
Kernel 0.92
2019-01-21 06:52:04 +00:00
.DA #ZS.END-ZS.START Zero Page Size
.DA 0
*--------------------------------------
* Relocation Table
Kernel 0.93+
2019-09-03 15:35:13 +00:00
*--------------------------------------
Kernel 0.92
2019-01-21 06:52:04 +00:00
.1 .DA CS.INIT
.DA CS.RUN
Kernel 0.93+
2019-09-03 15:35:13 +00:00
.DA CS.DOEVENT
Kernel 0.92
2019-01-21 06:52:04 +00:00
.DA CS.QUIT
Kernel 0.92+
2019-02-07 07:19:02 +00:00
L.MSG.GREETINGS .DA MSG.GREETINGS
Kernel 0.93+
2019-09-05 06:43:09 +00:00
L.MSG.USAGE .DA MSG.USAGE
Kernel 0.92+
2019-02-07 07:19:02 +00:00
L.MSG.ECHOCRLF .DA MSG.ECHOCRLF
Kernel 0.93+
2019-09-05 15:49:05 +00:00
L.MSG.DEBUG .DA MSG.DEBUG
Kernel 0.93+
2019-09-03 15:35:13 +00:00
L.MSG.ERR .DA MSG.ERR
Kernel 0.94
2020-08-02 12:19:43 +00:00
L.ENV.INCLUDE .DA ENV.INCLUDE
Kernel 0.94+
2021-04-10 17:17:40 +00:00
L.CSH.BOPS .DA CSH.BOPS
Kernel 0.94++
2021-05-04 17:31:21 +00:00
J.CSH.BOPS .DA CSH.BOPS.MUL
Kernel 0.94+
2021-04-10 17:17:40 +00:00
.DA CSH.BOPS.DIV
.DA CSH.BOPS.MOD
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.DA CSH.BOPS.ADD
.DA CSH.BOPS.SUB
Kernel 0.94+
2021-04-10 17:17:40 +00:00
.DA CSH.BOPS.SHL
.DA CSH.BOPS.SHR
.DA CSH.BOPS.L
.DA CSH.BOPS.LE
Kernel 0.94++
2021-05-04 17:31:21 +00:00
.DA CSH.BOPS.G
Kernel 0.94+
2021-04-10 17:17:40 +00:00
.DA CSH.BOPS.GE
.DA CSH.BOPS.EQ
.DA CSH.BOPS.NE
.DA CSH.BOPS.AND
.DA CSH.BOPS.OR
.DA CSH.BOPS.EOR
.DA CSH.BOPS.LAND
.DA CSH.BOPS.LOR
L.CSH.FN .DA CSH.FN
L.CSH.DIRS .DA CSH.DIRS
L.CSH.KW .DA CSH.KW
L.CSH.MTYPES .DA CSH.MTYPES
L.CSH.TYPES .DA CSH.TYPES
L.CSH.FTYPES .DA CSH.FTYPES
J.CSH.DIRS .DA CSH.DIR.DEFINE
.DA CSH.DIR.INCLUDE
J.CSH.KW .DA CSH.IF
.DA CSH.WHILE
.DA CSH.ELSE
.DA CSH.DO
.DA CSH.FOR
.DA CSH.SWITCH
.DA CSH.CASE
.DA CSH.BREAK
.DA CSH.CONTINUE
.DA CSH.SIZEOF
*--------------------------------------
.DA CSH.TYPEDEF
.DA CSH.STRUCT
*--------------------------------------
J.CSH.MTYPES .DA CSH.CONST
.DA CSH.SIGNED
.DA CSH.UNSIGNED
.DA CSH.SHORT
J.CSH.TYPES .DA CSH.VOID
.DA CSH.CHAR
.DA CSH.INT
.DA CSH.LONG
.DA CSH.FLOAT
J.CSH.UTYPES .DA CSH.UCHAR
.DA CSH.UINT
.DA CSH.ULONG
J.CSH.STYPES .DA CSH.SCHAR
.DA CSH.SINT
.DA CSH.SLONG
J.CSH.KW.END .DA CSH.IF.END
.DA CSH.WHILE.END
*--------------------------------------
J.CSH.EXEC .DA EXEC.log
.DA EXEC.sqr
.DA EXEC.exp
.DA EXEC.cos
.DA EXEC.sin
.DA EXEC.tan
.DA EXEC.atan
.DA EXEC.getchar
.DA EXEC.puts
.DA EXEC.execl
.DA EXEC.printf
.DA EXEC.putenv
.DA EXEC.setenv
.DA EXEC.getenv
.DA EXEC.unsetenv
.DA EXEC.MD5
.DA EXEC.malloc
Kernel 0.92
2019-01-21 06:52:04 +00:00
.DA 0
*--------------------------------------
* Called once at process creation
* Put code for loading LIB here
*--------------------------------------
CS.INIT clc
Kernel 0.93+
2019-09-05 15:49:05 +00:00
CS.INIT.RTS rts
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
* Called until exit with CS
* if RUN exits with CC, RN entered again
*--------------------------------------
Kernel 0.93++
2020-01-31 20:26:51 +00:00
CS.RUN >PUSHW L.MSG.GREETINGS
Kernel 0.94+
2020-12-23 14:54:57 +00:00
>PUSHW A2osX.KVER
Kernel 0.92+
2019-02-06 16:20:51 +00:00
>PUSHBI 2
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
Kernel 0.93+
2019-09-05 15:49:05 +00:00
bcs CS.INIT.RTS
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
jsr CS.RUN.ARGS
bcs CS.INIT.RTS
Kernel 0.92+
2019-02-06 16:20:51 +00:00
jsr CSH.Init
Kernel 0.93+
2019-09-05 15:49:05 +00:00
bcs CS.INIT.RTS
Kernel 0.93++
2020-01-25 18:56:36 +00:00
Kernel 0.92+
2019-02-06 16:20:51 +00:00
.1 >SLEEP
Kernel 0.93+
2019-08-27 15:13:00 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
>LDA.G bDebug
Kernel 0.93+
2019-08-27 15:13:00 +00:00
bpl .2
Kernel 0.94+
2020-12-23 14:54:57 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
jsr PrintDebugMsg
.2 >LDA.G bTrace
bpl .3
Kernel 0.94+
2020-12-23 14:54:57 +00:00
>LDYA ZPInputBufPtr
Kernel 0.93+
2019-08-27 15:13:00 +00:00
jsr PrintTraceMsg
Kernel 0.93+
2019-09-05 15:49:05 +00:00
.3 jsr CSH.Run
Kernel 0.92+
2019-02-06 16:20:51 +00:00
bcc .1
Kernel 0.94+
2020-12-23 14:54:57 +00:00
Kernel 0.92+
2019-02-07 07:19:02 +00:00
cmp #MLI.E.EOF
beq .8
Kernel 0.93+
2019-08-27 15:13:00 +00:00
Kernel 0.92+
2019-02-07 07:19:02 +00:00
pha
jsr PrintErrMsg
pla
sec
rts
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 06:43:09 +00:00
.8 lda #0 Exit Code = Success
Kernel 0.92+
2019-02-07 07:19:02 +00:00
sec
Kernel 0.92
2019-01-21 06:52:04 +00:00
rts
Kernel 0.93+
2019-09-05 15:49:05 +00:00
*--------------------------------------
CS.RUN.ARGS inc ArgIndex
lda ArgIndex
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL ArgV
Kernel 0.93+
2019-09-05 15:49:05 +00:00
bcs .7
>STYA ZPPtr1
lda (ZPPtr1)
cmp #'-'
bne .4
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
ldy #1
lda (ZPPtr1),y
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
ldx #OptionVars-OptionList-1
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
.1 cmp OptionList,x
beq .2
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
dex
bpl .1
bra .90
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
.2 ldy OptionVars,x
lda #$ff
sta (pData),y
bra CS.RUN.ARGS
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
.4 >LDA.G hFileBuf
bne .90
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.94
2020-08-27 06:30:03 +00:00
>LDYA ZPPtr1
jsr CS.RUN.LoadFile
Kernel 0.93+
2019-09-05 15:49:05 +00:00
bcs .9
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.94+
2020-12-23 14:54:57 +00:00
>STYA ZPInputBufPtr
txa
Kernel 0.93+
2019-09-05 15:49:05 +00:00
>STA.G hFileBuf
bra CS.RUN.ARGS
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 15:49:05 +00:00
.7 >LDA.G hFileBuf
beq .90
clc
Kernel 0.93++
2020-01-22 16:31:48 +00:00
.9 rts
Kernel 0.93++
2020-01-31 20:26:51 +00:00
.90 >PUSHW L.MSG.USAGE
>PUSHBI 0
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
Kernel 0.93++
2020-01-22 16:31:48 +00:00
Kernel 0.93+
2019-09-05 06:43:09 +00:00
lda #E.SYN
Kernel 0.92
2019-01-21 06:52:04 +00:00
sec QUIT Process
Kernel 0.93++
2020-01-22 16:31:48 +00:00
rts
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
Kernel 0.94+
2020-12-15 13:23:22 +00:00
CS.RUN.LoadFile >SYSCALL LoadTxtFile
Kernel 0.94
2020-08-27 06:30:03 +00:00
bcs .9
phx
txa
>SYSCALL GetMemPtr
Kernel 0.94+
2020-12-23 14:54:57 +00:00
plx
Kernel 0.94
2020-08-27 06:30:03 +00:00
.9 rts
*--------------------------------------
Kernel 0.92
2019-01-21 06:52:04 +00:00
CS.DOEVENT sec
rts
*--------------------------------------
Kernel 0.92+
2019-02-06 16:20:51 +00:00
CS.QUIT jsr CSH.Quit
clc
Kernel 0.92
2019-01-21 06:52:04 +00:00
rts
Kernel 0.92
2019-01-26 16:33:03 +00:00
*--------------------------------------
Kernel 0.94+
2020-12-23 14:54:57 +00:00
PrintErrMsg lda hDefine
Kernel 0.93++
2020-01-26 19:36:49 +00:00
beq .10
Kernel 0.94+
2020-12-23 14:54:57 +00:00
>LDYA.G CSH.SaveDefine
>STYA ZPInputBufPtr
Kernel 0.93++
2020-01-26 19:36:49 +00:00
Kernel 0.94+
2021-01-12 21:14:13 +00:00
.10 lda hInclude
beq .11
bra .12
.11 >LDA.G hFileBuf
.12 >SYSCALL GetMemPtr
Kernel 0.92+
2019-02-07 07:19:02 +00:00
>STYA ZPPtr1
Kernel 0.94+
2021-01-12 21:14:13 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
stz ZPPtr2
stz ZPPtr2+1 Line counter
Kernel 0.92+
2019-02-07 07:19:02 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
.1 inc ZPPtr2
Kernel 0.92+
2019-02-07 07:19:02 +00:00
bne .2
Kernel 0.93+
2019-08-27 15:13:00 +00:00
inc ZPPtr2+1
Kernel 0.92+
2019-02-07 07:19:02 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
.2 >LDYA ZPPtr1
>STYA ZPPtr3 save line start
.20 lda (ZPPtr1)
beq .4 EoF
Kernel 0.93+
2019-08-26 06:29:18 +00:00
Kernel 0.92+
2019-02-07 07:19:02 +00:00
inc ZPPtr1
bne .3
inc ZPPtr1+1
.3 cmp #C.CR
Kernel 0.93+
2019-08-27 15:13:00 +00:00
bne .20 Scan until EoL
Kernel 0.92+
2019-02-07 07:19:02 +00:00
ldx ZPPtr1
Kernel 0.94+
2020-12-23 14:54:57 +00:00
cpx ZPInputBufPtr
Kernel 0.92+
2019-02-07 07:19:02 +00:00
lda ZPPtr1+1
Kernel 0.94+
2020-12-23 14:54:57 +00:00
sbc ZPInputBufPtr+1
Kernel 0.92+
2019-02-07 07:19:02 +00:00
bcc .1 not this line....
Kernel 0.93+
2019-08-27 15:13:00 +00:00
.4 >LDA.G bTrace
bmi .5
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
jsr PrintTraceMsg.3
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
.5 lda ZPPtr3
Kernel 0.94+
2020-12-23 14:54:57 +00:00
cmp ZPInputBufPtr
Kernel 0.93+
2019-08-27 15:13:00 +00:00
bne .6
Kernel 0.94+
2020-12-23 14:54:57 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
lda ZPPtr3+1
Kernel 0.94+
2020-12-23 14:54:57 +00:00
cmp ZPInputBufPtr+1
Kernel 0.93+
2019-08-27 15:13:00 +00:00
beq .8
Kernel 0.94+
2020-12-23 14:54:57 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
.6 >PUSHBI '-'
Kernel 0.92+
2019-02-07 07:19:02 +00:00
ldy #S.PS.hStdErr
lda (pPS),y
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL FPutC
Kernel 0.93+
2019-08-27 15:13:00 +00:00
inc ZPPtr3
bne .5
Kernel 0.94+
2020-12-23 14:54:57 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
inc ZPPtr3+1
Kernel 0.92+
2019-02-07 07:19:02 +00:00
bra .5
Kernel 0.94
2020-02-14 07:21:56 +00:00
.8 ldy #S.PS.hStdErr
Kernel 0.92+
2019-02-07 07:19:02 +00:00
lda (pPS),y
Kernel 0.94
2020-02-14 07:21:56 +00:00
>PUSHA
>PUSHW L.MSG.ERR
Kernel 0.94+
2021-01-12 21:14:13 +00:00
>PUSHW ZPPtr2 Line counter
Kernel 0.94
2020-02-14 07:21:56 +00:00
>PUSHBI 2
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL FPrintF
Kernel 0.92+
2019-02-07 07:19:02 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
rts
*--------------------------------------
Kernel 0.94
2020-02-21 13:24:16 +00:00
PrintDebugMsg >LDYA pStack
>STYA ZPPtr2
>PUSHW L.MSG.DEBUG
>PUSHW ZPPtr2
Kernel 0.93+
2019-09-03 15:35:13 +00:00
>PUSHBI 2
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL PrintF
Kernel 0.93+
2019-09-05 15:49:05 +00:00
rts
Kernel 0.93+
2019-10-03 06:25:27 +00:00
*--------------------------------------
Kernel 0.93+
2019-09-05 15:49:05 +00:00
PrintTraceMsg >STYA ZPPtr3
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
PrintTraceMsg.3 >PUSHBI '>'
Kernel 0.92+
2019-02-07 07:19:02 +00:00
ldy #S.PS.hStdErr
lda (pPS),y
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL FPutC
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
ldy #$ff
.1 iny
lda (ZPPtr3),y
beq .8
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
cmp #C.CR
beq .8
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.93+
2019-08-27 15:13:00 +00:00
phy
>PUSHA
ldy #S.PS.hStdErr
lda (pPS),y
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL FPutC
Kernel 0.93+
2019-08-27 15:13:00 +00:00
ply
bra .1
Kernel 0.94
2020-02-14 07:21:56 +00:00
.8 ldy #S.PS.hStdErr
Kernel 0.92+
2019-02-07 07:19:02 +00:00
lda (pPS),y
Kernel 0.94
2020-02-14 07:21:56 +00:00
>PUSHA
Kernel 0.94
2020-02-18 15:34:56 +00:00
Kernel 0.94
2020-02-14 07:21:56 +00:00
>PUSHW L.MSG.ECHOCRLF
>PUSHBI 0
Kernel 0.94
2020-02-28 07:21:46 +00:00
>SYSCALL FPrintF
Kernel 0.92+
2019-02-07 07:19:02 +00:00
rts
*--------------------------------------
Kernel 0.94
2020-07-31 14:46:11 +00:00
.INB usr/src/bin/csh.s.core
Kernel 0.94+
2021-01-12 21:14:13 +00:00
.INB usr/src/bin/csh.s.dir
Kernel 0.94
2020-08-02 12:19:43 +00:00
.INB usr/src/bin/csh.s.kw
.INB usr/src/bin/csh.s.exp
Kernel 0.94
2020-07-31 14:46:11 +00:00
.INB usr/src/bin/csh.s.exec
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
CS.END
*--------------------------------------
* Initialized DATA
*--------------------------------------
Kernel 0.94
2020-02-28 07:21:46 +00:00
MSG.GREETINGS .AZ "\r\nCSH-Shell %d.%d\r\n\r\n"
Kernel 0.93+
2019-09-05 15:49:05 +00:00
MSG.USAGE .AS "Usage : CSH <option> file\r\n"
Kernel 0.93+
2019-09-05 06:43:09 +00:00
.AS " -D : Debug Mode\r\n"
.AS " -T : Trace On"
Kernel 0.92+
2019-02-07 07:19:02 +00:00
MSG.ECHOCRLF .AZ "\r\n"
Kernel 0.93++
2020-01-23 14:48:22 +00:00
MSG.DEBUG .AZ "pStack=%H"
Kernel 0.93+
2019-09-05 15:49:05 +00:00
MSG.ERR .AZ "^\r\nLine #%D:"
Kernel 0.93+
2019-09-05 06:43:09 +00:00
*--------------------------------------
Kernel 0.94
2020-08-02 12:19:43 +00:00
ENV.INCLUDE .AZ "INCLUDE"
*--------------------------------------
Kernel 0.93+
2019-09-05 15:49:05 +00:00
OptionList .AS "DdTt"
Kernel 0.93+
2019-09-05 06:43:09 +00:00
OptionVars .DA #bDebug,#bDebug,#bTrace,#bTrace
Kernel 0.93+
2019-08-26 06:29:18 +00:00
*--------------------------------------
Kernel 0.94+
2021-04-10 17:17:40 +00:00
*--------------------------------------
CSH.OPChars .AS "!~+-*/%=&|^<>"
CSH.OPChars.Cnt .EQ *-CSH.OPChars
*--------------------------------------
* Pre Operators: + - ! ~ ++ --
*--------------------------------------
CSH.PREOPS >PSTR "+"
>PSTR "-"
>PSTR "!"
>PSTR "~"
*--------------------------------------
* Post Operators: ++ --
*--------------------------------------
CSH.POSTOPS >PSTR "++"
>PSTR "--"
.HS 00
*--------------------------------------
* Assignment Operators: = += -= *= /= %= <<= >>= &= ^= |=
*--------------------------------------
CSH.AOPS >PSTR "="
>PSTR "+="
>PSTR "-="
>PSTR "*="
>PSTR "/="
>PSTR "%="
>PSTR "<<="
>PSTR ">>="
>PSTR "&="
>PSTR "^="
>PSTR "!="
.HS 00
*-- Binary ---- H to L precedence -----
* Arithmetic Operators: * / %
* Arithmetic Operators: + -
* Shift Operators: << >>
* Relational Operators: < > >= < >= == !=
* Bitwise Operators: & | ^ ~
* Logical Operators: && ||
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
CSH.BOPS >PSTR "*"
Kernel 0.94+
2021-04-10 17:17:40 +00:00
>PSTR "/"
>PSTR "%"
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>PSTR "+"
>PSTR "-"
Kernel 0.94+
2021-04-10 17:17:40 +00:00
>PSTR "<<"
>PSTR ">>"
>PSTR "<"
>PSTR "<="
Kernel 0.94++
2021-05-04 17:31:21 +00:00
>PSTR ">"
Kernel 0.94+
2021-04-10 17:17:40 +00:00
>PSTR ">="
>PSTR "=="
>PSTR "!="
>PSTR "&"
>PSTR "|"
>PSTR "^"
>PSTR "&&"
>PSTR "||"
.HS 00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
CSH.Type2FPU .DA #FPU.wMUL,#FPU.iMUL,#FPU.uMUL,#FPU.lMUL,FPU.fMUL
*--------------------------------------
Kernel 0.94+
2021-04-10 17:17:40 +00:00
* Reserved Directives:
*--------------------------------------
CSH.DIRS >PSTR "define"
>PSTR "include"
.HS 00
*--------------------------------------
* Reserved Keywords:
*--------------------------------------
CSH.KW >PSTR "if"
>PSTR "while"
>PSTR "else"
>PSTR "do"
>PSTR "for"
>PSTR "switch"
>PSTR "case"
>PSTR "break"
>PSTR "continue"
>PSTR "sizeof"
>PSTR "typedef"
>PSTR "struct"
CSH.MTYPES >PSTR "const" ALL
>PSTR "signed" char,int,long
>PSTR "unsigned" char,int,long
>PSTR "short" int
CSH.TYPES >PSTR "void"
>PSTR "char"
>PSTR "int"
>PSTR "long"
>PSTR "float"
.HS 00
*--------------------------------------
CSH.FTYPES >PSTR "fastcall"
* .HS 00
*--------------------------------------
Kernel 0.94++
2021-05-04 17:31:21 +00:00
CSH.TYPESIZE .HS 0001010202040405
Kernel 0.94+
2021-04-10 17:17:40 +00:00
*--------------------------------------
CSH.FN
* float cos ( float x );
>PSTR "log"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "sqr"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "exp"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "cos"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "sin"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "tan"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
>PSTR "atan"
.DA #CSH.T.FLOAT returned value
.DA #CSH.T.FLOAT
.DA #0
* char getchar ( void );
>PSTR "getchar"
.DA #CSH.T.UCHAR returned value
.DA #0
* int puts ( const char * str );
>PSTR "puts"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* int execl(const char* cmdline, short int flags);
>PSTR "execl"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.T.UCHAR
.DA #0
* int printf ( const char * format, ... );
>PSTR "printf"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.T.VARIADIC
.DA #0
* int putenv(const char *string);
>PSTR "putenv"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* int setenv(const char *name, const char *value);
>PSTR "setenv"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* char *getenv(const char *name, char *value);
>PSTR "getenv"
.DA #CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* int unsetenv(const char *name);
>PSTR "unsetenv"
.DA #CSH.T.SINT returned value
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* void md5 (const char* str, char* digest);
>PSTR "md5"
.DA #CSH.T.VOID
.DA #CSH.Q.CONST+CSH.Q.POINTER+CSH.T.UCHAR
.DA #CSH.Q.POINTER+CSH.T.UCHAR
.DA #0
* void * malloc ( int size );
>PSTR "malloc"
.DA #CSH.Q.POINTER+CSH.T.VOID returned value
.DA #CSH.T.SINT
.DA #0
*--------------------------------------
.DA #0
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
.DUMMY
.OR 0
Kernel 0.94+
2021-04-10 17:17:40 +00:00
DS.START
PathBuf .BS 65
hFileBuf .BS 1
CSH.BufPtrSave .BS 2
CSH.CmdSave .BS 1
CSH.LookupOpt .BS 1
CSH.hDefines .BS 1
CSH.hSymbols .BS 1
CSH.hTags .BS 1
CSH.hCode .BS 1
CSH.CodePtr .BS 2
CSH.hConst .BS 1
CSH.ConstPtr .BS 2
CSH.hData .BS 1
CSH.DataPtr .BS 2
CSH.hStack .BS 1
CSH.StackPtr .BS 1
CSH.SaveInclude .BS 2
CSH.SaveDefine .BS 2
CSH.VarDef .BS 6
Kernel 0.93+
2019-09-05 06:43:09 +00:00
bDebug .BS 1
Kernel 0.93+
2019-08-27 15:13:00 +00:00
bTrace .BS 1
Kernel 0.94+
2021-04-10 17:17:40 +00:00
DS.END .ED
Kernel 0.92
2019-01-21 06:52:04 +00:00
*--------------------------------------
MAN
Kernel 0.94
2020-07-31 14:46:11 +00:00
SAVE usr/src/bin/csh.s
Kernel 0.92
2019-01-21 06:52:04 +00:00
ASM
Reference in New Issue Copy Permalink