ÿb‘"THIS PROGRAM TRANSLATES PHONE NUMBERS INTO LETTER"Lb‘"COMBINATIONS WHICH MAY BE WORDS. ONES AND ZEROS DON'T TRANSLATE."†b‘"INPUT FORMAT: n,n,n,n,n,n,n NO COMMA AT THE END.•b † A$(, )£b‚ Xð Î ±b‚ Yð Î ¿b(‡ A$(Y,X)Éb2ƒ Y,X c<„ 0,0,0,1,1,1,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,R,S,T,U,V,W,X,YcFNð7cP… "PHONE NUMBER" ;A,B,C,D,E,F,GccZ‘ A;" ";B;" ";C;"-";D;" ";E;" ";F;" ";GÁcn‚ Oð Î :‘ A$(O,A);:ƒ:‘" ";:‚ Oð Î :‘ A$(O,B);:ƒ:‘" ";: ‚ Oð Î :‘ A$(O,C); :ƒ:‘" ";dx‚ Oð Î :‘ A$(O,D);:ƒ:‘" ";:‚ Oð Î :‘ A$(O,E);:ƒ:‘" ";:‚ Oð Î :‘ A$(O,F);:ƒ:‘" ";=d‚‚ Oð Î :‘ A$(O,G);:ƒ :‘"" KdŒ‚ Qð Î Yd–‚ Rð Î gd ‚ Sð Î udª‚ Tð Î ƒd´‚ Uð Î ‘d¾‚ Vð Î ŸdÈ‚ Wð Î ®dÒ‘ A$(Q,A);½dÜ‘ A$(R,B);Ìdæ‘ A$(S,C);Ûdð‘ A$(T,D);c ;Save the logical drive number sta cpmdrv, cpi maxlog ;Check for a valid drive number jnc zret ;Illegal drive$ mov a,e ;Check if bit 0 of (e) = 1 ani 1- jnz setd3 ;Drive has allready been accessed& mov h,c ;M