Saturday, September 23, 2023 17:30:32
C:\Users\paulk\Documents\Projects\IBM-1620\retro-1620\software\demos\99-bottles-of-beer\99-bottles-of-beer.lstC:\Users\paulk\Documents\Projects\IBM-1620\retro-1620\software\demos\99-bottles-of-beer\bottles-916-REFORMATTED.txt
1  (ID) **99 BOTTLES OF BEER 
2        *LIST PRINTER 
3        *PRINT SYMBOL TABLE 
4  
5  
6  
7 99 BOTTLES OF BEER PAGE 1 
8  
9DBEER4 02718 DBEER2 02706 DBEERS 02626 BEERS 02741 BTL 02763 
10 BTLS 02745 DBRET 02625 EMPTY 02578 MSG2 02779 MSG4 02823 
11 MSG6 02843 MSG8 02907 START 02402 
12  
13 99 BOTTLES OF BEER PAGE 1 
14  
151     * DOWNLOADED 2023-07-02 FROM
16     * HTTP //99-BOTTLES-OF-BEER.NET/LANGUAGE-IBM-1620-SPS-916.HTML2     * http //99-bottles-of-beer.net/language-ibm-1620-sps-916.html
173     *333333
184     * BOTTLES OF BEER PROGRAM FOR THE IBM 1620 MODEL I
195     *
206     * HAMMERS THE WHOLE THING OUT ON THE CONSOLE TYPEWRITER.
217     *
228     * A MISERABLE WASTE OF TIME ON 10/2005 BY
239     * CHUCK GUZIS CHUCK @ SYDEX.COM
2410     *
2511     * THIS CODE IS SHOWN IN ASSEMBLY-LISTING FORMAT WITH SPS MNEMONICS.
2612     * I HAVE SPREAD THE SPS FIELDS OUT A BIT FOR READABILITY.
2713     *
28     * THERE ARE SOME SPECIAL NUMERIC CHARACTERS-14     * THERE ARE SOME SPECIAL NUMERIC CHARACTERS:
29     * - = FLAGGED 015     * ] = FLAGGED 0
3016     * J-R = FLAGGED 1-9
31     *17     *··········| = RECORD MARK
32     *18     *··········[ = FLAGGED RECORD MARK (NOT USED HERE)
33     *19     *
34     * IF YOU-RE GOING TO RUN THIS ON THE CADET, YOU NEED TO HAVE AT LEAST20     * IF YOU'RE GOING TO RUN THIS ON THE CADET, YOU NEED TO HAVE AT LEAST
3521     * THE ADDITION TABLES LOADED. INDIRECT ADDRESSING IS USEFUL, BUT NOT
3622     * ABSOLUTELY NECESSARY (SEE NOTE BELOW).
3723     *
3824     * EXECUTION STARTS AT 00402.
3925     *
40      START RCTY ,,, RETURN CARRIAGE 02402 34 00000 0010226      START RCTY ,,, RETURN CARRIAGE 00402 34 00000 00102
41             BTM DBEERS,*+12 ,,, SHOW COUNT 02414 17 02626 -242627             BTM DBEERS,*+12 ,,, SHOW COUNT 00414 17 00626 ]0426
42             WATY MSG2 ,,, OF BEER ON... 02426 39 02779 0010028             WATY MSG2 ,,, OF BEER ON... 00426 39 00783 00100
43             RCTY ,,, RETURN CARR. 02438 34 00000 0010229             RCTY ,,, RETURN CARR. 00438 34 00000 00102
44             BTM DBEERS,*+12 ,,, SHOW COUNT 02450 17 02626 -246230             BTM DBEERS,*+12 ,,, SHOW COUNT 00450 17 00626 ]0462
45             WATY MSG4 ,,, OF BEER. 02462 39 02823 0010031             WATY MSG4 ,,, OF BEER. 00462 39 00827 00100
46             RCTY ,,, ZZZZIP... 02474 34 00000 0010232             RCTY ,,, ZZZZIP... 00474 34 00000 00102
47             WATY MSG6 ,,, TAKE ONE DOWN 02486 39 02843 0010033             WATY MSG6 ,,, TAKE ONE DOWN 00486 39 00847 00100
48             RCTY ,,, ZZZIP... 02498 34 00000 0010234             RCTY ,,, ZZZIP... 00498 34 00000 00102
49             SM BEERS,1 ,,, A DEAD SOLDIER 02510 12 02741 -000135             SM BEERS,1 ,,, A DEAD SOLDIER 00510 12 00745 ]0001
50             BZ EMPTY ,,, IF ALL GONE 02522 46 02578 0120036             BZ EMPTY ,,, IF ALL GONE 00522 46 00578 01200
51             BTM DBEERS,*+12 ,,, SHOW COUNT 02534 17 02626 -254637             BTM DBEERS,*+12 ,,, SHOW COUNT 00534 17 00626 ]0546
52             WATY MSG2 ,,, ON THE WALL 02546 39 02779 0010038             WATY MSG2 ,,, ON THE WALL 00546 39 00783 00100
53             RCTY ,,, ZZZZZIP... 02558 34 00000 0010239             RCTY ,,, ZZZZZIP... 00558 34 00000 00102
54             B7 START ,,, DO IT AGAIN 02570 49 02402·0000040             B7 START ,,, DO IT AGAIN 00570 49 00402
 41                                                                                 00577 0
