8008 MACRO ASSEMBLEH, VER 2.2 LNTELLEC 8/MOD ¥ MCINITUR, VERSION 3.0, 14 APRIL 197x ERXXXX · 0 PAGE 27              3CEF 2CFF                     XXX OXX'X             3CFl 07                       RET                               i RETUXX             3CF2                  CS3:             3CF2 xC02 " CPI BATCH             3CF4 0¢)FFMVI A,TRUL             3CF6 68EE3C                   JZ CS2             3CF9 441837                   JMP CSLUC                                    T                                    i READ 6NPF TAPX RECORD, BUILD BYTE, STORE IN C"REGI5TER                                    i IF ERROR, ABORT XXXXXXX                                    P                                    0             3CFC                  DECODEN             3CFC     462B3FCALL RlX                                         $ READ TAPE             3XXX     3C42                 CPI 'B'                           $ SCAN FOR 'B'             jDOl     4xFC3C               JNZ DLCODE             JD04     160)                 1'4VI C,1                         J INITIALIZE MXXXXX             3DOb                  DCX:             3x06     4b2B3F               CALL RlX                          J GET DATA             3DU9     3?4E                 CPX 'N'                           j CHECK FOR '1Y°             3DOx     QB1D3D               JNZ DC2                           7 NO, CHECK FOR 'P'                                                                             J CKRRY = Ci             3DOE                  DCi:             300£     C2                   HClV A,C                          ; SH1FT IN DATA BIT             3DOF     12                   RAL             3010     DO                   mv C,A             3011     4UObjD               JNC DCO                           j It' CARRY IS SET, B Bil'S READ             3Dl4     qb2BjF               call Rlx                          J TEST FOR REQ'D 'F"'             3Dl7     3C4b                 CPI 'F'             3019     4B4BJC               JNZ LER             3XxX     0)                   RET                               1 RETURN             3DlO                  DC2 :             3DxD     0480                 ADI -'P'             3DIF     48483C               JNZ LER                           1 ERROR             3x22     44QE3D               JMP DCl                           1 CARRY IS SET                                   7                                   ; 1.0 MS DELAY ¢1NCLUDINX CALL,, OCR UR INC, AND JUMP Id CALLING LOOP)                                   ;             3025                  DELAY1             3D25 UXxx                     MVI B,DLY             3027                  Dl,0:                                   Dl,0: OCR B             3027 09             3O28 482730                   JNZ DLO             3D2B 07                       RET                               7 RETXXX                                   0                                   0                                   i CONVERT BINARY NUMBXX TO A STRifVG OF" ASCII DIGITS                                   i RL - BINARY MJMBEK                                   : DE - DIVISUR (DESCENDING X'CNERS OF" JO)                                   $ C " LEADIXX Uro SUPRESSION XXXXXXXXX                                   $ A,B - TEMPORARIES                                   7             3D2C                  DIGIT: