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

Merge pull request from dcondrey/master

Browse Source 
Numerous obscure examples
This commit is contained in:
Mike Donaghy 2015-09-06 20:16:48 -04:00
commit 29f63fb8de
24 changed files with 339 additions and 1 deletions

2
#/4test Normal file

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

4
#/4thdimension.4dd Normal 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

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

12
a/actionscript_flashmx.as Normal 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

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

1
a/amos Normal file

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

1
a/angelscript Normal file

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

6
a/assembler_6502appleII.asm Normal 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

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

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

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

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

1
i/irc Normal file

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

1
m/MSL.mrc

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

5
s/sal.s Normal file

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

5
s/sas.sas Normal file

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

7
s/sather.sa Normal file

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

3
s/scilab.scilab Normal file

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

4
s/sql.sql Normal 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

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

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

12
w/whirl.wr Normal file

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

3
x/xbase.dbf Normal file

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

20
z/z80stealth_ti83calculator.z80 Normal 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