8008 MACRO ASSEM0L,ER, VER 2.2 1NTELL,EC 8/P!tjD 8 MOlilTUR, VERSION 3,0, !4 APRIL 1975 ERRCIRS · 0 PAGE 35                    3ECE 53                       OUT PTPC                  3ECx 0608                     KVI A,PTPN0                       ; STGP XXXXX                  3ED1 53                       OUT XXXX                  3Elj2 07                      RET                  3ED3                  Poi:                  3£D3 3CZ0                     CPl PUSE1                  3ED5 680C37                   JZ P1L,GC                  3ed8 440F37                   JHP PZl,0C                                        ;                                        7 EXTERNAXXX REFERENCEX ROUTINE                                        ; READER IixPUI CUDE                                        1 VALUE RETURNED IN A                                        ; A,B,E,L, A!vL1 FLRGS MjDIE"IE0                                        ; STACX USAGU 4 BYTXX                                        ;                  3EDB                  Xx :                                      ;  READER INPUT                  3EDB     36032EOU        " LXX H,I0BYT                          ;  POlh1' FiL Ax' IOBYT                  3L'DF    C7                   MOV A ,P.                  3£LO                                                               READE"R · XXX?                           24QC                 ANI NOT RMSK ;                  3EE2     48033F               JN Z RI3x                            ERANCH IQ XXX HDUIINE                  3EEx     Ob09                 XXX A,T7YGCJ                      ;  REAUEK " TTY .                  3EE7     53                   OUT TTC                  3EE8     0608                 MVX A,7TYXX                  3EEA     53                   OUT TiC                  3E£B     xEFA                 MVI H,1QUT                        ;  SET TIMER FOR READER TIMEOUT                  3IEU                  RJ0:                  3EED     43               ' XX TI S                  3EEE     2401                 ANI T'fYDA                  3EF0     68FF3E               JZ RIZ                            ;  DATA IS READY                  3EF3     462530               CALL DELAY                        7  DEL,A1' 1.0 MS                  3EF6     29                   OCR H                  3EF7     48ED3E               JNZ Rl 0                  3EFA                  XXx:                  3EFA     bO              " ORA A                  3EXX     0601                 MVI A, I                  3EFD     1A                   RAR                               ;  SET CARRY IKDICATING EOF                  3£FE     07                   RET                               1  RETURN                  3EFF                  RI2 :                  3£FF'    41                   IN         T1'1                  3FQ0     2CFF                 XRI        XXXX                   } INVERT DATA, CLEAR CARRY                  3102     07                   RET                               1 RETURN                  3FQ3                  Ri3:                                      ; PTR RO'JTINE                                        Rx3: CXX                  3Fx3     9?04                            RPTR                  3F05     48233F               XxxX       RI6                  3F"08    0xuC                 MVI        A,P,TRGx                  3FOX     53                   OUT        PTRC                  3FOEJ    0x08                 MVI        A,PTRN0                  3FXX     53                   OUT        PTRC                  3FOE     2EFA                 MVI        H,70XX                 ; SET TIMER FOR READER TIMEOUT                  3FlO                  RI4 :                  3XxX     43                   IN         PXXX