Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-06 14:30:08 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : CP/MV/RM....

Browse Source
This commit is contained in:
Rémy GIBERT 2017-02-22 08:31:16 +01:00
parent 44b6d67670
commit 7bfae9c0b0
5 changed files with 32 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
A2OSX.BOOT.po
View File

Binary file not shown.

BIN
A2OSX.SRC.po
View File

Binary file not shown.

28
BIN/X.CPMV.S.txt
View File

@ -234,10 +234,12 @@ CS.RUN.DIR ldy #bRecurse
>SYSCALL MKDirYA
jsr CS.RUN.PrintErr
bcs .9
bcc .1
cmp #MLI.ERR.DUPFILE
beq .1
.FIN
>LDYA ZPPtr1
.1 >LDYA ZPPtr1
jmp EnterSubDirYA
.8 clc
@ -294,11 +296,10 @@ CS.RUN.PrintFile
*--------------------------------------
.DO X.COPY.TO.DEST=1
*--------------------------------------
*--------------------------------------
CS.RUN.CopyStart
ldy #S.STAT.P.AUXTYPE
ldy #S.STAT.P.AUXTYPE+1
>PUSHB (ZPPtr2),y
iny
dey
>PUSHB (ZPPtr2),y
ldy #S.STAT.P.TYPE
>PUSHB (ZPPtr2),y
@ -314,9 +315,9 @@ CS.RUN.CopyStart
ldy #hSrcFile
sta (pData),y
ldy #S.STAT.P.AUXTYPE
ldy #S.STAT.P.AUXTYPE+1
>PUSHB (ZPPtr2),y
iny
dey
>PUSHB (ZPPtr2),y
ldy #S.STAT.P.TYPE
>PUSHB (ZPPtr2),y
@ -328,7 +329,7 @@ CS.RUN.CopyStart
>SYSCALL FOpen
bcc .1
>DEBUG
pha
ldy #hSrcFile
lda (pData),y
@ -361,8 +362,10 @@ CS.RUN.Copy stz .90+1
>PUSHB (pData),y
>SYSCALL FRead
bcc .1
eor #MLI.ERR.EOF
beq .9
cmp #MLI.ERR.EOF
bne .9
lda #0
bra .9
.1 >STYA ZPPtr2
@ -373,6 +376,9 @@ CS.RUN.Copy stz .90+1
>SYSCALL FWrite
bcs .9
lda .90+1
>SYSCALL FreeMemA
lda #'.'
>SYSCALL PutCA
rts
@ -382,7 +388,7 @@ CS.RUN.Copy stz .90+1
.90 lda #$00
beq CS.RUN.CopyEnd
>SYSCALL FreeMemA
>SYSCALL FreeMemA
*--------------------------------------
CS.RUN.CopyEnd ldy #hDstFile
lda (pData),y

5
README.md
View File

@ -85,7 +85,8 @@ In Progress : moving TCPIP to socket API
## Internal Shell commands:
| Name | Status | Comment |
| ---- | ------ | ------- |
| CD/PWD | Working | Improved syntax : now, 'CD ../BIN' works |
| CD | Working | Improved syntax : now, 'CD ../BIN' works |
| PWD | Working | |
| DATE | Working | |
| ECHO | Working | \b,\e,\f,\n,\\ and \% supported |
| EXIT | Working | |
@ -120,6 +121,7 @@ note : '$VAR' does NOT expand Variable
| PIC.DRV | In Progress | Apple "Parallel Interface Card" Driver, renamed from PPIC.DRV | 0.8 |
| Mouse.DRV | Working | Apple Mouse Card,//c Mouse Port | 0.9 |
| DHGR.DRV | In Progress | except bitblt... | 0.8 |
| ---- | ------ | ------- | ----- |
| Uthernet.DRV | Working | | 0.9 |
| Uthernet2.DRV | Working | | 0.9 |
| Uther2.AI.DRV | In Progress | With ARP/IP Offloading | 0.8 |
@ -148,6 +150,7 @@ note : '$VAR' does NOT expand Variable
| | | -S : Suppress repeated empty output lines | |
| EDIT | Working | still missing : find/replace | 0.9 |
| NSCUTIL | Working | Tool for setting time in NSC/DL1216E | 0.9 |
| ---- | ------ | ------- | ----- |
| ARP | Working | dump ARP cache, setup a static ARP entry | 0.9 |
| PING | Working | | 0.9 |
| DNSINFO | Working | dump DNS cache, setup a static DNS entry | 0.9 |

22
SYS/KM.NSC.S.txt
View File

@ -211,36 +211,36 @@ NSCDRV php
lda $C304 Reset DS1216E comparison register with READ A2=1
ldy #7 Read 8 bytes...
NSCDRV.1
NSCDRV.R1 lda DS1216E.PATTERN,y
phy
ldy #8 ....of 8 bits
NSCDRV.2 ldx #0
lsr
bcc NSCDRV.21
inx
NSCDRV.21 bit $C300,x Write Pattern bit in A0, with A2=0
dey
bne NSCDRV.2
ply
dey
bpl NSCDRV.1
ldx #7
NSCDRV.4 ldy #8
NSCDRV.5 lda $C304 Read Byte...
lsr
NSCDRV.R2 ror DS1216E.DATA,x
dey
bne NSCDRV.5
NSCDRV.R3 lda DS1216E.DATA,x
pha
lsr
@ -272,7 +272,7 @@ NSCDRV.R6 lda DS1216E.DATA+5 Get mm
NSCDRV.R7 lda DS1216E.DATA+1 Get MM
asl
asl
asl
asl
asl
asl
@ -281,7 +281,7 @@ NSCDRV.R8 ora DS1216E.DATA+2 Get DD
NSCDRV.R9 lda DS1216E.DATA Get YY
rol
sta DATELO+1
plp
rts
*--------------------------------------