First Commit
[subs.git] / A34216.XX
1         .TITLE  SUBMO3 - LYLE'S MOTION PROMS\r
2         .SBTTL  ****************************\r
3         .SBTTL  *\r
4         .SBTTL  * PROGRAMMER: JOHN RAY\r
5         .SBTTL  *\r
6         .SBTTL  ****************************\r
7 ;\r
8 ;DATE INITIATED:        11-8-78\r
9 ;\r
10 ;PROJECT CHARGE #:      11203\r
11 ;\r
12 ;DISK #:                6\r
13 ;\r
14 ;HARDWARE REQUIREMENTS:\r
15 ;       4 NYBBLES - LSB DISPLAYED FIRST\r
16 ;\r
17 ;MEMORY REQUIREMENTS:\r
18 ;       4X82S115\r
19 ;       (1K X 16)\r
20 ;\r
21 ;DESCRIPTION:\r
22 ;       MOTION OBJECTS FOR SUBS\r
23 ;       (COURTESY LYLE RAINS)\r
24 ;       64 OBJECTS, EACH 16X16\r
25 ;       MSB IS BLANKED\r
26 ;\r
27 ;THIS PROGRAM TAKES NORMAL HEX CODE AND CONVERTS IT FOR SPRINT 4.\r
28 ;THE BITS ARE ROTATED IN EACH NYBBLE.  TWO SECTORS ARE CREATED.\r
29 ;1000-13FF IS THE FIRST SECTOR, 1400-17FF IS THE SECOND.  THE FIRST\r
30 ;SECTOR CONTAINS THE FIRST TWO NYBBLES, THE SECOND SECTOR CONTAINS\r
31 ;THE LAST TWO NYBBLES.\r
32 ;\r
33 ;\r
34         .PAGE\r
35         .ASECT\r
36         .ENABLE M68\r
37         .LIST MEB\r
38         .NLIST BYT\r
39         .RADIX 16\r
40         .=1000\r
41         ..T1=.\r
42         ..T2=.+1024.\r
43         .MACRO P .0,.1,.2,.3,.4,.5,.6,.7,.8,.9,.10,.11,.12,.13,.14,.15\r
44         .=..T1\r
45         .IRP X,<.0,.2,.4,.6,.8,.10,.12,.14>\r
46         CONV X/16.&15.\r
47         S=T\r
48         CONV X&15.\r
49         .BYTE <S*16.>+T\r
50         .ENDR\r
51         ..T1=.\r
52         .=..T2\r
53         .IRP X,<.1,.3,.5,.7,.9,.11,.13,.15>\r
54         CONV X/16.&15.\r
55         S=T\r
56         CONV X&15.\r
57         .BYTE <S*16.>+T\r
58         .ENDR\r
59         ..T2=.\r
60         .ENDM\r
61         .MACRO CONV Z\r
62         .IIF EQ,Z-0,T=0\r
63         .IIF EQ,Z-1,T=8\r
64         .IIF EQ,Z-2,T=4\r
65         .IIF EQ,Z-3,T=0C\r
66         .IIF EQ,Z-4,T=2\r
67         .IIF EQ,Z-5,T=10.\r
68         .IIF EQ,Z-6,T=6\r
69         .IIF EQ,Z-7,T=0E\r
70         .IIF EQ,Z-8.,T=1\r
71         .IIF EQ,Z-9.,T=9\r
72         .IIF EQ,Z-10.,T=5\r
73         .IIF EQ,Z-11.,T=0D\r
74         .IIF EQ,Z-12.,T=3\r
75         .IIF EQ,Z-13.,T=0B\r
76         .IIF EQ,Z-14.,T=7\r
77         .IIF EQ,Z-15.,T=0F\r
78         .ENDM\r
79         .SBTTL  SUBS\r
80         P       0,0,03,80,03,80,07,0C0,07,0C0,07,0C0,07,0C0,07,0C0      ;0 DEG\r
81         P       06,0C0,06,0C0,06,0C0,07,0C0,03,80,03,80,01,0,03,80\r
82         P       0,0,0,60,0,0F0,01,0F0,01,0F0,03,0F0,03,0E0,03,0E0       ;15 DEG\r
83         P       07,0C0,06,0C0,04,0C0,05,80,07,80,07,0,0E,0,07,0\r
84         P       0,0,0,0,0,30,0,78,0,0F8,01,0F8,01,0F0,03,0F0            ;30 DEG\r
85         P       03,60,02,60,06,0C0,07,80,07,0,1E,0,0C,0,04,0\r
86         P       0,0,0,0,0,0,0,30,0,0F8,01,0F8,03,0F0,07,0F0             ;45 DEG\r
87         P       06,0E0,0D,0C0,0B,80,1E,0,78,0,30,0,10,0,0,0\r
88         P       0,0,0,0,0,0,0,38,0,0FC,03,0FC,07,0F8,0C,0F0             ;60 DEG\r
89         P       19,0E0,3F,80,0FC,0,60,0,20,0,0,0,0,0,0,0\r
90         P       0,0,0,0,0,0,0,3C,0,0FE,07,0FE,1F,0FC,0B9,0F8            ;75 DEG\r
91         P       0F3,0E0,0FF,0,40,0,0,0,0,0,0,0,0,0,0,0\r
92         P       0,0,0,0,0,0,0,0,0,0,0F,0F8,0BF,0FE,0F8,0FE              ;90 DEG\r
93         P       0BF,0FE,0F,0F8,0,0,0,0,0,0,0,0,0,0,0,0\r
94         P       0,0,0,0,0,0,0,0,0,0,40,0,0FF,0,0F3,0E0                  ;105 DEG\r
95         P       0B9,0F8,1F,0FC,07,0FE,0,0FE,0,03C,0,0,0,0,0,0\r
96         P       0,0,0,0,0,0,0,0,20,0,60,0,0FC,0,3F,80           ;120 DEG\r
97         P       19,0E0,0C,0F0,07,0F8,03,0FC,0,0FC,0,38,0,0,0,0\r
98         P       0,0,0,0,10,0,30,0,78,0,1E,0,0B,80,0D,0C0        ;135 DEG\r
99         P       06,0E0,07,0F0,03,0F0,01,0F8,0,0F8,0,30,0,0,0,0\r
100         P       0,0,04,0,0C,0,1E,0,07,0,07,80,06,0C0,02,60      ;150 DEG\r
101         P       03,60,03,0F0,01,0F0,01,0F8,0,0F8,0,78,0,30,0,0\r
102         P       0,0,07,0,0E,0,07,0,07,80,05,80,04,0C0,06,0C0    ;165 DEG\r
103         P       07,0C0,03,0E0,03,0E0,03,0F0,01,0F0,01,0F0,0,0F0,0,60\r
104         P       0,0,03,80,01,0,03,80,03,80,07,0C0,06,0C0,06,0C0 ;180 DEG\r
105         P       06,0C0,07,0C0,07,0C0,07,0C0,07,0C0,07,0C0,03,80,03,80\r
106         P       0,0,01,0C0,0,0E0,01,0C0,03,0C0,03,40,06,40,06,0C0 ;195 DEG\r
107         P       07,0C0,0F,80,0F,80,1F,80,1F,0,1F,0,1E,0,0C,0\r
108         P       0,0,0,40,0,60,0,0F0,01,0C0,03,0C0,06,0C0,0C,80  ;210 DEG\r
109         P       0D,80,1F,80,1F,0,3F,0,3E,0,3C,0,18,0,0,0\r
110         P       0,0,0,0,0,10,0,18,0,3C,0,0F0,03,0A0,07,60       ;225 DEG\r
111         P       0E,0C0,1F,0C0,1F,80,3F,0,3E,0,18,0,0,0,0,0\r
112         P       0,0,0,0,0,0,0,0,0,08,0,0C,0,7E,03,0F8           ;240 DEG\r
113         P       0F,30,1E,60,3F,0C0,7F,80,7E,0,38,0,0,0,0,0\r
114         P       0,0,0,0,0,0,0,0,0,0,0,04,01,0FE,0F,9E           ;255 DEG\r
115         P       3F,3A,7F,0F0,0FF,0C0,0FE,0,78,0,0,0,0,0,0,0\r
116         P       0,0,0,0,0,0,0,0,0,0,0,0,3F,0E0,0FF,0FA          ;270 DEG\r
117         P       0FE,3E,0FF,0FA,3F,0E0,0,0,0,0,0,0,0,0,0,0\r
118         P       0,0,0,0,0,0,0,0,78,0,0FE,0,0FF,0C0,7F,0F0               ;285 DEG\r
119         P       3F,3A,0F,9E,01,0FE,0,04,0,0,0,0,0,0,0,0\r
120         P       0,0,0,0,0,0,38,0,7E,0,7F,80,3F,0C0,1E,60        ;300 DEG\r
121         P       0F,30,03,0F8,0,7E,0,0C,0,08,0,0,0,0,0,0\r
122         P       0,0,0,0,0,0,18,0,3E,0,3F,0,1F,80,1F,0C0         ;315 DEG\r
123         P       0E,0C0,07,60,03,0A0,0,0F0,0,3C,0,18,0,10,0,0\r
124         P       0,0,0,0,18,0,3C,0,3E,0,3F,0,1F,0,1F,80          ;330 DEG\r
125         P       0D,80,0C,80,06,0C0,03,0C0,01,0C0,0,0F0,0,60,0,40\r
126         P       0,0,0C,0,1E,0,1F,0,1F,0,1F,80,0F,80,0F,80       ;345 DEG\r
127         P       07,0C0,06,0C0,06,40,03,40,03,0C0,01,0C0,0,0E0,01,0C0\r
128         P       0,0,5,0,0,20,10,10,8,48,21,0,41,84,4,0          ;SUB EXPLOS 1\r
129         P       0,49,44,0,1,40,48,2,1,20,14,8,0,0,2,40\r
130         P       2,40,0,0,10,28,4,80,40,12,2,80,0,22,92,0        ;SUB EXPLOS 2\r
131         P       0,20,21,42,0,84,12,10,8,8,4,0,0,0A0,0,0\r
132         .REPT 12.                               ;6 BLANK PICTURES\r
133         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
134         .ENDR\r
135         .SBTTL TORPEDOES\r
136         P       0,0,0,0,0,0,0,0,0,0,0,0,1,0,01,0        ;0 DEG\r
137         P       01,0,01,0,0,0,0,0,0,0,0,0,0,0,0,0\r
138         P       0,0,0,0,0,0,0,0,0,0,0,0,0,80,0,80       ;15 DEG\r
139         P       01,0,01,0,0,0,0,0,0,0,0,0,0,0,0,0\r
140         P       0,0,0,0,0,0,0,0,0,0,0,0,0,80,01,0       ;30 DEG\r
141         P       01,0,02,0,0,0,0,0,0,0,0,0,0,0,0,0\r
142         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80        ;45 DEG\r
143         P       01,0,02,0,0,0,0,0,0,0,0,0,0,0,0,0\r
144         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80        ;60 DEG\r
145         P       03,0,04,0,0,0,0,0,0,0,0,0,0,0,0,0\r
146         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0C0       ;75 DEG\r
147         P       03,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
148         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0         ;90 DEG\r
149         P       03,0C0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
150         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0         ;105 DEG\r
151         P       03,0,0,0C0,0,0,0,0,0,0,0,0,0,0,0,0\r
152         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,02,0        ;120 DEG\r
153         P       01,80,0,40,0,0,0,0,0,0,0,0,0,0,0,0\r
154         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,02,0        ;135 DEG\r
155         P       01,0,0,80,0,0,0,0,0,0,0,0,0,0,0,0\r
156         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,02,0        ;150 DEG\r
157         P       01,0,01,0,0,80,0,0,0,0,0,0,0,0,0,0\r
158         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,0        ;165 DEG\r
159         P       01,0,0,80,0,80,0,0,0,0,0,0,0,0,0,0\r
160         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,0        ;180 DEG\r
161         P       01,0,01,0,01,0,0,0,0,0,0,0,0,0,0,0\r
162         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,01,0        ;195 DEG\r
163         P       01,0,02,0,02,0,0,0,0,0,0,0,0,0,0,0\r
164         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80        ;210 DEG\r
165         P       01,0,01,0,02,0,0,0,0,0,0,0,0,0,0,0\r
166         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80        ;225 DEG\r
167         P       01,0,02,0,0,0,0,0,0,0,0,0,0,0,0,0\r
168         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,80        ;240 DEG\r
169         P       03,0,04,0,0,0,0,0,0,0,0,0,0,0,0,0\r
170         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0         ;255 DEG\r
171         P       03,0,0C,0,0,0,0,0,0,0,0,0,0,0,0,0\r
172         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0         ;270 DEG\r
173         P       07,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
174         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,06,0        ;285 DEG\r
175         P       01,80,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
176         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,02,0        ;300 DEG\r
177         P       01,80,0,40,0,0,0,0,0,0,0,0,0,0,0,0\r
178         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,02,0        ;315 DEG\r
179         P       01,0,0,80,0,0,0,0,0,0,0,0,0,0,0,0\r
180         P       0,0,0,0,0,0,0,0,0,0,0,0,02,0,01,0       ;330 DEG\r
181         P       01,0,0,80,0,0,0,0,0,0,0,0,0,0,0,0\r
182         P       0,0,0,0,0,0,0,0,0,0,0,0,02,0,02,0       ;345 DEG\r
183         P       01,0,01,0,0,0,0,0,0,0,0,0,0,0,0,0\r
184         P       0,0,0,0,0,0,0,0,0,40,1,0,2,80,4,0       ;TORP EXPLOS 1\r
185         P       0,48,4,0,1,40,0,0,1,20,0,0,0,0,0,0\r
186         P       0,0,0,0,0,0,4,80,0,10,1,80,0,20,12,0    ;TORP EXPLOS 2\r
187         P       0,20,1,40,0,80,10,0,0,0,0,0,0,0,0,0\r
188         .REPT 12.                       ;6 BLANK PICTURES\r
189         P       0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0\r
190         .ENDR\r
191         .END\r
192 \0