A2osX/BIN/CC.S.txt

NEW
  AUTO 3,1
				.LIST OFF
				.OP	65C02
				.OR	$2000
				.TF bin/cc
*--------------------------------------
				.INB inc/macros.i
				.INB inc/a2osx.i
				.INB inc/mli.i
				.INB inc/mli.e.i
*--------------------------------------
FILES.MAX		.EQ 4
SCOPE.MAX		.EQ 16
*--------------------------------------
SYM.T			.EQ 0
SYM.T.VOID			.EQ 1
SYM.T.UCHAR			.EQ 2
SYM.T.SCHAR			.EQ 3
SYM.T.UINT			.EQ 4
SYM.T.SINT			.EQ 5
SYM.T.ULONG			.EQ 6
SYM.T.SLONG			.EQ 7
SYM.T.FLOAT			.EQ 8
SYM.T.VARIADIC		.EQ $FF
SYM.Q			.EQ 1
SYM.Q.POINTER		.EQ %01000000
SYM.Q.PPOINTER		.EQ %10000000
SYM.Q.PPPOINTER		.EQ %11000000
SYM.Q.ARRAY			.EQ %00010000
SYM.Q.AARRAY 		.EQ %00100000
SYM.Q.AAARRAY		.EQ %00110000
SYM.Q.CONST			.EQ %00001000
SYM.Q.VOLATILE		.EQ %00000100
SYM.Q.FUNC			.EQ %00000010
SYM.Q.FASTCALL		.EQ %00000001
SYM.SC			.EQ 2
SYM.SC.STATIC		.EQ 0
SYM.SC.AUTO			.EQ 2
SYM.SC.REGISTER		.EQ 4
SYM.SC.EXTERN		.EQ 6
SYM.SC.TYPEDEF		.EQ 8
*
SYM.SizeOf		.EQ 4
SYM.Addr		.EQ 6
*				.EQ 8
*
SYM.Def			.EQ 10
*--------------------------------------
* Zero Page Segment, up to 32 bytes
*--------------------------------------
				.DUMMY
				.OR ZPBIN
ZS.START
ZPCCCode		.BS 2
ZPCCConst		.BS 2
ZPCCData		.BS 2
ZPCCStack		.BS 2

ZPLineBufPtr	.BS 2
ZPLookupPtr		.BS 2

CStackPtr		.BS 1
LocalPtr		.BS 1

ScopePtr		.BS 1
ScopenCnt		.BS 1

ZPSymID			.BS 2
hSymScope		.BS 1
hSymBuf			.BS 1
ZPSymSize		.BS 2
ZPSymBufPtr		.BS 2

ZPPtr1			.BS 2
ZPPtr2			.BS 2
ZPPtr3			.BS 2
ArgIndex		.BS 1
hDefineBuf		.BS 1

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 Size
				.DA #256				Stack Size
				.DA #ZS.END-ZS.START	Zero Page Size
				.DA 0
*--------------------------------------
* Relocation Table
*--------------------------------------
.1				.DA CS.INIT
				.DA CS.RUN
				.DA CS.DOEVENT
				.DA	CS.QUIT
*--------------------------------------
L.MSG.GREETINGS	.DA MSG.GREETINGS
L.MSG.USAGE		.DA MSG.USAGE
L.MSG.COMPILING	.DA MSG.COMPILING
L.MSG.DEBUG		.DA MSG.DEBUG
L.MSG.TRACE		.DA MSG.TRACE
L.MSG.RTSTK		.DA MSG.RTSTK
L.MSG.ERROR		.DA MSG.ERROR
L.MSG.NOMAIN	.DA MSG.NOMAIN
L.ENV.INCLUDE	.DA ENV.INCLUDE
*--------------------------------------
L.CC.PREOPS		.DA CC.PREOPS
J.CC.PREOPS		.DA CC.EXP.GetRef
				.DA CC.EXP.GetDeref
L.CC.POSTOPS	.DA CC.POSTOPS
L.CC.AOPS		.DA CC.AOPS
L.CC.BOPS		.DA CC.BOPS
J.CC.bBOPS		.DA CC.BOPS.bMUL
				.DA CC.BOPS.bDIV
				.DA CC.BOPS.bMOD
				.DA CC.BOPS.ADD
				.DA CC.BOPS.SUB
				.DA CC.BOPS.SHL
				.DA CC.BOPS.SHR
				.DA CC.BOPS.L
				.DA CC.BOPS.LE
				.DA CC.BOPS.G
				.DA CC.BOPS.GE
				.DA CC.BOPS.EQ
				.DA CC.BOPS.NE
				.DA CC.BOPS.AND
				.DA CC.BOPS.OR
				.DA CC.BOPS.EOR
				.DA CC.BOPS.LAND
				.DA CC.BOPS.LOR
