99 Bottles of Beer

Voting

Bookmarking

Language Assembler (1401 Autocoder)

Date:	03/03/06
Author:	Van Snyder
URL:	n/a
Comments:	1
Info:	http://www.bitsavers.org/pdf/ibm/14xx/C24-3319-0_1401_tapeAutocod.pdf
Score:	(3.40 in 25 votes)

               job  99 Bottles of Beer
               ctl  6611
     *
     * Print lyrics for  ,,99 Bottles of Beer on the wall,, song
     *
               org  201
     bot1      dcw  #2
               dcw  @ bottles of beer on the wall, @
     bot2      dcw  #2
               dcw  @ bottles of beer, @
     dowhat    dcw  @take one down and pass it around,@
     *
               org  333
     switch    bce  shrink,count-1,0  Fewer than ten remaining?
               mcw  count,bot1
               mcw  count,bot2
               w    decr
     *
     * The GMWM is loaded into the print area here instead of
     * just put there as data, and then clobbered, because modern
     * simulators print it.
     *
     shrink    lca  gmwm,dowhat&1  Shrink
               mcm  bot1&1,bot1      each count
               mcm  bot2,bot2-1        field by two
               lca  @   @,dowhat&1  clobber inserted GMWM
               sbr  switch&3,small
     small     mn   count,bot1-1
               mn   count,bot2-2
               bce  zero,count,0
               w
     decr      s    k1,count
               mz   *-2,count  clobber zone that subtract creates
               b    switch
     zero      lca  nomore,dowhat-1
               w
               cc   1
     halt      h
               b    halt
     nomore    dcw  @go to the store and buy some more.@
     count     dcw  99
     k1        dcw  1 
     gmwm      dcw  @}@  GMWM
               end  switch

Object deck:

,008015,022026,030037,044,049,053053N000000N00001026                   0001     
L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0?0002     
,008015,022029,036040,047054,061068,072/061039              ,00100110400003     
   BOTTLES OF BEER ON THE WALL,        L034234,203233,040040,04004010400004     
 BOTTLES OF BEER,                      L018252,040040,040040,04004010400005     
TAKE ONE DOWN AND PASS IT AROUND,      L033285,040040,040040,04004010400006     
B3594840M485202M4852342417L487286      L033365,341348,355359,04004010400007     
P203202P234233L490286H336394D485201    L035400,373380,387394,04004010400008     
D485232B43548502S486485Y428485B333     L034434,408416,417424,43104010400009     
L4832842F1.B445                        L015449,442443,445446,04004010400010     
GO TO THE STORE AND BUY SOME MORE.991} L038487,484486,487040,04004010400011     
                                       L003490,040040,040040,04004010400012     
                                       /333080                         0013     

Core dump (before the code modifies itself):

201:       BOTTLES OF BEER ON THE WALL,    BOTTLES OF BEER
        1 1                             1 1               
251:    , TAKE ONE DOWN AND PASS IT AROUND,               
          1                                               
301:                                    B3594840M485202M48
                                        1       1      1  
351:    52342417L487286P203202P234233L490286H336394D485201
            1   1      1      1      1      1      1      
401:    D485232B43548502S486485Y428485B333L4832842F1.B445G
        1      1       11      1      1   1      11 11   1
451:    O TO THE STORE AND BUY SOME MORE.991}             
                                         1 111

Download Source | Write Comment

Alternative Versions

Comments

Al said on 01/06/08 23:08:10

I once knew a Snyder who once coded in assembler on a 1401.

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!

one program in 1229 variations