language_templates 0.1.1

data/bin/languages/a/assembler_atari2600.asm

@@ -0,0 +1,194 @@
+;
+; hello.asm
+;
+; A "Hello, World!" which illustrates an Atari 2600 programming
+; introduction talk (slides at http://slideshare.net/chesterbr).
+;
+; This is free software (see license below). Build it with DASM
+; (http://dasm-dillon.sourceforge.net/), by running:
+;
+;   dasm hello.asm -ohello.bin -f3
+;
+
+    PROCESSOR 6502
+    INCLUDE "vcs.h"
+
+    ORG $F000       ; Start of "cart area" (see Atari memory map)
+
+StartFrame:
+    lda #%00000010  ; Vertical sync is signaled by VSYNC's bit 1...
+    sta VSYNC
+    REPEAT 3        ; ...and lasts 3 scanlines
+        sta WSYNC   ; (WSYNC write => wait for end of scanline)
+    REPEND
+    lda #0
+    sta VSYNC       ; Signal vertical sync by clearing the bit
+
+PreparePlayfield:   ; We'll use the first VBLANK scanline for setup
+    lda #$00        ; (could have done it before, just once)
+    sta ENABL       ; Turn off ball, missiles and players
+    sta ENAM0
+    sta ENAM1
+    sta GRP0
+    sta GRP1
+    sta COLUBK      ; Background color (black)
+    sta PF0         ; PF0 and PF2 will be "off" (we'll focus on PF1)...
+    sta PF2
+    lda #$FF        ; Playfield collor (yellow-ish)
+    sta COLUPF
+    lda #$00        ; Ensure we will duplicate (and not reflect) PF
+    sta CTRLPF
+    ldx #0          ; X will count visible scanlines, let's reset it
+    REPEAT 37       ; Wait until this (and the other 36) vertical blank
+        sta WSYNC   ; scanlines are finished
+    REPEND
+    lda #0          ; Vertical blank is done, we can "turn on" the beam
+    sta VBLANK
+
+Scanline:
+    cpx #174        ; "HELLO WORLD" = (11 chars x 8 lines - 1) x 2 scanlines =
+    bcs ScanlineEnd ;   174 (0 to 173). After that, skip drawing code
+    txa             ; We want each byte of the hello world phrase on 2 scanlines,
+    lsr             ;   which means Y (bitmap counter) = X (scanline counter) / 2.
+    tay             ;   For division by two we use (A-only) right-shift
+    lda Phrase,y    ; "Phrase,Y" = mem(Phrase+Y) (Y-th address after Phrase)
+    sta PF1         ; Put the value on PF bits 4-11 (0-3 is PF0, 12-15 is PF2)
+ScanlineEnd:
+    sta WSYNC       ; Wait for scanline end
+    inx             ; Increase counter; repeat untill we got all kernel scanlines
+    cpx #191
+    bne Scanline
+
+Overscan:
+    lda #%01000010  ; "turn off" the beam again...
+    sta VBLANK      ;
+    REPEAT 30       ; ...for 30 overscan scanlines...
+        sta WSYNC
+    REPEND
+    jmp StartFrame  ; ...and start it over!
+
+Phrase:
+    .BYTE %00000000 ; H
+    .BYTE %01000010
+    .BYTE %01111110
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %00000000
+    .BYTE %00000000 ; E
+    .BYTE %01111110
+    .BYTE %01000000
+    .BYTE %01111100
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01111110
+    .BYTE %00000000
+    .BYTE %00000000 ; L
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01111110
+    .BYTE %00000000
+    .BYTE %00000000 ; L
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01111110
+    .BYTE %00000000 ; O
+    .BYTE %00000000
+    .BYTE %00111100
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %00111100
+    .BYTE %00000000
+    .BYTE %00000000 ; white space
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000
+    .BYTE %00000000 ; W
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01011010
+    .BYTE %00100100
+    .BYTE %00000000
+    .BYTE %00000000 ; O
+    .BYTE %00111100
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %00111100
+    .BYTE %00000000
+    .BYTE %00000000 ; R
+    .BYTE %01111100
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01111100
+    .BYTE %01000100
+    .BYTE %01000010
+    .BYTE %00000000
+    .BYTE %00000000 ; L
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01000000
+    .BYTE %01111110
+    .BYTE %00000000
+    .BYTE %00000000 ; D
+    .BYTE %01111000
+    .BYTE %01000100
+    .BYTE %01000010
+    .BYTE %01000010
+    .BYTE %01000100
+    .BYTE %01111000
+    .BYTE %00000000 ; Last byte written to PF1 (important, ensures lower tip
+                    ;                           of letter "D" won't "bleeed")
+
+    ORG $FFFA             ; Cart config (so 6502 can start it up)
+
+    .WORD StartFrame      ;     NMI
+    .WORD StartFrame      ;     RESET
+    .WORD StartFrame      ;     IRQ
+
+    END
+
+;
+; Copyright 2011-2013 Carlos Duarte do Nascimento (Chester). All rights reserved.
+;
+; Redistribution and use in source and binary forms, with or without modification, are
+; permitted provided that the following conditions are met:
+;
+;    1. Redistributions of source code must retain the above copyright notice, this list of
+;       conditions and the following disclaimer.
+;
+;    2. Redistributions in binary form must reproduce the above copyright notice, this list
+;       of conditions and the following disclaimer in the documentation and/or other materials
+;       provided with the distribution.
+;
+; THIS SOFTWARE IS PROVIDED BY CHESTER ''AS IS'' AND ANY EXPRESS OR IMPLIED
+; WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND
+; FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL <COPYRIGHT HOLDER> OR
+; CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+; CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+; SERVICES;  LOSS OF USE, DATA, OR PROFITS;  OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
+; ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
+; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+; ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+;
+; The views and conclusions contained in the software and documentation are those of the
+; authors and should not be interpreted as representing official policies, either expressed
+; or implied, of Chester.
+;

data/bin/languages/a/assembler_fasm_dos.asm

@@ -0,0 +1,16 @@
+format MZ
+
+entry .code: start
+
+segment .code
+start:
+	mov ax, .data ; put data segment into ax
+	mov ds, ax    ; there, I setup the DS for you
+	mov dx, msg   ; now I give you the offset in DX. DS:DX now completed.
+	mov ah, 9h
+	int 21h
+	mov ah, 4ch
+	int 21h
+
+segment .data
+	msg db 'Hello World', '$'

data/bin/languages/a/assembler_ibm360.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

data/bin/languages/a/assembler_intel.asm

@@ -0,0 +1,24 @@
+; hello_world.asm intel 
+
+.model small
+
+.stack 100h
+
+.data
+msg db "Hello World!",'$'
+
+.code
+main proc
+        mov ax,@data
+        mov ds, ax
+
+; hello-world is there 
+        mov dx,offset msg
+        mov ah,09
+        int 21h
+
+        mov ax,4c00h
+        int 21h
+
+main endp
+end main

data/bin/languages/a/assembler_lc-3.asm

@@ -0,0 +1,6 @@
+			.ORIG x3000
+
+			LEA R0, HELLOWORLD
+			PUTS
+	
+HELLOWORLD	.STRINGZ "Hello world!\n"

data/bin/languages/a/assembler_m68000_amigaos.asm

@@ -0,0 +1,33 @@
+; "Hello World" in Motorola 68000 machine language, for AmigaOS
+
+ExecBase     = 4
+OpenLibrary  = -552
+CloseLibrary = -414
+PutStr       = -948
+
+	section "main", code
+
+	; open "dos.library"
+
+	move.l	ExecBase, a6
+	lea	lib, a1
+	moveq	#0, d0
+	jsr	(OpenLibrary, a6)
+	move.l	d0, a6
+
+	; print the message
+
+	move.l	#msg, d1
+	jsr	(PutStr, a6)
+
+	; close the library, and exit with code 0
+
+	move.l	a6, a1
+	move.l	ExecBase, a6
+	jsr	(CloseLibrary, a6)
+
+	moveq	#0, d0
+	rts
+
+lib	dc.b	"dos.library", 0
+msg	dc.b	"Hello World!\n", 0

data/bin/languages/a/assembler_masm_dos.asm

@@ -0,0 +1,17 @@
+; 16 bit dos assembly
+.model small
+.stack
+.data
+    message   db "Hello world!", "$"
+.code
+    main    proc
+        mov   ax,seg message
+        mov   ds,ax
+        mov   ah,09
+        lea   dx,message
+        int   21h
+        
+        mov   ax,4c00h
+        int   21h
+    main    endp
+end main

data/bin/languages/a/assembler_masm_win32.asm

@@ -0,0 +1,35 @@
+; ---------------------------------------------
+; Hello World for Win32 Intel x86 Assembly
+;
+; by fruel (https://github.com/fruel)
+; 13 June 2016
+; ---------------------------------------------
+
+.386
+.model flat,stdcall
+.stack 4096
+
+EXTRN ExitProcess@4 : PROC
+EXTRN GetStdHandle@4 : PROC
+EXTRN WriteConsoleA@20 : PROC
+
+.data
+msg BYTE "Hello World!",0
+bytesWritten DWORD ?
+
+.code
+main PROC
+    push -11                 ; nStdHandle (STD_OUTPUT_HANDLE)
+    call GetStdHandle@4
+ 
+    push 0                   ; lpReserved
+    push OFFSET bytesWritten ; lpNumberOfCharsWritten
+    push LENGTHOF msg - 1    ; nNumberOfCharsToWrite
+    push OFFSET msg          ; *lpBuffer
+    push eax                 ; hConsoleOutput
+    call WriteConsoleA@20
+
+    push 0                   ; uExitCode
+    call ExitProcess@4
+main ENDP
+END main

data/bin/languages/a/assembler_masm_win64.asm

@@ -0,0 +1,33 @@
+; ---------------------------------------------
+; Hello World for Win64 Intel x64 Assembly
+;
+; by fruel (https://github.com/fruel)
+; 13 June 2016
+; ---------------------------------------------
+
+GetStdHandle PROTO
+ExitProcess PROTO
+WriteConsoleA PROTO
+
+.data
+msg BYTE "Hello World!",0
+bytesWritten DWORD ?
+
+.code
+main PROC
+    sub rsp, 5 * 8              ; reserve shadow space
+
+    mov rcx, -11                ; nStdHandle (STD_OUTPUT_HANDLE)
+    call GetStdHandle
+
+    mov  rcx, rax               ; hConsoleOutput
+    lea  rdx, msg               ; *lpBuffer
+    mov  r8, LENGTHOF msg - 1   ; nNumberOfCharsToWrite
+    lea  r9, bytesWritten       ; lpNumberOfCharsWritten
+    mov  QWORD PTR [rsp + 4 * SIZEOF QWORD], 0  ; lpReserved
+    call WriteConsoleA
+
+    mov rcx, 0                  ; uExitCode
+    call ExitProcess
+main ENDP
+END

data/bin/languages/a/assembler_mips.asm

@@ -0,0 +1,9 @@
+.data
+    hw:        .asciiz        "Hello, World!"
+.text
+main:
+    la $a0, hw           #load the address of hw into $a0
+    li $v0, 4            #load 4 into $v0
+    syscall              #perform the print_string syscall
+    li $v0, 10           #load 10 into $v0
+    syscall              #perform the exit syscall

data/bin/languages/a/assembler_mmix.asm

@@ -0,0 +1,9 @@
+t	IS	$255
+	LOC	Data_Segment
+	GREG	@
+String	BYTE	"Hello World",#a,0
+
+	LOC	#100
+Main	LDA	t,String
+	TRAP	0,Fputs,StdOut
+	TRAP	0,Halt,0

data/bin/languages/a/assembler_nasm_freebsd.asm

@@ -0,0 +1,31 @@
+section	.text
+    global _start			;must be declared for linker (ld)
+
+_syscall:		
+	int	0x80		;system call
+	ret
+
+_start:				;tell linker entry point
+
+	push	dword len	;message length
+	push	dword msg	;message to write
+	push	dword 1		;file descriptor (stdout)
+	mov	eax,0x4		;system call number (sys_write)
+	call	_syscall	;call kernel
+
+				;the alternate way to call kernel:
+				;push	eax
+				;call	7:0
+
+	add	esp,12		;clean stack (3 arguments * 4)
+
+	push	dword 0		;exit code
+	mov	eax,0x1		;system call number (sys_exit)
+	call	_syscall	;call kernel
+
+				;we do not return from sys_exit,
+				;there's no need to clean stack
+section	.data
+
+msg	db	"Hello, world!",0xa	;our string
+len	equ	$ - msg			;length of our string

data/bin/languages/a/assembler_nasm_linux.asm

@@ -0,0 +1,20 @@
+section	.text
+    global _start			;must be declared for linker (ld)
+
+_start:					;tell linker entry point
+
+	xor	ebx,ebx 	;ebx=0
+	mov	ecx,msg		;address of message to write
+	lea	edx,[ebx+len]	;message length
+	lea	eax,[ebx+4]	;system call number (sys_write)
+	inc	ebx		;file descriptor (stdout)
+	int	0x80		;call kernel
+
+	xor	eax, eax	;set eax=0
+	inc	eax		;system call number (sys_exit)
+	int	0x80		;call kernel
+
+section	.rodata
+
+msg	db	'Hello, world!',0xa	;our string
+len	equ	$ - msg			;length of our string

data/bin/languages/a/assembler_nasm_linux64.asm

@@ -0,0 +1,20 @@
+section	.text
+    global _start			;must be declared for linker (ld)
+
+_start:					;tell linker entry point
+
+	xor	eax,eax		;eax:=0
+	lea	edx,[rax+len]	;message length
+	mov	al,1		;system call number (sys_write)
+	mov	esi,msg		;message to write
+	mov	edi,eax		;file descriptor (stdout)
+	syscall			;call kernel
+	
+	xor	edi, edi	;return 0 (EXIT_SUCCESS)
+	lea	eax,[rdi+60]	;system call number (sys_exit)
+	syscall			;call kernel
+
+section	.rodata
+
+msg	db	'Hello, world!',0xa	;our string
+len	equ	$ - msg			;length of our string

data/bin/languages/a/assembler_tasm_dos.asm

@@ -0,0 +1,20 @@
+IDEAL
+MODEL SMALL
+STACK 100h
+
+DATASEG
+msg			db "Hello World!", 0dh, 0ah, "$"
+
+CODESEG
+start:
+	mov		ax, @data
+	mov		ds, ax
+	
+	mov		dx, offset msg
+	mov		ah, 9
+	int		21h
+	
+	mov		ah, 4ch
+	int		21h
+
+end start

data/bin/languages/a/assembler_tms9900_ti99_4a.asm

@@ -0,0 +1,44 @@
+
+* Hello World for TI-99/4a computer with TMS9900 CPU
+* by Frog ( http://frog.enlight.ru )
+* 15 April 2016
+*
+****************************************************************************
+
+        DEF     START
+
+WRKSP   EQU     >8300
+
+VDPWD   EQU     >8C00           * VDP RAM write data
+VDPWA   EQU     >8C02           * VDP RAM read/write address
+
+
+START   LIMI    0               * disable interrupts
+        LWPI    WRKSP           * set default workspace
+
+* set VDP RAM start address (low and high byte)
+
+        LI      R0,>0000
+        ORI     R0,>4000
+        SWPB    R0
+        MOVB    R0,@VDPWA
+        SWPB    R0
+        MOVB    R0,@VDPWA
+
+        LI      R1,HELLOWORLD   * ascii string address
+        LI      R2,12           * total chars
+
+NEXTCHAR
+        MOVB    *R1+,@VDPWD     * put next char on screen
+        DEC     R2
+        JNE     NEXTCHAR
+
+LOOPBACK
+        JMP LOOPBACK            * stop and do nothing
+
+
+HELLOWORLD
+        TEXT 'HELLO WORLD!'     * string data
+        BYTE 0
+
+        END

data/bin/languages/a/assembler_vax_ultrix.asm

@@ -0,0 +1,13 @@
+.data
+hw:
+	.ascii "Hello World!\12"
+.text
+	.align 1
+.globl _main
+_main:
+	.word 0
+	pushl $13
+	pushab hw
+	pushl $1
+	calls $3,_write
+	ret

data/bin/languages/a/assembler_z80_knightos.asm

@@ -0,0 +1,18 @@
+#include "kernel.inc"
+    .db "KEXC"
+    .db KEXC_ENTRY_POINT
+    .dw start
+start:
+    pcall(getLcdLock)
+
+    pcall(allocScreenBuffer)
+    pcall(clearScreen)
+
+    kld(hl, message)
+    ld de, 0
+    pcall(drawStr)
+
+    jr $ ; Loop forever
+
+message:
+    .db "Hello world!", 0

data/bin/languages/a/assembler_z80_ti83calculator.asm

@@ -0,0 +1,20 @@
+.NOLIST
+#define   EQU   .equ
+#define   equ   .equ
+#define   END   .end
+#define   end   .end
+#include "ti83plus.inc"
+.LIST
+     .org 9D93h
+      .db $BB,$6D
+      ld a,0
+      ld (CURCOL),a
+      ld (CURROW),a
+      ld hl,text
+      B_CALL(_PutS)
+      B_CALL(_NewLine)
+      ret
+text:
+      .db "Hello, World",0
+.end
+end

data/bin/languages/a/assembler_z80_zxspectrum.asm

@@ -0,0 +1,21 @@
+org $6000
+	ld bc, STRING
+	ld de, SCR
+
+LOOP
+	ld a, (bc)
+	cp 0
+	jr z, EXIT
+	rst $10
+	inc bc
+	inc de
+	jr LOOP
+
+EXIT
+	ret
+	
+SCR equ 16384
+
+STRING
+	defb "Hello World!"
+	defb 13, 0

data/bin/languages/a/autohotkey.ahk

@@ -0,0 +1 @@
+MsgBox, Hello World!

data/bin/languages/a/autoit.au3

@@ -0,0 +1 @@
+MsgBox(0, "Message Box", "Hello World!")

data/bin/languages/a/awk.awk

@@ -0,0 +1,2 @@
+# awk -f awk.awk
+BEGIN { print "Hello World" }

data/bin/languages/b/B.b

@@ -0,0 +1,10 @@
+/* Hello World in B */
+
+main() {
+    extern a, b, c;
+      putchar (a); putchar (b); putchar (c); putchar ('!*n');
+}
+
+a 'hell' ;
+b 'o, w' ;
+c 'orld' ;

data/bin/languages/b/BCPL.bcl

@@ -0,0 +1,6 @@
+GET "LIBHDR"
+
+LET START() BE
+$(
+  WRITES("Hello, world!*N")
+$)