J.CC.cBOPS		.DA CC.BOPS.cMUL
				.DA CC.BOPS.cDIV
				.DA CC.BOPS.cMOD
				.DA CC.BOPS.ADD
				.DA CC.BOPS.SUB
				.DA CC.BOPS.SHL
				.DA CC.BOPS.SHR
				.DA CC.BOPS.L
				.DA CC.BOPS.LE
				.DA CC.BOPS.G
				.DA CC.BOPS.GE
				.DA CC.BOPS.EQ
				.DA CC.BOPS.NE
				.DA CC.BOPS.AND
				.DA CC.BOPS.OR
				.DA CC.BOPS.EOR
				.DA CC.BOPS.LAND
				.DA CC.BOPS.LOR
L.CC.DIRS		.DA CC.DIRS
L.CC.KW			.DA CC.KW
L.CC.SCSPEC		.DA CC.SCSPEC
L.CC.TYPEQUAL	.DA CC.TYPEQUAL
L.CC.TYPESPEC	.DA CC.TYPESPEC
L.CC.TYPES		.DA CC.TYPES
L.CC.FTYPES		.DA CC.FTYPES
J.CC.DIRS		.DA CC.DIR.DEFINE
				.DA CC.DIR.INCLUDE
*--------------------------------------
J.CC.KW			.DA CC.KW.IF
				.DA CC.KW.WHILE
				.DA CC.KW.ELSE
				.DA CC.KW.DO
				.DA CC.KW.FOR
				.DA CC.KW.SWITCH
				.DA CC.KW.CASE
				.DA CC.KW.BREAK
				.DA CC.KW.CONTINUE
				.DA CC.KW.RETURN
*--------------------------------------
				.DA CC.KW.SIZEOF
				.DA CC.KW.STRUCT
*--------------------------------------
J.CC.KW.END		.DA CC.KW.IF.END
				.DA CC.KW.WHILE.END
				.DA CC.KW.ELSE.END
				.DA CC.KW.DO.END
				.DA CC.KW.FOR.END
*--------------------------------------
J.CC.SCSPEC		.DA CC.SCSPEC.AUTO
				.DA CC.SCSPEC.REGISTER
				.DA CC.SCSPEC.STATIC
				.DA CC.SCSPEC.EXTERN
				.DA CC.SCSPEC.TYPEDEF
J.CC.TYPEQUAL	.DA CC.TYPE.CONST
				.DA CC.TYPE.VOLATILE
J.CC.TYPESPEC	.DA CC.TYPE.SIGNED
				.DA CC.TYPE.UNSIGNED
				.DA CC.TYPE.SHORT
J.CC.TYPES		.DA CC.TYPE.VOID
				.DA CC.TYPE.CHAR
				.DA CC.TYPE.INT
				.DA CC.TYPE.LONG
				.DA CC.TYPE.FLOAT
J.CC.UTYPES		.DA CC.TYPE.UCHAR
				.DA CC.TYPE.UINT
				.DA CC.TYPE.ULONG
J.CC.STYPES		.DA CC.TYPE.SCHAR
				.DA CC.TYPE.SINT
				.DA CC.TYPE.SLONG
*--------------------------------------
L.CC.MAIN		.DA CC.MAIN
L.CC.LIBC		.DA CC.LIBC
				.DA 0
*--------------------------------------
* Called once at process creation
* Put code for loading LIB here
*--------------------------------------
CS.INIT			clc
CS.INIT.RTS		rts
*--------------------------------------
* Called until exit with CS
* if RUN exits with CC, RN entered again
*--------------------------------------
CS.RUN			>PUSHW L.MSG.GREETINGS
				>PUSHW A2osX.KVER
				>PUSHBI 2
				>SYSCALL PrintF
				bcs CS.INIT.RTS

				lda #hFilePtr
				>STA.G hFilePtr

				lda #LineCntPtr
				>STA.G LineCntPtr

				>LDYAI 256
				>SYSCALL GetMem
				bcs CS.INIT.RTS

				>STYA.G LineBufPtr
				txa
				>STA.G hLineBuf

				jsr CS.RUN.ARGS
				bcs CS.INIT.RTS

				jsr CC.Init
				bcs CS.INIT.RTS
