diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po index 77f7b3c9..fba51a1d 100644 Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index bd7712f5..c14e27ae 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.TEST.po b/.Floppies/A2OSX.TEST.po index 0c33d3e1..ff6051dc 100644 Binary files a/.Floppies/A2OSX.TEST.po and b/.Floppies/A2OSX.TEST.po differ diff --git a/BIN/CP.S.txt b/BIN/CP.S.txt index 0aa1bcb7..94e83799 100644 --- a/BIN/CP.S.txt +++ b/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 diff --git a/BIN/MV.S.txt b/BIN/MV.S.txt index 623577a7..91364da5 100644 --- a/BIN/MV.S.txt +++ b/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 diff --git a/BIN/PAK.S.txt b/BIN/PAK.S.txt index 785df07c..e5de0322 100644 --- a/BIN/PAK.S.txt +++ b/BIN/PAK.S.txt @@ -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 diff --git a/BIN/RM.S.txt b/BIN/RM.S.txt index f31414fb..2e344183 100644 --- a/BIN/RM.S.txt +++ b/BIN/RM.S.txt @@ -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 diff --git a/BIN/X.CPMVRM.S.txt b/BIN/X.CPMVRM.S.txt index f759df32..b78225e8 100644 --- a/BIN/X.CPMVRM.S.txt +++ b/BIN/X.CPMVRM.S.txt @@ -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 diff --git a/DRV/LANCEGS.DRV.S.txt b/DRV/LANCEGS.DRV.S.txt index b324ea3c..ada7b84a 100644 --- a/DRV/LANCEGS.DRV.S.txt +++ b/DRV/LANCEGS.DRV.S.txt @@ -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 diff --git a/ProDOS.FX/ProDOS.S.XDOS.F.txt b/ProDOS.FX/ProDOS.S.XDOS.F.txt index 31fc9bab..46f1019a 100644 --- a/ProDOS.FX/ProDOS.S.XDOS.F.txt +++ b/ProDOS.FX/ProDOS.S.XDOS.F.txt @@ -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 diff --git a/SYS/KERNEL.S.DEF.txt b/SYS/KERNEL.S.DEF.txt index 6bfe3894..6b2e1da9 100644 --- a/SYS/KERNEL.S.DEF.txt +++ b/SYS/KERNEL.S.DEF.txt @@ -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 diff --git a/SYS/KERNEL.S.GPX.txt b/SYS/KERNEL.S.GPX.txt deleted file mode 100644 index 6fcd78d1..00000000 --- a/SYS/KERNEL.S.GPX.txt +++ /dev/null @@ -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 diff --git a/SYS/KERNEL.S.INIT.txt b/SYS/KERNEL.S.INIT.txt index d7a5d3f6..406d7d83 100644 --- a/SYS/KERNEL.S.INIT.txt +++ b/SYS/KERNEL.S.INIT.txt @@ -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 diff --git a/SYS/KERNEL.S.txt b/SYS/KERNEL.S.txt index 8205b5b6..23e78de7 100644 --- a/SYS/KERNEL.S.txt +++ b/SYS/KERNEL.S.txt @@ -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 diff --git a/SYS/KM.APPLETALK.S.txt b/SYS/KM.APPLETALK.S.txt index 64dab983..3a596776 100644 --- a/SYS/KM.APPLETALK.S.txt +++ b/SYS/KM.APPLETALK.S.txt @@ -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 diff --git a/SYS/KM.NSC.S.txt b/SYS/KM.NSC.S.txt index 4dd4d61f..d5063de9 100644 --- a/SYS/KM.NSC.S.txt +++ b/SYS/KM.NSC.S.txt @@ -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