Kerm said this topic was close to being locked, So I am going to attempt to revive the ASM. Any ways I have made a video of this in action, as well as updated the source so that you can press clear to quit.
Code:
#include "ti83plus.inc"
.org $9D95
.db $BB,$6D
LD B, 99
Loop:
LD H, 0
LD L, B
PUSH BC
bcall _DispHL
LD HL, Text1
bcall _PutS
bcall _NewLine
PUSH BC
bcall 4018h ;_GetCSC
CP skClear
JR Z, ComaTime
POP BC
POP BC
LD H, 0
LD L, B
PUSH BC
bcall _DispHL
LD HL, Text2
bcall _PutS
bcall _NewLine
LD HL, Text3
bcall _PutS
bcall _NewLine
PUSH BC
bcall 4018h ;_GetCSC
CP skClear
JR Z, ComaTime
POP BC
POP BC
DEC B
LD A, B
CP 0
JR Z, End
LD H, 0
LD L, B
PUSH BC
bcall _DispHL
LD HL, Text1
bcall _PutS
bcall _NewLine
bcall 4018h ;_GetCSC
CP skClear
JR Z, ComaTime
POP BC
JR Loop
End:
LD HL, Text4
bcall _PutS
bcall _NewLine
LD HL, Text5
bcall _PutS
bcall _NewLine
LD HL, Text6
bcall _PutS
bcall _NewLine
ret
ComaTime:
bcall _ClrLCDFull
ret
Text1:
.DB "BOTTLES OF BEER ON THE WALL", 0
Text2:
.DB "BOTTLES OF BEER",0
Text3:
.DB "TAKE ONE DOWN PASS IT AROUND", 0
Text4:
.DB "NO BOTTLES OF BEER ON THE WALL", 0
Text5:
.DB "GO TO THE STORE, GET SOME MORE", 0
Text6:
.DB "99 BOTTLES OF BEER ON THE WALL", 0
79 bottles of beer on the wall, 79 bottles of beer!
Take one down, pass it around, 78 bottles of beer on the wall!
