Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-07-09 21:45:51 +02:00
parent 44eb7b8a82
commit 563205dab0
2 changed files with 6 additions and 2 deletions

Binary file not shown.

View File

@ -91,6 +91,7 @@ L.IRC.JOIN .DA IRC.JOIN
L.IRC.JOINKEY .DA IRC.JOINKEY L.IRC.JOINKEY .DA IRC.JOINKEY
L.IRC.PONG .DA IRC.PONG L.IRC.PONG .DA IRC.PONG
L.IRC.PART .DA IRC.PART L.IRC.PART .DA IRC.PART
L.IRC.PRIVMSG .DA IRC.PRIVMSG
L.SEQ.INIT .DA SEQ.INIT L.SEQ.INIT .DA SEQ.INIT
L.SEQ.BAR .DA SEQ.BAR L.SEQ.BAR .DA SEQ.BAR
L.SEQ.TXTCLR .DA SEQ.TXTCLR L.SEQ.TXTCLR .DA SEQ.TXTCLR
@ -849,7 +850,8 @@ CS.RUN.CHARIN.CTRL
bit bJoin bit bJoin
bpl .8 bpl .8
>PUSHW L.SEQ.PRIVMSG >PUSHB hFile
>PUSHW L.IRC.PRIVMSG
lda #4 channel lda #4 channel
>SYSCALL ArgV >SYSCALL ArgV
@ -857,7 +859,7 @@ CS.RUN.CHARIN.CTRL
>PUSHW ZPTextPtr >PUSHW ZPTextPtr
>PUSHBI 4 >PUSHBI 4
>SYSCALL PrintF >SYSCALL FPrintF
bcs .9 bcs .9
jmp CS.RUN.TXTCLR jmp CS.RUN.TXTCLR
@ -874,6 +876,8 @@ CS.RUN.CHARIN.CTRL
>PUSHBI 2 >PUSHBI 2
>SYSCALL FPrintF >SYSCALL FPrintF
>SLEEP
lda #3 lda #3
sec sec
rts rts