Listing of file='AD2B.MAC;02' on disk='vmedia/disasm+mldp-sideB-sector.ccvf'
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; ; ASCII DECIMAL TO BINARY ; SPNOR EQU 3460H DIG EQU 3476H ENTRY AD2B AD2B: CALL SPNOR ;SKIP SPACES CALL DIG ;SEE IF DIGIT RNC LXI D,0 PUSH B ;SAVE BC AD2B10: INX H Xªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªªª;RESTORE BC MOV A,D ;TEST FOR ZERO ORA E STC ;INDICATE NUMBER FOUND RET END