projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
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 | $ |