*--------------------------------------
CS.RUN.LOOP		jsr CC.CompileFile

				cmp #MLI.E.EOF
				bne .9

				jsr CS.RUN.FClose
				bne CS.RUN.LOOP
*--------------------------------------
				jsr CC.MainExec
				bcc .8

				>LDYA L.MSG.NOMAIN
				>SYSCALL puts

.8				lda #0					Exit Code = Success
				sec
				rts

.9				pha
				jsr PrintErrorMsg
				pla
				sec
				rts
*--------------------------------------
CS.RUN.ARGS		inc ArgIndex

				lda ArgIndex
				>SYSCALL ArgV
				bcs .7

				>STYA ZPPtr1
				lda (ZPPtr1)
				cmp #'-'
				bne .4

				ldy #1
				lda (ZPPtr1),y

				ldx #OptionVars-OptionList-1

.1				cmp OptionList,x
				beq .2

				dex
				bpl .1

				bra .90

.2				ldy OptionVars,x
				lda #$ff
				sta (pData),y
				bra CS.RUN.ARGS

.4				>LDA.G hFilePtr
				cmp #hFilePtr
				bne .90

				>LDYA ZPPtr1
				jsr CS.RUN.FOpen
				bcc CS.RUN.ARGS

				rts

.7				>LDA.G hFilePtr
				cmp #hFilePtr
				beq .90

				clc
.9				rts

.90				>PUSHW L.MSG.USAGE
				>PUSHBI 0
				>SYSCALL PrintF

				lda #E.SYN
				sec
				rts
*--------------------------------------
CS.RUN.FOpen	>PUSHYA
				>PUSHBI	O.RDONLY
				>PUSHBI S.FI.T.TXT
				>PUSHWZ					Aux type
				>SYSCALL FOpen
				bcs .9

				tax

				>LDA.G hFilePtr
				inc
				sta (pData),y
				tay
				txa
				sta (pData),y

				>LDA.G LineCntPtr
				inc
				inc
				sta (pData),y
				tay
				lda #0
				sta (pData),y
				iny
				sta (pData),y

.9				rts
*--------------------------------------
CS.RUN.FGetS	>LDYA.G LineBufPtr
				>STYA ZPLineBufPtr

				>LDA.G LineCntPtr
				tay
				lda (pData),y
				inc
				sta (pData),y
				bne .1

				iny
				lda (pData),y
				inc
				sta (pData),y

.1				>LDA.G hFilePtr
				tay
				lda (pData),y
				>PUSHA

				>PUSHW ZPLineBufPtr
				>PUSHWI 255
				>SYSCALL FGetS
				bcs .9

				>LDA.G bTrace
				bpl .8

				jsr PrintTraceMsg

.8

.9				rts
*--------------------------------------
CS.RUN.FClose	>LDA.G hFilePtr
				cmp #hFilePtr
				beq .8

				tay
				lda (pData),y

				>SYSCALL FClose

				>LDA.G hFilePtr
				dec
				sta (pData),y
				cmp #hFilePtr
				beq .8

				>LDA.G LineCntPtr
				dec
				dec
				sta (pData),y			NZ

.8				rts
*--------------------------------------
CS.DOEVENT		sec
				rts
*--------------------------------------
CS.QUIT			jsr CC.Quit

				>LDA.G hLineBuf
				beq .8

				>SYSCALL FreeMem

.8				clc
				rts
*--------------------------------------
PrintTraceMsg	ldy #S.PS.hStdErr
				lda (pPS),y
				>PUSHA

				>PUSHW L.MSG.TRACE

				>LDA.G LineCntPtr
				inc
				tay
				lda (pData),y
				>PUSHA
				dey
				lda (pData),y
				>PUSHA
				>PUSHW.G LineBufPtr
				>PUSHBI 4
				>SYSCALL FPrintF

				rts
*--------------------------------------
PrintDebugMsg	>PUSHW L.MSG.DEBUG

				>PUSHW ZPCCCode
				>PUSHW ZPCCConst
				>PUSHW ZPCCData

				lda pStack
				clc
				adc #8
				pha
				lda pStack+1
				adc #0
				>PUSHA
				pla
				>PUSHA

				>PUSHB LocalPtr

				>PUSHW ZPCCStack
				
				>PUSHB CStackPtr
				tay
				beq .1

				lda (ZPCCStack),y
				pha
				iny
				lda (ZPCCStack),y
				ply

.1				>PUSHYA

				>PUSHBI 14
				>SYSCALL PrintF
			>DEBUGOA
				rts
*--------------------------------------
PrintRTStackTrace
				pha
				phx
				phy
				
				>PUSHW L.MSG.RTSTK
				>PUSHW pBase

				>PUSHW ZPPtr1

				ldy #1
				>PUSHB (ZPPtr1),y
				>PUSHB (ZPPtr1)

				lda pStack
				clc
				adc #8
				pha
				lda pStack+1
				adc #0
				>PUSHA
				pla
				>PUSHA
				
				>PUSHBI 8
				>SYSCALL PrintF

				ply
				plx
				pla
				rts
*--------------------------------------
PrintErrorMsg	lda hDefineBuf
				beq .10

				>LDYA.G CC.SaveDefine
				>STYA ZPLineBufPtr

.10				>LDA.G bTrace
				bmi .1

				jsr PrintTraceMsg

.1				lda ZPLineBufPtr

				sec
				>SBC.G LineBufPtr
				tax

				>LDYA.G LineBufPtr
				>STYA ZPLineBufPtr

				txa
				beq .3

				ldy #0
				lda #'-'

.2				sta (ZPLineBufPtr),y
				iny
				dex
				bne .2

				txa

.3				sta (ZPLineBufPtr),y

.8				ldy #S.PS.hStdErr
				lda (pPS),y
				>PUSHA
				>PUSHW L.MSG.ERROR
				>PUSHW ZPLineBufPtr
				>PUSHBI 2
				>SYSCALL FPrintF
				rts
*--------------------------------------
				.INB usr/src/bin/cc.s.code
				.INB usr/src/bin/cc.s.core
				.INB usr/src/bin/cc.s.dir
				.INB usr/src/bin/cc.s.decl
				.INB usr/src/bin/cc.s.stmt
				.INB usr/src/bin/cc.s.kw
				.INB usr/src/bin/cc.s.type
				.INB usr/src/bin/cc.s.f
				.INB usr/src/bin/cc.s.exp
				.INB usr/src/bin/cc.s.sym
				.INB usr/src/bin/cc.s.exec
*--------------------------------------
PCC.DEBUG
			jsr PrintRTStackTrace
				>DEBUG
PCC.DEBUG.L		.EQ *-PCC.DEBUG
*--------------------------------------
PCC.ENTER
*			jsr PrintRTStackTrace
			
				ldx pBase
				phx
				clc
				adc pStack				A = Local Size
				sta pBase

*			jsr PrintRTStackTrace
*			>DEBUG
			
PCC.ENTER.L		.EQ *-PCC.ENTER
*--------------------------------------
PCC.LEAVE	
*			jsr PrintRTStackTrace

				lda pBase
				sta pStack
				pla
				sta pBase

*			jsr PrintRTStackTrace
*			>DEBUG

				rts
PCC.LEAVE.L		.EQ *-PCC.LEAVE
*--------------------------------------
PCC.ADDLOCAL	
*			jsr PrintRTStackTrace
*			>DEBUG
				clc
				adc pStack
				sta pStack

*			jsr PrintRTStackTrace
*			>DEBUG
			
PCC.ADDLOCAL.L	.EQ *-PCC.ADDLOCAL
*--------------------------------------
PCC.GETLOCAL	clc
				adc pBase
				tay
				lda pBase+1
				
PCC.GETLOCAL.L	.EQ *-PCC.GETLOCAL
*--------------------------------------
PCC.SETRETVALUE	ldy #0

*			jsr PrintRTStackTrace
*			>DEBUG

.1				>PULLA
				sta (pBase),y
				iny
				dex
				bne .1

PCC.SETRETVALUE.L	.EQ *-PCC.SETRETVALUE
*--------------------------------------
PCC.PushXFromYA	>STYA ZPPtr1

*			jsr PrintRTStackTrace
*			>DEBUG

				txa
				dec
				tay

.1				lda (ZPPtr1),y
				>PUSHA
				dey
				bpl .1

PCC.PushXFromYA.L	.EQ *-PCC.PushXFromYA
*--------------------------------------
PCC.PopXToYA	>STYA ZPPtr1

*			jsr PrintRTStackTrace
*			>DEBUG

				ldy #0

.1				>PULLA
				sta (ZPPtr1),y
				iny
				dex
				bne .1

PCC.PopXToYA.L	.EQ *-PCC.PopXToYA
*--------------------------------------
PCC.SetXToYA	>STYA ZPPtr1

*			jsr PrintRTStackTrace
*			>DEBUG

				ldy #0

.1				lda (pStack),y
				sta (ZPPtr1),y
				iny
				dex
				bne .1

