PRINT "Please wait for increment to 2 million" PROCassemble bcd%=2000000 bin%=0 REM REPEAT CALL bin2bcd REM UNTIL bin%=2000000 PRINT "DONE" END DEF PROCassemble LOCAL P%, L% DIM P% 12, L% -1 REPEAT [OPT 10 .bin2bcd mov eax,[^bin%] mov ebx,[^bcd%] .loop inc eax cmp eax,ebx jle loop mov [^bin%],eax ret ] UNTIL bin%=2000000 ENDPROC
|
PRINT "Please wait for increment to 2 million" PROCassemble bcd%=2000000 bin%=0 REM REPEAT CALL bin2bcd REM UNTIL bin%=2000000 PRINT bin% PRINT "DONE" END DEF PROCassemble LOCAL P%, L%, gap% DIM gap% &7FF, P% &7FF, L% &7FF [OPT 10 .bin2bcd mov eax,[^bin%] mov ebx,[^bcd%] .loop inc eax cmp eax,ebx jle loop mov [^bin%],eax ret ] ENDPROC
|