55      EMPTY WATY MSG8 ,,, NO MORE BEER 02578 39 02907 0010042      EMPTY WATY MSG8 ,,, NO MORE BEER 00578 39 00911 00100
56             RCTY ,,, ZZZZIP... 02590 34 00000 0010243             RCTY ,,, ZZZZIP... 00590 34 00000 00102
57             H ,,, STOP 02602 48 00000 0000044             H ,,, STOP 00602 48 00000 00000
58             B7 EMPTY ,,, IN CASE RUN PUSHED 02614 49 02578·0000045             B7 EMPTY ,,, IN CASE RUN PUSHED 00614 49 00578
5946     *
6047     * SUBROUTINE TO DISPLAY BOTTLE COUNT AND EITHER *BOTTLE* OR *BOTTLES*
6148     *
6249     * THIS ASSUMES THAT THE INDIRECT ADDRESSING FEATURE IS PRESENT, BUT
63     * IF NOT, SIMPLY USE A BB·(42) INSTRUCTION IN PLACE OF THE INDIRECT50     * IF NOT, SIMPLY USE A "BB"(42) INSTRUCTION IN PLACE OF THE INDIRECT
6451     * BRANCHES.
6552     *
66      DBRET DC 5,0 ,,, RETURN ADD 02625 0000553      DBRET DC 5,0 ,,, RETURN ADD 00621 00000
67      DBEERS CM BEERS,10 ,,, DISPLAY BOTTLES 02626 14 02741 -001054      DBEERS CM BEERS,10 ,,, DISPLAY BOTTLES 00626 14 00745 ]0010
68             BNL DBEER2 ,,, 10 OR MORE 02638 46 02706 0130055             BNL DBEER2 ,,, 10 OR MORE 00638 46 00710 01300
69             WNTY BEERS ,,, 1 DIGIT 02650 38 02741 0010056             WNTY BEERS ,,, 1 DIGIT 00650 38 00745 00100
70             CM BEERS,1 ,,, JUST 1·Q                                   02662 14 02741 -000157             CM BEERS,1 ,,, JUST 1?                                    00662 14 00745 ]0001
71             BNE DBEER4          ,,, NO, *BOTTLES* 02674 47 02718 0120058             BNE DBEERS4         ,,, NO, *BOTTLES* 00674 47 00722 01200
72             WATY BTL ,,, SAY *BOTTLE* 02686 39 02763 0010059             WATY BTL ,,, SAY *BOTTLE* 00686 39 00767 00100
73             B7 -DBRET ,,, EXIT 02698 49 0262N·0000060             B7 -DBRET ,,, EXIT 00698 49 ]062N
74      DBEER2 WNTY BEERS-1 ,,, 2 DIGITS 02706 38 02740 0010061      DBEER2 WNTY BEERS-1 ,,, 2 DIGITS 00710 38 00744 00100
75      DBEER4 WATY BTLS ,,, SAY BOTTLES 02718 39 02745 0010062      DBEER4 WATY BTLS ,,, SAY BOTTLES 00722 39 00749 00100
76             B7 -DBRET ,,, EXIT 02730 49 0262N·0000063             B7 -DBRET ,,, EXIT 00734 49 ]062N
77      BEERS DC 5,99 ,,, BOTTLE COUNT 02741 0000564      BEERS DC 5,99 ,,, BOTTLE COUNT 00741 ]0099
78             DC 1,@ 02742 0000165             DC 1,@ 00746 |
 66                                                                                 00747 0
79      BTLS DAC 8, BOTTLES 02745 0001667      BTLS DAC 8, BOTTLES 00748 0042566363534562
80             DAC 1,@ 02761 0000268             DAC 1,@ 00764 0|
81      BTL DAC 8, BOTTLE@ 02763 0001669      BTL DAC 8, BOTTLE@ 00766 004256636353450|
82      MSG2 DAC 8, OF BEER 02779 0001670      MSG2 DAC 8, OF BEER 00782 0056460042454559
83             DAC 7, ON THE 02795 0001471             DAC 8, ON THE 00798 0056550063484500
84             DAC 7,·WALL.@ 02809 0001472             DAC 6,WALL.@ ·00814 66415353030|
85      MSG4 DAC 8, OF BEER 02823 0001673      MSG4 DAC 8, OF BEER 00826 0056460042454559
86             DAC 2,.@ 02839 0000474             DAC 2,.@ 00842 030|
87      MSG6 DAC 8,TAKE ONE 02843 0001675      MSG6 DAC 8,TAKE ONE 00846 6341524500565545
88             DAC 6, DOWN, 02859 0001276             DAC 7, DOWN, 00862 00445666552300
89             DAC 8,·PASS IT 02871 0001677             DAC 8,PASS IT ·00876 5741626200496300
90             DAC 9,·AROUND - 02887 0001878             DAC 8,AROUND - ·00892 4159566455440020
91             DAC 1,@ 02905 0000279             DAC 1,@ 00908 0|
92      MSG8 DAC 7,NO MORE 02907 0001480      MSG8 DAC 8,NO MORE 00910 5556005456594500
93             DAC 7,·BEER.@ 02921 0001481             DAC 6,BEER.@ ·00926 42454559030|
94             DEND START 02402 
95  
9602934 
97      CORE POSITIONS REQUIRED 
9800080 
99      STATEMENTS PROCESSED 
100  
101  
102  
103  
104  
10582