Z80-EMUF, 1984 Issue 6

Z80 CPU at 2MHz, 2x Z80 PIO, 1x 2716 EPROM, 1×6116 SRAM

On this page the original article, the printed test program in listing and hex format.

0001   0000             .org 0000h
0002   0000             ; Testprogramm für Z80 EMUF:
0003   0000             ; auf den Ausgängen der PIO's
0004   0000             ; wird nacheinander gezählt
0005   0000             
0006   0000             RAM     equ 8000h
0007   0000             
0008   0000             PIO0    equ 0
0009   0000             PIO1    equ 10h
0010   0000             ; PIO Adressen:
0011   0000             ; PIO+0: Port A
0012   0000             ; PIO+1: Port B
0013   0000             ; PIO+2: Control Port A
0014   0000             ; PIO+3: Control Port B
0015   0000             
0016   0000 3E CF       EMUT1:  ld a,11001111b; Initialisierung aller Ports auf Einzelbit Ein- und Ausgabe
0017   0002 D3 02           out (PIO0+2),a
0018   0004 3E 00           ld a,0
0019   0006 D3 02           out (PIO0+2),a
0020   0008 3E CF           ld a,11001111b
0021   000A D3 03           out (PIO0+3),a
0022   000C 3E 00           ld a,0
0023   000E D3 03           out (PIO0+3),a
0024   0010                 
0025   0010 3E CF           ld a,11001111b; Initialisierung PIO2 analog zu PIO1
0026   0012 D3 12           out (PIO1+2),a
0027   0014 3E 00           ld a,0
0028   0016 D3 12           out (PIO1+2),a
0029   0018 3E CF           ld a,11001111b
0030   001A D3 13           out (PIO1+3),a
0031   001C 3E 00           ld a,0
0032   001E D3 13           out (PIO1+3),a
0033   0020             
0034   0020 06 00       LOOP:   ld b,0
0035   0022 78          L1: ld a,b
0036   0023 32 00 80        ld (RAM),a; RAM Adresse 00 .. FF wird angesprochen 
0037   0026 3A 00 80        ld a,(RAM)
0038   0029 D3 00           out (PIO0+0),a
0039   002B 05              dec b
0040   002C C2 22 00        jp nz,L1
0041   002F             
0042   002F 06 00           ld b,0
0043   0031 78          L2: ld a,b; jetzt 2. Port PIO0
0044   0032 32 00 80        ld (RAM),a;  
0045   0035 3A 00 80        ld a,(RAM)
0046   0038 D3 01           out (PIO0+1),a
0047   003A 05              dec b
0048   003B C2 31 00        jp nz,L2
0049   003E             
0050   003E 06 00           ld b,0
0051   0040 78          L3: ld a,b; jetzt 1. Port PIO1
0052   0041 32 00 80        ld (RAM),a;  
0053   0044 3A 00 80        ld a,(RAM)
0054   0047 D3 10           out (PIO1+0),a
0055   0049 05              dec b
0056   004A C2 40 00        jp nz,L3
0057   004D             
0058   004D 06 00           ld b,0
0059   004F 78          L4: ld a,b; jetzt 2. Port PIO1
0060   0050 32 00 80        ld (RAM),a;  
0061   0053 3A 00 80        ld a,(RAM)
0062   0056 D3 11           out (PIO1+1),a
0063   0058 05              dec b
0064   0059 C2 4F 00        jp nz,L4
0065   005C                 
0066   005C C3 20 00        jp LOOP
0067   005F             
0068   005F                 DS 1000h
0069   105F             .END        

Hex and listing of test program.

Photos and assembler listing from https://makerprojekte.de/z80-emuf-wiederbelebt/