mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-08 08:33:37 +00:00
Kernel 0.94+
This commit is contained in:
Rémy GIBERT
parent
cde368b69e
commit
6ece240fc8
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -384,7 +384,10 @@ CS.RUN.LL.DISKII
|
|||
sec
|
||||
rts
|
||||
|
||||
.8 >PUSHW L.MSG.CRLF
|
||||
.8 ldx #0
|
||||
jsr CS.RUN.SeekToX
|
||||
|
||||
>PUSHW L.MSG.CRLF
|
||||
>PUSHBI 0
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
|
@ -395,24 +398,20 @@ CS.RUN.LL.DISKII
|
|||
bit bVerify
|
||||
bpl .80
|
||||
|
||||
ldx #0
|
||||
jsr CS.RUN.SeekToX
|
||||
|
||||
jsr CS.RUN.LL.DISKII.V
|
||||
bcs .99
|
||||
|
||||
jsr CS.RUN.MotorOn
|
||||
|
||||
lda #20
|
||||
lda #5
|
||||
jsr CS.RUN.Wait
|
||||
|
||||
.80
|
||||
>PUSHB DSSS0000
|
||||
.80 >PUSHB DSSS0000
|
||||
>LIBCALL hLIBBLKDEV,LIBBLKDEV.D2Recalibrate
|
||||
|
||||
lda #20
|
||||
lda #5
|
||||
jsr CS.RUN.Wait
|
||||
|
||||
clc
|
||||
.99 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.LL.DISKII.V
|
||||
|
|
|
|||
446
BIN/PPPTEST.S.txt
Normal file
446
BIN/PPPTEST.S.txt
Normal file
|
|
@ -0,0 +1,446 @@
|
|||
NEW
|
||||
AUTO 3,1
|
||||
.LIST OFF
|
||||
.OP 65C02
|
||||
.OR $2000
|
||||
.TF root/ppptest
|
||||
*--------------------------------------
|
||||
.INB inc/macros.i
|
||||
.INB inc/a2osx.i
|
||||
*--------------------------------------
|
||||
TIMEOUT.MAX .EQ 200 20 sec.
|
||||
BUFSIZE .EQ 256
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR ZPBIN
|
||||
ZS.START
|
||||
ZPBufPtr .BS 2
|
||||
ZPBufLen .BS 2
|
||||
ZPPtr1 .BS 2
|
||||
ZPPtr2 .BS 2
|
||||
|
||||
FCS .BS 2
|
||||
hBuf .BS 1
|
||||
hDev .BS 1
|
||||
TimeOut .BS 1
|
||||
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 #S.PS.F.EVENT S.PS.F
|
||||
.DA #0
|
||||
.DA CS.END-CS.START Code Size (without Constants)
|
||||
.DA DS.END-DS.START Data Segment Size
|
||||
.DA #32 Stack Size
|
||||
.DA #ZS.END-ZS.START Zero Page Size
|
||||
.DA 0
|
||||
*--------------------------------------
|
||||
.1 .DA CS.INIT
|
||||
.DA CS.RUN
|
||||
.DA CS.DOEVENT
|
||||
.DA CS.QUIT
|
||||
L.MSG.USAGE .DA MSG.USAGE
|
||||
L.MSG.DEVOK .DA MSG.DEVOK
|
||||
L.MSG.AT .DA MSG.AT
|
||||
L.MSG.BUFLEN .DA MSG.BUFLEN
|
||||
L.MSG.HEXDUMP .DA MSG.HEXDUMP
|
||||
L.PPP.1 .DA PPP.1
|
||||
.DA 0
|
||||
*--------------------------------------
|
||||
CS.INIT clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN lda #1
|
||||
>SYSCALL ArgV
|
||||
bcs .9
|
||||
|
||||
>PUSHYA
|
||||
>PUSHBI O.RDWR
|
||||
>PUSHBI 0 type
|
||||
>PUSHWZ auxtype
|
||||
>SYSCALL FOpen
|
||||
bcs .99
|
||||
|
||||
sta hDev
|
||||
>LDYA L.MSG.DEVOK
|
||||
>SYSCALL PutS
|
||||
|
||||
>LDYAI BUFSIZE
|
||||
>SYSCALL GetMem
|
||||
bcs .99
|
||||
|
||||
>STYA ZPBufPtr
|
||||
stx hBuf
|
||||
|
||||
bra CS.RUN.TEST
|
||||
* jmp CS.RUN.LOOP
|
||||
|
||||
.9 >LDYA L.MSG.USAGE
|
||||
>SYSCALL PutS
|
||||
|
||||
lda #E.SYN
|
||||
sec
|
||||
.99 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.TEST
|
||||
* jsr ATInit
|
||||
* bcs .9
|
||||
|
||||
>LDYAI PPP.1.LEN
|
||||
>STYA ZPBufLen
|
||||
>LDYA L.PPP.1
|
||||
jsr PPPFCS16
|
||||
|
||||
>LDYA L.PPP.1
|
||||
jsr DumpBuf
|
||||
|
||||
>PUSHWI PPP.1.LEN
|
||||
>PUSHW L.PPP.1
|
||||
lda hDev
|
||||
|
||||
>SYSCALL FWrite
|
||||
bcs .9
|
||||
|
||||
>SLEEP
|
||||
|
||||
>PUSHWI BUFSIZE
|
||||
>PUSHW ZPBufPtr
|
||||
lda hDev
|
||||
>SYSCALL FRead
|
||||
bcs .9
|
||||
>STYA ZPBufLen
|
||||
|
||||
>LDYA ZPBufPtr
|
||||
jsr DumpBuf
|
||||
|
||||
lda #0
|
||||
sec
|
||||
|
||||
.9
|
||||
CS.RUN.RTS rts
|
||||
*--------------------------------------
|
||||
CS.RUN.LOOP >SLEEP
|
||||
|
||||
lda hDev
|
||||
>SYSCALL FEOF
|
||||
bcs CS.RUN.RTS
|
||||
tay
|
||||
bne .1 EOF, no char
|
||||
|
||||
>PUSHWI BUFSIZE
|
||||
>PUSHW ZPBufPtr
|
||||
lda hDev
|
||||
>SYSCALL FRead
|
||||
bcs CS.RUN.RTS
|
||||
|
||||
>PUSHYA len
|
||||
>PUSHW ZPBufPtr
|
||||
ldy #S.PS.hStdOut
|
||||
lda (pPS),y
|
||||
|
||||
>SYSCALL FWrite
|
||||
bcs .9
|
||||
|
||||
.1 ldy #S.PS.hStdIn
|
||||
lda (pPS),y
|
||||
|
||||
>SYSCALL FEOF
|
||||
bcs .9
|
||||
tay
|
||||
bne CS.RUN.LOOP EOF = true, no char from STDIN
|
||||
|
||||
>PUSHWI BUFSIZE
|
||||
>PUSHW ZPBufPtr
|
||||
ldy #S.PS.hStdIn
|
||||
lda (pPS),y
|
||||
>SYSCALL FRead
|
||||
bcs .9
|
||||
|
||||
tax
|
||||
lda (ZPBufPtr)
|
||||
cmp #$14 Ctrl-T
|
||||
beq .9
|
||||
|
||||
txa
|
||||
|
||||
>PUSHYA len
|
||||
>PUSHW ZPBufPtr
|
||||
lda hDev
|
||||
>SYSCALL FWrite
|
||||
bcs .9
|
||||
jmp CS.RUN.LOOP
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.DOEVENT lda (pEvent)
|
||||
bpl .9 is it a TIMER event?
|
||||
|
||||
lda TimeOut
|
||||
beq .9
|
||||
|
||||
dec TimeOut
|
||||
.9 sec do not discard TIMER event
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.QUIT lda hDev
|
||||
beq .1
|
||||
|
||||
>SYSCALL FClose
|
||||
|
||||
.1 lda hBuf
|
||||
beq .2
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
.2 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
ATInit lda #250
|
||||
sta TimeOut
|
||||
|
||||
>PUSHWI MSG.AT.LEN
|
||||
>PUSHW L.MSG.AT
|
||||
lda hDev
|
||||
>SYSCALL FWrite
|
||||
bcs .9
|
||||
|
||||
.1 lda hDev
|
||||
>SYSCALL FEOF
|
||||
bcs .9
|
||||
|
||||
tay
|
||||
beq .2
|
||||
|
||||
>SLEEP
|
||||
|
||||
dec TimeOut
|
||||
bne .1
|
||||
|
||||
rts
|
||||
|
||||
.2 >PUSHWI BUFSIZE
|
||||
>PUSHW ZPBufPtr
|
||||
lda hDev
|
||||
>SYSCALL FRead
|
||||
bcs .9
|
||||
|
||||
>PUSHYA len
|
||||
>PUSHW ZPBufPtr
|
||||
ldy #S.PS.hStdOut
|
||||
lda (pPS),y
|
||||
bcc .1
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
* U16 fcs = 0xFFFF;
|
||||
*
|
||||
* while (len--)
|
||||
* {
|
||||
* fcs=(fcs >> 8) ^ fcstab[(fcs ^ *cp++) & 0xff];
|
||||
* }
|
||||
* return (~fcs);
|
||||
*--------------------------------------
|
||||
PPPFCS16 >STYA ZPPtr1
|
||||
|
||||
lda #$ff
|
||||
sta FCS
|
||||
sta FCS+1
|
||||
|
||||
lda ZPBufLen
|
||||
sec
|
||||
sbc #4 minus 7E .... FCS FCS 7E
|
||||
eor #$ff
|
||||
sta ZPPtr2
|
||||
|
||||
lda ZPBufLen+1
|
||||
sbc #0
|
||||
eor #$ff
|
||||
sta ZPPtr2+1
|
||||
|
||||
.1 inc ZPPtr2
|
||||
bne .2
|
||||
|
||||
inc ZPPtr2+1
|
||||
beq .8
|
||||
|
||||
.2 inc ZPPtr1
|
||||
bne .3
|
||||
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 lda (ZPPtr1)
|
||||
eor FCS
|
||||
tax
|
||||
|
||||
lda FCS.LO,x
|
||||
eor FCS+1
|
||||
sta FCS
|
||||
|
||||
lda FCS.HI,x
|
||||
sta FCS+1
|
||||
|
||||
bra .1
|
||||
|
||||
.8 lda FCS+1
|
||||
eor #$ff
|
||||
ldy #1
|
||||
sta (ZPPtr1),y
|
||||
|
||||
lda FCS
|
||||
eor #$ff
|
||||
iny
|
||||
sta (ZPPtr1),y
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
DumpBuf >STYA ZPPtr1
|
||||
|
||||
>PUSHW L.MSG.BUFLEN
|
||||
>PUSHW ZPBufLen
|
||||
>PUSHBI 2
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
.1 >PUSHW L.MSG.HEXDUMP
|
||||
|
||||
ldy #0
|
||||
|
||||
.2 >PUSHB (ZPPtr1),y
|
||||
iny
|
||||
cpy #16
|
||||
bne .2
|
||||
|
||||
>PUSHBI 16
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
lda ZPPtr1
|
||||
adc #16
|
||||
sta ZPPtr1
|
||||
lda ZPPtr1+1
|
||||
adc #0
|
||||
sta ZPPtr1+1
|
||||
|
||||
lda ZPBufLen
|
||||
sec
|
||||
sbc #16
|
||||
sta ZPBufLen
|
||||
lda ZPBufLen+1
|
||||
sbc #0
|
||||
sta ZPBufLen+1
|
||||
bcc .9
|
||||
ora ZPBufLen
|
||||
bne .1
|
||||
|
||||
clc
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
MSG.USAGE .AZ "Usage : TERM device "
|
||||
MSG.DEVOK .AZ "Openning Device..."
|
||||
MSG.AT .AS "ATI0"
|
||||
.HS 0D0A
|
||||
MSG.AT.LEN .EQ *-MSG.AT
|
||||
MSG.BUFLEN .AZ "BufLen:%H\r\n"
|
||||
MSG.HEXDUMP .AZ "%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h\r\n"
|
||||
*--------------------------------------
|
||||
FCS.LO .DA #$0000,#$1189,#$2312,#$329b,#$4624,#$57ad,#$6536,#$74bf
|
||||
.DA #$8c48,#$9dc1,#$af5a,#$bed3,#$ca6c,#$dbe5,#$e97e,#$f8f7
|
||||
.DA #$1081,#$0108,#$3393,#$221a,#$56a5,#$472c,#$75b7,#$643e
|
||||
.DA #$9cc9,#$8d40,#$bfdb,#$ae52,#$daed,#$cb64,#$f9ff,#$e876
|
||||
.DA #$2102,#$308b,#$0210,#$1399,#$6726,#$76af,#$4434,#$55bd
|
||||
.DA #$ad4a,#$bcc3,#$8e58,#$9fd1,#$eb6e,#$fae7,#$c87c,#$d9f5
|
||||
.DA #$3183,#$200a,#$1291,#$0318,#$77a7,#$662e,#$54b5,#$453c
|
||||
.DA #$bdcb,#$ac42,#$9ed9,#$8f50,#$fbef,#$ea66,#$d8fd,#$c974
|
||||
.DA #$4204,#$538d,#$6116,#$709f,#$0420,#$15a9,#$2732,#$36bb
|
||||
.DA #$ce4c,#$dfc5,#$ed5e,#$fcd7,#$8868,#$99e1,#$ab7a,#$baf3
|
||||
.DA #$5285,#$430c,#$7197,#$601e,#$14a1,#$0528,#$37b3,#$263a
|
||||
.DA #$decd,#$cf44,#$fddf,#$ec56,#$98e9,#$8960,#$bbfb,#$aa72
|
||||
.DA #$6306,#$728f,#$4014,#$519d,#$2522,#$34ab,#$0630,#$17b9
|
||||
.DA #$ef4e,#$fec7,#$cc5c,#$ddd5,#$a96a,#$b8e3,#$8a78,#$9bf1
|
||||
.DA #$7387,#$620e,#$5095,#$411c,#$35a3,#$242a,#$16b1,#$0738
|
||||
.DA #$ffcf,#$ee46,#$dcdd,#$cd54,#$b9eb,#$a862,#$9af9,#$8b70
|
||||
.DA #$8408,#$9581,#$a71a,#$b693,#$c22c,#$d3a5,#$e13e,#$f0b7
|
||||
.DA #$0840,#$19c9,#$2b52,#$3adb,#$4e64,#$5fed,#$6d76,#$7cff
|
||||
.DA #$9489,#$8500,#$b79b,#$a612,#$d2ad,#$c324,#$f1bf,#$e036
|
||||
.DA #$18c1,#$0948,#$3bd3,#$2a5a,#$5ee5,#$4f6c,#$7df7,#$6c7e
|
||||
.DA #$a50a,#$b483,#$8618,#$9791,#$e32e,#$f2a7,#$c03c,#$d1b5
|
||||
.DA #$2942,#$38cb,#$0a50,#$1bd9,#$6f66,#$7eef,#$4c74,#$5dfd
|
||||
.DA #$b58b,#$a402,#$9699,#$8710,#$f3af,#$e226,#$d0bd,#$c134
|
||||
.DA #$39c3,#$284a,#$1ad1,#$0b58,#$7fe7,#$6e6e,#$5cf5,#$4d7c
|
||||
.DA #$c60c,#$d785,#$e51e,#$f497,#$8028,#$91a1,#$a33a,#$b2b3
|
||||
.DA #$4a44,#$5bcd,#$6956,#$78df,#$0c60,#$1de9,#$2f72,#$3efb
|
||||
.DA #$d68d,#$c704,#$f59f,#$e416,#$90a9,#$8120,#$b3bb,#$a232
|
||||
.DA #$5ac5,#$4b4c,#$79d7,#$685e,#$1ce1,#$0d68,#$3ff3,#$2e7a
|
||||
.DA #$e70e,#$f687,#$c41c,#$d595,#$a12a,#$b0a3,#$8238,#$93b1
|
||||
.DA #$6b46,#$7acf,#$4854,#$59dd,#$2d62,#$3ceb,#$0e70,#$1ff9
|
||||
.DA #$f78f,#$e606,#$d49d,#$c514,#$b1ab,#$a022,#$92b9,#$8330
|
||||
.DA #$7bc7,#$6a4e,#$58d5,#$495c,#$3de3,#$2c6a,#$1ef1,#$0f78
|
||||
*--------------------------------------
|
||||
FCS.HI .DA /$0000,/$1189,/$2312,/$329b,/$4624,/$57ad,/$6536,/$74bf
|
||||
.DA /$8c48,/$9dc1,/$af5a,/$bed3,/$ca6c,/$dbe5,/$e97e,/$f8f7
|
||||
.DA /$1081,/$0108,/$3393,/$221a,/$56a5,/$472c,/$75b7,/$643e
|
||||
.DA /$9cc9,/$8d40,/$bfdb,/$ae52,/$daed,/$cb64,/$f9ff,/$e876
|
||||
.DA /$2102,/$308b,/$0210,/$1399,/$6726,/$76af,/$4434,/$55bd
|
||||
.DA /$ad4a,/$bcc3,/$8e58,/$9fd1,/$eb6e,/$fae7,/$c87c,/$d9f5
|
||||
.DA /$3183,/$200a,/$1291,/$0318,/$77a7,/$662e,/$54b5,/$453c
|
||||
.DA /$bdcb,/$ac42,/$9ed9,/$8f50,/$fbef,/$ea66,/$d8fd,/$c974
|
||||
.DA /$4204,/$538d,/$6116,/$709f,/$0420,/$15a9,/$2732,/$36bb
|
||||
.DA /$ce4c,/$dfc5,/$ed5e,/$fcd7,/$8868,/$99e1,/$ab7a,/$baf3
|
||||
.DA /$5285,/$430c,/$7197,/$601e,/$14a1,/$0528,/$37b3,/$263a
|
||||
.DA /$decd,/$cf44,/$fddf,/$ec56,/$98e9,/$8960,/$bbfb,/$aa72
|
||||
.DA /$6306,/$728f,/$4014,/$519d,/$2522,/$34ab,/$0630,/$17b9
|
||||
.DA /$ef4e,/$fec7,/$cc5c,/$ddd5,/$a96a,/$b8e3,/$8a78,/$9bf1
|
||||
.DA /$7387,/$620e,/$5095,/$411c,/$35a3,/$242a,/$16b1,/$0738
|
||||
.DA /$ffcf,/$ee46,/$dcdd,/$cd54,/$b9eb,/$a862,/$9af9,/$8b70
|
||||
.DA /$8408,/$9581,/$a71a,/$b693,/$c22c,/$d3a5,/$e13e,/$f0b7
|
||||
.DA /$0840,/$19c9,/$2b52,/$3adb,/$4e64,/$5fed,/$6d76,/$7cff
|
||||
.DA /$9489,/$8500,/$b79b,/$a612,/$d2ad,/$c324,/$f1bf,/$e036
|
||||
.DA /$18c1,/$0948,/$3bd3,/$2a5a,/$5ee5,/$4f6c,/$7df7,/$6c7e
|
||||
.DA /$a50a,/$b483,/$8618,/$9791,/$e32e,/$f2a7,/$c03c,/$d1b5
|
||||
.DA /$2942,/$38cb,/$0a50,/$1bd9,/$6f66,/$7eef,/$4c74,/$5dfd
|
||||
.DA /$b58b,/$a402,/$9699,/$8710,/$f3af,/$e226,/$d0bd,/$c134
|
||||
.DA /$39c3,/$284a,/$1ad1,/$0b58,/$7fe7,/$6e6e,/$5cf5,/$4d7c
|
||||
.DA /$c60c,/$d785,/$e51e,/$f497,/$8028,/$91a1,/$a33a,/$b2b3
|
||||
.DA /$4a44,/$5bcd,/$6956,/$78df,/$0c60,/$1de9,/$2f72,/$3efb
|
||||
.DA /$d68d,/$c704,/$f59f,/$e416,/$90a9,/$8120,/$b3bb,/$a232
|
||||
.DA /$5ac5,/$4b4c,/$79d7,/$685e,/$1ce1,/$0d68,/$3ff3,/$2e7a
|
||||
.DA /$e70e,/$f687,/$c41c,/$d595,/$a12a,/$b0a3,/$8238,/$93b1
|
||||
.DA /$6b46,/$7acf,/$4854,/$59dd,/$2d62,/$3ceb,/$0e70,/$1ff9
|
||||
.DA /$f78f,/$e606,/$d49d,/$c514,/$b1ab,/$a022,/$92b9,/$8330
|
||||
.DA /$7bc7,/$6a4e,/$58d5,/$495c,/$3de3,/$2c6a,/$1ef1,/$0f78
|
||||
*--------------------------------------
|
||||
PPP.1 .HS 7E
|
||||
|
||||
* .HS ff.03.C0.21.01.01.00.17.02.06.00.0a.00.00.05.06
|
||||
* .HS 00.2a.2b.78.07.02.08.02.0d.03.06
|
||||
* .HS A5.F8
|
||||
|
||||
PPP.1.START .HS FF03
|
||||
.HS C021 LCP
|
||||
PPP.1.LCP .HS 01 Configure-Request
|
||||
.HS 01 ID
|
||||
.DA /PPP.1.LCP.LEN,#PPP.1.LCP.LEN
|
||||
.HS 01.04.05DC MRU
|
||||
.HS 02.06.000A0000 ACCM
|
||||
.HS 05.06.2A2B7807 MAGIC
|
||||
PPP.1.LCP.LEN .EQ *-PPP.1.LCP
|
||||
.BS 2 FCS
|
||||
.HS 7E
|
||||
PPP.1.LEN .EQ *-PPP.1
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR 0
|
||||
DS.START
|
||||
DS.END
|
||||
.ED
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE root/ppptest.s
|
||||
ASM
|
||||
|
|
@ -102,7 +102,7 @@ CMD.CD.YA >PUSHYA
|
|||
jsr IO.StatYA
|
||||
bcs .19
|
||||
|
||||
cmp #S.FI.T.DIR
|
||||
cmp /S.STAT.MODE.DIR
|
||||
beq .11
|
||||
|
||||
lda #MLI.E.INVPATH
|
||||
|
|
@ -431,7 +431,7 @@ CMD.RD lda (ZPArgVBufPtr)
|
|||
jsr IO.StatArgVBufPtr
|
||||
bcs .99
|
||||
|
||||
cmp #S.FI.T.DIR
|
||||
cmp /S.STAT.MODE.DIR
|
||||
bne CMD.REN.CSYN
|
||||
|
||||
>LDYA ZPArgVBufPtr
|
||||
|
|
|
|||
|
|
@ -156,7 +156,7 @@ EXP.OP.UNARY.ESYN
|
|||
EXP.OP.UNARY.D jsr IO.StatArgVBufPtr
|
||||
bcs EXP.OP.UNARY.DEF.9
|
||||
|
||||
cmp #S.FI.T.DIR
|
||||
cmp /S.STAT.MODE.DIR
|
||||
bne EXP.OP.UNARY.DEF.9
|
||||
bra EXP.OP.UNARY.DEF.8
|
||||
|
||||
|
|
@ -167,7 +167,7 @@ EXP.OP.UNARY.E jsr IO.StatArgVBufPtr
|
|||
EXP.OP.UNARY.F jsr IO.StatArgVBufPtr
|
||||
bcs EXP.OP.UNARY.DEF.9
|
||||
|
||||
cmp #S.FI.T.DIR
|
||||
cmp /S.STAT.MODE.DIR
|
||||
beq EXP.OP.UNARY.DEF.9
|
||||
|
||||
EXP.OP.UNARY.DEF.8
|
||||
|
|
|
|||
|
|
@ -155,8 +155,9 @@ IO.StatYA >PUSHYA
|
|||
>SYSCALL Stat
|
||||
bcs .9
|
||||
|
||||
ldy #S.STAT.P.TYPE
|
||||
ldy #S.STAT.MODE+1
|
||||
lda (ZPCLBuf),y
|
||||
and #$F0
|
||||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
|
|
|
|||
|
|
@ -317,9 +317,10 @@ CS.RUN.CheckDir >PUSHW ZPFullPathPtr
|
|||
|
||||
rts
|
||||
|
||||
.1 ldy #STAT+S.STAT.P.TYPE
|
||||
.1 ldy #STAT+S.STAT.MODE
|
||||
lda (pData),y
|
||||
cmp #$F
|
||||
and #$F0
|
||||
cmp /S.STAT.MODE.DIR
|
||||
bne .99
|
||||
clc
|
||||
rts
|
||||
|
|
|
|||
|
|
@ -184,9 +184,11 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
|
|||
jsr CS.RUN.DEV
|
||||
bcc CS.RUN.LOOP
|
||||
rts
|
||||
.5 ldy #S.STAT.P.TYPE
|
||||
|
||||
.5 ldy #S.STAT.MODE+1
|
||||
lda (ZPFileStat),y
|
||||
cmp #$0F Directory ?
|
||||
and #$F0
|
||||
cmp /S.STAT.MODE.DIR
|
||||
bne .6
|
||||
|
||||
jsr CS.RUN.DIR
|
||||
|
|
|
|||
|
|
@ -13,6 +13,9 @@ NEW
|
|||
.INB inc/nic.i
|
||||
*--------------------------------------
|
||||
INBUF.SIZE .EQ $800
|
||||
*AT+CGDCONT=1,"IP","APN","0.0.0.0",0,0
|
||||
*AT+CGDCONT=1,"PPP","APN","0.0.0.0",0,0
|
||||
*ATD*99#1
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR ZPBIN
|
||||
|
|
@ -53,11 +56,15 @@ 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.BUFLEN .DA MSG.BUFLEN
|
||||
L.MSG.DUMPBUF .DA MSG.DUMPBUFS
|
||||
.DA MSG.DUMPBUFR
|
||||
L.MSG.HEXDUMP .DA MSG.HEXDUMP
|
||||
L.PPP.CfgReg .DA PPP.CfgReg
|
||||
L.MSG.STRING .DA MSG.STRING
|
||||
L.PPP.LCPReq .DA PPP.LCPReq
|
||||
L.PPP.IPCPReq .DA PPP.IPCPReq
|
||||
L.RCV.Buf .DA RCV.Buf
|
||||
L.RCV.Bufp1 .DA RCV.Buf+1
|
||||
L.RCV.Bufp2 .DA RCV.Buf+2
|
||||
.DA 0 End Of Reloc Table
|
||||
*--------------------------------------
|
||||
Dev.Detect >STYA ZPArgsPtr
|
||||
|
|
@ -180,8 +187,13 @@ PPP.ETCFILE >PUSHW L.ETCFILE
|
|||
|
||||
lda #0
|
||||
sta RCV.Buf,y
|
||||
>LDYA L.RCV.Buf
|
||||
>SYSCALL PutS
|
||||
|
||||
>PUSHW L.MSG.STRING
|
||||
tya
|
||||
>PUSHA
|
||||
>PUSHW L.RCV.Bufp2
|
||||
>PUSHBI 3
|
||||
>SYSCALL PrintF
|
||||
|
||||
.7 bra .1
|
||||
|
||||
|
|
@ -200,16 +212,32 @@ PPP.ETCFILE >PUSHW L.ETCFILE
|
|||
|
||||
.99 rts
|
||||
*--------------------------------------
|
||||
PPP.Init >LDYAI PPP.CfgReg.LEN
|
||||
PPP.Init >LDYAI PPP.LCPReq.LEN
|
||||
>STYA ZPBufLen
|
||||
>LDYA L.PPP.CfgReg
|
||||
>LDYA L.PPP.LCPReq
|
||||
jsr PPPFCS16
|
||||
|
||||
>LDYA L.PPP.CfgReg
|
||||
>LDYA L.PPP.LCPReq
|
||||
ldx #0
|
||||
jsr DumpBuf
|
||||
|
||||
>LDYA L.PPP.CfgReg
|
||||
ldx #PPP.CfgReg.LEN
|
||||
>LDYA L.PPP.LCPReq
|
||||
ldx #PPP.LCPReq.LEN
|
||||
|
||||
jsr SSC.WriteYAX
|
||||
bcs .9
|
||||
|
||||
>LDYAI PPP.IPCPReq.LEN
|
||||
>STYA ZPBufLen
|
||||
>LDYA L.PPP.IPCPReq
|
||||
jsr PPPFCS16
|
||||
|
||||
>LDYA L.PPP.IPCPReq
|
||||
ldx #0
|
||||
jsr DumpBuf
|
||||
|
||||
>LDYA L.PPP.IPCPReq
|
||||
ldx #PPP.IPCPReq.LEN
|
||||
|
||||
jsr SSC.WriteYAX
|
||||
bcs .9
|
||||
|
|
@ -224,6 +252,7 @@ PPP.Init >LDYAI PPP.CfgReg.LEN
|
|||
stz ZPBufLen+1
|
||||
|
||||
>LDYA L.RCV.Buf
|
||||
ldx #2
|
||||
jsr DumpBuf
|
||||
|
||||
sec
|
||||
|
|
@ -271,33 +300,61 @@ SSC.Write php
|
|||
|
||||
ldx DEVSLOTn08F
|
||||
|
||||
lda SSC.STATUS-$8F,x
|
||||
bit #SSC.STATUS.nDSR true when 0
|
||||
bne .9
|
||||
ldy #0
|
||||
|
||||
.1 phy
|
||||
|
||||
ldy #0
|
||||
|
||||
.1 lda SSC.STATUS-$8F,x
|
||||
and #SSC.STATUS.TDRE Register Empty ?
|
||||
beq .1
|
||||
.2 lda SSC.STATUS-$8F,x
|
||||
bit #SSC.STATUS.nDSR true when 0
|
||||
bne .9
|
||||
|
||||
bit #SSC.STATUS.TDRE Register Empty ?
|
||||
bne .3
|
||||
|
||||
iny
|
||||
bne .2
|
||||
|
||||
.9 lda #MLI.E.IO
|
||||
plp
|
||||
sec
|
||||
rts
|
||||
|
||||
.3 ply
|
||||
|
||||
lda (ZPPtr1),y
|
||||
pha
|
||||
and #$7F
|
||||
cmp #C.XON
|
||||
beq .4
|
||||
|
||||
cmp #C.XOFF
|
||||
bne .6
|
||||
|
||||
.4 lda #$7D
|
||||
sta SSC.DATA-$8F,x
|
||||
|
||||
.5 lda SSC.STATUS-$8F,x
|
||||
bit #SSC.STATUS.TDRE
|
||||
beq .5
|
||||
|
||||
pla
|
||||
ora #$20
|
||||
.HS F0 BEQ
|
||||
|
||||
.6 pla
|
||||
|
||||
sta SSC.DATA-$8F,x
|
||||
iny
|
||||
cpy Len
|
||||
bne .1
|
||||
|
||||
.2 lda SSC.STATUS-$8F,x
|
||||
and #SSC.STATUS.TDRE Register Empty ?
|
||||
|
||||
|
||||
plp
|
||||
clc
|
||||
rts
|
||||
|
||||
.9 plp
|
||||
lda #MLI.E.IO
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
SSC.Read php
|
||||
sei
|
||||
|
|
@ -306,18 +363,18 @@ SSC.Read php
|
|||
|
||||
ldy #0
|
||||
|
||||
.1 lda SSC.STATUS-$8F,x
|
||||
bit #SSC.STATUS.nDSR true when 0
|
||||
bne .9
|
||||
|
||||
phy
|
||||
.1 phy
|
||||
|
||||
ldy #0
|
||||
|
||||
.2 bit #SSC.STATUS.RDRF incoming char?
|
||||
.2 lda SSC.STATUS-$8F,x
|
||||
bit #SSC.STATUS.nDSR true when 0
|
||||
bne .9
|
||||
|
||||
bit #SSC.STATUS.RDRF incoming char?
|
||||
bne .3
|
||||
|
||||
dey
|
||||
iny
|
||||
bne .2
|
||||
|
||||
ply
|
||||
|
|
@ -341,35 +398,46 @@ SSC.Read php
|
|||
*--------------------------------------
|
||||
DumpBuf >STYA ZPPtr1
|
||||
|
||||
>PUSHW L.MSG.BUFLEN
|
||||
>PUSHW L.MSG.DUMPBUF,x
|
||||
>PUSHW ZPBufLen
|
||||
>PUSHBI 2
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
stz ZPPtr2
|
||||
stz ZPPtr2+1
|
||||
|
||||
.1 >PUSHW L.MSG.HEXDUMP
|
||||
>PUSHW ZPPtr2
|
||||
|
||||
ldy #0
|
||||
|
||||
.2 >PUSHB (ZPPtr1),y
|
||||
iny
|
||||
cpy #16
|
||||
cpy #8
|
||||
bne .2
|
||||
|
||||
>PUSHBI 16
|
||||
>PUSHBI 10
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
lda ZPPtr1
|
||||
adc #16
|
||||
adc #8
|
||||
sta ZPPtr1
|
||||
lda ZPPtr1+1
|
||||
adc #0
|
||||
sta ZPPtr1+1
|
||||
|
||||
lda ZPPtr2
|
||||
adc #8
|
||||
sta ZPPtr2
|
||||
lda ZPPtr2+1
|
||||
adc #0
|
||||
sta ZPPtr2+1
|
||||
|
||||
lda ZPBufLen
|
||||
sec
|
||||
sbc #16
|
||||
sbc #8
|
||||
sta ZPBufLen
|
||||
lda ZPBufLen+1
|
||||
sbc #0
|
||||
|
|
@ -383,18 +451,139 @@ DumpBuf >STYA ZPPtr1
|
|||
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
PPPFCS16 >STYA ZPPtr1
|
||||
|
||||
lda #$ff
|
||||
sta FCS
|
||||
sta FCS+1
|
||||
|
||||
lda ZPBufLen
|
||||
sec
|
||||
sbc #4 minus 7E .... FCS FCS 7E
|
||||
eor #$ff
|
||||
sta ZPPtr2
|
||||
|
||||
lda ZPBufLen+1
|
||||
sbc #0
|
||||
eor #$ff
|
||||
sta ZPPtr2+1
|
||||
|
||||
.1 inc ZPPtr2
|
||||
bne .2
|
||||
|
||||
inc ZPPtr2+1
|
||||
beq .8
|
||||
|
||||
.2 inc ZPPtr1 skip First 7E
|
||||
bne .3
|
||||
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 lda (ZPPtr1)
|
||||
eor FCS
|
||||
tax
|
||||
|
||||
lda FCS.LO,x
|
||||
eor FCS+1
|
||||
sta FCS
|
||||
|
||||
lda FCS.HI,x
|
||||
sta FCS+1
|
||||
|
||||
bra .1
|
||||
|
||||
.8 lda FCS+1
|
||||
eor #$ff
|
||||
ldy #1
|
||||
sta (ZPPtr1),y
|
||||
|
||||
lda FCS
|
||||
eor #$ff
|
||||
iny
|
||||
sta (ZPPtr1),y
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
FCS.LO .DA #$0000,#$1189,#$2312,#$329b,#$4624,#$57ad,#$6536,#$74bf
|
||||
.DA #$8c48,#$9dc1,#$af5a,#$bed3,#$ca6c,#$dbe5,#$e97e,#$f8f7
|
||||
.DA #$1081,#$0108,#$3393,#$221a,#$56a5,#$472c,#$75b7,#$643e
|
||||
.DA #$9cc9,#$8d40,#$bfdb,#$ae52,#$daed,#$cb64,#$f9ff,#$e876
|
||||
.DA #$2102,#$308b,#$0210,#$1399,#$6726,#$76af,#$4434,#$55bd
|
||||
.DA #$ad4a,#$bcc3,#$8e58,#$9fd1,#$eb6e,#$fae7,#$c87c,#$d9f5
|
||||
.DA #$3183,#$200a,#$1291,#$0318,#$77a7,#$662e,#$54b5,#$453c
|
||||
.DA #$bdcb,#$ac42,#$9ed9,#$8f50,#$fbef,#$ea66,#$d8fd,#$c974
|
||||
.DA #$4204,#$538d,#$6116,#$709f,#$0420,#$15a9,#$2732,#$36bb
|
||||
.DA #$ce4c,#$dfc5,#$ed5e,#$fcd7,#$8868,#$99e1,#$ab7a,#$baf3
|
||||
.DA #$5285,#$430c,#$7197,#$601e,#$14a1,#$0528,#$37b3,#$263a
|
||||
.DA #$decd,#$cf44,#$fddf,#$ec56,#$98e9,#$8960,#$bbfb,#$aa72
|
||||
.DA #$6306,#$728f,#$4014,#$519d,#$2522,#$34ab,#$0630,#$17b9
|
||||
.DA #$ef4e,#$fec7,#$cc5c,#$ddd5,#$a96a,#$b8e3,#$8a78,#$9bf1
|
||||
.DA #$7387,#$620e,#$5095,#$411c,#$35a3,#$242a,#$16b1,#$0738
|
||||
.DA #$ffcf,#$ee46,#$dcdd,#$cd54,#$b9eb,#$a862,#$9af9,#$8b70
|
||||
.DA #$8408,#$9581,#$a71a,#$b693,#$c22c,#$d3a5,#$e13e,#$f0b7
|
||||
.DA #$0840,#$19c9,#$2b52,#$3adb,#$4e64,#$5fed,#$6d76,#$7cff
|
||||
.DA #$9489,#$8500,#$b79b,#$a612,#$d2ad,#$c324,#$f1bf,#$e036
|
||||
.DA #$18c1,#$0948,#$3bd3,#$2a5a,#$5ee5,#$4f6c,#$7df7,#$6c7e
|
||||
.DA #$a50a,#$b483,#$8618,#$9791,#$e32e,#$f2a7,#$c03c,#$d1b5
|
||||
.DA #$2942,#$38cb,#$0a50,#$1bd9,#$6f66,#$7eef,#$4c74,#$5dfd
|
||||
.DA #$b58b,#$a402,#$9699,#$8710,#$f3af,#$e226,#$d0bd,#$c134
|
||||
.DA #$39c3,#$284a,#$1ad1,#$0b58,#$7fe7,#$6e6e,#$5cf5,#$4d7c
|
||||
.DA #$c60c,#$d785,#$e51e,#$f497,#$8028,#$91a1,#$a33a,#$b2b3
|
||||
.DA #$4a44,#$5bcd,#$6956,#$78df,#$0c60,#$1de9,#$2f72,#$3efb
|
||||
.DA #$d68d,#$c704,#$f59f,#$e416,#$90a9,#$8120,#$b3bb,#$a232
|
||||
.DA #$5ac5,#$4b4c,#$79d7,#$685e,#$1ce1,#$0d68,#$3ff3,#$2e7a
|
||||
.DA #$e70e,#$f687,#$c41c,#$d595,#$a12a,#$b0a3,#$8238,#$93b1
|
||||
.DA #$6b46,#$7acf,#$4854,#$59dd,#$2d62,#$3ceb,#$0e70,#$1ff9
|
||||
.DA #$f78f,#$e606,#$d49d,#$c514,#$b1ab,#$a022,#$92b9,#$8330
|
||||
.DA #$7bc7,#$6a4e,#$58d5,#$495c,#$3de3,#$2c6a,#$1ef1,#$0f78
|
||||
*--------------------------------------
|
||||
FCS.HI .DA /$0000,/$1189,/$2312,/$329b,/$4624,/$57ad,/$6536,/$74bf
|
||||
.DA /$8c48,/$9dc1,/$af5a,/$bed3,/$ca6c,/$dbe5,/$e97e,/$f8f7
|
||||
.DA /$1081,/$0108,/$3393,/$221a,/$56a5,/$472c,/$75b7,/$643e
|
||||
.DA /$9cc9,/$8d40,/$bfdb,/$ae52,/$daed,/$cb64,/$f9ff,/$e876
|
||||
.DA /$2102,/$308b,/$0210,/$1399,/$6726,/$76af,/$4434,/$55bd
|
||||
.DA /$ad4a,/$bcc3,/$8e58,/$9fd1,/$eb6e,/$fae7,/$c87c,/$d9f5
|
||||
.DA /$3183,/$200a,/$1291,/$0318,/$77a7,/$662e,/$54b5,/$453c
|
||||
.DA /$bdcb,/$ac42,/$9ed9,/$8f50,/$fbef,/$ea66,/$d8fd,/$c974
|
||||
.DA /$4204,/$538d,/$6116,/$709f,/$0420,/$15a9,/$2732,/$36bb
|
||||
.DA /$ce4c,/$dfc5,/$ed5e,/$fcd7,/$8868,/$99e1,/$ab7a,/$baf3
|
||||
.DA /$5285,/$430c,/$7197,/$601e,/$14a1,/$0528,/$37b3,/$263a
|
||||
.DA /$decd,/$cf44,/$fddf,/$ec56,/$98e9,/$8960,/$bbfb,/$aa72
|
||||
.DA /$6306,/$728f,/$4014,/$519d,/$2522,/$34ab,/$0630,/$17b9
|
||||
.DA /$ef4e,/$fec7,/$cc5c,/$ddd5,/$a96a,/$b8e3,/$8a78,/$9bf1
|
||||
.DA /$7387,/$620e,/$5095,/$411c,/$35a3,/$242a,/$16b1,/$0738
|
||||
.DA /$ffcf,/$ee46,/$dcdd,/$cd54,/$b9eb,/$a862,/$9af9,/$8b70
|
||||
.DA /$8408,/$9581,/$a71a,/$b693,/$c22c,/$d3a5,/$e13e,/$f0b7
|
||||
.DA /$0840,/$19c9,/$2b52,/$3adb,/$4e64,/$5fed,/$6d76,/$7cff
|
||||
.DA /$9489,/$8500,/$b79b,/$a612,/$d2ad,/$c324,/$f1bf,/$e036
|
||||
.DA /$18c1,/$0948,/$3bd3,/$2a5a,/$5ee5,/$4f6c,/$7df7,/$6c7e
|
||||
.DA /$a50a,/$b483,/$8618,/$9791,/$e32e,/$f2a7,/$c03c,/$d1b5
|
||||
.DA /$2942,/$38cb,/$0a50,/$1bd9,/$6f66,/$7eef,/$4c74,/$5dfd
|
||||
.DA /$b58b,/$a402,/$9699,/$8710,/$f3af,/$e226,/$d0bd,/$c134
|
||||
.DA /$39c3,/$284a,/$1ad1,/$0b58,/$7fe7,/$6e6e,/$5cf5,/$4d7c
|
||||
.DA /$c60c,/$d785,/$e51e,/$f497,/$8028,/$91a1,/$a33a,/$b2b3
|
||||
.DA /$4a44,/$5bcd,/$6956,/$78df,/$0c60,/$1de9,/$2f72,/$3efb
|
||||
.DA /$d68d,/$c704,/$f59f,/$e416,/$90a9,/$8120,/$b3bb,/$a232
|
||||
.DA /$5ac5,/$4b4c,/$79d7,/$685e,/$1ce1,/$0d68,/$3ff3,/$2e7a
|
||||
.DA /$e70e,/$f687,/$c41c,/$d595,/$a12a,/$b0a3,/$8238,/$93b1
|
||||
.DA /$6b46,/$7acf,/$4854,/$59dd,/$2d62,/$3ceb,/$0e70,/$1ff9
|
||||
.DA /$f78f,/$e606,/$d49d,/$c514,/$b1ab,/$a022,/$92b9,/$8330
|
||||
.DA /$7bc7,/$6a4e,/$58d5,/$495c,/$3de3,/$2c6a,/$1ef1,/$0f78
|
||||
*--------------------------------------
|
||||
DEVSIG.Offset .HS 05070B0C
|
||||
DEVSIG.Value .HS 38180131
|
||||
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.BUFLEN .AZ "BufLen:%H\r\n"
|
||||
MSG.HEXDUMP .AZ "%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h:%h\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"
|
||||
*--------------------------------------
|
||||
FD.DEV .DA #S.FD.T.CDEV
|
||||
.DA #0 HANDLER
|
||||
|
|
@ -406,20 +595,38 @@ FD.DEV .DA #S.FD.T.CDEV
|
|||
.DA 0 BUFPTR
|
||||
FD.DEV.NAME .AZ "eth1"
|
||||
*--------------------------------------
|
||||
PPP.CfgReg .HS 7E
|
||||
PPP.CfgReg.START
|
||||
PPP.LCPReq .HS 7E
|
||||
PPP.LCPReq.START
|
||||
.HS FF03
|
||||
.HS C021 LCP
|
||||
PPP.CfgReg.LCP .HS 01 Configure-Request
|
||||
PPP.LCPReq.DATA .HS 01 Configure-Request
|
||||
.HS 01 ID
|
||||
.DA /PPP.CfgReg.LCP.LEN,#PPP.CfgReg.LCP.LEN
|
||||
.HS 01.04.05DC MRU
|
||||
.DA /PPP.LCPReq.DATA.LEN,#PPP.LCPReq.DATA.LEN
|
||||
.HS 01.04 MRU
|
||||
.DA /576,#576
|
||||
.HS 02.06.000A0000 ACCM
|
||||
.HS 05.06.55334466 MAGIC
|
||||
PPP.CfgReg.LCP.LEN .EQ *-PPP.CfgReg.LCP
|
||||
.HS 05.06.002A2B78 MAGIC
|
||||
.HS 07.02
|
||||
.HS 08.02
|
||||
PPP.LCPReq.DATA.LEN .EQ *-PPP.LCPReq.DATA
|
||||
* .HS 0000 PADDING
|
||||
.BS 2 FCS
|
||||
.HS 7E
|
||||
PPP.CfgReg.LEN .EQ *-PPP.CfgReg
|
||||
PPP.LCPReq.LEN .EQ *-PPP.LCPReq
|
||||
*--------------------------------------
|
||||
PPP.IPCPReq .HS 7E
|
||||
PPP.IPCPReq.START
|
||||
.HS FF03
|
||||
.HS 8021 IPCP
|
||||
PPP.IPCPReq.DATA .HS 01 Configure-Request
|
||||
.HS 01 ID
|
||||
.DA /PPP.IPCPReq.DATA.LEN,#PPP.IPCPReq.DATA.LEN
|
||||
.HS 03.06.00.00.00.00 IP Address
|
||||
PPP.IPCPReq.DATA.LEN .EQ *-PPP.IPCPReq.DATA
|
||||
* .HS 0000 PADDING
|
||||
.BS 2 FCS
|
||||
.HS 7E
|
||||
PPP.IPCPReq.LEN .EQ *-PPP.IPCPReq
|
||||
*--------------------------------------
|
||||
RCV.Buf .BS 256
|
||||
*--------------------------------------
|
||||
|
|
@ -767,125 +974,7 @@ IRQ.8 clc
|
|||
IRQ.9 sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
PPPFCS16 >STYA ZPPtr1
|
||||
|
||||
lda #$ff
|
||||
sta FCS
|
||||
sta FCS+1
|
||||
|
||||
lda ZPBufLen
|
||||
sec
|
||||
sbc #4 minus 7E .... FCS FCS 7E
|
||||
eor #$ff
|
||||
sta ZPPtr2
|
||||
|
||||
lda ZPBufLen+1
|
||||
sbc #0
|
||||
eor #$ff
|
||||
sta ZPPtr2+1
|
||||
|
||||
.1 inc ZPPtr2
|
||||
bne .2
|
||||
|
||||
inc ZPPtr2+1
|
||||
beq .8
|
||||
|
||||
.2 inc ZPPtr1
|
||||
bne .3
|
||||
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 lda (ZPPtr1)
|
||||
eor FCS
|
||||
tax
|
||||
|
||||
lda FCS.LO,x
|
||||
eor FCS+1
|
||||
sta FCS
|
||||
|
||||
lda FCS.HI,x
|
||||
sta FCS+1
|
||||
|
||||
bra .1
|
||||
|
||||
.8 lda FCS+1
|
||||
eor #$ff
|
||||
ldy #1
|
||||
sta (ZPPtr1),y
|
||||
|
||||
lda FCS
|
||||
eor #$ff
|
||||
iny
|
||||
sta (ZPPtr1),y
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
DRV.CS.END
|
||||
FCS.LO .DA #$0000,#$1189,#$2312,#$329b,#$4624,#$57ad,#$6536,#$74bf
|
||||
.DA #$8c48,#$9dc1,#$af5a,#$bed3,#$ca6c,#$dbe5,#$e97e,#$f8f7
|
||||
.DA #$1081,#$0108,#$3393,#$221a,#$56a5,#$472c,#$75b7,#$643e
|
||||
.DA #$9cc9,#$8d40,#$bfdb,#$ae52,#$daed,#$cb64,#$f9ff,#$e876
|
||||
.DA #$2102,#$308b,#$0210,#$1399,#$6726,#$76af,#$4434,#$55bd
|
||||
.DA #$ad4a,#$bcc3,#$8e58,#$9fd1,#$eb6e,#$fae7,#$c87c,#$d9f5
|
||||
.DA #$3183,#$200a,#$1291,#$0318,#$77a7,#$662e,#$54b5,#$453c
|
||||
.DA #$bdcb,#$ac42,#$9ed9,#$8f50,#$fbef,#$ea66,#$d8fd,#$c974
|
||||
.DA #$4204,#$538d,#$6116,#$709f,#$0420,#$15a9,#$2732,#$36bb
|
||||
.DA #$ce4c,#$dfc5,#$ed5e,#$fcd7,#$8868,#$99e1,#$ab7a,#$baf3
|
||||
.DA #$5285,#$430c,#$7197,#$601e,#$14a1,#$0528,#$37b3,#$263a
|
||||
.DA #$decd,#$cf44,#$fddf,#$ec56,#$98e9,#$8960,#$bbfb,#$aa72
|
||||
.DA #$6306,#$728f,#$4014,#$519d,#$2522,#$34ab,#$0630,#$17b9
|
||||
.DA #$ef4e,#$fec7,#$cc5c,#$ddd5,#$a96a,#$b8e3,#$8a78,#$9bf1
|
||||
.DA #$7387,#$620e,#$5095,#$411c,#$35a3,#$242a,#$16b1,#$0738
|
||||
.DA #$ffcf,#$ee46,#$dcdd,#$cd54,#$b9eb,#$a862,#$9af9,#$8b70
|
||||
.DA #$8408,#$9581,#$a71a,#$b693,#$c22c,#$d3a5,#$e13e,#$f0b7
|
||||
.DA #$0840,#$19c9,#$2b52,#$3adb,#$4e64,#$5fed,#$6d76,#$7cff
|
||||
.DA #$9489,#$8500,#$b79b,#$a612,#$d2ad,#$c324,#$f1bf,#$e036
|
||||
.DA #$18c1,#$0948,#$3bd3,#$2a5a,#$5ee5,#$4f6c,#$7df7,#$6c7e
|
||||
.DA #$a50a,#$b483,#$8618,#$9791,#$e32e,#$f2a7,#$c03c,#$d1b5
|
||||
.DA #$2942,#$38cb,#$0a50,#$1bd9,#$6f66,#$7eef,#$4c74,#$5dfd
|
||||
.DA #$b58b,#$a402,#$9699,#$8710,#$f3af,#$e226,#$d0bd,#$c134
|
||||
.DA #$39c3,#$284a,#$1ad1,#$0b58,#$7fe7,#$6e6e,#$5cf5,#$4d7c
|
||||
.DA #$c60c,#$d785,#$e51e,#$f497,#$8028,#$91a1,#$a33a,#$b2b3
|
||||
.DA #$4a44,#$5bcd,#$6956,#$78df,#$0c60,#$1de9,#$2f72,#$3efb
|
||||
.DA #$d68d,#$c704,#$f59f,#$e416,#$90a9,#$8120,#$b3bb,#$a232
|
||||
.DA #$5ac5,#$4b4c,#$79d7,#$685e,#$1ce1,#$0d68,#$3ff3,#$2e7a
|
||||
.DA #$e70e,#$f687,#$c41c,#$d595,#$a12a,#$b0a3,#$8238,#$93b1
|
||||
.DA #$6b46,#$7acf,#$4854,#$59dd,#$2d62,#$3ceb,#$0e70,#$1ff9
|
||||
.DA #$f78f,#$e606,#$d49d,#$c514,#$b1ab,#$a022,#$92b9,#$8330
|
||||
.DA #$7bc7,#$6a4e,#$58d5,#$495c,#$3de3,#$2c6a,#$1ef1,#$0f78
|
||||
*--------------------------------------
|
||||
FCS.HI .DA /$0000,/$1189,/$2312,/$329b,/$4624,/$57ad,/$6536,/$74bf
|
||||
.DA /$8c48,/$9dc1,/$af5a,/$bed3,/$ca6c,/$dbe5,/$e97e,/$f8f7
|
||||
.DA /$1081,/$0108,/$3393,/$221a,/$56a5,/$472c,/$75b7,/$643e
|
||||
.DA /$9cc9,/$8d40,/$bfdb,/$ae52,/$daed,/$cb64,/$f9ff,/$e876
|
||||
.DA /$2102,/$308b,/$0210,/$1399,/$6726,/$76af,/$4434,/$55bd
|
||||
.DA /$ad4a,/$bcc3,/$8e58,/$9fd1,/$eb6e,/$fae7,/$c87c,/$d9f5
|
||||
.DA /$3183,/$200a,/$1291,/$0318,/$77a7,/$662e,/$54b5,/$453c
|
||||
.DA /$bdcb,/$ac42,/$9ed9,/$8f50,/$fbef,/$ea66,/$d8fd,/$c974
|
||||
.DA /$4204,/$538d,/$6116,/$709f,/$0420,/$15a9,/$2732,/$36bb
|
||||
.DA /$ce4c,/$dfc5,/$ed5e,/$fcd7,/$8868,/$99e1,/$ab7a,/$baf3
|
||||
.DA /$5285,/$430c,/$7197,/$601e,/$14a1,/$0528,/$37b3,/$263a
|
||||
.DA /$decd,/$cf44,/$fddf,/$ec56,/$98e9,/$8960,/$bbfb,/$aa72
|
||||
.DA /$6306,/$728f,/$4014,/$519d,/$2522,/$34ab,/$0630,/$17b9
|
||||
.DA /$ef4e,/$fec7,/$cc5c,/$ddd5,/$a96a,/$b8e3,/$8a78,/$9bf1
|
||||
.DA /$7387,/$620e,/$5095,/$411c,/$35a3,/$242a,/$16b1,/$0738
|
||||
.DA /$ffcf,/$ee46,/$dcdd,/$cd54,/$b9eb,/$a862,/$9af9,/$8b70
|
||||
.DA /$8408,/$9581,/$a71a,/$b693,/$c22c,/$d3a5,/$e13e,/$f0b7
|
||||
.DA /$0840,/$19c9,/$2b52,/$3adb,/$4e64,/$5fed,/$6d76,/$7cff
|
||||
.DA /$9489,/$8500,/$b79b,/$a612,/$d2ad,/$c324,/$f1bf,/$e036
|
||||
.DA /$18c1,/$0948,/$3bd3,/$2a5a,/$5ee5,/$4f6c,/$7df7,/$6c7e
|
||||
.DA /$a50a,/$b483,/$8618,/$9791,/$e32e,/$f2a7,/$c03c,/$d1b5
|
||||
.DA /$2942,/$38cb,/$0a50,/$1bd9,/$6f66,/$7eef,/$4c74,/$5dfd
|
||||
.DA /$b58b,/$a402,/$9699,/$8710,/$f3af,/$e226,/$d0bd,/$c134
|
||||
.DA /$39c3,/$284a,/$1ad1,/$0b58,/$7fe7,/$6e6e,/$5cf5,/$4d7c
|
||||
.DA /$c60c,/$d785,/$e51e,/$f497,/$8028,/$91a1,/$a33a,/$b2b3
|
||||
.DA /$4a44,/$5bcd,/$6956,/$78df,/$0c60,/$1de9,/$2f72,/$3efb
|
||||
.DA /$d68d,/$c704,/$f59f,/$e416,/$90a9,/$8120,/$b3bb,/$a232
|
||||
.DA /$5ac5,/$4b4c,/$79d7,/$685e,/$1ce1,/$0d68,/$3ff3,/$2e7a
|
||||
.DA /$e70e,/$f687,/$c41c,/$d595,/$a12a,/$b0a3,/$8238,/$93b1
|
||||
.DA /$6b46,/$7acf,/$4854,/$59dd,/$2d62,/$3ceb,/$0e70,/$1ff9
|
||||
.DA /$f78f,/$e606,/$d49d,/$c514,/$b1ab,/$a022,/$92b9,/$8330
|
||||
.DA /$7bc7,/$6a4e,/$58d5,/$495c,/$3de3,/$2c6a,/$1ef1,/$0f78
|
||||
*--------------------------------------
|
||||
DEVSLOTn08F .BS 1
|
||||
hINBUF .BS 1
|
||||
|
|
|
|||
|
|
@ -162,6 +162,8 @@ C.FF .EQ 12
|
|||
C.CR .EQ 13
|
||||
C.SO .EQ 14
|
||||
C.SI .EQ 15
|
||||
C.XON .EQ 17
|
||||
C.XOFF .EQ 19
|
||||
C.FS .EQ 21
|
||||
C.ESC .EQ 27
|
||||
C.SPACE .EQ 32
|
||||
|
|
|
|||
|
|
@ -24,40 +24,41 @@ D2Recalibrate >PULLB DrvSlt
|
|||
jsr CheckDiskII
|
||||
bcs .9
|
||||
|
||||
ldx Slotn0
|
||||
ldy #168
|
||||
lda #168
|
||||
|
||||
.1 lda IO.D2.Ph0Off,x
|
||||
ldy Slotn0
|
||||
lda IO.D2.Ph0On,y
|
||||
|
||||
lda #IO.D2.SeekTimeR
|
||||
jsr D2.Wait100usecA
|
||||
|
||||
dey
|
||||
dey
|
||||
.1 dec
|
||||
dec
|
||||
|
||||
tya
|
||||
pha
|
||||
|
||||
and #6
|
||||
ora Slotn0
|
||||
tax
|
||||
lda IO.D2.Ph0On,x
|
||||
phy
|
||||
plx
|
||||
tay
|
||||
lda IO.D2.Ph0On,y
|
||||
|
||||
lda #IO.D2.SeekTimeR
|
||||
jsr D2.Wait100usecA
|
||||
|
||||
tya
|
||||
bne .1
|
||||
|
||||
ldy #20
|
||||
|
||||
.2 jsr D2.Wait25600usec
|
||||
dey
|
||||
bne .2
|
||||
|
||||
lda IO.D2.Ph0Off,x
|
||||
|
||||
lda #IO.D2.SeekTimeR
|
||||
jsr D2.Wait100usecA
|
||||
|
||||
pla
|
||||
bne .1
|
||||
|
||||
jsr D2.Wait25600usec
|
||||
|
||||
lda IO.D2.Ph0Off,y
|
||||
|
||||
clc
|
||||
.9 rts
|
||||
*/--------------------------------------
|
||||
|
|
@ -121,8 +122,15 @@ D2MoveHead.SEI lda MoveFrom
|
|||
ora Slotn0
|
||||
tay
|
||||
|
||||
lda Slotn0
|
||||
ora #IO.D2.RData
|
||||
sta .4+1
|
||||
sta .5+1
|
||||
|
||||
sta IO.D2.Ph0On,x
|
||||
.4 lda IO.D2.RData SELF MODIFIED
|
||||
sta IO.D2.Ph0On,y
|
||||
.5 lda IO.D2.RData SELF MODIFIED
|
||||
lda #IO.D2.SeekTimeF
|
||||
jsr D2.Wait100usecA
|
||||
|
||||
|
|
|
|||
|
|
@ -20,6 +20,7 @@ ZPReqPtr .BS 2
|
|||
ZPReqLen .BS 2
|
||||
ZPCtxPtr .BS 2
|
||||
pFD .BS 2
|
||||
pPath .BS 2
|
||||
|
||||
ZPRespPtr .BS 2
|
||||
|
||||
|
|
@ -27,7 +28,7 @@ ZPPtr1 .BS 2
|
|||
ZPPtr2 .BS 2
|
||||
BufPtr .BS 2
|
||||
hBuf .BS 1
|
||||
|
||||
bFlag .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
|
|
@ -470,9 +471,9 @@ CIFS.Mount ldy #1
|
|||
cpx #4
|
||||
bne .1
|
||||
|
||||
clc
|
||||
|
||||
pla
|
||||
clc
|
||||
rts
|
||||
|
||||
.9 >RET 4
|
||||
*--------------------------------------
|
||||
|
|
@ -480,20 +481,26 @@ CIFS.UMount clc
|
|||
rts
|
||||
*--------------------------------------
|
||||
CIFS.CallBack bit CIFS.Status
|
||||
bmi .1
|
||||
bpl .1
|
||||
|
||||
jmp (J.CIFS,x)
|
||||
|
||||
.1 ldy #S.PS.PID
|
||||
phy
|
||||
pha
|
||||
ldy #S.PS.PID
|
||||
lda (pPS),y
|
||||
cmp CIFS.PID
|
||||
bne .8
|
||||
beq .2
|
||||
|
||||
jmp (J.CIFS2,x)
|
||||
pla
|
||||
ply
|
||||
|
||||
.8 lda #0
|
||||
lda #0
|
||||
sec
|
||||
rts
|
||||
|
||||
.1 jmp (J.CIFS,x)
|
||||
.2 pla
|
||||
ply
|
||||
jmp (J.CIFS2,x)
|
||||
*--------------------------------------
|
||||
CIFS.ChTyp
|
||||
CIFS2.ChTyp
|
||||
|
|
@ -507,29 +514,24 @@ CIFS2.FStat lda #MLI.E.BADCALL
|
|||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS.Stat >STYA ZPPtr1 resolved path
|
||||
CIFS.Stat >STYA pPath resolved path
|
||||
|
||||
jsr MakeTrans2Reg
|
||||
|
||||
ldx #0
|
||||
|
||||
.2 lda SMB.QueryPathInfo,x
|
||||
.1 lda SMB.QueryPathInfo,x
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
inx
|
||||
cpx #SMB.QueryPathInfo.Len
|
||||
bne .2
|
||||
bne .1
|
||||
|
||||
.3 lda (ZPPtr1)
|
||||
inc ZPPtr1
|
||||
bne .4
|
||||
jsr AppendPath
|
||||
|
||||
inc ZPPtr1+1
|
||||
|
||||
.4 sta (ZPReqPtr),y
|
||||
lda #0
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
tax
|
||||
bne .3
|
||||
|
||||
jsr SetT2ReqLenYA
|
||||
|
||||
|
|
@ -551,8 +553,6 @@ CIFS.Stat >STYA ZPPtr1 resolved path
|
|||
sec
|
||||
rts
|
||||
|
||||
lda #MLI.E.INVPATH
|
||||
sec
|
||||
.9 >RET 4
|
||||
*--------------------------------------
|
||||
CIFS2.Stat lda MountTable+3 hSocket
|
||||
|
|
@ -569,10 +569,15 @@ CIFS2.Stat lda MountTable+3 hSocket
|
|||
lda #MLI.E.FNOTFND
|
||||
bra .99
|
||||
|
||||
.1 >PULLW ZPPtr1
|
||||
inc pStack
|
||||
.1 >PULLW ZPPtr2 Stat Buffer
|
||||
|
||||
inc pStack Skip Filename
|
||||
inc pStack
|
||||
|
||||
jsr GetRespDataOffset
|
||||
jsr FileInfo2StatBuf
|
||||
jsr StatBuf2Ptr2
|
||||
|
||||
stz CIFS.Status
|
||||
clc
|
||||
rts
|
||||
|
|
@ -592,8 +597,79 @@ CIFS2.Stat lda MountTable+3 hSocket
|
|||
stz CIFS.Status
|
||||
>RET 4
|
||||
*--------------------------------------
|
||||
CIFS.MKDir
|
||||
CIFS2.MKDir
|
||||
CIFS.MKDir >STYA pPath resolved path
|
||||
|
||||
jsr MakeTrans2Reg
|
||||
|
||||
ldx #0
|
||||
|
||||
.1 lda SMB.CreateDirectory,x
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
inx
|
||||
cpx #SMB.CreateDirectory.Len
|
||||
bne .1
|
||||
|
||||
jsr AppendPath
|
||||
|
||||
lda #0
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
|
||||
jsr SetT2ReqLenYA
|
||||
|
||||
>PUSHYA
|
||||
>PUSHW ZPReqPtr
|
||||
lda MountTable+3 hSocket
|
||||
|
||||
ldx #LIBTCPIP.Send
|
||||
jsr GO.LIBTCPIP
|
||||
bcs .9
|
||||
|
||||
ldy #S.PS.PID
|
||||
lda (pPS),y
|
||||
sta CIFS.PID
|
||||
|
||||
dec CIFS.Status
|
||||
|
||||
lda #0
|
||||
sec
|
||||
rts
|
||||
|
||||
.9 >RET 4
|
||||
*--------------------------------------
|
||||
CIFS2.MKDir lda MountTable+3 hSocket
|
||||
ldx #LIBTCPIP.Recv
|
||||
jsr GO.LIBTCPIP
|
||||
bcs .9
|
||||
|
||||
jsr GetRespData
|
||||
|
||||
ldy #S.NETBIOS+S.SMB.H.STATUS
|
||||
lda (ZPRespPtr),y
|
||||
beq .1
|
||||
|
||||
lda #MLI.E.DUPFILE
|
||||
bra .99
|
||||
|
||||
.1 stz CIFS.Status
|
||||
clc
|
||||
>RET 4
|
||||
|
||||
.9 cmp #E.NODATA
|
||||
bne .99
|
||||
|
||||
dec CIFS.Retries
|
||||
beq .90
|
||||
|
||||
lda #0
|
||||
sec
|
||||
rts
|
||||
|
||||
.90 lda #MLI.E.IO
|
||||
.99 sec
|
||||
stz CIFS.Status
|
||||
>RET 4
|
||||
*--------------------------------------
|
||||
CIFS.MKNod
|
||||
CIFS2.MKNod
|
||||
|
|
@ -606,7 +682,7 @@ CIFS2.Pipe lda #MLI.E.BADCALL
|
|||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS.OpenDir >STYA ZPPtr1 resolved path
|
||||
CIFS.OpenDir >STYA pPath resolved path
|
||||
|
||||
>LDYAI S.FD.DIR
|
||||
>SYSCALL2 GetMem
|
||||
|
|
@ -622,29 +698,39 @@ CIFS.OpenDir >STYA ZPPtr1 resolved path
|
|||
sta (ZPPtr2),y
|
||||
|
||||
lda #0
|
||||
ldy #S.FD.DIR.FC
|
||||
ldy #S.FD.DIR.EPB
|
||||
sta (ZPPtr2),y EOF Flag
|
||||
iny
|
||||
sta (ZPPtr2),y
|
||||
iny
|
||||
sta (ZPPtr2),y
|
||||
|
||||
>PUSHW ZPPtr1
|
||||
>PUSHW pPath
|
||||
>PUSHWI 0
|
||||
txa
|
||||
>PUSHA
|
||||
>SYSCALL2 mknod
|
||||
|
||||
.9 rts
|
||||
|
||||
*--------------------------------------
|
||||
CIFS2.OpenDir lda #MLI.E.BADCALL
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS.ReadDir jsr GetPFD
|
||||
|
||||
ldy #S.FD.DIR.FC
|
||||
lda (ZPPtr2),y
|
||||
ldy #S.FD.DIR.EPB
|
||||
lda (pFD),y
|
||||
beq .1
|
||||
|
||||
lda #MLI.E.EOF
|
||||
sec
|
||||
rts
|
||||
|
||||
.1 iny
|
||||
lda (pFD),y
|
||||
iny
|
||||
ora (ZPPtr2),y
|
||||
ora (pFD),y
|
||||
bne CIFS.ReadDir.Next
|
||||
|
||||
jsr MakeTrans2Reg
|
||||
|
|
@ -675,19 +761,35 @@ CIFS.ReadDir.Next
|
|||
phy
|
||||
|
||||
ldy #S.FD.DIR.FC+1
|
||||
lda (ZPPtr2),y
|
||||
lda (pFD),y
|
||||
tax
|
||||
dey
|
||||
lda (ZPPtr2),y
|
||||
lda (pFD),y
|
||||
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H Search ID
|
||||
sta (ZPRespPtr),y
|
||||
ldy #S.NETBIOS+S.SMB.H+SMB.Trans2.H.Len+7 Search ID
|
||||
sta (ZPReqPtr),y
|
||||
txa
|
||||
iny
|
||||
sta (ZPRespPtr),y
|
||||
sta (ZPReqPtr),y
|
||||
|
||||
ply
|
||||
CIFS.ReadDir.Send
|
||||
lda (pPath)
|
||||
beq .1
|
||||
|
||||
jsr AppendPath
|
||||
|
||||
lda #'\'
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
|
||||
.1 lda #'*'
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
lda #0
|
||||
sta (ZPReqPtr),y
|
||||
iny
|
||||
|
||||
jsr SetT2ReqLenYA
|
||||
|
||||
>PUSHYA
|
||||
|
|
@ -708,7 +810,9 @@ CIFS.ReadDir.Send
|
|||
sec
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CIFS2.ReadDir lda MountTable+3 hSocket
|
||||
CIFS2.ReadDir jsr GetPFD
|
||||
|
||||
lda MountTable+3 hSocket
|
||||
ldx #LIBTCPIP.Recv
|
||||
jsr GO.LIBTCPIP
|
||||
bcs .9
|
||||
|
|
@ -719,6 +823,13 @@ CIFS2.ReadDir lda MountTable+3 hSocket
|
|||
lda (ZPRespPtr),y
|
||||
bne .99
|
||||
|
||||
ldy #S.FD.DIR.FC
|
||||
lda (pFD),y
|
||||
iny
|
||||
ora (pFD),y
|
||||
sta bFlag
|
||||
bne .1
|
||||
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H+1 Search ID
|
||||
lda (ZPRespPtr),y
|
||||
tax
|
||||
|
|
@ -726,12 +837,12 @@ CIFS2.ReadDir lda MountTable+3 hSocket
|
|||
lda (ZPRespPtr),y
|
||||
|
||||
ldy #S.FD.DIR.FC
|
||||
sta (ZPPtr2),y
|
||||
sta (pFD),y
|
||||
iny
|
||||
txa
|
||||
sta (ZPPtr2),y
|
||||
sta (pFD),y
|
||||
|
||||
jsr GetRespDataOffset
|
||||
.1 jsr GetRespDataOffset
|
||||
jsr CIFS2.ReadDir.GetBuf
|
||||
bcs .99
|
||||
|
||||
|
|
@ -762,14 +873,32 @@ CIFS2.ReadDir lda MountTable+3 hSocket
|
|||
rts
|
||||
*--------------------------------------
|
||||
CIFS2.ReadDir.GetBuf
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H Search Count
|
||||
lda bFlag
|
||||
bne .10
|
||||
|
||||
iny
|
||||
iny
|
||||
|
||||
.10 iny
|
||||
iny
|
||||
lda (ZPRespPtr),y End Of Search
|
||||
phy
|
||||
ldy #S.FD.DIR.EPB
|
||||
sta (pFD),y
|
||||
ply
|
||||
|
||||
dey
|
||||
dey
|
||||
|
||||
lda (ZPRespPtr),y Search Count
|
||||
beq .99
|
||||
tax
|
||||
|
||||
lda #1 +Ending 0
|
||||
sta ZPPtr2
|
||||
stz ZPPtr2+1
|
||||
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H+2 Search Count
|
||||
lda (ZPRespPtr),y
|
||||
tax
|
||||
|
||||
.1 lda ZPPtr2
|
||||
clc
|
||||
adc #S.STAT
|
||||
|
|
@ -816,10 +945,20 @@ CIFS2.ReadDir.GetBuf
|
|||
stx hBuf
|
||||
|
||||
.9 rts
|
||||
|
||||
.99 lda #MLI.E.EOF
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS2.ReadDir.FillBuf
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H+2 Search Count
|
||||
lda (ZPRespPtr),y
|
||||
ldy #S.NETBIOS+S.SMB.H+S.TRANS2.H Search Count
|
||||
lda bFlag
|
||||
bne .10
|
||||
|
||||
iny
|
||||
iny
|
||||
|
||||
.10 lda (ZPRespPtr),y
|
||||
tax
|
||||
|
||||
.1 jsr FileInfo2StatBuf
|
||||
|
|
@ -855,12 +994,7 @@ CIFS2.ReadDir.FillBuf
|
|||
|
||||
inc ZPPtr2+1
|
||||
|
||||
.5 ldy #S.STAT-1
|
||||
|
||||
.6 lda StatBuf,y
|
||||
sta (ZPPtr2),y
|
||||
dey
|
||||
bpl .6
|
||||
.5 jsr StatBuf2Ptr2
|
||||
|
||||
lda #S.STAT
|
||||
clc
|
||||
|
|
@ -878,10 +1012,26 @@ CIFS2.ReadDir.FillBuf
|
|||
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS.CloseDir jsr GetPFD
|
||||
CIFS.CloseDir tax
|
||||
|
||||
>DEBUG
|
||||
lda Nod.Table.hName-2,x
|
||||
beq .1
|
||||
|
||||
phx
|
||||
|
||||
stz Nod.Table.hName-2,x
|
||||
>SYSCALL2 FreeMem
|
||||
|
||||
plx
|
||||
|
||||
.1 lda Nod.Table.hFD-2,x
|
||||
stz Nod.Table.hFD-2,x
|
||||
>SYSCALL2 FreeMem
|
||||
|
||||
stz CIFS.Status
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
CIFS2.CloseDir lda #MLI.E.INVPATH
|
||||
sec
|
||||
rts
|
||||
|
|
@ -889,10 +1039,7 @@ CIFS2.CloseDir lda #MLI.E.INVPATH
|
|||
CIFS.Open
|
||||
CIFS2.Open
|
||||
*--------------------------------------
|
||||
CIFS.Close jsr GetPFD
|
||||
|
||||
>DEBUG
|
||||
|
||||
CIFS.Close
|
||||
CIFS2.Close
|
||||
lda #MLI.E.INVPATH
|
||||
sec
|
||||
|
|
@ -910,6 +1057,19 @@ CIFS2.ChOwn
|
|||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
GetPFD tax
|
||||
phx
|
||||
|
||||
lda Nod.Table.hName-2,x
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA pPath
|
||||
|
||||
plx
|
||||
lda Nod.Table.hFD-2,x
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA pFD
|
||||
rts
|
||||
*--------------------------------------
|
||||
MakeTrans2Reg lda MountTable+2
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA ZPCtxPtr
|
||||
|
|
@ -956,6 +1116,33 @@ RequestSetupX phx
|
|||
|
||||
rts
|
||||
*--------------------------------------
|
||||
AppendPath ldx #0
|
||||
|
||||
.1 lda (pPath)
|
||||
beq .4
|
||||
|
||||
inc pPath
|
||||
bne .2
|
||||
|
||||
inc pPath+1
|
||||
|
||||
.2 cmp #'/'
|
||||
bne .3
|
||||
|
||||
lda #'\'
|
||||
|
||||
.3 sta (ZPReqPtr),y
|
||||
tax
|
||||
iny
|
||||
bra .1
|
||||
|
||||
.4 cpx #'\'
|
||||
bne .5
|
||||
|
||||
dey
|
||||
|
||||
.5 rts
|
||||
*--------------------------------------
|
||||
* Y = LEN from S.NETBIOS.TYPE
|
||||
* A = Ptr to LEN Word
|
||||
*--------------------------------------
|
||||
|
|
@ -1060,32 +1247,107 @@ FileInfo2StatBuf
|
|||
dex
|
||||
bpl .1
|
||||
|
||||
ldy #20 File Attribute
|
||||
lda (ZPPtr1),y
|
||||
and #10
|
||||
beq .2
|
||||
ldy #0 Creation Date/Time
|
||||
ldx #S.STAT.CTIME
|
||||
|
||||
lda #S.STAT.MODE.DIR
|
||||
sta StatBuf+S.STAT.MODE+1
|
||||
jsr FileInfo2StatBufDT
|
||||
|
||||
.2 ldy #12+3 Data Size
|
||||
ldy #4 Last Access Date/Time
|
||||
ldx #S.STAT.ATIME
|
||||
|
||||
jsr FileInfo2StatBufDT
|
||||
|
||||
ldy #8 Last Write Date/Time
|
||||
ldx #S.STAT.MTIME
|
||||
|
||||
jsr FileInfo2StatBufDT
|
||||
|
||||
ldy #12+3 Data Size
|
||||
ldx #3
|
||||
|
||||
.3 lda (ZPPtr1),y
|
||||
.7 lda (ZPPtr1),y
|
||||
sta StatBuf+S.STAT.SIZE,x
|
||||
dey
|
||||
dex
|
||||
bpl .3
|
||||
bpl .7
|
||||
|
||||
ldy #20 File Attribute
|
||||
lda (ZPPtr1),y
|
||||
and #$10
|
||||
beq .8
|
||||
|
||||
lda /S.STAT.MODE.DIR
|
||||
sta StatBuf+S.STAT.MODE+1
|
||||
|
||||
.8 plx
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
GetPFD tax
|
||||
* YYYYYYYM MMM DDDDD
|
||||
* HHHHHmmm mmm SSSSS
|
||||
*--------------------------------------
|
||||
FileInfo2StatBufDT
|
||||
iny
|
||||
lda (ZPPtr1),y
|
||||
lsr
|
||||
lda Nod.Table.hFD-2,x
|
||||
>SYSCALL2 GetMemPtr
|
||||
>STYA pFD
|
||||
|
||||
php
|
||||
|
||||
clc
|
||||
adc #80
|
||||
sta StatBuf+S.TIME.YEAR,x
|
||||
lda #19
|
||||
adc #0
|
||||
sta StatBuf+S.TIME.CENTURY,x
|
||||
|
||||
dey
|
||||
|
||||
plp
|
||||
lda (ZPPtr1),y
|
||||
ror
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
sta StatBuf+S.TIME.MONTH,x
|
||||
|
||||
lda (ZPPtr1),y
|
||||
and #$1F
|
||||
sta StatBuf+S.TIME.DAY,x
|
||||
|
||||
iny
|
||||
iny
|
||||
|
||||
lda (ZPPtr1),y
|
||||
and #$1F
|
||||
asl
|
||||
sta StatBuf+S.TIME.SECOND,x
|
||||
|
||||
lda (ZPPtr1),y
|
||||
and #$E0
|
||||
sta StatBuf+S.TIME.MINUTE,x
|
||||
|
||||
lda (ZPPtr1),y
|
||||
lsr
|
||||
ror StatBuf+S.TIME.MINUTE,x
|
||||
lsr
|
||||
ror StatBuf+S.TIME.MINUTE,x
|
||||
lsr
|
||||
ror StatBuf+S.TIME.MINUTE,x
|
||||
lsr StatBuf+S.TIME.MINUTE,x
|
||||
lsr StatBuf+S.TIME.MINUTE,x
|
||||
|
||||
sta StatBuf+S.TIME.HOUR,x
|
||||
rts
|
||||
* TODO : S.TIME.WDAY
|
||||
*--------------------------------------
|
||||
StatBuf2Ptr2 ldy #S.STAT-1
|
||||
|
||||
.1 lda StatBuf,y
|
||||
sta (ZPPtr2),y
|
||||
dey
|
||||
bpl .1
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
GO.LIBTCPIP jmp (pLIBTCPIP)
|
||||
|
|
@ -1174,7 +1436,7 @@ SMB.Trans2.H .DA #15 WORD COUNT
|
|||
.BS 2 TotalParamCount
|
||||
.DA 0 TotalDataCount
|
||||
.DA 10 MaxParameterCount
|
||||
.DA 512 MaxDataCount
|
||||
.DA 480 MaxDataCount
|
||||
.DA #0 MaxSetupCount
|
||||
.HS 00 Reserved1
|
||||
.DA 0 Flags
|
||||
|
|
@ -1188,14 +1450,9 @@ SMB.Trans2.H .DA #15 WORD COUNT
|
|||
.HS 00 Reserved3
|
||||
SMB.Trans2.H.Len .EQ *-SMB.Trans2.H
|
||||
*--------------------------------------
|
||||
SMB.QueryPathInfo
|
||||
.DA 5 TRANS2_QUERY_PATH_INFORMATION
|
||||
.BS 2 PrmCnt
|
||||
.HS 000000 Padding
|
||||
.DA SMB_INFO_STANDARD InformationLevel
|
||||
.HS 00000000 SearchStorageType
|
||||
* .AZ "file" FileName
|
||||
SMB.QueryPathInfo.Len .EQ *-SMB.QueryPathInfo
|
||||
SMB.Open2 .DA 0 TRANS2_OPEN2
|
||||
.BS 2
|
||||
SMB.Open2.Len .EQ *-SMB.Open2
|
||||
*--------------------------------------
|
||||
SMB.FindFirst .DA 1 TRANS2_FIND_FIRST2
|
||||
.BS 2 PrmCnt
|
||||
|
|
@ -1205,7 +1462,7 @@ SMB.FindFirst .DA 1 TRANS2_FIND_FIRST2
|
|||
.DA 2 Flags
|
||||
.DA SMB_INFO_STANDARD InformationLevel
|
||||
.HS 00000000 SearchStorageType
|
||||
.AZ "*" FileName
|
||||
* .AZ "path\*" FileName
|
||||
SMB.FindFirst.Len .EQ *-SMB.FindFirst
|
||||
*--------------------------------------
|
||||
SMB.FindNext .DA 2 TRANS2_FIND_NEXT2
|
||||
|
|
@ -1215,10 +1472,27 @@ SMB.FindNext .DA 2 TRANS2_FIND_NEXT2
|
|||
.DA 1024 SearchCount
|
||||
.DA SMB_INFO_STANDARD InformationLevel
|
||||
.HS 00000000 ResumeKey
|
||||
.DA 2 Flags
|
||||
.AZ "*" FileName
|
||||
.DA 2+8 Flags
|
||||
* .AZ "path\*" FileName
|
||||
SMB.FindNext.Len .EQ *-SMB.FindNext
|
||||
*--------------------------------------
|
||||
SMB.QueryPathInfo
|
||||
.DA 5 TRANS2_QUERY_PATH_INFORMATION
|
||||
.BS 2 PrmCnt
|
||||
.HS 000000 Padding
|
||||
.DA SMB_INFO_STANDARD InformationLevel
|
||||
.HS 00000000 SearchStorageType
|
||||
* .AZ "file" FileName
|
||||
SMB.QueryPathInfo.Len .EQ *-SMB.QueryPathInfo
|
||||
*--------------------------------------
|
||||
SMB.CreateDirectory
|
||||
.DA 13 TRANS2_CREATE_DIRECTORY
|
||||
.BS 2 PrmCnt
|
||||
.HS 000000 Padding
|
||||
.HS 00000000 Reserved
|
||||
* .AZ "DirName"
|
||||
SMB.CreateDirectory.Len .EQ *-SMB.CreateDirectory
|
||||
*--------------------------------------
|
||||
LIBTCPIP .AZ "libtcpip"
|
||||
hLIBTCPIP .BS 1
|
||||
pLIBTCPIP .BS 2
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
@ -215,7 +215,12 @@ XRW.TrackSelect lda #2
|
|||
jsr XRW.Seek Seek from Track 41 -> 0
|
||||
bra .1
|
||||
|
||||
.4 cmp XRW.ReqTrack
|
||||
.4 ldy XRW.UnitIndex (4)
|
||||
lda XRW.AddrField.V (4)
|
||||
sta XRW.D2VolNum-1,y (4)
|
||||
lda XRW.AddrField.T (4)
|
||||
sta XRW.D2Trk-1,y (4)
|
||||
cmp XRW.ReqTrack
|
||||
beq .8
|
||||
|
||||
lda XRW.BadSeek
|
||||
|
|
@ -227,11 +232,11 @@ XRW.TrackSelect lda #2
|
|||
.5 lda XRW.SeekTime
|
||||
bmi .6 seektime already > 128
|
||||
|
||||
* clc
|
||||
* adc #IO.D2.SeekTimeI
|
||||
* sta XRW.SeekTime
|
||||
clc
|
||||
adc #IO.D2.SeekTimeI
|
||||
sta XRW.SeekTime
|
||||
|
||||
* sta XRW.D2SeekTime-1,y
|
||||
sta XRW.D2SeekTime-1,y
|
||||
|
||||
.6 lda XRW.ReqTrack
|
||||
jsr XRW.Seek
|
||||
|
|
@ -297,20 +302,12 @@ XRW.ReadAddr ldy #$FC
|
|||
tay if final checksum non-zero,
|
||||
bne .99 (2) then error.
|
||||
|
||||
ldy XRW.UnitIndex (4)
|
||||
|
||||
.9 lda IO.D2.RData,x (4)
|
||||
bpl .9 (2)
|
||||
|
||||
eor #$DE (2)
|
||||
bne .99 (2)
|
||||
|
||||
lda XRW.AddrField.V (4)
|
||||
sta XRW.D2VolNum-1,y (4)
|
||||
lda XRW.AddrField.T (4)
|
||||
sta XRW.D2Trk-1,y (4)
|
||||
ldy XRW.AddrField.S (4)
|
||||
|
||||
clc (2)
|
||||
rts (6)
|
||||
|
||||
|
|
@ -381,7 +378,7 @@ XRW.Seek ldx XRW.UnitIndex
|
|||
cmp XRW.TargetQTrack
|
||||
bne .1
|
||||
|
||||
.8 jsr XRW.Wait25600usec
|
||||
jsr XRW.Wait25600usec
|
||||
|
||||
XRW.SEEKOFF sta IO.D2.Ph0Off,x
|
||||
sta IO.D2.Ph0Off,y
|
||||
|
|
@ -401,6 +398,7 @@ XRW.SEEK2QT pha
|
|||
XRW.SEEK2QT2 and #6
|
||||
ora A2L
|
||||
tay
|
||||
|
||||
lda A2L
|
||||
ora #IO.D2.RData
|
||||
sta .1+1
|
||||
|
|
@ -563,7 +561,8 @@ XRW.SectorIO bit XRW.bWrite
|
|||
.2 jsr XRW.ReadAddr
|
||||
bcs .3 (2)
|
||||
|
||||
cpy XRW.ReqSector (4)
|
||||
lda XRW.AddrField.S (4)
|
||||
cmp XRW.ReqSector (4)
|
||||
bne .3 (2)
|
||||
|
||||
bit XRW.bWrite (4)
|
||||
|
|
@ -977,6 +976,7 @@ XRW.DEBUG sta CLRPAGE2
|
|||
lsr
|
||||
lsr
|
||||
jsr .7
|
||||
|
||||
pla
|
||||
|
||||
.7 and #$0F
|
||||
|
|
|
|||
|
|
@ -149,8 +149,9 @@ InitSrcDirYA >PUSHYA
|
|||
bcs .1 File/DIR does not exists, go extract pattern
|
||||
|
||||
.DO X.ENTER.SUBDIR=1
|
||||
>LDA.G STAT+S.STAT.P.TYPE
|
||||
cmp #S.FI.T.DIR
|
||||
>LDA.G STAT+S.STAT.MODE+1
|
||||
and #$F0
|
||||
cmp /S.STAT.MODE.DIR
|
||||
bne .4 TYPE not a DIR, extract....
|
||||
bra .5 TYPE=DIR, do not extract pattern
|
||||
.ELSE
|
||||
|
|
@ -262,8 +263,9 @@ InitDstDirYA >PUSHYA
|
|||
>SYSCALL Stat
|
||||
bcs .1 File/DIR does not exists, go extract DstFileName
|
||||
|
||||
>LDA.G STAT+S.STAT.P.TYPE
|
||||
cmp #S.FI.T.DIR
|
||||
>LDA.G STAT+S.STAT.MODE+1
|
||||
and #$F0
|
||||
cmp /S.STAT.MODE.DIR
|
||||
beq .5 Dst is a directory...no destfilename
|
||||
|
||||
.1 jsr GetPtr1Len Search end of string.....
|
||||
|
|
|
|||
|
|
@ -300,7 +300,9 @@ CORE.Dispatch ldx #1 skip PS0
|
|||
|
||||
.2 lda (pEvent) Empty event, select next
|
||||
beq .3
|
||||
jsr CORE.PSExec2
|
||||
|
||||
ldx #S.PS.S.DOEVENT
|
||||
jsr CORE.PSExecX
|
||||
dec IRQ.InKernel
|
||||
|
||||
bcs .3 not for this PS, try next event in list
|
||||
|
|
@ -311,6 +313,7 @@ CORE.Dispatch ldx #1 skip PS0
|
|||
|
||||
.3 dec CORE.EvtIndex
|
||||
beq .4 all EVT submitted to this PS, try other PS
|
||||
|
||||
lda pEvent try next EVT to this PS
|
||||
clc
|
||||
adc #S.EVT
|
||||
|
|
@ -412,11 +415,11 @@ CORE.PSExec lda (pPS)
|
|||
bit #S.PS.F.SLEEP
|
||||
bne CORE.PSResume
|
||||
|
||||
CORE.PSExec2 ldy #S.PS.S
|
||||
ldy #S.PS.S
|
||||
lda (pPS),y
|
||||
|
||||
tax
|
||||
lda pCode+1
|
||||
|
||||
CORE.PSExecX lda pCode+1
|
||||
pha
|
||||
lda pCode
|
||||
pha
|
||||
|
|
|
|||
|
|
@ -73,6 +73,7 @@ K.ReadDir.ROOT ldy #S.FD.DIR.FC did we already returned something ?
|
|||
>LDYAI K.Buf256
|
||||
>STYA K.MLI.PARAMS+2
|
||||
>STYA ZPPtr2
|
||||
|
||||
>MLICALL MLIONLINE
|
||||
bcs K.ReadDir.RTS
|
||||
|
||||
|
|
|
|||
|
|
@ -28,7 +28,7 @@ VSDRIVE.Init >LDYAI VSDRIVE.MSG0
|
|||
.2 jsr SSC.Detect
|
||||
bcs .99
|
||||
|
||||
stx DRV+2 DRV.Slotn0
|
||||
stx DRV+1 DRV.Slotn0
|
||||
|
||||
sta .1+1 Slot Cn
|
||||
and #$0F
|
||||
|
|
@ -132,7 +132,7 @@ SSC.Detect stz TmpPtr1
|
|||
.9 sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
VSDRIVE.Ping ldx DRV+2 DRV.Slotn0
|
||||
VSDRIVE.Ping ldx DRV+1 DRV.Slotn0
|
||||
|
||||
stz VSDRIVE.Ping.TO
|
||||
stz VSDRIVE.Ping.TO+1
|
||||
|
|
@ -352,9 +352,7 @@ DRV.BLKNUM .EQ $46
|
|||
*--------------------------------------
|
||||
DRV .PH $D001 Main LC Bnk 2 $D001->$DFFF
|
||||
|
||||
DRV.START cld
|
||||
|
||||
ldx #$ff Self Modified
|
||||
DRV.START ldx #$ff Self Modified
|
||||
lda DRV.COMMAND S=0,R=1,W=2,F=3
|
||||
bne .1
|
||||
|
||||
|
|
@ -365,10 +363,13 @@ DRV.START cld
|
|||
clc
|
||||
rts
|
||||
|
||||
.9 lda #MLI.E.IO
|
||||
* sec
|
||||
rts
|
||||
|
||||
.1 cmp #3
|
||||
beq .8 Format ....
|
||||
|
||||
* bcs DRV.DO.CMD.ERR more....IO error
|
||||
bcs .9
|
||||
|
||||
ora #2 W=2,R=3
|
||||
|
||||
|
|
@ -387,7 +388,12 @@ DRV.START cld
|
|||
|
||||
lda DRV.BLKNUM+1
|
||||
sta DRV.CmdBuf.BlkH
|
||||
*--------------------------------------
|
||||
* send CMD+CS
|
||||
*--------------------------------------
|
||||
php
|
||||
sei
|
||||
|
||||
ldy #4 Send 5 bytes including Sum
|
||||
|
||||
.3 lda DRV.CmdBuf.Sum,y
|
||||
|
|
@ -451,12 +457,13 @@ DRV.DO.CMD.R ldy #3 Read Back and check 4 bytes
|
|||
jsr DRV.SSCGet
|
||||
eor DRV.CmdBuf.Sum
|
||||
bne DRV.DO.CMD.ERR
|
||||
|
||||
plp
|
||||
clc
|
||||
rts A=0,CC from bcc .4
|
||||
*--------------------------------------
|
||||
DRV.DO.CMD.ERR1 pla
|
||||
pla
|
||||
|
||||
DRV.DO.CMD.ERR lda #MLI.E.IO
|
||||
DRV.DO.CMD.ERR plp
|
||||
lda #MLI.E.IO
|
||||
sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
|
|
@ -501,23 +508,22 @@ DRV.DO.CMD.W lda #$B1 lda (),y
|
|||
dey
|
||||
bpl .3
|
||||
|
||||
plp
|
||||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
DRV.SSCSend sta .2+1
|
||||
DRV.SSCSend pha
|
||||
|
||||
.1 lda SSC.STATUS-$8F,x
|
||||
* bit #SSC.STATUS.DCD+SSC.STATUS.DSR
|
||||
* beq DRV.DO.CMD.ERR1
|
||||
and #SSC.STATUS.TDRE Outgoing char?
|
||||
beq .1
|
||||
|
||||
.2 lda #$ff
|
||||
pla
|
||||
|
||||
sta SSC.DATA-$8F,x
|
||||
rts
|
||||
*--------------------------------------
|
||||
DRV.SSCGet lda SSC.STATUS-$8F,x
|
||||
* bit #SSC.STATUS.DCD+SSC.STATUS.DSR
|
||||
* beq DRV.DO.CMD.ERR1
|
||||
and #SSC.STATUS.RDRF incoming char?
|
||||
beq DRV.SSCGet
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user