Liste von Hallo-Welt-Programmen/Assembler
Diese Liste von Hallo-Welt-Programmen von Assemblersprachen enthält kleine Computerprogramme, die auf einfache Weise zeigen, welche Anweisungen für ein vollständiges Programm in einer Programmiersprache benötigt werden.
Zweck
Aufgaben dieser Hallo-Welt-Programme ist, den Text Hallo Welt! in einem einfachen Programm auszugeben. Weitere Programme sind verfügbar:
x86-CPU
DOS (COM-Datei), MASM, TASM
.MODEL Tiny
.CONST
HW DB "Hallo Welt!$"
.CODE
.org 100h
start:
MOV DX, OFFSET DGROUP:HW
MOV AH, 09H
INT 21H
RET
end start
DOS (EXE-Datei), MASM, TASM
.MODEL Small
.STACK 100h
.CONST
HW DB "Hallo Welt!$"
.CODE
start:
MOV AX,@data
MOV DS,AX
MOV DX, OFFSET DGROUP:HW
MOV AH, 09H
INT 21H
MOV AH, 4Ch
INT 21H
end start
DOS, FASM
'''FASM example of writing 16-bit DOS .COM program'''
; Kompilieren: "FASM HELLO.ASM HELLO.COM"
org $100
use16
mov ah,9
mov dx,hello
int $21 ; Textausgabe
mov ah,$4C
int $21 ; Programm beenden
hello db 'Hallo Welt !!!$'
Windows, FASM
; Ausgabe in Messagebox (ohne Titel) mit OK-Button
include 'win32ax.inc'
.code
start:
invoke MessageBox,HWND_DESKTOP,text,"",MB_OK
invoke ExitProcess,0
.end start
.data
text: db "Hallo Welt!",0
Linux
AT&T-Syntax
# Kompilieren mit
# "as -o hallo.o hallo.s; ld -o hallo hallo.o"
.section .data
s: .string "Hallo Welt!\n"
.section .text
.globl _start
_start:
movl $4,%eax # Syscall-ID 4 (= sys_write)
movl $1,%ebx # Ausgabe-Dateideskriptor stdout (= 1)
movl $s,%ecx # Adresse des ersten Zeichens der Zeichenkette
movl $12,%edx # Länge der Zeichenkette (12 Zeichen)
int $0x80 # Softwareinterrupt 0x80, um Syscall (write(1,s,12)) auszuführen
movl $1,%eax # Syscall-ID 1 (= sys_exit)
movl $0,%ebx # Rückgabewert 0 (= alles in Ordnung)
int $0x80 # Softwareinterrupt 0x80 um Syscall (exit(0)) auszuführen
Intel-Syntax
; Befehl zum Assemblen: nasm -felf hello.s
; && ld -o hello hello.o
section data
hello db "Hallo Welt!",0xa
len equ $-hello
section text
global _start
_start:
mov eax, 4 ; write(stdout, hello, len)
mov ebx, 1
mov ecx, hello
mov edx, len
int 80h
mov eax, 1 ; exit(0)
mov ebx, 0
int 80h
x86-CPU, FreeBSD, Intel-Syntax
section .data
hello_world db 'Hallo Welt!', 0x0a
hello_world_len equ $ - hello_world
section .text
align 4
sys:
int 0x80
ret
global _start
_start:
push hello_world_len
push hello_world
push 1
mov eax, 4
call sys
push 0
mov eax, 1
call sys
PowerPC-CPU, Linux
# Kompilieren mit "gcc -nostdlib -s hallo.s"
.section .rodata
.align 2
.s:
.string "Hallo Welt!\n"
.section ".text"
.align 2
.globl _start
_start:
li 0,4 # SYS_write
li 3,1 # fd = 1 (stdout)
lis 4,.s@ha # buf = .s
la 4,.s@l(4)
li 5,12 # len = 12
sc # syscall
li 0,1 # SYS_exit
li 3,0 # returncode = 0
sc # syscall
MMIX, MMIXAL
string BYTE "Hallo Welt!",#a,0 % auszugebende Zeichenkette (#a ist ein Zeilenumbruch,
% 0 schließt die Zeichenkette ab)
Main GETA $255,string % Adresse der Zeichenkette in Register $255 ablegen
TRAP 0,Fputs,StdOut % Zeichenkette, auf die mit Register $255
% verwiesen wird, nach ''StdOut'' ausgeben (Systemaufruf)
TRAP 0,Halt,0 % Prozess beenden
680x0-CPU, Amiga
; Getestet mit ASM-One V1.01
move.l 4.w,a6
lea dosn(pc),a1
jsr -408(a6) ; OldOpenLibrary
move.l d0,a6
lea s(pc),a0
move.l a0,d1
jsr -948(a6) ; PutStr
move.l a6,a1
move.l 4.w,a6
jsr -414(a6) ; CloseLibrary
moveq #0,d0
rts
dosn: dc.b "dos.library",0
s: dc.b "Hallo Welt!",10,0
PA-RISC-CPU, HP-UX
; Kompiliert und getestet mit
; "as hallo.s ; ld hallo.o /usr/ccs/lib/crt0"
; unter HP-UX 11.0 auf einer HP9000/L2000
.LEVEL 1.1
.SPACE $TEXT$
.SUBSPA $LIT$,ACCESS=0x2c
s .STRING "Hallo Welt!\x0a"
.SPACE $TEXT$
.SUBSPA $CODE$,ACCESS=0x2c,CODE_ONLY
.EXPORT _start,ENTRY,PRIV_LEV=3
.EXPORT __errno
.EXPORT __sys_atexit
_start
__errno
__sys_atexit
ldil L'0xC0000000,%r18
ldi 4,%r22 ; SYS_write
ldi 1,%r26 ; fd = stdout
ldil LR's,%r4
ldo RR's(%r4),%r25 ; buf = s
be,l 4(%sr7,%r18) ; Syscall
ldi 12,%r24 ; len = 12 (Branch delay slot)
ldi 1,%r22 ; SYS_exit
be,l 4(%sr7,%r18) ; Syscall
ldi 0,%r26 ; returncode = 0 (Branch delay slot)
SPARC-CPU, Linux
; Kompilieren mit "as -o hallo.o hallo.s; ld -o hallo hallo.o"
.section .data
hello_str:
.asciz "Hallo Welt!\n"
.align 4 ; Speicher muss aligned sein, damit wir später mit ld darauf zugreifen können
hello_str_len:
.word . - hello_str ; Länge der Zeichenkette (12 Zeichen)
.section .text
.global _start
_start:
set 4, %g1 ; Syscall-ID 4 (= __NR_write)
set 1, %o0 ; Ausgabe-Filedeskriptor STDOUT (= 1)
set hello_str, %o1 ; Adresse des ersten Zeichens der Zeichenkette
set hello_str_len, %l0 ; Die Stack-Adresse, an der die Länge der Zeichenkette steht, in local 0 laden
ld [%l0], %o2 ; Den Wert auf den local 0 zeigt in out 2 laden
t 0x110 ; Softwareinterrupt 0x110 um Syscall (write(1,hello_str,hello_str_len))auszuführen
set 1, %g1 ; Syscall-ID 1 (= __NR_exit)
set 0, %o0 ; Rückgabewert 0 (= alles ok)
t 0x110 ; Softwareinterrupt 0x110 um Syscall (exit(0)) auszuführen
Assemblersprache (Jasmin)
; HelloWorld.j
.bytecode 50.0
.source HelloWorld.java
.class public HelloWorld
.super java/lang/Object
.method public <init>()V
.limit stack 1
.limit locals 1
aload_0
invokespecial java/lang/Object/<init>()V
return
.end method
.method public static main([Ljava/lang/String;)V
.limit stack 2
.limit locals 1
getstatic java/lang/System/out Ljava/io/PrintStream;
ldc "Hallo Welt!"
invokevirtual java/io/PrintStream/println(Ljava/lang/String;)V
return
.end method
MIPS-32 mit erweitertem Befehlssatz
# Emulation mit 'spim -f hw.asm'
.data
helloworld: .asciiz "Hallo Welt!\n" # 'z' in asciiz für Null-terminierter-string
.text
main:
la $a0, helloworld # lade Adresse von helloworld
li $v0, 4 # print_string
syscall
li $v0, 10 # Betriebssystem exit-Routine
syscall
Arm-Armv7l, Linux
.text
.global _start
_start:
/* print */
mov r2, $11
ldr r1, =hw
mov r0, $1
mov r7, $4
svc $0
/* exit */
sub r0, r0, r0
mov r7, $1
svc $0
.data
hw:
.ascii "Hallo Welt\n"
IBM-Mainframe-ASSEMBLER
HALLOW CSECT
*
*****************************************************************
* ASSEMBLER-PROGRAMM FUER IBM-MAINFRAME MIT
* STANDARD-REGISTERSICHERUNG, LAUFFAEHIG UNTER
* DEN GAENGIGEN KLASSISCHEN MAINFRAME-BETRIEBSSYSTEMEN
* (ALSO JEDENFALLS Z/OS UND Z/VM UND DEREN VORLAEUFERN)
*****************************************************************
*
USING HALLOW,15 BASISADR = ENTRY POINT
STM 14,12,12(13) REGISTER SICHERN
LA 2,SAVEAREA NEUE SAVE AREA EINSTELLEN
ST 2,8(13) VORWAERTSVERKETTUNG SAVE AREAS
ST 13,4(2) RUECKWAERTSVERKETTUNG SAVE AREAS
LR 13,2 NEUE SAVE AREA NACH REG 13
*
OPEN (AUSGABE,OUTPUT) DD:SYSPRINT AUFMACHEN
PUT AUSGABE,BUFFER AUSGABE: HALLO WELT!
CLOSE AUSGABE DD:SYSPRINT ZUMACHEN
*
LA 13,4(13) ALTE SAVE AREA WIEDER EINSTELLEN
LM 14,12,12(13) REGISTER ZURUECKLADEN
XR 15,15 RETCODE AUF NULL
BR 14 RUECKSPRUNG
*
SAVEAREA DS 18F SAVE AREA
*
AUSGABE DCB DSORG=PS,MACRF=PM,DDNAME=SYSPRINT,RECFM=FBA,LRECL=133
*
BUFFER DC CL133' HALLO WELT!'
*
END HALLOW
Der Programmcode wird über festgelegte Spaltengrenzen erfasst:
- Spalte 1–8 = Feldbezeichnung
- Spalte 9 = “-” Zeile ist Fortsetzung der vorherigen Zeile; “*” Kommentarzeile
- in Spalte 10 beginnend = Befehlscode
- in Spalte 16 beginnend = Befehlsparameter, dahinter (nach Leerstelle) optional beliebige Kommentare
- Spalte 72 = “-” wird in der nächsten Zeile fortgesetzt, meist für lange Literale verwendet
- Spalte 73–80 = Kennung / lfd. Nummerierung (optional)
6502-CPU, C64
;Hello World for 6502 CPU (C64)
;Assembler used: win2c64
LDY #$00 ;init loop counter
L0
LDA L1,Y ;load a byte of the text
BEQ L2 ;if zero -> end
JSR $FFD2 ;call CHROUT
INY ;inc loop counter
JMP L0 ;thanks to paul nicholls
L1
.byte "hello world",0
L2
RTS
8048-CPU, Philips G7000
start
call gfxoff ; switch the graphics off
mov r0,#vdc_char0 ; start char
mov r3,#20h ; x-position
mov r4,#20h ; y-position
mov r2,#0Bh ; length
mov r1,#hellostr & 0FFh ; the string to print
; must be in the same page
loop mov a,r1 ; get pointer
movp a,@a ; get char
mov r5,a ; into to right register
inc r1 ; advance pointer
mov r6,#col_chr_white ; colour
call printchar ; print it
djnz r2,loop ; do it again
call gfxon ; lets see what is written
stop jmp stop ; Thats all
hellostr db 1Dh, 12h, 0Eh, 0Eh, 17h, 0Ch
db 11h, 17h, 13h, 0Eh, 1Ah
Z80-CPU, Amstrad CPC
ld hl,text ; address of text into hl
loop: ld a,(hl) ; load akku by content at address in hl
cp 0 ; compare to zero
ret z ; return if zero
call &bb5a ; otherwise print char in akku
inc hl ; hl=hl+1
jr loop ; relative jump to loop
text: db "Hello World!",0 ; text with 0 as end mark