pdp 8 blinking lights


sim> deposit 20 7001
sim> deposit 21 2034
sim> deposit 22 5021
sim> deposit 23 5020
sim> run 20


CREATE INC.PA
#A
/----------------------------------------------------
*20 /START 20
A, IAC /INCREMENTS +1 INDEX AC C(AC)+1=C(AC)
B, ISZ 034 /INDEX AND SKIP IF ZERO (DELAY)
JMP B /DELAY
JMP A /CONTINUE
/----------------------------------------------------


CRTL L


#E

PAL INC
PAL INC,INC<INC/H


PAL INC

.TYPE INC.LS

0020 *20 /START 20
000020 7001 A, IAC /INCREMENTS +1 INDEX AC C(AC)+1=C(AC)
000021 2034 B, ISZ 034 /INDEX AND SKIP IF ZERO (DELAY)
000022 5021 JMP B /DELAY
000023 5020 JMP A /CONTINUE

$

A 0020
B 0021

ERRORS DETECTED: 0
LINKS GENERATED: 0