diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 57ecb8c0..bcc98a18 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/BIN/EDIT.S.FILE.txt b/BIN/EDIT.S.FILE.txt index 29c0a630..59d2f4a6 100644 --- a/BIN/EDIT.S.FILE.txt +++ b/BIN/EDIT.S.FILE.txt @@ -8,21 +8,11 @@ NewFile stz FileLen clc rts *-------------------------------------- -LoadFile >PUSHWZ Aux type - >PUSHBZ Type - >PUSHBI O.RDONLY +LoadFile >PUSHEA.G STATBUF >LDA.G hFileName >SYSCALL GetMemPtr - >SYSCALL fopen + >SYSCALL stat bcs NewFile - - txa - >STA.G hFile - - >PUSHEA.G STATBUF - >LDA.G hFile - >SYSCALL fstat - bcs .9 >LDA.G STATBUF+S.STAT.P.TYPE cmp #S.FI.T.TXT @@ -31,9 +21,6 @@ LoadFile >PUSHWZ Aux type bne .91 jmp LoadFile.ASM - - >LDA.G hFile - >SYSCALL fclose .91 lda #MLI.E.INCFF sec @@ -99,7 +86,23 @@ LoadFile >PUSHWZ Aux type sec rts *-------------------------------------- -LoadFile.TXT stz +LoadFile.TXT stz FileLen + stz FileLen+1 + + >PUSHWZ Aux type + >PUSHBI S.FI.T.TXT + >PUSHBI O.RDONLY+O.TEXT + >LDA.G hFileName + >SYSCALL GetMemPtr + >SYSCALL fopen + bcs .9 + + txa + >STA.G hFile + + + +.9 rts *-------------------------------------- LoadFile.ASM lda #MLI.E.INCFF diff --git a/BIN/EDIT.S.SCRN.txt b/BIN/EDIT.S.SCRN.txt index 8bc8feba..8d6fa725 100644 --- a/BIN/EDIT.S.SCRN.txt +++ b/BIN/EDIT.S.SCRN.txt @@ -2,14 +2,7 @@ NEW AUTO 3,1 .LIST OFF *-------------------------------------- -SCRN.Init >LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0 - >SYSCALL Getmem - bcs .9 - >STYA LineBufPtr - txa - >STA.G hLineBuffer - - >LDA.G ScreenH +SCRN.Init >LDA.G ScreenH dec >PUSHA >PUSHBI 1 diff --git a/BIN/EDIT.S.txt b/BIN/EDIT.S.txt index 6312e30e..82979731 100644 --- a/BIN/EDIT.S.txt +++ b/BIN/EDIT.S.txt @@ -137,6 +137,13 @@ CS.RUN >PUSHBI 0 >LDA.G ScreenW Wait for Response from terminal for W & H beq .1 + >LDYAI 510+5+5+4+1 potentially 255*\\ NORM,INV,CEOL & \0 + >SYSCALL Getmem + bcs CS.RUN.RTS + >STYA LineBufPtr + txa + >STA.G hLineBuffer + lda #1 >SYSCALL ArgV bcs .2 No arg, new file.... diff --git a/ProDOS.FX/ProDOS.S.LDR.txt b/ProDOS.FX/ProDOS.S.LDR.txt index 1b4ea275..2a3decd6 100644 --- a/ProDOS.FX/ProDOS.S.LDR.txt +++ b/ProDOS.FX/ProDOS.S.LDR.txt @@ -215,6 +215,13 @@ m128k sta idapple Save MACHID in temp location LDR.IIGS stz vmode force setvid to reset cursor jsr setvid reset output to screen + lda #calldisp + sta cortdisp + lda /calldisp + sta cortdisp+1 + lda #1 + sta cortflag + ldx PAKME.CCLK ldy PAKME.CCLK+1 jsr LDR.SetupCLK @@ -556,7 +563,6 @@ LDR.ClkDevScan php jmp LDR.SetupCLK LDR.ClkDevTCLK lda CLRC8ROM switch out $C8 ROMs - ldy #$05 stz idxl lda #$C1 diff --git a/ProDOS.FX/ProDOS.S.XDOS.F.txt b/ProDOS.FX/ProDOS.S.XDOS.F.txt index 499477e4..36bc5dcf 100644 --- a/ProDOS.FX/ProDOS.S.XDOS.F.txt +++ b/ProDOS.FX/ProDOS.S.XDOS.F.txt @@ -761,16 +761,16 @@ spvectlo .HS 0000000000000000 storage for low byte of smartport entry. spvecthi .HS 0000000000000000 storage for high byte of smartport entry. .HS 00000000000000 -cortflag .HS 00 cortland flag. 1 = Cortland system (must stay within page boundary) - XDOS.DATA.LEN .EQ *-XDOS.DATA .ED * zero fill to page boundary - 3 ($FEFD). so that cortland flag stays within page boundary. .LIST ON -XDOS.FREE .EQ $FF00-*-XDOS.DATA.LEN (ProDOS 2.0.3 = $0C) +XDOS.FREE .EQ $FEFD-*-XDOS.DATA.LEN (ProDOS 2.0.3 = $0C) .LIST OFF +cortdisp .EQ $FEFD +cortflag .EQ $FEFF cortland flag. 1 = Cortland system (must stay within page boundary) *-------------------------------------- XDOS.LEN .EQ *-XDOS.START MAN