CPU 6502
        PAGE 0

PAD     EQU $1A80
PADD    EQU $1A81

        ORG $0300
START       LDA	#$FF        ; FF als Ausgang, für das Datenrichtungsregister
            STA	 PADD       ; Direktionsregister PADD:  "OUT"
M1          LDA	#$FF        ; FF als DATEN, für das Datenregister	
            STA	PAD         ; PAD:   "FF"  (später "00")
            JSR	SUB	        ; JumpToSubRoutine Zeitverzögerung DELAY.
            LDA	#$00        ; als DATEN, für das Datenregister
            STA	PAD         ; PAD:   "00"  (später "FF")
            JSR	SUB         ; JumpToSubRoutine Zeitverzögerung DELAY.
            JMP	M1

SUB         LDY	#$01	    ; SR Beginn SUBROUTINE
M2          LDX	#$DE	    ; mit 	ZP-ADRESSIERUNGSART sind durch IM ersetzt.
M3          DEX
            BNE	M3
            DEY		
            BNE M2
            RTS             ; RETURN FROM SUBROUTINE
            
        END