*** empty log message ***

[h316.git] / lib / hachti / src / tt$low.asm

diff --git a/lib/hachti/src/tt$low.asm b/lib/hachti/src/tt$low.asm
new file mode 100644 (file)
index 0000000..bd6eb0d
--- /dev/null
+++ b/lib/hachti/src/tt$low.asm
@@ -0,0 +1,69 @@
+* TELETYPE LOW LEVEL I/O
+* 
+*       CALL    TT$IN(BUFFER,COUNT)
+* 
+       SUBR    TT$IN,KRD
+* 
+* 
+       REL
+       ORG     0
+KRD    DAC     *
+       LDA*    KRD     GET POINTER
+       STA     PTR
+       IRS     KRD
+       LDA*    KRD
+       STA     CNT
+       IRS     KRD
+       IRS     KRD
+* 
+       OCP     4
+* 
+*********
+LOOP   JST     GETC
+       STA     HI
+       ANA     ='177
+       SUB     =13
+       SNZ
+       JMP     EHI
+       JST     GETC
+       STA     LO
+       ANA     ='177
+       SUB     =13
+       SNZ
+       JMP     ELO
+       IRS*    CNT
+       IRS*    CNT
+       LDA     HI
+       ALS     8
+       ADD     LO
+       STA*    PTR
+       IRS     PTR
+       JMP     LOOP
+***********
+EHI    CRA
+       STA*    PTR
+       IRS     PTR
+       STA*    PTR
+       JMP*    KRD
+* 
+ELO    LDA     HI
+       ALS     8
+       STA*    PTR
+       IRS     PTR
+       CRA
+       STA*    PTR
+       IRS*    CNT
+       JMP*    KRD
+* 
+PTR    DAC     **
+CNT    DAC     **
+HI     DAC     0
+LO     DAC     0
+* 
+******
+GETC   DAC     *
+       INA     '1004
+       JMP     *-1
+       JMP*    GETC
+******
+       END