First commit
[asteroids.git] / RTMUL.XX
1         .TITLE RTMUL - ASTEROIDS\r
2 \r
3 ;ROM FOR 3 BIT RATE MULTIPLIER\r
4 \r
5         .ASECT\r
6         .RADIX 16\r
7         .=1000\r
8         .NLIST BYT\r
9         .LIST MEB\r
10 \r
11 ;A0-A2  - RATE T IN\r
12 ;A3-A5  - RATE S IN\r
13 ;A6-A8  - COUNT\r
14 ;D2     - RATE S OUT\r
15 ;D1     - RATE T OUT\r
16 ;D0     - CARRY\r
17 ;USES 82S131\r
18 ;000,001,010,011   D2=NOT (R9)    D1=NOT (P9)    D0=1\r
19         .REPT 4\r
20         .BYTE 7,5,7,5,7,5,7,5,3,1,3,1,3,1,3,1\r
21         .BYTE 7,5,7,5,7,5,7,5,3,1,3,1,3,1,3,1\r
22         .BYTE 7,5,7,5,7,5,7,5,3,1,3,1,3,1,3,1\r
23         .BYTE 7,5,7,5,7,5,7,5,3,1,3,1,3,1,3,1\r
24         .ENDR\r
25 ;100,101    D2=NOT (R8)    D1=NOT (P8)    D0=1\r
26         .REPT 2\r
27         .BYTE 7,7,5,5,7,7,5,5,7,7,5,5,7,7,5,5\r
28         .BYTE 3,3,1,1,3,3,1,1,3,3,1,1,3,3,1,1\r
29         .BYTE 7,7,5,5,7,7,5,5,7,7,5,5,7,7,5,5\r
30         .BYTE 3,3,1,1,3,3,1,1,3,3,1,1,3,3,1,1\r
31         .ENDR\r
32 ;110    D2=NOT (R7)    D1=NOT (P7)    D0=1\r
33         .BYTE 7,7,7,7,5,5,5,5,7,7,7,7,5,5,5,5\r
34         .BYTE 7,7,7,7,5,5,5,5,7,7,7,7,5,5,5,5\r
35         .BYTE 3,3,3,3,1,1,1,1,3,3,3,3,1,1,1,1\r
36         .BYTE 3,3,3,3,1,1,1,1,3,3,3,3,1,1,1,1\r
37 ;111    D2=1    D1=1    D0=0\r
38         .REPT 64.\r
39         .BYTE 6\r
40         .ENDR\r
41         .END\r
42 \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