Kernel 0.93

BIN/PAK.S.txt

@@ -0,0 +1,312 @@
+NEW
+PREFIX
+AUTO 4,1
+				.LIST OFF
+				.OP	65C02
+				.OR	$2000
+				.TF BIN/PAK
+*--------------------------------------
+				.INB INC/MACROS.I
+				.INB INC/A2OSX.I
+				.INB INC/MLI.I
+				.INB INC/MLI.E.I
+*--------------------------------------
+X.COPY.TO.DEST	.EQ 0
+X.DELETE.SOURCE	.EQ 0
+*--------------------------------------
+				.DUMMY
+				.OR ZPBIN
+ZS.START
+ZPPtr1			.BS 2
+ZPPtr2			.BS 2
+ZPFileName		.BS 2
+ZPFileStat		.BS 2
+ZPFullPath		.BS 2
+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
+				.DA CS.END-CS.START		Code Size (without Constants)
+				.DA DS.END-DS.START		Data SegmentSize
+				.DA #16					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.USAGE		.DA MSG.USAGE
+L.MSG.DIR		.DA MSG.DIR
+L.MSG.FILE		.DA MSG.FILE
+L.MSG.OK		.DA MSG.OK
+L.MSG.ERR		.DA MSG.ERR
+				.DA 0
+*--------------------------------------
+CS.INIT			
+.1				>INC.G ArgIndex
+				>SYSCALL ArgV
+				bcs .8
+				>STYA ZPPtr1
+				
+				lda (ZPPtr1)
+				cmp #'-'
+				bne .4
+				
+				ldy #1 
+				lda (ZPPtr1),y
+
+				ldx OptionList
+				
+.2				cmp OptionList,x
+				beq .3
+				dex
+				bne .2
+				
+.99				>PUSHBI 0
+				>LDYA L.MSG.USAGE
+				>SYSCALL printf
+				lda #E.SYN
+				sec
+				rts
+				
+.3				ldy OptionVars-1,x
+				lda #$80
+				sta (pData),y
+				bra .1
+*--------------------------------------
+.4				>LDA.G ArcName
+				bne .5
+				
+				bcc .1
+				rts
+				
+.5				>LDA.G hSrcFullPath
+				bne .99
+				
+				>LDYA ZPPtr1
+				jsr InitSrcDirYA
+				bcc .1
+				rts
+				
+.8				>LDYAI 256
+				>SYSCALL getmem
+				bcs .99
+				>STYA ZPFullPath
+				txa
+				>STA.G hSrcFullPath
+				
+				clc
+				rts
+*--------------------------------------
+CS.RUN			ldy #S.PS.hStdIn
+				lda (pPS),y
+				>SYSCALL feof
+				bcs .99
+				
+				tay
+				beq .10
+				
+				>SYSCALL GetChar
+				bcs .99
+				
+				cmp #$03				Ctrl-C
+				beq .92					Abort....
+				
+				cmp #$13				Ctrl-S
+				bne .10
+
+				>LDA.G bPause
+				eor	#$ff
+				sta (pData),y
+				bne .80
+				
+.10				>LDA.G bPause
+				bne .80					Pause...
+				
+				jsr GetEntry
+				bcs .9
+				
+				>LDA.G hFilter
+				beq	.4					No filter....
+				
+				pha
+				
+				ldy #S.STAT.FSID
+				lda (ZPFileStat),y
+				bne .11					not prodos...
+				
+				pla
+				>SYSCALL GetMemPtr
+				>SYSCALL strupr
+				bra .12
+				
+.11				pla
+				>SYSCALL GetMemPtr
+				
+.12				jsr StrMatch
+				bcs .8					no match, skip....
+				
+.4				ldy #S.STAT.P.DRIVE
+				lda (ZPFileStat),y		ProDOS Device ?
+				bne CS.RUN.DEV
+				
+				ldy #S.STAT.P.TYPE
+				lda (ZPFileStat),y
+				cmp #$0F				Directory ?
+				bne CS.RUN.FILE
+
+				jmp CS.RUN.DIR
+				
+.9				jsr LeaveSubDir
+				bcs .92
+
+				jsr BasePath..
+				
+.8				jsr GetNextEntry
+.80				clc
+				rts
+				
+.92				lda #0
+				sec
+.99				rts
+*--------------------------------------
+CS.RUN.DIR		jsr CS.RUN.GetFilePath
+				
+				>PUSHW ZPFullPath
+				
+				>PUSHBI 2
+				>LDYA L.MSG.DIR
+				>SYSCALL printf
+				bcs .9
+				
+.8				jsr GetNextEntry
+				clc
+.9				rts
+*--------------------------------------
+CS.RUN.DEV
+.8				jsr GetNextEntry
+				clc				
+.9				rts
+*--------------------------------------
+CS.RUN.FILE		jsr CS.RUN.GetFilePath
+				
+				>PUSHW ZPFullPath
+				
+				>PUSHBI 2
+				>LDYA L.MSG.FILE
+				>SYSCALL printf
+				bcs .9
+				
+				jsr CS.RUN.CheckErr
+				
+				>LDA.G bRecurse
+				bpl .8
+				
+				lda (ZPFileName)
+				cmp #'.'
+				beq .8
+				
+				>LDYA ZPFileName
+				jsr EnterSubDirYA
+				rts
+				
+.8				jsr GetNextEntry
+				clc
+.9				rts
+*--------------------------------------
+CS.RUN.CheckErr	bcs .1
+				>LDYA L.MSG.OK
+				>SYSCALL puts
+				rts
+				
+.1				pha
+				>PUSHA
+				>PUSHBI 1
+				>LDYA L.MSG.ERR
+				
+				>SYSCALL printf
+				
+				>LDA.G bContinue
+				eor #$80
+				asl
+				pla
+				rts
+*--------------------------------------
+CS.RUN.GetFilePath
+				>LDA.G hSrcBasePath
+				>SYSCALL GetMemPtr
+				>PUSHYA
+				
+				>LDYA ZPFullPath
+				
+				>SYSCALL StrCpy
+				
+				>PUSHW ZPFileName
+				>LDYA ZPFullPath
+				>SYSCALL StrCat
+				rts
+*--------------------------------------
+CS.DOEVENT		sec
+				rts
+*--------------------------------------
+CS.QUIT			jsr LeaveSubDir
+				bcc CS.QUIT
+				
+				>LDA.G hFilter
+				beq .1
+				>SYSCALL FreeMem
+				
+.1				>LDA.G hSrcFullPath
+				beq .8
+				>SYSCALL FreeMem
+				
+.8				clc
+				rts
+*--------------------------------------
+				.INB USR/SRC/BIN/X.FILEENUM.S
+*--------------------------------------
+CS.END
+*--------------------------------------
+OptionList		>PSTR "CRcr"
+OptionVars		.DA #bContinue,#bRecurse,#bContinue,#bRecurse
+*--------------------------------------
+MSG.USAGE		.AS "Usage : PAK Archive [File *,? wildcards allowed]\r\n"
+				.AS "   -C : Continue on error\r\n"
+				.AZ "   -R : Recurse subdirectories\r\n"
+MSG.OK			.AZ "[OK]"
+MSG.ERR			.AZ "[%h]\r\n"
+MSG.DIR			.AZ "Adding Dir :%S..."
+MSG.FILE		.AZ "Adding File:%S..."
+*--------------------------------------
+				.DUMMY
+				.OR 0
+DS.START
+ArgIndex		.BS 1
+
+hFullPath		.BS 1
+hSrcFullPath	.BS 1
+STAT			.BS S.STAT
+Index			.BS 1
+hDIRs			.BS X.MAX.RECURSE
+hDIRENTs		.BS X.MAX.RECURSE
+oDIRENTs		.BS X.MAX.RECURSE*2
+hSrcBasePath	.BS 1
+hFilter			.BS 1
+bPause			.BS 1
+bContinue		.BS 1
+bRecurse		.BS 1
+ArcName			.BS 1
+DS.END
+				.ED
+*--------------------------------------
+MAN
+SAVE USR/SRC/BIN/PAK.S
+ASM

BIN/SH.S.EXP.txt

@@ -163,9 +163,6 @@ EXP.TEST		lda (ZPArgVBufPtr)
 EXP.TEST.UNARY 	jsr CORE.ArgV.Next
 				beq EXP.OP.UNARY.ESYN	we need one arg or ]
 				
-				cmp #']'
-				beq EXP.OP.UNARY.DEF.9
-				
 				>LDA.G CORE.Operator
 				asl
 				tax