8008 MACRO ASSEMULIR, VER 2,2 1NT£LL£C !/MOD 8 MONITOR, VERSION 3,0, 14 APXXX, 1975 ERRORS · 0 PAGE 34                  3Ex3 DB                                     MOV D,A                 3E94 U7                                     RET                                            i XXXXXX                                                 1                                                 ; PXXXX CX,LX                                                 0                                                 P                 3E95                           PEOi.:                 3E95 QEOD                                   HVI B,CR                 3E91 46B53E                                                             CALL PO                 3£9A QEOA                                   MVI B,LF                 3e9c 44853£                                                            JMP PO                                                 1                                                 / PULSE A PROM LOCATION                                                 : HL XXXXXX TU DATA IN MEMORY                                                 ; PXXX ADDRESS IS ALREADY SET                                                 ;                 3£9f'                          PGRM                 3E9F          C7                           mv A,M                                         ! GET DATX FROM MEMORY                 3EA0          2CFF                         XRL QFFK                                       x INVXXX IT                 3EXx          57                           OUT PDQ                                        $ OUTPUT IX                 3EA3          Ub80                         KVI A,PHOGx                                    j PULSE PXXX PROGRAMMER                 3EA5          53                           OUT PRUF,C                 3£A6          06x0                         HVI A,PRON0                 3EA0          53                           OUT PRUMC                 3EA9         Xx                            HOV A,b                                        I SAVE D                 3EAA          1El4                         MVl D,LDL,Y                                    1 DELAY 20 MS. FOR PROGRAMMER SETTLING                 xEAC                           PGQ3                 3EAC         x62530                        CALL DELAY                 3£AF          19                          OCR x                 3EBQ         UAC3E                        JNZ PXx                 3XXx         DB                           MOX D,A                 3EEJ4        Q'l                          RET                                                1                                                ; EXTERXXXXX REFERENCED ROUTINE                                                } PUXXX CIUTPUx C9DE, VXXXX EXPECTED IN B                                                $ A,8,hl,L, AND FXXX.S MODIFIED                                                1 STXXX USAGU 2 BYTES                                                ;                 3EB5                           PO:                                                        X PUNCH OUTPUT                 3eej5        36032Xxx LXI                                 H,I0BYT                 3Eb9         C7MOV                                        A,H                             $ GET STATUS BYTE                 3EBA         ?430                         ANI             HOT PKSK                        $ GET PUNCH BITS                 3EBC         605CxC                       JZ              TTYOUT                          I NO, PUNCH " TTY                 3EBF         3Cl0                         CPI             PPTP                            1 XXXX FOR PTP                 3ECl         4BXxxX                       JNZ             POi                             I TESX FOR USER DEVICE(3)                 3EC4                           POD:                                                       1 PUNCH · PTP                 3EC4         43                           IN              PTPS                            J GET STATUS                 3EC5         2¢40                         ANI             PROV                            J XXXXX STATUS                 3EC7         68C43E                       JZ              POD                                                                                                           $ ,A)0P UNTIL READX                 3ECA         cl                           IQOV                                                                           A,ES                 3ECB         5'/                          XXX             PTPU                 3ECX         060A                         MVl             A,PTPXx                         j SURT PUNCH