1 REM ____________________________________________ 2 REM LED SHOW 3 REM (c)2016 Igi, SBC6502 Erika0 (or 1, or 2) 4 REM ____________________________________________ 5 REM chip 8255, Port A = PA 6 REM chip 8255, Port B = PB 7 REM chip 8255, PORT C = PC 8 REM chip 8255, Command register = CR 9 REM ____________________________________________ 10 REM 32kB RAM VERSION 11 PA=32768:PB=32769:PC=32770:CR=32771 12 REM ___________________________________________ 13 REM 40kB or 46kB RAM version 14 REM PA=47104:PB=47105:PC=47106:CR=47107 15 REM ___________________________________________ 16 ? CHR$(12);:POKE CR,128 17 ? "" 18 REM ___________________________________________ 20 Q=200:A=0:POKE PA,0:GOSUB 100 25 PRINT TAB(27);"1 - KNIGHT RIDER" 30 POKE PA,1:GOSUB 100:POKE PA,2:GOSUB 100 35 POKE PA,4:GOSUB 100:POKE PA,8:GOSUB 100 40 POKE PA,16:GOSUB 100:POKE PA,32:GOSUB 100 45 POKE PA,64:GOSUB 100:POKE PA,128:GOSUB 100 50 POKE PA,64:GOSUB 100:POKE PA,32:GOSUB 100 55 POKE PA,16:GOSUB 100:POKE PA,8:GOSUB 100 60 POKE PA,4:GOSUB 100:POKE PA,2:GOSUB 100 65 A=A+1:IF A=5 THEN Q=77 70 IF A=20 THEN Q=45 75 IF A=40 THEN Q=30 80 IF A=60 GOTO 200 85 GOTO 30 95 REM ___________________________________________ 100 REM TIMING PAUSE 101 FOR T=0 TO Q:NEXT T:RETURN 102 REM __________________________________________ 200 POKE PA,0:GOSUB 100:Q=200 201 A=0 202 PRINT TAB (27);"2 - THE MIDDLE" 205 POKE PA,0:GOSUB 100 210 POKE PA,129:GOSUB 100:POKE PA,195:GOSUB 100 220 POKE PA,228:GOSUB 100:POKE PA,255:GOSUB 100 230 A=A+1:IF A=17 GOTO 300 235 GOTO 205 240 REM __________________________________________ 300 A=0:Q=200 302 PRINT TAB (27);"3 - DOUBLE LED KNIGHT RIDER" 305 POKE PA,0:GOSUB 100 310 POKE PA,24:GOSUB 100:POKE PA,36:GOSUB 100 320 POKE PA,66:GOSUB 100:POKE PA,129:GOSUB 100 335 POKE PA,129:GOSUB 100:POKE PA,66:GOSUB 100 345 POKE PA,36:GOSUB 100:POKE PA,24:GOSUB 100 360 A=A+1:IF A=20 THEN Q=150 362 IF A=20 THEN Q=100 365 IF A=40 THEN Q=55 366 IF A=60 GOTO 400 370 GOTO 310 380 REM __________________________________________ 400 A=0:Q=40 402 PRINT TAB (27);"4 - BINARY COUNTER UP - DOWN" 405 A=A+1:POKE PA,0:GOSUB 100 420 FOR R=0 TO 255 430 POKE PA,R:GOSUB 100 450 NEXT R 452 POKE PA,0:GOSUB 100 455 FOR R=255 TO 0 STEP -1 456 POKE PA,R:GOSUB 100 457 NEXT R 460 IF A=2 GOTO 500 470 GOTO 405 480 REM __________________________________________ 500 A=0:Q=130:POKE PA,0:GOSUB 100 501 POKE PA,255:GOSUB 100 502 PRINT TAB (27);"5 - NEGATIVE KNIGHT RIDER" 510 POKE PA,254:GOSUB 100:POKE PA,253:GOSUB 100 530 POKE PA,251:GOSUB 100:POKE PA,247:GOSUB 100 550 POKE PA,239:GOSUB 100:POKE PA,223:GOSUB 100 570 POKE PA,191:GOSUB 100:POKE PA,127:GOSUB 100 590 POKE PA,191:GOSUB 100:POKE PA,223:GOSUB 100 610 POKE PA,239:GOSUB 100:POKE PA,247:GOSUB 100 630 POKE PA,251:GOSUB 100:POKE PA,253:GOSUB 100 645 POKE PA,254:GOSUB 100 650 A=A+1:IF A=7 THEN Q=80 651 IF A=17 THEN Q=60 652 IF A=35 THEN Q=30 655 IF A=60 GOTO 700 670 GOTO 510 680 REM __________________________________________ 700 A=0:Q=200 702 PRINT TAB (27); "6 - FULL LED ON-OFF" 710 POKE PA,0:GOSUB 100:POKE PA,255:GOSUB 100 720 A=A+1 730 IF A=10 THEN GOTO 740 735 GOTO 710 740 A=0:Q=700 745 POKE PA,0:GOSUB 100:POKE PA,255:GOSUB 100 750 A=A+1 760 IF A=10 THEN GOTO 800 770 GOTO 745 780 REM __________________________________________ 800 A=0:Q=300:GOSUB 100 802 PRINT TAB(27);"7 - THE MIDDLE LED EFFECT" 810 POKE PA,129:GOSUB 100:POKE PA,195:GOSUB 100 820 POKE PA,231:GOSUB 100:POKE PA,255:GOSUB 100 830 POKE PA,195:GOSUB 100:POKE PA,231:GOSUB 100 850 POKE PA,255:GOSUB 100:POKE PA,231:GOSUB 100 860 POKE PA,195:GOSUB 100:POKE PA,129:GOSUB 100 870 A=A+1: IF A=20 THEN GOTO 900 880 GOTO 830 888 REM __________________________________________ 900 Q=120:A=0 902 POKE PA,0:GOSUB 100 904 PRINT TAB (27);"8 - LED << - >>" 910 POKE PA,3:GOSUB 100:POKE PA,5:GOSUB 100 913 POKE PA,10:GOSUB 100:POKE PA,20:GOSUB 100 915 POKE PA,40:GOSUB 100:POKE PA,80:GOSUB 100 917 POKE PA,160:GOSUB 100:POKE PA,192:GOSUB 100 920 POKE PA,192:GOSUB 100:POKE PA,160:GOSUB 100 922 POKE PA,80:GOSUB 100:POKE PA,40:GOSUB 100 924 POKE PA,20:GOSUB 100:POKE PA,10:GOSUB 100 926 POKE PA,5:GOSUB 100:POKE PA,3:GOSUB 100 929 A=A+1:IF A=17 GOTO 932 930 GOTO 910 931 REM __________________________________________ 932 Q=120:A=0 934 PRINT TAB (27);"9 - LED <<<- ->>>" 940 POKE PA,0:GOSUB 100:POKE PA,1:GOSUB 100 943 POKE PA,3:GOSUB 100:POKE PA,7:GOSUB 100 945 POKE PA,14:GOSUB 100:POKE PA,28:GOSUB 100 947 POKE PA,56:GOSUB 100:POKE PA,112:GOSUB 100 949 POKE PA,224:GOSUB 100:POKE PA,192:GOSUB 100 951 POKE PA,128:GOSUB 100:POKE PA,0:GOSUB 100 952 GOSUB 100:GOSUB 100 953 POKE PA,128:GOSUB 100:POKE PA,192:GOSUB 100 955 POKE PA,224:GOSUB 100:POKE PA,112:GOSUB 100 957 POKE PA,56:GOSUB 100:POKE PA,28:GOSUB 100 959 POKE PA,14:GOSUB 100:POKE PA,7:GOSUB 100 961 POKE PA,3:GOSUB 100:POKE PA,1:GOSUB 100 963 POKE PA,0:GOSUB 100:GOSUB 100 967 A=A+1:IF A=13 GOTO 16 980 GOTO 940 988 REM _________________________________________