JOB MACRO ASSEMBLER, '/ER 2,2 IHTELL,EC 8/F!(JD d :.;OXLT(jR, VERSION 3.0, 14 APRIL, 1975 ERRORS = 0 PAGE 30         3DdA Cl                  MO'l A, El                 ; RESTORE DEIIMITER       3dbe3 3CZC               CPI ' , '       3DBD 68XXxX              XX EXx       3DCO 3C2Q                                ?PI ' '       3DXx b8Cf3D              JZ EXx       3l)C5 KUD                CPI CR "       3DC7 48483X              JNZ LER       3DCA ll                  L,CR C       3DCB 48483C              JliZ LER       3DCE 07                  XXX       3DCF              EX3:       3DCX xi              " OCR C       xDDO 488530              JNZ XXXX       JDD3 0x                  RLT                         I                         ; GET ADDRESS ikCjX MEMXXX XXX PUT IN QL, AND DE                         }       3DD4              GETAD:       3DIJ4 36G8U00           LXI K,ADR1                 i ADDRESS or' IIKST F'AP.KX,ETER       301)8 Of                KCl'i d ,M '               ; 1.!SB 0¢' L(JW ADDRESS       3DXx 30                 IhR L       3DDA D7                 XUV C ,K                   ; LSB 0i LUH AijUXXXX       3DUB 30                 INR L       3DDC DF"                HOV [i ,t'l                T MSB OF HIGH ADDRXXX       3DDD 3Q                 INR i,       3DOi i7                 MOV E ,X                   i LSB UP' HIGH ADDRESS       31)UF E9                M0\/ X ,E5                 ; KESET AL,       31)EX X"2               K0\/ L ,C       3DEI 07                 RET                         }                         1 CQXXXX£ HL XXXX DU                         J IF Hi, < DE THEN CARRY " C;                         J IF KL · DI XXXX CAKR1( · D;                         J IF HL > DI THEN CAXX]( " I;                         1       3DE2              HIL,01       3DE2 46IQ3D             CALL INCKL                 } BUMP HX,       3DE5 C4                 MOV A,i                    J DE - HL, SE1"/RESET CARXX       3ded 96                 SUb L       3DE7 C3                               HOV X,D       3DE8 9L)                SEl8 H       3DE9 07                 RET                        } RETURN                         J                         i CONVERT NIXXXX IN A-REGISTER TU ASCII IK A-REGISTER                         ; AND PRXXX ON TELEPRIKIER                         a                         x       3DEA                         HXO:       3DXX 46Cl3X          " CALL CONY       3DED 44523C                               J.4P CO                         P                         P                         ; XXXXXXXXX H AIvD L