8008 MACRO ASSEKUuER, VER 2.2 INTELLEC B/t'.OD 8 MOXXXXX, VERSIUN 3.0, 14 APRIL 1975 ERRCRS · 0 PAGE 21               3841     4bf030           CALL INCHL             3844    XX                NOV 8 ,H             3845    Dx                K0\/ C ,L             3846     360421'0x LXI ri,HPHME             384A    F9KOV M ,13             313413   30               INR X,             3B4C    FA               'KOV X ,C             3840    21                OCR L             3E34E   4835313          JN Z XXXx                  } LOOP' XXXXX DONE             3851    417F3C           CAXX BI TE                 ] READ CHECKSUM             38$4    484uc            JidZ LER                   ] CHECKSXX ERROR             JB57    4xE"XxX          JMP REDO                   ; Gil' Anqtrlr RECURD             3B$A               REUx:             3B5A    4671xC           CALL BYTE                  i GXX MSB OF TXXXXXXX ADDRESS             3B$D    ED               MOV E,A             383E    4UF3C            CALL bYTE             3861    D?               PlOV D,E             3EJb2   EX               HOV E,X             3863    c33              ORA D             3864    486638           JhZ GO                     x TXXX x'HE BRANCH             386i    444438           JMP START                                1                                ] SUBSTUUXX KEHORX CONTENTS ROUTINX.                                ]                                ; THIX ROUTINE EXPECTS (jNE PARAMExXX iROM THE CONSOLE, IJJXXXXXX                                i BY A SPAXX. THE PARA¥,ETER IS INTERPRETED AS A !'.Ey.{jRY LOCATICM                                ; AND THE ROXXXXX WILL DIXXXXX Ttiz CJNTI.YTS Of THAT LOCAIION,                                1 iOLLOnED BY A DASH (-). Tu MODXXX XEHXXX, TIPE L¶ THE HEX DA1'A                                ; F0LL(JXXX BI' A SPACE C)R X CARRIAGE REIUXX. IF NO KClDjFICATIljh                                ; UF THE LUCATIUtt IS REQUIRED, TYPL 0NUY A SPACE OR CARRIAGE RETjRtt.                                1 IF A SPACE HAS LAST TiPED, I'HE NEXT MEMORY LOCATION XXXX, 6£ DISPLAIED                                1 AND KODIE"ICAII0,4 Gf IT IS ALLOWED. IF A CARRIAGE RETURN KAoo ENTERED,                                ; THE CGMAND IS TEKMINATED.                                ;             3BtA               SUBS:             3BbX    11               OCR C             3Bb8    4b8530           CALL EXPR                  } GET UXX ADDXXXX             JB6E    3?00             CPI CR             3Bi0    684438           JZ SXXXX             3873    46D43D           CALL GETAD             3B7b               suo:             3876    C7               HOV A,ld             3t3i7   461JJxE          CALL L!3YTE                x DISPLAY DATA             3B7A    QE2D             XXX El,'"'             3BiC    4b523C           CALL CO             3U)F    46493F           CALL TI             3882    3?20             CPI ' '             3Ox4    68AA3B           JZ SUI             3887    3G2C             CPl ','             3889    68AA3B           JZ SUI             3xxC    3COD             CPl CR