;Wert in PSG Register schreiben
;------------------------------
;
;A = Register Nummer
;C = Daten

 di         ; Interrupts sperren

 ld  b,&f4  ; Register-Nummer (im Akku)
 out (c),a  ; auf Port A des 8255
 ld  b,&f6  ; Zustand Port C holen
 in  a,(c)  ; (andere Bits sollen unverändert bleiben)
 or  a,&c0  ; Bit 6+7 setzen (Latch PSG -> PSG)
 out (c),a  ; und schreiben
 and a,&3f  ; Bit 6+7 zurücksetzen
 out (c),a  ; und schreiben. Jetzt ist das PSG-Register ausgewählt

 ld  b,&f4  ; Jetzt die Daten (im C-Register)
 out (c),c  ; auf Port A des 8255 legen
 ld  b,&f6  ; und von Port C
 ld  c,a    ; wieder die beiden
 or  a,&80  ; Bits setzen
 out (c),a  ; und schreiben
 out (c),c  ; zurücksetzen und schreiben. Jetzt sind die Daten drin

 ei         ; Interrupts reaktivieren
 ret        ; und Ende