Listing of file='B2AD.MAC;01' on disk='vmedia/disasm+mldp-sideB-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; BINARY TO ASCII DECIMAL ; CO EQU 3392H DIVHD EQU 3581H SAVE EQU 3FD0H ENTRY B2AD B2AD: CALL SAVE MVI B,0 B2AD10: LXI H,10 CALL DIVHD XCHG MOV A,L ADI 30H PUSH PSW INR B MOV A,E ORA D JNZ B2AD10 B2AD20: POP PSW CALL CO DCR B JNZ B2AD20 RET END