Voting
Category
assembly language
Bookmarking
Language Assembler (Singer Friden System 10)
| Date: | 02/23/11 |
| Author: | Walter Lukhaup |
| URL: | n/a |
| Comments: | 0 |
| Info: | http://members.iinet.net.au/~daveb/S10/Sys-10.html |
| Score: |  (2.29 in 14 votes) |
* 99 BOOTLES OF BEER * SINGER FRIEDEN SYSTEM TEN ASSEMBLER * ORG 1000 COUNT DM N2 '99' FSTME DM N1 '1' LIN1 EQU *(33) BOT1 DM C2 DM C1 ' ' Z1 EQU *+6(1) DM C30 'BOTTLES OF BEER ON THE WALL' LIN2 EQU *(33) BOT2 DM C2 DM C1 ' ' Z2 EQU *+6(1) DM C30 'BOTTLES OF BEER' TAKE DM C30 'TAKE ONE DOWN AND PASS IT AROUND' NMORE DM C30 'NO MORE BOTTLES OF BEER ON THE WALL" * * * LOOP WC =C'J',0 NEW LINE ON CRT MC =C'XX',BOT1 E COUNT,BOT1 MC =C'XX',BOT2 E COUNT,BOT2 W LIN1(L:LIN1),0 WC =C'J' W LIN2(L:LIN2)),0 WC =C'J',0 W TAKE(30),0 WC =C'J',0 S =N'1',COUNT BLE BYE C COUNT,=N'1' BNE SKIP MC =C' ',Z1 MC =C' ',Z2 SKIP MC =C'XX',BOT1 E COUNT,BOT1 W BOT1(33),0 B LOOP BYE WC =C'J',0 W NMORE(L:NMORE),0 EXIT START LOOP
Download Source | Write Comment
Download Source | Write Comment
Add Comment
Please provide a value for the fields Name,
Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.
Please don't post large portions of code here! Use the form to submit new examples or updates instead!
Comments