| 1 | / Serial Port Test |
| 2 | / |
| 3 | / This program will read characters from the serial port and write them |
| 4 | / to memory starting at address 0. If you use the sendtape program with |
| 5 | / the files sertest.dat you should have the following pattern in memory |
| 6 | / Addr Value |
| 7 | / 0 1 |
| 8 | / 1 2 |
| 9 | / 2 3 |
| 10 | / 3 4 |
| 11 | / 4 10 |
| 12 | / 5 20 |
| 13 | / 6 40 |
| 14 | / 7 100 |
| 15 | / 10 200 |
| 16 | / 11 0 |
| 17 | / 12 377 |
| 18 | / 13 376 |
| 19 | / 14 375 |
| 20 | / 16 367 |
| 21 | / 17 16 (Address of characters received) |
| 22 | / |
| 23 | / To run start at 0200. |
| 24 | / Program will not halt |
| 25 | |
| 26 | INAD=030 / Address of serial input, 30 for console |
| 27 | KCF2=6000 INAD |
| 28 | KSF2=6001 INAD |
| 29 | KCC2=6002 INAD |
| 30 | KRS2=6004 INAD |
| 31 | KIE2=6005 INAD |
| 32 | KRB2=6006 INAD |
| 33 | |
| 34 | OUTAD=040 / Address of serial output, 40 for console |
| 35 | TFL2=6000 OUTAD |
| 36 | TSF2=6001 OUTAD |
| 37 | TCF2=6002 OUTAD |
| 38 | TPC2=6004 OUTAD |
| 39 | TSK2=6005 OUTAD |
| 40 | TLS2=6006 OUTAD |
| 41 | |
| 42 | *17 |
| 43 | BUFLOC, 7777 / Address to store next word received |
| 44 | |
| 45 | *200 |
| 46 | START, CLA CLL CMA / Init all our variables |
| 47 | DCA BUFLOC |
| 48 | |
| 49 | READ, KSF2 / Have character waiting |
| 50 | JMP .-1 / No |
| 51 | CLA |
| 52 | KRB2 / Get character |
| 53 | DCA I BUFLOC / Save through auto increment location |
| 54 | JMP READ |
| 55 | $ |