From d9a3b4eb8777f07a73f27f917a4223705424a02f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=A9my=20GIBERT?= Date: Fri, 23 Nov 2018 08:03:26 +0100 Subject: [PATCH] Kernel 0.92 --- X.M32.S.txt | 61 ++++++++++++++++++++++++++++++++++++++++++++++++++++ logo.bmp | Bin 0 -> 9654 bytes 2 files changed, 61 insertions(+) create mode 100644 X.M32.S.txt create mode 100644 logo.bmp diff --git a/X.M32.S.txt b/X.M32.S.txt new file mode 100644 index 00000000..55128555 --- /dev/null +++ b/X.M32.S.txt @@ -0,0 +1,61 @@ +NEW +PREFIX +AUTO 4,1 + .LIST OFF +*-------------------------------------- +* Uses: (pData) +* M32.ACC .BS 4 +* M32.ARG .BS 4 +* M32.TMP .BS 4 +*-------------------------------------- +M32.Add ldx #0 ARG-ACC->ACC + ldy #4 + + clc + +.1 lda M32.ARG,x + adc M32.ACC,x + sta M32.ACC,x + inx + dey + bne .1 + + rts if CS, Overflow +*--------------------------------------- +M32.Sub ldx #0 ARG-ACC->ACC + ldy #4 + + sec + +.1 lda M32.ARG,x + sbc M32.ACC,x + sta M32.ACC,x + inx + dey + bne .1 + + bcs .8 if CC, Overflow + + sec + rts + +.8 clc + rts +*-------------------------------------- +* http://6502.org/source/integers/32muldiv.htm +*-------------------------------------- +M32.Mul +*-------------------------------------- +M32.Div + + sec + rts +*-------------------------------------- +M32.Mod + + + clc + rts +*-------------------------------------- +MAN +SAVE USR/SRC/X.M32.S diff --git a/logo.bmp b/logo.bmp new file mode 100644 index 0000000000000000000000000000000000000000..6179f27d67c5f66be9b09700c6bf78544dfddbd7 GIT binary patch literal 9654 zcmeH~%MHRX42HuN95^8mOuzu#kU(N1*aa5g!dA>stfaE47SZM*q>ngq(>(0Tpa1lb z{pq=OzU`#n%5!etGdK6^*LL4e+ODxywgS#IYP~P(x(xoKb%{pDbmURMp#v9r$TD#S zh7^6VaIlNcmiRH~|SR214dAfpj1d8>d` I;Aa(h1JuLtMF0Q* literal 0 HcmV?d00001