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

Subversion Repositories z80control

[/] [z80control/] [trunk/] [DE1/] [ROM/] [Z80TEST.BAK] - Blame information for rev 12

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 12 tylerapohl
;
2
MACLIB    Z80
3
;
4
          ORG       0
5
;
6
START     JMP       STARTU
7
          ;
8
          DB        0FFH
9
          DW        (CHPEND-4)
10
          DW        3212
11
;
12
CHIP1ID   DB        1         ;CHIP I.D. NUMBER
13
;
14
          NOP
15
          NOP
16
          NOP
17
          NOP
18
          NOP
19
          NOP
20
          NOP
21
          NOP
22
          NOP
23
          NOP
24
          NOP
25
          NOP
26
          NOP
27
          NOP
28
          NOP
29
          NOP
30
          NOP
31
          NOP
32
          NOP
33
          NOP
34
          NOP
35
          NOP
36
          NOP
37
          NOP
38
          NOP
39
          NOP
40
          NOP
41
          NOP
42
          JMP       SFTSTART0
43
;
44
;
45
          NOP
46
          NOP
47
          NOP
48
          NOP
49
          NOP
50
          NOP
51
          NOP
52
          NOP
53
          NOP
54
          NOP
55
          NOP
56
          NOP
57
          NOP
58
          NOP
59
          NOP
60
          NOP
61
          NOP
62
          NOP
63
          NOP
64
          NOP
65
          NOP
66
          JMP       SFTSTART2
67
;
68
;
69
          NOP
70
          NOP
71
          NOP
72
          NOP
73
          NOP
74
          NOP
75
          NOP
76
          NOP
77
          NOP
78
          NOP
79
          NOP
80
          NOP
81
IBMVECT
82
          DW        COMMAIN    ;WAS CRTINP    ;ARECEIVE
83
;
84
;@@@@@@@@@@@@@@@@@@@@@@@@@@@@
85
;
86
;         NON MASKABLE INT.
87
;
88
          ORG       66H       ;TRAP
89
;
90
          JMP       POWERF
91
;
92
;******************************
93
;
94
          ORG       72H
95
;
96
 
97
SFTSTART0
98
SFTSTART2
99
;
100
;    POWER UP START UP
101
;
102
; @ @ @ USED TO TEST COMM @ @ @
103
;
104
STARTU
105
          DI
106
 
107
          LXI       SP,0DFEAH
108
 
109
          IM2                 ; SET Z80 INT MODE
110
 
111
          LXI       B,0
112
MAINLOOP
113
          EI
114
 
115
          CALL      DELAY
116
          CALL      DELAY
117
          CALL      DELAY
118
 
119
 
120
          MOV       A,C
121
          INR       C
122
 
123
          OUT       10H                 ; HEX DISPLAY 0,1
124
 
125
          OUT       024H                ; COMPORT
126
 
127
          OUT       002H                ; LEDG
128
 
129
          JMP       MAINLOOP
130
 
131
;
132
;
133
POWERF    PUSH      PSW       ;+1  NMSK INT 60 TIMES A SEC
134
          PUSH      B         ;+2
135
          PUSH      D         ;+3
136
          PUSH      H         ;+4
137
;
138
          POP       H
139
          POP       D
140
          POP       B
141
          POP       PSW
142
          RETN
143
;
144
 
145
 
146
;4CH
147
COMMAIN
148
          IN        24H       ; COMMPORT
149
          OUT       11H       ; HEX DISPLAY
150
          EI
151
          RET
152
 
153
 
154
 
155
DELAY     PUSH      B
156
          LXI       B,4000H
157
DELLOP
158
          DCR       C
159
          JNZ       DELLOP
160
          DCR       B
161
          JNZ       DELLOP
162
          POP       B
163
          RET
164
 
165
CHPEND    DW        0FFFFH
166
;
167
          END       START

powered by: WebSVN 2.1.0

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