mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-04 18:32:56 +00:00
Kernel 0.94+
This commit is contained in:
Rémy GIBERT
parent
0c8f530e20
commit
a85cbb7fbb
Binary file not shown.
Binary file not shown.
@ -56,10 +56,11 @@ L.FD.DEV .DA FD.DEV
|
||||
L.FD.DEV.NAME .DA FD.DEV.NAME
|
||||
L.ETCFILE .DA ETCFILE
|
||||
L.MSG.ETCFILE .DA MSG.ETCFILE
|
||||
L.MSG.UNEXPECTED .DA MSG.UNEXPECTED
|
||||
L.MSG.SYNTAX .DA MSG.SYNTAX
|
||||
L.MSG.DUMPBUF .DA MSG.DUMPBUFS
|
||||
.DA MSG.DUMPBUFR
|
||||
L.MSG.HEXDUMP .DA MSG.HEXDUMP
|
||||
L.MSG.STRING .DA MSG.STRING
|
||||
L.PPP.LCPReq .DA PPP.LCPReq
|
||||
L.PPP.IPCPReq .DA PPP.IPCPReq
|
||||
L.FILE.Buf .DA FILE.Buf
|
||||
@ -119,6 +120,7 @@ Dev.Detect >STYA ZPArgsPtr
|
||||
|
||||
jsr SSC.Init
|
||||
jsr PPP.ETCFILE
|
||||
bcs .99
|
||||
jsr PPP.Init
|
||||
bcs .99
|
||||
|
||||
@ -169,7 +171,7 @@ PPP.ETCFILE >PUSHW L.ETCFILE
|
||||
>PUSHWI 255
|
||||
>SYSCALL FGetS
|
||||
bcs .8
|
||||
|
||||
|
||||
lda FILE.Buf
|
||||
cmp #'#'
|
||||
beq .1
|
||||
@ -189,26 +191,55 @@ PPP.ETCFILE >PUSHW L.ETCFILE
|
||||
.2 cmp #'!'
|
||||
bne .7
|
||||
|
||||
jsr SSC.Read
|
||||
.3 jsr SSC.Read
|
||||
bcs .9
|
||||
|
||||
tya
|
||||
beq .2
|
||||
beq .3
|
||||
|
||||
lda #0
|
||||
sta RCV.Buf,y
|
||||
|
||||
>PUSHW L.MSG.STRING
|
||||
tya
|
||||
>PUSHA
|
||||
>PUSHW L.RCV.Bufp2
|
||||
>PUSHBI 3
|
||||
>SYSCALL PrintF
|
||||
>LDYA L.RCV.Bufp1
|
||||
>STYA ZPPtr2
|
||||
|
||||
.4 ldy #0
|
||||
|
||||
.5 iny
|
||||
lda FILE.Buf,y
|
||||
bne .6
|
||||
|
||||
lda #C.CR
|
||||
|
||||
.6 cmp (ZPPtr2),y
|
||||
bne .60
|
||||
|
||||
cmp #C.CR
|
||||
bne .5
|
||||
jmp .1
|
||||
|
||||
.7 lda #E.SYN
|
||||
.60 ldy #0
|
||||
|
||||
.61 iny
|
||||
lda (ZPPtr2),y
|
||||
cmp #C.LF
|
||||
bne .61
|
||||
|
||||
tya
|
||||
sec
|
||||
adc ZPPtr2
|
||||
sta ZPPtr2
|
||||
bcc .62
|
||||
|
||||
inc ZPPtr2+1
|
||||
|
||||
.62 lda (ZPPtr2)
|
||||
bne .60
|
||||
|
||||
jsr PPP.ETCFILE.ERR1
|
||||
bra .9
|
||||
|
||||
.7 jsr PPP.ETCFILE.ERR2
|
||||
bra .9
|
||||
|
||||
.8 cmp #MLI.E.EOF
|
||||
@ -225,7 +256,25 @@ PPP.ETCFILE >PUSHW L.ETCFILE
|
||||
pla
|
||||
plp
|
||||
|
||||
.99 rts
|
||||
rts
|
||||
*--------------------------------------
|
||||
PPP.ETCFILE.ERR1
|
||||
>PUSHW L.MSG.UNEXPECTED
|
||||
>PUSHW L.RCV.Buf
|
||||
>PUSHBI 2
|
||||
>SYSCALL PrintF
|
||||
lda #MLI.E.IO
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
PPP.ETCFILE.ERR2
|
||||
>PUSHW L.MSG.SYNTAX
|
||||
>PUSHW L.FILE.Buf
|
||||
>PUSHBI 2
|
||||
>SYSCALL PrintF
|
||||
lda #MLI.E.IO
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
PPP.Init >LDYAI PPP.LCPReq.LEN
|
||||
>STYA ZPBufLen
|
||||
@ -344,7 +393,8 @@ SSC.Write php
|
||||
iny
|
||||
bne .2
|
||||
|
||||
.9 lda #MLI.E.IO
|
||||
.9 pla
|
||||
lda #MLI.E.IO
|
||||
plp
|
||||
sec
|
||||
rts
|
||||
@ -434,7 +484,8 @@ DumpBuf >STYA ZPPtr1
|
||||
|
||||
lda (ZPPtr1)
|
||||
cmp #$0D
|
||||
bne DumpBuf.PPP
|
||||
* bne DumpBuf.PPP
|
||||
bra DumpBuf.PPP
|
||||
|
||||
lda ZPBufLen
|
||||
eor #$ff
|
||||
@ -641,10 +692,11 @@ DEVSIG.Length .EQ DEVSIG.Value-DEVSIG.Offset
|
||||
MSG.DETECT .AZ "PPP Driver For Apple SSC."
|
||||
MSG.DETECT.OK .AZ "PPP Installed As Device : %s\r\n"
|
||||
MSG.DETECT.KO .AZ "No SSC Found."
|
||||
MSG.STRING .AZ "[%h]:{%s}\r\n"
|
||||
ETCFILE .AZ "${ROOT}etc/ppp.conf"
|
||||
*--------------------------------------
|
||||
MSG.ETCFILE .AZ "Executing %s File...\r\n"
|
||||
MSG.UNEXPECTED .AZ "\r\nERR:Unexpected reply From Modem\r\n{%s}\r\n"
|
||||
MSG.SYNTAX .AZ "\r\nERR:Bad Syntax In ppp.conf\r\n{%s}\r\n"
|
||||
MSG.DUMPBUFS .AZ "Send:%H\r\n"
|
||||
MSG.DUMPBUFR .AZ "Recv:%H\r\n"
|
||||
MSG.HEXDUMP .AZ "%H:%h %h %h %h %h %h %h %h\r\n"
|
||||
|
||||
@ -141,6 +141,8 @@ D2MoveHead.SEI lda MoveFrom
|
||||
jsr D2.Wait25600usec
|
||||
|
||||
.8 sta IO.D2.Ph0Off,x
|
||||
nop
|
||||
nop
|
||||
sta IO.D2.Ph0Off,y
|
||||
rts
|
||||
*/--------------------------------------
|
||||
|
||||
@ -321,14 +321,14 @@ BuildProDOSCat.BM
|
||||
bra .7
|
||||
*--------------------------------------
|
||||
ZeroPtr1 phy
|
||||
|
||||
pha
|
||||
lda #0
|
||||
tay
|
||||
|
||||
.1 sta (ZPPtr1),y
|
||||
iny
|
||||
bne .1
|
||||
|
||||
pla
|
||||
ply
|
||||
rts
|
||||
*--------------------------------------
|
||||
|
||||
@ -94,14 +94,17 @@ SetCursorPos >PULLW ZPPtr1
|
||||
|
||||
lda CUR.bVisible
|
||||
bmi ShowCursor.I
|
||||
|
||||
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
HideCursor lda CUR.bVisible
|
||||
bpl .9
|
||||
jsr HideCursor.I
|
||||
stz CUR.bVisible
|
||||
.9 rts
|
||||
|
||||
.9 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
ShowCursor lda CUR.bVisible
|
||||
bmi .9
|
||||
@ -141,11 +144,12 @@ DrawCursor.I sta CB.PTR+S.CB.OP
|
||||
|
||||
>LDYA L.CB.PTR
|
||||
jsr CLIP.YA
|
||||
bcs .9
|
||||
bcs .8
|
||||
|
||||
jmp GFXWrite.CB
|
||||
jsr GFXWrite.CB
|
||||
.8 clc
|
||||
|
||||
.9 rts
|
||||
rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE usr/src/lib/libgui.s.cur
|
||||
|
||||
@ -543,7 +543,7 @@ DrawCBBufToYA pha
|
||||
|
||||
.8 lda hCBBuf
|
||||
stz hCBBuf
|
||||
>SYSCALL FreeMem
|
||||
>SYSCALL2 FreeMem
|
||||
|
||||
clc
|
||||
|
||||
|
||||
@ -715,7 +715,7 @@ MENU.Save lda #S.CB.CMD.GETRECTBUFSIZE
|
||||
|
||||
jsr GFXWrite.CB
|
||||
|
||||
>SYSCALL NewStkObj
|
||||
>SYSCALL2 NewStkObj
|
||||
bcs .9
|
||||
|
||||
stx CB.Cache+S.CB.DstPtr
|
||||
@ -774,7 +774,7 @@ MENU.Destroy clc
|
||||
|
||||
ldx MENU.Stack.Top
|
||||
lda MENU.Stack-1,x
|
||||
>SYSCALL GetMemPtr
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA ZPMENUPtr
|
||||
|
||||
ldy #S.OBJ.X1
|
||||
|
||||
@ -107,7 +107,7 @@ MOU.CheckOverMenu
|
||||
|
||||
lda MENU.Stack-1,x
|
||||
|
||||
>SYSCALL GetMemPtr
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA ZPMENUPtr
|
||||
pha
|
||||
tya
|
||||
@ -157,7 +157,7 @@ MOU.CheckOverWND
|
||||
.1 stx WND.Stack.Idx
|
||||
|
||||
lda WND.Stack-1,x
|
||||
>SYSCALL GetMemPtr
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA ZPWNDPtr
|
||||
|
||||
ldy #S.OBJ.F
|
||||
@ -206,6 +206,7 @@ MOU.CheckOverWND
|
||||
bcc .4 not in MBAR
|
||||
|
||||
|
||||
|
||||
bra .5
|
||||
|
||||
.4 iny #S.WND.SBarY1
|
||||
@ -215,7 +216,7 @@ MOU.CheckOverWND
|
||||
iny
|
||||
lda (ZPWNDPtr),y
|
||||
sbc MouseData+S.MOUSE.Y1+1
|
||||
bcs .6 not in TBAR
|
||||
bcs .6 not in SBAR
|
||||
|
||||
|
||||
|
||||
|
||||
@ -258,7 +258,7 @@ GetCBBuf clc
|
||||
bne .9
|
||||
|
||||
>LDYAI 512
|
||||
>SYSCALL GetMem
|
||||
>SYSCALL2 GetMem
|
||||
bcs .9
|
||||
|
||||
stx hCBBuf
|
||||
|
||||
@ -129,8 +129,8 @@ L59BD lda bloknml
|
||||
* motor should be up to speed,
|
||||
* if it looks stopped then the drive is not present
|
||||
|
||||
* jsr XRW.CheckMotorOn is drive present ?
|
||||
* beq XRW.E.ND
|
||||
jsr XRW.CheckMotorOn is drive present ?
|
||||
beq XRW.E.ND
|
||||
*--------------------------------------
|
||||
L538E lda A4L get command #
|
||||
bne .1
|
||||
@ -388,6 +388,8 @@ XRW.Seek ldx XRW.UnitIndex
|
||||
jsr XRW.Wait25600usec
|
||||
|
||||
XRW.SEEKOFF sta IO.D2.Ph0Off,x
|
||||
nop
|
||||
nop
|
||||
sta IO.D2.Ph0Off,y
|
||||
rts
|
||||
*--------------------------------------
|
||||
@ -593,6 +595,9 @@ XRW.Write bit IO.D2.ReadProt,x (4) PREWRITE MODE
|
||||
lda #$FF (2)
|
||||
nop (2)
|
||||
|
||||
nop (2)
|
||||
nop (2)
|
||||
|
||||
sta IO.D2.WriteMode,x (5) goto write mode
|
||||
ora IO.D2.WShift,x (4)
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user