Kernel version 0.9 : ASM, resuming....

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

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)
+*					lda (pPs)
-					ora #S.PS.F.EVENT
+*					ora #S.PS.F.EVENT
-					sta (pPs)
+*					sta (pPs)
-
 					clc
 					rts
 					
@@ -183,15 +182,22 @@ CS.INIT				>SYSCALL GetArgC
 					sec
 .9					rts
 *--------------------------------------
-CS.RUN				ldy #bCANCEL
+CS.RUN				>SYSCALL GetC
-					lda (pData),y
+					bcs .11				no char
-					bne .99
+				
+					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?
+CS.DOEVENT			sec
-					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
 					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
+bPause				.BS 1
-bCANCEL				.BS 1
 
 SRC.hFILENAME		.BS 1