DELAY:D000_H2 'NUMBER OF CIKLES IN DELAY HLT OBA c2_H1 'START READER LDB7 FFFD_H2 'BITMASK FOR "READY TO SEND" STATUS NEXT: 'READING THE NEXT BYTE IBA 22_H1 'READ STATUS FROM READER ORB 'IF READER IS READY TO SEND, A WILL BE FF_H1 INA 'FF++=0 NAZ NEXT 'IF A NOT=0, WAIT FOR THE NEXT BYTE ' OK, THE BYTE IS READ IBA 2_H1 ' READ DATA BYTE OBA 0_H1 'SENT IT TO TELETYPE OBA 82_H1 ' STOP READER INA JAZ TOEND ' HALT ON BYTE == FF 'WAITING LDA7 DELAY SPIRAL: INA NAZ SPIRAL JAZ NEXT 'WELL, IF "NAZ" IS SKIPPED, "JAZ" == "JMP" TOEND: HLT ^ ^ WARNING: Begin = 0; Starting from zerro memory word.