sw/dumprest/original/checkser.pal

   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         $