PCC.SetXToYA.L	.EQ *-PCC.SetXToYA
*--------------------------------------
CS.END
*--------------------------------------
* Initialized DATA
*--------------------------------------
MSG.GREETINGS	.AZ "\r\nA2osX C Compiler %d.%d\r\n\r\n"
MSG.USAGE		.AS "Usage : CC <option> srcfile\r\n"
				.AS "   -D : Debug Mode\r\n"
				.AS "   -T : Trace On"
				.AZ "\r\n"
MSG.COMPILING	.AZ "***Compiling : %s...\r\n"
MSG.DEBUG		.AZ "***pCode=%H, pConst=%H, pData=%H, pStack=%H, LSP=%h, CSP=%H:%h>%h:%h\r\n"
MSG.TRACE		.AZ "%5D> %s\r\n"
MSG.RTSTK		.AZ "<pBase=%H, pVar=%H, (pVar)=%H, pStack=%H>\r\n"
MSG.ERROR		.AZ "       %s^\r\n"
MSG.NOMAIN		.AZ "***No 'main()' function defined."
*--------------------------------------
ENV.INCLUDE		.AZ "INCLUDE"
ENV.LIB			.AZ "LIB"
*--------------------------------------
OptionList		.AS "DdTt"
OptionVars		.DA #bDebug,#bDebug,#bTrace,#bTrace
*--------------------------------------
PCC.SLEEP		>SLEEP
PCC.SLEEP.L		.EQ *-PCC.SLEEP
*--------------------------------------
*PCC.HEADER		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 Size
*				.DA #256				Stack Size
*				.DA #ZS.END-ZS.START	Zero Page Size
*				.DA 0
*.1				.DA CS.INIT
*				.DA CS.RUN
*				.DA CS.DOEVENT
*				.DA	CS.QUIT
*--------------------------------------
PCC.Test0X		lda #0

.1				ora (pStack)
				inc pStack
				dex
				bne .1

				tay
.2				bne .2+5
				.HS 4C					JMP abs

PCC.Test0X.L	.EQ *-PCC.Test0X
*--------------------------------------
PCC.SETpBASEp1	lda pBase+1
				sta ZPPtr1+1
PCC.SETpBASEp1.L	.EQ *-PCC.SETpBASEp1
*--------------------------------------
PCC.SETpBASEpA	clc
				adc pBase
				sta ZPPtr1
				ldy #1
PCC.SETpBASEpA.L	.EQ *-PCC.SETpBASEpA
*--------------------------------------
PCC.Deref		>PUSHB (ZPPtr1),y
				>PUSHB (ZPPtr1)
PCC.Deref.L		.EQ *-PCC.Deref				
*--------------------------------------
PCC.PUSHpBASEp1	>PUSHB pBase+1
PCC.PUSHpBASEp1.L	.EQ *-PCC.PUSHpBASEp1
*--------------------------------------
PCC.PUSHpBASEpA	clc
				adc pBase
				>PUSHA
PCC.PUSHpBASEpA.L	.EQ *-PCC.PUSHpBASEpA
*--------------------------------------
PCC.PushFromPtr	>PULLW ZPPtr1

.1				lda (ZPPtr1),y
				>PUSHA
				dey
				bpl .1
PCC.PushFromPtr.L	.EQ *-PCC.PushFromPtr
*--------------------------------------
CC.OPChars		.AS "!~+-*/%=&|^<>["
CC.OPChars.Cnt	.EQ *-CC.OPChars
*--------------------------------------
* Pre Operators:  & * + - ! ~ ++ --
*--------------------------------------
CC.PREOPS		>PSTR "&"				ref
				>PSTR "*"				deref
				>PSTR "+"				abs
				>PSTR "-"				change sign
				>PSTR "!"				logical not
				>PSTR "~"				bitwise not
				>PSTR "++"				pre increase
				>PSTR "--"				pre decrease
				.HS 00
*--------------------------------------
* Post Operators: ++ --
*--------------------------------------
CC.POSTOPS		>PSTR "++"
				>PSTR "--"
				>PSTR "["
				>PSTR "."
				>PSTR "->"
				.HS 00
*--------------------------------------
* Assignment Operators: = += -= *= /= %= <<= >>= &= ^= |=
*--------------------------------------
CC.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: && ||
*--------------------------------------
CC.BOPS			>PSTR "*"
				>PSTR "/"
				>PSTR "%"
				>PSTR "+"
				>PSTR "-"
				>PSTR "<<"
				>PSTR ">>"
				>PSTR "<"
				>PSTR "<="
				>PSTR ">"
				>PSTR ">="
				>PSTR "=="
				>PSTR "!="
				>PSTR "&"
				>PSTR "|"
				>PSTR "^"
				>PSTR "&&"
				>PSTR "||"
				.HS 00
