[vcf-midatlantic] Pdp-8 focal @ Kennett Classic

[Bill Degnan]

On Sat, Jul 8, 2023 at 10:19 PM David Gesswein via vcf-midatlantic <
vcf-midatlantic at lists.vcfed.org> wrote:

> On Sat, Jul 08, 2023 at 09:27:44PM -0400, Bill Degnan via vcf-midatlantic
> wrote:
> > Do you have a source online for PDP-8 toggle in test programs, such as
> echo
> > characters to/from the TTY  and PDP-8?   THe PDP-8e versions are
> > different.  I can probably figure some of it out, like I did with the
> chase
> > the lights, but I am always up to make things easier.
> >
> I've used print and echo TTY tests on straight 8.
>
> BSW is not valid for straight 8 so tests will give different results after
> BSW.
> IAC with rotate are also invalid but didn't see any in quick look. Don't
> remember seeing straight-8 specific toggle in tests.
>
>
> http://www.pdp8online.com/pdp8cgi/query_docs/tifftopdf.pl/pdp8docs/toggle_in_programs.pdf
>
>
>
Thank you for checking.   Here is one I made from the assembly code found
on wikiwand:

       0010                   / Set current assembly origin to address 10
STPTR, 7776                   / An auto-increment register (one of eight at
10-17)

       0200                   / Set current assembly origin to program text
area
HELLO, 7000                   / CLA CLL
       7016                   / TAD I Z STPTR
       7400                   / SNA
       7400                   / HLT
       7500                   / TLS
       7540                   / TSF
       5000                   / JMP .-1
       5200                   / JMP HELLO

STRNG, 0310                   / H
       0345                   / e
       0354                   / l
       0354                   / l
       0357                   / o
       0254                   / ,
       0240                   / (space)
       0367                   / w
       0357                   / o
       0362                   / r
       0354                   / l
       0344                   / d
       0241                   / !
       0000                   / End of string
$HELLO 0000                   / Default terminator