mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-01 00:29:12 +00:00
Kernel 0.92+
This commit is contained in:
parent
8475d1ddda
commit
7c93dbacfc
Binary file not shown.
@ -113,37 +113,35 @@ CS.RUN
|
|||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
|
|
||||||
CS.RUN.LOOP jsr CS.RUN.GETLINE
|
CS.RUN.LOOP jsr CS.RUN.GETLINE
|
||||||
bcs .13
|
bcs .9
|
||||||
|
|
||||||
.1 >INCW.G LineNum
|
.1 >INCW.G LineNum
|
||||||
|
|
||||||
>LDA.G LineCount
|
>LDA.G LineCount
|
||||||
bne .22
|
bne .2
|
||||||
>LDA.G bPage
|
>LDA.G bPage
|
||||||
beq .22
|
beq .2
|
||||||
|
|
||||||
lda #C.FF
|
lda #C.FF
|
||||||
>SYSCALL putchar
|
>SYSCALL putchar
|
||||||
|
|
||||||
.22 jsr CS.RUN.PRINT
|
.2 jsr CS.RUN.PRINT
|
||||||
|
|
||||||
>INC.G LineCount
|
>INC.G LineCount
|
||||||
cmp #PG.SIZE
|
cmp #PG.SIZE
|
||||||
bne .8
|
bne CS.RUN.LOOP
|
||||||
lda #0
|
lda #0
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
jsr CS.RUN.PAUSE
|
jsr CS.RUN.PAUSE
|
||||||
bcs .9
|
bcc CS.RUN.LOOP
|
||||||
|
|
||||||
.8 jmp CS.RUN.LOOP
|
.9 cmp #MLI.E.EOF
|
||||||
|
bne .99
|
||||||
.13 cmp #MLI.E.EOF
|
|
||||||
bne .9
|
|
||||||
|
|
||||||
lda #0 Exit with no Error
|
lda #0 Exit with no Error
|
||||||
.9 sec
|
.99 sec
|
||||||
.99 rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.OPEN pha
|
CS.RUN.OPEN pha
|
||||||
|
|
||||||
|
@ -38,7 +38,7 @@ IO.Reset.In >LDA.G IO.hIn
|
|||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>DEBUG
|
|
||||||
>SYSCALL fclose
|
>SYSCALL fclose
|
||||||
|
|
||||||
pla
|
pla
|
||||||
@ -100,7 +100,7 @@ IO.Reset.Out >LDA.G IO.hOut
|
|||||||
|
|
||||||
ldy #S.PS.hStdOut
|
ldy #S.PS.hStdOut
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
>DEBUG
|
|
||||||
>SYSCALL fclose
|
>SYSCALL fclose
|
||||||
|
|
||||||
pla
|
pla
|
||||||
|
@ -519,7 +519,20 @@ CORE.PSFree sta .10+1 Save PS ID
|
|||||||
bcs .9
|
bcs .9
|
||||||
>STYA ZPPtr1
|
>STYA ZPPtr1
|
||||||
|
|
||||||
ldy #S.PS.hSS
|
ldy #S.PS.hStdOut
|
||||||
|
lda (ZPPtr1),y
|
||||||
|
tax
|
||||||
|
lda OF.Table.hFD,x
|
||||||
|
jsr K.GetMemPtr
|
||||||
|
>STYA pFD
|
||||||
|
lda (pFD)
|
||||||
|
cmp #S.FD.T.PIPE
|
||||||
|
bne .11
|
||||||
|
|
||||||
|
txa
|
||||||
|
>SYSCALL fclose
|
||||||
|
|
||||||
|
.11 ldy #S.PS.hSS
|
||||||
jsr .8
|
jsr .8
|
||||||
|
|
||||||
ldy #S.PS.hDS
|
ldy #S.PS.hDS
|
||||||
|
@ -431,8 +431,6 @@ IO.READ.PIPE ldy #S.FD.PIPE.S
|
|||||||
jsr K.GetMemPtr
|
jsr K.GetMemPtr
|
||||||
>STYA .2+1
|
>STYA .2+1
|
||||||
|
|
||||||
* >DEBUG
|
|
||||||
|
|
||||||
ldy #S.FD.PIPE.Head
|
ldy #S.FD.PIPE.Head
|
||||||
lda (pFD),y
|
lda (pFD),y
|
||||||
sta .4+1
|
sta .4+1
|
||||||
@ -552,8 +550,6 @@ IO.WRITE.PIPE ldy #S.FD.PIPE.S
|
|||||||
jsr K.GetMemPtr
|
jsr K.GetMemPtr
|
||||||
>STYA .3+1
|
>STYA .3+1
|
||||||
|
|
||||||
* >DEBUG
|
|
||||||
|
|
||||||
ldy #S.FD.PIPE.Head
|
ldy #S.FD.PIPE.Head
|
||||||
lda (pFD),y
|
lda (pFD),y
|
||||||
tay
|
tay
|
||||||
@ -683,8 +679,7 @@ IO.EOF.SSOCK
|
|||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.EOF.PIPE >DEBUG
|
IO.EOF.PIPE
|
||||||
|
|
||||||
lda #MLI.E.IO
|
lda #MLI.E.IO
|
||||||
sec
|
sec
|
||||||
rts
|
rts
|
||||||
|
Loading…
Reference in New Issue
Block a user