new_1.z80

di
push af
push bc
push hl
ld l,a
ld a,15
out ($A0),a ; PSG index port #15
ld h,255
and a
rl l
rl h
ld b,11
in a,($A2)  ; PSG data read
res 0,a
rr h
rr l
adc a,0
out ($A1),a ; PSG data write
ld c,17
dec c
jr nz,$FD
djnz $ED
pop hl
pop bc
pop af
and a
ei
inc sp
inc sp
ret
adc a,0
out ($A1),a
ld c,6      ; set baud rate
dec c
jr nz,$FD
djnz $ED
pop hl
pop bc
pop af
ei
inc sp
inc sp
ret