BOOB MACRO AXXXXXXXX, VER 2.2 INT£LL£C BIMOD 8 MONITOR, VERSION 3.0, 1x APRIL 1975 ERROXX · 0 PAGE 33 3E55 C6 KOV A,L 3E56 DS MUV C,H 3E57 07 RET j j DECODE ASCII CHAR IN X-REGISTER INTO HEX DIGIT IN K-REGISTER j FILTER (JUT ALL XXXXXXXXXX NOX IN THX SEQUENCE (0...9,A...F). t RETURN CAHRY = 1 FOR ILLEGAL CHARACTERS. ; 3E58 NjBBLU 3E58 1430 SUI '0' xESA 23 RX 3L5E3 04E9 ADI 'O'-'G' x£5U 23 AC 3ESE 0406 ADI 6 3E60 50x63E JP NI0 3E63 0407 ADI 7 3£65 x3 RC 3E66 XXX: 3Xxx 040A ADI 10 3£68 BD ORA A JEb9 07 RET ; RETURN P P ; DISREGARD NOISE CHARACTERS P 0 3ExA NOISW 3E6A 46493F CALL n 3E6D 3C3D CPI '"' 3E6F 4x6A3E JNZ NOISE 3E7x NOO: 3i12 46493F " 3ALL LI 3Ei5 3C20CPl ' ' 3E77 68723E JZ NOD 3E7A 07 RET I KETURH j j PUNCH A UTE AS x ASCII CHARACTERS ; 3ExE3 PBYTU 3E7B DO HOV C ,A xE7C Qa RRC 3E7D QA, KRC RRC° 3E7E QA 3UF VA RRC 3E80 24QF ANI 0 fii JEl32 46C13C 7ALL Con V 3£85 4CA353E CALL po 3E8U C2 MQV A ,C 3E89 240F ANI UFH 3E8B 46Cl3C CXXX CONY 3E8£ 4bB53X CALL PO 3ex1 Cl MOV A.C 3E92 83 ADD D