0000 PAD: = $1A80 0000 PADD: = $1A81 0000 PBD: = $1A82 0000 PBDD: = $1A83 0300 .ORG $300 0300 A9 FF LDA #$FF 0302 8D 81 1A STA PADD ; Port A komplett auf Ausgang schalten 0305 MAIN_LOOP: 0305 A9 FF LDA #$FF ; alle Bits ein 0307 8D 80 1A STA PAD 030A A2 50 LDX #$50 ; Delay mit Wert in X festlegen 030C 20 1C 03 JSR delay 030F A9 00 LDA #$00 ; alle Bits aus 0311 8D 80 1A STA PAD 0314 A2 10 LDX #$10 ; Delay mit Wert in X festlegen 0316 20 1C 03 JSR delay 0319 4C 05 03 JMP main_loop 031C DELAY: 031C A0 00 LDY #0 031E DELAY_LOOP2: 031E EA NOP 031F EA NOP 0320 EA NOP 0321 88 DEY 0322 D0 FA BNE delay_loop2 0324 CA DEX 0325 D0 F5 BNE delay 0327 60 RTS PAD: 1A80 DEFINED AT LINE 1 > USED AT LINE 11 > USED AT LINE 15 PADD: 1A81 DEFINED AT LINE 2 > USED AT LINE 8 PBD: 1A82 DEFINED AT LINE 3 PBDD: 1A83 DEFINED AT LINE 4 MAIN_LOOP: 0305 DEFINED AT LINE 9 > USED AT LINE 18 DELAY: 031C DEFINED AT LINE 20 > USED AT LINE 13 > USED AT LINE 17 > USED AT LINE 29 DELAY_LOOP2: 031E DEFINED AT LINE 22 > USED AT LINE 27