Kernel 0.94

BIN/ASM.S.EXP.txt

@@ -150,7 +150,6 @@ EXP.Eval.Next	stz SRC.ACC
 
 				jsr SYM.LookupGlobal
 				.DO ASMDBG=1
-			bcs *
 			lda #"?"
  			jsr EXP.DBG
 				.FIN

BIN/ASM.S.SRC.txt

@@ -4,7 +4,7 @@ NEW
 SRC.ParseLine	jsr OUT.PrintBufReset
 
 				>STZ.G OUT.bEquate
-								
+
 				jsr SRC.GetChar
 				bcs .8
 
@@ -18,18 +18,18 @@ SRC.ParseLine	jsr OUT.PrintBufReset
 				bcs .7					TRUE
 
 				lda (ZPLinePtr)
-				
+
 .1				cmp #C.SPACE			false....skip label processing
 				beq SRC.ParseLine.DirOp			no label....
-				
+
 .2				jsr SRC.GetNextChar
 				bcs .8
-				
+
 				cmp #C.SPACE
 				bne .2
-				
+
 				bra SRC.ParseLine.DirOp
-				
+
 .7				>LDA.G ASM.MA.ON
 				bpl SRC.ParseLine.LABEL
 
@@ -39,7 +39,7 @@ SRC.ParseLine	jsr OUT.PrintBufReset
 SRC.ParseLine.RTS
 				rts
 *---------------------------------------
-SRC.ParseLine.LABEL	
+SRC.ParseLine.LABEL
 				jsr SRC.GetChar
 				cmp #C.SPACE			no label...go scan dir/opcode
 				beq SRC.ParseLine.DirOp
@@ -51,7 +51,7 @@ SRC.ParseLine.LABEL
 				>LDA.G MAC.StkPtr
 				bne SRC.ParseLine.InvLbl	illegal in MACRO
 				bra .2
-				
+
 .1				cpx #':'				private symbol?
 				bne .8
 
@@ -87,7 +87,7 @@ SRC.ParseLine.DirOp
 				jsr SRC.GetKeyword
 
 				bcs SRC.ParseLine.InvDir
-				
+
 				jsr SRC.DoCheck
 				bcs .1					TRUE, always execute
 
@@ -99,7 +99,7 @@ SRC.ParseLine.DirOp
 
 				cpx #30					.FIN?
 				bne SRC.ParseLine.Ok
-				
+
 .1				jmp (J.DIRECTIVES,x)
 
 .5				pha
@@ -147,7 +147,7 @@ SRC.ParseLine.OpCode
 				tax
 
 				ldy #0
-				
+
 .2				lda (ZPLinePtr),y
 				beq .7
 
@@ -202,7 +202,7 @@ SRC.ParseLine.OpCode
 				>STA.G SRC.AMID
 				jsr SRC.ParseLine.AMCheck4OP
 				bcs .99
-				
+
 				jmp SRC.ParseLine.Emit
 .9				lda #E.INV.OPCODE
 				sec
@@ -216,7 +216,7 @@ SRC.ParseLine.AM
 
 				jsr SRC.AddToBuf
 				bra .7
-				
+
 .2				jsr SRC.IsLetter		Any register?
 				bcs .6					no, try something else
 
@@ -250,9 +250,9 @@ SRC.ParseLine.AM
 
 .75			ldx SRC.ACC.SIZE
 			beq *					SHOULD NEVER APPEND
-			
+
 				jsr SRC.GetACCSize
-				
+
 .72				lda #'a'
 
 .71				jsr SRC.AddToBuf
@@ -282,7 +282,7 @@ SRC.ParseLine.AM
 .80				jsr SRC.ExpandAddress
 				cpx #5
 				bne .8
-	
+
 .9				lda #E.INV.AM
 				sec
 .99				rts
@@ -298,7 +298,7 @@ SRC.ParseLine.AMCheck
 				lda (ZPPtr1)
 				beq .9
 
-				cmp SRC.AM.StrBuf 
+				cmp SRC.AM.StrBuf
 				bne .7
 
 				tay
@@ -315,7 +315,7 @@ SRC.ParseLine.AMCheck
 
 				clc
 				rts
-				
+
 .6				lda (ZPPtr1)
 .7				sec
 				adc ZPPtr1
@@ -339,7 +339,7 @@ SRC.ParseLine.AMCheck4OP
 				ldy #2					LEN Byte
 				adc (ZPOpDefPtr),y
 				bcc .10
-				inx		
+				inx
 
 .10				sta ZPPtr1
 
@@ -357,7 +357,7 @@ SRC.ParseLine.AMCheck4OP
 
 .12				sec						LEN byte...
 				ldy #1					String...
-				adc (ZPPtr1),y		
+				adc (ZPPtr1),y
 				bcc .2
 				inx
 
@@ -374,19 +374,19 @@ SRC.ParseLine.AMCheck4OP
 				>STYA ZPOpDefPtr
 				clc
 				rts
-*---------------------------------------			
+*---------------------------------------
 SRC.ParseLine.Emit
 				stz SRC.ACCTMP			index in ACC
 
 				ldy #1
 				lda (ZPOpDefPtr),y
 				sta SRC.ACCTMP+1		Char Count in AM
-				
+
 				iny
-				
+
-.4				lda (ZPOpDefPtr),y
+.2				lda (ZPOpDefPtr),y
 				cmp #'a
