aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

A-M baby

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 21:29:02 -07:00
parent 764da6cbbb
commit db842d013d
19005 changed files with 197040 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

31
Task/Hello-world-Text/6800-Assembly/hello-world-text.6800 Normal file
View file

@ -0,0 +1,31 @@
.cr 6800
.tf gbye6800.obj,AP1
.lf gbye6800
;=====================================================;
; Goodbye, World! for the Motorola 6800 ;
; by barrym 2013-03-17 ;
;-----------------------------------------------------;
; Prints the message "Goodbye, World!" to an ascii ;
; terminal (console) connected to a 1970s vintage ;
; SWTPC 6800 system, which is the target device for ;
; this assembly. ;
; Many thanks to: ;
; swtpc.com for hosting Michael Holley's documents! ;
; sbprojects.com for a very nice assembler! ;
; swtpcemu.com for a very capable emulator! ;
; reg x is the string pointer ;
; reg a holds the ascii char to be output ;
;-----------------------------------------------------;
outeee = $e1d1 ROM: console putchar routine
.or $0f00
;-----------------------------------------------------;
main ldx #string Point to the string
bra puts and print it
outs jsr outeee Emit a as ascii
inx Advance the string pointer
puts ldaa ,x Load a string character
bne outs Print it if non-null
swi else return to the monitor
;=====================================================;
string .as "Goodbye, World!",#13,#10,#0
.en