mirror of
https://github.com/A2osX/A2osX.git
synced 2024-09-10 22:54:59 +00:00
Kernel version 0.9 : ASM, resuming....
This commit is contained in:
parent
8702d8c4e1
commit
9989495ab7
Binary file not shown.
Binary file not shown.
@ -332,7 +332,7 @@ SYM.NewGBlock2 >LDYAI 256
|
|||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
clc
|
clc
|
||||||
adc #SYM.hGBlocks
|
adc #SYM.hGBlocks-1
|
||||||
tay
|
tay
|
||||||
|
|
||||||
txa
|
txa
|
||||||
|
@ -170,10 +170,9 @@ CS.INIT >SYSCALL GetArgC
|
|||||||
|
|
||||||
jsr DIR.Init
|
jsr DIR.Init
|
||||||
|
|
||||||
lda (pPs)
|
* lda (pPs)
|
||||||
ora #S.PS.F.EVENT
|
* ora #S.PS.F.EVENT
|
||||||
sta (pPs)
|
* sta (pPs)
|
||||||
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -183,15 +182,22 @@ CS.INIT >SYSCALL GetArgC
|
|||||||
sec
|
sec
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN ldy #bCANCEL
|
CS.RUN >SYSCALL GetC
|
||||||
lda (pData),y
|
bcs .11 no char
|
||||||
bne .99
|
|
||||||
|
|
||||||
ldy #bSTOP
|
cmp #$03 Ctrl-C
|
||||||
|
beq .99 Abort....
|
||||||
|
|
||||||
|
cmp #$13 Ctrl-S
|
||||||
|
bne .11
|
||||||
|
|
||||||
|
ldy #bPause
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
|
eor #$ff
|
||||||
|
sta (pData),y
|
||||||
bne .8
|
bne .8
|
||||||
|
|
||||||
ldy #SRC.COUNT root file is already opened?
|
.11 ldy #SRC.COUNT root file is already opened?
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
bne .10
|
bne .10
|
||||||
|
|
||||||
@ -208,7 +214,8 @@ CS.RUN ldy #bCANCEL
|
|||||||
jsr FIO.OpenFileA
|
jsr FIO.OpenFileA
|
||||||
bcs .99
|
bcs .99
|
||||||
|
|
||||||
.10 jsr FIO.ReadLine
|
.10 stz UsrBuf256
|
||||||
|
jsr FIO.ReadLine
|
||||||
bcc .2
|
bcc .2
|
||||||
cmp #$4C End Of File?
|
cmp #$4C End Of File?
|
||||||
bne .9
|
bne .9
|
||||||
@ -246,6 +253,7 @@ CS.RUN ldy #bCANCEL
|
|||||||
|
|
||||||
.9 pha
|
.9 pha
|
||||||
jsr SRC.PrintLineErr
|
jsr SRC.PrintLineErr
|
||||||
|
|
||||||
pla
|
pla
|
||||||
pha
|
pha
|
||||||
>PUSHA
|
>PUSHA
|
||||||
@ -256,44 +264,14 @@ CS.RUN ldy #bCANCEL
|
|||||||
sec
|
sec
|
||||||
rts
|
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
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.QUIT jsr FIO.FileClose
|
CS.QUIT jsr FIO.FileClose
|
||||||
bne CS.QUIT
|
bne CS.QUIT
|
||||||
|
|
||||||
|
>DEBUG
|
||||||
|
|
||||||
jsr SYM.Quit
|
jsr SYM.Quit
|
||||||
|
|
||||||
ldy #ASM.T.hMem
|
ldy #ASM.T.hMem
|
||||||
@ -473,8 +451,7 @@ SRC.FLabel.Name .BS SRC.GLABEL.MAXLEN
|
|||||||
.DUMMY
|
.DUMMY
|
||||||
.OR 0
|
.OR 0
|
||||||
DS.START
|
DS.START
|
||||||
bSTOP .BS 1
|
bPause .BS 1
|
||||||
bCANCEL .BS 1
|
|
||||||
|
|
||||||
SRC.hFILENAME .BS 1
|
SRC.hFILENAME .BS 1
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user