mirror of
https://github.com/EranMorkon/AMTS.git
synced 2023-12-28 16:48:38 +00:00
Reischl
This commit is contained in:
parent
003f6dc2f3
commit
496209fb46
File diff suppressed because it is too large
Load diff
BIN
Reischl/img/z80-ce-wahr.png
Normal file
BIN
Reischl/img/z80-ce-wahr.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 69 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 397 KiB After Width: | Height: | Size: 312 KiB |
BIN
Reischl/img/z80-daisy.png
Normal file
BIN
Reischl/img/z80-daisy.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 24 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 172 KiB After Width: | Height: | Size: 262 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 174 KiB After Width: | Height: | Size: 263 KiB |
BIN
Reischl/img/z80-digiview-pio-4.png
Normal file
BIN
Reischl/img/z80-digiview-pio-4.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 261 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 169 KiB After Width: | Height: | Size: 256 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 171 KiB After Width: | Height: | Size: 248 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 174 KiB After Width: | Height: | Size: 270 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 179 KiB After Width: | Height: | Size: 273 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 174 KiB After Width: | Height: | Size: 262 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 174 KiB After Width: | Height: | Size: 258 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 173 KiB After Width: | Height: | Size: 253 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 178 KiB After Width: | Height: | Size: 272 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 147 KiB After Width: | Height: | Size: 186 KiB |
BIN
Reischl/img/z80-eprom-timing.png
Normal file
BIN
Reischl/img/z80-eprom-timing.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 140 KiB |
BIN
Reischl/img/z80-netz.png
Normal file
BIN
Reischl/img/z80-netz.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 252 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 152 KiB After Width: | Height: | Size: 205 KiB |
BIN
Reischl/img/z80-reset-cpu-oszi.png
Normal file
BIN
Reischl/img/z80-reset-cpu-oszi.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 149 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 4.3 KiB After Width: | Height: | Size: 122 KiB |
BIN
Reischl/img/z80-reset.png
Normal file
BIN
Reischl/img/z80-reset.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 100 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 221 KiB After Width: | Height: | Size: 317 KiB |
BIN
Reischl/img/z80-spannung.png
Normal file
BIN
Reischl/img/z80-spannung.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 189 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 5 KiB After Width: | Height: | Size: 163 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 187 KiB After Width: | Height: | Size: 109 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 47 KiB After Width: | Height: | Size: 165 KiB |
Binary file not shown.
|
Before Width: | Height: | Size: 38 KiB After Width: | Height: | Size: 128 KiB |
BIN
Reischl/img/z80-zeit.png
Normal file
BIN
Reischl/img/z80-zeit.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 343 KiB |
109
Reischl/lst/CTC_BLINKY_Interrupt.lst
Normal file
109
Reischl/lst/CTC_BLINKY_Interrupt.lst
Normal file
|
|
@ -0,0 +1,109 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assembler program *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 26/04/2015 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
9 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
10 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
11 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
12 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
13
|
||||
14 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
15 0000 CTC0 EQU $00 ; Channel 0
|
||||
16 0001 CTC1 EQU $01 ; Channel 1
|
||||
17 0002 CTC2 EQU $02 ; Channel 2
|
||||
18 0003 CTC3 EQU $03 ; Channel 3
|
||||
19
|
||||
20 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
21 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
22 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
23 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
24 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
25
|
||||
26
|
||||
27 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
28 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
29 8000 COUNTER: EQU $8000 ; RAM Counter
|
||||
30
|
||||
31
|
||||
32 ;******************************************************************************
|
||||
33 ;* RESET HANDLER *
|
||||
34 ;* Function: Initialize system and start Main Program *
|
||||
35 ;******************************************************************************
|
||||
36 0000 ORG $0000
|
||||
37 0000 F3 DI ; Disable interrupt
|
||||
38 0001 31 FF FF LD SP,RAMTOP ; Set stack pointer
|
||||
39 0004 C3 00 01 JP MAIN ; jump to Main program
|
||||
40
|
||||
41
|
||||
42 ;*******************************************************************
|
||||
43 ;* MAIN PROGRAM *
|
||||
44 ;*******************************************************************
|
||||
45 0100 ORG $0100
|
||||
46 0100 21 00 80 MAIN: LD HL,COUNTER ; Reset RAM Counter
|
||||
47 0103 3E 00 LD A,$00
|
||||
48 0105 77 LD (HL),A
|
||||
49
|
||||
50 ; ------------------ Initialize PIO ----------------
|
||||
51 0106 3E 99 LD A,$99 ; Initialize 8255: PA0-PA7=IN (DIP SWITCHES), PB0-PB7=OUT (LEDS),
|
||||
52 0108 D3 83 OUT (PIO_CON),A ; PC0-PC7=IN, Mode 0 Selection
|
||||
53
|
||||
54 ;------------------ Configure CTC -----------------------
|
||||
55 010A 3E A5 LD A,$A5 ; Configure CTC Channel 0: Interrupt, Timer Mode, Prescaler = 256,
|
||||
56 010C D3 00 OUT (CTC0),A ; trigger on positive edge, next word = time constant, Channel continuous result operation
|
||||
57 010E 3E FF LD A,$FF ; Write Time constant 255*256*552ns= 36,03ms
|
||||
58 0110 D3 00 OUT (CTC0),A
|
||||
59 0112 3E A8 LD A,$A8 ; Loading Interrupt Vector register
|
||||
60 0114 D3 00 OUT (CTC0),A ; trigger on positive edge, next word = time constant, Channel continuous result operation
|
||||
61
|
||||
62 ;---------------------- Configure Interrupt -----------------
|
||||
63 0116 3E 01 LD A,$01 ; Loading Interrupt Register
|
||||
64 0118 ED 47 LD I,A
|
||||
65 011A ED 5E IM 2 ; Interrupt Mode 2
|
||||
66 011C FB EI ; Enable Interrupt
|
||||
67
|
||||
68 ;--------------------- Main Program --------------------------
|
||||
69 011D C3 1D 01 AGAIN: JP AGAIN ; Endless
|
||||
70
|
||||
71
|
||||
72
|
||||
73 ;******************************************************************************
|
||||
74 ;* INTERRUPT SERVICE ROUTINE *
|
||||
75 ;* CTC Channel 0 *
|
||||
76 ;******************************************************************************
|
||||
77 01A8 ORG $01A8
|
||||
78 01A8 AA 01 DEFW _INT_CTC
|
||||
79 01AA F5 _INT_CTC: PUSH AF
|
||||
80 01AB E5 PUSH HL
|
||||
81 01AC 21 00 80 LD HL,COUNTER
|
||||
82 01AF 7E LD A,(HL) ; Read Counter
|
||||
83 01B0 3C INC A ; Increment Counter
|
||||
84 01B1 FE 07 CP $07 ; 252,21ms reached?
|
||||
85 01B3 C2 BD 01 JP NZ,_END_INT
|
||||
86 01B6 3E 00 LD A,$00 ; Reset Counter
|
||||
87 01B8 DB 81 IN A,(PIO_B) ; Toggle LED's with 2Hz
|
||||
88 01BA 2F CPL
|
||||
89 01BB D3 81 OUT (PIO_B),A ;
|
||||
90 01BD 77 _END_INT: LD (HL),A ; Store Counter
|
||||
91 01BE E1 POP HL
|
||||
92 01BF F1 POP AF
|
||||
93 01C0 FB EI ; Entry Point of Interrupt Service Routine
|
||||
94 01C1 ED 4D RETI
|
||||
95
|
||||
96
|
||||
97
|
||||
98
|
||||
99
|
||||
100
|
||||
|
||||
Symbol table:
|
||||
|
||||
AGAIN 011D COUNTER 8000 CTC0 0000 CTC1 0001
|
||||
CTC2 0002 CTC3 0003 MAIN 0100 PIO_A 0080
|
||||
PIO_B 0081 PIO_C 0082 PIO_CON 0083 RAMTOP FFFF
|
||||
SIO_A_C 0042 SIO_A_D 0040 SIO_B_C 0043 SIO_B_D 0041
|
||||
_END_INT 01BD _INT_CTC 01AA
|
||||
18 symbols.
|
||||
51
Reischl/lst/CTC_Counter.lst
Normal file
51
Reischl/lst/CTC_Counter.lst
Normal file
|
|
@ -0,0 +1,51 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assembler program *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 26/04/2015 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
9 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
10 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
11 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
12 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
13
|
||||
14 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
15 0000 CTC0 EQU $00 ; Channel 0
|
||||
16 0001 CTC1 EQU $01 ; Channel 1
|
||||
17 0002 CTC2 EQU $02 ; Channel 2
|
||||
18 0003 CTC3 EQU $03 ; Channel 3
|
||||
19
|
||||
20 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
21 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
22 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
23 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
24 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
25
|
||||
26
|
||||
27 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
28 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
29
|
||||
30 ;******************************************************************************
|
||||
31 ;* START AFTER RESET, *
|
||||
32 ;* Function....: ready system and restart *
|
||||
33 ;******************************************************************************
|
||||
34 0000 ORG $0000
|
||||
35 0000 F3 DI ; Disable interrupt
|
||||
36 0001 31 FF FF LD SP,RAMTOP ; Set stack pointer to top off ram
|
||||
37 0004 3E 15 LD A,$15 ; Configure CTC Channel 0:No Interrupt, Timer Mode, No Prescaler,
|
||||
38 0006 D3 00 OUT (CTC0),A ; trigger on positive edge, next word = time constant, Channel continuous result operation
|
||||
39 0008 3E BA LD A,186 ; Write Time constant 186*560ns= 104µs
|
||||
40 000A D3 00 OUT (CTC0),A
|
||||
41 000C DB 00 AGAIN: IN A,(CTC0) ; Read actual status of CTC Channel 0
|
||||
42 000E C3 0C 00 JP AGAIN ; Endlos
|
||||
43
|
||||
|
||||
Symbol table:
|
||||
|
||||
AGAIN 000C CTC0 0000 CTC1 0001 CTC2 0002
|
||||
CTC3 0003 PIO_A 0080 PIO_B 0081 PIO_C 0082
|
||||
PIO_CON 0083 RAMTOP FFFF SIO_A_C 0042 SIO_A_D 0040
|
||||
SIO_B_C 0043 SIO_B_D 0041
|
||||
14 symbols.
|
||||
42
Reischl/lst/CTC_Counter.s
Normal file
42
Reischl/lst/CTC_Counter.s
Normal file
|
|
@ -0,0 +1,42 @@
|
|||
;******************************************************************************
|
||||
;* Z80 Assembler program *
|
||||
;* Josef Reisinger *
|
||||
;* josef.reisinger@htl-hl.ac.at *
|
||||
;* 26/04/2015 *
|
||||
;******************************************************************************
|
||||
|
||||
; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
PIO_A: EQU $80 ; (INPUT)
|
||||
PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
|
||||
; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
CTC0 EQU $00 ; Channel 0
|
||||
CTC1 EQU $01 ; Channel 1
|
||||
CTC2 EQU $02 ; Channel 2
|
||||
CTC3 EQU $03 ; Channel 3
|
||||
|
||||
; -------------------------- SIO (USART) ----------------------------------------
|
||||
SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
|
||||
|
||||
;-------------------------- CONSTANTS ----------------------------------------
|
||||
RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
|
||||
;******************************************************************************
|
||||
;* START AFTER RESET, *
|
||||
;* Function....: ready system and restart *
|
||||
;******************************************************************************
|
||||
ORG $0000
|
||||
DI ; Disable interrupt
|
||||
LD SP,RAMTOP ; Set stack pointer to top off ram
|
||||
LD A,$15 ; Configure CTC Channel 0:No Interrupt, Timer Mode, No Prescaler,
|
||||
OUT (CTC0),A ; trigger on positive edge, next word = time constant, Channel continuous result operation
|
||||
LD A,186 ; Write Time constant 186*560ns= 104µs
|
||||
OUT (CTC0),A
|
||||
AGAIN: IN A,(CTC0) ; Read actual status of CTC Channel 0
|
||||
JP AGAIN ; Endlos
|
||||
80
Reischl/lst/PIO_RAM_COUNTER.lst
Normal file
80
Reischl/lst/PIO_RAM_COUNTER.lst
Normal file
|
|
@ -0,0 +1,80 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assembler program *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 10/07/2017 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
9 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
10 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
11 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
12 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
13
|
||||
14 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
15 0000 CTC0 EQU $00 ; Channel 0
|
||||
16 0001 CTC1 EQU $01 ; Channel 1
|
||||
17 0002 CTC2 EQU $02 ; Channel 2
|
||||
18 0003 CTC3 EQU $03 ; Channel 3
|
||||
19
|
||||
20 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
21 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
22 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
23 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
24 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
25
|
||||
26
|
||||
27 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
28 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
29 8000 COUNTER: EQU $8000 ; RAM Counter
|
||||
30
|
||||
31 ;******************************************************************************
|
||||
32 ;* RESET HANDLER *
|
||||
33 ;* Function: Initalize system and start Main Programm *
|
||||
34 ;******************************************************************************
|
||||
35 0000 ORG $0000
|
||||
36 0000 F3 DI ; Disable interrupt
|
||||
37 0001 31 FF FF LD SP,RAMTOP ; Set stack pointer
|
||||
38 0004 C3 00 01 JP MAIN ; jump to Main program
|
||||
39
|
||||
40
|
||||
41 ;*******************************************************************
|
||||
42 ;* MAIN PROGRAM *
|
||||
43 ;*******************************************************************
|
||||
44 0100 ORG $100
|
||||
45 0100 3E 99 MAIN: LD A,$99 ; Initialize 8255: PA0-PA7=IN (DIP SWITCHES), PB0-PB7=OUT (LEDS),
|
||||
46 0102 D3 83 OUT (PIO_CON),A ; PC0-PC7=IN, Mode 0 Selection
|
||||
47 0104 3E 01 LD A,$01 ; Initialize RAM Counter
|
||||
48 0106 21 00 80 LD HL,COUNTER ; Load RAM Counter Address
|
||||
49 0109 77 LD (HL),A ; Store Counter in RAM cell
|
||||
50 010A 7E AGAIN: LD A,(HL) ; Load RAM Counter
|
||||
51 010B D3 81 OUT (PIO_B),A ; Output RAM Counter to LEDs (PB0-PB7)
|
||||
52 010D 34 INC (HL) : Increment RAM Counter
|
||||
53 010E CD 14 01 CALL _WAIT
|
||||
54 0111 C3 0A 01 JP AGAIN ; Endless
|
||||
55
|
||||
56
|
||||
57
|
||||
58 ;*******************************************************************
|
||||
59 ;* Warteschleife 0,5s *
|
||||
60 ;*******************************************************************
|
||||
61 0114 16 FF _WAIT: LD D,$FF ;
|
||||
62 0116 1E FF _OUTER: LD E,$FF ;
|
||||
63 0118 1D _INNER: DEC E
|
||||
64 0119 C2 18 01 JP NZ,_INNER
|
||||
65 011C 15 DEC D
|
||||
66 011D C2 16 01 JP NZ,_OUTER
|
||||
67 0120 C9 RET
|
||||
68
|
||||
69
|
||||
70
|
||||
71
|
||||
72
|
||||
|
||||
Symbol table:
|
||||
AGAIN 010A COUNTER 8000 CTC0 0000 CTC1 0001
|
||||
CTC2 0002 CTC3 0003 MAIN 0100 PIO_A 0080
|
||||
PIO_B 0081 PIO_C 0082 PIO_CON 0083 RAMTOP FFFF
|
||||
SIO_A_C 0042 SIO_A_D 0040 SIO_B_C 0043 SIO_B_D 0041
|
||||
_INNER 0118 _OUTER 0116 _WAIT 0114
|
||||
19 symbols.
|
||||
291
Reischl/lst/SIO_V24_Echo_Interrupt.lst
Normal file
291
Reischl/lst/SIO_V24_Echo_Interrupt.lst
Normal file
|
|
@ -0,0 +1,291 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assembler program *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 10/07/2017 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8
|
||||
9 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
10 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
11 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
12 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
13 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
14
|
||||
15
|
||||
16 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
17 0000 CTC0 EQU $00 ; Channel 0
|
||||
18 0001 CTC1 EQU $01 ; Channel 1
|
||||
19 0002 CTC2 EQU $02 ; Channel 2
|
||||
20 0003 CTC3 EQU $03 ; Channel 3
|
||||
21
|
||||
22 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
23 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
24 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
25 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
26 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
27
|
||||
28
|
||||
29 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
30 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
31 000D CR: EQU $0D
|
||||
32 000A LF: EQU $0A
|
||||
33 0020 SPACE: EQU $20
|
||||
34
|
||||
35 ;******************************************************************************
|
||||
36 ;* RESET HANDLER *
|
||||
37 ;* Function: Start Main Program *
|
||||
38 ;******************************************************************************
|
||||
39 0000 ORG $0000
|
||||
40 0000 C3 00 01 JP MAIN ; jump to Main program
|
||||
41
|
||||
42
|
||||
43 ;******************************************************************************
|
||||
44 ;* SIO INTERRUPT HANDLER *
|
||||
45 ;* Function: Start Main Program *
|
||||
46 ;******************************************************************************
|
||||
47 000C ORG $000C
|
||||
48 000C A5 01 DEFW RX_CHA_AVAILABLE
|
||||
49
|
||||
50 000E ORG $000E
|
||||
51 000E D5 01 DEFW SPEC_RX_CONDITION
|
||||
52
|
||||
53
|
||||
54 ;******************************************************************************
|
||||
55 ;* NMI HANDLER *
|
||||
56 ;* Handles NMI Interrupt Request *
|
||||
57 ;******************************************************************************
|
||||
58 0066 ORG $0066
|
||||
59 0066 21 F5 01 LD HL,NMI_TEXT ; Send NMI to V24
|
||||
60 0069 CD 94 01 CALL SIO_PUT_STRING
|
||||
61 006C ED 45 RETN
|
||||
62
|
||||
63 ;******************************************************************************
|
||||
64 ;* MAIN PROGRAM *
|
||||
65 ;******************************************************************************
|
||||
66 0100 ORG $100
|
||||
67 0100 F3 MAIN: DI ; Disable interrupt
|
||||
68 0101 31 FF FF LD SP,RAMTOP ; Set stack pointer
|
||||
69 0104 CD 26 01 CALL PIO_INIT ; Init PIO (8255)
|
||||
70 0107 CD 2B 01 CALL CTC_INIT ; Initialize CTC Channel 1 for 9600 Baud (SIO Channel A)
|
||||
71 010A CD 34 01 CALL SIO_INIT ; Initialize SIO for character based transfer (9600,n,8,1)
|
||||
72
|
||||
73 010D 21 E5 01 LD HL,START_TEXT ; Send Welcome Text to V24
|
||||
74 0110 CD 94 01 CALL SIO_PUT_STRING
|
||||
75
|
||||
76 0113 3E 00 LD A,0
|
||||
77 0115 ED 47 LD I,A ; Load I Register with zero
|
||||
78 0117 ED 5E IM 2 ; Set Interrupt 2
|
||||
79 0119 FB EI ; Enable Interrupt
|
||||
80
|
||||
81 011A 3E 01 LD A,$01 ; Initialize moving light
|
||||
82 011C D3 81 _AGAIN: OUT (PIO_B),A ; output Moving light to LED
|
||||
83 011E CB 17 RL A ; next bit
|
||||
84 0120 CD D8 01 CALL _WAIT ; wait 0,5 s
|
||||
85 0123 C3 1C 01 JP _AGAIN ; endless
|
||||
86
|
||||
87
|
||||
88 ;******************************************************************************
|
||||
89 ;* Initialize PIO (8255) *
|
||||
90 ;******************************************************************************
|
||||
91 0126 3E 99 PIO_INIT: LD A,$99 ; Init PIO 8255 Control Word:
|
||||
92 0128 ; PA0-PA7=IN (DIP SWITCHES)
|
||||
93 0128 ; PB0-PB7=OUT (LEDS),
|
||||
94 0128 D3 83 OUT (PIO_CON),A ; PC0-PC7=IN, Mode 0 Selection
|
||||
95 012A C9 RET
|
||||
96
|
||||
97 ;******************************************************************************
|
||||
98 ;* Initialize CTC Channel 1 (SIO Channel A Clock) *
|
||||
99 ;******************************************************************************
|
||||
100 012B 3E 05 CTC_INIT: LD A,$05 ; Init Timer Counter - Channel 1
|
||||
101 012D D3 01 OUT (CTC1),A ; for Baudrate 9600 (No Interrupt, Timer Mode, PSC=16,
|
||||
102 012F ; trigger on positive edge
|
||||
103 012F 3E 0C LD A,$0C ; Write Time constant 12*16*552ns= 105,98s
|
||||
104 0131 D3 01 OUT (CTC1),A
|
||||
105 0133 C9 RET
|
||||
106
|
||||
107
|
||||
108 ;******************************************************************************
|
||||
109 ;* Initialize SIO Channel A for character based transfer *
|
||||
110 ;* Interrupt on Received characters on Channel A */
|
||||
111 ;******************************************************************************
|
||||
112 0134 3E 30 SIO_INIT: LD A,$30 ; Write to WR0 Register --> Error Reset
|
||||
113 0136 D3 42 OUT (SIO_A_C),A
|
||||
114 0138 3E 18 LD A,$18 ; Write to WR0 Register --> Channel Reset
|
||||
115 013A D3 42 OUT (SIO_A_C),A
|
||||
116 013C 3E 04 LD A,$04 ; Select WR4 Register
|
||||
117 013E D3 42 OUT (SIO_A_C),A
|
||||
118 0140 3E 04 LD A,$04 ; CLK*1, 1STOP Bit, No Parity
|
||||
119 0142 D3 42 OUT (SIO_A_C),A
|
||||
120
|
||||
121 0144 CD 7E 01 CALL A_RTS_ON ; TX on, TX 8Bit, DTR inactive, RTS active; Break off
|
||||
122
|
||||
123 0147 3E 01 LD A,$1 ; Select WR1 Register Channel B
|
||||
124 0149 D3 43 OUT (SIO_B_C),A
|
||||
125 014B 3E 04 LD A,$04 ; no Interrupt on Channel B, status affects Vector
|
||||
126 014D D3 43 OUT (SIO_B_C),A ;
|
||||
127 014F 3E 02 LD A,$2 ; Select WR2 Register Channel B
|
||||
128 0151 D3 43 OUT (SIO_B_C),A
|
||||
129 0153 3E 00 LD A,$00 ; Definition Interrupt vector. Bits D3,D2,D1 are changed according to
|
||||
130 0155 D3 43 OUT (SIO_B_C),A ; RX condition (see interrupt vector table)
|
||||
131
|
||||
132 0157 3E 01 LD A,$1 ; Select WR1 Register
|
||||
133 0159 D3 42 OUT (SIO_A_C),A
|
||||
134 015B 3E 18 LD A,$18 ; Interrupts on all RX Characters, Parity is not a spec RX Condition
|
||||
135 015D D3 42 OUT (SIO_A_C),A ; Buffer overrun is a special condition, TX no Interrupt
|
||||
136
|
||||
137 015F CD 63 01 CALL SIO_A_EN ; Enable RX Channel A
|
||||
138 0162 C9 RET
|
||||
139
|
||||
140
|
||||
141 ;******************************************************************************
|
||||
142 ;* Enable RX Channel A *
|
||||
143 ;******************************************************************************
|
||||
144 0163 3E 03 SIO_A_EN: LD A,$03 ; Select WR3 Register
|
||||
145 0165 D3 42 OUT (SIO_A_C),A
|
||||
146 0167 3E C1 LD A,$C1 ; RX enable,8 Data Bits
|
||||
147 0169 D3 42 OUT (SIO_A_C),A
|
||||
148 016B C9 RET
|
||||
149
|
||||
150 ;******************************************************************************
|
||||
151 ;* Disable RX Channel A *
|
||||
152 ;******************************************************************************
|
||||
153 016C 3E 03 SIO_A_DI: LD A,$03 ; Select WR3 Register
|
||||
154 016E D3 42 OUT (SIO_A_C),A
|
||||
155 0170 3E C0 LD A,$C0 ; RX diable,8 Data Bits
|
||||
156 0172 D3 42 OUT (SIO_A_C),A
|
||||
157 0174 C9 RET
|
||||
158
|
||||
159 ;******************************************************************************
|
||||
160 ;* Channel A RTS inactive (RTS = 1) *
|
||||
161 ;******************************************************************************
|
||||
162 0175 3E 05 A_RTS_OFF: LD A,$05 ; Select WR5 Register
|
||||
163 0177 D3 42 OUT (SIO_A_C),A
|
||||
164 0179 3E 68 LD A,$68 ; TX on,TX 8 Bit, DTR inactive,RTS inactive; Break off,
|
||||
165 017B D3 42 OUT (SIO_A_C),A
|
||||
166 017D C9 RET
|
||||
167
|
||||
168 ;******************************************************************************
|
||||
169 ;* Channel A RTS inactive (RTS=0) *
|
||||
170 ;******************************************************************************
|
||||
171 017E 3E 05 A_RTS_ON: LD A,$05 ; Select WR5 Register
|
||||
172 0180 D3 42 OUT (SIO_A_C),A
|
||||
173 0182 3E 6A LD A,$6A ; TX on,TX 8 Bit,DTR inactive, RTS active; Break off
|
||||
174 0184 D3 42 OUT (SIO_A_C),A
|
||||
175 0186 C9 RET
|
||||
176
|
||||
177 ;******************************************************************************
|
||||
178 ;* Send one Character Via SIO Channel A(Polling Mode) *
|
||||
179 ;* D- Register: Character to send (ASCII Code) *
|
||||
180 ;******************************************************************************
|
||||
181 0187 F5 SIO_PUT_CHAR: PUSH AF
|
||||
182 0188 DB 42 _TX_READY: IN A,(SIO_A_C) ; Read RRO Register
|
||||
183 018A CB 57 BIT 2,A ; TX Buffer empty ?
|
||||
184 018C CA 88 01 JP Z,_TX_READY ; No --> Wait
|
||||
185 018F 7A LD A,D ; load character in A
|
||||
186 0190 D3 40 OUT (SIO_A_D),A ; Send character (Transfer Buffer)
|
||||
187 0192 F1 POP AF
|
||||
188 0193 C9 RET
|
||||
189
|
||||
190
|
||||
191 ;******************************************************************************
|
||||
192 ;* SEND STRING to V24 via SIO *
|
||||
193 ;* HL: contains start address of string *
|
||||
194 ;******************************************************************************
|
||||
195 0194 F5 SIO_PUT_STRING: PUSH AF
|
||||
196 0195 7E _NEXT_CHAR: LD A,(HL) ; get character
|
||||
197 0196 FE 00 CP $00 ; END of String ?
|
||||
198 0198 CA A3 01 JP Z,_TEXT_END
|
||||
199 019B 57 LD D,A
|
||||
200 019C CD 87 01 CALL SIO_PUT_CHAR ; send character
|
||||
201 019F 23 INC HL ; next character
|
||||
202 01A0 C3 95 01 JP _NEXT_CHAR
|
||||
203 01A3 F1 _TEXT_END: POP AF
|
||||
204 01A4 C9 RET
|
||||
205
|
||||
206
|
||||
207 ;******************************************************************************
|
||||
208 ;* INTERUTPT HANDLE SIO CHANNEL A CHARACTER RECEIVE *
|
||||
209 ;******************************************************************************
|
||||
210 01A5 F5 RX_CHA_AVAILABLE: PUSH AF
|
||||
211 01A6 CD 75 01 CALL A_RTS_OFF
|
||||
212 01A9 DB 40 IN A,(SIO_A_D) ; Read RX Character
|
||||
213 01AB 57 LD D,A ; load Character in D
|
||||
214 01AC CD 87 01 CALL SIO_PUT_CHAR ; Echo Char back to Host
|
||||
215
|
||||
216 01AF 3E 00 _NEXT_RX_CHAR: LD A,$0 ;Select RR0 Register
|
||||
217 01B1 D3 42 OUT (SIO_A_C),A
|
||||
218 01B3 DB 42 IN A,(SIO_A_C) ; Read RRO Register
|
||||
219 01B5 CB 47 BIT 0,A ; RX Character Available ?
|
||||
220 01B7 CA C3 01 JP Z,_NEXT_TX_CHAR ; No --> OK
|
||||
221 01BA DB 40 IN A,(SIO_A_D) ; Read that character
|
||||
222 01BC 57 LD D,A ; load Character in D
|
||||
223 01BD CD 87 01 CALL SIO_PUT_CHAR ; Echo Char back to Host
|
||||
224 01C0 C3 AF 01 JP _NEXT_RX_CHAR
|
||||
225
|
||||
226 01C3 3E 01 _NEXT_TX_CHAR: LD A,$1 ; Select RR1 Register
|
||||
227 01C5 D3 42 OUT (SIO_A_C),A
|
||||
228 01C7 DB 42 IN A,(SIO_A_C) ; Read RR1 Register
|
||||
229 01C9 CB 47 BIT 0,A ; ALL Characters sent ?
|
||||
230 01CB CA C3 01 JP Z,_NEXT_TX_CHAR
|
||||
231
|
||||
232 01CE FB _EO_CH_AV: EI
|
||||
233 01CF CD 7E 01 CALL A_RTS_ON
|
||||
234 01D2 F1 POP AF
|
||||
235 01D3 ED 4D RETI
|
||||
236
|
||||
237 ;******************************************************************************
|
||||
238 ;* INTERUTPT HANDLE SIO CHANNEL A ERROR *
|
||||
239 ;******************************************************************************
|
||||
240 01D5 SPEC_RX_CONDITION
|
||||
241 01D5 C3 00 01 JP MAIN ; Restart -> jump to Main program (RESTART)
|
||||
242
|
||||
243
|
||||
244
|
||||
245 ;*******************************************************************
|
||||
246 ;* Warteschleife 0,5s *
|
||||
247 ;*******************************************************************
|
||||
248 01D8 06 FF _WAIT: LD B,$FF ;
|
||||
249 01DA 0E FF _OUTER: LD C,$FF ;
|
||||
250 01DC 0D _INNER: DEC C
|
||||
251 01DD C2 DC 01 JP NZ,_INNER
|
||||
252 01E0 05 DEC B
|
||||
253 01E1 C2 DA 01 JP NZ,_OUTER
|
||||
254 01E4 C9 RET
|
||||
255
|
||||
256 ;******************************************************************************
|
||||
257 ;* TEXT DEFINITIONS *
|
||||
258 ;******************************************************************************
|
||||
259 01E5 0D 0A 5A 38 START_TEXT: DEFB CR,LF,'Z','8','0',SPACE,'D','E','M','O',SPACE,'V','1','.','0',$00
|
||||
01E9 30 20 44 45
|
||||
01ED 4D 4F 20 56
|
||||
01F1 31 2E 30 00
|
||||
260 01F5 0D 0A 4E 4D NMI_TEXT: DEFB CR,LF,'N','M','I',$00
|
||||
01F9 49 00
|
||||
261
|
||||
262
|
||||
263
|
||||
264
|
||||
265
|
||||
266
|
||||
267
|
||||
268
|
||||
269
|
||||
|
||||
Symbol table:
|
||||
|
||||
A_RTS_OFF 0175 A_RTS_ON 017E CR 000D
|
||||
CTC0 0000 CTC1 0001 CTC2 0002
|
||||
CTC3 0003 CTC_INIT 012B LF 000A
|
||||
MAIN 0100 NMI_TEXT 01F5 PIO_A 0080
|
||||
PIO_B 0081 PIO_C 0082 PIO_CON 0083
|
||||
PIO_INIT 0126 RAMTOP FFFF RX_CHA_AVAILABLE 01A5
|
||||
SIO_A_C 0042 SIO_A_D 0040 SIO_A_DI 016C
|
||||
SIO_A_EN 0163 SIO_B_C 0043 SIO_B_D 0041
|
||||
SIO_INIT 0134 SIO_PUT_CHAR 0187 SIO_PUT_STRING 0194
|
||||
SPACE 0020 SPEC_RX_CONDITION 01D5 START_TEXT 01E5
|
||||
_AGAIN 011C _EO_CH_AV 01CE _INNER 01DC
|
||||
_NEXT_CHAR 0195 _NEXT_RX_CHAR 01AF _NEXT_TX_CHAR 01C3
|
||||
_OUTER 01DA _TEXT_END 01A3 _TX_READY 0188
|
||||
_WAIT 01D8
|
||||
40 symbols.
|
||||
202
Reischl/lst/SIO_V24_Echo_Poll.lst
Normal file
202
Reischl/lst/SIO_V24_Echo_Poll.lst
Normal file
|
|
@ -0,0 +1,202 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assembler program *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 10/07/2017 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8
|
||||
9 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
10 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
11 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
12 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
13 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
14
|
||||
15
|
||||
16 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
17 0000 CTC0 EQU $00 ; Channel 0
|
||||
18 0001 CTC1 EQU $01 ; Channel 1
|
||||
19 0002 CTC2 EQU $02 ; Channel 2
|
||||
20 0003 CTC3 EQU $03 ; Channel 3
|
||||
21
|
||||
22 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
23 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
24 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
25 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
26 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
27
|
||||
28
|
||||
29 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
30 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
31 000D CR: EQU $0D
|
||||
32 000A LF: EQU $0A
|
||||
33 0020 SPACE: EQU $20
|
||||
34
|
||||
35 ;******************************************************************************
|
||||
36 ;* RESET HANDLER *
|
||||
37 ;* Function: Start Main Program *
|
||||
38 ;******************************************************************************
|
||||
39 0000 ORG $0000
|
||||
40 0000 C3 00 01 JP MAIN ; jump to Main program
|
||||
41
|
||||
42
|
||||
43 ;******************************************************************************
|
||||
44 ;* NMI HANDLER *
|
||||
45 ;* Handles NMI Interrupt Request *
|
||||
46 ;******************************************************************************
|
||||
47 0066 ORG $0066
|
||||
48 0066 21 A1 01 LD HL,NMI_TEXT ; Send NMI to V24
|
||||
49 0069 CD 80 01 CALL SIO_PUT_STRING
|
||||
50 006C ED 45 RETN
|
||||
51
|
||||
52 ;******************************************************************************
|
||||
53 ;* MAIN PROGRAM *
|
||||
54 ;******************************************************************************
|
||||
55 0100 ORG $100
|
||||
56 0100 F3 MAIN: DI ; Disable interrupt
|
||||
57 0101 31 FF FF LD SP,RAMTOP ; Set stack pointer
|
||||
58 0104 CD 1F 01 CALL PIO_INIT ; Init PIO (8255)
|
||||
59 0107 CD 24 01 CALL CTC_INIT ; Initialize CTC Channl1 for 9600 Baud (SIO Channel A)
|
||||
60 010A CD 2D 01 CALL SIO_INIT ; Animalize SIO for character based transfer (9600,n,8,1)
|
||||
61 010D 21 91 01 LD HL,START_TEXT ; Send Welcome Text to V24
|
||||
62 0110 CD 80 01 CALL SIO_PUT_STRING
|
||||
63 0113 CD 63 01 _AGAIN: CALL SIO_GET_CHAR ; Wait for Character on V24
|
||||
64 0116 7B LD A,E ; Output Error to LED's
|
||||
65 0117 D3 81 OUT (PIO_B),A
|
||||
66 0119 CD 56 01 CALL SIO_PUT_CHAR ; Echo Character to V24
|
||||
67 011C C3 13 01 JP _AGAIN
|
||||
68 011F ;
|
||||
69
|
||||
70 ;******************************************************************************
|
||||
71 ;* Initialize PIO (8255) *
|
||||
72 ;******************************************************************************
|
||||
73 011F 3E 99 PIO_INIT: LD A,$99 ; Init PIO 8255 Control Word:
|
||||
74 0121 ; PA0-PA7=IN (DIP SWITCHES)
|
||||
75 0121 ; PB0-PB7=OUT (LEDS),
|
||||
76 0121 D3 83 OUT (PIO_CON),A ; PC0-PC7=IN, Mode 0 Selection
|
||||
77 0123 C9 RET
|
||||
78
|
||||
79 ;******************************************************************************
|
||||
80 ;* Initialize CTC Channel 1 (SIO Channel A Clock) *
|
||||
81 ;******************************************************************************
|
||||
82 0124 3E 05 CTC_INIT: LD A,$05 ; Init Timer Counter - Channel 1
|
||||
83 0126 D3 01 OUT (CTC1),A ; for Baudrate 9600 (No Interrupt, Timer Mode, PSC=16,
|
||||
84 0128 ; trigger on positive edge
|
||||
85 0128 3E 0C LD A,$0C ; Write Time constant 12*16*552ns= 105,98s
|
||||
86 012A D3 01 OUT (CTC1),A
|
||||
87 012C C9 RET
|
||||
88
|
||||
89
|
||||
90 ;******************************************************************************
|
||||
91 ;* Initialize SIO Channel A for character based transfer *
|
||||
92 ;******************************************************************************
|
||||
93 012D 3E 30 SIO_INIT: LD A,$30 ; Write to WR0 Register --> Error Reset
|
||||
94 012F D3 42 OUT (SIO_A_C),A
|
||||
95 0131 3E 18 LD A,$18 ; Write to WR0 Register --> Channel Reset
|
||||
96 0133 D3 42 OUT (SIO_A_C),A
|
||||
97 0135 3E 04 LD A,$04 ; Select WR4 Register
|
||||
98 0137 D3 42 OUT (SIO_A_C),A
|
||||
99 0139 3E 04 LD A,$04 ; CLK*1, 1STOP Bit, No Parity
|
||||
100 013B D3 42 OUT (SIO_A_C),A
|
||||
101 013D 3E 03 LD A,$03 ; Select WR3 Register
|
||||
102 013F D3 42 OUT (SIO_A_C),A
|
||||
103 0141 3E C1 LD A,$C1 ; RX enable,8 Data Bits
|
||||
104 0143 D3 42 OUT (SIO_A_C),A
|
||||
105 0145 3E 05 LD A,$05 ; Select WR5 Register
|
||||
106 0147 D3 42 OUT (SIO_A_C),A
|
||||
107 0149 3E 68 LD A,$68 ; TX enable,8 Data Bits, DTR inactive, RTS inactive,Break off
|
||||
108 014B D3 42 OUT (SIO_A_C),A
|
||||
109 014D 3E 01 LD A,$1 ; Select WR1 Register
|
||||
110 014F D3 42 OUT (SIO_A_C),A
|
||||
111 0151 3E 00 LD A,$0 ; No Interrupts for Rx and Tx Characters
|
||||
112 0153 D3 42 OUT (SIO_A_C),A
|
||||
113 0155 C9 RET
|
||||
114
|
||||
115
|
||||
116
|
||||
117 ;******************************************************************************
|
||||
118 ;* Send one Character Via SIO Channel A(Polling Mode) *
|
||||
119 ;* D- Register: Character to send (ASCII Code) *
|
||||
120 ;******************************************************************************
|
||||
121 0156 F5 SIO_PUT_CHAR: PUSH AF
|
||||
122 0157 DB 42 _TX_READY: IN A,(SIO_A_C) ; Read RRO Register
|
||||
123 0159 CB 57 BIT 2,A ; TX Buffer empty ?
|
||||
124 015B CA 57 01 JP Z,_TX_READY ; No --> Wait
|
||||
125 015E 7A LD A,D ; load character in A
|
||||
126 015F D3 40 OUT (SIO_A_D),A ; Send character (Transfer Buffer)
|
||||
127 0161 F1 POP AF
|
||||
128 0162 C9 RET
|
||||
129
|
||||
130
|
||||
131 ;******************************************************************************
|
||||
132 ;* Receive one Character Via SIO Channel A(Polling Mode) *
|
||||
133 ;* D- Register: Character received (ASCII Code) *
|
||||
134 ;* E-Register: Error Code *
|
||||
135 ;******************************************************************************
|
||||
136 0163 F5 SIO_GET_CHAR: PUSH AF
|
||||
137 0164 DB 42 _RX_READY: IN A,(SIO_A_C) ; Read RRO Register
|
||||
138 0166 CB 47 BIT 0,A ; RX Character Available ?
|
||||
139 0168 CA 64 01 JP Z,_RX_READY ; No --> Wait
|
||||
140 016B DB 40 IN A,(SIO_A_D) ; Store character
|
||||
141 016D 57 LD D,A
|
||||
142 016E 3E 01 LD A,$01 ; Select WR1 Register
|
||||
143 0170 D3 42 OUT (SIO_A_C),A
|
||||
144 0172 DB 42 IN A,(SIO_A_C) ; Read Error Register
|
||||
145 0174 5F LD E,A ; store Error Status
|
||||
146 0175 E6 70 AND $70 ; only D6(CRC Framing Error),D5(Rx Overrun Error) und D4 (Parity Error)
|
||||
147 0177 CA 7E 01 JP Z,_RX_EXIT ; return if no error
|
||||
148 017A 3E 30 LD A,$30 ; reset Error
|
||||
149 017C D3 42 OUT (SIO_A_C),A
|
||||
150 017E F1 _RX_EXIT: POP AF
|
||||
151 017F C9 RET
|
||||
152
|
||||
153
|
||||
154 ;******************************************************************************
|
||||
155 ;* SEND STRING to V24 via SIO *
|
||||
156 ;* HL: contains start address of string *
|
||||
157 ;******************************************************************************
|
||||
158 0180 F5 SIO_PUT_STRING: PUSH AF
|
||||
159 0181 7E _NEXT_CHAR: LD A,(HL) ; get character
|
||||
160 0182 FE 00 CP $00 ; END of String ?
|
||||
161 0184 CA 8F 01 JP Z,_TEXT_END
|
||||
162 0187 57 LD D,A
|
||||
163 0188 CD 56 01 CALL SIO_PUT_CHAR ; send character
|
||||
164 018B 23 INC HL ; next character
|
||||
165 018C C3 81 01 JP _NEXT_CHAR
|
||||
166 018F F1 _TEXT_END: POP AF
|
||||
167 0190 C9 RET
|
||||
168
|
||||
169
|
||||
170 ;******************************************************************************
|
||||
171 ;* TEXT DEFINITIONS *
|
||||
172 ;******************************************************************************
|
||||
173 0191 0D 0A 5A 38 START_TEXT: DEFB CR,LF,'Z','8','0',SPACE,'D','E','M','O',SPACE,'V','1','.','0',$00
|
||||
0195 30 20 44 45
|
||||
0199 4D 4F 20 56
|
||||
019D 31 2E 30 00
|
||||
174 01A1 0D 0A 4E 4D NMI_TEXT: DEFB CR,LF,'N','M','I',$00
|
||||
01A5 49 00
|
||||
175
|
||||
176
|
||||
177
|
||||
178
|
||||
179
|
||||
180
|
||||
181
|
||||
182
|
||||
183
|
||||
|
||||
Symbol table:
|
||||
|
||||
CR 000D CTC0 0000 CTC1 0001
|
||||
CTC2 0002 CTC3 0003 CTC_INIT 0124
|
||||
LF 000A MAIN 0100 NMI_TEXT 01A1
|
||||
PIO_A 0080 PIO_B 0081 PIO_C 0082
|
||||
PIO_CON 0083 PIO_INIT 011F RAMTOP FFFF
|
||||
SIO_A_C 0042 SIO_A_D 0040 SIO_B_C 0043
|
||||
SIO_B_D 0041 SIO_GET_CHAR 0163 SIO_INIT 012D
|
||||
SIO_PUT_CHAR 0156 SIO_PUT_STRING 0180 SPACE 0020
|
||||
START_TEXT 0191 _AGAIN 0113 _NEXT_CHAR 0181
|
||||
_RX_EXIT 017E _RX_READY 0164 _TEXT_END 018F
|
||||
_TX_READY 0157
|
||||
31 symbols.
|
||||
55
Reischl/lst/pio.lst
Normal file
55
Reischl/lst/pio.lst
Normal file
|
|
@ -0,0 +1,55 @@
|
|||
1 ;******************************************************************************
|
||||
2 ;* Z80 Assemblerprogramm *
|
||||
3 ;* Josef Reisinger *
|
||||
4 ;* josef.reisinger@htl-hl.ac.at *
|
||||
5 ;* 26/04/2015 *
|
||||
6 ;******************************************************************************
|
||||
7
|
||||
8
|
||||
9 ; ---------------------------- PIO 82C55 I/O ---------------------------------
|
||||
10 0080 PIO_A: EQU $80 ; (INPUT)
|
||||
11 0081 PIO_B: EQU $81 ; (OUTPUT) OUT TO LEDS
|
||||
12 0082 PIO_C: EQU $82 ; (INPUT) IN from DIP SWITCHES
|
||||
13 0083 PIO_CON: EQU $83 ; CONTROL BYTE PIO 82C55
|
||||
14
|
||||
15 ; --------------------------- CTC Z80 Timer Counter --------------------------
|
||||
16 0000 CTC0 EQU $00 ; Channel 0
|
||||
17 0001 CTC1 EQU $01 ; Channel 1
|
||||
18 0002 CTC2 EQU $02 ; Channel 2
|
||||
19 0003 CTC3 EQU $03 ; Channel 3
|
||||
20
|
||||
21 ; -------------------------- SIO (USART) ----------------------------------------
|
||||
22 0040 SIO_A_D: EQU $40 ; Channel A Data Register
|
||||
23 0041 SIO_B_D: EQU $41 ; Channel B Data Register
|
||||
24 0042 SIO_A_C: EQU $42 ; Channel A Control Register
|
||||
25 0043 SIO_B_C: EQU $43 ; Channel B Control Register
|
||||
26
|
||||
27
|
||||
28 ;-------------------------- CONSTANTS ----------------------------------------
|
||||
29 FFFF RAMTOP: EQU $FFFF ; 32Kb RAM 8000H-FFFFH
|
||||
30
|
||||
31
|
||||
32 ;******************************************************************************
|
||||
33 ;* START AFTER RESET, *
|
||||
34 ;* Function....: ready system and restart *
|
||||
35 ;******************************************************************************
|
||||
36 0000 ORG $0000
|
||||
37 0000 F3 DI ; Disable interrupt
|
||||
38 0001 31 FF FF LD SP,RAMTOP ; Set stack pointer to top off ram
|
||||
39 0004 3E 99 LD A,$99 ; PA0-PA7=IN (DIP SWITCHES), PB0-PB7=OUT (LEDS), PC0-PC7=IN, Mode 0 Selektion
|
||||
40 0006 D3 83 OUT (PIO_CON),A
|
||||
41 0008 DB 83 IN A,(PIO_CON)
|
||||
42 000A DB 80 AGAIN: IN A,(PIO_A) ; Read actual status of Switches (PA0-PA7)
|
||||
43 000C D3 81 OUT (PIO_B),A ; Output Status to LEDs (PB0-PB7)
|
||||
44 000E C3 0A 00 JP AGAIN ; Endless
|
||||
45
|
||||
46
|
||||
47
|
||||
|
||||
Symbol table:
|
||||
|
||||
AGAIN 000A CTC0 0000 CTC1 0001 CTC2 0002
|
||||
CTC3 0003 PIO_A 0080 PIO_B 0081 PIO_C 0082
|
||||
PIO_CON 0083 RAMTOP FFFF SIO_A_C 0042 SIO_A_D 0040
|
||||
SIO_B_C 0043 SIO_B_D 0041
|
||||
14 symbols
|
||||
Loading…
Reference in a new issue