lib/hachti/src/tt$low.asm

   1 * TELETYPE LOW LEVEL I/O
   2 *
   3 *       CALL    TT$IN(BUFFER,COUNT)
   4 *
   5         SUBR    TT$IN,KRD
   6 *
   7 *
   8         REL
   9         ORG     0
  10 KRD     DAC     *
  11         LDA*    KRD     GET POINTER
  12         STA     PTR
  13         IRS     KRD
  14         LDA*    KRD
  15         STA     CNT
  16         IRS     KRD
  17         IRS     KRD
  18 *
  19         OCP     4
  20 *
  21 *********
  22 LOOP    JST     GETC
  23         STA     HI
  24         ANA     ='177
  25         SUB     =13
  26         SNZ
  27         JMP     EHI
  28         JST     GETC
  29         STA     LO
  30         ANA     ='177
  31         SUB     =13
  32         SNZ
  33         JMP     ELO
  34         IRS*    CNT
  35         IRS*    CNT
  36         LDA     HI
  37         ALS     8
  38         ADD     LO
  39         STA*    PTR
  40         IRS     PTR
  41         JMP     LOOP
  42 ***********
  43 EHI     CRA
  44         STA*    PTR
  45         IRS     PTR
  46         STA*    PTR
  47         JMP*    KRD
  48 *
  49 ELO     LDA     HI
  50         ALS     8
  51         STA*    PTR
  52         IRS     PTR
  53         CRA
  54         STA*    PTR
  55         IRS*    CNT
  56         JMP*    KRD
  57 *
  58 PTR     DAC     **
  59 CNT     DAC     **
  60 HI      DAC     0
  61 LO      DAC     0
  62 *
  63 ******
  64 GETC    DAC     *
  65         INA     '1004
  66         JMP     *-1
  67         JMP*    GETC
  68 ******
  69         END