' This programm prints a text from any ASCII tape. The EOT is 0.

DELAY:D000_H2 'NUMBER OF CIKLES IN DELAY
HLT

OBA 402_M1 'STOP READER

IBA 002_M1 'READ A BYTE - FOR CLEAR READY FLAG

RO1
LDX7 100_H2

OBA 602_M1 'START READER

NXT:

IBA 102_M1 'READ READER STATUS
ANA7 2_H2 ' TEST A WITH "READY TO SEND" MASK
JAZ NXT ' IF READER IS NOT READY YET - WAIT


IBA 002_M1 ' READ THE DATA
STV4 INX 'STORE THE DATA


NAZ NXT ' READING THE NEXT BYTE

'-------------------------------

OUT:
OBA 402_M1 'STOP READER
LDX7 100_H2

NOUT:
LDV4 INX 'READ A BYTE
OBA 0_H1 'AND SEND TO TTY

LDB7 DELAY INB NBZ FD_H1 'DELAY

NAZ NOUT 'IF A NOT 0, SEND THE NEXT BYTE
HLT
^
^ WARNING: Begin = 0; Starting from zerro memory word.