Kernel 0.9.2

BIN/EDIT.S.SCRN.txt

@@ -3,14 +3,14 @@ PREFIX /A2OSX.BUILD
 AUTO 4,1
 				.LIST OFF
 *--------------------------------------
-SCRN.Init		ldy #ScreenH
+SCRN.Init		>LDA.G ScreenH
-				lda (pData),y
 				dec
 				>PUSHA
 				>PUSHBI 1
 				>LDYA L.SEQ.INIT
 				>SYSCALL printf
 				bcs .9
+				
 				lda #12
 				>SYSCALL PutChar
 				bcs .9
@@ -45,8 +45,7 @@ SCRN.UpdateTopBar
 				jsr SCRN.InvLineA
 				bcs .9
 				
-				ldy #hFileName
+				>LDA.G hFileName
-				lda (pData),y
 				beq .1
 				>SYSCALL GetMemPtr
 				bra .2
@@ -60,8 +59,7 @@ SCRN.UpdateTopBar
 				
 .9				rts
 *--------------------------------------
-SCRN.UpdateMain	ldy #ScreenY
+SCRN.UpdateMain	>LDA.G ScreenY
-				lda (pData),y
 				sta TmpIndex
 				iny
 				lda (pData),y
@@ -70,12 +68,12 @@ SCRN.UpdateMain	ldy #ScreenY
 				lda #0
 				sta TmpByte
 				
-				ldy #ViewPortH
+				>LDA.G ViewPortH
-				lda (pData),y
 				sta TmpCount
 				
 .1				lda TmpIndex
 				ldx TmpIndex+1
+				
 				jsr BUF.GetLineAX		Y = line length
 				bcs .5
 
@@ -96,6 +94,7 @@ SCRN.UpdateMain	ldy #ScreenY
 				ldy TmpByte
 				jsr GotoXY
 				bcs .9
+				
 				>PUSHBI 0
 				>LDYA L.SEQ.CEOL
 				>SYSCALL printf
@@ -110,22 +109,19 @@ SCRN.UpdateMain	ldy #ScreenY
 .9				rts
 *--------------------------------------
 SCRN.UpdateCurrentLine
-				ldy #ScreenY+1
+				>LDA.G ScreenY+1
-				lda (pData),y
 				tax
 				dey
 				lda (pData),y
 				clc
-				ldy #CurY
+				>ADC.G CurY
-				adc (pData),y
 				bcc .1
 				inx
 .1				jsr BUF.GetLineAX
 				bcs .9
 
 				phy
-				ldy #CurY
+				>LDA.G CurY
-				lda (pData),y
 				ply
 				jsr SCRN.UpdateLineAtALenY
 .9				rts
@@ -138,12 +134,10 @@ SCRN.UpdateLineAtALenY
 				jsr GotoXY
 				bcs .9
 				
-				ldy #ScreenW
+				>LDA.G ScreenW
-				lda (pData),y
 				tax
 				
-				ldy #ScreenX
+				>LDA.G ScreenX
-				lda (pData),y
 				tay
 				
 .1				cpy TmpLen
@@ -173,6 +167,7 @@ SCRN.UpdateLineAtALenY
 .3				sec
 				jsr SCRN.UpdateAttrC
 				bcs .9
+
 				>PUSHBI 0
 				>LDYA L.SEQ.CEOL
 				>SYSCALL printf
@@ -207,38 +202,34 @@ SCRN.UpdateAttrC
 .9				jmp Ctrl.Q				
 *--------------------------------------
 SCRN.UpdateStatusBar 
-				lda #1
+				>PUSHBI 1
-				>PUSHA
+				>PUSHB.G ScreenH
-				ldy #ScreenH
-				lda (pData),y
-				>PUSHA
 				>PUSHBI 2
 				>LDYA L.MSG.GOTOXY
 				>SYSCALL printf
 				bcs .9
+				
 				>PUSHBI 0
 				>LDYA L.SEQ.INV
 				>SYSCALL printf
 				bcs .9
 
-				ldy #PromptMode
+				>LDA.G PromptMode
-				lda (pData),y
 				bne .2
 				
-				ldy #FileY
+				>LDA.G FileY
-				lda (pData),y
 				tax
 				iny
 				lda (pData),y
 				inx
 				bne .1
+				
 				inc
 .1				>PUSHA
 				txa
 				>PUSHA
 				
-				ldy #FileX
+				>LDA.G FileX
-				lda (pData),y
 				inc
 				>PUSHA
 				
@@ -246,7 +237,7 @@ SCRN.UpdateStatusBar
 				>PUSHB (pData),y
 				dey
 				>PUSHB (pData),y
