arbitrate led port a

rcbilson · rcbilson · commit 7c5881e32fb2 · 2024-03-10T19:29:26.000-04:00
diff --git a/led.s b/led.s
@@ -3,12 +3,14 @@
 
 .proc led_on
         lda #LED
+        ora PORTA
         sta PORTA
         rts
 .endproc
 
 .proc led_off
-        lda #0
+        lda #<~LED
+        and PORTA
         sta PORTA
         rts
 .endproc