*--------------------------------------
* Reserved Directives:
*--------------------------------------
CC.DIRS			>PSTR "define"
				>PSTR "include"
				.HS 00
*--------------------------------------
* Reserved Keywords:
*--------------------------------------
CC.KW			>PSTR "if"
				>PSTR "while"
				>PSTR "else"
				>PSTR "do"
				>PSTR "for"
				>PSTR "switch"
				>PSTR "case"
				>PSTR "break"
				>PSTR "continue"
				>PSTR "return"
				>PSTR "sizeof"
				>PSTR "struct"
				.HS 00
*--------------------------------------
CC.SCSPEC		>PSTR "auto"
				>PSTR "register"
				>PSTR "static"
				>PSTR "extern"
				>PSTR "typedef"
				.HS 00
*--------------------------------------
CC.TYPEQUAL		>PSTR "const"			ALL
				>PSTR "volatile"
CC.TYPESPEC		>PSTR "signed"			char,int,long
				>PSTR "unsigned"		char,int,long
				>PSTR "short"			int
CC.TYPES		>PSTR "void"
				>PSTR "char"
				>PSTR "int"
				>PSTR "long"
				>PSTR "float"
				.HS 00
*--------------------------------------
CC.Type2FPU	.DA #FPU.wMUL,#FPU.iMUL,#FPU.uMUL,#FPU.lMUL,#FPU.fMUL
*--------------------------------------
CC.FTYPES		>PSTR "fastcall"
*				.HS 00
*--------------------------------------
CC.TYPESIZE	.HS 0001010202040405
CC.TYPESIGN	.HS 0000FF00FF00FFFF
*--------------------------------------
CC.MAIN			.AZ "main"
CC.MAIN.DEF		.DA #SYM.T.SINT,#0,#SYM.T.SINT,#0,#SYM.T.UCHAR,#SYM.Q.PPOINTER,0
CC.MAIN.DEF.LEN	.EQ *-CC.MAIN.DEF
*--------------------------------------
CC.LIBC			>PSTR "chtyp"
				.DA #2,#1,#SYS.ChTyp
				>PSTR "chmod"
				.DA #2,#1,#SYS.ChMod
				>PSTR "fstat"
				.DA #2,#1,#SYS.FStat
				>PSTR "stat"
				.DA #2,#1,#SYS.Stat
				>PSTR "mkdir"
				.DA #2,#1,#SYS.MKDir
				>PSTR "mknod"
				.DA #2,#1,#SYS.MKNod
				>PSTR "mkfifo"
				.DA #2,#1,#SYS.MKFIFO
				>PSTR "pipe"
				.DA #2,#1,#SYS.Pipe
				>PSTR "opendir"
				.DA #2,#1,#SYS.OpenDir
				>PSTR "readdir"
				.DA #2,#1,#SYS.ReadDir
				>PSTR "closedir"
				.DA #2,#1,#SYS.CloseDir
				>PSTR "open"
				.DA #2,#1,#SYS.Open
				>PSTR "close"
				.DA #2,#1,#SYS.Close
				>PSTR "read"
				.DA #2,#1,#SYS.Read
				>PSTR "write"
				.DA #2,#1,#SYS.Write
				>PSTR "chown"
				.DA #2,#1,#SYS.ChOwn
				>PSTR "fputc"
				.DA #2,#1,#SYS.FPutC
				>PSTR "putchar"
				.DA #2,#1,#SYS.PutChar
				>PSTR "getc"
				.DA #2,#1,#SYS.GetC
				>PSTR "getchar"
				.DA #2,#1,#SYS.GetChar
				>PSTR "fputs"
				.DA #2,#1,#SYS.FPutS
				>PSTR "puts"
				.DA #2,#1,#SYS.PutS
				>PSTR "fgets"
				.DA #2,#1,#SYS.FGetS
				>PSTR "ungetc"
				.DA #2,#1,#SYS.UngetC
				>PSTR "fopen"
				.DA #2,#1,#SYS.FOpen
				>PSTR "fclose"
				.DA #2,#1,#SYS.FClose
				>PSTR "fread"
				.DA #2,#1,#SYS.FRead
				>PSTR "fwrite"
				.DA #2,#1,#SYS.FWrite
				>PSTR "fflush"
				.DA #2,#1,#SYS.FFlush
				>PSTR "fseek"
				.DA #2,#1,#SYS.FSeek
				>PSTR "ftell"
				.DA #2,#1,#SYS.FTell
				>PSTR "feof"
				.DA #2,#1,#SYS.FEOF
				>PSTR "remove"
				.DA #2,#1,#SYS.Remove
				>PSTR "rename"
				.DA #2,#1,#SYS.Rename
				>PSTR "printf"
				.DA #2,#1,#SYS.PrintF
				>PSTR "fprintf"
				.DA #2,#1,#SYS.FPrintF
				>PSTR "sprintf"
				.DA #2,#1,#SYS.SPrintF
				>PSTR "scanf"
				.DA #2,#1,#SYS.ScanF
				>PSTR "fscanf"
				.DA #2,#1,#SYS.FScanF
				>PSTR "sscanf"
				.DA #2,#1,#SYS.SScanF
