First Commit
[subs.git] / A34211.XX
1         .TITLE SUBAN2 -A/N SET FOR 2716-REVISED\r
2         .SBTTL*************************\r
3         .SBTTL*\r
4         .SBTTL* PROGRAMMER: JOHN RAY\r
5         .SBTTL*\r
6         .SBTTL* CHECKER:\r
7         .SBTTL*\r
8         .SBTTL*************************\r
9 ;\r
10 ;DATE INITATED: 12/20/78\r
11 ;PROJECT CHARGE #: 5J121\r
12 ;DISK #: 18\r
13 ;HARDWARE REQUIREMENTS:\r
14 ;\r
15 ; MSB DISPLAYED FIRST\r
16 ;\r
17 ;\r
18 ;MEMORY REQUIREMENTS:\r
19 ;\r
20 ; 2K X 8\r
21 ;\r
22 ;\r
23 ;\r
24 ;INTERRUPT REQUIREMENTS:\r
25 ;\r
26 ;\r
27 ;\r
28 ;\r
29 ;ASSEMBLY COMMAND STRING:\r
30 ;\r
31 ;\r
32 ;\r
33 ;\r
34 ;LINK COMMAND STRING:\r
35 ;\r
36 ;\r
37 ;\r
38 ;\r
39 ;PROGRAM DESCRIPTION:\r
40 ;\r
41 ; ALPHA/NUMBERIC ROM FOR SUBS\r
42 ; CONTAINS ALPHABET,NUMBERALS,ISLANDS,\r
43 ; AND SONAR PICTURES\r
44 ; CONTAINS ISLANDS ON SONAR\r
45 ;\r
46         .ASECT\r
47         .RADIX  16\r
48         .ENABL M68\r
49         .LIST   MEB\r
50         .NLIST  BYT\r
51         .=1000\r
52         .MACRO  .LINE X\r
53         .IRP A,<'X'>\r
54         .BYTE   <A&16.*8>+<A&32.*2>+<A&64./2>+<A&128./8>+<A&1*8>+<A&2*2>+<A&4/2>+<A&8/8>\r
55         .ENDR\r
56         .ENDM\r
57         .MACRO P,Q\r
58         .IRP X,<Q>\r
59         .WORD 0'X\r
60         .ENDR\r
61         .ENDM\r
62         .NLIST  ME\r
63 A000:   .LINE   <000,000,000,000,000,000,000,000>       ;SPACE (REALLY @)\r
64 A010:   .LINE   <000,0C1,063,036,036,0F7,036,036>       ;A\r
65         .LIST   ME\r
66 A020:   .LINE   <000,0F3,036,036,0F3,036,036,0F3>\r
67         .NLIST  ME\r
68 A030:   .LINE   <000,0C3,066,030,030,030,066,0C3>\r
69 A040:   .LINE   <000,0F1,033,036,036,036,033,0F1>\r
70 A050:   .LINE   <000,0F3,030,030,0F1,030,030,0F7>\r
71 A060:   .LINE   <000,0F7,030,030,0F3,030,030,030>\r
72 A070:   .LINE   <000,0C7,060,030,037,036,066,0C7>\r
73 A080:   .LINE   <000,036,036,036,0F7,036,036,036>\r
74 A090:   .LINE   <000,0F3,0C0,0C0,0C0,0C0,0C0,0F3>\r
75 A0A0:   .LINE   <000,006,006,006,006,006,036,0E3>\r
76 A0B0:   .LINE   <000,036,033,0B1,0F0,0F1,0B3,037>\r
77 A0C0:   .LINE   <000,030,030,030,030,030,030,0F7>\r
78 A0D0:   .LINE   <000,036,077,0F7,0F7,0B6,036,036>\r
79 A0E0:   .LINE   <000,036,076,0F6,0F7,0B7,037,036>\r
80 A0F0:   .LINE   <000,0E3,036,036,036,036,036,0E3>\r
81 A100:   .LINE   <000,0F3,036,036,036,0F3,030,030>\r
82 A110:   P       <0FE,0C0C0,0FEC0,0C3C3> ;F.\r
83 A120:   .LINE   <000,0F3,036,036,037,0F1,0B3,037>\r
84 A130:   .LINE   <000,0E1,033,030,0E3,006,036,0E3>\r
85 A140:   .LINE   <000,0F3,0C0,0C0,0C0,0C0,0C0,0C0>\r
86 A150:   .LINE   <000,036,036,036,036,036,036,0E3>\r
87 A160:   .LINE   <000,036,036,036,077,0E3,0C1,080>\r
88 A170:   .LINE   <000,036,036,0B6,0F7,0F7,077,036>\r
89 A180:   P       <0C4,0C4C0,0C0C0,0C0FE> ;L'\r
90 A190:   .LINE   <000,033,033,033,0E1,0C0,0C0,0C0>\r
91 A1A0:   .LINE   <000,0F7,007,083,0C1,0E0,070,0F7>       ;Z\r
92         .LINE   <0FF,0FF,0FF,0FF,0FF,0FF,0FF,0FF>       ;SOLID\r
93         P       <1,70E,0C1F,7FFF>                       ;1C ISLANDS\r
94         P       <0C186,1E,0FCF8,0F8F0>                  ;1D\r
95         P       <103,70F,1F1F,0F07>                     ;1E\r
96         P       <0E0E0,0C0C0,8080,0>                    ;1F\r
97         P       <303,707,0F1F,7FFF>                     ;20\r
98         P       <0FFFE,0FEFC,0FCF8,0F0E0>               ;21\r
99         P       <0F1FB,0FEFC,0F8F0,0C080>               ;22\r
100         P       <101,0,107,0F01>                        ;23\r
101         P       <107,1F7F,0FFFF,0FFFF>                  ;24\r
102         P       <0FEFC,0F8F8,0F0F0,0E080>               ;25\r
103         P       <0FFFF,0FFFF,0,0>                       ;26\r
104         P       <0F0E0,0C000,0,0>                       ;27\r
105         P       <0F0F,0F0F,0F0F,0F0F>                   ;28 BOUNDARIES\r
106         P       <0F0F0,0F0F0,0F0F0,0F0F0>               ;29\r
107         P       <0FFFF,0FFFF,0,0>                       ;2A\r
108         P       <0,0,0FFFF,0FFFF>                       ;2B\r
109         P       <018,1800,018,1800>                     ;2C COLON\r
110         P       <0FCFC,0FCFE,0FEFE,0FEFE>               ;2D -ISLAND 2\r
111         P       <0F0F,703,301,0>                        ;2E\r
112         P       <0FFFF,0FFFC,0F0E0,0C080>               ;2F\r
113 A300:   .LINE   <000,0C1,023,036,036,036,062,0C1>       ;0 (ZERO)\r
114 A310:   .LINE   <000,0C0,0E0,0C0,0C0,0C0,0C0,0F3>\r
115 A320:   .LINE   <000,0E3,036,007,0C3,0E1,070,0F7>\r
116 A330:   .LINE   <000,0E7,003,081,0C3,006,036,0E3>\r
117 A340:   .LINE   <000,083,0C3,063,033,0F7,003,003>\r
118 A350:   .LINE   <000,0F3,030,0F3,006,006,036,0E3>\r
119 A360:   .LINE   <000,0C3,060,030,0F3,036,036,0E3>\r
120 A370:   .LINE   <000,0F7,036,003,081,0C0,0C0,0C0>\r
121 A380:   .LINE   <000,0E1,032,072,0E1,097,016,0E3>\r
122 A390:   .LINE   <000,0E3,036,036,0E7,006,003,0E1>       ;9\r
123         P       <0FEFC,0F800,0,0>                       ;3A -ISLAND 2\r
124         P       <1,103,33F,7F3F>                        ;3B\r
125         P       <8000,0,80C0,0FCFF>                     ;3C\r
126         P       <80,8000,0,0>                           ;3D\r
127         P       <1030,6060,4000,0>                      ;3E -SONAR ISLAND 1\r
128         P       <0,2,604,0C08>                          ;3F -SONAR ISLAND 2\r
129         P       <F00E,100,0,0>          ;40\r
130         P       <0,8040,2010,0804>      ;41\r
131         P       <0402,0202,0101,0101>   ;42\r
132         P       <8080,8080,8080,8080>   ;43\r
133         P       <F08E,8180,8080,8080>   ;44\r
134         P       <8080,8080,8080,8080>   ;45\r
135         P       <F04E,4140,4040,8080>   ;46\r
136         P       <4040,4080,8080,8080>   ;47\r
137         P       <F01E,2120,2020,4040>   ;48\r
138         P       <2020,4040,4080,8080>   ;49\r
139         P       <F00E,0908,1010,1020>   ;4A\r
140         P       <1010,2020,4040,8080>   ;4B\r
141         P       <F00E,0304,0408,0810>   ;4C\r
142         P       <0810,1020,2040,8080>   ;4D\r
143         P       <F00E,0101,0202,0408>   ;4E\r
144         P       <0408,1010,2040,4080>   ;4F\r
145         P       <F00E,0100,0001,0204>   ;50\r
146         P       <0,8040,A010,0804>      ;51\r
147         P       <0204,0808,1020,4080>   ;52\r
148         P       <F00E,0100,0,0001>      ;53\r
149         P       <0,8040,2050,8804>      ;54\r
150         P       <0001,020C,1020,4080>   ;55\r
151         P       <8402,0202,0101,0101>   ;56\r
152         P       <0,8040,2010,2844>      ;57\r
153         P       <0,0102,0C10,6080>      ;58\r
154         P       <2442,8202,0101,0101>   ;59\r
155         P       <0,8040,2010,0814>      ;5A\r
156         P       <0,0001,0618,20C0>      ;5B\r
157         P       <0C32,4282,0101,0101>   ;5C\r
158         P       <0,0,030C,30C0>         ;5D\r
159         P       <0406,1A62,8101,0101>   ;5E\r
160         P       <0,0,0003,1CE0>         ;5F\r
161         P       <0402,020E,7181,0101>   ;60\r
162         P       <0,0,0,07F8>            ;61\r
163         P       <0402,0202,033D,C101>   ;62\r
164         P       <0,0,0,00FF>            ;63\r
165         P       <0402,0202,0101,3FC1>   ;64\r
166         P       <0101,0101,0202,0204>   ;65\r
167         P       <0408,1020,4080,0>      ;66\r
168         P       <0,0,0001,0EF0>         ;67\r
169         P       <FF00,2,604,0C08>       ;68\r
170         P       <FF01,0101,0202,0204>   ;69\r
171         P       <FF00,2,604,0C08>       ;6A\r
172         P       <C13F,0101,0202,0204>   ;6B\r
173         P       <F807,2,604,0C08>       ;6C\r
174         P       <01C1,3D03,0202,0204>   ;6D\r
175         P       <E01C,302,604,0C08>     ;6E\r
176         P       <0101,8171,0E02,0204>   ;6F\r
177         P       <C030,0C03,604,0C08>    ;70\r
178         P       <0101,0181,621A,0604>   ;71\r
179         P       <C020,1806,704,0C08>    ;72\r
180         P       <0101,0101,8242,320C>   ;73\r
181         P       <8060,100E,0605,0C08>   ;74\r
182         P       <0101,0101,0282,4224>   ;75\r
183         P       <1408,1020,4080,0>      ;76\r
184         P       <8040,2012,0E06,0D08>   ;77\r
185         P       <0101,0101,0202,0284>   ;78\r
186         P       <4428,1020,4080,0>      ;79\r
187         P       <8040,2012,0E0C,0C0A>   ;7A\r
188         P       <0100,0000,0001,0EF0>   ;7B\r
189         P       <0488,5020,4080,0>      ;7C\r
190         P       <8040,4022,1614,0C0C>   ;7D\r
191         P       <0402,0100,0001,0EF0>   ;7E\r
192         P       <0408,10A0,4080,0>      ;7F\r
193         P       <8080,4022,2614,1C08>   ;80\r
194         P       <0804,0202,0101,0EF0>   ;81\r
195         P       <8080,4042,2624,1C18>   ;82\r
196         P       <1008,0804,0403,0EF0>   ;83\r
197         P       <8080,8042,4644,2C28>   ;84\r
198         P       <2010,1010,0809,0EF0>   ;85\r
199         P       <8080,8082,8644,4C48>   ;86\r
200         P       <4040,2020,2021,1EF0>   ;87\r
201         P       <8080,8082,8684,8C88>   ;88\r
202         P       <8080,4040,4041,4EF0>   ;89\r
203         P       <0,0,0080,700F>                 ;8A\r
204         P       <2010,0804,0201,0>      ;8B\r
205         P       <8080,8080,4040,4020>   ;8C\r
206         P       <0101,0101,0101,0101>   ;8D\r
207         P       <0101,0101,0181,710F>   ;8E\r
208         P       <0101,0101,0101,0101>   ;8F\r
209         P       <0101,0202,0282,720F>   ;90\r
210         P       <0101,0101,0102,0202>   ;91\r
211         P       <0202,0404,0484,780F>   ;92\r
212         P       <0101,0102,0202,0404>   ;93\r
213         P       <0408,0808,1090,700F>   ;94\r
214         P       <0101,0202,0404,0808>   ;95\r
215         P       <0810,1020,20C0,700F>   ;96\r
216         P       <0101,0204,0408,0810>   ;97\r
217         P       <1020,4040,8080,700F>   ;98\r
218         P       <0102,0204,0808,1020>   ;99\r
219         P       <4040,8000,0080,700F>   ;9A\r
220         P       <2010,0805,0201,0>      ;9B\r
221         P       <0102,0408,1010,2040>   ;9C\r
222         P       <8000,0,0080,700F>      ;9D\r
223         P       <2011,0A04,0201,0>      ;9E\r
224         P       <0102,0408,3040,8000>   ;9F\r
225         P       <8080,8080,4040,4021>   ;A0\r
226         P       <2214,0804,0201,0>      ;A1\r
227         P       <0106,0830,4080,0>      ;A2\r
228         P       <8080,8080,4041,4224>   ;A3\r
229         P       <2810,0804,0201,0>      ;A4\r
230         P       <0304,1860,8000,0>      ;A5\r
231         P       <8080,8080,4142,4C30>   ;A6\r
232         P       <030C,30C0,0,0>         ;A7\r
233         P       <8080,8081,4658,6020>   ;A8\r
234         P       <0738,C000,0,0>         ;A9\r
235         P       <8080,818E,7040,4020>   ;AA\r
236         P       <1FE0,0,0,0>            ;AB\r
237         P       <8083,BCC0,4040,4020>   ;AC\r
238         P       <FF00,0,0,0>            ;AD\r
239         P       <837C,8080,4040,4020>   ;AE\r
240         P       <2040,4040,8080,8080>   ;AF\r
241         P       <0,0102,0408,1020>      ;B0\r
242         P       <0F70,8000,0,0>         ;B1\r
243         P       <1030,6060,4000,0FF>    ;B2\r
244         P       <2040,4040,8080,80FF>   ;B3\r
245         P       <1030,6060,4000,0FF>    ;B4\r
246         P       <2040,4040,8080,FC83>   ;B5\r
247         P       <1030,6060,4000,E01F>   ;B6\r
248         P       <2040,4040,C0BC,8380>   ;B7\r
249         P       <1030,6060,40C0,3807>   ;B8\r
250         P       <2040,4070,8E81,8080>   ;B9\r
251         P       <1030,6060,C030,0C03>   ;BA\r
252         P       <2060,5846,8180,8080>   ;BB\r
253         P       <1030,60E0,6018,0403>   ;BC\r
254         P       <304C,4241,8080,8080>   ;BD\r
255         P       <1030,E060,7008,601>    ;BE\r
256         P       <2442,4140,8080,8080>   ;BF\r
257         P       <0,0102,0408,1028>      ;C0\r
258         P       <10B0,6070,4804,201>    ;C1\r
259         P       <2140,4040,8080,8080>   ;C2\r
260         P       <0,0102,0408,1422>      ;C3\r
261         P       <5030,7070,4804,201>    ;C4\r
262         P       <0F70,8000,0,0080>      ;C5\r
263         P       <0,0102,040A,1120>      ;C6\r
264         P       <3030,6868,4402,201>    ;C7\r
265         P       <0F70,8000,0080,4020>   ;C8\r
266         P       <0,0102,0508,1020>      ;C9\r
267         P       <1038,6864,4402,101>    ;CA\r
268         P       <0F70,8080,4040,2010>   ;CB\r
269         P       <1838,6464,4202,101>    ;CC\r
270         P       <0F70,C020,2010,1008>   ;CD\r
271         P       <1434,6262,4201,101>    ;CE\r
272         P       <0F70,9010,0808,0804>   ;CF\r
273         P       <1232,6261,4101,101>    ;D0\r
274         P       <0F78,8404,0404,0202>   ;D1\r
275         P       <1131,6161,4101,101>    ;D2\r
276         P       <0F72,8202,0202,0101>   ;D3\r
277         P       <0F00E,6160,0,0>        ;D4\r
278         P       <0F00E,0100,0060,6000>  ;D5\r
279         P       <0F00E,0100,0606,0000>  ;D6\r
280         P       <0,8040,2010,0C8C4>     ;D7\r
281         P       <0462,6202,0101,0101>   ;D8\r
282         P       <0402,0202,0161,6101>   ;D9\r
283         P       <0402,0202,010D,0D01>   ;DA\r
284         P       <0161,6101,0202,0204>   ;DB\r
285         P       <010D,0D01,0202,0204>   ;DC\r
286         P       <0101,0101,0262,6204>   ;DD\r
287         P       <0C4C8,1020,4080,0>     ;DE\r
288         P       <0006,0600,0001,0EF0>   ;DF\r
289         P       <0060,6000,0001,0EF0>   ;E0\r
290         P       <0,0,6061,0EF0>         ;E1\r
291         P       <0006,0600,0080,700F>   ;E2\r
292         P       <0,0,0686,700F>         ;E3\r
293         P       <0060,6000,0080,700F>   ;E4\r
294         P       <2313,0804,0201,0>      ;E5\r
295         P       <8080,8080,4046,4620>   ;E6\r
296         P       <8086,8680,4040,4020>   ;E7\r
297         P       <80B0,0B080,4040,4020>  ;E8\r
298         P       <2040,4040,8086,8680>   ;E9\r
299         P       <2040,4040,80B0,0B080>  ;EA\r
300         P       <2046,4640,8080,8080>   ;EB\r
301         P       <0,0102,0408,1323>      ;EC\r
302         P       <0F70,8000,0060,6000>   ;ED\r
303         P       <0F70,8000,0006,0600>   ;EE\r
304         P       <0F70,8606,0,0>         ;EF\r
305         P       <C0C0,0,0,0>            ;BLIP 0-F0\r
306         P       <0,C0C0,0,0>            ;BLIP 1-F1\r
307         P       <0,0,C0C0,0>            ;BLIP 2-F2\r
308         P       <0,0,0,C0C0>            ;BLIP 3-F3\r
309         P       <3030,0,0,0>            ;BLIP 4-F4\r
310         P       <0,3030,0,0>            ;BLIP 5-F5\r
311         P       <0,0,3030,0>            ;BLIP 6-F6\r
312         P       <0,0,0,3030>            ;BLIP 7-F7\r
313         P       <0C0C,0,0,0>            ;BLIP 8-F8\r
314         P       <0,0C0C,0,0>            ;BLIP 9-F9\r
315         P       <0,0,0C0C,0>            ;BLIP A-FA\r
316         P       <0,0,0,0C0C>            ;BLIP B-FB\r
317         P       <0303,0,0,0>            ;BLIP C-FC\r
318         P       <0,0303,0,0>            ;BLIP D-FD\r
319         P       <0,0,0303,0>            ;BLIP E-FE\r
320         P       <0,0,0,0303>            ;BLIP F-FF\r
321         .END\r
322 \0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0