diff --git a/#/0815.0815 b/#/0815.0815 new file mode 100644 index 00000000..7414c30d --- /dev/null +++ b/#/0815.0815 @@ -0,0 +1,4 @@ +<:48:x<:65:=<:6C:$=$=$$~<:03:+ +$~<:ffffffffffffffb1:+$<:77:~$ +~<:fffffffffffff8:x+$~<:03:+$~ +<:06:x-$x<:0e:x-$=x<:43:x-$ diff --git a/#/360-assembly.asm b/#/360-assembly.asm new file mode 100644 index 00000000..0b624f9c --- /dev/null +++ b/#/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 diff --git a/#/6502-assembly.s b/#/6502-assembly.s new file mode 100644 index 00000000..dcd1e92c --- /dev/null +++ b/#/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 diff --git a/a/ALGOL-W.algol b/a/ALGOL-W.algol new file mode 100644 index 00000000..ad938cc4 --- /dev/null +++ b/a/ALGOL-W.algol @@ -0,0 +1,3 @@ +begin + write( "Hello world!" ) +end. diff --git a/a/aime.aime b/a/aime.aime new file mode 100644 index 00000000..cf175030 --- /dev/null +++ b/a/aime.aime @@ -0,0 +1,7 @@ +integer +main(void) +{ + o_text("Hello world!\n"); + + return 0; +} diff --git a/a/algae.algae b/a/algae.algae new file mode 100644 index 00000000..e84c2239 --- /dev/null +++ b/a/algae.algae @@ -0,0 +1 @@ +printf("Hello world!\n"); diff --git a/a/alore.alore b/a/alore.alore new file mode 100644 index 00000000..575c10ab --- /dev/null +++ b/a/alore.alore @@ -0,0 +1 @@ +Print('Hello world!')