ＰＩＣを用いた採点ペン

PICマイコンを使って知る人ぞ知る採点ペン（9801全盛期に一部教師の間で流行した？）を作ってみました。
プログラムはMEL PIC BASICを使いました。
（PIC MICRO BASICと一部の命令が異なります。）

採点ペンBASICプログラム

SYMBOL PORTA=5

SYMBOL PORTB=6

SYMBOL TRISA=$85

SYMBOL TRISB=$86

POKE TRISA,0

POKE TRISB,3

OUTPUT 2

OUTPUT 4

OUTPUT 5

OUTPUT 6

OUTPUT 7

LOW 2

LOW 7

START:

B1=8

B2=8

B3=8

B4=8

B8=0

B9=0

B10=10

MAINLP:

GOSUB DISP

PEEK PORTB,B0

IF BIT1=0 THEN DISPSUM

IF BIT0=1 THEN MAINLP

B6=0

LOOP:

B6=B6+1

GOSUB DISP

PEEK PORTB,B0

IF BIT0=0 THEN LOOP

B4=B3

B3=B2

B2=B1

B1=0

IF B6<7 THEN MAINLP

B1=2

B8=B8+2

IF B8<10 THEN MAINLP

B8=0

B9=B9+1

IF B9<10 THEN MAINLP

B9=0

B10=1

DISPSUM:

PEEK PORTB,B0

IF BIT1=0 THEN DISPSUM

B4=10

B3=B10

B2=B9

B1=B8

LOOP2:

GOSUB DISP

PEEK PORTB,B0

IF BIT1=1 THEN LOOP2

LOOP3:

PEEK PORTB,B0

IF BIT1=0 THEN LOOP3

GOTO START

DISP:

FOR B5=1 TO 5

POKE PORTA,B1

LOW 4

PAUSE 5

HIGH 4

POKE PORTA,B2

LOW 5

PAUSE 5

HIGH 5

POKE PORTA,B3

LOW 6

PAUSE 5

HIGH 6

POKE PORTA,B4

LOW 7

PAUSE 5

HIGH 7

RETURN

DECD:

IF BIT4=0 THEN DECD

B1=B1-1

B8=B8-1

IF B1>0 THEN MAINLP

B1=2

B8=B8+3

GOTO MAINLP

END

技術科教育ホームページにもどる