*				>PSTR "$50"
*				.DA #2,#1,#0
*				>PSTR "$52"
*				.DA #2,#1,#0
*				>PSTR "$54"
*				.DA #2,#1,#0
*				>PSTR "$56"
*				.DA #2,#1,#0
*				>PSTR "$58"
*				.DA #2,#1,#0
*				>PSTR "$5A"
*				.DA #2,#1,#0
*				>PSTR "$5C"
*				.DA #2,#1,#0
				>PSTR "setattr"
				.DA #2,#1,#SYS.SetAttr
*				>PSTR "mount"
*				.DA #2,#1,#0
*				>PSTR "umount"
*				.DA #2,#1,#0
*				>PSTR "online"
*				.DA #2,#1,#0
*				>PSTR "getstkobj"
*				.DA #2,#1,#0
*				>PSTR "shift"
*				.DA #2,#1,#0
*				>PSTR "argv"
*				.DA #2,#1,#0
*				>PSTR "argvDup"
*				.DA #2,#1,#0
*				>PSTR "geterrmsg"
*				.DA #2,#1,#0
				>PSTR "atof"
				.DA #2,#1,#SYS.AToF
				>PSTR "atoi"
				.DA #2,#1,#SYS.AToI
				>PSTR "atol"
				.DA #2,#1,#SYS.AToL
				>PSTR "strtof"
				.DA #2,#1,#SYS.StrToF
				>PSTR "strtol"
				.DA #2,#1,#SYS.StrToL
				>PSTR "strtoul"
				.DA #2,#1,#SYS.StrToUL
*				>PSTR "realpath"
*				.DA #2,#1,#0
*				>PSTR "expand"
*				.DA #2,#1,#0
				>PSTR "strlen"
				.DA #2,#1,#SYS.StrLen
				>PSTR "strcpy"
				.DA #2,#1,#SYS.StrCpy
				>PSTR "strcat"
				.DA #2,#1,#SYS.StrCat
				>PSTR "strdup"
				.DA #2,#1,#SYS.StrDup
				>PSTR "strupr"
				.DA #2,#1,#SYS.StrUpr
				>PSTR "strlwr"
				.DA #2,#1,#SYS.StrLwr
				>PSTR "strcmp"
				.DA #2,#1,#SYS.StrCmp
				>PSTR "strcasecmp"
				.DA #2,#1,#SYS.StrCaseCmp
*				>PSTR "getdevbyname"
*				.DA #2,#1,#0
*				>PSTR "getdevstatus"
*				.DA #2,#1,#0
*				>PSTR "mkdev"
*				.DA #2,#1,#0
*				>PSTR "ioctl"
*				.DA #2,#1,#0
*				>PSTR "loadlib"
*				.DA #2,#1,#0
*				>PSTR "unloadlib"
*				.DA #2,#1,#0
*				>PSTR "loaddrv"
*				.DA #2,#1,#0
*				>PSTR "insdrv"
*				.DA #2,#1,#0
				>PSTR "execl"
				.DA #2,#1,#SYS.ExecL
*				>PSTR "execv"
*				.DA #2,#1,#0
				>PSTR "fork"
				.DA #2,#1,#SYS.Fork
				>PSTR "kill"
				.DA #2,#1,#SYS.Kill
