99 Bottles of Beer/Assembly: Difference between revisions

{{collection|99 Bottles of Beer}} [[implementation of task::99 Bottles of Beer| ]]

[[99 Bottles of Beer]] done in any of the assembler-languages.

 

<!-- still missing:

__toc__

 

For maximum compatibility, this program uses only the basic instruction set.

BOTTLES CSECT

USING BOTTLES,R12

DC H'0' must be binary zeroes

YREGS

{{out}}

<pre style="height:20ex">

</pre>

 

IMPORTANT NOTE: This assembly language solution is targeted at the Apple 1.

 

and cannot be "fixed" due to non-compliance, only deleted.

 

.TF AP1BEER.O,AP1

.LF AP1BEER.LST

:4E 44 20 42 55 59 20 53 4F 4D 45 20 4D

:4F 52 45 2C 8D

 

 

.tf beer6800.obj,AP1

.lf beer6800

e0FB0 74 68 65 20 73 74 6F 72 65 20 61 6E 64 20 62 75

e0FC0 79 20 73 6F 6D 65 20 6D 6F 72 65 2C A0

 

The following is a Sega Genesis cartridge that can be assembled and run on the Fusion emulator. Press the A button to advance to the next part of the song. The game freezes when finished. Thanks to Keith S. of Chibiakumas for the cartridge header and print routines.

 

;Ram Variables

Cursor_X equ $00FF0000 ;Ram for Cursor Xpos

DC.B $80 ;23 DMA source address high (C=CMD) CCHHHHHH

VDPSettingsEnd:

 

;; 99 bottles of beer, in 8080 assembly ;;

;; Written to run under CP/M ;;

sstore: db 'Go to the store and buy some more,',13,10,0

 

<!-- printf missing ? --->

.global main

 

.ascii "No more bottles of beer on the wall, no more bottles of beer.\n"

.ascii "Go to the store and buy some more, 99 bottles of beer on the wall\n\000"

 

 

; This is not strictly LLVM, as it uses the C library function "printf".

break:

ret i32 0

 

<!-- missing here:

-->

 

The following example demonstrates the use of pointer variables (the argument <tt>,^#</tt> to the <tt>&VERSE#</tt> method), and therefore may not be as efficient as one which does not use pointer variables.

; Beer program with OASYS assembler.

 

['QUIT]

GQ

 

 

.model flat, stdcall

option casemap :none

INVOKE StdOut, offset str4

INVOKE ExitProcess, 0

 

[bits 16]

DrinkBeer:

.dataBeerSong3: db 0, " bottles of beer on the wall", 0

 

 

 

section .data

mov ebx, 0

mov eax, 1

 

Could maybe have done it all with macros, but I wanted to write my own itoa function. Plus I feel like using the preprocessor for its looping directives takes the challenge out of the problem. To extend to larger numbers, all you have to do is increase the size of the buffer and modify START_BOTTLES.

#define SYS_EXIT $60

#define SYS_WRITE $1

regstring3:

.ascii " bottles of beer on the wall.\n\n"

 

For Sinclair ZX Spectrum.

 

start:

line1: defb ' bottles of beer on the wall,',13,'$'

line2_3: defb ' bottles of beer,',13,'Take one down, pass it around,',13,'$'