--- /dev/null
+/ Serial Port Test
+/
+/ This program will read characters from the serial port and write them
+/ to memory starting at address 0. If you use the sendtape program with
+/ the files sertest.dat you should have the following pattern in memory
+/ Addr Value
+/ 0 1
+/ 1 2
+/ 2 3
+/ 3 4
+/ 4 10
+/ 5 20
+/ 6 40
+/ 7 100
+/ 10 200
+/ 11 0
+/ 12 377
+/ 13 376
+/ 14 375
+/ 16 367
+/ 17 16 (Address of characters received)
+/
+/ To run start at 0200.
+/ Program will not halt
+
+ INAD=030 / Address of serial input, 30 for console
+ KCF2=6000 INAD
+ KSF2=6001 INAD
+ KCC2=6002 INAD
+ KRS2=6004 INAD
+ KIE2=6005 INAD
+ KRB2=6006 INAD
+
+ OUTAD=040 / Address of serial output, 40 for console
+ TFL2=6000 OUTAD
+ TSF2=6001 OUTAD
+ TCF2=6002 OUTAD
+ TPC2=6004 OUTAD
+ TSK2=6005 OUTAD
+ TLS2=6006 OUTAD
+
+ *17
+BUFLOC, 7777 / Address to store next word received
+
+ *200
+START, CLA CLL CMA / Init all our variables
+ DCA BUFLOC
+
+READ, KSF2 / Have character waiting
+ JMP .-1 / No
+ CLA
+ KRB2 / Get character
+ DCA I BUFLOC / Save through auto increment location
+ JMP READ
+ $