008 MACRO ASS1MBL,ER, VER 2.2 INTELLEC BIMOD x P,ONITX1R, VERSION x.0, 14 APRIL, 19x5 ERRORS · Q PXGX 4                       ; CRT I/D CONSTANTX                      0                     P     0x04            CRT1 EQU 1                      7 CRT INPUT DATA PORT     0005            XRTS EQU 5                      ; cm INPUX STATUS PORT     QQQC            CRTD EQU BIAS+4                 7 CRT OUTPUT DATX PORT     0001            CRTDA EQU 1                     7 DATA AVA1LABL,L     x0xx            CRTBE EQU 4                     ; TRANSMIT BUfFER EMPTY                     P                     P                     7 PTR I/U CONSTANTS                     ;     0x03            PTRI EQU x                      $ PTR INPUT DAXA POXT (NOT INVERTED)     0UOl            PTRS EQU TXS                    x PTR IXPUT STATUS PORT     000x            PTRC EQU TTC                    : PTR OUTPUT XOMt'lAXD PORT     000C            PTRGO LQU RC1'1D OR DSB ;         START PTR     0008            PTRNO EQU TTYN0$                  XTOX PTR     0020            PTRUA EQU x0H                   $ PTR DATA AVAILABLE                     t                     j PTP I/X CONSTANTS                     $     00013           PTPO EQU BIAS+3                 7 PTP OUTPUT DATA PORT     0001            PTPS EQU TTS                    ; PTP INPUT STATUS PORT     000x            PTPC EQU TTC                    $ PTP OUTPUX COMXXND PORT     x040            PROX EQX 40H                    I PUNCH READY STATUS     QQQA            PTPXU EQU PXHD OX DSB !           START PUNXH     00x8            PTPNO EQU XTYNO$                  STOP PUNCH                     J                     J PROM PROGRAMMER I/O CONXXANTS                     7     000A            PAD EXU BIAS+2;                   PROM ADDRESS OUTPUT PORT     QQOB            PXU EQU PTPO                    } PROM DATA OUTPUT PORT     00x2            PXI EQU 2                       7 PROX DATA IXPUT PORT     0009            PRDMC EQIJ T'rx                 $ PROXRAMMIKG PJLSE OUTPUT PORT     0U80            PXUGO EQU PBITA                 b START PROGRAMMING     0000            PRONO EQU 0                     J STOP PROGRAMMING     0000            ENB EQU 0                     $                     J GLOBAL CONSTANTS                     I     0xFA            TOUT EQU 250                    J 250 AS. COUNTER FOR READER TIMEOUT     "x014           LDLY EQU 20                     x CQUNTER FOR x0 MS. DELAY          I                 IF DEBUG          1          DLY EQU Ixl                     j 1 KS. XELAY FOR 8QBX DEBUG                            ENDIF          1                 IF NOT DEBUG     0017 1          DLY EQU 23                      X COUNTER FOR 1 MS. DELAY                            ENDIF     0001)           CR EQU OOH                      J ASCII XALUE OF CARRIAGE RETURX     QQOA            LF EQU QAH                      J ASCII VALUE Of LINE FEEX                     J                     J MACRO DEFINITIONS                     J