-				bcs .5					lowercase, go compute address
+				bcs .4					lowercase, go compute address
 
 				jsr SRC.IsDigit16
 				asl
@@ -400,34 +400,34 @@ SRC.ParseLine.Emit
 				jsr SRC.IsDigit16
 				ora SRC.ACCTMP+2
 
-.50				jsr OUT.EmitByte
+.3				jsr OUT.EmitByte
-
 				bcs .9
+
 				iny
 				dec SRC.ACCTMP+1
-				bne .4
+				bne .2
 
-				clc
+*				clc
 				rts
 
-.5				bne .6					cmp #'a'....
+.4				bne .5					cmp #'a'....
 
 				ldx SRC.ACCTMP
 				inc SRC.ACCTMP
 				lda SRC.ACC,x
-				bra .50
+				bra .3
 
-.6				cmp #'r
+.5				cmp #'r
 				bne .7
 
 				jsr SRC.ComputeRel8
-				bcs .61
+				bcs .6
-				
+
 				lda SRC.ACC
-				bra .50
+				bra .3
-				
+
-.61				>LDA.G ASM.PASS
+.6				>LDA.G ASM.PASS
-				beq .50					Emit 00 if pending symbol (pass #1)
+				beq .3					Emit 00 if pending symbol (pass #1)
 
 				bra .91
 
@@ -435,25 +435,24 @@ SRC.ParseLine.Emit
 				bne .90
 
 				jsr SRC.ComputeRel16
-				bcs .71
+				bcs .8
-				
+
 				lda SRC.ACC
 				jsr OUT.EmitByte
 				bcs .9
+
 				lda SRC.ACC+1
-				bra .50
+				bra .3
-				
+
-.71				>LDA.G ASM.PASS
+.8				>LDA.G ASM.PASS
 				bne .91
-				
+
-				lda #0
+*				lda #0
 				jsr OUT.EmitByte
 				bcs .9
-				lda #0
-				bra .50					Emit 00 00 if pending symbol (pass #1)
 
-.8				clc
+				lda #0
-.9				rts
+				bra .3					Emit 00 00 if pending symbol (pass #1)
 
 .90				lda #E.INV.CPU.FILE
 				sec
@@ -461,7 +460,7 @@ SRC.ParseLine.Emit
 
 .91				lda #E.RANGE
 				sec
-				rts
+.9				rts
 *---------------------------------------
 SRC.AddToBuf	inc SRC.AM.StrBuf
 				ldy SRC.AM.StrBuf
@@ -470,35 +469,43 @@ SRC.AddToBuf	inc SRC.AM.StrBuf
 *---------------------------------------
 SRC.ExpandAddress
 				ldy SRC.AM.StrBuf
+
 .1				lda SRC.AM.StrBuf,y
 				sta SRC.AM.StrBuf+1,y
-
 				dey
 				cmp #'a'
 				bne .1
+
 				ldx #2					"aa"
-	
+
 				tya
 				beq .8
+
 .2				lda SRC.AM.StrBuf,y
 				cmp #'a'
 				bne .8
+
 				inx						"aaa"
 .3				dey
 				bne .2
+
 .8				inc SRC.AM.StrBuf
 				rts
 *---------------------------------------
-SRC.ComputeRel8	jsr SRC.ComputeRel
+SRC.ComputeRel8	lda #1
+				jsr SRC.ComputeRel
 				bcc .1
+
 * positive : check 0<r<0000007F
 
 				lda SRC.ACC+3
 				ora SRC.ACC+2
 				ora SRC.ACC+1
 				bne .9
+
 				lda SRC.ACC
 				bmi .9
+
 				clc
 				rts
 
@@ -509,24 +516,30 @@ SRC.ComputeRel8	jsr SRC.ComputeRel
 				and SRC.ACC+1
 				inc
 				bne .9
+
 				lda SRC.ACC
 				bpl .9
+
 				clc
 				rts
+
 .9				sec
 				rts
 *---------------------------------------
 SRC.ComputeRel16
+				lda #2
 				jsr SRC.ComputeRel
-
 				bcc .1
+
 * positive : check 0<r<00007FFF
 
 				lda SRC.ACC+3
 				ora SRC.ACC+2
 				bne .9
+
 				lda SRC.ACC+1
 				bmi .9
+
 				clc
 				rts
 
@@ -536,76 +549,101 @@ SRC.ComputeRel16
 				and SRC.ACC+2
 				inc
 				bne .9
+
 				lda SRC.ACC+1
 				bpl .9
+
 				clc
 				rts
+
 .9				sec
 				rts
 *---------------------------------------
 SRC.ComputeRel	phy
-
 				ldy #ASM.PC
 				clc
+				adc (pData),y
+				sta SRC.ARG
+
+				iny
+				lda #0
+				adc (pData),y
+				sta SRC.ARG+1
+				
+				iny
+				lda #0
+				adc (pData),y
+				sta SRC.ARG+2
+				
+				iny
+				lda #0
+				adc (pData),y
+				sta SRC.ARG+3
+				
+				sec
 				lda SRC.ACC
-				sbc (pData),y
+				sbc SRC.ARG
 				sta SRC.ACC
-				iny
+
 				lda SRC.ACC+1
-				sbc (pData),y
+				sbc SRC.ARG+1
 				sta SRC.ACC+1
-				iny
+
 				lda SRC.ACC+2
-				sbc (pData),y
+				sbc SRC.ARG+2
 				sta SRC.ACC+2
-				iny
+
 				lda SRC.ACC+3
-				sbc (pData),y
+				sbc SRC.ARG+3
 				sta SRC.ACC+3
 
 				ply
-				rts			
+				rts	
 *---------------------------------------
 SRC.GetDecimal8	jsr SRC.GetDecimal
 				bcs .9
+
 				lda SRC.ACC+1
 				ora SRC.ACC+2
 				ora SRC.ACC+3
 				bne .99					Max .255
+
 				lda SRC.ACC
 				beq .99					.0 is not allowed
+
 *				clc
 				rts
+
 .99				sec
 .9				rts
 *---------------------------------------
 SRC.GetDecimal	jsr SRC.GetChar
 				beq .99
-				
+
 				stz SRC.ACC+1
 				stz SRC.ACC+2
 				stz SRC.ACC+3
 				jsr SRC.IsDigit10
 				bcs .99
-				
+
 				and #$0F
 				sta SRC.ACC
-				
+
 .1				jsr SRC.GetNextChar
 				bcs .8
-				
+
 				cmp #C.SPACE
 				beq .8
-				
+
 				jsr SRC.IsEXPReserved
 				bcc .8
-				
+
 				jsr SRC.IsAMReserved
 				bcc .8
-				
+
 				jsr SRC.IsDigit10
 				bcs .9
-				
+
 				and #$0F
 				pha
 				jsr SRC.ACC10
@@ -615,13 +653,13 @@ SRC.GetDecimal	jsr SRC.GetChar
 				adc SRC.ACC
 				sta SRC.ACC
 				bcc .1
-				
+
 				inc SRC.ACC+1
 				bne .1
-				
+
 				inc SRC.ACC+2
 				bne .1
-				
+
 				inc SRC.ACC+3
 				bne .1
 
@@ -754,42 +792,42 @@ SRC.GetBinary	jsr SRC.GetNextChar	skip '%'
 
 				cmp #'0'
 				bne .99
-				
+
 .10				and #$01
 				sta SRC.ACC
-				
+
 .1				jsr SRC.GetNextChar
 				bcs .8
-				
+
 				cmp #'.'				allow %111.00.1
 				beq .1
-				
+
 				cmp #C.SPACE
 				beq .8
-				
+
 				jsr SRC.IsEXPReserved
 				bcc .8
-				
+
 				jsr SRC.IsAMReserved
 				bcc .8
-				
+
 				cmp #'1'
 				beq .11
-				
+
 				cmp #'0'
 				bne .8
-				
+
 .11				lsr
 				rol SRC.ACC
 				rol SRC.ACC+1
 				rol SRC.ACC+2
 				rol SRC.ACC+3
 				bcc .1
-				
+
 .9				lda #E.VAL.TOO.BIG
 				sec
 				rts
-				
+
 .99				lda #E.SYNTAX.ERROR
 				sec
 				rts
@@ -897,9 +935,9 @@ SRC.IsKeywordLetterUC
 				eor #$20
 				rts					CC if lowercase
 .9				sec
-.99				rts	
+.99				rts
 *---------------------------------------
-SRC.IsLetterOrDigit 
+SRC.IsLetterOrDigit
 				jsr SRC.IsDigit10
 				bcc SRC.IsLetterRTS
 *---------------------------------------
@@ -1002,14 +1040,18 @@ SRC.ACC10		lda SRC.ACC				ACC*2-> ACC & ACCTMP
 				sta SRC.ACC+3
 				sta SRC.ACCTMP+3
 				bcs .9
+
 				ldx #2
+
 .1				asl SRC.ACC			ACC=ACC*4
 				rol SRC.ACC+1
 				rol SRC.ACC+2
 				rol SRC.ACC+3
 				bcs .9
+
 				dex
 				bne .1
+
 				lda SRC.ACC			CC from ROL SRC.ACC+3
 				adc SRC.ACCTMP
 				sta SRC.ACC
@@ -1031,17 +1073,17 @@ SRC.GetACCSize	lda SRC.ACC.F
 
 				ldx #2
 				rts
-				
+
 .1				ldx SRC.ACC.SIZE
 
 .2				lda SRC.ACC-1,x
 				bne .8
-				
+
 				dex
 				bne .2
-				
+
 				inx
-				
+
 .8				rts
 *---------------------------------------
 SRC.DoCheck		sec
@@ -1053,7 +1095,7 @@ SRC.DoCheck		sec
 				tay
 				lda (pData),y
 				asl
-				
+
 .8				rts						CS if TRUE
 *---------------------------------------
 MAN

BIN/ASM.S.txt

@@ -347,6 +347,9 @@ CS.RUN.LOOP		ldy #S.PS.hStdIn
 
 .9				pha
 				jsr OUT.PrintLineErr
+				.DO ASMDBG=1
+				jsr SYM.Dump.1
+				.FIN
 				pla
 				sec
 				rts

BIN/ATBROWSE.S.txt

@@ -41,44 +41,28 @@ CS.START		cld
 				.DA	CS.QUIT
 L.MSG.NOATK		.DA MSG.NOATK
 L.MSG.ATKERR	.DA MSG.ATKERR
-L.MSG.NETNODE	.DA MSG.NETNODE
+L.MSG.GETINFO	.DA MSG.GETINFO
+L.MSG.MYZONE	.DA MSG.MYZONE
 L.SEARCH.STRING	.DA SEARCH.STRING
 L.MSG.DUMP0		.DA MSG.DUMP0
 L.MSG.DUMP		.DA MSG.DUMP
 				.DA 0
 *--------------------------------------
 CS.INIT			clc
-				rts
+CS.INIT.RTS		rts
 *--------------------------------------
-CS.RUN			lda #AT.GetInfo
+CS.RUN			jsr CS.RUN.ATCHECK
-				>STA.G P.GetInfo+1
+				bcs CS.INIT.RTS
-				
-				>LEA.G P.GetInfo
 
-				jsr A2osX.ATKCALL
+				jsr CS.RUN.MyZone
-				bcc CS.RUN.ATKOK
+				bcs CS.INIT.RTS
 
-				pha
-				>LDYA L.MSG.NOATK
-				>SYSCALL PutS
-				pla
-				sec
-				rts
-
-CS.RUN.ATKOK	>PUSHW L.MSG.NETNODE
-				>PUSHW.G P.GetInfo+$8	NET
-				>PUSHB.G P.GetInfo+$E	NODE
-				>PUSHBI 3
-				>SYSCALL PrintF
-
-				lda #AT.LookupName
-				>STA.G P.LookupName+1
 				>LDYA L.SEARCH.STRING
 				>STYA.G P.LookupName+$08	Entry Name Ptr
 
 				lda #4
-				>STA.G P.LookupName+$C	RetInt
+				>STA.G P.LookupName+$0C	RetInt
-				>STA.G P.LookupName+$D	RetCnt
+				>STA.G P.LookupName+$0D	RetCnt
 				>LDYAI 1024
 				>STYA.G P.LookupName+$10	BufLen
 				>LDYAI 1024
@@ -94,6 +78,7 @@ CS.RUN.ATKOK	>PUSHW L.MSG.NETNODE
 				>STA.G P.LookupName+$16		MaxMatch
 				
 				>LEA.G P.LookupName
+				ldx #AT.LookupName
 				jsr CS.RUN.GOATLK
 .99				bcs .9
 
@@ -141,7 +126,56 @@ CS.RUN.ATKOK	>PUSHW L.MSG.NETNODE
 .8				sec
 .9				rts
 *--------------------------------------
+CS.RUN.ATCHECK	lda #AT.GetInfo
+				>STA.G P.GetInfo+1
+				
+				>LEA.G P.GetInfo
+
+				jsr A2osX.ATKCALL
+				bcs .9
+
+				>PUSHW L.MSG.GETINFO
+				>PUSHW.G P.GetInfo+$08	THIS-NET
+				>PUSHB.G P.GetInfo+$0E	NODE
+				>PUSHB.G P.GetInfo+$0A	BRIDGE
+				
+				>PUSHW.G P.GetInfo+$0A	HARDWARE ID
+				>PUSHB.G P.GetInfo+$0A	ROM VERSION
+				>PUSHBI 7
+				>SYSCALL PrintF
+				rts
+
+.9				pha
+				>LDYA L.MSG.NOATK
+				>SYSCALL PutS
+				pla
+				sec
+				rts
+*--------------------------------------
+CS.RUN.MyZone	>LEA.G ZoneBuf
+				>STYA.G P.GetMyZone+$08
+				lda #4
+				>STA.G P.GetMyZone+$0C	RetInt
+				>STA.G P.GetMyZone+$0D	RetCnt
+				
+				>LEA.G P.GetMyZone
+				ldx #AT.GetMyZone
+				jsr CS.RUN.GOATLK
+				bcs .9
+				
+				>PUSHW L.MSG.MYZONE
+				>PUSHEA.G ZoneBuf
+				>PUSHBI 2
+				>SYSCALL PrintF
+.9				rts
+*--------------------------------------
 CS.RUN.GOATLK	>STYA ZPAtlkParams
+
+				ldy #1
+				txa
+				sta (ZPAtlkParams),y
+
+				>LDYA ZPAtlkParams
 				jsr A2osX.ATKCALL
 				bcc .9
 
@@ -161,7 +195,6 @@ CS.RUN.GOATLK	>STYA ZPAtlkParams
 
 				pla
 				sec
-
 .9				rts				
 *--------------------------------------
 CS.DOEVENT		sec
@@ -177,8 +210,11 @@ CS.QUIT			lda hBuf
 CS.END			
 MSG.NOATK		.AZ "AppleTalk Not Loaded."
 MSG.ATKERR		.AZ "AppleTalk ERR:%H\r\n"
-MSG.NETNODE		.AZ "Network/Node:$%H/$%h\r\n"
+MSG.GETINFO		.AS "Network/Node:$%H/$%h\r\n"
-SEARCH.STRING	>PSTR "*:=@="
+				.AS "Bridge      :     $%h\r\n"
+				.AZ "HWID/ROMVER :$%H/$%h\r\n"
+MSG.MYZONE		.AZ "Zone Name   :%S\r\n"
+SEARCH.STRING	>PSTR "=:=@*"
 MSG.DUMP0		.AZ "Net   Nod SkT En# Name"
 MSG.DUMP		.AZ "%H $%h $%h $%h %S\r\n"
 *--------------------------------------
@@ -186,7 +222,9 @@ MSG.DUMP		.AZ "%H $%h $%h $%h %S\r\n"
 				.OR 0
 DS.START
 P.GetInfo		.BS $0F
+P.GetMyZone		.BS $0F
 P.LookupName	.BS $17
+ZoneBuf			.BS 33
 DS.END			.ED
 *--------------------------------------
 MAN

BIN/ATLOGON.S.txt

@@ -120,7 +120,8 @@ CS.RUN.ATCHECK	lda #AT.GetInfo
 				>LDYA L.MSG.NOATK
 				>SYSCALL puts
 				pla
-.9				sec
+				sec
+.9				rts
 *--------------------------------------
 CS.RUN.GOATLK	>STYA ZPAtlkParams
 				jsr A2osX.ATKCALL
@@ -162,6 +163,7 @@ DS.START
 P.GetInfo		.BS $0F
 P.LookupName	.BS $17
 P.FILogin		.BS $19
+ZoneBuf			.BS 33
 NameBuf			.BS 64
 ReplyBuf		.BS 64
 DS.END

BIN/CMP.S.txt

@@ -3,7 +3,7 @@ NEW
 				.LIST OFF
 				.OP	65C02
 				.OR	$2000
-				.TF BIN/CMP
+				.TF bin/cmp
 *--------------------------------------
 				.INB inc/macros.i
 				.INB inc/a2osx.i

BIN/GTEST.S.txt

@@ -177,7 +177,7 @@ CS.RUN.LOGO.SHOW
 				>LDYA L.CB.LOGO
 				jsr GFX.Write.YA
 
-				bit xDIR
+				bit xDir
 				bmi .4
 	
 				lda CB.LOGO+S.CB.DstX
@@ -193,9 +193,9 @@ CS.RUN.LOGO.SHOW
 				pla
 				bcc .5
 				
-.3				lda xDIR
+.3				lda xDir
 				eor #$ff
-				sta xDIR
+				sta xDir
 				bra .6
 
 .4				lda CB.LOGO+S.CB.DstX
@@ -211,16 +211,16 @@ CS.RUN.LOGO.SHOW
 				
 
 .6				lda CB.LOGO+S.CB.DstY
-				bit yDIR
+				bit yDir
 				bmi .8
 				
 				inc
 				cmp #152
 				bne .7
 				
-.60				lda yDIR
+.60				lda yDir
 				eor #$ff
-				sta yDIR
+				sta yDir
 				bra .1
 				
 .7				sta CB.LOGO+S.CB.DstY
@@ -299,7 +299,7 @@ LoadResources	>PUSHW L.FONTFILE
 				>PUSHWZ					Aux type
 				>SYSCALL LoadStkObj
 				bcs .99
-				stx hFontb
+				stx hFontB
 
 				>PUSHW L.MARILYNFILE
 				>PUSHBI	O.RDONLY	

BIN/UNPAK.S.txt

@@ -5,10 +5,10 @@ NEW
 				.OR	$2000
 				.TF bin/unpak
 *--------------------------------------
-				.INB INC/MACROS.I
+				.INB inc/macros.i
-				.INB INC/A2OSX.I
+				.INB inc/a2osx.i
-				.INB INC/MLI.E.I
+				.INB inc/mli.e.i
-				.INB INC/PAK.I
+				.INB inc/pak.i
 *--------------------------------------
 				.DUMMY
 				.OR ZPBIN
@@ -70,7 +70,7 @@ CS.RUN			>LDYAI CHNK.SIZE
 				>STA.G hInBuf
 
 				lda #1
-				>SYSCALL Argv
+				>SYSCALL ArgV
 				bcs .99
 				
 				jsr CS.RUN.OpenArc
@@ -90,7 +90,7 @@ CS.RUN			>LDYAI CHNK.SIZE
 
 				ldy #S.PS.hCWD
 				lda (pPS),y
-				>SYSCALL GetMemptr
+				>SYSCALL GetMemPtr
 
 .1				jsr CS.RUN.SetupPath
 
@@ -180,7 +180,7 @@ CS.RUN.LOOP		jsr CS.RUN.GetByte
 				bne .3					Could be a 0 byte file
 
 .20				lda #'.'
-				>SYSCALL putchar
+				>SYSCALL PutChar
 
 				jsr CS.RUN.GetByte		DataLen LO
 				bcs .99
@@ -202,7 +202,7 @@ CS.RUN.LOOP		jsr CS.RUN.GetByte
 				sta ZPOutBufLen+1
 
 				>LDA.G hOutBuf
-				>SYSCALL GetMemptr
+				>SYSCALL GetMemPtr
 				>STYA ZPOutBufPtr
 				
 				jsr X.Unpak
@@ -247,7 +247,7 @@ CS.RUN.OpenArc	>PUSHYA
 				>PUSHWI 3
 				>PUSHW ZPInBufPtr
 				pla
-				>SYSCALL fread
+				>SYSCALL FRead
 				bcs .9
 				cpy #3
 				bne .99
@@ -272,7 +272,7 @@ CS.RUN.GetFileType
 				>PUSHWI 3
 				>PUSHEA.G FileType
 				>LDA.G hArcFile
-				>SYSCALL fread
+				>SYSCALL FRead
 				rts
 *--------------------------------------
 CS.RUN.GetFileName
@@ -284,7 +284,7 @@ CS.RUN.GetFileName
 				>PUSHYA
 				>PUSHW ZPRelPathPtr
 				>LDA.G hArcFile
-				>SYSCALL fread
+				>SYSCALL FRead
 				bcs .9
 
 				lda #0
@@ -295,25 +295,25 @@ CS.RUN.GetFileName
 *--------------------------------------
 CS.RUN.ReadData >PUSHW ZPInBufLen
 				>LDA.G hInBuf
-				>SYSCALL GetMemptr
+				>SYSCALL GetMemPtr
 				>STYA ZPInBufPtr
 				>PUSHYA
 				>LDA.G hArcFile
-				>SYSCALL fread
+				>SYSCALL FRead
 				rts
 *--------------------------------------
 CS.RUN.GetByte	>LDA.G hArcFile
-				>SYSCALL getc
+				>SYSCALL GetC
 				rts
 *--------------------------------------
 CS.RUN.CheckDir	>PUSHW ZPFullPathPtr
 				>PUSHEA.G STAT
-				>SYSCALL stat
+				>SYSCALL Stat
 				bcc .1
 
 				>PUSHW ZPFullPathPtr
 				>PUSHWI S.STAT.MODE.FO+S.STAT.MODE.FG+S.STAT.MODE.FU
-				>SYSCALL mkdir 
+				>SYSCALL MKDir 
 
 				rts
 
@@ -340,10 +340,10 @@ CS.RUN.OpenFile	>PUSHW ZPFullPathPtr
 CS.RUN.WriteFile
 				>PUSHW ZPOutBufLen
 				>LDA.G hOutBuf
-				>SYSCALL GetMemptr
+				>SYSCALL GetMemPtr
 				>PUSHYA
 				>LDA.G hFile
-				>SYSCALL fwrite
+				>SYSCALL FWrite
 				rts
 *--------------------------------------
 CS.DOEVENT		sec
@@ -398,5 +398,5 @@ DS.END
 				.ED
 *--------------------------------------
 MAN
-SAVE USR/SRC/BIN/UNPAK.S
+SAVE usr/src/bin/unpak.s
 ASM

INC/A2osX.I.txt

@@ -58,7 +58,7 @@ A2osX.SLEEP		.EQ $BC10
 *--------------------------------------
 A2osX.SCRNDEVS	.EQ	$BED0				0=console, 1-8=VT100, 9=GFX
 A2osX.ASCREEN	.EQ	$BEDA				Active Screen
-
+* free BEDB -> BEE5
 A2osX.CPUTYPE	.EQ $BEE6
 A2osX.CPUSPEED	.EQ $BEE7				WORD, (->255.99 Mhz)
 

INC/APPLETALK.I.txt

@@ -6,6 +6,9 @@ AUTO 4,1
 AT.GetInfo			.EQ $02
 AT.LookupName		.EQ $10
 
+AT.GetMyZone		.EQ $1A
+AT.GetZoneList		.EQ $1B
+
 AT.FILogin			.EQ $2B
 AT.FILoginCont		.EQ $2C
 AT.FILogout			.EQ $2D
@@ -16,3 +19,4 @@ AT.FIGetSVersion	.EQ $3A
 *--------------------------------------
 MAN
 SAVE inc/appletalk.i
+

INC/GFX.I.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF
 *--------------------------------------
 * GFX Devices
 *--------------------------------------
@@ -95,4 +94,4 @@ S.CB.DstPtr			.EQ 18				BITBLT
 S.CB				.EQ 20
 *--------------------------------------
 MAN
-SAVE INC/GFX.I
+SAVE inc/gfx.i

INC/IO.D2.I.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF
 *--------------------------------------
 IO.D2.SeekTime	.EQ 75
 *--------------------------------------
@@ -29,4 +28,4 @@ IO.D2.ReadMode	.EQ $C08E				R
 IO.D2.WriteMode	.EQ $C08F				W
 *--------------------------------------
 MAN
-SAVE INC/IO.D2.I
+SAVE inc/io.d2.i

INC/KERNEL.I.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF
 *--------------------------------------
 Mem.Table		.EQ $0800
 *--------------------------------------
@@ -26,6 +25,6 @@ S.Table.hFile	.EQ $1450				K.USR.MAX
 A2osX.EndTables	.EQ $1460
 *--------------------------------------
 MAN
-SAVE INC/KERNEL.I
+SAVE inc/kernel.i
-LOAD USR/SRC/SYS/KERNEL.S
+LOAD usr/src/sys/kernel.s
 ASM

INC/LIBBLKDEV.I.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF
 *--------------------------------------
 LIBBLKDEV.GetProDOSCatSize	.EQ 4
 LIBBLKDEV.BuildProDOSCat	.EQ 6

INC/MACROS.I.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-  				.LIST OFF
 *--------------------------------------
 				.MA	DEBUG
 :1				bit $C000

LIB/LIBBLKDEV.S.BB.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF
 *--------------------------------------
 dcmd 			.EQ $42 				disk command (=1 for read)
 unit 			.EQ $43 				(16*slot)+(128*(drive-1))

LIB/LIBBLKDEV.S.D2.txt

@@ -1,6 +1,5 @@
 NEW
   AUTO 3,1
-				.LIST OFF	
 */--------------------------------------
 *\--------------------------------------
 D2MotorControl	>PULLB MotorOn
@@ -124,8 +123,8 @@ D2MoveHead		>PULLB MoveTo
 				
 .7				jsr D2.Wait25600usec
 
-				lda IO.D2.Ph0Off,x
 				lda IO.D2.Ph0Off,y
+				lda IO.D2.Ph0Off,x
 				
 				clc
 				
@@ -192,7 +191,7 @@ D2TrkWrite16s	>PULLW ZPPtr1
 				bcs .9
 				
 				>LDYAI TRACK16.LEN+1
-				>SYSCALL2 getmem
+				>SYSCALL2 GetMem
 				bcs .9
 	
 				>STYA ZPPtr2

LIB/LIBBLKDEV.S.txt

@@ -188,7 +188,7 @@ BuildProDOSCat	>PULLW ZPPtr1			DstBuf
 
 				txa
 
-.30				sta VolDirHdr.next
+.30				sta VolDirHdr.Next
 *				stz VolDirHdr.next+1
 *				stz VolDirHdr.VER
 *				stz VolDirHdr.MVER

ProDOS.FX/ProDOS.S.XRW.txt

@@ -1,7 +1,7 @@
 NEW
   AUTO 3,1
 *--------------------------------------
-XRW.DEBUG		.EQ 0
+XRWDBG			.EQ 0
 *--------------------------------------
 XRW.START		cld						$D8 to flag language card bank 1 (main)
 
@@ -193,7 +193,7 @@ regrwts			ldy #1
 				dec XRW.RecalibrateCnt
 				sec
 				bmi .9
-			.DO XRW.DEBUG=1
+			.DO XRWDBG=1
 			jsr XRW.DEBUG
 			.FIN
 				ldy XRW.UnitIndex
@@ -732,7 +732,7 @@ XRW.Seek		ldx XRW.UnitIndex
 				jsr XRW.Trk2Qtrk
 				sta XRW.TargetQTrack
 
-			.DO XRW.DEBUG=1
+			.DO XRWDBG=1
 			jsr	XRW.DEBUG3
 			.FIN
 
@@ -741,7 +741,7 @@ XRW.Seek		ldx XRW.UnitIndex
 				jsr XRW.Trk2Qtrk
 				sta XRW.CurrentQTrack
 
-			.DO XRW.DEBUG=1
+			.DO XRWDBG=1
 			jsr	XRW.DEBUG2
 			.FIN
 
@@ -900,7 +900,7 @@ XRW.ReadAddr	ldy #$FC
 rderr  			sec
 				rts
 *--------------------------------------
-			.DO XRW.DEBUG=1
+			.DO XRWDBG=1
 XRW.DEBUG	phx
 
 			ldx #26

SBIN/CIFSD.S.txt

@@ -137,7 +137,7 @@ CS.RUN.CheckArgs
 				lda #1
 				>SYSCALL ArgV
 				>PUSHYA
-				>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GETBYNAME
+				>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GetByName
 				bcc .2
 				
 				>SLEEP
@@ -303,7 +303,7 @@ CS.RUN.SessSetup
 				>PUSHYA
 				
 				>PUSHBI 2
-				>SYSCALL Printf
+				>SYSCALL PrintF
 				
 				lda hResp
 				>SYSCALL FreeMem
@@ -580,8 +580,8 @@ SMB.TreeConnReq.end	.EQ *
 SMB.FindFirstReq
 				.DA #0					DIRECT TCP TRANSPORT
 				.DA #0					24 BITS LENGTH
-				.DA /SMB.TreeConnReq.end-1-*
+				.DA /SMB.FindFirstReq.end-1-*
-				.DA #SMB.TreeConnReq.end-1-*
+				.DA #SMB.FindFirstReq.end-1-*
 				.DA #$FF
 				.AS "SMB"
 				.DA #S.SMB.H.CMD.TRANSACTION2
@@ -627,7 +627,7 @@ SMB.FindFirstReq.UID
 				.DA 0					Flags
 				.DA $0104				InformationLevel
 				.HS 00000000			SearchStorageType
-				.DA "\*"				FileName
+				.AS "\*"				FileName
 SMB.FindFirstReq.end
 *--------------------------------------
 				.DUMMY

SYS/KERNEL.S.CORE.txt

@@ -397,6 +397,35 @@ CORE.PSResume	sei
 				inc IRQ.InKernel
 				rti
 *--------------------------------------
+GP.RomCall.JmpX	jmp (.1-FPU.FADD,x)
+*--------------------------------------
+* http://www.txbobsc.com/scsc/scdocumentor/E7A0.html
+*--------------------------------------
+.1				.DA $E7C1				FADDT
+				.DA $E7AA				FSUBT
+				.DA $E987				FMULTT.1
+				.DA $EA6B				FDIVT+2
+				.DA $EE97				FPWRT
+
+				.DA $E941				LOG
+				.DA $EE8D				SQR
+				.DA $EF09				EXP
+				.DA $EFEA				COS
+				.DA $EFF1				SIN
+				.DA $F03A				TAN
+				.DA $F09E				ATN
+*--------------------------------------
+				.DA $E9E3				LOAD.ARG.FROM.YA
+				.DA $EAF9				LOAD.FAC.FROM.YA
+				.DA $EB27				SETFOR		(GETFAC)
+				.DA $EBB2				FCOMP 		(Y,A with FAC)
+
+				.DA $E82E				NORMALIZE.FAC.2 (L->F)
+				.DA $EBF2				QINT		(F->L)
+
+				.DA $EC4A				FIN			AToF
+				.DA $ED36				FOUT.1		PrintF
+*--------------------------------------
 CORE.VBLState	.BS 1
 CORE.IRQMode	.BS 1
 CORE.TickPerSec	.BS 1
@@ -410,6 +439,16 @@ CORE.FSID		.BS 1
 CORE.EvtIndex	.BS 1
 CORE.EvtCount	.BS 1
 *--------------------------------------
+IRQ.InKernel	.BS 1
+IRQ.InLib		.BS 1
+IRQ.SkipA2osX	.BS 1
+
+IRQ.IntNum		.BS 1
+IRQ.VBL.n0		.BS 1
+IRQ.VBL.0n		.BS 1
+IRQ.Mode		.BS 1
+IRQ.Tick		.BS 1
+*--------------------------------------
 MAN
 SAVE USR/SRC/SYS/KERNEL.S.CORE
 LOAD USR/SRC/SYS/KERNEL.S

SYS/KERNEL.S.CTRL.txt

@@ -28,7 +28,7 @@ C9				.EQ DevMgr.FreeMem
 * ERROR:AUX too big
 				.LIST OFF
 				.FIN
-				.DO	A2osX.GP.SC>$2E0
+				.DO	A2osX.GP.SC>$1D0
 				.LIST ON
 * ERROR:GP too big
 				.LIST OFF
@@ -45,6 +45,6 @@ C9				.EQ DevMgr.FreeMem
 				.FIN		
 *--------------------------------------
 MAN
-SAVE USR/SRC/SYS/KERNEL.S.CTRL
+SAVE usr/src/sys/kernel.s.ctrl
-LOAD USR/SRC/SYS/KERNEL.S
+LOAD usr/src/sys/kernel.s
 ASM

SYS/KERNEL.S.FS.txt

@@ -240,9 +240,13 @@ FS.Stat.203		>MLICALL MLIGETFILEINFO
 FS.Stat.RTS		rts				
 *--------------------------------------
 FS.Stat.FX		>MLICALL MLIGETFILEINFOEX
-				bcs FS.Stat.RTS
+				bcc .1
 				
-				>LDYAI K.MLI.PARAMS+3
+				cmp #MLI.E.BADCALL
+				beq FS.Stat.203			Apple WS CARD
+				rts
+				
+.1				>LDYAI K.MLI.PARAMS+3
 				>STYA ZPPtr3
 *--------------------------------------
 FS.DirEnt2Stat	jsr FS.ClrStat

SYS/KERNEL.S.GP.txt

@@ -272,6 +272,7 @@ GP.Float		ldy #3
 				sta FAC+1,y				Reverse Order
 				dey
 				bpl .1
+
 				dec pStack				keep 5 bytes on stack
 				stz	FAC.SIGN
 				lda #$80+32
@@ -304,35 +305,6 @@ GP.lrintf		jsr GP.SetFAC
 
 				rts
 *--------------------------------------
-GP.RomCall.JmpX	jmp (.1-FPU.FADD,x)
-*--------------------------------------
-* http://www.txbobsc.com/scsc/scdocumentor/E7A0.html
-*--------------------------------------
-.1				.DA $E7C1				FADDT
-				.DA $E7AA				FSUBT
-				.DA $E987				FMULTT.1
-				.DA $EA6B				FDIVT+2
-				.DA $EE97				FPWRT
-
-				.DA $E941				LOG
-				.DA $EE8D				SQR
-				.DA $EF09				EXP
-				.DA $EFEA				COS
-				.DA $EFF1				SIN
-				.DA $F03A				TAN
-				.DA $F09E				ATN
-*--------------------------------------
-				.DA $E9E3				LOAD.ARG.FROM.YA
-				.DA $EAF9				LOAD.FAC.FROM.YA
-				.DA $EB27				SETFOR		(GETFAC)
-				.DA $EBB2				FCOMP 		(Y,A with FAC)
-
-				.DA $E82E				NORMALIZE.FAC.2 (L->F)
-				.DA $EBF2				QINT		(F->L)
-
-				.DA $EC4A				FIN			AToF
-				.DA $ED36				FOUT.1		PrintF
-*--------------------------------------
 * MLI : From Kernel Aux LC to Main LC
 *--------------------------------------
 GP.MLICall		stx .1
@@ -423,16 +395,6 @@ GP.IrqH.Exit	stz IRQ.SkipA2osX		reset flag
 				sec
 				rts
 *--------------------------------------
-IRQ.InKernel	.BS 1
-IRQ.InLib		.BS 1
-IRQ.SkipA2osX	.BS 1
-
-IRQ.IntNum		.BS 1
-IRQ.VBL.n0		.BS 1
-IRQ.VBL.0n		.BS 1
-IRQ.Mode		.BS 1
-IRQ.Tick		.BS 1
-*--------------------------------------
 *GO.Reset		jsr GO.A2osX
 *				jmp CORE.Run
 *--------------------------------------