diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po index 85bfae14..3096e12c 100644 Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ diff --git a/.Floppies/A2OSX.SRC.po b/.Floppies/A2OSX.SRC.po index f393de5b..8235e970 100644 Binary files a/.Floppies/A2OSX.SRC.po and b/.Floppies/A2OSX.SRC.po differ diff --git a/BIN/ASM.S.SYM.txt b/BIN/ASM.S.SYM.txt index 4904a78d..8cf59f08 100644 --- a/BIN/ASM.S.SYM.txt +++ b/BIN/ASM.S.SYM.txt @@ -332,7 +332,7 @@ SYM.NewGBlock2 >LDYAI 256 sta (pData),y clc - adc #SYM.hGBlocks + adc #SYM.hGBlocks-1 tay txa diff --git a/BIN/ASM.S.txt b/BIN/ASM.S.txt index ed388398..f73b1e1b 100644 --- a/BIN/ASM.S.txt +++ b/BIN/ASM.S.txt @@ -164,16 +164,15 @@ CS.INIT >SYSCALL GetArgC jsr FIO.Init bcs .9 - + jsr SYM.Init bcs .9 - + jsr DIR.Init - lda (pPs) - ora #S.PS.F.EVENT - sta (pPs) - +* lda (pPs) +* ora #S.PS.F.EVENT +* sta (pPs) clc rts @@ -183,15 +182,22 @@ CS.INIT >SYSCALL GetArgC sec .9 rts *-------------------------------------- -CS.RUN ldy #bCANCEL - lda (pData),y - bne .99 +CS.RUN >SYSCALL GetC + bcs .11 no char + + cmp #$03 Ctrl-C + beq .99 Abort.... + + cmp #$13 Ctrl-S + bne .11 - ldy #bSTOP + ldy #bPause lda (pData),y + eor #$ff + sta (pData),y bne .8 - - ldy #SRC.COUNT root file is already opened? + +.11 ldy #SRC.COUNT root file is already opened? lda (pData),y bne .10 @@ -208,7 +214,8 @@ CS.RUN ldy #bCANCEL jsr FIO.OpenFileA bcs .99 -.10 jsr FIO.ReadLine +.10 stz UsrBuf256 + jsr FIO.ReadLine bcc .2 cmp #$4C End Of File? bne .9 @@ -246,6 +253,7 @@ CS.RUN ldy #bCANCEL .9 pha jsr SRC.PrintLineErr + pla pha >PUSHA @@ -256,44 +264,14 @@ CS.RUN ldy #bCANCEL sec rts *-------------------------------------- -CS.DOEVENT ldy #S.EVT.hDEV is Event from active IN device? - lda (pEvent),y - ldy #S.PS.hStdIn - cmp (pPs),y - bne .9 - lda (pEvent) - and #S.EVT.F.KEY is it a KEY event? - beq .9 - ldy #S.EVT.DATAHI is it an O or SAPPLE key ? - lda (pEvent),y - bne .9 - ldy #S.EVT.DATALO - lda (pEvent),y - cmp #$03 Ctrl-C - bne .1 - - lda #$FF - ldy #bCANCEL - sta (pData),y - bra .8 - -.1 cmp #$13 Ctrl-S - bne .8 - - ldy #bSTOP - lda (pData),y - eor #$FF - sta (pData),y - -.8 clc - rts - -.9 sec +CS.DOEVENT sec rts *-------------------------------------- CS.QUIT jsr FIO.FileClose bne CS.QUIT + >DEBUG + jsr SYM.Quit ldy #ASM.T.hMem @@ -473,8 +451,7 @@ SRC.FLabel.Name .BS SRC.GLABEL.MAXLEN .DUMMY .OR 0 DS.START -bSTOP .BS 1 -bCANCEL .BS 1 +bPause .BS 1 SRC.hFILENAME .BS 1