Listing of file='B2AD.MAC;01' on disk='vmedia/asm_utilities_macros-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; BINARY TO ASCII DECIMAL ; CO EQU 3392H DIVHD EQU 3581H SAVE EQU 3FD0H ENTRY B2AD B2AD: CALL SAVE ;SAVE REGISTERS MVI B,0 ;CLEAR DIGIT COUNTER B2AD10: LXI H,10 ;DIVIDE BY 10 CALL DIVHD XCHG MOV A,L ;GET DIGIT ADI 30H ;CONVERT TO ASCII PUSH PSW ;SAVE ON STACK INR B ;INCREMENT DIGIT COUNT MOV A,E ;SEE IF NOTHING LEFT ORA D JNZ B2AD10 B2AD20: POP PSW ;PRINT DIGITS IN REVERSE ORDER CALL CO DCR B JNZ B2AD20 RET END