mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-25 20:33:13 +00:00
This commit is contained in:
Rémy GIBERT
parent
3e439942be
commit
4016f3e9d0
Binary file not shown.
Binary file not shown.
Binary file not shown.
11
BIN/CP.S.txt
11
BIN/CP.S.txt
@ -19,15 +19,20 @@ X.DELETE.SOURCE .EQ 0
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
OptionList >PSTR "CRYQcryq"
|
||||
OptionList .AS "CRYQcryq"
|
||||
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
|
||||
*--------------------------------------
|
||||
MSG.USAGE .AZ "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
|
||||
MSG.USAGE .AS "Usage : CP [Src File/Dir, *,? wildcards allowed]\r\n"
|
||||
.AS " -C : Continue on error\r\n"
|
||||
.AS " -Q : Quiet\r\n"
|
||||
.AS " -R : Recurse subdirectories\r\n"
|
||||
.AZ " -Y : Dont't prompt for override\r\n"
|
||||
MSG.DIR .AZ "CP Dir :%s to %s..."
|
||||
MSG.FILE .AZ "CP File:%s to %s..."
|
||||
MSG.OVERWRITE .AZ "Overwrite %s [Yes,No,All]?"
|
||||
MSG.OK .AZ "[OK]"
|
||||
MSG.ERR .AZ "[%h]\r\n"
|
||||
MSG.ERR .AS "[%h]"
|
||||
MSG.CRLF .AZ "\r\n"
|
||||
MSG.DONE .AZ "%D File(s) Copied.\r\n"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
|
||||
11
BIN/MV.S.txt
11
BIN/MV.S.txt
@ -19,15 +19,20 @@ X.DELETE.SOURCE .EQ 1
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
OptionList >PSTR "CRYQcryq"
|
||||
OptionList .AS "CRYQcryq"
|
||||
OptionVars .DA #bContinue,#bRecurse,#bNoConfirm,#bQuiet,#bContinue,#bRecurse,#bNoConfirm,#bQuiet
|
||||
*--------------------------------------
|
||||
MSG.USAGE .AZ "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n -C : Continue on error\r\n -Q : Quiet\r\n -R : Recurse subdirectories\r\n -Y : Dont't prompt for override\r\n"
|
||||
MSG.USAGE .AS "Usage : MV [Src File/Dir, *,? wildcards allowed]\r\n"
|
||||
.AS " -C : Continue on error\r\n"
|
||||
.AS " -Q : Quiet\r\n"
|
||||
.AS " -R : Recurse subdirectories\r\n"
|
||||
.AZ " -Y : Dont't prompt for override\r\n"
|
||||
MSG.DIR .AZ "MV Dir :%s to %s..."
|
||||
MSG.FILE .AZ "MV File:%s to %s..."
|
||||
MSG.OVERWRITE .AZ "Overwrite %s [Yes,No,All]?"
|
||||
MSG.OK .AZ "[OK]"
|
||||
MSG.ERR .AZ "[%h]\r\n"
|
||||
MSG.ERR .AS "[%h]"
|
||||
MSG.CRLF .AZ "\r\n"
|
||||
MSG.DONE .AZ "%D File(s) Moved.\r\n"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
|
||||
@ -380,7 +380,7 @@ CS.RUN.OpenArc >PUSHWZ Aux type
|
||||
>PUSHBI $CF PAK
|
||||
|
||||
bit bAppend
|
||||
bmi .1
|
||||
bmi CS.RUN.AppendArc
|
||||
|
||||
>PUSHBI O.CREATE+O.WRONLY
|
||||
>LDA.G ArcName
|
||||
@ -394,20 +394,31 @@ CS.RUN.OpenArc >PUSHWZ Aux type
|
||||
>PUSHW L.ARC.Header
|
||||
>LDA.G hArcFile
|
||||
>SYSCALL fputs
|
||||
.9 rts
|
||||
.9
|
||||
CS.RUN.OpenArc.RTS
|
||||
rts
|
||||
*--------------------------------------
|
||||
.1 >PUSHBI O.RDWR
|
||||
CS.RUN.AppendArc
|
||||
>PUSHBI O.RDWR+O.APPEND
|
||||
>LDA.G ArcName
|
||||
>SYSCALL Argv
|
||||
|
||||
>SYSCALL FOpen
|
||||
bcs .9
|
||||
bcs CS.RUN.OpenArc.RTS
|
||||
>STA.G hArcFile
|
||||
|
||||
pha
|
||||
rts
|
||||
>DEBUG
|
||||
>PUSHBI SEEK.SET
|
||||
>PUSHWI 0
|
||||
>PUSHWI 0
|
||||
>LDA.G hArcFile
|
||||
>SYSCALL fseek
|
||||
bcs CS.RUN.OpenArc.RTS
|
||||
|
||||
>PUSHWI 3
|
||||
>PUSHW ZPSrcBufPtr
|
||||
pla
|
||||
>LDA.G hArcFile
|
||||
|
||||
>SYSCALL fread
|
||||
bcs .9
|
||||
|
||||
@ -427,11 +438,11 @@ CS.RUN.OpenArc >PUSHWZ Aux type
|
||||
>PUSHWI 0
|
||||
>LDA.G hArcFile
|
||||
>SYSCALL fseek
|
||||
bcc .8
|
||||
cmp #MLI.E.EOF
|
||||
bne .99
|
||||
clc
|
||||
.8 rts
|
||||
* bcc .9
|
||||
* cmp #MLI.E.EOF
|
||||
* bne .99
|
||||
* clc
|
||||
.9 rts
|
||||
|
||||
.99 >LDYA L.MSG.E.IARC
|
||||
>SYSCALL puts
|
||||
|
||||
@ -19,7 +19,7 @@ X.DELETE.SOURCE .EQ 1
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
*--------------------------------------
|
||||
OptionList >PSTR "CRQcrq"
|
||||
OptionList .AS "CRQcrq"
|
||||
OptionVars .DA #bContinue,#bRecurse,#bQuiet,#bContinue,#bRecurse,#bQuiet
|
||||
*--------------------------------------
|
||||
MSG.USAGE .AS "Usage : RM [File/Dir, *,? wildcards allowed]\r\n"
|
||||
@ -29,7 +29,8 @@ MSG.USAGE .AS "Usage : RM [File/Dir, *,? wildcards allowed]\r\n"
|
||||
MSG.DIR .AZ "RM Dir :%s..."
|
||||
MSG.FILE .AZ "RM File:%s..."
|
||||
MSG.OK .AZ "[OK]"
|
||||
MSG.ERR .AZ "[%h]\r\n"
|
||||
MSG.ERR .AS "[%h]"
|
||||
MSG.CRLF .AZ "\r\n"
|
||||
MSG.DONE .AZ "%D File(s) Removed.\r\n"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
|
||||
@ -40,6 +40,7 @@ L.MSG.OVERWRITE .DA MSG.OVERWRITE
|
||||
.FIN
|
||||
L.MSG.OK .DA MSG.OK
|
||||
L.MSG.ERR .DA MSG.ERR
|
||||
L.MSG.CRLF .DA MSG.CRLF
|
||||
L.MSG.DONE .DA MSG.DONE
|
||||
L.STAT .DA STAT
|
||||
.DA 0
|
||||
@ -56,11 +57,12 @@ CS.INIT
|
||||
ldy #1
|
||||
lda (ZPPtr1),y
|
||||
|
||||
ldx OptionList
|
||||
ldx #OptionVars-OptionList-1
|
||||
|
||||
.2 cmp OptionList,x
|
||||
beq .3
|
||||
dex
|
||||
bne .2
|
||||
bpl .2
|
||||
|
||||
.99 >PUSHBI 0
|
||||
>LDYA L.MSG.USAGE
|
||||
@ -69,7 +71,7 @@ CS.INIT
|
||||
sec
|
||||
rts
|
||||
|
||||
.3 ldy OptionVars-1,x
|
||||
.3 ldy OptionVars,x
|
||||
lda #$80
|
||||
sta (pData),y
|
||||
bra .1
|
||||
@ -451,17 +453,12 @@ CS.RUN.OVERWRITE.MSG
|
||||
>LDYA L.MSG.OVERWRITE
|
||||
>SYSCALL printf
|
||||
rts
|
||||
CS.RUN.OVERWRITE.KEY
|
||||
|
||||
rts
|
||||
.FIN
|
||||
*--------------------------------------
|
||||
CS.RUN.CR lda #13
|
||||
>SYSCALL PutChar
|
||||
bcs .9
|
||||
lda #10
|
||||
>SYSCALL PutChar
|
||||
.9 rts
|
||||
CS.RUN.CR >PUSHBI 0
|
||||
>LDYA L.MSG.CRLF
|
||||
>SYSCALL printf
|
||||
rts
|
||||
*--------------------------------------
|
||||
.DO X.COPY.TO.DEST=1
|
||||
.DO X.DELETE.SOURCE=1
|
||||
@ -483,14 +480,13 @@ CS.RUN.Rename ldy #hDstFullPath
|
||||
CS.RUN.CopyStart
|
||||
ldy #hSrcFullPath
|
||||
lda #O.RDONLY
|
||||
|
||||
jsr CS.RUN.Open
|
||||
bcs .99
|
||||
|
||||
>STA.G hSrcFile
|
||||
|
||||
ldy #hDstFullPath
|
||||
lda #O.WRONLY+O.CREATE
|
||||
|
||||
jsr CS.RUN.Open
|
||||
bcs .9
|
||||
|
||||
@ -499,8 +495,7 @@ CS.RUN.CopyStart
|
||||
lda #$ff
|
||||
>STA.G bCopy
|
||||
inc
|
||||
|
||||
>LDA.G CopyRC Reset RC
|
||||
>STA.G CopyRC Reset RC
|
||||
clc
|
||||
rts
|
||||
|
||||
@ -508,9 +503,9 @@ CS.RUN.CopyStart
|
||||
>LDA.G hSrcFile
|
||||
>SYSCALL fclose
|
||||
pla
|
||||
|
||||
.99 >LDA.G CopyRC
|
||||
sec
|
||||
|
||||
.99 >STA.G CopyRC
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.Open phy Save Filename
|
||||
@ -581,16 +576,20 @@ CS.RUN.CopyEnd >LDA.G hSrcFile
|
||||
.FIN
|
||||
*--------------------------------------
|
||||
CS.RUN.CheckErr bcs .1
|
||||
|
||||
>LDA.G bQuiet
|
||||
bmi .8
|
||||
|
||||
>LDYA L.MSG.OK
|
||||
>SYSCALL puts
|
||||
.8 rts
|
||||
|
||||
.1 pha
|
||||
>PUSHA
|
||||
>PUSHBI 1
|
||||
>LDYA L.MSG.ERR
|
||||
>SYSCALL printf
|
||||
|
||||
>LDA.G bContinue
|
||||
eor #$80
|
||||
asl
|
||||
@ -656,8 +655,10 @@ CS.QUIT jsr LeaveSubDir
|
||||
.DO X.COPY.TO.DEST=1
|
||||
>LDA.G bCopy
|
||||
bpl .1
|
||||
|
||||
>LDA.G hSrcFile
|
||||
>SYSCALL fclose
|
||||
|
||||
>LDA.G hDstFile
|
||||
>SYSCALL fclose
|
||||
|
||||
|
||||
@ -106,30 +106,34 @@ Dev.Detect >STYA ARGS
|
||||
Dev.ParseArgs >LDYA ARGS
|
||||
>STYA ZPArgPTR
|
||||
lda (ZPArgPTR)
|
||||
bne .1
|
||||
|
||||
beq .8 No user MAC specified
|
||||
lda A2osX.RANDOM16
|
||||
eor A2osX.TIMER16
|
||||
sta DCB+S.DCB.NIC.MAC+3
|
||||
eor A2osX.RANDOM16+1
|
||||
sta DCB+S.DCB.NIC.MAC+4
|
||||
eor A2osX.TIMER16+1
|
||||
sta DCB+S.DCB.NIC.MAC+5
|
||||
clc
|
||||
rts
|
||||
|
||||
.1 ldx #10
|
||||
|
||||
ldx #10
|
||||
|
||||
.2 >PUSHW L.MAC0,x
|
||||
dex
|
||||
dex
|
||||
bpl .2
|
||||
|
||||
|
||||
>PUSHBI 12 6 x byte PTRs
|
||||
>PUSHW L.SSCANF.MAC
|
||||
>LDYA ZPArgPtr
|
||||
>SYSCALL sscanf
|
||||
bcs .9
|
||||
bcc .8
|
||||
|
||||
dec USERMAC
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
|
||||
.9 lda #E.SYN
|
||||
lda #E.SYN
|
||||
sec
|
||||
rts
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
ARGS .BS 2
|
||||
@ -267,17 +271,6 @@ OPEN lda #S.DIB.S.OPENED
|
||||
sta L91C96.1.CR+1,x
|
||||
|
||||
ldy #0
|
||||
bit USERMAC
|
||||
bmi .2
|
||||
|
||||
.1 lda L91C96.1.IAR,x
|
||||
sta DCB+S.DCB.NIC.MAC,y
|
||||
inx
|
||||
iny
|
||||
cpy #6
|
||||
bne .1
|
||||
|
||||
bra .3
|
||||
|
||||
.2 lda DCB+S.DCB.NIC.MAC,y
|
||||
sta L91C96.1.IAR,x
|
||||
@ -542,7 +535,6 @@ WRITE php
|
||||
*--------------------------------------
|
||||
DRV.CS.END
|
||||
DEVSLOTx0 .BS 1
|
||||
USERMAC .BS 1
|
||||
*--------------------------------------
|
||||
DIB .DA #0
|
||||
.DA #0,#0,#0 size
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
NEW
|
||||
AUTO 3,1
|
||||
|
||||
*--------------------------------------
|
||||
destroy jsr findfile look for file to be destroyed.
|
||||
bcs L4B66 if error.
|
||||
jsr tstopen is it open ?
|
||||
@ -385,9 +385,11 @@ L4DFE dex set proper bits to 1
|
||||
sta buftbl-1,x validated as good. store hi addr
|
||||
clc (entnums start at 1, not 0)
|
||||
rts
|
||||
|
||||
L4E1E lda #$56 buffer is in use or not legal
|
||||
sec
|
||||
rts
|
||||
|
||||
getbufadr tax index into global buffer table.
|
||||
lda buftbl-2,x
|
||||
sta bufaddrl
|
||||
|
||||
@ -47,6 +47,20 @@ TMP32 .EQ RESULT+1
|
||||
*--------------------------------------
|
||||
ZPTMP .EQ $67 ->$84 29 bytes
|
||||
*--------------------------------------
|
||||
* X.UNPAK temp ZP (with ZPPtr1 &ZPPtr2)
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR ZPTMP
|
||||
ZPInBufPtr .BS 2
|
||||
ZPOutBufPtr .BS 2
|
||||
|
||||
ZPnCnt .BS 2
|
||||
ZPInMask .BS 1
|
||||
ZPBLOfsLBits .BS 1
|
||||
ZPBLOfsHBits .BS 1
|
||||
ZPBLLenBits .BS 1
|
||||
.ED
|
||||
*--------------------------------------
|
||||
FORPNT .EQ $85 ->$86 Used in GETFAC
|
||||
FAC .EQ $9D ->$A1
|
||||
FAC.SIGN .EQ $A2
|
||||
@ -111,7 +125,7 @@ K.Buf256 .EQ $1100
|
||||
K.IOBuf .EQ $1200
|
||||
*--------------------------------------
|
||||
Mem.MHiMem .EQ A2osX.SYSCALL
|
||||
Mem.XHiMem .EQ A2osX.SYSCALL
|
||||
Mem.XHiMem .EQ $C000
|
||||
DevMgr.HiMem .EQ $FFFA Protect IRQ vectors in Aux LC
|
||||
*--------------------------------------
|
||||
H.BIN.T .EQ 0
|
||||
|
||||
@ -1,15 +0,0 @@
|
||||
NEW
|
||||
AUTO 3,1
|
||||
*--------------------------------------
|
||||
* SYSCALL (AUXLC to AUXLC)
|
||||
* Used by kernel for inter bank Calls from AUX
|
||||
* In:
|
||||
* X = SYSfnc.Index
|
||||
* Y,A = free for Inline param
|
||||
*--------------------------------------
|
||||
JMP *
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/SYS/KERNEL.S.GPX
|
||||
LOAD USR/SRC/SYS/KERNEL.S
|
||||
ASM
|
||||
@ -11,7 +11,7 @@ Kernel.Init2 sei
|
||||
|
||||
ldx #Kernel.ZP.S-1
|
||||
|
||||
.1 lda Kernel.ZP,x
|
||||
.1 lda Kernel.ZP,x
|
||||
sta CHARGET,x
|
||||
dex
|
||||
bpl .1
|
||||
@ -21,64 +21,104 @@ Kernel.Init2 sei
|
||||
jsr PrintFYA
|
||||
|
||||
>LDYAI A2osX.MAIN
|
||||
>STYA ZPPtr1
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI CORE.Run
|
||||
>STYA ZPPtr2
|
||||
>LDYAI A2osX.MAIN.S^$FFFF
|
||||
jsr Kernel.Move
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
* >LDYAI A2osX.MAIN
|
||||
* >STYA ZPPtr1
|
||||
* >LDYAI CORE.Run
|
||||
* >STYA ZPPtr2
|
||||
* >LDYAI A2osX.MAIN.S^$FFFF
|
||||
* jsr Kernel.Move
|
||||
|
||||
sta SETWRITEAUX
|
||||
|
||||
>LDYAI A2osX.AUX
|
||||
>STYA A1L Src Start Address (MAIN)
|
||||
>LDYAI A2osX.GP
|
||||
>STYA A2L Src End Address (MAIN)
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI X.OSD
|
||||
>STYA A4L Dst Address (AUX)
|
||||
sec Main To Aux
|
||||
jsr AuxMove
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
sta CLRWRITEAUX
|
||||
|
||||
* >LDYAI A2osX.AUX
|
||||
* >STYA A1L Src Start Address (MAIN)
|
||||
* >LDYAI A2osX.GP
|
||||
* >STYA A2L Src End Address (MAIN)
|
||||
* >LDYAI X.OSD
|
||||
* >STYA A4L Dst Address (AUX)
|
||||
* sec Main To Aux
|
||||
* jsr AuxMove
|
||||
|
||||
>LDYAI A2osX.GP
|
||||
>STYA ZPPtr1
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI A2osX.SYSCALL
|
||||
>STYA ZPPtr2
|
||||
>LDYAI A2osX.GP.S^$FFFF
|
||||
jsr Kernel.Move
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
>LDYAI A2osX.GPX
|
||||
>STYA A1L Src Start Address (MAIN)
|
||||
>LDYAI A2osX.D1
|
||||
>STYA A2L Src End Address (MAIN)
|
||||
>LDYAI A2osX.SYSCALL
|
||||
>STYA A4L Dst Address (AUX)
|
||||
sec Main To Aux
|
||||
jsr AuxMove
|
||||
* >LDYAI A2osX.GP
|
||||
* >STYA ZPPtr1
|
||||
* >LDYAI A2osX.SYSCALL
|
||||
* >STYA ZPPtr2
|
||||
* >LDYAI A2osX.GP.S^$FFFF
|
||||
* jsr Kernel.Move
|
||||
|
||||
* >LDYAI A2osX.GPX
|
||||
* >STYA A1L Src Start Address (MAIN)
|
||||
* >LDYAI A2osX.D1
|
||||
* >STYA A2L Src End Address (MAIN)
|
||||
* >LDYAI A2osX.SYSCALL
|
||||
* >STYA A4L Dst Address (AUX)
|
||||
* sec Main To Aux
|
||||
* jsr AuxMove
|
||||
|
||||
sta SETALTZP
|
||||
bit RRAMWRAMBNK2
|
||||
bit RRAMWRAMBNK2
|
||||
|
||||
>LDYAI A2osX.D2
|
||||
>STYA ZPPtr1
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI $D000
|
||||
>STYA ZPPtr2
|
||||
>LDYAI A2osX.D2.S^$FFFF
|
||||
jsr Kernel.Move
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
* >LDYAI A2osX.D2
|
||||
* >STYA ZPPtr1
|
||||
* >LDYAI $D000
|
||||
* >STYA ZPPtr2
|
||||
* >LDYAI A2osX.D2.S^$FFFF
|
||||
* jsr Kernel.Move
|
||||
|
||||
bit RRAMWRAMBNK1
|
||||
bit RRAMWRAMBNK1
|
||||
|
||||
>LDYAI A2osX.D1
|
||||
>STYA ZPPtr1
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI $D000
|
||||
>STYA ZPPtr2
|
||||
>LDYAI A2osX.D1.S^$FFFF
|
||||
jsr Kernel.Move
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
* >LDYAI A2osX.D1
|
||||
* >STYA ZPPtr1
|
||||
* >LDYAI $D000
|
||||
* >STYA ZPPtr2
|
||||
* >LDYAI A2osX.D1.S^$FFFF
|
||||
* jsr Kernel.Move
|
||||
|
||||
>LDYAI A2osX.E0
|
||||
>STYA ZPPtr1
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI $E000
|
||||
>STYA ZPPtr2
|
||||
>LDYAI A2osX.E0.S^$FFFF
|
||||
jsr Kernel.Move
|
||||
>STYA ZPOutBufPtr
|
||||
jsr X.Unpak
|
||||
|
||||
* >LDYAI A2osX.E0
|
||||
* >STYA ZPPtr1
|
||||
* >LDYAI $E000
|
||||
* >STYA ZPPtr2
|
||||
* >LDYAI A2osX.E0.S^$FFFF
|
||||
* jsr Kernel.Move
|
||||
|
||||
bit RROMBNK1
|
||||
sta CLRALTZP
|
||||
@ -152,8 +192,6 @@ Kernel.Init3C >PUSHBI 0
|
||||
|
||||
jsr CPU.Init.Z80
|
||||
|
||||
* >DEBUG
|
||||
|
||||
jsr DevMgrInit
|
||||
|
||||
jsr IrqMgrInit
|
||||
@ -201,23 +239,22 @@ Kernel.Init3.Err
|
||||
*--------------------------------------
|
||||
* INIT2 Subs
|
||||
*--------------------------------------
|
||||
Kernel.Move >STYA ZPPtr3
|
||||
*Kernel.Move >STYA ZPPtr3
|
||||
* ldy #0
|
||||
|
||||
ldy #0
|
||||
|
||||
.1 inc ZPPtr3
|
||||
bne .2
|
||||
inc ZPPtr3+1
|
||||
beq .9
|
||||
*.1 inc ZPPtr3
|
||||
* bne .2
|
||||
* inc ZPPtr3+1
|
||||
* beq .9
|
||||
|
||||
.2 lda (ZPPtr1),y
|
||||
sta (ZPPtr2),y
|
||||
iny
|
||||
bne .1
|
||||
inc ZPPtr1+1
|
||||
inc ZPPtr2+1
|
||||
bne .1
|
||||
.9 rts
|
||||
*.2 lda (ZPPtr1),y
|
||||
* sta (ZPPtr2),y
|
||||
* iny
|
||||
* bne .1
|
||||
* inc ZPPtr1+1
|
||||
* inc ZPPtr2+1
|
||||
* bne .1
|
||||
*.9 rts
|
||||
*--------------------------------------
|
||||
KConfigLoad >LDYAI MSG.KCREAD
|
||||
jsr PrintFYA
|
||||
@ -447,26 +484,36 @@ CPU.Init.6502 >PUSHBI 0
|
||||
php
|
||||
sei
|
||||
|
||||
clc
|
||||
lda MACHID
|
||||
and #MACHID.T
|
||||
eor #MACHID.T.IIc
|
||||
bne .1
|
||||
|
||||
sec
|
||||
.1 ror ZPPtr1 save //c flag
|
||||
|
||||
bpl .11
|
||||
|
||||
sta CLRIOUDIS
|
||||
lda IO.IIC.RDVBLMSK
|
||||
asl
|
||||
sta ZPPtr1+1 Save VBLIRQ enable
|
||||
|
||||
sta CLRIOUDIS
|
||||
sta IO.IIC.ENVBL
|
||||
|
||||
.1 bit VBL
|
||||
bpl .1
|
||||
.11 bit VBL
|
||||
bpl .11
|
||||
|
||||
.2 lda VBL
|
||||
bmi .2
|
||||
|
||||
ldx #2
|
||||
|
||||
.20 bit ZPPtr1 //c ?
|
||||
bpl .3
|
||||
|
||||
lda IO.IIC.CLRVBLIRQ yes, clear IRQ
|
||||
|
||||
.3 ldy #4 (2)
|
||||
|
||||
.4 dey (2)
|
||||
@ -489,16 +536,16 @@ CPU.Init.6502 >PUSHBI 0
|
||||
bpl .3 (2*)
|
||||
|
||||
dex
|
||||
bne .3
|
||||
bne .20
|
||||
|
||||
lda MACHID
|
||||
and #MACHID.T
|
||||
eor #MACHID.T.IIc
|
||||
bne .60
|
||||
bit ZPPtr1 //c ?
|
||||
|
||||
bpl .60
|
||||
|
||||
lda IO.IIC.CLRVBLIRQ
|
||||
lda IO.IIC.CLRVBLIRQ yes, clear IRQ
|
||||
|
||||
bcs .60
|
||||
bit ZPPtr1+1 Disable VBLIRQ ?
|
||||
bpl .60
|
||||
|
||||
sta IO.IIC.DISVBL
|
||||
|
||||
|
||||
@ -20,8 +20,19 @@ NEW
|
||||
.INB USR/SRC/SYS/KERNEL.S.DEF
|
||||
.INB USR/SRC/SYS/KERNEL.S.INIT
|
||||
.INB USR/SRC/SHARED/X.PRINTF.S
|
||||
.INB USR/SRC/SHARED/X.UNPAK.S
|
||||
|
||||
A2osX.MAIN .PH A2osX.EndTables
|
||||
PAKME.Table .DA A2osX.MAIN
|
||||
.DA A2osX.AUX
|
||||
.DA A2osX.GP
|
||||
* .DA A2osX.GPX
|
||||
.DA A2osX.D1
|
||||
.DA A2osX.D2
|
||||
.DA A2osX.E0
|
||||
|
||||
A2osX.MAIN .DA #0
|
||||
.DA A2osX.MAIN.S
|
||||
.PH A2osX.EndTables
|
||||
.INB USR/SRC/SYS/KERNEL.S.CORE
|
||||
.INB USR/SRC/SYS/KERNEL.S.DRV
|
||||
.INB USR/SRC/SYS/KERNEL.S.TERM
|
||||
@ -29,7 +40,10 @@ A2osX.MAIN .PH A2osX.EndTables
|
||||
Mem.MLoMem .EQ *
|
||||
.LIST OFF
|
||||
.EP
|
||||
A2osX.AUX .PH $1000
|
||||
|
||||
A2osX.AUX .DA #0
|
||||
.DA A2osX.AUX.S
|
||||
.PH $1000
|
||||
.INB USR/SRC/SYS/KERNEL.S.OSDX
|
||||
.INB USR/SRC/SYS/KERNEL.S.SLISTX
|
||||
.INB USR/SRC/SYS/KERNEL.S.PWDX
|
||||
@ -37,13 +51,18 @@ A2osX.AUX .PH $1000
|
||||
Mem.XLoMem .EQ *
|
||||
.LIST OFF
|
||||
.EP
|
||||
A2osX.GP .PH A2osX.SYSCALL
|
||||
|
||||
A2osX.GP .DA #0
|
||||
.DA A2osX.GP.S
|
||||
.PH A2osX.SYSCALL
|
||||
.INB USR/SRC/SYS/KERNEL.S.GP
|
||||
.EP
|
||||
A2osX.GPX .PH A2osX.SYSCALL
|
||||
.INB USR/SRC/SYS/KERNEL.S.GPX
|
||||
.EP
|
||||
A2osX.D1 .PH $D000
|
||||
*A2osX.GPX .PH A2osX.SYSCALL
|
||||
* .INB USR/SRC/SYS/KERNEL.S.GPX
|
||||
* .EP
|
||||
A2osX.D1 .DA #0
|
||||
.DA A2osX.D1.S
|
||||
.PH $D000
|
||||
.DA #RRAMWRAMBNK1
|
||||
.INB USR/SRC/SYS/KERNEL.S.STAT
|
||||
.INB USR/SRC/SYS/KERNEL.S.DIRENT
|
||||
@ -54,7 +73,9 @@ A2osX.D1 .PH $D000
|
||||
.INB USR/SRC/SYS/KERNEL.S.FIO
|
||||
.INB USR/SRC/SYS/KERNEL.S.PFT
|
||||
.EP
|
||||
A2osX.D2 .PH $D000
|
||||
A2osX.D2 .DA #0
|
||||
.DA A2osX.D2.S
|
||||
.PH $D000
|
||||
.DA #RRAMWRAMBNK2
|
||||
.INB USR/SRC/SYS/KERNEL.S.STRING
|
||||
.INB USR/SRC/SYS/KERNEL.S.TIME
|
||||
@ -63,7 +84,9 @@ A2osX.D2 .PH $D000
|
||||
.INB USR/SRC/SYS/KERNEL.S.ARG
|
||||
.INB USR/SRC/SYS/KERNEL.S.ENV
|
||||
.EP
|
||||
A2osX.E0 .PH $E000
|
||||
A2osX.E0 .DA #0
|
||||
.DA A2osX.E0.S
|
||||
.PH $E000
|
||||
.INB USR/SRC/SYS/KERNEL.S.JMP
|
||||
.INB USR/SRC/SYS/KERNEL.S.IRQ
|
||||
.INB USR/SRC/SYS/KERNEL.S.MEM
|
||||
@ -71,8 +94,8 @@ A2osX.E0 .PH $E000
|
||||
.INB USR/SRC/SYS/KERNEL.S.TERMLC
|
||||
.INB USR/SRC/SYS/KERNEL.S.SHARED
|
||||
.INB USR/SRC/SYS/KERNEL.S.STDIO2
|
||||
.INB USR/SRC/SYS/KERNEL.S.PWD
|
||||
********* TMP ***** go to A2osX.D1
|
||||
.INB USR/SRC/SYS/KERNEL.S.PWD
|
||||
********* TMP ***** go to A2osX.D1
|
||||
.INB USR/SRC/SYS/KERNEL.S.IO
|
||||
.INB USR/SRC/SYS/KERNEL.S.PIPE
|
||||
********* TMP ***** go to A2osX.D2
|
||||
@ -87,6 +110,12 @@ DevMgr.FreeMem .EQ *
|
||||
.LIST OFF
|
||||
.EP
|
||||
A2osX.E0.E .EQ *
|
||||
*--------------------------------------
|
||||
.AS "PAKME"
|
||||
* .DA #7
|
||||
.DA #7
|
||||
.DA PAKME.Table-$2000
|
||||
*--------------------------------------
|
||||
.INB USR/SRC/SYS/KERNEL.S.CTRL
|
||||
MAN
|
||||
SAVE USR/SRC/SYS/KERNEL.S
|
||||
|
||||
@ -4,7 +4,7 @@ AUTO 4,1
|
||||
.LIST OFF
|
||||
.OP 65C02
|
||||
.OR $2000
|
||||
.TF SYS/KM.APPLETALK
|
||||
.TF SYS/KM/KM.APPLETALK
|
||||
*--------------------------------------
|
||||
.INB INC/MACROS.I
|
||||
.INB INC/IO.I
|
||||
@ -52,6 +52,7 @@ AT.INIT >LDYAI MSG.INIT
|
||||
lda TmpPtr1+1
|
||||
cmp #$C0
|
||||
bne .1
|
||||
|
||||
>LDYAI MSG.NOHW
|
||||
jsr PrintFYA
|
||||
rts
|
||||
@ -78,10 +79,12 @@ AT.INIT >LDYAI MSG.INIT
|
||||
|
||||
.5 >LDYAI MSG.ATINIT
|
||||
jsr PrintFYA
|
||||
|
||||
jsr GO.WSCARD
|
||||
.DA #MLIATALK
|
||||
.DA MLIATALK.PARAMS
|
||||
bcs .9
|
||||
|
||||
>LDYAI MSG.IRQ
|
||||
jsr PrintFYA
|
||||
|
||||
@ -98,6 +101,7 @@ AT.INIT >LDYAI MSG.INIT
|
||||
.DA #MLIGETPREFIX
|
||||
.DA MLIGETPREFIX.PARAMS
|
||||
bcs .9
|
||||
|
||||
>LDYAI MSG.PREFIX2
|
||||
jsr PrintFYA
|
||||
|
||||
@ -105,9 +109,11 @@ AT.INIT >LDYAI MSG.INIT
|
||||
.DA #MLISETPREFIX
|
||||
.DA MLIGETPREFIX.PARAMS
|
||||
bcs .9
|
||||
|
||||
>LDYAI MSG.OK
|
||||
jsr PrintFYA
|
||||
rts
|
||||
|
||||
.9 pha
|
||||
>LDYAI MSG.KO
|
||||
jsr PrintFYA
|
||||
|
||||
@ -4,7 +4,7 @@ AUTO 4,1
|
||||
.LIST OFF
|
||||
.OP 65C02
|
||||
.OR $2000
|
||||
.TF SYS/KM.NSC
|
||||
.TF SYS/KM/KM.NSC
|
||||
*--------------------------------------
|
||||
.INB INC/MACROS.I
|
||||
.INB INC/IO.I
|
||||
|
||||
Loading…
Reference in New Issue
Block a user