*				>PSTR "loadfile"
*				.DA #2,#1,#0
*				>PSTR "loadtxtfile"
*				.DA #2,#1,#0
*				>PSTR "filesearch"
*				.DA #2,#1,#0
*				>PSTR "getmemstat"
*				.DA #2,#1,#0
*				>PSTR "strvnew"
*				.DA #2,#1,#0
*				>PSTR "strvset"
*				.DA #2,#1,#0
*				>PSTR "strvget"
*				.DA #2,#1,#0
*				>PSTR "strvfree"
*				.DA #2,#1,#0
				>PSTR "putenv"
				.DA #2,#1,#SYS.PutEnv
				>PSTR "setenv"
				.DA #2,#1,#SYS.SetEnv
				>PSTR "getenv"
				.DA #2,#1,#SYS.GetEnv
				>PSTR "unsetenv"
				.DA #2,#1,#SYS.UnsetEnv
				>PSTR "time"
				.DA #2,#1,#SYS.Time
				>PSTR "strftime"
				.DA #2,#1,#SYS.StrFTime
*				>PSTR "ptime2time"
*				.DA #2,#1,#0
				>PSTR "ctime2time"
				.DA #2,#1,#SYS.CTime2Time
				>PSTR "md5"
				.DA #2,#1,#SYS.MD5
				>PSTR "md5init"
				.DA #2,#1,#SYS.MD5Init
				>PSTR "md5update"
				.DA #2,#1,#SYS.MD5Update
				>PSTR "md5finalize"
				.DA #2,#1,#SYS.MD5Finalize
				>PSTR "getpwuid"
				.DA #2,#1,#SYS.GetPWUID
				>PSTR "getpwname"
				.DA #2,#1,#SYS.GetPWName
				>PSTR "putpw"
				.DA #2,#1,#SYS.PutPW
				>PSTR "getgrpgid"
				.DA #2,#1,#SYS.GetGRGID
				>PSTR "getgrpname"
				.DA #2,#1,#SYS.GetGRName
				>PSTR "putgr"
				.DA #2,#1,#SYS.PutGR
*				>PSTR "opensession"
*				.DA #2,#1,#0
*				>PSTR "closesession"
*				.DA #2,#1,#0
*				>PSTR "slistgetdata"
*				.DA #2,#1,#0
*				>PSTR "slistadddata"
*				.DA #2,#1,#0
*				>PSTR "slistsetdata"
*				.DA #2,#1,#0
*				>PSTR "slistgetbyid"
*				.DA #2,#1,#0
*				>PSTR "slistnewkey"
*				.DA #2,#1,#0
*				>PSTR "slistlookup"
*				.DA #2,#1,#0
*				>PSTR "slistfree"
*				.DA #2,#1,#0
*				>PSTR "slistnew"
*				.DA #2,#1,#0
				>PSTR "malloc"
				.DA #2,#1,#SYS.GetMem
				>PSTR "realloc"
				.DA #2,#1,#SYS.Realloc
*				>PSTR "getmemptr"
*				.DA #2,#1,#0
				>PSTR "free"
				.DA #2,#1,#SYS.FreeMem
*				>PSTR "newstkobj"
*				.DA #2,#1,#0
*				>PSTR "loadstkobj"
*				.DA #2,#1,#0
*				>PSTR "getstkobjptr"
*				.DA #2,#1,#0
*				>PSTR "freestkobj"
*				.DA #2,#1,#0
*--------------------------------------
				>PSTR "pwr"
				.DA #2,#2,#FPU.PWR
				>PSTR "log"
				.DA #2,#2,#FPU.LOG
				>PSTR "sqr"
				.DA #2,#2,#FPU.SQR
				>PSTR "exp"
				.DA #2,#2,#FPU.EXP
				>PSTR "cos"
				.DA #2,#2,#FPU.COS
				>PSTR "sin"
				.DA #2,#2,#FPU.SIN
				>PSTR "tan"
				.DA #2,#2,#FPU.TAN
				>PSTR "atan"
				.DA #2,#2,#FPU.ATAN
				.HS 00
*--------------------------------------
				.DUMMY
				.OR 0
DS.START
PathBuf			.BS MLI.MAXPATH+1

bDebug			.BS 1
bTrace			.BS 1

hFilePtr		.BS 1
hFiles			.BS FILES.MAX

LineCntPtr		.BS 1
				.BS 1					for inc inc
LineCnts		.BS FILES.MAX+2

hLineBuf		.BS 1
LineBufPtr		.BS 2

CC.CmdSave		.BS 1

CC.hDefines		.BS 1
CC.hTags		.BS 1
CC.hSymbols		.BS SCOPE.MAX

CC.hCode		.BS 1
CC.hConst		.BS 1
CC.ConstCnt		.BS 2
CC.hData		.BS 1
CC.hLocal		.BS 1

CC.hStack		.BS 1

CC.SaveDefine	.BS 2

DS.END			.ED
*--------------------------------------
MAN
SAVE usr/src/bin/cc.s
ASM