Merge pull request #235 from GeorgeGibson/master

Add more languages

#/0815.0815

@@ -0,0 +1,4 @@
+<:48:x<:65:=<:6C:$=$=$$~<:03:+
+$~<:ffffffffffffffb1:+$<:77:~$
+~<:fffffffffffff8:x+$~<:03:+$~
+<:06:x-$x<:0e:x-$=x<:43:x-$

#/360-assembly.asm

@@ -0,0 +1,8 @@
+         LA    1,MSGAREA     Point Register 1 to message area
+         SVC   35            Invoke SVC 35 (Write to Operator) 
+         BR    14            Return
+MSGAREA  EQU   *             Message Area
+         DC    AL2(19)       Total area length = 19 (Prefix length:4 + Data Length:15) 
+         DC    XL2'00'       2 bytes binary of zeros
+         DC    C'Hello world!'  Text to be written to system console
+         END

#/6502-assembly.s

@@ -0,0 +1,22 @@
+; goodbyeworld.s for C= 8-bit machines, ca65 assembler format.
+; String printing limited to strings of 256 characters or less.
+ 
+a_cr	= $0d		; Carriage return.
+bsout	= $ffd2		; KERNAL ROM, output a character to current device.
+ 
+	.code
+ 
+	ldx #0		; Starting index 0 in X register.
+printnext:
+	lda text,x	; Get character from string.
+	beq done	; If we read a 0 we're done.
+	jsr bsout	; Output character. 
+	inx		; Increment index to next character.
+	bne printnext	; Repeat if index doesn't overflow to 0.
+done:
+	rts		; Return from subroutine.
+ 
+	.rodata
+ 
+text:
+	.byte	"Hello world!", a_cr, 0

a/ALGOL-W.algol

@@ -0,0 +1,3 @@
+begin
+    write( "Hello world!" )
+end.

a/aime.aime

@@ -0,0 +1,7 @@
+integer
+main(void)
+{
+    o_text("Hello world!\n");
+ 
+    return 0;
+}

a/algae.algae

@@ -0,0 +1 @@
+printf("Hello world!\n");

a/alore.alore

@@ -0,0 +1 @@
+Print('Hello world!')