jrenaud/hello-world
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #212 from dcondrey/master

Browse Source 
Numerous obscure examples
This commit is contained in:
Mike Donaghy
2015-09-06 20:16:48 -04:00
parent 1d3b61eb98 b4cc06b0c5
commit 29f63fb8de
24 changed files with 339 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
#/4test Normal file
View File

@@ -0,0 +1,2 @@
testcase printHelloWorld()
print("Hello World!")

4
#/4thdimension.4dd Normal file
View File

@@ -0,0 +1,4 @@
OPEN WINDOW (10;45;500;330;0;"Hello Window")
While (True)
MESSAGE ("Hello World!")
End while

6
a/acpi Normal file
View File

@@ -0,0 +1,6 @@
Scope(\) {
Method(_WAK) {
Store ("Hello World", Debug)
Return(Package(2){0x00000000,0})
}
}

12
a/actionscript_flashmx.as Normal file
View File

@@ -0,0 +1,12 @@
_root.createTextField("mytext",1,100,100,300,100);
mytext.multiline = true;
mytext.wordWrap = true;
mytext.border = false;
myformat = new TextFormat();
myformat.color = 0xff0000;
myformat.bullet = false;
myformat.underline = true;
mytext.text = "Hello World!";
mytext.setTextFormat(myformat);

5
a/advpl Normal file
View File

@@ -0,0 +1,5 @@
User Function Hello()
Local cMsg := "Hello, world!"
conout(cMsg)
MsgInfo(cMsg)
Return

1
a/amos Normal file
View File

@@ -0,0 +1 @@
Print "Hello world!"

1
a/angelscript Normal file
View File

@@ -0,0 +1 @@
void main() { print("Hello world\n"); }

6
a/assembler_6502appleII.asm Normal file
View File

@@ -0,0 +1,6 @@
STROUT EQU $DB3A ;OUTPUTS AY-POINTED NULL TERMINATED STRING
LDY #>HELLO
LDA #<HELLO
JMP STROUT
HELLO ASC "HELLO WORLD!",00

11
a/assembler_6502c64.asm Normal file
View File

@@ -0,0 +1,11 @@
ldy #0
beq in
loop:
jsr $ffd2
iny
in:
lda hello,y
bne loop
rts
hello: .tx "Hello World!"
.by 13,10,0

194
a/assembler_atari2600.asm Normal file
View File

@@ -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.
;

16
c/cgi.c Normal file
View File

@@ -0,0 +1,16 @@
#include <stdio.h>
main ()
{
printf ("Content-type: text/html\n");
printf ("\n");
printf ("<html>\n");
printf ("<head>\n");
printf ("<title>Hello, world</title>\n");
printf ("</head>\n");
printf ("\n");
printf ("<body>\n");
printf ("<h1>Hello, world</h1>\n");
printf ("</body>\n");
printf ("</html>\n");
}

2
i/ibm1401 Normal file
View File

@@ -0,0 +1,2 @@
,008015,022029,036043,050054,055062,063065,066077/333/M0762502F1.HELLO
WORLD

1
i/irc Normal file
View File

@@ -0,0 +1 @@
/timer 1 9999 1 Hello World

1
m/MSL.mrc
View File

@@ -1 +0,0 @@
echo -a Hello, world!

5
s/sal.s Normal file
View File

@@ -0,0 +1,5 @@
proc main()
loop
WriteLine("Hello, World!")
endloop
end

5
s/sas.sas Normal file
View File

@@ -0,0 +1,5 @@
%macro putit( string= );
%put &string;
%mend;
%putit(string=Hello World!)

7
s/sather.sa Normal file
View File

@@ -0,0 +1,7 @@
class MAIN is
main is
loop
#OUT + "Hello World!\n"
end
end
end

3
s/scilab.scilab Normal file
View File

@@ -0,0 +1,3 @@
while(1)
printf("hello world");
end

4
s/sql.sql Normal file
View File

@@ -0,0 +1,4 @@
CREATE TABLE HELLO (HELLO CHAR(12))
UPDATE HELLO
SET HELLO = 'HELLO WORLD!'
SELECT * FROM HELLO

15
v/vi Normal file
View File

@@ -0,0 +1,15 @@
The following tab indented lines will cause a true vi with modelines
activated to infinitely loop puting "Hello World" in the buffer. Hit
to abort the loop and see the output. None of the vi clones
support modelines this powerful, and modelines are diabled by default.
Set the environment variable EXINIT to "set ml" to activate modelines.
vi: $ y a :
vi: $-1y b :
vi: @b :
put a |@b
Hello World
Whitespace is largely insignificant, but these must be the last five
lines in the file to work properly. Unless it is in "vi: ... :" or
"ex: ... :" format, any preceeding text will be ignored.

4
v/vms.vms Normal file
View File

@@ -0,0 +1,4 @@
$top:
$write sys$output "Hello world!"
$wait 00:00:10
$goto top

12
w/whirl.wr Normal file
View File

@@ -0,0 +1,12 @@
110001100111000111110000010001111100011000000000110000011100000110000010000
011000111100000111110000011100001111100100011001110000111111100001001111100
011000000000110000011000111110001000000000000000000001001111110000111111000
100000000000000000000000000011111000100100000000111111000100000000000001001
000011111000001110000111110010001100011000000100010000011000000000000000001
100000111001111100111111000100111001111000011100010011111110000111000110000
000000000000000000000000000001000100001111100000111000011111001100011100000
111000000010001111100000111110001000000000111000110000000000000000000000000
000000100100001111100000111000011100010000000000000100010000111110001110001
111100111111000011100001100111000111000000000001111100000111000110000110110
001000000000010000001111100000111000011111000000010001110000000000000000000
000000000000100000011111000001100

3
x/xbase.dbf Normal file
View File

@@ -0,0 +1,3 @@
do while .t.
? 'Hello World'
enddo

20
z/z80stealth_ti83calculator.z80 Normal file
View File

@@ -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