OpenCores
URL https://opencores.org/ocsvn/rtf8088/rtf8088/trunk

Subversion Repositories rtf8088

[/] [rtf8088/] [trunk/] [rtl/] [verilog/] [CALLF.v] - Blame information for rev 4

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 2 robfinch 
//=============================================================================
2 
//  CALL FAR and CALL FAR indirect
3 
//
4 
//
5 
//  2009-2012 Robert Finch
6 
//  Stratford
7 
//  robfinch<remove>@opencores.org
8 
//
9 
//
10 
// This source file is free software: you can redistribute it and/or modify
11 
// it under the terms of the GNU Lesser General Public License as published
12 
// by the Free Software Foundation, either version 3 of the License, or
13 
// (at your option) any later version.
14 
//
15 
// This source file is distributed in the hope that it will be useful,
16 
// but WITHOUT ANY WARRANTY; without even the implied warranty of
17 
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
18 
// GNU General Public License for more details.
19 
//
20 
// You should have received a copy of the GNU General Public License
21 
// along with this program.  If not, see <http://www.gnu.org/licenses/>.
22 
//
23 
//
24 
//=============================================================================
25 
//
26 
CALLF:
27 
        begin
28 
                `INITIATE_STACK_WRITE
29 
                lock_o <= 1'b1;
30 
                dat_o <= cs[15:8];
31 
                state <= CALLF1;
32 
        end
33 
CALLF1:
34 
        if (ack_i) begin
35 
                `PAUSE_STACK_WRITE
36 
                state <= CALLF2;
37 
        end
38 
CALLF2:
39 
        begin
40 
                `INITIATE_STACK_WRITE
41 
                dat_o <= cs[7:0];
42 
                state <= CALLF3;
43 
        end
44 
CALLF3:
45 
        if (ack_i) begin
46 
                `PAUSE_STACK_WRITE
47 
                state <= CALLF4;
48 
        end
49 
CALLF4:
50 
        begin
51 
                `INITIATE_STACK_WRITE
52 
                dat_o <= ip[15:8];
53 
                state <= CALLF5;
54 
        end
55 
CALLF5:
56 
        if (ack_i) begin
57 
                `PAUSE_STACK_WRITE
58 
                state <= CALLF6;
59 
        end
60 
CALLF6:
61 
        begin
62 
                `INITIATE_STACK_WRITE
63 
                dat_o <= ip[7:0];
64 
                state <= CALLF7;
65 
        end
66 
CALLF7:
67 
        if (ack_i) begin
68 
                `TERMINATE_CYCLE
69 
                if (ir==8'hFF && rrr==3'b011)   // CALL FAR indirect
70 
                        state <= JUMP_VECTOR1;
71 
                else begin
72 
                        cs <= selector;
73 
                        ip <= offset;
74 
                        state <= IFETCH;
75 
                end
76 
        end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.