mirror of
https://github.com/A2osX/A2osX.git
synced 2025-02-27 00:30:55 +00:00
Kernel 0.94
This commit is contained in:
parent
d0ec5bfb2c
commit
d1d514c00d
Binary file not shown.
@ -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
|
||||
*---------------------------------------
|
||||
|
@ -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 "
|
||||
|
@ -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
|
||||
|
Loading…
x
Reference in New Issue
Block a user