Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-07 01:29:33 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-05 17:35:04 +01:00
parent 422d183e1b
commit d6bdb0c342
4 changed files with 55 additions and 60 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

28
BIN/EDIT.S.CTRL.txt
View File

@ -61,10 +61,10 @@ Ctrl.A >STZ.G bUpdateStatus
lda (ZPPTR1)
beq .8
>PUSHW L.MSG.HELPLINE
>PUSHW ZPPTR1
>PUSHBI 2
>LDYA L.MSG.HELPLINE
>SYSCALL printf
>SYSCALL printf2
bcs .9
inc TmpByte
@ -248,9 +248,9 @@ Ctrl.CR lda #C.CR
jsr BUF.InsertA
bcs .9
>PUSHW L.SEQ.CEOL
>PUSHBI 0
>LDYA L.SEQ.CEOL
>SYSCALL printf
>SYSCALL printf2
bcs .9
>STZ.G FileX
@ -263,16 +263,16 @@ Ctrl.CR lda #C.CR
>CMP.G ViewPortHm1
beq .1 No scoll needed
>LDA.G ScreenH
dec
>PUSHA
>PUSHW L.SEQ.SCROLLCURDN
>LDA.G CurY
inc
inc
>PUSHA
>LDA.G ScreenH
dec
>PUSHA
>PUSHBI 2
>LDYA L.SEQ.SCROLLCURDN
>SYSCALL printf
>SYSCALL printf2
bcs .9
jsr SCRN.ResetScrollRgn
@ -599,16 +599,16 @@ Ctrl.Z jsr BUF.ComputeCOffset
>CMP.G ViewPortHm1
beq .8 No scoll needed
>LDA.G ScreenH
dec
>PUSHA
>PUSHW L.SEQ.SCROLLCURUP
>LDA.G CurY
inc
inc
>PUSHA
>LDA.G ScreenH
dec
>PUSHA
>PUSHBI 2
>LDYA L.SEQ.SCROLLCURUP
>SYSCALL printf
>SYSCALL printf2
bcs .9
jsr SCRN.ResetScrollRgn

66
BIN/EDIT.S.SCRN.txt
View File

@ -2,12 +2,12 @@ NEW
AUTO 3,1
.LIST OFF
*--------------------------------------
SCRN.Init >LDA.G ScreenH
SCRN.Init >PUSHW L.SEQ.INIT
>LDA.G ScreenH
dec
>PUSHA
>PUSHBI 1
>LDYA L.SEQ.INIT
>SYSCALL printf
>SYSCALL printf2
bcs .9
jsr SCRN.Home
@ -30,12 +30,12 @@ SCRN.Home lda #0
rts
*--------------------------------------
SCRN.ResetScrollRgn
>PUSHW L.SEQ.SCROLLRGN
>LDA.G ScreenH
dec
>PUSHA
>PUSHBI 1
>LDYA L.SEQ.SCROLLRGN
>SYSCALL printf
>SYSCALL printf2
rts
*--------------------------------------
SCRN.UnSaved >LDA.G bUnSaved
@ -55,9 +55,7 @@ SCRN.UpdateTopBarAsync
>LDA.G bUpdateTop
bpl .8
lda (LineBuf)
bne .8
lda #0
sta (pData),y
jsr SCRN.LineBufInitBar
@ -86,7 +84,6 @@ SCRN.UpdateTopBarAsync
>PUSHW L.MSG.FILETYPES,x
>LDA.G hFileName
>SYSCALL GetMemPtr
>PUSHYA
>PUSHBI 4
@ -105,7 +102,7 @@ SCRN.UpdateTopBarAsync
jmp SCRN.LineBufOut
.8 clc
.9 rts
.9 rts
*--------------------------------------
SCRN.UpdateViewPort
stz bRepaint
@ -254,9 +251,9 @@ SCRN.UpdateMain.1
jsr SCRN.GotoXY
bcs SCRN.UpdateMain.9
>PUSHW L.SEQ.CEOL
>PUSHBI 0
>LDYA L.SEQ.CEOL
>SYSCALL printf
>SYSCALL printf2
bcs SCRN.UpdateMain.9
inc TmpByte
@ -405,9 +402,7 @@ SCRN.UpdateStatusBarAsync
>LDA.G bUpdateStatus
bpl .8
lda (LineBuf)
bne .8
lda #0
sta (pData),y
jsr SCRN.ResetStatusBar
@ -484,21 +479,21 @@ SCRN.GotoCurXCurY
lda (pData),y
tay
SCRN.GotoXY txa
inc
>PUSHA
SCRN.GotoXY >PUSHW L.MSG.GOTOXY
tya
inc
inc
>PUSHA
txa
inc
>PUSHA
>PUSHBI 2
>LDYA L.MSG.GOTOXY
>SYSCALL printf
>SYSCALL printf2
rts
*--------------------------------------
SCRN.scrollUp >PUSHBI 0
>LDYA L.SEQ.SCROLLUP
>SYSCALL printf
SCRN.scrollUp >PUSHW L.SEQ.SCROLLUP
>PUSHBI 0
>SYSCALL printf2
bcs .9
>LDA.G ScreenY+1
@ -522,9 +517,9 @@ SCRN.scrollUp >PUSHBI 0
.9 rts
*--------------------------------------
SCRN.scrollDn >PUSHBI 0
>LDYA L.SEQ.SCROLLDN
>SYSCALL printf
SCRN.scrollDn >PUSHW L.SEQ.SCROLLDN
>PUSHBI 0
>SYSCALL printf2
bcs .9
>LDA.G ScreenY+1
@ -563,9 +558,11 @@ SCRN.LineBufInitBut
SCRN.LineBufInitEdit
phx
ldx #SEQ.EDIT-SEQS
SCRN.LineBufInit
>LDYA.G LineBuf
lda #$ff
>STA.G bUpdateScreen
>LDYA.G LineBufBase
>STYA LineBufPtr
jsr SCRN.SEQS.ToLineBuf
@ -602,7 +599,7 @@ SCRN.LineBufSprintf
inc LineBufPtr+1
clc
.9 rts
.9 rts
*--------------------------------------
SCRN.ToLineBuf sta (LineBufPtr)
inc LineBufPtr
@ -613,15 +610,12 @@ SCRN.ToLineBuf sta (LineBufPtr)
SCRN.LineBufOut lda #0
sta (LineBufPtr)
>PUSHW.G LineBufBase
>PUSHBI 0
>LDYA.G LineBuf
>SYSCALL printf
bcs .9
>SYSCALL printf2
lda #0
sta (LineBuf)
.9 rts
>STZ.G bUpdateScreen
rts
*--------------------------------------
MAN
SAVE USR/SRC/BIN/EDIT.S.SCRN

21
BIN/EDIT.S.txt
View File

@ -146,9 +146,9 @@ J.DLG.CTRL.CharIn
CS.INIT clc
CS.INIT.RTS rts
*--------------------------------------
CS.RUN >PUSHBI 0
>LDYA L.MSG.DETECT
>SYSCALL printf Send Query for term W & H
CS.RUN >PUSHW L.MSG.DETECT
>PUSHBI 0
>SYSCALL printf2 Send Query for term W & H
bcs CS.INIT.RTS
.1 >SYSCALL GetChar
@ -161,13 +161,10 @@ CS.RUN >PUSHBI 0
>LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0
>SYSCALL Getmem
bcs CS.INIT.RTS
>STYA.G LineBuf
>STYA.G LineBufBase
txa
>STA.G hLineBuf
lda #0
sta (LineBuf)
lda #1
>SYSCALL ArgV
bcs .2 No arg, new file....
@ -220,9 +217,9 @@ CS.RUN.LOOP >SYSCALL GetChar
lda #0
.9 pha
>PUSHW L.SEQ.RESET
>PUSHBI 0
>LDYA L.SEQ.RESET
>SYSCALL printf
>SYSCALL printf2
pla
sec
CS.RUN.RTS rts
@ -233,6 +230,9 @@ CS.DOEVENT lda (pEvent)
and #S.EVT.F.T1SEC
beq .9
>LDA.G bUpdateScreen
bmi .9
jsr SCRN.UpdateTopBarAsync
jsr SCRN.UpdateStatusBarAsync
@ -628,6 +628,7 @@ bEscMode .BS 1
bExit .BS 1
bUnSaved .BS 1
bUpdateTop .BS 1
bUpdateScreen .BS 1
bUpdateStatus .BS 1
hFileName .BS 1
@ -637,7 +638,7 @@ hFind .BS 1
hReplace .BS 1
hLineBuf .BS 1
LineBuf .BS 2
LineBufBase .BS 2
hBuf .BS 1
BufBase .BS 2