8008 MACRO ASXXXXXXX, VER 2.2 INTELLEC dlMUU g MONITOR, VERSION 3.0, 14 APRIL 1975 ERRORS · 0 PAGE 28             3D2C      0XxX                MVI B, '0'                       J INITIALIZE CHARACTER           3D2E                  DGQ:           3DZE     Cd                   IyjOV A,L,                       7 SUB DENUM (DE) FROM NUXXXXXXX (HL)           3D2F"     94                  SUB E           3D30     FO                   MOV L,A           3031     C5                   MUX A,H           3O32      xB                  SBX D           3033     EB                   KOV H,A           3034      b03B3D              XX DGj                           6 NEGATJVE RESULT, ALL DONE           3037      DB                  INR B                            7 COUNT NUXXXX UF SUBTRACTS           3D38     442E3D               XXX DGQ           3D3B                  L)GI:                                 L)GI: NOV A,L,           3D3B     Cx           3D3C      84                  XXX E           3D3D     FO                   HOV L,,A           3OxE     C5                   KX)V A,hi           3D3F     8B                   ADC D           3040     EB                   NOV H,A           x041     Cl                   MOV A,B           3D'l2     3?30                CPI '0'                          ; CHECK FOR LEADXXX ZERO SUPPRXXXXXX           gl)4q    485Q3D               JNZ DGJ           3047     CA                   MOV B,C           3O48                  DG2 ;           3D48     DC                   MOX D,H           3049     E6                   MClV X,L           3D4A     4xB53E               CALL PX           3D4D     EB                   XOX H,D           xD4E     F'4                  HOV 1,,E           3D4F     07                   RET                              J PUNCH CHARACTER           3050                  DGx:           3050     lb3Cl                KVI C,'0'           3052     444830               JMP DG2                                 ;                                 ; ENCODE A BPNF WORD AND PUNCH IT                                 ;           3055                  ENCODU           3055     DO                   MOV D,X                          6 SAVE HI,           3056     E6                   M1)V E,L           JD57     0E42                 XVI B,'t5'                       J PUNXX A 'B'           3059     46Bx3E               CAXX PO           3D5C     1608                 x4VI C,8                         J 1$ XXX COUNT           3D5E                  END:           xD5E     Et3                  NOV H,D           3D5F     F4                   MOV 1,,E           3060     Ob09                 MXX A,9           3062     9x                   sub C           3Db3     XX                   MOV B,X           x064     C7                   MOV X,M           3065                  XXXX           3Db5     02                   RLC           xD6b     09                   OCR B