-				>PUSHBI 6
+				>PUSHBI 5
 				>LDYA L.MSG.STATUSBAR
 				>SYSCALL printf
 				bcs .9
@@ -268,8 +259,8 @@ SCRN.UpdateStatusBar
 				lda #2
 				
 .3				>PUSHA
-				ldy #ScreenH
+
-				lda (pData),y
+				>LDA.G ScreenH
 				jsr SCRN.InvLineA
 				bcs .9
 				
@@ -283,14 +274,13 @@ SCRN.UpdateStatusBar
 				rts
 *--------------------------------------
 SCRN.UpdateStatusBarErrA
-				sta .1+1
+				pha
 				ldy #ScreenH
 				lda (pData),y
 				dec
 				jsr SCRN.InvLineA
-				bcs .9
 				
-.1				lda #$ff
+				pla
 				>PUSHA
 				>PUSHBI 1
 				>LDYA L.MSG.STATUSBAR.E

BIN/EDIT.S.txt

@@ -110,8 +110,7 @@ CS.INIT			lda #$ff
 				
 				>SYSCALL RealPath
 				txa
-				ldy #hFileName
+				>STA.G hFileName
-				sta (pData),y
 				
 				jsr LoadFile
 				bcc .8					if CS, Failed to load file, keep name, but new file....
@@ -132,7 +131,7 @@ CS.INIT			lda #$ff
 *--------------------------------------
 CS.RUN			>PUSHBI 0
 				>LDYA L.SEQ.DETECT
-				>SYSCALL printf		Send Query for term W & H
+				>SYSCALL printf			Send Query for term W & H
 				bcs .9
 				
 .1				>SLEEP
@@ -141,15 +140,13 @@ CS.RUN			>PUSHBI 0
 				
 				jsr CharIn
 				
-				ldy #ScreenW			Wait for Response from terminal
+				>LDA.G ScreenW			Wait for Response from terminal for W & H
-				lda (pData),y			for W & H
 				beq .1
 				
 				jsr SCRN.Init
 				bcs .9
 				
-.2				ldy #bCancel
+.2				>LDA.G bCancel
-				lda (pData),y
 				bne .99
 	
 				>SLEEP
@@ -161,36 +158,31 @@ CS.RUN			>PUSHBI 0
 				bra .2
 				
 .99				lda #0
-.9				sec				
+.9				
-				rts
 *--------------------------------------
 CS.DOEVENT		sec
 				rts
 *--------------------------------------
 CS.QUIT			ldy #hBuffer
-				lda (pData),y
+				jsr .8
-				beq .1
-				>SYSCALL FreeMem
 				
-.1				ldy #hBufferBackup
+				ldy #hBufferBackup
-				lda (pData),y
+				jsr .8
-				beq .2
-				>SYSCALL FreeMem
 				
-.2				ldy #hClipBoard
+				ldy #hClipBoard
-				lda (pData),y
+				jsr .8
-				beq .3
-				>SYSCALL FreeMem
 
-.3				ldy #hFileName
+				ldy #hFileName
-				lda (pData),y
+				
-				beq .8
+.8				lda (pData),y
+				beq .9
 				>SYSCALL FreeMem
+.9				rts
 
-.8				>PUSHBI 0
+				>PUSHBI 0
 				>LDYA L.SEQ.RESET
 				>SYSCALL printf
-.9				rts
+				rts
 *--------------------------------------
 CharIn			tax
 
@@ -343,8 +335,7 @@ CharIn.Esc		ldy #bEscMode
 LoadFile		>PUSHWI 0				Aux type
 				>PUSHBI 4				S.FI.T.TXT
 				>PUSHBI	SYS.FOpen.R
-				ldy #hFileName
+				>LDA.G hFileName
-				lda (pData),y
 				
 				>SYSCALL GetMemPtr
 				
@@ -362,8 +353,7 @@ LoadFile		>PUSHWI 0				Aux type
 				
 				>STYA ZPPTR2
 				txa
-				ldy #hBuffer
+				>STA.G hBuffer
-				sta (pData),y
 				
 				lda hMem
 				

BIN/X.CPMVRM.S.txt

@@ -471,13 +471,13 @@ CS.RUN.FILE.MSG clc
 				
 				ldy #hDstFullPath
 				jsr CS.RUN.GetPathY
-
 				>PUSHYA
 				
 				.FIN
 				
 				ldy #hSrcFullPath
 				jsr CS.RUN.GetPathY
+				>PUSHYA
 
 				.DO X.COPY.TO.DEST=1
 
@@ -489,8 +489,6 @@ CS.RUN.FILE.MSG clc
 
 				.FIN
 				
-				>PUSHYA
-				
 				plp
 				bcc .1
 				>LDYA L.MSG.DIR