]> git.sur5r.net Git - cc65/blob - asminc/cbm610.inc
Initialize _curunit from the zeropage value DEVNUM (aka First Address) in a construct...
[cc65] / asminc / cbm610.inc
1 ;
2 ; Zeropage and I/O definitions for the CBM 610
3 ;
4 ; Taken from a kernal disassembly done by myself in 1987.
5 ;
6 ; Ullrich von Bassewitz, 28.09.1998
7
8
9 ; ---------------------------------------------------------------------------
10 ; Zeropage stuff
11
12 ExecReg         = $00
13 IndReg          = $01
14 DEVNUM          = $9F
15
16 ; ---------------------------------------------------------------------------
17 ; Screen size
18
19 XSIZE           = 80
20 YSIZE           = 25
21
22 ; ---------------------------------------------------------------------------
23 ; I/O definitions
24
25
26 ; I/O  $d800: CRTC 6545
27
28 .struct CRTC
29         ADDR    .byte
30         DATA    .byte
31 .endstruct
32
33 ; I/O  $db00: CIA 6526 Inter Process Communication
34 ;
35 ;       IPCcia          =       $db00
36
37 .struct CIA
38         PRA     .byte
39         PRB     .byte
40         DDRA    .byte
41         DDRB    .byte
42         .union
43             .struct
44                 TALO    .byte
45                 TAHI    .byte
46             .endstruct
47             TA          .word
48         .endunion
49         .union
50             .struct
51                 TBLO    .byte
52                 TBHI    .byte
53             .endstruct
54             TB          .word
55         .endunion
56         TOD10   .byte
57         TODSEC  .byte
58         TODMIN  .byte
59         TODHR   .byte
60         SDR     .byte
61         ICR     .byte
62         CRA     .byte
63         CRB     .byte
64 .endstruct
65
66
67 ; I/O  $dc00: CIA 6526
68 ;
69 ;       cia             =       $dc00
70
71
72
73 ; I/O  $dd00: ACIA 6551
74 ;
75 ;       acia            =       $dd00
76
77 .struct ACIA
78         DATA    .byte
79         STATUS  .byte
80         CMD     .byte
81         CTRL    .BYTE
82 .endstruct
83
84
85 ; I/O  $de00: Triport #1 6525
86 ;
87 ;       tpi1            =       $de00
88
89 .struct TPI
90         PRA     .byte
91         PRB     .byte
92         .union
93                 PRC     .byte
94                 INT     .byte
95         .endunion
96         DDRA    .byte
97         DDRB    .byte
98         .union
99                 DDRC    .byte
100                 IMR     .byte
101         .endunion
102         CR      .byte
103         AIR     .byte
104 .endstruct
105
106
107 ; I/O  $df00: Triport #2 6525
108
109 ;       tpi2            =       $df00
110
111