Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-03-04 07:39:08 +01:00
parent d0ec5bfb2c
commit d1d514c00d
4 changed files with 15 additions and 13 deletions

Binary file not shown.

View File

@ -349,17 +349,17 @@ EXP.OP.SUB ldx #0 ARG-ACC->ACC
.8 clc
rts
*---------------------------------------
EXP.OP.MUL >PUSHL L.SRC.ARG
>PUSHL L.SRC.ACC
EXP.OP.MUL >PUSHL SRC.ARG
>PUSHL SRC.ACC
>FPU MUL32
>PULLL L.SRC.ACC
>PULLL SRC.ACC
clc
rts
*---------------------------------------
EXP.OP.DIV >PUSHL L.SRC.ARG
>PUSHL L.SRC.ACC
EXP.OP.DIV >PUSHL SRC.ARG
>PUSHL SRC.ACC
>FPU DIV32
>PULLL L.SRC.ACC
>PULLL SRC.ACC
clc
rts
*---------------------------------------

View File

@ -85,6 +85,7 @@ E.MACRO.TOO.BIG .EQ $B4
E.MACRO.INV .EQ $B5
E.MACRO.TOO.MANY .EQ $B6
*
E.INV.SYM .EQ $B9
E.INV.ARGS .EQ $BA
E.INV.T.FILE .EQ $BC
E.SRC.INV.TYPE .EQ $BD
@ -395,10 +396,6 @@ CS.RUN ldy #S.PS.hStdIn
.9 pha
jsr OUT.PrintLineErr
jsr SYM.Dump.GLP
jsr SYM.StoreGlobal Make sure last Global flushed
* jsr SYM.Dump.1
pla
sec
rts
@ -530,10 +527,10 @@ MSG.EQU3 .AZ " [ %h%h%h] "
MSG.EQU4 .AZ " [%h%h%h%h] "
MSG.LINENUM .AZ " %05D "
MSG.ERROR .AZ "**** Fatal Error $%h"
MSG.SYMBOLS .AZ "Symbol Table:"
MSG.SYMBOLS .AZ "**** Symbol Table:"
MSG.LSYMBOL .AZ " .%d=%h%h%h%h"
MSG.PSYMBOL .AZ " :%d(%d)=%h%h%h%h"
MSG.SUMMARY .AZ "\r\nSymbol Table Size : %5D Bytes.\r\n"
MSG.SUMMARY .AZ "\r\n**** Symbol Table Size : %5D Bytes.\r\n"
MSG.END .AZ "**** End Of Assembly."
MSG.DEBUG .AZ "PC=%h%h%h%h, ACC=%h%h%h%h [%h] F:%b ARG=%h%h%h%h [%h]\r\n"
MSG.WORD .AZ "ID:%H "

View File

@ -81,6 +81,7 @@ MATH32.UDIV32 clc
MATH32.IDIV32 sec
clv
bra MATH32.DIVMOD
MATH32.UMOD32 clc
.HS B0 BCS
MATH32.IMOD32 sec
@ -92,20 +93,24 @@ MATH32.DIVMOD php
plp
bcc .3 unsigned
bvs MATH32.RETURN.ITMP IMOD
lda ACC32.Sign IDIV
eor ARG32.Sign
bpl MATH32.PutARG32
bra MATH32.PutNotARG32
.3 bvs MATH32.PutARG32 DIV
.3 bvc MATH32.PutARG32 DIV
*--------------------------------------
MATH32.PutTMP32 lda #TMP32 MOD
.HS 2C BIT ABS
*--------------------------------------
MATH32.PutARG32 lda #ARG32
sta .1+1
ldy #3
.1 lda $ff,y SELF MODIFIED
sta (pStack),y
dey