zener/AMTS
1
0
Fork 0
mirror of https://github.com/EranMorkon/AMTS.git synced 2023-12-28 16:48:38 +00:00
Code Issues Projects Releases Packages Wiki Activity

Adding Reischl

Browse source
This commit is contained in:
Andreas Mieke 2018-03-18 03:02:44 +01:00
parent e30b39b37a
commit 76010f8d07
97 changed files with 1375 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

35
Reischl/lst/pio.s Normal file
View file

@ -0,0 +1,35 @@
;******************************************************************************
;* Z80 Assembler program *
;* Josef Reisinger *
;* josef.reisinger@htl-hl.ac.at *
;* 26/04/2015 *
;******************************************************************************
;************************* HARDWARE IO ADR ************************************
; PIO 82C55 I/O
PIO1A: EQU $80 ; INPUT - DIP SWITCHES
PIO1B: EQU $81 ; OUTPUT - LEDS
PIO1C: EQU $82 ; (INPUT)
PIO1CONT: EQU $83 ; CONTROL BYTE PIO 82C55
;*************************** 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,$99 ; PA0-PA7=IN (DIP SWITCHES), PB0-PB7=OUT (LEDS),
; PC0-PC7=IN, Mode 0 Selection
OUT (PIO1CONT),A
IN A,(PIO1CONT)
AGAIN:
IN A,(PIO1A) ; Read actual status of Switches (PA0-PA7)
OUT (PIO1B),A ; Output Status to LEDs (PB0-PB7)
JP AGAIN ; Endlos