Author Topic: Bitulator  (Read 3523 times)

0 Members and 1 Guest are viewing this topic.

Offline Freyaday

  • The One And Only Serial Time Killing Catboy-Capoeirista-Ballerino
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1970
  • Rating: +128/-15
  • I put on my robe and pixel hat...
    • View Profile
Bitulator
« on: September 30, 2011, 10:02:53 pm »
Today, after reading about some contest entries to a contest to produce an awful four-function calculator.
Inspired, I decided to make my own.
Here it is, the Bitulator.
Spoiler For Code:
Quote from: Axe
.BITUL8R
"THE 16 BITULATOR, UTILIZING THE LATEST IN 8.8 TECHNOLOGY?"
Lbl START
If getKey(15)
Returnr
End
sub(INP)
Atheta
ClrHome
While getKey(54)
End
sub(INP)
Lbl 0
ClrHome
Disp "+-*/"
Repeat getKeyK
End
!If K-10
Lbl 10
Repeat 0
randB
If getKey(15)
Returnr
End
End!If B^2
!If B^3
Goto 10
End
!If B^5
Goto 10
End
!If B^7
Goto 10
End
Else!If K-11
Lbl 11
Repeat 0
randB
If getKey(15)
Returnr
End
End!If B^3
!If B^2
Goto 11
End
!If B^5
Goto 11
End
!If B^7
Goto 11
End
Else!If K-12
Lbl 12
Repeat 0
randB
If getKey(15)
Returnr
End
End!If B^5
!If B^2
Goto 12
End
!If B^3
Goto 12
End
!If B^7
Goto 12
End
Else!If K-13
Lbl 13
Repeat 0
randB
If getKey(15)
Returnr
End
End!If B^7
!If B^2
Goto 13
End
!If B^3
Goto 13
End
!If B^5
Goto 13
End
Else
Goto 0
End
sub(I)
Lbl I
If getKey(15)
Returnr
End
!If B-0
sub(START)
Else!If B^2
sub(ADD)
Else!If B^3
sub(SUB)
Else!If B^5
sub(PROD)
Else!If B^7
sub(DIV)
End
Lbl ADD
For(Q,0,65535)
If getKey(15)
Returnr
End
A++
theta--
If getKey(0)
Disp A>Hex,theta>Hex,Q>Hex,i
End
!If theta
Goto Atheta
End
End
Lbl Atheta
0B
0B
sub(I)
Lbl SUB
~AA
sub(ADD)
Lbl PROD
theta**AA
0B
sub(I)
Lbl DIV
A^^-1A
sub(PROD)
Lbl INP
ClrHome
Repeat getKey(54)
Output(0,,A>Hex
EndIf getKey(0)
If getKey(15)
Returnr
End
!If getKey(54)
If getKey(1)
A++
End
If getKey(2)
A++
End
If getKey(3)
A--
End
If getKey(4)
A--
End
Goto INP
End


Generated by the BBify'r (http://clrhome.org/resources/bbify/)
Beware, use it too many times without exiting the program, and the stack can start corrupting stuff. When it starts displaying noncharacters instead of numbers, that's a good sign it's about time to quit.
The source is also attached, in case you like your sources in 8xp form
« Last Edit: February 15, 2012, 09:15:04 pm by Freyaday »
In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


I'm a performer at heart; I stole it last week.
My Artwork!

Offline ralphdspam

  • LV8 Addict (Next: 1000)
  • ********
  • Posts: 841
  • Rating: +38/-1
  • My name is actually Matt.
    • View Profile
Re: Bitulator
« Reply #1 on: September 30, 2011, 10:29:27 pm »
What the!? 
EDIT: Ooh, I wonder how much it takes to cause the stack to overflow...
« Last Edit: September 30, 2011, 10:32:13 pm by ralphdspam »
ld a, 0
ld a, a

Offline Freyaday

  • The One And Only Serial Time Killing Catboy-Capoeirista-Ballerino
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1970
  • Rating: +128/-15
  • I put on my robe and pixel hat...
    • View Profile
Re: Bitulator
« Reply #2 on: October 01, 2011, 10:36:10 pm »
According to geekboy, it'll take about 40 subroutine calls for the stack to start overwriting stuff, meaning that you have about nine or ten calculations to use before it starts overwriting stuff. I think.
In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


I'm a performer at heart; I stole it last week.
My Artwork!

Offline boot2490

  • LV7 Elite (Next: 700)
  • *******
  • Posts: 607
  • Rating: +54/-36
    • View Profile
    • Boot2490's Stuff
Re: Bitulator
« Reply #3 on: October 06, 2011, 11:37:47 am »
What does it do?
I'm not worried about SOPA creating censorship, that will not stand for long. I'm worried that they'll succeed in stopping piracy!

Spoiler For Signature, updated march 23, 11:28 PM EST:















An useful tool!

PM me if you need some help. I am glad to be of assistance and part of the TI Communnity.

Offline Freyaday

  • The One And Only Serial Time Killing Catboy-Capoeirista-Ballerino
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1970
  • Rating: +128/-15
  • I put on my robe and pixel hat...
    • View Profile
Re: Bitulator
« Reply #4 on: October 06, 2011, 05:26:41 pm »
It calculates.
In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


I'm a performer at heart; I stole it last week.
My Artwork!

Offline parserp

  • Hero Extraordinaire
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1455
  • Rating: +88/-7
  • The King Has Returned
    • View Profile
Re: Bitulator
« Reply #5 on: October 06, 2011, 06:18:20 pm »

Offline Yeong

  • Not a bridge
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3739
  • Rating: +278/-12
  • Survivor of Apocalypse
    • View Profile
Re: Bitulator
« Reply #6 on: October 06, 2011, 06:19:20 pm »
It calculates.
calculates what?
calculates stuff like normal 4-function calculator XD
Sig wipe!

Offline squidgetx

  • Food.
  • CoT Emeritus
  • LV10 31337 u53r (Next: 2000)
  • *
  • Posts: 1881
  • Rating: +503/-17
  • rawr.
    • View Profile
Re: Bitulator
« Reply #7 on: October 06, 2011, 07:17:11 pm »
I wonder if it is possible to write a z80 emulator for calcs. Of course it would be slow as crap but.....

Offline calc84maniac

  • eZ80 Guru
  • Coder Of Tomorrow
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2903
  • Rating: +469/-17
    • View Profile
    • TI-Boy CE
Re: Bitulator
« Reply #8 on: October 06, 2011, 07:25:53 pm »
I wonder if it is possible to write a z80 emulator for calcs. Of course it would be slow as crap but.....
http://www.ticalc.org/archives/files/fileinfo/377/37796.html
"Most people ask, 'What does a thing do?' Hackers ask, 'What can I make it do?'" - Pablos Holman

Offline Freyaday

  • The One And Only Serial Time Killing Catboy-Capoeirista-Ballerino
  • LV10 31337 u53r (Next: 2000)
  • **********
  • Posts: 1970
  • Rating: +128/-15
  • I put on my robe and pixel hat...
    • View Profile
Re: Bitulator
« Reply #9 on: October 06, 2011, 09:54:13 pm »
Yeong "Bridge" Jin_Cool:
Almost right: It's an ABnormal 4func calculator!
In other news, Frey continues kicking unprecedented levels of ass.
Proud member of LF#N--Lolis For #9678B6 Names


I'm a performer at heart; I stole it last week.
My Artwork!

Offline willrandship

  • Omnimagus of the Multi-Base.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2953
  • Rating: +98/-13
  • Insert sugar to begin programming subroutine.
    • View Profile
Re: Bitulator
« Reply #10 on: December 19, 2011, 06:35:09 pm »
And actually the fact that the CPU is virtually Identical lends to faster speeds than you'd expect. TI-Boy is another example of a fairly speedy z80 emu for the 84+.