Look What I Found

Digging in some old floppy disks looking for src code to some of my old audio software (The Nanotech WaveTracer) – I found the original (rewitten) BSCAL code. Along with original documentation and the 1987 Amiga version of the classic factorial testcase. I believe I have also found source for compiled version that used to use Lantastic for IPC between networked nodes.

bscal_archive2.png

These Datestamps Make me Feel So Old

>

cell main()
	{
		(void) operator if (bool cond,capsule ifcap);  	// CPU OPERATOR
		(long) operator (long X) *  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) -  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) +  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) =  (long Y) ;  		// CPU OPERATOR
		(long) operator (long X) == (long Y) ;		// CPU OPERATOR
		(long) operator (long X) *  (long Y) ;  		// CPU OPERATOR
		(void) operator printint (int p);  		// OS OPERATOR

		operator ifelse (bool cond,capsule ifcap,capsule elsecap)
		{
			if (cond)	ifcap
			if (not cond) 	elsecap
		}

		operator (long [int,float,byte] n) !
		{
			ifelse (n == 0)
				{
					( long ) 1
				}

				{
					( ( n - 1 ) ! ) * n
				}
		}

		int n = 4;
		print(n!);
	}

//ASSEMBLY CODE:
//
//1000-1001
//n:		INTEGER
//
//1002-100F 		operator ifelse (bool cond,capsule ifcap,capsule elsecap)
//		PUSHOP	 	if
//		FOLD
//			COPY  	#1
//		UNFOLD
//		COPY 		#2
//		PUSHOP	 	if
//		FOLD
//			PUSHOP	 	not
//			COPY 		#1
//		UNFOLD
//		COPY	#3
//
//1010-10FF 		operator (long [int,float,byte] n) ! 101F 10FF
//		PUSHOP 		ifelse
//		FOLD
//			COPY   		#1
//			PUSHOP 		==
//			PUSHDA 		(long),0
//		UNFOLD
//		CAPSULATE
//			PUSHDA		(long) 1
//		ENCAPSULATE
//		CAPSULATE
//			FOLD
//				FOLD
//					COPY  	#1
//					PUSHOP  	-
//					PUSHDA  	(long),1
//				UNFOLD
//				PUSHOP	!
//			UNFOLD
//			PUSHOP  		*
//			COPY		#1
//		ENCAPSULATE
//
//11FF-12FF 		cell main
//
//main:
//		CREATESTACK
//		REGOP		1002
//
//
//		FOLD
//			PUSHAD		(int),1000
//			PUSHOP  		=
//			PUSHDA  		(int),4
//		UNFOLD
//		WAIT
//		FOLD
//			PUSHOP  		print
//			FOLD
//				PUSHAD  		(int),1000
//				PUSHOP  		FETCH
//				PUSHOP 		!
//			UNFOLD
//		UNFOLD
//		WAIT
//		DEREGOP	 	102
//		DELETESTACK
//
Advertisements

About metawrap

CTO Massive Interactive. Ex Computer Whiz Kid - Now Grumpy Old Guru.
This entry was posted in Nostalgia for Misspent Youth, Rants. Bookmark the permalink.

One Response to Look What I Found

  1. Emerson says:

    I guess youve read this also then;

    http://www.albert-feller.de/mirror/piezo/soundofipod.htm

    Did you write that CAPTCHA ? It looks similar to the last one…

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s