Skip to content

Instantly share code, notes, and snippets.

@kuninet

kuninet/SBC6809-LED.BAS

Last active July 16, 2018 13:49
Show Gist options
  • Save kuninet/4b735fefdda21a05da9d60d66232efb1 to your computer and use it in GitHub Desktop.
Save kuninet/4b735fefdda21a05da9d60d66232efb1 to your computer and use it in GitHub Desktop.
Download ZIP
LED BLINK for SBC6809 w/MC68B21
Raw
SBC6809-LED.BAS
1 REM -- LED BLINK for SBC6809 --
20 POKE &H8007,0
30 POKE &H8004,0
40 POKE &H8006,&HFF
41 POKE &H8005,&H04
42 POKE &H8007,&H04
60 FOR I=1 TO 10
70 POKE &H8006,&HAA
80 FOR J=0 TO 1000:NEXT J
90 POKE &H8006,&H55
100 FOR J=0 TO 1000:NEXT J
110 NEXT I
120 POKE &H8006,&HFF
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment